start tok64 d64-kbvE25 1 REM *** moving bar *** 2 REM *** en rutin f{pound}r *** 3 REM *** svenska- *** 4 REM *** hemdator *** 5 REM *** nytt *** 6 REM *** av *** 7 REM *** mikael pawlo *** 8 REM *** startas med; *** 9 REM *** sys 51968! *** 10 FORt=51928TO52480:READbymp:POKEt,bymp:NEXTt 11 INPUT"vill du ha en demonstraton av rutinen";a$ 12 IFa$="ja"ORa$="j"ORa$="y"ORa$="yes"THEN GOTO14 13 END 14 PRINT"{clear}{black}";:SYS 51968 15 PRINT"detta [r en liten rutin som du f]r nytta"; 16 PRINT"{right}av i dina egna demos,intros och {pound}vriga" 17 PRINT"{right*2}program. rutinen ligger mellan{space*2}$cb00" 18 PRINT"{right*3}och $cd00 dvs. 51968 och 52480(dec)" 19 PRINT"{right*4}lycka till! av: mikael pawlo 1990" 20 END 300 DATA 0 , 0 , 0 , 0 , 0 310 DATA 0 , 0 , 0 , 0 , 0 320 DATA 0 , 0 , 0 , 0 , 0 330 DATA 0 , 0 , 0 , 0 , 0 340 DATA 0 , 0 , 0 , 0 , 0 350 DATA 0 , 0 , 0 , 120 , 169 360 DATA 27 , 141 , 17 , 208 , 169 370 DATA 1 , 141 , 26 , 208 , 169 380 DATA 120 , 169 , 27 , 141 , 17 390 DATA 208 , 169 , 1 , 141 , 26 400 DATA 208 , 169 , 127 , 141 , 13 410 DATA 220 , 169 , 45 , 141 , 20 420 DATA 3 , 169 , 203 , 141 , 21 430 DATA 3 , 169 , 0 , 133 , 2 440 DATA 133 , 3 , 133 , 255 , 169 450 DATA 22 , 160 , 204 , 32 , 30 460 DATA 171 , 88 , 76 , 236 , 204 470 DATA 173 , 25 , 208 , 141 , 25 480 DATA 208 , 230 , 2 , 165 , 2 490 DATA 201 , 1 , 240 , 11 , 201 500 DATA 2 , 240 , 10 , 169 , 0 510 DATA 133 , 2 , 76 , 51 , 203 520 DATA 76 , 76 , 203 , 76 , 167 530 DATA 203 , 230 , 255 , 165 , 255 540 DATA 201 , 63 , 208 , 4 , 169 550 DATA 0 , 133 , 255 , 166 , 255 560 DATA 24 , 169 , 20 , 125 , 104 570 DATA 203 , 141 , 18 , 208 , 133 580 DATA 254 , 76 , 49 , 234 , 0 590 DATA 0 , 0 , 2 , 4 , 6 600 DATA 10 , 12 , 16 , 22 , 26 610 DATA 32 , 36 , 42 , 48 , 54 620 DATA 60 , 64 , 70 , 76 , 82 630 DATA 88 , 92 , 98 , 102 , 106 640 DATA 110 , 112 , 114 , 116 , 118 650 DATA 118 , 118 , 118 , 118 , 116 660 DATA 114 , 110 , 108 , 104 , 100 670 DATA 94 , 90 , 84 , 80 , 74 680 DATA 68 , 62 , 56 , 50 , 44 690 DATA 38 , 32 , 28 , 22 , 18 700 DATA 14 , 10 , 6 , 4 , 2 710 DATA 0 , 0 , 164 , 254 , 200 720 DATA 200 , 162 , 0 , 189 , 201 730 DATA 203 , 204 , 18 , 208 , 208 740 DATA 251 , 141 , 32 , 208 , 141 750 DATA 33 , 208 , 200 , 200 , 232 760 DATA 224 , 77 , 208 , 235 , 136 770 DATA 140 , 18 , 208 , 76 , 126 780 DATA 234 , 0 , 0 , 0 , 6 790 DATA 4 , 6 , 4 , 6 , 0 800 DATA 6 , 4 , 14 , 4 , 6 810 DATA 0 , 6 , 4 , 14 , 3 820 DATA 14 , 4 , 6 , 0 , 6 830 DATA 4 , 14 , 3 , 7 , 3 840 DATA 14 , 4 , 6 , 0 , 6 850 DATA 4 , 14 , 3 , 7 , 1 860 DATA 7 , 3 , 14 , 4 , 6 870 DATA 0 , 6 , 4 , 14 , 3 880 DATA 7 , 3 , 14 , 4 , 6 890 DATA 0 , 6 , 4 , 14 , 3 900 DATA 14 , 4 , 6 , 0 , 6 910 DATA 4 , 14 , 4 , 6 , 0 920 DATA 6 , 4 , 6 , 4 , 6 930 DATA 64 , 64 , 64 , 19 , 19 940 DATA 19 , 19 , 19 , 19 , 19 950 DATA 19 , 19 , 19 , 19 , 19 960 DATA 19 , 19 , 19 , 19 , 19 970 DATA 19 , 19 , 19 , 19 , 19 980 DATA 19 , 19 , 19 , 19 , 19 990 DATA 19 , 19 , 19 , 19 , 19 1000 DATA 19 , 19 , 19 , 19 , 19 1010 DATA 19 , 19 , 19 , 19 , 19 1020 DATA 19 , 19 , 19 , 19 , 19 1030 DATA 19 , 19 , 19 , 19 , 19 1040 DATA 19 , 19 , 19 , 19 , 19 1050 DATA 19 , 19 , 19 , 19 , 19 1060 DATA 19 , 19 , 19 , 19 , 19 1070 DATA 19 , 19 , 19 , 19 , 19 1080 DATA 19 , 19 , 19 , 19 , 19 1090 DATA 19 , 19 , 19 , 19 , 19 1100 DATA 19 , 19 , 19 , 19 , 19 1110 DATA 19 , 19 , 19 , 19 , 19 1120 DATA 19 , 19 , 19 , 19 , 19 1130 DATA 19 , 19 , 19 , 19 , 19 1140 DATA 19 , 19 , 19 , 19 , 19 1150 DATA 19 , 19 , 19 , 19 , 19 1160 DATA 19 , 19 , 19 , 19 , 19 1170 DATA 19 , 19 , 19 , 19 , 19 1180 DATA 19 , 19 , 19 , 19 , 19 1190 DATA 19 , 19 , 19 , 19 , 19 1200 DATA 19 , 19 , 19 , 19 , 19 1210 DATA 19 , 19 , 19 , 19 , 19 1220 DATA 19 , 19 , 19 , 19 , 19 1230 DATA 19 , 19 , 19 , 19 , 19 1240 DATA 19 , 19 , 19 , 19 , 19 1250 DATA 19 , 19 , 19 , 19 , 19 1260 DATA 19 , 19 , 19 , 19 , 19 1270 DATA 19 , 19 , 19 , 19 , 19 1280 DATA 19 , 19 , 19 , 19 , 19 1290 DATA 19 , 19 , 19 , 19 , 19 1300 DATA 19 , 19 , 19 , 19 , 19 1310 DATA 19 , 19 , 19 , 19 , 19 1320 DATA 19 , 19 , 19 , 19 , 19 1330 DATA 19 , 19 , 19 , 19 , 19 1340 DATA 19 , 19 , 0 , 70 , 70 1350 DATA 0 , 78 , 32 , 0 , 1 1360 DATA 0 , 11 , 96 , 0 , 0 1370 DATA 0 , 0 , 0 , 0 , 0 1380 DATA 0 , 0 , 0 , 0 , 0 1390 DATA 0 , 0 , 0 , 0 , 0 1400 DATA 0 , 0 , 0 , 234 , 36 stop tok64 (bastext 1.0)