Brotikasten/BROTCD01.iso/lern/lern451.d64/yesterday.c

Commodore BASIC | 1995-08-09 | 6KB | 226 lines

99 POKE53280,0:POKE53281,0
100 PRINT"[147]YESTERDAY"
110 L1=54272:L2=54279:L3=54286
120 H1=L1+1:H2=L2+1:H3=L3+1
130 V1=L1+4:V2=L2+4:V3=L3+4
140 POKE 54296,15
150 POKE V1+1,9:POKE V2+2,16
160 POKE V2+1,96:POKE V2+2,36
170 POKE V3+1,18:POKE V3+2,170
180 T=TI
200 POKE V1,32:POKE V2,32:POKE V3,32
210 READ S:IF S=0 GOTO 290
220 READ X1,Y1,X2,Y2,X3,Y3
230 IF X1 THEN POKE H1,X1:POKE L1,Y1:POKE V1,33
240 IF X2 THEN POKE H2,X2:POKE L2,Y2:POKE V2,33
250 IF X3 THEN POKE H3,X3:POKE L3,Y3:POKE V3,33
260 T=T+S*1.45
270 IF T>TI GOTO 270
280 GOTO 200
290 FORJ=L1 TO 54296:POKE J,0:NEXT J
300 REM DURATION,HI-1,LO-1,..,HI-3,LO-3
310 DATA 10,25,177,17,37,14,107
320 DATA 10,22,227,0,0,0,0
330 DATA 40,22,227,0,0,0,0
340 DATA 20,11,114,0,0,0,0
350 DATA 20,19,63,16,47,10,205
360 DATA 10,28,214,0,0,0,0
370 DATA 10,32,94,0,0,0,0
380 DATA 10,36,85,21,154,25,177
390 DATA 10,38,126,0,0,0,0
400 DATA 10,43,52,0,0,0,0
410 DATA 10,45,198,0,0,0,0
420 DATA 15,43,52,28,214,22,227
430 DATA 5,38,126,0,0,0,0
440 DATA 40,38,52,0,0,0,0
450 DATA 20,8,147,0,0,0,0
460 DATA 20,22,227,19,63,7,163
470 DATA 10,38,126,0,0,0,0
480 DATA 10,38,126,0,0,0,0
490 DATA 10,34,75,21,154,17,37
500 DATA 10,30,141,0,0,0,0
510 DATA 10,28,214,0,0,0,0
520 DATA 10,25,97,0,0,0,0
530 DATA 20,30,141,22,227,17,37
540 DATA 10,28,214,0,0,0,0
550 DATA 30,28,214,0,0,0,0
560 DATA 20,25,97,17,37,10,205
570 DATA 20,22,227,19,63,9,159
580 DATA 10,28,214,19,63,17,37
590 DATA 40,25,177,19,63,16,47
600 DATA 10,19,63,0,0,0,0
610 DATA 20,22,227,19,63,15,70
620 DATA 10,28,214,22,227,17,37
630 DATA 50,28,214,22,227,17,37
635 REM
640 DATA 10,25,177,17,37,14,107
650 DATA 10,22,227,0,0,0,0
660 DATA 40,22,227,0,0,0,0
670 DATA 20,11,114,0,0,0,0
680 DATA 20,19,63,16,47,10,205
690 DATA 10,28,214,0,0,0,0
700 DATA 10,32,94,0,0,0,0
710 DATA 10,36,85,21,154,25,177
720 DATA 10,38,126,0,0,0,0
730 DATA 10,43,52,0,0,0,0
740 DATA 10,45,198,0,0,0,0
750 DATA 15,43,52,28,214,22,227
760 DATA 5,38,126,0,0,0,0
770 DATA 40,38,52,0,0,0,0
780 DATA 20,8,147,0,0,0,0
790 DATA 20,22,227,19,63,7,163
800 DATA 10,38,126,0,0,0,0
810 DATA 10,38,126,0,0,0,0
820 DATA 10,34,75,21,154,17,37
830 DATA 10,30,141,0,0,0,0
840 DATA 10,28,214,0,0,0,0
850 DATA 10,25,97,0,0,0,0
860 DATA 20,30,141,22,227,17,37
870 DATA 10,28,214,0,0,0,0
880 DATA 30,28,214,0,0,0,0
890 DATA 20,25,97,17,37,10,205
900 DATA 20,22,227,19,63,9,159
910 DATA 10,28,214,19,63,17,37
920 DATA 40,25,177,19,63,16,47
930 DATA 10,19,63,0,0,0,0
940 DATA 20,22,227,19,63,15,70
950 DATA 10,28,214,22,227,17,37
960 DATA 50,28,214,22,227,17,37
965 REM
970 DATA 40,28,214,19,63,16,47
980 DATA 40,28,214,21,154,18,42
990 DATA 20,38,126,28,214,22,227
1000 DATA 20,43,52,34,75,25,177
1010 DATA 20,45,198,38,126,30,141
1020 DATA 10,43,52,28,214,22,227
1030 DATA 10,38,126,0,0,0,0
1040 DATA 30,43,52,30,141,25,177
1050 DATA 10,38,126,0,0,0,0
1060 DATA 20,34,75,30,141,21,151
1070 DATA 20,38,126,0,0,0,0
1080 DATA 80,28,214,22,227,17,37
1085 REM
1090 DATA 40,28,214,19,63,16,47
1100 DATA 40,28,214,21,154,18,42
1110 DATA 20,38,126,28,214,22,227
1120 DATA 20,43,52,34,75,25,177
1130 DATA 20,45,198,38,126,30,141
1140 DATA 10,43,52,28,214,22,227
1150 DATA 10,38,126,0,0,0,0
1160 DATA 30,43,52,30,141,25,177
1170 DATA 10,38,126,0,0,0,0
1180 DATA 20,34,75,30,141,21,151
1190 DATA 20,43,52,0,0,0,0
1200 DATA 20,45,198,22,227,11,114
1210 DATA 20,34,75,0,0,0,0
1220 DATA 20,30,141,0,0,0,0
1230 DATA 20,28,214,0,0,0,0
1235 REM
1240 DATA 10,25,177,17,37,14,107
1250 DATA 10,22,227,0,0,0,0
1260 DATA 40,22,227,0,0,0,0
1270 DATA 20,11,114,0,0,0,0
1280 DATA 20,19,63,16,47,10,205
1290 DATA 10,28,214,0,0,0,0
1300 DATA 10,32,94,0,0,0,0
1310 DATA 10,36,85,21,154,25,177
1320 DATA 10,38,126,0,0,0,0
1330 DATA 10,43,52,0,0,0,0
1340 DATA 10,45,198,0,0,0,0
1350 DATA 15,43,52,28,214,22,227
1360 DATA 5,38,126,0,0,0,0
1370 DATA 40,38,52,0,0,0,0
1380 DATA 20,8,147,0,0,0,0
1390 DATA 20,22,227,19,63,7,163
1400 DATA 10,38,126,0,0,0,0
1410 DATA 10,38,126,0,0,0,0
1420 DATA 10,34,75,21,154,17,37
1430 DATA 10,30,141,0,0,0,0
1440 DATA 10,28,214,0,0,0,0
1450 DATA 10,25,97,0,0,0,0
1460 DATA 20,30,141,22,227,17,37
1470 DATA 10,28,214,0,0,0,0
1480 DATA 30,28,214,0,0,0,0
1490 DATA 20,25,97,17,37,10,205
1500 DATA 20,22,227,19,63,9,159
1510 DATA 10,28,214,19,63,17,37
1520 DATA 40,25,177,19,63,16,47
1530 DATA 10,19,63,0,0,0,0
1540 DATA 20,22,227,19,63,15,70
1550 DATA 10,28,214,22,227,17,37
1560 DATA 50,28,214,22,227,17,37
1565 REM
1570 DATA 40,28,214,19,63,16,47
1580 DATA 40,28,214,21,154,18,42
1590 DATA 20,38,126,28,214,22,227
1600 DATA 20,43,52,34,75,25,177
1610 DATA 20,45,198,38,126,30,141
1620 DATA 10,43,52,28,214,22,227
1630 DATA 10,38,126,0,0,0,0
1640 DATA 30,43,52,30,141,25,177
1650 DATA 10,38,126,0,0,0,0
1660 DATA 20,34,75,30,141,21,151
1670 DATA 20,38,126,0,0,0,0
1680 DATA 80,28,214,22,227,17,37
1685 REM
1690 DATA 40,28,214,19,63,16,47
1700 DATA 40,28,214,21,154,18,42
1710 DATA 20,38,126,28,214,22,227
1720 DATA 20,43,52,34,75,25,177
1730 DATA 20,45,198,38,126,30,141
1740 DATA 10,43,52,28,214,22,227
1750 DATA 10,38,126,0,0,0,0
1760 DATA 30,43,52,30,141,25,177
1770 DATA 10,38,126,0,0,0,0
1780 DATA 20,34,75,30,141,21,151
1785 REM
1790 DATA 20,43,52,0,0,0,0
1800 DATA 20,45,198,22,227,11,114
1810 DATA 20,34,75,0,0,0,0
1820 DATA 20,30,141,0,0,0,0
1830 DATA 20,28,214,0,0,0,0
1835 REM
1840 DATA 10,25,177,17,37,14,107
1850 DATA 10,22,227,0,0,0,0
1860 DATA 40,22,227,0,0,0,0
1870 DATA 20,11,114,0,0,0,0
1880 DATA 20,19,63,16,47,10,205
1890 DATA 10,28,214,0,0,0,0
1900 DATA 10,32,94,0,0,0,0
1910 DATA 10,36,85,21,154,25,177
1920 DATA 10,38,126,0,0,0,0
1930 DATA 10,43,52,0,0,0,0
1935 REM
1940 DATA 10,45,198,0,0,0,0
1950 DATA 15,43,52,28,214,22,227
1960 DATA 5,38,126,0,0,0,0
1970 DATA 40,38,52,0,0,0,0
1980 DATA 20,8,147,0,0,0,0
1990 DATA 20,22,227,19,63,7,163
2000 DATA 10,38,126,0,0,0,0
2010 DATA 10,38,126,0,0,0,0
2020 DATA 10,34,75,21,154,17,37
2030 DATA 10,30,141,0,0,0,0
2040 DATA 10,28,214,0,0,0,0
2050 DATA 10,25,97,0,0,0,0
2060 DATA 20,30,141,22,227,17,37
2070 DATA 10,28,214,0,0,0,0
2080 DATA 30,28,214,0,0,0,0
2090 DATA 20,25,97,17,37,10,205
2100 DATA 20,22,227,19,63,9,159
2110 DATA 10,28,214,19,63,17,37
2120 DATA 40,25,177,19,63,16,47
2130 DATA 10,19,63,0,0,0,0
2140 DATA 20,22,227,19,63,15,70
2150 DATA 10,28,214,22,227,17,37
2160 DATA 50,28,214,22,227,17,37
2165 REM
2170 DATA 20,22,227,17,37,14,107
2180 DATA 20,28,214,0,0,0,0
2190 DATA 20,25,177,19,63,12,216
2200 DATA 20,19,63,0,0,0,0
2210 DATA 20,22,227,19,63,15,70
2220 DATA 10,28,214,22,227,17,37
2230 DATA 60,28,214,22,227,17,37
10000 DATA 0