-
Notifications
You must be signed in to change notification settings - Fork 0
/
testprogram3.txt
137 lines (116 loc) · 4.11 KB
/
testprogram3.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
10 PRINT "TESTPROGRAM 3"
15 PRINT "INITIALIZING ARRAYS"
20 GOSUB 8000
25 PRINT "INITIALIZING CHARSET"
30 GOSUB 10000
35 PRINT "STARTING ";
40 FOR I=0 TO 2: FOR J=0 TO 1000: NEXT J: PRINT". ";:NEXT I
1000 PRINT CHR$(147);
1110 FOR I=0 TO 22: PRINT NM$(I);:PRINT TAB(MAXNL);:PRINT" $ ";
1112 IF PR(I)<10000 THEN PRINT" ";
1113 PRINT STR$(PR(I)) + " ";
1120 IF I=CS% THEN PRINT CHR$(165)
1130 IF I<>CS% THEN PRINT ""
1140 NEXT
1150 PRINT "ZURUECK"+TAB(MAXNL+10); IF CS%=23 THEN PRINT CHR$(165)
1150 PRINT "KAUFEN"+TAB(MAXNL+10); IF CS%=24 THEN PRINT CHR$(165)
7999 REM NAME
8000 DIM NM$(22)
8001 FOR I=0 TO 22: READ A$: NM$(I)=A$: NEXT
8050 DATA "AUDI QUATTRO","AUDI 80","BMW 3ER","BMW M3","BMW 5ER"
8051 DATA "FORD FIESTA","FORD ESCORT","FORD CAPRI","MB 190","MB E-KLASSE"
8052 DATA "MB SL","OPEL CORSA","OPEL MANTA","OPEL VECTRA","PORSCHE 944"
8053 DATA "PORSCHE 911","TRABANT","VW GOLF I","VW POLO","VW GOLF II"
8054 DATA "VW T3","WARTBURG 353","VOLVO 240"
8099 REM ANZAHL
8100 DIM AZ(22)
8101 FOR I=0 TO 22: READ A: AZ(I)=A: NEXT
8150 DATA 0,0,0,0,0
8151 DATA 0,0,0,0,0
8152 DATA 0,0,0,0,0
8153 DATA 0,0,0,0,0
8154 DATA 0,0,0
8199 REM PREIS
8200 DIM PR(22)
8201 FOR I=0 TO 22: READ A: PR(I)=A: NEXT
8250 DATA 20000,18000,12500,15000,20000
8251 DATA 8000,9000,10000,20000,25000
8252 DATA 30000,10000,15000,10000,8000
8253 DATA 9000,20000,18000,15000,23000
8254 DATA 12000,18000,10000
8299 REM NACHFRAGE
8300 DIM NF(22)
8301 FOR I=0 TO 22: READ A: NF(I)=A: NEXT
8350 DATA 0.6,0.4,0.5,0.3,0.7
8351 DATA 0.9,0.6,0.8,0.5,0.6
8352 DATA 0.4,0.8,0.5,0.6,0.05
8353 DATA 0.01,0.9,0.2,0.2,0.3
8354 DATA 0.2,0.4,0.5
8399 REM VORHANDEN (FARHZEUGMARKT)
8400 DIM VH(22)
8401 FOR I=0 TO 22: READ A: VH(I)=A: NEXT
8450 DATA 1,1,1,1,1
8451 DATA 1,1,1,1,1
8452 DATA 1,1,1,1,1
8453 DATA 1,1,1,1,1
8454 DATA 1,1,1
8499 REM MAXNAMELENGTH
8500 MAXNL=0
8501 FOR I=0 TO 22: L=LEN(NM$(I)): IF L>MAXNL THEN MAXNL=L: NEXT
8600 RETURN
10000 REM CUSTOM CHARSET (64-127 + 160-191)
10010 REM COPY ROUTINE
10011 FOR I=0 TO 26: READ X: POKE 828+I,X: NEXT I
10012 DATA 169,000,160,208,133,095,132,096
10013 DATA 169,000,160,224,133,090,132,091
10014 DATA 169,000,160,064,133,088,132,089
10015 DATA 076,191,163
10016 REM COPY $D000-$DFFF -> $3000-$3FFF
10020 REM CHARSET ROM INTO RAM
10021 POKE 56334,PEEK(56334) AND 254
10022 POKE 1,PEEK(1) AND 251
10023 SYS 828
10024 POKE 1,PEEK(1) OR 4
10025 POKE 56334,PEEK(56334) OR 1
10026 POKE 53272,PEEK(53272) AND 240 OR 12
10061 FOR A=12800 TO 13055: READ ZE: POKE A,ZE: NEXT A
10062 DATA 000,003,003,003,003,003,127,127
10063 DATA 000,192,192,192,192,192,254,254
10064 DATA 127,127,003,003,003,003,003,000
10065 DATA 254,254,192,192,192,192,192,000
10066 DATA 000,000,000,125,253,133,133,253
10067 DATA 000,000,000,255,255,255,255,255
10068 DATA 253,253,252,255,159,096,096,000
10069 DATA 255,255,000,255,207,048,048,000
10070 DATA 000,000,000,000,001,001,001,001
10080 DATA 000,063,127,224,192,192,128,128
10081 DATA 001,001,001,015,007,003,001,000
10082 DATA 128,128,128,240,224,192,128,000
10083 DATA 000,001,003,007,015,003,003,003
10084 DATA 000,128,192,224,240,192,192,192
10085 DATA 003,003,003,003,003,127,127,000
10086 DATA 192,192,192,192,192,254,254,000
10087 DATA 000,001,003,003,001,000,007,015
10088 DATA 000,128,192,192,128,000,224,240
10089 DATA 031,031,031,031,031,031,031,031
10090 DATA 248,248,248,248,248,248,248,248
10091 DATA 000,000,031,016,031,016,031,016
10092 DATA 000,000,224,016,240,016,240,016
10093 DATA 031,016,031,016,031,240,255,255
10094 DATA 240,016,240,016,240,031,255,255
10095 DATA 000,000,000,000,000,000,007,004
10096 DATA 000,000,000,000,000,000,224,032
10097 DATA 012,015,127,127,103,024,024,000
10098 DATA 048,240,254,254,230,024,024,000
10099 DATA 000,000,065,097,113,121,125,127
10100 DATA 000,000,140,140,140,140,140,140
10101 DATA 127,125,121,113,097,065,000,000
10102 DATA 140,140,140,140,140,140,000,000
10103 FOR A=13056 TO 13103: READ ZE: POKE A,ZE: NEXT A
10104 DATA 000,001,003,007,015,003,003,003
10105 DATA 000,128,192,224,240,192,192,192
10106 DATA 003,003,003,003,003,003,003,000
10107 DATA 192,192,192,192,192,192,192,000
10108 DATA 000,032,096,254,254,096,032,000
10109 DATA 000,004,006,127,127,006,004,000
10110 RETURN