home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dimension 64 15
/
Dimension_64_Nr.15_19xx_-_de_Side_B.d64
/
afternoon
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
15KB
|
452 lines
0 gosub25000:poke53280,1:poke53281,1:print"[151]": rem millage/fossen/lord elgin
1 clr:c$="[164][175][162] [157][145]":d$="[157] [173][192][209][145][157][157][157] [192][178][192]":e$="[164][213][201][164][157][157][157][157][163][184][184][163]"
2 e$="[164][213][201][164][157][157][157][157][163][184][184][163]"
3 f$=" [157][157][157][157] ":g$=f$
5 dimh(20),f(15),lt(28),bz(87)
6 ford=1to20:readh(d):next
7 data0,-41,-39,2,42,82,-37,-43,-80,-78,-76,-82,-85,-120,-119,-118
8 data-121,-123,-124,-116,-161,-163,-157,
9 t$=" [157][145]"
10 a$="[164][175][185][175][185][162][184][183][184][183][184][146][162][185][185][175][164][164][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][163][183][184][183][184][162][185][162][185][175][185][162][146][184][183][163]"
11 h$="[164][213][201][164][157][157][157][157] [184][184][163]"
12 forl=1to15:readf(l):next
13 data0,-1,-41,-39,41,39,2,43,-37,-80,-79,-78,-82,-121,-118,-117,-159
15 fordc=1to28:readlt(dc):next
16 data0,41,81,40,-40,-39,-38,-37,42,1,3,4,-1,39,38,-2,-42,78,119
17 data82,-81,-79,-77,-75,-35,-120,-122,-123,-116,-114
19 gosub8000
20 b$="[164][175][185][162][185][175][164][164][164][157][157][157][157][157][157][157][163][183][184][183][163][163]"
21 poke 53272,23
22 print"[147] [193] [209][213][201][197][212] [211][213][206][196][193][217] [193][198][212][197][210][206][207][207][206]":sys704
23 print"by [199]lenn [205]illage and [197]ric [198]ossen"
24 fordl=1to3000:nextdl
25 print"[147]":poke53272,21:sys704
30 print"[147][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][157][157][157]":sys704
40 print " [172][172][146][161][145][157][157][157][172][172][146][161][145][157][157][157][172][172][146][161][145][157][157][157] [178]"
50 print "[188][188][188][188][188][188][188][146][161][145][157][157][157][157][157][157][157][157].......[146][161][145][157][157][157][157][157][157][157]";
60 print " [161][145][157][161][145][157][161][145][161][157][161][157][161][157][161]"
70 print ": :[157][157][157][157]:.:::[157][157][157][157][157][157].:..:[157][157][157][157][157][157]. .[157][157][157]."
80 print "[157][157][157][157][164][157][157][167][183][165][157][157][157][167][184][165][157][157][157][170][162][146][181][157][157][157][182][184][181][157][157][157][161][146][183][161]";
90 print "[157][157][157][157][157][157][157]....[206][163][205]."
100 print "[178] .[178][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172]";
110 print "[172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172]";
120 print "[172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161][157][157][157][157][157][172][172][172][172][146][161]"
130 print "[190][146][187][157][157][188][146][161]"
140 print "[172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146]";
150 print "[161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161]";
160 print "[157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161][157][157][157][157][157][157][157][157][172][172][172][172][172][172][172][146][161]";
170 fordl=1to500:nextdl
190 forx=1to8:print""
210 printtab(x)"[157] [157] [145]";a$
220 fory=1to50:nexty,x
235 forx=1to250:next
270 forx=1to22
280 print""
290 printtab(x)"[157] [157] [145]";a$
300 fory=1to50:nexty,x
320 forx=1to250:next
330 forx=1to2:print""
350 printtab(x)"[157] [157] [145]";b$
360 fory=1to50:next y,x
380 forx=1to1500:nextx
390 print "[145]"
450 forx=35to17step -1
451 printtab(x)c$
452 fory=1to10:nexty,x
454 printtab(17);" "
455 forx=17to10step-1
456 printtab(x)c$
457 fory=1to10:next y,x
459 printtab(10)" "
460 forx=10to0step-1
461 printtab(x)c$
462 fory=1to10:nexty,x
464 print" "
490 print" "
495 forx=1to1500:nextx
500 forx=1to20:printtab(x)d$
520 fory=1tox*10:nexty,x
540 print "[205][157][206][157][205][205][207][205][205][157][157][157][157][206][157][205][157].[146][157]";
550 forx=1to10
560 ifx/2<>int(x/2)then print"";
570 print".[146][157]";
580 fory=1to10:next y,x
600 print " [157] [157] [157][157][157][157] [157] ";
605 forx=1to10:next
610 print "[206][179][197][157][157][157][157][157][157][157][157]. "
615 forx=1to10:next
620 print "[205][157][157][157][221][206] [157][157][157][157] [157][157][157][173][192][209]";
625 forx=1to10:next
630 print"[145][157][157][157][157][157][157][157] [145][157][157]."
635 forx=1to10:next
645 forx=1to10:next
650 print ". [145][221][157][157][157] [198][157][157][206][157][157] [157][157][157][173][192][209]"
655 forx=1to10:next
660 print ". [198][157][157] [157][206][157][157][198][157][157] [157][157][157][173][192][209]"
665 for x=1 to 10:next
670 print ". [157][157][157] [198][206][157][157][157][157][206][157][157] [157][157][157][173][192][209]"
675 for x=1 to 10:next
680 print " [157][157][157]. [157][157][157][157][164][206][195][157][157][157][157] [157][157][157][173][192][209]"
685 for x=1 to 10:next
690 print ". [198][205][157][157][157][206][157][157] [157][157][157][173][192][209]"
695 for x=1 to 10:next
700 print ".[145] [164][198][157][157][157][198][157][157] [157][157][157][173][192][209]"
705 forx=1to10:next
710 print ".[145] [145] [157][157][157][206][163][196][157][157][157][157] [157][157][157][173][192][209]"
715 forx=1to10:next
720 print ".[145][157] [210][205]/[157][157][157][157][176][198][209]"
725 forx=1to10:next
730 print ".[145] [210][164][157][157][157][206][184][146][157][157][210][157][157] [157][173]"
735 forx=1to10:next
740 print ".[145][157] [157][157][157][164][205]/[157][157][157][164][168][157][157][157] [157][176]"
745 forx=1to10:next
750 print ".[145][157] [157][157][157][206][163][196][157][157][157][157][174]"
755 forx=1to10:next
760 print ".[145] [164][205]/[157][157][157][157][176]"
765 forx=1to10:next
770 print ".[145][157] [145] [164] [157][157][157][206] \[157][157][157][157][174][157][145] "
775 forx=1to10:next
780 print ".[145][157] [145][164][205][145][157] [210][157][157][157][157] [157][189]"
785 forx=1to10:next
790 print ".[145][157] [145][145] [164] [157][157][157][206]\[157][157][157][157] [157][173]
795 [129]x[178]1[164]10:[130]
800 [153] ".on ononandon tocmdcmdcmdcmd cmdor"
805 [129]x[178]1[164]10:[130]
810 [153] "andoncmd cmd^"
815 [129]x[178]1[164]10:[130]
820 [153]"and"
830 [129]x[178]1[164]1500:[130]x
850 [153] "cmdcmdcmdcmd.cmd";
860 [129]x[178]1[164]500:[130]x
880 [153] "tocmdcmdon.cmd";
890 [129]x[178]1[164]40:[130]x
900 [153] " cmdcmd.cmd";
910 [129]x[178]1[164]35:[130]x
920 [153] " cmd.cmd";
930 [129]x[178]1[164]30:[130]x
940 [153] " cmd.cmd";
950 [129]x[178]1[164]25:[130]x
960 [153] " cmd.cmd";
970 [129]x[178]1[164]20:[130]x
980 [153] " cmdcmd.cmd";
990 [129]x[178]1[164]15:[130]x
1000 [153]" cmd.cmd";
1010 [129]x[178]1[164]10:[130]x
1020 [153]" cmdandcmd";
1030 [129]x[178]1[164]2000:[130]
1040 [153]"";[163]35)e$
1050 [129]x[178]1[164]100:[130]
1060 [153]"";[163]35)f$
1070 [153]"";[163]35)e$
1080 [129]x[178]1[164]100:[130]
1090 [153]"";[163]35)f$
1100 [153]"";[163]35)e$
1110 [129]x[178]1[164]100:[130]
1120 [153]"";[163]35)f$
1130 [153]"";[163]35)e$
1140 [129]x[178]1[164]200:[130]
1150 [129]x[178]35[164]17[169][171]1
1160 [153]"";[163]x)e$
1170 [129]y[178]1[164]100:[130]
1180 [153]"";[163]x)f$:[130]
1260 [153]"on"[163]17)e$
1270 [129]x[178]1[164]1500:[130]
1280 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
1290 [153]" (NULL)"
1295 [129]dl[178]1[164]75:[130]
1300 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
1305 [129]dl[178]1[164]75:[130]
1310 [153]" (NULL)"
1315 [129]dl[178]1[164]75:[130]
1320 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
1325 [129]dl[178]1[164]75:[130]
1330 [153]" (NULL)"
1335 [129]dl[178]1[164]75:[130]
1340 [153]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)"
1345 [129]dl[178]1[164]75:[130]
1350 [153]" (NULL)"
1360 [153]"and"
1370 [129]dl[178]1[164]75:[130]
1500 [153]"absposintoncmdcmdcmdabsposint"
1510 [153]"absposintoncmdcmdcmdandoncmdcmd
1520 print"[167] [165][145][157][185]"
1533 print"";tab(34);" "
1534 print"";tab(34);"[192]"
1540 print"";tab(33)"[206]"
1541 print"";tab(37);" "
1543 fordl=1to22:next
1544 print"";tab(34);" "
1545 fordl=1to20:next
1546 print"";tab(33)" "
1550 print"";tab(32)"[192]"
1551 print"";tab(38);"[205]"
1552 print"";tab(38);" "
1553 print"";tab(34);"[185]"
1555 fordl=1to18:next
1556 print"";tab(32)" "
1560 print"";tab(31)"[205]"
1561 print"";tab(38);"[205]"
1562 print"";tab(38);" "
1565 fordl=1to16:next
1566 print"";tab(31)" "
1570 print"";tab(30)"[164]"
1571 print"";tab(38);"[164]"
1575 fordl=1to14:next
1576 print"";tab(30)" "
1580 print"";tab(29)"[206]"
1581 print"";tab(38);"[164]"
1582 print"";tab(38);" "
1585 fordl=1to12:next
1586 print"";tab(29)" "
1590 print"";tab(29)"[164]"
1591 print"";tab(38);"[164]"
1592 print"";tab(38);" "
1600 print"";tab(35);" "
1601 print"";tab(38);"[185]"
1610 print"";tab(34);"[206]"
1615 fordl=1to20:next
1616 print"";tab(34);" "
1620 print"";tab(34);"[192]"
1625 fordl=1to18:next
1626 print"";tab(34);" "
1630 print"";tab(34);"[185]"
1650 fordl=1to150:next
1695 print"";tab(36);" [157][157] [157][157][157] "
1700 print"";tab(32);"[206][205][157][157][205] [205][157][157][205][160][205][157][157][205][145][145][145][157][164][205][163]"
1705 fordl=1to50:next
1710 print"";tab(30);"[167][145][164][164][164][157][157][157][163][163][163]"
1715 print"";tab(32);" [157][157][206] [164][157][157][164] [157][157] [145][145][145][157][164][205][163]"
1719 fordl=1to40:next
1720 print"";tab(32);" [157][157][205] [164][157][157][164] [157][157] [145][145][145][157][157][164][206][163]"
1725 print"";tab(30);" [145] [157][157][157] "
1730 fordl=1to25:next
1735 print"";tab(31);"[185][175][162][175] [146][185][185][175]"
1745 print"";tab(32);" [157][157][157][157][157] [157] [157][157][157][157][157] "
1760 print"";tab(34);" [157][157][157][157][157] [157][157] [157][157][157][157][157][157][157][157] "
1775 print"";tab(34);" [157][157][205]"
1780 print"";tab(35);" "
1785 print"";tab(32);"[162]"
1790 print"";tab(34);" "
1795 print"";tab(34);"[164]"
1800 print"";tab(36);"[164][206]"
1802 print"";tab(38);" "
1803 fordl=1to20:next
1805 print"";tab(76);"[168][175]"
1810 print"";tab(36);" "
1820 print" "
1825 fordl=1to20:next
1830 print"[164][205]"
1835 fordl=1to22:next
1840 print" "
1845 fordl=1to20:next
1850 print"[168][185]"
1880 d=23
1885 fordl=1to25:next
1890 forlk=1to5
1900 print"";tab(d);"."
1905 fordl=1to150:next
1906 iflk<5 then print"";tab(d);" "
1910 d=d+1:nextlk
1940 fordl=1to150:next
1950 print"";tab(26);"[205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205][145][157][157][205]"
1960 print"";tab(16);"[206][157][163]"
1970 print"";tab(26);" [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] [145][157][157] "
1980 fordl=1to50:next
1990 print"";tab(16);" [157] "
2000 print"";tab(14);"[205][206]"
2010 fordl=1to45:next
2020 print"";tab(14);" "
2030 print"[163][163]"
2040 fordl=1to45:next
2050 print" "
2060 print"[206][205]"
2070 fordl=1to45:next
2080 print" "
2090 print"";tab(11);"[221][168]"
2100 fordl=1to45:next
2110 print"";tab(11);" [168]"
2120 print"";tab(9);"[205]"
2130 fordl=1to45:next
2140 print"";tab(9);" "
2160 print"";tab(7);"[164]"
2170 fordl=1to45:next
2180 print"";tab(7);" "
2190 print"[206]"
2200 fordl=1to45:next
2210 print" "
2220 print"";tab(5);"[221]"
2230 fordl=1to45:next
2240 print"";tab(5);" "
2250 print"[206][213]"
2260 fordl=1to45:next
2270 print" [213]"
2280 print"[166][169][146]"
2290 fordl=1to45:next
2295 print"";g$
2300 print"";h$
2310 fordl=1to450:next
2315 print"";g$ "
2320 [153]"";h$
2321 [129]dl[178]1[164]750:[130]
2325 [153]"";g$
2400 [153]"";h$
2410 [129]dl[178]1[164]90:[130]
2420 [153]"";g$
2430 [153]"";[163]20);h$
2440 [129]dl[178]1[164]80:[130]
2450 [153]"";[163]20);g$
2460 [153]"";[163]22);h$
2470 [129]dl[178]1[164]70:[130]
2480 [153]"";[163]22);g$
2490 [153]"";[163]24);h$
2500 [129]dl[178]1[164]60:[130]
2510 [153]"";[163]24);g$
2520 [153]"";[163]25);h$
2560 j[178]123
2570 [129]d[178]1[164]20
2580 [151]1690[170]h(d),j:[130]d
2610 [139]j[178]123[167]j[178]46:[137]2570
2620 [139]j[178]46[167]j[178]32:[137]2570
2630 [153]"";[163]25);g$
2640 [153]"";[163]25);"spc(andnot"
2700 [153]"";[163]29);"(NULL)"
2710 [129]dl[178]1[164]38:[130]
2720 [153]"";[163]30);"to"
2730 [153]"";[163]29);" "
2740 [129]dl[178]1[164]36:[130]
2750 [153]"";[163]31)"(NULL)"
2760 [153]"";[163]30);" "
2770 [129]dl[178]1[164]34:[130]
2780 [153]"andnew"
2790 [153]"";[163]31)" "
2794 [129]dl[178]1[164]350:[130]:jk[178]36
2795 [129]dj[178]1[164]4
2800 [153]" "
2801 [129]dl[178]1[164]50:[130]
2802 [153]"";[163]jk);c$
2803 [129]dl[178]1[164]60:[130]
2804 [153]"";[163]jk);t$
2805 jk[178]jk[171]3:[130]dj
2815 [129]dl[178]1[164]50:[130]
2820 [153]"";c$
2821 [129]dl[178]1[164]50:[130]dl
2825 [153]"";t$
2830 [153]"";c$
2831 [129]dl[178]1[164]50:[130]dl
2835 [153]"";t$
2840 [153]"";c$
2849 bn[178]123
2850 [129]g[178]1[164]15
2855 [151]1523[170]f(g),bn
2860 [130]g
2870 [139]bn[178]123[167]bn[178]160:[137]2850
2880 [139]bn[178]160[167]bn[178]108:[137]2850
2890 [139] bn[178]108[167]bn[178]32:[137]2850
2895 [153]" "
2900 [153]" "
2905 [153]"";[163]18);" "
2910 [153]" (NULL)"
2920 [153]"(NULL)"
2922 [153]" "
2930 bd[178]123
2940 [129]d[178]1[164]28
2950 [151]1645[170]lt(d),bd:[130]d
2970 [139]bd[178]123[167]bd[178]160:[137]2940
2980 [139]bd[178]160[167]bd[178]108:[137]2940
2990 [139]bd[178]108[167]bd[178]32:[137]2940
3050 [153]"spc(rndcmdcmdcmdcmdrnd"
3055 [129]dl[178]1[164]500:[130]
3060 [153]" ";
3070 [153]" ";
3080 [153]" ";
3090 [153]" ";
3100 [153]" ";
3110 [153]" ";
3120 [153]"";e$
3130 [129]dl[178]1[164]80:[130]
3140 [153]"";f$
3145 [153]""e$
3150 [129]dl[178]1[164]80:[130]
3155 [153]"";e$
3157 [153]""f$
3160 [129]dl[178]1[164]80:[130]
3175 [151]1284,123
3176 [129]dl[178]1[164]75:[130]
3177 [151]1284,32:[129]df[178]1[164]8
3190 [151]1284[170]80[172]df,123
3192 [129]dl[178]1[164]50[171]df[172]3:[130]
3195 [151]1284[170]80[172]df,32:[130]df
3299 hm[178]160
3300 [129]vb[178]1[164]87
3310 [151]1924[170]bz(vb),hm
3320 [130]vb
3400 [139]hm[178]160[167]hm[178]108:[137]3300
3410 [139]hm[178]108[167]hm[178]32:[137]3300
3500 [153]" "
3510 [153]" "
3520 [153]" "
3530 [153]" "
3540 [153]" "
3550 [153]" "
3560 [153]" "
3570 [153]" "
3580 [153]" "
3590 [153]" "
3600 [153]" "
3610 [153]" "
3620 [153]" "
3630 [153]" "
3635 [129]dl[178]1[164]250:[130]
3640 [153]" "
3650 [153]" "
3659 dg[178]5
3670 [153]"."
3671 [129]dl[178]1[164]150:[130]dl
3672 [153]" "
3680 [153]"."
3681 [129]dl[178]1[164]150:[130]
3685 [153]" "
3690 [153]"."
3691 [129]dl[178]1[164]150:[130]
3695 [153]" "
3700 [153]"."
3701 [129]dl[178]1[164]850:[130]
3710 [153]" "
3715 [129]dl[178]1[164]200:[130]
3720 [153]"."
3725 [129]dl[178]1[164]200:[130]
3730 [153]" "
3740 [153]"."
3745 [129]dl[178]1[164]200:[130]
3750 [153]" "
3760 [153]"."
3765 [129]dl[178]1[164]200:[130]
3770 [153]" "
4000 [129]dl[178]1[164]500:[130]
4010 [153]"loadthe end"
5000 [128]
8000 [129]fk[178]1[164]87:[135]bz(fk):[130]fk
8010 [131]0,-1,-2,-3,1,2,4,-40,-39,-37,-41,-42,-43,-44
8020 [131]-80,-81,-83,-85,-78,-76,-120,-119,-118,-117,-116
8030 [131]-115,-122,-123,-124,-125,-126,-160,-158,-156,-155,-154
8040 [131]-162,-163,-164,-166,-167,-201,-199,-197,-195,-194,-193
8050 [131]-204,-205,-207,-240,-239,-238,-236,-234,-233,-232
8060 [131]-242,-246,-247,-248,-279,-278,-277,-275,-273,-271,-281
8065 [131]-282,-283,-285,-287,-289,-291,-324,-328,-332,-310
8070 [131]-360,-358,-356,-354,-352,-349,-362,-365,-367,-370,-401
8090 [142]
9000 [143]
9010 [143] millage / fossen
9020 [143] lord elgin high school
9030 [143] 5151 new street
9040 [143] burlington ontario l7l 1v3
9050 [143]
9060 [143] fat forty / fall 1981
9070 [143]
9080 [143] contact : e.r. bailey
9090 [143]
25000 [129]i[178]0[164]300:[135]a$:[139]a$[179][177]"-8"[167] [130]
25050 [129]a[178]704[164]732:[135]tt:[151]a,tt:[130]a:[140]:[142]:[143] poke fixer
25100 [131]-8,169,0,133,140,169,219,133,141,169,11,160,255,145,140,136,192,255,208
25200 [131] 249,198,141,164,141,192,215,208,239,96,0