110 poke 59468,12
  120 s9$="AZSX"
  130 c8$="23456789tbdka"
  140 c9$=" 2 3 4 5 6 7 8 91010101011"
  150 gosub3020
  160 gosub3100
  170 poke59468,12
  180 print"{clr}
  190 dimc(52),p(10),d(10)
  200 dims$(52),c$(52)
  210 gosub1450
  220 t=0
  230 j8=j
  240 ifa9<4then260
  250 gosub1450
  260 ifj<42then280
  270 gosub1450
  280 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}wieviel dm setzen sie";
  290 inputb1
  300 k$=b$
  310 ifb1=0then1340
  320 ifb1>0then350
  330 gosub1450
  340 b1=-b1
  350 ifb1>=1then380
  360 print"mindestens 1 dm setzen!
  370 goto230
  380 ifb1<=25000then430
  390 ifm1=1then2180
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}das limit betraegt 25000 dm{rvof}           "
  410 print"                                        {down}"
  420 goto280
  430 p=0:d=0:p9=0:d9=0
  440 v=0
  450 h=0
  460 print"{clr}
  470 m1=1
  480 gosub1720
  490 gosub1840
  500 gosub2930:remfre=1209#7-78-01#
  510 j1=j
  520 m1=2
  530 gosub1720
  540 gosub1840
  550    
  560 gosub2090
  570 ifp=21then640
  580 ifd<21then740
  590 m1=1
  600 gosub2090
  610 k$="{up}{up}{rvon}cbm{rvof} hat 17 und 4"
  620 gosub2050
  630 goto1220
  640 m1=1
  650 gosub2090
  660 ifd<21then700
  670 k$="{up}{up}wir beide haben 17 und 4"
  680 gosub2050
  690 goto1140
  700 k$="{up}{up}sie haben 17 und 4"
  710 gosub2050
  720 b1=1.5*b1
  730 goto1170
  740 ifp<22then810
  750 k$="{up}{up}sie haben sich totgekauft"
  760 gosub2050
  770 m1=1
  780 gosub2090
  790 m1=2
  800 goto1220
  810 ifv=0then830
  820 goto990
  830 k$="{up}wollen sie noch eine karte"
  840 gosub2050
  850 print"{rvon}?{left}{rvof}";:fori=1to150:next
  860 print" {left}";:fori=1to150:next
  870 geta$:ifa$=""then850
  880 ifa$="j"then950
  890 ifa$="d"then930
  900 k$="{up}                     "
  910 gosub2050
  920 goto990
  930 b1=2*b1
  940 v=1
  950 k$=b$
  960 m1=m1+1
  970 gosub1720
  980 goto740
  990 m1=1
 1000 gosub2090
 1010 m1=2
 1020 ifd>16then1070
 1030 m1=m1+1
 1040 gosub1840
 1050 gosub2090
 1060 goto1020
 1070 ifd<=21then1120
 1080 k$="{up}{up}der cbm hat sich totgekauft ----------  sie haben daher {rvon}gewonnen{rvof}"
 1090 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";k$;"{down}"
 1100 rem**gosub34800
 1110 goto1190
 1120 ifd<pthen1170
 1130 ifd>pthen1220
 1140 k$="wir haben karten-gleichstand!"
 1150 gosub2050
 1160 goto1250
 1170 k$="sie haben soeben  {rvon}gewonnen{rvof}!"
 1180 gosub2050
 1190 t=t+b1
 1200 goto1250
 1210 gosub2050
 1220 k$="sie haben gerade {rvon}verloren{rvof}!"
 1230 gosub2050
 1240 t=t-b1
 1250 print
 1260 ift>0then1300
 1270 ift<0then1320
 1280 print"{up}{up}ihr kontostand ist ausgeglichen (null)"
 1290 goto 230
 1300 print"{up}{up}sie besitzen jetzt dm   ";t
 1310 goto230
 1320 print"{up}{up}ihre schulden betragen dm",-t
 1330 goto230
 1340 print"{clr}
 1350 ift=0then1400
 1360 ift<0then1430
 1370 print"herzlichen glueckwunsch! sie duerfen{down}"
 1380 printt" dm nach hause tragen!"
 1390 goto1440
 1400 print"sie haben mit ausgeglichenem kontostand":print
 1410 print"(null) das spiel beendet.
 1420 goto1440
 1430 print"wir bedauern sehr, aber sie verlieren   {down}dm";-t"{down}
 1440 print"{down}vielen dank fuers mitspielen!":end
 1450 rem*misch-routine
 1460 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}ich mische die karten!
 1470 fori=1to4
 1480 forj=1to13
 1490 w1=13*(i-1)+j
 1500 s$(w1)=mid$(s9$,i,1)
 1510 c$(w1)=mid$(c8$,j,1)
 1520 c(w1)=val(mid$(c9$,2*j-1,2))
 1530 nextj
 1540 nexti
 1550 fori=1to52
 1560 j=52*rnd(1)+1
 1570 tt$=s$(i)
 1580 s$(i)=s$(j)
 1590 s$(j)=tt$
 1600 tt$=c$(i)
 1610 c$(i)=c$(j)
 1620 c$(j)=tt$
 1630 tt=c(i)
 1640 c(i)=c(j)
 1650 c(j)=tt
 1660 nexti
 1670 a9=0
 1680 j=0
 1690 j1=2
 1700 j8=0
 1710 return
 1720 j=j+1
 1730 p(m1)=j
 1740 ifc(j)<11then1770
 1750 p9=p9+1
 1760 a9=a9+1
 1770 p=p+c(j)
 1780 ifp<22then1820
 1790 ifp9=0then1820
 1800 p=p-10
 1810 p9=p9-1
 1820 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1830 goto2120
 1840 j=j+1
 1850 d(m1)=j
 1860 ifc(j)<11then1890
 1870 d9=d9+1
 1880 a9=a9+1
 1890 d=d+c(j)
 1900 ifd<22then1940
 1910 ifd9=0then1940
 1920 d=d-10
 1930 d9=d9-1
 1940 return
 1950 fori=1to52
 1960 p(i)=0
 1970 d(i)=0
 1980 nexti
 1990 return
 2000 fori=1to52
 2010 printc$(i)+s$(i);
 2020 nexti
 2030 print
 2040 return
 2050 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2060 print"                                     "
 2070 printk$;
 2080 return
 2090 p5=0
 2100 print"{home}";
 2110 goto2130
 2120 p5=1
 2130 forl=1to8
 2140 ifm1=1then2180
 2150 fori5=1tom1-1
 2160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2170 nexti5
 2180 ifp5=1then2210
 2190 i=d(m1)
 2200 goto2220
 2210 i=p(m1)
 2220 print"{rvon}";
 2230 r=c(i)
 2240 ifl>1then2260
 2250 goto2820
 2260 ifl>2then2330
 2270 rem
 2280 ifc$(i)="t"then2310
 2290 printright$(c$(i),1);s$(i);"     ";
 2300 goto2890
 2310 print"10";s$(i);"    ";
 2320 goto2890
 2330 ifl>3then2400
 2340 ifc(i)<11then2360
 2350 goto2820
 2360 ifc(i)>2then2380
 2370 goto2820
 2380 ifc(i)>3then2860
 2390 goto2840
 2400 ifl>4then2550
 2410 ifc(i)<11then2430
 2420 goto2840
 2430 ifc(i)<9then2450
 2440 goto2880
 2450 ifc(i)>3then2470
 2460 goto2840
 2470 ifc(i)>4then2490
 2480 goto2820
 2490 ifc(i)>5then2510
 2500 goto2840
 2510 ifc(i)>6then2530
 2520 goto2860
 2530 ifc(i)>7then2860
 2540 goto2840
 2550 ifl>5then2650
 2560 ifc(i)<11then2580
 2570 goto2820
 2580 ifc(i)<10then2600
 2590 goto2880
 2600 ifc(i)<6then2620
 2610 goto2860
 2620 ifc(i)<4then2640
 2630 goto2820
 2640 goto2840
 2650 ifl>6then2740
 2660 ifc(i)<11then2680
 2670 goto2820
 2680 ifc(i)<7then2700
 2690 goto2860
 2700 ifc(i)=4then2730
 2710 ifc(i)=5then2730
 2720 goto2820
 2730 goto2860
 2740 ifl>7then2810
 2750 print"    ";
 2760 ifc$(i)="t"then2790
 2770 print" ";s$(i);right$(c$(i),1);
 2780 goto2890
 2790 prints$(i);"10";
 2800 goto2890
 2810 goto2820
 2820 print"       ";
 2830 goto2890
 2840 print"   ";s$(i);"   ";
 2850 goto2890
 2860 print"  ";s$(i);" ";s$(i);"  ";
 2870 goto2890
 2880 print"  ";s$(i);s$(i);s$(i);"  ";
 2890 print
 2900 nextl
 2910 print
 2920 return
 2930 print"{home}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 2940 print"{rvon}{CBM-+}l{CBM-+}{CBM-+}{CBM-+}k{CBM-+}"
 2950 print"{rvon}{CBM-+}e{CBM-+}{CBM-+}{CBM-+}l{CBM-+}"
 2960 print"{rvon}{CBM-+}t{CBM-+}{CBM-+}{CBM-+}a{CBM-+}"
 2970 print"{rvon}{CBM-+}t{CBM-+}{CBM-+}{CBM-+}u{CBM-+}"
 2980 print"{rvon}{CBM-+}e{CBM-+}{CBM-+}{CBM-+}s{CBM-+}"
 2990 print"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 3000 print"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 3010 return
 3020 print"{clr}"
 3030 fori=1to100
 3040 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15)
 3050 print"1{rvon}7{rvof} {rvon}u{rvof}n{rvon}d{rvof} {rvon}0{rvof}4":print:print:print"es geht gleich los!{down}{down}einen au";
 3051 print"genblick"
 3060 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15)
 3070 print"{rvon}1{rvof}7{rvon} {rvof}u{rvon}n{rvof}d{rvon} {rvof}0{rvon}4"
 3080 next
 3090 return
 3100 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}spielregel 17 und 4
 3110 poke59468,14
 3120 print:print
 3130 print"GESPIELT{$a0}WIRD{$a0}MIT{$a0}EINEM{$a0}KARTENSPIEL, DAS
 3140 print"FOLGENDE{$a0}KARTEN ENTHAELT:{down}
 3150 print"2 3 4 5 6 7 8 9 B D K A{down}
 3160 print"DABEI{$a0}ZAEHLEN{$a0}DIE{$a0}BILDER (B,D,K) JEWEILS
 3170 print"ZEHN PUNKTE, AS 11 PUNKTE, ABER WENN 21{down}
 3180 print"UEBERSCHRITTEN{$a0}WERDEN, NUR 1 PUNKT.{down}
 3190 print"DIE ZAHLEN{$a0}ZAEHLEN{$a0}IHREN{$a0}EIGENWERT. WER{down}
 3200 print"DIE{$a0}HOECHSTE PUNKTEZAHL (MAX.21!) ER-{down}
 3210 print"REICHT (CBM ODER SIE), GEWINNT.
 3220 print"{down}        VERSTANDEN (j/n)":print:print
 3230 geta$:ifa$=""then3230
 3240 ifa$="j"then3260
 3250 goto3100
 3260 print"{clr}SIE{$a0}ERHALTEN{$a0}ZWEI{$a0}KARTEN{$a0}UND{$a0}KOENNEN SO-
 3270 print"VIELE{$a0}NACHZIEHEN,{$a0}WIE{$a0}SIE{$a0}WOLLEN. ABER{down}
 3280 print"SIE{$a0}DUERFEN{rvon}{$a0}21 PUNKTE{$a0}NICHT{$a0}UEBERSCHREI-
 3290 print"{rvon}TEN,{rvof} SONST{$a0}VERLIEREN{$a0}SIE. GLEICHES{$a0}GILT{down}
 3300 print"FUER{$a0}DEN{$a0}CBM. WENN SIE{$a0}DAS SPIEL{$a0}BEEN-{down}
 3310 print"DEN{$a0}WOLLEN, SETZEN{$a0}SIE{$a0}BITTE{$a0}NULL DM!{down}
 3320 print"WENN{$a0}SIE{$a0}DIE{$a0}FRAGE, OB SIE NOCH EINE{down}
 3330 print"KARTE{$a0}WOLLEN, STATT{$a0}MIT{$a0}'j' WIE{$a0}JA{$a0}MIT{down}
 3340 print"'D' WIE DOPPELT BEANTWORTEN, DANN ERHAL-
 3350 print"TEN{$a0}SIE{$a0}EINE{$a0}WEITERE{$a0}KARTE, ZUSAETZLICH{down}
 3360 print"WIRD{$a0}IHR{$a0}EINSATZ{$a0}VERDOPPELT.
 3370 print"{down}{down}           VERSTANDEN? (j/n)"
 3380 get a$:ifa$=""then3380
 3390 ifa$="j"thenreturn
 3400 if a$="n"then3100
 3410 goto3380
 5656           
   10 print"{clr}"
   20 print"      O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   30 print"      {CBM-G}         3-d        {CBM-M}"
   35 print"      {CBM-G}     tic-tac-toe    {CBM-M}"
   40 print"      L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   42 print
   45 gosub3000
   50 print:print:print
  315 dimx(64),l(76),m(76,4),y(16)
  320 fori=1to16
  330 ready(i)
  340 nexti
  350 fori=1to76
  360 forj=1to4
  370 readm(i,j)
  380 nextj
  390 nexti
  400 fori=1to64
  410 x(i)=0
  420 nexti
  430 z=1
  440 print"fangen sie an? ";
  450 gets$:ifs$=""then450
  460 ifs$="n"thenprint"{clr}":gosub2550:goto630
  470 ifs$="j"thenprint"{clr}":gosub2550:goto500
  480 goto450
  500 print" "
  510 print"{up}{up}{up}";:print:print"ihr zug";
  520 inputj1
  521 ifj1=1then2770
  525 ifj1<111then2750
  526 ifj1>444then2750
  530 gosub2500
  540 k1=int(j1/100)
  550 j2=(j1-k1*100)
  560 k2=int(j2/10)
  570 k3=j1-k1*100-k2*10
  580 m=16*k1+4*k2+k3-20
  590 ifx(m)=0then620
  600 print"leider besetzt!"
  605 forgh22=1to1000:nextgh22:print"{up}                                   {up}"
  610 goto500
  620 x(m)=1:gosub2550
  630 gosub1640
  640 j=1
  650 i=1
  660 ifj=1then720
  670 ifj=2then790
  680 ifj=3then930
  690 i=i+1:ifi<=76then660
  700 j=j+1:ifj<=3then650
  710 goto1300
  720 ifl(i)<>4then690
  730 print"sie gewinnen wie folgt";
  740 forj=1to4
  750 m=m(i,j)
  760 gosub1570
  770 nextj
  780 goto1490
  790 ifl(i)<>15then690
  800 forj=1to4
  810 m=m(i,j)
  820 ifx(m)<>0then860
  830 x(m)=5
  840 print"                                        ";
  841 print"                                        {up}{up}";
  848 print"vc-20 setzt auf";
  850 gosub1570
  860 nextj
  870 print",und gewinnt wie folgt";
  880 forj=1to4
  890 m=m(i,j)
  900 gosub1570
  910 nextj
  920 goto1490
  930 ifl(i)<>3then690
  940 print"netter versuch,vc-20 setzt auf";
  950 forj=1to4
  960 m=m(i,j)
  970 ifx(m)<>0then1010
  980 x(m)=5
  990 gosub1570
 1000 goto500
 1010 nextj
 1020 goto1300
 1030 i=1
 1040 l(i)=x(m(i,1))+x(m(i,2))+x(m(i,3))+x(m(i,4))
 1050 l=l(i)
 1060 ifl<2then1130
 1070 ifl>=3then1130
 1080 ifl>2then2230
 1090 forj=1to4
 1100 ifx(m(i,j))<>0then1120
 1110 x(m(i,j))=1/8
 1120 nextj
 1130 i=i+1:ifi<=76then1040
 1140 gosub1640
 1150 i=1
 1160 ifl(i)=1/2then2360
 1170 ifl(i)=1+3/8then2360
 1180 i=i+1:ifi<=76then1160
 1190 goto1830
 1200 z=1
 1210 ifx(y(z))=0then1250
 1220 z=z+1
 1230 ifz<>17then1210
 1240 goto1720
 1250 m=y(z)
 1260 x(m)=5
 1270 print"vc-20 setzt auf";
 1280 gosub1570
 1290 goto500
 1300 x=x
 1310 i=1
 1320 l(i)=x(m(i,1))+x(m(i,2))+x(m(i,3))+x(m(i,4))
 1330 l=l(i)
 1340 ifl<10then1410
 1350 ifl>=11then1410
 1360 ifl>10then2230
 1370 forj=1to4
 1380 ifx(m(i,j))<>0then1400
 1390 x(m(i,j))=1/8
 1400 nextj
 1410 i=i+1:ifi<=76then1320
 1420 gosub1640
 1430 i=1
 1440 ifl(i)=.5then2360
 1450 ifl(i)=5+3/8then2360
 1460 i=i+1:ifi<=76then1440
 1470 gosub2500
 1480 goto1030
 1490 print" "
 1500 print"nocheinmal? ";
 1510 getx$:ifx$=""then1510
 1520 ifx$="j"then400
 1530 ifx$="n"then1560
 1540 goto1510
 1550 goto1510
 1560 end
 1570 k1=int((m-1)/16)+1
 1580 j2=m-16*(k1-1)
 1590 k2=int((j2-1)/4)+1
 1600 k3=m-(k1-1)*16-(k2-1)*4
 1605 x(m)=5
 1610 m=k1*100+k2*10+k3
 1620 printm;:gosub2550
 1630 return
 1640 fors=1to76
 1650 j1=m(s,1)
 1660 j2=m(s,2)
 1670 j3=m(s,3)
 1680 j4=m(s,4)
 1690 l(s)=x(j1)+x(j2)+x(j3)+x(j4)
 1700 nexts
 1710 return
 1720 fori=1to64
 1730 ifx(i)<>0then1800
 1740 ifx(i)<>0thenstop:x(i)=5
 1750 m=i
 1760 print"vc-20 moechte";
 1770 gosub1570
 1780 print" "
 1790 goto500
 1800 nexti
 1810 print"unentschieden!"
 1820 goto1490
 1830 fork=1to18
 1840 p=0
 1850 fori=4*k-3to4*k
 1860 forj=1to4
 1870 p=p+x(m(i,j))
 1880 nextj
 1890 nexti
 1900 ifp<4then1940
 1910 ifp<5then1970
 1920 ifp<9then1940
 1930 ifp<10then1970
 1940 nextk
 1950 gosub2500
 1960 goto1200
 1970 s=1/8
 1980 fori=4*k-3to4*k
 1990 goto2370
 2000 nexti
 2010 s=0
 2020 goto1980
 2030 data1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43
 2040 data1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
 2050 data21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38
 2060 data39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
 2070 data57,58,59,60,61,62,63,64
 2080 data1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
 2090 data2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62
 2100 data3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63
 2110 data4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64
 2120 data1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61
 2130 data2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
 2140 data3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63
 2150 data4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64
 2160 data1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64
 2170 data13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52
 2180 data1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64
 2190 data49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16
 2200 data1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64
 2210 data49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16
 2220 data1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
 2230 forj=1to4
 2240 ifx(m(i,j))<>1/8then2330
 2250 x(m(i,j))=5
 2260 ifl(i)<5then2290
 2270 print"mal sehen wie sie da":print"herauskommen.vc-20":print"setzt auf";
 2280 goto2300
 2290 print"du fuchs,gerade noch":print"rechtzeitig,vc-20":print"setzt auf";
 2300 m=m(i,j)
 2310 gosub1570
 2320 goto500
 2330 nextj
 2340 print"vc-20 gibt auf!"
 2350 goto1490
 2360 s=1/8
 2370 ifi-int(i/4)*4>1then2400
 2380 a=1
 2390 goto2410
 2400 a=2
 2410 forj=ato5-astep5-2*a
 2420 ifx(m(i,j))=sthen2450
 2430 nextj
 2440 goto2000
 2450 x(m(i,j))=5
 2460 m=m(i,j)
 2470 print"vc-20 nimmt";
 2480 gosub1570
 2490 goto500
 2500 fori=1to64
 2510 ifx(i)<>1/8then2530
 2520 x(i)=0
 2530 nexti
 2540 return
 2550 print"{home}";:fori=1to4
 2560 forj=1to4
 2562 fori1=1toj
 2564 print" ";
 2566 nexti1
 2570 fork=1to4
 2600 q=16*i+4*j+k-20
 2610 ifx(q)<>0then2630
 2620 print"( ) ";
 2630 ifx(q)<>5then2650
 2640 print"(Q) ";
 2650 ifx(q)<>1then2660
 2655 print"(W) ";
 2660 ifx(q)<>1/8then2670
 2665 print"( ) ";
 2670 nextk
 2680 print
 2700 nextj
 2710 print
 2730 nexti
 2745 return
 2750 print"unerlaubter zug!!bitte eingabe wieder-":print"holen--";
 2755 forgh22=1to2000:nextgh22:print"{up}{up}                                        ";
 2756 print"                                        {up}{up}{rght}";
 2760 goto520
 2770 end
 3000 print"sie spielen das spiel":print"tic-tac-toe in einem 4V4V4 felder"
 3005 print"grossen kubus."
 3010 print"sie muessen also 4 felder in einer"
 3015 print"beliebigen geraden linie besetzen."
 3020 print"sie sehen so aus: W":print"der computer so:  Q"
 3030 print"als zug geben sie eine 3-stellige zahl  ein."
 3040 print"    1.stelle=ebene":print"    2.stelle=zeile":print"    3.stelle=spalte"
 3050 getdd$:ifdd$=""then3050
 3060 print"{clr}":return
    6 poke59467,16:poke59466,35
    7 poke59464,200
   10 print"{clr}         3-D O's & X's"
   20 print"         {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
   30 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}Press {CBM-C}space{CBM-V}to start"
   40 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}or {CBM-C}return{CBM-V}for instructions"
   50 fora=1to20:geta$:next
   60 geta$:ifa$=""then60
   65 poke59464,100
   70 ifa$=" "then1000
   80 ifa$=chr$(13)then110
   90 goto60
  110 print"{clr}        INSTRUCTIONS"
  115 poke59464,230
  120 print"        {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  130 print"{down}{down}THIS{$a0}GAME{$a0}IS{$a0}A{$a0}3 DIMENSIONAL VERSION"
  140 print"OF{$a0}THE{$a0}NORMAL{$a0}NOUGHTS{$a0}AND{$a0}CROSSES"
  150 print"{down}IT{$a0}IS{$a0}PLAYED{$a0}ON{$a0}A{$a0}4*4*4 BOARD"
  160 print"{down}THE{$a0}MOVES{$a0}ARE{$a0}REPRESENTED BY{$a0}:-"
  170 print" LEVEL{$a0}NUMBER,(which block)
  180 print" COLUMN{$a0}NUMBER,(vertical)
  190 print" AND{$a0}ROW{$a0}NUMBER,(horizontal).
  200 print"   RESPECTIVELY."
  210 print"{down} TO{$a0}MOVE{$a0}TYPE{$a0}THE{$a0}NUMBERS{$a0}WITH{$a0}COMMAS{$a0}OR{$a0} {CBM-C}RETURN{CBM-V}{$a0}BETWEEN{$a0}THEM."
  220 print"{down}YOU{$a0}ARE{CBM-C}O{CBM-V}THE COMPUTER{$a0}IS{CBM-C}X{CBM-V}."
  230 print"{down}     {rght} PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}START"
  240 forn=1to20:geta$:next
  250 geta$
  260 poke59464,a:a=a+1:ifa=255thena=0
  270 ifa$=""then250
 1000 print"{clr}"
 1100 restore:print"{clr}"
 1110 dima(75+1),b(75+1)
 1120 dimg(63+1),v(63+1)
 1130 dimn0(3+1),n1(3+1)
 1140 fori=1to76:reada(i):next
 1150 fori=1to76:readb(i):next
 1160 fori=1to4:readn0(i):next
 1170 fori=1to4:readn1(i):next
 1180 fori=0to63
 1185 poke59464,255-i*4
 1190 g(i+1)=0
 1200 nexti
 1210 fori=0to63
 1215 poke59464,i*4
 1220 v(i+1)=0
 1230 ifg(i+1)=0thenpz=abs(i*4-l):goto1250
 1240 v(i+1)=-1
 1250 nexti
 1260 gosub1770
 1264 ifb$<>""then1270
 1265 print"{home}PRESS{CBM-C}1{CBM-V}TO{$a0}GO{$a0}FIRST"
 1266 getb$:ifb$=""then1266
 1267 print"{home}                     "
 1268 ifb$<>"1"then1380
 1270 forb=1to20:geta$:next
 1271 print"{home}type your move                    {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1280 poke59464,pz:open1,0:input#1,l$,c$,r$:close1
 1285 print"{home}                                      "
 1290 l=val(l$):c=val(c$):r=val(r$)
 1291 ifl<>int(l)orl>4orl<1then1270
 1292 ifc<>int(c)orc>4orc<1then1270
 1293 ifr<>int(r)orr>4orr<1then1270
 1310 print"{home}";
 1330 p=16*r+4*l+c-21
 1340 ifv(p+1)=-1then1270
 1350 g(p+1)=-1
 1360 v(p+1)=-1
 1370 gosub1770
 1375 poke59464,p*4
 1380 n=-1
 1390 t=0
 1400 forl=0to75
 1405 poke59464,l*3.4
 1410 s=a(l+1)
 1420 v1=b(l+1)
 1430 c=0
 1440 h=0
 1450 p=s-v1
 1460 fori=0to3
 1465 poke59464,i*i
 1470 p=p+v1
 1480 ifg(p+1)<>1then1510
 1490 c=c+1
 1495 poke59464,p*4
 1500 goto1530
 1510 ifg(p+1)<>-1then1530
 1520 h=h+1
 1530 nexti
 1540 ifh*c<>0then1650
 1550 t=t+1
 1560 ifh=4then2030
 1570 p=s-v1
 1580 fori=0to3
 1585 poke59464,i*i
 1590 p=p+v1
 1600 ifv(p+1)=-1then1640
 1610 ifc<>3then1630
 1620 n=p
 1630 v(p+1)=v(p+1)+n0(h+1)+n1(c+1)
 1640 nexti
 1650 nextl
 1660 ifn<>-1then2050
 1670 ift=00then2100
 1680 print"{home}"
 1690 m=-1
 1700 fori=0to63
 1705 poke59464,i*4
 1710 ifm>=v(i+1)then1740
 1720 m=v(i+1)
 1730 p=i
 1740 nexti
 1750 g(p+1)=1
 1760 goto1210
 1770 print"{home}{down}{down}{down}{down}{down}"
 1771 forr=1to4
 1780 forl=1to4
 1790 forc=1to4
 1795 poke59464,r*l*c*3.9
 1800 p=16*r+4*l+c-21
 1810 ifg(p+1)<>-1then1830
 1820 print"o ";
 1830 ifg(p+1)<>1then1850
 1840 print"x ";
 1850 ifg(p+1)<>0then1870
 1860 print". ";
 1870 nextc
 1880 print"   ";
 1890 nextl
 1900 print
 1910 nextr
 1920 return
 1930 data0,0,0,1,2,3,3,4,8,12,0,0,1,2,3,3,0,0,1,2,3,3,4,4,5,6,7,7,8,8
 1940 data9,10,11,11,12,12,13,14,15,15,12,12,13,14,15,15,16,16,16,17,18
 1950 data19,19,20,24,28,32,32,32,33,34,35,35,36,40,44,48,48,48,49,50
 1960 data51,51,52,56,60
 1970 data1,4,5,4,4,3,4,1,1,1,16,17,16,16,15,16,20,21,20,20,19,20,16,17
 1980 data16,16,15,16,16,17,16,16,15,16,12,13,12,12,11,12,16,17,16,16
 1990 data15,16,1,4,5,4,4,3,4,1,1,1,1,4,5,4,4,3,4,1,1,1,1,4,5,4,4,3,4
 2000 data1,1,1
 2010 data0,3,8,15
 2020 data1,4,9,16
 2030 print"{home}         you win       "
 2035 fortt=0to250:poke59464,rnd(ti)*256:next
 2040 goto2130
 2050 print"{home}        i win!!       "
 2055 fortf=1to2:fortt=0to255:poke59464,tt:poke59464,255-tt:next:next
 2060 g(n+1)=1
 2070 gosub1770
 2080 print"{home}"
 2090 goto2130
 2100 print"{home}        game drawn      "
 2105 fort=0to255:poke59464,t:next:fort=255to0step-1:poke59464,t:next
 2110 goto2130
 2120 end
 2130 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}press{CBM-C}space{CBM-V}to go  again"
 2131 b$=""
 2140 geta$:poke59464,ff:ff=ff-1:ifff<0thenff=255
 2145 ifa$=""then2140
 2150 ifa$=" "thenprint"{clr}":run
 2160 poke59468,12
 2165 poke59464,0:poke59467,0:poke59466,0:poke59464,0
 2170 print"{clr}"
  110 poke59468,12
  120 dim x(11,11),b$(10),y(20,2)
  130 fori=0to9
  140 b$(i)=chr$(48+i)
  150 next
  160 print"{clr}      *** schiffe versenken ***"
  165 print"      ========================="
  180 ona1goto190,250,210,230,250
  190 gosub640
  200 goto180
  210 gosub1450
  220 goto250
  230 gosub1850
  240 goto250
  250 gosub840
  260 gosub1390
  270 goto180
  280 rem*****schiffe verstecken************
  290 c=0
  300 forj=1to10
  320 fork=1to10
  330 x(j,k)=0
  340 next:next
  350 j1=0:p1=0
  360 fori=4to1step-1
  370 forj=1to4-i+1
  380 r=int(1.99999*rnd(ti))
  390 x=int(9.99999*rnd(ti)+1)
  400 y=int(9.99999*rnd(ti)+1)
  410 fork=1toi
  420 ifx>10then390
  430 ify>10then390
  440 ifj1=0then480
  450 forl=1toj1
  460 if(x-y(l,1))^2+(y-y(l,2))^2<4then390
  470 next
  480 s(k)=x
  490 s(k+4)=y
  500 x=x+r
  510 y=y+1-r
  520 next
  530 for k=1toi
  540 j1=j1+1
  550 y(j1,1)=s(k)
  560 y(j1,2)=s(k+4)
  570 next
  580 next
  590 next
  600 a1=2
  610 a2=1
  620 gosub1970
  630 return
  640 rem***regeln******
  650 print"es gibt ein feld mit 10 x 10 feldern."
  660 print"darauf habe ich 10 schiffe versteckt."
  670 print"eines der schiffe bedeckt (geradlinig) 4 felder."
  680 print" 2 weitere bedecken je 3 felder."
  690 print" 3 weitere bedecken je 2 felder."
  700 print" 4 weitere bedecken je 1 feld."
  710 print"versuchen sie durch angabe von"
  720 print"koordinaten (z.b. a3 oder c4) schiffe zu treffen"
  730 print"sie erhalten dann eine der meldungen:"
  740 print"      '-'  ins wasser
  750 print"      'W'  beschaedigt
  760 print"      '*'  volltreffer
  770 print"wenn sie tippen:  neu ,verstecke ich"
  780 print"von neuem 10 schiffe."
  790 print"tippen sie:  halt  ,endet das programm!"
  800 print"tippen sie:  zeig  ,zeige ich meine schiffe."
  810 print"bei falschen eingaben frage ich:"
  820 print"   ist ihre kanone geladen ?"
  825 print"{down} einen augenblick bitte !{up}"
  830 goto280
  840 rem****   ausgabe  ********
  850 print"{clr}   a b c d e f g h i j "
  860 forj=1to10
  870 printtab(1);b$(j-1)" ";
  880 fork=1to10
  890 on x(j,k)+1goto900,920,940,960
  900 print"  ";
  910 goto970
  920 print"- ";
  930 goto970
  940 print"W ";
  950 goto970
  960 print"* ";
  970 next
  980 printtab(23);b$(j-1);tab(24);u$(j) 
  990 next
 1000 print"   a b c d e f g h i j"
 1010 print:print"schuesse:"p1
 1020 ona2goto1160,1030,1100,1130,1190,1310
 1030 printa$" ging ins wasser"
 1040 o=o+1
 1050 ifo>4then1070
 1060 goto1160
 1070 o=0
 1080 print" * sie wasserplantscher ! *"
 1090 goto1160
 1100 printa$" hat ein schiff beschaedigt"
 1110 o=0
 1120 goto1160
 1130 printa$" *** fixlujah ! ***"
 1140 print"   * scho wieda oans abgsuffa ! *"
 1150 o=0
 1160 if(p1-40)*(p1-45)*(p1-50)*(p1-55)*(p1-60)<>0then1360
 1170 print"bis jetzt haben sie";p1;"mal geschossen"
 1180 goto1360
 1190 ifp1>45then1230
 1200 print"alle achtung! ein meisterschuetze"
 1210 print"sie haben mit";p1;"shuessen alles versenkt"
 1220 goto1320
 1230 ifp1>52then1260
 1240 print"schon ganz gut"
 1250 goto1210
 1260 ifp1>60 then1290
 1270 print"kein gutes ergebnis,"
 1280 goto1210
 1290 print"****  sie flasche sie ****";p1;"schuesse"
 1300 goto1320
 1310 print"sehen sie: da habe ich die schiffe      versteckt"
 1320 print"{down} 'halt' oder 'neu' ? "
 1330 getf$:iff$="h"thenend
 1340 iff$<>"n"then1330
 1350 run
 1360 ifa1<>2then1380
 1370 a1=3
 1380 return
 1390 rem***eingabe und analyse***
 1400 input"bitte schiessen sie";a$:ifleft$(a$,1)="z"thena1=4:return
 1410 y=asc(a$)-64
 1420 ify<1ory>10thenprint"ist ihre kanone geladen?":goto1400
 1430 x=val(right$(a$,1))+1
 1440 a1=3:return
 1450 rem***schussanalyse***
 1460 p1=p1+1
 1470 fori=1to20
 1480 ifx<>y(i,1)then1500
 1490 ify=y(i,2)then1540
 1500 nexti
 1510 a2=2
 1520 x(x,y)=1
 1530 goto1840
 1540 ifx(x,y)=0then1570
 1550 a2=x(x,y)+1
 1560 goto1840
 1570 x(x,y)=3
 1580 ifi>16then1780
 1590 a2=3
 1600 x(x,y)=2
 1610 ifi<11then1650
 1620 k1=2*i-1-2*int(i/2)
 1630 k2=1
 1640 goto1720
 1650 k1=8
 1660 k2=2
 1670 ifi>=8then1720
 1680 k1=k1-3
 1690 ifi>4then1720
 1700 k1=1
 1710 k2=3
 1720 forj=k1tok1+k2
 1730 ifx(y(j,1),y(j,2))<2then1840
 1740 nextj
 1750 forj=k1tok1+k2
 1760 x(y(j,1),y(j,2))=3
 1770 nextj
 1780 a2=4
 1790 gosub1970
 1800 forj=1to20
 1810 ifx(y(j,1),y(j,2))<3then1840
 1820 nextj
 1830 a2=5
 1840 return
 1850 rem****schiffe zeigen****
 1860 fori=1to10
 1870 forj=1to10
 1880 x(i,j)=0
 1890 nextj
 1900 nexti
 1910 forj=1to20
 1920 x(y(j,1),y(j,2))=3
 1930 nextj
 1940 a1=5
 1950 a2=6
 1960 return
 1970 rem *** besetzen neben den schiffen***"
 1980 fori=1to10
 1990 forj=1to10
 2000 ifx(i,j)<>3then2070
 2010 fork=1to3
 2020 forl=1to3
 2030 ifx(i+k-2,j+l-2)<>0then2050
 2040 x(i+k-2,j+l-2)=1
 2050 nextl
 2060 nextk
 2070 nextj
 2080 u$(i)=" "
 2090 nexti
 2100 s1=0
 2110 fori=1to4
 2120 forj=1toi
 2130 k=abs((5-i)*j-12+7*i)
 2140 ifx(y(k,1),y(k,2))=3then2160
 2150 s1=s1+10^(4-i)
 2160 nextj
 2170 nexti
 2180 ifs1=0then2490
 2190 ifs1<1000then2220
 2200 u$(3)=" * * * * "
 2210 s1=s1-1000
 2220 ifs1<200then2250
 2230 u$(5)=" * * *  * * * "
 2240 s1=s1-200
 2250 ifs1<100then2280
 2260 u$(5)=" * * * "
 2270 s1=s1-100
 2280 ifs1<30then2310
 2290 u$(7)=" * *  * *  * * "
 2300 s1=s1-30
 2310 ifs1<20then2340
 2320 u$(7)=" * *  * * "
 2330 s1=s1-20
 2340 ifs1<10then2370
 2350 u$(7)=" * * "
 2360 s1=s1-10
 2370 ifs1<4then2400
 2380 u$(9)=" *  *  *  * "
 2390 goto2480
 2400 ifs1<3then2430
 2410 u$(9)=" *  *  * "
 2420 goto2480
 2430 ifs1<2then2460
 2440 u$(9)=" *  * "
 2450 goto 2480
 2460 ifs1<1then2480
 2470 u$(9)=" * "
 2480 u$(1)=" abzuschiessen:"
 2490 return
 2500 end
    1 clr
    2 gosub 500
    3 ti$="000000":k=1
   10 dim a(8,8),a$(10),f(8)
   11 for t=1to10
   12 read a$(t)
   13 next t
   14 data "0","1","2","3","4","5","6","7","8","9"
   20 c=0
   30 c=c+1
   31 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}_ elapsed time for solution #";k
   40 if c=9 then 250
   50 for e=1 to 8
   60 if a(c,e)=0 then 89
   70 next e
   80 goto 330
   89 f(c)=e
   90 a(c,e)=-1
   91 d=1
   92 gosub 100
   93 goto 30
  100 for x=-1to1
  105 print"{home}"ti$
  110 for y=-1to1
  120 if x*y+x+y=0 then 220
  130 for z=1to8
  140 a=c+y*z
  150 b=e+x*z
  160 if a>8 then 220
  170 if a<1 then 220
  180 if b>8 then 220
  190 if b<1 then 220
  200 a(a,b)=a(a,b)+d
  210 next z
  220 next y
  230 next x
  240 return
  250 print"{home}{down}{down}solution #";k;" took ";ti$;".{down}":ti$="000000"
  259 for x=8to1 step-1
  260 for y=1to8
  270 if a(y,x)=-1 then 290
  280 print "Q";
  281 goto 300
  290 print "q";
  300 next y
  310 print
  320 next x
  321 print
  322 k=k+1
  330 rem no spaces... now what?
  340 c=c-1
  350 a(c,f(c))=0
  360 e=f(c)
  380 d=-1
  390 gosub 100
  391 if e=8 then 340
  400 for x=e+1to8
  410 if a(c,x)=0 then 440
  420 next x
  430 goto 340
  440 a(c,x)=-1
  441 f(c)=x
  450 d=1
  451 e=x
  460 gosub 100
  470 goto 30
  480 end
  500 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}'solving the eight queen problem'"
  510 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by terry smith"
  520 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}9 hillard pl
  530 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}weston, ontario"
  540 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}canada m9r 2n1"
  550 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}'byte' magazine"
  560 print"{rght}{rght}{rght}{rght}{rght}{rght}oct. 1978 {SHIFT-*}{SHIFT-*}{SHIFT-*} vol. 3, no. 10"
  570 print"{rght}{rght}{rght}{rght}{rght}{rght}page 122"
  600 for t=1 to 4000:next t
  700 print"{clr}  there is a chess related puzzle, the"
  710 print"{down}object of which is to place 8 chess"
  720 print"{down}queens on an 8 V 8 chessboard in such"
  730 print"{down}a way that no queen can take another."
  732 print"{down}{down}  when run, this program will provide"
  734 print"{down}92 possible solutions to this puzzle,"
  736 print"{down}of which 23 are discrete."
  740 print"{down}{down}  the article on page 122 of the oct.,"
  750 print"{down}1978 issue of byte magazine provides"
  752 print"              EEEE EEEEEEEE"
  760 print"information concerning program logic."
  800 print"{down}{down}   hit any key to start program..."
  810 get s$:if s$=""then 810
  850 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}incidentally CCC"
  855 for t=1 to 670:next t
  860 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}a heathkit h8 computer system"
  865 print"{down}will take 20 minutes to find the first"
  866 print"{down}solution to this puzzle..."
  867 for t=1 to 3500:next t
  870 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}i can do it in less then 5 minutes!!!"
  880 for t=1 to 2700:next t
  999 print"{clr}"
 1000 return
   10 rem** 8k pet tetris (ver 1.3)    **
   20 rem** by tim howe, march 2010    **
   30 rem** compiled with cc65 v2-12-0 **
   40 sys(1153)
   10 print tab(15);"a-mazing program"
  100 input "what are width and length";h,v
  102 if h>1<21 and v>1<41 then110
  110 dim w(h,v),v(h,v)
  120 print:print
  160 q=0:z=0:x=int(rnd(1)*h+1)
  165 for i=1 to h
  170 if i=x then 173
  171 print "{SHIFT-*}{SHIFT-*}";:goto 180
  173 print"  ";
  180 next i
  190 print"{SHIFT--}"
  195 c=1:w(x,1)=c:c=c+1
  200 r=x:s=1:goto 260
  210 if r<>h then 240
  215 if s<>v then 230
  220 r=1:s=1:goto 250
  230 r=1:s=s+1:goto 250
  240 r=r+1
  250 if w(r,s)=0 then 210
  260 if r-1=0 then 530
  265 if w(r-1,s)<>0 then 530
  270 ifs-1=0then 390
  280 if w(r,s-1)<>0 then 390
  290 if r=h then 330
  300 if w(r+1,s)<>0 then 330
  310 x=int(rnd(1)*3+1)
  320 on x goto 790,820,860
  330 if s<>v then 340
  334 if z=1 then 370
  338 q=1: goto 350
  340 if w(r,s+1)<>0 then 370
  350 x=int (rnd(1)*3+1)
  360 on x goto 790,820,910
  370 x=int(rnd(1)*2+1)
  380 on x goto790,820
  390 if r=h then 470
  400 if w(r+1,s)<>0 then 470
  405 if s<>v then 420
  410 if z=1 then 450
  415 q=1:goto 430
  420 if w(r,s+1)<>0 then 450
  430 x=int(rnd(1)*3+1)
  440 on x goto 790,860,910
  450 x=int(rnd(1)*2+1)
  460 on x goto 790,860
  470 if s<>v then 490
  480 if z=1 then 520
  485 q=1:goto 500
  490 if w(r,s+1)<>0 then 520
  500 x=int(rnd(1)*2+1)
  510 on x goto 790,910
  520 goto 790
  530 if s-1=0 then 670
  540 if w(r,s-1)<>0 then 670
  545 if r=h then 610
  547 if w(r+1,s)<>0 then 610
  550 if s<>v then 560
  552 if z=1then 590
  554 q=1:goto 570
  560 if w(r,s+1)<>0 then 590
  570 x=int(rnd(1)*3+1)
  580 on x goto 820,860,910
  590 x=int(rnd(1)*2+1)
  600 on x goto 820,860
  610 if s<>v then 630
  620 if z=1 then 660
  625 q=1:goto 640
  630 if w(r,s+1)<>0 then 660
  640 x=int(rnd(1)*2+1)
  650 on x goto 820,910
  660 goto 820
  670 if r=h then 740
  680 if w(r+1,s)<>0 then 740
  685 if s<>v then 700
  690 if z=1then 730
  695 q=1:goto 830
  700 if w(r,s+1)<>0 then 730
  710 x=int(rnd(1)*2+1)
  720 on x goto 860,910
  730 goto 860
  740 if s<>v then 760
  750 if z=1 then 780
  755 q=1:goto 770
  760 if w(r,s+1)<>0 then 780
  770 goto 910
  780 goto 1000
  790 w(r-1,s)=c
  800 c=c+1:v(r-1,s)=2:r=r-1
  810 if c=h*v+1 then 1010
  815 q=0:goto 260
  820 w(r,s-1)=c
  830 c=c+1
  840 v(r,s-1)=1:s=s-1:if c=h*v+1 then1010
  850 q=0:goto 260
  860 w(r+1,s)=c
  870 c=c+1:if v(r,s)=0 then 880
  875 v(r,s)=3:goto890
  880 v(r,s)=2
  890 r=r+1
  900 if c=h*v+1 then 1010
  905 goto 530
  910 if q=1  then 960
  920 w(r,s+1)=c:c=c+1: if v(r,s)=0 then 940
  930 v(r,s)=3:goto 950
  940 v(r,s)=1
  950 s=s+1:if c=h*v+1 then 1010
  955 goto 260
  960 z=1
  970 if v(r,s)=0 then 980
  975 v(r,s)=3:q=0:goto 1000
  980 v(r,s)=1:q=0:r=1:s=1:goto 250
 1000 goto210
 1010 for j=1 to v
 1011 print"{SHIFT--}";
 1012 for i=1 to h
 1013 if v(i,j)<2 then 1030
 1020 print"  ";
 1021 goto 1040
 1030 print" {SHIFT--}";
 1040 next i
 1041 print
 1043 for i=1 to h
 1045 if v(i,j)=0 then 1060
 1050 if v(i,j)=2 then 1060
 1051 print"{SHIFT--} ";
 1052 goto 1070
 1060 print"{SHIFT-*}{SHIFT-*}";
 1070 next i
 1071 print"{SHIFT--}"
 1072 next j
 1073 end
   20 gosub4000:print"{clr}{down}{down}"
   30 print"key is \ @":fortq=1to2000:next
   50 rem origin cpucn 2,3 modified ++ dec79
  100 q=12:d=9:print"{clr}{down}{down}{down}{down}{down}";tab(30);"abacus"
  101 printtab(30)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  102 printtab(27)"competition"
  103 printtab(27)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  104 gosub1100:print"{home}"
  105 e=102:l=64:b=81:r=13:x=12:s=1:y=21:z=10
  110 fori=1to9:print"{CBM-+}";:forj=1to9
  120 printchr$(209);:nextj
  130 forj=9to20:printchr$(192);:nextj:print"{CBM-+}"
  135 nexti
  140 fori=1to9:p(i)=33177-i*40:next
  150 c=s:rem sets row to 1
  160 p=p(c):rem sets scan line posn.
  170 ifpeek(p)=lthenp=p-s:goto170
  180 ifpeek(p)=ethen210
  190 pokep,l:p=p+s:pokep,b:ifpeek(p+s)=lthenfori=1to5:next: goto190
  200 gosub1000:goto150
  210 t=d-c:fori=stox:pokep(c)+r-i,l:pokep(c)+q-i-t-c+1,b:next:c=c+s:goto160
 1000 tt=tt+1
 1010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}equals no.-   {rvof}";tt
 1014 geta1$:ifa1$="\"then1200
 1020 return:64=:81=:102=
 1100 print"{down}{down}{down}{down}{down}{down}{down}going at this speed,  how long do you"
 1110 print"think it will take before all the beads"
 1120 print"are on the right side  ??"
 1130 print"{rvon}{down}entries 5p. nearest correct wins prize."
 1140 print"{down}winner & solution at 5pm."
 1150 return
 1200 forww=1to100:getww$:ifww$="@"then1208
 1205 nextww:goto1020
 1208 print"{down}{down}{down}{down}{down}";:input"winners name";wn$
 1210 print"{up}{up}"
 1220 print"                                       "
 1222 print"                                       "
 1300 print"{up}{rvon}winner -{rvof}  ";wn$;" was nearest..."
 1305 print"                                       "
 1310 print"{rvon}the answer is-{rvof} 14 yrs,98 days,9.5hrs!!"
 1320 print"               EEEEEEEEEEEEEEEEEEEEE":goto1014
 4000 r$="20>:??:9??8=09024<88>6"
 4010 fori=1tolen(r$)/2
 4020 pokei+900,asc(mid$(r$,i*2-1))*16+asc(mid$(r$,i*2))-816:nexti
 4030 poke538,3:return
   10 rem game:*acey deucy*:10-v10.1-mod1
   20 rem by vince mills - (415) 523-7163
   30 rem copyright mar 1980 - permission
   40 rem reserved - limited distribution. 50 rem
   90 poke 59468,12
   91 dim p(52)
   92 y1$="{rvof}{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  100 gosub 2000
  210 gosub 8200:if b$<>"y" then 320
  300 gosub 3000
  320 gosub 1000
  400 gosub 4000
  999 stop
 1000 rem-run game
 1010 print"{clr}";: poke 59468,14
 1012 if pe=1 then 1060
 1020 print"{down}cAN{$a0}i PLAY{$a0}ALONG{$a0}WITH{$a0}YOU ? ";: gosub 8400
 1030 if left$(b$,1)<>"y" then 1999
 1040 rem-pet play
 1050 let pe=1
 1060 print"{down}hOW{$a0}WOULD{$a0}YOU{$a0}ADVISE{$a0}ME{$a0}TO{$a0}PLAY{$a0}MY{$a0}HAND:  "
 1070 print"{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1080 print"{rvon}1-cONSERVATIVELY-{rvof} BETTING{$a0}ONLY{$a0}ON
 1090 print"                  SURE{$a0}THINGS;{down}"
 1092 print"{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1094 print"{rvon}2-lIBERALLY-{rvof} BETTING{$a0}A{$a0}SMALL{$a0}AMOUNT"
 1095 print"             ON{$a0}ALMOST EVERY{$a0}HAND;{down}"
 1099 print"{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1100 print"{rvon}3-nORMALLY-{rvof} THE{$a0}OPTIMUM{$a0}BALANCE; OR{down}"
 1112 print"{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1120 print"{rvon}4-rANDOMLY-{rvof} LAST{$a0}OF{$a0}THE{$a0}'bIG sPENDERS' ?"
 1130 gosub 8000:zz=0
 1132 if a$="1" then zz=2.0:rem-consrv
 1140 if a$="2" then zz=9.0:rem-liberl
 1150 if a$="3" then zz=7.1:rem-norm
 1160 if a$="4" then zz=-1.:rem-random
 1170 if zz=0 then 1020
 1999 cr=val(a$):return
 2000 rem-instructions
 2005 poke 59468,14
 2010 print"{clr}              {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 2020 print"              {rvon} acey-deucy "
 2030 print"{rght}{rght}tHIS{$a0}IS{$a0}A{$a0}GAME{$a0}OF{$a0}CARDS.  tHE{$a0}DECK{$a0}HAS";
 2040 print"BEEN{$a0}SHUFFLED{$a0}ALREADY.  tHE{$a0}PURPOSE OF"
 2050 print"THE GAME{$a0}IS{$a0}TO WIN{$a0}AS{$a0}MUCH{$a0}MONEY AS"
 2060 print"POSSIBLE.  hERE'S{$a0}HOW{$a0}IT{$a0}WORKS:"
 2070 print"{down}{SHIFT-@} i WILL{$a0}DEAL{$a0}YOU{$a0}TWO{$a0}CARDS FACE{$a0}UP, AND  A{$a0}THIRD{$a0}ONE{$a0}FACE{$a0}DOWN.{down}"
 2080 print"{SHIFT-@} aFTER{$a0}SHOWING{$a0}YOU{$a0}THE FIRST{$a0}TWO CARDS";
 2082 print"   AND{$a0}FORCASTING{$a0}THE{$a0}{rvon}BETTING{$a0}ODDS{rvof},"
 2090 print"  i'LL{$a0}ASK{$a0}YOU{$a0}TO{$a0}PLACE{$a0}A{$a0}BET (FROM{$a0}ZERO  TO{$a0}ONE{$a0}HUNDRED{$a0}DOLLARS)."
 2100 print"{down}{SHIFT-@} i'LL{$a0}THEN TURN{$a0}THE{$a0}THIRD{$a0}CARD{$a0}OVER."
 2110 print"  iF{$a0}THE{$a0}CARD{$a0}IS{$a0}{rvon}INSIDE{rvof} THE{$a0}OTHER{$a0}CARDS";
 2120 print"   THEN{$a0}YOU{$a0}WIN{$a0}THE{$a0}BET.  iF{$a0}THE{$a0}CARD"
 2130 print"  IS{$a0}{rvon}OUTSIDE{rvof}, THEN YOU{$a0}LOSE{$a0}THE{$a0}BET.{down}"
 2140 print"  (THE{$a0}CARD{$a0}IS{$a0}{rvon}INSIDE{rvof} IF{$a0}THE{$a0}FACE"
 2150 print"   VALUE IS{$a0}STRICTLY{$a0}BETWEEN{$a0}THE"
 2160 print"   FACE VALUE{$a0}OF{$a0}THE OTHER{$a0}CARDS.)"
 2161 gosub 12000
 2170 print"{rvon}dO{$a0}YOU{$a0}WANT{$a0}A{$a0}DEMONSTRATION?{rvof} ({rvon}y{rvof} OR {rvon}n{rvof})";
 2190 return
 3000 rem-run simul'n
 3002 poke 59468,12:pe=0:br=100:pb=0
 3070 print"{clr}"y1$"let me take you through one hand."
 3080 gosub 9500:wt=3:gosub 13000
 3090 gosub 9600:gosub 13000
 3100 if int(1/od)<7.1 then 3140
 3110 rem-no go
 3120 print "given these odds, i would choose"
 3122 print"not to bet on this hand.":dc=0
 3130 goto 3160
 3140 rem-go for it
 3142 dc=int((od*11)*9.1)
 3150 print "given these odds, i would choose to bet"
 3152 print"$"dc"{left}.00 on this hand."
 3160 print"{down}{rvon}place your bet, pet: ";
 3170 gosub 13000
 3180 print"$"dc"{left}.00"
 3190 gosub 13000
 3200 gosub 9700
 3205 gosub 13000
 3210 gosub 9300
 3212 gosub 13000
 3220 printy1$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}do you want another demonstration? ";
 3230 gosub 8400
 3240 if left$(b$,1)="y" then gosub9400: goto3080
 3250 return
 3999 stop
 4000 rem-run game
 4010 poke 59468,14:pb=100:br=100:dc=0:po=0
 4220 print"{clr}";:poke 59468,12:gosub9300
 4230 poke59468,12:gosub9500:gosub9600
 4240 printy1$"{rvon} place your bet, please: $ ";
 4330 gosub 8400:bq=val(b$):if (bq>0 and bq<101)or b$="0" then 4340
 4332 print"{up}                                   {up}"
 4334 goto 4240
 4340 dc=val(b$):if pe=0 then print"{down}{down}{down}{down}" : goto 4400
 4342 if zz>0 then 4346
 4343 de=0:if rnd(1)*4>1 then 4360
 4344 goto 4350
 4346 if int(1/od)<zz then 4360
 4350 de=0:goto 4370
 4360 de=int((od*11)*9.1)
 4361 if zz<0 then de=int(100*rnd(1))
 4370 print"{rvon}{down}{down}{down}{down} the pet will bet: $";
 4380 for iu=1to100:next iu
 4390 print de"{left}.00 {down}{down}{down}{down}"
 4400 for iu=1to80:next iu
 4402 gosub 9700:gosub 9300
 4410 if dc=0 then 4430
 4420 printy1$"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon} press any key to continue";
 4421 if pe=1 then print" or {rvof}!{rvon} "
 4422 if pe=1 then print"{rvon} to change the pet's strategy   {left}{left}";
 4423 gosub 8000:if a$="!" then gosub 1000:print"{clr}";:gosub 9300:goto4230
 4430 gosub 9400:goto 4230
 4999 return
 8000 rem-get single char
 8010 t=ti
 8020 if ti<t+20 then print"{CBM-+}{left}";:goto 8050
 8030 if ti<t+40 then print" {left}";:goto 8050
 8040 t=ti
 8050 get a$:if a$="" then 8020
 8060 print" {left}";:return
 8200 rem-get string
 8220 gosub 8000:a=asc(a$)
 8240 ifb$=""and a=20 then 8220
 8250 if b$="" and a=13 then return
 8260 if a=13 then printa$;:return
 8270 if a=20 and len(b$)<2 then print"{left} {left}";:b$="":goto 8220
 8271 if len(b$)=0 and a=20 then 8220
 8280 if a=20 then print"{left} {left}";:b$=left$(b$,len(b$)-1):goto 8220
 8290 if a<32 or (a>127 and a<161) then 8220
 8315 if len(b$)=38 then print
 8330 printa$;:b$=b$+a$:if len(b$)>39 then return
 8340 goto 8220
 8400 rem-ne string
 8410 b$="":poke525,0
 8420 gosub 8200:if b$=""then8420
 8430 return
 8800 rem-move
 8805 dd$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":print"{home}";
 8810 if y=0 then printspc(x);:return
 8820 if x=0 then printleft$(dd$,y);:return
 8830 printleft$(dd$,y)spc(x);:return
 9200 rem-pick card
 9210 oo=oo+1:if oo=53 then oo=1
 9220 gosub 10000
 9230 return
 9300 rem-print bankroll
 9302 print"{home}";
 9310 fori=1to4:print"{rvon}                                       " :next i
 9312 print"{home}";
 9320 if pe=0 then print"{down}";:goto9340
 9330 print"{home}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{up}{up}{up}{rght}{rght}{rght}pet"
 9340 if br<>0 or pb<>0 then print"{rvon}bankroll        $"br"{left}.00"
 9350 if pe=1 then print"{rvon}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$"pb"{left}.00"
 9360 if de<>0 or dc<>0 then print"{rvon}last bet        $"dc"{left}.00"
 9370 if pe=1 and de+dc<>0 then print"{rvon}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$"de"{left}.00"
 9380 if io<>0 or po<>0 then print"{rvon}last payoff     $"po"{left}.00"
 9390 if pe=1 and io+po<>0 then print"{rvon}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$"io"{left}.00"
 9392 if pe=1 then gosub14000
 9399 return
 9400 rem-clear display window
 9401 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 9402 fori=1to13:print"{rvof}                                        {up}{up}";:next i
 9412 fori=1to7:print"{rvof}                        {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}{up}";:next i
 9420 return
 9500 rem-draw one hand
 9510 print"{home}{down}{down}{down}{down}{down}";:gosub 9200:c1=j
 9520 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:gosub 9200:c2=j
 9530 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 9540 o1=oo:oo=0:gosub 10000:oo=o1
 9550 flg=1:gosub 9200:c3=j:flg=0
 9560 return
 9600 rem-decide odds
 9602 a1=abs(c1-c2)-1
 9610 if a1<0 then a1=0
 9620 od=a1/11
 9621 if od=0 then od=.0001
 9630 printy1$"{down}{down}{down}the odds are";
 9640 print int(1/od);"to 1."
 9650 return
 9700 rem-draw missing card
 9710 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"c3$y1$"{down}{down}{down}{down}{down}{down}{down}"
 9712 po=0:io=0
 9720 if c1>c2 then c=c1:c1=c2:c2=c
 9730 if c3<=c1 then 9774
 9740 if c3>=c2 then 9774
 9750 po=int(1/od)*dc:br=br+po
 9760 io=int(1/od)*de:pb=pb+io
 9770 print"the card is {rvon} inside! {rvof}"
 9772 return
 9774 print"the card is {rvon} outside! {rvof}"
 9775 po=-dc:io=-de
 9776 br=br+po:pb=pb+io:return
 10000 rem-card generation
 10010 restore:tt=p(oo)
 10020 if tt=0 then i=4:goto 10040
 10030 i=int((tt-1)/13)
 10032 j=tt-i*13
 10034 forii=1 to j: read a$,a$:nextii
 10040 read a1$,a2$
 10042 c$="{rvon}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{down}{left}{left}{left}{left}{left}{SHIFT--}"
 10050 c$=c$+a1$+mid$("AZXS ",i+1,1)+"{SHIFT--}{down}{left}{left}{left}{left}{left}{SHIFT--}{CBM--}{CBM--} {SHIFT--}"
 10060 c$=c$+"{down}{left}{left}{left}{left}{left}{SHIFT--} {CBM--}{CBM--}{SHIFT--}{down}{left}{left}{left}{left}{left}{SHIFT--}"+mid$("AZXS ",i+1,1)+a2$
 10070 c$=c$+"{SHIFT--}{down}{left}{left}{left}{left}{left}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{left}{left}{left}{left}{left}{up}{up}{up}{up}{up}{rvof}"
 10080 if flg=1 then c3$=c$:goto10999
 10090 print c$;
 10999 return
 11000 rem-data
 11010 data "{CBM--} "," {CBM--}","2 "," 2","3 "," 3","4 "," 4"
 11020 data "5 "," 5","6 "," 6","7 "," 7","8 "," 8","9 "," 9"
 11030 data "10","10","j "," j","q "," q","k "," k","a "," a"
 12000 rem-shuffle
 12002 fori=1to52:p(i)=i:nexti
 12010 fori=1to100
 12020 x1=int(rnd(1)*51+1.5):x2=int(rnd(1)*51+1.5):ifx1=x2then12020
 12040 p(0)=p(x1):p(x1)=p(x2):p(x2)=p(0)
 12050 next i:p(0)=0
 12060 return
 13000 rem-wait
 13010 t=ti+60*wt
 13020 if t>ti then 13020
 13030 return
 14000 rem-strat
 14010 x=27:y=4:gosub8800:print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}pet strategy:{rvof}{down}{down}{left}{left}";
 14020 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} conservative{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} liberal{down}{left}{left}{left}{left}{left}{left}{left}{left} normal{down}";
 14030 print"{left}{left}{left}{left}{left}{left}{left} random{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}";
 14040 fori=1tocr:print"{down}";:next:print"Q{home}";:return
    0 poke59468,12:print"{clr}":gosub24:goto6
    1 geth$:ifh$=""then1
    2 h=asc(h$)-48:h=h+(h>9)*7:return
    3 fori=1to10:pokeg3,200:next:pokeg3,0:return
    4 fori=255to50step-5:pokeg3,i:next:pokeg3,0:return
    5 pokeg2,15:forj=1to10:fori=5to20:pokeg3,i*10+j:next:next:pokeg3,0:return
    6 g1=59467:g2=g1-1:g3=g1-3:pokeg1,16:pokeg2,51:pokeg3,0
    7 diml(l):x=0:mm=x:fori=0tol:mm=2*mm-(x=-1):x=notx:l(i)=-1:next:print"{clr}
    8 print"{home}{down}{down}  acigol{down}{down}{down}{down}{down}{down}{CBM-A}{down}{left}{SHIFT--}{down}{left}{CBM-Z}";:fori=1tol:print"{up}{up}{up}{up}{rvon}{SHIFT-POUND} {down}{left}{rvof}{SHIFT-POUND}{left}{left}{rvon}";:r$="@"
    9 printchr$(i+48-(i>9)*7)"{rvof}{down}{left}{SHIFT-*}{CBM-R}{down}{left}{left} {SHIFT--}{down}{left}{left}{SHIFT-*}{CBM-E}";:next:print"{left}{CBM-X}{up}{up}{left}{CBM-S}"
   10 k=0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}","{left}";:fori=1tol:printmid$("WQ",l(i)+2,1)"{rght}";:l(0)=0
   11 k=k+l(i):next:print"{down}{down}{down}{down}{down}{down}":ifk=0then19
   12 m=m+1:print,"{left}your last move was "r$"  ":print,"{down}{left}move"m"{left} is lamp ?  {left}";
   13 gosub1:ifh<1andh<>-29orh>lorh$>"9"andh$<"a"then13
   14 ifh$="{home}"thenfori=1tol:l(i)=-1:next:goto10
   15 printh$:r$=h$:ifh=1thenl(1)=notl(1):gosub3:goto10
   16 k=0:fori=0toh-2:k=k+l(i):next
   17 ifk=0thenifl(h-1)=-1thenl(h)=notl(h):gosub3:goto10
   18 gosub4:goto10
   19 gosub5:print,"{left}you did it in"m"{left} moves which":print,"{down}{left}is exact";
   20 ifmm<mthenprintm-mm"{left} moves more then":print,"{down}{left}necessarily. ";
   21 ifmm=mthenprint" the minimum number":print,"{left}{down}of moves.     ";
   22 print" another game ?":gosub1:ifh$="y"thenrun
   23 pokeg1,0:pokeg2,0:pokeg3,0:goto34
   24 print"{down}  acigol{down}":fori=1to499:nexti
   25 print"{down}  the object of this game is turning
   26 print"{down}  all the lamps on. whether lamps go
   27 print"{down}  on or out will depend of the lamps
   28 print"{down}  before the desired lamp. this is a
   29 print"{down}  logic game and not a game of skill
   30 print"{down}  so it will be better to think then
   31 print"{down}  to press.  -clr- resets all lamps.{down}{down}{down}{down}
   32 input"{up}  number of lamps required 2-15 ";h$:l=val(h$):ifl<2orl>15thenrun
   33 return
   34 end
:{stop}N{$7a}{CTRL-B}{$f0}{stop}l1{$e6}{SHIFT-POUND}{stop}{sret}{$7a}{CTRL-B}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-Z}{CBM-+}{$00}I){$f0}{down}I*{$f0}{red}I{CTRL-D}P{stop}l{gry1}{CTRL-X} {inst}{stop}l{orng}{stop} {inst}{stop}{CBM-Z}{$7c}{CTRL-B}I{rght}{$f0}{CTRL-P}{$ee}{$7c}{CTRL-B}P{CTRL-K} {inst}{stop}{CBM-Z}{$7c}{CTRL-B}{$f0}{stop}N{$7c}{CTRL-B} {CBM-G}{stop}{CBM-X}{SHIFT-*}{stop}{CBM-C}{$e0}{stop}{up}{CBM-U}{$e8}{SHIFT-*}xP{$f3}l{$e4}{$e6} {CBM-G}{stop}{SHIFT-POUND} {CBM-C}{$e0}{stop}{up}{CBM-U}{$e8}{SHIFT-*}x{$ea}P{$f5}{$60}{CBM-I}{$00}{CBM-Z}{$7d}{CTRL-B}{$f0}{CTRL-B}{CBM-I}
{CTRL-X}{CBM-Z}{$7c}{CTRL-B}{$69}i{f1}{CBM-U}{SHIFT-POUND}{$83}{f1}{CBM-O}{$60}kfkdjq<{$a0}>{$63}edc[frl{$65}q<{$a0}>{$67}{$7a}rf[cde{$63}c{CBM-F}{f3}{CBM-F}6{CBM-F}{CTRL-G}./0pqrstuvwx{CTRL-A}()*pqrstuvwx{CBM-S}{$78}R~T{CBM-F}{$00}{CTRL-U}{CTRL-D}{$0a}{$00}{gry1}144,049:{f2}50000{$00}l{CTRL-D}{$64}{$00}x{CBM-R}x{CBM-N}vx:y{CBM-R}y{CBM-N}vy:vy{CBM-R}vy{CBM-N}gg:{f6}x{CBM-W}k0{CBM-A}x{CBM-E}{CBM-R}k1{CBM-M}vx{CBM-R}{CBM-Q}vx:x{CBM-R}x{CBM-N}2{CBM-D}vx{$00}t{CTRL-D}{$69}{$00}{yel}k2{$00}{$61}{CTRL-D}{$6e}{$00}{f6}f{CBM-R}0{CBM-M}100{$00}{$78}{CTRL-D}{$78}{$00}{up}f{f2}200,400,500,800{$00}{CBM-A}{CTRL-D}H{$00}ch{CBM-R}B(654):xx{CBM-R}B(653):ad{CBM-R}B(177){CBM-N}B(178){CBM-D}256{CBM-N}B(5832{CBM-N}xx){$00}X{CTRL-D}R{$00}yy{CBM-R}{CBM-H}(vy):vx{CBM-R}{CBM-Q}vx:{up}xx{CBM-Z}3{CBM-N}1{f2}350,360,370{$00}{$ed}{CTRL-D}{CBM--}{$00}{f6}ch{CBM-R}15{CBM-M}sc{CBM-R}sc{CBM-N}100{$00}{CTRL-A}{wht}{$e6}{$00}{f6}ch{CBM-R}81{CBM-M}sc{CBM-R}sc{CBM-N}50{$00}{CTRL-U}{wht}{$f0}{$00}{f6}ch{CBM-R}87{CBM-M}sc{CBM-R}sc{CBM-N}20{$00}:{wht}{$fa}{$00}{gry1}ad,160:{gry1}ad,43:{orng}t5{CBM-R}0{CBM-@}10:{$82}:{gry1}ad,32{$00}y{wht}{CTRL-D}{CTRL-A}{yel}6264:{up}f{CBM-N}1{f2}300,270,280,290{$00}{$72}{wht}{swlc}{CTRL-A}{lgrn}bj$:bj{CBM-R}1:so{CBM-R}0:{sret}8000{$00}{lblu}{wht}{down}{CTRL-A}{lgrn}"{rvon}"jp$;jp{CBM-N}bj{CBM-N}1:bo{CBM-R}1000:{sret}3000:{sret}2000{$00}{CBM-T}{wht}{home}{CTRL-A}{f2}300{$00}{SHIFT-@}{wht}{CTRL-X}{CTRL-A}bo{CBM-R}500:{sret}3000:{sret}2100{$00}C{wht}{rght}{CTRL-A}{f2}300{$00}Z{wht}"{CTRL-A}bo{CBM-R}200:{sret}3000:{sret}2200{$00}{$f5}{wht},{CTRL-A}{lgrn}"{rvon}"sc$;sc:{yel}6258:{f6}fl{CBM-M}{swuc}{$00}{$fe}{wht}6{CTRL-A}{f2}110{$00}{home}{CTRL-F}^{CTRL-A}vy{CBM-R}{CBM-L}(vy){CBM-N}gg:{f2}220{$00}){CTRL-F}{$68}{CTRL-A}vy{CBM-R}{CBM-Q}vy{CBM-Q}gg{CBM-D}yy:{f2}220{$00}?{CTRL-F}{$72}{CTRL-A}vy{CBM-R}{CBM-Q}{CBM-L}(vy){CBM-Q}gg:{f2}220{$00}n{CTRL-F}{blk}{CTRL-A}y{CBM-R}0:vy{CBM-R}{CBM-Q}vy{$00}{$75}{CTRL-F}{lblu}{CTRL-A}{gry1}640,8:{gry1}643,{CBM-F}(1){CBM-D}5:{yel}k2:{gry1}643,0:{f2}110{$00}{gry3}{CTRL-F}{$f4}{CTRL-A}sp{CBM-R}B(636):sf{CBM-R}B(637):sf%{CBM-R}{CBM-Q}{CBM-H}(sf{CBM-Q}.5){$00}H{CTRL-F}{$fe}{CTRL-A}ee{CBM-R}({CBM-J}(x{CBM-N}1){CBM-Q}sp{CBM-Q}8{CBM-D}sf){CBM-D}sf%{CBM-N}1:{f6}ee{CBM-W}0{CBM-A}ee{CBM-E}4{CBM-M}600{$00}{CBM-*}{CTRL-F}{dish}{CTRL-B}x{CBM-R}x{CBM-N}8{CBM-D}sf%:{f6}x{CBM-W}0{CBM-M}x{CBM-R}0{$00}{$ee}{CTRL-F}{CTRL-K}{CTRL-B}{f6}x{CBM-E}35{CBM-M}x{CBM-R}35{$00}{$fe}{CTRL-F}
{CTRL-B}{yel}5922:{yel}5936{$00}5{CTRL-G}{rvon}{CTRL-B}vy{CBM-R}{CBM-Q}vy{CBM-D}ek(ee):vx{CBM-R}({CBM-F}(1){CBM-Q}.5){CBM-D}kk(ee):{f6}vy{CBM-W}{CBM-Q}1.9{CBM-M}vy{CBM-R}{CBM-Q}1.9{$00}g{CTRL-G}&{CTRL-B}{f6}vy{CBM-E}{CBM-Q}.8{CBM-M}v{CBM-R}{CBM-Q}.8{$00}{$68}{CTRL-G}n{CTRL-B}sc{CBM-R}sc{CBM-N}10:{lgrn}sc$"{rvon}"sc:y{CBM-R}20:{f2}100{$00}{gry1}{CTRL-G}x{CTRL-B}{f6}(ee{CBM-R}7){CBM-P}((x{CBM-W}5{CBM-P}sf{CBM-R}1){CBM-A}(x{CBM-E}33{CBM-P}sf{CBM-R}0)){CBM-M}ee{CBM-R}3:{f2}530{$00}Q{CTRL-G}{$6c}{CTRL-B}{yel}6312:{orng}b{CBM-R}0{CBM-@}7:{lgrn}dp${CBM-T}x)dh$(b)"{home}":{orng}t5{CBM-R}0{CBM-@}40:{$82}:{$82}:so{CBM-R}2:{sret}8000{$00}{$e8}{CTRL-G}{$76}{CTRL-B}{yel}6312:{f6}jp{CBM-N}bj{CBM-M}{sret}7000{$00}{dish}{dish}{$80}{CTRL-B}{lgrn}dp${CBM-T}x)"{down}{down}   {up}":{yel}6240:{f2}5000{$00}{rght}{dish} {stop}{f6}vy{CBM-W}0{CBM-M}{yel}6120:{f2}100{$00}1{dish}*{stop}{f6}x{CBM-E}20{CBM-M}x{CBM-R}30:{f2}830{$00}9{dish}4{stop}x{CBM-R}5{$00}p{dish}>{stop}vx{CBM-R}{CBM-Q}vx:vy{CBM-R}.2:{f2}4000{$00}{$83}{dish}P{CTRL-G}{lgrn}"{home}{down}{rght}{down}o  o  o  o  o  o  o  o  o  o  o  o  o":{swuc}{$00}{CBM-O}{dish}4{dish}{lgrn}"{home}{down}{down}{down}{down}{rght} Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q  Q":{swuc}{$00}{$ef}{dish}{gry2}{dish}{lgrn}"{home}{down}{down}{down}{down}{down}{down}{rght}W W  W  W  W  W  W  W  W  W  W  W  W":{swuc}{$00}{rght}{ensh}{CBM-U}{CTRL-K}sc{CBM-R}sc{CBM-N}bo:{lgrn}bo$;bo:so{CBM-R}1:{sret}8000:{lgrn}er$:{gry1}653,9:{swuc}{$00}<{ensh}{$a0}{CTRL-O}{gry1}640,8:{orng}cc{CBM-R}0{CBM-@}4:{gry1}643,cc:{yel}k2{$00}j{ensh}{CBM-N}{CTRL-O}{f6}f{CBM-R}0{CBM-M}4030{$00}{$63}{ensh}{CBM-H}{CTRL-O}fl{CBM-R}1:{sret}200:fl{CBM-R}0:{f2}4010{$00}{$79}{ensh}{CBM-V}{CTRL-O}{orng}t5{CBM-R}0{CBM-@}30:{$82}:{$82}:{f2}100{$00}{up}{ensh}{f7}{home}{f6}bj{CBM-M}bj{CBM-R}0:{lgrn}bp$:{f2}5030{$00}{CBM-D}{ensh}{rvof}{home}{f6}jp{CBM-M}jp{CBM-R}jp{CBM-Q}1:{lgrn}bc$:{f2}5030{$00}{CBM-Y}{ensh}{pur}{home}{f2}60000{$00}{$f7}{ensh}{CBM-+}{home}b{CBM-R}0:y{CBM-R}8:vx{CBM-R}{CBM-Q}{CBM-F}(1){CBM-Z}4:vy{CBM-R}{CBM-Q}.25:{yel}5936:{lgrn}"{rvon}"jp$;jp{CBM-N}1:{f6}{CBM-F}(1){CBM-W}.5{CBM-M}5060{$00}"{$0a}{CBM-A}{home}x{CBM-R}31:{orng}a{CBM-R}35{CBM-@}33{SHIFT-POUND}{CBM-Q}1:{lgrn}jj${CBM-T}a)c$(b):b{CBM-R}{CBM-L}(b{CBM-Q}1){$00}[{$0a}{SHIFT-@}{home}{orng}c{CBM-R}1{CBM-@}15:{yel}6144:{orng}d{CBM-R}0{CBM-@}10:{$82}:{$82}:{$82}:{gry1}652,8:{gry1}651,x:{yel}5632:{f2}100{$00}{sret}{$0a}D{home}x{CBM-R}5:vx{CBM-R}{CBM-Q}vx:{orng}a{CBM-R}2{CBM-@}5:{lgrn}jj${CBM-T}a)d$(b):b{CBM-R}{CBM-L}(b{CBM-Q}1):{f2}5050{$00}{lred}{$0a}{$ec}{home}{f2}100{$00}{SHIFT-@}{$0a}x{esc}{gry1}815,3:{yel}6400:{lgrn}hs$;hs:{f6}x{CBM-E}20{CBM-M}7200{$00}X{$0a}{$62}{esc}{lgrn}qr${CBM-T}32);:{orng}b{CBM-R}0{CBM-@}28:{lgrn}qp$;:{$82}{$00}{$ef}{$0a}{$6c}{esc}{lgrn}w$;hc$:{gry1}59467,0:{swuc}{$00}{rvon}{CTRL-K} {red}{lgrn}qr${CBM-T}2);:{orng}b{CBM-R}0{CBM-@}28:{lgrn}qq$;:{$82}:{f2}7020{$00}${CTRL-K}@{blu}{gry1}815,so:{yel}6400{$00}9{CTRL-K}j{blu}{f6}B(144){CBM-R}208{CBM-M}8010{$00}?{CTRL-K}t{blu}{swuc}{$00}{$6a}{CTRL-K}(#{orng}i{CBM-R}1{CBM-@}C(a$):{lgrn}J(a$,i,1);:{orng}j{CBM-R}0{CBM-@}30:{$82}:{$82}:{lgrn}:{swuc}{$00}{f8}{CTRL-K}{f8}#a${CBM-R}a${CBM-N}" points":{lgrn}{CBM-T}6);:{sret}9000:{swuc}{$00}{SHIFT-*}{CTRL-K}@{pur}{lgrn}"{clr}{down}{down}{down}{rvon}{rght}{SHIFT-POUND}{CBM-*}{rght}{rght}{SHIFT-POUND}  {rght}   {CBM-*}{rght}{SHIFT-POUND}  {CBM-*}{rght}   {CBM-*}{rght}{rght}{SHIFT-POUND}{CBM-*}{rght}{rght}   {rght}{rght}  {rght}  "{$00}{$ef}{CTRL-K}j{pur}{lgrn}"{rvon}{SHIFT-POUND}  {CBM-*}{rght} {rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght} {rght}{rght} {rght}{SHIFT-POUND}  {CBM-*}{rght}{rght} {rght}{rght}{rght}{rght} {rght} "{$00}&{CTRL-L}t{pur}{lgrn}"{rvon} {rvof}{SHIFT-POUND}{CBM-*}{rvon} {rght} {rght}{rght}{rght}   {rvof}{SHIFT-POUND}{rvon}{rght} {rght}{rght} {rght}   {rvof}{SHIFT-POUND}{rvon}{rght} {rvof}{SHIFT-POUND}{CBM-*}{rvon} {rght}{rght} {rght}{rght}{rght}{rght} {rght} "{$00}w{CTRL-L}^{pur}{lgrn}"{rvon}    {rght} {rght}{rght}{rght} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght} {rght}{rght} {rght}   {CBM-*}{rght}    {rght}{rght} {rght}{rght}{rght}{rght} {rght} "{$00}{f3}{CTRL-L}{$68}{pur}{lgrn}"{rvon} {rght}{rght} {rght} {rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght} {rght}{rght} {rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght} "{$00}{CBM-V}{CTRL-L}{$72}{pur}{lgrn}"{rvon} {rght}{rght} {rght}{rvof}{CBM-*}{rvon}  {rght} {rght}{rght} {rght}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}{rght}   {rvof}{SHIFT-POUND}{rvon}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}  {rght}  "{$00}{$f3}{CTRL-L}{$7c}{pur}a${CBM-R}"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    comodore japan  {down}{down}{down}":{sret}9000{$00} 
{f3}{pur}{lgrn}{CBM-T}13)"pet users' club{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}s-game "{$00}n
{lblu}{pur}{lgrn}{CBM-T}8)"{down}{down}do you want instructions ?":{gry1}158,0{$00}{$63}
{CBM-@}{pur}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}40100{$00}{$72}
{dish}{left}{f6}a${CBM-W}{CBM-E}"y"{CBM-M}{swuc}{$00}{lgrn}
:{left}{lgrn}"{clr}{down}{down}{down}"{CBM-T}12)"{rvon}**** acrobat ][ ****"{$00}S
s{left}a${CBM-R}"{down}{down}{down}     move left {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}4{rght}6{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} move right":{sret}9000{$00}~
x{left}a${CBM-R}"{down}{rvon}+++ score table +++":{lgrn}{CBM-T}12);:{sret}9000{$00}&{swlc}{$62}{left}a${CBM-R}"{down}  jumps ............10":{sret}9100{$00}l{swlc}{$6c}{left}a${CBM-R}"W baloons ..........20":{sret}9100{$00}{$72}{swlc}{$76}{left}a${CBM-R}"Q baloons ..........50":{sret}9100{$00}{gry2}{swlc}{$80}{left}a${CBM-R}"o baloons .........100":{sret}9100{$00}{CBM-V}{swlc}{f4}{left}a${CBM-R}"W bonus ...........200":{sret}9100{$00}{$e4}{swlc}{inst}{left}a${CBM-R}"Q bonus ...........500":{sret}9100{$00}+{CTRL-O}{yel}{left}{lgrn}{CBM-T}6);:a${CBM-R}"o bonus ..........1000 points{down}{left}{left}{left}{left}{left}{left}{left}{left}&bonus jump":{sret}9000{$00}{$63}{CTRL-O}P{left}a${CBM-R}"{down}{down}    press space bar to begin !!":{sret}9000:{gry1}158,0{$00}{$72}{CTRL-O}Z{left}{rvof}59410,4,4{$00}{$78}{CTRL-O}{$e4}{left}{swuc}{$00}{CBM-R}{CTRL-O}pCx{CBM-R}0:y{CBM-R}0:vx{CBM-R}0:vy{CBM-R}0:f{CBM-R}0:gg{CBM-R}.05:{yel}5952:k0{CBM-R}0:k1{CBM-R}36:k2{CBM-R}6064{$00}{$ec}{CTRL-O}zCsc${CBM-R}"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":jp${CBM-R}sc${CBM-N}"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"{$00}/{CTRL-P}_C{f3}c$(1):c$(0){CBM-R}"W {down}{left}{left}{left}N{rvon} {rvof}M {down}{left}{left}{left}{CBM-G}M ":c$(1){CBM-R}"W {down}{left}{left}{rvon}{SHIFT--}{rvof}  {down}{left}{left}{left}{left}N{CBM-M}  "{$00}{$73}{CTRL-P}{$60}C{f3}d$(1):d$(0){CBM-R}" W{down}{left}{left}{left} N{rvon} {rvof}M{down}{left}{left}{left}{left} N{CBM-M}":d$(1){CBM-R}" W{down}{left}{left}{left}  {rvon}{SHIFT--}{rvof}{down}{left}{left}{left}  {CBM-G}M"{$00}A{CTRL-P}{$64}Cbj${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":go${CBM-R}bj${CBM-N}"{rvon}* game over *":bo${CBM-R}bj${CBM-N}"{down}{down}bonus"{$00}{CTRL-G}{down}{$65}Chs${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":hc${CBM-R}hs${CBM-N}"                             "{$00}({down}{$66}Chs${CBM-R}hs${CBM-N}"today's high score"{$00}{$69}{down}{$67}Cbp${CBM-R}bj${CBM-N}"{down}{down}{down}{down}{down}{down}{down}{down}":bc${CBM-R}bp${CBM-N}"          ":bp${CBM-R}bp${CBM-N}"bonus play"{$00}{CBM-S}{down}{$69}Cer${CBM-R}bj${CBM-N}"          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{down}           ":bj${CBM-R}bj${CBM-N}"bonus jump"{$00}{CBM-*}{down}{$6e}Cjj${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}":hs{CBM-R}(B(5683){CBM-D}256{CBM-N}B(5682)){CBM-D}10{$00}{CTRL-F}{rvon}{$82}C{f3}ek(4),kk(4):{orng}i{CBM-R}0{CBM-@}4:{f5}ek(i),kk(i):{$82}{$00}2{rvon}{$83}C{$83}.9,1.5,1.15,.7,1.05,.9,.95,1.2,.85,1.9{$00}={rvon}{f8}C{sret}40000{$00}{$79}{rvon}{lred}C{f3}dh$(7):dh$(0){CBM-R}"MQN{down}{left}{left}{rvon} {rvof}{down}{left}{CBM-G}{CBM-G}":dh$(1){CBM-R}"{CBM-@}{CBM-I}{CBM-@}{down}{left}{left}{rvon}D{rvof}{down}{left}{left}N M"{$00}{CBM-O}{rvon}{gry1}Cdh$(2){CBM-R}" {CBM-P} {down}{left}{left}{left}C{rvon}{SHIFT-*}{rvof}{SHIFT-*}{down}{left}{left}{left}{CBM-D}{CBM-U}{CBM-F}":dh$(3){CBM-R}"   {down}{left}{left}{left}{CBM-@}{rvon}{CBM-U}{rvof}{CBM-@}{down}{left}{left}{left}{CBM-D}{rvon}{CBM-O}{rvof}{CBM-F}"{$00}{$00}{home}{gry2}Cdh$(4){CBM-R}"{down} {CBM-O} {down}{left}{left}{left}{CBM-D}{rvon}{CBM-@}{rvof}{CBM-F}":dh$(5){CBM-R}"{down} {CBM-@} {down}{left}{left}{left}{CBM-D}{rvon} {rvof}{CBM-F}":dh$(6){CBM-R}"{down}  {down}{left}{left}{CBM-O}{rvon}{CBM-U}{rvof}{CBM-O}"{$00}0{home}{lgrn}Cdh$(7){CBM-R}"{down}{down}{CBM-@}{CBM-@}{CBM-@}":dp${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"{$00}{$7f}{home}{$a0}Cqq${CBM-R}"     {CBM-F} {down}{left}{left}{left}{left}{left}{left}{left} {rvon}{SHIFT-POUND}{CBM-D}{SHIFT-@}{CBM-A}{CBM-S}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{rvof} {rvon}{CBM-T}{rvof}{CBM-F}{rvon}{CBM-V}{CBM-Z}{CBM-X}{rvon}{CBM-C}{down}{left}{left}{left}{left}{left}{left}{left}{rvof} JK  JK{up}{up}{up}{left}{left}{left}{left}{left}{left}"{$00}H{home}{CBM-K}Cqp${CBM-R}" {CBM-D} {down}{left}{left}{left}{rvon}{SHIFT-POUND}{CBM-A}{CBM-S}L{CBM-F}{CBM-*}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{rvon}{CBM-V}{CBM-Z}{CBM-X}{CBM-C}{rvof}{CBM-D}{rvon}{CBM-T}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{rvof}JK  JK {up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}"{$00}{CTRL-K}{del}{CBM-I}Cw${CBM-R}"       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {left}{left}{left}{up}{up}"{$00}+{del}{CBM-G}Cqr${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"{$00}{$66}{del}{CBM-H}C{gry1}59409,52:{lgrn}"{clr}{rght}{rvon}  score        acrobat ][    jumps    "{$00}{$8f}{del}{CBM-V}C{orng}i{CBM-R}32808{CBM-@}33688{SHIFT-POUND}40:{gry1}i,103:{gry1}i{CBM-N}39,101:{$82}{$00}{CBM-N}{del}HC{orng}i{CBM-R}33729{CBM-@}33766:{gry1}i,99:{$82}{$00}{$e6}{del}RC{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}                            {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"{$00}&{CTRL-U}{CBM--}C{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}                            {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"{$00}<{CTRL-U}{$e6}C{sret}2000:{sret}2100:{sret}2200{$00}{$60}{CTRL-U}{$f0}Cjp{CBM-R}5:{gry1}637,0:{gry1}636,5:{yel}6240:{gry1}643,0{$00}{$7f}{CTRL-U}{CTRL-X}D{gry1}59409,60:so{CBM-R}0:{sret}8000:{f2}5000{$00}{CBM-N}{CTRL-U}{$60}{$ea}{yel}6312:{gry1}158,0:a${CBM-R}go$:{sret}9000:{f6}hs{CBM-E}sc{CBM-M}60020{$00}{SHIFT-+}{CTRL-U}{$6a}{$ea}a{CBM-R}sc{CBM-Z}10:b{CBM-R}{CBM-J}(a{CBM-Z}256):c{CBM-R}a{CBM-Q}256{CBM-D}b:{gry1}5682,c:{gry1}5683,b{$00}{$f1}{CTRL-U}{$74}{$ea}{f6}B(166){CBM-R}255{CBM-M}60020{$00}{$f7}{CTRL-U}{$7e}{$ea}{f4}{$00}{$00}{$00}{$00}$$$$$${CBM-Z}{f8}{CTRL-B}{CTRL-X}{$0a}{$0a}{$6d}{f8}{CTRL-B}{f1}{CBM-E}{CTRL-F}{CBM-E}{CTRL-F}{CBM-E}{SHIFT-POUND}{$00}{f1}{CBM-R}&{CBM-R}{CTRL-F}{CBM-E}&{CBM-R}{CBM-G}{CBM-E}{$6d}{f6}{CTRL-B}{f1}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{CTRL-X}{SHIFT-POUND}){$65}{CBM-E}{f1}{CBM-E}{SHIFT-POUND}{$80}{$65}{CBM-R}{f1}{CBM-R}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-D}{f2}{CTRL-B}{CBM-Z}{f4}{CTRL-B} {CBM-S}Z {lblu}P{CBM-G}{$62}{sret}{f8}{CTRL-B}{CBM-G}{$61}h{CBM-D}{f5}{CTRL-B}{CBM-Z}{f7}{CTRL-B} {CBM-S}Z {lblu}P{CBM-G}{$62}{sret}{f6}{CTRL-B}{$68}{$f0}{stop}l{CBM-G}{CTRL-W}{CBM-Z}{f8}{CTRL-B}I{del}{blk}{stop}l{CBM-POUND}{CTRL-W}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-Z}{$83}{CTRL-B}{$0a}{$0a}{$0a}{$6d}{$83}{CTRL-B}{CBM-N} t{CTRL-X}{CBM-X}{gry3}{CTRL-V}{CBM-C}H{CTRL-V}{up}{CBM-E}{$e8}{SHIFT-*}rP{$f3}{$60} qnn{$a0} n {$65}m {$64}q{$a0}  mm{$67} n {$a0}nnq mm  {$a0}q{$63} mmq  {$a0}m{$67} m{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{CTRL-A}{CTRL-B}()*pqr$$ t{CTRL-X}{CBM-I}{dish}{CBM-X}{blk}{CTRL-B}{CBM-C}H{CTRL-V}{up}{CBM-E}J{CTRL-P}{$f5}{$60} t{CTRL-X}{CBM-I}{dish}{CBM-C}H{CTRL-V}{CBM-E}{CBM-E}{left}{blk}{CTRL-B}J{CTRL-P}{$f5}{$60}{$78} {inst}{stop}{CBM-Z}{$7d}{CTRL-B}i{CTRL-A}{sret}{$7d}{CTRL-B}x{$60}{CBM-I}{dish}{SHIFT-POUND} {left}{blk}{CTRL-B}J{CTRL-P}{$fa}{$60}fxy$$ 0{CTRL-W}{CBM-I}{CTRL-B}{f3}{CBM-J}{CBM-+}{CBM-J}{CBM-X};{CTRL-W}{f1}b{SHIFT-POUND}{$00}{f1}c IOh{CBM-G}{CBM-J}{$0a}{CBM-N}{$68}{left}{f3}{CTRL-B}{gry2}{left}{f1}{CTRL-B}F{CBM-J}{CTRL-P}{$e1}{$60}{CBM-Z}@{$e8}) P{$f9}{CBM-Z}@{$e8}) {$f0}{$f9}N{$7f}{CTRL-B}{CTRL-P}{$ed}{$60}{$00}{$00}{$00}{$00}{$00}{$a0}{$00}{SHIFT-POUND}{$00} {$6d}R{CBM-S}{f3}{CTRL-B}{CBM-D}{f1}{CTRL-B}l{$e3}Z{CBM-I}{dish}{CBM-X}{blk}{CTRL-B}I{$77}{$f0}{CTRL-D}J{CTRL-P}{$f6}{$60}{$68}{$68}{$a0}{CTRL-D}P{CBM-*}$${$a0}{CTRL-B},{$a0}{stop}{$68}{$68}l{$82}{CTRL-W}{$00} {$00}{CTRL-W} {$00}{CTRL-X} @{CTRL-V} {$00}{CTRL-V} {down}{CTRL-W}{CBM-Z}{f8}{CTRL-B}I{CTRL-F}{blk}{stop}l{$e5}{CTRL-W}{CBM-I}{dish}{CBM-X}{blk}{CTRL-B}I P{ensh}J{CTRL-P}{$f6} 0{CTRL-W}l{$e5}{CTRL-W}{swuc}{sret}{CTRL-B}{sret}{swuc}{CTRL-B}{$a0}{CTRL-A}P{left} {blk}{CTRL-W}N{$80}{CTRL-B}P
{CBM-Z}{$83}{CTRL-B}i{CTRL-D}{sret}{$83}{CTRL-B}{SHIFT-POUND}{CTRL-G}{sret}{$80}{CTRL-B} {$80}{CTRL-V}l{$80}{CTRL-W}N{$7e}{CTRL-B}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{stop}{sret}{$7e}{CTRL-B}{CBM-I}{CTRL-B} g{CTRL-X}{f4}){CTRL-A}{$f0}{CTRL-Z} t{CTRL-X}{$a0}{$00}{CBM-E}{CBM-L}hH{CBM-E}{CBM-L}{f7}{up}{CBM-L}H{SHIFT-*}%P{$f5}{$68}{sret}F{$80}lc{CTRL-X} t{CTRL-X}{$a0}%{CBM-E}{CBM-L}h{f7}{CBM-E}{CBM-L}H{up}{CBM-L}{f7}P{$f7}{$68}{up}{CBM-L}J{CTRL-P}G{$60}{SHIFT-POUND}{$80}{f1}{CBM-Y}{CBM-X}q{CTRL-X}{f1}{CBM-L}{$60}q{CBM-K}{$f1}{CBM-Z}@{$e8}) P{$f9}{$60}{$ea}{$ea}{$ea}{$ea}{$78}{SHIFT-POUND}:{sret}{blk}{$00}{SHIFT-POUND}{stop}{sret}{up}{$00}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}x{$60}{CBM-S}{sret}{CTRL-B}lR{CTRL-W}{CBM-I}{CTRL-B} g{CTRL-X} t{CTRL-X}{$a0}%{CBM-E}{CBM-L}I P{ensh}{f7}{CTRL-P}{$f7}{f4}{CBM-POUND}Hl{$82}{CTRL-W}J{CTRL-P}{$e6}l{$80}{CTRL-W}{SHIFT-POUND}1{sret}{blk}{$00}{SHIFT-POUND}{$e6}{sret}{up}{$00} {$72}ExlDF{$78}{SHIFT-POUND}1{sret}{blk}{$00}{SHIFT-POUND}{$e6}{sret}{up}{$00}x{$60}{CBM-I}{$00}{f3}/l@{CTRL-Y}{$ea}{$ea}{CBM-I}{$00}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}N0{stop}{$f0}{stop}l1{$e6}{CBM-S}1{stop}{CBM-X}{$78}{CTRL-Y}P{stop}l{$f4}{CTRL-X}{sret}h{$e8}{$e8}{CBM-X}{$78}{CTRL-Y}{sret}0{stop}{$e8}{swuc}1{stop}l1{$e6}{SHIFT-POUND}{$00}{sret}k{$e8} {$60}{CTRL-X}l1{$e6}{$ea} {SHIFT-*}{CTRL-X}{$78}{SHIFT-POUND}P{sret}{blk}{$00}{SHIFT-POUND}{CTRL-X}{sret}{up}{$00}{CBM-S}/{stop}{CBM-X}{CBM-U}{CTRL-Y}{sret}{CBM--}{CTRL-X}{sret}{$e8}{CTRL-X}{CBM-I}{$00}{swuc}1{stop}{$e8}{swuc}0{stop}x{$60}(@{$78}{$68}&{CTRL-A}{CTRL-A}{$68}{CTRL-L}{CTRL-A}{CTRL-A}{$68}3{CTRL-A}{CTRL-A}{$68}
]
{$68}
]
sa{$00}{$00}{$75}{CTRL-L}{$7c}{CTRL-L}{$75}{CTRL-L}x{CTRL-Z}{$75}{CTRL-L}{f8}{CTRL-Y}{CTRL-A}{CTRL-A}{f8}{CTRL-L}{brn}{CTRL-L}{f8}{CTRL-L}{$75}{CTRL-Z}{f8}{CTRL-L}{CBM-E}{CTRL-Z}{f8}{CTRL-L}{left}{CTRL-L}{CBM-E}{CTRL-L}{left}{CTRL-Y}{CTRL-A}{CTRL-A}{left}{CTRL-K}{CTRL-A}{CTRL-A}{left}{CTRL-Z}{$84}{CTRL-L}{f8}{CTRL-L}{left}{CTRL-L}{$75}{CTRL-Z}{f8}{CTRL-L}{CBM-E}{CTRL-Z}{$00}{$00}{$ed}{CTRL-Y}{CTRL-A}{CTRL-A}{$ed}{CTRL-P}{CTRL-A}{CTRL-A}{$ed}{$0a}{CTRL-A}{CTRL-A}{$ed}{CTRL-Z}G{CTRL-P}S{ensh}{CTRL-A}{CTRL-A}S{CTRL-P}{$ed}{ensh}{CTRL-A}{CTRL-A}{$ed}{CTRL-P}{$fb}{$0a}{$ed}4{$00}{$00}$$$$$$?{CTRL-X}{$63}{CTRL-X}?{CTRL-X}{$63}{CTRL-X}?{CTRL-X}{$63}{CTRL-X}?{CTRL-X}{$63}{CTRL-X}{$00}{$00}{$63}1?1{$00}{$00}(@{$78}{$a0}$$$$    0 clr:poke59468,12
    1 rem add copyright (c) 1979 donald ross
    2 rem cursor #8, march, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of mar 13 80
   90 pg$="add":nm$="8":gosub62000
  100 r$="{rvon}return{rvof}":d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  110 fl=1:ifpeek(49152)thenfl=0
  120 print"what's your name? ";:gosub60000:f$=in$
  130 iff$=""thenf$="abacus":print:print"i'll call you ";f$;", then."
  135 print
  140 dima(10,10)
  200 ql=245:ifpeek(49152)thenql=216
  900 r=-1:c=-1
  910 a=16
 1000 e=0
 1010 forx=1toc:s(x)=0:next
 1100 n=r:pr$="how many rows? ":gosub10000:ifn<0then1100
 1110 ifn<2orn>9thenprint"only 2 to 9 rows allowed.":goto1100
 1120 r=n
 1130 n=c:pr$="how many columns? ":gosub10000:ifn<0then1130
 1140 ifn<1orn>9thenprint"only 1 to 9 columns allowed.":goto1130
 1150 c=n
 1200 forx=1tor
 1210 a(x,1)=int(rnd(1)*9)+1
 1220 b(x)=a(x,1):s(1)=s(1)+a(x,1)
 1230 ifc<2then1290
 1240 fory=2toc
 1250 a(x,y)=int(rnd(1)*10)
 1260 b(x)=10*b(x)+a(x,y)
 1270 s(y)=s(y)+a(x,y)
 1280 nexty
 1290 nextx
 1300 print"{clr}{down}"
 1310 forx=1tor
 1320 printtab(15);b(x)
 1330 nextx
 1340 printtab(15);left$("{up}+{down}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}",c+6)
 1350 k=0
 1360 m=15+c+40*(r+3)
 1370 forz=cto1step-1
 1380 s(z)=s(z)+k
 1390 p=int(s(z)/10):b=s(z)-p*10
 1400 pk=32768+m-(c-z)
 1410 pokepk,160:gosub13000:pokepk,dg
 1420 ifb<>gthens7=0:j=b:gosub13500:goto1410
 1430 ifs9<>0thengosub13200
 1440 s5=0
 1450 k=int(s(z)/10)
 1460 ifz=1goto1540
 1470 pk=32768+m-(r+2)*40-(c-z+1)
 1480 pokepk,160:gosub13000:pokepk,128+dg
 1490 ifg<>kthens7=1:j=k:gosub13500:goto1480
 1500 ifs9<>0thengosub13200
 1510 pokepk+1,32
 1520 s5=0
 1530 nextz
 1540 ifk=0then1590
 1550 pk=32768+m-(c-z+1)
 1560 pokepk,160:gosub13000:pokepk,dg
 1570 ifk<>gthens7=1:j=k:gosub13500:goto1560
 1580 ifs9<>0thengosub13200
 1590 poke32768+m-(r+2)*40-(c-z),96
 1600 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1610 ife=1thenprint"that is correct, ";f$;".":goto1640
 1620 print"you are the greatest, ";f$;". you did":print
 1630 print"that problem without making a mistake."
 1640 print"{down}want another problem? ";
 1650 yn=1:gosub14000
 1660 ifyn=1thenprint:goto1000
 1670 print:end
 10000 printpr$;:gosub60000:ifin$=""then10050
 10005 print
 10010 forii=1tolen(in$):g$=mid$(in$,ii,1)
 10020 :ifg$<"0"org$>"9"thenprint"no ";g$;"'s, please.":goto10000
 10030 :nextii
 10040 n=val(in$):return
 10050 ifn>=0thenprintn;
 10060 print:return
 13000 sw=160:tm=0
 13010 getg$:ifg$<>""then13040
 13020 ifti>tmthenpokepk,sw:sw=351-sw:tm=ti+30
 13030 goto13010
 13040 ifg$<"0"org$>"9"then13010
 13050 g=val(g$):dg=g+48:return
 13100 row=24:gosub13900:printtab(14);"{up}hit {rvon}return{rvof} when ready"
 13110 return
 13200 row=14:gosub13900
 13210 fori=rowto24:print"                                       ":nexti
 13220 s9=0:print"{home}":return
 13500 e=1:s5=s5+1:ifs5<2ands9<>0thengosub13200
 13510 row=16:gosub13900
 13520 ifs5>1thenprint"                                       {up}"
 13530 s9=1:ifs7=0then13560
 13540 printf$;", the carry is not" ;g;"."
 13550 goto13570
 13560 print"sorry, ";f$;",";g;"is incorrect."
 13570 ifs5<2thenprint"try again.":goto13595
 13580 print"the correct answer is";j;"{left}.  when you"
 13590 print"understand your error, type in the":print"correct answer."
 13595 return
 13900 print"{home}":pokeql,row:print"{up}";:return
 14000 sw=1:tm=0
 14010 getg$:ifg$<>""then14050
 14020 ifti<tmthen14010
 14030 printmid$("{CBM-+} ",sw,1);"{left}";:sw=3-sw
 14040 tm=ti+30:goto14010
 14050 ifg$="y"thenyn=1:goto14080
 14060 ifg$="n"thenyn=0:goto14080
 14070 ifg$<>chr$(13)then14020
 14080 printmid$("no yes",1+3*yn,3)
 14090 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 iflp=0then60260
 60205 gosub60500
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:":goto60240
 60230 print"continue:"
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}{down}{down}":goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9) "cursor #8  add
 62002 print"{down}copyright (c) 1979  by donald ross
 62004 gosub 60500
 62010 print"{down}addition drill"
 62020 print"{down}{down}{down}want instructions? ";:gosub60000
 62030 ifleft$(in$,1)<>"y"then62090
 62040 goto62100
 62090 print"{clr}";:clr:goto100
 62100 print"{clr}":gosub60200:lp=5
 62110 print"first, to be friendly, the pet will ask
 62120 print"for your name. (if you don't say what
 62130 print"your name is, the pet will call you
 62140 print"'abacus'.)
 62150 print"{down}next, you'll be asked how big a problem
 62160 print"you want (by rows and columns). for
 62170 print"example, a problem with 2 rows and 4
 62180 print"columns would look like this:
 62190 print"{down}{down}";tab(10);"1289{left}{left}{left}{left}{left}{down}+4527{down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
 62195 print"{down}{down}"
 62200 gosub60200
 62210 print:printtab(15);"{down}1289{left}{left}{left}{left}{left}{down}+4527{down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{down}{rvon}?{down}{down}"
 62220 print"the pet will choose a problem and print
 62230 print"it like the one above. the {rvon}?{rvof} you see
 62240 print"means{$a0}that you're supposed to type in
 62250 print"a number.  in this case, 9+7=16, so you
 62260 print"would type 6 (since the{$a0}1 is carried).
 62270 gosub60200
 62280 print:printtab(17);"{rvon}?{rvof}{down}{left}{left}{left}1289{left}{left}{left}{left}{left}{down}+4527{down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{left}{left}6{down}{down}"
 62290 print"after you type a number, the pet will
 62300 print"print it, and move the {rvon}?{rvof} to the top of
 62310 print"the next column, so you can type the
 62320 print"carry (1 in this case).  if there isn't
 62330 print"a carry, you must still{$a0}type a zero to
 62340 print"tell the pet that you know that there's
 62350 print"no carry.
 62360 gosub60200
 62370 print:printtab(17);"{rvon}1{rvof}{down}{left}{left}{left}1289{left}{left}{left}{left}{left}{down}+4527{down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{left}{left}{left}{rvon}?{rvof}6{down}{down}"
 62380 print"the carry you typed will then be shown.
 62390 print"the pet will move the{$a0}{rvon}?{rvof} to the bottom
 62400 print"of the column, and wait for you to type
 62410 print"the sum of the second column (1 in this
 62420 print"case).
 62430 gosub60200
 62440 print:printtab(16);"{rvon}?{rvof}{down}{left}{left}1289{left}{left}{left}{left}{left}{down}+4527{down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{left}{left}{left}16{down}{down}"
 62450 print"things will continue like this (sum,
 62460 print"carry, sum, carry, ...) until the
 62470 print"problem is solved.
 62480 print"{down}after the problem is solved, you will
 62490 print"be offered another problem. if you
 62500 print"decide to do it, you can keep the same
 62510 print"number of rows and columns by just
 62520 print"pressing {rvon}return{rvof} when you are asked
 62530 print"for them.
 62540 gosub60200
  100 dimd(3),g(73),p(8),n(8),s(4),t(2)
  110 dimm$(18),ms(18),n1(18)
  120 vg$="":gc$="":f$="":dl$=""
  130 ts=0:tn=0:tm=3:cf=0
  140 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  150 d1$=left$(d$,17)
  160 sp$="                                       "
  170 r$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  180 r1$=left$(r$,21)
  300 fori=1to32
  310 readc$
  320 nexti
  330 fori=0to18
  340 readm$(i):readms(i):readn1(i)
  350 nexti
 1000 print"{clr}{down}load a character from tape (y/n) ?"
 1010 vg$="yn":gosub1500
 1020 input"{down}character's name {rght}{rght}*{left}{left}{left}";j$
 1030 ifj$="*"then1020
 1040 iflen(j$)>16thenprint"{down}too long":goto1020
 1050 ifgc$="n"then1240
 1060 print"{clr}place data tape in the tape deck"
 1070 print"{down}is it rewound ?"
 1080 gosub1600
 1090 open1,1,0,j$
 1100 input#1,p$
 1110 input#1,ts
 1120 input#1,ex
 1130 input#1,tn
 1140 input#1,cs
 1150 input#1,ps
 1160 input#1,t(0)
 1170 input#1,t(1)
 1180 input#1,t(2)
 1190 input#1,c1
 1200 input#1,p1
 1210 close1
 1220 c=150
 1230 goto1400
 1240 print"{clr}{down}{down}character types...choose carefully"
 1250 print
 1260 print"wizard    (1)"
 1270 print"thinker   (2)"
 1280 print"barbarian (3)"
 1290 print"warrior   (4)"
 1300 print"cleric    (5)"
 1310 getgc$:ifgc$=""then1310
 1320 a=val(gc$)
 1330 ifa=1thenp$="wizard":p1=2:c1=0.5:cs=22:ps=28
 1340 ifa=2thenp$="thinker":p1=1.5:c1=0.75:cs=24:ps=26
 1350 ifa=3thenp$="barbarian":p1=0.5:c1=1.25:cs=26:ps=24
 1360 ifa=4thenp$="warrior":p1=1:c1=1.25:cs=26:ps=24
 1370 ifa=5thenp$="cleric":p1=1.25:c1=1:cs=25:ps=25
 1380 ifa<1ora>5thenp$="dolt":p1=1:c1=1:cs=20:ps=20
 1390 ex=5:c=150
 1400 print"{down}{down}good luck"
 1410 print"{down}";j$;" the ";p$
 1420 df=150:dl$="d":gosub36000:rem **delay
 1430 gosub10000:rem ** valley draw
 1440 df=5:gosub36000
 1450 goto2000
 1499 rem** uniget subroutine **
 1500 getgc$:ifgc$=""then1500
 1510 fori=1tolen(vg$)
 1520 ifmid$(vg$,i,1)=gc$thenreturn
 1530 nexti
 1540 goto1500
 1599 rem** anykey subroutine **
 1600 print"{down}** press any key to continue **"
 1610 getgc$:ifgc$=""then1610
 1620 return
 1700 fori=1to10:getgc$:nexti
 1710 tv=0
 1720 fori=1to60
 1730 getgc$:ifgc$=""then1750
 1740 goto1770
 1750 nexti
 1760 tv=1:rem** no key pressed
 1770 printd$;sp$
 1780 return
 2000 m=w:pk=peek(w):pokem,81
 2010 c=c+10
 2020 ifpk=77orpk=78then2040
 2030 printd$;"your move...which direction ?":goto2050
 2040 printd$;"safe on the path...which way ?"
 2050 fori=1to10:getgc$:nexti
 2060 getgc$:ifgc$="e"then45000
 2070 a=val(gc$):ifa=0then2060
 2080 ifa>3thena=a-3:goto2080
 2090 w=m+a-2-40*(int((val(gc$)-1)/3)-1)
 2100 tn=tn+1:printd$;sp$
 2110 q=81:q1=peek(w):ifq1=32orq1=45then2190
 2120 ifq1=219then48000
 2130 ifq1=214orq1=160orq1=88thentn=tn-1:goto2030
 2140 ifq1=216orq1=87orq1=173orq1=230then9000
 2150 ifq1=104orq1=96then9090
 2160 ifq1=102then15000
 2170 ifq1=224or(gc$="5"andpk=224)thenq=209:c=c-20:ifc<=0then55000
 2180 ifq1=42then2800
 2190 pokem,pk:pk=peek(w):m=w:pokem,q
 2200 ifpk=77orpk=78thendf=5:goto2250
 2210 rf=rnd(ti)
 2220 ifrf<0.33then3000
 2230 ifrf>0.75then2300
 2240 printd$;"nothing of value...search on":df=80
 2250 gosub36000:
 2260 goto2010
 2299 rem ** finds subroutine **
 2300 rf=int(rnd(ti)*6+1)
 2310 onrfgosub2340,2380,2380,2410,2410,2440
 2320 df=80:gosub36000
 2330 goto2010
 2340 printd$;"a circle of evil...depart in hast !"
 2350 cs=cs+int((fl+1)/2):ps=ps-int((fl+1)/2):c=c-20
 2360 ifc<=0then55000:rem ** death **
 2370 return
 2380 printd$;"a hoard of gold"
 2390 ts=ts+int(fl*rnd(ti)*100+100)
 2400 return
 2410 printd$;"you feel the aura of the deep magic..."
 2420 print"        ...all around you..."
 2430 goto2450
 2440 printd$;"...a place of ancient power..."
 2450 ps=ps+2+int(fl*p1):cs=cs+1+int(fl*c1):c=c+25
 2460 return
 2799 rem ** special finds subroutine **
 2800 pokem,32:m=w:pk=32:pokem,81
 2810 rn=rnd(ti):printd$;sp$
 2820 ifs=6andrn>0.95andt(1)=6andt(2)=0andrt>25thent(2)=1:goto2870
 2830 ifs=5andrn>0.85andt(0)=0thent(0)=1:goto2880
 2840 ifs=4andrn>0.7andt(0)=1andt(1)<6andfl>t(1)then2890
 2850 ifrn>0.43thenprintd$;"a worthless bauble":goto2940
 2860 printd$;"a precious stone !":goto2930
 2870 printd$;"you find the helm of evanna !":goto2930
 2880 printd$;"the amulet  of alarian...empty...":goto2930
 2890 printd$;"an amulet stone..."
 2900 df=60:dl$="d":gosub36000
 2910 ifrn>0.85thenprint"{down}...but the wrong one !":goto2940
 2920 print"{down}...the stone fits !":t(1)=t(1)+1
 2930 ts=ts+100*(t(0)+t(1)+t(2)+fl)
 2940 df=80:gosub36000
 2950 goto2010
 2999 rem** monster selection **
 3000 printd$;"** beware...thou hast encountered **"
 3010 ms=0:n=0:cf=1
 3020 rf=int(rnd(ti)*17):ifrf>9andrnd(ti)>0.85then3020
 3030 ifq1=224orpk=224thenrf=int(rnd(ti)*2+17)
 3040 ifrf=16andrnd(ti)<0.7then3020
 3050 iffl<5andrf=15then3020
 3060 x$=left$(m$(rf),1)
 3070 fori=1tolen(f$)
 3080 ifmid$(f$,i,1)=x$then3110
 3090 nexti
 3100 goto3020
 3110 m$=right$(m$(rf),len(m$(rf))-1)
 3120 ifms(rf)=0then3150
 3130 ms=int((cs*0.3)+ms(rf)*fl^0.2/(rnd(ti)+1))
 3140 ifn1(rf)=0then3160
 3150 n=int(n1(rf)*fl^0.2/(rnd(ti)+1))
 3160 u=int((rf+1)*(fl^1.5))
 3170 ifrf>23thenu=int((rf-22)*fl^1.5)
 3180 print"{down}";left$(r$,12-(len(m$))/2);"an evil ";m$
 3190 df=40:gosub36000
 3499 rem ** char combat **
 3500 ifrnd(ti)<0.6then4000
 3510 printd$;"you have suprise...attack or retreat"
 3520 gosub1700
 3530 ifgc$="r"then3900
 3540 iftv=1then3600
 3550 ifgc$<>"a"then4000
 3560 df=30:dl$="d":gosub36000
 3570 printd$;"*** strike quickly ***"
 3580 gosub1700
 3590 iftv=0then3620
 3600 printd$;"* too slow...too slow *"
 3610 hf=0:goto3830
 3620 e=39*log(ex)/3.14
 3630 ifgc$="s"then4500
 3640 ifms=0thenprintd$;"your sword avails you nought here":goto3830
 3650 c=c-1
 3660 ifc<=0thenprintd$;"you fatally exhaust yourself":goto55000:rem ** death **
 3670 rf=rnd(ti)*10
 3680 ifgc$="h"and(rf<5orcs>ms*4)thenz=2:goto3730
 3690 ifgc$="b"and(rf<7orcs>ms*4)thenz=1:goto3730
 3700 ifgc$="l"and(rf<9orcs>ms*4)thenz=0.3:goto3730
 3710 printd$;"you missed it !"
 3720 hf=0:goto3830
 3730 ifhf=1thend=ms+int(rnd(ti)*9):hf=0:goto3760
 3740 d=int((((cs*50*rnd(ti))-(10*ms)+e)/100)*z):ifd<0thend=0
 3750 ifcs>(ms-d)*4thenhf=1
 3760 ms=ms-d
 3770 printd$;"a hit..."
 3780 df=60:dl$="d":gosub36000
 3790 ifd=0thenprintd$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}but...no damage":hf=0:goto3830
 3800 printd$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";d;" damage...":ifms<=0then3860
 3810 ifhf=1thendf=30:dl$="d":gosub36000
 3820 ifhf=1thenprint"{down}the ";m$;" staggers defeated"
 3830 df=110:gosub36000
 3840 ifhf=1then3570
 3850 goto4000
 3860 printd$;"{down}{down}...killing the monster..."
 3870 ex=ex+u:hf=0:cf=0
 3880 df=80:gosub36000
 3890 goto2010
 3900 printd$;"knavish coward  !":cf=0
 3910 goto3880
 3999 rem ** monsters combat **
 4000 printd$;"the creature attacks..."
 4010 df=50:dl$="w":gosub36000
 4020 ifms=0then4300
 4030 ifms<nandn>6andrnd(ti)<0.5then4300
 4040 ms=ms-1:ifms<=0then4240
 4050 rf=int(rnd(ti)*10+1)
 4060 onrfgoto4070,4080,4090,4100,4110,4110,4120,4120,4130,4140
 4070 printd$;"it swings at you...and misses":goto4280
 4080 printd$;"your blade deflects the blow":goto4280
 4090 printd$;"...but hesitates, unsure...":goto4280
 4100 z=3:printd$;"it strikes your head !":goto4150
 4110 z=1.5:printd$;"your chest is struck !":goto4150
 4120 z=1:printd$;"a strike to your sword-arm!":goto4150
 4130 z=1.3:printd$;"a blow to your body !":goto4150
 4140 z=0.5:printd$;"it catches your legs !"
 4150 df=60:dl$="d":gosub36000
 4160 g=int((((ms*75*rnd(ti))-(10*cs)-e)/100)*z)
 4170 ifg<0theng=0:printd$";...saved by your armour !  ":goto4280
 4180 c=c-g
 4190 ifg>9thencs=int(cs-g/6)
 4200 ifg=0thenprintd$;"shaken......but no damage done":goto4280
 4210 printd$;"you take...      {left}{left}{left}{left}{left}{left}";g;" damage...      "
 4220 ifcs<=0orc<=0then55000:rem ** death **
 4230 goto4280
 4240 printd$;"...using its last energy in the attempt"
 4250 ex=int(ex+u/2):cf=0
 4260 df=100:gosub36000
 4270 goto2010
 4280 df=100:gosub36000
 4290 goto3570
 4300 printd$;"...hurling a lightning bolt at you !"
 4310 g=int(((180*n*rnd(ti))-(ps+e))/100):n=n-5:ifg>9thenn=n-int(g/5)
 4320 df=80:dl$="w":gosub36000
 4330 ifn<=0thenn=0:goto4240
 4340 ifrnd(ti)<0.25then4410
 4350 ifg<=0theng=0:goto4400
 4360 printd$;"it strikes home !"
 4370 df=110:gosub36000
 4380 c=c-g:ifg>9thenps=int(ps-g/4)
 4390 goto4210
 4400 printd$;"your psi shield protects you":goto4280
 4410 printd$;"...missed you !":goto4280
 4499 rem ** spell controll **
 4500 printd$;"which spell seek ye ? ":gosub1700
 4510 iftv=1then3600
 4520 ifval(gc$)>0andval(gc$)=<3then4540
 4530 printd$;"no such spell...     ":goto4640
 4540 if4*ps*rnd(ti)<=nthen4590
 4550 onval(gc$)gosub5000,5200,5400
 4560 onscgoto4620,4640,4660,4570,4600,4580,4590
 4570 printd$;"it is beyond you     ":goto4640
 4580 print"but the spell fails...!":goto4640
 4590 printd$;"no use, the beast's psi shields it":goto4640
 4600 printd$;"the spell saps all your strength"
 4610 goto55000
 4620 df=100:gosub36000
 4630 goto2010
 4640 df=60:gosub36000
 4650 goto4000
 4660 df=60:gosub36000
 4670 goto3570
 4999 rem ** spell 1 (sleepit) **
 5000 c=c-5:ifc<=0thensc=5:return
 5010 printd$;"sleep you foul fiend that i may escape"
 5020 print"and preserve my miserable skin"
 5030 df=180:gosub36000
 5040 printd$;"the creature staggers..."
 5050 df=40:dl$="d":gosub36000
 5060 ifrnd(ti)<0.5then5090
 5070 print"and collapses...stunned"
 5080 ex=int(ex+u/2):cf=0:sc=1:return
 5090 print"but recovers with a snarl !"
 5100 sc=2:return
 5199 rem ** spell 2 (psi-lance) **
 5200 ifms>corps<49orex<1000thensc=4:return
 5210 c=c-10:ifc<=0thensc=5:return
 5220 ifn=0thenprintd$;"this beast has no psi to attack":sc=2:return
 5230 printd$";with my mind i battle thee for my life"
 5240 df=120:gosub36000
 5250 rf=rnd(ti):ifrf<0.4andn>10thensc=6:return
 5260 d=int((((cs*50*rf)-5*(ms+n)+e)/50)/4)
 5270 ifd<=0thend=0:sc=7:return
 5280 printd$;"the psi-lance causes ";d*2;" damage"
 5290 n=n-3*d:ifn<=0thenn=0
 5300 ms=ms-d:ifms<=0thenms=0
 5310 if(ms+n)>0thensc=2:return
 5320 print"{down}...killing the creature"
 5330 ex=ex+u:cf=0:sc=1:return
 5399 rem**spell 3(crispit)
 5400 ifps<77orex<5000thensc=4:return
 5420 printd$;"with the might of my sword i smite thee"
 5430 print"with power of my spell i curse thee"
 5440 print"burn ye spawn of hell and suffer..."
 5450 df=240:gosub36000:rem**delay + update
 5460 printd$;"a bolt of energy lashes at the beast..."
 5470 df=80:dl$="w":gosub36000:rem**delay+wipe
 5480 ifrnd(ti)>(ps/780)*(5-pi)thenprintd$;"missed it !":sc=2:return
 5490 d=int((cs+ps*rnd(ti))-(10*n*rnd(ti)))
 5500 ifd<=0thend=0:sc=7:return
 5510 ifms=0thenn=n-d:goto5530
 5520 ms=ms-d:ifd>10thenn=int(n-(d/3))
 5530 printd$;"it strikes home causing ";d;" damage   "
 5540 if(ms+n)<=0then5570
 5550 df=80:dl$="d":gosub36000:rem**delay
 5560 sc=2:return
 5570 print"{down}the beast dies screaming !"
 5580 ex=ex+u:cf=0:sc=1:ret
 8999 rem ** scenario control **
 9000 ifq1=230andpk=224thenprintd$;"you cannot enter this way...":goto9110
 9010 fori=2to7
 9020 p(i)=0
 9030 n(i)=int(rnd(ti)*5+4)
 9040 ifn(i)=5then9030
 9050 nexti
 9060 ifs=1thenmp=m
 9070 p(2)=int(rnd(ti)*30+1)
 9080 tf=tn:goto9130
 9090 iftn>tf+int(rnd(ti)*6+1)then9130
 9100 printd$;"the way is barred"
 9110 tn=tn-1:c=c-10:df=100:dl$="w":gosub36000
 9120 goto2010
 9130 c=c-10:pokem,32:pokew,q
 9140 ifq1=96thens=1:fl=1
 9150 ifq1=104ands=4thens=1:fl=1
 9160 ifq1=104ands=5ors=6thens=s-3:fl=fl-4:m=mw
 9170 ifq1=173thens=2:fl=2
 9180 ifq1=216thens=3:fl=3
 9190 ifq1=216orq1=173thend2$=left$(d$,int(rnd(ti)*10)):r2$=left$(r$,p(2))
 9200 ifq1=87thens=4:fl=2
 9210 ifq1=230thens=s+3:fl=fl+4:mw=m
 9220 onsgosub10000,12000,12010,14000,14010,14010
 9230 df=5:gosub36000
 9240 goto2000
 9999 rem ** scenario 1 (the valley) **
 10000 print"{clr}":f$="vaegh":fl=1:s=1
 10010 print"{home}{rvon}VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV{rvof}"
 10020 fori=1to12
 10030 print"{rvon}V{rvof}                                     {rvon}V{rvof}"
 10040 nexti
 10050 print"{rvon}VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV{rvof}"
 10060 ifg(0)<>0then10190
 10070 m=32809+(int(rnd(ti)*11+1)*40)
 10080 l=m:mp=m:w=m:g(0)=m:g(1)=219
 10090 fori=2to72step2
 10100 ifrnd(ti)>0.5then10120
 10110 pc=77:l1=l+41:goto10130
 10120 pc=78:l1=l-39
 10130 ifl1>=33286orl1<=32806then10100
 10140 g(i+1)=pc
 10150 ifi>2andg(i+1)<>g(i-1)thenl1=l+1
 10160 g(i)=l1:l=l1:pokeg(i),g(i+1)
 10170 nexti
 10180 g(73)=219
 10190 fori=0to72step2
 10200 pokeg(i),g(i+1)
 10210 nexti
 10220 ifs(0)<>0then10280
 10230 fori=0to4
 10240 n1=int(rnd(ti)*11)+1:n2=int(rnd(ti)*34)+1
 10250 s(i)=32809+(40*n1)+n2
 10260 ifpeek(s(i))<>32orpeek(s(i)+1)<>32then10240
 10270 nexti
 10280 pokes(0),216:pokes(0)+1,216:pokes(1),216:pokes(1)+1,216
 10290 pokes(2),173:pokes(2)+1,173:pokes(3),173:pokes(3)+1,173
 10300 pokes(4),87
 10310 m=mp:w=m
 10320 return
 11999 rem ** scenario 2 wood & swamps **
 12000 f$="afl":pc=45:goto12020
 12010 f$="faehl":pc=88
 12020 pk=32
 12030 print"{clr}"
 12040 l=32810
 12050 fori=1to200
 12060 pokel+int(rnd(ti)*515),pc
 12070 nexti
 12080 print"{home}";d2$;r2$;"{rght}{rght}{rvon}{$a0}{$a0}{rvof}"
 12090 printr2$;"{rght}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}"
 12100 printr2$;"{rvon}{$a0}{$a0}{rvof}  {rvon}{$a0}{$a0}{rvof}"
 12110 printr2$;"{rvon}{$a0}{$a0}{CBM-+}{rvof} {rvon}{$a0}{$a0}{$a0}{rvof}"
 12120 printr2$;"{rght}{rvon}{$a0}{$a0}{$a0}{$a0}{rvof}{rght}{rvon}{$a0}{$a0}{rvof}"
 12130 printr2$;"{rght}{rght}{rght}{rvon}{$a0}{$a0}{rvof}"
 12140 printr2$;"{rght}{rght}{rght}{rght}{rvon}{$a0}{rvof}"
 12150 print"{home}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0} ";
 12160 fori=1to13
 12170 print"{$a0}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{$a0}";
 12180 nexti
 12190 print"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
 12200 poke33306,32:w=33306
 12210 ifq1=104thenm=mw:w=m
 12220 return
 13999 rem**scenario 3(castle types)
 14000 f$="cage":p=0:h=n(fl):pk=32:goto14020
 14010 f$="cbe":p=0:h=n(fl):pk=32:p(fl)=p(2)
 14019 rem**draw frame
 14020 print"{clr}{rvon}{rght}{rght}                     {rvof}"
 14030 fori=1to13
 14040 print"{rvon}{rght}{rght} {rvof}                   {rvon} {rvof}"
 14050 nexti
 14060 print"{rvon}{rght}{rght}                     {rvof}"
 14069 rem**drawvertical walls
 14070 restore:fori=1top(fl)
 14080 readv:ifv=100thenrestore
 14090 nexti
 14100 l1=32810
 14110 forj=1to3
 14120 readd(j):p=p+1
 14130 ifd(j)=100thenrestore:d(j)=3:p=p+1
 14140 nextj
 14150 fori=0toh:pc=160
 14160 l=l1+(40*i):ifl>33290then14260
 14170 ifi=1thenpc=32
 14180 ifd(1)=0thenpc=160:goto14200
 14190 pokel+d(1),pc:pc=160
 14200 ifi=3thenpc=32
 14210 pokel+d(1)+d(2),pc:pc=160
 14220 ifi=4thenpc=32
 14230 pokel+d(1)+d(2)+d(3),pc:pc=160
 14240 nexti
 14250 l1=l1+(40*h)+40:goto14110
 14259 remdrawhorizontal walls
 14260 l1=32810
 14270 forj=1to4
 14280 l=l1+(40*j*(h+1))
 14290 fork=1to19
 14300 ifl>33250then14350
 14310 pokel+k,pc
 14320 ifk=2ork=3*hork=17thenpokel+k,32:pokel+k-40,32:pokel+k+40,32
 14330 nextk
 14340 nextj
 14349 rem**draw in stairs
 14350 ifs=5ors=6then14380
 14360 iffl/2=int(fl/2)thenpoke33291,102:goto14380
 14370 poke32829,102
 14379 rem**doorway needed?
 14380 iffl=2ors=5ors=6thenpoke33336,104:poke33296,32
 14390 ifp(3)=0thenw=33296
 14399 rem**write appropriate name
 14400 ifs=5then14470
 14410 ifs=6then14450
 14420 print"{home}";r1$;"{down}{down}{down}{down}{rght}{rght}{rght}the black tower"
 14430 printr1$;"{rght}{rght}{rght}   of zaexon"
 14440 printr1$;"{down}{down}{down}{rght}{rght}{rght}   floor ";fl-1:goto14490
 14450 print"{home}";r1$;"{down}{down}{rght}{rght}{rght}{rght}{rght}{rvon} vounim's {rvof}"
 14460 printr1$;"{rght}{rght}{rght}{rght}{rght}{rvon}   lair   {rvof}":goto14500
 14470 print"{home}";r1$;"{down}{down}{rght}{rght}{rght}{rght}{rvon}the temple of {rvof}"
 14480 printr1$;"{rght}{rght}{rght}{rght}{rvon}  y'nagioth  {rvof}"
 14490 p(fl+1)=p(fl)+p
 14499 rem**scatter special finds
 14500 iffl<4orrnd(ti)<.3thenreturn
 14510 fori=1toint(rnd(ti)*5)+2
 14520 n1=int(rnd(ti)*19)
 14530 n2=int(rnd(ti)*12)
 14540 ifpeek(32811+40*n2+n1)<>32then14520
 14550 poke(32811+40*n2+n1),42
 14560 nexti
 14570 return
 14999 rem**stairs routine
 15000 pokew,81:pokem,32
 15010 printd$;"a stairway... up or down ?":tv=fl
 15020 vg$="ud":gosub1500:rem**uniget
 15030 ifgc$="u"thenfl=fl+1:goto15050
 15040 fl=fl-1
 15050 iffl>7orfl<2then15080
 15060 df=110:dl$="d":gosub36000
 15070 goto9220
 15080 printd$;"these stairs are blocked "
 15090 df=60:dl$="d":gosub36000:
 15100 fl=tv:goto15010
 35999 rem ** delay,wipe subroutine **
 36000 fordl=1to(df*tm)
 36010 nextdl
 36020 ifdl$="d"thendl$="":return
 36030 printd$;sp$
 36040 printsp$
 36050 printsp$
 36060 ifdl$="w"thendl$="":return
 36070 ifcs>77-int(2*p1^2.5)thencs=77-int(2*p1^2.5)
 36080 ifps<7thenps=7
 36090 ifps>int(42*(p1+1)^log(p1^3.7))+75thenps=int(42*(p1+1)^log(p1^3.7))+75
 36100 ifc>125-(int(p1)*12.5)thenc=125-int(int(p1)*12.5)
 36110 printd1$;"{up}";j$,p$
 36120 print"treasure   =";ts
 36130 print"experience =";ex
 36140 print"turns      =";tn
 36150 printd1$;r1$;"combat str =    {left}{left}{left}{left}";cs
 36160 printr1$;"psi power  =    {left}{left}{left}{left}";ps
 36170 printr1$;"stamina    =    {left}{left}{left}{left}";c
 36180 ifcf=1then36210
 36190 printsp$
 36200 return
 36210 printd$;"{up}{up}{rvon}";m$;"{rvof}";
 36220 printd$;r1$;"{up}{up}monstr =            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";ms;n;"    "
 36230 return
 44999 rem ** rating routine **
 45000 df=5:dl$="w":gosub36000
 45010 rt=int(0.067*(ex+ts/3)^0.5+log(ex/((tn+1)^1.5))):ifrt>28thenrt=28
 45020 ifrt<0thenrt=0
 45030 printd$;"your rating now be";rt
 45040 ift(2)=1thenprint"you have the helm of evanna"
 45050 ift(0)=1thenprint"amulet stones... ";t(1)
 45060 df=250:dl$="w":gosub36000
 45070 ifgc$="e"thenc=c-10:gc$="":goto2010
 45080 return
 47999 rem** quit valley **
 48000 printd$;"thou art safe in a castle":ifcs<20thencs=20
 48010 print:pokem,pk:pk=peek(w):m=w:pokem,q
 48020 print"wilt thou leave the valley (y/n) ?"
 48030 vg$="yn":gosub1500
 48040 df=5:dl$="w":gosub36000
 48050 gosub45000
 48060 df=110:dl$="w":gosub36000
 48070 ifgc$="y"then50000
 48080 c=150:printd$;"thy wounds healed...thy sword sharp"
 48090 print"go as the gods demand..trust none other"
 48100 df=120:gosub36000
 48110 goto2010
 49999 rem ** save character **
 50000 print"{clr}do you wish to save ";j$;" ?"
 50010 print:print"please key y or n"
 50020 vg$="yn":gosub1500
 50030 ifgc$="n"then50210
 50040 print"{clr}place your cassette in the tape deck"
 50050 print"is it rewound ?"
 50060 gosub1600
 50070 open1,1,1,j$
 50080 print#1,p$
 50090 print#1,ts
 50100 print#1,ex
 50110 print#1,tn
 50120 print#1,cs
 50130 print#1,ps
 50140 print#1,t(0)
 50150 print#1,t(1)
 50160 print#1,t(2)
 50170 print#1,c1
 50180 print#1,p1
 50190 close1
 50200 print"{clr}{down}{down}{down}"," *** done ***"
 50210 printd$;"      type run to start again"
 50220 clr
 50230 end
 54999 rem ** death **
 55000 c=0:cs=0:ps=0:cf=0
 55010 df=110:gosub36000
 55020 ift(1)=6then55070
 55030 printd$;"{rght}oh what a frail shell"
 55040 print,"{rght}{rght}is this that we call man"
 55050 df=300:dl$="w":gosub36000
 55060 print"{clr}":goto50210
 55070 t(0)=0:t(1)=0:ts=0:cs=30:c=150:ps=30
 55080 printd$;"alarian's amulet protects thy soul"
 55090 print"{down}{rvon}  live again  {rvof}"
 55100 df=150:gosub36000
 55110 l=g(0):mp=l:m=w:s=1:goto9220
 59999 rem ** data for castle **
 60000 data4,7,3,6,4,4,6,5,3,6,0,3,8,4,3,5,5,3,8,3,4,5,0,6,3,6,4,6,4,7,4,100
 60009 rem ** data for monsters **
 60010 dataawolfen,9,0,ahob-goblin,9,0,aorc,9,0,efire-imp,7,3,grock-troll,19,0
 60020 dataeharpy,10,12,aogre,23,0,bbarrow-wight,0,25,hcentaur,18,14
 60030 dataefire-giant,26,20,vthunder-lizard,50,0,cminotaur,35,25,cwraith,0,30
 60040 datafwyvern,36,12,bdragon,50,20,cring-wraith,0,45,abalrog,50,50
 60049 rem ** special water monsters **
 60050 datalwater-imp,15,15,lkraken,50,0
  100 print"{clr}{swlc}":poke59468,14
  110 print"{down}This program comes from Japan, "
  120 print"Translation of Japanese words is up"
  130 print"to the user"
  140 print"The object is to hit the AFO with a "
  150 print"balloon. The hit must be dead center"
  160 print"Move the man with #4 and #6 keys"
  170 print"Release the balloon with #5 key"
  180 print"{down}{down}Extra graphics when the AFO is hit"
  190 print"or when the AFO shoots the balloon
  200 print"{down}{down}HIT 'C' TO{$a0}CONTINUE"
  210 geta$:ifa$<>"c"then210
  220 print"{swuc}";:poke59468,12
  230 a$="{left}U{CBM-E}I{down}{left}{left}{left}B{rvon}1{rvof}H{down}{left}{left}{left}{left}{rvon}{SHIFT-POUND}afo{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}JK JK"
  240 p$="W{down}{left}{left}{left}Q {SHIFT--}{down}{left}{left}{left}{left}{CBM-A}{rvon} {rvof}{SHIFT-*}{SHIFT-+}{down}{left}{left}{left}{left}{SHIFT--}{rvon} {rvof}{down}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}{CBM-G}"
  250 o$=" {down}{left}{left}{left}   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}  {down}{left}  {down}{left}{left}  "
  260 e$="{left}   {down}{left}{left}{left}   {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     "
  270 b$="Q{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}"
  280 c$=" {down}{left} {down}{left} {down}{left}"
  290 x$="{left}*{left}*{down}{left}{left}{left}*{left}*{down}{left}{left}{left}{left}*{left}*{left}*{down}{left}{left}{left}{left}*{rght}{rght}*"
  300 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  310 w$=v$+"{down}{down}{down}{down}{down}{down}"
  320 u$="S{down}{left}{left}{CBM-A}{CBM-+}{CBM-S}{down}{left}{left}V"
  330 ue$=" {down}{left}{left}   {down}{left}{left} "
  340 wm$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}M{down}{left}{left}/ M"
  350 wn$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}/{down}{left}{left}/ M"
  360 vr$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{left}/ {CBM-G}"
  370 we$=" {down}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}  {down}{left}{left}{left}    "
  380 vl$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}M"
  390 ba=20
  400 sc=0
  410 gosub1700
  420 gosub1910
  430 ti$="000000"
  440 an=1
  450 ex=0
  460 af=10+int(rnd(1)*20)
  470 pe=10+int(rnd(1)*30)
  480 print"{clr}"
  490 printv$tab(pe)p$
  500 pf=pe
  510 printw$"{rvon}                                     "
  520 af=abs(int(af+rnd(1)*4-1))
  530 if rnd(1)<.05thenaf=int(rnd(1)*20)+10
  540 if af>35thenaf=5
  550 print"{home}"tab(af)a$
  560 ifrnd(1)<abs(sc)*.05+.1then670
  570 getcg$
  580 ifcg$<"4"orcg$>"6"then1430
  590 c=val(cg$)
  600 ifc=5then940
  610 pe=pe+(c=4)*4+2
  620 ifpe<5thenpe=5:goto640
  630 if pe>38thenpe=38
  640 print v$tab(pf)o$
  650 print v$tab(pe)p$
  660 goto1430
  670 printleft$(w$,5)tab(af)"{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}"
  680 printleft$(w$,5)tab(af)" {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} "
  690 if af<>pethen570
  700 tf$=ti$
  710 printv$tab(pe-2)x$
  720 for l1=1to200:next
  730 printv$tab(pe)o$
  740 printleft$(w$,23)tab(pe-2)"W{rvon}  {rvof}{SHIFT-*}{CBM-S}{up}{left}{left}{left}{left}{left}Mmugyu!/";
  750 forl1=1to999:next
  760 sc=sc-1
  770 print"{left}{left}{left}{left}{left}{left}{left}{left}        "
  780 print"{home}{down}{down}{down}"tab(af-2)"{rvon}JK JK"
  790 forl=5to22:printleft$(w$,l)tab(af-2)"{rvon}     ":forl1=1to30:nextl1,l
  800 printleft$(w$,23)tab(af-2)"{rvon}W{rvof}  {rvon}{SHIFT-*}{CBM-S}"
  810 forl1=1to500:next
  820 forl=22to5step-1:printleft$(w$,l)tab(af-2)"{rvon}W{rvof}  {rvon}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{left}     "
  830 forl1=1to50:next:next
  840 forl1=1to1000:next
  850 forl=23to5step-1:printleft$(w$,l)tab(af-2)"     ":forl1=1to30:nextl1,l
  860 print"{home}{down}{down}{down}"tab(af-2)"JK JK{down}{left}{left}{left}{left}{left}Q{rvon}  {rvof}{SHIFT-*}{CBM-S}":forl1=1to500:next
  870 forl=5to22:printleft$(w$,l)tab(af-2)"     {down}{left}{left}{left}{left}{left}Q{rvon}  {rvof}{SHIFT-*}{CBM-S}"
  880 next:forl1=1to200:next
  890 printleft$(w$,22)tab(af-4)"Mmugyu!/"
  900 forl1=1to1000:next
  910 print"{home}":print:print:print:gosub1780
  920 ti$=tf$
  930 goto460
  940 rem
  950 forl=19to2step-1
  960 printleft$(v$,l+1)tab(pe)c$
  970 printleft$(v$,l)tab(pe)b$
  980 next
  990 printleft$(v$,2)tab(pe)c$
 1000 printv$tab(pe)"W{down}{left}{SHIFT--}{down}{left}{SHIFT-+}"
 1010 ba=ba-1
 1020 ifaf<>pethen1430
 1030 print"{home}"tab(af)x$
 1040 tf$=ti$
 1050 forl=1to200:next
 1060 print"{home}"tab(af)e$
 1070 f=1+(af>20)*2
 1080 forl=3to19
 1090 printleft$(w$,l-1)tab(af-f)e$
 1100 printleft$(w$,l)tab(af)a$
 1110 af=af+f
 1120 next
 1130 iff>0thenprintleft$(w$,l-3)tab(af-f)"{rvon}{CBM-G} {rvof}{down}{left}{left}{SHIFT--}":goto1150
 1140 printleft$(w$,l-3)tab(af)"{rvon} {rvof}{CBM-J}{down}{left}{SHIFT--}"
 1150 iff>0thenprintleft$(w$,20)tab(af-3)"{CBM-A}{down}{left}{CBM-X}{left}{left}{CBM-A}{down}{left}{CBM-X}{left}{left}{CBM-A}":goto1170
 1160 printleft$(w$,20)tab(af+3)"{CBM-S}{down}{left}{CBM-Z}{CBM-S}{down}{left}{CBM-Z}{CBM-S}"
 1170 af=af-f
 1180 forl3=15to18
 1190 af=af-f
 1200 printleft$(w$,l3)tab(af)u$
 1210 forl4=1to200:next
 1220 printleft$(w$,l3)tab(af)ue$
 1230 next
 1240 printleft$(w$,21)tab(af-f)u$
 1250 forl3=1to5
 1260 printleft$(w$,16)tab(af-9)"M$&f&'%(afo!)/"
 1270 forl4=1to200:next
 1280 printleft$(w$,16)tab(af-9)"              "
 1290 forl4=1to200:next
 1300 next
 1310 printv$tab(pe)" {down}{left} {down}{left} "
 1320 gosub1990
 1330 forl1=1to5
 1340 printv$tab(pe-3)"{SHIFT--}{down}{left}{SHIFT--}{down}{left}{CBM-Z}{down}{left} {down}{left} {rght} {up}{left} {up}{left}{CBM-X}{up}{left}{SHIFT--}{up}{left}{SHIFT--}{up}{left}{left}{left}{left}{left}Mbanzai!/"
 1350 forl2=1to200:next
 1360 printv$tab(pe-3)" {down}{left} {down}{left}{CBM-A}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{rght}{SHIFT--}{up}{left}{SHIFT--}{up}{left}{CBM-S}{up}{left} {up}{left} {up}{left}{left}{left}{left}{left}         "
 1370 forl2=1to200:next
 1380 next
 1390 sc=sc+3:an=an+1
 1400 ti$=tf$
 1410 a$=left$(a$,10)+right$(str$(an),1)+mid$(a$,12)
 1420 goto 460
 1430 getcg$:getcg$:getcg$:getcg$:getcg$
 1440 print"{home}"tab(af)e$
 1450 pf=pe
 1460 ba$=str$(ba)
 1470 th$=right$(str$((60-val(ti$))*-(val(ti$)<100)),2)
 1480 printw$"{rvon}time:"th$" score:"str$(sc)" balloons:"ba$;
 1490 ifex=1thenprint"  ex.play ":goto1510
 1500 print"          "
 1510 ifba=0then1540
 1520 ifval(ti$)>=100then1580
 1530 goto520
 1540 printleft$(w$,7)tab(8)"fuusenga nakunatta":forl=1to1500:next
 1550 print:printtab(14)"afo!"
 1560 forl=1to1000:next
 1570 goto1660
 1580 printw$"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}0"
 1590 printleft$(w$,7)tab(8)"jikanga nakunatta":forl=1to1500:next
 1600 ifsc<5orex=1then1550
 1610 print:print:printtab(6)"{rvon}e x t e n d e d   p l a y"
 1620 forl=1to2000:next
 1630 ti$="000030"
 1640 ex=1
 1650 goto460
 1660 print:printtab(8)"anata no tokuten:"sc
 1670 print:printtab(8)"'s' to play again"
 1680 getc$:ifc$="s"thenrun
 1690 goto1680
 1700 print"{clr}";
 1710 print" M            {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-S}  M
 1720 print"{SHIFT-*}{SHIFT-*}{SHIFT-*} M{SHIFT--}/       {SHIFT--}  {SHIFT--}  {SHIFT--} {CBM-A}{SHIFT-*}{CBM-S} /{CBM-@}M
 1730 print" {SHIFT-*}  {SHIFT-*}{SHIFT-+}{SHIFT-*}       {SHIFT--}{$a0}{$a0}{SHIFT--}  {SHIFT--} {SHIFT--}M{SHIFT--}  V
 1740 print" {SHIFT-*} M/{SHIFT--}M   {CBM-@}{CBM-@}  {CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-W} {SHIFT-+}{SHIFT-*}{SHIFT-+} / M
 1750 print"{CBM-A}{SHIFT-*}{CBM-S}{CBM-M}     /{CBM-M} M {SHIFT--}     {SHIFT--} {SHIFT--}M{SHIFT--}
 1760 print"{SHIFT--} {SHIFT--}{CBM-M}    {CBM-M} {CBM-M} {CBM-M} {SHIFT--}     {SHIFT--}   {CBM-A}{CBM-R}{CBM-R}{CBM-S}
 1770 print"{CBM-Z}{SHIFT-*}{CBM-X}V{CBM-@}{CBM-@}{CBM-@}{CBM-@} M/ / {SHIFT--}     {SHIFT--}  {SHIFT-*}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{SHIFT-*}
 1780 print
 1790 print
 1800 print"      {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}   N{CBM-T}{CBM-T}M
 1810 print"      B  H   {SHIFT--}      {CBM-M}    {CBM-G}
 1820 print"      T   {CBM-G}  {SHIFT--}      {CBM-M}    {CBM-G}
 1830 print"     {CBM-M}    G  {SHIFT--}      {CBM-M}    {CBM-G}
 1840 print"     {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}   {CBM-M}    {CBM-G}
 1850 print"     G    H  {SHIFT--}      {CBM-M}    {CBM-G}
 1860 print"     T    Y  {SHIFT--}      {CBM-M}    {CBM-G}
 1870 print"     {CBM-G}    {CBM-M}  {SHIFT--}      {CBM-M}    {CBM-G}
 1880 print"    {CBM-M}      {CBM-G} {SHIFT--}       M{CBM-@}{CBM-@}N
 1890 forl=1to2000:next
 1900 return
 1910 rem
 1920 print"    {CBM-@}{SHIFT-@}{CBM-@}{CBM-@}
 1930 print"    {CBM-G}    N  N  {SHIFT-@}{CBM-@}{CBM-@}{CBM-@}  N  MM    N
 1940 print"/  P{CBM-Q}{CBM-R}{SHIFT-*}  OPN{CBM-T}P {CBM-M}  M N{CBM-T}P      N   M
 1950 print"{CBM-G}  P{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-A}{CBM-S}OP M{CBM-M} {CBM-M}{CBM-A}{SHIFT-+}{CBM-S}   {CBM-M} {SHIFT-*}{SHIFT-*}{SHIFT-*} N    {CBM-M}
 1960 print"M  N 'M{CBM-Z}{CBM-X}{CBM-T}{CBM-T}  N N{CBM-Z}{CBM-X}   {CBM-@}N     L{CBM-@}{CBM-@}{SHIFT-@} /
 1970 forll=1to2000:next
 1980 return
 1990 printv$tab(pe)o$
 2000 iff>0then2260
 2010 forl1=pe-2tope-4step-2
 2020 printleft$(w$,19)tab(l1)wn$
 2030 forl2=1to100:next
 2040 printleft$(w$,19)tab(l1)we$
 2050 printleft$(w$,19)tab(l1-1)vl$
 2060 forl2=1to100:next
 2070 printleft$(w$,19)tab(l1-1)we$
 2080 next
 2090 printleft$(w$,19)tab(l1-1)vl$
 2100 pe=l1+1
 2110 forl2=1to500:next
 2120 printv$tab(l1-2)"{CBM-F}{down}{left}{SHIFT--}{down}{left}{CBM-Z}{down}{left} "
 2130 forl2=1to99:next
 2140 printv$tab(l1-2)" {down}{left} {down}{left} "
 2150 printv$tab(l1-4)"{CBM-D}{down}M{down}M"
 2160 forl2=1to99:next
 2170 printv$tab(l1-4)" {down} {down} "
 2180 printv$tab(l1-5)"{down}{down}{CBM-D}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 2190 forl2=1to200:next
 2200 printv$tab(l1-6)"{down}{rght}{SHIFT--}{up}{left}.{down}{down}N{up}."
 2210 forl2=1to200:next
 2220 printv$tab(l1-12)"{up}{up}M$25(mugyu)N"
 2230 forl2=1to1000:next
 2240 printv$tab(l1-5)"{down}{down} {rght}  "
 2250 return
 2260 forl1=pe-2tope+4step2
 2270 printleft$(w$,19)tab(l1)wm$
 2280 forl2=1to100:next
 2290 printleft$(w$,19)tab(l1)we$
 2300 printleft$(w$,19)tab(l1+1)vr$
 2310 forl2=1to100:next
 2320 printleft$(w$,19)tab(l1+1)we$
 2330 next
 2340 printleft$(w$,19)tab(l1+1)vr$
 2350 pe=l1+3
 2360 printv$tab(l1+2)"{CBM-D}{down}{left}{SHIFT--}{down}{left}{CBM-X}{down}{left} "
 2370 forl2=1to99:next
 2380 printv$tab(l1+2)" {down}{left} {down}{left} "
 2390 printv$tab(l1+2)"{down}{down}N{up}N{up}{CBM-F}"
 2400 forl2=1to99:next
 2410 printv$tab(l1+2)"{down}{down} {up} {up} "
 2420 printv$tab(l1+2)"{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-F}"
 2430 printv$tab(l1+3)"{down}.{down}M{up}{up}.{down}{left}{SHIFT--}"
 2440 printv$tab(l1+2)"{up}{up}M$32(mugyo)N"
 2450 forl2=1to1000:next
 2460 printv$tab(l1+2)"{down}{down}  {rght} "
 2470 return
   70 rem ### sound added by steve douglas
   75 rem ### poke59467,0 after breaking              programme
   80 poke59467,16:poke59466,15:p=59464
   85 pokep,0
   90 poke59458,62
  100 print"{clr}":poke59468,14
  110 print"{down}This program comes from Japan; "
  120 print"translation of Japanese words is up"
  130 print"to the user."
  140 print"The object is to hit the AFO with a "
  150 print"balloon. The hit must be dead center."
  160 print"Move the man with #4 and #6 keys."
  170 print"Release the balloon with #5 key."
  180 print"{down}{down}Extra graphics when the AfO is hit"
  190 print"or when the AFO shoots the balloon."
  200 print"{down}{down}Press 'C' to continue."
  210 geta$:ifa$<>"c"then210
  215 fort=1to5:pokep,200:nextt:pokep,0
  220 poke59468,12
  230 a$(1)="{left}{left} U{CBM-E}I {down}{left}{left}{left}{left}{left} B{rvon}1{rvof}H {down}{left}{left}{left}{left}{left}{left} {rvon}{SHIFT-POUND}afo{CBM-*}{rvof} {down}{left}{left}{left}{left}{left}{left}{left} JK JK "
  240 p$="W{down}{left}{left}{left}Q {SHIFT--}{down}{left}{left}{left}{left}{CBM-A}{rvon} {rvof}{SHIFT-*}{SHIFT-+}{down}{left}{left}{left}{left}{SHIFT--}{rvon} {rvof}{down}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}{CBM-G}"
  250 o$=" {down}{left}{left}{left}   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}  {down}{left}  {down}{left}{left}  "
  260 e$="{left}   {down}{left}{left}{left}   {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     "
  270 b$="Q{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}"
  280 c$=" {down}{left} {down}{left} {down}{left}"
  290 x$="{left}*{left}*{down}{left}{left}{left}*{left}*{down}{left}{left}{left}{left}*{left}*{left}*{down}{left}{left}{left}{left}*{rght}{rght}*"
  300 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  310 w$=v$+"{down}{down}{down}{down}{down}{down}"
  320 u$="{up}{left}M N{down}{left}{left}o{down}{left}{left}{CBM-A}{CBM-+}{CBM-S}{down}{left}{left}V"
  330 ue$="{up}{left}   {down}{left}{left} {down}{left}{left}   {down}{left}{left} "
  340 wm$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}\{down}{left}{left}/ \"
  350 wn$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}/{down}{left}{left}/ \"
  360 vr$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{left}/ {CBM-G}"
  370 we$=" {down}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}  {down}{left}{left}{left}    "
  380 vl$="Q{down}{left}{left}{CBM-A}{rvon} {rvof}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rvon} {rvof}{SHIFT--}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}\"
  390 ba=20
  400 sc=0
  410 gosub1700
  420 gosub1910
  430 ti$="000000"
  440 an=1
  450 ex=0
  460 af=10+int(rnd(1)*20)
  470 pe=10+int(rnd(1)*30)
  480 print"{clr}"
  490 printv$tab(pe)p$
  500 pf=pe
  510 printw$"{rvon}                                     "
  520 lo=int(rnd(1)*3)-1:af=abs(af+lo)
  540 if af>35thenaf=35
  550 print"{home}"spc(af)a$(1)
  552 ifaf<2thenaf=2
  560 ifrnd(1)<abs(an)*.05+.1then670
  570 c=peek(151)
  580 ifc<>42andc<>34andc<>41then1430
  600 ifc=34thenc=5:goto940
  601 ifc=41thenc=6
  602 ifc=42thenc=4
  610 pe=pe+(c=4)*4+2
  620 ifpe<5thenpe=5:goto640
  630 if pe>39thenpe=39
  640 print v$spc(pf)o$
  650 print v$spc(pe)p$
  660 goto1430
  670 pokep,15
  671 printleft$(w$,5)spc(af)"{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}"
  680 printleft$(w$,5)spc(af)" {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} "
  681 pokep,0
  690 if af<>pethen570
  691 pokep,50
  700 tf$=ti$
  710 printv$spc(pe-2)x$
  720 for l1=1to200:next
  721 pokep,0
  730 printv$spc(pe)o$
  740 printleft$(w$,23)spc(pe-2)"W{rvon}  {rvof}{SHIFT-*}{CBM-S}{up}{left}{left}{left}{left}{left}{left}{left}\mugyu!/";
  741 pokep,250
  750 forl1=1to400:next
  751 pokep,0
  752 forl1=1to400:next
  760 sc=sc-1
  770 print"{left}{left}{left}{left}{left}{left}{left}{left}        "
  780 print"{home}{down}{down}{down}"spc(af-2)"{rvon}JK JK"
  790 l1=150:forl=5to22:printleft$(w$,l)spc(af-2)"{rvon}     ":l1=l1+5:pokep,l1
  791 fort=1to30:nextt,l
  792 forl1=1to5:pokep,100+l1:nextl1:pokep,0
  800 printleft$(w$,23)spc(af-2)"{rvon}W{rvof}  {rvon}{SHIFT-*}{CBM-S}"
  810 forl1=1to500:next:l1=190
  820 forl=22to5step-1:printleft$(w$,l)spc(af-2)"{rvon}W{rvof}  {rvon}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{left}     "
  821 l1=l1-5:pokep,l1:fort=1to50:nextt,l
  822 pokep,0
  840 forl1=1to1000:next
  850 forl=23to5step-1:printleft$(w$,l)spc(af-2)"     ":forl1=1to30:nextl1,l
  852 pokep,0
  860 print"{home}{down}{down}{down}"spc(af-2)"JK JK{down}{left}{left}{left}{left}{left}Q{rvon}  {rvof}{SHIFT-*}{CBM-S}":forl1=1to500:next:l1=100
  870 forl=5to22:printleft$(w$,l)spc(af-2)"     {down}{left}{left}{left}{left}{left}Q{rvon}  {rvof}{SHIFT-*}{CBM-S}":l1=l1+5
  880 pokep,l1:next
  882 forl1=240to255:pokep,l1:nextl1:forl1=1to150:nextl1:pokep,0
  890 printleft$(w$,22)spc(af-4)"\mugyu!/"
  900 forl1=1to1000:next
  910 print"{home}":print:print:print:gosub1780
  920 ti$=tf$
  930 goto460
  940 so=140
  950 forl=19to2step-1
  960 printleft$(v$,l+1)spc(pe)c$
  970 printleft$(v$,l)spc(pe)b$
  971 pokep,so:so=so-5
  980 next
  981 pokep,0
  990 printleft$(v$,2)spc(pe)c$
 1000 printv$spc(pe)"W{down}{left}{SHIFT--}{down}{left}{SHIFT-+}"
 1010 ba=ba-1
 1020 ifaf<>pethen1430
 1021 fort=1to25:nextt
 1022 pokep,50:fort=1to25:nextt:pokep,0:fort=1to10:nextt
 1030 print"{home}"spc(af)x$
 1040 tf$=ti$
 1041 so=70
 1050 forl=1to200:next
 1060 print"{home}"spc(af)e$
 1070 f=1+(af>20)*2
 1080 forl=3to19
 1090 printleft$(w$,l-1)spc(af-f)e$
 1100 printleft$(w$,l)spc(af)a$(1)
 1110 af=af+f:fort=1to1
 1111 pokep,so
 1113 so=so+5
 1115 nextt
 1120 nextl
 1125 pokep,255:forgh=1to50:nextgh:pokep,0
 1130 iff>0thenprintleft$(w$,l-3)spc(af-f)"{down} I{down}{left}{left}{left}  {CBM-Q}{SHIFT-*}{down}{left}{left}{left}{left}{CBM-S} ":goto1150
 1140 printleft$(w$,l-3)spc(af)"{down}U {down}{left}{left}{left}{SHIFT-*}{CBM-W}  {down}{left}{left} {CBM-A}"
 1150 iff>0thenprintleft$(w$,20)spc(af-3)"{CBM-A}{down}{left}{CBM-X}{left}{left}{CBM-A}{down}{left}{CBM-X}{left}{left}{CBM-A}":goto1170
 1160 printleft$(w$,20)spc(af+3)"{CBM-S}{down}{left}{CBM-Z}{CBM-S}{down}{left}{CBM-Z}{CBM-S}"
 1170 af=af-f
 1180 forl3=15to18
 1181 ifl3>15thenpokep,(l3-15)*10+60
 1190 af=af-f
 1200 printleft$(w$,l3)spc(af)u$
 1210 forl4=1to100:next
 1211 pokep,0
 1212 forl4=1to100:next
 1220 printleft$(w$,l3)spc(af)ue$
 1230 next
 1240 printleft$(w$,21)spc(af-f)u$
 1241 pokep,100:fort=1to100:nextt:pokep,0
 1250 forl3=1to5
 1260 printleft$(w$,16)spc(af-9)"\$&f&'%(afo!)/"
 1270 forl4=1to20:pokep,int(255*rnd(1))+1:next
 1280 printleft$(w$,16)spc(af-9)"              "
 1290 forl4=1to20:pokep,int(128*rnd(1))+128:next
 1300 next
 1301 pokep,0
 1310 printv$spc(pe)" {down}{left} {down}{left} "
 1320 gosub1990
 1330 forl1=1to5
 1340 printv$spc(pe-3)"{SHIFT--}{down}{left}{SHIFT--}{down}{left}{CBM-Z}{down}{left} {down}{left} {rght} {up}{left} {up}{left}{CBM-X}{up}{left}{SHIFT--}{up}{left}{SHIFT--}{up}{left}{left}{left}{left}{left}\banzai!/"
 1350 forl2=1to200:next
 1360 printv$spc(pe-3)" {down}{left} {down}{left}{CBM-A}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{rght}{SHIFT--}{up}{left}{SHIFT--}{up}{left}{CBM-S}{up}{left} {up}{left} {up}{left}{left}{left}{left}{left}         "
 1370 forl2=1to200:next
 1380 next
 1390 sc=sc+3:an=an+1
 1400 ti$=tf$
 1410 a$(1)=left$(a$(1),16)+right$(str$(an),1)+right$(a$(1),34)
 1420 goto 460
 1430 rem
 1450 pf=pe
 1460 ba$=str$(ba)
 1470 th$=right$(str$((60-val(ti$))*-(val(ti$)<100)),2)
 1480 printw$"{rvon}time:"th$" score:"str$(sc)" balloons:"ba$;
 1490 ifex=1thenprint"  ex.play ":goto1510
 1500 print"          "
 1510 ifba=0then1540
 1520 ifval(ti$)>=100then1580
 1530 goto520
 1540 printleft$(w$,7)tab(8)"fuusenga nakunatta":forl=1to1500:next
 1550 print:printtab(14)"afo!"
 1560 forl=1to1000:next
 1570 goto1660
 1580 printw$"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}0";
 1590 printleft$(w$,7)tab(8)"jikanga nakunatta":forl=1to1500:next
 1600 ifsc<5orex=1then1550
 1610 print:print:printtab(6)"{rvon}e x t e n d e d   p l a y"
 1620 forl=1to2000:next
 1630 ti$="000030"
 1640 ex=1
 1650 goto460
 1660 print:printtab(8)"anata no tokuten:"sc
 1670 print:printtab(8)"'s' to play again"
 1680 getc$:ifc$="s"thenrun
 1690 goto1680
 1700 print"{clr}";
 1710 print" \            {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-S}  \
 1720 print"{SHIFT-*}{SHIFT-*}{SHIFT-*} \{SHIFT--}/       {SHIFT--}  {SHIFT--}  {SHIFT--} {CBM-A}{SHIFT-*}{CBM-S} /{CBM-@}\
 1730 print" {SHIFT-*}  {SHIFT-*}{SHIFT-+}{SHIFT-*}       {SHIFT--}{$a0}{$a0}{SHIFT--}  {SHIFT--} {SHIFT--}\{SHIFT--}  V
 1740 print" {SHIFT-*} \/{SHIFT--}\   {CBM-@}{CBM-@}  {CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-W} {SHIFT-+}{SHIFT-*}{SHIFT-+} / \
 1750 print"{CBM-A}{SHIFT-*}{CBM-S}{CBM-M}     /{CBM-M} \ {SHIFT--}     {SHIFT--} {SHIFT--}\{SHIFT--}
 1760 print"{SHIFT--} {SHIFT--}{CBM-M}    {CBM-M} {CBM-M} {CBM-M} {SHIFT--}     {SHIFT--}   {CBM-A}{CBM-R}{CBM-R}{CBM-S}
 1770 print"{CBM-Z}{SHIFT-*}{CBM-X}V{CBM-@}{CBM-@}{CBM-@}{CBM-@} \/ / {SHIFT--}     {SHIFT--}  {SHIFT-*}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{SHIFT-*}
 1780 print
 1790 print
 1800 print"      {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}   N{CBM-T}{CBM-T}M
 1810 print"      B  H   {SHIFT--}      {CBM-M}    {CBM-G}
 1820 print"      T   {CBM-G}  {SHIFT--}      {CBM-M}    {CBM-G}
 1830 print"     {CBM-M}    G  {SHIFT--}      {CBM-M}    {CBM-G}
 1840 print"     {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}   {CBM-M}    {CBM-G}
 1850 print"     G    H  {SHIFT--}      {CBM-M}    {CBM-G}
 1860 print"     T    Y  {SHIFT--}      {CBM-M}    {CBM-G}
 1870 print"     {CBM-G}    {CBM-M}  {SHIFT--}      {CBM-M}    {CBM-G}
 1880 print"    {CBM-M}      {CBM-G} {SHIFT--}       M{CBM-@}{CBM-@}N
 1890 forl=1to2000:next
 1900 return
 1910 rem
 1920 print"    {CBM-@}{SHIFT-@}{CBM-@}{CBM-@}
 1930 print"    {CBM-G}    N  N  {SHIFT-@}{CBM-@}{CBM-@}{CBM-@}  N  MM    N
 1940 print"/  P{CBM-Q}{CBM-R}{SHIFT-*}  OPN{CBM-T}P {CBM-M}  M N{CBM-T}P      N   \
 1950 print"{CBM-G}  P{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-A}{CBM-S}OP \{CBM-M} {CBM-M}{CBM-A}{SHIFT-+}{CBM-S}   {CBM-M} {SHIFT-*}{SHIFT-*}{SHIFT-*} N    {CBM-M}
 1960 print"\  N '\{CBM-Z}{CBM-X}{CBM-T}{CBM-T}  N N{CBM-Z}{CBM-X}   {CBM-@}N     L{CBM-@}{CBM-@}{SHIFT-@} /
 1970 forll=1to2000:next
 1980 return
 1990 printv$spc(pe)o$
 2000 iff>0then2260
 2010 forl1=pe-2tope-4step-2
 2020 printleft$(w$,19)spc(l1)wn$
 2030 forl2=1to100:next
 2040 printleft$(w$,19)spc(l1)we$
 2050 printleft$(w$,19)spc(l1-1)vl$
 2060 forl2=1to100:next
 2070 printleft$(w$,19)spc(l1-1)we$
 2080 next
 2090 printleft$(w$,19)spc(l1-1)vl$
 2100 pe=l1+1
 2110 forl2=1to500:next
 2120 printv$spc(l1-2)"{CBM-F}{down}{left}{SHIFT--}{down}{left}{CBM-Z}{down}{left} "
 2130 forl2=50to100:pokep,l2:next
 2140 printv$spc(l1-2)" {down}{left} {down}{left} "
 2150 printv$spc(l1-4)"{CBM-D}{down}M{down}M"
 2160 forl2=101to150:pokep,l2:next
 2170 printv$spc(l1-4)" {down} {down} "
 2180 printv$spc(l1-5)"{down}{down}{CBM-D}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 2190 forl2=1to200:next
 2200 printv$spc(l1-6)"{down}{down} {CBM-D}{SHIFT-*}{down}{left}{left}{left}U{rght}I"
 2210 pokep,255:forl2=1to200:next
 2220 printv$spc(l1-12)"{up}{up}M$25(mugyu)N"
 2221 pokep,0
 2230 forl2=1to1000:next
 2240 printv$spc(l1-6)"{down}{down}    "
 2250 return
 2260 forl1=pe-2tope+4step2
 2270 printleft$(w$,19)spc(l1)wm$
 2280 forl2=1to100:next
 2290 printleft$(w$,19)spc(l1)we$
 2300 printleft$(w$,19)spc(l1+1)vr$
 2310 forl2=1to100:next
 2320 printleft$(w$,19)spc(l1+1)we$
 2330 next
 2340 printleft$(w$,19)spc(l1+1)vr$
 2350 pe=l1+3
 2360 printv$spc(l1+2)"{CBM-D}{down}{left}{SHIFT--}{down}{left}{CBM-X}{down}{left} "
 2370 forl2=100to150:pokep,l2:next
 2380 printv$spc(l1+2)" {down}{left} {down}{left} "
 2390 printv$spc(l1+2)"{down}{down}N{up}N{up}{CBM-F}"
 2400 forl2=151to200:pokep,l2:next
 2410 printv$spc(l1+2)"{down}{down} {up} {up} "
 2420 printv$spc(l1+2)"{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-F}"
 2421 pokep,255
 2430 printv$spc(l1+3)"{down}{down}{rght}{SHIFT-*}{CBM-F} {down}{left}{left}{left}U{rght}I"
 2440 printv$spc(l1+2)"{up}{up}M$32(mugyo)N"
 2441 forl2=1to100:next:pokep,0
 2450 forl2=1to1000:next
 2451 printv$spc(l1+3)"{down} {down} {up}{up} {down}{left} "
 2460 printv$spc(l1+2)"{down}{down}  {rght} "
 2470 return
    5 uf=0:u=1:zz=0:z=1:m=20
   10 a$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   15 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":cl$="     {left}{left}{left}{left}{left}"
   20 d1$=dn$+"{down}{down}{down}{down}{down}{down}{down}"
   25 b$=a$+"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{down}"
   30 sq(0)=108:sq(1)=120:sq(2)=124:sq(3)=126:ifqt=1then50
   35 print"{clr}{down}{down}{down}{down}press  *  for instructions. if not, then{down}{down}press any other key."
   40 getr$:ifr$=""then40
   45 ifr$="*"thengosub10000
   50 print"{clr}{down}{CBM-T}C
   55 print"  {CBM-T}
   60 print"   {CBM-T}
   65 print"    {CBM-T}{CBM-@}
   70 print"      {CBM-@}
   75 print"       DF
   80 print"         {CBM-T}{SHIFT-*}{CBM-@}
   85 print"            E{SHIFT-*}
   90 print"              {CBM-T}CR
  100 print"                 {CBM-T}DF{CBM-@}
  110 print"                     ECF{CBM-@}
  120 print"                         {CBM-T}{CBM-T}EDC{SHIFT-*}FR
  130 print" {rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}^{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}"
  135 print"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
  140 print"{rvon} * * * * * instrument panel * * * * * {rvof}"
  145 print"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}"
  200 fa=0:h=1900:as=150:ag=0:ef=1:ep=2000
  220 gosub5000
  240 gosub2000:ag=ag+af
  241 ifsa=1thenxd=xd+1:ifxd<7then243
  242 ifas>120andsa=1thensa=0:xd=0
  243 ifsa=1thenprintd1$"you are {rvon} stalling{rvof}{up}"
  245 ep=ep+(ef*341):ifep>10000thenep=10000
  246 ifep<0thenep=0
  247 ifuf=1andsa=1thenuf=0:z2=1
  248 ifzz=1andsa=1thenzz=0:z1=1
  249 tf=1.5*((ep*2)/as-20+(uf=1)*20+(zz=1)*175-(fa*3)-19*sin(ag*~/180)*m)
  250 ifz2=1thenuf=1:z2=0
  251 ifz1=1thenzz=1:z1=0
  252 as=as+int(10*tf/m)/10
  253 ifas<=1thenh=h-(t*22):as=1:sa=1
  260 hd=hd+int(cos(ag*~/180)*as+.5)
  280 ifabs(ag)>9thenl=(1/(abs(ag)-9)):goto302
  285 ifsa=1thenas=as+int(10*tf/m)/10:goto302
  300 l=1-(cos(ag*~/6))*as/150
  302 ifas<92thensa=1:goto325
  304 ifas<110and(fa=0oru=1)thensa=1
  320 iffas>185andfa>0andas<210thenprintd1$"speed to great for flaps!{up}"
  322 ifas>177andfa>0andw<>1thenl=l*(fa*2)
  325 ifc=1orc=2thenfori=33649to33664:pokei,32:next
  326 ifc=2then360
  335 ifas>210andfa>0thenc=1
  340 ifc=1thenprintd1$"flaps & wings torn off!          {up}":w=1
  360 ifc=1orc=2thenag=ag-5
  365 ifsa=1thengosub6000:goto400
  380 l=l+(sin(fa*~/180))*(45*(1-sin(as*~/180)))
  400 h=h+int((as*sin(ag*~/180)+l*cos(ag*~/180)))
  420 gosub5200
  425 ifh>1900thenpokepv,32:goto644
  430 ifhd>33970then7105
  440 x=hd/900:y=((1950-h)/150)
  460 ifint(x)=int(x+.5)thenx=int(x):goto500
  480 x=int(x)+.5
  500 ifint(y)=int(y+.5)theny=int(y):goto540
  520 y=int(y)+.5
  540 qs=0:ifx=int(x)thenqs=qs+1
  560 ify=int(y)thenqs=qs+2
  580 pokepv,rc
  600 pv=32768+(int(x))+int(y)*40
  620 rc=peek(pv)
  625 ifh<=0then6100
  640 pokepv,sq(qs)
  644 ifuf=0thenu=1:poke33715,32:poke33717,32:poke33719,32
  645 ifuf=1thenu=-1:poke33715,81:poke33717,81:poke33719,81
  650 ifzz=0thenz=1:poke33723,32
  651 ifzz=1thenz=-1:poke33723,42
  652 ifas>250thenw=1:printd1$"plane has just lost wings!!{up}":c=2
  653 ifas>225andas<250thenprintd1$"danger!! air speed to high.{up}"
  660 goto240
 2000 rem*********inputs************
 2010 getr$:ifr$=""thenreturn
 2020 ifr$=">"thenef=1
 2030 ifr$="^"thenef=0
 2040 ifr$="<"thenef=-1
 2050 ifr$="u"thenuf=uf+u
 2060 ifasc(r$)<56andasc(r$)>47thenfa=5*val(r$)
 2065 ifr$="-"thenaf=-1
 2070 ifr$="+"thenaf=1
 2080 ifr$="="thenaf=0
 2090 ifr$="a"thenzz=zz+z
 2100 return
 5000 print"{down}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rght}end of"
 5010 print"{SHIFT--}air speed{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{rght}run. dist.   height"
 5020 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 5030 print"{SHIFT--}angle           {SHIFT--}"
 5040 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 5050 print"{SHIFT--}eng. revs       {SHIFT--}  flaps u/carr. a/b."
 5060 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 5100 return
 5200 as=int(as+.5)
 5201 ifh<6andh>-10thenh=0
 5202 printdn$:printtab(11)cl$as
 5205 printtab(20)"      {left}{left}{left}{left}{left}{left}"33965-hdtab(32)cl$h
 5210 printtab(11)"      {left}{left}{left}{left}{left}{left}"cl$ag+1
 5215 ifc=1orc=2thenprint"{down}{rght}{rvon} no engines!!!! ":goto5230
 5220 print"{down}"tab(11)"      {left}{left}{left}{left}{left}{left}"ep
 5230 printtab(21)cl$fa
 5235 fori=33728to33768:pokei,32:next
 5250 return
 6000 ag=ag-3-af
 6002 ifag>0thenag=int(ag/(xd+1))
 6005 h=int(h+as*(sin(ag*~/180))-9.5)
 6010 as=as+((ag<0)*3)
 6030 return
 6100 ifw=1then7100
 6110 ifhd<030000andhd>19000then7110
 6120 ifhd<=19000andhd>200then7120
 6125 ifhd<=19000then7125
 6130 ifas>150andhd>30000andhd<33965andfa>=15andu=-1andg>=-1andag<=4then7130
 6135 ifas<150andhd>30000andhd<33965andfa>=15andu=-1andg>=-1andag<=4then7135
 6140 ifhd>30000andhd<33965andu=1then7140
 6150 gosub8000:print"i think you could do better - try again!":goto13000
 7000 r=rnd(ti):ifr>.5then7103
 7100 gosub8000:print"{rvon}news headlines:{rvof} suicidal pilot heads"
 7102 print"{down}to the centre of the earth!":goto13000
 7103 gosub8000:print"{rvon}{swlc}{wht}{CTRL-W}{home} {dish}{wht}{CTRL-A}{CTRL-D}{CTRL-L}{ensh}{swlc}{wht}{home}:{rvof} suicidal maniac tries"
 7104 print"{down}to copy meteorite!!":goto13000
 7105 gosub8000:print"you've overshot the runway and you're"
 7106 print"{down}flight crew wish to resign.":goto13000
 7110 gosub8000:print"so sorry! i did'nt know you was blind!":goto13000
 7120 gosub8000:print"digging for oil are we???":goto13000
 7125 gosub8000:print"i suppose you think that's a very"
 7126 print"{down}cute landing in the middle of nowhere!":goto13000
 7130 gosub8000:print"it's a good job the tower was in"
 7131 print"{down}the way to slow you down--you came in"
 7132 print"{down}at"as"miles per hour!":goto13000
 7135 gosub8000:print"{down}{rvon}           congratulations             "
 7136 print"{down}you made it! (just).":goto13000
 7140 gosub8000:print"thank you for saving the use of the"
 7141 print"{down}undercarriage, but the bottom half of"
 7142 print"the plane seems to be missing!!":goto13000
 8000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:fori=1to400:print" ";:next
 8001 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:return
 10000 gosub12000
 10005 print"       by K.Bywater and B.Rai."
 10015 print"{down}{down}{rght}{rght}{rght}In this game you have to land an"
 10020 print"{down}aeroplane which you control from the"
 10025 print"{down}ground."
 10030 print"{down}{down}{rght}{rght}{rght}You can see the plane on a radar"
 10035 print"{down}screen which has a path plotted on it."
 10040 print"{down}The necessary instruments will appear"
 10045 print"{down}on the bottom half of the screen."
 10050 gosub11000
 10060 print"{down}{down}{down}{rght}{rght}{rght}The Controls"
 10065 print"   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 10070 print"The '+' key increases rate of climb."
 10075 print"The '-' key decreases rate of climb."
 10080 print"The '=' key maintains the rate of climb."
 10085 print"The '>' key increases the engine revs."
 10090 print"The '<' key decreases the engine revs."
 10095 print"The '^' key maintains the same engine   revs."
 10100 gosub11000
 10110 print"{down}{rght}{rght}{rght}The 'U' key lowers & raises the      undercarriage."
 10115 print"{down}{down}{rght}{rght}{rght}The 'A' key operates the airbrakes."
 10117 print"{down}{down}{rght}{rght}{rght}The keys '0,1,2,3,4,5,6,7' operates"
 10118 print"the flaps at five degree intervals."
 10120 gosub11000
 10290 print"{down}{rght}{rght}{rght}General information"
 10295 print"   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 10300 print"{down}{rght}{rght}{rght}To play this game it would be best if";
 10305 print"you know that to land the aeroplane at"
 10310 print"least 15 degrees of flap should be on"
 10315 print"at touchdown. Do not put any flaps on"
 10320 print"if you are doing more than 185mph."
 10321 print"{down}{rght}{rght}{rght}Landing speed is a maximum of 150 mph"
 10325 print"{rght}{rght}{rght}Stalling speeds, that's when you fall";
 10326 print"out of the sky, are 92 mph with flaps &"
 10330 print"landing gear down, otherwise stalling"
 10335 print"speed is 110 mph."
 10350 gosub11000
 10380 print"{down}{down}{down}{rght}{rght}{rght}If you want to go over these"
 10382 fori=1to11:getr$:next
 10385 print"{down}{down}instructions again then press 'A', if"
 10386 print"{down}{down}not then press any other key."
 10390 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}HAPPY{$a0}LANDINGS!":fori=1to500:getr$:next
 10391 getr$:ifr$=""then10391
 10392 ifr$="a"then10000
 10395 print"{clr}":poke59468,12:return
 11000 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press space-bar"
 11005 fori=1to1000:getr$:next
 11010 wait59410,4,4
 12000 poke59468,14:print"{clr}           {CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
 12005 print"           {rvon}{CBM-K}AIRCRAFT{$a0}LANDING{rvof}{CBM-K}"
 12010 print"           {CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 12015 return
 13000 fori=1to2000:next:gosub8000:print"{down}press space-bar to continue."
 13010 wait59410,4,4
 13015 fori=1to10:getr$:next
 13020 clr:qt=1:goto5
    5 poke59467,16:poke59466,15
    6 poke59464,0
   10 print"{clr}          air attack                              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
   20 print"{down}{rght}{rght}the object of this game is to "
   30 print" land an aircraft in new york."
   40 print"  to do this you must destroy "
   50 print" all the buildings first by bombing"
   60 print" them. to drop bombs,press the "
   70 print" {CBM-C}{rvon}space{rvof}{CBM-V}key."
   71 print" {down}the aircraft moves on an auto pilot"
   72 print" so you only have to drop bombs."
   73 print" the aircraft moves down each time"
   74 print" the end of the screen is reached."
   75 print" {down}when you land,the game  restarts,"
   76 print" with your score unaltered."
   80 print"{rght}{rght}{rght}{rght}{rght}{down}good luck!!{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}press a key to begin..."
   90 geta$:ifa$=""then90
  120 poke59468,12
  130 sh=48:sd=48:su=48
  140 y1$="{rvon}{CBM-*}{rvof}{CBM-I}{CBM-O}R"
  150 bk$="{left}{left}{left}{left}{left}"
  160 sp$="{rvof}  "
  170 print"{clr}"
  180 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  190 fora=33568to33607
  195 forb=atoa-(int(rnd(ti)*10))*40step-40
  200 pokeb,160
  205 nextb,a
  280 po=32773
  290 fori=1to3:print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";:next
  300 poke33746,sh:poke33747,sd:poke33748,su
  310 print"{home}";
  320 fori=1to40:t=ti+8:gosub330:gosub390:next:ll=ll+1:goto320
  330 printbk$;sp$;y1$;
  340 po=po+1:if(peek(po)and191)<>32then490
  350 ifpo=33607thenll=0:goto170
  360 ifb1thengosub410:ifb1thengosub410:return
  370 ifpeek(151)<>6thenreturn
  380 b1=1:i1=i+2+40*ll:p1=32808+i1:q1=50000:f1%=1+4*rnd(ti):return
  390 ifti>tthenreturn
  400 goto390
  410 poke59464,255*(p1-32768)/1000
  415 pokeq1,32:k1=peek(p1)and191:ifk1=32then450
  420 ifk1<>160thenf1%=0
  430 iff1%=0thengosub460:b1=0:poke59464,0:poke59459,255:poke59459,0:return
  440 f1%=f1%-1:ss=ss+1
  445 poke59464,255*(p1-32768)/1000
  446 poke59459,255:poke59459,0
  450 pokep1,46:q1=p1:p1=p1+40:return
  460 su=su+ss:ss=0:ifsu<58thenpoke33748,su:return
  470 su=su-10:poke33748,su:sd=sd+1:ifsd<58thenpoke33747,sd:return
  480 sd=sd-10:poke33747,sd:sh=sh+1:poke33746,sh:return
  490 poke59459,255:poke59459,0:print"{left}{left}{left}{left}{up}*{down}{left} {down}{left}*{up}***";
  491 pokeq1,32
  492 forttt=1to1000:next
  495 print"{left}{left}{left}{left}{up} {down}{left} {down}{left} {up}   "
  499 print"{home}{down}{down}{down}{down}{down}            {rvon}you've crashed!!"
  500 print"{down}         {rvon}press space to restart
  510 fori=1to200:next
  520 getx$:ifx$<>""then520
  530 getx$:ifx$=""then530
  535 ifx$=" "thenrun120
  540 poke59464,0:poke59466,254:poke59467,0
    0 clr:poke59468,12
    1 rem aliens! copyright (c) 1980 mike hamilton
    2 rem 3074 emerson st.
    3 rem palo alto, ca. 94306
    4 :
    5 rem cursor #16 jan 1980
    6 rem box 550, goleta, ca 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 8 1980
   90 pg$="aliens!":nm$="16":gosub62000
  100 ml=2958
  110 tb=59227:ifqv=2thentb=59127
  120 ifqv=2andpeek(59130)=158thentb=59130
  130 a=ml+8:n=qp:gosub200
  140 a=ml+11:n=tb:gosub200
  150 a=ml+16:n=qs:gosub200
  160 goto300
  200 h=int(n/256):l=n-256*h
  210 pokea,l:pokea+1,h:return
  300 print"press {rvon}return{rvof} to begin:"
  310 gett$:ift$=""then310
  320 sysml
  330 fori=1to500:nexti
  340 gett$:ift$<>""then340
  350 print"{clr}{down}{down}{down}{down}you zapped";peek(ml+3)+256*peek(ml+4);"aliens,"
  360 print"{down}using";peek(ml+5)+256*peek(ml+6);"shots."
  370 print"{down}{down}want to try again? ";:gosub60000
  380 ifleft$(in$,1)<>"n"then300
  390 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by mike hamilton{down}
 62020 gosub60500
 62030 print"{down}protect earth from invasion
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"you are responsible for defending earth
 62120 print"{down}from alien invaders.
 62130 print"{down}{down}move the gun left by pressing {rvon}4{rvof}, right
 62140 print"{down}by pressing {rvon}6{rvof}. fire by pressing {rvon}shift{rvof}.
 62150 gosub60200
    1 print"{clr}{down}{down}    **** {rvon}alkoholtest{rvof} ****{down}{down}{down}"
   10 print"was trinken sie am liebsten";:inpute$:fori=1tolen(e$)
   15 f$=f$+mid$(e$,i,1)+" ":next
   20 gosub500
   21 print"{clr}"
   25 print:print"wieviele einheiten alkohol haben sie"
   27 print"in der vergangenen stunde zu sich"
   30 print"genommen?"
   32 print:print"1 einheit = 1 schnaps (kognak,whisky)"
   34 print"  oder      1/4 l bier"
   36 print"  oder      1 sekt     o.ae."
   38 print:input"einheiten";d(1):ifd(1)>8thenprint:print"eingabe zu gross!":goto25
   40 print:print"wieviel ungefaehr haben sie in den"
   42 print"3 stunden vorher zu sich genommen?"
   44 print:print"vor 1 stunde";:inputd(2)
   46 print"vor 2 stunden";:inputd(3)
   48 print"vor 3 stunden";:inputd(4)
   50 ifd(2)+d(3)+d(4)>24thenprint:print"unglaublich!!":goto40
   52 print:print"danke!":fori=1to1000:next:print"{clr}"
   55 print:print"haben sie in den letzten drei stunden"
   57 print"eine groessere mahlzeit zu sich"
   60 print"genommen (ja oder nein)";:inputa$
   65 ifmid$(a$,1,1)="j"thene=30:goto70
   67 e=0
   70 print"{clr}":print:print"bitte schaetzen sie ihre trinkgewohn-"
   72 print"heiten auf einer skala von 0 - 10 ein."
   75 print:print"0 - abstinenzler, 10 - alkoholiker"
   77 inputs:ifs>10ors<0then70
   80 print"{clr}":print:print"wie schwer sind sie?":input"eingabe in kilo";l:l=2*l
   81 ifl<50orl>300then80
   85 print:print"vielen dank!"
   86 print"{clr}":print:print"wir machen mit einem gedaechtnistest"
   87 print"weiter!":fori=1to7500:next
   88 print"{clr}":print:print:print"dies ist der gedaechtnistest!"
   90 print:print"eine zahl erscheint oben auf dem"
   92 print"bildschirm und wandert in die mitte, wo"
   94 print"sie kurze zeit stehen bleibt. merken"
   96 print"sie sich die reihenfolge der ziffern"
   98 print"und geben sie sie einzeln und in der"
  100 print"richtigen reihenfolge ein, wenn ich"
  102 print"danach frage."
  104 fori=1to15000:next:print"{clr}"
  106 print:print:print"hier sind sie:"
  108 form=1to2000:next:forg=1to5:forw=1to6:n(w)=int(10*rnd(1)):next
  110 foru=1to10:print"{clr}";:fork=1tou:print"{down}";:next:printtab(10);
  112 fort1=1to6:printn(t1);:next:print"             ":forq1=1to10:next:next
  113 form=1to750:next
  115 print"{clr}":print:print:print"geben sie die 6 ziffern ein, die sie"
  117 print"gesehen haben!"
  120 print:print:forl2=1to6:print"ziffer";l2;:inputm(l2):ifn(l2)=m(l2)thent=t+1
  125 next
  127 forg1=1to1000:next
  130 nextg
  160 print"{clr}":print:print:print"nun der reaktionstest!"
  165 print:print"eine ziffer erscheint irgendwo auf dem"
  167 print"bildschirm und sie muessen versuchen"
  170 print"diese ziffer so schnell wie moeglich"
  172 print"zu druecken!":fork=1to12000:next
  174 print:print"viel glueck!":fori=1to2000:next
  177 forh=1to10:forx=1to(20+20*rnd(1)):d=int(10*rnd(1))
  180 print"{clr}";
  182 fory1=1toint(80*rnd(1)):print"{rght}";:next
  183 fory2=1toint(25*rnd(1)):print"{down}";:next
  185 printd
  196 geti$:q=q+1:ifi$=""then196
  202 ifval(i$)<>dthen196
  204 nexth
  206 v=30*d(1)+26*d(2)+22*d(3)+18*d(4)-e-4*s-l/5:v(1)=v+q:v(2)=v(1)/(t/30)
  210 ifd(1)+d(2)+d(3)+d(4)=0then230
  212 v(3)=v(2)/40
  216 ifv(3)>100thenv(3)=100
  218 print"{clr}":print:print"auf einer skala von 0 - 100
  220 print"0=stocknuechtern, 100=total betrunken"
  222 print"betraegt ihr testwert:";int(v(3))
  225 goto499
  230 ifq/(t/30)<600then300
  235 ifq/(t/30)>800then400
  240 print"{clr}":print:print"ihr zustand ist schwer einzuschaetzen!"
  245 print:print"ihre werte sind nicht optimal!"
  250 print:print"am besten sie wiederholen den test noch"
  255 print"einmal!":goto499
  300 print"{clr}":print:print"sie haben angegeben in den letzten"
  305 print"4 stunden keinen alkohol getrunken zu"
  310 print"haben. ihr erinnerungsvermoegen und"
  315 print"ihre reaktionszeiten scheinen normal!":goto499
  400 print"{clr}":print:print"obwohl sie keinen alkohol getrunken"
  405 print"haben, ist das ergebnis des tests"
  410 print"negativ. muedigkeit, medikamente oder"
  415 print"restalkohol koennten dies bewirken."
  420 print:print"bitte nicht fahren!":goto499
  499 forzi=1to4000:next:load"start",8
  500 print"{clr}"
  505 printtab(9);"       N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G}":printtab(9);"      N";
  506 print"                      {CBM-G}"
  510 printtab(9);"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N                       {CBM-G}"
  515 print"{up}";tab(17);f$
  520 printtab(9);"{CBM-G}                            {CBM-G}
  530 printtab(9);"{CBM-G}                            {CBM-G}
  540 printtab(9);"{rvon}                             "
  550 printtab(9);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvon}                       "
  560 printtab(9);"      {CBM-*}{rvon}                      "
  570 printtab(9);"       {CBM-*}{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  599 print:print:print
  600 print"{CBM-G}           {CBM-M}
  620 print"{CBM-G}           {CBM-M}
  640 print"{CBM-G}           {CBM-M}
  660 print"{CBM-G}           {CBM-M}
  680 print"{CBM-G}           {CBM-M}
  700 print"{CBM-G}           {CBM-M}
  720 print"{CBM-G}           {CBM-M}
  740 print"{CBM-G}           {CBM-M}
  760 print"{CBM-G}           {CBM-M}
  780 print"{CBM-G}           {CBM-M}
  800 print"M           N
  820 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1000 print"{home}{down}{down}{down}{down}{down}";tab(8);"{rvon}{SHIFT-POUND}"
 1010 fori=1to17:printtab(8);"{rvon} ":next
 1020 fori=1to600:next:print"{up}{CBM-*}{rvon}           {rvof}{SHIFT-POUND}"
 1030 fori=1to750:next:print"{up}{up}{rvon}             "
 1040 fori=1to750:next:print"{up}{up}{rvon}             "
 1050 fori=1to750:next:print"{up}{up}{rvon}             "
 1060 fori=1to750:next:print"{up}{up}{rvon}             "
 1065 fori=1to750:next
 1070 print"{up}{up}{up}{up}{up}";tab(15);"halt!! genug getrunken!"
 1072 fori=1to1500:next:print"{home}{down}{down}{down}{down}{down}";tab(9);"{CBM-G}                            {CBM-G}"
 1074 print"{up}";:fori=1to13:printtab(8);" ":next
 1075 fori=1to750:next
 1080 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"jetzt wird erst"
 1082 printtab(15);"einmal ein"
 1083 print
 1084 printtab(15);"a l k o h o l t e s t"
 1085 print
 1086 printtab(15);"gemacht!!"
 1100 fori=1to5000:next:return
 50000 rudolf schineis spitzwegstr 42          858 bayreuth tel 0921/68877
  100 rem *** initialiseren ***
  110 poke59490,30:poke59468,12:poke59467,16:poke59458,62
  120 dimc$(7),m(19),mu(19),md(19),cn(19)
  130 fori=0to19:readcn(i):next
  140 fori=0to19:readm(i):next
  150 fori=0to19:readmu(i),md(i):next
  160 data 202,217,222,237,243,256,263,276,284,286,293,295,304,306
  170 data313,315,328,332,348,352:rem +++ cocosnoten +++
  180 data107,114,115,113,107,114,115,113,107,114,115,113
  190 data107,114,115,113,107,114,115,113:rem+++ baviaan +++
  200 data237,6,0,2,237,4,0,1,237,4,0,1,237,6,0,1,199,4,0,1,211,4,0,1,211,4,0,1
  210 data237,4,0,1,237,4,251,4,0,1,237,6:rem +++ muziek +++
  220 c$(1)="{rght}  {rvon}{SHIFT-POUND} {CBM-@}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-@} {CBM-*}{rvof}"
  230 c$(2)="{rght} {rvon}{SHIFT-POUND} N M{CBM-*}{SHIFT-POUND}N M {CBM-*}{rvof}"
  240 c$(3)="{rght}{rvon}{SHIFT-POUND}NNNMMMNNNMMM{CBM-*}{rvof}"
  250 c$(4)="{rght}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}N{CBM-T} {CBM-G}{CBM-M} {CBM-T}M{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}"
  260 c$(5)="{rght}  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}NNMM{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}"
  270 c$(6)="{rght}  {SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND} {CBM-*}{CBM-*}{$a0}{CBM-*}"
  280 cc$="{rvon}V{rvof}{down}{left}":fori=1to13:c$(7)=c$(7)+cc$:next
  290 aa$="{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  300 a2$="   WW     {rvon}{SHIFT-POUND}{rvof} "+aa$+"{rvon}QQ{rvof}{CBM-I}{rvon}{$a0}{$a0}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}{$a0}"+aa$+"{CBM-I}{CBM-I}{CBM-I}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}{$a0}{$a0}"
  310 dd$=" {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-T}   WW{$a0}{rvon}QQ{rvof}"+aa$+" {CBM-*}{rvon}{CBM-*}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{$a0}{$a0}{$a0}{rvof}{rvon}{CBM-I}{rvof}{CBM-Y}"+aa$+"  {CBM-*}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}{CBM-I}{CBM-P}{CBM-@}"
  320 a$="{rvon}QQ{rvof}{$a0}WW{$a0}{$a0}{$a0}{CBM-T}{CBM-*}{rvon}{CBM-*}{rvof}{$a0}"+aa$+"{CBM-Y}{CBM-U}{rvon}{$a0}{$a0}{$a0}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}{$a0}"+aa$+"{CBM-@}{CBM-P}{CBM-I}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}{$a0}{$a0}"
  330 d1$=" {rvon}{CBM-*}{rvof}     WW{$a0}{$a0}{$a0}"+aa$+" {CBM-*}{rvon}{CBM-*}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{$a0}{$a0}{rvof}{CBM-I}{rvon}QQ{rvof}"+aa$+"  {CBM-*}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}{CBM-I}{CBM-I}{CBM-I}"
  340 a1$="            "+aa$+"            "+aa$+"            "
  350 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  360 c$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  370 bl$="{home}{rvon}                                        {rvof}"
  380 aa=32768:pp=0
  390 print"{clr}";:goto1170
  400 p=0:n=5:za=32:w=0
  410 rem*** decor ***
  420 print"{clr}{rvon}        *** alligator moeras ***        {rvof}"
  430 fori=aa+40toaa+960step40:pokei,102:pokei+39,102:next
  440 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}"
  450 print"{home}{down}{down}";:fori=1to6:printtab(2)c$(i)tab(22)c$(i):next
  460 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(10)c$(7):print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(30)c$(7)
  470 fori=0to19:pokeaa+cn(i),81:nexti
  480 fori=1to100:next
  490 rem *** start spel ***
  500 printbl$:gosub610
  510 x=int(37*rnd(1)+1):y1=-6:y=14
  520 a=x+y*40+32768:ifpeek(a)=214then510
  530 a1=a:fori=1to4:forj=1to4:pokea,m(j+4):hh=69:gosub660:nextj,i
  540 gosub680:y=y1*y1/4:y=int(y+4):a=x+y*40+32768
  550 y1=y1+.50:ify1>9then730
  560 ifpeek(a)=81thenp=p+1:hh=188:gosub660:pokea,32:ifp=20thengosub1040
  570 ifpeek(a)=230theny1=-7:hh=237:pokea,32:a=a-40
  580 pokea1,za:za=peek(a):pokea,m(y1+10):a1=a
  590 ifhh=237thengosub660:hh=0
  600 gosub610:goto540
  610 print"{home}{rvon}   score"p*10+w*200tab(15)"beste score"pptab(32)"apen"n:return
  620 rem*** muziek subroutines ***
  630 poke59466,15
  640 fori=0to19:forj=0tomd(j):poke59464,mu(i):next:next
  650 poke59464,0:return
  660 poke59466,85
  670 forg=1to2:poke59464,hh:next:goto650
  680 rem*** besturing aap ***
  690 getv$:v=val(v$):ifv=0thenv=5
  700 x=x+v-5:ifx>38thenx=38
  710 ifx<1thenx=1
  720 return
  730 pokea1,32:pokea,81:n=n-1
  740 ifx>21then960
  750 gosub1050:fori=26tox+1step-2:printb$;left$(c$,i);a$;
  760 forg=1to10:poke59466,15:poke59464,237:next:poke59464,0
  770 printb$;left$(c$,i-1);a2$;
  780 forg=1to5:poke59466,51:poke59464,237:next:poke59464,0
  790 nexti:gosub1130:printb$;left$(c$,x);a1$;:ifn>0thengoto510
  800 fori=1to2000:next
  810 print"{clr}{down}{down}{down}{down}{down}":z$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":printz$" {rvon}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{rvof}{$a0}{rvon}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{rvof}{$a0}{rvon}{$a0}{CBM-*}{rvof}{$a0}{$a0}{rvon}{SHIFT-POUND}{$a0}{rvof} {rvon}{$a0}{$a0} {$a0}"
  820 printz$" {rvon} {rvof}    {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{$a0}{rvof}{$a0}{rvon}{CBM-K}{rvof}"
  830 printz$" {rvon} {rvof}{$a0}{CBM-I}{CBM-I}{$a0}{rvon} {rvof}{CBM-I}{CBM-I}{rvon} {rvof}{$a0}{rvon} {rvof}{$a0}{CBM-*}{SHIFT-POUND}{$a0}{rvon} {rvof}{$a0}{rvon}{CBM-K}  {rvof}"
  840 printz$" {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}    {rvon} {rvof} {rvon}{CBM-K}{rvof}"
  850 printz$" {CBM-*}{rvon}  {rvof}{SHIFT-POUND} {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}    {rvon} {rvof} {rvon}    {rvof}"
  860 print:printz$" {rvon}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{rvof}{$a0}{rvon} {rvof}  {rvon} {rvof} {rvon}    {rvof} {rvon}     {CBM-*}"
  870 printz$" {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof} {rvon}{CBM-K}{rvof}    {rvon}{CBM-K}{rvof}    {rvon} {rvof}"
  880 printz$" {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof} {rvon}{CBM-K}  {rvof}  {rvon}{CBM-K}{$a0}{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}"
  890 printz$" {rvon} {rvof}  {rvon} {rvof} {CBM-*}{$a0}{$a0}{SHIFT-POUND}{$a0}{rvon}{CBM-K}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{CBM-K}{rvof} {CBM-*}{rvon}{CBM-*}{rvof}"
  900 printz$" {CBM-*}{rvon}{$a0}{$a0}{rvof}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{SHIFT-POUND}{$a0}{$a0}{rvon}{$a0}{$a0}{$a0}{$a0}{rvof}{$a0}{rvon}{$a0}{$a0}{rvof}{$a0}{CBM-*}{rvon}  {rvof}"
  910 p1=p*10+w*200
  920 ifpp<p1thenpp=p1
  930 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}nog een spelletje ? (j/n) ";:gosub1300
  940 printr$:ifr$="j"then400
  950 poke59464,0:poke59466,0:poke59467,0:goto1460
  960 gosub1090
  970 fori=1tox-12step2:printb$;:printleft$(c$,i)dd$;
  980 forg=1to5:poke59466,51:poke59464,211:nextg:poke59464,0
  990 printb$;left$(c$,i+1);d1$;
 1000 forg=1to5:poke59466,15:poke59464,211:nextg:poke59464,0
 1010 nexti:gosub1150
 1020 printb$;left$(c$,x-11);a1$;:ifn>0thengoto510
 1030 goto810
 1040 pokea1,32:fori=0to19:pokeaa+cn(i),81:nexti:w=w+1:p=0:a=0:a1=0:y1=-6:return
 1050 fork=1to6:pokea,m(k)
 1060 forg=1to10:poke59466,85:poke59464,88:next:poke59464,0
 1070 printb$;left$(c$,x)"{up}help!!";
 1080 pokea,m(k+1):printb$;left$(c$,x)"{up}      ";:next:return
 1090 fork=1to6:pokea,m(k)
 1100 forg=1to10:poke59466,85:poke59464,88:next:poke59464,0
 1110 printb$;left$(c$,x-5)"{up}help!!";
 1120 pokea,m(k+1):printb$;left$(c$,x-5)"{up}      ";:next:return
 1130 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";left$(c$,x)"slurp";
 1140 gosub630:print"{left}{left}{left}{left}{left}     ";:return
 1150 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";left$(c$,x-3)"slurp";
 1160 gosub630:print"{left}{left}{left}{left}{left}     ";:return
 1170 print"{clr}{down}"tab(8)"***{rvon} alligator moeras {rvof}***"
 1180 printtab(8)"ZZZZZZZZZZZZZZZZZZZZZZZZ"
 1190 print"{down}{down}in dit spel moet je met vijf apen zoveel"
 1200 print"mogelijk cocosnoten proberen te plukken."
 1210 print"maar...pas op voor het moerasdek dat"
 1220 print"{down}geleidelijk aan opdroogt.
 1230 print"{down}je kan de apen besturen door de toetsen"
 1240 print"{down}van 1-9 in te drukken.
 1250 print"{down}de toetsen 1-4 om naar links te bewegen"
 1260 print"{down}de toetsen 6-9 om naar rechts te bewegen"
 1270 print"{down}   {rvon}druk een toets in om te beginnen"
 1280 getd$:ifd$=""then1280
 1290 goto400
 1300 fori=1to10:print"{SHIFT--}{left}";:getr$:ifr$="j"orr$="n"then1390
 1310 next
 1320 fori=1to10:print"N{left}";:getr$:ifr$="j"orr$="n"then1390
 1330 next
 1340 fori=1to10:print"{SHIFT-*}{left}";:getr$:ifr$="j"orr$="n"then1390
 1350 next
 1360 fori=1to10:print"M{left}";:getr$:ifr$="j"orr$="n"then1390
 1370 next
 1380 goto1300
 1390 return
 1400 :
 1410 :    programma : alligator swamp
 1420 :    by n.webster voor mz 80
 1430 :
 1440 :    bewerkt voor pet/cbm
 1450 :    door jos leppens
 1460 ifpeek(45058)=180then:$x,peek(45051)-48,"inhoud
    2 gosub3300
    3 poke59468,12
    5 j=50
    6 r=int((36)*rnd(ti))+1
   10 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   20 x=32769:m=1:t=60
   30 ifx<32769thenm=1
   40 ifx>32806thenm=-1
   41 ifa$="@"ora$="="then43
   42 goto50
   43 ifm=1thenm=-1:goto50
   44 m=1
   50 x=x+m:pokex,83:pokex-1,32:pokex+1,32
   52 ifpeek(x+320)=160orpeek(x+320)=214thengoto1000
   53 ifpeek(x+640)=214thenk=x+600:goto1010
   54 ifff=0then60
   55 ifff=1thengosub304
   56 ifff=1then30
   60 tt=(j-h):t=t+1:ift<ttthen100
   65 n=int((3)*rnd(ti)):ifn=1then73
   66 poke0,20:poke1,20:sys(826)
   70 printtab(r)"{rvon}{SHIFT-POUND} {CBM-*}{down}{left}{left}{left}{rvof}ZZZ":goto80
   73 forn=1to10:poke0,20:poke1,20:sys(826):next
   75 printtab(r)"{rvon}{SHIFT-POUND}V{CBM-*}{down}{left}{left}{left}{rvof}{SHIFT-POUND}Z{CBM-*}"
   80 t=0:r=int((36)*rnd(ti))
  100 geta$
  110 ifa$=" "orb$="p"thenff=1:f=x+40:poke0,20:poke0,10:sys(826):gosub304
  120 goto30
  304 ifri=1orle=1then3000
  305 f=f+40
  306 geta$:ifa$="@"ora$="="then307
  307 goto310
  308 ifm=1thenm=-1:goto310
  309 m=1
  310 ifpeek(f)=160orpeek(f)=214thenh=h+1:goto500
  311 ifpeek(f)<>233then320
  312 pokef-40,93:pokef-41,77:pokef-1,68
  313 forq=0to80:next:pokef-40,32:pokef-41,32:pokef-1,32
  314 poke0,20:poke1,20:sys(826):d=1:ri=1:f=f-1:goto327
  320 ifpeek(f)<>223then327
  321 pokef-40,93:pokef-39,78:pokef+1,68
  322 forq=0to80:next:pokef-40,32:pokef-39,32:pokef+1,32
  325 poke0,20:poke0,20:sys(826):d=1:le=1:f=f+1
  327 iff>33728thenff=0:d=0:ri=0:le=0:pokef-40,32:return
  328 ifd=1thenreturn
  330 pokef,46:pokef-40,32
  340 return
  500 pokef=40,32:poke0,255:poke1,50:sys(826)
  501 pokef-40,32:pokef,32:pokef-1,32:pokef+1,32:pokef+39,32:pokef+41,32
  510 forq=0to1
  520 pokef,127:pokef+39,127:pokef+40,127
  525 pokef,224:pokef+39,224:pokef+40,224
  526 pokef-1,42:pokef+1,42
  530 pokef+41,127
  540 pokef,255:pokef+39,255:pokef+40,255
  545 pokef,102:pokef+39,102:pokef+40,102
  546 pokef-1,171:pokef+1,171
  547 pokef-1,32:pokef+1,32
  550 pokef+41,255
  552 pokef,32:pokef+39,32:pokef+40,32
  553 pokef+41,32
  560 next:ff=0
  570 iff=k-40thenpoke0,255:poke1,255:sys(826):goto1500
  580 d=0:ri=0:le=0:return
 1000 k=x+280
 1010 ifpeek(k)=83then1110
 1020 pokek,224
 1025 poke0,100:poke1,10:sys(826)
 1030 k=k-40:goto1010
 1100 poke0,100:poke1,10:sys(826)
 1110 pokek,211:pokek-80,32:pokek-40,224
 1115 pokek+39,78:pokek+41,77
 1116 pokek+39,32:pokek+41,32
 1120 k=k+40:ifpeek(k)=90thenf=k-40:gosub501
 1130 goto1100
 1500 forx=0to24
 1550 forz=0to20:next
 1600 print:poke0,50:poke1,50:sys(826)
 1700 next
 2000 ga=ga+1
 2001 ifb$="p"thenprint"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}i got "h"but i'm only your pet":goto2005
 2002 print"{clr}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}you destroyed"h"of the aliens"
 2005 ifh2<hthenh2=h:print:print"{rvon}{rght}{rght}{rght}{rght}{rght}it is the best score so far":goto2010
 2006 print:print"{rght}{rght}{rght}{rght}{rght}the best score is"h2
 2010 fora=0to10
 2020 geta$:next
 2024 print:print"{rght}{rght}{rght}{rght}{rght}to play again push any key"
 2025 print:print"{rght}{rght}{rght}after 30 seconds i will play alone"
 2026 ti$="000000"
 2027 ifti$="000030"thenb$="p":h=0:j=5:d=0:goto6
 2030 geta$:ifa$=""then2027
 2035 ifga=22thenrun5
 2040 j=50:b$="":h=0:d=0:ri=0:le=0:goto6
 3000 ifle=1thenk=41:goto3020
 3010 k=39
 3020 f=f+k:iff>33728thenpokef-k,32:ff=0:d=0:ri=0:le=0:return
 3025 ifpeek(f)<>32thenpokef-k,32:h=h+1:goto3040
 3030 pokef,46:pokef-k,32:return
 3040 ifpeek(f+1)=160orpeek(f+1)=214thenf=f+1:goto500
 3045 ifpeek(f)=160orpeek(f)=214then500
 3050 ifpeek(f-1)=160orpeek(f-1)=214thenf=f-1:goto500
 3060 ifpeek(f-41)=160orpeek(f-41)=214thenf=f-41:goto500
 3070 ifpeek(f-39)=160orpeek(f-39)=214thenf=f-39:goto500
 3080 ifpeek(f+41)=160orpeek(f+41)=214thenf=f+41:goto500
 3300 poke59459,255
 3310 forhb=826to870
 3320 readb:pokehb,b:nexthb
 3330 data165,1,162,215,142,64,232,170,202,208,253,240,0,240,0,240,0,240,0,240
 3340 data0,162,233,142,64,234,170,202,208,253,198,00,208,5,234,234,234,234
 3350 data96,240,00,240,00,208,213
 3500 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}alien attack"
 3520 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by peter wright"
 3540 forx=0to2000:next
 4000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}do you need instructions ?"
 4010 geta$:ifa$=""then4010
 4020 ifa$="n"thenreturn
 4030 print"{clr}you are the {CBM-V}S{CBM-C} at the top of the screen"
 4040 print"the object of the game is,
 4045 print"{down}to destroy the aliens shown below."
 4050 print"{down}1.has short range weapons and 2.long"
 4060 print"{down}no 1.{rvon}{SHIFT-POUND} {CBM-*}{rvof}      no 2.{rvon}{SHIFT-POUND}V{CBM-*}{rvof}
 4070 print"     ZZZ           {SHIFT-POUND}Z{CBM-*}
 4080 print"they will apear at the bottom."
 4090 print"{down}if they are not destroyed they will,"
 4100 print"{down}move up and destroy you."
 4110 print"{down}to fire at them press the{CBM-C}space{CBM-V}key."
 4120 print"{down}your shot must hit dead centre,"
 4130 print"{down}if it does not it will bounce off."
 4140 print"{down}{rvon}       push any key to continue         "
 4150 geta$:ifa$=""then4150
 4160 print"{clr}you may reverse the direction,"
 4170 print"{down}you are moving at any time,"
 4180 print"{down}with the {CBM-V}={CBM-C} key or the {CBM-V}@{CBM-C} key."
 4190 print"{down}the number you destroy is shown at,"
 4200 print"{down}the end of each game."
 4201 print"{down}the aliens are slow to advance at first,"
 4202 print"but the more you destroy the faster,"
 4203 print"{down}they will move."
 4204 print"{down}don't let them get to close because,"
 4205 print"{down}when they fire they never miss."
 4207 print"{down}plug in a sound box if you have one!"
 4210 print"{down}{rvon}         push any key to play           "
 4220 geta$:ifa$=""then4220
 4230 return
    0 clr:pg$="ambush!":nm$="23":goto62000
    1 " phil bayman
    2 " 1025 esplanade
    3 " new york, ny 10461
    4 "
    5 " cursor #23, dec 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 9 dec 80
  100 r$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":f$="XXXX":e=asc("{CBM-+}")-64
  110 poke59467,16:af=59464:aw=59466:pokeaf,0
  120 dimbx(6,8):print"{clr}"
  130 cr$=chr$(13)
  150 t(1)=240:t(2)=100:d$(1)="left ":d$(2)="right":i$(1)="QQQQ":i$(2)="ZZZZ"
  160 for i=1to2:print"{down}who's player";i;"{left}? ";:gosub60000
  170 na$(i)=in$:nexti
  220 bl$="                                       "
  500 for r=0 to 6:for c=1 to 7:bx(r,c)=0:next c:bx(r,0)=-1:bx(r,8)=-1:next r
  510 for c=0 to 8:bx(0,c)=-1:bx(6,c)=-1:next c
  520 print"{clr}{down}{down}{down}":fork=0to4
  530 printtab(3);:fori=1to7:printf$;" ";:next:print
  540 printtab(3);:fori=1to7
  543 printf$"{left}{left}{left}";right$(str$(k*7+i),2);"{rght}{rght}";:nexti:print
  550 printtab(3);:fori=1to7:printf$;" ";:next:print
  560 ifk<>4thenprint:next:next
  620 for i=1 to 2:bn=4:ifi=2thenbn=32
  630 gosub1180:r(i)=rd:c(i)=cd:gosub1010:gosub1160:bx(rd,cd)=1:next i:i=1
  635 i=int(rnd(1)*2)+1
  640 print"{home}{down}{down}":gosub1270
  645 print"{home}";bl$
  650 print"{home}general "na$(i)" (";left$(i$(i),1);")"
  660 print"{home}{down}{down}"bl$
  670 pr$="move into which forest? ":gosub1500
  680 ifd<0then1440
  710 ifd<>1thengosub1380:goto670
  720 bx(r(i),c(i))=0:bx(rd,cd)=1
  740 gosub1010:gosub1160:gosub1020:pokeaw,15:pokeaf,t(i):gosub1090:pokeaf,0
  750 pr$="bomb which forest? ":gosub1500
  760 ifd<0then1440
  840 bx(rd,cd)=-1:rh=r(i):ch=c(i):c(i)=cd:r(i)=rd
  850 printleft$(r$,4*r(i)+1);tab(5*cd-2);:gosub1170
  860 forl=10to255step10:poke59464,l:next:poke59464,0:r(i)=rh:c(i)=ch
  870 ii=1:gosub1280:iff>0then900
  880 ii=2:gosub1280:iff>0then900
  890 i=3-i:print"{home}{down}{down}":gosub1270:goto645
  900 print"{home}"bl$:printbl$:printbl$
  905 iff=3then920
  910 print"{home}general "na$(f);" is trapped!!!
  915 print"{down}victory for general "na$(3-f)"!!!":gosub1390:gosub1110:goto950
  920 print"{home}{down}both generals have been trapped!":gosub1390
  950 print"{home}";bl$:print"{home}want to play again? ";:gosub60000
  960 if left$(in$,1)<>"n"then1000
  970 goto1440
  980 ifa$="n"then1440
  990 goto950 
 1000 h$=na$(2):na$(2)=na$(1):na$(1)=h$:h$=i$(2):i$(2)=i$(1):i$(1)=h$:goto500
 1010 printleft$(r$,4*rd+1);tab(5*cd-2);:return
 1020 printleft$(r$,4*r(i)+1);
 1025 b$=str$(7*r(i)+c(i)-7)
 1030 printtab(5*c(i)-2);:printf$"{down}{left}{left}{left}{left}"f$"{down}{left}{left}{left}{left}"f$"{up}{left}{left}{left}";right$(b$,2)
 1060 r(i)=rd:c(i)=cd
 1070 return
 1080 fori=1to14:readm%(i),tm%(i):next
 1090 forkt=1to100:next:return
 1100 forkt=1to600:next:return
 1110 forkt=1to2000:next:return
 1120 forkt=1to3000:next:return
 1160 print" ";left$(i$(i),2);" {left}{left}{left}{left}{down}";i$(i);"{left}{left}{left}{left}{down} ";left$(i$(i),2);" ":return
 1170 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":return
 1180 bn=bn-1:rd=int(bn/7):cd=bn-rd*7+1:rd=rd+1:return
 1210 f=1:ifabs(rd-r(i))>1orabs(cd-c(i))>1thenf=0
 1220 return
 1270 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":return
 1280 f=0:forii=1to2:su=0
 1290 for r=r(ii)-1 to r(ii)+1
 1300 for c=c(ii)-1 to c(ii)+1
 1310 su=su-(bx(r,c)<>0)
 1320 next c,r
 1330 f=f-(su=9)*ii:nextii
 1340 return
 1380 fork=155to255:pokeaf,k:next:pokeaf,0:return
 1390 pokeaw,15:forkt=1to10:forq=255to15step-3:pokeaf,q:next:pokeaf,0:next:return
 1440 poke59467,0:pokeaw,0:pokeaf,0:print"{clr}{down}{down}":end
 1490 gosub1380
 1500 print"{home}{down}{down}";bl$;"{up}":printpr$;:gosub60000
 1505 if left$(in$,1)="q"thend=-1:return
 1510 bn=val(in$):if bn<1 or bn>35then 1490
 1520 gosub1180:if bx(rd,cd)<>0 then 1490
 1530 dv=abs(r(i)-rd):dh=abs(c(i)-cd)
 1540 if dv=dh or dv=0 then d=dh:return
 1550 if dh=0 then d=dv:return
 1560 goto1490
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by phil bayman
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}isolate your enemy
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:cr$=chr$(13):goto100
   60 dimp(50):input"word";w$:n=len(w$)
  100 i=n-1:wd$="**"+w$
  110 ifi<0thenend
  120 p(i)=p(i)+1:ifp(i)>n-i-1thenp(i)=0:i=i-1:goto110
  140 ag$="":fori=0ton-1:ag$=ag$+mid$(wd$,p(i)+3,1)
  150 wd$=left$(wd$,p(i)+2)+mid$(wd$,p(i)+4):next:printag$,:goto100
  100 print "anagram/jumble      jim butterfield":print
  110 dim a(12),c(12),d(12),p(12)
  120 input "enter anagram";a$
  130 a=len(a$)
  140 f=0:b=0:for j=1 to a
  150 a1=asc(mid$(a$,j))
  160 if a1=32 then f=1:goto 190
  170 if a1<65 or a1>90 then print "alphabetics only!":goto 120
  180 b=b+1:a(b)=a1
  190 next j
  200 if b>10 then print "too big!":goto 120
  210 if f=1 then print "(spaces ignored)"
  220 print
  230 p$=left$("------------",b)
  240 if b<5 goto 310
  250 input "are any letters known  n{left}{left}{left}";x$
  260 if left$(x$,1)="n" goto 310
  270 print "enter known positions, using dashes.."
  280 print "e.g., -";chr$(a(2));"-";chr$(a(1));left$(p$,b-4)
  290 input p$
  300 if len(p$)<>b then print "wrong length!":goto 220
  310 for j=1 to b
  320 p=asc(mid$(p$,j))
  330 if p=45 then p=0:goto 380
  340 for k=1 to b
  350 if a(k)=p then a(k)=0:goto 380
  360 next k
  370 print "character '";chr$(p);"' not found":goto 130
  380 p(j)=p
  390 next j
  400 c=0
  410 for j=1 to b
  420 j1=j
  430 a1=a(j)
  440 if a1=0 goto 510
  450 if c=0 goto 490
  460 for k=1 to j-1
  470 if a(k)=a1 then j1=k:goto 490
  480 next k
  490 c=c+1
  500 c(c)=j1
  510 next j
  520 f=0
  530 for j=1 to c-1
  540 if c(j+1)<c(j) then f=c(j):c(j)=c(j+1):c(j+1)=f
  550 next j
  560 if f>0 goto 520
  570 print
  580 print "{left}";:l=pos(0)+1:print:gosub 940
  590 input "output to printer  n{left}{left}{left}";x$
  600 d=3:if x$="y" or x$="yes" then d=4:l=80
  610 open 4,d
  620 l0=int(l/(b+1))
  630 print "press any key to pause output":get x$,x$,x$,x$
  640 print
  650 l9=32
  660 k=0
  670 for j=1 to b
  680 p=p(j)
  690 if p(j)>0 then print#4,chr$(p(j));:goto 710
  700 k=k+1:print#4,chr$(a(c(k)));
  710 next j
  720 l2=l2+1:if l2<l0 goto 760
  730 get x$:if x$="" goto 750
  740 get x$:if x$="" goto 740
  750 l2=0:l9=13
  760 print#4,chr$(l9);:l9=32
  770 for j=c-1 to 1 step -1
  780 d(j+1)=c(j+1)
  790 if c(j)<c(j+1) goto 840
  800 next j
  810 if l2>0 then print#4
  820 close 4
  830 end
  840 k=j
  850 x=c(k)
  860 for j=c to k+1 step -1
  870 if x>=c(j) then next j
  880 c(k)=c(j):c(j)=x
  890 j=c+1
  900 k=k+1:j=j-1:if j<=k goto 660
  910 x=c(k):c(k)=c(j):c(j)=x
  920 goto 900
  930 rem:  calc permutations
  940 f=1:for j=1 to c:f=f*j:next j
  950 for j=1 to c-1
  960 l0=1:a1=c(j):if j=1 goto 1000
  970 for k=1 to j-1
  980 if c(k)=a1 goto 1030
  990 next k
 1000 for k=j+1 to c
 1010 if c(k)=a1 then l0=l0+1
 1020 next k
 1030 for k=1 to l0:f=f/k:next k
 1040 next j
 1050 print "there will be";f;"permutations"
 1060 return
    1 print"{clr}"tab(10)"{down}{down}***{rvon}android nim{rvof}***"
    2 printtab(18)"{down}by":printtab(14)"{down}don denis{down}{down}{down}"
    3 printtab(11)"toronto, canada":printtab(13)"july, 1979":forj=1to2e3:next
   10 rem animated from prg by butterfield
   20 rem c64 rechop jim butterfield apr87
   30 sf=64
   31 cl$="{home}                                        {home}"
   33 ln=214:cn=211:kb=198:rem (!!)
   35 def fne(x)=(a(p)ore)and(not(a(p)ande)):iq=.7
   36 dim b$(18)
   38 : fori=0to17
   39 : readb$(i)
   40 : nexti
   41 b$(18)="{left}{rvon} {rvof}{CBM-K}{CBM-K}{rvon}  {down}{left}{left}{left}{left}{left} {CBM-C}{rvof}{CBM-D} {rvon} {down}{left}{left}{left}{left}{left} {CBM-C}{rvof}{CBM-V}{CBM-D}{rvon} {down}{left}{left}{left}{left}{left} {rvof}{CBM-K} {CBM-D}{rvon}{CBM-F}{down}{left}{left}{left}{left}{left} {rvof}{CBM-K} {rvon}{CBM-K}{CBM-K}{down}{left}{left}{left}{left}{left}"
   42 b$(18)=b$(18)+" {CBM-V}{CBM-K}{rvof}{CBM-D}{rvon} {down}{left}{left}{left}{left}{left}  {CBM-K}{CBM-K} {down}{left}{left}{left}{left}{left} {CBM-C}{CBM-V}{rvof}{CBM-I}{rvon} {left}{left}{left}{left}{left}{up}{up}{up}{up}{up}{up}{up}{rvof}     {down}{left}{left}{left}{left}{left}     "
   43 b$(18)=b$(18)+"{down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     "
   44 b$(18)=b$(18)+"{down}{left}{left}{left}{left}{left}     {up}"
   50 dim px(17),py(17),r(17),cm$(5),a(2),b(2)
   60 fori=0to17
   70 : read px(i),py(i)
   75 : r(i)=i
   80 : nexti
  105 dim m$(15)
  110 fori=0to15
  115 : read m$(i)
  120 : nexti
  121 fori=0to5
  122 : readcm$(i)
  123 : nexti
  130 gosub2000
  146 iq=.9
  150 rr=3:b(0)=10:b(1)=15:b(2)=18
  155 q$="do you need instructions?":gosub800
  160 ifa$="n"goto200
  165 q$="we are the executioners.\ pick one of us (a b or c)\ to destroy as man
  166 q$=q$+"y androids\ from each row as you wish.\ then it is our turn to play.
  167 q$=q$+"\ the one who gets the last droid wins.":gosub1500
  200 print"{clr}":gosub2000:for n=3to17
  205 : gosub1000
  210 : r(n)=n
  215 : nextn
  220 rr=18:a(0)=7:a(1)=5:a(2)=3
  225 tr=0:q$="do you want to play first?":gosub800
  228 m=0
  230 ifa$="n"goto245
  235 ifa$<>"y"goto225
  240 m=1-m
  245 ifrr=3goto500
  250 ifm=0goto400
  255 tr=0:q$="it is your turn.\ which row?":gosub800
  256 z=1
  260 p=asc(a$)-65
  265 ifp<0orp>2thengosub600:goto255
  270 ifa(p)=0thengosub650:goto255
  275 tr=p:q$="how many androids?":gosub800
  280 z=asc(a$)-48
  285 ifz<1orz>9thengosub600:goto255
  288 pokeln,py(p):pokecn,px(p):print"{up}{up}{rght}"z
  290 ifz>a(p)thengosub650:pokeln,py(p):pokecn,px(p):print"{up}{up}{rght}{rght} ":goto275
  300 sl=25:gosub700
  305 pokeln,py(p):pokecn,px(p):print"{up}{up}{rght}{rght} "
  310 goto240
  400 e=0:f=0
  405 forp=0to2
  410 : e=fne(0):ifa(p)>fthenf=a(p):i1=p
  415 : nextp
  420 forp=0to2
  425 : r=fne(0):ifr<=a(p)goto470
  430 : nextp:stop
  470 ifr=a(p)oriq>rnd(1)thenp=i1:r=a(p)-int(rnd(1)*(a(p)-1)+1)
  475 tr=p:z=a(p)-r:q$="we choose"+str$(z)+" android from row "+chr$(p+65)+".\"
  476 gosub1500
  478 sl=5:gosub700
  495 goto240
  500 q$=" win.\":ifm<>0thenq$=" lose.\"
  505 q$="you"+q$
  510 ifm=0thenq$=q$+" we will play better next time.\":iq=iq*iq*iq
  515 tr=0:gosub1500
  520 q$="would you like another game?":gosub800
  525 ifa$<>"n"goto200
  530 q$="thank you for playing.\\":gosub1500:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":end
  600 tr=0:r1=0:r2=0:r3=0:sl=17
  605 m1$=m$(9):m2$=m$(10):m3$=m$(11)
  610 gosub900
  615 q$="your answer does not make sense.\"
  616 ifz=0thenq$="can't you make up your mind?\"
  617 gosub1500
  620 return
  650 r1=p:r2=p:r3=p:sl=25
  655 m1$=m$(7):m2$=m$(8):m3$=m$(8)
  660 gosub900
  665 tr=p:q$="sorry, only"+str$(a(p))+" androids left.\"
  670 ifa(p)=0thenq$="i can't do it. i have none left.\"
  675 gosub1500
  680 return
  700 r1=p:r2=p:r3=p
  705 m1$=m$(6):m2$=m$(8):m3$=m$(8)
  710 gosub900
  712 ii=b(p)-a(p)
  715 fori=iitoii+z-1
  720 : pokeln,py(i):pokecn,px(i):print"{up}{rght}"b$(6)
  725 : nexti
  726 poke54296,9:poke54278,240:poke 54276,17
  727 forjj=4to80:poke54273,jj:nextjj:poke54296,0
  730 fori=1toz
  735 : gosub950
  740 : nexti
  788 return
  800 pokekb,0:qu$=q$:gosub1500
  805 t=ti+800
  810 m1$=m$(rnd(1)*16)
  815 m2$=m$(rnd(1)*16)
  820 m3$=m$(rnd(1)*16)
  825 r1=r(rnd(1)*rr)
  830 r2=r(rnd(1)*rr):ifr2=r1goto830
  835 r3=r(rnd(1)*rr):ifr3=r2orr3=r1goto835
  840 sl=int(25*rnd(1)+1)
  845 gosub900
  850 geta$:ifa$<>""thenprintcl$:return
  855 ifti>tthen q$=cm$(rnd(1)*6)+"\ "+qu$:gosub1500:goto805
  860 goto810
  900 forc=sl to1step-1
  910 : pokeln,py(r1):pokecn,px(r1):print"{up}{rght}"b$(asc(right$(m1$,c))-sf)
  920 : pokeln,py(r2):pokecn,px(r2):print"{up}{rght}"b$(asc(right$(m2$,c))-sf)
  930 : pokeln,py(r3):pokecn,px(r3):print"{up}{rght}"b$(asc(right$(m3$,c))-sf)
  940 : nextc
  945 return
  950 pokeln,py(r1):pokecn,px(r1):print"{up}{down}{rght}{rght}{rght}{rght}";
  952 poke54296,9:poke54278,240:poke 54276,129
  954 forjj=90to4step-7:poke54273,jj:nextjj:poke54296,0
  955 sp=px(r1):ep=px(b(p)-a(p))-5
  959 sp=px(r1):ep=px(b(p)-a(p))-5
  960 forj=sptoepstep2:print"  -=*{left}{left}{left}";:nextj
  965 ifint((ep-sp)/2)*2=ep-spthenprint"{left}";
  970 print"{up}{rght}"b$(18)
  974 rr=rr-1:a(p)=a(p)-1
  976 a=3
  977 onp+1goto990,985,980
  980 a=a+a(1)
  985 a=a+a(0)
  990 forj=ato16
  991 : r(j)=r(j+1)
  992 : nextj
  998 return
 1000 pokeln,py(n):pokecn,px(n):print"{up}{rght}"b$(1+7*rnd(1));
 1010 pokeln,py(n):pokecn,px(n):print"{up}{rght}"b$(0);
 1020 pokeln,py(n):pokecn,px(n):print"{up}{rght}"b$(9+5*rnd(1));
 1030 pokeln,py(n):pokecn,px(n):print"{up}{rght}"b$(14+4*rnd(1));
 1040 return
 1500 printcl$
 1505 ii=0:gosub1600
 1510 fori=1tolen(q$)
 1515 : ch$=mid$(q$,i,1)
 1517 n=n+1
 1520 : ifch$=" "thengosub1600
 1525 : ifch$="\"thenii=i:forj=1to600:nextj:printcl$:goto1550
 1530 : pokeln,1:pokecn,i-ii:print"{up}{left}"ch$
 1550 : nexti
 1560 return
 1600 pokeln,py(tr):pokecn,px(tr):print"{up}{rght}"b$(1);
 1605 poke54296,9:poke54278,240:poke 54276,17
 1610 print"{left}{left}{left}{CBM-K}{left}";:gosub1700
 1615 print"{rvon}{CBM-C}{left}";:gosub1700
 1620 print" {left}";:gosub1700
 1625 print"{CBM-C}":gosub1700
 1630 n=0
 1650 poke54296,0:return
 1700 forjj=1to3*rnd(1):poke54273,5*(2+tr*2+3*rnd(1)):nextjj
 1710 return
 2000 for n=0to2
 2010 : gosub1000
 2020 : print"{rvon}{up}{up}{left}{left}{left}*{down}{left}"chr$(n+65)
 2030 : nextn:return
 5030 data"{down}{down}{down}{rght}{rvon} {down}{left} {up}{CBM-D}{rvof}{down}{left}{CBM-K}{down}{left}{left}{CBM-K}{CBM-K}{down}{left}{left}{CBM-K}{CBM-K}{down}{left}{left}{left}{CBM-C}{CBM-V}{rvon}{CBM-I}{rvof}{left}{left}{left}{up}{up}{up}{up}{up}{up}{up}"
 5035 data" {CBM-K}{CBM-K}{down}{left}{left}{left}{rvon}{CBM-V}{CBM-F}{CBM-F}{rvof}{CBM-F}{down}{left}{left}{left}{left}{CBM-C}{rvon}{CBM-C}{CBM-D}{rvof} "
 5040 data" {CBM-F}{CBM-F}{down}{left}{left}{left}{rvon}{CBM-K}{CBM-B}{CBM-V}{rvof} {down}{left}{left}{left}{left}{rvon}{CBM-I} {CBM-D}{rvof}{CBM-V}"
 5045 data" {CBM-F}{CBM-F}{down}{left}{left}{left}{rvon}{CBM-V}  {rvof}{CBM-F}{down}{left}{left}{left}{left}{rvon}{CBM-K}{CBM-B}{CBM-V}{rvof} "
 5050 data" {rvon}{CBM-K}{CBM-K}{down}{left}{left}{left}{CBM-K}{CBM-D}{CBM-D}{rvof} {down}{left}{left}{left}{left}{rvof}{CBM-C}{rvon} {CBM-B}{rvof} "
 5055 data"  {CBM-K}{down}{left}{left}{left}{rvon}{CBM-K} {rvof}{CBM-V} {down}{left}{left}{left}{left}{CBM-C}{rvon} {CBM-D}{rvof} "
 5060 data"{rvon}{CBM-K}{CBM-K}{rvof} {down}{left}{left}{left}{CBM-C}{rvon}{CBM-D} {rvof} {down}{left}{left}{left}{left}{CBM-C}{rvon}{CBM-V}{CBM-D}{rvof} "
 5065 data" {CBM-K}  {down}{left}{left}{left}{left} {rvon}{CBM-F} {rvof} {down}{left}{left}{left}{left}{CBM-C}{rvon} {CBM-D}{rvof} "
 5070 data"{down}{rght}{rvon}  {rvof}{rght}{down}"
 5075 data"{down}{down}{down}{rvon}{CBM-B}{down}{left}{left}{rvof}{CBM-C}{CBM-F}{down}{left}{left} {CBM-C}"
 5080 data"{down}{down}{down}{rvon}{CBM-B}{down}{left}{left}{rvof} {CBM-K}{down}{left}{left} {CBM-C}"
 5085 data"{down}{down}{down}{rvon}{CBM-B}{down}{left}{left}{rvof} {CBM-K}{down}{left}{left} {CBM-V}"
 5090 data"{down}{down}{down}{rvon}{CBM-B}{down}{left}{left}{rvof} {CBM-K}{down}{left}{left}{CBM-C} "
 5100 data"{down}{down}{down}{rvon}{CBM-K}{down}{left}{CBM-K}{left}{left}{rvof} {down}{left} {CBM-V}"
 5105 data"{down}{down}{down}{rght}{rght}{rght}{CBM-F}{down}{left}{rvon}{CBM-B}{down}{left}{left}{CBM-D}{rvof} "
 5110 data"{down}{down}{down}{rght}{rght}{rght}{CBM-F}{down}{left}{CBM-K}{down}{left}{left}{rvon}{CBM-D}{rvof} "
 5115 data"{down}{down}{down}{rght}{rght}{rght}{CBM-F}{down}{left}{CBM-K}{down}{left}{left}{CBM-K}{CBM-V}"
 5120 data"{down}{down}{down}{rght}{rght}{rght}{CBM-F}{down}{left}{CBM-K}{down}{left}{left}{CBM-K}{CBM-C}"
 5230 data0,2,3,10,0,18,5,2,10,2,15,2,20,2,25,2,30,2,35,2,13,10,18,10,23,10,28
 5240 data10,33,10,21,18,26,18,31,18
 5330 data ahdeedabacabacabacaadhdab
 5335 data ahdafadafadedhdahaffhffaa
 5340 data ahancaaabkplqakpinhaccafg
 5345 data jokplqkpjokplqkpjoinfjhfm
 5350 data fgnkljljljljlfhffadeqnjnid
 5355 data ahafadafahadfdfdfdhdafgkn
 5360 data ahbbbahadeeedabacabacadei
 5365 data abbbahadeeedafadafadafaha
 5370 data ojjjppppqpqpkkkkkkkkkkkkk
 5137 data aaaaaaaahabbbaaaccahaaaha
 5380 data aaaaaaaaiiiiijkllliiiiiii
 5385 data aaaaaaaaniiiiopqqqnnnnnnn
 5390 data ahabadacafabadacfbdcfbdhd
 5395 data adedadedadedhafgfafgfafgf
 5400 data bdbdbdbdbacfmncacacacahca
 5405 data afggnqpqpqfahdepqndafglig
 5510 datacome on.,we haven't got all day!
 5520 datawe have better things to do.
 5530 datajust answer the question.,it isn't that difficult!
 5540 datathere is a limit to our patience!
    0 gosub7: l$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":d$=l$+"{down}":goto10
    2 dimsx%(mx%),sy%(mx%),st%(mx%),sl%(mx%),te%(mx%),pl%(mx%),re%(mx%),ho%(mx%)
    3 dimno%(mi%),ec%(mi%),ra%(mi%),tx%(mi%),ty%(mi%),mf%(mi%)
    4 dimpt%(np%),hx%(np%),hy%(np%),lt%(np%),fi%(8):dimsl$(10)
    5 dima$(9):fori=1to9:reada$(i):next
    6 dimb$(10):fori=0to9:readb$(i):next:return
    7 jc$="U{CBM-W}{$a0}andromeda conquest {CBM-Q}I":lj$="J{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}K"
    8 jn$=" {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
    9 return
   10 print"{clr}":fori=1to50:jj=int(rnd(1)*22+1):forj=1tojj:print"{down}";:next
   11 printtab(int(rnd(1)*38+1));"*{home}";:next
   12 print"{down}{down}{down}{down}":printtab(8);jn$:printtab(8);jc$:printtab(8);lj$
   13 printtab(13):printtab(13):print""
   14 ford=1to1000:nextd:print""     :print:print:gosub26010
   16 forx=1to1900:nextx
   20 print"{clr}";l$:print"number of players (max 4)?"
   21 gosub8189:np%=kb%:ifnp%<1ornp%>4then21
   22 mi%=np%*9:sz%=11+np%*4:mx%=np%*12:gosub2
   23 print"{clr}";l$:print"resume previous game from tape";:inputkb$
   24 ifleft$(kb$,1)="y"then9000
   25 print"{clr}":fori=1tonp%:gosub8151:print:print"player ";i;" what"
   26 print"lifeform do you choose?":gosub8189:pt%(i)=kb%
   27 next:print"{clr}";l$;
   28 d1=rnd(9999):d=int(rnd(-d1))
   29 print"{clr}";l$;"stand by for galaxy creation":gosub8234
   30 id=0
   41 id=id+1:print" ":ifid>np%thenid=1
   42 hd=(id-1)*9+1:print"{clr}";:rk%=0:sk%=0:tk%=0
   49 fori=1tomx%:ifho%(i)<>idthen52
   50 sk%=sk%+1:rk%=rk%+re%(i)
   52 next
   53 ifsk%=0then41
   54 ifsk%=10then8219
   55 fori=hdtohd+8:mf%(i)=0:ifno%(i)+ec%(i)+ra%(i)>0thentk%=tk%+1
   56 next:gosub25200 :gosub25000:gosub9998:gosub8164:gosub8223:gosub8126
   57 ifnn%+ne%+nr%<>0thengosub8040
   62 gosub8009:ft%=head:gosub8000:goto80
   66 gosub8205:print:printtab(23);"fleet";ft%-hd+1;"status":printtab(23)
   67 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":printtab(23);"nova ships: ";no%(ft%):printtab(23);
   68 print"echo ships: ";ec%(ft%):printtab(23);:print"rama ships: ";ra%(ft%)
   69 printtab(23);"x coord   : ";tx%(ft%):printtab(23);"y coord   : ";ty%(ft%)
   70 printtab(23);"war power : ";no%(ft%)*5+ra%(ft%)
   71 mv%=5:ifno%(ft%)<>0thenmv%=3
   72 ifec%(ft%)<>0thenmv%=2
   74 printtab(23);"max speed : ";mv%:return
   80 gosub8195:print"1: tactical":printtab(23);"2: strategic":printtab(23);
   81 print"3: attack":printtab(23);"4: probe":printtab(23);"5: navigation"
   82 printtab(23);"6: join fleets":printtab(23);"7: fleet control":printtab(23);
   83 print"8: end turn":printtab(23);"!: save game":printtab(23);"   on tape"
   91 gosub8189:ifkb%=8then41
   94 ifkb%>8then80
   96 onkb%gosub2000,3000,4000,5000,6000,7000,8000:gosub8009
   98 goto80
 2000 gosub8200:gosub8210:fori=1tomx%:ifho%(i)<>idthen2008
 2005 xr%=sx%(i):yr%=sy%(i):gosub8031:iffl%=1thenprint"*";i
 2007 goto2010
 2008 xr%=sx%(i):yr%=sy%(i):gosub8031:iffl%=1thenprint"*"
 2010 next:fori=1tomi%:ifi<hdori>hd+8then2018
 2013 xr%=tx%(i):yr%=ty%(i):gosub8031
 2014 iffl%=1thenprinta$(i-hd+1):ford=1to100:next
 2017 goto2020
 2018 xr%=tx%(i):yr%=ty%(i):gosub8031:iffl%=1thenprint"#"
 2020 next:xr%=tx%(ft%):yr%=ty%(ft%):gosub8031:printa$(ft%-hd+1):return
 3000 print"{clr}";:fori=1tomx%:print"{home}";:ifsx%(i)>39orsy%(i)>23then3004
 3001 ifho%(i)<>idthen3003
 3002 ford=1tosy%(i):print"{down}";:next:printtab(sx%(i));:print"x";i;"{home}";
 3003 ford=1tosy%(i):print"{down}";:next:printtab(sx%(i));:print"*"
 3004 next
 3005 fori=hdtohd+8:iftx%(i)<1ortx%(i)>39orty%(i)<1orty%(i)>23then3008
 3006 print"{home}";:ford=1toty%(i):print"{down}";:next:printtab(tx%(i)):printa$(i-hd+1)
 3008 next:print"{home}";l$;l$;"{up}";"press any key to return"
 3009 getkb$:ifkb$=""then3009
 3010 print"{clr}";:gosub9998:gosub66:return
 4000 gosub8195:ifmf%(ft%)<2thengoto4003
 4001 print"fleet";ft%-hd+1;"power":printtab(23)
 4002 print"already expended":ford=1to700:next:return
 4003 print"is target":printtab(23);"a system":printtab(23);"or alien fleet"
 4004 printtab(23):print"(s or a)?"
 4005 getkb$:ifkb$=""then4005
 4006 ifkb$="s"then4025
 4007 ifkb$<>"a"then return
 4008 gosub5008:ifaa%=0thenreturn
 4009 mf%(ft%)=mf%(ft%)+1:b=no%(ft%)*5+ra%(ft%):ifb<=1then return
 4010 el%=int(rnd(1)*(b/2)+1)
 4011 fl%=0:fori=1toaa%
 4012 ifra%(fi%(i))>0thenra%(fi%(i))=ra%(fi%(i))-1:el%=el%-1:fl%=1
 4013 ifel%<=0then4024
 4014 next:iffl%=1then4011
 4015 fl%=0:fori=1toaa%
 4016 ifno%(fi%(i))>0thenno%(fi%(i))=no%(fi%(i))-1:el%=el%-1:fl%=1
 4017 ifel%<=0then4024
 4018 next:iffl%=1then4011
 4019 fl%=0:fori=1toaa%
 4020 ifno%(fi%(i))>0thenno%(fi%(i))=no%(fi%(i))-1:el%=el%-1:fl%=1
 4021 ifel%<=0then4024
 4022 next:iffl%=1then4019
 4023 fori=1toaa%:ec%(fi%(i))=0:next
 4024 gosub5008:return
 4025 gosub5039:ifz%=0thenreturn
 4026 b=no%(ft%)*5+ra%(ft%):mf%(ft%)=mf%(ft%)+1:ifb<=1thenreturn
 4028 pl%(z%)=pl%(z%)-(int(rnd(1)*(b/2)+1)):ifpl%(z%)<-7thenpl%(z%)=-7
 4031 gosub5039:ifpl%(z%)+te%(z%)>0thenreturn
 4033 ifno%(ft%)<=0thenreturn
 4034 gosub8195:print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P":printtab(23);"nova ship ready{CBM-M}"
 4035 printtab(23);"{CBM-G}to destroy    {CBM-M}":printtab(23);"{CBM-G}system........{CBM-M}"
 4036 printtab(23);"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}":printtab(23);"destroy?"
 4038 getkb$:ifkb$=""then4038
 4039 ifkb$<>"y"thenreturn
 4043 sx%(z%)=300:sy%(z%)=300:ho%(z%)=0:gosub8195:print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P":printtab(23)
 4044 print"{CBM-G}system        {CBM-M}":printtab(23);"{CBM-G}destroyed     {CBM-M}":printtab(23)
 4045 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}":ford=1to1000:next:return
 5000 gosub8195:print"system probe":printtab(23):print"or alien fleet":printtab(23)
 5001 print"probe(s or a)?"
 5002 getkb$:ifkb$=""then5002
 5003 ifkb$="s"then5039
 5004 ifkb$<>"a"then return
 5008 aa%=0:nn%=0:ne%=0:nr%=0:fori=1tomi%:ifi>=hdandi<=hd+8then5018
 5012 iftx%(i)<>tx%(ft%)orty%(i)<>ty%(ft%)then5018
 5013 nn%=nn%+no%(i):ne%=ne%+ec%(i):nr%=nr%+ra%(i):aa%=aa%+1:fi%(aa%)=i
 5018 next
 5019 ifaa%=0thengosub8195:print"probe negative":ford=1to700:next:return
 5023 gosub8205:print"probe readout":printtab(23);"CCCCCCCCCCCCC":printtab(23)
 5024 print"player:";
 5028 fori=1toaa%:a=fi%(i):if a<10thenprint" 1";
 5029 ifa>9anda<19thenprint" 2";
 5030 ifa>18anda<28thenprint" 3";
 5031 ifa>27thenprint" 4";
 5032 next:print:printtab(23):print"fleets    : ";aa%:printtab(23):print"nova ships: ";
 5033 printnn%:printtab(23):print"echo ships: ";ne%:printtab(23):print"rama ships: ";nr%
 5034 printtab(23):print"war power : ";nn%*5+nr%:return
 5039 z%=0:fori=1tomx%:iftx%(ft%)=sx%(i)andty%(ft%)=sy%(i)thenz%=i:goto5048
 5043 next:gosub8195:print"probe negative":ford=1to700:next:return
 5048 gosub8205:print"probe readout":printtab(23):print"CCCCCCCCCCCCC":printtab(23)
 5049 print"system     :";z%:printtab(23):print"type       :";st%(z%)
 5050 gosub5100:onsl%(z%)+1gosub5054,5055,5056,5057,5058,5059,5060,5061,5062,5063
 5051 goto5064
 5054 sl$="none":return
 5055 sl$="reptilian":return
 5056 sl$="amphibian":return
 5057 sl$="mammalian":return
 5058 sl$="molluscan":return
 5059 sl$="humanoid":return
 5060 sl$="robotic":return
 5061 sl$="aquatic":return
 5062 sl$="insectoid":return
 5063 sl$="avian":return
 5064 print"life: ";sl$:printtab(23);"tech       :";te%(z%):printtab(23)
 5065 print"pliability :";:printpl%(z%):printtab(23);"defenses   :";
 5066 printte%(z%)+pl%(z%):printtab(23):print"resources  :";re%(z%):printtab(23)
 5067 print"colony cost:";abs(st%(z%)-pt%(id))+re%(z%):return
 5100 printtab(23):return
 6000 gosub8200:xf%=tx%(ft%):yf%=ty%(ft%):gosub8210:fori=1tomx%:xr%=sx%(i)
 6001 yr%=sy%(i):gosub8031:iffl%=1thenprintb$(st%(i))
 6006 next:fori=1tomi%:ifi>=hdandi<=hd+8then6012
 6009 xr%=tx%(i):yr%=ty%(i):gosub8031:iffl%=1thenprint"#"
 6011 goto6014
 6012 xr%=tx%(i):yr%=ty%(i):gosub8031:iffl%=1thenprint"="
 6014 next:xr%=tx%(ft%):yr%=ty%(ft%):gosub8031:iffl%=1thenprint"{rvon}+{rvof}"
 6017 gosub8195:ifmf%(ft%)=0thengoto6023
 6018 print"fleet";ft%-hd+1;"power":printtab(23);
 6019 print"is expended":ford=1to700:next:return
 6023 mf%(ft%)=1:fori=1tomv%:gosub8195:print"navigation":printtab(23)
 6024 print"control":print:printtab(23);"7 8 9":printtab(23);"4 5 6"
 6025 printtab(23);"1 2 3":print:printtab(23);"move ";i;"?"
 6026 getkb$:ifkb$=""then6026
 6027 ifkb$="5"then6048       *
 6028 ifkb$<"1"orkb$>"9"then6026
 6029 kb%=val(kb$)
 6036 aa%=0:bb%=0:ifkb%>6thenbb%=-1
 6038 ifkb%<4thenbb%=1
 6039 ifkb%=1orkb%=4orkb%=7thenaa%=-1
 6040 ifkb%=3orkb%=6orkb%=9thenaa%=1
 6041 print"{home}";:xr%=xf%:yr%=yf%:gosub8031:iffl%=1thenprint" "
 6044 xf%=xf%+aa%:yf%=yf%+bb%:xr%=xf%:yr%=yf%:gosub8031:iffl%=1thenprint"{rvon}+{rvof}"
 6047 next
 6048 tx%(ft%)=xf%:ty%(ft%)=yf%:gosub66:return
 7000 gosub8195:print"what two":printtab(23);
 7001 input"fleets";aa%,bb%:aa%=aa%+hd-1:bb%=bb%+hd-1
 7002 ifaa%<hdoraa%>hd+8orbb%<hdorbb%>hd+8thenprinttab(23):print"error":return
 7004 iftx%(aa%)=tx%(bb%)andty%(aa%)=ty%(bb%)thengoto7009
 7005 gosub8195:print"fleets not":printtab(23):print"at same ":printtab(23):print"location"
 7006 ford=1to700:next:return
 7009 ifaa%=bb%thenreturn
 7010 no%(aa%)=no%(aa%)+no%(bb%):no%(bb%)=0:ec%(aa%)=ec%(aa%)+ec%(bb%):ec%(bb%)=0
 7011 ra%(aa%)=ra%(aa%)+ra%(bb%):ra%(bb%)=0:tx%(bb%)=300:ty%(bb%)=300:ft%=aa%
 7013 ifmf%(aa%)<mf%(bb%)thenmf%(aa%)=mf%(bb%)
 7014 gosub66:return
 8000 gosub8195:print"fleet control":printtab(23):print"what fleet?":gosub8189
 8003 a=kb%+hd-1
 8005 ifno%(a)+ec%(a)+ra%(a)>0then8008
 8006 gosub8195:print"fleet ";kb%:printtab(23):print"does not respond"
 8007 ford=1to700:next:goto25100
 8008 ft%=a:gosub66:return
 8009 gosub8192:print"operational fleets":fori=hdtohd+8
 8010 ifno%(i)+ec%(i)+ra%(i)=0then8018
 8011 ifft%=ithenprint"{rvon}f:";i-hd+1;"n:";no%(i);"e:";ec%(i);"r:";ra%(i);"{rvof}";
 8012 ifft%=ithengoto8014
 8013 print"f:";i-hd+1;"n:";no%(i);"e:";ec%(i);"r:";ra%(i);
 8014 ifmf%(i)<1thenprint:goto8019
 8015 ifmf%(i)=1thenprint"+":goto8019
 8016 print"*":goto8019
 8018 tx%(i)=300:ty%(i)=300
 8019 next:return
 8022 fl%=0:a=hx%(id)-xr%:b=hy%(id)-yr%:if10-a>20or10-a<1thenreturn
 8024 if5-b>10or5-b<1thenreturn
 8025 print"{home}";:ford=1to(5-b):print:next:printtab(10-a):fl%=1:return
 8031 fl%=0:a=tx%(ft%)-xr%:b=ty%(ft%)-yr%:if10-a>20or10-a<1thenreturn
 8034 if5-b<1or5-b>10thenreturn
 8036 print"{home}";:ford=1to(5-b):print:next:printtab(10-a);:fl%=1:return
 8040 gosub8195:print"how many fleets":printtab(23);"do you want":printtab(23)
 8042 input"to create";a:ifa=0thenreturn
 8043 ifa<0ora>nn%+ne%+nr%then8040
 8044 fori=1toa
 8046 gosub8195:print"what system":printtab(23):print"will fleet ";i:printtab(23)
 8047 input"launch from";b:ifb>mx%then8046
 8048 ifho%(b)=idthen8050
 8049 gosub8195:print"no colony":printtab(23):print"in that system":ford=1to700:next:goto8046
 8050 z=0:forj=hdtohd+8:ifno%(j)+ec%(j)+ra%(j)=0thenz=j:goto8061
 8052 nextj
 8061 ifz<>0then8063
 8062 gosub8195:print"you have too":printtab(23):print"many fleets!":ford=1to700:next:return
 8063 tx%(z)=sx%(b):ty%(z)=sy%(b)
 8064 gosub8195:ifnn%=0thenb=0:goto8073
 8065 printnn%;"nova ships":printtab(23);"built-how many":printtab(23)
 8066 print"to fleet";i;:inputb:ifnn%-b<0thensl$="nova":gosub8217:goto8064
 8073 no%(z)=b:nn%=nn%-b:ifne%<=0thenb=0:goto8080                
 8074 gosub8195:printne%;"echo ships":printtab(23):print"built-how many"
 8075 printtab(23):print"to fleet";i;:inputb
 8076 ifne%-b<0thensl$="echo":gosub8217:goto8074
 8080 ec%(z)=b:ne%=ne%-b:ifnr%<=0thenb=0:goto8088
 8082 gosub8195:printnr%;"rama ships":printtab(23);"built-how many"
 8084 printtab(23)
 8087 print"to fleet";i;:inputb:ifnr%-b<0thensl$="rama":gosub8217:goto8082
 8088 ra%(z)=b:nr%=nr%-b:gosub8195:nexti:return
 8090 gosub8192:fl%=0:print"echo reports":print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":fori=hdtohd+8
 8091 ifec%(i)<=0then8098
 8093 iftx%(i)>100orty%(i)>100then8098
 8094 fora=1tomx%:ifho%(a)=idthen8097
 8095 iftx%(i)<>sx%(a)orty%(i)<>sy%(a)thengoto8097
 8096 print"system:";a;"r:";re%(a);"c:";abs(st%(a)-pt%(id))+re%(a)
 8097 next
 8098 next
 8099 gosub8195:print"what ";:input"system";a:ifa=0thenreturn
 8100 ifa<0ora>mx%then8099
 8101 fori=hdtohd+8:ifec%(i)>0andtx%(i)=sx%(a)andty%(i)=sy%(a)thengoto8109
 8102 next:gosub8195:print"no colony ship":printtab(23):print"in that system"
 8103 ford=1to700:next:goto8099
 8109 ifpl%(a)+te%(a)<1then8114
 8110 gosub8195:print"natives still":printtab(23)
 8111 print"defend that":printtab(23):print"system":ford=1to700:next:goto8099
 8114 kk%=abs(st%(a)-pt%(id))+re%(a):ifac%-kk%>=0then8118
 8116 gosub8183:goto8099
 8118 ho%(a)=id:te%(a)=6
 8119 sl%(a)=lt%(id):rk%=rk%+re%(a):sk%=sk%+1:gosub8223:ac%=ac%-kk%:return
 8126 gosub8172:gosub8195:ac%=rk%:print"allocate":printtab(23):print"resources"
 8127 printtab(23):print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":printtab(23):print"establish a":printtab(23)
 8128 print"colony?"
 8129 getkb$:ifkb$=""then8129
 8132 ifkb$="y"thengosub8090
 8133 gosub8164:gosub8195:print"allocate";ac%:printtab(23);"resources"
 8134 printtab(23);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":printtab(23):input"novas";nn%
 8135 printtab(23);:input"echos";ne%:printtab(23);
 8136 input"ramas";nr%:gosub8195:print"number of":printtab(23)
 8137 input"defenses";nd%:kk%=nn%*12+ne%*10+nr%*2+nd%
 8138 ifac%-kk%<0thengosub8183:goto8133
 8141 ac%=ac%-kk%:ifnd%=0thenreturn
 8142 printtab(23);:input"what system";s%:ifs%>mx%then8142
 8144 printtab(23):ifs%=0thenreturn
 8146 ifho%(s%)<>idthenprint"not colonized":ford=1to700:next:goto8142
 8148 pl%(s%)=pl%(s%)+nd%:gosub8164:return
 8151 print"{clr}":print"1:reptilian":print"2:amphibian":print"3:mammalian"
 8152 print"4:molluscan":print"5:humanoid":print"6:robotic":print"7:aquatic"
 8153 print"8:insectoid":print"9:avian":return
 8164 gosub8192:print"empire";id;"statistics"
 8168 fori=1tomx%
 8169 ifho%(i)=idthenprint"system:";i;"r:";re%(i);"d:";pl%(i)+te%(i)
 8170 next:return
 8172 gosub8205:print:printtab(23):print"resource costs":printtab(23)
 8173 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":printtab(23):print"nova ships: 12":printtab(23)
 8175 print"echo ships: 10":printtab(23):print"rama ships: 2":printtab(23)
 8178 print"1 defense : 1":printtab(23):print"colony:variable":return
 8183 gosub8195:print"not enough":printtab(23);"resources":ford=1to700
 8184 next:return
 8189 getkb$:ifkb$="!"then9500
 8190 ifval(kb$)<1then8189
 8191 kb%=val(kb$):return
 8192 print"{home}";d$:fora=1to10:print"                      ":next
 8194 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:gosub9996:return
 8195 print"{home}";d$:fora=1to10:printtab(23);:print"                ":next
 8197 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:printtab(23);:gosub9997:return
 8200 print"{home}";:fora=1to12:print"                      ":next:print"{home}";:return
 8205 print"{home}";:fora=1to12:printtab(23):print"               ":next:print"{home}";
 8206 printtab(23):return
 8210 print"{home}";:print"{down}{down}{down}{down}{down}";"-:::::::::::::::::+x":print"{home}";tab(10)
 8211 print"-";:printtab(10):fori=1to8:print"{down}{left}";:print":";:next
 8212 print:printtab(10):print"+":printtab(10):print"y":return
 8217 printtab(23);"not enough":printtab(23);sl$;" ships":printtab(23)
 8218 print"were built":print:ford=1to700:next:return
 8219 print"{clr}";l$;"player ";id;" has won!!":end
 8223 gosub8200::fori=1tomx%:ifho%(i)<>idthen8229
 8226 xr%=sx%(i):yr%=sy%(i):gosub8022:iffl%=1thenprint"*";i
 8228 goto8231
 8229 xr%=sx%(i):yr%=sy%(i)::gosub8022:iffl%=1thenprint"*"
 8231 next:return
 8234 fori=1tomx%
 8236 a=int(rnd(1)*sz%+1)
 8237 b=int(rnd(1)*sz%+1):ifb>22then8237
 8238 for j=1toi-1:ifsx%(j)=aandsy%(j)=bthen8236
 8239 next
 8240 sx%(i)=a:sy%(i)=b:re%(i)=int(rnd(1)*10):st%(i)=int(rnd(1)*10):ho%(i)=0
 8243 ifint(rnd(1)*3)<>1then8246
 8244 sl%(i)=int(rnd(1)*9)+1:te%(i)=int(rnd(1)*10)
 8245 pl%(i)=int(rnd(1)*11)-5
 8246 next
 8251 fori=1tonp%
 8252 a=int(rnd(1)*mx%+1):ifho%(a)<>0then8252
 8253 ho%(a)=i:re%(a)=10:sl%(a)=pt%(i):lt%(i)=pt%(i):te%(a)=6:pl%(a)=5
 8255 pt%(i)=st%(a):hx%(i)=sx%(a):hy%(i)=sy%(a):next
 8269 fori=1tomi%:tx%(i)=300:next:return
 9000 print"{clr}";l$;"start tape then press '%'"
 9001 getkb$:ifkb$<>"%"then9001
 9010 print"{clr}";l$;"{rvon}stand by......{rvof}"
 9020 open1,1,0,"datafile":fori=1tomx%:print"*";
 9025 input#1,sx%(i),sy%(i),st%(i),sl%(i),te%(i)
 9030 input#1,pl%(i),re%(i),ho%(i):next
 9040 fori=1tomi%:print"+";
 9045 input#1,no%(i),ec%(i),ra%(i),tx%(i),ty%(i),mf%(i)
 9050 next
 9055 fori=1tonp%:print"?";:input#1,pt%(i),hx%(i),hy%(i),lt%(i)
 9060 next
 9070 close1:goto41
 9500 print"{clr}";l$;"start tape then press '%'"
 9501 getkb$:ifkb$<>"%"then9501
 9510 print"{clr}";l$;"{rvon}stand by....{rvof}"
 9520 open1,1,1,"datafile":fori=1tomx%:print"*";
 9521 print#1,sx%(i)
 9522 print#1,sy%(i)
 9523 print#1,st%(i)
 9524 print#1,sl%(i)
 9525 print#1,te%(i)
 9526 print#1,pl%(i)
 9527 print#1,re%(i)
 9528 print#1,ho%(i)
 9540 next:fori=1tomi%:print"+";
 9550 print#1,no%(i)
 9551 print#1,ec%(i)
 9552 print#1,ra%(i)
 9553 print#1,tx%(i)
 9554 print#1,ty%(i)
 9555 print#1,mf%(i)
 9556 next:fori=1tonp%(i):print"?";
 9560 print#1,pt%(i)
 9561 print#1,hx%(i)
 9562 print#1,hy%(i)
 9563 print#1,lt%(i)
 9570 next:close1:print"{clr}";l$;"game saved":end
 9996 print"                     {up}":return
 9997 print"               {up}":printtab(23):return
 9998 print"{clr}";tab(22):fora=1to24:print"Q{left}{down}";:next
 9999 print"{home}";"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";"QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ";"{home}";
 10000 return         
 24000 data"{rvon}1{rvof}","{rvon}2{rvof}","{rvon}3{rvof}","{rvon}4{rvof}","{rvon}5{rvof}","{rvon}6{rvof}","{rvon}7{rvof}","{rvon}8{rvof}","{rvon}9{rvof}"
 24001 data"0","1","2","3","4","5","6","7","8","9"
 25000 print"{clr}":gosub8009:print"{home}"
 25005 printspc(15)"player ";id;
 25010 printspc(30)"press any key";:printspc(27)"to continue.";
 25020 getjc$:ifjc$=""then25020
 25030 return
 25100 zz=0:forz=hdtohd+8:ifno%(z)+ec%(z)+ra%(z)>0thenzz=1
 25110 next:onzz+1goto41,8000
 25200 print"{clr}":print"{home}":goto25005
 26010 printtab(15);"copyright"
 26020 printtab(5);"avalon hill game company 1982"
 26030 printtab(10);"all rights reserved"
 26040 printtab(7);"computer program and audio"
 26050 printtab(7);"visual display copyrighted"
 26060 return
   10 open4,4:cmd4
   20 print:print:print:print:print:print:print:print:print:print
   30 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
   40 print"        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
   50 print"       {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
   60 print"      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
   70 print"     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
   80 print"    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
   90 print"   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
  100 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} "
  110 print" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
  120 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
  130 print"{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}"
  140 print" {CBM-+}     /     x  x  x {CBM-+} "
  150 print" {CBM-+}    /     x  x  x  {CBM-+} "
  160 print"  {CBM-+}  /     x  x  x  {CBM-+}  "
  170 print"  {CBM-+} /     x  x  x   {CBM-+} "
  180 print"   {CBM-+}     /  x  x   {CBM-+}  "
  190 print"   {CBM-+}    /  x  x   x{CBM-+}  "
  200 print"    {CBM-+}  /  x  x   x{CBM-+}  "
  210 print"    {CBM-+} /  x  x   x {CBM-+}  "
  220 print"     {CBM-+}  /  x   x {CBM-+}  "
  230 print"     {CBM-+} /  x   x  {CBM-+}  "
  240 print"      {CBM-+}  /   x  {CBM-+}  "
  250 print"      {CBM-+} /   x   {CBM-+}  "
  260 print"       {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
  270 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    "
  280 print"          {CBM-+}{CBM-+}{CBM-+}   "
  290 print"          {CBM-+}{CBM-+}{CBM-+}   "
  300 print"          {CBM-+}{CBM-+}{CBM-+}   "
  310 print"          {CBM-+}{CBM-+}{CBM-+}            {CBM-+}  "
  320 print"          {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  "
  330 print"          {CBM-+}{CBM-+}{CBM-+}  "
  340 print"          {CBM-+}{CBM-+}{CBM-+}  "
  350 print"          {CBM-+}{CBM-+}{CBM-+}  "
  360 print"          {CBM-+}{CBM-+}{CBM-+}  "
  370 print"          {CBM-+}{CBM-+}{CBM-+}  "
  380 print"          {CBM-+}{CBM-+}{CBM-+}  "
  390 print"          {CBM-+}{CBM-+}{CBM-+}   "
  400 print"          {CBM-+}{CBM-+}{CBM-+}   "
  410 print"          {CBM-+}{CBM-+}{CBM-+}            {CBM-+}{CBM-+}{CBM-+}  "
  420 print"          {CBM-+}{CBM-+}{CBM-+}           {CBM-+} //  {CBM-+}  "
  430 print"          {CBM-+}{CBM-+}{CBM-+}          {CBM-+}/////////{CBM-+}  "
  440 print"          {CBM-+}{CBM-+}{CBM-+}         {CBM-+} //   xx   xx{CBM-+}  "
  450 print"          {CBM-+}{CBM-+}{CBM-+}        {CBM-+}/////////////////{CBM-+}  "
  460 print"          {CBM-+}{CBM-+}{CBM-+}       {CBM-+} //   xx   xx   xx  {CBM-+}  "
  470 print"          {CBM-+}{CBM-+}{CBM-+}      {CBM-+}/////////////////////{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}"
  480 print"          {CBM-+}{CBM-+}{CBM-+}     {CBM-+} xx   xx   xx   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   -  "
  490 print"          {CBM-+}{CBM-+}{CBM-+}    {CBM-+}//////////////{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    l  "
  500 print"          {CBM-+}{CBM-+}{CBM-+}   {CBM-+} xx   xx xxx   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    l  "
  510 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}/////////x    x    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}           \  "
  520 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}//   xx  x                  {CBM-+}     \  "
  530 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}////////x x                 {CBM-+}  ---  "
  540 print"          {CBM-+}{CBM-+}{CBM-+}   {CBM-+}  // {CBM-+}{CBM-+}    {CBM-+}{CBM-+}             {CBM-+}         "
  550 print"          {CBM-+}{CBM-+}{CBM-+}   {CBM-+}///{CBM-+}{CBM-+}                     {CBM-+}WWWWW  "
  560 print"          {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}                      {CBM-+}  "
  570 print"          {CBM-+}{CBM-+}{CBM-+}    {CBM-+}                       {CBM-+}  "
  580 print"          {CBM-+}{CBM-+}{CBM-+}      {CBM-+}                   {CBM-+}  "
  590 print"          {CBM-+}{CBM-+}{CBM-+}     {CBM-+}//{CBM-+}               {CBM-+} "
  600 print"          {CBM-+}{CBM-+}{CBM-+}    {CBM-+}//////{CBM-+}          {CBM-+}  "
  610 print"          {CBM-+}{CBM-+}{CBM-+}   {CBM-+}//////////{CBM-+} {CBM-+}  "
  620 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}//////////////{CBM-+}  "
  630 print"          {CBM-+}{CBM-+}{CBM-+} {CBM-+}////////////////{CBM-+}  "
  640 print"          {CBM-+}{CBM-+}{CBM-+} {CBM-+}////////////////{CBM-+}  "
  650 print"          {CBM-+}{CBM-+}{CBM-+}{CBM-+}////{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}////////{CBM-+}  "
  660 print"          {CBM-+}{CBM-+}{CBM-+}////{CBM-+}//////{CBM-+}///////{CBM-+}  "
  670 print"          {CBM-+}{CBM-+}{CBM-+}////{CBM-+}//////{CBM-+}////////{CBM-+}  "
  680 print"          {CBM-+}{CBM-+}{CBM-+}///{CBM-+}///////{CBM-+}////////{CBM-+}  "
  690 print"          {CBM-+}{CBM-+}{CBM-+}///{CBM-+}///////{CBM-+}////////{CBM-+}  "
  700 print"          {CBM-+}{CBM-+}{CBM-+}///{CBM-+}////////{CBM-+}////////{CBM-+}{CBM-+}                  xxxx"
  710 print"          {CBM-+}{CBM-+}{CBM-+}//{CBM-+}/////////{CBM-+}/////////{CBM-+}/{CBM-+}                xxxx"
  720 print"          {CBM-+}{CBM-+}{CBM-+}//{CBM-+}//////////{CBM-+}/////////{CBM-+}//{CBM-+}             ..xx"
  730 print"          {CBM-+}{CBM-+}{CBM-+}/{CBM-+}///////////{CBM-+}//////////{CBM-+}////{CBM-+}        .  {CBM-+}...\"
  740 print"          {CBM-+}{CBM-+}{CBM-+}/xxxxxxxxxxxxx///////////x///x       .   k   l"
  750 print"          {CBM-+}{CBM-+}{CBM-+}/////      xxxxxxxxxxxxxx//x.....        k   l  "
  760 print"          {CBM-+}{CBM-+}{CBM-+}/////      xxxxxxxxxxxxxxxxx             \   l  "
  770 print"          {CBM-+}{CBM-+}{CBM-+}{CBM-+}////      xxxxxxxxxxxxxxxxxx............\...\  "
  780 print"          {CBM-+}{CBM-+}{CBM-+} x///      xxxxxxxxxxxxxxxxxxxx          xxxx  "
  790 print"          {CBM-+}{CBM-+}{CBM-+}  x//      xxxxxxxxxxxxxxxxxxxxx        xxxxxx "
  800 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}//      xxxxxxxxxxxxxxxxxxxxxx       xx   ."
  810 print"          {CBM-+}{CBM-+}{CBM-+}  {CBM-+}///      xxxxxxxxxxxxxxxxxxxxxx      xx   ."
  820 print"          {CBM-+}{CBM-+}{CBM-+} {CBM-+}/////      xxxxxxxxxxxxxxxxxxxxxx     xx   ."
  830 print"          {CBM-+}{CBM-+}{CBM-+}{CBM-+}///////      xxxxxxxxxxxxxxxwwwwww     xx   ."
  840 print"          {CBM-+}{CBM-+}{CBM-+}wwww/////      xxxxxxxwwwwwwwwwwwww     xx   ."
  850 print"          {CBM-+}{CBM-+}{CBM-+}wwwwwwwwww      wwwwwwwwwwwwwwwwwww     xxxxxx"
  860 print"          {CBM-+}{CBM-+}{CBM-+}wwwwwwwwwww      wwwwwwwwwwwwwwwww      xxxxxx"
  870 print"          {CBM-+}{CBM-+}{CBM-+}wwwwwwwwwwww   wwwwwwwwwwwwwwwwwww "
  880 print"          {CBM-+}{CBM-+}{CBM-+} wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww  "
  890 print"          {CBM-+}{CBM-+}{CBM-+}  wwwwwwwwwwwwwwwwwwwwwwwwwwwwww  "
  900 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   wwwwwwwwwwwwwwwwwwwwwwwwww "
  910 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      wwwwwwwwwwwwwwwwwwww"
  920 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}        wwwwwwwwwwwwwwww"
  930 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}          wwwwwwwwwwwww"
  940 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}           wwwwwwwwwwww  "
  950 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}            wwwwwwwwwwww "
  960 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}             wwwwwwwwwwww"
  970 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}              wwwwwwwwwwww"
  980 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}               wwwwwwwwwwww"
  990 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                wwwwwwwwwwww"
 1000 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 wwwwwwwwwwww"
 1010 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                  wwwwwwwwwwww"
 1020 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}         xxxx     wwwwwwwwwwwww  "
 1030 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}         xxxx   xx wwwwwwwwwwww  "
 1040 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  xxxx    xx    xx wwwwwwwwwwww  "
 1050 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  xxxx    xx    xx  wwwwwwwwwwww"
 1060 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   xx     xx    xx  wwwwwwwwwwww"
 1070 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   xx     xx   xxxx  wwwwwwwwwww"
 1080 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   xx    xxxx xxxxxx wwwwwwwwwww"
 1090 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  xxxx  xxxxxx.   xx  wwwwwwwwwwww"
 1100 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xxxxxx x    x.   xx  wwwwwwwwwwww"
 1110 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xx   . x    x.   xx   wwwwwwwwwwww"
 1120 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xx   . x    x.   xx   wwwwwwwwwwww"
 1130 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xx   . x    x.   xx  zzzzzzzzzzzzzzzzzzzzz"
 1140 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xx   . xxxxxx.   xx zzzzzzzzzzzzzzzzzzzzzzz"
 1150 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xx   . xxxxxxxxxxxx zzzz     zzzzzzzzzzz"
 1160 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} xxxxxx       xxxxxx   "
 1170 print:print:print:print:print
 1180 print#4:close4
    1 sys(1039)
  100 print"{clr}{down}{rvon} arrow {rvof}    jim butterfield"
  105 rem recut for c64 march 87
  110 input"{down}instructions";z$:ifasc(z$)=78goto190
  120 print"{down}guide the moving 'snake' with keys:"
  130 print" b(down), f(left), h(right), t(up)"
  140 print"{down}don't hit the boundary (or yourself);"
  150 print"..try to hit the boxes for points."
  160 print"{down}you have 60 seconds of play. good luck!"
  170 print"{down}     {rvon}hit any key to start"
  180 getz$:ifz$=""goto180
  190 dimp(255),k(255),d(3),v(8),h(8),t(8),r(8):k=.1:l=rnd(0)
  195 k(84)=4:k(66)=1:k(70)=2:k(72)=3
  200 d(0)=22:d(1)=60:d(2)=62:d(3)=30
  210 t9=1024:t6=3599:print chr$(14);
  220 m1=54276:m2=59466:m3=54273:pokem1,16:poke54278,240:poke54296,15
  230 print"{swuc}{clr}   score: 0":print"(please wait)"
  235 l=peek(646):for j=55296 to 56319:poke j,l:next j
  240 l=40
  250 forj=t9+ltot9+2*l-1:pokej,81:pokej+23*l,81:nextj
  260 forj=t9+2*ltot9+24*lstepl:pokej,81:pokej+l-1,81:next
  270 v=5:h=5:v1=0:h1=1:p2=10:d1=2
  280 ti$="000000"
  290 print"{home}";right$(ti$,2):ifti>t6goto620
  300 getz$:ifz$=""goto330
  301 z=k(asc(z$))-1:ifz<0goto330
  320 d1=z:d=z-1.5:v1=int(abs(d))*sgn(d):h1=sgn(d)-v1
  330 v=v-v1:h=h+h1:p=t9+v*l+h
  350 p9=peek(p):pokem1,17:pokem3,29-d1*4:pokem2,15
  360 r6=r7:r7=r7+1:ifr7>p2thenr7=0
  370 p1=p(r7):p(r7)=p:pokem1,16:ifp1<>0thenpokep1,32
  380 pokep,d(d1):p1=p(r6):ifp1<>0thenpokep1,81
  390 ifp9<>32goto540
  400 ifrnd(1)>kgoto290
  410 v%=rnd(1)*l/10:p9=86+v%:v9=v(v%):ifv9>0goto591
  470 v2=int(rnd(1)*20)+3:h2=int(rnd(1)*(l-4))+2
  480 forv3=v2-1tov2+1:p3=v3*l+t9:forh3=h2-1toh2+1:ifpeek(p3+h3)<>32goto470
  490 nexth3,v3:v(v%)=v2:h(v%)=h2
  500 forv3=v2-1tov2+1:p3=v3*l+t9:forh3=h2-1toh2+1
  510 pokem1,17:pokem2,15:pokem3,30
  520 pokep3+h3,p9:pokem1,16
  530 nexth3,v3:t=9*rnd(1):p8=v2*l+h2+t9:pokep8,49+t:t(v%)=t:r(v%)=p8:goto290
  540 v%=p9-86:ifv%<0goto600
  550 p8=r(v%):t=t(v%):p2=p2+t:t$=ti$
  560 t=t-1:s=s+1:pokep8,t+49:pokem1,17:pokem2,15
  570 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s
  580 forj=30to100step 1:pokem3,j:next:pokem1,16:ift>=0goto560
  590 p2=p2+1:ti$=t$:v9=v(v%)
  591 forv3=v9-1tov9+1:p3=v3*l+t9:h9=h(v%)+p3:forh3=h9-1toh9+1
  594 pokeh3,32:nexth3,v3:v(v%)=0:poker(v%),32:goto290
  600 pokem1,17:pokem2,15:pokem3,40:forj=1to1000:next:pokem1,16
  610 poke54296,0
  620 print"{home}{down}{rvon}another game?{rvof}   {left}{left}{left}";
  630 getz$:ifz$=""goto630
  640 ifz$="y"thenclr:goto190
  650 ifz$<>"n"goto630
  660 print"{clr}";
    1 print"{clr}"
    5 dim x(100),y(100),a$(72)
   15 let g=32.2
   20 print"how many arrows do you want?";
   30 input n
   32 let d=int(100*rnd(0)+50)
   35 for k =1ton
   50 print"your target is ";d;" yards away"
   60 print"what angle,velocity will you use? (e.g. 35,50):";
   70 input a,v
   80 if a>89 then print"max angle =89":goto60
   90 if v>100 thenprint"max velocity=100":goto60
  100 let a=a*~/180
  110 let r=v*v*sin(2*a)/g
  120 let h=(v*sin(a))^2/(2*g)
  125 if k<1then205
  130 let s=d:if d<r then let s=r
  140 let s1=40/s
  145 let s2=.8*s1
  200 rem###calc trajectory points####
  205 t1=2*v*sin(a)/g
  210 ift1=0 then let t1=1
  215 let m=0:z=0
  220 for t=0tot1 step t1/50
  225 m=m+1
  230 letx(m)=int(s1*v*cos(a)*t)
  240 lety(m)=int(s2*(v*sin(a)-g*t/2)*t)
  245 ify(m)<z then 290
  250 z=y(m)
  290 next t
  300 rem####fill & print line image####
  305 a$(1)="B"
  310 for i = 2 to 39:a$(i)=" ":next i
  320 fori=1tom
  330 if y(i)<z then 360
  340 if x(i)<63 then a$(x(i))="."
  350 y(i)=-9
  360 next i
  370 z=z-1
  380 for i=1to 39:printa$(i);:next i:print
  390 ifz>=0then 305
  400 rem####print ground line#####
  410 for i=1to40:leta$(i)="C":next i
  420 let a$(1)="o"
  425 a$(s1*r)="x"
  430 a$(s1*d)="t"
  440 for i=1to40:printa$(i);:nexti:print
  450 print"o=you";tab(s1*d-10);"t=target=";d;"yards"
  460 if abs(r-d)<3 then 480
  470 print"you missed by";r-d;"yards":goto485
  480 print"hit!!!!!!!!!!":goto515
  485 print
  490 print"----you have";n-k;"arrows left----"
  495 next k
  497 print"your out of arrows--score=o"
  498 print"if you want to try again type run"
  500 stop:rem##next section calc scores for hits
  515 print"you used";k;"out of your";n;"arrows"
  517 print"your final score is";
  520 print100*(12-k)/(k*n)
  530 print"possible scores for some choices of arrows are:"
  535 print"1ar"tab(6)"2ars"tab(12)"3ars"tab(18)"4ars"tab(24)"5ars"tab(30)"6ars"
  540 print
  550 print"1100  550   367   275   220   183"
  560 print"      250   167   125   100    83"
  570 print"            100    75    60    50"
  580 print"                   50    40    33"
  590 print"                         28    23"
  600 print"                               17"
  900 end
    1 rem  ^^^artillery^^^
    2 rem  jeff jessee and
    3 rem  creative computing
    5 rem
    6 gosub 10000
   10 dima(100),b(100),h(39),a1(2),b1(2),a2(2),b2(2),l(2)
   15 print"{clr}"
   20 print"{home}directions?";:get d$:x=rnd(2):if d$="n"then38
   21 if d$<>"y"then 20
   30 print"{clr}","   artillery":poke59468,14 :rem sets lower case mode
   31 print:print"tHIS IS{$a0}A{$a0}GAME{$a0}IN{$a0}WHICH{$a0}2{$a0}PLAYERS{$a0}SHOOT{$a0}";
   32 print"AT{$a0}EACH{$a0}OTHER{$a0}ACROSS{$a0}A{$a0}MOUNTAIN."
   33 print:print"aT{$a0}EACH{$a0}TURN, THE{$a0}PLAYER{$a0}ENTERS{$a0}THE "
   34 print"ANGLE{$a0}TO{$a0}FIRE (0-90) AND{$a0}THE{$a0}NUMBER{$a0}OF {$a0}BAGS{$a0}OF ";
   35 print"POWDER (5 to 10 BAGS),HITTING   return ";
   36 print"AFTER{$a0}EACH.":print:print:print"hIT{$a0}ANY{$a0}KEY{$a0}TO{$a0}BEGIN."
   37 get g$:if g$="" then 37
   38 print"{clr}":poke 59468,12:rem reset to graphics
   50 z$="{rvon} {up}{left}":for x=1 to 5:z$=z$+z$:nextx
   60 a$="{rght}":for x=1 to 6:a$=a$+a$:nextx:b$="{down}":for x=1 to 5:b$=b$+b$:nextx
   80 n=2
   90 rem
  130 x1=int(6+rnd(1)*8)
  140 x2=int(25+rnd(1)*8)
  150 l(1)=int(3+(x1-3)*rnd(1))
  160 l(2)=int(x2+1+(36-x2)*rnd(1))
  170 h9=rnd(1)*11+1
  180 for i=1 to x1:h(i)=h9:nexti
  210 h9=rnd(1)*11+1
  220 for i=x2 to 39:h(i)=h9:nexti
  250 if abs(h(1)-h(39))<4 then 170
  260 x3=x1+int(rnd(1)*(x2-x1-6))+3
  270 h(x3)=rnd(1)*11+9
  290 d1=(h(x3)-h(1))/2
  300 d2=(h(x3)-h(39))/2
  310 if d1*d2<=0 then 470
  320 j=-180
  330 k=180/(x3-x1+1)
  340 h9=h(1)+d1
  350 for i=x1+1 to x3-1
  360 j=j+k
  370 h(i)=h9+cos(j*~/180)*d1
  380 nexti
  390 j=0
  400 k=180/(x2-x3+1)
  410 h9=h(39)+d2
  420 for i=x3+1 to x2-1
  430 j=j+k
  440 h(i)=h9+cos(j*~/180)*d2
  450 nexti
  460 goto 550
  470 d=(h(1)-h(39))/2
  480 j=0
  490 k=180/(x2-x1+1)
  500 h9=h(39)+d
  510 for i=x1+1 to x2-1
  520 j=j+k
  530 h(i)=h9+cos(j*~/180)*d
  540 next i
  550 print"{clr}";
  560 w=int(100*(rnd(1)-.5))
  570 printleft$(b$,22);
  580 for i=1 to 39:h(i)=int(h(i)+.5):nexti
  590 for x=1 to 39:ifx=1 then610
  600 print"{rght}";
  610 printmid$(z$,1,h(x)*4);
  650 for z=1 to h(x):print"{down}";:nextz
  660 next x:print"{rvof}"
  670 print"{home}";
  680 printmid$(b$,1,22-h(1));:if l(1)=1 then  700
  690 printmid$(a$,1,l(1)-1);
  700 print"^";
  710 print"{home}";
  720 printmid$(b$,1,22-h(39));
  730 printmid$(a$,1,l(2)-1);
  740 print"^";:get g$:get g$
  750 print"{home}";
  760 printmid$(b$,1,24);
  770 print"        ";
  780 k=1
  790 ifw>=0 then 820
  800 print-w;" mph wind to left   ";
  810 goto 840
  820 printw;" mph wind to right   ";
  830 print"{home}";
  840 print"{home}";:n=3-n:if n=1 then 900
  850 printleft$(a$,33);
  860 input e:print"{home}";
  870 printleft$(b$,1);left$(a$,33);
  880 input v:if v>15 then v=15
  890 goto 910
  900 print "{home}";"                                       "
  902 print"                                        ";"{home}";
  905 input e:print"{home}{down}";:input v:if v>15 then v=15
  910 k=k+1:if e=0 then 90
  930 a2(n)=a2(n)-2.86
  940 e=90-e
  950 if n=1 then 970
  960 e=-e
  970 x1=l(n)
  980 y1=h(l(n))+1
  990 t=0:m=0
 1010 v1=sin(e*~/180)*v
 1020 v2=cos(e*~/180)*v*.7
 1030 t=t+.5:m=m+1
 1040 v1=v1+(v1+w*.5)/1500
 1050 x=x1+(v1+w*.5/50)*t
 1060 x=int(x+.5)
 1070 y=y1+(v2-t/3)*t
 1080 y=int(y+.5)
 1090 z=23-y:print"{home}";
 1092 a(m)=z:b(m)=x:if x>39 or x<1 then 1350
 1094 ify-h(x)<=0 then 1340
 1100 if z<0 then 1150
 1110 if z=0 then 1125
 1120 printleft$(b$,z);
 1125 if x=1 then 1140
 1130 printleft$(a$,x-1);
 1140 print"Q"
 1150 print"{home}";
 1160 if m-4<1 then 1030
 1162 if a(m-4)=0 then 1180
 1164 if a(m-4)<0 or b(m-4)<=0 then 1030
 1170 printleft$(b$,a(m-4));
 1180 printleft$(a$,b(m-4)-1);
 1190 print" ";
 1200 print"{home}";
 1220 goto 1030
 1230 if m=1 then 1030
 1232 if b(m)<1 or b(m)>39 then 840
 1233 rem lines 1234 and 1260 determine hit. change '1.5' to change difficulty.
 1234 if abs(b(m-1)-l(n))<1.5 then 1250
 1240 goto 1260
 1250 if t>1 then 1510
 1260 if abs(b(m-1)-l(3-n))<1.5 then1560
 1270 if t<1 then 1030
 1280 goto 1460
 1290 print"{home}"
 1300 print"another game ? yes or no "
 1310 input g$
 1320 if g$ <>"no" then 90
 1330 end
 1340 print"{home}";
 1350 for j=4 to 1 step -1
 1360 if m-j<=0 then 1440
 1370 if a(m-j)=0 then 1405
 1380 if a(m-j)<0 or b(m-j)<=0 then 1440
 1400 print left$(b$,a(m-j));
 1405 if b(m-j)=1 then 1420
 1410 printleft$(a$,b(m-j)-1);
 1420 print" ";
 1430 print"{home}";
 1440 next j:if m=1 then 1600
 1450 if b(m)<1 or b(m)>39 then 1610
 1455 goto 1230
 1460 if b(m-1)=1 then 1470
 1465 printleft$(a$,b(m-1)-1);
 1470 printleft$(b$,23-h(b(m-1)));
 1472 for z=1 to 3: print"{up}{left}\W/{up}{left}{left}{left}\!/";:for x=1 to 5:nextx
 1474 print"{left}{left}{left}{down}   {up}{left}{left}{left}   {left}{left}{down}{down}";:for x=1 to 5:next x:next z:print"{CBM-O}";
 1480 goto 1600
 1510 print"{home}";
 1520 printleft$(a$,l(n)-1);
 1530 printleft$(b$,24-h(l(n)));
 1540 for z=1 to10:print"{up}{left}{rvon}{CBM-*}Q{SHIFT-POUND}{rvof}{up}{left}{left}{left}{left}\{CBM-B}!{rvon}{CBM-B}{rvof}/{left}{left}{left}{left}{left}{up}\M!N/{left}{left}{down}{down}";"{left}";
 1544 print" {left}{left}{left}{up}     {left}{left}{left}{left}{left}{up}     {left}{left}{left}{up}{down}{down}{down}{down}";
 1545 for x=1 to 2:next x:next z
 1546 forx=1 to50:next x
 1550 goto 1290
 1560 print"{home}";
 1570 printleft$(a$,l(3-n)-1);
 1580 printleft$(b$,24-h(l(3-n)-1));
 1590 goto 1540
 1600 rem
 1610 w=w+int(10*(rnd(1)-.5))
 1620 print"{home}";left$(b$,24);"        ";
 1630 if w>=0 then print"   {left}{left}{left}";w;" mph wind to right    ";:goto 840
 1640 print"   {left}{left}{left}";-w;" mph wind to left     ";:goto 840
 9999 end
 10000 rem
 10010 print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"{rvon}artillery":print:print
 10020 print tab(11);"creative computing"
 10030 print tab(13);"p.o. box 789-m"
 10040 print tab(6);"morristown, new jersey 07960"
 10050 for b1=1 to 2000:next b1
 10060 b1=0
 10070 print "{clr}";
 10080 return
    0 clr:poke59468,12
    1 rem asm copyright (c) 1979 glen fisher
    2 rem cursor #10, may, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of may 30,1979
   90 pg$="asm":nm$="10":gosub62000
  100 siz=25:dimsy$(siz),ad(siz)
  110 op=56:dimop$(op)
  120 fori=1toop:readop$(i):nexti
 1000 rem pass 1
 1010 readb$:ifb$=""then2000
 1020 c$=left$(b$,1):l$=mid$(b$,2)
 1030 ifc$="."orc$="#"orc$="$"orc$="'"thenpc=pc+1:goto1000
 1040 ifc$=";"thenpc=pc+2:goto1000
 1050 ifc$="="thengosub9000:printb$:goto1000
 1060 ifc$="@"thengosub8100:pc=v:goto1000
 1070 pc=pc+1:goto1000
 2000 rem pass 2
 2010 restore:fori=1toop:readt$:nexti
 2020 print
 2100 readb$:ifb$=""then3000
 2110 t=23:ifasc(b$)>=64andasc(b$)<=90thent=18
 2112 ifasc(b$)=61thent=12
 2115 printtab(t);b$;"{up}"
 2120 c$=left$(b$,1):l$=mid$(b$,2)
 2130 ifc$="="thenv=pc:gosub8300:print"{rvon}";v$:goto2100
 2140 ifc$="@"thengosub8100:pc=v:gosub8300:print"{rvon}";v$:goto2100
 2150 ifc$="#"orc$="$"orc$="'"thenl$="."+b$:gosub7000:goto2100
 2155 ifb$="."thenv=pc:gosub8300:printv$:pc=pc+1:goto2100
 2160 ifc$=";"orc$="."orc$="+"thenl$=b$:gosub7000:goto2100
 2170 gosub9500:l$=".$"+op$:gosub7000
 2180 goto2100
 3000 print"{down}assembly complete."
 3010 end
 7000 rem putval
 7010 c$=left$(l$,1):l$=mid$(l$,2)
 7020 ifc$<>"."andc$<>";"andc$<>"+"thenprint"bad operand":return
 7030 gosub8200
 7040 ifc$="+"thenv=v-(pc+1):if(v<0andv>-129)orv>127thenv=v+256
 7050 ifc$<>";"and(v<0orv>255)thenprint"byte too big":v=0
 7060 h=int(v/256):v=v-256*h
 7070 pokepc,v:pc=pc+1
 7080 gosub8300:t$=v$:v=pc-1:gosub8300:printv$;" ";t$
 7090 ifc$<>";"thenreturn
 7100 v=h:pokepc,v:pc=pc+1
 7110 gosub8300:t$=v$:v=pc-1:gosub8300:printv$;" ";t$
 7120 return
 8000 v=0:rem unhex
 8010 t=asc(v$)-48:ift>9thent=t-7
 8020 v=16*v+t:v$=mid$(v$,2)
 8030 ifv$<>""then8010
 8040 return
 8100 rem getnum
 8110 l1$=left$(l$,1):l2$=mid$(l$,2)
 8120 ifl1$="#"thenv=val(l2$):return
 8130 ifl1$="$"thenv$=l2$:gosub8000:return
 8135 ifl1$="'"thenv=asc(l2$):return
 8140 v=val(l$):return
 8200 rem getval
 8210 l1$=left$(l$,1):l2$=mid$(l$,2)
 8220 ifl1$="#"thenv=val(l2$):return
 8230 ifl1$="$"thenv$=l2$:gosub8000:return
 8235 ifl1$="'"thenv=asc(l2$):return
 8240 gosub9100:return
 8300 rem justify
 8310 v$=right$("    "+str$(v),5):return
 9000 rem stow label
 9010 ifsy>sizthenprint"too many labels":return
 9020 sy$(sy)=l$:ad(sy)=pc:sy=sy+1:return
 9100 rem lookup
 9110 fori=len(l$)to1step-1
 9120 :t$=mid$(l$,i,1):ift$="+"ort$="-"then9140
 9130 nexti:v=0:goto9160
 9140 sv$=left$(l$,i-1):l$=mid$(l$,i+1):gosub8100
 9150 l$=sv$:ift$="-"thenv=-v
 9160 ifsy=0then9190
 9170 fori=0tosy-1:ifsy$(i)=l$thenv=ad(i)+v:return
 9180 nexti
 9190 print"undefined label"
 9200 gosub9000:v=pc+v:return
 9500 rem find opcode
 9510 t$=left$(b$,3):sf$=mid$(b$+"  ",4,2)
 9520 fori=1toop:op$=op$(i)
 9530 :ifleft$(op$,3)=t$then9560
 9540 nexti
 9550 print"invalid opcode":op$="0":ty$="-":return
 9560 fori=4tolen(op$)step5
 9570 :ifmid$(op$,i,2)=sf$then9590
 9580 nexti:goto9550
 9590 ty$=mid$(op$,i+4,1):op$=mid$(op$,i+2,2):return
 10000 data"adc  6d;x 7d;y 79;. 65..x75.@x61.@y71.# 69."
 10010 data"and  2d;x 3d;y 39;. 25..x35.@x21.@y31.# 29."
 10020 data"asl  0e;x 1e;. 06..x16.a 0a-"
 10030 data"bcc  90+","bcs  b0+","beq  f0+"
 10040 data"bit  2c;. 24.","bmi  30+","bne  d0+","bpl  10+"
 10050 data"brk  00-","bvc  50+","bvs  70+"
 10060 data"clc  18-","cld  d8-","cli  58-","clv  b8-"
 10070 data"cmp  cd;x dd;y d9;. c5..xd5.@xc1.@yd1.# c9."
 10080 data"cpx  ec;. e4.# e0.","cpy  cc;. c4.# c0."
 10090 data"dec  ce;x de;. c6..xd6.","dex  ca-","dey  88-"
 10100 data"eor  4d;x 5d;y 59;. 45..x55.@x41.@y51.# 49."
 10110 data"inc  ee;x fe;. e6..xf6.","inx  e8-","iny  c8-"
 10120 data"jmp  4c;@ 6c;","jsr  20;"
 10130 data"lda  ad;x bd;y b9;. a5..xb5.@xa1.@yb1.# a9."
 10140 data"ldx  ae;y be;. a6..yb6.# a2."
 10150 data"ldy  ac;x bc;. a4..xb4.# a0."
 10160 data"lsr  4e;x 5e;. 46..x56.a 4a-"
 10170 data"nop  ea-"
 10180 data"ora  0d;x 1d;y 19;. 05..x15.@x01.@y11.# 09."
 10190 data"pha  48-","php  08-","pla  68-","plp  28-"
 10200 data"rol  2e;x 3e;. 26..x36.a 2a-"
 10210 data"ror  6e;x 7e;. 66..x76.a 6a-"
 10220 data"rti  40-","rts  60-"
 10230 data"sbc  ed;x fd;y f9;. e5..xf5.@xe1.@yf1.# e9."
 10240 data"sec  38-","sed  f8-","sei  78-"
 10250 data"sta  8d;x 9d;y 99;. 85..x95.@x81.@y91."
 10260 data"stx  8e;. 86..y96.","sty  8c;. 84..x94."
 10270 data"tax  aa-","tay  a8-","tsx  ba-","txa  8a-","txs  9a-","tya  98-"
 11000 data@32768,=crt
 11005 data@1,=ptr
 11006 data@128,=bit7
 11010 data@826,=top
 11012 datalda,;crtadr,sta.,.ptr
 11013 datalda,;crtadr+1,sta.,.ptr+1
 11020 dataldx#,#0
 11030 data=outer,ldy#,#0
 11045 data=inner,lda@y,.ptr
 11060 datacmp#,' ,beq,+skip
 11070 dataeor#,.bit7,sta@y,.ptr
 11090 data=skip
 11100 datainy,cpy#,#250,bne,+inner
 11110 dataclc,lda.,.ptr,adc#,#250
 11130 datasta.,.ptr
 11140 datalda.,.ptr+1,adc#,#0
 11150 datasta.,.ptr+1
 11160 datainx,cpx#,#4,bne,+outer
 11210 datarts
 11220 data=crtadr,;crt
 11999 data""
 62000 print"{clr}{down}";tab(8);"cursor #";nm$;tab(22);pg$
 62005 print"{down}copyright (c) 1979";tab(22);"by glen fisher
 62010 fori=1to10:print"DDDD";:next
 62015 printtab(6)"{down}{down}{down}a simple 6502 assembler"
 62020 print"{down}{down}{down}{down}hit {rvon}return{rvof} to begin"
 62030 gett$:ift$=""then62030
 62040 print"{clr}";:clr:goto100

    0 rem asteroids -- as of november 23/81
    1 rem         by anthony scian
    2 rem     modified by david a. hook
    3 rem
   10 kb=151:tf=255:h$="000000"
   20 gosub3200:ifpeek(57344)=76thengosub3200
   25 data47,42,41,6,68,52,54,32
   30 n1=640:n2=641:n3=642:xc=643:yc=644:dc=645:nt=646:mc=647:md=648
   35 e1=652:e2=653:e3=654
   40 x1=5752:y1=x1+8:d1=y1+8
   45 bu=3630:tu=4195:rk=4155:se=4689:be=4999
 1000 deffnr(x)=rnd(1)*x
 1010 deffnp(x)=32768+40*peek(yc)+peek(xc)
 1040 print"{clr}"tab(8)"{down}{rvon}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{rvof} Q {rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} {rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} Q {rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} {rvon}{CBM-U}{SHIFT-POUND}{CBM-*}
 1050 printtab(8)"{rvon} {CBM-J}{rvof}{rvon}{CBM-L}{rvof}{rvon} {rvof} {rvon}{CBM-T}{rvof} {rvon} {CBM-U}{CBM-U}{rvof} {rvon} {CBM-U}{CBM-U}{rvof} {rvon}{CBM-T}{rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}
 1060 printtab(8)"{rvon} {rvof}  {rvon} {rvof} {rvon} {rvof} {rvon}{CBM-U}{CBM-U} {rvof} {rvon}{CBM-U}{CBM-U} {rvof} {rvon} {rvof} {rvon} {CBM-U} {rvof} {rvon} {rvof} {rvon} {rvof}
 1080 printtab(13)"{down}{rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} {rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} {rvon}{CBM-U}{CBM-U}{CBM-U}{rvof} {rvon}{CBM-U}{CBM-U}
 1090 printtab(13)"{rvon}{CBM-U}{CBM-U} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof}
 1100 printtab(13)"{rvon} {CBM-U}{CBM-U}{rvof} {rvon} {CBM-U} {rvof} {rvon} {CBM-U} {rvof} {rvon}{CBM-U} {CBM-U}
 1120 printtab(12)"{down}copyright (c) 1981
 1140 printtab(14)"{down}{down}developed by :{down}
 1170 forn=1to22:printtab(9)mid$("anthony & steven scian",n,1);
 1180 fori=1to50:nexti,n
 1185 print:printtab(14)"{down}{down}modified by :{down}
 1200 forn=1to13:printtab(14)mid$("david a. hook",n,1);
 1205 fori=1to50:nexti,n
 1210 gosub3000
 1250 printtab(10)"operating instructions
 1260 print:printtab(11)"U{SHIFT-*}I
 1270 printtab(11)"{SHIFT--}4{SHIFT--} - rotate left
 1280 printtab(11)"J{SHIFT-*}K
 1290 printtab(11)"U{SHIFT-*}I
 1300 printtab(11)"{SHIFT--}6{SHIFT--} - rotate right
 1310 printtab(11)"J{SHIFT-*}K
 1320 printtab(11)"U{SHIFT-*}I
 1330 printtab(11)"{SHIFT--}a{SHIFT--} - fire torps
 1340 printtab(11)"J{SHIFT-*}K
 1350 printtab(11)"U{SHIFT-*}I
 1360 printtab(11)"{SHIFT--}d{SHIFT--} - thrust
 1370 printtab(11)"J{SHIFT-*}K
 1380 printtab(9)"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I
 1390 printtab(9)"{SHIFT--}space{SHIFT--} - hyperspace
 1400 printtab(09)"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
 1420 gosub3000
 1460 printtab(15)"point values
 1480 printtab(13)"{down}N{CBM-T}M
 1490 printtab(13)"{CBM-G} {CBM-M}  -  1 point
 1500 printtab(13)"M{CBM-@}N
 1520 printtab(13)"{down}UI
 1530 printtab(13)"JK   -  4 points
 1550 printtab(14)"{down}{down}{down}W   -  9 points
 1570 printtab(9)"{down}{down}{down}2001 points for bonus ship
 1590 gosub3000
 1600 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(15)"player one ...
 1610 fori=1to1500:next
 1620 print"{clr}"
 1750 if s$>h$ then h$=s$
 1760 s$="000000":s=0:ns$="03":a=3:bc=1:bb=1
 1770 poke xc,20:poke yc,12:poke dc,2
 1780 poke nt,0:poke mc,0:poke md,2
 1840 poke n1,bb:poke n2,tf:poke n3,tf
 1870 if peek(n1)=tf then2050
 1880 fori=0topeek(n1)
 1890 pokex1+i,fnr(40)
 1900 pokey1+i,fnr(20)+2
 1910 poked1+i,fnr(8)
 1920 next
 2050 print"{clr}{rvon} score: "s$"  high: "h$"  ships: "ns$" "
 2070 sysbu
 2080 forj=1to3:sysrk:systu:fork=1to5:next
 2090 ifpeek(kb)=hsthengosub2460
 2100 if(peek(n1)andpeek(n2)andpeek(n3))=tfthen2420{wht}{wht}{wht}{wht}{wht}{CTRL-F}{CTRL-F}{wht}
 2110 sysse:if st and 1 thengosub2240:ifa=0 then2380
 2120 sysbe:if st and 2 thengosub2310
 2230 nextj:goto2070
 2240 ps=fnp(1)
 2250 for l=1 to 6
 2260 poke ps,42:form=1to100:next
 2270 poke ps,32:form=1to100:next
 2280 next
 2290 a=a-1:gosub3100
 2300 return
 2310 s=s+peek(e1)+4*peek(e2)+9*peek(e3)
 2320 ifs<2001*bcthen2340
 2330 bc=bc+1:a=a+1:gosub3100
 2340 s$=right$("000000"+mid$(str$(s),2),6)
 2350 print"{home}{rvon}"tab(8)s$:return
 2380 fori=1to1500:next
 2390 print"{clr}"
 2400 fori=1to1500:next
 2410 goto 1590
 2420 gosub3100
 2430 if a=0 then2380
 2440 bb=bb+1:if bb>7 then bb=7
 2450 goto 1780{wht}{wht}{wht}{wht}
 2460 ps=fnp(1)
 2470 poke ps,32
 2480 poke xc,fnr(40)
 2490 poke yc,fnr(22)+1
 2500 return
 3000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}"tab(9)"hit a key to continue
 3010 geta$:ifa$=""then3010
 3020 print"{clr}"tab(14)"{rvon}mission - 2001{down}{down}
 3030 return
 3100 ns$=right$("00"+mid$(str$(a),2),2)
 3110 print"{home}{rvon}"tab(37)ns$:return
 3200 fori=0to2:reada:poke177+i,a:next:readhs:return
   10 sys7824
   20 rem{del}{del}{del}{del}{del}{del}{del}
{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*** astro-rescue ***
{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by:jim summers
{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}1982 - all rights reserved
{down}{down}{rght}type 'run' and press 'return' to start.
    3 rem r.d.watts 12:9:78
    9 g$(1)="battleship":g$(2)="pocket "+g$(1)+"  ":g$(3)="cruiser"
   10 fork=1to9:reade$(k):next:goto8000
   12 d=int(rnd(ti)*2000+2400):e=int(rnd(ti)*3+1):o=0
   20 ifd>2999then12
   22 ifd<erthen2530
   25 print"{down}"
   30 ife<4ande>0thend=d-ss
   33 iftt=0thenprintt"torpedoes hit "e$:ne=ne-t*10
   34 ift2=0thenprintt1"torpedoes hit "n$:nh=nh-t*7
   35 ife>4ore<0thend=d+ss
   40 ifd<0thenprint"rammed "e$:a=nh:nh=nh-ne:ne=ne-a
   45 print"                  {CBM-M}{CBM-G}      armament
   50 print"           {SHIFT--}      {CBM-M}L   main"gt;gc"inch
   55 print"           {SHIFT--}      {CBM-M}{CBM-G}   2nd "nd;nc"inch
   60 print"           {SHIFT--}      {CBM-M}{CBM-G}   torpedoes"nt
   65 print"         {CBM-D}{rvon}{CBM-C}{rvof}{SHIFT--}      {CBM-M}{CBM-G}":ifsm>0then2815
   70 print"          {rvon} {rvof}{CBM-W} {CBM-N}{rvon} {rvof}   {CBM-M}{CBM-G}":print"      {CBM-@}{CBM-@}{CBM-@}{rvon}{CBM-V} {rvof}{CBM-X} {CBM-L}{rvon} {rvof}   {rvon}{CBM-V}{rvof}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}
   80 print"    {SHIFT-*}{SHIFT-*}{CBM-I}{CBM-I}{rvon} ..{rvof}  {rvon}  {CBM-C}{rvof}  {rvon}. ..{rvof}{CBM-I}{CBM-I}{SHIFT-*}{SHIFT-*}
   85 ifnh<0thenprint"h.m.s. "n$" has been sunk":u1=u1+1:goto4000
   90 print"  {CBM-*}{rvon} ....    .. ..   .....  {CBM-D}":print"   {CBM-*}{rvon}                      {CBM-D}
  110 print"{down}hms "n$:h=0
  120 fork=1to40:print"{CBM-@}";:next
  125 fork=1to40:print"{CBM-T}";:next
  140 ifne<0thenprint"well done "e$" has been sunk":u2=u2+1:goto4700
  145 ifd>2000then195
  150 ifrnd(ti)>.8thene=e+1
  160 ifrnd(ti)<.2thene=e-1
  195 b$(0)="off port quarter":b$(1)="off port beam":b$(2)="bearing port"
  210 b$(3)="dead ahead":b$(4)="bearing starboard":b$(5)="off starboard beam"
  225 b$(6)="off starboard quarter":b$(7)="dead astern":ife>6thene=-1
  240 print"speed"ss/3"knots":ife<-1thene=6
  242 ifd<1000andrnd(ti)>.9thenprint"torpedo tracks "b$(e+1):goto3000
  245 ifd>2799thenprint"nothing in sight":goto2000
  250 ifd>2399thenprint"smoke "b$(e+1):goto290
  265 ifo=1then275
  270 ifrnd(ti)>.7thenprint"vessel identified as frienly merchantman{up}":goto1900
  275 o=1:ifp=1thenprinte$" "b$(e+1):goto290
  280 print"enemy in sight "b$(e+1)
  285 ifd<2050thenp=1:print"enemy identified as ";:goto500
  290 print"range"d*10"yards":goto2000
  500 r=int(rnd(ti)*9+1):ife$(r)=""then500
  510 e$=e$(r):ee=8:e$(r)=""
  515 ifr>3thenr=r-3:goto515
  520 printg$(r)" "e$:f=1:onrgoto550,570,590
  550 f=2:eg=10:ne=75:er=2000:goto650
  570 eg=8:ne=60:er=1800:goto650
  590 eg=6:ne=45:er=1500:goto650
  650 gg=eg:goto290
 1900 d=3000:o=0
 2000 tt=tt-1:t2=t2-1
 2003 input"command ";c
 2005 ifc<1thengosub5000:goto2003
 2010 oncgoto2100,2200,2300,2400,2500,2600,2700,2800,2900
 2020 goto2003
 2100 print"{clr}      altering course to port":e=e+1:ife<2thend=d-ss/2:goto20
 2130 d=d+ss/2:goto20
 2200 print"{clr}      maintaining course":ife=2thend=d-ss/2
 2230 goto20
 2300 print"{clr}      altering course to starboard":e=e-1:ife>2thend=d-ss/2:goto20
 2330 d=d+ss/2:goto20
 2400 input"speed alteration ";s
 2410 ifs>5ors<-5thenprint"{up}alteration of speed in excess of 5 knots":goto2400
 2420 print"{clr}      altering speed":ss=ss+s*3
 2425 ifss>msthenss=ms:print"    now at full speed{up}"
 2430 goto20
 2500 ifd>nrthenprint"target out of range":goto2003
 2510 ifgt=0thenprint"{clr}  main armament knocked out":goto2530
 2515 print"{clr}      opening fire"
 2520 w=gt:gosub2590
 2522 ife=0ore=4thenh=h+h
 2524 ife=2ore=6thenh=h/2
 2527 ifsa=1thensa=0:h=h*1.5
 2528 eh=int(h):ifeh<0theneh=0
 2530 w=ee:gosub2590
 2537 h=int(h):ifh<0thenh=0
 2539 ifd>erthenh=0
 2540 print"{home}{down}"e$" received"eh"hits"
 2545 print"hms "n$" received"h"hits{down}"
 2547 ifh>3thenms=ms-3:ss=ss-3
 2550 ifgc<5theneh=eh/3
 2551 ifgc>12theneh=eh*3
 2552 ifr=1thenh=h*3
 2553 ifr=3thenh=h*3/4
 2554 ifgt=0then2556
 2555 aa=aa-h:ifaa<1thenaa=at:gt=gt-1:print"{up}one"gc"inch gun hit"
 2556 ifh>aathennd=nd-1:ifnd<0thennd=0
 2557 nh=nh-h*2/3:gg=gg-eh:ifgg<1thengg=eg:ee=ee-1
 2577 ne=ne-eh*2/3:eh=0:goto30
 2590 h=w*400/d*2*f*rnd(ti)-(sm*2):return
 2600 ifd>nrthenprint"target out of range":goto2003
 2605 ifnd=0thenprint"no secondary armament":goto2003
 2607 ifd>nr-500thenprint"out of range of secondary armament":goto2003
 2610 sa=1:goto2510
 2700 ifnt=0thenprint"no torpedoes left":goto2003
 2710 input"no. of torpedoes ";a:ifa>ntthena=nt
 2712 ifa<0thena=0
 2715 nt=nt-a:print"{clr}      firing"a"torpedoes"
 2730 t=int((a/(d/190))*rnd(ti)*2):tt=int(d/300):ift>athent=a
 2740 goto20
 2800 print"{clr}      making smoke":sm=3:goto20
 2815 print"{home}":ifd<erord<nrthenprint
 2820 print,,"{down}{left}{left} QQQ{rvon}      {rvof}QQQ
 2830 print,,"{left}{left}QQ{rvon}      {rvof}QQ":print," {SHIFT--}    QQ{rvon}       {rvof}Q
 2850 print," {SHIFT--}    QQQ{rvon}  {rvof}QQ2Qd":print," {SHIFT--}   QQ{rvon}   {rvof}Q
 2880 print"         {CBM-D}{rvon}{CBM-C}{rvof}{SHIFT--}  QQ  {CBM-M}{CBM-G}":sm=sm-1:goto70
 2900 print"{clr}      scuttling"
 2910 forq=9to0step-1:print"{home}{down}{down}{rght}charges set to"q"seconds"
 2930 fork=1to900:nextk,q:nh=-1:goto20
 3000 t1=(5/(d/200))*rnd(ti)*2:ife=0or4thent1=t1*2
 3040 ife=2or6thent1=t1/2
 3050 ift1>6thent1=6
 3060 t1=int(t1):t2=int(d/300):goto245
 4000 prints$:print"{down}that was hopeless"
 4010 ifz=4then4100
 4020 print"admiralty offering a new command.":input"are you interested ";a$
 4030 ifleft$(a$,1)="y"then8070
 4100 print"{down}you have sunk"u2"enemy ships":print"for the loss of"u1"ships"
 4125 ifu2>u1+3thenprint"you are promoted to admiral!"
 4130 ifu2=0thenprint"you are dismissed from the service!":end
 4140 ifu2>u1thenprint"well done."
 4150 ifu2<u1thenprint"not exactly the nelson touch."
 4200 end
 4500 prints$:print"{down}congratulations":print"however "n$" is in poor shape"
 4510 goto4010
 4700 ifu2=9thenprints$:goto4100
 4705 d=3333:p=0:ne=0:ifgt<4then4500
 4740 goto195
 5000 print"{clr} you can control your ship with the":print"following commands."
 5020 print"  {down}{rvon}1{rvof} turn to port":print"  {down}{rvon}2{rvof} maintain course"
 5040 print"  {down}{rvon}3{rvof} turn to starboard":print"  {down}{rvon}4{rvof} alter speed (+or-5 knots max)
 5060 print"  {down}{rvon}5{rvof} open fire (main armament)
 5070 print"  {down}{rvon}6{rvof} open fire (main+secondery armament){down}
 5080 print"  {rvon}7{rvof} fire torpedoes":print"  {down}{rvon}8{rvof} make smoke":print"  {down}{rvon}9{rvof} scuttle"
 5110 print"{down} a command of {rvon}0{rvof} will return this list{down}":return
 6000 print"press return."
 6010 geta$:ifa$=""then6010
 6020 return
 7000 print"{clr}{rght}";s$:print"{down}your "c$"command is h.m.s. "n$
 7010 print"{down}{down}{down}main armament"gt;gc"inch guns":print"range"nr*10"yards
 7015 ifv=3thenprint"{down}no secondary armament":goto7030
 7020 print"{down}secondary armament"nd;nc"inch guns":print"range"nr*10-5000"yards
 7030 print"{down}{left}"nt"torpedoes":print"range 10000 yards"
 7040 print"{down}full speed"ms/3"knots"
 7045 c$="new "
 7050 print"{down}{down}{down}{down}to commission{rght}"n$" ";:gosub6000
 7920 print"{clr}      "q$:goto12
 8000 print"{clr}{down}        atlantic patrol":print"        {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 8010 print"{down}  in this game you command a royal navy"
 8015 print"warship in  mid atlantic during the":print"second world war!"
 8025 print"{down}  your mission is to patrol the sea":s$="{down}signal from admiralty:"
 8030 print"lanes and sink as many enemy ships as":print"you can."
 8040 print"{down}   remember you can get more hits on an"
 8045 print"enemy ship if she is abeam of you,but"
 8050 print"you will then present a larger target":print"for enemy torpedoes."
 8060 print"{down}{down}   to continue ";:gosub6000
 8067 gosub5000:print"to continue ";:gosub6000
 8070 print"{clr}{down}{down} which type of ship do you wish":print"to command"
 8075 print"{down}{down}{down}battleship:"tab(37)"(1)"
 8080 print" (slow,heavy armament,heavy armour)":print"{down}{down}cruiser:"tab(37)"(2)"
 8090 print"{down}(medium,medium armament,medium armour)"
 8095 print"{down}{down}destroyer:"tab(37)"(3)"
 8100 print" (fast,light armament,no armour){down}":sm=0:ss=60:tt=-1:t2=-1:z=z+1
 8110 input"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";v:ifv>3orv<1then8110
 8120 fork=1to3:readn$(k):next:n$=n$(v):onvgoto8200,8400,8600
 8140 aa=at:goto7000
 8200 gt=8:gc=15:f=2:nd=12:nc=6:nt=4:nh=70:nr=2000
 8210 onzgoto8230,8240,8250,8260
 8230 ms=87:at=8:goto8140
 8240 ms=63:gt=9:gc=16:at=11:goto8140
 8250 ms=72:gt=8:at=9:nd=8:goto8140
 8260 ms=81:gt=10:gc=14:at=10:goto8140
 8400 gt=8:gc=8:f=1:ms=96:at=6:nd=8:nc=4:nt=6:nh=45:nr=1500
 8410 onzgoto8430,8440,8450,8460
 8430 goto8140
 8440 gc=6:goto8140
 8450 gt=12:gc=6:goto8140
 8460 gt=6:goto8140
 8600 gt=4:nt=12:f=.5:ms=108:nc=0:nh=25:nr=1200
 8610 onzgoto8630,8640,8650,8650
 8630 goto8140
 8640 gt=8:nt=8:goto8140
 8650 goto8140
 9000 databismark,graf spee,prinz eugen,tirpitz,lutzow,hipper,scharnhorst
 9010 dataadmiral scheer,emden,hood,suffolk,hero,rodney,ajax,cossack,warspite
 9020 databelfast,hotspur,king george v,exeter,electra
    0 clr:pg$="attack!":nm$="27":poke59468,12:goto62000
    1 " parry gripp
    2 " 6184 vedura
    3 " goleta, ca 93117
    4 "
    5 " cursor #27 august 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca 93116
    8 "
   10 rem as of 8/24/81
   50 print"{clr}{down}{down}skill level(1-3)? ":print"{down}(1-easy 2-average 3-pro){up}{up}{left}{left}{left}{left}{left}{left}";
   60 gosub60000:sk=val(in$)
   65 ifin$<>"1"andin$<>"2"andin$<>"3"andin$<>chr$(13)thenprint:goto90
   70 bk=2^(3-sk)-1:fd=(4-sk)*5+2:lf=3:lk=lf:de=bk*8:la=bk*40:rt=1+(3-sk)*10
   80 goto120
   90 ifin$=""thenprint"{down}{down}{down}i'll assume 2":sk=2:gosub110:goto70
  100 print"{down}{down}{down}be serious!":gosub110:goto50
  110 fori=1to500:nexti:return
  120 gosub60400
  130 dim c(16),w(22),x(10),y(10)
  140 w(0)=15:w(1)=11:w(2)=7:w(4)=3:w(7)=2:w(12)=10:w(17)=6:w(18)=5:w(19)=1
  150 w(20)=14:w(21)=13:w(22)=9
  160 d(1)=26:d(2)=18:d(3)=25:d(4)=42:d(6)=41:d(7)=58:d(8)=50:d(9)=57:hs=-9:hw=0
  170 poke59467,16:poke59466,15:pg=59464:pokepg,0
  180 forj=1to16:readc(j):nextj
  190 data118,106,103,32,117,116,101,32,121,111,100,32,120,119,99,32
  200 i=0:sc=0:si=9:tx=20:ty=13:is=20
  210 fori=1to6:x(i)=0:y(i)=0:nexti:print"{clr}":gosub220:goto240
  220 fori=0towd:pokecrt+i+wd,96:pokecrt+24*wd+i,96:nexti
  230 fori=wd*2towd*24stepwd:pokecrt+i,96:pokecrt+wd+i-1,96:nexti:return
  240 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(18)" NPM "cr$spc(18)" MLN "
  250 gosub1170
  260 x=20:y=14:d=crt+x+y*wd:o=0
  270 gosub280:goto360
  280 forg=0tosi:ex(g)=int(rnd(1)*3)-1:gosub590:pokepg,0
  290 a=int(rnd(1)*4)
  300 if a=0thenx(g)=int(rnd(1)*(32-2*o))+4:y(g)=int(rnd(1)*o)+1
  310 if a=1thenx(g)=int(rnd(1)*(32-2*o))+o+4:y(g)=24-int(rnd(1)*o)
  320 if a=2thenx(g)=int(rnd(1)*o)+4:y(g)=int(rnd(1)*(22-o*2))+o+1
  330 if a=3thenx(g)=36-int(rnd(1)*o):y(g)=int(rnd(1)*(22-o*2))+o+1
  340 a=peek(crt+x(g)+y(g)*wd):ifa<>32anda<>96then290
  350 nextg:return
  360 poked,86
  370 wv=1
  380 pokepg,0:gosub590:pokepg,0:ifsi>-1then410
  390 pokepg,0:foru=1tort:gosub590:pokepg,0:fore=1to40:nexte:nextu:is=is+15
  400 si=9:wv=wv+1:gosub220:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}"wv:gosub280:ifo<6theno=wv
  410 foru=si*detola:nextu:fora=0tosi:pokepg,0:gosub590:pokepg,0:ifa>sithen380
  420 dx=sgn(tx-x(a)):dy=sgn(ty-y(a)):x2=x(a)+dx:y2=y(a)+dy:c1=crt+x(a)+y(a)*wd
  430 c=c1+dx+dy*wd:b=peek(c)
  440 ifb=32thenpokec,90:x(a)=x2:y(a)=y2:pokec1,32:pokepg,50:next:goto380
  450 ifb<99orb>121then540
  460 j=w(b-99):ifj>8then490
  470 x2=x(a):y2=y(a)+sgn(y(a)-ty):ify2=tytheny2=y(a)+1
  480 goto500
  490 y2=y(a):x2=x(a)+sgn(x(a)-tx):ifx2=txthenx2=x(a)+int(2*rnd(1))*2-1
  500 ex(a)=ex(a)+1:ifex(a)>bkthenpokec,c(j+1):pokepg,150:ex(a)=0
  510 c=crt+x2+y2*wd
  520 ifpeek(c)=32thenx(a)=x2:y(a)=y2:pokec1,32:pokec,90:pokepg,50:nexta:goto380
  530 b=peek(c)
  540 ifb>75andb<81thenpokec1,32:pokepg,255:goto1420
  550 ifb<>86then580
  560 forb=1to20:pokec1,42:pokepg,50:getin$:pokec1,90:pokepg,0:nextb
  570 pokec1,32:u=a:gosub1340:sc=sc-is:gosub1600:goto580
  580 pokepg,50:nexta:goto380
  590 dx=0:dy=0
  600 i=peek(qp):ifi=255thenreturn
  610 ifffandi>48andi<58theni=d(i-48)
  620 ifwd=80andi>176andi<186theni=d(i-176)
  630 ifi=41thendx=1:dy=0:goto730
  640 ifi=64ori=81thenqu=-1:goto1490
  650 ifi=42thendx=-1:dy=0:goto730
  660 ifi=50thendx=0:dy=-1:goto730
  670 ifi=18thendx=0:dy=1:goto730
  680 ifi=26thendx=-1:dy=1:goto730
  690 ifi=25thendx=1:dy=1:goto730
  700 ifi=57thendx=1:dy=-1:goto730
  710 ifi=58thendx=-1:dy=-1:goto730
  720 return
  730 ifpeek(qs)=1then820
  740 s=d:d=d+dx+dy*wd
  750 ifpeek(d)=32thenx=x+dx:y=y+dy:poked,86:pokes,32:return
  760 forj=2to3:ifpeek(d)=c(j)thenpoked,c(j-1):goto810
  770 if peek(d)=c(j+4)thenpoked,c(j+3):goto810
  780 if peek(d)=c(j+8)thenpoked,c(j+7):goto810
  790 if peek(d)=c(j+12)thenpoked,c(j+11):goto810
  800 nextj
  810 d=s:return
  820 p=x:q=y
  830 foru=1tofd:p=p+dx:q=q+dy:n=crt+p+q*wd:pokepg,255-u
  840 pi=32:ifu=1thenpi=86
  850 ifpeek(n)=32then890
  860 if peek(n)=90thenpoken-(dx+dy*wd),pi:goto910
  870 sc=sc-5:gosub1600
  880 poken-(dx+dy*wd),pi:u=10:return
  890 poken,43:poken-(dx+dy*wd),pi
  900 nextu:ifu-1=fdthensc=sc-5:gosub1600
  901 poken,32:return
  910 z=0:foru=0tosi:ifz=1thenx(u-1)=x(u):y(u-1)=y(u):goto930
  920 if x(u)=pandy(u)=qthenz=1
  930 pokepg,150+u:nextu:x(si)=0:si=si-1:a=a+1
  940 fore=1to3
  950 poken+wd,peek(n+wd)+128:poken-wd,peek(n-wd)+128:poken-1,peek(n-1)+128
  960 poken+1,peek(n+1)+128:poken+wd,peek(n+wd)-128:poken-wd,peek(n-wd)-128
  970 poken+1,peek(n+1)-128:poken-1,peek(n-1)-128:nexte
  980 poken-(dx+dy*wd),pi:poken,32:sc=sc+is:gosub1600:return
  990 pokepg,0:fory=0to250:nexty:print"{clr}{down}{down}{down}{down}"
 1000 pokepg,0
 1010 co=co+1
 1020 ifsc>hsthenhs=sc:hw=wv:ifco>1thenprint"{home}{down}{down}{rvon}new high score!{home}{down}{down}"
 1030 print"{down}score:";sc" at skill level";sk"{left}."
 1090 s$="s.":ifhw=1thens$="."
 1100 print"{down}high score is ";hs;" in";hw;" wave"s$
 1110 getr$:if r$<>""then1110
 1120 print"{down}{down}{down}play again?    {left}{left}{left}";:gosub60000:r$=in$:ifr$=""then1150
 1130 ifleft$(r$,1)="n"thenpoke59467,0:poke59466,0:end
 1140 ifleft$(r$,1)<>"y"thenprint"{up}{up}{up}":goto1120
 1150 si=0:goto200
 1160 return
 1170 print"{home} wave: 1    score: 0       shield:"lf-1:xz$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1180 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"xz$;" {CBM-O} {CBM-O} {CBM-O} {CBM-O} "
 1190 xy$=xz$+"{CBM-L}"+left$(xz$,7)+"{CBM-J}":fori=1to4:printxy$:nexti
 1200 printxz$;" {CBM-U} {CBM-U} {CBM-U} {CBM-U}"
 1210 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}";left$(xz$,14);" {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
 1220 fori=1to4
 1230 printleft$(xz$,14);"{CBM-L}";left$(xz$,11)
 1240 printxz$;left$(xz$,10);"{CBM-J}"
 1250 nexti
 1260 printleft$(xz$,15);"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1270 print"{home}{down}{down}{down}{down}{down}"
 1280 printleft$(xz$,13);"{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
 1290 fori=1to12
 1300 printleft$(xz$,12);"{CBM-L}";left$(xz$,15);"{CBM-J}"
 1310 nexti
 1320 printleft$(xz$,13);"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1330 return
 1340 ex(u)=int(rnd(1)*3)-1
 1350 i=int(rnd(1)*4)
 1360 if i=0thenx(u)=int(rnd(1)*(32-2*o))+4:y(u)=int(rnd(1)*o)+1
 1370 if i=1thenx(u)=int(rnd(1)*(32-2*o))+o+4:y(u)=24-int(rnd(1)*o)
 1380 if i=2thenx(u)=int(rnd(1)*o)+4:y(u)=int(rnd(1)*(22-o*2))+o+1
 1390 if i=3thenx(u)=36-int(rnd(1)*o):y(u)=int(rnd(1)*(22-o*2))+o+1
 1400 ifu=aandsi<10thensi=si+1:u=si:goto1340
 1410 return
 1420 lk=lk-1:iflk=0thenlk=lf:goto1490
 1430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"xz$"{rght}{rght}{rght}{rvon}{SHIFT-POUND} {CBM-*}"cr$xz$"{rght}{rght}{rght}{CBM-*}{rvon} {rvof}{SHIFT-POUND}"
 1440 foru=1to200:nextu
 1450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"xz$"{rght}{rght}{rght}NPM"cr$xz$"{rght}{rght}{rght}MLN"
 1460 print"{home}"xz$xz$"{rght}{rght}"lk-1;:iflk=1thenprint"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}no shields!
 1470 foru=a+1tosi:x(u-1)=x(u):y(u-1)=y(u):nextu
 1480 x(si)=0:si=si-1:a=a+1:goto580
 1490 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}MM{SHIFT--}NN{down}{left}{left}{left}{left}{left}MMVNN{down}{left}{left}{left}{left}{left}NNVMM{down}{left}{left}{left}{left}{left}NN{SHIFT--}MM
 1500 forz=1to120:pokepg,255:pokepg,200:nextz:goto990
 1600 ifsc>-1thenprint"{home}";xz$;"{rght}{rght}    {left}{left}{left}{left}";sc:return
 1610 sc=0:goto1600
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13):print"{clr}"
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 print"{home}*";chr$(150):ff=-1:ifpeek(32768)=42thenff=0
 60416 print"{clr}"
 60420 qp=515:qs=516
 60430 if peek(50000)=0 then return
 60440 qp=151:qs=152
 60450 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by parry gripp
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}defend your base from aliens
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto50
   50 rem ** coryright 1979 by    wolfgang fiebig
  100 q=o:q$="":z%=1:poke59459,0
  110 lc=.3:rc=1-lc
  120 rs=167:ls=165:lt=206:rt=205
  130 l$="4":r$="6"
  140 b=32:pc=42:el=2:er=37
  150 gosub2800
  160 fort=1to500:next:print"{clr}{down}{down}brauchst du eine anleitung (j,n) ?"
  170 get z$
  171 if z$="j"then3000
  172 if z$="n"then6000
  173 goto 170
  200 d%=1:z%=1:pl%=0:hh=0
  202 print"{clr}{rvon}waehle eine moecklichket:{rvof}  {rvon}";s$
  205 print"{down}  1 - rennfahrer
  210 print"  2 - anfaenger"
  215 print"  3 - mofa-rocker"
  220 print"  4 - fussgaenger"
  225 input"{down}schwierigkeit (1-4)";v:v=int(v)
  230 if v<1 or v>4 then225
  240 input"{down}{down}strassen-breite (3-10)";w
  245 w=int(w):if w<3 or w>10 then240
  250 print"{down}{down}welche geschwindigkeit"
  252 print"{down}  1 - formel-ii"
  253 print"  2 - angeber"
  257 print"  3 - rollstuhlfahrer"
  258 print"  4 - schneckenfuss"
  260 input"{down}fahr-geschwindigkeit (1-4)";hg
  265 if hg<1 or hg>4 then260
  270 if hg=1 then hh=0
  271 if hg=2 then hh=10
  272 if hg=3 then hh=20
  273 if hg=4 then hh=30
  280 goto6500
  300 print"{clr}":l=14:r=l+w+2:z=33808-120*v
  310 c=int((l+r)/2)+1
  320 forj=1to 23:get q$:gosub 600:next
  330 q=rnd(-ti):gosub2700
  350 q=rnd(1):if q>rc and r<er then gosub640:goto400
  360 if q<lc and l>el then gosub 620:goto400
  370 gosub600
  400 for i=0 to (hh):nexti
  405 a=pc:get q$:if q$=l$ thenc=c-1
  410 zc=z+c:if q$=r$ then c=c+1
  411 nn=peek(59471)
  412 if nn=239 then c=c+1
  413 if nn=247 then c=c-1
  414 if nn=255 then 425
  425 q=peek(zc):if q<>b then 430
  426 poke zc,a:if a=pc then350
  430 poke59467,16:poke59466,45:fori=1to8
  431 poke zc,42:forp= 80to1 step-3:poke59464,p:next
  432 poke zc,170:forx=240to1 step-8:poke59464,x:next
  435 nexti:poke49467,0:poke59466,0
  440 h=ti-h:if h<o then h=h+5184000
  450 m=int(h/60)
  455 goto6500
  550 rem
  560 rem*******************************
  570 rem
  600 print tab(l);chr$(rs);chr$(rs);tab(r);chr$(ls);chr$(ls)
  610 return
  620 printtab(l);chr$(lt);chr$(lt);tab(r-1);chr$(lt);chr$(lt)
  630 l=l-1:r=r-1:return
  640 print tab(l+1);chr$(rt);chr$(rt);tab(r);chr$(rt);chr$(rt)
  650 l=l+1:r=r+1:return
 2700 poke z+c,pc:p=z-232:poke p,85
 2710 poke p+1,64:poke p+2,73
 2720 forj=1to5:poke p+40*j,93
 2730 poke p+40*j+1,87:poke p+40*j+2,93
 2740 next:poke p+240,74:poke p+241,64
 2750 poke p+242,75:for j=1 to800:next
 2760 poke 59467,16:poke 59466,13:for j=1to 5:forx=120to1 step -6
 2770 poke 59464,x:poke p+1+40*j,81
 2775 nextx:nextj:poke 59467,0:poke 59466,0
 2780 h=ti:return
 2800 dim d(12):l=14:r=22:print chr$(147);
 2810 for j=1to12:read d(j):next
 2820 data1,21,20,15,77,18,1,12,12,25,5,42
 2830 for j=1to2:gosub600:next
 2840 for j=1to3:gosub640:next
 2850 for j=1to5:gosub620:next
 2860 for j=1to13:gosub640:next
 2862 p=32786:poke p,pc
 2865 poke 59467,16:poke 59466,15:forp=1to150:poke 59464,p
 2867 next:poke 59467,0:poke59466,0
 2870 p=32786:poke p,pc:for j=1to300:next
 2890 for j=1to2:p=p+40:gosub4000:next
 2900 for j=1to3:p=p+41:gosub4000:next
 2910 for j=1to4:p=p+39:gosub4000:next
 2920 p=p+40:gosub4000
 2930 for j=1to12:p=p+41:gosub4000
 2940 poke p,d(j):next:return
 3000 print"{clr}{down}{rght}{rvon}a l e i t u n g  a u t o - r a l l y e"
 3005 forj=1to1000:next
 3007 poke59409,52:print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}auto-rallye"
 3010 print"{down}{down} es muss versucht werden mit dem auto   innerhalb der fahrbahn"
 3020 print"die lings und rechts durch doppel-linienbegrenzt wird zu fahren."
 3030 print"{down}geraeht das auto in die seitenstreifen,"
 3035 print"so ist die fahrt zu ende und"
 3040 print"es werden die gefahrenen kilometer      ausgedruckt.":gosub 5000
 3045 poke59409,52
 3050 print"{clr}{down}das auto wird durch ein {rvon}'*'{rvof} dargestellt."
 3060 print"die tasten '4' und '6' veraendern       die fahrichtung."
 3070 print"{down}{rvon} '4' {rvof} = lings  #  {rvon} '6' {rvof} = rechts !!!"
 3080 print"{down}{down}verschiedene spielstaerken wie"
 3090 print"{down} ++  fahrer-leistung  ++"
 3091 print"{down} ++  strassen-breite  ++"
 3092 print"{down} ++  fahr-geschwindigkeit ++"
 3100 print"{down}koennen eingegeben werden.":gosub 5000
 3200 poke59409,52:print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}joysticksteuerung"
 3210 print"{down}{rght}das programm ist zum anschluss eines"
 3220 print"{rvon} atari-joystick {rvof} an den user-port       vorgesehen!!!"
 3230 print"der joystick arbeitet parallel zur      tasteratur."
 3235 print"{down}lings = {rvon}'4'{rvof}  und  rechts = {rvon}'6'{rvof}"
 3240 print"{down}der rote knopf uebernimmt die funktion:"
 3250 print"{rvon}' c '{rvof}  spielfortsetzung."
 3260 print"{down}{rght}zur tonerzeugung verstaerker-eingang   an user-port 'cb2'"
 3270 print"entspricht (pin m auf der steckerleiste)anschliessen."
 3280 print"{down}viel spass beim spiel!!!"
 3290 gosub5000
 3300 print"{clr}{down}{down}{down}{rvon}hast du alles verstanden?{rvof} ";s$
 3320 print"{down}so druecke taste'j'(ja) sonst'n'(nein) ?"
 3330 getz$
 3340 ifz$="j"then 6000
 3350 ifz$="n"then 3007
 3360 goto 3330
 4000 poke p,pc:poke 59467,16:poke59466,83:forx=200to1 step-5:poke 59464,x
 4010 next:poke 59467,0:poke 59466,0:return
 4100 poke59467,16:poke59466,1
 4110 print:forh=1to39:print"Z";:poke59464,200-4*h:next:print
 4115 poke59467,0:poke59466,0
 4120 print"{down}{rvon}a u f  w i e d e r s e h e n  "s$
 4125 poke59467,16:poke59464,120
 4130 forh=1to100:poke59466,rnd(1)*255
 4140 next
 4150 poke59467,0:poke59466,0:poke59464,0:end
 5000 print"{down}{down}{rvon}bist du bereit?{rvof} "
 5005 print"{down}dann druecke irgend eine taste !!!"
 5007 poke59409,60
 5010 geta$:ifa$=""then 5010
 5020 return
 6000 print"{clr}anzahl der spieler (1-9) ?";
 6010 fori=1to100:geta$:ifa$<>""goto6040
 6015 next:print"{rvon} {left}";
 6025 fori=1to100:geta$:ifa$<>""goto6040
 6030 next:print"{rvof} {left}";:goto6010
 6040 ifa$<"1"ora$>"9"goto6010
 6050 print"{rvof}"a$:x%=val(a$)
 6060 print"{down}druecken sie {rvon}return{rvof} nach jedem namen!"
 6070 print"{down}":fork=1tox%:print"name von spieler"k"? {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:b$=""
 6080 forj=1to50:geta$:ifa$<>""goto6110
 6090 next:print"{rvon}{CBM-@}{left}";:forj=1to50:geta$:ifa$<>""goto6110
 6100 next:print"{rvof}{CBM-@}{left}";:goto6080
 6110 a=asc(a$):ifa=13thenprint"{rvof}{CBM-@}";:goto6150
 6120 ifa=20andlen(b$)>1thenb$=left$(b$,len(b$)-1):print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto6080
 6130 ifa=20andlen(b$)=1thenb$="":print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto6080
 6140 ifa=32or(64<aanda<98)thenprint"{rvof}"a$;:b$=b$+a$:iflen(b$)>9goto6150
 6145 goto6080
 6150 n$(k)=b$:print:print:nextk
 6155 goto 200
 6500 rem * auswertung *
 6501 rem
 6505 ifm(pl%)=0thenm(pl%)=m
 6506 m(pl%)=m
 6515 t%(pl%)=1*int(t%(pl%)+m(pl%))
 6520 print"{clr}{rght}{rght}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 6530 print"{rght}{rght}{SHIFT--}  spieler    {SHIFT--}   runde ";d%;"{SHIFT--} gesamt {SHIFT--}
 6540 print"{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 6580 fori=1tox%
 6590 print"{rght}{rght}{SHIFT--}             {SHIFT--}            {SHIFT--}        {SHIFT--}
 6600 nexti
 6610 print"{rght}{rght}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
 6620 fori=1tox%:print"{up}";:next:print"{up}";
 6630 fori=1tox%
 6650 printtab(4);n$(i);:ifi=pl%thenprinttab(15);"*";
 6660 printtab(21)m(i);"km";tab(31)t%(i);"km"
 6670 nexti
 6680 ifpl%=x%thenz%=z%+1:print:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}es folgt rallye-runde "z%
 6685 ifpl%=x% then d%=d%+1
 6690 p%=pl%+1:ifp%>x%thenp%=1
 6695 print"{down}{down}        jetzt ist "n$(p%)" dran !!!
 6700 print"{down}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 6705 print"{rvon}waehle{rvof}: 'c' - spielfortsetzung"
 6710 print"        's' - schwierigkeitsgrad"
 6720 print"        'e' - spiel-ende"
 6730 nn=peek(59471):get q$:if q$="c" or nn=254 then 6800
 6740 if q$="s" then m(pl%)=0:t%(pl%)=0:goto200
 6745 if q$="e"then 4100
 6750 goto6730
 6800 ifp%<1thenp%=x%
 6805 pl%=pl%+1:ifpl%>x%thenpl%=1
 6810 print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 6820 forj=1tolen(n$(pl%)):printmid$(n$(pl%),j,1);"{down}{rght}";:nextj
 6830 fori=1to1000:next
 6840 goto 300
  100 rem  benzinverbrauch - berechnung
  120 rem
  140 rem         hans metz
  160 rem
  180 rem        januar 1981
  200 rem
  220 clr
  240 print"{clr}{down}{down}{down}{down}{down}{down}"
  260 print"{rght}{rght}{rght}{rght}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  280 print"{rght}{rght}{rght}{rght}{CBM-+}                       {CBM-+}"
  300 print"{rght}{rght}{rght}{rght}{CBM-+}    benzinverbrauch    {CBM-+}
  320 print"{rght}{rght}{rght}{rght}{CBM-+}                       {CBM-+}"
  340 print"{rght}{rght}{rght}{rght}{CBM-+}       berechnung      {CBM-+}"
  360 print"{rght}{rght}{rght}{rght}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}"
  380 dimkm$(100),km(100),li(100),pr(100)
  400 dimlt(100),dm(100)
  410 m=2
  420 print"{down}{down}daten eingeben{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}= [e]
  425 print"{down}daten vom band lesen     = [l]
  430 print"{down}information zum programm = [i]
  440 wait158,1:getle$
  460 ifle$="l"then540
  480 ifle$="e"then880
  490 ifle$="i"then9000
  500 goto420
  520 rem lese-routine
  540 open1,1,0,"sprit-daten"
  550 input#1,km(1)
  560 for m=2to100
  580 input#1,km(m):input#1,li(m):input#1,pr(m)
  600 ifkm(m)=0then640
  620 nextm
  640 close1
  660 print"{down}{down}{rght}{rght}die daten sind eingelesen{down}"
  680 print"{down}{down}{rght}{rght}eingeben oder berechnen?  [e,b];
  682 wait158,1:getle$
  684 ifle$="e"then880
  686 ifle$="b"then1100
  688 goto680
  700 rem abspeicher-routine
  720 open1,1,2,"sprit-daten"
  740 print#1,km(1)
  760 fori=2tom
  780 print#1,km(i):print#1,li(i):print#1,pr(i)
  800 nexti
  820 close1
  840 print"{down}{down}{rght}{rght}die daten sind abgespeichert{down}
  860 goto1480
  880 print"{clr}{down}{down}{down}
  885 print"eingabe beenden mit bel.zeichen bei km{down}{down}"
  890 print"   km-stand   liter     preis
  900 print"{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
  920 ifm=2theninput"  ";km(1)
  930 ifaf$="e"thenprint"   ";km(m-1)
  940 fori=mto100
  960 input"  ";km$(i)
  965 ifleft$(km$(i),1)<"0"orleft$(km$(i),1)>"9"then1100
  970 km(i)=val(km$(i))
  975 ifkm(i)<=km(i-1)thenprint"der neue km-stand muss >";km(i-1);"sein":goto960
 1000 input"            {up}";li(i)
 1020 input"                     {up}";pr(i)
 1050 m=m+1
 1060 nexti
 1080 print"{down}{rvon}max 100 zeilen{down}"
 1100 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}o.k.  ich berechne
 1120 fori=m-1to2step-1
 1140 lt(i)=int((li(i)/(km(i)-km(i-1))+.00005)*10000)/100
 1160 dm(i)=int((pr(i)/(km(i)-km(i-1))+.00005)*10000)/100
 1180 nexti
 1190 print"{clr}{down}"
 1200 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rvon}kfz{rvof} {rvon}verbrauchs{rvof} - {rvon}berechnung{rvof}{down}{down}{down}{down}"
 1220 print"  km   ltr.   preis  ltr/100km dm/100km"
 1240 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 1250 dl=0:dp=0
 1260 printkm(1)
 1280 fori=2tom-1
 1300 printkm(i);:printtab(7)li(i);tab(14)pr(i);tab(23)lt(i);tab(32)dm(i)
 1320 dl=dl+li(i)
 1340 dp=dp+pr(i)
 1360 nexti
 1380 rem berechnung des durchschnitts
 1400 dl=int((dl/(km(i-1)-km(1))+.00005)*10000)/100
 1420 dp=int((dp/(km(i-1)-km(1))+.00005)*10000)/100
 1440 printtab(23)"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 1460 print" {rght}{rght}{rght} durchschnitt:";:printtab(23)dl;tab(32)dp
 1480 print"{down}{down}abspeichern,berechnen,ergaenzen,fertig"
 1490 print"{down}histogramm oder korrektur [a,b,e,f,h,k]?"
 1500 wait158,1:getaf$
 1510 ifaf$="a"then720
 1520 ifaf$="b"then1100
 1530 ifaf$="e"then880
 1535 ifaf$="h"then4000
 1540 ifaf$="k"then2010
 1545 ifaf$="f"then9900
 1550 goto1480
 2000 rem korrektur
 2010 print"{down}{down}welcher wert soll korrigiert werden"
 2015 inputw
 2020 fori=1tom
 2030 ifw=km(i)thengosub2110:ifle$="j"theninput"{down}wert fuer km ";km(i):goto1480
 2040 ifw=li(i)thengosub2110:ifle$="j"theninput"{down}wert fuer ltr. ";li(i):goto1480
 2050 ifw=pr(i)thengosub2110:ifle$="j"theninput"{down}wert fuer preis";pr(i):goto1480
 2060 nexti
 2070 ifi>=mthenprint"{down}{down}wert nicht gefunden {down}{down}{down}"
 2080 goto1480
 2100 rem sub
 2110 print:printkm(i);:printtab(7)li(i);tab(14)pr(i);tab(23)lt(i);tab(32)dm(i)
 2115 print"{down}ist dies die zeile? [j,n]
 2120 wait158,1:getle$
 2125 return
 4000 rem
 4900 print"{down}{down}ab wann soll histogramm erstellt werden"
 4910 input"km:";hi
 4920 print"{clr}{rght}{rght}{rvon}graphische{rvof} {rvon}darstellung{rvof} {rvon}des{rvof} {rvon}verbrauchs{rvof}
 4922 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}[ltr/100km]{up}
 4925 ab=33731
 4930 poke33569,30:poke33649,12:poke33689,20:poke33729,18
 5000 forad=33528to33567
 5005 pokead,99
 5010 next
 5015 forad=33528to33168step-40
 5020 pokead,32
 5025 next
 5030 forad=33128to32928step-40
 5035 pokead,49
 5040 next
 5045 i=49
 5050 forad=33489to33169step-40
 5055 pokead,i:i=i+1
 5060 next
 5065 i=48
 5070 forad=33129to32929step-40
 5075 pokead,i:i=i+1
 5080 next
 5100 forad=33730to32930step-40
 5105 pokead,66
 5110 next
 5112 poke33604,67:poke33605,62:poke33606,11:poke33607,13
 5115 fori=1to100
 5120 ifkm(i)=>hithen6000
 5125 next
 6000 rem spc  zeichnen
 6175 aa=33491
 6180 forl=1to37
 6182 gosub8000
 6185 forad=aato32920step-40
 6193 z=z+1:ifz>int(lt(i))then6208
 6195 pokead,102
 6204 iflt(i)=0then7000
 6207 nextad
 6208 iflt(i)-int(lt(i))>.5thenpokead,104
 6209 iflt(i)>15thenpokead,30
 6210 z=0
 6212 aa=aa+1
 6215 i=i+1
 6220 nextl
 7000 restore
 7010 print"weiter?":wait158,1
 7012 getaf$:ifaf$="n"then9900
 7015 print"{clr}"
 7020 goto1480
 8000 rem sub km senkrecht
 8110 ifkm(i)=0thenreturn
 8135 km$=str$(km(i))
 8140 forr=len(km$)to2step-1
 8145 k$=mid$(km$,r,1)
 8150 pokeab,asc(k$)
 8155 ab=ab-40
 8160 next
 8167 ab=ab+201-((6-len(km$))*40)
 8170 return
 9000 rem information
 9010 print"{clr}{rght}{rght}{rght}{rght}>>> {rvon}information{rvof} {rvon}zum{rvof} {rvon}programm{rvof} <<<
 9020 print"{down}dieses programm verwaltet die daten.
 9030 print"fuer benzinverbrauch und -kosten am kfz.
 9050 print"in eine vorgegebenen tabelle wird
 9060 print"{rvon}km-stand{rvof} zugetankte {rvon}liter{rvof} und {rvon}preis{rvof}"
 9070 print"eingegeben.
 9080 print"nach jedem wert ist <return> zu druecken"
 9090 print"zur beendigung der eingabe wird ein"
 9100 print"beliebiger buchstabe eingegeben"
 9110 print"anschliessend werden die eingegebenen
 9120 print"daten ausgewertet und gezeigt.
 9130 print" sollte die tabelle nicht auf den bild-"
 9140 print"schirm passen so kann mit <{rvon}stop{rvof}> abge-"
 9150 print"brochen und mit'cont'fortgesetzt werden
 9160 print" danach kann eine der tasten a,b,e,f,h,k";
 9170 print"gedrueckt werden.
 9180 print" beim {rvon}anfangs-km-stand{rvof} ist keine eingabefuer liter und preis ";
 9185 print"moeglich.
 9190 print"{down}> zum programmstart druecke eine taste <
 9800 wait158,1:getx$
 9850 goto220
 9900 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}f e r t i g"
 9910 end
    1 print"{clr}"
   10 gosub1000
   20 print"how many numbers";
   30 inputa
   31 ifa=<0ora<>int(a)then20
   32 print"{clr}"
   35 dimc(a)
   40 forb=1toa
   50 print"what is number"b;
   55 geta$
   60 inputc(b)
   70 nextb
   80 forb=1toa
   90 d=d+c(b)
  100 nextb
  110 e=d/a
  115 print"{down}{down}"
  120 print"average is"e
  125 print
  130 print"press{CBM-C}{rvon}return{rvof}{CBM-V}to go again:"
  131 fory=1to20:geta$:next
  132 geta$:ifa$=""then132
  133 ifa$<>chr$(13)thenend
  150 print"{clr}":clr:goto20
  170 end
 1000 print"{down}              averages"
 1010 print"              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1020 print"{down}    by d.j.wylie"
 1021 print"{down}  this program finds the average "
 1022 print" of any number of numbers"
 1030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start:-"
 1031 fory=1to20:geta$:next
 1040 geta$:ifa$=""then1040
 1050 print"{clr}"
 1060 return
    1 poke53280,0:poke53281,0
    2 print"{wht}"
    5 print tab(34);"awari"
   10 data 0
   15 dim b(13),g(13),f(50):read n
   20 print:print:e=0
   25 for i=0 to 12:b(i)=3:next i
   30 c=0:f(n)=0:b(13)=0:b(6)=0
   35 gosub 500
   40 print "your move";:gosub 110
   45 if e=0 then 80
   50 if m=h then gosub 100
   55 if e=0 then 80
   60 print "my move is ";:gosub 800
   65 if e=0 then 80
   70 if m=h then print ",";:gosub 800
   75 if e>0 then 35
   80 print:print"game over"
   85 d=b(6)-b(13):if d<0 then print"i win by";-d;"point(s)":goto 20
   90 n=n+1:if d=0 then print "drawn game":goto 20
   95 print "you win by";d;"points!":goto 20
  100 print "again";
  110 input m:if m<7 then if m>0 then m=m-1:goto 130
  120 print "illegal move pal":goto 100
  130 if b(m)=0 then 120
  140 h=6:gosub 200
  150 goto 500
  200 k=m:gosub 600
  205 e=0:if k>6 then k=k-7
  210 c=c+1:if c<9 then f(n)=f(n)*6+k
  215 for i=0 to 5:if b(i)<>0 then 230
  220 next i
  225 return
  230 for i=7 to 12:if b(i)<>0 then e=1:return
  235 goto 220
  500 print:print"   ";
  505 for i=12 to 7 step-1:gosub 580
  510 next i
  515 print:i=13:gosub 580
  520 print "                      ";:print b(6):print "   ";
  525 for i=0 to 5:gosub 580
  530 next i
  535 print:print:return
  580 if b(i)<10 then print " ";
  585 print b(i);:return
  600 p=b(m):b(m)=0
  605 for p=p to 1 step -1:m=m+1:if m>13 then m=m-14
  610 b(m)=b(m)+1:next p
  615 if b(m)=1 then if m<>6 then if m<>13 then if b(12-m)<>0 then 625
  620 return
  625 b(h)=b(h)+b(12-m)+1:b(m)=0:b(12-m)=0:return
  800 d=-99:h=13
  805 for i=0 to 13:g(i)=b(i):next i
  810 for j=7 to 12:if b(j)=0 then 885
  815 g=0:m=j:gosub 600
  820 for i=0 to 5:if b(i)=0 then 845
  825 l=b(i)+i:r=0
  830 if l>13 then l=l-14:r=1:goto 830
  835 if b(l)=0 then ifl<>6 then if l<>13 then r=b(12-l)+r
  840 if r>q then q=r
  845 next i
  850 q=b(13)-b(6)-q:if c>8 then 875
  855 k=j:if k>6 then k=k-7
  860 for i=0 to n-1:if f(n)*6+k=int(f(i)/6^(7-c)+.1) then q=q-2
  870 next i
  875 for i=0 to 13:b(i)=g(i):next i
  880 if q>=d then a=j:d=q
  885 next j
  890 m=a:print chr$(42+m);:goto 200
  900 for i=0 to n-1:printb(i):next i
  999 end
    5 n0=10:n1=20:n2=n0+n1
   10 dimc$(12),c(10,2),n$(n2),t(n2,3),m$(1)
   20 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}";tab(9);"** b-1 bomber game **":print
   25 printtab(10);"copyright 1980 by":print:printtab(13);"avalon hill"
   27 printtab(9);"microcomputer games"
   30 fori=1to12:readc$(i):next
   35 dataau,ec,ev,ph,na,al,co,st,ra,se,ar,bo
   40 fori=1ton2:readn$(i),t(i,1),t(i,2):next
   45 n$(0)="thule afb":t(0,1)=0:t(0,2)=0
   50 dataarkhangelsk,8261,5922,astrakhan',8631,7947,kiyev,7391,7467
   55 dataleningrad,7661,6427,moskva,7956,6937,murmansk,8056,5452
   60 datasevastopol,7506,8152,sverdlovsk,9311,6682,volgograd,8331,7692
   65 datayerevan,8381,8657
   70 datadubovka,8350,7650,khar'kov,8850,7450,konosha,8153,6325
   75 datalipetsk,8100,7210,ochamchira,8060,8400,odessa,7230,8050
   80 dataonega,8147,5976,pechenga,7976,5410,pinsk,7115,7235
   82 datapodol'sk,7900,7010,pskov,7475,6780,rostov,7990,8010
   84 datasarpa,8515,7930,syktyvkar,8825,6200,tallinn,7060,6415
   86 datatbilisi,8415,8435,ukhta,8960,5925,vinnitsa,7200,7585,vyborg,7575,6300
   90 datayaran'sk,8575,6740
  100 a9=25000:a0=100:c0=10:s=4500:p=6:f9=0:t=0:e=1.75
  105 m$(0)="sam":m$(1)="mig"
  110 x=5500+rnd(0)*1500:y=3500+rnd(0)*1000
  120 fori=1ton2:t(i,3)=0:next:a=int(25000*rnd(0)):a1=a:r9=0
  130 c=int(rnd(0)*360):c1=c:t9=int(rnd(0)*n0+1):t8=0:f=18500
  140 fori=1to10:c(i,1)=0:next:f$="":fori=1to5
  150 f$=f$+chr$(int(rnd(0)*26)+65):next:l9=.3:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  160 print"you are flying a b1 bomber out of"
  161 print"thule afb. you are in an alert status"
  162 print"orbiting over the arctic":print:fori=1to6000:next
  180 print"{rvon}*****{rvof} flash {rvon}*****":print"hot war hot war hot war{rvof}"
  190 print:print"your primary target is ";n$(t9);"."
  192 print"your fail safe code is {rvon}";f$;"{rvof}.":print
  200 print"your alternates are:":j=0:fori=1ton0:ifi=t9then230
  210 j=j+1:printtab(12*(j-1)+1);n$(i);:ifj<3then230
  220 j=0:ifi<9thenprint
  230 next:print:print
  240 print"soviet defense complexes are:"
  250 j=0:fori=n0+1ton2:j=j+1
  260 printtab(12*(j-1)+1);n$(i);:ifj<3then280
  270 j=0:print
  280 next:print:print:print"good luck!"
  290 gosub670:input"command";a$:iflen(a$)<2then310
  295 cm=0
  300 fori=1to12:ifleft$(a$,2)=c$(i)thencm=i
  305 next:ifcm>0then350
  310 print"legal commands are:":print"co to change course"
  311 print"al to change altitude":print"st to get a status report"
  312 print"ra to get a radar report":print"na to get navigation data"
  313 print"se to search for a defense complex"
  314 print"au to have autopilot fly plane"
  315 print"ev to conduct evasive action"
  316 print"ec to use ecm"
  317 print"ph to launch phoenix missile"
  318 print"ar to arm bomb"
  319 print"bo to drop bomb":t0=t+3+int(5*rnd(0)):goto1020
  350 oncmgoto430,970,740,820,560,360,380,700,650,610,390,470
  360 input"new altitude";a1:ifa1>a9thena1=a9
  361 ifa1<a0thena1=a0
  370 t0=t+13+int(15*rnd(0)):goto1020
  380 input"new course";c1:goto370
  390 iff9=2then420
  391 input"fail safe code";a$:ifa$=f$thenf9=1
  400 iff9=0then410
  401 print"bomb armed.":l9=10*l9:goto370
  410 print"wrong code.":goto370
  420 print"bomb already dropped.":goto370
  430 print"time for autopilot (s,m,h)? ";:a$=" "
  431 getb$:ifb$=""then431
  432 printb$;:ifasc(b$)=13then439
  433 ifasc(b$)<>20thena$=a$+b$:goto431
  434 if((asc(b$)=20)and(len(a$)>1))thena$=left$(a$,len(a$)-1)
  435 goto431
  439 a$=a$+" ":i=0:j=0:k=0
  440 ifa$=" "then460
  441 i=val(a$):gosub1650:ifa$=" "then460
  450 j=val(a$):gosub1650:ifa$=" "then460
  455 k=val(a$)
  460 i=-i*(i>0):j=-j*(j>0):k=-k*(k>0):t2=t+i+60*j+3600*k:goto1020
  470 iff9=2then420
  471 iff9=0then530
  472 input"target";a$
  480 iflen(a$)<2then540
  481 a$=left$(a$,2):gosub1760:if((nn=-1)or(nn>n0))then540
  490 gosub1710:ifra>250then550
  491 input"confirm drop (y/n)";a$
  500 ifa$<>"y"then370
  501 fori=1to1500:next:printn$(nn);" destroyed."
  510 l9=l9/15
  520 t8=nn:s=s+250:a0=a0+50:f9=2:t0=t+3+int(5*rnd(0)):goto1020
  530 print"bomb not armed.":goto370
  540 print"improper target.":goto370
  550 printn$(nn);" not in range.":goto370
  560 input"where to";a$:iflen(a$)<2then600
  561 a$=left$(a$,2)
  570 gosub1760:ifnn=-1then600
  580 gosub1710:gosub1600
  581 printn$(nn);" bears";int(an*10)/10;"t range";int(ra);"km."
  590 t0=t+40+int(41*rnd(0)):goto1020
  600 print"not on the map.":goto590
  610 i=0:j=1e4:fornn=n0+1ton2:gosub1710:ifra>jthen640
  620 ift(nn,3)=2then640
  630 gosub1600:ifabs(c-an)>45andabs(c-an)<315then640
  631 j=ra:i=nn
  640 next:nn=i:ifnn>0then580
  641 print"no complex found.":goto590
  650 print"contacts:":gosub670:ifj=0thenprint"   no conacts."
  660 t0=t+5+int(rnd(0)*11):goto1020
  670 j=0:fori=1to10:ifc(i,1)=0then690
  671 j=1
  680 printm$(-(c(i,1)>10));"-";c(i,1);"intercepts in";c(i,2)-t;"seconds."
  690 next:return
  700 print"course";int(c);"t     speed";s;"kph"
  710 print"altitude";a;"m fuel";f;"km"
  720 iff9<>2thenprint"primary target: ";n$(t9)
  730 printp;"phoenix left.":t0=t+20+int(rnd(0)*21):goto1020
  740 a1=200+int(300*rnd(0)):ifrnd(0)<.5thena1=-a1
  741 a=a+a1
  750 ifa<0then1470
  751 a1=a:c1=60+int(60*rnd(0))
  760 ifrnd(0)>.5thenc1=-c1
  761 c=c+c1:c=c+360*(c>360)-360*(c<0)
  770 c1=c:fori=1to10:ifc(i,1)=0then810
  780 j=(8-2*(c(i,1)<10))/(c(i,2)-t):ifj>.95thenj=.95
  790 ifrnd(0)>jthen810
  791 printm$(-(c(i,1)>10));"-";c(i,1);"loses target";
  800 ifc(i,1)>10thenprint"  - returns to base";
  801 print".":c(i,1)=0
  810 next:t0=t+10+int(21*rnd(0)):goto1020
  820 ifp=0then870
  821 input"phoenix missile armed. target";a$
  822 iflen(a$)>3thena$=left$(a$,3)
  830 ifa$="m"ora$="mig"ora$="s"ora$="sam"then900
  831 ifa$="n"ora$="none"then880
  832 iflen(a$)<2then880
  833 a$=left$(a$,2):gosub1760
  840 ifnn<n0+1then880
  841 gosub1710:ifra>200then890
  842 print"phoenix away!"
  850 printn$(nn);" defense complex destroyed.":t(nn,3)=2:p=p-1
  860 t0=t+3+int(5*rnd(0)):goto1020
  870 print"no more missiles!":goto860
  880 print"invalid target.":goto860
  890 printn$(nn);" out of range.":goto860
  900 j=1e4:k=0:fori=1to10:ifc(i,1)=0then920
  910 ifc(i,2)-t>jthen920
  911 j=c(i,2)-t:k=i
  920 next:print"phoenix away!":p=p-1:ifk=0then960
  930 ifj>10then960
  931 ifc(k,1)<10andrnd(0)>.6then960
  940 ifc(k,1)>10andrnd(0)>.85then960
  941 printm$(-(c(k,1)>10));"-";c(k,1);"destroyed!"
  950 c(k,1)=0:goto860
  960 print"missed!":goto860
  970 fori=1to10:ifc(i,1)=0then1010
  971 j=e*(.5+5/(c(i,2)-t))
  980 ifj>.97thenj=.97
  981 ifrnd(0)>jthen1010
  982 printm$(-(c(i,1)>10));"-";c(i,1);
  990 ifc(i,1)>10thenprint"loses target - returns to base."
 1000 ifc(i,1)<10thenprint" self destructs."
 1001 c(i,1)=0
 1010 next:e=e*(.7+.3*rnd(0)):t0=t+3+int(5*rnd(0)):goto1020
 1020 t3=t0:i9=1:ift0>tthen1060
 1021 i9=0:t3=int(rnd(0)*301)+t
 1030 fori=1to10:ifc(i,1)=0then1050
 1031 ifc(i,2)<t3thent3=c(i,2)
 1040 ift>=c(i,2)-10then1050
 1041 ifc(i,2)-10<t3thent3=c(i,2)-10
 1050 next:if(t2<=t)or(t3<t2)then1060
 1055 t3=t2:i9=1
 1060 t0=t3-t:a2=a0*t0:c2=c0*t0
 1070 ifa2>abs(a-a1)thena=a1
 1071 ifa2<=abs(a-a1)thena=a+a2*sgn(a1-a)
 1080 ifc2>abs(-360*(abs(c-c1)>180)-abs(c-c1))then1100
 1090 c=c+c2*sgn(c1-c):c=c-360*(c<0)+360*(c>360):goto1110
 1100 c=c1
 1110 x=x+s*t0*sin(c*~/180)/3600
 1120 f=f-int(s*(t3-t)/3600)
 1130 y=y-s*t0*cos(c*~/180)/3600:t=t3
 1140 iff<0then1490
 1150 de=0:cr=0:fori=1to10:if(c(i,1)=0)or(de=1)or(cr=1)then1210
 1151 ifc(i,2)>tthen1200
 1160 print"{rvon}nuclear airburst!!!{rvof}":r9=1:c(i,1)=0:i9=1
 1170 a=a+int(3000*rnd(0))*sgn(.5-rnd(0)):ifa<0thencr=1
 1180 a1=a:f=int(f*rnd(0)):s=int(s*(.5+.5*rnd(0)))
 1190 ifrnd(0)<.15thende=1
 1191 goto1210
 1200 ifc(i,2)>t+10then1210
 1201 printm$(-(c(i,1)>10));"-";c(i,1);"in phoenix range.":i9=1
 1210 next:ifcr=1then1470
 1211 ifde=1then1480
 1212 iff9=2then1270
 1220 fornn=1ton0:gosub1710:ifra>250then1240
 1221 ift(nn,3)<>0then1240
 1230 printn$(nn);" in bomb range.":t(nn,3)=1:i9=1
 1240 ift(nn,3)<>1then1260
 1241 ifra<250then1260
 1250 printn$(nn);" no longer in bomb range.":t(nn,3)=0
 1260 next
 1270 fornn=n0+1ton2:ift(nn,3)=2then1440
 1280 ifabs(x-t(nn,1))>750then1440
 1290 ifabs(y-t(nn,2))>750then1440
 1291 gosub1710:ifra>750then1440
 1300 ifra>200orp=0then1320
 1301 ift(nn,3)=1then1320
 1302 t(nn,3)=1
 1310 printn$(nn);" base in phoenix range.":i9=1
 1320 ift(nn,3)<>1then1340
 1321 ifra<200then1340
 1322 t(nn,3)=0
 1330 printn$(nn);" base out of missile range."
 1340 ifrnd(0)>l9*(t0/300)*(a^.125)then1440
 1350 j=0:fork=1to10:ifc(k,1)=0thenj=k
 1351 next:ifj=0then1440
 1360 ifrnd(0)>.5then1380
 1370 c(j,1)=int(9*rnd(0)+1):m=6500:goto1390
 1380 c(j,1)=21+2*int(rnd(0)*7):m=5000
 1390 gosub1600:l=(an-c)*~/180
 1400 l=sqr(m*m-(s*sin(l))^2)+sgn(~-abs(l))*abs(s*cos(l))
 1410 gosub1710:c(j,2)=t+int((3600*ra/l)+1)
 1420 printn$(nn);" launches a ";m$(-(c(j,1)>10));"-";c(j,1);"."
 1430 i9=1
 1440 next:nn=0:gosub1600:gosub1710:l=abs(c-an)
 1450 if(l<30orl>330)andra<6500andt>2000then1500
 1460 ifi9=1then290
 1461 ifi9<>1then1020
 1470 print"b1 crashes into hillside.":r9=2:goto1510
 1480 print"b1 destroyed.":r9=2:goto1510
 1490 print"b1 runs out of fuel.":goto1470
 1500 nn=0:gosub1710:ifra<fthen1505
 1501 print"b1 refuels from tanker aircraft.":fori=1to1500:next
 1505 print"b1 lands at thule afb."
 1506 print"mission complete."
 1510 print"mission summary:":ift8=0then1540
 1520 ift8=t9thenprint"primary";
 1530 ift8<>t9thenprint"secondary";
 1535 print" target, ";n$(t8);" destroyed."
 1540 print"defense complexes destroyed:"
 1550 j=0:fori=n0+1ton2:ift(i,3)<>2then1560
 1551 printtab(4);n$(i):j=1
 1560 next:ifj=0thenprinttab(4);"none"
 1570 ifr9=1thenprint"crew will die from radiation exposure."
 1580 ifr9=2thenprint"crew dead."
 1590 input"go again (y/n)";a$:ifa$="y"then100
 1591 end
 1600 dx=x-t(nn,1):dy=y-t(nn,2)
 1610 ifdy=0thenan=90-180*(dx>0):return
 1620 an=atn(-dx/dy)*180/~-180*(dy<0)+360*(dx>0)*(dy>0):return
 1650 ifleft$(a$,1)=","then1670
 1660 a$=right$(a$,len(a$)-1):iflen(a$)>1then1650
 1665 a$="  "
 1670 a$=right$(a$,len(a$)-1):return
 1710 ra=sqr((x-t(nn,1))^2+(y-t(nn,2))^2):return
 1760 nn=-1:forl=0ton2:ifa$=left$(n$(l),2)thennn=l
 1770 next:return
   10 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   20 print"{rvon}                                        {rvof}";
   30 print"{rvon}       baccarat  --  chemin de fer      {rvof}";
   40 print"{rvon}                                        {rvof}";
   50 print"{rvon}       do you need instructions ?       {rvof}";
   60 print"{rvon}                                        {rvof}";
   70 get q$:if q$="" then goto 70
   80 if q$<>"y" then 205
   85 poke 59468,14
   90 print"{clr}{down}{down}{down}  Baccarat is a very popular game in"
  100 print"Las Vegas. the player and banker each"
  110 print"recieve two cards from a 'shoe'"
  115 print"containing 8 decks of cards. All card"
  120 print"combinations totaling 10 are not"
  130 print"counted. The one that ends up closer to"
  140 print"9 wins. The stakes are high, all of the"
  150 print"players start with $10,000."
  160 print"{down}  You can bet on the dealer or the"
  170 print"player. A third card is given only"
  175 print"under certain conditions, as you will"
  180 print"see."
  190 print"{down}press return to begin.":print"{down}GOOD{$a0}LUCK!"
  200 get q$:if q$=""then 200
  205 a=rnd(-ti)
  210 dim m(20),f1(20),f(20),b$(13),v(13),g$(20)
  220 dim z(9,10),q(4,13)
  240 for x=3 to 6
  250 for y=1 to 10
  260 read z(x,y)
  270 next y,x
  280 for s1=1 to 10:read w(s1):next
  283 for s1=1 to 4:read a$(s1):next
  285 for s1=1 to 13:read b$(s1):next
  287 for s1=1 to 13:read v(s1):next
  290 poke 59468,12
  300 print"{clr}how many suckers":
  310 input p1
  320 for j=1 to p1
  330 print"what is the name of sucker";j;
  340 input g$(j)
  350 m(j)=10000
  360 next j
  370 for s1=1 to 4
  373 for s2=1 to 13
  375 q(s1,s2)=0
  377 next s2
  379 next s1
  380 for j=1 to 6
  390 c=int(1+rnd(1)*4)
  400 d=int(1+rnd(1)*13)
  410 q(c,d)=q(c,d)+1
  420 if q(c,d)>=32 then 390
  430 b(j) = v(d)
  440 c$(j) = b$(d)+" of "+a$(c)
  450 next j
  460 w1=2
  470 for j = 1 to p1
  480 if m(j)<1 then 580
  490 printg$(j);" has $";m(j);".   bet";
  500 input f(j)
  510 if f(j)>m(j) then 490
  520 if f(j)<>int(f(j)) then 490
  530 if f(j)<1 then 490
  540 print "(1) banker or (2) sucker";
  550 input f1(j)
  560 if f1(j)>=1000 then 490
  570 if (f1(j)-1)*(f1(j)-2)<>0 then 540
  580 next j
  590 j=0
  600 t1=b(1)+b(2)
  610 t2=b(3)+b(4)
  620 print
  630 print"{clr}banker";tab(20);"sucker"
  640 printc$(3);tab(20);c$(1)
  650 printc$(4);tab(20);c$(2)
  660 if t1<10 then 680
  670 t1=t1-10
  680 if t2<10 then 700
  690 t2=t2-10
  700 if w(t1+1)=0 then 770
  710 for z=1 to 2000:next z
  713 print"{down}sucker must draw."
  716 for z=1 to 4000:next z
  720 print tab(20);c$(5)
  730 t1=t1+b(5)
  740 if t1<10 then 770
  750 t1=t1-10
  760 goto 790
  770 for z=1 to 2000:next z
  773 print"{down}sucker cannot draw another card."
  776 for z=1 to 4000:next z
  780 j=11
  790 print"{down}suckers total:";t1
  800 print
  810 if t2<3 then 870
  820 if t2>6 then 930
  830 if j<>11 then 860
  840 if t2=6 then 930
  850 goto 870
  860 if z(t2,b(5)+1)=0 then 930
  870 for z=1 to 2000:next z
  873 print"{down}banker must draw."
  876 for z=1 to 4000:next z
  880 printc$(6)
  890 t2=t2+b(6)
  900 if t2<10 then 920
  910 t2=t2-10
  920 goto 940
  930 for z=1 to 2000:next z
  933 print"{down}banker cannot draw another card."
  936 for z=1 to 4000:next z
  940 print"{down}bankers total:";t2
  950 print
  955 for z=1 to 2000:next z
  960 if t2<>t1 then 990
  970 for z=1 to 1000:next z
  973 print"it's a tie.the hand is played again."
  980 goto 380
  990 if t2<t1 then 1030
 1000 w1=1
 1010 print"banker wins!!!"
 1020 goto 1040
 1030 print"sucker wins!!!"
 1040 for j=1 to p1
 1050 if m(j)<=0 then 1130
 1060 printg$(j);" ";
 1070 if f1(j)=w1 then 1110
 1080 m(j)=m(j)-f(j)
 1090 print"losses $";f(j);", for a total of $";m(j);"."
 1100 goto 1130
 1110 m(j)=m(j)+f(j)
 1120 print"wins $";f(j);", for a total of $";m(j);"."
 1130 next j
 1140 for j=1 to p1
 1150 if m(j)<>0 then 1190
 1160 next j
 1170 print"thanks for your money, and ";
 1180 goto 1320
 1190 print
 1200 print"---------- new game ----------"
 1210 print
 1220 for x=1 to 4
 1230 for y=1 to 13
 1240 if q(x,y)<>8 then 380
 1250 next y,x
 1260 goto 370
 1270 data1,1,1,1,1,1,1,1,0,1,0,0,1,1,1,1,1,1,0,0
 1280 data0,0,0,0,1,1,1,1,0,0,0,0,0,0,0,0,1,1,0,0
 1290 data1,1,1,1,1,1,0,0,0,0,spades,hearts,diamonds
 1300 dataclubs,ace,two,three,four,five,six,seven,eight
 1310 datanine,ten,jack,queen,king,1,2,3,4,5,6,7,8,9,0,0,0,0
 1320 print"thanks for playing sucker."
 1330 end
   30 rem*******************
   40 rem**   backgammon  **
   50 rem** by j. aughton **
   60 rem*******************
   65 poke59458,62
   80 w(1)=-300:w(2)=500:w(3)=100
   90 w(4)=-300:w(5)=-500:w(6)=-1200
  100 w(7)=70:w(8)=700:rem** weights **
  110 dima$(6),a%(25),p%(12),q%(12)
  120 u$="{up}{up}{up}{up}{up}{up}{up}":d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  130 deffna(x)=int(1+x*rnd(2))
  140 a$(1)="{rvon}   {down}{left}{left}{left} Q {down}{left}{left}{left}   "
  150 a$(2)="{rvon}  Q{down}{left}{left}{left}   {down}{left}{left}{left}Q  "
  160 a$(3)="{rvon}Q  {down}{left}{left}{left} Q {down}{left}{left}{left}  Q"
  170 a$(4)="{rvon}Q Q{down}{left}{left}{left}   {down}{left}{left}{left}Q Q"
  180 a$(5)="{rvon}Q Q{down}{left}{left}{left} Q {down}{left}{left}{left}Q Q"
  190 a$(6)="{rvon}Q Q{down}{left}{left}{left}Q Q{down}{left}{left}{left}Q Q"
  200 z$="          ":goto9000
  500 rem*** initialize ***
  510 f=0:bh=0:bp=0:nh=15:np=15
  520 restore:fori=1to12:reada%(i)
  530 a%(25-i)=-a%(i):next
  540 data2,0,0,0,0,-5,0,-3,0,0,0,5
  550 print"press space to start ";
  560 print"in the usual way."
  570 geta$:ifa$<>" "then570
  575 poke59468,12
  580 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}   pet  you
  585 print"{home}i play Q - you play W
  590 gosub4000:ifp=qthen590
  600 gosub5600:gosub5600:gosub6000
  610 gosub5000:f=1:fm=1:ifp>qthen2000
  620 goto1040
 1000 rem*** human move ***
 1010 gosub5500
 1020 print"press space to roll dice"
 1030 geta$:ifa$<>" "then1030
 1040 gosub4000:k=0:m=2:ifp=qthenm=4
 1050 fm=0:gosub5500:gosub1510
 1060 print"your move with the";p;"? ";
 1070 geta$:ifa$=""then1070
 1080 n=asc(a$)-64
 1090 ifn>26orn<1then1050
 1100 printa$:ifn=25then1330
 1105 ifn=26then1370
 1110 ifbh=0then1150
 1120 gosub5500:print"you're on the bar"
 1130 gosub5600:goto1050
 1150 ifa%(n)>0then1180
 1160 gosub5500:print"nothing there !"
 1170 goto1130
 1180 ifn+p<25then1220
 1190 ifhi=nhthenf=0:goto1410
 1200 gosub5500:print"off the board !"
 1210 goto1130
 1220 ifa%(n+p)>-2then1250
 1230 gosub5500:print"sorry it's blocked"
 1240 goto1130
 1250 a%(n)=a%(n)-1:gosub5000:n=n+p
 1260 ifa%(n)>-1then1290
 1270 a%(n)=0:bp=bp+1:gosub5500
 1280 print"ouch!-you got me"
 1290 a%(n)=a%(n)+1:m=m-1:gosub5000
 1300 p=q:ifm>0then1050
 1310 goto2000
 1330 ifbhthen1350
 1340 goto1160
 1350 ifa%(p)<-1then1230
 1360 n=0:bh=bh-1:goto1250
 1370 ifk=0then1400
 1380 gosub5500:print"you're stuck(?)"
 1390 gosub5600:goto2000
 1400 k=p:p=q:q=k:goto1050
 1410 ifn+p>25then1460
 1420 nh=nh-1:ifnhthen1450
 1430 gosub5500:print"blast! you win
 1440 gosub5600:goto7000
 1450 a%(n)=a%(n)-1:n=0:goto1290
 1460 fori=19ton-1
 1470 ifa%(i)<=0then1500
 1480 gosub5500:print"you can't-you ";
 1490 print"can move at ";chr$(i+64):goto1130
 1500 next:goto1420
 1510 hi=0:fori=19to24
 1520 ifa%(i)>0thenhi=hi+a%(i)
 1530 next:return
 2000 rem*** pet move ***
 2010 k=0:gosub5500:print"it's my move"
 2020 gosub4000:m=2:ifp=qthenm=4
 2030 fm=0:ifbp>0then2240
 2040 pi=0:fori=1to6
 2050 ifa%(i)<0thenpi=pi-a%(i)
 2060 next:ifpi=npthenf=0:goto2320
 2070 gosub4500:gosub3000
 2080 ifqm>0then2210
 2090 ifpm>0thenn=p%(x):goto2120
 2100 gosub5500:print"i can't move"
 2110 gosub5600:goto1000
 2120 gosub5500:print"with the";p;
 2130 print"i'll move ";chr$(64+n)
 2140 a%(n)=a%(n)+1:gosub5000:n=n-p
 2150 ifa%(n)<1then2180
 2160 a%(n)=0:bh=bh+1:gosub5500
 2170 print"take that!"
 2180 a%(n)=a%(n)-1:m=m-1:gosub5000
 2190 k=1:p=q:ifm>0then2030
 2200 goto1000
 2210 ifpm=0then2230
 2220 ifpm<qmthenn=p%(x):goto2120
 2230 n=q%(y):k=p:p=q:q=k:goto2120
 2240 ifa%(25-q)<2then2280
 2250 ifa%(25-p)<2then2270
 2260 goto2100
 2270 n=25:bp=bp-1:goto2120
 2280 ifa%(25-p)<2then2300
 2290 k=p:p=q:q=k:goto2270
 2300 gosub4500:ifqm<=pmthen2290
 2310 goto2270
 2320 ifa%(p)>=0then2390
 2330 gosub5500:print"{home}i will bear ";
 2340 print"off with the";p
 2350 np=np-1:ifnpthen2380
 2360 gosub5500:print"aha! i win"
 2370 gosub5600:goto8000
 2380 n=p:a%(n)=a%(n)+2:goto2180
 2390 fori=6to1step-1
 2400 ifa%(i)<0andi>pthen2070
 2410 ifa%(i)<0then2430
 2420 next
 2430 print"{home}i can bear off ";
 2440 printchr$(64+i);" with the";p
 2450 p=i:goto2350
 3000 rem*** intelligent moves ***
 3003 ifkthen3010
 3005 gosub5500:print"let me think.."
 3010 ifpm=0then3170
 3020 ifhi=nhthen3500
 3030 e=-9999:fori=1topm:h=0
 3040 u=p%(i):v=w(7)*u
 3050 a%(u)=a%(u)+1:ifa%(u-p)<1then3070
 3060 h=1:a%(u-p)=0:v=v+w(8):ifu>18+pthenv=v+450
 3070 a%(u-p)=a%(u-p)-1
 3080 forj=1to24:ifa%(j)>=0then3130
 3090 l=6:ifa%(j)>-6thenl=-a%(j)
 3120 v=v+w(l)-200*(l=1)*(j<7)
 3130 nextj:ifv>ethene=v:x=i
 3140 a%(u)=a%(u)-1
 3150 ifh=1thena%(u-p)=0
 3160 a%(u-p)=a%(u-p)+1:nexti
 3170 ifkor(qm=0)then3400
 3180 d=-9999:fori=1toqm:h=0
 3190 u=q%(i):v=w(7)*u
 3200 a%(u)=a%(u)+1:ifa%(u-q)<1then3220
 3210 h=1:a%(u-q)=0:v=v+w(8):ifu>18+qthenv=v+450
 3220 a%(u-q)=a%(u-q)-1
 3230 forj=1to24:ifa%(j)>=0then3270
 3240 l=6:ifa%(j)>-6thenl=-a%(j)
 3260 v=v+w(l)-200*(l=1)*(j<7)
 3270 nextj:ifv>dthend=v:y=1
 3280 a%(u)=a%(u)-1
 3290 ifh=1thena%(u-q)=0
 3300 a%(u-q)=a%(u-q)+1:nexti
 3310 qm=12:ifd>ethenpm=12
 3400 return
 3500 x=pm:y=qm:pm=sgn(pm):qm=sgn(qm)
 3510 goto3400
 4000 iffmthen4050:rem*** dice ***
 4010 p=fna(6):q=fna(6):t=ti
 4015 q=int(1+6*rnd(2))
 4020 ifti-t>120then4040
 4030 p=p+1:ifp>6thenp=1
 4040 q=q+1:ifq>6thenq=1
 4050 print"{home}{rght}{rght}{rght}";d$;a$(p);"{rght}{rght}{up}{up}";a$(q)
 4060 ifti-t<210then4020
 4070 return
 4500 rem** generate available moves **
 4510 pm=0:qm=0:fori=1to24
 4520 ifa%(i)>=0then4590
 4530 ifi-p<1then4560
 4540 ifa%(i-p)>1then4560
 4550 pm=pm+1:p%(pm)=i
 4560 ifk>0ori-q<1then4590
 4570 ifa%(i-q)>1then4590
 4580 qm=qm+1:q%(qm)=i
 4590 next:return
 5000 rem*** print pieces ***
 5010 b$="{home}{down}{down}{down}":w$="{down}{left}":t=0:gosub5110
 5020 b$=b$+d$+left$(d$,8):w$="{up}{left}"
 5030 t=1:gosub5110
 5040 print"{home}";d$;spc(21);
 5050 ifbp=0thenprintz$:goto5070
 5060 fori=1tobp:print"Q {left}";:next
 5070 print"{home}";d$;"{down}{down}";spc(21);
 5080 ifbh=0thenprintz$:goto5100
 5090 fori=1tobh:print"W {left}";:next
 5100 return
 5110 fori=1to12:v=t*(25-i)-i*(t=0)
 5120 ifv<>nandf>0then5200
 5130 a$=" ":if(vand1)=0thena$="{rvon} {rvof}"
 5140 printb$spc(3*i-(i>6)-1);
 5150 ifa%(v)=0then5190
 5160 k=209:ifa%(v)>0thenk=215
 5170 forj=1toabs(a%(v))
 5180 printchr$(k);w$;:next
 5190 printa$
 5200 next:return
 5500 rem*** clear page ***
 5510 print"{home}";z$;z$;z$;z$;"{home}";:return
 5600 rem*** delay ***
 5610 fori=1to2000:next:return
 6000 rem*** draw board ***
 6010 b$="{CBM-G} {CBM-M}{down}{left}{left}{left}T Y{down}{left}{left}{left}G H{down}{left}{left}{left}B {SHIFT--}{down}{left}{left}{left}{SHIFT--} B{down}{left}{left}{left}H G{down}{left}{left}{left}Y T{down}{left}{left}{left}{CBM-M}{CBM-@}{CBM-G}"
 6020 w$="{rvon}{CBM-G} {CBM-M}{down}{left}{left}{left}{CBM-H} {CBM-N}{down}{left}{left}{left}{CBM-J} {CBM-L}{down}{left}{left}{left}{CBM-K} {rvof}{CBM-K}{down}{left}{left}{left}{CBM-L}{rvon} {rvof}{CBM-J}{down}{left}{left}{left}{CBM-N}{rvon} {rvof}{CBM-H}{down}{left}{left}{left}{CBM-M}{rvon} {rvof}{CBM-G}{down}{left}{left}{left} {rvon} {rvof} "
 6030 print"{clr}{down}{down}":fori=1to21
 6040 print"{rvon} ";spc(18);" ";spc(18);" "
 6050 next:print"{home}{down}":j=65:k=1
 6060 gosub6130:gosub6130
 6070 print" ";d$;left$(d$,9):j=88:k=-1
 6080 gosub6130:gosub6130:print" {home}{down}{down}"
 6090 gosub6150:gosub6150:printd$
 6100 b$=" {rvon} {rvof} {down}{left}{left}{left}{CBM-M}{rvon} {rvof}{CBM-G}{down}{left}{left}{left}{CBM-N}{rvon} {rvof}{CBM-H}{down}{left}{left}{left}{CBM-L}{rvon} {rvof}{CBM-J}{down}{left}{left}{left}{rvon}{CBM-K} {rvof}{CBM-K}{down}{left}{left}{left}{rvon}{CBM-J} {CBM-L}{down}{left}{left}{left}{CBM-H} {CBM-N}{down}{left}{left}{left}{CBM-G} {CBM-M}{rvof}"
 6110 w$="{CBM-M}{CBM-T}{CBM-G}{down}{left}{left}{left}Y T{down}{left}{left}{left}H G{down}{left}{left}{left}{SHIFT--} B{down}{left}{left}{left}B {SHIFT--}{down}{left}{left}{left}G H{down}{left}{left}{left}T Y{down}{left}{left}{left}{CBM-G} {CBM-M}"
 6120 gosub6150:gosub6150
 6125 print"{home}{down}";d$;spc(19);"{rvon}y{rvof}":return
 6130 fori=1to6:print"{rvon}  ";chr$(j);
 6140 j=j+k:next:print" ";:return
 6150 print"{rght}";:fori=1to3
 6160 printb$;u$;w$;u$;:next:return
 7000 rem***  human win ***
 7010 print"{clr}thanks for the game!{down}"
 7020 print"you were too good for me"
 7030 print"{down}{down}play again? (y/n)"
 7040 geta$:ifa$=""then7040
 7050 ifa$="y"then500
 7060 end
 8000 rem*** pet wins ***
 8010 print"{clr}wow!!-i won!!{down}"
 8020 print"i really enjoyed that!"
 8030 goto7030
 9000 rem*** instructions ***
 9010 poke59468,14:print"{clr}";spc(13);
 9020 print"{rvon}BACKGAMMON{rvof}{down}"
 9030 print" I play all the usual ru";
 9040 print"les, which you  should k";
 9050 print"now before you play me.{down}"
 9060 print" From now on the only{$a0}";
 9070 print"keys you need to  press ";
 9080 print" are as follows.{down}"
 9090 print" A-X  To move from a point"
 9100 print"  Y   To{$a0}return from the bar"
 9110 print"  Z   To play the dice in reverse order"
 9120 print"SPACE{$a0}As indicated{down}"
 9130 print" If you press Z twice you";
 9140 print" will surrenderyour move.{down}"
 9150 print" Remember{$a0}that{$a0}you must ";
 9160 print"use all of your move if th";
 9170 print"is is possible. I{$a0}will tru";
 9180 print"st  you in this (after a";
 9190 print"ll you have to trustme";
 9200 print" - who rolls the dice?){down}"
 9210 goto500
  100 print"{clr} bagels       {rvon}jim butterfield{down}"
  110 input"want instructions";z$:ifasc(z$)=78goto280
  120 print"{down}a guessing game based on secret codes:"
  130 print"  you think up a secret code of"
  140 print"    4 letters, each {rvon}a{rvof} to {rvon}f{rvof}..."
  150 print"  ..and i'll think of one, too{down}"
  160 print"we each take turns guessing the other's"
  170 print"code.  on each guess we'll be told:"
  180 print"  --exact matches; guessing the right"
  190 print"    letter in the right place;
  200 print"  --other matches; the right letter,"
  210 print"    but in the wrong place.
  220 print"{down}count carefully, and don't forget to"
  230 print"allow for duplicate letters:"
  240 print"  e.g., if my secret code is 'fafd'and"
  250 print"    you guess 'fade', you'll get"
  260 print"      2 exact (the f and the a)"
  270 print"      1 match (the d).{down}"
  280 dimc$(6),m(4,10),r(2,10),t(4),z(1,4),g(4),s(4)
  290 j=rnd(-ti)
  300 forj=1to4:t(j)=1:s(j)=int(rnd(1)*6+1):next
  310 input"have you thought of a secret code";z$
  320 forj=1to6:c$(j)=chr$(j+64):next
  330 forj=1to6:k=int(rnd(1)*6)+1:c$=c$(j):c$(j)=c$(k):c$(k)=c$:nextj
  340 print"{clr}----- your -------      --- my -----"
  350 print"guess  exact match     guess exa mat{down}"
  360 forj=1to10
  370 forj1=1to4:print"{CBM-+}{left}";
  380 getz$:ifz$=""goto380
  390 z=asc(z$):ifz<65orz>70goto380
  400 printz$;:g(j1)=z-64:nextj1
  410 g1=0:forj1=1to4:z(0,j1)=0:z(1,j1)=-1:ifg(j1)=s(j1)theng1=g1+1:goto430
  420 z(0,j1)=g(j1):z(1,j1)=s(j1)
  430 nextj1:print"   ";g1;:ifg1=4thenprint:goto770
  440 g1=0:forj1=1to4:fork1=1to4
  450 ifz(0,j1)=z(1,k1)thenz(0,j1)=.1:z(1,k1)=.2:g1=g1+1
  460 nextk1,j1:print"   ";g1;"{rvon}";tab(23);
  470 ifj=1thenfork=1to4:m(k,j)=k-1:nextk:m(1,1)=1:goto640
  480 forj1=j-1to1step-1
  490 g1=r(1,j1):g2=0
  500 fork1=1to4
  510 ift(k1)=m(k1,j1)theng2=g2+1:ifg2>g1goto 730
  520 nextk1:k1=k1-1:ifg2<>g1goto 730
  530 nextj1
  540 forj1=j-1to1step-1
  550 g1=r(2,j1)
  560 forx=1to4
  570 z(0,x)=0:z(1,x)=-1:ift(x)<>m(x,j1)thenz(0,x)=t(x):z(1,x)=m(x,j1)
  580 nextx
  590 g2=0:forx=1to4:fory=1to4:ifz(0,x)<>z(1,y)goto620
  600 g2=g2+1:ifg2>g1goto 730
  610 z(0,x)=.5:z(1,y)=.9
  620 nexty,x:ifg1<>g2goto 730
  630 nextj1:forx=1to4:m(x,j)=t(x):next
  640 fork=1to4:printc$(m(k,j));:nextk:print"{rvof}   {CBM-+}{left}";
  650 getz$:ifz$=""goto650
  660 z=asc(z$):ifz<48orz>52goto650
  670 r(2,j)=0:r(1,j)=z-48:printz$;"   {CBM-+}{left}";:ifr(1,j)=4goto970
  680 ifr(1,j)=3thengoto710
  690 getz$:ifz$=""goto690
  700 z=asc(z$):r(2,j)=z-48:ifz<48orz>52goto690
  710 printchr$(r(2,j)+48)
  720 nextj
  730 ifk1<>4thenfork2=k1+1to4:t(k2)=1:nextk2
  740 t(k1)=t(k1)+1:ift(k1)>6thent(k1)=1:k1=k1-1:printchr$(k1+58);"{left}";:goto 740
  750 ifk1<>0goto480
  760 print:print"i give up!  ";
  770 input"what was your code";z$
  780 iflen(z$)<>4thenz$=z$+" isn't 4 characters!":goto 960
  790 forj1=1to4:x$=mid$(z$,j1,1):fork=1to6:ifx$=c$(k)goto 810
  800 nextk:z$=x$+" isn't a legal letter!":goto 960
  810 t(j1)=k:nextj1
  820 forj1=1toj-1
  830 g1=0:g2=0:fork=1to4
  840 z(0,k)=0:z(1,k)=-1:ift(k)=m(k,j1)theng1=g1+1:goto 860
  850 z(0,k)=t(k):z(1,k)=m(k,j1)
  860 nextk:fork=1to4:forx=1to4:ifz(0,k)=z(1,x)theng2=g2+1:z(0,k)=0:z(1,x)=-1
  870 nextx,k
  880 ifg1<>r(1,j1)org2<>r(2,j1)goto 900
  890 nextj1:goto1020
  900 print"{rvon} just a darned minute! "
  910 print"on guess #";j1;"you said that my"
  920 print"'";:fork=1to4:printc$(m(k,j1));:nextk
  930 print"' counted";r(1,j1);"and";r(2,j1)
  940 print"{rvon}i get";g1;"{left} and";g2
  950 goto 990
  960 print"hey--";z$:goto 990
  970 print "hooray!"
  980 print"{down}my code was '";:forj=1to4:printchr$(s(j)+64);:nextj:print"'{down}"
  990 input"another one";z$
 1000 ifasc(z$)<>78goto300
 1010 end
 1020 print"*** you win this one ***":goto990
    1 rem** ballon redden d.w.engelfriet **
    2 rem**** laatste update:1-10-1980 ****
    3 rem*3063 as rotterdam-tel:010-332530*
    4 rem**********************************
    5 print"{clr}0.00.0nieuw record":fori=0to17:a=peek(i+32768):pokei+943,a:next
    6 print"{clr}N{SHIFT--}{SHIFT--}M{rvon}bang{rvof}{SHIFT-*}  {SHIFT-*}M{SHIFT--}{SHIFT--}N":fori=0to31:a=peek(i+32768):pokei+911,a:next
    7 print"{clr}M{CBM-@}{CBM-@}N{CBM-G}{CBM-*}{SHIFT-POUND}{CBM-M}{CBM-G}{CBM-V}{CBM-C}{CBM-M}N{CBM-T}{CBM-T}M":fori=0to15
    8 a=peek(32768+i):poke895+i,a:next:gosub31:forn=826to848:poken,41:poken+23,1:poken+46,1:next
    9 n=1000:a$="010101001902300003":gosub21:a=30:b=60:c=0:gosub18:a=1:b=23:c=64:gosub18
   10 a=03:b=05:c=128:gosub18
   11 print"{down}voor start druk op de '{rvon}0{rvof}' toets.{down}":print"voor stop druk op de '{rvon}e{rvof}' toets!"
   12 fori=0to9:geta$:next
   13 getz$:ifz$<>"e"andz$<>"0"goto13
   14 ifz$="e"thenend
   15 print"{clr}rec.tijd 0.00.0 {CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND} uw tijd 0.00.0"
   16 fori=1to23:print"{down}";:next
   17 printtab(14);"  {rvon}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{rvon}";:sys(2284):goto7
   18 forn=634to697
   19 poken+c,a+int(rnd(1)*(b-a+1))
   20 next:return
   21 r=len(a$):fors=1torstep2
   22 a=asc(mid$(a$,s,1))
   23 b=asc(mid$(a$,s+1,1)):ifa<71goto27
   24 c=c+b-48:c=c/256:d=int(c)
   25 c=int((c-d)*256+.1)
   26 poken,c:poken+1,d:n=n+2:goto30
   27 a=a-48:b=b-48:ifa>9thena=a-7
   28 ifb>9thenb=b-7
   29 poken,16*a+b:n=n+1
   30 next:return
   31 print"{clr}"tab(14)"{rvon}ballon-redden{rvof}":printtab(14)"{down}dwe-produktie"
   32 print"{down}{down}probeer de ballon zo lang mogelijk heel {down}te houden door hem met de '{rvon}+{rvof}'";
   33 print" toets op,":print"{down}en met de '{rvon}-{rvof}' toets neer te bewegen."
   34 printtab(9)"{down}{down}wacht aub 5 seconden!":printtab(9)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":return
    0 clr:poke59468,12
    1 rem bar copyright (c) 1978 glen fisher
    2 rem cursor #3, september, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 10 sep 80
   90 pg$="bar":nm$="3":gosub62000
  100 mc=34:dimsk(mc),nm(mc),tl$(mc)
  110 lb$=" abcdefghijklmnopqrstuvwxyz0123456789"
  120 lm=20:rem highest unscaled bar
  130 dimax(lm+1)
  140 cr$=chr$(13)
  150 quit=0
  200 ifquit=0then204
  201 print"{clr}{down}{down}more graphs? ";:gosub9000
  202 ifleft$(in$,1)="n"then50000
  203 ifleft$(in$,1)="_"then2000
  204 quit=1:print"{clr}":print"{down}what is the subject of this graph? ";
  205 gosub60000
  206 tl$(1)=in$
  210 q=0:q$="{down}do you want headings":gosub8900:hd=q
  220 sy$="{CBM-+}":print"{down}the bars will use '";sy$;"'. if you want"
  225 print"something else, enter it/them: ";:print"? ";:gosub9000
  230 ifin$<>""thensy$=in$
  240 q$="{down}what width for bars":gosub8950:ifqthenin$="2"
  250 cw=val(in$):ifcw<1thenprint"now really, {up}";:goto240
  251 ifcw>34thenprint"they can't be wider than 34 columns.":goto240
  255 hc=int(mc/cw):print"only";hc;"columns will fit on the screen."
  260 col=1:tc=1
  300 print"{down}after entering last number, type '-'{down}"
  305 mx=0
  310 q$=str$(col)+" - number":gosub8950
  320 ifin$="-"then1000
  330 sk(col)=q:ifqthenprint"(column skipped)":goto500
  340 nm=val(in$):ifnm<>int(nm)thennm=int(nm+.5):print"rounded to";nm
  345 nm(col)=nm
  350 ifnm>mxthenmx=nm
  400 ifhd=0then500
  410 print"enter heading: ";:gosub9000
  420 iflen(in$)>35thenprint"35 characters or less, please":goto410
  430 tc=tc+1:tl$(tc)=in$
  500 col=col+1:ifcol<=hcthen310
  510 print"only";hc;"columns will fit on the screen."
  520 t=ti+120
  530 ifti<tthen530
  999 :
 1000 col=col-1
 1100 ifmx<lmthenmx=lm
 1110 fori=1tocol
 1120 :ifsk(i)=0thennm(i)=int((nm(i)/mx)*lm+.5)
 1130 nexti
 1200 fori=0tolm
 1210 :ax(i)=int(i/lm*mx+.5)
 1220 nexti
 2000 print"{clr}";
 2010 fori=lmto0step-1
 2020 t$=mid$(str$(ax(i)),2,255)
 2030 iflen(t$)<5thent$=right$("     "+t$,5)
 2040 printt$;mid$("{SHIFT-@}{CBM-@}",2+(i<lm),1)
 2050 nexti
 2060 print"{rght}{rght}{rght}{rght}{rght}{rght}";
 2100 rem: print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2110 sn=1:tn=2
 2120 fori=1tocol
 2125 forwd=1tocw
 2130 print"{CBM-T}{left}{up}";
 2135 ifsk(i)then2190
 2140 ifhdandwd=int((1+cw)/2)thenprint"{down}{down}";mid$(lb$,tn,1);"{up}{up}{left}";:tn=tn+1
 2145 ifnm(i)<=0then2190
 2150 forj=1tonm(i)
 2160 printmid$(sy$,sn,1);"{left}{up}";
 2170 nextj
 2180 printleft$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",nm(i));
 2190 print"{down}{rght}";
 2200 nextwd
 2205 ifsk(i)=0thensn=sn+1:ifsn>len(sy$)thensn=1
 2210 nexti
 2500 print"{down}":tm=ti:sw=2:i$=" ":goto2605
 2510 geti$:ifi$<>""then2600
 2520 ifti<tmthen2510
 2530 printmid$("? ",sw,1);"{left}";:tm=ti+15:sw=3-sw:goto2510
 2600 iftc<2then2630
 2605 fori=1totc
 2610 ifmid$(lb$,i,1)=i$then2650
 2620 nexti
 2630 ifi$=chr$(13)then2700
 2640 goto2510
 2650 print" ";i$;mid$(" :",2+(i$=" "),1);" ";tl$(i);
 2660 t=len(tl$(i)):ifln<=tthen2680
 2670 printleft$("                                        ",ln-t);
 2680 print"{up}":ln=t:goto2510
 2700 print"{clr}":goto200
 8000 print:end
 8900 printq$;"? ";:gosub9000:in$=left$(in$,1)
 8910 ifin$=""thenreturn
 8920 ifin$="y"orin$="n"thenq=(in$="y"):return
 8925 ifin$="e"orin$="s"orin$="q"then8940
 8930 print"please answer 'yes' or 'no'.":goto8900
 8940 print"{clr}{down}{down}{down}{down}thanks.{down}{down}{down}{down}":end
 8950 printq$;"? ";:gosub9000:q=(in$=""):ifqthenreturn
 8960 fori=1tolen(in$)
 8970 :t$=mid$(in$,i,1):ift$>="0"andt$<="9"then8980
 8975 ift$<>"-"andt$<>"."thenprint"not a number.":goto8950
 8980 nexti
 8990 return
 8998 end
 8999 :
 9000 in$=" ":in=ti:sw=2:nc=1
 9010 geti$:ifi$<>""then9100
 9020 if(ti<in)then9010
 9030 printright$("{rvon}V{rvof}{left}",2+sw);
 9040 sw=3-sw:in=ti+15:goto9010
 9100 cd=asc(i$):if(cdand127)>31thenin$=in$+i$:printi$;:nc=nc+1:goto9010
 9110 print" {left}";
 9120 ifcd=13thenin$=mid$(in$,2,255):printcr$;:return
 9130 ifcd=20andnc>1thennc=nc-1:in$=left$(in$,nc):print"{left}";:goto9010
 9140 ifcd=141theni$=chr$(-20*(nc>1)):forcd=2tonc:printi$;:nextcd:goto9000
 9150 goto9010
 50000 print"{clr}{down}{down}{down}{down}thanks.{down}{down}{down}"
 50010 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #3  bar"
 62005 print"{down}copyright (c) 1978  by glen fisher":gosub60500
 62010 print"{down}prints bar graphs of positive integers"
 62020 print"{down}{down}do you want instructions? ";:gosub60000:ifin$<>"y"then100
 62100 lp=2:gosub60200
 62105 print"this program will produce vertical bar
 62120 print"graphs of positive whole numbers.
 62130 print"it scales the numbers so that they can
 62140 print"be displayed on the limited screen of
 62150 print"the commodore pet.
 62160 print
 62170 print"you can give a 'heading' to describe
 62180 print"each bar. after the graph is plotted,
 62190 print"the heading for a specific column is
 62200 print"shown when you press the letter code
 62220 print"for that column.":print
 62230 print"bars are normally 2 columns wide, and
 62240 print"are printed using '{CBM-+}'.  you can
 62250 print"choose a different width, or even
 62260 print"different graphic characters for
 62270 print"the plots.
 62290 gosub60200
 62300 print"if you want to see the previous
 62310 print"graph again, enter '_' when asked
 62320 print"'more graphs?'. note: max of 34 numbers
 62330 print"can be plotted with 1 column wide
 62340 print"bars.
 62350 print:print"you can provide space between
 62360 print"bars by 'skipping' a column,
 62370 print"(e.g. hit {rvon}return{rvof} instead of entering
 62380 print"minus sign '-' to signal that all
 62390 print"numbers have been entered.
 62420 print"for that column.":print
 62600 gosub60200
 1010 gosub1200
 1020 gosub1400
 1030 gosub1600
 1040 gosub2000
 1050 gosub2400
 1055 gosub2600
 1060 print"{down}dO{$a0}YOU{$a0}WANT{$a0}TO{$a0}DO{$a0}THIS{$a0}AGAIN?(y or n) ";
 1070 gosub8000:printa$
 1080 ifa$="y"then run
 1090 print"{down}{rvon}gOOD-BYE{$a0}THEN!
 1095 run"p.sampler"
 1100 end
 1200 rem
 1210 dimba$(35),fa%(34),tm%(34),cg(3)
 1220 s=1
 1230 readbart$(s)
 1240 ifba$(s)="end"then1270
 1250 readfa%(s),tm%(s)
 1260 s=s+1:goto1230
 1270 poke 59468,14
 1280 cg(1)=1.25:cg(2)=1.30:cg(3)=1.38
 1290 deffnr(x)=int(x*100+.5)/100
 1300 return
 1400 print"{clr}     {rvon} bart   economy  {rvof}
 1410 print"{down}  i WILL{$a0}HELP{$a0}YOU{$a0}FIND{$a0}OUT{$a0}THE{$a0}COSTS
 1420 print"OF{$a0}{rvon}DRIVING{rvof}{$a0}TO{$a0}sfsu AS{$a0}COMPARED{$a0}TO{$a0}TAKING{$a0}THE{$a0}{rvon}bart{rvof}.
 1430 print"{down}i{$a0}WILL{$a0}ASK{$a0}YOU{$a0}SOME{$a0}QUESTIONS{$a0}ABOUT{$a0}{$a0}
 1440 print"WHERE{$a0}YOU{$a0}LIVE{$a0}AND{$a0}ABOUT{$a0}YOUR{$a0}CAR.  iF
 1450 print"YOU{$a0}DON'T{$a0}HAVE{$a0}A{$a0}CAR, YOU{$a0}MIGHT{$a0}WANT{$a0}TO PRETEND{$a0}YOU{$a0}DO.
 1460 print"iF{$a0}YOU{$a0}LIVE{$a0}VERY{$a0}CLOSE{$a0}TO{$a0}CAMPUS, YOU
 1470 print"MIGHT{$a0}WANT{$a0}TO{$a0}PRETEND{$a0}YOU{$a0}LIVE{$a0}FURTHER
 1480 print"AWAY{$a0}JUST{$a0}TO{$a0}SEE{$a0}WHAT{$a0}YOU{$a0}WOULD{$a0}HAVE{$a0}TO{$a0}SPEND.
 1485 print"{down}wHEN{$a0}TYPING{$a0}IN{$a0}MONEY{$a0}AMOUNTS, TYPE 7.50 FOR$7.50 OR{$a0}.50{$a0}FOR 50 CTS.
 1490 print"{down}iF{$a0}YOU{$a0}NEED{$a0}SOME{$a0}{rvon}help{rvof} IN{$a0}ANSWERING{$a0}A
 1500 print"QUESTION, JUST{$a0}TYPE{$a0}{rvon}h{rvof}{$a0}(THEN{$a0}rETURN).
 1510 print"{down}pRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}GO{$a0}ON: ";
 1520 gosub 8000:printa$
 1530 return
 1600 rem-bart
 1610 print"{clr}hERE{$a0}IS{$a0}A{$a0}LIST{$a0}OF{$a0}bart STATIONS:
 1620 fori=1to34step2
 1630 printba$(i)tab(19)ba$(i+1)
 1640 next
 1650 print"{down}{rvon}wHICH{$a0}STATION{$a0}IS{$a0}NEAREST{$a0}YOUR{$a0}HOUSE?"
 1660 gosub8400:gosub3000
 1665 ifleft$(b$,1)="h"thenprint"tYPE{$a0}STATION{$a0}NAME.":goto1650
 1670 iff$="t"then1700
 1680 print"i{$a0}CAN'T{$a0}FIND "b$". tRY{$a0}AGAIN. ";:goto1660
 1700 print"aBOUT{$a0}HOW{$a0}MANY{$a0}MILES{$a0}IS{$a0}IT{$a0}FROM{$a0}HOME    TO{$a0}"ba$(s)"? ";
 1710 gosub8400
 1720 ifleft$(b$,1)="h"thenprint"jUST{$a0}MAKE{$a0}A ROUGH{$a0}GUESS: ";:goto1710
 1730 mb=val(b$)
 1740 ifmb=0 then print"dO{$a0}YOU{$a0}MEAN{$a0}ZERO{$a0}MILES? uSE{$a0}DECIMALS    LIKE{$a0}.5: ";:goto1710
 1750 ifmb>40thenprint"tHAT'S{$a0}UNREASONABLY{$a0}FAR!  tRY{$a0}AGAIN: ";:goto1710
 1760 ifmb>3then1780
 1765 wa$="n":bi$="n"
 1770 print"{down}wOULD{$a0}YOU{$a0}WALK{$a0}TO{$a0}THE{$a0}STATION?(y OR{$a0}n)";:gosub8400
 1772 ifleft$(b$,1)="y"thenwa$="y":goto1890
 1774 print"{down}wOULD{$a0}YOU{$a0}RIDE YOUR{$a0}BIKE TO{$a0}THE{$a0}STATION?(y OR{$a0}n)";:gosub8400
 1776 ifleft$(b$,1)="y"thenbi$="y":goto1890
 1780 bu$="n"
 1790 print"{down}wOULD{$a0}YOU{$a0}TAKE{$a0}THE{$a0}BUS{$a0}TO{$a0}THE{$a0}STATION?  (y OR{$a0}n) ";
 1795 gosub8400
 1800 b$=left$(b$,1):if(b$<>"y"andb$<>"n")orb$="h" thenprint"yes OR no";:goto1795
 1805 bu$="y"
 1810 ifb$="n"then bu$="n":print"tHEN{$a0}i{$a0}ASSUME{$a0}YOU{$a0}WOULD{$a0}DRIVE":goto1890
 1820 print"{down}hOW{$a0}MUCH{$a0}IS{$a0}THE{$a0}BUS{$a0}TO{$a0}bart? ";
 1830 gosub8400
 1840 ifleft$(b$,1)="h"thenprint"uSUALLY .35 IN{$a0}eAST{$a0}bAY AND{$a0}.50 IN{$a0}s.f.":goto1830
 1850 bf=val(b$):if bf>10then bf=bf/100
 1890 return
 2000 rem-car
 2010 print"{down}{down}nOW{$a0}HOW{$a0}ABOUT{$a0}DRIVING.
 2020 print"{down}aBOUT{$a0}HOW{$a0}MANY{$a0}MILES{$a0}IS{$a0}IT{$a0}DRIVING{$a0}FROM{$a0}YOUR{$a0}HOUSE{$a0}TO{$a0}sfsu? ";
 2030 gosub8400
 2040 ifleft$(b$,1)="h"thengosub7000:goto2020
 2050 ms=val(b$)
 2060 ifms=0thenprint"dO{$a0}YOU{$a0}MEAN{$a0}ZERO{$a0}MILES?  nO{$a0}USE{$a0}THEN.   tRY{$a0}AGAIN:";:goto2030
 2070 ifms<=100then2100
 2080 print"{down}dO{$a0}YOU{$a0}REALLY{$a0}MEAN"ms"MILES? ";
 2090 gosub8400:ifleft$(b$,1)<>"y"thenprint"tRY{$a0}AGAIN THEN: ";:goto2030
 2092 print"ok{$a0}THEN.
 2100 print"{down}aBOUT{$a0}HOW{$a0}MANY{$a0}MILES{$a0}PER{$a0}GALLON{$a0}DOES{$a0}   YOUR{$a0}CAR{$a0}GET? ";
 2110 gosub8400:ifleft$(b$,1)="h"thengosub7200:goto2100
 2120 mg=val(b$)
 2130 ifmb=0thenprint"dO{$a0}YOU{$a0}MEAN{$a0}ZERO?  tRY{$a0}AGAIN: ";:goto2110
 2140 print"{down}wHAT{$a0}KIND{$a0}OF{$a0}GAS{$a0}DOES{$a0}YOUR{$a0}CAR{$a0}USE?
 2142 print"    1.  rEGULAR
 2144 print"    2.  lOW{$a0}lEAD
 2146 print"    3.  sUPER
 2148 print"tYPE{$a0}1, 2, OR 3: ";:gosub8400
 2149 ifleft$(b$,1)="h"then gosub7400:goto2148
 2150 kg=val(b$):ifkg<1orkg>3thengoto2148
 2160 print"{down}yOUR{$a0}GAS{$a0}COSTS{$a0}ABOUT $"cg(kg)"NOW."
 2170 print"{down}hOW{$a0}MUCH{$a0}DO{$a0}YOU{$a0}WANT{$a0}TO{$a0}ALLOW{$a0}PER{$a0}MILE"
 2180 print"FOR{$a0}MAINTENANCE{$a0}AND{$a0}DEPRECIATION? ";
 2190 gosub8400:ifleft$(b$,1)="h"thengosub7600:goto2170
 2200 dp=val(b$):if dp>2thendp=dp/100
 2210 print"{down}hOW{$a0}MUCH{$a0}WOULD{$a0}YOU{$a0}BE{$a0}PAYING{$a0}IN{$a0}BRIDGE  TOLLS ROUND{$a0}TRIP? ";
 2220 gosub8400:if left$(b$,1)="h"thengosub7800:goto2210
 2230 bt=val(b$):ifbt>5thenbt=bt/100
 2240 print"{down}hOW MUCH{$a0}(IF{$a0}ANY){$a0}WILL{$a0}YOU{$a0}BE{$a0}SPENDING  ON{$a0}PARKING? ";
 2250 gosub8400
 2260 ifleft$(b$,1)="h"thenprint"sTUDENT{$a0}PARKING{$a0}IS{$a0}$.75. ";:goto2250
 2270 pk=val(b$):ifpk>5thenpk=pk/100
 2300 return
 2400 rem--costs-
 2410 print"{clr}     {rvon}comparison of costs{rvof}
 2420 print"cost by {rvon}bart
 2430 cb=0
 2440 ifwa$="y"orbi$="y"then2470
 2450 ifbu$="y" thenprint"{rvon}bUS{rvof} fARE"tab(30)"$"bf:cb=cb+bf:goto2470
 2455 print"{rvon}gAS{rvof} TO{$a0}sTATION @"mg"MPG
 2460 print"  AND $"cg(kg)"PER{$a0}MILE"tab(30);
 2465 x=fnr(2*mb*cg(kg)/mg):printx:cb=cb+x
 2470 print"{rvon}bart{rvof} FARE"tab(30)2*fa%(s)/100:cb=cb+2*fa%(s)/100
 2475 print"rND{$a0}tRIP dALY cITY TO{$a0}sfsu"tab(30).25:cb=cb+.25
 2480 print"{rvon}tOTAL{$a0}COST{$a0}OF{$a0}bart PER{$a0}DAY IS{rvof}{$a0} {rvon}$"cb
 2485 g=fnr(2*ms*cg(kg)/mg):cc=cc+g
 2487 print"{down}{down}{rvon}cost of driving
 2490 print"{down}{rvon}gAS{rvof} FOR{$a0}cAR"tab(30)g
 2495 d=fnr(2*ms*dp):cc=cc+d
 2500 print"{rvon}mAINTENANCE{$a0}AND{$a0}DEPRECIATION{rvof}"tab(30)d
 2510 ifpk=0then2530
 2520 print"{rvon}pARKING{rvof}"tab(30)pk:cc=cc+pk
 2530 ifbt=0then2550
 2540 print"{rvon}bRIDGE{$a0}tOLL{rvof}"tab(30)bt:cc=cc+bt
 2550 print"{rvon}tOTAL{$a0}COST{$a0}PER{$a0}DAY{$a0}BY{$a0}car IS{rvof}  {rvon}$"cc
 2570 ifcb<ccthen print"{down}iT{$a0}SEEMS{$a0}YOU{$a0}COULD{$a0}SAVE{$a0}BY{$a0}TAKING{$a0}bart.
 2580 print"{down}pRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}COMPARE{$a0}TIMES.";
 2590 gosub8000
 2595 return
 2600 rem-times-
 2610 print"{clr}      {rvon}compare times
 2620 print"time by {rvon}bart
 2630 ifwa$="y"thentb=mb/4*60:goto2650
 2632 ifbi$="y"thentb=mb/10*60:goto2650
 2635 ifbu$="y"thentb=mb/25*60:goto2650
 2640 tb=mb/40*60
 2650 print"tIME{$a0}TO OR FROM bart"tab(25)tb"MINUTES
 2655 print"aVERAGE{$a0}WAITING{$a0}TIME"tab(25)30:tb=tb+30
 2660 tb=tb+tm%(s)
 2670 print"tIME{$a0}ON{$a0}TRAIN"tab(25)tm%(s)
 2680 print"bUS{$a0}BETWEEN{$a0}dALY{$a0}cITY{$a0}& sfsu"tab(25)7:tb=tb+7
 2690 print"{down}{rvon}tOTAL{$a0}ONE-WAY TIME{$a0}BY{$a0}bart"tab(25)tb"MINUTES
 2700 print"{down}time by car
 2705 dt=int(ms/45*60)
 2710 print"dRIVING @ 45 MPH"tab(25)dt"MINUTES
 2720 ifpk=0thent=10:goto2740
 2730 t=5
 2740 dt=dt+t
 2750 print"wALKING{$a0}TO{$a0}AND{$a0}FROM{$a0}CAR"tab(25)t
 2760 print"{down}{rvon}tOTAL{$a0}TIME{$a0}BY{$a0}cAR{rvof}"tab(25)dt"MINUTES
 2770 iftb<dtthenprint"iT{$a0}SEEMS{$a0}YOU{$a0}COULD{$a0}SAVE TIME{$a0}BY{$a0}bart.
 2780 return
 3000 rem-station-
 3010 f$="f":c=0:l=1:s=0
 3020 for i=1to34
 3030 ifleft$(ba$(i),l)=left$(b$,l)thenc=c+1:s=i
 3050 next
 3060 ifc>1thenl=l+1:c=0:goto3020
 3070 ifc<>0thenf$="t"
 3080 return
 7000 rem-miles-
 7010 print"{down}sOME{$a0}TYPICAL{$a0}DISTANCES{$a0}TO{$a0}sTATE{$a0}ARE:
 7040 print"        bERKELY       20 MILES
 7050 print"        oAKLAND       15 MILES
 7060 print"        pALO{$a0}aLTO     35 MILES
 7070 return
 7200 rem-mpg-
 7210 print"tYPICALLY{$a0}STANDARD{$a0}aMERICAN{$a0}CARS GET       BETWEEN 10 AND{$a0}25 MPG.
 7240 print"sMALL{$a0}CARS{$a0}GET{$a0}BETWEEN 25 AND 45MPG.
 7260 return
 7400 rem-gas-
 7410 print"cARS{$a0}AFTER{$a0}1975 USE lOW{$a0}lEAD.
 7420 print"v8 ENGINES{$a0}AND{$a0}HIGH{$a0}PERFORMANCE{$a0}ENGINES  USE{$a0}sUPER.
 7440 print"mOST{$a0}OTHERS{$a0}USE{$a0}rEGULAR.
 7450 return
 7600 rem-maint-
 7610 print"tHESE{$a0}COSTS{$a0}ARE{$a0}BETWEEN .03{$a0}AND{$a0}.10 PER{$a0}MILE.
 7630 return
 7800 rem-bridge-
 7810 print"rOUND{$a0}TRIP{$a0}BRIDGE{$a0}TOLL{$a0}IS{$a0}USUALLY{$a0}.75.
 7830 return
 8000 rem-char-
 8010 t=ti
 8020 ifti<t+30thenprint"{CBM-+}{left}";:goto8050
 8030 ifti<t+60thenprint" {left}";:goto8050
 8040 t=ti
 8050 geta$:ifa$=""then8020
 8060 print" {left}";:return
 8200 rem-string-
 8220 gosub8000:a=asc(a$)
 8240 ifb$=""anda=20then8220
 8250 ifb$=""anda=13thenreturn
 8260 ifa=13thenprinta$;:return
 8270 ifa=20andlen(b$)<2thenprinta$;:b$="":goto8220
 8280 ifa=20thenprinta$;:b$=left$(b$,len(b$)-1):goto8220
 8290 ifa<32or(a>127anda<161)then8220
 8315 iflen(b$)=38thenprint
 8320 printa$;:b$=b$+a$
 8340 goto8220
 8400 rem-non-empty-
 8410 b$="":poke158,0
 8420 gosub8200
 8430 ifb$=""then8420
 8440 return
 9000 rem-bart data-
 9020 datadaly city,0,0,balboa park,80,3,glen park,80,5,24th st,80,8
 9030 data16th st,80,10,civic center,90,12,powell,90,13,montgomery,90,15
 9040 dataembarcadero,90,17,oakland west,125,23,concord,165,56
 9050 datapleasant hill,160,51,walnut creek,160,49,lafayette,155,44
 9060 dataorinda,150,40,rockridge,135,35,richmond,135,49
 9070 datadel norte,130,45,plaza,130,43
 9080 datanorth berkeley,130,39,berkeley,130,37,ashby,130,35
 9090 datamacarthur,130,31,19 st,130,28,12th st,130,26
 9100 datalake merritt,130,27,fruitvale,140,30,coliseum,145,33
 9110 datasan leandro,145,37,bay fair,150,41,hayward,155,44
 9120 datasouth hayward,160,48,union city,165,52,fremont,175,57,end
   10 sys(1039)
   10 rem********************************
   15 rem  pet super baseball vers 7.4  *
   20 rem                               *
   25 rem   developed by jinshi suzuki  *
   30 rem   the world-famous programmer *
   35 rem                               *
   40 rem  special thanks to seibu dep. *
   45 rem          and mr.hiraki        *
   50 rem                               *
   55 rem     fixes by gord campbell    *
   56 rem                               *
   57 rem  names modified july 13, 1983 *
   58 rem                               *
   59 rem       by david bradley        *
   60 rem                               *
   61 rem   assisted by paul romanko    *
   62 rem                               *
   63 rem         go jays go            *
   64 rem                               *
   65 rem********************************
   70 print"{clr}     these buttons move the
   75 print"    NH    out-field players
   80 print"   N H       right or left
   85 print"  N  H
   90 print" q   e
   95 print"                     *press '5' to swing
  100 print" a s d Dslow balls   *press '9' to make
  105 print"                       the third base
  110 print"                       runner hold up.
  115 print" z x c Dfast balls
  120 print" B B B
  125 print" B{$a0}B{$a0}B
  130 print" B B  curve
  135 print" B B
  140 print" B  straight
  145 print" B
  150 print"  knuckler
  155 print"{down}{down}press a key to continue
  160 gety$:ify$=""then160
  165 dimpg$(8),pt$(8),g%(8),t%(8),c$(3):f=-1:c$(0)="   ":c$(1)="Q":c$(2)="QQ"
  170 c$(3)="QQQ":p$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  175 poke59467,16:poke59466,1:poke59464,0
  180 print"{clr}{down}{down}{down}{down}{down}who is on the mound today?"
  185 input"expos";pg$(8):input"{down}blue jays";pt$(8)
  190 forn=0to7:readpg$(n):next
  195 forn=0to7:readpt$(n):next:forn=0to8:readg%(n),t%(n):next
  200 print"{clr}":dima$(9),b$(9),ba(4):ba(0)=1:at=0:bt=0
  205 forn=1to9:a$(n)="0":b$(n)="0":next
  210 forn=1to17:print"M{down}";:next:print"{rght}{rght}{rght}{rght}{up}";:forn=1to17:print"N{up}";:next
  215 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{SHIFT-POUND}{up}";:forn=1to6:print"N{up}";:next:print"{down}{CBM-*}{SHIFT-POUND}";
  220 forn=1to6:print"M{down}";:next:print"{CBM-*}{SHIFT-POUND}"
  225 poke33227,121
  230 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  235 printtab(16);"OP{CBM-O}{CBM-O}OP  123456789"
  240 printtab(16);"{CBM-G}{CBM-M}{CBM-*}{SHIFT-POUND}{CBM-G}{CBM-M}"
  245 printtab(16);"L{SHIFT-@}  L{SHIFT-@}t"
  250 printtab(22);"m":forin=1to18:ps=32815
  255 poke59464,221:poke59466,0:poke59467,0
  260 forn=1to36:poke32808+n,32:next
  265 po=20:pd=13:iff>0thenpo=13:pd=20
  270 poke32815,pd:poke32827,pd:poke32838,pd:poke32940,pd:poke32950,pd
  275 poke33260,pd:poke33115,pd:poke33226,pd:poke33667,pd:poke33139,pd
  280 forn=1to3:ba(n)=0:next:poke33194,32:poke32984,32:poke33260,32
  285 ifin<18orbt<=atthen815
  290 poke33641,86:goto935
  295 ad=32768+int(.4+x)+int(.5+y)*40:sv=peek(ad):s1=peek(ad-1):s2=peek(ad+1)
  300 pokead,ch:return
  305 poke33547,78:gosub780:ss=tan(1):poke33547,32:poke33507,100:gosub780
  310 ss=tan(2):poke33507,77:return
  315 poke33546,77:gosub780:ss=tan(2):poke33546,32:poke33506,100
  320 gosub780:ss=tan(5):poke33506,78:return
  325 ifba$thenreturn
  330 b0=ba(1)+ba(2)+ba(3):ifb0=0thenreturn
  335 iff<0and(pt=2orpt=3)thenprintp$;pt$(pt);"!!":goto345
  340 iff>0and(pg=2orpg=3)thenprintp$;tab(29);pg$(pg);"!!":goto345
  345 ifb0=3andf>0thenprintp$;pt$(8);"!!"
  350 ifb0=3andf<0thenprintp$;tab(29);pg$(8);"!!"
  355 form=1to100:getba$:ifba$then365
  360 next
  365 printp$;"          ";tab(29);"          ":form=1to200:next:return
  370 x=19:poke33506,121
  375 poke33507,121:poke33547,105:poke33506,121:poke33546,95
  380 poke33586,32:poke33667,pd:ifh=1thenpoke33548,101:poke33545,po:goto390
  385 poke33545,103:poke33548,po
  390 ba=0
  395 sp=0
  400 getba$
  405 gosub325
  410 ee=0
  415 ifba$="a"thenee=-1:goto1115
  420 ifba$="s"then455
  425 ifba$="d"thenee=1:goto1115
  430 ifba$="z"thenee=-1:sp=1:goto1115
  435 ifba$="x"thensp=1:goto455
  440 ifba$="c"thenee=1:sp=1:goto1115
  445 gosub785
  450 goto390
  455 zz=15+int(rnd(3)*2)
  460 fory=11tozz:ch=46:gosub295:form=1to20-sp*15:next:pokead,sv
  465 getba$:ifba$<>"5"orba=1then475
  470 ba=1:onh+1gosub305,315
  475 nexty
  480 fory=zz+1to21:x=x+.4*ee:gosub295:form=1to6-sp*5
  485 getba$:ifba$="5"thentm=1:pokead,sv:goto565
  490 next
  495 pokead,sv
  500 nexty
  505 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  510 ifba=1then530
  515 ifee=0andsp=0then530
  520 ifee<>0then555
  525 ifrnd(3)>.5then555
  530 print"strike!!":s=s+1:ifs<3then815
  535 gosub1125
  540 print"{down}{down}batter out!!":s=0:b=0:o=o+1:ifo<3andba(3)=1andy<3then1045
  545 ifo<3then815
  550 print"{down}{down}change!!     ":f=-f:o=0:goto875
  555 print"ball!!":b=b+1:ifb<4then815
  560 print"{down}{down}walk !!":gosub1125:s=0:b=0:goto980
  565 ifba=1then490
  570 ba=1:onh+1gosub305,315
  575 if(y<>18andy<>19)or(ee<>0andzz=15)then490
  580 ifee=0then600
  585 xx=rnd(2):ifxx>.7then490
  590 ifee=-1thenco=-1.7+rnd(3):goto605
  595 co=.7+rnd(3):goto605
  600 co=-1.4+rnd(3)*1.7:ify=18andh=0ory=19andh=1thenco=-.3+rnd(3)*1.7
  605 ch=46:fory=17to0step-1:x=x+co:ifx<0orx>39then645
  610 gosub295:ifsv=pdor(s1=pdors2=pd)andy<3andba(3)=1ando<2then620
  615 form=1to20-sp*18:next:pokead,sv:goto635
  620 ifrnd(3)>.85thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}error!!":goto615
  625 pokead,sv:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}catch!!"
  630 goto535
  635 gosub780
  640 nexty
  645 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  650 ifabs(co)>1.1then680
  655 gosub1125:m=abs(x-18)
  660 ifm<1then690
  665 ifm<4then695
  670 ifm<9then700
  675 print"single!!":hi=1:goto705
  680 print"foul!!":ifs=2then815
  685 s=s+1:goto815
  690 print"home run!!":hi=4:goto705
  695 print"triple!!":hi=3:goto705
  700 print"double!!":hi=2:goto705
  705 forlo=1tohi
  710 forn=3to0step-1:ba(n+1)=ba(n):next:ba(0)=0
  715 form=1to70:gosub780:next
  720 poke33194,-(ba(1)=1)*po-(ba(1)=0)*32
  725 poke32984,-(ba(2)=1)*po-(ba(2)=0)*32
  730 poke33260,-(ba(3)=1)*po-(ba(3)=0)*32
  735 ifba(4)=0then760
  740 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} score!!":form=1to45:gosub780:next:print"{up}         "
  745 iff>0then755
  750 a$(in/2+1)=str$(val(a$(in/2+1))+1):at=at+1:goto760
  755 b$(in/2)=str$(val(b$(in/2))+1):bt=bt+1
  760 next
  765 ifin=18andbt>atthen1035
  770 s=0:b=0
  775 ba(0)=1:goto815
  780 getba$
  785 ifba$="q"thendr=-1:goto800
  790 ifba$="e"thendr=1:goto800
  795 return
  800 if(ps=32809anddr=-1)or(ps=32821anddr=1)thenreturn
  805 pokeps,32:pokeps+dr,pd:pokeps+12,32:pokeps+12+dr,pd
  810 pokeps+23,32:pokeps+23+dr,pd:m=m+10:ps=ps+dr:return
  815 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} s:";c$(s):print" b:";c$(b):print" o:";c$(o)
  820 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(34);":";at
  825 printtab(34);":";bt:form=1to50:gosub780:next
  830 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(16);"               {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  835 iff<0thenprintpt$(pt);
  840 iff>0thenprintpg$(pg);
  845 h=-(f>0)*g%(pg)-(f<0)*t%(pt)
  850 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}        "
  855 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}          "
  860 print"{down}{down}             "
  865 print"{down}{down}             "
  870 goto370
  875 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(24);
  880 fora=1toint((in+1)/2)
  885 ifval(a$(a))>9thenprint"{rvon}";
  890 printright$(a$(a),1);:print"{rvof}";:next
  895 print
  900 ifin=1then930
  905 printtab(24);
  910 forw=1toint(in/2)
  915 ifval(b$(w))>9thenprint"{rvon}";
  920 printright$(b$(w),1);:print"{rvof}";:next
  925 iff0then1040
  930 nextin
  935 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}          "
  940 print"{down}{down}             "
  945 print"{down}{down}               "
  950 print"{home}{down}{down}{down}{down}{down}{rght}";
  955 ifat>btthenprint"blue jays ";:goto975
  960 ifat<btthenprint"expos ";:goto975
  965 print"draw game!!!"
  970 input"  would you like to play again";y$:ify$="y"thenrun
  972 end
  975 print"have won!!!":goto970
  980 ifba(1)=0thenform=1to1000:next:ba(1)=1:poke33194,po:goto815
  985 ifba(2)=0thenform=1to1000:next:ba(2)=1:poke32984,po:goto815
  990 ifba(3)=0thenform=1to1000:next:ba(3)=1:poke33260,po:goto815
  995 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} score!!"
 1000 form=1to45:gosub780:next
 1005 print"{up}         "
 1010 iff>0then1020
 1015 a$(in/2+1)=str$(val(a$(in/2+1))+1):at=at+1:goto815
 1020 b$(in/2)=str$(val(b$(in/2))+1):bt=bt+1
 1025 ifin=18andbt>atthen1035
 1030 goto815
 1035 f0=1:goto875
 1040 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(35);bt:goto290
 1045 poke33667,32:poke33586,pd:x0=(18-x)/17:fory=2to19:gosub295
 1050 form=1to9:gettu$:iftu$="9"then1060
 1055 next:pokead,sv:x=x+x0:nexty:goto815
 1060 bs=.8+.3*rnd(2):pokead,sv:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}from third":ba(3)=0
 1065 ra=33260
 1070 pokera,32:pokera+41,po:y=y+2.5*bs:x=x+x0*2.5*bs:gosub295:ra=ra+41
 1075 ify>18then1090
 1080 ifra=33506then1110
 1085 form=1to10:gosub780:next:pokead,sv:goto1070
 1090 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}he's out!!"
 1095 formm=33260to33465step41:pokemm,32:next
 1100 pokead,sv:o=o+1:ifo<3then815
 1105 print"{up}{up}{up}";:goto550
 1110 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}safe! score!":pokead,sv:goto1010
 1115 ifrnd(3)>.3then455
 1120 ee=0:goto455
 1125 iff<0thenpt=pt+1:ifpt=9thenpt=0
 1130 iff>0thenpg=pg+1:ifpg=9thenpg=0
 1135 poke33545,103:poke33548,101:return
 1140 datalittle,dawson,carter,wallach,raines,cromarty,oliver,speier,moseby
 1145 datagriffin,mulliniks,johnson,garcia,bonnell,upshaw,whitt
 1150 data0,0,1,1,0,0,0,1,1,0,0,1,1,1,1,0,1,1
    0 clr:poke59468,12
    1 rem bat! copyright 1979 c.t.nadovich
    2 rem box 354
    3 rem croton, ny 10520
    4 :
    5 rem cursor #14, oct 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of nov 4 79
   90 pg$="bat!":nm$="14":gosub62000
  100 print"{down}want sound? ";:gosub60000
  105 print"{clr}
  110 sd=0:ifleft$(in$,1)="y"thensd=16
  120 poke59467,sd:poke59466,15:poke59464,0
  130 dimt(29):fori=0to29:t(i)=int(257/(2^(i/12))-1.5):nexti
  140 q8=59464
  200 g=9.8:rem gravitational accel.
  210 u=.3:rem friction coeff.
  220 a=20:rem thrust accel.
  250 u=1-u:g=g/(9.8*4):a=a/(9.8*4)
  500 restore:gf=.142:tp=50
  510 tq=ti:zq=59456:zw=32:s0=8*16*16*16
  600 print"{clr}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}calories:    {CBM-+}{CBM-+}{CBM-+}{CBM-+}time:     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
  610 fori=1to23:print"{left}{down}{CBM-+}";:next
  620 fori=1to39:print"{left}{left}{CBM-+}";:next
  630 fori=1to24:print"{up}{left}{CBM-+}";:next
  640 print"{home}":gosub2000
  700 x=20:y=12:vy=0:vx=0
 1000 k=s0+int(x+.5)+40*int(y+.5)
 1010 r=peek(k):tp=tp-gf*(tp/50+1)
 1020 ifq9=1thenn=255:q9=0:goto1040
 1030 ifq9=0thenn=127:q9=1:goto1040
 1040 ifr=32goto1150
 1090 ifr=214thentp=tp+25:pokeq8,t(21):goto1140
 1100 ifr=88thentp=tp+10:pokeq8,t(24):goto1140
 1110 ifr=83thentp=tp*2:pokeq8,t(29):goto1140
 1120 ifr=42thenpokeq8,t(1):tp=tp/2
 1140 gosub4000
 1150 pokek,n
 1180 q%=peek(qp):ifq%=255goto1600
 1190 tp=tp-gf*a
 1250 ifq%=41thenpokeq8,t(9):vx=vx+1*a:q=q-128:goto1600
 1300 ifq%=18thenpokeq8,t(17):vy=vy+1*a:q=q-64:goto1600
 1400 ifq%=42thenpokeq8,t(12):vx=vx-1*a:q=q-32:goto1600
 1500 ifq%=50thenpokeq8,t(5):vy=vy-1*a
 1600 vy=vy+g:ny=y+vy:nx=x+vx:pokeq8,0
 1700 ifnx>38thennx=38:vy=u*vy:vx=-vx*u
 1750 ifnx<1thennx=1:vy=u*vy:vx=-vx*u
 1800 ifny>22thenny=22:vx=u*vx:vy=-vy*u
 1850 ifny<1thenny=1:vx=u*vx:vy=-vy*u
 1900 y=ny:x=nx
 1910 iftp<0goto3000
 1920 n=32:pokek,n
 1930 ifq9=1goto1990
 1940 pokeq8,0
 1950 print"{home}";tab(15);int(tp);"{left} ":print"{home}";tab(28);int((ti-tq)/60);"{left} "
 1990 goto1000
 2000 fori=1to5
 2010 readbg,bn
 2015 gb(i)=bg
 2020 forj=1tobn
 2030 bx=2+int(36*rnd(1))
 2040 by=2+int(21*rnd(1))
 2050 poke(s0+bx+by*40),bg
 2060 next
 2070 next
 2080 data214,5,88,4,42,5,83,4,65,3
 2999 return
 3000 rem dust to dust
 3001 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(14);"{rvon}you are dead{rvof}"
 3002 restore
 3003 fori=1to5:readq5,q4:next
 3005 fork=1to11
 3006 readq5,q4:q4=200*q4
 3007 pokeq8,t(q5)
 3008 forj=1toq4:next
 3009 pokeq8,0
 3010 next
 3012 data5,4,5,3,5,1,5,4,8,3,7,1,7,3,5,1,5,3,4,1,5,4
 3020 getrj$:ifrj$<>""then3020
 3030 print"{clr}{down}{down}want to try again? ";:gosub60000
 3040 ifleft$(in$,1)<>"n"then500
 3050 poke59467,0:print"{clr}":end
 4000 bx=2+int(36*rnd(1))
 4040 by=2+int(21*rnd(1))
 4050 poke(s0+bx+by*40),gb(int(rnd(1)*5+1))
 4999 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by c.t. nadovitch{down}
 62020 gosub60500
 62030 print"{down}reduce the local insect population
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=4:gosub60200
 62110 print"over the years, radio-controlled models{down}
 62120 print"have become ever more sophisticated. the
 62130 print"latest developments are so lifelike that
 62140 print"they seem alive. you will soon have a{down}
 62150 print"chance to try one out. the model, called
 62160 print"the 'superbat', comes in the form of a{down}
 62170 print"bat, and is also a game of skill. the{down}
 62180 print"air is filled with 'insects' from a dis-
 62190 print"penser (available at extra cost), which{down}
 62200 print"the superbat must eat to stay 'alive'.
 62210 gosub60200
 62220 print"the 'insects' have various caloric{down}
 62230 print"values, as follows:{down}
 62240 print"  {rvon}V{rvof} - elephant bug     25 calories{down}
 62250 print"  X - buffet beetle    10 calories{down}
 62260 print"  S - feast fly        doubles calories{down}
 62270 print"  * - lint             halves calories{down}
 62280 print"  A - dirt bug         worthless{down}
 62300 print"to liven things up, the superbat is{down}
 62310 print"coated with high-resiliency rubber, so{down}
 62320 print"that it bounces extremely well.
 62340 gosub60200
 62350 print"to control the superbat, you use the{down}
 62360 print"numeric pad in the usual manner, so that
 62370 print"{rvon}8{rvof} means up, {rvon}6{rvof} means right, and so on.{down}
 62380 print"note that pressing the button merely{down}
 62390 print"applies force. it does not necessarily{down}
 62400 print"cause an immediate change in direction.{down}
 62410 print"for example, if the superbat is moving{down}
 62420 print"left, and you hold down {rvon}6{rvof} to move right,
 62430 print"it must first slow down and stop before{down}
 62440 print"it starts moving right.
 62450 gosub60200
 62460 print"to apply a force for a long time, just{down}
 62470 print"hold the button down for a while. you{down}
 62480 print"don't need to let it up except to change
 62490 print"the direction of the applied force.{down}
 62500 print"also, the {rvon}1{rvof}, {rvon}3{rvof}, {rvon}7{rvof}, and {rvon}9{rvof} keys don't do{down}
 62510 print"anything except get in the way.{down}
 62520 print"{down}remember that gravity will eventually{down}
 62530 print"pull the superbat to the floor if you{down}
 62540 print"don't push it up occasionally.
 62550 gosub60200
   10 dima$(5),m$(11,11),c$(10,10),h$(11,11)
   20 fori=1to5:reada$(i),s(i),l$(i):next
   30 dataaircraft carrier,4,a,battleship,3,b,cruiser,2,c,submarine,2,s,pt boat,1,p
   33 fori=0to11:forj=0to11:m$(i,j)=" ":h$(i,j)=".":nextj,i
   35 fori=1to10:forj=1to10:m$(i,j)=".":c$(i,j)=".":nextj,i
   36 fori=1to4:s$(i)=" ":next
   40 print"{clr}enter  the end points of your ships, top
   45 print"{up}to bottom  or  left to right, the numberindicates the length of the ship.
   60 fori=1to5:gosub1000
   65 printa$(i);"    (length is"s(i)+1"units)"
   70 print"begining position: ";
   75 print"row ?";:gosub1200:x1=zp+1:printzp"  column ?";:gosub1200:y1=zp+1:printzp
   80 print"ending position: ";
   85 print"row ?";:gosub1200:x2=zp+1:printzp"  column ?";:gosub1200:y2=zp+1:printzp
   99 ifx2-x1<>s(i)andy2-y1<>s(i)thenprint"you goofed":goto65
  101 forj=x1tox2:fork=y1toy2
  110 ifm$(j,k)<>"."thenprint"2 ships cannot occupy the same spot":goto65
  120 nextk,j
  130 forj=x1tox2:fork=y1toy2:m$(j,k)=l$(i):nextk,j
  140 nexti:gosub1000:print"{down}i will now hide my ships."
  142 cd=int(rnd(1)*3+1):ifcd=1thenc1=2:c2=1:c3=3:c4=2:c5=1:c6=3
  144 ifcd=2thenc1=1:c2=1:c3=2:c4=2:c5=3:c6=3
  146 ifcd=3thenc1=3:c2=1:c3=1:c4=2:c5=2:c6=3
  150 fori=1to5
  160 z=rnd(1)
  170 ifz>.5thenx1=int(rnd(1)*(10-s(i))+1):y1=int(rnd(1)*10+1):y2=y1
  180 ifz>.5thenx2=x1+s(i):goto200
  190 y1=int(rnd(1)*(10-s(i))+1):x1=int(rnd(1)*10+1):x2=x1:y2=y1+s(i)
  200 forj=x1tox2:fork=y1toy2:ifrnd(1)>.85goto212
  210 ifh$(j,k+1)<>"."orh$(j+1,k)<>"."orh$(j-1,k)<>"."then160
  212 ifh$(j,k)<>"."orh$(j,k-1)<>"."then160
  215 nextk,j
  220 forj=x1tox2:fork=y1toy2:h$(j,k)=l$(i):nextk,j
  240 nexti:print"{down}ok, let's play
  251 ifcc=17thenprint"{down}you won!!":goto600
  252 ifcm=17thenprint"youlost!!":print"check the"17-cc"hits you failed to make.
  253 ifcm=17thengosub700:goto600
  255 print"your shot ?       {left}{left}{left}{left}{left}{left}";
  256 geta$:ifa$<"0"ora$>"9"thengoto256
  257 a=val(a$)+1:printa-1",";
  258 getb$:ifb$<"0"ora$>"9"thengoto258
  259 b=val(b$)+1:printb-1:ifc$(a,b)<>"."thenprint"{up}";:goto255
  260 ifh$(a,b)<>"."thenc$(a,b)=h$(a,b):goto270
  265 c$(a,b)="*"
  270 ifh$(a,b)<>"."thencc=cc+1:h$(a,b)="."
  290 onhgoto400,510,510,510
  300 ifs$(1)=" "ands$(2)=" "ands$(3)=" "thenr=0:goto310
  302 forqi=1to4:ifs$(qi)<>" "then305
  303 nextqi
  305 fori=1to5:ifs$(qi)=l$(i)goto308
  306 nexti
  308 s$(qi)=" ":h=1:x=x(qi):y=y(qi):goto400
  310 a=int(rnd(1)*10+1):b=int(rnd(1)*10+1):ifcm=15andgf=1then325
  312 bs=b:as=a
  314 ifb>3thenb=b-3:goto314
  316 ifa>3thena=a-3:goto316
  317 ifcm=15thencg=cg+1:ifcg=50thengf=1
  318 ifa=c1andb=c2ora=c3andb=c4ora=c5andb=c6then320
  319 goto310
  320 a=as:b=bs
  325 ifm$(a,b)="h"orm$(a,b)="*"goto310
  330 ifcm>=12andpx=1orcm=15thengosub800:ifsp<slthen310
  350 ifm$(a,b)="."thenm$(a,b)="*":gosub1000:h=0:cg=0:goto251
  360 h=1:x=a:y=b:fori=1to5:ifm$(a,b)=l$(i)goto390
  370 nexti
  390 m$(a,b)="h":cm=cm+1:gosub1000:goto251
  400 z=int(rnd(1)*4+1):onzgosub902,900,906,904
  450 ifm$(x+p,y+q)="h"orm$(x+p,y+q)="*"orm$(x+p,y+q)=" "then400
  452 sl=0:sp=1:a=x:b=y:onzgosub810,810,872,872:ifsp>=s(i)+1goto460
  454 goto400
  460 ifm$(x+p,y+q)="."thenm$(x+p,y+q)="*":gosub1000:goto251
  470 ifm$(x+p,y+q)<>l$(i)thenr=r+1:s$(r)=m$(x+p,y+q):m$(x+p,y+q)="h"
  480 ifm$(x+p,y+q)<>l$(i)thencm=cm+1:gosub1000:x(r)=x+p:y(r)=y+q:goto251
  490 m$(x+p,y+q)="h":cm=cm+1:h=2:gosub1000:p=p*2:q=q*2
  500 ifh=s(i)+1thenh=0:print"{down}sunk!! gurgle,gurgle...":print"goodbye "a$(i)"!!
  501 ifi=5thenpx=1
  502 goto251
  510 ifm$(x+p,y+q)="."thenm$(x+p,y+q)="*":goto530
  520 goto540
  530 onzgosub900,902,904,906:gosub1000:goto251
  540 ifm$(x+p,y+q)="*"orm$(x+p,y+q)=" "thenck=1:onzgosub900,902,904,906
  542 ifck=1then550
  544 ifm$(x+p,y+q)="h"thenonzgosub900,902,904,906
  550 ck=0:ifm$(x+p,y+q)<>l$(i)thenr=r+1:s$(r)=m$(x+p,y+q):m$(x+p,y+q)="h"
  560 ifm$(x+p,y+q)<>l$(i)thencm=cm+1:x(r)=x+p:y(r)=y+q:gosub1000:goto251
  570 m$(x+p,y+q)="h":cm=cm+1:h=h+1:gosub1000:gosub950
  580 ifh=s(i)+1thenh=0:print"{down}sunk!! gurgle,gurgle...":print"goodbye "a$(i)"!!
  590 goto251
  600 print"{down}would you like to play again ?";
  610 getv$:ifv$=""then610
  620 ifv$="y"thenprint"yes":run
  630 ifv$="n"thenprint"no":end
  640 goto610
  700 forhh=1to10:foryy=1to10:printtab(5);h$(hh,yy);:next:printtab(25);
  701 foryy=1to10:printc$(hh,yy);:next:print:next:return
  800 sl=17-cm:sp=1
  810 forf=a+1toa+4:iff>10then860
  830 ifm$(f,b)<>"h"andm$(f,b)<>"*"thensp=sp+1:goto850
  840 goto860
  850 nextf
  860 forf=a-1toa-4step-1:iff<1then870
  864 ifm$(f,b)<>"h"andm$(f,b)<>"*"thensp=sp+1:goto868
  866 goto870
  868 nextf
  870 ifsp>=slthenreturn
  872 sp=1:forf=b+1tob+4:iff>10goto880
  874 ifm$(a,f)<>"h"andm$(a,f)<>"*"thensp=sp+1:goto878
  876 goto880
  878 nextf
  880 forf=b-1tob-4step-1:iff<1then898
  892 ifm$(a,f)<>"h"andm$(a,f)<>"*"thensp=sp+1:goto896
  894 goto898
  896 nextf
  898 return
  900 p=-1:q=0:return
  902 p=1:q=0:return
  904 p=0:q=-1:return
  906 p=0:q=1:return
  950 ifp>0thenp=p+1
  951 ifp<0thenp=p-1
  952 ifq>0thenq=q+1
  953 ifq<0thenq=q-1
  954 return
 1000 print:printtab(4)"0123456789";
 1010 printtab(25)"0123456789":print
 1020 foril=1to10:printil-1tab(4);
 1030 foric=1to10:printm$(il,ic);:nextic
 1040 printtab(21)il-1tab(25);:foric=1to10:printc$(il,ic);
 1050 nextic:print:nextil:print:print:print:return
 1200 getzp$:ifzp$<"0"orzp$>"9"goto1200
 1210 zp=val(zp$):return
  100 input"want instructions";z$:ifleft$(z$,1)<>"y"goto200
  110 print"{down}we each have 5 ships on a grid"
  120 print"..we can't see each others ships,"
  130 print"but take turns firing at each other's"
  140 print"grid.  a miss shows as 'W', a hit as '{rvon} {rvof}'"
  150 print"try to sink my ships before i get yours"
  160 print"{down}to start you must input co-ordinates"
  170 print"for your ships{down}eg, a submarine(length 3) might lie 'e4-e6'"
  180 print"{down}good luck! {down}hit any key to start"
  190 getz$:ifz$=""goto190
  200 dim b(9,9,1),n$(4),l(4),h(4,1):r=ti
  210 print"{clr}battleships   {rvon} j butterfield "
  230 data carrier,battleship,cruiser,submarine,"pt boat"
  240 data 5,5,4,3,2
  250 for j=0 to 4:read n$(j):next j:forj=0to4:readl(j):nextj
  260 r=r/1000:r1=rnd(-r):ifr>1goto260
  270 print"{clr}battleships   {rvon} j butterfield "
  280 print "  my board   your board"
  290 z=0:z$="{CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}":gosub 1100
  300 z$="{CBM-Q}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-W}":forz=1to8:gosub1100:next z
  310 z$="{CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}":gosub 1100
  320 z$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  330 e$=z$+"                                        {up}"
  335 forl=0to1:forj=0to9:fork=0to9:b(j,k,l)=0:nextk,j,l
  336 forc=0to4:h(c,0)=0:h(c,1)=0:next c
  340 print"^^^^^^^^^^":print"abcdefghij"
  341 gosub 2000
  342 print z$;"want to set up ships manually (y/n)?"
  343 get y$
  344 if y$="y" goto 359
  345 if y$<>"n" goto 343
  346 y$="Q":for x=0 to 9:for y=0 to 9
  347 b(x,y,0)=b(x,y,1):b(x,y,1)=0
  348 if b(x,y,0)>0 then gosub 1160
  349 next y,x
  350 gosub 2000
  351 goto 510
  359 printz$;"input your ships (i won't peek)...   "
  360 forj=1to3000:nextj:printe$;"give end co-ordinates for each ship..."
  380 forl=0to1:forj=0to4:h(j,l)=0:nextj,l
  390 forc=0to4
  400 printe$;n$(c);"(length";l(c);")";:inputy$:gosub1110:ife=1goto400
  410 x1=x:y1=y:gosub1120:ife=1goto400
  420 l=l(c):ifx<>x1andabs(x-x1)<>l-1goto400
  430 ify<>y1andabs(y-y1)<>l-1goto400
  440 ify=y1andx=x1goto400
  450 y2=sgn(y1-y):x2=sgn(x1-x):y3=y:x3=x
  460 forj=1tol-1:ifb(x3,y3,0)<>0goto400
  470 ifx2*y2<>0thenifb(x3+x2,y3,0)=b(x3,y3+y2,0)thenifb(x3,y3+y2,0)<>0goto400
  480 x3=x3+x2:y3=y3+y2:nextj
  490 ifb(x3,y3,0)<>0goto400
  500 y$="Q":forj=1tol:b(x,y,0)=c+1:gosub1160:x=x+x2:y=y+y2:nextj,c
  510 printe$;"now i am ready..":s=0:h9=0
  630 printe$;
  640 input": your shot";y$
  650 gosub 1110:ife=1goto630
  660 b=b(x,y,1):ifb>9goto630
  670 b(x,y,1)=b+10:y$="W":ifb=0goto710
  680 y$="{rvon} ":h(b-1,1)=h(b-1,1)+1:ifh(b-1,1)<l(b-1)goto710
  690 printe$;n$(b-1);" {rvon}sunk":forc=1to500:nextc:forc=0to4:ifh(c,1)<l(c)goto710
  700 nextc:goto1210
  710 gosub1170
  720 onsgoto780,860
  730 x=int(rnd(1)*10):y=int(rnd(1)*10)
  740 b=b(x,y,0):ifb<9goto 920
  750 x=x+3:ifx<10goto740
  760 x=x-10:y=y+1:ify<10goto740
  770 y=y-10:goto740
  780 x1=x9-d:x2=x9+d:y1=y9-d:y2=y9+d
  790 ifx1<0thenx1=0
  800 ify1<0theny1=0
  810 ifx2>9thenx2=9
  820 ify2>9theny2=9
  830 forx=x1tox2:fory=y1toy2
  840 b=b(x,y,0):ifb<9goto 920
  850 nexty,x:d=d+1:goto780
  860 x=x9:y=y9
  870 x=x+x8:y=y+y8:ifx<0orx>9ory<0ory>9goto900
  880 b=b(x,y,0):ifb<9goto 920
  890 b=b-10:ifb>0goto870
  900 ifs1=1thens=1:goto780
  910 s1=1:x8=-x8:y8=-y8:goto860
  920 b(x,y,0)=b+10:y$="W":h7=0:h8=sgn(b):h9=h9+h8:x$="miss":ifb=0goto 950
  930 b=b-1:y$="{rvon} ":x$="hit":h(b,0)=h(b,0)+1:ifh(b,0)<l(b)goto 950
  940 h7=1:h9=h9-l(b):x$="sink "+n$(b)
  950 gosub1160:printe$;"i ";x$;" at ";chr$(x+65);chr$(y+48);:forj=1to1000:nextj
  960 forj=0to4:ifh(j,0)<l(j)goto 980
  970 nextj:goto1220
  980 for j=0 to 0:next j:onsgoto1010,1060
  990 ifh8=1thens=1:d=1:x9=x:y9=y
 1000 goto640
 1010 ifh9=0thens=0:goto640
 1020 ifh8=0goto640
 1030 x8=x-x9:y8=y-y9:s1=0
 1040 ifx8=sgn(x8)andy8=sgn(y8)thens=2
 1050 goto640
 1060 ifh7=0goto640
 1070 s=1
 1080 ifh9=0thens=0
 1090 goto640
 1100 printz$;"_";chr$(z+48);" ";z$:return
 1110 p=1:e=0
 1120 for z=ptolen(y$)-1:x=asc(mid$(y$,z))-65:ifx>=0andx<=9goto1140
 1130 nextz:e=1:return
 1140 for p=ztolen(y$):y=asc(mid$(y$,p))-48:ify>=0andy<=9thenreturn
 1150 nextp:goto1130
 1160 print"{home}";tab(13);:goto1180
 1170 print"{home}";
 1180 forq=1toy+2:print"{down}";:next q
 1190 forq=1tox+1:print"{rght}";:next q
 1200 print"{left}";y$:return
 1210 gosub1170:printe$;"you win":goto1270
 1220 print:print"i win -i'll show my hidden ships"
 1230 forx=0to9:fory=0to9
 1240 b=b(x,y,1):ifb=0orb>9goto1260
 1250 y$="Q":gosub1170
 1260 nexty:nextx
 1270 printz$;"{down}{down}{down}{down} another game";
 1280 inputy$:ifleft$(y$,1)<>"n"goto270
 1290 end
 2000 forc=0to4:l=l(c)
 2010 d=int(rnd(1)*4):x1=l-1:y1=l-1
 2020 ifd=2thenx1=0
 2030 ifd=0theny1=0
 2040 x=int(rnd(1)*(10-x1)):ifd=3thenx=x+x1
 2050 y=int(rnd(1)*(10-y1)):y3=y:x3=x:x2=sgn(2-d):y2=sgn(y1)
 2060 forj=1tol-1:ifb(x3,y3,1)<>0goto2010
 2070 ifx2*y2<>0thenifb(x3+x2,y3,1)=b(x3,y3+y2,1)thenifb(x3,y3+y2,1)<>0goto2010
 2080 x3=x3+x2:y3=y3+y2:nextj
 2090 ifb(x3,y3,1)<>0goto2010
 2100 forj=1tol:b(x,y,1)=c+1:x=x+x2:y=y+y2:nextj,c
 2110 return
    5 open4,4:cmd4
    7 print:print:print:print:print
   10 print"                                                rrr"
   15 print"                                 rrrr      rrrrrrrr"
   20 print"                                rrrrrr   rrrrrrrrrrrr"
   25 print"                              rrrrrrrrr rrrrrrrrrrrrrr"
   30 print"                             rrrrrrrrrrrrrrrrrrrrrrrrrr"
   35 print"                             rrrrrrrrrrrrrrrrrrrrrrrrrr"
   40 print"                             rrrrrrrrrrrrrrrrrrrrrrrrrrr"
   45 print"                            rrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   50 print"                            rrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   55 print"                           rrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   60 print"                           rrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   65 print"                          rrrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   70 print"                          rrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   75 print"                          rrrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   80 print"                          rrrrrrrrrrrrrrrrrrrrrrrrrrrr"
   85 print"                          rrrrrr   rrrrrrrrrrrrrrrrrr"
   90 print"                           rrrr     rrrrrrrrrrrrrrrr"
   95 print"                            rr       rrrrrrrrrrrrrr"
  100 print"                             r        rrrrrrrrrrrrr"
  105 print"                                       rrrrrrrrrrrr"
  110 print"                                        rrrrrrrrrrr"
  115 print"                                         rrrrrrrrrr"
  120 print"                                          rrrrrrrrr"
  125 print"                                          rrrrrrrrr"
  130 print"                                         rrrrrrrrr"
  135 print"                                         rrrrrrrr"
  140 print"                                        rrrrrrrr"
  145 print"                                        rrrrrrr"
  150 print"                                        rrrrrr"
  155 print"                                        rrrrrr"
  160 print"                                         rrrr"
  165 print"                                      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  170 print"                                     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  175 print"                                    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  180 print"                                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  185 print"                                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  190 print"                                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  195 print"                                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}"
  200 print"                                  {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}"
  205 print"                             {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}"
  210 print"                            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  215 print"                           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} oo {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} oo {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  220 print"                           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}oo{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}oo{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  225 print"                           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  230 print"                            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  235 print"                             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a u{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}u a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  240 print"                               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a u{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}u a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
  245 print"                                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a u{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}u a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  250 print"                                 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a u{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}u a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  255 print"                                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a u{CBM-+}{CBM-+}{CBM-+}u a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  260 print"                                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a     a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  265 print"                                    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}a   a{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  270 print"                                     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  275 print"                  bbbbb               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  280 print"           bb   bbbbbbbbbb              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  285 print"          bb  bbbbbbbbbbbbb              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  290 print"         bb  bbbbbbbbbbbbbbbb            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  295 print"        bbb bbbbbbbbbbb   bbbb           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  300 print"        bbbbbbbbbbbbbbbb     b           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  305 print"   b   bbbbbbbbbbb   bbbb                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  310 print"  bb  bbbbbbbbbbb      bbb               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  315 print"  bbb bbbbbbbbbb  bb     b               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  320 print"  bbbbbbbbbbbbbbbbbbbb                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  325 print"   bbbbbbbbbbbbbbbbbbbb                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  330 print" b bbbbbbbbbbbbbbbb   b                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  335 print" bb bbbbbbbbbbbbbb                       {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  340 print"  bbbbbbbbbbbbbbbb                       {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  345 print"   bbbbbbbbbbbbbbb  bbbbb                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  350 print"    bbbbbbbbbbbbbb bbbbbbb               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  355 print"     bbbbbbbbbbbbbbbbbbbbbb              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  360 print"      bbbbbbbbbbbbbbbb   bb              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  365 print"        bbbbbbbbbbbbb     b              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  370 print"          bbbbbbbbbbb                    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  375 print"           bbbbbbbbbbb                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  380 print"            bbbbbbbbbb                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  385 print"         b   bbbbbbbbb                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  390 print"          bbbbbbbbbbbbb                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  395 print"            bbbbbbbbbbb                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  400 print"              bbbbbbbbbb                 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  405 print"                 bbbbbbbb                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  410 print"                    bbbbbbb              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  415 print"                        bbbbbb           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  420 print"                           bbbbbb        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  425 print"                              bbbbbb     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  430 print"                                  bbbbb  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  435 print"                                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  440 print"                               {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  445 print"          yy                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  450 print"     yy  yy                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  455 print"     yyy yyy                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  460 print"    yyy  yyy yyy              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  465 print"    yyy  yyyyyyyy             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  470 print"    yyy  yyyyy                 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}         yyy"
  475 print"     yyyy yyyyy                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}         yyy"
  480 print"      yyyyyyyyyyyyyyyyyyyyyyyyyyyy{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}         yyyy"
  485 print"       yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy          yyy            yyyy"
  490 print"                                                 yyy          yy yy y"
  495 print"                                                  yyy        yy  y  y"
  500 print"                                                   yyy      yy      y"
  505 print"                                                    yyy         yy"
  510 print"                                                     yyy       yy"
  515 print"                                                      yyy     yy"
  520 print"                                                       yyy   yy"
  525 print"                                                        yyy yy"
  530 print"                                                         yyyy"
  535 print"                                                         yyyy"
  540 print"                                                          yy"
  545 print"{CBM-+}{CBM-+}{CBM-+}                            {CBM-+}{CBM-+}{CBM-+}"
  550 print"{CBM-+}  {CBM-+}                           {CBM-+}  {CBM-+}"
  555 print"{CBM-+}  {CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}       {CBM-+}  {CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}"
  560 print"{CBM-+}{CBM-+}{CBM-+}    {CBM-+}      {CBM-+}      {CBM-+}  {CBM-+}      {CBM-+}{CBM-+}{CBM-+}    {CBM-+}      {CBM-+}      {CBM-+}  {CBM-+}"
  565 print"{CBM-+}  {CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}  {CBM-+}      {CBM-+}  {CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}  {CBM-+}"
  570 print"{CBM-+}  {CBM-+}   {CBM-+}      {CBM-+}      {CBM-+}{CBM-+}{CBM-+}       {CBM-+}  {CBM-+}   {CBM-+}      {CBM-+}      {CBM-+}{CBM-+}{CBM-+}"
  575 print"{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}         {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}"
  580 print:print:print:print
  585 print#4:close4
  590 end
    0 clr:poke59468,12
    1 rem bets copyright (c) 1980 r. lockwood
    2 rem 90 dyke rd setauket ny
    4 :
    5 rem cursor #20 may 1980
    6 rem box 550 goleta ca 93017
    7 :
   10 rem as of 9jun80
   90 pg$="bets":nm$="20":gosub62000
  100 deffnr(i)=int(rnd(ti)*i)+1
  110 wad=200:ante=10:limit=25
  120 t=rnd(-ti)
  240 dimn$(7),k(3),m%(4),w%(4),b(4),s%(4),v%(4)
  250 eye=33125
  270 d$="{home}{down}{down}{down}{down}{down}{down}":d2$=d$+"{down}{down}{down}{down}{down}{down}{down}{down}{down}":x$=d2$+"{down}{down}{down}{down}{down}{down}"
  290 e$="                               "
  300 dimp(4),l1(7),l2(7),l3(7)
  310 fori=1to7:readn$(i),l1(i),l2(i),l3(i):next
  320 datajack,14,10,9,edna,14,9,8,burt,14,9,7,kirk,13,8,5,lucy,14,8,4,fred,13,8,4
  322 datayou,0,0,0
  350 rk$="23456789Vjqka"
  370 p(4)=7:p(1)=fnr(6)
  380 p(2)=fnr(6):ifp(2)=p(1)then380
  400 p(3)=fnr(6):ifp(3)=p(1)orp(3)=p(2)then400
  420 print"{clr}":fori=1to3:pl=p(i):printd$spc(11*i-4);:gosub1025:nexti
  460 printd2$"   {rvon}{SHIFT-POUND}";:fori=1to16:print"{CBM-T}{CBM-T}";:next:print"{CBM-*}"
  470 print"  {rvon}{SHIFT-POUND}";:fori=1to17:print"  ";:next:print"{CBM-*}"
  480 print" {rvon}{SHIFT-POUND}bet ";:fori=1to16:print"  ";:next:print"{CBM-*}"
  490 print"{rvon}{SHIFT-POUND}";:fori=1to19:print"  ";:next:print"{CBM-*}"
  500 print"{up}L";:fori=1to19:print"{CBM-@}{CBM-@}";:next:print"{SHIFT-@}"
  510 print"{rvon}"d2$spc(7)n$(p(1))spc(7)n$(p(2))spc(7)n$(p(3))
  520 fb=int(rnd(ti)*3+-1)
  525 fori=1to4:m%(i)=wad:next:gosub1580
  530 printx$e$:print"{up}{rvon}the ante is $"ante:gosub1260:printx$e$
  540 forp=1to4:ifm%(p)<antethen1860
  545 nextp
  550 fori=1to4:b(i)=-1:q=q+ante:m%(i)=m%(i)-ante:next:gosub1580
  560 s%(1)=fnr(4):v%(1)=fnr(13)
  570 fori=2to4
  575 s%(i)=fnr(4):v%(i)=fnr(13)
  580 forj=1toi-1:ifs%(i)=s%(j)andv%(i)=v%(j)then575
  590 nextj:nexti
  600 fori=1to3:print"{home}"tab(11*i-3);:gosub2000:nexti
  730 pb=1:f=0:b=0:cl=0
  740 fb=fb+1:iffb>4thenfb=fb-4
  750 p=fb
  760 p=p+1:ifp>4thenp=p-4
  775 ob=b(p):ifob=0then900
  780 ifp=4thengosub1270:goto850
  785 ifm%(p)<=0thenb(p)=0:gosub2500:goto850
  790 ifob<0thengosub2200:goto850
  800 gosub2100
  850 ifb(p)=bandb>0thencl=cl+1
  860 ifb(p)>bthencl=1
  865 ifb(p)=0thenf=f+1
  870 ifob<0thenob=0
  880 ifb(p)>0thenq=q+b(p)-ob:m%(p)=m%(p)-b(p)+ob
  885 ifb<b(p)thenb=b(p)
  890 gosub1580:gosub1260
  900 iff+cl<4then760
  970 printx$e$:pb=0
  980 printd2$"{down}{down}{down}{down}{down}{down}your card"tab(24)"{up}{up}{up}{rvon}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}";:i=4:gosub2000:gosub1260
  990 gosub1260:printd2$"{down}{down}{down}{down}{down}{down}"e$
 1000 printd2$"{down}{down}{down}"tab(24)"{rvon}   {rvof}{down}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}    "
 1010 print"{home}";:fori=1to6:printe$"   ":next:printx$e$
 1020 gosub1670:gosub1260:goto530
 1025 onplgoto1030,1050,1070,1090,1110,1130
 1030 print"{rvon}{SHIFT-POUND}==={CBM-*}{down}{left}{left}{left}{left}{left}=   ={down}{left}{left}{left}{left}{left}={CBM-Y} {CBM-Y}={down}{left}{left}{left}{left}{left}{left}< {CBM-C}H{CBM-C} >{down}{left}{left}{left}{left}{left}{left}  {CBM-T}  {down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}(-){rvof}{SHIFT-POUND}";
 1040 print"{down}{left}{left}{left}{left}{rvon} {SHIFT-*} {down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-+}{CBM-+}{CBM-*}Q{SHIFT-POUND}{CBM-+}{CBM-+}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+} Z {CBM-+}{CBM-+}{CBM-+}":return
 1050 print"@@@@@{down}{left}{left}{left}{left}{left}{left}@@{rvon}   {rvof}@@{down}{left}{left}{left}{left}{left}{left}{left}@{rvon} {CBM-Y} {CBM-Y} {rvof}@{down}{left}{left}{left}{left}{left}{left}{left}{rvon}( {CBM-C} {CBM-C} ){down}{left}{left}{left}{left}{left}{left}{left}*  v  *";
 1060 print"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} S {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}XX{CBM-@}{CBM-@}{CBM-@}XX{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}XXXXXXXXX":return
 1070 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M}{rvon}{SHIFT-POUND}{SHIFT-POUND} {CBM-*}{CBM-*}{rvof}{CBM-G}{rvon}{down}{left}{left}{left}{left}{left}{left} D D {down}{left}{left}{left}{left}{left}{left}[ {CBM-C}{SHIFT--}{CBM-C} ]{down}{left}{left}{left}{left}{left}{left} K{CBM-E}J {down}{left}{left}{left}{left}{left}";
 1080 print"( - ){down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}MJ{SHIFT-*}KN{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}M M N N{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}  MN{CBM-T}MN  ":return
 1090 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M}{SHIFT--}{rvon}   {rvof}{SHIFT--}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-M}{rvon}{SHIFT-POUND}F R{CBM-*}{rvof}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{rvon}( {CBM-C}{SHIFT--}{CBM-C} ){down}{left}{left}{left}{left}{left}{left}  {CBM-E}  ";
 1100 print"{down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {SHIFT-*} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{rvof}N{CBM-T}{CBM-T}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-G}   {SHIFT--}   {CBM-M}":return
 1110 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M} {rvon}   {rvof}{CBM-M}{down}{left}{left}{left}{left}{left}{left}N{rvon}{SHIFT-POUND}{CBM-U} {CBM-U}{CBM-*}{rvof}M{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-M} {rvon} {CBM-C}B{CBM-C} {rvof}{CBM-M}{down}{left}{left}{left}{left}{left}{left}{left}M{rvon}  ";
 1120 print"{CBM-E}  {rvof}N{down}{left}{left}{left}{left}{left}{left}{CBM-*}{rvon}J{SHIFT-*}K{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}..NSM..{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}...{CBM-G}W{CBM-M}...":return
 1130 print"{rvon}{SHIFT-POUND}='={CBM-*}{down}{left}{left}{left}{left}{left}{CBM-+} F {CBM-+}{down}{left}{left}{left}{left}{left}{left}( {CBM-U}{SHIFT--}{CBM-U} ){down}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {CBM-C}W{CBM-C} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{rvon} N{SHIFT-*}M ";
 1140 print"{down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}JRK{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}M{CBM-@}N{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} MN.MN {CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}    .    ":return
 1150 return
 1160 ifrnd(1)>.04thenreturn
 1170 e1=e1+1:ife1=4thene1=1
 1180 e=fnr(8):ife=1theneg=251:goto1240
 1200 ife=2theneg=254:goto1240
 1210 ife=3theneg=236:goto1240
 1220 ife=4theneg=173:goto1240
 1230 eg=252
 1240 e=eye+11*e1:pokee,eg:pokee+2,eg:return
 1260 forz=1to90:gosub1160:next:return
 1270 printx$e$:print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}your bet? ";
 1280 gosub60000:b(4)=val(in$)
 1290 ifin$=""andb<=0then1270
 1295 ifin$=""thenb(4)=b:printb;
 1300 ifb(4)=0thenreturn
 1310 print"{up}
 1330 ifb(4)<bthenprinte$:print"{up}the bet is "b:gosub1260:goto1270
 1340 ifb(4)-b>limitthen:printe$:print"{up}raise limit $"limit:gosub1260:goto1270
 1350 ifb(4)>m%(4)thenprinte$:print"{up}it's table stakes!":gosub1260:goto1270
 1420 return
 1580 printx$"{down}{down}you have $    {left}{left}{left}{left}"m%(4)
 1590 printd2$;"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}"e$;"{up}
 1600 print"{rght}{rght}{rvon}has"tab(6)"$"m%(1)tab(17)"$"m%(2)tab(29)"$"m%(3)
 1610 print"{rght}{rght}{rght}{rght}{rght}{rvon}";e$;"{up}
 1620 forj=1to3
 1630 ifb(j)>=0andpb>0thenprinttab(11*j-4)"{rvon}$"b(j);
 1640 nextj
 1650 print:printtab(13)"{rvon}pot:       {left}{left}{left}{left}{left}{left}$"q:return
 1670 fori=1to4:w%(i)=0:next
 1680 fori=1to4:forj=1to4:ifj=ithen1710
 1690 ifb(i)<=0then1720
 1700 ifv%(i)>=v%(j)orb(j)=0thenw%(i)=w%(i)+1
 1710 nextj
 1720 nexti
 1730 printx$"winner: ";:nw=0:fori=1to4
 1750 ifw%(i)<3then1790
 1760 nw=nw+1:ifnw>1thenprint" and ";
 1780 printn$(p(i));
 1790 next:w=int(q/nw)
 1810 print" $"w:j=int(q/nw)
 1820 fori=1to4:ifw%(i)=3thenm%(i)=m%(i)+j:q=q-j
 1830 next:gosub1260:gosub1580
 1840 fo=0:forp=1to4:ifm%(p)<=0then1860
 1850 next:return
 1860 ifp=4thenprintx$;e$:printx$"{rvon}you are broke!!":gosub1260:goto1890
 1870 printx$;e$:printx$;n$(p(p));" is broke":gosub1260:printx$;e$
 1880 gosub1260
 1890 i=1:for j=2 to 4:if m%(j)>m%(i) then i=j
 1895 next j:print"{home}{down}{down}the winner is ";n$(p(i));" with $";m%(i);"{left}.
 1900 printx$;e$:printx$"play again? ";:gosub60000
 1910 ifleft$(in$,1)<>"n"thenprint"{clr}":clr:goto100
 1920 print"{clr}{down}{down}{down}{down}":end
 1930 printx$"{down}{down}you have $    {left}{left}{left}{left}"m%(4):return
 2000 v$=mid$(rk$,v%(i),1):ifv%(i)=9thenv$="10"
 2010 printleft$("{rvon}"+v$+"  ",4)"{down}{left}{left}{left}   {down}{left}{left}{left} ";
 2020 printmid$("SAZX",s%(i),1);" {down}{left}{left}{left}   {down}{left}{left}{left}";right$("  "+v$,3)
 2030 return
 2100 ifb<=m%(p)+b(p)andb<=3*k(p)*b(p)thenb(p)=b:goto2500
 2110 b(p)=0:goto2500
 2200 f1=0:f2=0:f3=0:fori=1to4:ifi=pthen2250
 2220 ifv%(i)>=l1(p(p))thenf1=1
 2230 ifv%(i)>l2(p(p))thenf2=1
 2240 ifv%(i)<l3(p(p))thenf3=f3+1
 2250 nexti
 2260 iff1=1thenb(p)=0:fo=1:goto2330
 2270 iff1=0andfo=1thenk(p)=3:goto2310
 2280 iff2=1thenk(p)=.5:goto2310
 2290 iff3=3thenk(p)=2:goto2310
 2300 k(p)=1
 2310 k=k(p):b(p)=int(2*k*(5+rnd(1)))
 2320 ifb(p)>m%(p)thenb(p)=m%(p)
 2325 ifb(p)-b>limitthenb(p)=b+limit
 2330 ifb<=0then2500
 2340 ifb(p)<b/3orb>m%(p)thenb(p)=0:goto2500
 2350 ifb(p)<1.8*bthenb(p)=b:goto2500
 2370 ifb(p)>b+m%(p)thenb(p)=b+m%(p)
 2500 ifb(p)>m%(p)thenb(p)=m%(p)
 2505 printx$e$x$n$(p(p));
 2510 ifb(p)>bandb>0thenprint" raises bet to";b(p):return
 2520 ifb(p)=0thenprint" folds.":return
 2530 ifob>0andb(p)>obthenprint" sees raise.":return
 2540 print" bets $";b(p):return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60025 gosub1160
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by randall lockwood
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}bet on the high card":print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 getz$:ifz$=""then62050
 62100 print"{clr}":clr:goto100
    5 printchr$(142)
   10 c$(5)="{rvon}{CBM-U}{rvof}":c$(6)="{rvon}{CBM-Y}":c$(7)="{rvon}{CBM-T}{rvof}"
   20 c$(8)="{rvon} {rvof}":forxx=1to80:yy=int(rnd(2)*4)+5:b$=b$+c$(yy):nextxx
   30 print"{clr}{down}{down}{down}";tab(37);"{rvon}bomber{up}{rvof}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}":print:print
   40 print"                 sie sind ab sofort pilot eines bombers"
   50 print"        und erhalten den auftrag feindliche panzer abzuschiessen."
   60 print"                     sie haben dafuer 10 versuche."
   70 print"        bei jedem versuch koennen sie nur eine  bombe abwerfen!!!"
   80 print"die bombe wird durch das druecken einer beliebigen taste ausgeklinkt."
   90 fori=1to80:print"-";:nexti:print
  100 s=10
  110 t=ti:ifs=9thenprinttab(35);" {up}"
  120 printtab(3);"{rvon}der start erfolgt in";s;"{left} sekunden."
  130 s=s-1:ifs=0then160
  140 ifti-t<60then140
  150 print"{up}{up}":goto110
  160 l$=" {rvon}{CBM-K}{CBM-*}{rvof}   {CBM-@}{CBM-P}{CBM-O}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-T}{CBM-*}{rvon}  {SHIFT-*}{SHIFT-*}{SHIFT-*}  {rvof}>{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  170 v=0:t=0
  180 l2$=" {down}{down}Q"
  190 l1$="    {CBM-@}{CBM-P}{CBM-O}{CBM-P}{SHIFT--} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{rvon}{CBM-F}   {CBM-P}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}RRRRRRR{CBM-*}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  200 l1$=l1$+"{CBM-*}{rvon}QQQQQQQ{rvof}{SHIFT-POUND} "
  210 l3$="     M{SHIFT--}{SHIFT--}{SHIFT--}N{SHIFT-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} {rvon}{CBM-F}{CBM-*}{rvof}#{rvon}{SHIFT-POUND}{CBM-P}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}  {rvon}{SHIFT-POUND}RRRRRRR{CBM-*}{rvof}"
  220 l3$=l3$+" {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-*}{rvon}QQQQQQQ{rvof}{SHIFT-POUND} "
  230 a=0:print"{clr}";
  240 gosub750:fori=1to56
  250 print"{home}{down}{down}";tab(i);l$
  260 ifa=1then280
  270 geta$:ifa$<>""thena=1:k=2
  280 ifa<>1then310
  290 k=k+2:ifk=16then330
  300 print"{home}";:forj=1tok:print"{down}";:nextj:printtab(i+7);l2$
  310 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(56-i);l1$
  320 forj=1to50:nextj,i:goto230
  330 ifi+8=56-i+7then370
  340 ifi+8=56-i+8then370
  350 ifi+8=56-i+9then370
  360 v=v+1:goto380
  370 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(54-i);l3$:t=t+1:v=v+1
  380 print"{home}in";v;"versuchen hatten sie";t;"treffer"
  390 fors=1to700:nexts:ifv<10then230
  400 print"{clr}";:goto410
  410 ont+1goto680,650,630,610,590,570,540,510,480,440
  420 print"sie sind der geborene verteidigungs-","minister !!!"
  430 print"herzlichen glueckwunsch und auf wieder- sehen.":end
  440 print"melden sie sich im vertidungsminis-"
  450 print"terium, dort erhalten sie das bundesver-";
  460 print"dienstkreuz in gold am band."
  470 goto700
  480 print"sie als alter hase sollten auch mal die"
  490 print"anfaenger ranlassen!!!"
  500 goto700
  510 print"sehr gut. sie werden zum major befoer-"
  520 print"dert !!!"
  530 goto700
  540 print"gut, gut. sie werden zum hauptmann be-"
  550 print"foerdert !!!"
  560 goto700
  570 print"sie sind ja ganz schoen in uebung."
  580 goto700
  590 print"wenn sie weiter ueben koennen sie noch  besser werden."
  600 goto700
  610 print"fuer einen anfaenger schon ganz gut."
  620 goto700
  630 print"sie muessen aber noch sehr viel ueben."
  640 goto700
  650 print"bevor sie einen panzer treffen werden   sie im ernstfall vom gegner";
  660 print" abgeschossen !!!"
  670 goto700
  680 print"weiteres ueben ist bei ihnen zwecklos."
  690 print"sie sollten lieber rosen oder kleintierezuechten !!!"
  700 print"wollen sie noch einmal fliegen (j/n)";
  710 getz$:ifz$=""then710
  720 print:ifz$="j"then30
  730 ifz$<>"n"then700
  740 end
  750 rem u.p. boden drucken
  760 foro=1to20:print"{down}";:nexto
  770 printb$;"{home}":return
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}biorhythm{down}
    2 print"copyright 1979, hanimex pty ltd.        all rights reserved
    3 rem version 1.0 #g1009
    4 forzz=1to1500:nextzz
   10 rem biorhythm 2.5
   20 print"{clr}";tab(11);"{rvon}biorhythm 1.0{rvof}{down}{down}":print"do you want instructions (y/n)?";
   30 pi=-2*~:r=7:d$="{home}"
   40 r$="{left}":t$="{CBM-A}":u$="{CBM-Z}":q$="{CBM-Q}":g$="{CBM-Q}"
   90 dimm%(13),m$(12)
  100 fori=1to13:readm%(i):next
  110 fori=1to12:readm$(i):next
  120 fori=1to23:d$=d$+"{down}":next
  130 fori=1to39:e$=e$+" ":r$=r$+"{rght}":next
  135 fori=1to39:e$=e$+"{left}":next
  140 fori=1to37
  150 t$=t$+"{CBM-R}":u$=u$+"{CBM-E}":g$=g$+"{SHIFT-+}"
  160 next
  165 t$=t$+"{CBM-S}":u$=u$+"{CBM-X}":g$=g$+"{CBM-W}"
  170 fori=1to18:q$=q$+" {SHIFT--}":next:q$=q$+" {CBM-W}"
  176 getww$:ifleft$(ww$,1)="y"then10000
  178 ifleft$(ww$,1)<>"n"then176
  200 print"{clr}{rvon}press return after each reply!":print
  202 print"input name please? ";:gosub 63000
  250 ww$=left$(ww$,18):n$=ww$
  260 ifn$=""thenn$="anonymous"
  290 print:print"{down}{down}{down}{rvon} please enter dates as 8 digit numbers "
  291 print"{rvon}in the format of ddmmyy                "
  292 print"{rvon} e.g. august 1, 1945 would be 01081945 ":print:print
  300 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                        "
  302 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  birthdate? ";:gosub63000
  304 iflen(ww$)<>8orval(ww$)<=0then300
  306 if (val(left$(ww$,2))>31)or(val(mid$(ww$,3,2))>12)then300
  308 if (val(left$(ww$,2))<=0)or(val(mid$(ww$,3,2))<=0)then300
  310 db=val(left$(ww$,2)):mb=val(mid$(ww$,3,2)):yb=val(right$(ww$,4))
  320 mb=int(mb):db=int(db):yb=int(yb)
  350 tb=int(db+365.25*yb+m%(mb)+.01*mb-.03)
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                        "
  402 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  start date? ";:gosub63000
  404 iflen(ww$)<>8orval(ww$)<=0then400
  406 if (val(left$(ww$,2))>31)or(val(mid$(ww$,3,2))>12)then400
  408 if (val(left$(ww$,2))<=0)or(val(mid$(ww$,3,2))<=0)then400
  410 da=val(left$(ww$,2)):ms=val(mid$(ww$,3,2)):ys=val(right$(ww$,4))
  420 ms=int(ms):da=int(da):ys=int(ys)
  450 ts=int(da+365.25*ys+m%(ms)+.01*ms-.03)
  500 tt=ts-tb
  510 ps=23*(tt/23-int(tt/23))
  520 es=28*(tt/28-int(tt/28))
  530 is=33*(tt/33-int(tt/33))
  900 gosub8000
 1000 fork=0to38
 1010 p=r+r*sin((ps+k)*pi/23)+.5
 1020 printleft$(d$,p+5);left$(r$,k+2);"A"
 1030 next
 2000 fork=0to38
 2010 e=r+r*sin((es+k)*pi/28)+.5
 2020 printleft$(d$,e+5);left$(r$,k+2);"S"
 2030 next
 3000 fork=0to38
 3010 i=r+r*sin((is+k)*pi/33)+.5
 3020 printleft$(d$,i+5);left$(r$,k+2);"*"
 3030 next
 3040 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}'space'-continue:'!'-exit:'n'-new input";
 5000 geta$:if (a$<>" ")and(a$<>"n")and(a$<>"!") then 5000
 5010 fori=1to150:getaa$:next
 5015 if a$="!" then 63998
 5020 ifa$="n"then200
 5050 ms=md:da=dd:ys=yd
 5080 goto450
 8000 print"{clr}"tab(10)"{rvon} b i o r h y t h m {rvof}"
 8010 print"{down}for {rvon}"n$"{rvof} born "m$(mb);db;"{left},";right$(str$(yb),4)
 8100 printt$
 8110 fori=1tor:printq$:next:printg$
 8120 fori=1tor:printq$:next:printu$
 8180 md=ms:dd=da:yd=ys
 8190 y=0:fori=0to38
 8195 y=y+1
 8200 ifi/2<>int(i/2)thenprint"{rght}";:goto8250
 8205 a$=right$(str$(dd),2)
 8210 ifdd<10thenprint"{down}"right$(a$,1)"{up}";:goto8220
 8215 printleft$(a$,1)"{down}{left}"right$(a$,1)"{up}";
 8220 ifdd>2then8250
 8230 ify<=32thenprint"{rvon}{left}"m$(md)yd"{left}{left}{left}{left}{left}{left}{left}{left}{rvof}";
 8250 dd=dd+1
 8255 ifdd<=(m%(md+1)-m%(md))then8290
 8265 ifmd<>2then8280
 8270 ifyd/4<>int(yd/4)then8280
 8275 ifdd<30then8290
 8280 dd=1:md=md+1:ifmd>12thenmd=1:yd=yd+1
 8290 next
 8500 print:print"{down}physical=A  emotional=S  intellectual=*"
 8600 c$="up    crit    dwn"
 8610 print"{home}{down}{down}{down}{down}{left}";
 8620 fori=1tolen(c$)
 8630 printmid$(c$,i,1)"{down}{left}";
 8640 next
 8800 return
 10000 print"{clr}"
 10010 print"{down}   {rvon}biorhythm{rvof} displays a physical,"
 10020 print"emotional, and intellectual pattern"
 10030 print"that indicates your up and down days"
 10040 print"for any period of time, in blocks of"
 10050 print"39 days.  {rvon}biorhythm{rvof} attempts to predict"
 10060 print"good or bad days in the future, and"
 10070 print"to tell good and bad days in the past."
 10080 print"{down}   these predictions are based on"
 10090 print"various studies to determine why"
 10100 print"accidents occur.  some people believe"
 10110 print"that physical attributes follow fixed"
 10120 print"periods. the periods & symbols, as they"
 10130 print"appear on the graph, are shown below:{down}{down}"
 10140 print"  A={rvon}physical{rvof} CCCCCCCC> {rvon}23{rvof} days"
 10150 print"  S={rvon}emotional{rvof} CCCCCCC> {rvon}28{rvof} days"
 10160 print"  *={rvon}intellectual{rvof} CCCC> {rvon}33{rvof} days"
 10170 print"{down}";tab(5);"(press any key to continue)";
 10180 get a$:if a$="" then 10180
 10185 forzz=1to150:geta$:next
 10190 print"{clr}   these cycles are sine wave cycles"
 10200 print"beginning at birth.  the critical days"
 10210 print"purportedly occur during transitions"
 10220 print"between 'up' days and 'down' days."
 10228 print"the biorhythm theory suggests"
 10230 print"that during the critical days you"
 10240 print"are more prone to errors, accidents,"
 10250 print"and physical setbacks.{down}"
 10260 print"   'critical' days are indicated when"
 10270 print"the sine wave passes through the center"
 10271 print"axis marked 'crit'.  'up' and 'down'"
 10272 print"days are marked 'up' and 'dwn' on the"
 10273 print"right side of the graph.{down}"
 10280 print"   when the appropriate prompt appears,"
 10290 print"type in your name, birthday, and"
 10300 print"desired starting date, each followed"
 10310 print"by the return key.  to see the next"
 10320 print"39 day block, press the space key"
 10330 print"{down}{down}";tab(5);"(press any key to continue)";
 10340 get a$:if a$="" then 10340
 10345 forzz=1to150:geta$:next
 10350 goto 200
 50000 data 0,31,59,90,120,151,181,212,243,273,304,334,365
 50010 data jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec
 63000 ww$="":rem general input 1.3
 63020 print"{CBM-+}{left}";:forvv=1to50:getqq$:ifqq$<>""thenvv=51:goto63100
 63040 next:print" {left}";:forvv=1to50:getqq$:ifqq$<>""thenvv=51:goto63100
 63050 next:goto63020
 63100 next:ifasc(qq$)=13thenprint" {left}";:return
 63110 ifasc(qq$)=20then63200
 63120 ifasc(qq$)=34thenqq$="'"
 63130 ifqq$<" "or"z"<qq$then63020
 63140 ww$=ww$+qq$:iflen(ww$)>254thenww$=""
 63160 print" {left}"qq$;:goto63020
 63200 iflen(ww$)<1then63000
 63210 iflen(ww$)=1thenprintqq$;:goto63000
 63220 ww$=left$(ww$,len(ww$)-1):printqq$;:goto63020
 63221 print"{clr}"
 63998 print"{clr}"
 63999 end:rem"end of biorhythm property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   10 rem biorhythmn 1.5
   20 print"{clr}";
   30 h=100.01:f=.001
   90 dimm%(12),m$(12)
  100 fori=1to12:readm%(i):next
  110 fori=1to12:readm$(i):next
  120 d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 r$="{left}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  150 pi=-2*~
  200 input"input name please";n$
  300 input"input birthday   mm,dd,yy ";mb,db,yb
  310 tb=0
  320 t1=yb/4
  330 ifmb<2then390
  340 fori=1tomb-1
  350 tb=tb+m%(i)
  360 next
  370 if(t1<>int(t1))and(mb>2)thentb=tb+1
  390 tb=tb+365*yb+int(t1)+db
  400 input"input start date mm,dd,yy ";ms,ds,ys
  410 ts=0
  420 t1=ys/4
  430 ifms<2then490
  440 fori=1toms-1
  450 ts=ts+m%(i)
  460 next
  470 if(t1<>int(t1))and(ms>2)thents=ts+1
  490 ts=ts+365*ys+int(t1)+ds
  500 tt=ts-tb
  510 ps=23*(tt/23-int(tt/23))
  520 es=28*(tt/28-int(tt/28))
  530 is=33*(tt/33-int(tt/33))
  900 gosub8000
 1000 fori=0to38
 1010 p=8+8*sin((ps+i)*pi/23)+.5
 1020 print"{home}"left$(r$,i+1);left$(d$,p+2);"W"
 1030 next
 2000 fori=1to38
 2010 e=8+8*sin((es+i)*pi/28)+.5
 2020 print"{home}"left$(r$,i+1);left$(d$,e+2);"Q"
 2030 next
 3000 fori=1to38
 3010 it=8+8*sin((is+i)*pi/33)+.5
 3020 print"{home}"left$(r$,i+1);left$(d$,it+2);"*"
 3030 next
 5000 geta$:ifa$=""then5000
 5010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                        {up}{up}{up}"
 5020 goto400
 8000 print"{clr}";
 8005 print"biorhythmn for {rvon}"n$"{rvof} born ";
 8007 printm$(mb);db;"{left},19";mid$(str$(yb/h+f),3,2)
 8010 print"{CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}"
 8020 fori=1to8
 8040 print"{CBM-Q} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {CBM-W}"
 8060 next
 8080 print"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
 8120 fori=1to8
 8140 print"{CBM-Q} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {CBM-W}"
 8160 next
 8170 print"{CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}"
 8180 md=ms:d1=ds:yd=ys
 8190 fori=0to38
 8200 ifi/2<>int(i/2)thenprint"{rght}";:goto8220
 8203 a$=str$(d1)
 8205 iflen(a$)<3thenb$=right$(a$,1):goto8210
 8207 b$=mid$(a$,2,1)+"{down}{left}"+right$(a$,1)+"{up}"
 8210 printb$;
 8212 c$="{rvof}{left}{left}{left}{left}{left}{left}{left}{up}"
 8215 if(d1=1)or(d1=2)thenprint"{left}{down}{rvon}"m$(md)" 19"mid$(str$(yd/h+f),3,2);c$;
 8220 d1=d1+1
 8230 ifd1<=m%(md)then8290
 8240 ifmd<>2then8280
 8250 ifyd/4<>int(yd/4)then8280
 8260 ifd1<30then8290
 8280 d1=1:md=md+1:ifmd>12thenmd=1:yd=yd+1
 8290 next
 8300 print"{down}{down}":print"physical=W  emotional=Q  intellectual=*";
 8400 c$="up     crit     dwn"
 8410 print"{home}{down}{down}{left}";
 8420 fori=1tolen(c$)
 8430 printmid$(c$,i,1)"{down}{left}";
 8440 next
 8500 return
 50000 data31,28,31,30,31,30,31,31,30,31,30,31
 50010 data"jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec"
    0 clr:poke59468,12
    1 rem bjack copyright (c) 1979 john melissa, jr.
    2 rem cursor #6, january, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 9 apr 80
   80 cr$=chr$(13)
   90 pg$="bjack":nm$="6":gosub62000
  100 dimx(13),y(13),d(52),b$(5),a$(14)
  110 fori=1to5:readb$(i):nexti
  115 data"Z","A","S","X"," "
  120 fori=1to14:reada$(i):nexti
  125 dataa,2,3,4,5,6,7,8,9,10,j,q,k,?
  130 cr$=chr$(13):bl$="                                       "
  150 pr$="how much in chips? ":in=500:gosub9600:b2=in
  160 b1=b1+b2
  170 ifb>0then240
  180 goto230
  200 rem
  210 forj=1to500:next:ifb1<.01then9000
  220 print"{home}{down}";spc(15);"enter bet for next hand.{home}";
  230 pr$="bet? ":in=b:gosub9600:b=in
  240 print"{clr}{up}bet ";b
  250 ifb<.25then9100
  260 ifb<=b1then300
  270 print"{clr}{down}you only have"b1
  280 print:print"get more chips!{down}"
  290 clr:goto100
  300 rem
  310 f1=0:f2=0
  320 forj=1to52
  330 letd(j)=1
  340 nextj
  400 x(13)=14
  410 y(13)=5
  500 rem
  505 gosub1000
  510 x(1)=c1
  515 y(1)=c2
  516 ifc1>10thenc1=10
  517 m=c1
  520 gosub1000
  530 x(7)=c1
  535 y(7)=c2
  536 ifc1>10thenc1=10
  537 n=c1
  540 gosub1000
  550 x(2)=c1
  560 y(2)=c2
  561 ifc1>10thenc1=10
  563 m=m+c1
  565 gosub1000
  570 x(8)=c1
  575 y(8)=c2
  576 ifc1>10thenc1=10
  577 n=n+c1
  580 print"CCCCCC"
  585 print"dealer"
  590 print
  600 j=7:p=1
  605 gosub2000
  610 j=13:p=2
  615 gosub2000
  640 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  670 print"CCCCCC"
  680 print"player"
  700 j=1:p=1:gosub2000
  720 j=2:p=2:gosub2000
  735 m1=0
  740 ifx(1)=1orx(2)=1thenm1=1
  750 n1=0
  755 gosub2200:f1=1
  760 ifx(7)=1orx(8)=1thenn1=1
  770 i9=0:f1=1
  775 rem
  780 ifx(7)=1thengosub8000
  790 ifn=11andn1=1then3000
  800 ifi9=0then810
  805 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}insurance loses $";b/2:b1=b1-b/2
  810 j=2
  815 ifm=11andm1=1then5500
  817 ifm>8andm<12thengosub7000
  820 ifm>20then5000
  830 ifm=11andm1=1then5000
  840 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  850 print"do you want a hit?           {left}{left}{left}{left}{left}{left}{left}{left}{left}";
  860 yn=1:gosub9500
  870 ifynthengosub4000:goto820
  880 goto5000
  890 goto840
  999 goto9000
 1000 c=int(rnd(1)*52+1)
 1010 ifd(c)<>1then1000
 1015 d(c)=0
 1020 c1=int(c/4)
 1030 c2=c-c1*4
 1032 c1=c1+1
 1035 ifc2<1thenc2=c2+4:c1=c1-1
 1099 return
 2000 rem
 2020 printtab(p*7-7);
 2030 print"U{SHIFT-*}{SHIFT-*}{SHIFT-*}I";
 2050 print"{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{left}{down}{SHIFT--}{left}{down}K{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}J{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}";
 2120 printa$(x(j));"{down}{left}";
 2125 ifx(j)=10thenprint"{left}";
 2130 printb$(y(j));
 2150 print"{rght}{down}{down}";b$(y(j));"{left}{down}";
 2155 iflen(a$(x(j)))>1thenprint"{left}";
 2160 printa$(x(j));"{up}{up}{up}{up}{up}";
 2190 iff1=0thenreturn
 2200 rem
 2210 m2=m
 2220 ifm1=1andm<12thenm2=m+10
 2230 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}=";m2
 2300 rem
 2310 iff2=0thenreturn
 2320 n2=n
 2330 ifn1=1andn<12thenn2=n+10
 2340 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght} =";n2
 2990 return
 3000 rem
 3010 print"{home}{down}{down}{down}"
 3020 p=2
 3030 j=8
 3040 gosub2000
 3042 ifi9=1then3100
 3045 ifm=11andm1=1then5600
 3050 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}has 21 -- you lose"
 3060 b1=b1-b
 3080 goto200
 3100 n=0:ifm=11andm1=1then5620
 3120 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}has 21 -- covered by insurance"
 3130 goto200
 4000 j=j+1
 4005 ifj>6then6000
 4010 gosub1000
 4015 ifc1>10thenc1=10
 4017 ifc1=1thenm1=1
 4020 m=m+c1
 4030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 4040 p=j
 4060 x(j)=c1
 4070 y(j)=c2
 4090 gosub2000
 4400 return
 5000 print"{home}{down}{down}{down}"
 5010 j=8:p=2:f2=1
 5020 gosub2000
 5030 ifm>21then5400
 5090 j=j+1
 5100 ifn>16then5600
 5110 ifn<12andn1=1andn+10>17then5600
 5120 gosub1000
 5130 x(j)=c1
 5140 y(j)=c2
 5150 ifc1>10thenc1=10
 5155 ifc1=1thenn1=1
 5160 n=n+c1
 5170 p=j-6
 5180 print"{home}{down}{down}{down}"
 5185 gosub2000
 5186 fori=1to400:next
 5190 goto5090
 5400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 5410 print"           ***** busted *****"
 5420 b1=b1-b
 5430 print"{down}chip balance is $"b1;
 5499 goto200
 5500 rem
 5510 print"{home}{down}{down}{down}"
 5520 j=8:p=2
 5530 gosub2000
 5550 b1=b1+b*1.5
 5560 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 5570 print"               blackjack!!"
 5580 print"{down}chip balance is $";b1;
 5590 goto200
 5600 ifm<12thenifm1=1thenm=m+10
 5610 ifn<12thenifn1=1thenn=n+10
 5620 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 5625 ifn>21thenn=0
 5630 ifm>nthen5700
 5640 ifm<nthen5800
 5650 print"            stand-off"
 5660 print"{down}chip balance remains at $";b1;
 5699 goto 200
 5700 b1=b1+b
 5720 print"you win, chip balance is $";b1
 5740 goto200
 5800 b1=b1-b
 5820 print"you lose, chip balance is $";b1
 5899 goto200
 6000 print"six cards less than 21 is a winner!"
 6020 b1=b1+b
 6040 goto200
 7000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 7010 print"{rvon}do you want to double?{rvof} ";
 7020 gosub9400:ifyn=0thenreturn
 7100 b=b*2
 7110 print"{home}bet ";b
 7120 gosub4000
 7130 goto5000
 8000 print"{home}{down}";spc(15);"{rvon}insurance?{rvof} ";
 8010 gosub9400:ifyntheni9=1
 8020 return
 9000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 9005 print"you are broke.                         "
 9006 print"        EEEEE                          "
 9010 print"would you like to play again? ";:gosub60000
 9020 ifleft$(in$,1)="n"then9100
 9037 b=0
 9040 print"{clr}":goto130
 9100 print"{clr}hope you enjoyed the game."
 9110 print"{down}goodbye."
 9120 end
 9400 yn=0
 9500 zc=2:zm=0
 9510 getz$:ifz$<>""then9550
 9520 ifti<zmthen9510
 9530 printmid$(" Q",zc,1);"{left}";:zc=3-zc
 9540 zm=ti+30:goto9510
 9550 ifz$<>"y"andz$<>"n"andz$<>cr$then9520
 9560 ifz$<>cr$thenyn=z$="y"
 9570 printmid$("yn",2+(yn<>0),1)
 9580 return
 9600 printbl$:print"{up}";
 9605 cr$="":printpr$;:gosub60000:ifin$=""thenprint"{left}";in:goto9640
 9610 print:forz=1tolen(in$):z$=mid$(in$,z,1)
 9620 ifz$<"0"orz$>"9"then9650
 9630 nextz:in=val(in$)
 9640 cr$=chr$(13):return
 9650 print"no ";z$;"'s please."
 9660 forz=1to2000:nextz
 9670 print"{up}";bl$:print"{up}{up}";
 9680 goto9600
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9); "cursor #6  bjack"
 62005 print"{down}copyright (c) 1979  by john melissa"
 62006 gosub 60500
 62010 print"{down}las vegas-style blackjack"
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 ifleft$(in$,1)<>"y"thenprint"{clr}";:return
 62040 lp=1:gosub60200
 62050 gosub 60500
 62120 print"first,{$a0}you must enter how many chips"
 62130 print"you want.{$a0}each hand, you will be asked
 62140 print"to make a bet.{$a0}bet zero to end the
 62150 print"game. if you wish to place the same bet
 62160 print"as the last hand, you may just press
 62170 print"{rvon}return{rvof} in response to{$a0}'bet?'. when the
 62180 print"circumstances arise, you will be asked
 62190 print"if you want to double down or to buy
 62200 print"insurance. the questions will be
 62210 print"printed in{$a0}{rvon}black on white{rvof}.
 62230 print"    you may not bet more than you have
 62240 print"in chips except to double{$a0}down. if you
 62250 print"try to do so,{$a0}you will be asked to buy
 62260 print"more chips.
 62270 print"{down}double: you double your bet and get one
 62280 print"    card only.
 62290 print"insurance: costs half your bet and pays
 62300 print"    two to one if dealer has blackjack.
 62305 gosub 60500
 62310 gosub 60200
    0 clr:printchr$(14)"{home}{home}""{clr}":poke59468,12:printchr$(142)
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}"spc(15)"blackjack":printspc(12)"copyright 1978"
    2 printspc(4)"commodore business machines inc":fori=1to1000:next
    3 rem part# 321009
    5 dim c%(51)
    6 w1$="{up}{up}{up}{up}{up}{up}{up}{up}{up}":w2$="{down}{down}{down}{down}{down}{down}{down}{down}{down}":w3$="{left}{left}{left}{left}{left}{left}{left}":w4$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}":w7$=w2$+"{down}{down}{down}"
    7 b$="":forz1=1to30:b$=b$+" ":next
    8 w8$="{rvon}       {rvof}":w9$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":yy$="you have":ff=1
   22 print"{clr}":yz$="ASXZa234567891jqk":gosub30:goto235
   30 w$="s h u f f l i n g":gosub50110:gosub51540
   35 fori=0to51:c%(i)=i:next
   40 fori=0to51
   41 r=51*rnd(1)+1
   42 te=c%(i):c%(i)=c%(r):c%(r)=te:next:r=0:e=1
   45 return
  100 print"{rvon}a{down}{left}"y$"{rght}{rght}{down} {left}{down}{down}"y$"{left}{down}{down} {rght}{rght}{down}"y$"{down}{left}a{rvof}";:return
  101 print"{rvon}2{down}{left}"y$"{rght}{rght}{down}"y$"{left}{down}{down}{down}{down}"y$"{rght}{rght}{down}"y$"{down}{left}2{rvof}";:return
  102 print"{rvon}3{down}{left}"y$"{rght}{rght}{down}"y$"{left}{down}{down}"y$"{left}{down}{down}"y$"{rght}{rght}{down}"y$"{down}{left}3{rvof}";:return
  103 gosub116:goto119
  104 gosub103:goto121
  105 gosub117:goto119
  106 gosub105:print"{rvon}{up}{up}{up}{up}{left}{left}{left}"y$;:return
  107 gosub118:goto119
  108 gosub107:goto121
  109 gosub118:print"{rvon}{down}{down}"w1$w3$"10{down}{rght}{down}"y$"{left}{down}{down}{down}{down}"y$"{rght}{rght}{down}{down}{left}10{rvof}";:return
  110 print"{down}{rvon}  {rvon}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{rght}{rght}"w3$"{down}{rght}G{CBM-N} {CBM-G}{rght}{rght}"w3$"{down}{rght}G{rvof}   {rght}{rght}{rght}"w3$"{down}{rvon}G{rvof}   {rvon}H{rght}";
  111 printw3$"{rvon}{down}{rght} {rvof}   {rvon}H{rght}"w3$"{down}{rght}{rght}{rvof}   {rvon}H{rght}"w3$"{rght}{rght}{CBM-M}{CBM-M}{CBM-G}H{rght}"w3$"{rvof}{down}{rght}{rght}{SHIFT-POUND} {CBM-*}{rvof}{rght}{rght}";:goto119
  112 print"{down}{rvon}  {rvon}{SHIFT-POUND}{CBM-T}T {rght}"w3$"{down}{rght}{rvof}{SHIFT-POUND}{rvon}B {CBM-J}{rght}{rght}"w3$"{down}{rght}{rvof}    {rvon}{CBM-F}{rght}{rght}"w3$"{rvof}{down}     ";
  113 print  w3$"{down}{rght}{rght}{rvon}{CBM-C}{rvof}    "w3$"{rvon}{down}{rght}{rght}{rght}{CBM-L} {SHIFT--}{SHIFT-POUND}"w3$"{rvof}{down}{rght}{rght}{rvon} Y{CBM-@}{rvof}{SHIFT-POUND}{rvof}{rght}{rght}";:goto119
  114 print"{down}{rvon}  {rvon}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{rght}{rght}"w3$"{down} {CBM-N} {rvof} {rght}{rght}"w3$"{down}{rght}{rvof}{SHIFT-POUND}   {CBM-C}{rght}"w3$"{down}{rvon} {rvof}     {rvon} ";
  115 printw3$"{down}{rght}{rvof}{CBM-F}{rvof}   {rvon}{SHIFT-POUND}"   w3$"{down}{rght}{rght}{rvof}   {rvon}H{rght}"w3$"{rght}{rght} {rvof} {rvon}{CBM-M}{CBM-G}{rght}"w3$"{rvof}{down}{rght}{rght}{SHIFT-POUND}  {CBM-*}{rght}{rght}";:goto119
  116 print"{rvon}{$a0}{down}{left} " y$"{rght}{rght}{rght}"y$"{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$  " {rvof}";:return
  117 gosub116:print"{rvon}{left}{left}{left}{left}{left}{left}{up}{up}{up}"y$"{rght}{rght}{rght}"y$"{down}{down}{down}{rght}{rvof}";:return
  118 gosub116:print"{rvon}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$"{down}{down}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$"{down}{down}{rght}{rvof}";:return
  119 ifx$="p"thenprintw1$"{rvon}{down}{down}"w3$n$"{left}{down}"y$w2$w4$"{left}{left}{up}{up}"n$"{up}{left}"y$"{left}{rvof}";:return
  120 ifx$="d"thenprintw1$"{rvon}{down}"w3$n$"{left}{down}"y$w2$w4$"{left}{left}{up}{up}"n$"{up}{left}"y$"{left}{rvof}";:return
  121 print"{rvon}{up}{up}{up}{left}{left}{left}"y$"{rght}{rght}{rght}{down}{down}{down}{down}{rvof}";:return
  130 ifz<>3thenreturn
  131 w$="you win":ift=tythenw$="you split"
  132 ift<tythenw$="dealer wins"
  133 gosub50100:w$="":return
  235 s$="":b=0:a=0:c=0:v=0:vv=0:x7=0:x8=0:z=0
 30000 print"{home}"spc(20)left$(b$,19)"{home}"spc(20)"your bet? ";:z9=6:gosub51530:z9=0
 30020 bj=0:x2=int(x1):ifx2<1then30000
 30101 ifx2>25000thenw$="house limit = $25000":gosub50100:goto30000
 30102 h=1:l7=x2:dd=x2:print"{clr}":gosub49121:print"{home}"spc(20)"bet $"x2
 30110 ifr>36thengosub30
 30900 x$="p":gosub52000
 31004 d2=x3:d2$=n$:d5$=y$:x=12:y=0
 31300 gosub53000:gosub50700
 31910 x$="d":gosub52200
 40100 h=0:x=0:y=0:gosub53000
 40200 d1=x3:d1$=n$:d3$=y$:h=1:y=y-1
 40210 x$="p":gosub52800
 40217 ifz=3thenp2=x8
 40218 d4=x3:d4$=n$:d6$=y$
 40224 t5$=str$(x8)
 40225 y=y+3:gosub53000:gosub50700
 40360 ifc>1orz>0thenreturn
 40370 y=y+6
 40380 x$="d":gosub52800:gosub53000:y=y-1:gosub50700
 40560 ifc>2thenreturn
 40566 y=y-5
 40570 ifx3=1thengosub59700
 40700 w$=yy$+str$(x8):gosub59800
 40710 ifx7=21orx8=21orx8>21then49000
 40720 ifc=5andx8<22then49000
 40723 ifc=2andd4=d2andz=0then57000
 40726 w$="do you want a hit?(y/n)":ifc<3thenw$=left$(w$,22)+"/d)"
 40730 gosub51500
 40910 ifj$="y"thengosub40210:goto40700
 40950 ifj$="n"then49000
 40956 ifj$="d"andc<3then59600
 40960 goto40720
 45000 cc=c:x$="d":x=0:y=0:gosub53000:x3=d1:n$=d1$:y$=d3$:gosub50700:y=y+6
 45001 ifz=3andvv=0andx8<21thenw$=yy$+str$(x8):gosub59800
 45002 ifz<3andx8<22thenw$=yy$+str$(x8):gosub59800
 45015 ifx7=21then45021
 45016 ifcc=2andx8=21andz<>3then45021
 45018 ifx7>16then45021
 45020 y=y+4:c=4:gosub40380:goto45015
 45021 ifz<>3then46000
 45022 ifp2=21andvv=0thenc=cc:goto58000
 45023 ifvvthengosub59500
 45024 ifp2>21thengosub57500
 45025 ifx7<22then45031
 45027 print"{home}{down}"w2$"{rvof}busted with"x7
 45028 ifvv=0andp2<21thent=t+dd
 45029 ifv=0andp1<21thent=t+x2
 45030 goto49004
 45031 ifv=0andp1<21andp1>x7thent=t+x2
 45032 ifp1<21andx7>p1andv=0thent=t-x2
 45033 ifp2<21andx7>p2andvv=0thent=t-dd
 45034 ifvv=0andp2<21andp2>x7thent=t+dd
 46000 goto49004
 49000 ifc=5andx8<22andz=3thenvv=9
 49001 ifc=5andx8<22andz<3thenv=8
 49002 ifz=2then49005
 49003 goto45000
 49004 ifz=3then49110
 49005 ifx8>21thengosub57500:goto49110
 49006 ifx7>21andv=0then59010
 49007 ifx8=21thengoto58000
 49009 ifx7=21thengoto58500
 49010 ifv=8thengosub59500:goto49110
 49011 ifz=2then57100
 49015 ifx8>x7then59010
 49020 ifx8=x7then59030
 49030 ifx8<x7then59050
 49110 ifz=2thengoto57100
 49116 ifx7<22thenprint"{home}{down}"w2$"{rvof}dealer has"x7
 49117 ifz=0thengosub50100
 49120 gosub130:gosub49121:goto235
 49121 ty=t:ift=0thenw$="broke even"
 49122 ift>0thenw$="winning $"+str$(t)
 49123 ift<0thenw$="losing $"+str$(abs(t))
 49125 w$=w$+left$(b$,20-len(w$)):ifff=0thenprint"{home}"w$
 49126 ifff=1thenff=0
 49127 return
 50100 ifbj=0andx8=21andx7<>21thenw$="you win"
 50105 w$=w$+"{rvof}"+b$:w$=left$(w$,32)
 50110 forz1=1to10:print"{home}"w7$"{up}{rvon}"w$"{home}"w7$"{up}{rvof}"w$:nextz1:return
 50700 onx3gosub100,101,102,103,104,105,106,107,108,109,110,112,114
 50740 return
 51500 print"{home}"w7$w4$"{up}"w$"   {left}{left}{left}";
 51530 gosub63000:x1=val(w$):j$=w$
 51540 print"{home}"w7$"{up}"b$"        ":return
 52000 rem
 52200 te=c%(r):x3=int(te/4)+1:y$=mid$(yz$,te-4*(x3-1)+1,1)
 52210 n$=mid$(yz$,x3+4,1):x9=x3
 52220 r=r+1
 52620 ifx3>9thenx9=10
 52625 ifx3=1thenx9=11
 52630 ifx$<>"p"then52650
 52635 x8=x8+x9:ifx3=1thena=a+1
 52640 ifa>0thenifx8>21thenx8=x8-10:a=a-1
 52645 return
 52650 x7=x7+x9
 52651 ifx3=1thenb=b+1
 52652 ifx8<22andx7=x8then52670
 52660 ifb>0andx7>21thenx7=x7-10:b=b-1
 52670 ifx8>21thenc=3
 52700 return
 52800 c=c+1
 52810 ifx$="d"thenx=0
 52820 ifx$="p"thenx=12
 52830 goto52200
 53000 print"{home}"
 53100 ifx$="p"thenx=12
 53120 ifx$="d"then x=0
 53130 ifx=0then53405
 53200 forz1=1tox:print"{down}";:next
 53405 ify=0then53701
 53500 forz1=1toy:print"{rght}";:next
 53701 ifx$="d"andc=2then53710
 53705 ify>0andc>0thenprint"{rvon}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}"w1$"{rght}";
 53710 forz1=1to9
 53805 ifh=0thenprintw9$"{down}{left}{left}{left}{left}{left}{left}{left}";
 53810 ifh=1thenprintw8$"{down}{left}{left}{left}{left}{left}{left}{left}";
 53910 next
 53920 ifh=1thenprintw1$;
 53930 return
 57000 w$="do you want to split?(y/n)":gosub51500
 57010 ifj$="n"thengoto40726
 57015 ifj$<>"y"then57000
 57020 ifd2=1thena=1
 57021 f=x8/2:ifd2=1thenf=11:x8=11
 57025 print"{home}"w2$"{down}{down}{down}":forz1=1to9:printb$:next:c=0
 57030 x$="p":x=13:y=0:gosub53000:x3=d2:n$=d2$:y$=d5$:gosub50700
 57040 x$="p":x=13:y=20:gosub53000:x3=d4:n$=d4$:y$=d6$:gosub50700
 57070 x8=f:c=1:y=-1:z=2:x=13:gosub40210:goto40700
 57100 ifv=0andx8<22thenw$=yy$+str$(x8):gosub59800
 57110 a=0:p1=x8:x8=f:c=2:ifd2=1thena=1
 57170 x$="p":x8=f:c=1:y=19:z=3:x=13:gosub40210:goto40700
 57500 ifz=3thent=t-dd
 57505 ifz<3thent=t-x2
 57510 w$="busted with"+t5$:gosub59800:f9=20:w$="dealer won":return
 58000 ifc>2then58100
 58003 ifz=0andx7=x8then59030
 58005 ifz=3thent=t+(1.5*dd)
 58015 ifz<3thent=t+(1.5*x2)
 58025 bj=1:w$="you win with {rvon}blackjack{rvof}":goto49110
 58100 ifz=0andx7=x8then59030
 58101 ifz=0andv=8thengosub59500:goto49110
 58102 ifz<3thent=t+x2
 58103 ifz=3thent=t+dd
 58105 w$=yy$+" 21":gosub59800:ifx7<>x8then49110
 58500 ifx7=x8then59030
 58502 ifc>2then58600
 58510 w$="dealer wins with {rvon}blackjack":t=t-x2:goto49110
 58600 ifz=0thenifx7=x8then59030
 58610 ifz=3thent=t-dd
 58620 ifz<3thent=t-x2
 58630 w$="dealer wins":goto49110
 59010 t=t+x2:w$="you win"
 59013 ifx7>21thenprint"{home}{down}"w2$"{rvof}busted with"x7:w$="you win"
 59029 goto49110
 59030 w$="this is a push"
 59037 ifc=2thenifx7=21thenw$="both have blackjack"
 59040 goto49110
 59050 t=t-x2:w$="dealer wins":goto 49110
 59500 ifz=3thent=t+dd
 59510 ifz<3thent=t+x2
 59520 w$="5 card charlie !":ifz>0then59800
 59530 return
 59600 ifz<3thenx2=x2*2
 59605 ifz=3thendd=dd*2
 59606 gosub40210:goto49000
 59700 w$="insurance?(y/n)":gosub51500
 59720 ifj$="n"thenreturn
 59722 ifj$="y"then59730
 59724 goto59700
 59730 w$="insurance bet $":z9=6:gosub51500:i=int(x1):ifi<1ori>25000then59730
 59750 z9=0:ifx7=21thent=t+2*i:return
 59760 w$="no blackjack lost your insurance":gosub50100:gosub51540
 59770 t=t-i:return
 59800 ifz<3thenprint"{home}{up}{rvof}"w7$w$"  ":return
 59810 ifz=3thenprint"{home}{up}{rvof}"w7$w4$w4$w4$"{left}"w$"  ":return
 59820 return
 63000 w$="":z1$="{CBM-+}":z2$=" "
 63020 printz1$"{left}";:z1=1
 63025 getj$:ifj$<>""then63100
 63030 z1=z1+1:ifz1<15then63025
 63040 z$=z1$:z1$=z2$:z2$=z$:goto63020
 63100 ifasc(j$)=13thenprint" {left}";:return
 63110 ifasc(j$)=20then63200
 63130 j=asc(j$)and127:ifj=34orj=19orj=17orj=29orj=69then63020
 63140 w$=w$+j$:print" {left}"j$;:iflen(w$)<z9then63020
 63150 iflen(w$)>=z9thenreturn
 63160 print" {left}"j$;:goto63020
 63200 iflen(w$)<1then63000
 63210 printj$;:iflen(w$)=1then63000
 63220 w$=left$(w$,len(w$)-1):goto63020
 63999 end:rem "end of blackjack property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    3 goto9500
    4 dk=1:bl=1000:dimd%(208),n$(13),v%(13),wl%(15):fori=1to39:bl$=bl$+" ":next
   12 data"X","Z","A","S":fori=1to4:reads$(i):next:dataa,2,3,4,5,6,7,8,9,10,j,q,k
   16 fori=1to13:readn$(i):next:d$=" on {rvon}double down{rvof}":f$="do you want to hit
   35 v%(1)=11:fori=2to13:v%(i)=i:ifi>10thenv%(i)=10:e=2500
   40 next:dataties,wins,loses,"{rvon}busts{rvof}":fori=1to4:readg$(i):next
   45 gosub4900:print"{clr}":poke59409,60:z$=" stays":x$=" with
   50 print"{clr}":fori=1to13:print:next
   53 print"how many players? (1 to 5): ";
   55 geta$:np=val(a$):ifnp<1ornp>5goto55
   85 t=np+1:printa$:goto405
  100 forcn=0to2step2:forp=1tot:gosub3000:ifp>npgoto130
  110 ifcnthencn%(p+5)=x:cs%(p+5)=k:goto130
  120 cn%(p)=x:cs%(p)=k
  130 next:next:ifxh=1goto3500
  140 ifcc%(t)=21goto300
  150 forp=1tonp:cn=4:ifcc%(p)<>21goto160
  157 w$="{rvon}you have blackjack!!":bf%(p)=1:br%(p)=br%(p)+int(b%(p)*1.5):goto280
  160 gosub3600:printf$cc%(p)"{left}?"
  165 geta$:ifa$<>""goto165
  170 geta$:ifa$="n"thenw$="{left}"+z$:goto280
  190 ifa$="d"andcn=4thengosub3700:goto280
  193 ifa$="s"goto3100
  195 ifa$<>"y"goto170
  200 gosub3000:ifcc%(p)<=21thencn=cn+2:goto160
  220 w$=g$(4)
  280 gosub3600:printw$;:ifdf%(p)thenprintd$;
  283 ifbf%(p)=0thenprintx$cc%(p):goto290
  285 ifp=npthenprint
  290 next:print:gosub3300
  300 p=t:cn=2:x=dh:y$=dh$:gosub2000
  310 ifcc%(p)<17thencn=cn+2:gosub3000:goto310
  320 l=16:v=1:gosub4020:print"{rvon}the dealer ";
  330 ifcc%(t)<22thenprintz$x$cc%(t):goto360
  340 printg$(4)x$cc%(t)
  360 d=cc%(t):forp=1tonp:ifsf%(p)goto3800
  362 gosub3600
  363 ifbf%(p)thenprint"wins with {rvon}blackjack{rvof}";:wl%(p)=wl%(p)+1:goto380
  370 o=cc%(p):gosub500:printg$(w);:ifdf%(p)and(o<>d)thenprint" {rvon}double{rvof}";
  375 printx$cc%(p);
  380 gosub1000:next:printbl$:gosub3300:ll=16:gosub4000
  390 forp=1tot:cc%(p)=0:ac%(p)=0:sf%(p)=0:bf%(p)=0:df%(p)=0:next:goto400
  400 ifcc>52*dk-25thenl=17:gosub4020:gosub5000
  405 h$="":ll=16:gosub4000:print"{up}{up}{up}{up}{up}{up}{up}{up}";:forp=1tonp:ifh$>""thena$=h$:goto450
  410 k=0:a$=" ":gosub3600:print"enter your bet and press {rvon}return{rvof} ";
  415 getb$:ifb$=""goto415
  416 if(b$="0"orb$=chr$(13))andk=0goto9000
  417 ifb$="c"goto50
  418 ifb$="z"goto2200
  419 ifb$="s"goto9100
  420 ifb$=chr$(20)andlen(a$)>1thenprint"{left} {left}";:a$=left$(a$,len(a$)-1):goto415
  425 ifb$=chr$(13)goto450
  427 ifb$="+"andlen(a$)>1thenh$=a$:print"{clr}":goto450
  430 iflen(a$)=4goto415
  440 ifb$<"0"orb$>"9"goto415
  445 printb$;:k=1:a$=a$+b$:goto415
  450 print:b%(p)=val(a$)
  465 next:print"{clr}":poke59468,12:goto100
  500 ifo<=21goto520
  510 w=4:br%(p)=br%(p)-b%(p):tb%(p)=tb%(p)+1:wl%(p+5)=wl%(p+5)+1
  515 goto595
  520 ifd<=21goto540
  530 w=2:br%(p)=br%(p)+b%(p):tb%(p+5)=tb%(p+5)+1:wl%(p)=wl%(p)+1
  535 goto595
  540 ifd>othenw=3:br%(p)=br%(p)-b%(p):wl%(p+5)=wl%(p+5)+1:goto595
  550 ifd<othenw=2:br%(p)=br%(p)+b%(p):wl%(p)=wl%(p)+1:goto595
  560 wl%(p+10)=wl%(p+10)+1:w=1
  595 return
 1000 printtab(28)"bank $"br%(p):return
 2000 a=(p-1)*6:print"{home}";:ifcnthenfori=1tocn:print:next
 2010 printtab(a)"{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":fori=1to6:printtab(a)"{rvon}     ":next
 2020 print"{home}":ifcnthenfori=1tocn:print:next
 2030 printtab(a)"{rvon}"n$(x);"{rvon}"y$:m=a:ifx=10thenm=m-1
 2050 print"{down}{down}":printtab(m+3)"{rvon}"y$;"{rvon}"n$(x):return
 2200 print"{up}"+bl$:print"{up}{rvon}resetting bank #"p"{left} to zero.":fori=1toe:next
 2210 br%(p)=0:print"{up}"+bl$:print"{up}";:goto410
 3000 poke59468,12:cc=cc+1:x=d%(cc):k=1
 3005 ifx<14goto3020
 3010 x=x-13:k=k+1:ifk=5thenk=1
 3015 goto3005
 3020 y$=s$(k):cc%(p)=cc%(p)+v%(x):ifx=1thenac%(p)=ac%(p)+1
 3030 ifcc%(p)>21andac%(p)>0thencc%(p)=cc%(p)-10:ac%(p)=ac%(p)-1
 3040 ifp>npandcn=2thengosub3400:goto3060
 3050 gosub2000
 3060 ifcnandp=tthendh=x:dh$=y$
 3065 ifcn=0andp>npthenxh=x
 3070 return
 3100 ifcn%(p)<>cn%(p+5)goto195
 3110 forj=0to5step5:print"{home}";:fori=1to16:printtab((p-1)*6)"     ":next
 3120 sf%(p)=1:x=cn%(p+j):y$=s$(cs%(p+j)):cn=0:gosub2000:cc%(p)=v%(cn%(p))
 3125 sb%(p,j)=b%(p):cn=2:goto3155
 3130 ifcn%(p)=1thenw$="stays":goto3168
 3135 cn=cn+2:gosub3600:printf$cc%(p)"{left}?"
 3137 geta$:ifa$<>""goto3137
 3140 geta$:ifa$="n"thenw$="stays":goto3168
 3145 ifa$="d"andcn=4thengosub3710:goto3168
 3150 ifa$<>"y"goto3140
 3155 gosub3000:ifcc%(p)<=21goto3130
 3160 w$=g$(4)
 3168 gosub3600:printw$;:ifdfthenprintd$;:ifj=0thenfa=1
 3171 ifdfandjthenfb=1
 3173 printx$cc%(p):fori=1toe:next:ifj=0thenb$=w$:b=cc%(p)
 3180 sh%(p,j)=cc%(p):df=0:ac%(p)=0:next:iffathenprint"{up}";
 3183 print"{up}";:sf%(p)=0:gosub3600:sf%(p)=1:printb$;
 3185 iffathenfa=0:print" {rvon}dd{rvof}";
 3190 printx$b"{left}-"w$;:iffbthenfb=0:print" {rvon}dd{rvof}";
 3195 printx$cc%(p):goto290
 3300 print"press {rvon}return{rvof} to continue:
 3310 geta$:ifa$<>""goto3310
 3320 geta$:ifa$<>chr$(13)thenr=rnd(1):goto3320
 3330 return
 3400 print"{home}{down}":fori=1to7:printtab(np*6)"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":next:return
 3500 ibf=0:forp=1tonp:l=9+p:gosub4020
 3510 printp"{left}{left}{left}#{rght} insurance bet? ";
 3520 geta$:ifa$=""goto3520
 3530 ifa$="n"goto3550
 3535 ifa$<>"y"goto3520
 3540 ib%(p)=int(b%(p)/2):ibf=1
 3550 printa$:next:ifibf=0goto3598
 3570 ll=10:gosub4000:l=10:forp=1tonp:ifib%(p)=0goto3595
 3575 ifcc%(t)=21thenw$="win":br%(p)=br%(p)+b%(p):ib%(p)=b%(p):r=11:goto3590
 3580 w$="lose":br%(p)=br%(p)-ib%(p):r=12
 3590 gosub4020:l=l+1:printtab(r)ib%(p):print"{up}"p"{left}{left}{left}#{rght} you "w$" $";:gosub1000
 3595 next:ifr=11goto300
 3597 fori=1to4000:next
 3598 ll=10:gosub4000:ifcc%(np+1)=21goto300
 3599 goto150
 3600 v=1:l=16+p:gosub4020:printp"{left}{left}{left}#{rght} ";:n$="1":ifjthenn$="2"
 3605 ifsf%(p)thenprint"{rvon}hand #"n$"{rvof} ";
 3610 return
 3700 b%(p)=2*b%(p):df%(p)=1:goto3720
 3710 sb%(p,j)=sb%(p,j)*2:df=1
 3720 gosub3000:ifcc%(p)>21thenw$=g$(4):goto3740
 3730 w$="stays"
 3740 return
 3800 sf%(p)=0:gosub3600:w$="":fori=0to5step5:o=sh%(p,i):b%(p)=sb%(p,i)
 3810 gosub500:w$=w$+g$(w)+" on"+str$(o)+"-":next:printw$"{left}  ";:goto380
 4000 forl=llto24:v=1:gosub4020:print:next:return
 4020 print"{home}";:fori=1tol:print:next
 4030 ifvthenprint"{up}"+bl$:v=0:print"{up}";
 4040 return
 4900 fori=1to52*dk:d%(i)=i:next:goto5005
 5000 print"{up}"+bl$:print"{up}{rvon}reshuffling the deck.
 5005 fori=52*dkto2step-1
 5015 r=int(rnd(1)*i+1):h=d%(i):d%(i)=d%(r):d%(r)=h:next:cc=0:return
 9000 print"{clr}player #"p:print"{down}out of"wl%(p)+wl%(p+5)+wl%(p+10)"hands played,
 9035 print"{down}you won"wl%(p)"{left}, lost"wl%(p+5)"{left}, and tied"wl%(p+10)"{left}.
 9040 print"{down}you have busted";:iftb%(p)=1thenprint" once.":goto9043
 9041 printtb%(p)"times.
 9043 print"{down}the dealer has busted";:iftb%(p+5)=1thenprint" once.":goto9050
 9045 printtb%(p+5)"times.
 9050 b$="even":ifbr%(p)thenb$="ahead
 9053 ifbr%(p)<0thenb$="down
 9055 print"{down}you are ";b$;:ifbr%(p)=0goto9070
 9060 print" $"+right$(str$(br%(p)),len(str$(br%(p)))-1);
 9070 print" for the day.{down}{down}":goto410
 9100 print"{up}"+bl$:print"{up}{rvon}how many decks; 1, 2, or 4?
 9120 geta$:a=val(a$):ifa<>1anda<>2anda<>4goto9120
 9130 print"{up}"+bl$:print"{rvon}{up}";:ifa=dkgoto9180
 9150 print"{rvon}changing to ";a$;" deck";:ifa>1thenprint"s";
 9170 print" and reshuffling.":goto9190
 9180 print"{rvon}reshuffling the deck.
 9190 dk=a:gosub4900:print"{up}"+bl$:print"{up}";:goto410
 9500 poke59468,12:print"{clr}{down}{down}{down}"tab(7)"casino blackjack 5.7{down}{down}
 9501 printtab(8)"copyright 1979 by{down}{down}{down}{down}
 9502 printtab(7)"cms software systems{down}{down}
 9503 printtab(8)"5115 menefee drive{down}{down}
 9504 printtab(9)"dallas, tx 75227":fori=1to6000:next
 9505 print"{clr}"tab(8)"** casino blackjack **":fori=1to40:print"{CBM-T}";:next:
 9506 print"1)standard las vegas blackjack rules
 9507 print"  are in effect.":print"{down}2){rvon}blackjack{rvof} pays 3 to 2.
 9508 print"{down}3){rvon}insurance bet{rvof}: if the dealer has an
 9509 print"  ace showing on the deal, you may bet
 9510 print"  1/2 of your original bet that the
 9511 print"  dealer has blackjack. this is a
 9512 print"  seperate side bet and pays 2 to 1.
 9513 print"{down}4){rvon}double down{rvof}: after the deal, you can
 9514 print"  double your bet and receive one more
 9515 print"  card by pressing {rvon}d{rvof}.
 9516 print"{down}5){rvon}split pairs{rvof}: after the deal, press {rvon}s
 9517 print"  to split pairs. split aces receive
 9518 print"  only 1 additional card on each hand.":print"{down}{down}  ";:gosub3300
 9519 print"{clr}"tab(8)"** casino blackjack **":fori=1to40:print"{CBM-T}";:next:
 9520 print"6)from{$a0}1 to 5 players may play at a
 9521 print"  time. bet {rvon}c{rvof} to change the number
 9522 print"  of players.":print"{down}7)bet {rvon}0{rvof} to see how a player is doing.
 9523 print"{down}8)bet {rvon}z{rvof} to reset a player's bank to
 9524 print"  zero.
 9525 print"{down}9)bet {rvon}s{rvof} to reshuffle the deck or to
 9526 print"  change the number of decks in play.
 9527 print"{down}10)press {rvon}+{rvof} after your bet to bet that
 9528 print"  amount on each hand. maximum bet
 9529 print"  is{$a0}$999.":print"{down}{down}  ";:gosub3300
 9530 poke59409,52:j=9500
 9531 iffre(0)>5000thenprint"{clr}":goto4
 9532 print"{clr}{down}{down}":fori=jtoj+8:printi:nexti
 9533 ifi=9536thenprint"goto4":goto9534
 9534 print"j="j+9":goto9532"
 9535 poke525,10:forn=0to9:poke527+n,13:next:print"{home}":end
   10 rem - blackjack - game
   20 print"{clr}"
   40 forz1=1to30:b$=b$+" ":next
  235 x$=" ":j$=" ":d$=" "
  300 z1=0:z2=0:x=0:x1=0:x3=0:x4=0:x7=0:x8=0:x9=0:y=0:v=0
  301 x=0:y=0: x7=0:x8=0:d1=0:d2=0:c =0
  302 a=0:b=0:c=0:d=0:d1=0:d2=0:d3=0
  310 w1$="{up}{up}{up}{up}{up}{up}{up}{up}{up}
  320 w2$="{down}{down}{down}{down}{down}{down}{down}{down}{down}
  330 w3$="{left}{left}{left}{left}{left}{left}{left}"
  340 w4$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  345 w7$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  380 w8$="{rvon}       {rvof}"
  390 w9$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 10000 print"{home}"w4$"{rght}{rght}{rght}         {rvon} b l a c k  j a c k {rvof}";
 30000 w$="setzen sie  'm' mischen "
 30010 ife=0thenw$="ihr einsatz ? (0=ende) "
 30012 gosub51000
 30015 ifx1=0thenifw$="m"thene=0:goto30010
 30017 ifx1=0thenend
 30020 ifx1<>int(x1)then30000
 30101 ifx1>500thenw$="{rvon}l i m i t = $500{rvof}":gosub50100:goto10000
 30102 ifx1<1then10000
 30103 print"{clr}{rght}geber             {rvon} b l a c k  j a c k {rvof}":h=1
 30104 iflen(c$)<26thene=0
 30105 ife>0then30400
 30110 c$="aA2A3A4A5A6A7A8A9A1AbAdAkA"
 30120 c$=c$+"aS2S3S4S5S6S7S8S9S1SbSdSkS"
 30130 c$=c$+"aZ2Z3Z4Z5Z6Z7Z8Z9Z1ZbZdZkZ"
 30140 c$=c$+"aX2X3X4X5X6X7X8X9X1XbXdXkX"
 30400 x2=x1
 30900 x$="p"
 31000 gosub52000
 31004 d2=x3:d2$=n$:d5$=y$:x=12:y=0
 31300 gosub53100:gosub50700
 31910 x$="d"
 40003 gosub52200
 40100 h=0:x=0:y=0:gosub53100
 40200 d1=x3:d1$=n$:d3$=y$:h=1:y=y-1
 40210 x$="p"
 40216 gosub52800
 40217 d4=x3:d4$=n$:d6$=y$
 40224 t5$=str$(x8)
 40225 y=y+3:gosub53100:gosub50700
 40360 ifc>2orz>0thenreturn
 40367 y=y+6
 40370 x$="d"
 40400 gosub52800:gosub53000:y=y-1
 40520 gosub50700
 40560 ifc>2thenreturn
 40566 y=y-5
 40570 ifx3=1thenifx8=21thengosub59700
 40700 ifx7=21orx8=21orx8>21then49000
 40720 ifc=5thenifx8<22then49000
 40723 ifc=2thenifd4=d2thenifz=0then57000
 40725 w$="sie haben"+t5$+" erhoehen?(y/n/d)"
 40726 ifc>2then w$="sie haben"+t5$+" erhoehen?(y/n)"
 40730 gosub51500
 40910 ifj$="y"thengosub40210
 40930 ifj$="y"then40700
 40950 ifj$="n"then49000
 40956 ifj$="d"thenifc<3then59600
 40960 goto40720
 45000 x$="d"
 45010 x=0:y=0:gosub53100:x3=d1:n$=d1$:y$=d3$:gosub50700
 45011 ifx8>21thenreturn
 45012 y=y+6
 45013 ifx8=21orv=8thenreturn
 45015 ifx7>x8thenreturn
 45016 ifb=0thenifx7>16thenreturn
 45017 ifb>0thenifx7>16thenifx7>=x8thenreturn
 45018 y=y+4:c=4
 45020 gosub40370:goto45015
 49000 ifc=5thenifx8<22thenv=8:ifz>0then49004
 49002 ifz=2thenifx8<>21then57100
 49003 ifz=3thenifx8<>21then57270
 49004 gosub45000:z=0
 49005 ifx7>21then59010
 49006 ifx8>21then57500
 49007 ifx7=21then58500
 49008 ifx8=21then58000
 49009 ifv=8then59500
 49010 ifx8>x7then59010
 49020 ifx8=x7then59030
 49030 ifx8<x7then59050
 49110 w6$="ihr gewinn $"+str$(abs(t))
 49112 ift<0thenw6$="ihr verlust $"+str$(abs(t))
 49113 ift=0thenw6$="   ausgleich"
 49114 forz1=1to40:print"{home}{down}{down}"w2$w$"!!":getx$:next:ifx$<>""then49114
 49115 print"{home}"w2$w2$w4$w4$"{down}{down}{down}{down}"w6$:goto235
 50100 rem for next
 50200 forz1=1to30
 50300 print"{home}"w7$"{up}"w$
 50310 print"{home}"w7$"{up}"b$b$
 50400 next:return
 50700 onx3gosub55100,55200,55300,55400,55500,55600,55700,55800,55900,56000
 50720 ifx3<11then50740
 50730 onx3-10gosub56100,56200,56300
 50740 return
 51000 rem input#
 51005 print"{home}"w7$"{up}"b$b$
 51100 print"{home}"w7$"{up}"w$"    {left}{left}{left}{left}";
 51200 gosub63000:x1=val(w$)
 51300 print"{home}"w7$"{up}"b$b$:return
 51500 rem input $
 51520 print"{home}"w7$w4$"{up}"w$"   {left}{left}{left}";
 51530 getj$:ifj$=""then51530
 51540 printw3$w3$w3$w3$w3$b$"       ";
 51550 return
 52000 ife>0then52200
 52010 e=1:w$="      m i s c h e n"
 52100 gosub50100
 52200 r=2*int(len(c$)*rnd(1)/2+1)-1
 52201 n$=mid$(c$,r,1):y$=mid$(c$,r+1,1)
 52202 ify$="a"orval(y$)<>0then52200
 52203 ify$="a"orval(y$)<>0then52200
 52206 remifz=0thenifc=2thenifx$="d"thenifn$<>"a"then52200
 52300 x3=val(n$)
 52310 ifn$="1"thenx3=10
 52400 ifn$="b"thenx3=11
 52410 ifn$="d"thenx3=12
 52420 ifn$="k"thenx3=13
 52430 ifn$="a"thenx3=1:ifx$="p"thena=a+1
 52431 ifx3<1then52200
 52432 ifr>1thent$=left$(c$,r-1):goto52435
 52433 t$=""
 52435 c$=t$+mid$(c$,r+2)
 52610 x9=x3
 52620 ifx3>9thenx9=10
 52625 ifx3=1thenx9=11
 52630 ifx$<>"p"then52650
 52635 x8=x8+x9
 52640 ifa>0thenifx8>21thenx8=x8-10:a=a-1
 52645 return
 52650 x7=x7+x9
 52651 ifn$="a"thenb=b+1
 52652 ifx8<22thenifx7=x8then52670
 52660 ifb>0thenifx7>21thenx7=x7-10:b=b-1
 52661 ifb>0thenifx7>16thenifx8<22thenifx7<x8thenx7=x7-10:b=b-1
 52670 ifx8>21thenc=2
 52700 return
 52800 rem next
 52801 c=c+1
 52810 ifx$="d"thenx=0
 52820 ifx$="p"thenx=12
 52830 gosub 52200:return
 53000 rem shape
 53100 print"{home}"
 53110 ifx$="p"thenx=12
 53120 ifx$="d"then x=0
 53130 ifx=0then53405
 53200 forz1=1tox:print"{down}";:nextz1
 53405 ify=0then53701
 53500 forz1=1toy:print"{rght}";:nextz1
 53701 ifx$="d"thenifc=2then53710
 53705 ify>0thenifc>0thenprint"{rvon}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}"w1$"{rght}";
 53710 forz1=1to9
 53805 ifh=0thenprintw9$"{down}{left}{left}{left}{left}{left}{left}{left}";
 53810 ifh=1thenprintw8$"{down}{left}{left}{left}{left}{left}{left}{left}";
 53910 nextz1
 53920 ifh=1thenprintw1$;
 53930 return
 55000 rem display card
 55100 print"{rvon}a{down}{left}"y$"{rght}{rght}{down} {left}{down}{down}"y$"{left}{down}{down} {rght}{rght}{down}"y$"{down}{left}a{rvof}";:return
 55200 print"{rvon}2{down}{left}"y$"{rght}{rght}{down}"y$"{left}{down}{down}{down}{down}"y$"{rght}{rght}{down}"y$"{down}{left}2{rvof}";:return
 55300 print"{rvon}3{down}{left}"y$"{rght}{rght}{down}"y$"{left}{down}{down}"y$"{left}{down}{down}"y$"{rght}{rght}{down}"y$"{down}{left}3{rvof}";:return
 55400 gosub56500:gosub56800:return
 55500 gosub56500:gosub56800:gosub56810:return
 55600 gosub56600:gosub56800:return
 55700 gosub56600:gosub56800:print"{rvon}{up}{up}{up}{up}{left}{left}{left}"y$"{rght}{rght}{rght}{down}{down}{down}{down}{down}{rvof}";:return
 55800 gosub56700:gosub56800:return
 55900 gosub56700:gosub56800:gosub56810:return
 56000 gosub56700:print"{rvon}{down}{down}"w1$w3$"10{down}{rght}{down}"y$"{left}{down}{down}{down}{down}"y$"{rght}{rght}{down}{down}{left}10{rvof}";:return
 56100 print"{down}{rvon}  {rvon}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{rght}{rght}"w3$"{down}{rght}G{CBM-N} {CBM-G}{rght}{rght}"w3$"{down}{rght}G{rvof}   {rght}{rght}{rght}"w3$"{down}{rvon}G{rvof}   {rvon}H{rght}";
 56103 printw3$"{rvon}{down}{rght} {rvof}   {rvon}H{rght}"w3$"{down}{rght}{rght}{rvof}   {rvon}H{rght}"w3$"{rght}{rght}{CBM-M}{CBM-M}{CBM-G}H{rght}"w3$"{rvof}{down}{rght}{rght}{SHIFT-POUND} {CBM-*}{rvof}{rght}{rght}";
 56105 gosub 56800:return
 56200 print"{down}{rvon}  {rvon}{SHIFT-POUND}{CBM-T}T {rght}"w3$"{down}{rght}{rvof}{SHIFT-POUND}{rvon}B {CBM-J}{rght}{rght}"w3$"{down}{rght}{rvof}    {rvon}{CBM-F}{rght}{rght}"w3$"{rvof}{down}     ";
 56203 print  w3$"{down}{rght}{rght}{rvon}{CBM-C}{rvof}    "w3$"{rvon}{down}{rght}{rght}{rght}{CBM-L} {SHIFT--}{SHIFT-POUND}"w3$"{rvof}{down}{rght}{rght}{rvon} Y{CBM-@}{rvof}{SHIFT-POUND}{rvof}{rght}{rght}";
 56220 gosub56800:return
 56300 print"{down}{rvon}  {rvon}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{rght}{rght}"w3$"{down} {CBM-N} {rvof} {rght}{rght}"w3$"{down}{rght}{rvof}{SHIFT-POUND}   {CBM-C}{rght}"w3$"{down}{rvon} {rvof}     {rvon} ";
 56303 printw3$"{down}{rght}{rvof}{CBM-F}{rvof}   {rvon}{SHIFT-POUND}"   w3$"{down}{rght}{rght}{rvof}   {rvon}H{rght}"w3$"{rght}{rght} {rvof} {rvon}{CBM-M}{CBM-G}{rght}"w3$"{rvof}{down}{rght}{rght}{SHIFT-POUND}  {CBM-*}{rght}{rght}";
 56305 gosub56800:return
 56500 rem 4 suits
 56510 print"{rvon}{$a0}{down}{left} " y$"{rght}{rght}{rght}"y$"{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$  " {rvof}";:return
 56600 rem 6
 56620 gosub56500:print"{rvon}{left}{left}{left}{left}{left}{left}{up}{up}{up}"y$"{rght}{rght}{rght}"y$"{down}{down}{down}{rght}{rvof}";:return
 56700 rem 8 suits
 56720 gosub56500:print"{rvon}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$"{down}{down}{left}{left}{left}{left}{left}"y$"{rght}{rght}{rght}"y$"{down}{down}{rght}{rvof}";:return
 56800 ifx$="p"thenprintw1$"{rvon}{down}{down}"w3$n$"{left}{down}"y$w2$w4$"{left}{left}{up}{up}"n$"{up}{left}"y$"{left}{rvof}";:return
 56805 ifx$="d"thenprintw1$"{rvon}{down}"w3$n$"{left}{down}"y$w2$w4$"{left}{left}{up}{up}"n$"{up}{left}"y$"{left}{rvof}";:return
 56810 print"{rvon}{up}{up}{up}{left}{left}{left}"y$"{rght}{rght}{rght}{down}{down}{down}{down}{rvof}";:return
 57000 rem split
 57005 w$="wollen sie teilen? (y/n)":gosub51500
 57010 ifj$="n"thenz=1:goto40725
 57015 ifj$<>"y"then57000
 57020 ifd2=1thena=1
 57021 f=x8/2:ifd2=1thenf=11:x8=11
 57025 print"{home}"w2$"{down}{down}{down}":forz1=1to9:printb$:nextz1:c=0
 57030 x$="p":x=13:y=0:gosub53100:x3=d2:n$=d2$:y$=d5$:gosub50700
 57040 x$="p":x=13:y=20:gosub53100:x3=d4:n$=d4$:y$=d6$:gosub50700
 57070 x8=f:c=1:y=-1:z=2:x=13:gosub40210:goto40700
 57100 p1=x8:x8=f:c=2:ifd2=1thena=1
 57170 x$="p":x8=f:c=1:y=19:z=3:x=13:gosub40210:goto40700
 57270 p2=x8:ifp2>21thenc=2
 57280 ifp1>21thenx8=p2:goto57300
 57290 ifp2>21thenx8=p1:goto57300
 57295 ifp1>=p2thenx8=p1
 57296 ifp2>p1thenx8=p2
 57300 goto49004
 57500 rem bust
 57525 t=t-x2:w$="sie verloren mit"+t5$:goto49110
 58000 rem p-bj
 58001 ifc>2then58100
 58002 ifx7=x8then59030
 58005 t=t+(1.5*x2):w$="sie haben blackjack":goto49110
 58100 rem p 21
 58101 ifx7=x8then59030
 58105 t=t+x2:w$="sie haben 21":goto49110
 58500 rem d bj
 58501 ifx7=x8then59030
 58502 ifc>2then58600
 58510 w$="geber hat blackjack":t=t-x2:goto49110
 58600 rem d 21
 58601 ifx7=x8then59030
 58610 t=t-x2:w$="geber hat 21":goto49110
 59010 rem you won
 59012 t5$=str$(x8):t=t+x2:w$="sie gewinnen mit"+t5$:goto49110
 59030 rem push
 59036 t5$=str$(x8):w$="gleichstand: beide"+t5$
 59037 ifc=2thenifx7=21thenw$="beide haben blackjack"
 59038 goto49110
 59050 rem dealer won
 59070 t6$=str$(x7):t=t-x2:w$="geber gewinnt mit"+t6$:goto 49110
 59500 rem 5 card
 59510 t=t+x2:w$="sie haben charlie (5 karten) mit"+t5$:goto49110
 59600 rem doubles
 59605 x2=x2*2
 59615 gosub40210:goto49000
 59700 rem insurance
 59710 w$="wollen sie eine versicherung?":gosub51500
 59720 ifj$="n"thenreturn
 59722 ifj$="y"theni=x2:goto59750
 59724 goto59710
 59750 ifx7=21thent=t+i/2:return
 59760 w$="kein blackjack verlust der versicherung":gosub50100
 59770 t=t-i:return
 63000 w$=""
 63020 print"{CBM-+}{left}";:forz1=1to50:getj$:ifj$<>""thenz1=51:goto63100
 63040 next:print" {left}";:forz1=1to50:getj$:ifj$<>""thenz1=51:goto63100
 63050 next:goto63020
 63100 next:ifasc(j$)=13thenprint" {left}";:return
 63110 ifasc(j$)=20then63200
 63120 ifasc(j$)=34thenj$="'"
 63140 w$=w$+j$:iflen(w$)>25thenw$=""
 63160 print" {left}"j$;:goto63020
 63200 iflen(w$)<1then63000
 63210 iflen(w$)=1thenprintj$;:goto63000
 63220 w$=left$(w$,len(w$)-1):printj$;:goto63020
    0 clr:poke59468,12
    1 rem blasto! by robert noteboom
    2 rem 958 chevrolet ave
    3 rem flint, mi 48504
    4 rem (313) 238-2946
    5 :
    6 rem cursor #28, nov 1981
    7 rem copyright(c)1981 the code works
    8 rem box 550, goleta, ca.  93017
    9 :
   10 rem as of 18 nov 1981
   90 pg$="blasto!":nm$="28":poke826,0:poke827,0:goto62000
  100 print"{clr}";:al=40:ls=1
  110 so=59464:pokeso,0:poke59467,16:poke59466,17:as=42:bu=46:bh=81:mn=35:wl=128
  120 gh=crt:bl=32
  130 y=255:w=crt+12*wd+30:dimc(9)
  140 c(6)=1:c(4)=2:c(2)=3:c(8)=4
  150 d(1)=107:d(2)=115:d(3)=114:d(4)=113
  160 dimvz(50):gosub610:ti$="000000"
  170 print"{home}{rvon} 00:00":gosub980:a=6:hs=peek(826)+256*peek(827)
  180 ifhs>0thenprint"{home}";tab(29)"{rvon}high:"hs
  190 goto210
  200 geta$:pokeqp,255:ifv<>0then470
  210 ifti>7200then910
  220 z$=ti$:print"{home}{rvon} ";mid$(z$,3,2);":";right$(z$,2)
  230 ifa$=""then200
  240 ifa$="q"then910
  250 ifa$=" "then380
  260 a=asc(a$)-48
  270 ifa=bthen320
  280 ifa<1ora>9or(aand1)then200
  290 b=a:t=1
  300 pokew,d(c(a))
  310 goto540
  320 pokew,bl:pokeso,y:pokeso,0
  330 onc(a)goto340,350,360,370
  340 ww=w+1:goto570
  350 ww=w-1:goto570
  360 ww=w+wd:goto570
  370 ww=w-wd:goto570
  380 onc(b)goto390,400,410,420
  390 z=1:goto430
  400 z=-1:goto430
  410 z=wd:goto430
  420 z=-wd:goto430
  430 v=w+z:ifpeek(v)>wlthenv=0:pokeso,0:goto200
  440 ifpeek(v)=blthenpokev,bu:ss=50:goto200
  450 ifpeek(v)=mnthenvv=v:i=0:j=0:gosub730:sc=sc+30:goto200
  460 vv=v:i=0:j=0:gosub830:goto200
  470 vv=v+z:h=peek(vv):ifh>wlthenpokev,bl:v=0:pokeso,0:goto230
  480 ifh=mnthengosub730:goto200
  490 ifh=blthenpokev,bl:pokevv,bu:ss=ss+2:pokeso,ss:v=vv:goto200
  500 pokev,bl:pokevv,as:fori=150to200step2:pokeso,i:next:pokevv,bl:v=0
  510 pokeso,0:gosub520:gosub980:goto200
  520 sc=sc+10:ss=0
  530 return
  540 ift<>1then200
  550 fori=1to100:next
  560 t=0:goto540
  570 ifpeek(ww)=blthen600
  580 ifpeek(ww)<>mnthen300
  590 w=ww:vv=w:i=0:j=0:pokew,d(c(a)):goto790
  600 w=ww:goto300
  610 fori=1to40:print"{rvon} {rvof}";:next
  620 fori=1to23:print"{rvon}{left}{down} {rvof}";:next
  630 fori=1to39:print"{rvon}{left} {rvof}{left}";:next
  640 fori=1to25:print"{rvon}{left} {up}{rvof}";:next
  650 fori=1to500:h=crt+int(rnd(1)*24)*wd+int(rnd(1)*40):ifpeek(h)=blthenpokeh,81
  660 next:pokeso,0
  670 fori=1to50
  680 h=crt+int(rnd(10)*24)*wd+rnd(1)*40:ifpeek(h)<>160thenpokeh,35:goto700
  690 goto680
  700 pokeso,250-5*i:next:pokeso,0:fori=1to5:pokew,235:pokeso,255
  710 forj=1to200:next:pokeso,0:pokew,107:pokeso,255
  720 forj=1to200:next:pokeso,0:next:return
  730 sc=sc+30:pokev,bl:i=0:j=0:gosub830
  740 fori=-lstols:forj=-wdtowdstepwd
  750 ifpeek(vv+i+j)>wlthen800
  760 ifpeek(vv+i+j)=mnthenvz(k)=vv+i+j:k=k+1:gosub830:nextj,i:goto810
  770 ifpeek(vv+i+j)=bhthengosub830:goto800
  780 ifpeek(vv+i+j)=blthen800
  790 gosub830:gosub830:gosub990:sc=sc-20:goto860
  800 nextj,i
  810 gosub980:ifk=0thenreturn
  820 sc=sc+30:k=k-1:vv=vz(k):goto740
  830 pokevv+i+j,as:forf=150to200step3:pokeso,f:next
  840 pokeso,0:pokevv+i+j,bl:v=0:gosub520:return
  860 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}another tank bites the dust...
  890 poke59466,54:fori=10to255step.5:pokeso,i:next
  900 pokeso,0
  910 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  920 printtab(14)"score:";sc:ifsc>hsthenhs=sc:gosub1000
  930 printtab(12)"{down}high score:";hs
  940 geta$:ifa$<>""then940
  950 printtab(5)"{down}{down}{down}{down}{down}do you want another game? ";
  960 gosub60000:ifleft$(in$,1)<>"n"thenclr:goto60300
  970 poke59467,0:poke59466,0:poke59464,0:end
  980 print"{home}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}score:"sc"":return
  990 poke59467,0:fori=1to50:poke59468,194:poke59468,12:next:poke59467,16:return
 1000 x1=int(sc/256):x2=sc-256*x1
 1010 poke826,x2:poke827,x1:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1981   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qp=515:qv=1:cr$=chr$(13):crt=32768
 60405 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60410 ifpeek(50000)=0thenreturn
 60420 qp=151:qv=2
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by robert noteboom
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}you have 2 minutes to destroy the mines!"
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin "
 62085 getin$:ifin$=""then62085
 62090 goto60300
    0 input"{clr}level 1-easy 2-hard 3-impossible";a$
   10 ifa$="1" thenbomb=500
   11 print"{home}{rvon} street bomber:{rvof}     bombs="bomb;"
   20 ifa$="2" thenbomb=300
   30 print"{clr}please wait":ifa$="3"thenbomb=200
   40 poke56334,peek(56334)and254:poke1,peek(1)and251
   45 forj=0to2039:poke12288+j,peek(53248+j)
   50 next:poke1,peek(1)or4:poke56334,peek(56334)or1
   55 forg=12288to12295:readj:pokeg,j:next
   60 data0,128,192,252,170,127,44,0
   70 poke53272,28
   90 fort=1to300:next:poke54273,17
  100 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
  101 print"                                  {SHIFT--}"
  102 print"N{CBM-T}M                               {CBM-E}"
  103 print"{CBM-+}{CBM-+}{CBM-+}                              NVM"
  104 print"{CBM-+}{CBM-POUND}{CBM-+}                 N{CBM-T}M         {CBM-M}==={CBM-G}"
  105 print"{CBM-+}{CBM-POUND}{CBM-+}                 {CBM-+}{CBM-+}{CBM-+}         {CBM-M}VVV{CBM-G}"
  106 print"{CBM-+}{CBM-POUND}{CBM-+}   N{CBM-T}{CBM-T}M          {CBM-+}{SHIFT-+}{CBM-+}         {CBM-M}VVV{CBM-G}"
  107 print"{CBM-+}{CBM-POUND}{CBM-+}  h{CBM-+}{CBM-+}{CBM-+}{CBM-+}          {CBM-+}{CBM-+}{CBM-+} N{CBM-T}{CBM-T}M    {CBM-M}==={CBM-G}"
  108 print"{CBM-+}{CBM-POUND}{CBM-+}  o{CBM-+}{CBM-+}{CBM-+}{CBM-+}  N{CBM-T}{CBM-T}{CBM-T}M   {CBM-+}{SHIFT-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}    NVVVM"
  109 print"{CBM-+}{CBM-POUND}{CBM-+}  t{CBM--}{CBM--}{CBM--}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+} {CBM-+}UI{CBM-+}   {CBM-M}====={CBM-G}"
  110 print"{CBM-+}{CBM-POUND}{CBM-+}  e{CBM--}{CBM--}{CBM--}{CBM-+}  {CBM-+}{SHIFT-+}{CBM-+}{SHIFT-+}{CBM-+}   {CBM-+}{SHIFT-+}{CBM-+} {CBM-+}B{SHIFT--}{CBM-+}   NVUCIVM"
  111 print"{CBM-+}{CBM-POUND}{CBM-+}  l{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+} {CBM-+}B{SHIFT--}{CBM-+}   {CBM-G}VB {SHIFT--}V{CBM-M}{home}"
  113 print"{home}{rvon} street bomber:{rvof}    bombs="bomb;"
  114 fora=32848to33767:pokea,0:pokea-1,32
  115 ifpeek(a+1)<>32then2000
  116 geta$:ifa$<>" "then118
  117 ifbomb>0thengoto120
  118 print"{home}"tab(32)bomb:ifa=33766then3000
  119 nexta
  120 bomb=bomb-1:pokea,0:forp=a+40toa+1000step40:ifp>33728thengoto150
  121 pokep,81:pokep-40,32:pokea,0
  122 ifpeek(p+40)<>32thenpokep+40,32:gosub1000:goto150
  123 nextp
  150 pokep-40,32:pokep,32:goto118
 1000 pokep,42:poke54296,15
 1001 fori=0to0:poke54277,9:poke54276,129
 1002 forg=1to100:nextg:poke54273,6:poke54272,206
 1003 poke54276,0:nexti:return
 2000 pokea,42:poke54296,15
 2001 fori=0to0:poke54277,15:poke54276,129
 2002 forg=1to2000:nextg:poke54273,6:poke54272,206
 2003 poke54276,0:nexti:print"{clr}unlucky":t=1:forg=1to1000:next:bomb=400:goto70
 3000 forg=1to1:poke54277,15:poke54276,33:fori=30to100step2:poke54273,i:nexti
 3001 poke 54276,0:nextg:print"well done":forg=1to1000:next:goto7
    0 rem copy me!, i want to travel!!!!!!!
    1 ifst<>0andst<>64thenprint"{clr}load error.":print"st=";st:print"reset by -> {rvon}poke 150,0{rvof}":end
    2 :
    3 rem
    4 rem *******************************
    5 rem * blockade special selection! *
    6 rem *           -----             *
    7 rem * for use on 2001/4000 pet's! *
    8 rem * can be modified for oldies! *
    9 rem * made by gil winkler @1981!! *
   10 rem*           -----             *
   11 rem* blockade special selection! *
   12 rem*******************************
   14 rem
   17 :
   18 poke826,96:gosub40000
   20 fori=826to875:readvc:pokei,vc:nexti
   21 clr:ti$="000000"
   22 print"{clr}do you want instructions? (y/n)":poke158,0
   23 geta$:ifa$=""then23
   24 ifa$="y"then63500
   25 ifa$="n"then40
   26 goto22
   27 :
   40 dima(15),s$(15),vt(15)
   41 v=int(rnd(1)*255)+1:r=1:sc=0:poke158,0
   42 ifv=96orv=32then41
   43 input"{clr}difficulty factor? (1-9)   *{left}{left}{left}";t$:ift$>"9"then43
   44 sh=0:t=val(t$):ift<1ort>9then43
   45 t=abs(t-10):x=t*10
   46 ift=9thenx=200
   49 ift=1ort=0thenx=0
   50 s=32768+500
   51 print"{clr}do you want an invisible trail? (y/n)"
   52 geta$:ifa$=""then52
   53 ifa$="y"thenv=96:goto100
   54 ifa$="n"then100
   55 goto51
  100 print"{clr}";:fori=1to25
  101 ifsh>1thensh=0:x=x-10:goto45000
  110 poke32767+(i*40),97
  120 poke32767+(i*40)+1,225
  130 next
  140 fori=1to40
  150 poke32767+i,98
  160 poke32767+960+i,226
  170 next
  171 g=int(rnd(1)*10):print"{home}{down}{down}"
  173 fori=1tog:a=int(rnd(1)*36)+2
  174 printtab(a)"A"
  175 c=int(rnd(1)*5):ifc>3thenprinttab(a)"S"
  176 next
  179 print"{home}";tab(17)"score=-------"
  180 ti$="000000":poke158,0
  185 a$="4":goto310
  300 geta$:ifa$=""thengosub20000:forg=1tox:nextg:a$=" "
  310 d=val(a$):ifd=5then300
  400 on d gosub 1000,2000,3000,4000,5000,6000,7000,8000,9000
  500 pokes,v:q=peek(s+a)
  600 if q=98 or q=226 or q=97 or q=225 then710
  620 ifq=v and d<>5 then 10000
  700 s=s+a:pokes,81
  710 :
  711 ifq=65 thensc=sc+100:q=32
  712 ifq=83 theny=int(rnd(1)*500):sc=sc+y:q=32
  715 ifq<>32 then30000
  720 goto300
 1000 a=39:return
 2000 a=40:return
 3000 a=41:return
 4000 a=-1:return
 5000 a=0:return
 6000 a=1:return
 7000 a=-41:return
 8000 a=-40:return
 9000 a=-39:return
 10000 sc=sc+val(ti$)
 15000 fori=1to15:ve=i:ifsc>a(i)then50000
 15001 next
 15010 fori=1to1000:next
 15020 print"{clr}you lost!!":print"{down}{down}{down}score was";sc
 15050 forv=1to3000:next:goto41
 20000 print"{home}";ti$
 20005 r$=mid$(ti$,6,1):zx=val(r$):sc=sc+zx
 20007 print"{home}";tab(27)sc
 20010 ifti$="000050"orti$="000051"thengosub63000
 20015 ifti$>"000100"thengosub62000
 20016 ifti$>"000150"thenti$="000000":sh=sh+1:goto100
 20020 return
 30000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15)"zzzzaapppp!!!":forg=1to100:sys826:next:goto10000
 40000 t$="{rvon}#":s$="{rvon}#":print"{clr}";
 40010 fori=1to39:printt$;:next:print"{left}"
 40020 fori=1to22:printt$; spc(37)s$:next:print"{left}"
 40030 fori=1to39:printt$;:next:print"{left}"
 40040 print"{home}{down}";
 40050 fori=1to22:print"{rvon}#                                     ":next
 40060 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(12)"blockade special!"
 40070 forg=1to12:printtab(20)" ":next
 40080 printtab(10)"by gil winkler  @1981"
 40092 foras=1to5000:nextas
 40093 return
 45000 foruv=1to1000:nextuv
 45010 forgr=1to100:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(16)"bonus!!":nextgr:forqs=1to50:sys826:nextqs
 45020 forrd=1to1000:nextrd:print"{clr}";
 45030 print"{down}{down}{down}{down}{down}{down}press any key as soon as the"
 45040 print"number reaches 500!!"
 45045 print"{down}you have a 25 second margin!"
 45050 forzn=1to1500:nextzn
 45060 ti$="000000"
 45070 getre$:ifre$=""then45100
 45071 ao=ti
 45072 ifao<525andao>475thensc=sc+500:print"{clr}500 bonus points!":forzn=1to2500:nextzn:goto100
 45073 print"{clr}sorry, lose 500 points!!":sc=sc-500:forzn=1to2500:nextzn:goto100
 45100 print"{home}";ti:ifti>1000then45073
 45110 goto45070
 49997 :
 50000 forw=1to2000:next:poke158,0:mb$=""
 50001 print"{clr}great show!!!":print"{down}{down}{down}{down}{down}{down}enter your name ---{down}";:gd=20:mb$=""
 50002 getsa$:ifsa$=""then50012
 50003 f=asc(sa$):ifsa$=chr$(13)orsa$=chr$(141)thens$(ve)=mb$:goto50122
 50004 iflen(mb$)<12andf<>145andf<>17andf<>29andf<>157thenprint"{up}";tab(gd)sa$:mb$=mb$+sa$
 50005 gd=gd+1:ifgd>32thengd=32
 50006 iflen(sa$)=1thenifasc(sa$)=148orasc(sa$)=20then50001
 50007 sa$="":iflen(mb$)>12then50012
 50012 cs$="{CBM-+}":vq$=" "
 50013 print"{up}";tab(gd)cs$
 50015 print"{up}";tab(gd)vq$:goto50002
 50119 :
 50122 ifs$(ve)=" "ors$(ve)=""ors$(ve)="  "ors$(ve)="   "thens$(ve)="*"
 50123 ifs$(ve)="clear stack"then run 20
 50130 a(ve)=sc:vt(ve)=abs((-t)+10)
 50131 fori=1to15:ifsc>a(i)thenprint"{down}your rank is";i-1;"out of 15.":forp=1to3000:nextp
 50132 ifsc>a(i)then50140
 50133 next
 50134 print"{down}your rank is 16{rvon}th{rvof} out of 15":forv=1to3000:next
 50140 print"{clr}   {rvon}score{rvof}        scorer     dif-factor      {down}{down}{down}"
 50150 fori=1to15:print"  ";a(i),tab(16) s$(i);tab(30)vt(i):nexti
 50160 fors=1to5000:nexts:goto41
 62000 vq=int(rnd(1)*10):ifvq<8thenreturn
 62020 aw=int(rnd(1)*960)+41
 62030 ifaw>959 then62020
 62040 poke32768+aw,102
 62050 return
 63000 print"{home}{down}{down}{down}":sb=int(rnd(1)*34)
 63010 fori=1tosb:printtab(sb+1)"{CBM-+}";:next:return
 63030 :
 63100 data169,52,141,17,232,169,131,133
 63110 data252,169,151,133,251,160,0,177
 63120 data251,73,128,145,251,56,165,251
 63130 data233,1,133,251,176,241,198,252
 63140 data165,252,201,127,208,233,169
 63150 data60,141,17,232,96,0,0,0,0,0,0
 63160 end
 63170 :
 63500 print"{clr}";tab(11)"{rvon}blockade special!{rvof}"
 63510 fort=1to1500:nextt:print"{down}{down}{down}by gil winkler{down}{down}{down}"
 63520 print"in the game of blockade, you are in"
 63530 print"a {rvon}maximum security{rvof} prison.{down}"
 63540 print"you have just escaped and are running"
 63550 print"frantically, trying to flee"
 63560 print"before you are captured by a robot"
 63570 print"or, you bump into an {rvon}electronic fence{rvof}!"
 63580 print"{down}{down}{down}{down}{down}{down}press any key to continue":poke158,0
 63590 getvs$:ifvs$=""then63590
 63600 print"{clr}on your way out there are a random"
 63610 print"number of food and supply bags lying"
 63620 print"around in various {rvon}unprotected{rvof} parts"
 63630 print"of the prison. these bags are"
 63640 print"recognized by either a 'A' or a 'S'."
 63650 print"the 'A''s are worth 100 points each,"
 63660 print"while the 'S''s are worth anywhere"
 63670 print"from 0 to 500 points each."
 63680 print"{down}the longer you stay alive, the more"
 63690 print"points you make."
 63700 print"{down}after 60 seconds of play, the robots"
 63710 print"will try to block your path.  you have"
 63720 print"to dodge the blocks they set out"
 63730 print"or else you will be electrocuted."
 63740 print"{down}{down}{down}{down}{down}press any key to continue":poke158,0
 63750 getvs$:ifvs$=""then63750
 63760 print"{clr}if you succeed in dodging all the"
 63770 print"robots, you will then proceed into"
 63780 print"a bonus round.  after the bonus round,"
 63790 print"you will then start back in the prison."
 63800 print"{down}this time however, it will be more"
 63810 print"difficult to escape."
 63820 print"{down}you're direction is controlled by the"
 63830 print"number keys...."
 63850 print"{down}1 is to the left & down"
 63860 print"2 is down"
 63870 print"3 is to the left & right"
 63880 print"4 is to the left"
 63890 print"5 will do nothing"
 63900 print"6 is to the right"
 63910 print"7 is to the left & up"
 63920 print"8 is up"
 63930 print"9 is to the right & up"
 63940 print"{down}press any key to continue":poke158,0
 63950 getvs$:ifvs$=""then63950
 63951 print"{clr}if you hit your trail or you hit"
 63952 print"the electronic fence (borders), or"
 63953 print"you bump into a robot, {rvon}game over!{rvof}"
 63955 print"{down}{down}press any key to continue":poke158,0
 63956 getvs$:ifvs$=""then63956
 63960 print"{clr}";
 63970 print"{home}press any key to start"
 63975 forgf=1to1:nextgf
 63980 print"{home}{rvon}press any key to start{rvof}"
 63990 getvs$:ifvs$=""then63970
 63991 goto40
 63999 end
 2008 sys1040
   10 bp=32768:zl=40:zz=25
   20 hl=int(zl/2):hp=int(zz/2):printchr$(147)
   40 for i=1to 150
   50 x=int(rnd(1)*(hl+2)):y=int(rnd(1)*(hp+2))
   80 x=int(rnd(1)*x):y=int(rnd(1)*y)
  100 pokebp+y*zl+zl+x,160
  110 pokebp+y*zl+zl+(zl-x-1),160
  120 pokebp+(2*hp-y)*zl+x,160
  130 pokebp+(2*hp-y)*zl+(zl-x-1),160
  140 nexti
  150 w$="blotch"
  160 for x=1tolen(w$)
  170 pokebp+hp*zl+hl-1+x-len(w$)/2,asc(mid$(w$,x,1))+64
  180 nextx
  190 fori=1to5000:next i
  200 run
   10 bp=32768:zl=80:zz=25
   20 hl=int(zl/2):hp=int(zz/2):printchr$(147)
   40 for i=1to 150
   50 x=int(rnd(1)*(hl+2)):y=int(rnd(1)*(hp+2))
   80 x=int(rnd(1)*x):y=int(rnd(1)*y)
  100 pokebp+y*zl+zl+x,160
  110 pokebp+y*zl+zl+(zl-x-1),160
  120 pokebp+(2*hp-y)*zl+x,160
  130 pokebp+(2*hp-y)*zl+(zl-x-1),160
  140 nexti
  150 w$="blotch"
  160 for x=1tolen(w$)
  170 pokebp+hp*zl+hl-1+x-len(w$)/2,asc(mid$(w$,x,1))+64
  180 nextx
  190 fori=1to5000:next i
  200 run
   90 print"{clr}"
  100 poke59468,14
  110 gosub30000:gosub10000
  200 printpl$;:px=px+k1:x=x+k1
  210 poke59468,12
  240 ifx>ccthenb=k1
  300 p=peek(px+k1):ifp<>k3then55000
  320 k=peek(151):ifbthenk=kp
  330 ifk=45ork=9ork=xxtheniffb=k0thengosub1000:r1=k1:goto500
  340 ifk=48ork=10theniffc=k0thengosub6000:r1=k1:goto500
  350 ifk=33ork=80thengosub7000:r1=k1:goto500
  360 ifk=90ork=32thengosub8000:goto500
  380 ifk=61ork=1thengosub6700:r1=k1
  500 iffbthengosub1500
  510 iffcthengosub6500
  600 iffqthengosub900
  650 iffq=k0theniffc=k0thenifint(mf*rnd(ti))=k1thengosub5000
  700 iffqthenifml<pxthenifml<j1-knthengosub5600:fq=k0
  705 ifr1thengosub9000
  710 goto200
  900 rem ms
  905 ifpeek(ml)<>kzthenfq=k0:gosub5600:return
  910 pokeml,k3:ml=ml-k2:ifml>px-jgthenifml<px+k1thenex=ex+k1:fq=k0:gosub5600:gosub5600
  920 ifex>lythenb=k1
  925 ifml<j7thenfq=k0:return
  930 pokeml,kz:return
 1000 rem b
 1005 w4=w4+k1:fb=k1:yy=k0:pn=xx*rnd(ti)+jk:b1=px+k6:return
 1500 pokeb1,k3:b1=b1+k6:b2=peek(b1):ifb2=k3thenpokeb1,j6:return
 1530 ifb2=k9thenfb=k0:return
 1540 yy=yy+k1:ifyy>pnthenfb=k0:return
 1550 pokej9,kn:pokeb1,k3:pokeb1-k2,k3:pokej9,k0:return
 5000 rem m
 5110 rm=int(xx*rnd(ti)):ml=mt(rm)
 5120 ifpeek(ml+k2)=k3thenreturn
 5150 fq=k1:fora=255tok2step-j3:pokej9,a:next:pokej9,k0:pokeml,kz:return
 5600 rem mh
 5650 fora=k0tojk:pokeml-k1+a*k2,k4:pokeml+a*k2,k4:pokeml+k1+a*k2,k4
 5655 pokej9,a*k9+k2:next
 5670 fora=k0tojk:pokeml-k1+a*k2,k3:pokeml+a*k2,k3:pokeml+k1+a*k2,k3
 5675 pokej9,a*k9+k2:next:pokej9,k0:return
 6000 rem cb
 6010 ifl5=w5thenreturn
 6020 l5=l5+k1:fc=k1:yu=k0
 6025 pt=jk*rnd(ti)+k1:c1=px+k6:return
 6500 fora=k0tojk:c2=peek(c1+a):ifc2=k9orc2=jrthenfc=k0:return
 6510 ifc2<>k3thenyu=yu+j8:pokec1+a,k4
 6514 next:fora=k0tojk:c2=peek(c1+a):ifc2=k4thenpokec1+a,k3
 6518 next:ifyu>ptthenfc=k0
 6600 c1=c1+k6:return
 6700 rem fg
 6720 ifl3=w3thenreturn
 6730 l3=l3+k1:fora=px+k1topx+17step3
 6740 pokej9,(a-px)*j3+70
 6750 ifpeek(a)<>k9thenpokea,k7
 6760 next:pokej9,k0:fora=px+1topx+17
 6770 ifpeek(a)<>k9thenpokea,k3
 6780 next:return
 7000 a=peek(se)*j3+xx:pokej9,a
 7010 ifpx>32813thenprint"{left}{left}{left}{left}    {up}"pl$;:px=px-39
 7020 pokej9,k0:x=x+j0:return
 8000 a=peek(se)*j3+xx:pokej9,a
 8010 ifpx<33607thenprint"{left}{left}{left}{left}    {down}"pl$;:px=px+41
 8020 pokej9,k0:return
 9000 rem le
 9010 pokej2,w5-l5+kx:pokej4,w3-l3+kx:r1=k0
 9050 c$="  "+str$(cc-x):c$=right$(c$,jg)
 9070 fora=k1tojg:vv=val(mid$(c$,a,k1)):pokej5+a,vv+kx:next:return
 10000 rem i
 10010 gosub58000:ifpeek(50000)=0thenpoke537,136:z$="'[' and ']'":goto10040
 10015 d7=166:se=216:iu=80:kp=32:poke144,49:z$="'!' and 'z'"
 10040 print"{clr}{down}        {rvon}BOMBERANGRIFF{rvof}
 10042 print"{down}ZIEL{$a0}IST{$a0}ES{$a0}MIT{$a0}DEM{$a0}FLUGZEUG{$a0}ZU{$a0}LANDEN,
 10043 print"DAZU{$a0}MUESSEN{$a0}ZUERST{$a0}ABER{$a0}DIE{$a0}GEBAEUDE":print"MIT{$a0}BORDWAFFEN ";
 10044 print"ZERSTOERT{$a0}WERDEN.
 10045 print"{down}{down}BITTE{$a0}WAEHLEN{$a0}SIE:
 10050 print"{down}{down}{down}SCHWIERIGKEIT:"spc(18)" 1 BIS 3":gosub50000
 10060 getw$:ifw$<"1"orw$>"3"then10060
 10066 r1=val(w$):gosub58000
 10070 ifr1=1thencc=999:w3=7:w5=4:mf=22:fq=int(2*rnd(ti)+1):ly=2:ex=4
 10080 ifr1=2thencc=900:w3=5:w5=4:mf=15:fq=int(3*rnd(ti)+2):ly=1:ex=3
 10090 ifr1=3thencc=800:w3=4:w5=3:mf=13:fq=int(3*rnd(ti)+2):ly=0:ex=2
 10210 print"FALLWINKEL{$a0}DER{$a0}BOMBEN:
 10220 print"(HERUNTER{$a0}BIS{$a0}AUF 45 GRAD)"spc(7)"0 BIS 5":gosub50000
 10240 getw$:ifw$<"0"orw$>"5"then10240
 10260 k6=40+val(w$)/5:gosub 58000
 10270 gosub50000
 10280 print"{clr}":goto 10310
 10290 nf=1:k3=160:k4=214:k7=228:k8=32:kz=161:jr=193:j6=174
 10295 pl$="{left}{left}{left}{left}{left}{left}{rvon}    {CBM-D}{CBM-P}{CBM-O}{CBM-I}{CBM-@}"
 10310 w$="":print"{clr}{down}MOEGLICHKEITEN:"spc(15)"MAXIMAL:
 10312 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
 10315 print"ALLE{$a0}FUNKTIONEN{$a0}SIND{$a0}MIT{$a0}D?UERFUNKTION.
 10320 print"{down}{rvon}0{rvof} ODER {rvon}space{rvof} FUER{$a0}BOMBER (UNBESCHRAENKT)
 10322 print" {rvon}-{rvof}           FUER{$a0}LUFTMIENEN    ("w5")
 10325 print"{down} {rvon}={rvof}           FUER{$a0}BORDKANONEN   ("w3")
 10330 print"{down}{rvon}!{rvof} UND {rvon}z{rvof}      HOCH-{$a0}UND{$a0}NIEDERSTEUERN
 10350 print"{down}HOCHSTEUERN{$a0}VERBRAUCHT{$a0}MEHR{$a0}SPRIT.
 10355 print"{down}LUFTABWEHRRAKETEN{$a0}VERTEIDIGEN{$a0}DIE{$a0}STADT.";
 10360 ifly>0thenprint"{down}SIE{$a0}UEBERSTEHEN BIS ZU"ly"TREFFER.
 10390 print"{down}ES{$a0}GIBT{$a0}6 LUFTABWEHRBATTERIEN.":z$=""
 10395 print"{down}DIE"ex+1"SICHBAREN{$a0}KOENNEN{$a0}ZERBOMBT{$a0}WERDEN.";
 20100 print"{down}{rvon} ZUFALLS- ODER SELBSTGEZEICHNETE STADT.":gosub50000
 20200 geta$:ifa$<>"z"anda$<>"s"then20200
 20300 print"{clr}":ifa$="s"thengosub21000
 20400 ifa$="z"thengosub22000
 20500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 20550 fora=0to79:print"{CBM-+}";:next
 20560 poke59468,12
 20600 print"{rvon}sprit=     luftmienen=    bordkan.=    {rvof}";:poke33767,160
 20700 poke59468,14:print"{home}";:b=0:k=0:fb=0
 20750 fora=0to55:poke32768+a,k3:next
 20800 fora=0toex:pokemt(a)+k2,jr:next:ex=0:p=0:x=0:fc=0:fq=0:r1=0:a$="":return
 21000 rem sd
 21010 print"{clr}GEBEN{$a0}SIE{$a0}DIE HOEHE (0-9) VON{$a0}LINKS{$a0}NACH RECHTS EIN. {rvon}={rvof} = ENDE
 21015 gosub50000:gosub56000
 21020 fora=35to1step-1
 21030 getw$:ifw$=""then21030
 21040 ifw$="="thenx=0:a=0:goto21090
 21050 x=val(w$):ifx=0then21090
 21060 forb=1tox:p=((k2*b)+a+80):pokek-p,k8:next
 21090 next:return
 22000 poke59468,12:rem rd
 22010 gosub56000:fora=35to1step-1
 22030 b=jk*rnd(ti)+fq:fc=int(4*rnd(ti)):iffc=k1thenb=b+xx
 22050 forfb=1tob:p=((k2*fb)+a+80):pokek-p,k8:next:next:return
 30000 rem pv
 30020 fora=0to2:poke59466,15:poke59467,16:next
 30050 k=0:fb=0:fc=0:fq=0:px=0:ml=0
 30100 a=0:k0=0:k1=1:k2=40:k3=32:k4=86:k7=100:k8=160:k9=102:kz=33:kn=210:
 30200 kx=176:j9=59464:j0=9:j8=.334:j2=33751:j4=33764:j5=33734:j7=32808:j1=33733
 30300 j3=10:j6=46:jk=2:jg=3:dimmt(5)
 30305 iu=7:kp=14:xx=6:fora=0to5
 30306 mt(a)=int(33612+30*rnd(ti))
 30307 forb=0to5:ifmt(a)=mt(b)thenifa<>bthen30306
 30308 next:next:d7=547
 30315 k=33767:px=32773:jr=65:se=245
 30325 pl$="{left}{left}{left}{left}{left}{left}{rvof}{rvon}{rvof}   {CBM-POUND}{CBM-O}{CBM-I}{CBM-@}":return
 40000 poke59468,14
 40078 fora=0to2500:next:print"{clr}{down}{down} ZUSTAND{$a0}BEI{$a0}SPIELENDE:{down}{down}":print" {rvon} "w$" {down}{down}{rvof}"
 40032 ifex>0thenprint"  "ex"RAKETENTREFFER
 40035 print"{down}{down} SIE{$a0}VERBRAUCHTEN:
 40040 print"{down}{down}"x"L SPRIT
 40050 print"{down}"l5"  LUFTMINEN
 40070 print"{down}"l3"  BORDKANONENSALVEN
 40075 print"{down}"w4" BOMBEN
 40080 print"{down}{down} {rvon} NOCHMAL ?  DRUECKEN{$a0}SIE JA{$a0}ODER NEIN.":gosub50000
 40090 geta$:ifa$<>"j"anda$<>"n"then40090
 40094 ifa$="j"thenprint"{clr}":run110
 40095 poke59466,254:poke59467,0:ifpeek(50000)=0thenpoke537,133:poke59468,12:print"{clr}":end
 40096 poke144,46:poke59468,12:print"{clr}":end
 50000 fora=0to15:pokej9,85:next
 50150 fora=0to15:pokej9,140:next
 50200 pokej9,0:return
 55000 ifp=k9thenw$="SICHER{$a0}GELANDET"
 55010 ifp=k8thenw$="ABGESTUERZT":ml=px:gosub5600
 55020 ifp=kzthenw$="EXPLODIERT":ml=px:gosub5600
 55030 ifp=k4thenb=k1:goto320
 55040 goto40000
 56000 ifnf=0thenreturn
 56005 fora=33647to32768step-1:pokea,k3:next:return
 58000 print"     ":fora=0to34:printpl$;:next:print"{up}":return
    5 printchr$(142)
   10 c$(5)="{rvon}{CBM-U}{rvof}":c$(6)="{rvon}{CBM-Y}":c$(7)="{rvon}{CBM-T}{rvof}"
   20 c$(8)="{rvon} {rvof}":forxx=1to80:yy=int(rnd(2)*4)+5:b$=b$+c$(yy):nextxx
   30 print"{clr}{down}{down}{down}";tab(37);"{rvon}bomber{up}{rvof}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}":print:print
   40 print"                 sie sind ab sofort pilot eines bombers"
   50 print"        und erhalten den auftrag feindliche panzer abzuschiessen."
   60 print"                     sie haben dafuer 10 versuche."
   70 print"        bei jedem versuch koennen sie nur eine  bombe abwerfen!!!"
   80 print"die bombe wird durch das druecken einer beliebigen taste ausgeklinkt."
   90 fori=1to80:print"-";:nexti:print
  100 s=10
  110 t=ti:ifs=9thenprinttab(35);" {up}"
  120 printtab(3);"{rvon}der start erfolgt in";s;"{left} sekunden."
  130 s=s-1:ifs=0then160
  140 ifti-t<60then140
  150 print"{up}{up}":goto110
  160 l$=" {rvon}{CBM-K}{CBM-*}{rvof}   {CBM-@}{CBM-P}{CBM-O}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-T}{CBM-*}{rvon}  {SHIFT-*}{SHIFT-*}{SHIFT-*}  {rvof}>{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  170 v=0:t=0
  180 l2$=" {down}{down}Q"
  190 l1$="    {CBM-@}{CBM-P}{CBM-O}{CBM-P}{SHIFT--} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{rvon}{CBM-F}   {CBM-P}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}RRRRRRR{CBM-*}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  200 l1$=l1$+"{CBM-*}{rvon}QQQQQQQ{rvof}{SHIFT-POUND} "
  210 l3$="     M{SHIFT--}{SHIFT--}{SHIFT--}N{SHIFT-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} {rvon}{CBM-F}{CBM-*}{rvof}#{rvon}{SHIFT-POUND}{CBM-P}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}  {rvon}{SHIFT-POUND}RRRRRRR{CBM-*}{rvof}"
  220 l3$=l3$+" {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-*}{rvon}QQQQQQQ{rvof}{SHIFT-POUND} "
  230 a=0:print"{clr}";
  240 gosub750:fori=1to56
  250 print"{home}{down}{down}";tab(i);l$
  260 ifa=1then280
  270 geta$:ifa$<>""thena=1:k=2
  280 ifa<>1then310
  290 k=k+2:ifk=16then330
  300 print"{home}";:forj=1tok:print"{down}";:nextj:printtab(i+7);l2$
  310 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(56-i);l1$
  320 forj=1to50:nextj,i:goto230
  330 ifi+8=56-i+7then370
  340 ifi+8=56-i+8then370
  350 ifi+8=56-i+9then370
  360 v=v+1:goto380
  370 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(54-i);l3$:t=t+1:v=v+1
  380 print"{home}in";v;"versuchen hatten sie";t;"treffer"
  390 fors=1to700:nexts:ifv<10then230
  400 print"{clr}";:goto410
  410 ont+1goto680,650,630,610,590,570,540,510,480,440
  420 print"sie sind der geborene verteidigungs-","minister !!!"
  430 print"herzlichen glueckwunsch und auf wieder- sehen.":end
  440 print"melden sie sich im vertidungsminis-"
  450 print"terium, dort erhalten sie das bundesver-";
  460 print"dienstkreuz in gold am band."
  470 goto700
  480 print"sie als alter hase sollten auch mal die"
  490 print"anfaenger ranlassen!!!"
  500 goto700
  510 print"sehr gut. sie werden zum major befoer-"
  520 print"dert !!!"
  530 goto700
  540 print"gut, gut. sie werden zum hauptmann be-"
  550 print"foerdert !!!"
  560 goto700
  570 print"sie sind ja ganz schoen in uebung."
  580 goto700
  590 print"wenn sie weiter ueben koennen sie noch  besser werden."
  600 goto700
  610 print"fuer einen anfaenger schon ganz gut."
  620 goto700
  630 print"sie muessen aber noch sehr viel ueben."
  640 goto700
  650 print"bevor sie einen panzer treffen werden   sie im ernstfall vom gegner";
  660 print" abgeschossen !!!"
  670 goto700
  680 print"weiteres ueben ist bei ihnen zwecklos."
  690 print"sie sollten lieber rosen oder kleintierezuechten !!!"
  700 print"wollen sie noch einmal fliegen (j/n)";
  710 getz$:ifz$=""then710
  720 print:ifz$="j"then30
  730 ifz$<>"n"then700
  740 end
  750 rem u.p. boden drucken
  760 foro=1to20:print"{down}";:nexto
  770 printb$;"{home}":return
   10 rem *** warning: modifications to
   20 rem     the basic part of this
   30 rem     program may relocate the
   40 rem     machine language part.
  100 poke59468,14:print"{clr}{down}    The Avalon Hill Game Company
  110 printtab(14)"{down}presents
  115 print tab(8)"{down}a microcomputer game
  120 print"{down}"tab(12)"BOMBER{$a0}ATTACK{down}
  140 input"{down}{down}Do you want instructions";x$
  142 ifleft$(x$,1)<>"y"thenprint"{clr}{down}"tab(12)"bomber attack{down}":goto530
  145 print"{clr}{down}"tab(12)"BOMBER{$a0}ATTACK
  150 print"{down}To play this game you use the keyboard
  160 print"to pilot a bomber and drop bombs on
  170 print"enemy targets.  Each target you fully
  180 print"or partially destroy adds points to
  190 print"your score.  However, if you damage a
  200 print"hospital your score will be set equal
  210 print"to zero.  The game ends if your bomber
  220 print"is hit three times by antiaircraft guns
  230 print"or fighters.  You start off with 25
  240 print"bombs.  If, after you drop all your
  250 print"bombs, your score is 100 or more you
  260 print"will be given 25 more bombs and if your
  270 print"bomber was hit twice one of the hits
  280 print"will be repaired.  You will again be
  290 print"given 25 more bombs if your score goes
  300 print"to 300 or more and again if it goes to
  302 print"500 or more and so on.  You must drop
  304 print"all of your bombs before your fuel runs
  306 print"out.
  328 print"{down}        Press a key to continue.
  330 getx$:ifx$<>""goto330
  340 getx$:ifx$=""goto340
  350 poke59468,12:print"{clr} target   points     description
  360 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  370 print"  XXX"tab(12)"0"tab(21)"trees
  380 print"{down}  {CBM-@}{CBM-@}_"tab(8)"1, 2 or 3"tab(21)"fighter & runway
  390 print"{down}  {CBM-A}N{CBM-S}"tab(8)"2, 4 or 6"tab(21)"antiaircraft gun
  400 print"{down}  QQQ"tab(8)"3, 6 or 9"tab(21)"supply dump
  410 print"{down}  {rvon} {CBM-F} {rvof}"tab(8)"4, 8 or 12"tab(21)"factory
  420 print"{down}  {rvon}+{CBM-D}+{rvof}   sets score   hospital
  430 printtab(8)"equal to 0
  440 print:printtab(14)"controls:{down}
  450 printtab(20)"{rvon}+{rvof} _ climb
  455 printtab(14)"drop
  460 printtab(10)"{rvon}0{rvof} _ bomb  {rvon}={rvof} _ descend
  500 print"{down}        press a key to continue
  510 getx$:ifx$<>""goto510
  520 getx$:ifx$=""goto520
  530 poke59468,12:poke6489,1+2*int(128*rnd(-ti)):sys16*16*16
    0 clr:poke59468,12
    1 rem bonzo! copyright (c) 1980 randall lockwood
    2 rem 90 dyke road
    3 rem setauket, ny 11733
    4 :
    5 rem cursor #16, jan 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 8 feb 80
   90 pg$="bonzo!":nm$="16":gosub62000
  100 dimo(9),l(9)
  110 print"there will be a short delay.":print"{down}please be patient."
  120 i=rnd(-ti)
  140 poke59467,16:poke59466,15:sn=59464:pokesn,0
  150 dima(3),p(91),z%(91),m(3),s(3)
  160 m(1)=81:m(2)=218:m(3)=144:x(1)=0:x(2)=40:x(3)=41:w(1)=50:w(2)=80:w(3)=120
  170 fori=0to12
  180 forj=0to6step2:p(j*13+i+1)=33529-120*j+3*i:nextj
  190 forj=1to5step2:p(j*13+i+1)=33565-120*j-3*i:nextj
  200 nexti
  210 vt=22
  220 bl$="{up}                                       {up}"
  230 readt$:ift$<>"~"then230
  240 fori=826to848:readn:pokei,n:next
  250 fori=1to9:reado(i),l(i):nexti
  260 fori=0to9:readd$(i):nexti
  300 print"{clr}{down}{down}{down}{down}how many {rvon}people{rvof} are playing?":print"{down}(1 or 2)? ";
  310 gosub60000:np=val(in$):ifnp<1ornp>2then300
  320 fori=1tonp
  330 print"{down}what is player #";i;"'s name? ";:gosub60000:n$(i)=in$
  335 ifin$=""thenprint"{down}no anonymous players allowed!":goto330
  337 iflen(in$)>10thenprint"{down}names can't be longer than 10 letters!":goto330
  340 nexti:n$(3)="pet"
  350 print"{down}can i play, too? ";:gosub60000:ifleft$(in$,1)="n"then410
  390 np=np+1:n$(np)="pet":m(np)=144
  410 b1$="{rvon}   {down}{left}{left}{left}   {down}{left}{left}{left}   {rvof}{up}{up}"
  420 b2$="{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{up}{up}"
  430 l$(1)="{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}"
  440 l$(2)="{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}{CBM-Q}{CBM-W}"
  450 l$(3)=" /{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/ "
  460 l$(4)=" /{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/\/{up}{left}{left}/ "
  470 l$(5)=" \{down}{left}{left}\/\{down}{left}{left}\/\{down}{left}{left}\ "
  480 l$(6)="\ {down}{left}\ {down}{left}\ {down}{left}\ "
  490 l$(7)="\ {down}{left}\ {down}{left}\ {down}{left}\ {down}{left}\ {down}{left}\ {down}{left}\ "
  500 l$(8)=" /{down}{left}{left}{left} /{down}{left}{left}{left} /{down}{left}{left}{left} /"
  510 l$(9)=" /{down}{left}{left}{left} /{down}{left}{left}{left} /{down}{left}{left}{left} /{down}{left}{left}{left} /{down}{left}{left}{left} /{down}{left}{left}{left} /"
  515 forj=1to10:e(j)=0:nextj:forj=1to91:z%(j)=0:nextj:print"{clr}";
  520 forj=1to3:fori=1to6:printb1$;b2$;:next:printb1$"{down}{down}"
  530 fori=1to6:printb2$;b1$;:next:printb2$"{down}{down}":nextj
  540 fori=1to6:printb1$;b2$;:next:printb1$"{down}{down}"
  550 pokeql,19:print"{up}{rvon}->":print"{home}";tab(36);"{rvon}***{down}{left}{left}{left}*V*{down}{left}{left}{left}***"
  560 restore:z=int(rnd(1)*4)+1
  570 ifz>1thenfork=1toz-1:readn:forj=1ton:readt$:nextj,k
  580 readn:fork=1ton:readi$:gosub1080:nextk
  590 data7,162143462,030617681,032468769
  600 data073324167,183151216,061397450,120375123
  610 :
  620 data7,130622450,152163418,223041139,131234858
  630 data030798153,032178662,033489068
  640 :
  650 data9,181050523,152411835,153133741,121884632
  660 data160642957,040125379,032198658,032568769,033078965
  670 :
  680 data7,210640331,181862008,142721743
  690 data093686541,062497046,030778157,041517384
  700 :
  710 fork=1tonp:s(k)=1:a(k)=160:pokep(1)+x(k),m(k):nextk
  720 fork=1tonp
  730 sk=s(k):mk=m(k):xk=x(k):psk=p(sk)
  740 gosub770
  750 gosub910
  760 nextk:goto720:end
  770 d=int(rnd(1)*6)+1:pokeql,vt+1
  780 print"{up}";tab(12);d$(0);"{up}{up}":printbl$
  785 poke33648,m(k):print"{rght}=";n$(k):print"rolls:"
  790 ifn$(k)="pet"then830
  795 gett$:ift$<>""then795
  800 gosub880
  810 gett$:ift$=""then800
  820 goto860
  830 forj=1toint(rnd(1)*10)+3
  840 gosub880
  850 nextj
  860 z=d:gosub890:fori=1to1000:nexti
  870 return
  880 z=int(rnd(1)*10)+1
  890 pokeql,vt+1:printtab(12);"{up}{rvon}";d$(z);"{up}"
  900 fori=1to100:nexti:return
  910 pokepsk+xk,a(k):fori=1tod
  920 ifsk+i>=91then1000
  930 a(k)=peek(p(sk+i)+xk)
  940 pokep(sk+i)+xk,m(k):pokesn,w(k):forj=1to50:nextj:pokesn,0
  950 ifi<dthenpokep(sk+i)+xk,a(k)
  960 nexti
  970 pokesn,0:sk=s(k)+d:s(k)=sk:psk=p(sk)
  980 u=z%(sk):ifu=0thenreturn
  990 goto1270
 1000 pokeql,vt:printbl$:printtab(5);n$(k)" wins!!!"
 1010 fori=1to99:r%=100*rnd(1):pokesn,30+r%:next:pokesn,0
 1020 fori=1to8:sys826:forj=1to300:next:next
 1030 fori=1to1000:next
 1040 pokeql,vt:printbl$:print"play again?";
 1050 gosub60000
 1060 ifleft$(in$,1)<>"n"then515
 1070 poke59467,0:end
 1080 y=val(left$(i$,2)):x=val(mid$(i$,3,2))
 1090 z=val(mid$(i$,5,1)):s=val(mid$(i$,6,2)):e(z)=val(right$(i$,2))
 1100 pokeql,y-1:printtab(x);"{up}";l$(z):z%(s)=z:return
 1270 o=o(u):l=l(u)
 1280 lp=100:hp=200:z=1:ifu<=5thenlp=200:hp=100:z=-1
 1290 iv=int((hp-lp)/l+.5)
 1300 s1=psk+x(k):s2=a(k):fori=1tol
 1310 pokes1,s2:s1=s1+o:s2=peek(s1):pokes1,m(k)
 1320 forj=lptolp+ivstepz:pokesn,j:next:lp=lp+iv
 1330 nexti
 1340 pokesn,0
 1350 sk=e(u):s(k)=sk:a(k)=s2
 1360 return
 1370 data~,162,128,160,0,132,33,134,34,177
 1380 data33,73,128,145,33,200,208,247,232,224
 1390 data132,208,240,96
 1400 data-40,3,-40,6,-39,3,-39,6
 1410 data-41,3
 1420 data41,3,41,6,39,3,39,6
 1430 data"   {left}{left}{left}{down}   {left}{left}{left}{down}   "
 1440 data"   {left}{left}{left}{down} Q {left}{left}{left}{down}   "
 1450 data"Q  {left}{left}{left}{down}   {left}{left}{left}{down}  Q"
 1460 data"  Q{left}{left}{left}{down} Q {left}{left}{left}{down}Q  "
 1470 data"Q Q{left}{left}{left}{down}   {left}{left}{left}{down}Q Q"
 1480 data"Q Q{left}{left}{left}{down} Q {left}{left}{left}{down}Q Q"
 1490 data"QQQ{left}{left}{left}{down}   {left}{left}{left}{down}QQQ"
 1500 data"  Q{left}{left}{left}{down}   {left}{left}{left}{down}Q  "
 1510 data"Q  {left}{left}{left}{down} Q {left}{left}{left}{down}  Q"
 1520 data"Q Q{left}{left}{left}{down}Q{$a0}Q{left}{left}{left}{down}Q{$a0}Q"
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by randall lockwood
 62020 gosub60500
 62030 print"{down}the bonzo dog chase game
 62090 print"{down}{down}press {rvon}return{rvof} to begin"
 62100 gett$:ift$=""then62100
 62140 goto60300
    0 clr:poke59468,peek(59468)and253or12
    1 rem bop copyright(c) 1978 glen fisher
    2 rem cursor #4 october, 1978
    3 rem box 550, goleta,ca. 93017
    4 rem
   50 gosub62000
  100 dimrc(9,1),up(9)
  110 fori=0to9:readrc(i,0),rc(i,1):next i
  120 data7,9,5,12,5,13,7,16,12,17
  130 data12,21,7,22,5,25,5,26,7,29
  140 pt$="MG{SHIFT--}N{SHIFT-*}{SHIFT-*}MBHN"
  150 rt$="{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  160 dn$="{rvof}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  190 zer=1:rn=(rc(4,0)+rc(5,0))/2+1:cn=(rc(4,1)+rc(5,1))/2
  210 cr$=chr$(13)
  500 print"{clr}";
  505 print"{down}do you want to:"
  510 print" 1) set up fingers"
  515 print" 2) read them"
  520 print" 3) watch them"
  525 print" 4) count to 99"
  526 print" 5) quit"
  530 print"enter the number of your choice: ";:gosub60000
  540 ifin$="1"thengosub9000:goto1000
  545 ifin$="2"thengosub9000:goto3500
  550 ifin$="3"thengosub9000:goto3000
  555 ifin$="4"thengosub9000:goto3700
  556 ifin$<>"5"thengoto560
  557 print"{clr}{down}thank's for playing.":end
  560 print"{clr}please type '1', '2', '3', '4', or '5'.{down}
  570 goto510
 1000 num=int(rnd(1)*99)+1:rj=0
 1010 print"{home}set up the number";num;"{left}."
 1020 fornf=0to9:ifup(nf)=0thengosub4000
 1030 nextnf:nf=0
 1050 print"{home}";left$(rt$,1+rc(nf,1));left$(dn$,1+rc(nf,0));
 1060 printmid$(pt$,1+nf,1);"{left}";
 1100 gett$:ift$=""then1100
 1110 print" {left}";
 1120 ift$="<"thennf=nf-1:ifnf<0thennf=9
 1130 ift$=">"thennf=nf+1:ifnf>9thennf=0
 1140 ift$="{rvon}"thengosub4000
 1150 ift$=chr$(13)andrj=1then1200
 1151 ift$=chr$(13)andrj=0then500
 1152 rj=1
 1155 ift$=" "then500
 1160 goto1050
 1200 n=0:fori=3to0step-1
 1210 :ifup(i)=zerthen1230
 1220 :n=n+10:nexti
 1230 ifi<=0then1270
 1240 fori=ito0step-1
 1250 :ifup(i)<>zerthen1900
 1260 nexti
 1270 n=n+50*abs(up(4)<>zer)
 1280 fori=6to9
 1290 :ifup(i)=zerthen1310
 1300 :n=n+1:nexti
 1310 ifi>=9then1350
 1320 fori=ito9
 1330 :ifup(i)<>zerthen1900
 1340 nexti
 1350 n=n+5*abs(up(5)<>zer)
 1360 ifn=numthenprint"{home}{down}right!";:goto1500
 1370 print"{home}{down}no.";:goto1500
 1500 print" the number on my fingers is";n;"{left}."
 1510 fori=1to2000:nexti
 1520 gosub5500
 1530 goto1000
 1900 print"{home}{down}that isn't even a number!":goto 1510
 2000 t=int(rnd(1)*1024)
 2010 fornf=0to9
 2030 up=1andt:t=int(t/2)
 2040 ifup(nf)<>upthengosub4000
 2050 nextnf
 2060 goto2000
 2990 fori=1to1000:nexti
 3000 gosub7000
 3010 num=nm:ifnm<0then500
 3020 gosub6000
 3030 fornf=0to9
 3050 ifup(nf)<>f(nf)thengosub4000
 3060 nextnf
 3070 print"{home}";left$(rt$,cn-(nm>9));left$(dn$,rn);num;"{left} "
 3080 goto 3000
 3500 num=int(rnd(1)*100):nm=num:gosub6000
 3510 fornf=0to9
 3530 ifup(nf)<>f(nf)thengosub4000
 3540 nextnf
 3550 gosub7000:ifnm<0then500
 3560 ifnm=numthenprint"{home}{down}right!";:goto3580
 3570 print"{home}{down}no.";
 3580 print" the number is";num;"{left}."
 3590 fori=1to2000:nexti
 3600 goto3500
 3700 fornum=0to99:nm=num:gosub6000
 3701 gett$:ift$<>""then500
 3705 print"{home}";left$(rt$,cn-(nm>9));left$(dn$,rn);num;"{left} "
 3710 fornf=0to9
 3720 print"{home}";left$(rt$,1+rc(nf,1));left$(dn$,1+rc(nf,0));
 3730 ifup(nf)<>f(nf)thengosub4000
 3740 nextnf
 3750 fori=1to500:nexti
 3760 nextnum
 3770 goto 500
 4000 print"{home}";left$(rt$,1+rc(nf,1));left$(dn$,1+rc(nf,0));
 4010 onnf+1gosub5000,5010,5020,5030,5040,5050,5060,5070,5080,5090
 4020 print"{rvof}";:return
 5000 print"{rght}{rght}{down}";
 5001 ifup(0)thenprint" {left}{down}{down}{rvon}{SHIFT-@}";:goto5003
 5002 print"{rvon}{CBM-M}{left}{down}{down}";mid$("{CBM-M} ",1+up(1),1);
 5003 print"{left}{up}{up}{up}{left}{left}";
 5004 up(0)=1-up(0)
 5005 return
 5010 print"{down}{down}";
 5011 ifup(1)thenprint" {left}{down} {left}{down}{down}{left}{rvon}";mid$("{SHIFT-@}{CBM-M}",1+up(0),1);"{SHIFT-@}";:goto5013
 5012 print"{rvon}{CBM-M}{left}{down}{CBM-M}{left}{down}{down}{left}";mid$("{SHIFT-@} ",1+up(0),1);mid$("{CBM-M} ",1+up(2),1);
 5013 print"{left}{up}{up}{up}{up}{up}";
 5014 up(1)=1-up(1)
 5015 return
 5020 print"{down}{down}";
 5021 ifup(2)thenprint" {left}{down} {left}{down}{down}{left}{rvon}";mid$("{SHIFT-@}{CBM-M}",1+up(1),1);"{SHIFT-@}";:goto5023
 5022 print"{rvon}{CBM-M}{left}{down}{CBM-M}{left}{down}{down}{left}";mid$("{SHIFT-@} ",1+up(1),1);mid$("{SHIFT-@}{CBM-@}{CBM-M} ",1+up(3)+2*up(4),1);
 5023 print"{left}{up}{up}{up}{up}{up}";
 5024 up(2)=1-up(2)
 5025 return
 5030 print"{left}{left}{down}";
 5031 ifup(3)thenprint" {left}{down}{down}{left}{rvon}";mid$("{SHIFT-@}{CBM-M}",1+(up(2)andup(4)),1);"{SHIFT-@}";:goto5033
 5032 print"{rvon}{CBM-M}{left}{down}{down}{left}";mid$("{SHIFT-@}{CBM-@}{SHIFT-@} ",1+up(2)+2*up(4),1);"{CBM-M}";
 5033 print"{rght}{up}{up}{up}";
 5034 up(3)=1-up(3)
 5035 return
 5040 print"{left}{left}{left}{left}{up}{up}{rvon}";
 5041 ifup(4)thenprintmid$("{SHIFT-@}{CBM-@}",1+(up(2)andup(3)),1);"{left}{down}MM{left}{down}M{rvof} {left}{up}  ";:goto5043
 5042 print mid$("{SHIFT-@}{CBM-M}{SHIFT-@} ",1+up(2)+2*up(3),1);"{left}{down} {CBM-M}{left}{down} {rvof}{SHIFT-POUND}{left}{up}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}";
 5043 print"{down}";
 5044 up(4)=1-up(4)
 5045 return
 5050 print "{up}{rght}";
 5051 ifup(5)thenprint"  {left}{down} {rvon}N{left}{up}NN{left}{up}";mid$("L{CBM-@}",1+(up(6)andup(7)),1);:goto 5053
 5052 print "{CBM-*}{rvon}{CBM-*}{rvof}{left}{down}{CBM-*}{rvon} {left}{up}{CBM-G} {left}{up}";mid$("LL{CBM-G} ",1+up(6)+2*up(7),1);
 5053 print "{down}{down}{left}{left}{left}{left}{left}";
 5054 up(5)=1-up(5)
 5055 return
 5060 print "{rght}{rght}{down}";
 5061 if up(6) then print " {left}{down}{down}{rvon}L";mid$("L{CBM-G}",1+(up(5) and up(7)),1);:goto 5063
 5062 print "{rvon}{CBM-G}{left}{down}{down}{CBM-G}";mid$("LL{CBM-@} ",1+up(5)+2*up(7),1);
 5063 print "{left}{left}{up}{up}{up}{left}{left}";
 5064 up(6)=1-up(6)
 5065 return
 5070 print "{down}{down}";
 5071 if up(7) then print " {left}{down} {left}{down}{down}{rvon}L";mid$("L{CBM-G}",1+up(8),1);:goto 5073
 5072 print "{rvon}{CBM-G}{left}{down}{CBM-G}{left}{down}{down}";mid$("L{CBM-G}{CBM-@} ",1+up(5)+2*up(6),1);mid$("L ",1+up(8),1);
 5073 print "{left}{left}{up}{up}{up}{up}{up}";
 5074 up(7)=1-up(7)
 5075 return
 5080 print "{down}{down}";
 5081 if up(8) then print " {left}{down} {left}{down}{down}{rvon}L";mid$("L{CBM-G}",1+up(9),1);:goto 5083
 5082 print "{rvon}{CBM-G}{left}{down}{CBM-G}{left}{down}{down}";mid$("{CBM-G} ",1+up(7),1);mid$("L ",1+up(9),1);
 5083 print "{left}{left}{up}{up}{up}{up}{up}";
 5084 up(8)=1-up(8)
 5085 return
 5090 print "{left}{left}{down}";
 5091 if up(9) then print " {left}{down}{down}{rvon}L";:goto 5093
 5092 print "{rvon}{CBM-G}{left}{down}{down}";mid$("{CBM-G} ",1+up(8),1);
 5093 print "{rght}{up}{up}{up}";
 5094 up(9)=1-up(9)
 5095 return
 5500 print "{home}{rvof}";
 5510 for ii=1 to 3
 5520 :print "                                       "
 5530 next ii
 5540 print "{home}";:return
 6000 rem
 6010 fori=0to9:f(i)=zer:nexti
 6020 t=int(nm/5):n=nm-5*t:nm=t
 6030 ifn>0thenfori=6to 5+n:f(i)=1-f(i):next i
 6040 t=int(nm/2):n=nm-2*t:nm=t
 6050 ifnthenf(5)=1-f(5)
 6060 t=int(nm/5):n=nm-5*t:nm=t
 6070 ifn>0thenfori=3to4-nstep-1:f(i)=1-f(i):nexti
 6080 t=int(nm/2):n=nm-2*t:nm=t
 6090 ifnthenf(4)=1-f(4)
 6100 return
 7000 gosub5500
 7100 print"{home}number? ";:gosub60000
 7105 ifin$=""thennm=-1:return
 7110 ifin$=""then7300
 7120 fori=1tolen(in$)
 7130 :t$=mid$(in$,i,1):ift$>="0"andt$<="9"ort$="-"then7160
 7140 ift$="."thenprint"{home}{down}no fractions, please.":goto7310
 7150 goto7300
 7160 nexti
 7170 nm=val(in$)
 7180 ifnm<0thenprint"{home}{down}too small.":goto 7310
 7190 ifnm>99then print"{home}{down}too big.":goto 7310
 7200 return
 7300 print"{home}{down}that's not a number."
 7310 fori=1to1000:nexti
 7320 goto7000
 9000 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}";
 9010 print"{rvon}{CBM-M}{CBM-M}{left}{left}{left}{down}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{left}{left}{left}{left}{down}{CBM-M}{CBM-M}{CBM-M}{CBM-M}";
 9020 print"{left}{left}{left}{left}{down}   {CBM-M}{left}{left}{left}{left}{down}   {CBM-M}{SHIFT-POUND}{rvof}{SHIFT-POUND}";
 9030 print "{left}{left}{left}{left}{left}{left}{down}{rvon}    {rvof}{SHIFT-POUND}{left}{left}{left}{left}{left}{down}";
 9040 print "{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}  {left}{left}{down}  ";
 9050 print "{up}{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 9060 print "{rvon}{CBM-G}{CBM-G}{left}{left}{left}{down}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{left}{left}{left}{left}{down}{CBM-G}{CBM-G}{CBM-G}{CBM-G}";
 9070 print "{left}{left}{left}{left}{down}{CBM-G}   {left}{left}{left}{left}{left}{left}{down}{rvof}{CBM-*}{rvon}{CBM-*}{CBM-G}   ";
 9080 print "{left}{left}{left}{left}{left}{down}{rvof}{CBM-*}{rvon}    {left}{left}{left}{left}{down}";
 9090 print "{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}  {left}{left}{down}  {rvof}";
 9100 for ii=0 to 9:up(ii)=1:next ii
 9110 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0thenpk=peek(59468):poke59468,pkor14:goto60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;"  (c) 1978    pAGE";pn;"{down}"
 60270 return
 62000 print"{clr}{down}{down}{down}{down}bop - cursor #4  (c) 1978"
 62010 print"{down}a game that teaches chisanbop"
 62020 print"{down}do you want directions? ";:gosub60000
 62030 ifin$<>"y"thengoto100
 62040 lp=3:nm$="4":pg$="bop":gosub60200
 62060 print"tHIS{$a0}GAME{$a0}PRESENTS{$a0}THE{$a0}kOREAN{$a0}METHOD
 62070 print"OF{$a0}COUNTING{$a0}CALLED{$a0}cHISANBOP.
 62090 print"tHIS{$a0}TECHNIQUE MAKES{$a0}IT{$a0}POSSIBLE
 62110 print"TO{$a0}COUNT TO{$a0}99 ON{$a0}YOUR{$a0}FINGERS.
 62170 gosub60200
 62185 print"cHISANBOP RULES:
 62190 print"{down}fINGERS{$a0}ON{$a0}YOUR{$a0}right HAND{$a0}ARE{$a0}WORTH 1
 62200 print"{down}yOUR{$a0}right THUMB{$a0}IS{$a0}WORTH{$a0}5
 62210 print"{down}fINGERS{$a0}ON{$a0}YOUR{$a0}left HAND{$a0}ARE{$a0}WORTH{$a0}10
 62220 print"{down}yOUR{$a0}left THUMB{$a0}IS{$a0}WORTH{$a0}50
 62250 print"{down}pRESS{$a0}YOUR{$a0}FINGERS AGAINST{$a0}A{$a0}TABLE
 62260 print"TO{$a0}'MAKE{$a0}A{$a0}NUMBER'.  fOR{$a0}EXAMPLE,
 62270 print"FOR THE{$a0}NUMBER{$a0}6,{$a0}PRESS{$a0}YOUR{$a0}
 62280 print"RIGHT{$a0}THUMB{$a0}AND{$a0}FOREFINGER ON{$a0}THE{$a0}TABLE.
 62290 gosub60200
 62300 print"tO{$a0}SET{$a0}THE{$a0}FINGERS{$a0}IN{$a0}THIS{$a0}GAME:
 62310 print"{down}pRESS{$a0}'>' TO{$a0}GO{$a0}RIGHT,
 62320 print"{down}pRESS '<' TO{$a0}GO{$a0}LEFT.
 62330 print"{down}tO{$a0}CHANGE{$a0}A{$a0}FINGER, USE{$a0}THE{$a0}'rvs' KEY.
 62335 print"{down}aFTER{$a0}YOU{$a0}HAVE{$a0}'SET' THE{$a0}FINGERS,
 62337 print"PRESS {rvon}return{rvof} TO{$a0}ENTER{$a0}YOUR{$a0}ANSWER
 62340 print"{down}tHERE{$a0}ARE{$a0}SEVERAL{$a0}OPTIONS{$a0}IN{$a0}THIS{$a0}GAME.
 62350 print"yOU{$a0}CAN{$a0}ALWAYS{$a0}GO{$a0}BACK{$a0}TO{$a0}THE{$a0}MAIN{$a0}MENU
 62360 print"BY{$a0}PRESSING{$a0}rETURN.
 62400 gosub60200
    0 clr:poke59468,12
    1 rem boswain copyright (c) 1980 cursor magazine
    2 rem author: c.t. nadovich
    3 rem         24 second ave.
    4 rem         troy, ny 12180
    5 :
    6 rem cursor #21, june/july 1980
    7 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 1aug80
   90 pg$="boswain":nm$="21":gosub62000
  100 l1=0:dy=0:dx=1:sc=0:lh$="*":rh$=" "
  170 dl=2:gosub6000:nh=1:gosub11200:gosub1000:dl=.5:gosub6000
  200 dl=.5:gosub6000:hs=0:gosub2000
  210 ifpp=0thenrh$="*":lh$=" "
  215 ifpp=1thenrh$=" ":lh$="*"
  220 gosub4000:pokeql,12:print"{up}":printtab(29)"guess!":gosub6500
  250 ifq$<>"4"andq$<>"6"thengosub1700:goto200
  270 lp=0:ifq$="6"thenlp=1
  280 iflp=ppthensc=sc-1
  290 iflp<>ppthensc=sc+1
  300 hs=1:ifq$="4"thenhs=2
  320 gosub2000:gosub7000
  330 ifhs<>5thenhs=3:gosub2000:dl=1:gosub6000:hs=5:gosub2000:gosub4000
  340 ifsc=10goto600
  350 ifsc=-10goto400
  360 gosub11200:goto200
  400 restore
  410 readq$:ifq$<>"*"then410
  430 gosub5000:dl=2:gosub6000
  440 gosub4900:gosub13000
  450 dl=5:gosub6000:print"{clr}{down}{down}":end
  600 rh$=" ":lh$=" ":hs=3:gosub2000
  620 q$="you have won!":y=14:gosub5100
  630 q$="you are free!":y=12:gosub5100
  640 print"{home}":end
 1000 print"{clr}{down}      oh my!!  you seem to have fallen
 1060 print"{down} through a trap door.   when your head
 1070 print"{down} stops spinning,{$a0}your new surroundings
 1075 print"{down} come into focus.
 1080 print"{down}      above you is a  vast domed ivory
 1090 print"{down} ceiling, traced with crimson streaks.
 1100 print"{down} at its peak is a round black opening,
 1110 print"{down} presumably  through  which  you fell.
 1120 print"{down} your feet tell you  that  the{$a0} floor,
 1130 print"{down} hidden  by {$a0}waist high mist, {$a0}is soft
 1140 print"{down} and resilient.
 1160 gosub6400
 1170 print"{clr}{down}{down}{down}{down}{down}{down}{down}      as you begin to  make{$a0} your  way
 1180 print"{down} toward the arched walls, a noise from
 1190 print"{down} behind startles you. you spin to face
 1200 print"{down} the inhabitant of this erie place,  a
 1210 print"{down} mysterious hooded figure.
 1230 gosub6400
 1240 print"{clr}":gosub9000:hs=5:gosub2000
 1241 restore:fori=1to3
 1243 gosub4900:ifi<3thendl=2:gosub6000
 1245 nexti:gosub6500:ifq$="n"then1600
 1255 gosub4900:dl=2:gosub6000:gosub4000:hs=3:gosub2000:gosub5000
 1290 dl=.5:gosub6000:hs=0:gosub2000:dl=1.5:gosub6000:gosub4900
 1310 dl=2:gosub6000:gosub1700:y=16:goto1610
 1600 gosub4000:y=16:q$="good!":gosub5100:y=y-3
 1610 q$="let us":gosub5100:y=y-2:q$="begin!":gosub5100:dl=3:gosub6000
 1640 gosub4000:return
 1700 print"{clr}{down}{down}{down}{down}{down}{down}{down}     {rvon}note from omniscient narrator{rvof}
 1710 print"{down}{down}      you may indicate boswain's hands
 1720 print"{down} by  using the 4 and 6 keys. the 4 key
 1730 print"{down} indicates his right hand, 6 his left.
 1731 print"           {CBM-T}{CBM-T}{CBM-T}               {CBM-T}{CBM-T}{CBM-T}"
 1740 gosub6400
 1750 gosub9000:hs=5:gosub2000
 1760 return
 2000 ifhs=5thengosub8000:cf=0:return
 2010 ifcf=0thengosub8500:cf=1
 2020 onhsgoto2150,2200,2250
 2100 gosub3200:gosub3250:return
 2150 gosub3200:gosub3150:return
 2200 gosub3100:gosub3250:return
 2250 gosub3100:gosub3150:return
 3100 pokeql,17:print"{up}":print"{rght}{rght}";
 3101 print"   {rvon}   {rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3102 print"  {rvon}{SHIFT-POUND}   {rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3103 print" {rvon}{SHIFT-POUND}  "lh$" {rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3104 print"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{CBM-H}   {rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3105 print"  {rvon}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3106 print"  {rvon}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3107 print"  {rvon}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3110 return
 3150 pokeql,17:print"{up}":printtab(18);
 3151 print" {rvon}   {rvof}   {down}{left}{left}{left}{left}{left}{left}{left}";
 3152 print" {rvon}   {CBM-*}{rvof}  {down}{left}{left}{left}{left}{left}{left}{left}";
 3153 print" {rvon} "rh$"  {CBM-*}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}";
 3154 print" {rvon}   {CBM-N}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}";
 3155 print" {rvon}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{rvof}  {down}{left}{left}{left}{left}{left}{left}{left}";
 3156 print" {rvon}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{rvof}  {down}{left}{left}{left}{left}{left}{left}{left}";
 3157 print" {rvon}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{rvof}  {left}{left}{left}{left}{left}{left}{left}";
 3160 return
 3200 pokeql,23:print"{up}":print"{rght}{rght}{rght}{rght}";
 3201 print"       {left}{left}{left}{left}{left}{left}{left}{up}";
 3202 print"       {left}{left}{left}{left}{left}{left}{left}{left}{left}{up}";
 3203 print"   {rvon}{CBM-N}{CBM-N}{CBM-M}{CBM-G}{rvof} {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3204 print"  {rvon}{CBM-M}uuuu{rvof} {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3205 print"  {rvon}{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof} {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3206 print"  {rvon}{SHIFT-POUND}   {CBM-*}{rvof} {up}{left}{left}{left}{left}{left}{left}";
 3207 print" {rvon}   {rvof}"
 3210 return
 3250 pokeql,23:print"{up}":printtab(18);
 3251 print"       {left}{left}{left}{left}{left}{left}{left}{up}";
 3252 print"       {left}{left}{left}{left}{left}{left}{left}{up}";
 3253 print"{rvon}{CBM-M}{CBM-G}{CBM-H}{CBM-H}{rvof}    {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3254 print"{rvon}uuuu{CBM-G}{rvof}   {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3255 print"{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}{rvof}   {up}{left}{left}{left}{left}{left}{left}{left}{left}";
 3256 print"{rvon}{SHIFT-POUND}   {CBM-*}{rvof} {up}{left}{left}{left}{left}{left}{left}";
 3257 print" {rvon}   {rvof}"
 3260 return
 4000 print"{home}";:forlj=1to24:printtab(25)"              ":next:return
 4900 gosub4000
 5000 y=16
 5020 readq$:ifq$<>"."thengosub5100:y=y-2:goto5020
 5040 return
 5100 x=32-int(len(q$)/2)
 5200 ln=len(q$):lx=x:ly=y
 5210 forl=1toln:pokeql,25-y:print"{up}";
 5250 printtab(lx)"*{left}{rvon}*{rvof}{left}";mid$(q$,l,1)
 5270 lx=lx+1:nextl
 5290 return
 5510 data"i am","boswain!",.
 5520 data"you are now","a captive","of the temple","yakban",.
 5540 data"need i","enlighten"
 5550 data"you about the","terms of your","release?",.
 5570 data"to depart","you must"
 5580 data"pay a tribute","of ten rubies",.
 5590 data"in one hand","i will hide","a gem",.
 5600 data"you must","guess which","hand holds","it",.
 5610 data=,"ha!!","you have","guessed wrong",.
 5620 data"since you have","no jewels",.
 5630 data"you must pay","in flesh!",.
 5640 data"a finger","is fair","exchange",.
 5700 data*,"will you","honor","your debt,",.
 5710 data"or must","i use","force?",.
 6000 x=ti+60*dl
 6020 ifti<xgoto6020
 6030 return
 6400 pokeql,24:print"{up}";tab(25);"{rvon}press key..."
 6500 getq$:ifq$<>""goto6500
 6510 getq$:ifq$=""goto6510
 6520 return
 7000 gosub4000
 7100 ifl1=1orsc<>-1goto7300
 7110 l1=1:restore
 7120 readq$:ifq$<>"="then7120
 7125 fori=1to4
 7130 gosub5000
 7135 ifi=1thenhs=3:gosub2000
 7140 dl=2:gosub6000
 7145 gosub4000
 7150 next
 7160 print"{clr}{down}{down}{down}{down}     {rvon}note from omniscient narrator{rvof}
 7170 print"{down}{down}     after several minutes of vigorous"
 7175 print"{down} argument,  boswain  agrees  to accept
 7180 print"{down} your hands  as  collateral  for  your
 7185 print"{down} fingers. you are safe for now, but if
 7190 print"{down} your  debt should become ten  fingers
 7195 print"{down} then off come your hands.
 7196 print"      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 7205 gosub6400
 7210 gosub9000:hs=5:gosub2000:return
 7300 iflp=ppgoto7308
 7306 q$="correct!":y=16:gosub5100
 7307 goto7310
 7308 q$="incorrect!!":y=16:gosub5100
 7310 ifsc>0goto7400
 7311 ifsc=0goto7350
 7315 q$="you now owe":y=14:gosub5100
 7316 q$=str$(abs(sc))+" finger"
 7320 ifsc<>-1thenq$=q$+"s"
 7325 y=12:gosub5100
 7330 return
 7350 q$="we are even":y=12:gosub5100
 7355 return
 7400 q$="you now have":y=14:gosub5100
 7405 r$=" rubies":ifsc=1thenr$=" ruby"
 7410 q$=str$(sc)+r$:y=12:gosub5100
 7420 return
 8000 pokeql,12:print"{up}":print"     Y       Y       T
 8010 print"     H       H       G  "
 8020 print"     {SHIFT--}       {SHIFT--}       B  "
 8030 print"     B       B       {SHIFT--}  "
 8040 print"     {CBM-G}       B       Y   "
 8050 print"    {CBM-M}        B       {CBM-M}   "
 8060 print"    Y                 {CBM-G}  "
 8070 print"    Y                 {CBM-G}  "
 8080 print"    Y                 {CBM-G}  "
 8085 print"    Y                 {CBM-G}  "
 8086 print"    Y                 {CBM-G}  "
 8087 print"    Y                 {CBM-G}  "
 8090 return
 8500 pokeql,12:print"{up}":print"     Y       Y       T
 8501 print"     N{CBM-T}M     H     N{CBM-T}M
 8502 print"    N{$a0} {$a0}M{$a0}{$a0} {$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}N{$a0} {$a0}M
 8503 print"   N     M       N     M
 8504 print"  Y U{SHIFT-*}{SHIFT-*}{SHIFT-*}I T     Y U{SHIFT-*}{SHIFT-*}{SHIFT-*}I {CBM-G}
 8505 print"          G     H        "
 8506 print"          B     {SHIFT--}        "
 8507 print"          {SHIFT--}     B        "
 8508 forli=1to4:print"                         ":next
 8599 return
 9000 print"{clr}
 9003 printtab(11)"{CBM-@}FCCI
 9004 printtab(10)"N    K
 9005 printtab(9)"{SHIFT--}      M
 9006 printtab(9)"GUCD{CBM-T}D{SHIFT-*}IG
 9007 printtab(9)"{CBM-G}H {CBM-F}  {CBM-F}B{SHIFT--}
 9008 printtab(9)"{CBM-G}Y {CBM-V}  {CBM-V}G{SHIFT--}
 9009 printtab(8)"{CBM-M}  {CBM-G}    {CBM-G}H
 9010 printtab(9)"{CBM-G} M   N {CBM-M}
 9011 printtab(8)"N   M N   M
 9012 printtab(7)"N     M{$a0}{$a0}   M
 9013 printtab(6)"N      {CBM-M}      M
 9100 return
 11200 ifnh<>1goto11300
 11210 fori=0to7:th(i)=0:nexti
 11220 cc=1:nh=0
 11300 i=-2*(.5+(lp=ll))
 11320 j=4*ov(2)+2*ov(1)+1*ov(0)
 11330 k=th(j)+i
 11335 ifk<>0thenk=k/abs(k)
 11340 ifcc>4thenth(j)=k
 11360 ov(2)=ov(1):ov(1)=ov(0)
 11370 ov(0)=1+(pp=lp)
 11390 j=4*ov(2)+2*ov(1)+1*ov(0)
 11400 i=th(j)
 11410 ifi=0goto11450
 11420 pp=(lp-.5)*i+.5
 11430 goto11500
 11450 i=ti
 11460 pp=2*((i/2)-int(i/2))
 11500 ll=lp:cc=cc+1:return
 13000 pokeql,12:print"{up}"
 13002 printtab(19)"N{CBM-T}M
 13003 printtab(18)"N{$a0} {$a0}M
 13004 printtab(17)"N     M
 13005 printtab(16)"Y U{SHIFT-*}{SHIFT-*}{SHIFT-*}I {CBM-G}
 13006 printtab(16)"H  {rvon}   {rvof}
 13007 printtab(16)"{SHIFT--}I{rvon}{SHIFT-POUND}   {CBM-*}{rvof}
 13008 printtab(16)"B{CBM-Q}{rvon}{CBM-O}    {rvof}I
 13009 printtab(8)"{CBM-*}{rvon} FFF    {CBM-L}{rvof} {rvon}{CBM-M}{CBM-G}{CBM-H}{CBM-H}{rvof}{SHIFT--}
 13010 printtab(10)"{CBM-T}{CBM-Y}{CBM-U}{CBM-Y}{CBM-Y}{CBM-T}{CBM-T}{CBM-Q}{SHIFT-*}{rvon}{CBM-M}{CBM-G}{CBM-H}{CBM-H}{rvof}K
 13011 printtab(17)"J
 13012 return
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by c.t. nadovich
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}a tribute to yakban...
 62040 print"{down}{down}press {rvon}return{rvof} to begin"
 62050 gosub6500
 62060 print"{clr}":clr
 62070 ql=245:ifpeek(50000)thenql=216
 62080 goto100
 62090 gosub6500:goto60300
    2 t=rnd(-ti):a=0:x=0:d=0:lb=0:rb=0:np=0
    3 q=151:rem q=515 for old pets
   10 b=32:c=40:e=39
   12 lr=85:rem left rear of ball
   14 rr=74:rem right rear of ball
   16 rf=75:rem right front of ball
   18 lf=73:rem left front of ball
   20 le=100:rem left edge of lane
   21 re=99:rem right edge of lane
   22 be=96:rem back edge of lane
   24 pn=81:rem pin
   28 dimc$(4):fori=1to4:readc$(i):nexti
   30 data1st,2nd,3rd,4th
   32 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   34 p$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   40 goto2000
   50 x$="{CBM-D}":ifr=1thengosub500:x$=" "
   55 printleft$(v$,14)"{rght}{rght}{rght}{rght}frame"f"  "c$(p)" player's turn"
   56 print"{up}"p$x$
   60 gosub1000:a=32*1024+22*40+4:s=1:d=1:np=0:lb=0:rb=0
  110 d=1:ifpeek(q)=10andnp<7thend=-e:pokea+c,b
  150 t=a+d:x=peek(t):ifx=beorx=legoto300
  160 ifx=pnthenlb=t
  180 ifpeek(t+c)=pnthenrb=t+c
  190 ifpeek(t-1)=pnthenlb=t-1
  200 ifpeek(t+e)=pnthenrb=t+e
  220 pokea-1,b:pokea+e,b:a=t:pokea-1,lr:pokea+e,rr:pokea+c,rf:pokea,lf
  230 iflb+rb=0goto110
  240 x=.92+.3*(d=1)+.2*(r=2):iflb=0goto270
  250 np=np+1:lb=lb-e:ifpeek(lb)<>pnorrnd(1)>xthenlb=0:goto270
  260 pokelb,b
  270 ifrb=0goto230
  280 np=np+1:rb=rb+41:ifpeek(rb)<>pnorrnd(1)>xthenrb=0:goto230
  290 pokerb,b:goto230
  300 pokea-1,b:pokea+39,b:pokea+40,b:pokea,b:print"{home}":return
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printspc(4);:fori=5to40:print"{CBM-@}";:nexti
  401 rem the last space printed by lines 402-408 is shifted
  402 printspc(39)"{$a0}";:printspc(39)"{$a0}";
  403 print"  N"spc(36)"{$a0}";
  404 print" {rvon}{SHIFT-POUND}{CBM-*}{rvof}"spc(36)"{$a0}";
  405 print" {rvon}UI{rvof}"spc(36)"{$a0}";
  406 print" {rvon}JK{rvof}"spc(36)"{$a0}";
  407 print" {CBM-*}{SHIFT-POUND}"spc(36)"{$a0}";
  408 print"  M"spc(36)"{$a0}";:printspc(39)"{$a0}";
  420 printspc(4);:fori=5to39:print"{CBM-T}";:nexti:print"{home}":poke32*1024+999,re:return
  500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printspc(38);
  510 print"Q{down}{left}{left}Q{down}{left}{left}Q Q{down}{left}{left}{left}{left}Q Q{down}{left}{left}Q Q{down}{left}{left}Q{down}Q":return
  600 x$=mid$(str$(np),2,1):ifnp=0thenx$="-"
  610 ifrd>1thenx$="{rvon}"+x$
  620 printleft$(v$,3*(p-1)+2)left$(p$,p(fd)+rd)x$:return
  650 y$=mid$(str$(s(p,fd)),2)
  660 iflen(y$)<2-(fd>3)theny$=" "+y$:goto660
  670 printleft$(v$,3*(p-1)+3)left$(p$,p(fd)-((fd<4)or(fd>9)))y$:return
  800 print"{clr} {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}";
  805 fori=1to4
  810 ifi>1thenprint" {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}";
  820 printmid$(str$(i),2,1);
  822 print"{SHIFT--} {rvon} {rvof}{SHIFT--} {rvon} {rvof}{SHIFT--} {rvon} {rvof}{SHIFT--}  {rvon} {rvof}{SHIFT--}  {rvon} {rvof}{SHIFT--}  {rvon} {rvof}{SHIFT--}  {rvon} {rvof}{SHIFT--}  {rvon} {rvof}{SHIFT--}  ";
  825 print"{rvon} {rvof}{SHIFT--} {rvon}   {rvof}{SHIFT--}";
  830 print" {SHIFT--}  {SHIFT--}  {SHIFT--}  {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}    {SHIFT--}";
  835 nexti
  840 print" {CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}";
  850 return
 1000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1010 print"UN {down}{left}{left}{left}JK"
 1015 ifpeek(q)<>255goto1015
 1016 ifpeek(q)=255goto1016
 1017 ifpeek(q)<>255goto1017
 1020 print"{up}{up} U{CBM-G}{down}{left}{left}{left} JK":fori=1to40:nexti
 1030 print"{up}{up}  MI{down}{left}{left}{left} JK":fori=1to30:nexti
 1040 print"{up}{up}  MUI{down}{left}{left}{left}{left}  JK":fori=1to20:nexti
 1050 return
 2000 dims(4,10),p(10):fori=1to10:readp(i):nexti:gosub10000
 2010 data1,4,7,11,15,19,23,27,31,34
 2020 gosub800:gosub400
 2030 forf=1to10:forp=1tomp
 2040 r=1:gosub50:n1=np:ifs(p,f-1)<>-1goto2060
 2050 s(p,f-1)=s(p,f-2)+10+np:fd=f-1:gosub650
 2060 ifs(p,f-1)<>-2goto2090
 2070 ifs(p,f-2)<>-2goto2090
 2080 s(p,f-2)=s(p,f-3)+20+np:fd=f-2:gosub650
 2090 ifnp=10goto2170
 2100 rd=1:fd=f:gosub600:r=2:gosub50
 2110 ifs(p,f-1)<>-2goto2130
 2120 s(p,f-1)=s(p,f-2)+10+n1+np:fd=f-1:gosub650
 2130 ifn1+np=10goto2160
 2140 rd=2:fd=f:gosub600:s(p,f)=s(p,f-1)+n1+np
 2150 gosub650:goto2180
 2160 rd=2:fd=f:x$="N":gosub610:s(p,f)=-1:gosub2500:goto2180
 2170 rd=2:fd=f:x$="V":gosub610:s(p,f)=-2:gosub2540
 2180 fori=1to1000:nexti:nextp:nextf
 2185 getx$:ifx$<>""goto2185
 2190 printleft$(v$,15):input"another game";x$:ifleft$(x$,1)="n"thenend
 2200 run
 2500 iff<10thenreturn
 2510 r=1:gosub50:rd=3:fd=f:ifnp<10thengosub600
 2520 ifnp=10thenx$="V":gosub610
 2530 s(p,f)=s(p,f-1)+10+np:gosub650:return
 2540 iff<10thenreturn
 2550 r=1:gosub50:n1=np:ifs(p,f-1)<>-2goto2570
 2560 s(p,f-1)=s(p,f-2)+20+np:fd=f-1:gosub650
 2570 s(p,f)=s(p,f-1)+10+np:rd=3:fd=f:ifnp=10goto2600
 2580 gosub600:r=2:gosub50:rd=4:ifn1+np<10thengosub600
 2590 ifn1+np=10thenx$="N":gosub610
 2595 s(p,f)=s(p,f)+np:gosub650:return
 2600 x$="V":gosub610:r=1:gosub50:rd=4:ifnp<10thengosub600
 2610 ifnp=10thenx$="V":gosub610
 2620 s(p,f)=s(p,f)+np:gosub650:return
 10000 print"{clr}":print"microcomputer games inc. presents...."
 10010 printspc(8)"{down}{down}{down}*** b o w l i n g ***"
 10020 print"{down}{down}{down}(c) the avalon hill game company 1982."
 10023 print tab(9)"all rights reserved"
 10025 print"computer program & audio visual display copyrighted."
 10030 print"{down}{down}the ball is rolled by pressing and"
 10040 print"releasing the '0' key; pressing the"
 10050 print"'0' key again will cause the ball to"
 10060 print"curve to the left."
 10070 print
 10080 input"how many want to play";mp:ifmp<1thenend
 10090 ifmp>4thenprint"too many":goto10080
 10100 return
    0 clr:poke59468,12
    1 rem box copyright(c)1979 howard arrington
    2 rem cursor #6, january, 1979
    3 rem box 550, goleta, ca. 93017
   10 rem as of 9 mar 80
   90 gosub62000
  100 diml(32):fori=1to32:readl(i):nexti
  105 data0,40,80,120,160,200,240,280,485
  110 data487,489,491,493,495,497,499
  115 data305,265,225,185,145,105,65,25,-181,-183,-185,-187,-189,-191,-193,-195
  125 deffnr(z)=int(8*rnd(1)+1)
  135 cr$=chr$(13):a=33015:rem was 33135
  140 pr$="how many atoms? ":gosub4000:ifin$<>""thenn=in:goto150
  145 print"i'll assume five atoms.":n=5
  150 k=0:ha=n:s=0:w$="                        "
  151 h$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  155 rs=22*40+32768
  160 ifn<1then3500
  161 ifn>16then140
  165 forj=0to9:fori=0to9:b(i,j)=0:nexti:nextj
  175 fori=1ton
  180 x=fnr(1):y=fnr(1)
  185 ifb(x,y)<>0then180
  190 b(x,y)=1:nexti
  195 gosub1000
  200 gosub2000:ifk<>zthenr=k:k=z:z=r:gosub2000
  201 printh$
  205 pr$="{up}which ray position? ":gosub4000:ifin$=""thenin=-1
  206 printw$:r=in:k=r:ifr<1then3000
  207 printw$;"{up}"
  208 ifr>32then201
  210 on(r-1)/8+1goto250,260,270,280
  220 print"error                ":goto200
  250 x=0:y=r:u=1:v=0:goto300
  260 x=r-8:y=9:u=0:v=-1:goto300
  270 x=9:y=25-r:u=-1:v=0:goto300
  280 x=33-r:y=0:u=0:v=1
  300 x1=x+u:y1=y+v
  310 ifu=0thenx2=x1-1:x3=x1+1:y2=y1:y3=y1:goto330
  320 y2=y1-1:y3=y1+1:x2=x1:x3=x1
  330 on8*sgn(b(x1,y1))+sgn(b(x2,y2))+2*sgn(b(x3,y3))+1goto400,410,420,410
  340 s=s+1:print"hit       ":z=k:goto200
  400 x=x1:y=y1:goto500
  410 z=1:goto450
  420 z=-1
  450 ifu=0thenu=z:v=0:goto500
  460 u=0:v=z
  500 on(x+15)/8goto550,520,560
  510 stop
  520 on(y+15)/8goto570,300,580
  530 stop
  550 z=y:goto600
  560 z=25-y:goto600
  570 z=33-x:goto600
  580 z=8+x
  600 ifz=rthenprint"reflection":s=s+1:goto200
  610 s=s+2:print"to";z;"{left}      ":goto200
  700 a=a-36:d1=87
  710 forj=1to8:fori=1to8
  720 ifb(i,j)<>1then740
  730 t=a+i*2+j*40:poket,d1
  740 nexti:nextj
  750 printh$;w$
  760 printw$:printw$;"{up}{up}{up}":goto135
 1000 print"{clr}{down}{down}{down}             3 3 3 2 2 2 2 2"
 1020 printtab(13);"2 1 0 9 8 7 6 5"
 1030 printtab(12);"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 1040 fori=1to8
 1050 print"         ";right$(str$(i),2);" {SHIFT--}. . . . . . . .{SHIFT--} ";
 1055 printright$(str$(25-i),2)
 1060 nexti
 1070 printtab(12);"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 1080 printtab(13);"  1 1 1 1 1 1 1"
 1090 printtab(13);"9 0 1 2 3 4 5 6"
 1100 return
 2000 print"{home}{down}{down}score:";s;"{left}  "
 2005 ifk=0thenreturn
 2010 x=peek(rs):zz=l(k)+a
 2020 ifx=20thenx$=right$(str$(z),2):goto2100
 2030 pokezz+1,x:return
 2100 d1=asc(mid$(x$,1,1)):d2=asc(mid$(x$,2,1))
 2105 ifk>8then2140
 2110 pokezz,d1:pokezz+1,d2:return
 2140 ifk>16then2200
 2148 ifd1=32thend1=d2:d2=32
 2150 pokezz+1,d1:pokezz+41,d2:return
 2200 ifk>24then2300
 2208 ifd1=32thend1=d2:d2=32
 2210 pokezz+1,d1:pokezz+2,d2:return
 2300 pokezz-39,d1:pokezz+1,d2:return
 3000 ifr=0then700
 3005 printh$;w$
 3006 printw$:printw$:printw$;"{up}{up}{up}"
 3010 pr$="{up}which row? ":gosub4000:ifin$=""thenprint:goto3060
 3012 i=in:ifi>16andi<25theni=25-i
 3015 ifi<1ori>8then3010
 3016 print
 3020 pr$="{up}which column? ":gosub4000:ifin$=""then3060
 3021 j=in:ifj>8andj<17thenj=41-j
 3025 ifj<25orj>32then3020
 3030 j=33-j
 3035 ifj<1orj>8then3010
 3040 ifb(j,i)=1thenpokea-36+j*2+i*40,81:b(j,i)=2:ha=ha-1:goto3060
 3045 ifb(j,i)<>0thenprint"that one again???{up}":goto3055
 3050 print"wrong!!!{up}":s=s+5
 3055 fori=0to1500:nexti
 3060 print"{up}{up}";w$:printw$:printw$
 3065 ifha=0then700
 3070 k=0:z=0:goto200
 3500 print"{clr}{down}{down}{down}{down}thanks for playing.":end
 4000 printpr$;:gosub60000:ifin$=""thenreturn
 4010 forz=1tolen(in$):t$=mid$(in$,z,1)
 4020 ift$<"0"ort$>"9"thenprint"no ";t$;"'s please.":goto4000
 4030 nextz:in=val(in$):return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20):print"   {left}{left}{left}";
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #6";nm$;"  (c) 1979    page";pn;"{down}"
 60265 gosub60500
 60270 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}"; tab(9);"cursor #6  box
 62010 print"{down}copyright (c) 1979  by howard arrington
 62013 gosub 60500
 62015 print "{down}{down}find the hidden atoms{down}"
 62020 print"{down}want instructions? ";:gosub60000:ifleft$(in$,1)="y"then62040
 62030 print"{clr}":return
 62040 pg$="box":lp=4:gosub60200
 62100 print"you will shortly see an 8x8 box in
 62110 print"which several atoms are hidden. your
 62120 print"task is to find the atoms. you have at
 62130 print"your disposal a ray projecter, which
 62140 print"you can use to send rays into the box
 62150 print"from any of 32 spots along the sides
 62160 print"of the box.
 62165 print"{down}any given ray can meet one of three
 62170 print"fates: it may hit an atom, and be
 62180 print"absorbed; it may be reflected, and come
 62190 print"out where it went in; or it may be
 62200 print"diverted and come out somewhere else."
 62210 print"you will be told what happens, and"
 62220 print"where the ray comes out (if it does)."
 62230 print"{down}on the next page, you'll see the rules
 62235 print"controlling the path of a ray.
 62240 gosub60200
 62250 print"{down}1: a{$a0}ray that hits an atom dead on is
 62260 print"   absorbed, and never comes out.  {SHIFT--} {SHIFT--}
 62265 printtab(34);"{SHIFT-*}{CBM-X} {CBM-Z}{SHIFT-*}
 62270 print"2: a ray that hits an atom to one   o
 62280 print"   side is diverted 90 degress to {SHIFT-*}{CBM-S} {CBM-A}{SHIFT-*}
 62290 print"   that side.";tab(35);"{SHIFT--} {SHIFT--}
 62300 print"{down}3: a ray that passes between two  o  o
 62310 print"   atoms one square apart is re-   {CBM-A}{CBM-S}
 62315 print"   flected, and retraces its path. {SHIFT--}{SHIFT--}
 62320 print"{down}4: a ray that enters alongside  o{CBM-A}{CBM-S}"
 62330 print"   an atom is reflected.         {SHIFT--}{SHIFT--}
 62340 print"{down}5: at all other times a ray follows a
 62350 print"   straight path.
 62360 gosub60200
 62370 print"the places you can send in a ray are
 62380 print"numbered from{rght}1 to{$a0}32. to send a ray
 62390 print"in, type the number of the place you
 62400 print"want it to enter at. it will start out
 62410 print"travelling vertically or sideways,
 62420 print"depending on which side it starts at.
 62430 print"{down}you will be told whether the ray hits"
 62440 print"an atom,{$a0}is reflected, or comes out."
 62450 print"should it come out, you'll be told
 62460 print"where.  to give up (and find out where
 62470 print"those lousy atoms were), type a 0
 62480 print"(zero) as the ray entrance. to guess
 62490 print"an atom's location, just hit {rvon}return{rvof}.
 62500 gosub60200
 62510 print"you are given a score according to how
 62520 print"well you do. for each ray that goes in
 62530 print"you get one point. if it comes out
 62540 print"again,{$a0}you get another point. for each
 62550 print"wrong guess you make, you get five
 62560 print"points.  a low score indicates high"
 62570 print"skill."
 62580 print"{down}a final note: those of you with the"
 62590 print"parker brothers version of black box"
 62600 print"should have no problem{$a0}using it with"
 62610 print"this program, as the rules set forth"
 62620 print"in their booklet are followed exactly."
 62630 print"{down}{down}      have fun!!{down}{down}"
 62640 gosub60200
    0 rem press 1,2 or 3 to move paddle (4,5 or 6 for fast move).
    1 pm=0
    2 rem:  breakout.2  program originally made by ???
    3 rem:  bug fixed lines 6-50,236 to correct 4,6 key paddle moves
    4 rem:  fixed by david mrotek. 3/23/78     12:29 am
    5 sc=0:bl=9:pp=17:bd=41:bp=33227:s=32768:pm=0
    6 a$="  {CBM-L}":b$="{CBM-J}"
   10 print"{clr}{down}{down}{down}"
   15 print"   ";:for n=1 to 32:print"{rvon} {rvof}";:next n :print" "
   16 print"   ";:for n=1 to 32:print"{rvon} {rvof}";:next n :print" "
   25 print"   ";:for n=1 to 32:print"{CBM-+}"  ;:next n :print" "
   26 print"   ";:for n=1 to 32:print"{CBM-+}"  ;:next n :print" "
   35 print"   ";:for n=1 to 32:print"{rvon} {rvof}";:next n :print" "
   36 print"   ";:for n=1 to 32:print"{rvon} {rvof}";:next n :print" "
   45 print"{home}";
   46 print"  {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
   48 for n=1to 23
   49 print a$ ;:print tab(35);b$
   50 next n
   60 print"{home}";tab(5);"score=";sc
   65 print"{home}";tab(20);"balls left=";bl
   70 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   75 printtab(pp);" {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} ";
  100 rem main routine
  101 gosub 200 : rem move paddle
  103 bp=bp+bd
  104 if bp>33767goto 135
  107 pk=peek(bp)
  109 if pk=32 then kk=1
  110 if pk= 96 then kk=1
  111 if kk=1 goto 114
  112 gosub 300:rem bounce
  113 if peek(bp)<>32 goto 103
  114 kk=0
  115 poke bo ,32
  121 poke bp,81
  122 bo =bp
  125 gosub 200:rem move paddle
  130 goto 100
  135 bl=bl-1
  137 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";"balls left=";bl
  138 poke bo,32
  140 if bl<= 0goto 800
  141 tim$="000000"
  142 gosub 200
  143 if ti<100 goto 142
  145 bp=33170+int(20*rnd(1)+1)
  150 bd=39+2*int(rnd(1)+.5)
  155 goto 100
  200 get d$:if d$="" then ab=1:if ab=1 goto 220
  205 if d$="1" then pm=-1
  206 if d$="4" then pm=-2
  210 if d$="3" then pm=+1
  211 if d$="6" then pm=2
  212 if d$="5" then pm=0
  215 if d$="2" then pm=0
  216 ab=0
  220 pp=pp+pm
  225 ifpp<=0 then pp=0
  230 if pp>=30 then pp=30
  235 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  236 printtab(pp)"  O{CBM-T}{CBM-T}P  ";
  240 return
  300 sc=sc+1
  320 if pk=118 goto 340 rem lt side
  324 if pk=117 goto 360 rem rt side
  334 if pk=79 goto 390 rem paddle
  335 if pk=99 goto 390
  336 if pk=80 goto 390
  339 goto376  rem top or points
  340 if bd<0 goto 350
  345 bd=41:bp=bo  :goto450
  350 bd=-39:bp=bo  :goto450
  360 if bd<0 goto370
  365 bd=39:bp=bo  :goto450
  370 bd=-41:bp=bo  :goto450
  376 if pk=160 goto405
  377 sc=sc+10
  378 ifpk=102 goto 405
  379 if bd=-41 goto 385
  380 bd=41:bp=bo   :goto450
  385 bd=39:bp=bo   : goto450
  390 if pk=79 goto 401
  391 if pk=80 goto 402
  393 if bd=39 goto 400
  395 bd=-39:bp=bo   :goto450
  400 bd=-41:bp=bo   :goto450
  401 bd=-41:bp=bo   :goto 450
  402 bd=-39:bp=bo   :goto 450
  405 sc=sc+10
  410 if bd=-39 goto 420
  411 if bd=-41 goto 425
  412 if bd=39 goto 430
  413 bd=-39
  414 poke bp,32
  415 poke bp-1,32:bp=bo
  416 goto 450
  417 goto 450
  420 bd=41
  421 poke bp,32
  422 poke bp-1,32:bp=bo
  424 goto 450
  425 bd=39
  426 poke bp,32
  427 poke bp+1,32:bp=bo
  428 goto 450
  430 bd=-41
  431 poke bp,32
  432 poke bp+1,32:bp=bo
  434 goto 450
  450 print"{home}{rght}{rght}{rght}{rght}{rght}score=";sc
  455 return
  800 get a$:get a$:get a$
  802 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(12);"play again?";:input y$
  805 if left$(y$,1)="y" goto 5
  810 end
    0 clr:pg$="break":nm$="30":goto62000
    1 " georg feil
    2 " 1542-b beaverpond dr.
    3 " ottawa, ont. canada k1b 3r9
    4 "
    5 " cursor #30, april, 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 82 jun 1
   11 j=rnd(-ti):ml=4186
   15 ifpeek(50000)thenpokeml+6,151:pokeml+7,0
   16 ifffthenpokeml+4,54:pokeml+3,52
   18 print"{clr}"
   33 wp=1:po$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
   35 e$="{rght}":fork=1to38:e$=e$+" ":next:print"{clr}
  100 dimb$(3,1):s=59464:pokes+3,16:pokes+2,15:pokes,0
  101 gosub105:printpo$e$:goto300
  105 restore:forv=1to3:fork=0to1:readb$(v,k):next:next:ifngthen250
  200 print"{CBM-D}";:fork=1to38:print"{CBM-I}";:next:poke32847,123
  210 print:fork=1to22:print"{rvon}{CBM-K}{rvof}"spc(37)"{CBM-K}{left}{inst}":next
  230 print"{rvon}{CBM-K}{rvof}";:poke33767,97:fork=33768to33809:pokek,96:nextk
  250 print"{home}{down}{down}{down}{down}{down}":forv=1to9:z=(v-1)/3+1:y=(v/2=int(v/2))
  260 f=1-f:print"{rght}"mid$(b$(z,f),3+y*2,4)"{rvof}";
  270 fork=1to18:f=1-f:printmid$(b$(z,f),1,4)"{rvof}";:next
  280 f=1-f:printmid$(b$(z,f),5+(noty)*4,2)"{rvof}":ifv=5orv=2thenv=v+1
  290 next:return
  300 lm=5:nx=lm-1:nb=0:poke640,6:rem\len of paddle;lm=balls/game
  305 ifng=0thenpoke705,210
  310 fork=1to3:poke816-2*k,k:poke817-2*k,k:next
  317 print"{home}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}score 0     ":gosub500
  320 restore:fork=1to6:readu$:next:fork=820to824step2:readv:pokek,v:pokek+1,v:next
  325 poke663,128:poke664,152:rem\sounds
  330 poke661,5:rem\len of tone
  335 poke642,2:poke716,1:rem\paddle speeds
  342 fork=801to806:readv:pokek,v:next
  344 z=232:k=peek(705)+131*256:fork=ktok+peek(640)-1:pokek,z:next
  345 poke700,0:poke701,0:poke702,0
  346 z=25:y=peek(640)/2:poke750+y,0:fork=1toy:a=(k/y)*z
  347 pokek+y+750+(y=int(y)),a:pokey+750-k,a+128:next:rem\z=paddle control
  348 poke656,3:rem\randomness
  349 poke707,0:poke708,0:poke709,137:poke710,0
  350 z=int(rnd(1)*91)+45:poke635,z/256:poke634,z-int(z/256)*256:ifz>70andz<110then350
  364 getu$:ifu$<>""then364
  365 printpo$e$:print"{up}"spc(10)"hit any key to serve"
  366 getu$:ifu$=""then366
  367 ifu$="q"then550
  368 printpo$e$:poke655,32:poke652,1:poke651,4:poke642,2
  369 z=int(rnd(1)*38)+33289:poke89,z/256:poke88,z-int(z/256)*256
  370 nb=nb+1:gosub500
  371 poke650,0:poke1,0:poke641,0:poke660,0:poke654,0:poke715,1:sysml
  375 ifpeek(715)=1thenpokes,210
  380 k=peek(655):z=peek(88)+peek(89)*256:wait59456,32,32:pokez,k
  381 ifpeek(715)then388
  382 lm=lm+nx:gosub500:ng=1:zc=2
  383 printpo$"{rght}{rght}{rght}{rght}{rvon}wow{rvof}!! you got 'em all";:ifnx<3thenprint" again";
  384 print"!!!":ifnxthenprint"{rght}{rght}{rght}{rght}-that deserves"nx"extra ball.";:ifnx-1thenprint"{left}s.";
  385 print"{up}":forv=1to35step.5:print"{up}{rght}{rght}{rght}{rght}"mid$("{rvon}{rvof}",zc,1)"wow":zc=3-zc:pokes+2,v
  386 fork=262-v*7to85-v*2step-4:pokes,k:next:pokes,0:next:nx=nx+1*(nx>0)
  387 pokes+2,15:printpo$e$:printe$:gosub105:goto349
  388 fork=1to400:next:pokes,0
  389 ifnb<lmthen350
  472 getu$:ifu$<>""then472
  475 printpo$"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}play again?";
  477 getin$:ifin$=""then477
  478 ifin$="n"then550
  480 wp=1:ng=0:print"{clr}":goto101
  500 print"{home}";tab(32);right$(str$(lm-nb),2);" left":return
  550 pokes+3,0:print"{clr}":end
  600 data"{rvon}L{rvon}{SHIFT-@}","{rvon}L{rvon}{SHIFT-@}","{rvon}{CBM-+}{rvof}{CBM-+}","{rvof}{CBM-+}{rvon}{CBM-+}","{rvon}O{rvon}P","{rvon}O{rvon}P",110,90,70
  610 data207,208,102,230,204,250
  999 forx=0to255:poke33728,x:print,x:next
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 print"{home}{$a0}";chr$(150):ff=1:ifpeek(crt)=96thenff=0
 60420 goto11
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by georg feil
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}how many bricks can you break?
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin";
 62090 getin$:ifin$=""then62090
 62100 goto60300
   10 print chr$(14);"{clr}";tab(36);"Breakout"
   20 print"{down}No fancy intro screen this time"
   30 print"{down}Senil Data Systems brings to you the most boring implementation of the"
   40 print"famous Breakout game."
   50 print"{down}Controls are:"
   60 print"{down}Left{ensh}{left}{left}{left}{left}{left}Right"
   70 print"OFF{ensh}{left}{left}{left}CLR"
   80 print"RVS{ensh}{left}{left}{left}{left}HOME"
   90 print"{down}Press a key when ready - there will be no score"
   95 rem it is my first video game that uses text mode
  100 get a$:if a$=""then 100
  110 print"{clr}"
  120 for t=32768 to 33246 step 2
  130 poke t,224:poke t+1,231
  135 rem 224 is identical to 160, but lets me distinguish the paddle
  140 next t
  150 bx=20:by=10
  160 pp=36
  170 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  180 dx=1:dy=1
  190 poke 59467,16:poke 59466,15:poke 59464,0
  200 print tab(pp);"  {rvon}      {rvof}  {left}{left}{ensh}{rght}{up}";
  210 if peek(151)=18 then pp=pp-2
  220 if peek(151)=19  then pp=pp+2
  230 if pp=-2 then pp=0
  240 if pp=72 then pp=70
  250 poke 32768+bx+80*by, 32
  260 bx=bx+dx:by=by+dy
  270 if peek(32768+bx+80*by)=160 then goto 315
  280 if bx=0 or peek(32767+bx+80*by)<>32 then dx=1:poke 59464,88
  290 if bx=79 or peek(32769+bx+80*by)<>32 then dx=-1:poke 59464,88
  300 if peek(32768+bx+80*by)=231 then dy=1:poke 59464,69:poke32767+bx+80*by,32
  305 if peek(32768+bx+80*by)=224 then dy=1:poke 59464,69:poke32769+bx+80*by,32
  310 if peek(32768+bx+80*by)<>160 then goto 340
  315 dy=-1:poke 59464,118
  320 if peek(32766+bx+80*by)=32 then dx=-1
  330 if peek(32770+bx+80*by)=32 then dx=1
  340 if by>24 then goto 1000
  350 poke 32768+bx+80*by, 79
  355 poke 59464,0
  356 if by=0 then dy=1
  360 goto 200
 1000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(35);"Game Over"
 1010 poke 59467,0
   10 sys(1039)
    0 rem breakout 3.1 modified by hjsaal
    1 rem press 1 or 3 to move paddle
    5 sc=0:bl=9:pp=17:s=32768:pm=0
    6 a$=" {CBM-L}":b$="{CBM-J}"
   10 print"{clr}{down}{down}{down}"
   11 for i=1 to 6:c$=mid$("  {CBM-+}{CBM-+}  ",i,1)
   12 print"  ";:if i<3 or i>4 then print"{rvon}";
   15 for n=1 to 32:printc$;:next n
   17 print"{rvof} ":next i
   45 print"{home}";
   46 print" {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
   48 for n=1to 23
   49 print a$;:print tab(34);b$
   50 next n
   70 gosub 451:gosub 236:goto 145
  100 rem main routine
  101 gosub 200 : rem move paddle
  103 bp=bp+bd
  104 if bp>33767goto 135
  107 pk=peek(bp)
  109 if pk=32 or pk=96 then 115
  112 gosub 300:rem bounce
  113 if peek(bp)<>32 goto 103
  115 poke bo,32
  121 poke bp,81
  122 bo=bp
  125 gosub 200 : rem move paddle
  130 goto 100
  135 bl=bl-1
  137 gosub 451
  138 poke bo,32
  140 if bl<=0 goto 800
  141 tim$="000000"
  142 gosub200
  143 if ti<100 goto 142
  145 bp=33170+2*int(10*rnd(1)+1)+bl-2*int(bl/2):bo=bp
  150 bd=39+2*int(rnd(1)+.5)
  155 goto 100
  200 get d:if d=0 then 210
  205 pm=d-2: if abs(pm)>1 then pm=0:return
  210 if peek(515)=255 then pm=0:return
  220 pp=pp+pm
  225 if pp<=0 then pp=0
  230 if pp>=30 then pp=30
  236 printtab(pp);" O{CBM-T}{CBM-T}P{$a0}";"{up}"
  240 return
  300 sc=sc+1
  320 if pk=118 or pk=117 then gosub 500:bd=-bd:goto 450
  334 if pk=79 then bd=-41:goto 450
  335 if pk=99 then bd=bd-80:goto 450
  336 if pk=80 then bd=-39:goto 450
  339 rem top or points
  376 if pk=160 goto405
  377 sc=sc+10
  378 if pk=102 goto 405
  380 gosub 500:goto 450
  405 sc=sc+10
  410 gosub 500
  430 poke bp,32
  450 bp=bo
  451 print"{home}{rght}{rght}{rght}{rght}{rght}score=";sc;tab(20);"balls left=";bl
  452 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  455 return
  500 bd=sgn(bd)*(abs(bd)-80):return
  800 for i=1 to 15:get a$:next
  802 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(12);"play again?";
  803 get y$: if y$="" then 803
  805 if left$(y$,1)="y" goto 5
  806 print:printtab(10);"thanks for playing"
  807 printtab(10);"come back again"
  810 end
 2020 rem**breakthrough
 2030 poke59468,12:print"{clr}         {rvon}breakthrough"
 2040 print"{down}{down}sie muessen so viele steine aus einer"
 2050 print"wand schlagen wie moeglich."
 2060 print"{down}{down}hierzu muessen sie einen ball mit"
 2070 print"einem schlaeger am unteren rand des"
 2080 print"bildschirms schlagen"
 2090 print"{down}{down}sie haben 7 minuten zeit fuer"
 2100 print"das spiel. wenn sie mehr als 750 punkte"
 2110 print"erreichen,dann duerfen sie nochmal"
 2120 print"spielen."
 2130 print"{down}{down}mit der taste /4/bewegen sie den"
 2140 print"schlaeger nach links.mit der taste "
 2150 print"/6/bewegen sie den schlaeger nach"
 2160 print"rechts"
 2170 gosub2780:print"{down}   {rvon}drueken sie irgendeine taste!";
 2180 get a$:ifa$=""then2180
 2190 rem**bildschirm aufbauen
 2200 print"{clr}";:s=33050+int(rnd(1)*37):ti$="000000":j=1:po=0
 2210 poke59468,12:print"{home}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}"
 2220 print"{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 2230 print"{rvon}***************************************"
 2240 print"{rvon}xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
 2250 form=32808to33728step40:poke m,229:pokem+39,231:next m
 2260 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}ball-nr.";j
 2270 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    punkte:";po
 2280 m=int(rnd(1)*2):b=39:ifm=1thenb=41
 2290 pokes,81:s=s+b:if s>32810then 2340                                   
 2300 rem**ecken pruefen
 2310 ifs=32768thens=32809:b=41:goto2290
 2320 ifs=32807thens=32846:b=39:goto2290
 2330 rem**zeit
 2340 ifti$>"000700"then 2600
 2350 print"{home}{down}{rght}zeit ";mid$(ti$,4,1);":";right$(ti$,2)
 2360 rem**schlaeger und ball bewegen
 2370 rem**wenn weg frei
 2380 sys826:ifs>33768then2490
 2390 if peek(s)=32thenpokes,81:pokes-b,32:s=s+b:sys826:goto2350
 2400 rem**was getroffen?
 2410 if peek(s)=229then2460
 2420 ifpeek(s)=231then2470
 2430 ifpeek(s)=226then2520
 2440 ifpeek(s)<>227then2550
 2450 s=s-b:pokes,32:b=80-abs(b):s=s+b:goto2340
 2460 s=s-b:pokes,32:b=b+2:s=s+b:goto2340
 2470 s=s-b:pokes,32:b=b-2:s=s+b:goto2340
 2480 rem**ball verloren
 2490 poke(s-b),32:forz=1to50:forz1=1to10:nextz1:sys826:nextz
 2500 j=j+1:s=33075+int(rnd(1)*5):goto2260
 2510 rem**ball schlagen
 2520 s=s-b:pokes,32:b=b-80:s=s+b:goto2340
 2530 rem**neue punktzahl
 2540 rem**ziel loeschen
 2550 poke(s-b),32:ifpeek(s)=102thenpo=po+5:ifb>0thenb=b-80:goto2570
 2560 ifb<0thenb=80+b
 2570 po=po+5:ifpo>=750then2600
 2580 pokes,81:print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    punkte:";po:s=s+b:goto2340
 2590 rem**ergebnisse
 2600 tm=60*val(left$(ti$,4))+val(right$(ti$,2))
 2610 form=32768to33767:pokem,160:nextm
 2620 poke59468,12:print"{clr}{down}zahl der baelle:";j
 2630 print"{down}benoetigte zeit:";tm;"sekunden"
 2640 print"{down}ihre punkte:";po
 2650 bf=int(((po+100)/j)*10)/10
 2660 print"{down}ihr durchbruch-faktor ist:";bf
 2670 ifpo>=750       then2730
 2680 rem**wiederholung
 2690 poke158,0:input"{$e5}{down}{rvon}wollen sie nochmal spielen{rvof}";a$
 2700 if left$(a$,1)="j"then2200
 2710 if left$(a$,1) <>"n"then print"{down}{rvon} ja oder nein eingeben! {up}{up}{up}{up}":goto2690
 2710 ifleft$(a$,1)<>"n"then printa oder nein eingeben!ononononon":{f2}2690
 2720 poke59468,12:print"{clr}{down}{down}{down}vielen dank fuers mitspielen!":end
 2730 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}    {rvof}sie gewinnen eine wiederholung!"
 2740 forrr=0to3000:nextrr:goto2200
 2750 rem**maschinenprogramm fuer die
 2760 rem**bewegung des schlaegers
 2780 restore:forit=826to891:read d:pokeit,d:next it:return
 2790 data165,151,201,41,240,7,201,42,240,16,76,94
 2800 data3,173,123,3,201,35,176,16,238,123,3,76
 2810 data94,3,173,123,3,201,2,144,3,206,123,3
 2820 data32,112,3,174,123,3,160,4,169,226,157,152
 2830 data131,232,136,208,249,96,162,38,169,32,157,152
 2840 data131,202,208,250,96,20
    0 clr:poke59468,12
    1 rem brick copyright (c) 1978 glen fisher
    2 rem cursor #1, july, 1978
    3 rem box 550, goleta, ca. 93116
    4 :
   10 rem as of 23march81
   90 pg$="brick":nm$="1":gosub62000
  100 r$=chr$(13)
  112 ms$="{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"+r$+"{rvon}{CBM-K}you blew it{rvof}{CBM-K}"+r$+"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
  113 wn=37
  114 print:print"{clr}";tab(wn+2);
  115 fori=0to23
  119 print"{left}{left}{down}";
  120 ifi<8ori>18thenprint"{rvon} {rvof}{CBM-G}";:goto140
  130 print"{CBM-G}{CBM-G}";
  140 nexti
  150 br$="{CBM-I}":vn=8+int(rnd(1)*14)
  200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  210 print"{CBM-I}";
  215 sp=5*rnd(1)
  220 fori=2town
  225 getc$:ifc$<>""then290
  230 print"{left} ";br$;
  240 j=sp+exp((wn-i+2)/8)/25+ti:ifi=wnthenj=ti
  250 ifti<jthen250
  260 :ifi=vnthenbr$=" "
  270 nexti
  275 getc$:ifc$=""then275
  280 i=wn+1:print" {up} {left}{down}{down} {left}{up}";
  290 print"{CBM-I}"
  300 pt=int(exp(i/6))*sgn(wn-i+.5):sc=sc+pt
  305 th=th+1
  310 ifi>wnthenprintms$
  315 ifi>wnthenzap=zap+1
  320 ifi<=wnthenprint"you made it!"
  325 print"you got";:ifpt<0thenprint" ";
  326 printpt;"points this throw."
  330 print
  355 print"after ";th;" throws, "
  360 print"your average is";:ifsc<0thenprint" ";
  365 printint(sc/th);"per throw."
  380 print
  400 print"again? ";
  410 getc$:ifc$=""then410
  420 ifc$="y"thenprint"yes":forz=1to200:nextz:goto100
  430 ifc$<>"n"thenprint"no"
  440 print"{clr}{down}{down}{down}{down}{down}{down}thanks for playing."
  445 print"{down}you broke the window";zap;"times"
  500 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 print"begin:";:goto60240
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #1  brick
 62010 print"{down}copyright (c) 1978  by glen fisher":gosub60500
 62020 print"{down}throw a brick at a window
 62030 print"{down}{down}want directions? ";:gosub60000
 62040 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62110 print"in this game, you throw bricks that
 62120 print"become invisible in mid-flight.
 62130 print
 62140 print"you try to stop the brick just before
 62150 print"it shatters the window. you stop the
 62160 print"brick by pressing the 'y' key.
 62170 gosub60200
    1 deffns(x)=int(x/13)
    2 dim s1$(8),z$(12),sl(3,3),j$(3,3),w(2),a%(52),d%(3,3),f%(3,3),e%(3,3),sp%(3)
    3 print"bridge    (c) 1978 george duisman":print"recording (p) 1978 petsoft
    4 input"what set of hands";se:forj=0to8:reads1$(j):next:se=se/93001
    5 data "A","S","Z","X",n,s,h,d,c
    6 dim z5(3):c8=.1415926
    7 forj=0to12:readz$(j):next:data a,k,q,j,10,9,8,7,6,5,4,3,2
    8 gosub9000
    9 print"what contract? ";:gosub4400:b$=p$
 2110 p$=mid$(b$,2,1)+"5":gosub8800:tr=s:ifx$="k5"then3800
 2160 ifx$="a5"then2490
 2170 iftr=9then9
 2190 iftr=4thengosub3000
 2200 l=3:fortt=1to13:gosub4000:ifz=52then2490
 2220 sw=twand1:w(sw)=w(sw)+1:l=tw:sp%(ts)=sp%(ts)+1:gosub9160:next tt:goto2500
 2490 tt=13:gosub9160
 2500 w(0)=0:w(1)=0:tt=0:ml=0:forj=0to3:sp%(j)=0:next:cl=0
 2900 input"want to play this hand again";x$:ifx$="load"thengosub3400:goto2970
 2910 ifleft$(x$,1)<>"n"goto2950
 2920 input"want to play another";x$:ifleft$(x$,1)="y"then8
 2940 end
 2950 input"want to play east-west";x$:ifleft$(x$,1)="y"thengosub3900
 2970 gosub9160:goto9
 3000 forj=0to3:s=sl(j,1)+sl(j,3):ifk<sthenk=s:ls=j
 3020 ifj<>lsands>6thensm=j
 3030 next:return
 3100 s2=ls:ifsl(s2,p)=0thens2=sm
 3105 ifsl(s2,p)=0then8000
 3110 goto7100
 3400 open5,1,0,"br":input#5,x:input#5,se:input#5,c:forj=0to51:input#5,a%(j)
 3410 next:close5:return
 3800 input"skip to what deal";l:ifl-2<xthen8
 3810 fork=1tol-x-1:x=x+1:fors=0to38:c=c+c8:nexts,k:goto8
 3900 forj=0to51:a%(j)=(a%(j)+1)and3:next:return
 4000 p=l:t=1
 4010 p1=pand1:on(p1+1)gosub4300,5000
 4025 ifz=52thenreturn
 4030 a%(z)=a%(z)+tt*16
 4040 on(p+1)gosub4380,4150,4380,4250
 4050 gosub8140:ift=4thenreturn
 4060 t=t+1:p=(p+1)and3:goto4010
 4150 print"rho plays "p$:return
 4250 print"lho plays "p$:return
 4300 ifcl=1goto4700
 4305 if(sl(ts,p)=1andt<>1)or(tt=13)then4700
 4310 ifp=2then4330
 4320 print"what play from {down}ummy? ";:gosub4400:goto4f40
 4228 {CTRL-P}print"what play from your hand? ";:gosub4400
 4340 gosub8800
 4350 ifz=54thengosub4800:goto4300
 4355 ifz=53thencl=1:goto4700
 4360 ifz=52thenreturn
 4370 gosub8300:ifll=0then4300
 4380 return
 4400 p$="":print"{rvon} {rvof}{left}";
 4410 geta$:ifa$=""then4410
 4420 ifasc(a$)=20andlen(p$)<2thenp$="":printa$;:goto4410
 4430 ifasc(a$)=20thenp$=left$(p$,len(p$)-1):printa$;:goto4410
 4440 ifasc(a$)=13thenprint" ":return
 4450 p$=p$+a$:printa$;"{rvon} {rvof}{left}";:goto4410
 4700 gosub4900:gosub8050
 4720 ifp=0thenprint"dummy plays "p$
 4730 ifp=2thenprint"hand plays "p$
 4740 return
 4800 iftt=1thenprint"no last trick.":return
 4810 forz=0to51:iftt-1=int(a%(z)/16)thenz5(a%(z)and15)=z
 4830 next
 4840 forj=0to3:z=z5(j):gosub8050:printp$;" ";:next:print:return
 4900 forz=0to51:ifa%(z)<>pthen4950
 4920 gosub8300:ifll=1thenreturn
 4950 next
 5000 tz=twand1
 5020 ift<>1then6000
 5030 iftr<>4then5100
 5033 s2=ls:ifsl(s2,p)=0thens2=sm:ifsl(s2,p)=0then3100
 5040 p1=p:gosub6850
 5050 iff>sl(s2,0)andf>=sl(s2,2)thenv=1:u=1:gosub6800:goto8050
 5060 k=f%(s2,p):ifk=3ork=7ork=15ork=14then6630
 5070 ifsl(s2,p)>3andsp%(s2)=0thenv=4:u=1:p1=p:gosub6800:goto8050
 5080 goto6630
 5100 k=0:s2=-1:fors=0to3:f=0:fl=0
 5120 s4=sl(s,p-1):s5=sl(s,3-p):s6=sl(s,p):s7=sl(s,4-p)
 5123 ifs6=0thenf=0:goto5400
 5130 f6=f%(s,p):f4=f%(s,p-1):f5=f%(s,3-p):f7=f%(s,4-p)
 5140 ifs=trthen5155
 5150 ifs7=0andsl(tr,4-p)>0ands4>0thenf=10:fl=(d%(s,p)=1):goto5400
 5155 iff6>23ands4>0ands5>0thenf=9.3:fl=2:goto5400
 5157 ifs6=1andtr<>sandsl(tr,p)>0andsp%(s)<2andf4<>20thenf=8:goto5400
 5160 iff4<f7ands4>0andf5<24andd%(s,p)<>1thenf=9:goto5400
 5165 iff4<2ands4>1andf5<24thenf=7:goto5400
 5170 ifs=trthen5400
 5180 ifs6=1andsl(tr,p)>0andsp%(s)=0andf6<>8thenf=7:goto5400
 5185 iff6=15orf6=14orf6=7thenf=6:fl=-1:goto5400
 5200 iff6<4ands6=2andsl(tr,p)>0andsp%(s)=0andf4<20thenf=5:fl=1:goto5400
 5205 if(s4=1andf6>f4)or(s5=1andf6>f5)thenf=3.5:fl=1:goto5400
 5210 iff7>f4thenf=4:goto5400
 5390 f=3
 5400 ifs=trthenf=f-4
 5405 iff>kthenk=f:s2=s:j=fl
 5410 nexts
 5420 fl=j:iffl=-1thenfl=1
 5430 ts=s2
 5440 iffl>0thenv=fl:u=1:p1=p:gosub6800:goto8050
 5450 goto6610
 6000 ifsl(ts,p)<>0then6100
 6010 iftr=4then6700
 6020 ift=4andtz=0then6500
 6025 ift=4then6700
 6030 ift=3thengosub6550:ifll=0andsl(tr,p)>0then6510
 6035 ift=3then6700
 6037 ifsl(ts,3-p)=0andsl(tr,3-p)>0then6700
 6040 goto6500
 6100 ift=4andtz=0then6400
 6105 ift=2then6200
 6110 ift=4andtz=1then6610
 6120 ift=3thengosub6550:ifll=1then6610
 6130 s2=ts:v=1:u=1:p1=p:gosub6800:ifth<zthen6610
 6133 ifsl(ts,3-p)=1thenu=-1:gosub6800
 6140 forj=13*ts to13*ts+12:ifa%(j)=pthenz=j
 6160 ifa%(j)=3-pthen8050
 6165 ifj=ththen8050
 6170 next:goto8050
 6200 f=f%(ts,p)+f%(ts,4-p):f4=z-fns(z)*13
 6205 if(f=5orf=10orf=11)andf4>1andf4<5thens2=ts:goto6630
 6210 ifsl(ts,0)>1andsl(ts,2)>1andsp%(ts)=0and(f%(ts,p)and24)=16then6390
 6215 ifsl(ts,3-p)=0thentx=ts*13+12:goto6410
 6220 p1=3-p:s2=ts:v=1:u=1:gosub6800:tx=z:ifth<txthentx=th
 6240 goto6410
 6390 s2=ts:goto6610
 6400 ifts<>fns(th)then6610
 6405 tx=th
 6410 forz=13*ts+12to13*ts step-1:ifa%(z)<>pthen6440
 6430 ifz<txthen8050
 6440 next:goto6610
 6500 if(twand1)=1orsl(tr,p)=0then6700
 6510 iffns(th)<>trthen6600
 6520 s2=tr:u=-1:p1=p:forj=1tosl(tr,p):v=j:gosub6800:ifz<ththen8050
 6540 nextj:goto6700
 6550 p1=3-p:p2=4-p:ll=0
 6552 ifts=trthen6560
 6555 iffns(th)=trthenll=1:return
 6560 iftz=0thenreturn
 6570 ifsl(ts,p1)=0thenll=1:return
 6575 p1=3-p:s2=ts:v=1:u=1:gosub6800:ifz<ththenreturn
 6590 ll=1:return
 6600 s2=tr:v=1:u=-1:p1=p:gosub6800:goto8050
 6610 s2=ts:v=1:u=-1:p1=p:gosub6800:goto8050
 6630 p1=p:v=1:u=1:gosub6800:goto8050
 6700 d1=0:s2=-1:fors=0to3:ifs=trthen6730
 6715 ifs=trthen6730
 6720 ife%(s,p)>d1thend1=e%(s,p):s2=s
 6730 next
 6740 ifs2<0thens2=int(4*rnd(1)):ifsl(s2,p)=0thens2=-1:goto6740
 6750 goto7100
 6800 z=s2*13-(u-1)*6:forg=1tov
 6815 ifz<0orz>51then8000
 6820 ifa%(z)=p1thenz=z+u:next:z=z-u:return
 6830 z=z+u:goto6820
 6850 s=31:k=f%(s2,p1):forj=0to5:f=5-j
 6870 ifs=kthenreturn
 6880 s=int(s/2):k=int(k/2):next
 7100 forz=s2*13+12tos2*13step-1:ifa%(z)=pthen8050
 7110 next:goto8050
 8000 z=int(52*rnd(1)):ifa%(z)<>pthen8000
 8010 gosub8300:ifll=0then8000
 8050 p$=s1$(fns(z))+z$(z-fns(z)*13):return
 8140 s1=fns(z):ift=1thents=s1:goto8180
 8160 gosub8200:ifll=0thenreturn
 8180 tw=p:th=z:return
 8200 ll=1:ft=fns(th):fz=fns(z)
 8205 if(fz=ft)andth<zthenll=0:return
 8210 iffz=trthenreturn
 8220 ifft=trthenll=0
 8230 iffz<>tsthenll=0
 8250 return
 8300 ifz>51thenll=0:return
 8310 ll=1:s1=fns(z):ifa%(z)<>pthenll=0
 8320 ift=1thenreturn
 8340 gosub8400:ifsc=0thenreturn
 8350 ifs1<>tsthenll=0
 8360 return
 8400 sc=sl(ts,p):return
 8800 x$=left$(p$,2):ifx$="cl"thenz=53:return
 8802 ifx$="la"thenz=54:return
 8804 ifx$="st"thenz=52:return
 8808 fors=0to8:ifs1$(s)=left$(p$,1)then8820
 8810 next
 8820 ifs>4ands<9thens=s-5
 8825 t$=mid$(p$,2,1):forz=0to 12
 8830 if left$(z$(z),1)=t$then 8850
 8840 next:z=55:return
 8850 z=z+s*13:ifz>51thenz=55
 8860 return
 9000 print"please wait":x=x+1:forj=0to51:a%(j)=0:next
 9015 s5=se+x/93047:ifse>0thens4=rnd(-s5)
 9040 fork=1to3:gosub9100:next
 9050 gosub9160:return
 9060 forj=0to3:fork=0to3:d%(k,j)=0:f%(k,j)=0:sl(k,j)=0:j$(k,j)=" ":nextk,j:return
 9100 forj=0to12:ifint(c)=int(c+.5)thenr=rnd(1)
 9120 r=int(rnd(1)*52):ifa%(r)>0then9120
 9140 a%(r)=k:c=c+c8:nextj:return
 9160 gosub9060:iftt=13thenforj=0to51:a%(j)=(a%(j)and7):next
 9180 forj=0to51:r=a%(j):ifs<>fns(j)thenf=0
 9200 s=fns(j):ifr>9then9240
 9210 f=f+1:j$(s,r)=j$(s,r)+z$(j-s*13)
 9220 sl(s,r)=sl(s,r)+1:f%(s,r)=f%(s,r)+2^(5-f):ifd%(s,r)=0thend%(s,r)=f
 9240 nextj
 9250 forj=1to3step2:fors=0to3
 9270 s4=sl(s,0):s5=sl(s,2):s6=sl(s,j):s7=sl(s,4-j):d6=d%(s,j)
 9290 ifs4<s6ands5<s6thene=10:goto9400
 9300 ifs6=1andd6=1and(s4>0ors5>0)thene=0:goto9400
 9305 ifs6=0thene=-1:goto9400
 9310 if(d6-s6)>2and(s6<s4ors6<s5)thene=9:goto9400
 9330 ifs6>s7and(s6=s5ors6=s4)ands6=1andd%(s,4-j)=1thene=1.5:goto9400
 9340 ifs6>s7and(s6=s5ors6=s4)thene=2:goto9400
 9350 ifs6=d6and(s6<=s4ors6<=s5)thene=0:goto9400
 9360 ifs6>d6thene=7:goto9400
 9370 ifs6=d6thene=6:goto9400
 9380 e=3
 9400 e%(s,j)=e:next s,j
 9420 print"{clr}deal #"x;:fork=0to2:ifk=1thenprint
 9460 f=12:iftt<>13thenf=18:ifk=1thennext
 9470 fors=0to3:ifk=1thenk=3:f=0:gosub9900:k=1:f=23
 9490 ifk<>0then9550
 9495 iftt=0then9550
 9500 ifs=1thenprint"bid= "b$;
 9510 ifs=2thenprint"you"w(0);
 9520 ifs=3thenprint"they"w(1);
 9550 gosub9900:print:nexts,k:return
 9900 printtab(f)s1$(s)j$(s,k);:return
    1 rem written by james c downer
    2 rem copyright copy only 2/6/79
    3 rem this program is intended
    4 rem to teach the bidding of bridge hands
    5 rem using winning contract bridge complete by edgar kaplan
    6 rem published by bantam in paperback @ $1.95
  100 data"X","x","Z","z","S","s","A","a"
  110 data"2","3","4","5","6","7","8","9","10","j","q","k","a"
  120 dimc(4,13),n$(13),s$(4),a$(4)
  130 dimh(14)
  140 deffns(x)=int(4*rnd(7))+1
  150 deffnn(x)=int(13*rnd(7))+1
  160 r=3
  170 print"{clr}   bridge bidding trainer"
  180 print"    by james c downer
  190 print"    based on'winning contract bidge"
  200 print  "              complete'"
  210 print"    by edgar kaplan"
  220 print"do you want instructions?"
  230 getss$:ifss$=""then230
  240 ifss$="y"then1660
  250 print"dealing"
  260 rem start
  270 fori=1to4
  280 reads$(i),a$(i)
  290 nexti
  300 fori=1to13
  310 readn$(i)
  320 nexti
  330 fori=1to4
  340 forj=1to13
  350 ifc(i,j)=0then400
  360 nextj
  370 nexti
  380 print"{clr}"
  390 goto760
  400 gosub420
  410 goto530
  420 rem
  430 n=fnn(x)
  440 s=fns(x)
  450 ifc(s,n)<>0then430
  460 c(s,n)=3
  470 return
  480 fors=1to4:forn=1to13
  490 ifc(s,n)=0then460
  500 nextn:nexts
  510 print"out of cards error"
  520 stop
  530 p9=p9+1
  540 c(s,n)=1
  550 gosub420
  560 c(s,n)=3
  570 rem deal&eval(comp)
  580 gosub420
  590 ifs<4then630
  600 c(s,n)=2
  610 gosub420:c(s,n)=3
  620 goto330
  630 ifn>9then680
  640 rem decline(comp)
  650 c(s,n)=3:gosub420
  660 c(s,n)=2
  670 goto330
  680 c(s,n)=2
  690 rem accept(comp)
  700 gosub420:c(s,n)=3
  710 goto330
  720 rem decline(human)
  730 c(s,n)=3:gosub420
  740 c(s,n)=1
  750 goto580
  760 gosub790
  770 goto1000
  780 rem printhand w/box
  790 print"{clr}":gosub980
  800 fori1=1to40:print"{CBM-@}";:nexti1
  810 fori1=1to14:print"{CBM-G}","{CBM-G}","{CBM-G}","{CBM-G}        {CBM-M}";:nexti1
  820 fori1=1to40:print"{CBM-T}";:nexti1
  830 print"{home}{down}{down}{rght}clubs","{rght}diamonds","{rght}hearts","{rght}spades"
  840 gosub870
  850 print
  860 return
  870 print"{home}{down}{down}{down}";
  880 forj1=1to13:fori1=1to4
  890 ifc(i1,j1)=1then920
  900 print,
  910 goto950
  920 print"{rght}";n$(j1);"    ";s$(i1),
  930 h(j1)=h(j1)+1
  940 s(i1)=s(i1)+1
  950 nexti1
  960 nextj1
  970 return
  980 print
  990 return
 1000 h8=0:h7=0
 1010 print"how many points do you have"
 1020 ss=0
 1021 l9=0
 1030 pp=h(13)*4+h(12)*3+h(11)*2+h(10)
 1040 forj9=1to4
 1050 ifs(j9)=0thenv=v+1
 1060 ifs(j9)=1thenss=ss+1
 1070 ifs(j9)=2thend=d+1
 1080 ifs(j9)>4thenl=l+s(j9)-4:l9=j9
 1090 nextj9
 1100 inputb1
 1110 pt=pp+v*3+ss*2+d+l
 1120 ifpt=b1thenprint"right":goto1240
 1130 print"wrong: here is the points";pt
 1140 print"aces  ";h(13),"void suits";v
 1150 print"kings ";h(12),"singleton ";ss
 1160 print"queens";h(11),"doubleton ";d
 1170 print"jacks{rght}";h(10),"long suits";l
 1180 getss$:ifss$=""then1180
 1190 gosub6000
 1240 print"what will you bid  ";
 1250 print"p=pass;n =no trump"
 1251 getss$:ifss$=""then1251
 1252 n$=ss$
 1253 ifn$="p"thenprint"pass   ";:goto1320
 1254 ifn$="n"then1380
 1261 ifss$="1"thenprint"1";
 1262 ifss$="2"thenprint"2";
 1263 ifss$="3"thenprint"3";
 1264 getss$:ifss$=""then1264
 1265 ifss$="a"thenprint"spade"
 1266 ifss$="s"thenprint"heart"
 1267 ifss$="z"thenprint"diamond"
 1268 ifss$="x"thenprint"club"
 1270 goto1530
 1280 ifn$="p"thenprint"pass   ";:goto1320
 1290 ifn$="n"then1380
 1295 ifpt>12andn$<>"p"then1300
 1296 print"i don't understand":goto1240
 1300 gets$:ifs$=""then1300
 1310 rem check for pass
 1315 goto1400
 1320 ifpt<13then1350
 1330 print"no you should have bid"
 1340 goto1240
 1350 print"you were right to pass"
 1360 goto1500
 1370 rem
 1380 rem no trump
 1381 print"  no trumps"
 1382 ifpt<16thenprint"no points too low":goto1240
 1384 print"how many tricks":inputnt
 1385 ifpt>15andpt<19andnt=1thenprint"right"
 1386 ifpt>21andpt<24andnt=2thenprint"right"
 1387 ifpt>24andpt<28andnt=3thenprint"right"
 1388 goto1390
 1389 print"wrong try again":goto1380
 1390 goto1530
 1400 rem longest suit highest rank
 1401 m8=0
 1410 ifl9<>0then1490
 1415 m9=s(1)
 1420 forg1=2to4
 1430 ifs(g1)<m9then1450
 1432 ifs(g1)=m9thenm8=m9
 1434 m9=s(g1)
 1440 rem
 1450 nextg1
 1460 rem
 1470 rem
 1480 rem
 1490 rem
 1500 rem pass now partner bids
 1501 rem
 1502 rem
 1503 rem
 1504 rem
 1505 rem
 1506 rem
 1507 rem
 1508 rem
 1509 rem
 1510 su=int(rnd(7)*4+1)
 1511 rem
 1512 rem
 1513 rem
 1514 rem
 1515 print"next player passes also"
 1516 rem
 1517 rem
 1518 rem
 1520 print"your partner bids 1";
 1522 ifsu=1thenprint"club"
 1524 ifsu=2thenprint"diamond"
 1526 ifsu=3thenprint"heart"
 1528 ifsu=4thenprint"spade"
 1529 print"what will you bid now?":goto4000
 1530 rem zero
 1540 fori=1to4
 1550 forj=1to13
 1560 c(i,j)=0
 1570 h(j)=0
 1580 nextj
 1590 s(i)=0
 1600 nexti
 1610 j=0:k=0:b2=0:t=0:t1=0:z=0:c=0:c1=0:b1=0:p9=0
 1620 l5=0:r=3
 1630 v=0:ss=0:d=0:l=0
 1640 print"{clr}okay, let's deal.{down}"
 1650 goto330
 1660 rem instructions
 1670 print
 1680 print"{clr}  point-count system"
 1690 print
 1700 print"high cards      short suits"
 1710 print"aces...4pts     void suit..3pts"
 1720 print"king...3,,      singleton..2,,"
 1730 print"queen..2,,      doubleton..1,,
 1740 print"jack...1,,
 1750 print"long suits:1pt for every card over four"
 1760 print
 1770 print"point ranger to remember"
 1780 print"13-16  mimimum opening"
 1790 print"17-19  strong    ,,"
 1800 print"20-21  maximum   ,,"
 1810 print"22-up  two bid"
 1820 print"16-18  1 no trump"
 1830 print"22-24  2 ,,  ,,"
 1840 print"25-27  3 ,,  ,,"
 1850 print"
 1860 print"press any key to continue"
 1870 getww$:ifww$=""then1870
 1890 rem bidding
 1900 print"{clr}
 1910 print"1.open only with 13 or more"
 1920 print"2.bid longest suit and the highestranking of equal suits"
 1930 print"3.with two 4 card suits bid the lowestranking"
 1940 print"4. with 3 4 suits bid one under sigleton"
 1950 print"5.open 1 no trump with 16 to 18 & even distribution"
 1960 print
 1970 getww$:ifww$=""then1970
 2000 print"{clr}   rules for responses to partner"
 2010 print
 2020 print"one in a new suit...6pts or more"
 2030 print"                    at least 4 cards"
 2040 print"two in a new suit...10pts or more"
 2050 print"                    at least 4 cards"
 2060 print"1 notrump...........6 to 9pts"
 2070 print"2 in partners suit..6 to 9pts"
 2080 print"2 notrumps..........13 to 15 pts"
 2090 print"3 in partners suit..13 to 16 pts"
 2100 print"jump to new suit....17 pts or more"
 2110 print
 2130 getww$:ifww$=""then2130
 2140 goto250
 4000 rem bid
 4010 getss$:ifss$=""then4010
 4012 ifss$="p"thenprint"pass"
 4014 ifpt<5andss$="p"thenprint"right to pass"
 4016 ifss$="1"thenprint"1";
 4017 ifss$="2"thenprint"2";
 4018 ifss$="3"thenprint"3";
 4020 getss$:ifss$=""then4020
 4022 ifss$="a"thenprint"spade"
 4023 ifss$="s"thenprint"heart"
 4024 ifss$="z"thenprint"diamond"
 4025 ifss$="x"thenprint"club"
 4999 goto1530
 6000 rem blanking routine
 6010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 6020 print"                                      "
 6030 print"                                      "
 6040 print"                                      "
 6050 print"                                      "
 6060 print"                                      "
 6061 print"                                      "
 6062 print"                                      "
 6070 print"{up}{up}{up}{up}{up}{up}{up}";
 6099 return
    0 poke59468,12
    1 gosub10000:print"{clr}"
    2 c=33077+(int(rnd(ti)*5))
    3 ti$="000000"
    5 r=33707:s=r+1:t=s+1:u=t+1
    6 poker,226:pokes,226:poket,226:pokeu,226
    7 pp=0
    8 j=1
    9 poke59468,12
   10 fora=32768to32807
   20 pokea,227
   30 nexta
   31 fora=32889to32927
   32 pokea,102
   33 nexta
   34 fora=32929to32967
   35 pokea,170
   36 nexta
   37 fora=32969to33007
   38 pokea,218
   39 nexta
   40 fora=32808to33728step40
   50 pokea,229
   55 pokea+39,231
   60 nexta
  100 print"{rght}ball no.";j;"{up}"
  101 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";"score ";pp;"{up}"
  102 a=int(rnd(ti)*1.9)
  110 ifa=0thenb=41
  120 ifa=1then100
  130 ifa=2thenb=39
  140 rem
  141 pokec,81
  145 ifpeek(c-b)=81thenpoke(c-b),32
  150 c=c+b
  151 ifc<>32768then153
  152 c=32809:b=41:goto140
  153 ifc<>32807then160
  154 c=32846:b=39:goto140
  160 ifpp=760then7200
  161 ifint(400-(ti/60))<>kkthen165
  162 kk=int(400-(ti/60))
  163 ifpeek(c)=227then990
  164 goto167
  165 printtab(34);"  ";"{up}"
  166 goto162
  167 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";"time to go     {left}{left}{left}{left}{left} ";kk;"{up}"
  168 ifval(ti$)>=640then7000
  170 ifpeek(c)=229then1040
  180 ifpeek(c)=231then1090
  190 ifc>33728then1140
  195 ifpeek(c)=226then1200
  196 ifpeek(c)<>32then5000
  200 geta$
  210 ifval(a$)=4thend=-1
  220 ifval(a$)=6thend=1
  230 ifval(a$)=5thend=0
  240 ifpeek(r+d)=229thend=0
  250 ifpeek(u+d)=231thend=0
  260 ifd=-1thenpokeu,32
  270 ifd=-1thenpoker-1,226
  280 ifd=1thenpoker,32
  290 ifd=1thenpokeu+1,226
  300 r=r+d:s=s+d:t=t+d:u=u+d
  310 goto141
  990 ifpeek(c-b)=81thenpoke(c-b),32
  995 c=c-b
 1000 ifb=-41thenb=39
 1010 ifb=-39thenb=41
 1015 c=c+p
 1020 goto160
 1040 ifpeek(c-b)=81thenpoke(c-b),32
 1045 c=c-b
 1050 ifb=-41thenb=-39
 1060 ifb=39thenb=41
 1065 c=c+b
 1070 goto160
 1090 ifpeek(c-b)=81thenpoke(c-b),32
 1095 c=c-b
 1100 ifb=41thenb=39
 1110 ifb=-39thenb=-41
 1115 c=c+b
 1120 goto160
 1140 rem
 1150 ifpeek(c-b)=81thenpoke(c-b),32
 1160 forz=1to500:nextz
 1165 j=j+1
 1167 c=33077+(int(rnd(ti)*5))
 1170 goto100
 1200 ifpeek(c-b)=81thenpoke(c-b),32
 1201 ifb=39thenb=-41
 1210 ifb=41thenb=-39
 1220 goto150
 5000 ifpeek(c)=102then6000
 5010 ifpeek(c-b)=81thenpoke(c-b),32
 5015 pokec,81
 5016 pp=pp+5
 5017 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";"score ";pp;"{up}"
 5020 ifb=-41thenb=39
 5030 ifb=-39thenb=41
 5040 c=c+b
 5050 goto160
 6000 ifpeek(c-b)=81thenpoke(c-b),32
 6001 ifb<>39then6003
 6002 b=-41:goto6010
 6003 ifb<>41then6005
 6004 b=-39:goto6010
 6005 ifb<>-41then6008
 6006 b=39
 6007 goto6010
 6008 b=41
 6010 pp=pp+10
 6011 pokec,81
 6015 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";"score ";pp;"{up}"
 6020 c=c+b
 6030 goto160
 7000 nn$="{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}":ll=400
 7001 poke59490,60
 7002 poke59409,52:print"{home}"
 7003 fora=1to25:printnn$;:next:print"{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{left}";:poke33767,127
 7004 poke59490,30
 7005 poke59409,60
 7006 fora=1to5000:next
 7070 print"{clr}"
 7080 print"balls used";j
 7090 print"time taken";ll;"seconds"
 7100 print"score is";pp
 7101 pp=(int(((pp+ll)/j)*10)/10)
 7102 print"your breakthru'factor is";pp
 7103 forrr=1to5000:nextrr
 7105 ifpp>100then7200
 7110 input"do you require a replay";a$
 7120 ifleft$(a$,1)="y"then1
 7130 end
 7200 print"{clr}you win a replay"
 7205 forrr=1to3000:nextrr
 7210 goto1
 10000 print"{clr}          ***breakthru'***"
 10010 print"             {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 10020 input"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}   {rght}want instructions";a$
 10030 ifleft$(a$,1)<>"y"thenreturn
 10035 poke59468,14
 10040 print"{clr}{rvon}     Instructions for {CBM-V}Breakthru'{CBM-C}      "
 10050 print"{down}{down}{rght}  The object of the game is to knock"
 10060 print"as many 'bricks' out of three 'walls'"
 10070 print"as possible."
 10080 print"{down}{rght}This happens when the 'ball' hits
 10090 print"the 'wall'."
 10100 print"{down}{rght}There is a time limit of 6.6 minutes."
 10110 print"{down}{rght}TO{$a0}MOVE{$a0}THE{$a0}'bat' :-{down}'4'=left
 10120 print"                     '6'=right
 10130 print"                     '5'=stop
 10140 print"{down}{down}{down}{rght}{rght}{rght}{rght}Press any key to start:"
 10150 geta$:ifa$=""then10150
 10155 poke59468,12
 10160 return
    0 clr:poke59468,12
    1 rem bship copyright (c) 1978 howard arrington
    2 rem 201 s. almon #9, moscow id 84843
    4 :
    8 rem cursor #5, nov/dec 78
    9 rem box 550, goleta, ca 93017
   10 rem as of 7 mar 80
   90 gosub 62000
  111 sb=45:dimsh%(3,7)
  112 fori=0to3:forj=1to7
  113 readsh%(i,j):nextj:nexti
  114 data30,4,29,60,92,96,89,0,2,10,11,12,20,22,0,9,11,21,29,31,40,0,1,10,12
  115 dimd(9),s$(4),l%(2,4,5),z%(4,6),e(9),b%(7)
  116 fori=1to9:reade(i):nexti
  117 data20,21,30,39,40,41,-1,0,1,-41,-40,-39
  120 fori=0to3:reads$(i):nexti
  130 data"submarine","patrol","cruiser","battleship"
  140 bl$="                                       "
  180 w(1)=1:w(2)=1:w(3)=2:w(4)=3
  185 forj=1to4:fork=1toj+1:z%(j,k)=sb:nextk:nextj
  190 fori=1to9:readd(i):nexti
  195 data9,10,11,-1,0,1,-11,-10,-9
  200 rem
  210 a=32930:p=22:l1=1:print:v(1)=7:v(2)=7:n=1
  262 print"your name: ";:gosub60000:n$(1)=in$
  264 n$(2)="captian pet"
  300 print"{clr}  0123456789  enter ship location using"
  303 printtab(17);"a two digit number":printtab(20);"<00 thru 99>"
  304 printtab(15);"in the format of row #":printtab(20);"and column #"
  306 printtab(14);"{down}for direction use the"
  308 printtab(14);"keys around the '5'."
  309 printtab(14);"{down}enter ";n$(1);"'s ships"
  310 gosub700:forj=1to4
  315 print:print s$(j-1);" of length";j+1
  340 tb=3:pr$="location":gosub8000:l%(1,j,1)=lc
  350 printtab(20);"direction: ";:gosub60000:iflen(in$)<>1then520
  351 ifin$<"1"orin$>"9"then520
  352 d=d(val(in$)):k=1:l1=5:gosub600:ifd=0thenk=2:goto500
  360 fork=2toj+1:l%(1,j,k)=l%(1,j,k-1)+d
  370 gosub600:ifd=0then500
  400 nextk:nextj:goto1600
  500 l=sb:for k=k-1 to 1 step -1
  510 gosub610:nextk
  520 print:print"{up}";bl$;"{up}":goto340
  600 rem
  605 l=asc(s$(j-1))-64
  610 j1=l%(1,j,k):k1=int(j1/10):j1=j1-k1*10
  612 ifl1=0andj1=9then640
  614 ifl1=9andj1=0then640
  620 l1=j1:b=a+k1*40+j1-120
  630 ifl=sborpeek(b)=sbthenpokeb,l:return
  640 d=0:return
  700 print"{home}{down} 0{left}{down}1{left}{down}2{left}{down}3{left}{down}4{left}{down}5{left}{down}6{left}{down}7{left}{down}8{left}{down}9"
  710 print"{home}{down} 0";:forj=1to10
  720 printtab(2);"----------":nextj
  730 return
 1000 l1=1:rem ** display grids
 1010 print"{clr}":b$="0123456789"
 1020 fortb=0to22step22
 1030 print"{home}"tab(tb);n$(tb/22+1):print
 1040 print tab(tb+2);b$:printtab(tb);" {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 1050 fori=1to10:printtab(tb);mid$(b$,i,1);"{SHIFT--}----------{SHIFT--}":nexti
 1060 printtab(tb);" {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}":print"{home}{down}{down}":t=tb+13:printtab(t);"hits"
 1070 fori=2to5:printtab(t);left$("*****",i):nexti:print"{down}{down}{down}{down}{down}":nexttb
 1200 rem
 1210 fori=2to1step-1:ifi=2then1800
 1220 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 1225 forj=1to9:printbl$:nextj
 1230 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}";v(i);"shots{down}"
 1240 forj=1tov(i)
 1250 tb=0:pr$="#"+str$(j):gosub8000:b%(j)=lc:print
 1265 k=int(lc/10):k1=lc-10*k
 1275 t=a+p*(i-1)+k*40+k1
 1285 ifpeek(t)<>sbthenb%(j)=-2:goto1295
 1290 poket,l1
 1295 nextj
 1300 rem
 1305 k1=3-i
 1310 forj1=1tov(i):b=b%(j1)
 1320 forj=1to4:fork=1toj+1
 1330 ifb=l%(k1,j,k)then1345
 1340 nextk:nextj:goto1390
 1345 forkk=1toj+1
 1350 kx=peek(a+p*(i-1)+j*40+kk-30)
 1360 ifkx=42thenpokea+p*(i-1)+j*40+kk-30,l1:goto1365
 1362 nextkk
 1365 ifi=2thenz%(j,k)=l1
 1370 fork=1toj+1
 1380 b=peek(a+p*(i-1)+j*40+k-30)
 1382 ifb=42then1390
 1384 nextk:v(k1)=v(k1)-w(j)
 1385 ifi=2thenz%(j,1)=0
 1386 ifv(k1)=0then1400
 1390 nextj1:nexti
 1395 l1=l1+1:goto1200
 1400 rem
 1410 print"{home}";n$(k1);"'s ships have been sunk!!            ";
 1430 l=1:fori=1to2
 1450 forj=1to4:fork=1toj+1
 1460 j1=int(l%(i,j,k)/10)
 1470 k1=l%(i,j,k)-j1*10
 1475 t=a+p*l+j1*40+k1
 1480 b=peek(t):poket,b+128
 1500 nextk:nextj:l=0:nexti
 1510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1515 print"want to play again?"
 1518 getrj$:ifrj$=""then1518
 1520 ifrj$="y"thenrun
 1530 goto5000
 1600 rem
 1610 g(1)=1:g(2)=9:g(3)=10:g(4)=11
 1620 l1=1:forj=4to1step-1
 1630 b=int(rnd(1)*4+1):b=g(b)
 1640 l=1:ifrnd(1)>.5thenl=-1
 1650 i=int(rnd(1)*100)
 1660 fork=1toj+1
 1666 forj1=4toj-1step-1:fork1=1toj1+1
 1668 ifl%(2,j1,k1)=ithen1650
 1669 nextk1:nextj1
 1670 l%(2,j,k)=i:d=i-int(i/10)*10
 1674 ifl1=0andd=9then1650
 1676 ifl1=9andd=0then1650
 1685 l1=d:i=i+l*b:ifi>99ori<0then1650
 1690 nextk:nextj:goto1000
 1800 rem
 1805 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(22);v(2);"shots":print
 1810 gosub2200:forl=1tov(2)
 1868 rem printtab(22);"#";l;"{left}: ";right$("00"+mid$(str$(b%(l)),2),2)
 1870 nextl:goto1300
 2200 rem
 2205 l=1
 2210 z1=0:z2=9:z3=1:ifrnd(1)>.5thenz1=9:z2=0:z3=-1
 2212 r=0:forj=4to1step-1:ifz%(j,1)=0then2605
 2215 fork=1toj+1
 2220 ifz%(j,k)=sbthen2600
 2230 forj2=z1toz2stepz3:fork2=z1toz2stepz3
 2240 b=a+p+j2*40+k2
 2250 ifpeek(b)<>z%(j,k)then2350
 2260 rem cycle direction-test
 2270 fordr=1to9:ifdr=5then2340
 2275 forkk=1toj+1
 2280 ifkk=kthen2330
 2290 b=j2*10+k2+(k-kk)*d(dr):ifb<0orb>99then2340
 2298 gosub2900:ifpk=102thenpk=sb
 2300 ifpk<>z%(j,kk)then2340
 2310 ifk2+4<kxorkx+4<k2then2340
 2330 nextkk
 2335 goto2800
 2340 nextdr
 2350 nextk2:nextj2:goto2600
 2400 gosub3400:k1=8:d=int(rnd(1)*5)
 2401 ifd=0thenf=0:goto2406
 2402 ifd=4thenf=f+25:d=1:goto2406
 2405 f=int(rnd(1)*99)
 2406 form=ltov(2)
 2410 b=sh%(d,m)+f:ifb<100thengosub2510:nextm:return
 2420 f=f-43:goto2410
 2500 b=int(rnd(1)*99)
 2510 gosub2900:ifpk<>sbthen2500
 2520 j1=b:r=1:fordr=1to9:b=j1+d(dr):gosub2900:ifpk=sbthenr=r+1
 2530 ifr>k1then2560
 2540 nextdr:k1=k1-1:goto2500
 2560 b=j1:gosub2900
 2570 printtab(22);"#";l;"{left}: ";right$("00"+mid$(str$(b),2),2)
 2580 l=l+1:pokea+p+jx*40+kx,l1:return
 2600 nextk
 2605 nextj:ifr=0then2400
 2607 goto2210
 2800 rem
 2810 forkk=1toj+1
 2820 b=j2*10+k2+(k-kk)*d(dr)
 2835 gosub2900:ifpk=102thenpk=sb
 2840 ifpk<>sbthen2880
 2860 r=1:gosub2570:ifl>v(2)thenreturn
 2880 nextkk:goto2600
 2900 rem
 2910 b%(l)=b:jx=int(b/10):kx=b-10*jx
 2960 pk=peek(a+p+jx*40+kx):return
 3400 rem
 3405 forj=1to4:ifz%(j,1)<>0then3410
 3408 nextj
 3410 ifl1<8andj=1thenreturn
 3415 d=j:forj=0to9:fork=0to9
 3418 ifpeek(a+p+j*40+k)<>sbthen3550
 3420 fordr=1to9:ifdr=5then3500
 3440 forkk=1tod:b=j*10+k+kk*d(dr)
 3450 ifb<0orb>99then3500
 3463 gosub2900:ifpk=102thenpk=sb
 3470 ifpk<>sbthen3500
 3475 ifkx+4<kork+4<kxthen3500
 3480 nextkk:goto3550
 3500 nextdr
 3510 pokea+p+j*40+k,102
 3550 nextk:nextj:return
 5000 end
 8000 printtab(tb);pr$;": ";:gosub60000
 8010 ifin$=""then 8050
 8020 forin=1tolen(in$):t$=mid$(in$,in,1):ift$<"0"ort$>"9"then8050
 8030 nextin:lc=val(in$):iflc<0orlc>99then8050
 8040 return
 8050 print:print"{up}";bl$;"{up}":goto8000
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #5  bship"
 62010 print"{down}copyright (c) 1978  by howard arrington
 62020 gosub 60500
 62030 print"{down}the game of battleship: you vs. pet
 62040 print "{down}{down}see cursor notes{$a0}#5 for instructions.{down}{down}"
 62050 return
    0 print"{clr}              boot hill"
    1 print"              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
    2 e=1
    3 poke59468,12
   20 print"{down}{down}{down}{down}{down}{down}{down} do you require instructions";
   30 inputa$
   40 ifleft$(a$,1)="y"thengosub10000
   50 print"{clr}":fora=1to500:next
   55 clr
   60 a=6:r=6:i=4
   70 b=15:y=4:g=15
   80 a$="{CBM-@}{rvon}  {rvof}{CBM-@}"
   90 b$(1)="{rvon}  {rvof}":d(1)=26
  100 b$(2)="{rvon}{CBM-V}{CBM-C}{rvof}":d(2)=26
  110 b$(3)="{rvon}  {rvof}":d(3)=26
  120 b$(4)="{rvon}  {rvof}":d(4)=26
  130 b$(5)="{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} {rvof}":d(5)=25
  140 b$(6)="{rvon} {rvof} {CBM-*}{rvon}{CBM-*}{rvof}":d(6)=25
  150 b$(7)="{rvon}{CBM-K} {rvof} {rvon}{CBM-K} {rvof}":d(7)=24
  160 c$="{CBM-@}{CBM-+}{CBM-+}{CBM-@}"
  170 d$(1)="{rvon}  {rvof}":k(1)=9
  180 d$(2)="{rvon}{CBM-V}{CBM-C}{rvof}":k(2)=9
  190 d$(3)="{rvon}  {rvof}":k(4)=9
  200 d$(4)="{rvon}  {rvof}":k(3)=9
  210 d$(5)="{rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof}":k(5)=9
  220 d$(6)="{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvof} {rvon} {rvof}":k(6)=8
  230 d$(7)="{rvon} {rvof}{CBM-K} {rvon} {rvof}{CBM-K}":k(7)=8
  240 ti$="000000"
  250 print"{home}"
  260 ifb>14thenb=14
  261 ifg>14theng=14
  270 ifb<3thenb=3
  271 ifg<3theng=3
  280 printspc(19);j"{home}"
  290 ifxx=0then340
  300 printspc(25)"UI{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{CBM-T}{CBM-T}{up}{up}";
  305 ifxx=1then340
  310 forc=1toxx-1
  320 print"UI{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{CBM-T}{CBM-T}{up}{up}";
  330 nextc:print"{home}"
  340 ifyy=0then390
  350 print"{home}{rght}{rght}{down}{rght}UI{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{CBM-T}{CBM-T}{up}{up}";
  355 ifyy=1then390
  360 forc=1toyy-1
  370 print"UI{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{CBM-T}{CBM-T}{up}{up}";
  380 next
  390 print"{home}"
  400 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}";
  405 ifr=0then450
  410 forc=1tor
  420 print"a";
  430 next
  440 ifr=6then480
  450 foro=1to6-r
  460 print"{rght}";
  470 nexto
  480 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  490 ifa=0then530
  500 forc=1toa
  510 print"a";
  520 next
  530 print"{home}"
  540 gete$:ife$<>""thengosub1000
  550 forc=1tob
  560 print" "
  570 next
  580 forc=1to25
  590 print"{rght}";
  600 nextc
  610 printa$
  620 forc=1to7
  630 printspc(d(c));b$(c)
  640 next
  650 print"{home}"
  660 forc=1tog
  670 print" "
  680 nextc
  690 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  700 printc$
  710 forc=1to7
  720 printspc(k(c));d$(c)
  730 next
  740 print"{home}"
  750 x=(b+4)*40+30+32763
  760 ify=7then800
  770 ify=1then820
  780 pokex,224:pokex-1,224:pokex-2,224:pokex-3,100
  790 goto830
  800 pokex,224:pokex-41,224:pokex-82,224:pokex-123,77
  810 goto830
  820 pokex,224:pokex+39,224:pokex+78,224:pokex+117,78
  830 u=(g+4)*40+6+32773
  840 ifi=1then900
  850 ifi=7then880
  860 pokeu,224:pokeu+1,224:pokeu+2,224:pokeu+3,100
  870 goto910
  880 pokeu,224:pokeu-39,224:pokeu-78,224:pokeu-117,78
  890 goto910
  900 pokeu,224:pokeu+41,224:pokeu+82,224:pokeu+123,77
  910 gete$:ife$<>""thengosub1000
  920 j=val(ti$)
  930 ifj=>60then5000
  931 ifa=0andr=0thenprint"{clr}out of ammunition!!":goto5010
  940 forc=1to100
  950 gete$:ife$<>""thengosub1000
  960 nextc
  970 print"{clr}"
  980 goto250
 1000 ife$="8"thenb=b-1:return
 1010 ife$="2"thenb=b+1:return
 1020 ife$="5"then1310
 1030 ife$="w"theng=g-1:return
 1040 ife$="x"theng=g+1:return
 1050 ife$="e"theni=7:return
 1060 ife$="d"theni=4:return
 1070 ife$="c"theni=1:return
 1080 ife$="s"then1110
 1090 ife$="7"theny=7:return
 1093 ife$="4"theny=4:return
 1095 y=1:return
 1110 ifr<1thenreturn
 1120 ifi=7thenp=-39:pq=-117
 1130 ifi=4thenp=1:pq=3
 1140 ifi=1thenp=41:pq=123
 1150 z=u+pq+p
 1160 forc=1to28
 1165 ifz>33767orz<32768thenreturn
 1170 ifpeek(z)<>32thenpp=g:r=r-1:yy=yy+1:e=1:goto1220
 1180 z=z+p
 1190 next
 1200 r=r-1
 1210 return
 1220 ife=0then1271
 1221 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1240 printtab(12);"{rght}{rght}{rght}        {CBM-G}"
 1250 printtab(12);"{rght}{CBM-I}   {rvon}{SHIFT-POUND}   {CBM-C}  {rvof}"
 1260 printtab(12);"{rght}{rvon}        {CBM-D}  {rvof}"
 1270 printtab(12);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}":e=0:goto1277
 1271 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1272 printtab(12);"{rght}{rght}{rght}        {CBM-G}"
 1273 printtab(12);"{rght}{CBM-I}   {rvon}{SHIFT-POUND}   {CBM-C} {CBM-+}{rvof}"
 1274 printtab(12);"{rght}{rvon}        {CBM-D} {CBM-+}{rvof}"
 1275 printtab(12);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}"
 1276 e=0
 1277 form=1to20:print:forn=1to20:next:next
 1290 print"{clr}"
 1300 return
 1310 ifa<1thenreturn
 1320 ify=7thenp=-41:pq=-123
 1330 ify=4thenp=-1:pq=-3
 1340 ify=1thenp=39:pq=117
 1350 z=x+pq+p
 1360 forc=1to28
 1365 ifz>33767orz<32768thenreturn
 1370 ifpeek(z)<>32thenpp=b:a=a-1:xx=xx+1:goto1220
 1380 z=z+p
 1390 next
 1400 a=a-1
 1410 return
 5000 print"{clr}{rvon}          time up        "
 5010 ifyy>xxthenprint"left won"
 5020 ifyy<xxthenprint"right won"
 5030 forc=1to1000:next
 5035 print"do you want another game";
 5040 inputz$
 5050 ifleft$(z$,1)="y"then50
 5060 end
 10000 print"{clr}":poke59468,14
 10010 print"       INSTRUCTIONS{$a0}FOR{CBM-C}BOOT HILL{CBM-V}"
 10020 print"{down}{down} THE{$a0}OBJECT{$a0}OF{$a0}THE{$a0}GAME{$a0}IS{$a0}TO{$a0}SHOOT"
 10030 print"YOUR{$a0}OPPONENT{$a0}AS{$a0}MANY{$a0}TIMES{$a0}AS{$a0}POSSIBLE"
 10040 print"{down} THE{$a0}LEFT{$a0}HAND{$a0}PLAYER{$a0}HAS{$a0}A{$a0}CHECKED CAP"
 10050 print"{$a0}THE{$a0}RIGHT{$a0}HAND{$a0}PLAYER{$a0}HAS{$a0}A{$a0}WHITE{$a0}CAP"
 10060 print"THE{$a0}LEFT{$a0}HAND{$a0}PLAYER{$a0}USES{$a0}THE{$a0}KEYS{$a0}:"
 10070 print"WESDXC TO{$a0}CONTROL{$a0}HIS{$a0}MAN"
 10080 print"THE{$a0}RIGHT{$a0}HAND{$a0}PLAYER{$a0}USES{$a0}THE{$a0}KEYS{$a0}:"
 10090 print"875421 TO{$a0}CONTROL{$a0}HIS{$a0}"
 10100 print"S & 5 FIRE{$a0}THE{$a0}GUN"
 10110 print"YOU{$a0}HAVE{$a0}1 MINUTE"
 10115 print"{down}{rght}THE{$a0}TIME{$a0}IS{$a0}SHOWN{$a0}BETWEEN{$a0}THE{$a0}"
 10116 print"GRAVESTONES{$a0}AT{$a0}THE{$a0}TOP{$a0}OF{$a0}THE{$a0}SCREEN"
 10117 print" THE{$a0}GRAVESTONES{$a0}REPRESENT{$a0}THE{$a0}NUMBER"
 10118 print"OF{$a0}HITS"
 10120 print"{down}{down}{rght}{rght}{rght}PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}BEGIN"
 19990 geta$:ifa$=""then19990
 20000 poke59468,12:return
   10 sys(1039)
   10 rem buggy, by bill finzer
   20 rem copyright, 1979
   30 rem  from an idea by john seely brown
   45 dim d1(7),d2(7),proc$(3),p$(3)
   60 data +,"ADD",-,"SUBTRACT",*,"MULTIPLY",/,"DIVIDE"
   70 for i=0 to 3:read proc$(i),p$(i):next
  100 rem-----main calling routine-----
  110 gosub 500
  120 gosub 1000: rem instruc
  130 gosub 1500: rem give sample
  140 gosub 2000: rem ask for probs
  150 gosub 2500: rem ask for bug
  160 if w$="n" then gosub 2010:goto 150
  170 gosub 3000: rem win disp
  180 gosub 500
  190 goto 120
  400 rem---clear text area-----
  410 print"{home}"left$(dn$,20)blank$
  420 for i=1 to 3:printblank$:next i
  425 print"{home}"left$(dn$,20);
  430 return
  500 rem----initialize-----
  510 scre=100:s=0
  520 nbugs=7
  550 t=rnd(-ti)
  570 blank$="                                       "
  580 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  585 def fna(a)=int(a+abs(d1(j)-d2(j))*10^j+.5)
  587 def fnn(a)=int(rnd(1)*10000)
  590 return
  850 rem----get single character----
  855 t=ti
  860 if ti<t+30 then print"{CBM-+}{left}";:goto 870
  865 if ti<t+60 then print" {left}";:goto 870
  867 t=ti
  870 get a$:if a$="" then 860
  880 print" {left}";:return
  900 rem----get non-empty string----
  910 b$="":poke 158,0
  920 gosub 850:a=asc(a$)
  930 if b$="" and a=13 then 910
  940 if a=13 then return
  950 if a=20 and len(b$)<2 then printa$;:goto 910
  960 if a=20 then printa$;:b$=left$(b$,len(b$)-1):goto 920
  970 if a<32 or (a>127 and a<161) then 920
  980 printa$;:b$=b$+a$
  982 if(pos(0)+1)/40=int((pos(0)+1)/40)thenprint
  985 if len(b$)>110 then return
  990 goto 920
 1000 rem----instructions-----
 1010 poke 59468,14:print"{clr}"
 1090 print"{down}hELLO, i'M{$a0}bUGGY.
 1100 print"{down}i'M{$a0}NOT{$a0}VERY{$a0}GOOD{$a0}AT{$a0}ARITHMETIC.
 1110 print"i{$a0}HOPE{$a0}YOU'LL{$a0}FIGURE{$a0}OUT{$a0}WHAT{$a0}IS{$a0}WRONG{$a0}{$a0}WITH{$a0}ME.
 1120 print"{down}aCTUALLY{$a0}THERE{$a0}ARE"nbugs"DIFFERENT
 1130 print"'BUGS'{$a0}i{$a0}MIGHT{$a0}HAVE.  tHE{$a0}BUGS{$a0}WITH
 1140 print"HIGHER{$a0}NUMBERS{$a0}ARE{$a0}HARDER{$a0}TO{$a0}FIGURE{$a0}OUT.
 1150 print"{down}wHICH{$a0}BUG{$a0}DO{$a0}YOU{$a0}WANT{$a0}TO{$a0}WORK{$a0}ON?
 1160 print"cHOOSE{$a0}1 THROUGH"nbugs;
 1170 gosub 850:print:bug=int(val(a$))
 1180 if bug<1 or bug>nbugs then 1160
 1185 print"{clr}wAIT{$a0}A{$a0}MOMENT."
 1190 return
 1500 rem----sample problem----
 1510 on bug gosub 10000,10200,10400,10600,10800,11000,11200,11400,11600,11800
 1520 print"{clr}":gosub 4400:gosub 4900
 1530 gosub 400:print"aBOVE{$a0}IS{$a0}A{$a0}SAMPLE{$a0}OF{$a0}MY{$a0}WRONG{$a0}WORK."
 1540 print"pRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}TRY{$a0}YOUR{$a0}OWN{$a0}PROBLEMS
 1545 s=s+1
 1550 poke 158,0:gosub 850
 1560 return
 2000 rem---input problems----
 2010 print"{home}buggy"bug"  score="scre"{left}  'b' when ready.
 2020 gosub 400
 2040 print"first number? ";
 2050 gosub 900:if b$="b" then return
 2060 n1=val(b$)
 2062 if n1<1e05 then 2070
 2064 : t=ti:print" {rvon}too large!"
 2066 : if ti<t+180 then 2066
 2068 : goto 2020
 2070 gosub 4700
 2080 print"{home}"left$(dn$,21)"2nd number? ";
 2090 gosub 900:n2=val(b$)
 2092 if n2<1e05 then 2098
 2094 : t=ti:print" {rvon}too large!"
 2096 : if ti<t+180 then 2096
 2097 : print"{up}"blank$"{up}":goto 2080
 2098 gosub 4800
 2100 if p<>1 then 2130
 2110 :  if n1>=n2 then 2130
 2115 :  print"{home}"left$(dn$,22)"2nd # must be smaller than 1rst.";:t=ti
 2120 :  if ti<t+180 then 2120
 2125 :  goto 2020
 2130 rem
 2140 on bug gosub 5000,5200,5400,5600,5800,6000,6200,6400,6600
 2150 gosub 4900:scre=scre-5:s=s+1
 2160 goto 2010
 2500 rem----test user--------
 2510 gosub 400
 2520 print"eXPLAIN{$a0}MY{$a0}BUG. pRESS{$a0}RETURN{$a0}WHEN{$a0}DONE.
 2530 w$="y":gosub 900:gosub 400
 2540 print"gOOD,NOW{$a0}i'LL{$a0}TEST{$a0}YOU{$a0}WITH{$a0}3 PROBLEMS"
 2550 print"aNSWER{$a0}LIKE{$a0}i{$a0}WOULD, RIGHTMOST{$a0}DIGIT"
 2555 print"FIRST."
 2560 for i2=1 to 3
 2570 on bug gosub 10000,10200,10400,10600,10800,11000,11200,11400,11600
 2580 gosub 4400:b$="":poke 158,0
 2590 gosub 850:a=asc(a$):if a=20 and b$="" then 2590
 2595 iflen(b$)=1anda=20then b$="":print"  {left}";:goto 2590
 2600 if a=20 then b$=right$(b$,len(b$)-1):print"  {left}";:goto 2590
 2605 if a=13 and b$="" then 2590
 2610 if a=13 then 2650
 2620 printa$"{left}{left}";:b$=a$+b$:goto 2590
 2650 ause=val(b$)
 2660 if ause<>ans then 2700
 2670 s=s+1
 2680 next i2
 2690 return
 2700 rem----user has missed one----
 2710 w$="n":scre=scre-10*i2
 2720 gosub 4500:l3=len(str$(ause))
 2730 print"{down}{down}{down}"spc(7-l3)"{rvon}"str$(ause)
 2740 s=s+1:t=ti:gosub 400
 2750 print"tHAT'S{$a0}NOT{$a0}WHAT{$a0}i{$a0}GET."
 2760 if ti<t+180 then 2760
 2770 gosub 4400:gosub 4900:s=s+1
 2780 return
 3000 rem----win display-----
 3100 print"{clr}yOU'VE{$a0}DONE{$a0}IT!
 3110 print"{down}aND{$a0}YOUR{$a0}SCORE{$a0}IS{$a0}{rvon}"scre"{rvof}{down}
 3130 if scre>70 then print"yOU{$a0}SEE{$a0}THINGS{$a0}FROM{$a0}MY{$a0}VIEWPOINT!
 3140 print"{down}wOULD{$a0}YOU{$a0}LIKE{$a0}ANOTHER{$a0}ONE?
 3150 gosub 850:if a$="y" then return
 3160 print"{down}sO{$a0}LONG{$a0}MY{$a0}SYMPATHETIC{$a0}FRIEND!
 3170 end
 3500 rem-----put digits of n1 & n2 into arrays--------
 3510 m1=n1:m2=n2
 3520 for i=0 to 6
 3530 m1=m1/10:m2=m2/10
 3540 d1(i)=int(10*(m1-int(m1))+.5)
 3550 d2(i)=int(10*(m2-int(m2))+.5)
 3560 m1=int(m1):m2=int(m2)
 3570 next i
 3580 return
 4400 rem-----print out whole problem----
 4410 gosub 4500:gosub 4700:gosub 4800
 4420 return
 4500 rem ---move to slot s------
 4510 if s>19 then s=0
 4520 dn=int(int(s/5)*5+1+.5)
 4530 rt=int((s/5-int(s/5))*35+.5)
 4540 print"{home}";:printleft$(dn$,dn);
 4550 if rt<>0 then printspc(rt);
 4560 return
 4600 rem----empty square-----
 4610 for i=1 to 5
 4620 print"       {left}{left}{left}{left}{left}{left}{left}{down}";
 4630 next i
 4635 print"{up}{up}{up}{up}{up}";
 4640 return
 4700 rem---print n1----
 4710 gosub 4500:gosub 4600
 4720 l1=len(str$(n1))
 4730 printspc(7-l1)str$(n1)"{left}{left}{left}{left}{left}{left}{down}"proc$(p)
 4740 return
 4800 rem----print n2-----
 4810 gosub 4500
 4820 l2=len(str$(n2))
 4830 print"{down}"spc(7-l2)str$(n2)"{left}{left}{left}{left}{left}{left}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{left}";
 4840 return
 4900 rem-----print answer-----
 4910 gosub 4500
 4920 l3=len(str$(ans))
 4930 print"{down}{down}{down}"spc(7-l3)str$(ans)
 4940 return
 5000 rem buggy 1--add w/o carry
 5010 p=0:ans=0
 5020 gosub 3500
 5022 for j=7 to 0 step -1
 5024 if d1(j)=0 and d2(j)=0 then 5027
 5026 k=j-1:ans=(d1(j)+d2(j))*10^j:j=0
 5027 next j
 5028 if k=-1 then 5080
 5030 for i=k to 0 step -1
 5040 m=d1(i)+d2(i)
 5050 m=(m/10-int(m/10))*10
 5060 ans=ans+m*(10^i)
 5070 next i
 5075 ans=int(ans+.5)
 5080 return
 5200 rem---buggy 2 sub small from large
 5210 p=1:ans=0
 5220 gosub 3500
 5230 for j=0 to 6
 5240 ans=fna(ans)
 5250 next j
 5260 return
 5400 rem----buggy 3, borrow, but still smaller from larger----
 5410 p=1:ans=0
 5415 gosub 3500
 5420 for j=0 to 7
 5430 if d1(j)<d2(j) then gosub 5700:d1(j)=d1(j)-10
 5440 ans=fna(ans)
 5450 next j
 5460 return
 5600 rem--buggy 4--sub from 0 wrong---
 5610 p=1:ans=0:gosub 3500
 5620 for j=0 to 7
 5630 if d1(j)=0 then 5640
 5635 if d1(j)<d2(j) then gosub 5700
 5640 ans=fna(ans)
 5650 next j:return
 5660 m=d1(i)-d2(i)
 5700 rem---borrow-----
 5710 d1(j)=d1(j)+10
 5720 for j1=1 to 5-j
 5730 if d1(j+j1)<>0 then d1(j+j1)=d1(j+j1)-1:return
 5740 d1(j+j1)=9
 5750 next j1:return
 5800 rembuggy 5---forgets it borrowed
 5810 p=1:ans=0:gosub 3500
 5820 for j=0 to 6
 5830 if d1(j)<d2(j) then d1(j)=d1(j)+10
 5840 ans=fna(ans)
 5850 next:return
 6000 rem---buggy 6---
 6010 p=1:ans=0
 6015 gosub 3500
 6020 for j=0 to 6
 6030 if d1(j)<d2(j) then gosub 5700:d1(j)=d1(j)-9
 6040 ans=fna(ans):next j:return
 6200 rem buggy 7---2 places correct
 6210 p=1:ans=0:gosub 3500
 6220 for j=0 to 1
 6230 if d1(j)<d2(j) then gosub 5700
 6240 ans=fna(ans):next
 6250 for j=2 to 5:ans=fna(ans):next
 6260 return
 10000 rem buggy 1--no carry
 10010 n1=fnn(0):n2=fnn(0):gosub 3500:f1=0
 10020 for j=0 to 3
 10030 if d1(j)+d2(j)>10 then f1=1
 10040 next j
 10050 if f1=0 then 10010
 10060 gosub 5000:return
 10200 rem---problem for buggy 2----
 10210 n1=fnn(a):n2=fnn(a)
 10230 if n2>=n1 then 10210
 10240 gosub 3500:f=0
 10250 for i=0 to 3
 10260 if d2(i)>d1(i) then f=1
 10270 next i
 10280 if f=0 then 10210
 10285 gosub 5200
 10290 return
 10400 rem---problem 3-----
 10410 gosub 10200
 10415 f=0
 10420 for i=0 to 3:if d1(i)=0 then f=1:next i
 10430 if f=0 then 10410
 10435 gosub 5400
 10440 return
 10600 rem---problem 4----
 10602 if f>0then10610
 10604 f=1:n1=1409:n2=1393:gosub 5600:return
 10610 n1=fnn(a):n2=fnn(a)
 10620 if n1<n2 then n3=n1:n1=n2:n2=n3
 10630 f1=0:f2=0:gosub 3500
 10640 for i=0 to 3
 10650 if d1(i)=0 and d2(i)<>0 then f1=1:goto 10670
 10660 if d1(i)<d2(i) then f2=1
 10670 next i
 10680 if f1=0 or f2=0 then 10610
 10685 gosub 5600
 10690 return
 10800 rem--problem 5---
 10810 gosub 10600:gosub  5800:return
 11000 rem---problem 6----
 11010 gosub 10600:gosub 6000:return
 11200 rem---problem 7----
 11210 n1=fnn(0):n2=fnn(0):if n1<n2 then 11210
 11215 gosub 3500:f1=0
 11220 for j=2 to 3:if d1(j)<d2(j) then f1=1
 11230 next:if f1=0 then 11210
 11240 gosub 6200:return
   10 print"{clr}";tab(6)"speakeasy software presents":gosub500:printtab(8)"**bulls and bears";
   15 print"**":printtab(6)"{down}a game of corporate finance":gosub500:print"inquiries:speakeasy ";
   20 print"software ltd":printtab(10)"p.o.box 1220":printtab(10)"kemptville ont.":printtab(10)"c";
   25 print"anada k0g 1j0{down}{down}":gosub600
   30 input"enter number of players(1-5)";q:ifq<1orq>5goto30
   35 j=q+1:k=j+1:l=k+1:m=l+1:n=m+1:o=n+1:dimp(q,2),d(j,o),b(j),n$(q),c$(j)
   40 forx=1toq:p(x,1)=50:nextx:forx=1toj:d(x,j)=100:d(x,m)=20:d(x,n)=4:d(x,o)=6
   45 readc$(x):nextx:print"{clr}":forx=1toq
   50 print"{down}enter name of player";x;:inputn$(x):iflen(n$(x))>10goto50
   55 nextx:print"{clr}";tab(10)"**bulls and bears**":printtab(13)"{down}players list":forx=1toq
   60 print"{down}player number";x;"-";n$(x):nextx:gosub600:gosub500:print"game hint:avoid let";
   65 print"ting other players":print"see your cash or holdings.this will aid":print"you in ";
   70 print"making surprise takeover bids":gosub600:w=100:y=10:z=60:gosub800:yr=c+1900
   75 ci=10+int(rnd(1)*10):pi=10+int(rnd(1)*10):deffna(x)=int(abs(x)):forx=1toq
   80 gosub700:printtab(12)"{down}player finance":print"player";x;"- ";n$(x):gosub850:print"your c";
   85 print"ash balance";:gosub750:iff=1goto95
   90 print"your cash balance is $";p(x,1)*1000
   95 gosub850:print"your shareholdings";:gosub750:iff=1goto130
  100 print"{clr}shareholdings-player";x;"- ";n$(x):print"{down}company";tab(20)"shares";
  105 printtab(30)"value{down}":f=0:fory=1toj:ifd(y,x)=0goto120
  110 printc$(y);tab(19)d(y,x)*1000;:c=d(y,x)*d(y,n):printtab(29)c*1000:f=f+c
  120 nexty:print"{down}{down}{down}total value of shares=$";f*1000:print"your net worth is $";
  125 print(f+p(x,1)-p(x,2))*1000
  130 print"you owe the bank $";p(x,2)*1000:gosub850:print"to borrow";:gosub750
  135 iff=1goto170
  140 z=pi:gosub900
  155 fory=1toj:c=d(y,x)*d(y,n):nexty:iff>(c+p(x,1)-p(x,2))/2goto165
  160 printf*1000;"approved":fory=1to2:p(x,y)=p(x,y)+f:nexty:gosub600:goto195
  165 print"amount excessive-refused!":gosub600
  170 ifp(x,2)=0goto195
  175 z=p(x,1):gosub950:iff=1goto195
  190 gosub955:print"thank you":fory=1to2:p(x,y)=p(x,y)-f:nexty:gosub600
  195 nextx:forx=1toq:gosub700:printtab(8)"{down}player trading":printn$(x)
  200 gosub850:print"to buy or sell stock";:gosub750:iff=1goto295
  205 input"for what company(number)";f:iff<1orf>jgoto205
  210 input"buy or sell";a$:c=1:ifasc(a$)=83thenc=2
  215 print"{clr}";tab(8)c$(f):print"{down}bid";d(f,n):print"{down}ask";d(f,o):print"{down}production units";
  220 printd(f,l):ifc=1andd(f,m)=0goto300
  225 print"{down}shares available";d(f,m)*1000
  230 print"{down}how many shares(000's)to ";:ifc=1thenprint"buy";
  235 ifc=2thenprint"sell";
  240 inputy:y=fna(y):ifc=1goto265
  245 z=d(f,x):ify<=zgoto255
  250 print"you do not own";y*1000;"shares":print"in ";c$(f):gosub600:goto295
  255 d(f,x)=z-y:d(f,m)=d(f,m)+y:p(x,1)=p(x,1)+y*d(f,n):print"stock sale co";
  260 print"mplete":print"credited to your account";y*d(f,n)*1000:gosub600:goto200
  265 z=d(f,m):ify<=zgoto275
  270 print"only";z*1000;"shares available":goto230
  275 c=y*d(f,o):ifc<=p(x,1)goto285
  280 gosub575:goto295
  285 print"purchase price is";c*1000:p(x,1)=p(x,1)-c:d(f,m)=z-y:d(f,x)=d(f,x)+y
  290 print"stock purchase complete":gosub600:goto200
  295 nextx:goto305
  300 print"{down}*no shares available*":gosub600:goto200
  305 forx=1toj:f=1:fory=1toq:ifd(x,f)<d(x,y)thenf=y
  310 nexty:c=d(x,j):ifd(x,f)=0goto450
  315 print"{clr}";c$(x);" -status report":print"director-";n$(f):print"{down}  cash  shrs ava";
  320 print"il bid  ask":printc*1000;tab(10)d(x,m)*1000;tab(18)d(x,n);tab(23)d(x,o)
  325 print"{down}production units",d(x,l):print"loans outstanding",d(x,k):print"per share ";
  330 print"book value";int((c+d(x,l)*10-d(x,k))/20):gosub850:print"to declare divid";
  335 print"ends";:y=int((c-100)/20):gosub750:iff=1goto360
  340 print"dividend limit per share=";:ify>0goto350
  345 y=0:printy:goto360
  350 printy:input"enter dividend per share";f:f=fna(f):iff>ygoto340
  355 fory=1toq:p(y,1)=p(y,1)+d(x,y)*f:nexty:c=c-f*20:gosub650
  360 y=d(x,l):ify=0goto380
  365 gosub850:print"to sell production units";:gosub750:iff=1goto380
  370 print"resale value is $9000-limit is";y:gosub675:iff>ygoto370
  375 c=c+f*9:y=y-f:gosub650
  380 gosub850:print"to buy production units":print"at $10000 each";:gosub750:iff=1goto400
  385 gosub675:ifc>f*10goto395
  390 gosub575:goto380
  395 c=c-f*10:y=y+f:gosub650
  400 d(x,l)=y:ifd(x,k)=0goto430
  405 printc$(x);" owes the bank";d(x,k)*1000:gosub950:iff=1goto430
  410 z=c:gosub955
  420 print"thank you":c=c-f:d(x,k)=d(x,k)-f
  430 print"{down}does ";c$(x);" want to borrow";:gosub750:iff=1goto450
  435 z=ci:gosub900:iff<=(c+d(x,l)*10-d(x,k))/2goto445
  440 print"amount excessive-refused!":gosub600:goto450
  445 c=c+f:d(x,k)=d(x,k)+f:printf*1000;"approved":gosub600
  450 d(x,j)=c:nextx:print"{clr}game to continue";:gosub750:iff=1goto1100
  455 forx=1toq:y=p(x,2):ify<0theny=0
  457 p(x,2)=y+int(y*pi/100):nextx:forx=1toj:i=d(x,k):ifi<0theni=0
  460 f=d(x,j):i=i+int(i*ci/100):w=10:y=0:z=8:gosub800:b(x)=d(x,l)*(5-c)
  465 w=int((f+d(x,l)*10-i)/20):y=int(b(x)*(5+rnd(1)*10)/20):ify>wgoto475
  470 d(x,n)=w-1:d(x,o)=w+1:goto480
  475 d(x,n)=y-1:d(x,o)=y+1
  480 ifyr=1929thenb(x)=b(x)*-1
  485 f=f+b(x):iff>0goto495
  490 f=100:i=0:d(x,l)=0:d(x,n)=4:d(x,o)=5
  495 d(x,j)=f:d(x,k)=i:nextx:yr=yr+1:goto990
  500 print:fori=1to80:print"$";:nexti:print:return
  555 data"off-shore oil","electro ltd","northmine holdings","datamachine"
  560 data"gasso","boing aircraft"
  575 print"insufficient funds":gosub600:return
  600 fori=1to4000:nexti:return
  625 gosub600:gosub600:return
  650 print"cash balance is now $";c*1000:return
  675 input"how many";f:f=fna(f):return
  700 print"{clr}";tab(11)"market report-";yr:print"{down}{down}company";tab(22)"earnings b";
  705 print"id ask":fory=1toj:printy;c$(y);tab(22)b(y)*1000;tab(30)str$(d(y,n));
  710 printtab(34)d(y,o):nexty:return
  750 f=0:inputa$:i=asc(a$):ifi=78ori=89goto760
  755 print"retype line-answer'y'or'n'":goto750
  760 ifi=78thenf=1
  765 return
  800 c=int(rnd(1)*w):ifc<yorc>zgoto800
  805 return
  850 print"{down}do you want ";:return
  900 print"interest rates are";z;"% yearly"
  905 input"enter amount of loan";f:f=fna(f):iff=0orf>9thenreturn
  910 print"minimum is $10000":goto905
  950 gosub850:print"to make a loan payment";:gosub750:return
  955 input"enter amount of loan payment";f:f=fna(f):iff<=zthenreturn
  960 gosub575:goto955
  990 w=100:y=0:z=50:gosub800:ifint(c/10)*10<>cgoto75
  995 print"{clr}";tab(12)"news flash!{down}":onc/10goto1020,1040,1060
 1000 print"the taxman cometh!":print"the federal gov't has levied a capital  gains tax";
 1005 print".10% of your cash is taken":forx=1toq:y=p(x,1):p(x,1)=y-int(y/10):nextx
 1010 gosub625:goto75
 1020 print"special depreciation allowance!":print"the gov't,to fight the recession,has"
 1025 print"granted a special allowance-each companyreceives $5000 per prod. unit"
 1030 forx=1toj:d(x,j)=d(x,j)+5*d(x,l):nextx:gosub625:goto75
 1040 print"stock fraud discovered!":print"wall street in a panic!the mafia has":print"bee";
 1045 print"n issuing false stock for years.":print"players lose $10000 cash":forx=1toq
 1050 y=p(x,1):y=y-10:ify<0theny=0
 1055 p(x,1)=y:nextx:gosub625:goto75
 1060 print"arabs sell oil for $5 a barrel!":print"prince khalim fuzzi,in return for"
 1065 print"nuclear arms-for defence purposes,of":print"course-sells his oil at $5/barr";
 1070 print"el":print"industry prospers-stock prices up $3":forx=1toj
 1075 fory=ntoo:d(x,y)=d(x,y)+3:nexty:nextx:gosub625:goto75
 1100 print"{clr}player";tab(20)"net worth{down}{down}":forx=1toq:f=0:fory=1toj
 1105 f=f+d(y,x)*d(y,n):nexty:f=f+p(x,1)-p(x,2):printn$(x);tab(19)f*1000;"{down}"
 1110 nextx:print"{down}end of game":end
 1200 rem  ***sps***  mkii
 1210 rem  ***250179***
    0 clr:poke59468,12
    1 rem calc copyright(c) 1978 glen fisher
    2 rem cursor #4 october, 1978
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of mar 10 80
   50 gosub 62000
  100 rem
  400 mx=65535
  500 op$="+-*/=s><'"+chr$(34)
  510 dg$="0123456789abcdef"
  520 gb=10:gb$="t"
  530 br$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  540 ar$="{up}":mr$="{down}{down}{rvon}"
  550 lf$="{left}{left}{left}{left}{left}{left}{left}":rt$="{rght}{rght}{rght}{rght}{rght}{rght}":tb$="too big":bl$="       "
  900 print "{clr}";br$;"{up}{up}{rght}base  oct";
  910 print "{down}{left}{left}{left}{rvon}ten{rvof}{down}{left}{left}{left}hex";
  990 pn$=" "
 1000 gosub9000
 1010 ifpn$="+"thenar=ar+br
 1020 ifpn$="-"thenar=ar-br
 1030 ifpn$="*"thenar=ar*br
 1040 ifpn$="/"thenar=int(ar/br)
 1080 ifpn$=" "andb$<>""thenar=br:a$="x"
 1090 pn$=" "
 1100 ifabs(ar)>mxthengosub2000:ky$=" ":a$="":ar=0:goto1200
 1110 ifky$="'"thenar=peek(ar)
 1115 ifky$=chr$(34)andar>65534thenr$=ar$:gosub2000:goto1200
 1120 ifky$=chr$(34)thenar=peek(ar)+256*peek(ar+1)
 1130 ifky$="s"anda$=""thenm$="":print br$;mr$;lf$;"{rvof}   ";bl$;:goto 1200
 1140 ifky$="s"thenmr=ar:n=mr:r$=mr$:gosub8000:m$=n$:mb$=nb$:mb=nb
 1150 ifky$=">"thenar=ar-int(ar/256)*256
 1160 ifky$="<"thenar=int(ar/256)
 1180 ifky$="+"orky$="-"orky$="*"orky$="/"thenpn$=ky$
 1190 n=ar:r$=ar$:gosub8000:a$=n$:ab$=nb$:ab=nb
 1200 printbr$;lf$;"{left}{left}{left}";pn$;
 1210 goto1000
 2000 printbr$;r$;lf$;tb$;
 2010 fori=1to1000:nexti
 2020 printlf$;"{rvof}";bl$;"   {left}{left}{left}";
 2030 return
 8000 rem
 8005 nb=gb:nb$=gb$
 8010 n$=""
 8015 ng=0:ifn<0thenng=1:n=-n
 8020 t=int(n/nb):d=n-nb*t:n=t
 8030 n$=mid$(dg$,1+d,1)+n$
 8040 if n>0 then 8020
 8050 printbr$;r$;lf$;mid$(" -",ng+1,1);right$("     "+n$,6);"  ";nb$
 8060 return
 9000 b$="":neg=0:bb=gb:t$=gb$:fr=0
 9005 print:print br$;lf$;bl$;
 9010 print"_ ";t$;"{left}{left}{left}";
 9020 gett$:ift$=""then9020
 9030 fori=1tobb
 9035 ifmid$(dg$,i,1)=t$then9500
 9040 nexti
 9045 ift$="."thenfr=1:goto9020
 9050 ift$="{inst}"thenclr:goto100
 9055 ift$=chr$(20)then9000
 9060 ifb$<>""then9120
 9065 ift$="^"anda$<>""then9400
 9070 ift$="r"andm$<>""then9450
 9075 ift$="h"thenbb=16:goto9010
 9080 ift$="t"thenbb=10:goto9010
 9090 ift$="o"thenbb=8:goto9010
 9095 ift$="#"then9300
 9100 ift$="{home}"andnegthenneg=0:printlf$;" ";rt$;:goto9020
 9110 ift$="{home}"thenneg=1:printlf$;"-";rt$;:goto9020
 9120 fori=1tolen(op$)
 9130 ifmid$(op$,i,1)=t$then9150
 9140 nexti:goto9020
 9150 print" {left}";
 9155 ky$=t$:br=0
 9160 if b$=""thenreturn
 9170 fori=1tolen(b$)
 9180 :t$=mid$(b$,i,1)
 9190 :forj=1tobb:ifmid$(dg$,j,1)=t$then9210
 9200 :nextj
 9210 :br=bb*br+j-1
 9220 nexti
 9230 ifbr>mxthenr$="":gosub2000:goto9000
 9240 ifnegthenbr=-br
 9260 return
 9300 print"{up}{up}{rght}{rght}{rght}{rght}{rght}?{rght}";
 9310 gett$:ift$=""then9310
 9320 ift$<>"h"andt$<>"t"andt$<>"o"thenprint"{left}{left} ";:goto9000
 9330 if t$="o" then gb=8:print "{rvon}";
 9340 print "oct{rvof}{left}{left}{left}{down}";
 9350 if t$="t" then gb=10:print "{rvon}";
 9360 print"ten{rvof}{left}{left}{left}{down}";
 9370 ift$="h"then gb=16:print"{rvon}";
 9380 print"hex{rvof}{left}{left}{left}{left}{left}{up}{up} ";
 9390 gb$=t$:goto9000
 9400 b$=a$:neg=1+(ar>=0):bb=ab:t$=ab$
 9410 print br$;"{left}{left}{left}{left}{left}{left}{left}";mid$(" -",neg+1,1);right$("     "+b$,6);
 9420 goto9010
 9450 b$=m$:neg=1+(mr>=0):bb=mb:t$=mb$
 9460 goto9410
 9500 iffrthen9020
 9510 printlf$;"{rght}{rght}";chr$(20);"{left}";rt$;chr$(148);t$;
 9520 b$=right$(b$+t$,6):goto9020
 60000 getin$:ifin$=""thengoto60000
 60001 return
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1978      page";pn;"{down}"
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #4  calc
 62001 print"{down}copyright (c) 1978  by glen fisher":gosub 60500
 62002 print"{down}hex, octal, and decimal calculator"
 62003 print"{down}{down}want instructions? ":gosub60000
 62004 ifin$<>"y"then return
 62005 lp=3:nm$="4":pg$="calc":gosub60200
 62010 print"calc works with integers in decimal,
 62020 print"hexadecimal and octal. you can
 62030 print"add, subtract, multiply and divide
 62040 print"by using the standard keys on the{$a0}pet.
 62050 print"{down}other important functions unclude:
 62060 print"{down}key: function:
 62070 print"--------------------------------"
 62080 print"{down}del  clear the entry
 62090 print"inst clear all registers
 62100 print"s    store contents of{$a0}'a' register
 62110 print"r    recall memory
 62120 print"home change sign of entered number
 62130 print"#    change the{$a0}'global' number base
 62140 print"     (#h=hex, #o=octal, #t=decimal)
 62150 print"^    copy{$a0}'a' register down to display
 62170 gosub60200
 62180 print"you can temporarily change the base
 62190 print"of the number you are entering by
 62200 print"typing{$a0}'h','o'  or 't' in front of
 62210 print"the number. for example, if the{$a0}
 62215 print"base is hex, and you want to convert{$a0}
 62220 print"the decimal number{$a0}'255' to hex, type
 62230 print"{down}   't255=' which means{$a0}'base ten 255'
 62240 print"{down}when you press '=', the hex result 'ff'
 62250 print"will appear in the{$a0}'a' register.
 62260 print"{down}the remaining features of calc will
 62270 print"mainly be of interest to users who do
 62280 print"machine language programming.
 62290 gosub60200
 62300 print"the{$a0}'<' key will display the high byte
 62310 print"of the 'a' register, and{$a0}'>' shows the
 62320 print"low byte. (this can be handy for{$a0}
 62330 print"'split decimal').
 62340 print"{down}double quote will{$a0}'peek' the word at
 62350 print"the location given by the{$a0}'a' register.
 62360 print"{down}single quote will{$a0}'peek' the  byte at
 62370 print"the location given by the 'a' register.
 62380 gosub60200
    1 gosub6000
    5 rem   graphics
   10 print"{clr}           O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   20 print"           {CBM-G}               {CBM-M}"
   25 print"           {CBM-G}               {CBM-M}"
   29 print"           {CBM-G}               {CBM-M}"
   30 print"           L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   40 fori=1to19
   50 print"                             "
   60 next
 1000 rem controller / input
 1010 geta$:ifa$=""goto1010
 1020 a=asc(a$)
 1030 ifa>57then4000
 1040 ifa<48anda<>46then2000
 1050 ift=1thenx$="":t=0
 1055 iflen(x$)=9thend$="error       ":gosub5115:t=1:goto1000
 1060 x$=x$+a$:x=val(x$):gosub5020
 1070 goto1000
 2000 rem    operators
 2010 ifa<40ora=44thend$="error        ":gosub5115:clr:goto1000
 2020 ifa=40thenn=n+1:b(n)=x:x=0:y=0:o$(n)=o$:o$="":t=1:gosub5000:goto1000
 2030 ifo$="*"thenx=x*y
 2040 ifo$="/"thenx=y/x
 2050 ifo$="+"thenx=x+y
 2060 ifo$="-"thenx=y-x
 2065 y=x:o$=a$:t=1
 2070 ifa=41theny=b(n):o$=o$(n):n=n-1:t=0
 2080 gosub5000:goto1000
 4000 ifa$="s"thenx=sin(x)
 4010 ifa$="c"thenx=cos(x)
 4020 ifa$="t"thenx=tan(x)
 4030 ifa$="l"thenx=log(x)
 4040 ifa$="e"thenx=exp(x)
 4042 ifa$="="goto2030
 4043 ifa$="_"thenclr:t=1
 4045 gosub5000
 4050 goto1000
 5000 rem   display
 5010 x$=str$(x)
 5020 d$=right$("           "+x$,11)+"    "
 5030 ifx<=999999999andx>.01goto5115
 5040 ifx=0goto5115
 5050 ifabs(x)>1e38orabs(x)<1e-33thend$="error          ":goto5115
 5100 r$=right$("           "+x$,15)
 5110 d$=left$(r$,11)+" "+right$(r$,3)
 5115 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"d$
 5120 return
 6000 print"{clr}   this program simulates a pocket"
 6010 printtab(30)"calculator"
 6020 print"{down}{down}{rght}{rght}the number keys,{CBM-C}/*+-.{CBM-V}and{CBM-C}={CBM-V}keys"
 6030 print" work as on a normal calculator"
 6040 print"{down}{down}the other functions are:-"
 6050 print"  _   clear all"
 6060 print"  s   sine"
 6070 print"  c   cosine"
 6080 print"  t   tangent"
 6090 print"  l   log(base e)"
 6100 print"  e   antilog(base e)"
 6105 print"{down}there are 5 levels of bracketing"
 6106 print"{down} when an error occurs and the computer"
 6107 print"responds with {CBM-C}ready{CBM-V},type{CBM-C}run{CBM-V}and
 6108 print"start again"
 6110 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start"
 6120 forg=1to20:geta$:next
 6130 geta$:ifa$=""then6130
 6140 return
:{stop}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{CTRL-L}{sret}l{$e8}{SHIFT-POUND}{$00}{sret}h{$e8}{CBM-Z}{$72}{SHIFT-*}I{CTRL-O}Pa{SHIFT-POUND}{CTRL-B}{sret}Z{down}{sret}{CBM-*}{down}{sret}{$e9}{down}{sret}{$ec}{down}{sret}{CTRL-D}{wht}{sret}{SHIFT-POUND}{CTRL-G}{sret}{$63}{wht}{sret}{CTRL-U}{dish}{CBM-I}{CTRL-Y}{swuc}Y{down}{swuc}{$e8}{down}{$e8}{swuc}{$de}{down}{swuc}{$eb}{down}{SHIFT-POUND}
{sret}{stop}{wht}{sret}{CBM-POUND}{CTRL-G}{SHIFT-POUND}{CTRL-D}{sret}{$62}{wht}{SHIFT-POUND}{ensh}{sret}{del}{dish}{SHIFT-POUND}{swlc}{sret}{$67}{CTRL-L}{$60}{CBM-I}{$00}{swuc}{$00}{$80}{CBM-I}~{swuc}{$00}{$84}{CBM-S}{$00}{$80}P{$f0}{SHIFT-POUND}{del}{sret}{left}{CTRL-X}{SHIFT-POUND}{$64}{sret}{CBM-Q}{CTRL-X}{SHIFT-POUND}p{sret}M{CTRL-X}{SHIFT-POUND}D{sret}x{CTRL-L}{SHIFT-POUND}{$ea}{sret}{$fd}{ensh}{sret}{$ed}{CTRL-G}{SHIFT-POUND}
{sret}{$fe}{ensh}{SHIFT-POUND}{f3}{sret}{gry3}{CTRL-G}{sret}{CBM-K}{CTRL-G}{SHIFT-POUND})l{CBM--}{CTRL-X}{$f7}{$f7}{$e7}{$de}{$de} {$00}{$00}
{CTRL-D}{$0a}{$00}{yel}(2550){$00}{$00}{$00}9{$00}{$00}{$00}ru{$00}{$00}{$00}{$00}{$00}g{$00}{$00}{$00}{$00}{$00}{gry2}h{CBM-I}( {lgrn}{CTRL-X}{$68}{CBM-POUND}{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$60}{CBM-S}{red}{down}{SHIFT-POUND}{CTRL-O}{left}{CTRL-V}{down}{SHIFT-POUND}{CBM-+}{left}?{down}{$fe}6{down}{SHIFT-POUND}{$00}{sret}3{down}lg{CTRL-X}{CBM-S}{red}{down}{CBM-X}{CTRL-V}{down}{f1}{$00}{CBM-I}{CTRL-L}{SHIFT-POUND}{$00}{$66}{$00}*{left}{CTRL-A}{down}JJJP{$f3} {$00}{CTRL-V}{SHIFT-POUND} {CBM-I}{CTRL-D}{left}{$8f}{blu}JP{$fa}{CBM-S}{red}{down}{CBM-X}{down}{down}I{CTRL-A}{$f0}{$0a}{CBM-N}J{SHIFT-POUND}>{left}{$8f}{blu}JP{$fa}{SHIFT-POUND}0{sret}{CBM-L}{blu}{sret}{CBM-Y}{blu}{CBM-S}{red}{down}{CBM-X}6{down}hI{$0a}0{dish}{$ee}{CBM-L}{blu}8{$e9}{$0a}P{$f4}{ensh}0{sret}{CBM-Y}{blu}{SHIFT-POUND}{$00}{sret}{f6}{rvon}{SHIFT-POUND}{wht}{sret}{lred}{rvon}{CBM-Z}{red}{down}I{CTRL-A}{$f0}{$0a}{SHIFT-POUND}{rght}{sret}{f6}{rvon}{SHIFT-POUND}"{sret}{lred}{rvon} Z{wht}{$68} {CTRL-U}{CTRL-P}{$ea}{CBM-X}{$f0}{wht}{sret}={wht}j{sret}h{wht}{CBM-X}{$f1}{wht}{sret}w{wht}{SHIFT-POUND}{$00}{sret}{esc}{down}{sret}0{down}{sret}2{down}{sret}{del}{down}{CBM-I}{stop}{SHIFT-POUND}{CTRL-F}{left}"{down}{SHIFT-POUND}{ensh}{left}{rght}{down}JP{$f3}{sret}!{down}{sret}{rght}{down}{SHIFT-POUND}{dish}{sret}&{down}{SHIFT-POUND}{swlc}l{$00}{CTRL-L}{SHIFT-POUND}{CTRL-A}{sret}{yel}{$00} {$77}{wht} {red}{CTRL-G} {$7c}{down} ={CTRL-P} q{CTRL-P} {orng}{CTRL-O} D{CTRL-P} {stop}{ensh} ({CTRL-O} {$6c}{ensh} {$00}{swlc}{CBM-Z}2{down}{$f0}{CTRL-B}{$68}{$68}{$60}{$00}{$00}{CBM-S}9{down}J{swuc}9{down}P{swlc} {$00}{wht}{SHIFT-POUND}{CTRL-G}{sret}9{down}{CBM-Z}3{down}{$f0}{CTRL-A}{$60}{$e0}{stop}P{stop} {CBM-B}{CTRL-U}N:{down}P{swlc} {SHIFT-*}{$0a}{SHIFT-POUND}{ensh}{sret}:{down}{CBM-Z}2{down}{$f0}{CTRL-A}{$60}{CBM-Z}{gry2}{$00}P{$fb} {down}{dish}{$ea}{$ea} {$6f}{CTRL-O} {$00}{swlc}{CBM-Z}2{down}{$f0}{SHIFT-@}{$60} {$00}{CTRL-K}l{$f9}{del}{CBM-N}{CBM-N}{CBM-N} {$a0}{wht}l{CBM-A}{CTRL-P} {$a0}{wht}l{$ed}{CTRL-X}{$ea}{$ea}{$ea}{$ea}{CBM-S}={wht}J{swuc}:{down}l{$ed}{CTRL-X}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}={wht}Mw{wht}{CTRL-P}{wht}{SHIFT-POUND}{CTRL-A}{sret}:{down}{$60}{CBM-N}{CBM-N} {$e4}~){$7f}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}t{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N} 1 {CTRL-O}{rvon} 2 {CTRL-P}{CTRL-L}{CTRL-A}{CTRL-Y}{wht}{rvon}{home}?{sret}={down}{$ee}{$71}{CTRL-K}{$ee}{$75}{CTRL-K}{$60}{CBM-I}({CBM-X}~{CTRL-X}{ensh}{$80}{left}~{CTRL-X}JP{$f5}{$60}{CTRL-G}{CTRL-A}
{wht}  {CTRL-O}{CTRL-V}{wht}{rvon}{CTRL-K}{swlc}{$0a}{CTRL-L}{ensh}{CTRL-K}{dish}{$0a}{CTRL-G}{ensh}{CTRL-G}{dish}{CTRL-F}{CTRL-G}{CTRL-A}{CBM--}{CTRL-A}Z{CTRL-A}~{CTRL-A}H{CTRL-A}R{CTRL-B}{$00}{CTRL-A}~{CTRL-A}{CBM--}{CTRL-A}J{CTRL-A}{CBM-F}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}p{CTRL-A}v{CTRL-A}\{CTRL-A}{$62}{CTRL-A}{$68}{CTRL-A}{$6e}{CTRL-A}{$74}{CTRL-A}{$6e}{CTRL-A}{$68}{CTRL-A}{$62}{CTRL-A}\{CTRL-A}v{CTRL-A}{$00}{$00}{CTRL-A}{$64}{wht}{$64}{CTRL-F}H{CTRL-A}{$00}{$00}{CTRL-A}{CBM--}{CTRL-A}Z{CTRL-A}~{CTRL-A}H{CTRL-A}R{CTRL-B}{lred}{CTRL-B}{f8}{CTRL-B}{$82}{CTRL-B}{$78}{CTRL-B}{$6e}{CTRL-B}{$64}{CTRL-B}z{CTRL-B}p{CTRL-B}f{CTRL-B}<{CTRL-B}2{CTRL-B}{lred}{CTRL-B}{f8}{CTRL-B}{$82}{CTRL-B}{$78}{CTRL-B}{$6e}{CTRL-B}{$64}{CTRL-B}z{CTRL-B}p{CTRL-B}f{CTRL-B}<{CTRL-B}2{CTRL-A}{$00}{$00}{CTRL-A}p{CTRL-A}h{CTRL-A}@{CTRL-A}8{CTRL-A}0{CTRL-A}({CTRL-A} {CTRL-A}{CTRL-X}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$80}{$00}{CTRL-P}{$f6}{CTRL-D}{$00}{CTRL-P}{$f6}{CTRL-D}{$00}{dish}{$f6}{CTRL-D}{$00}{CTRL-P}{$f6}{CTRL-D}{$00}{CTRL-P}P{CTRL-D}{$00}{dish}U{CTRL-D}{$00}{CTRL-P}U{CTRL-D}{$00}{dish}{$f6}{CTRL-D}{$00}{CTRL-P}{$f6}{CTRL-D}{$00}{dish}~{CTRL-D}{$00}{CTRL-P}{$f6}{CTRL-A}{$00}{$00}{CTRL-A}{$64}{stop}{$64}{CTRL-D}{$74}{CTRL-D}{$84}{CTRL-D}{inst}{CTRL-D}{CBM-@}{CTRL-D}{CBM-H}{CTRL-D}D{CTRL-D}T{CTRL-D}{$e4}{CTRL-D}{$f4}{CTRL-D}{$00}{dish}[{CTRL-D}{$00}{dish}b{CTRL-A}{$00}{$00}{CTRL-A}{CBM-@}{stop}{CBM-@}{CTRL-D}{inst}{CTRL-D}{$84}{CTRL-D}{$74}{CTRL-D}{$64}{CTRL-D}t{CTRL-D}d{CTRL-D}4{CTRL-A}{$00}{$00}{CTRL-A}{$fa}{stop}{$fa}{CTRL-D}H{CTRL-D}{lred}{CTRL-D}{$64}{CTRL-D}{$00}{$00}{$00}{$00}{$00}{f1}Q{SHIFT-POUND}{CTRL-F}{f1}R{$a0}{CTRL-A}{f8}{CTRL-B}{down}{f7}{CBM-E}Q{sret}{stop}{down}{SHIFT-POUND}{$ef}{CBM-I}{down}l{$e6}{down}{SHIFT-POUND}{$00}{$f0}{$e4}{SHIFT-POUND}{CTRL-Y}P{$e0}{SHIFT-POUND}4P{CBM--}{SHIFT-POUND}=PX{SHIFT-POUND}{$76}PT{SHIFT-POUND}{SHIFT-@}PP{SHIFT-POUND}{f2}PL{SHIFT-POUND}{SHIFT-+}PH{SHIFT-POUND}{$f0}PD{$00}{$00}{$00}{$00}{$a0}{$0a}{gry2}h {$00}{ensh}{$68}{CBM-POUND}{f7}P{$f6}{$60}{$00}{$00}{$ea} {CBM-G}{CTRL-P} Z{wht}{SHIFT-POUND}2{sret}{$71}{CTRL-K}{SHIFT-POUND}{$78}{sret}{$75}{CTRL-K}{SHIFT-POUND}{CBM-A}{CBM-I}{CTRL-D}{left}{wht}{CTRL-Y}{left}"{CTRL-Y}JP{$f7}{SHIFT-POUND}{stop}{sret}{rvon}{down}{sret}{home}{down}{sret}{CTRL-Y}{down}{swuc}7{down}{swuc}8{down}{SHIFT-POUND}{CTRL-B}{sret}{red}{down} 0{CTRL-D}{SHIFT-POUND}{CTRL-A}{sret}{red}{down} 0{CTRL-D} {$00}{CTRL-V} {$6f}{CTRL-O}{CBM-I}{dish}{CBM-X}{CBM-B}{wht}{left}{CTRL-G}{$83}{CBM-X}G{wht}{left}/{$83}JP{$f1}{SHIFT-POUND}{$00}{sret}{yel}{$00} {$e4}~I1{$f0}{CTRL-D}I2P{$f5}){stop}{sret}{down}{down}{SHIFT-POUND}{CTRL-A}{sret}{red}{down}{CBM-Z}{rvon}{down}{$f0}{stop} h{CTRL-D}{CBM-Z}{down}{down}I{CTRL-B}P
{SHIFT-POUND}{CTRL-B}{sret}{red}{down}{CBM-Z}{home}{down}{$f0}{stop} h{CTRL-D}{CBM-Z}{rvon}{down}PZ{CBM-Z}{down}{down}I{CTRL-B}P{wht}{CBM-Z}{home}{down}PNl{blu}{dish}({stop}) {home}{del}{CTRL-A}{rvon} {home}{CTRL-O}{CTRL-F}{del}{CTRL-W}{CTRL-A}{rvon}{wht}{$a0}{$00}{up}{CTRL-A}{$e6}{CTRL-A}P{CTRL-B}{$e6}{CTRL-B}{SHIFT-POUND}{$f8} 4{CTRL-P}{f3}{SHIFT-*}{SHIFT-POUND}{CTRL-P},{gry3}{$00}P{stop}l{$ea}
{$60}{$ea}{$ea}{$60}{SHIFT-POUND}{clr} R~{SHIFT-POUND}{$a0}{CBM-I} {left}{stop}{$80}{left}+{$80}{left}s{$80}JP{$f4}{SHIFT-POUND}-{f1}{CTRL-A}{SHIFT-POUND}{$80}{f1}{CTRL-B}{CBM-X}0
 {$00}{dish}{$e8}{$e0}{grn}P{$f5}{SHIFT-POUND}u{f1}{CTRL-A}{SHIFT-POUND}{$e3} {$00}{dish}{$e8}{$e0}<P{$f6}{CBM-I}{CTRL-X}{CBM-X}n
{left}{blu}{orng}{CBM-X}{$66}
{left}g{orng}JP{$f1}{f3}{$00} {$0a}{dish}{CBM-I}{CTRL-Z}{CBM-X}{$f6}{$80}i{$80}{left}{$f6}{$80}{CBM-X}{grn}{orng}i{$80}{left}{grn}{orng}{CBM-X}f{orng}i{$80}{left}f{orng}{CBM-X}{$6e}{orng}i{$80}{left}{$6e}{orng}JP{SHIFT--}{$e6}{$00}{CBM-G}{$00}I{CTRL-X}PP{SHIFT-POUND}{rvon}{f1}{CTRL-A}{SHIFT-POUND}{$82}{f1}{CTRL-B}{CBM-X}{$7f}
 {$00}{dish}{$e8}{$e0}{home}P{$f5}{SHIFT-POUND}:{f1}{CTRL-A}{SHIFT-POUND}{$77} {$00}{dish}{$e8}{$e0}&P{$f6}{SHIFT-POUND}P{f1}{CTRL-O}{SHIFT-POUND}{$82}{f1}{CTRL-P}{SHIFT-POUND}S{sret}{$77}{del} {$f9}
{CBM-I}{dish}{CBM-X}{up}
{left}{$67}{$82}JP{$f7}{SHIFT-POUND}{SHIFT-*} {CTRL-L}{dish}{SHIFT-POUND}{CBM--}{f1}{CTRL-O}{SHIFT-POUND}{CBM-N}{sret}{$77}{del} {$f9}
{CBM-I}{CTRL-D}{CBM-X}{lgrn}
{left}{$68}{$82}JP{$f7}{SHIFT-POUND}{SHIFT-*} {CTRL-L}{dish}{SHIFT-POUND}{$e9}{f1}{CTRL-O}{SHIFT-POUND}Zl{CBM-Q}
{$ea}{$ea} Z{CTRL-P}{SHIFT-POUND}{CTRL-Y}{f1}{CTRL-P}{CBM-I}{CTRL-F}{CBM-D}{red}{down}{f7}{$f0}{CTRL-B}{CBM-I}#{f3}{CTRL-O}{$a0}{$00}{CBM-E}{CTRL-O}Y{CTRL-V}{CTRL-Y}{$f0}{swlc}{blk}{down}{CBM-E}{CTRL-O}{lgrn}{CTRL-V}{CTRL-Y}H{SHIFT-*}{CTRL-D}P{$f6}{$f0}{wht}H{SHIFT-*}{CTRL-D}P{$e6}{SHIFT-POUND}{CTRL-Y}{f1}{CTRL-P}{CBM-I}{CTRL-F}{CBM-D}{red}{down}{f7}{$f0}{CTRL-B}{CBM-I}#{f3}{CTRL-O}{CBM-Z}{red}{down},{CTRL-Y}{down}{$f0}${$a0}{$00}{CBM-E}{CTRL-O}I{CBM-E}P{red}{CBM-Z}{CTRL-Y}{down}m{red}{down}{sret}{CTRL-Y}{down}{CBM-S}{red}{down}{$fe}{down}{down}{CBM-X}{down}{down}{CBM-N}J{SHIFT-POUND}<{left}{$8f}{blu}JP{$fa}{$60}{CBM-S}{red}{down}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-X}?{down}P{$f0}{CBM-Z}{CTRL-D}{down}P{$eb}{CBM-Z}{CTRL-G}{down}P{$e6}{CBM-Z}{$0a}{down}P{$e1}{CBM-Z}
{down}P{CBM--} {$6f}{CTRL-O}{$a0}{CTRL-F}{$78}{gry2}h{$a0}{$00}{$84}{$f3}{CBM-I}{CTRL-Y}{f3}{$f4}{CBM-E}{$f3}i{$80}{up}{$f3}{f7}P{$f7}{$e8}{$e0} P{$f0}  {CTRL-D}{$68}{CBM-POUND}x{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}{$e8} 4{CTRL-P}{f7}PS{SHIFT-POUND}{CTRL-A}{sret}3{down}{$68}{$68}{$60}I{dish}0{CTRL-B}{SHIFT-POUND}{CTRL-G}{$0a}{CBM-N}{CBM-X}{CBM--}{ensh}{sret}'{rvon}{CBM-X}{SHIFT--}{ensh}{sret}{$f2}{CTRL-O}{$60}{$f0}:P5{CBM-A}0{blk}*{$70}%p 0{CTRL-Z}{CBM-X}6{down}I{CTRL-O}0{CTRL-B}{SHIFT-POUND}{swlc}{$60} {$60}{stop} X{down}l{blu}{dish}{CBM-N}  {$64}{$64}{$60}{$64}{$64}{$60}{$64}{$64}    {$64}{$7a} {$65}{$67} {$65}{$67}    l{$64} l{$7a} l{$7a}                            l{$7a} op op     {$67} l{$7a} l{$7a}                {$64}{$64} {$64}{$64} {$64}{$64}    l{$7a} {$65}{$67} {$65}{$67}    l{$7a} l{$7a} l{$7a}                 {$64}{$64} {$64}{$64} {$64}{$64}  ] l{$64} {$65}{$67} {$65}{$67}  ] l{$7a} l{$7a} l{$7a}             {CBM-Z};{down}{$f0}{$0a}{SHIFT-POUND}{CTRL-X}{sret}W{rvon}{SHIFT-POUND}{$60}{sret}X{rvon} {CBM-D}{down}{SHIFT-POUND}{$e0}{sret}W{rvon}{SHIFT-POUND}{home}{sret}X{rvon}{SHIFT-POUND}{$00}{sret};{down} {$00}{swlc}{CBM-Z}2{down}{$f0}{CTRL-B}{$68}{$68}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{left}{rght}{down}{SHIFT-POUND}{CTRL-D}{left}&{down}{$60}{rvof}{f1}{orng}{$84}{lgrn}{CBM-K}{CBM-N}{CBM-Z}<{down}{$f0}{$68}N={down}P{stop}l{$fa}{CTRL-K}{CBM-S}{rght}{down}{CBM-D}"{down}{$e0}{ensh}P{$74}{SHIFT-*}{$0a}P{$70} {$82}{CTRL-K}{CBM-S}{red}{down} {$ec}{ensh}{CBM-N}{SHIFT-POUND}{$00}{$e0}{$00}{$f0}{CTRL-F}{CTRL-X}{$69}{CTRL-F}JP{$fa}{f1}{$00}{CBM-N}{CBM-X}{rvof}{CTRL-K}h){CTRL-O}{ensh}0{sret}3{red}{$68}jjjj{ensh}0{sret}2{red}{SHIFT-POUND}0{sret}4{red}{sret}5{red} 8{CTRL-G}{CBM-+}{$00}{CBM-X}{clr}{CTRL-K}{CBM-POUND}{gry2}h @{CTRL-G}{$68}{CBM-POUND}{f7}P{$f6} {$6f}{CTRL-O}{SHIFT-POUND}P {swuc}{CTRL-K}{$60}{CBM-Z}{CTRL-P}{down}I2{$f0}{wht}I{$78}{$f0}{CTRL-A}{$60}{SHIFT-POUND}0{sret}<{down} P{wht}{$60}{SHIFT-POUND}{$00}{sret}<{down} {CTRL-W}{CTRL-O}{$60}l{$00}
 4{CTRL-P}l{$82}{CTRL-K}{$6b}iss{CTRL-A}{CTRL-A}u{$73}qq{stop}{stop}qq]]{wht}{wht}npl{$7a}{CTRL-G}{CTRL-G}npl{$7a}{CTRL-G}{CTRL-G}^^^^{CTRL-P}{$0a}^^^^{CTRL-P}{$0a}{$7f}{$7f}{$7f}{$7f} {del}{$7f}{$7f}{$7f}{$7f} {del}_{$69}{$e9}{CBM-*}0{grn}_{$69}{$e9}{CBM-*}0{grn}$$$$p2$$$$p2{$00}{$00}{$00}{$00}{$70}f{$00}{$00}{$00}{$00}{$70}fvvvvvvvvvvv  {$00}{CTRL-V}l{$82}{CTRL-K}{sret}"{down}{CBM-S}{red}{down}{CBM-X}?{down}{sret}{CTRL-P}{down}{SHIFT-POUND}{dish}{sret}1{down}{SHIFT-POUND}{CTRL-U}{sret}4{down}{CBM-I}{CTRL-A}{swuc}6{down}{swuc}9{down}{swuc}:{down}J{swuc};{down}{swuc}<{down} {CBM-G}{CTRL-P} {$6f}{CTRL-O}{SHIFT-POUND}N {CTRL-L}{dish}{SHIFT-POUND}({sret}.{down}{$a0}{rvon}{gry2}h {CBM-A}{CTRL-P} {$6f}{CTRL-O} {$0a}{dish}{$68}{CBM-POUND}{f7}P{$f0}{SHIFT-POUND}p{sret}.{down} {CTRL-W}{CTRL-O}{CBM-I}{CTRL-F}{CBM-X}{$f8}{$0a}{left}{$60}{$80}JP{$f7}{SHIFT-POUND}N {CTRL-L}{dish}{SHIFT-POUND}4{CBM-I}{$0a}{left}{$6e}{CTRL-B}JP{$fa} 0{wht}{CBM-Z}2{down}P{CTRL-F} 0{CTRL-D}lh{CTRL-D}{SHIFT-POUND}{$00}{f1}{$00}{CBM-I}{stop}{CBM-X}{CTRL-A}{down}{$6a}&{$00}{$e8}{$e8}{$e8}{$e0}{CTRL-O}P{$f3}{CBM-S}{red}{down}{CBM-G}{$00}{left}{CTRL-V}{down}{CBM-X}{down}{down}P{CTRL-W} {CTRL-W}{CTRL-O}{CBM-I}{$0a}{CBM-X}{$e7}{wht}{left}.{red}JP{$f7} {$6f}{CTRL-O}{SHIFT-POUND}{$a0} {CTRL-L}{dish}{$60}{SHIFT-POUND}H {CTRL-L}{dish}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-S}{red}{down}{CBM-X}6{down}{CBM-N}{SHIFT-POUND}{$00}{$e0}{$00}{$f0}{CTRL-F}{CTRL-X}{$69}{CTRL-F}JP{$fa}{CBM-N}{CBM-X}{swuc}{CTRL-K}{sret}{CBM-Q}{red}{CBM-X}{$8f}{CTRL-K}{sret}{CBM-D}{red}{CBM-X}{blk}{CTRL-K}{sret}S{red}{CBM-X}{up}{CTRL-K}{sret}T{red}{$60}{$00}{$00}{$00}{gry1}{f1}{f8}{$83}{$8f}{sret}{f1}{$a0}{inst}{$8f}{$a0}{orng}{$a0}{gry1}{$8f}{rvof}{f8}{$84}{$a0}{$8f}{f3}{$a0}{clr}{brn}{f5}{orng}{rvof}{CBM-S}{CBM-S}{CBM-S} {$e9}{$69} nm{$67}m{$60}{$65}ommn{$64}{$67}mn{$65}nm{$67}m {$65}_{CBM-*} op{$67} m{$65}ln{$67}{$65} {$67}{$60} {$65}op{$67} m{$65}
{wht}{wht}{del} {CTRL-Y}{CTRL-O}{CTRL-U}{rvon} {CTRL-O}{CTRL-P}{CTRL-P}{CTRL-O}{swlc}{wht}{swlc}{del}{home}"{del}{dish}{ensh}{swlc}{CTRL-K}{CTRL-Y}"{home}{del}{ensh}{swlc}{home}{CTRL-L}{ensh}{swlc}  "{del}{CTRL-O}
"  {sret}{$77}{del} {$f9}
{CBM-I}{CTRL-D}{CBM-X}{left}
{left}{$68}{$82}JP{$f7}{SHIFT-POUND}{SHIFT-*} {CTRL-L}{dish}{SHIFT-POUND}{$f6}{f1}{CTRL-O}{SHIFT-POUND}X{sret}{$77}{del} {$f9}
{CBM-I}{dish}{CBM-X}{CBM-I}
{left}{$67}{$82}JP{$f7}{SHIFT-POUND}{$a0} {CTRL-L}{dish}{SHIFT-POUND}{clr} R~{SHIFT-POUND}{CBM-A} {CTRL-L}{dish}l{blu}{dish}{SHIFT-POUND}S{sret}{$77}{del}{$68}{$68}lo{CTRL-G}I~P{$f9}{$60}{$a0}{$00}l{$76}{del}{$00}{$00}{SHIFT-POUND}{$00}{sret}{CTRL-V}{down}{CBM-I}{CTRL-D}{CBM-Z}{rght}{down}{SHIFT--}{rght}{down}P{CTRL-K}{CBM-Z}"{down}{SHIFT--}"{down}P{stop}8{CBM-A}{CTRL-A}{CTRL-X}.{CTRL-V}{down}JP{$e6}{CBM-Z}{CTRL-V}{down}{$f0}{$60}{CBM-Z}{esc}{down}P\{SHIFT-POUND}{CTRL-A}{sret}2{down}{CBM-S}{rght}{down}{CBM-D}"{down} {pur}{rvon}{SHIFT-POUND}{$e9}{up}{CTRL-O}H{SHIFT-POUND}{CBM-*}{up}{CTRL-O}{$a0}({SHIFT-POUND}_{up}{CTRL-O}H{SHIFT-POUND}{$69}{up}{CTRL-O} {$6f}{CTRL-O} ,{CTRL-G}{SHIFT-POUND}{CBM-A} 4{CTRL-P}{CBM-S}{red}{down}{$de}{down}{down}P& 0{CTRL-G}{SHIFT-POUND}P 4{CTRL-P}{$a0}{$00}{SHIFT-POUND}[{up}{CTRL-O}H{SHIFT-POUND} {up}{CTRL-O}{$a0}({SHIFT-POUND}]{up}{CTRL-O}H{SHIFT-POUND} {up}{CTRL-O} {$6f}{CTRL-O}{SHIFT-POUND}{CTRL-A} 4{CTRL-P}{$60}{SHIFT-POUND}{dish}{f1}{$60}{CBM-I}{CTRL-D}{CBM-Z}{CTRL-V}{down}${$60}{$f0}{$6f}{SHIFT-POUND}{ensh} {$f0}{$0a}{SHIFT-POUND}{dish}{left}"{down}{f4}h{CBM-Z}1{down}{wht}{$60}{sret}1{down}{$ee}6{down}{SHIFT-POUND}P{CBM-D}6{down}{CTRL-X}{$69}0{f7}P{$fa}{f1}{CTRL-A}{SHIFT-POUND}{$0a}{f1}{CTRL-B}{CBM-E}{CTRL-A}{lgrn}{$de}{esc}H{SHIFT-*}{CTRL-L}P{$f6}{CBM-E}{CTRL-A}{lgrn}{$fa}{esc}H{SHIFT-*}{CTRL-X}P{$f6}{CBM-E}{CTRL-A}{lgrn}{CTRL-V}{red}H{SHIFT-*}$P{$f6}{SHIFT-POUND}{$0a}{CBM-D}6{down}{$0a}{f7}P{$fc}{CBM-POUND}{gry2}h {$00}{ensh}{$68}{CBM-POUND}{f7}P{$f6}{CBM-D}6{down}{gry2}h {ensh}{CTRL-O}{$68}{CBM-POUND}{f7}P{$f6}{CBM-Z}0{down}{sret}4{down}{$68}{CBM-N}f{$60}JP{f1}{$60} {CBM-B}{CTRL-U} {$6f}{CTRL-O} 4{CTRL-G}{SHIFT-POUND}{$e0} 4{CTRL-P}{SHIFT-POUND} {CBM-I}{CTRL-L}{left}{SHIFT--}{esc}{left}{wht}{red}{left}-{red}JP{$f4}{$60}{CBM-Z}6{down}{$f0}:N4{down}P5{SHIFT-POUND}{dish}{f1}{$00}{CBM-I}{CTRL-D},1{down}{$f0}{CTRL-V}{CBM-Z}1{down}{wht}{$00}e{$00}{sret}1{down}{SHIFT-POUND}{ensh}{left}{rght}{down}{SHIFT-POUND}{CTRL-F}{left}"{down}P{CTRL-G}f{$00}{CBM-G}{$00}JP{$de} {$00}{CTRL-V}N6{down}{$f0}{wht}{SHIFT-POUND}{wht}{sret}4{down}{$60}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{$00}{$00}{$78}  {CTRL-D}x{$60}{SHIFT-POUND}{red}{sret}{ensh}{wht}{SHIFT-POUND}{$00}{sret}{esc}{down}{$f0}{red}{CBM-Z}{esc}{down}{$f0}{CTRL-W}N0{down}{$f0}{$ea}{CBM-Z}0{down}I{CTRL-P}{CTRL-P}{CTRL-K}  {CTRL-G}{CBM-Z}{del}{down}i{CTRL-A}{sret}{del}{down}{CBM-S}{rght}{down}{CBM-D}"{down}{CBM-Z}{CTRL-D}{down}{$f0}
{$e0}{$00}P{ensh}{SHIFT-*}{CTRL-A}P{wht}{swuc}{CTRL-D}{down}{$f0}7{CBM-Z}{CTRL-G}{down}{$f0}{swlc}{$e0}{rvon}P{$0a}{SHIFT-*}{CTRL-A}P{CTRL-F}{f7}{f8}{CTRL-G}{down}{$f0}${CBM-Z}{$0a}{down}{$f0}
{$e0}{$00}P{ensh}{SHIFT-*}{swlc}P{wht}{swuc}{$0a}{down}{$f0}{rvon}{CBM-Z}
{down}{$f0}t{$e0}{rvon}Pp{SHIFT-*}{swlc}Pl{SHIFT-POUND}{$00}{sret}
{down}{SHIFT-POUND}{CTRL-A}{sret}{del}{down}{SHIFT-POUND}%{sret}0{down}{$a0}{wht}{gry2}h {$00}{ensh}{$68}{CBM-POUND}{f7}P{$f6}{CBM-Z}{esc}{down}P{red}{SHIFT-POUND}{CTRL-O}{sret}{esc}{down}{SHIFT-POUND}{CTRL-A}{sret};{down}P{CTRL-P}{$ea}{$ea}{CBM-I}{red}{swuc}{ensh}{wht}lI{ensh}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}({sret}{ensh}{wht} ${CTRL-G} {$6f}{CTRL-O}{SHIFT-POUND}P 4{CTRL-P}{$60}{sret}/{down}{CBM-Z}/{down}P{$fb}{$60}{CBM-S}{red}{down}J{$f0}{CTRL-B}{CBM-I}{CTRL-A}{CBM-X}@{down}M{CTRL-P}{down}{$f0}{stop} {CTRL-X}{CTRL-G}{$60}{CBM-Z}-{down}-+{down}Pk{CBM-Z}{$f8}{esc}I Pd{CBM-D}"{down}{SHIFT-*}{dish}P={CBM-S}{rght}{down}{$f0}{rvon}{$e0}{rvon}P4{CBM-Z}-{down}I{dish}P- {clr}{CTRL-P}{CBM-I}{$00}{$f0}{CTRL-L}{CBM-Z}-{down}I{CTRL-D}P{blu} {clr}{CTRL-P}{CBM-I}{rvon}{swuc}{rght}{down} s{CTRL-U}lD{CTRL-P} {pur}{rvon}{SHIFT-POUND} {up}{CTRL-O}H{up}{CTRL-O}{$a0}({up}{CTRL-O}H{up}{CTRL-O}{$60}{SHIFT-POUND}({sret}{CBM-T}{CTRL-X}{SHIFT-POUND}{CTRL-Y}{sret}{CBM-M}{CTRL-X}{$60}{CTRL-X}{CBM-Z}{CBM-T}{CTRL-X}{$6d}.{down}{sret}{CBM-T}{CTRL-X}{CBM-Z}{CBM-M}{CTRL-X}{$69}{$00}{sret}{CBM-M}{CTRL-X}{$60}{$ea}{CBM-S}{red}{down}{CBM-Z}{CTRL-P}{down}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT--}?{down}{$f0}({left}?{down}{SHIFT-POUND}{CTRL-Y}{f1}{CTRL-P}{CBM-I}{wht}{CBM-Z}{red}{down}I{CTRL-A}{$f0}{CTRL-B}{CBM-I}"{f3}{CTRL-O}{$a0}{CTRL-D}{CBM-E}{CTRL-O}{CBM-N}{$e8}{f4}{up}{CTRL-O}{$e0}{SHIFT-@}P{CTRL-G}{SHIFT-POUND}{CBM-A}{up}{CTRL-O}{f7}P{$ee}{$60}e{dish}1{$00}{$00}I{CTRL-Y}{$00}{$ed}{CTRL-Y}{$00}Y{rght}{$00}{$fd}{rght}{CTRL-A}{CTRL-A}{stop}{stop}{$00}{CBM-+}{CTRL-B}{CTRL-O}{CTRL-O}{stop}{CBM-+}{$00}{CTRL-A}{stop}{$00}{stop}{wht}{wht}{CTRL-D}{stop}{CTRL-D}{CTRL-B}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{CTRL-L}{$00}{dish}p{$64}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{CTRL-G}{$00}{$00}{$00}{$00}{$00}{CBM-+}{CBM-+}{CBM-+}{CTRL-L}{CTRL-L}{$00}{CTRL-L}{$00}{$00}{$00}{CTRL-A}{CBM--}{CTRL-A}Z{CTRL-A}~{CTRL-A}H{CTRL-A}R{CTRL-A}{CBM--}{CTRL-A}{$00}{CTRL-A}~{CTRL-A}{CBM--}{CTRL-A}J{CTRL-A}{CBM-F}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}p{CTRL-A}v{CTRL-A}\{CTRL-A}{$62}{CTRL-A}{$68}{CTRL-A}{$6e}{CTRL-A}{$74}{CTRL-A}{$6e}{CTRL-A}{$68}{CTRL-A}{$62}{CTRL-A}\{CTRL-A}{CBM-D}"{down}{SHIFT-*}{CTRL-D}0{home}{SHIFT-*}
{CTRL-P}{CTRL-O}{CBM-Z}-{down}-+{down}I{CTRL-A}P{wht} {f3}{wht}P{CTRL-U}{SHIFT-*}{wht}0{down}{SHIFT-*}{swlc}{CTRL-P}
{CBM-Z}-{down}-+{down}I{CTRL-B}P{stop} {$80}{wht}{$60} {CTRL-A}{CTRL-X} {yel}{del} {$68}{del} 
{del} {$e9}{home}{CBM-Z}{esc}{down}h{SHIFT-POUND}{$00}{sret}{esc}{down} \{home}{$68}{sret}{esc}{down}{$60}{f3}{$00}{$84}{CTRL-A} {CBM-A}{wht}{CBM-+}{$00}{CBM-@}{CTRL-A}{$60}{CBM-Z}{blk}{$00}{f1}S{CBM-Z}{up}{$00}{f1}T{SHIFT-POUND}{down}{CBM-I}{rvon}{$78}{sret}{blk}{$00}{swuc}{up}{$00}x{$60}{CBM-D}{CTRL-B}{down}{CBM-E}Q{sret}h{$e8}{CBM-S}{stop}{down}J{swuc}{stop}{down}P{down}H{CBM-E}Q{sret}{stop}{down}hH{f8}{CTRL-B}{down}{$68}P{stop} {$e2}{down}{SHIFT-POUND}{$00}{f1}{gry1}{sret}{stop}{CTRL-B}{$ee}{$00}{down}{$ee}{CTRL-A}{down}{$ee}/{down}{CBM-Z}{$00}{down}{$f0}{del}I{$70}P{del}{SHIFT-POUND}v{sret}{$f8}{esc}{sret}{blu}{red}{sret} {red}{sret}g{red}P{CTRL-D}{SHIFT-POUND} P{$ee}{CBM-Z}{CTRL-A}{down}I{CTRL-L}Pt{SHIFT-POUND}{$00}{sret}{CTRL-A}{down}{CBM-N}{CBM-X}{CTRL-D}{down}{$f0}({CBM-X}{wht}{down}{f1}{$f1}{CBM-X}{CTRL-F}{down}{f1}{$f2}{$a0}{$00}{CBM-E}{$f1}il{up}{$f1}H{CBM-E}{$f1}i[{up}{$f1}{$a0}({CBM-E}{$f1}i\{up}{$f1}H{CBM-E}{$f1}i^{up}{$f1}{$e8}{$e8}{$e8}{$e0}{CTRL-L}PL{CBM-Z}{CBM-F}{esc}ix{sret}{CBM-F}{esc}{sret}{CBM-C}{esc}{CBM-I}{$00}{CBM-X}{$00}{CTRL-Y}i{$80}{left}{$00}{CTRL-Y}{$e8}{$e0}{wht}P{$f3}{$6c}S{$00}{SHIFT-POUND}{CTRL-Y}{f1}{CTRL-P}{f4}{$0a}{CTRL-X}{$69}{$79}{f1}{CTRL-O}{gry2}{$f0}{swlc}{CTRL-X}{CBM-G}{CTRL-O}{$69}p{f1}{CTRL-O}{blk}{CTRL-B}{$e6}{CTRL-P}{f7}P{$f2}{$60}{$6a}{blk}{CTRL-B}{f7}{$60}{$6a}{blk}{CTRL-B}H{$60}{$6a}{blk}{CTRL-B}J{$60}{$e8}{$60}h){stop}{$f0}{CTRL-D}{$68}i{stop}{$60}{$68}i{CTRL-L}{$60}{$e0}{home}{$f0}4{$e0}~{$f0}0{SHIFT-*}{home}{$f0},{SHIFT-*}~{$f0}({SHIFT-POUND}{CTRL-V}{f1}{CTRL-B}{f4}{CTRL-X}{$69}{$79}{f1}{CTRL-A}{gry2}h{$f0}{swlc}{CTRL-X}{CBM-G}{CTRL-A}{$69}{home}{f1}{CTRL-A}{blk}{CTRL-B}{$e6}{CTRL-B}{f7}P{$f2}{CBM-E}{CTRL-A}{f1}{$00}{$68}{CBM-POUND}{CBM-G}{$00}{$f0}{CTRL-B}8{$60}{CTRL-X}{$60}{SHIFT-POUND}{$00}{sret}+{down}{$e8} W{rvon}.+{down}JJ W{rvon}.+{down}{$e8}H W{rvon}.+{down}{f7}{f7} W{rvon}.+{down}H{SHIFT-POUND}{$00}{$ec}{rght}{down}{$f0}{dish}{CBM-A}{CTRL-D}{ensh}{dish}P{CTRL-B}{ensh}{CTRL-D}L"{down}{$f0}{dish}{CBM-A}{CTRL-D}{ensh}{CTRL-B}P{CTRL-B}{ensh}{CTRL-A}m{esc}{down}{sret},{down}{CBM-Z}+{down}{$60}{CBM-Z}{rght}{down}h{CBM-Z}"{down}h{CTRL-X}{CBM-Z}{grn}{down}{$6d}{blu}{down}j{sret}{rght}{down}{CTRL-X}{CBM-Z}#{down}{$6d}${down}j{sret}"{down}{CBM-I}{CTRL-B}{f3}{CTRL-P}{CBM-S} {down}{CBM-D}%{down} {CBM-POUND}{del}{swuc} {down}{f8}%{down} {pur}{rvon}{CBM-Z}{del}{down}P{CTRL-L}{SHIFT-POUND}Z{up}{CTRL-O}H{up}{CTRL-O} {$7d}{del}P{CTRL-L}{$a0}({SHIFT-POUND}Z{up}{CTRL-O}H{up}{CTRL-O} {rvof}{del}{CBM-I}{stop}{f3}{CTRL-P}{CBM-S}!{down}{CBM-D}&{down} {CTRL-W}{del}{swuc}!{down}{f8}&{down} {pur}{rvon}{CBM-Z}{del}{down}P{CTRL-L}{SHIFT-POUND}X{up}{CTRL-O}H{up}{CTRL-O} {$7d}{del}P{CTRL-L}{$a0}({SHIFT-POUND}X{up}{CTRL-O}H{up}{CTRL-O} {rvof}{del}{$68}{sret}"{down}{$68}{sret}{rght}{down}{$60}{swuc}{blu}{down}{f8}${down} {pur}{rvon}{CBM-Z}{del}{down}P{$0a}{SHIFT-POUND}{CBM-N}{up}{CTRL-O}H{up}{CTRL-O}l{$7d}{del}{$a0}({SHIFT-POUND}{CBM-N}{up}{CTRL-O}H{up}{CTRL-O}l{rvof}{del}{CBM-I}{CTRL-A}{f3}{CTRL-P}{CBM-S}{blu}{down}{CBM-D}${down} {down}{home}{f3}{CTRL-O}{CBM-+}{CTRL-P}{rght}'{down}]'{down}P{esc}{CBM-X}'{down}{left}'{down}{CBM-+}{CTRL-O} {CBM-O}{rvon}{f3}{CTRL-O}{CBM-+}{CTRL-P}{CBM-X}'{down} J{rvon}{left}'{down}{CBM-+}{CTRL-O}{$60}{sret}+{down}-,{down}P{stop}{CBM-Z}+{down}{sret}+{down}{CBM-Z}+{down}){CTRL-B}PS{CBM-Z}+{down}){CTRL-A}PL{CBM-Z}+{down}){CTRL-D}PE{SHIFT-POUND}{dish}PA{swuc}{grn}{down}{f8}#{down} {pur}{rvon}{CBM-Z}{del}{down}P{home}{SHIFT-POUND}S{up}{CTRL-O}H{up}{CTRL-O}{$a0}({SHIFT-POUND}{$69}{up}{CTRL-O}H{SHIFT-POUND}_{up}{CTRL-O}{$60}{$a0}({SHIFT-POUND}S{up}{CTRL-O}H{up}{CTRL-O}{$a0}{$00}{SHIFT-POUND}{CBM-*}{up}{CTRL-O}H{SHIFT-POUND}{$e9}{up}{CTRL-O}{$60}{CBM-I}{$00}{f3}{CTRL-P}{CBM-S}{grn}{down}{CBM-D}#{down} {down}{home}{f3}{CTRL-O}{CBM-+}{CTRL-P}{rght}'{down}]'{down}P{esc}{CBM-X}'{down}{left}'{down}{CBM-+}{CTRL-O} {CBM-O}{rvon}{f3}{CTRL-O}{CBM-+}{CTRL-P}{CBM-X}'{down} J{rvon}{left}'{down}{CBM-+}{CTRL-O}{$60}{sret}+{down}-,{down}P{stop}{CBM-Z}+{down}{sret}+{down}{CBM-Z}+{down}){dish}PS{CBM-Z}+{down}){CTRL-D}PL{CBM-Z}+{down}){CTRL-A}PE{SHIFT-POUND}{CTRL-B}PA{SHIFT-POUND}{$00}{sret}{CTRL-B}{CTRL-X}{SHIFT-POUND}{CTRL-A}{sret}@{CTRL-X} {CTRL-A}{CTRL-X}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-B}{CTRL-X}{SHIFT-POUND}{wht}{sret}@{CTRL-X}{CBM-S}{rght}{down}{CBM-D}"{down} {down}{home} L{down}I8P{CTRL-D}{SHIFT-POUND}{CTRL-A}P{CTRL-V}I6P{CTRL-D}{SHIFT-POUND}{dish}P{swlc}I4P{CTRL-D}{SHIFT-POUND}{CTRL-D}P{CTRL-F}I2P{CTRL-G}{SHIFT-POUND}{CTRL-B}-+{down}P{stop}{CBM-Z}-{down}{sret}-{down}-+{down}{$f0}{$75} {CBM-O}{rvon}{swuc}{rght}{down}{f8}"{down}{CBM-D}"{down}{CTRL-X}{SHIFT-POUND}{$79}{$6d}{rght}{down}{f1}{CTRL-A}{SHIFT-POUND}{CTRL-V}{f1}{CTRL-B}{gry2}{$f0}{swlc}{CTRL-X}{CBM-G}{CTRL-A}{$69}{home}{f1}{CTRL-A}{blk}{CTRL-B}{$e6}{CTRL-B}{f7}P{$f2}{$84}{$00}{CBM-E}{CTRL-A}{CBM-D}{red}{down}{$f0}{ensh}j{$66}{$00}j{$66}{$00}{f7}P{$f7}h){stop}I{CTRL-A}P{stop}N{CTRL-P}{down}{$68}){$fe}{ensh}{CTRL-B}{CBM-D}{red}{down}{$f0}{ensh}{CTRL-F}{$00}*{CTRL-F}{$00}*{f7}P{$f7}{up}{CTRL-A}{CBM-D}"{down} {pur}{rvon}{SHIFT-POUND}{$e9}{up}{CTRL-O}H{SHIFT-POUND}{CBM-*}{up}{CTRL-O}{$a0}({SHIFT-POUND}_{up}{CTRL-O}H{SHIFT-POUND}{$69}{up}{CTRL-O}{$60}{CBM-S}{rght}{down}{CBM-D}"{down} {pur}{rvon}{CBM-Z}-{down}{$6a}{CBM-A}{ensh}H{$6a}{CBM-A}{wht}H{$6a}{CBM-A}{CTRL-A}H{SHIFT-POUND}{$00}{SHIFT-*}{$00}{$f0}{CTRL-F}{CTRL-X}{$69}{CTRL-D}{f7}P{$fa}{CBM-N}{CBM-X}{f2}{CTRL-X}{up}{CTRL-O}{$e8}H{CBM-X}{f2}{CTRL-X}{up}{CTRL-O}{$e8}{$a0}({CBM-X}{f2}{CTRL-X}{up}{CTRL-O}{$e8}H{CBM-X}{f2}{CTRL-X}{up}{CTRL-O}{$60}{SHIFT-POUND}{$79}{f1}{CTRL-A}{f1}{CTRL-O}{SHIFT-POUND}{CTRL-V}{f1}{CTRL-B}{SHIFT-POUND}{CTRL-Y}{f1}{CTRL-P}{$a0}{$00}{$84}{$00}{CBM-I}{home}{CBM-E}{CTRL-A}{CBM-D}{red}{down}{$f0}{wht}jj{f7}P{$fb}){stop}I{$00}{$f0}(I{CTRL-A}P{CTRL-V}{SHIFT-POUND}u{up}{CTRL-O}H{SHIFT-POUND}i{up}{CTRL-O}{$a0}({SHIFT-POUND}j{up}{CTRL-O}H{SHIFT-POUND}k{up}{CTRL-O}P{swlc}{SHIFT-POUND} {up}{CTRL-O}H{up}{CTRL-O}{$a0}({up}{CTRL-O}H{up}{CTRL-O}{$e6}{CTRL-A}P{CTRL-B}{$e6}{CTRL-B}{CTRL-X}{CBM-G}{CTRL-O}{$69}{CTRL-B}{f1}{CTRL-O}{blk}{CTRL-B}{$e6}{CTRL-P}{$a0}{$00}JP{CBM-A}{CTRL-X}{CBM-G}{CTRL-O}{$69}*{f1}{CTRL-O}{blk}{CTRL-B}{$e6}{CTRL-P}{$e6}{$00}{CBM-G}{$00}I{home}P{gry3}{$60}{CBM-N}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}*{$00}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{$00}*{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{$00}{$00}{CTRL-U}{$00}{$00}{$00}{$00}*{$00}*{$00}{$00}{$00}{$00}{CTRL-U}{$00}{$00}{$00}**{$00}{CTRL-U}{$00}*********{$00}{CTRL-U}{$00}**{$00}{$00}{$00}{CTRL-U}{$00}*{$00}{$00}{$00}{$00}{$00}{$00}{$00}*{$00}{CTRL-U}{$00}{$00}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}**{$00}*****{$00}**{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{$00}{$00}{CTRL-U}{$00}*{$00}{$00}{$00}{$00}{$00}{$00}{$00}*{$00}{CTRL-U}{$00}{$00}{$00}**{$00}{CTRL-U}{$00}*********{$00}{CTRL-U}{$00}**{$00}{$00}{$00}{CTRL-U}{$00}*{$00}{$00}{$00}{$00}{$00}{$00}{$00}*{$00}{CTRL-U}{$00}{$00}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{$00}{CTRL-U}*{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}*{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}*{$00}{CTRL-U}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{$00}{CTRL-U}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}{CTRL-U}d{CBM-I}{CTRL-A}{CTRL-X}{SHIFT-POUND}{$79}{$7d}{rght}{down}{f1}{CTRL-A}{SHIFT-POUND}{CTRL-V}{f1}{CTRL-B}{CBM-X}"{down}h{CBM-POUND}{$f0}{swlc}{CTRL-X}{CBM-G}{CTRL-A}{$69}{home}{f1}{CTRL-A}{blk}{CTRL-B}{$e6}{CTRL-B}{f7}P{$f2}{$68}{CBM-POUND}{f4}h{CBM-X}{rght}{down}{CBM-N} {pur}{rvon}{$68}{CBM-N}{SHIFT-POUND}{$60}{sret}n{CTRL-V} {del}{CTRL-V}{SHIFT-POUND}{$e6}{sret}n{CTRL-V}{$e8}{$e0}{wht}P{SHIFT-*}{$60}{$00}{$ea}{$ea}{$a0}{$00}{$84}{CTRL-P}{SHIFT-POUND}{$79}{f1}{CTRL-A}{SHIFT-POUND}{CTRL-V}{f1}{CTRL-B}{CBM-I}{$00}{SHIFT-POUND}{stop}{f1}{CTRL-O}{CBM-E}{CTRL-A}){stop}{CBM-D}{red}{down}{$0a}{$0a}{CTRL-F}{CTRL-O}{CTRL-F}{CTRL-O}{f7}P{$f7}{f1}{SHIFT--}{CBM-E}{CTRL-A}{wht}{CTRL-O}e{CTRL-O}{wht}{SHIFT--}{up}{CTRL-A}{$e6}{CTRL-A}P{CTRL-B}{$e6}{CTRL-B}{$e8}{$e0}{home}PU{$e6}{CTRL-P}{CBM-G}{CTRL-P}I{home}PK{$60}{CBM-N}{$e9}_{$69}{$e9}{CBM-*}{$69}{CBM-N}{CBM-N}{CBM-*}{$e9}{$69}{$e9}{CBM-N}_{CBM-*}{CBM-X}~{CTRL-X}{left}~{$7f}JP{$f7}{SHIFT-POUND}({f1}{$f3}{SHIFT-POUND}{CTRL-Y}{f1}{$f4}{SHIFT-POUND}({f1}{$f5}{SHIFT-POUND}{$80}{f1}{$f6}{$a0}{$00}{CBM-E}{$f3}{up}{$f5}H{SHIFT-*}(P{$f7}{CTRL-X}{CBM-G}{$f3}{$69}({f1}{$f3}{CBM-G}{$f4}{$69}{$00}{f1}{$f4}{CBM-G}{$f5}{$69}({f1}{$f5}{CBM-G}{$f6}{$69}{$00}{f1}{$f6}{$e8}{$e0}{CTRL-X}PW{$60}{sret}{lblu}{CTRL-G}{SHIFT-POUND}{$79}{sret}{$a0}{CTRL-G}{SHIFT-POUND}
{sret}{$ee}{CTRL-G}{$60}{$ea}{$ea}{$ea}8{CBM-Z}{CBM-T}{CTRL-X}{$ed}.{down}{sret}{CBM-T}{CTRL-X}{CBM-Z}{CBM-M}{CTRL-X}{$e9}{$00}{sret}{CBM-M}{CTRL-X}{$60}{clr}{$83}{$8f}{rvof}{f1}{CBM-X}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{$a0}{f7}{f2}{CBM-Z}{clr}{$83}{$8f}{rvof}{f1}{CBM-X}{CBM-A}{CBM-J}{CBM-A}{CBM-A}{CBM-A}{$a0}{$a0}{clr}{$83}{$8f}{rvof}{f1}{CBM-X}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}                                        {$70}@@@@@@@@@@@@@@@@@@{$6e}{$70}@@@@@@@@@@@@@@@@@@{$6e}]uiuiuiuiuiuiuiuiui]]uiuiuiuiuiuiuiuiui]]jkjkjkjkjkjkjkjkjk]]jkjkjkjkjkjkjkjkjk]]  {$70}@@{$6e}ui{$70}@@@@@@{$6e}ui]]ui{$70}@@@@@@{$6e}ui{$70}@@{$6e}  ]]  {$6d}@@{$7d}jk{$6d}@@@@@@{$7d}jk{$6d}{$7d}jk{$6d}@@@@@@{$7d}jk{$6d}@@{$7d}  ]]uiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiui]]jkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjk]]ui{$70}@@{$6e}ui{$70}{$6e}ui{$70}@@@@@@@@@@@@{$6e}ui{$70}{$6e}ui{$70}@@{$6e}ui]]jk{$6d}@@{$7d}jk]]jk{$6d}@@@@@{$6e}{$70}@@@@@{$7d}jk]]jk{$6d}@@{$7d}jk]]uiuiuiui]]uiuiuiui]]uiuiuiui]]uiuiuiui]]jkjkjkjk]]jkjkjkjk]]jkjkjkjk]]jkjkjkjk]{$6d}@@@@@{$6e}ui]{$6d}@@@@@{$6e}  ]]  {$70}@@@@@{$7d}]ui{$70}@@@@@{$7d}      ]jk]{$70}@@@@@{$7d}  {$6d}{$7d}  {$6d}@@@@@{$6e}]jk]            ]ui]]                  ]]ui]            ]jk]]                  ]]jk]            ]ui]]  {$70}@@@@@{$78}{$78}@@@@@{$6e}  ]]ui]      {$70}@@@@@{$7d}jk{$6d}{$7d}  ]            ]  {$6d}{$7d}jk{$6d}@@@@@{$6e} uiuiuiui    ]            ]    uiuiuiui  jkjkjkjk    ]            ]    jkjkjkjk {$6d}@@@@@{$6e}ui{$70}{$6e}  ]            ]  {$70}{$6e}ui{$70}@@@@@{$7d}      ]jk]]  {$6d}@@@@@@@@@@@@{$7d}  ]]jk]            ]ui]]                  ]]ui]            ]jk]]                  ]]jk]            ]ui]]  {$70}@@@@@@@@@@@@{$6e}  ]]ui]      {$70}@@@@@{$7d}jk{$6d}{$7d}  {$6d}@@@@@{$6e}{$70}@@@@@{$7d}  {$6d}{$7d}jk{$6d}@@@@@{$6e}]uiuiuiuiuiuiuiuiui]]uiuiuiuiuiuiuiuiui]]jkjkjkjkjkjkjkjkjk]]jkjkjkjkjkjkjkjkjk]]ui{$70}@@{$6e}ui{$70}@@@@@@{$6e}ui]]ui{$70}@@@@@@{$6e}ui{$70}@@{$6e}ui]]jk{$6d}@{$6e}]jk{$6d}@@@@@@{$7d}jk{$6d}{$7d}jk{$6d}@@@@@@{$7d}jk]{$70}@{$7d}jk]]  ui]]uiuiuiuiuiui  uiuiuiuiuiui]]ui  ]]  jk]]jkjkjkjkjkjk  jkjkjkjkjkjk]]jk  ]{$6b}@{$6e}ui]]ui{$70}{$6e}ui{$70}@@@@@@@@@@@@{$6e}ui{$70}{$6e}ui]]ui{$70}@{$73}{$6b}@{$7d}jk{$6d}{$7d}jk]]jk{$6d}@@@@@{$6e}{$70}@@@@@{$7d}jk]]jk{$6d}{$7d}jk{$6d}@{$73}]uiuiuiui]]uiuiuiui]]uiuiuiui]]uiuiuiui]]jkjkjkjk]]jkjkjkjk]]jkjkjkjk]]jkjkjkjk]]ui{$70}@@@@@{$7d}{$6d}@@@@@{$6e}ui]]ui{$70}@@@@@{$7d}{$6d}@@@@@{$6e}ui]]jk{$6d}@@@@@@@@@@@@{$7d}jk{$6d}{$7d}jk{$6d}@@@@@@@@@@@@{$7d}jk]]uiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiui]]jkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjk]{$6d}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@{$7d}                                      05.  {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}_{$69} {CBM-N}_{$69}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}  {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-*}{$e9} {CBM-N}{CBM-*}{$e9}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}]    0 clr:poke59468,12
    1 rem canyon! copyright (c) 1979 larry stevens
    2 rem p.o. 98
    3 rem albany, oregon 97321
    4 :
    5 rem cursor #12, july, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of jan 5 1981
   90 pg$="canyon!":nm$="12":gosub62000
  100 rem
  105 lp=2
  110 fm$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  120 nr$="{up}{up}{rvon}new record"
  130 fl$="{rvon}                                        "
  140 fl$="{up}{up}{up}{up}{up}"+fm$+fl$+fl$+fl$+fm$+"{up}{up}{up}"
  150 cs=59467:tn=59466:pc=59464:sd=16
  200 print"{clr}{down}{down}{down}in light-years per thirkond, how fast
  210 print"{down}is your ship (1-100) ? ";:gosub60000
  215 ifin$<>""then220
  216 in$="70":print"{down}standard speed is ";in$;" light-years":print"per thirkond."
  217 fori=1to3000:next
  220 sp=val(in$):ifsp<1orsp>100then200
  230 tm=900/sp:dl=int(tm-9+.5)
  300 fori=0to8:readrk$(i):nexti
  310 rk$(9)=chr$(34)+"han solo"+chr$(34)
  320 databeginner,novice,learner,flyer,ace,super ace,wing commander
  330 datageneral,5 star general
  350 fori=0to9:readch(i):nexti
  360 data0,-1,0,1,-1,0,1,-1,0,1
 1000 p=32952
 1010 q=32952
 1020 print"{clr}";
 1030 printtab(20)"{rvon}{down}{down}{down}{down} {rvof}   Z   {rvon} "
 1040 fori=1to18:printtab(20)"{rvon} {rvof}  . .  {rvon} ":next
 1050 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-+}       {CBM-+}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1060 print"{up}{up}{up}seconds to"
 1070 print"launch: "
 1080 fori=119to1step-1:print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"int(i/30)" ":next
 1090 print"{rvon}launch"
 1100 gett$:ift$<>""then1100
 1110 pokep+40,32
 1120 d=0:y=8:x=18
 1200 ti$="000000"
 1500 d=d+1
 1510 a=usr(0):q=p:p=p+ch(a)
 1520 c=peek(p+40):ifc<>32then2000
 1550 z=int(10*rnd(1))
 1560 ifz>4thenx=x+1
 1570 ifz<5thenx=x-1
 1580 ifx<0thenx=0
 1590 ifx+y>35thenx=35-y
 1600 y1=y1+1:ify1>200theny=y-1:y1=0:ify<2theny=2
 1610 printtab(x)"{rvon}  "spc(y)"  "
 1620 pokep,90
 1630 pokeq-40,86:pokeq-40,32:q=p
 1650 tm=ti+dl
 1660 ifti<tmthen1660
 1670 goto1500
 1700 d=d+1
 1710 a=usr(0):q=p:p=p+ch(a)
 1730 c=peek(p+40):ifc<>32then2000
 1810 z=int(10*rnd(1))
 1820 ifz>4thenx=x+1
 1830 ifz<5thenx=x-1
 1840 ifx<0thenx=0
 1850 ifx+y>35thenx=35-y
 1860 y1=y1+1:ify1>200theny=y-1:y1=0:ify<2theny=2
 1870 printtab(x)"{rvon}  "spc(y)"  "
 1880 pokep,90
 1890 pokeq-40,86:pokeq-40,32:q=p
 1900 goto1700
 2000 fori=1to5:pokep+40,86:forj=1to40:next:pokep+40,42:forj=1to40:next:next
 2010 pokep,32:pokep+40,86:pokep+41,91:pokep+39,91:pokep,91:pokep+80,91
 2015 gosub2200
 2020 d=d/100:d=(int(d*100))/100:ifr<dthenr=d:d1=1
 2030 printfl$:print"{rvon}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}light years traveled:";d
 2040 print"{rvon}{rght}{rght}{rght}{rght}{rght}record run:      ";r
 2050 gosub5000:ifd1=1thend1=0:printtab(30)nr$
 2060 gett$:ift$<>""then2060
 2070 print"{down}launch again? ";:gosub60000
 2080 ifleft$(in$,1)<>"n"then1000
 2100 print"{clr}{down}results of your training flights:
 2110 gosub60500:print"{up}"
 2120 fori=0to9
 2130 ifrk(i)>0thenprinttab(15-len(rk$(i)));rk$(i);" ";rk(i)
 2140 nexti
 2150 print:gosub60500:print"the flights were at a speed of";sp
 2160 print"light-years per thirkond."
 2170 end
 2200 ifsdthenpokecs,sd:poketn,95:fori=128to16step-1:pokepc,i:nexti
 2210 pokepc,0:poketn,0:pokecs,0:return
 5000 ifd>=9thenprint"{rvon}{up}{rght}{rght}{rght}{rght}{rght}is that you, han solo?":rk(9)=rk(9)+1:return
 5010 print"{rvon}{up}{rght}{rght}{rght}{rght}{rght}your rating:{rght}{rght}{rght}{rght}";rk$(d):rk(d)=rk(d)+1:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}";:gosub60400:goto61000
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 61000 dimj(15):poke59456,0:j$=" joystick"
 61005 restore:fori=0to15:j(i)=5:next
 61010 readp$:ifp$<>"&js&"then61010
 61015 readi,d,f,q,s,k:fort=i+8tod:readx:poket,x:next
 61016 ifqv=1thenpokef,176:pokeq,3:pokeq+1,2
 61020 print"{down}{down}using a";j$;"? ";:gosub60000:ifleft$(in$,1)<>"y"thens=k:goto61070
 61030 print:fori=0to5:readp$,p:gosub61100:t(i)=t:j(t)=p:nexti
 61033 fori=1to5:ift(i-1)<>t(i)then61040
 61035 nexti:print"{down}{rvon}is your";j$;" plugged in?":goto61005
 61040 fori=1to4:j(t(i)andt)=0:next:fori=1to2:forj=3to4:readp:j(t(i)andt(j))=p
 61060 next:next:forj=0to15:poked+1+j,j(j):next
 61070 poke1,s:poke2,2:clr:js=1:gosub60400:print"{clr}";:goto100
 61100 print"{down}hold";j$;" ";p$;" & press a key"
 61110 gett$:ift$=""then61110
 61120 t=peek(59471):t=int(t/16)andt:return
 61200 data&js&,651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
 61210 data237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
 61220 data48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
 61230 data0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
 61240 data131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16
 61250 datacentered,5,left,4,right,6,up,8,down,2,button down,0,7,1,9,3
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by larry stevens{down}
 62020 gosub60500
 62030 print"{down}train to be a starship pilot
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=3:gosub60200
 62110 print"the latest innovation in amusement park
 62120 print"{down}rides is one in which you are allowed to
 62130 print"pilot a 'starship' down a jagged canyon.
 62140 print"(true, there are no canyons in space,
 62150 print"{down}but there are things just as nasty for
 62160 print"{down}piloting, so the canyon serves well.)
 62170 print"{down}{down}depending on how well you do, the park
 62180 print"{down}will award you a rank from 'beginner' to
 62190 print"'5 star general'.
 62200 gosub60200
 62210 print"to control your motion, you can use
 62220 print"{down}either a joystick or the numeric keypad.
 62230 print"{down}push the joystick left to move left, and
 62240 print"push it right to move right.
 62250 print"{down}{down}for the keypad, the {rvon}4{rvof} key moves you
 62260 print"{down}left, and the {rvon}6{rvof} moves you right. if you
 62270 print"{down}hold a key down, you will keep moving.
 62280 gosub60200
 62290 print"a final warning: many erstwhile 'pilots'
 62300 print"blow everything by trying to move before
 62310 print"they leave the launch tube. don't you
 62320 print"{down}be one of them.
 62340 gosub60200
    0 clr:poke59468,12
    1 rem malcolm michael
    2 rem 663 alcatraz #4
    3 rem oakland,ca. 94609
    4 :
    5 rem cursor #21, june/july 1980
    6 rem copyright(c)1980 the code works
    7 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 1aug80
   90 pg$="capture!":nm$="21":gosub62000
  100 y=87:w=160:m=42:g=32:br=214
  110 ul=32848:s1=59464:s2=59466:s3=59467
  120 print"{down}difficulty (1-9) ? ";:gosub60000:df=9-val(in$)
  125 ifin$=""thendf=5:print"{down}i'll assume 5, then.":fori=1to500:nexti
  130 ifdf<0ordf>8then120
  160 ys=0
  170 bs=0
  180 b=1
  190 n=200
  220 a=0:c=0:x=0
  240 dimbr(b),bc(b),bp(b),bm(b)
  250 fora=1to9:readdr(a),dc(a):nexta
  260 data1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
  270 bl$="                                      "
  280 wd=40
  290 print"{clr}"
  300 print"{rvon}";bl$;" {left}{inst} "
  310 fori=1to21:print"{rvon} {rvof}";bl$;"{left}{rvon} {left}{inst}":nexti
  320 print"{rvon}";bl$;" {left}{inst} {home}"
  330 fora=1ton
  340 gosub1130:pokevp,br
  350 nexta
  360 pokes3,16:pokes2,15:pokes1,50
  370 fora=0tob:bm(a)=int(rnd(1)*df)
  375 gosub1130:fori=-1to1:forj=-1to1:ifpeek(vp+i*wd+j)=gthen390
  380 nextj,i:goto375
  390 pokes1,75+25*a:forc=1to20:pokevp,m+128
  395 bp(a)=vp:br(a)=vr:bc(a)=vc
  400 pokevp,m:nextc,a
  410 gosub1130:hp=vp:hr=vr:hc=vc
  420 pokes3,0
  430 fora=0tob
  440 ifabs(hr-br(a))<10andabs(hc-bc(a))<20then410
  450 nexta
  460 pokes3,16:pokes2,15
  470 pokehp,y
  480 print"{home}      move when ready..."
  490 pokes1,255:pokehp,(peek(hp)+128)and255:fora=1to200:next:geta$
  500 pokes1,245:ifval(a$)=0then490
  510 print"{home}";bl$
  520 gosub1110:ti$="000000":pokehp,y
  530 i=0:pokes3,0:pokes1,100:goto550
  540 geta$:bm=0
  550 print"{home}time: ";mid$(ti$,3,2);":";right$(ti$,2)
  560 ifa$=""then590
  570 ocp=cp:x=val(a$):cr=dr(x):cc=dc(x):cp=cr*wd+cc
  580 ifocp<>cpthenll=0
  590 sd=0
  600 x=peek(hp+ll+cp):ifx=brthenll=ll+cp:sd=16:goto600
  610 pokes3,sd:pokes2,15:ifcp=0then670
  620 ifx=wor(x=mandll<>0)theni=0:goto670
  640 hp=hp+cp:ifll<>0thenpokehp+ll,br
  650 pokehp-cp,g:pokehp,y:ifx=mthen820
  660 hr=hr+cr:hc=hc+cc
  670 k=0:fora=0tob:ifbp(a)>0then675
  672 ifabs(br(a)-hr)>1orabs(bc(a)-hc)>1then790
  673 bp(a)=abs(bp(a))
  675 bm(a)=bm(a)-1:ifbm(a)>=0thenk=k+1:goto790
  676 bm(a)=df:op=abs(bp(a))
  680 dh=sgn(hc-bc(a)):dv=wd*sgn(hr-br(a))
  690 np=op+dv+dh:x=peek(np):ifx=yorx=gthen760
  700 np=op+dh:x=peek(np):ifx=yorx=gthen760
  710 np=op+dv:x=peek(np):ifx=yorx=gthen760
  720 c=0:np=-op:for d=1 to 9
  730 t=bp(a)+wd*dr(d)+dc(d)
  740 x=peek(t):if x=g or x=y then c=c+1:if rnd(1)>(c-1)/c then np=t
  750 next d
  760 bp(a)=np:ifnp<0then790
  765 pokeop,g:pokenp,m:k=k+1:np=np-ul:br(a)=int(np/wd):bc(a)=np-wd*br(a)
  770 forx=0tob:ifbp(x)>0then780
  775 ifabs(bc(x)-bc(a))<2andabs(br(x)-br(a))<2thenbp(x)=abs(bp(x)):k=k+1
  780 nextx
  790 nexta:ifk=0then880
  800 ifpeek(hp)=mthen820
  810 goto540
  820 print"{home}{down}{rvon} you have been eaten by a wild beast!!!"
  830 bs=bs+1:x=m:pokes1,30:pokes3,16:pokes2,15
  840 fora=1to20:pokehp,x:forc=1to20:nextc:pokes1,45:pokep,y
  850 forc=1to20:next:pokes1,40:next
  860 pokehp,93:fora=1to5:pokes1,170-a^2:next:pokehp-wd,91
  870 goto920
  880 print"{home}{down}{rvon}you've won! the wild beasts are caught!!":ys=ys+1:x=83
  890 pokes1,30:pokes3,16:pokes2,15
  900 fora=1to20:pokehp,x:forc=1to10:nextc:pokes1,255
  910 pokehp,y:forc=1to30:next:pokes1,235:next
  920 pokes1,68:pokes2,255:pokes3,0
  930 gosub1110:print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
  940 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}play again (y/n) ?{SHIFT--}"
  950 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
  960 geta$:ifa$="y"then290
  970 ifa$<>"n"then960
  980 print"{clr}{down}{down}{down}you played a total of"bs+ys"rounds.{down}"
  990 a$="you":b$="the wild beasts"
 1000 t=ys:gosub2000:t=bs:gosub2000
 1010 c=int(100*ys/(ys+bs)):a$=str$(c)+"%":ifc=0thena$="none"
 1020 print"you won "a$" of the time."
 1030 onint((c+ys+bs)/20)goto1050,1060,1070,1080,1080,1090,1090,1090,1090
 1040 a$="purina(tm) beast chow":goto1100
 1050 a$="survivor":goto1100
 1060 a$="beginning beast trapper":goto1100
 1070 a$="advanced beast trapper":goto1100
 1080 a$="professional trapper":goto1100
 1090 a$="expert professional":goto1100
 1100 print"{down}rating: "a$"{down}{down}{down}{down}{down}{down}":end
 1110 print"{home}{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}score: beasts:"bs" you:"ys
 1120 return
 1130 vp=int(rnd(1)*wd*21):ifpeek(vp+ul)<>gthen1130
 1140 vr=int(vp/wd):vc=vp-wd*vr:vp=vp+ul
 1150 return
 2000 printa$;:if t=0 then print" never";
 2010 print" caught ";b$;
 2020 if t>0 then print t;"time";:ift>1thenprint"s";
 2030 print".":print
 2040 t$=a$:a$=b$:b$=t$:return
 2100 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2110 print abs(br(a)-hr);"{left} ";abs(bc(a)-hc);"{left} "
 2120 ifpeek(152)=0then2120
 2130 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by malcolm michael
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 gosub60500
 62030 print"{down}trap the wild beasts
 62040 print"{down}{down}press {rvon}return{rvof} to begin"
 62050 gett$:ift$=""then62050
 62060 goto60300
  100 rem **this is the game of capture**
  110 rem **as copied by g.douglas**
 1000 rem
 1010 print"{clr}";:forj=1to18:print"{rght}";:nextj
 1020 print"S{down}{left}{left}SSS{down}{left}{left}{left}{left}SSSSS{down}{left}{left}{left}{left}{left}{left}";
 1021 print  "SSSSSSS{down}{left}{left}{left}{left}{left}{left}SSSSS{down}{left}{left}{left}{left}SSS{down}{left}{left}S"
 1030 print"{down}{down}welcome to{down}{down}{down}  capture"
 1040 print"{down}{down}{down}{down}want instructions (yes or no)?";:gosub5000
 1050 ifb$<>"yes"then 1100
 1060 :x=-1
 1070 :print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1080 :print"i'll print instructions after i make"
 1090 :print"{down}{down}the playing board..."
 1095 :forj=1to5000:nextj
 1100 dimd$(20),e$(20),l(26),m(26),r(25),c(25),p$(2)
 1110 p$(1)="#":p$(2)="S"
 1140 forj=1to25:readr(j),c(j):nextj
 1150 data-3,0,-2,-1,-2,0,-2,1
 1155 data-1,-2,-1,-1,-1,0,-1,1,-1,2
 1160 data0,-3,0,-2,0,-1,0,0,0,1,0,2,0,3
 1165 data1,-2,1,-1,1,0,1,1,1,2
 1170 data2,-1,2,0,2,1,3,0
 1180 a$="":forj=1to40:a$=a$+" ":nextj
 1190 forj=1to20:d$(j)=a$:nextj
 1195 print"{clr}";
 1200 forj=1to300
 1210 :r8=1+int(20*rnd(1)):c8=1+int(40*rnd(1))
 1220 :p8=32767+c8+40*(r8-1):ifpeek(p8)<>32then1210
 1230 :c$="{CBM-+}":ifj>26thenpokep8,102
 1240 :ifj<27thenl(j)=100*r8+c8:c$=chr$(j+64):pokep8,j:m(j)=l(j)
 1250 :gosub6000
 1260 nextj
 1300 forj=1to20:e$(j)=d$(j):nextj
 1400 ifx<0thengosub9000
 2000 t=2
 2100 print"{home}";:forj=1to21:print"{down}";:nextj
 2110 print"how many human players (1 or 2)? ";
 2120 gosub5000:ifb$=""then2120
 2130 ifb$<>"1"andb$<>"2"then2110
 2140 pl=val(b$)
 2150 ifpl=2thengosub7000:goto3000
 2200 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}ok,i'll play the #'s"
 2210 print"{down}{down}{down}who goes first (1=computer 2=you)?";
 2220 gosub5000:ifb$=""then2220
 2230 ifb$<>"1"andb$<>"2"thenprint:goto2210
 2240 t=3-val(b$):gosub7000
 3000 rem*** generate computers move***
 3100 t=3-t
 3110 ifpl=2ort=2then4000
 3130 print"please stay quiet while i think...":e=0:print
 3160 forj=1to26
 3200 :ifl(j)=0then3900
 3210 :printchr$(j+64);" ";
 3220 :r=int(l(j)/100):c=l(j)-r*100
 3240 :q=0
 3250 :fork=1to25
 3260 ::r1=r+r(k):ifr1>20 or r1<1 then3400
 3270 ::c1=c+c(k):ifc1>40orc1<1then3400
 3280 ::x$=mid$(d$(r1),c1,1):ifx$=" "orx$="#"then3400
 3290 ::q=q+1
 3400 :nextk
 3500 :ifq>ethenm$=chr$(j+64):e=q:goto3900
 3510 :ifq=ethenm$=m$+chr$(j+64)
 3900 nextj
 3910 x=1+int(len(m$)*rnd(1))
 3920 z$=mid$(m$,x,1):x=asc(z$)-64
 3950 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}i capture ";z$:gosub4300
 4000 rem*** human's move ***
 4110 print"the ";p$(t);"'s capture...";
 4200 gosub5000:ifb$=""then4200
 4210 ifb$="ins"thengosub9000:goto4110
 4220 ifb$="boa"thengosub7000:goto4110
 4230 iflen(b$)<>1then4260
 4240 x=asc(b$)-64:ifx<1orx>26then4260
 4250 ifl(x)<>0then4300
 4255 print:print"that letter has been captured.":goto4270
 4260 print:print"i don't understand your move..."
 4270 print"  type ins for instructions"
 4280 print"  type boa to print the board"
 4290 goto4110
 4300 r=int(l(x)/100):c=l(x)-r*100
 4390 c$=p$(t)
 4400 forj=1to25
 4410 :r8=r+r(j):ifr8<1orr8>20then4500
 4420 :c8=c+c(j):ifc8<1orc8>40then4500
 4430 :z$=mid$(d$(r8),c8,1):ifz$=" "then4500
 4440 :x=asc(z$):ifx>64andx<91thenl(x-64)=0
 4450 :gosub6000
 4500 nextj
 4520 gosub7000:x=0
 4600 forj=1to26:x=x+l(j):nextj
 4610 ifx=0then8000
 4700 goto3000
 5000 rem *** get input
 5100 b$=""
 5120 geta$:ifa$<>""then5120
 5200 geta$:ifa$=""then5200
 5300 ifasc(a$)=13then return
 5400 b$=b$+a$:printa$:goto5200
 6000 rem *** update board ***
 6100 ifc8=1thend$(r8)=c$+right$(d$(r8),39):return
 6200 ifc8=40thend$(r8)=left$(d$(r8),39)+c$:return
 6300 d$(r8)=left$(d$(r8),c8-1)+c$+right$(d$(r8),40-c8):return
 7000 rem *** print board ***
 7010 print"{clr}";
 7100 forj=1to20:printd$(j);:nextj
 7200 print:return
 8000 rem *** end of game ***
 8100 print"{clr}now, let's see who won..."
 8200 h1=0:h2=0
 8300 forj=1to20
 8310 :printd$(j);
 8320 :fork=1to40
 8330 ::a$=mid$(d$(j),k,1)
 8340 ::ifa$="#"thenh1=h1+1:goto8400
 8350 ::ifa$="S"thenh2=h2+1
 8400 :nextk
 8500 nextj
 8600 ifh1<>h2then8700
 8620 print"tie game!!! each has ";h1;" captives.":goto8720
 8700 print"the ";p$((sgn(h2-h1)+3)/2);"'s win!!!"
 8710 print"the #'$ have";h1;" and the S's ";h2
 8720 print"press return to play again."
 8730 print"press stop to stop."
 8740 gosub5000
 8750 iflen(b$)>0thenend
 8760 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}1 = same setup"
 8770 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}2 = new board{down}{down}"
 8780 print"please type 1 or 2...";
 8790 gosub5000:ifb$=""then8790
 8800 ifb$="2"thenrun1100
 8810 ifb$<>"1"thenprint:goto8780
 8820 forj=1to20:d$(j)=e$(j):nextj
 8830 forj=1to26:l(j)=m(j):nextj
 8840 gosub7000:goto2000
 9000 rem *** instructions ***
 9010 print"{clr}";
 9100 print"going in turn the players (# and S)"
 9110 print"capture any letter on the board. not"
 9120 print"counting spaces, all characters within"
 9125 print"this size field:";
 9130 print"  {down}{CBM-+}{down}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 9131 print"{down}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}a{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{CBM-+}"
 9140 print"{down}are also captured and change to that"
 9150 print"player's symbol."
 9160 print
 9170 print"the game end's when all letters are"
 9190 print"gone. the player with the most"
 9200 print"captives wins.":print
 9220 print"to capture type a single letter and"
 9230 print"press return. type ins for these "
 9240 print"instructions, or boa for the board."
 9300 print:print:print"press return when your ready...";
 9400 gosub5000
 9410 gosub7000:return
    0 clr:poke59468,12
    1 rem cards copyright (c) 1978 glen fisher
    2 rem cursor #3, september, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 6 may 80
   90 pg$="cards":nm$="3":gosub 62000
  100 fd%=1:rem tape drive
  120 mx=50:dims$(mx)
  510 nx=0:ls=0
  520 bl=0
  530 cr$=chr$(13)
  600 print"{clr}{down}what is the subject of these cards?":print"? ";:gosub60000:tl$=in$
  800 print"you may enter a maximum of ";mx;" cards.
  900 print"{down}remember: card{$a0}#0 should contain the"
  910 print "titles for the two 'sides'.{down}"
 1000 n=nx
 1100 gosub9200:printn$;:gosub60000
 1110 ifin$=""then8000
 1120 ifleft$(in$,1)<>"#"thengosub2000:onok+1goto1100,1000
 1130 ifin$="#"then1900
 1140 ifin$="##"then3000
 1500 fori=2tolen(in$)
 1510 :t$=mid$(in$,i,1):ift$<"0"ort$>"9"thenprint"a number, please.":goto1100
 1520 nexti
 1530 nn=val(mid$(in$,2))
 1550 ifnn>nxthenprint"there aren't that many cards.":goto1100
 1560 ifnn=nxthenn=nx:goto1100
 1570 ls=nx:n=nn:gosub9200:print"{down}";n$;s$(n)
 1580 bl=1:goto1100
 1900 t=n:n=ls:ls=t
 1905 ifbl=0thenprint"{up}";
 1910 ifblthenprint:bl=0
 1920 goto1100
 1999 end
 2000 j=0:fori=1tolen(in$)
 2010 :ifmid$(in$,i,1)=","thenj=j+1
 2020 nexti
 2030 ifj<1thenprint"2 strings please, with a comma between.":ok=0:return
 2040 ifj>1thenprint"i{$a0}can't handle that many commas.":ok=0:return
 2050 s$(n)=in$:ifn=nxthennx=nx+1
 2060 ifblthenprint:bl=0
 2070 ls=n:ok=1:return
 3000 ifnx<1thenprint"no cards yet.":goto1100
 3010 print:sv=n:forn=0tonx-1
 3020 gosub9200:printn$;s$(n):t=ti+60:bk=0
 3030 ifti<tthen3030
 3040 getin$:ifin$=""then3200
 3045 ifin$=chr$(13)then3210
 3050 get in$:ifin$<>""then3050
 3060 printn$;:gosub60000
 3065 ifin$=""thenprint"no change.":goto3200
 3070 ifleft$(in$,1)<>"#"thengosub2000:onok+1goto3060,3200
 3080 ifin$<>"#"thenprint"only '#' is allowed now.":goto3060
 3090 ifbkthenbk=0:goto3200
 3100 n=n-1:gosub9200:bk=1:goto3060
 3200 nextn
 3210 n=sv:print:goto1100
 8000 print"are you really done?";:gosub 60000
 8010 ifin$=""then8000
 8020 in$=left$(in$,1)
 8030 ifin$="n"orin$="N"then1100
 8040 ifin$<>"y"andin$<>"Y"thenprint"please answer yes or no.":goto8000
 8050 print"{down}make sure the cassette is ready.{down}"
 8060 input "what shall i call the file";f$
 8070 open 1,fd%,2,f$
 8080 t$=chr$(225)+","+chr$(225):s$(nx)=t$+chr$(13)+t$
 8090 print#1,nx-1
 8100 s$=tl$:cm$=",":gosub8500
 8110 cm$=""
 8200 fori=0tonx
 8210 print".";
 8220 :s$=s$(i):gosub8500
 8230 nexti
 8240 closefd%
 8250 end
 8300 nexti
 8310 closefd%
 8320 end
 8500 t$="":remhidenastychars
 8510 forj=1tolen(s$)
 8520 c$=mid$(s$,j,1)
 8530 ifc$=":"orc$=chr$(34)orc$=cm$then c$=chr$(65+asc(c$))
 8540 t$=t$+c$
 8550 nextj
 8600 t=ti:print#1,t$:t=ti-t
 8610 ift<10then8650
 8620 poke59411,53:t=ti+20
 8630 ifti<tthen8630
 8640 poke 59411,61
 8650 return
 8900 :
 9200 if n<mx then9250
 9201 print"{down}only ";mx-1;" cards can be entered":n=mx:nx=mx
 9205 print"please enter a command: "
 9250 n$="#"+mid$(str$(n),2):n$=right$("    "+n$,4)+":"
 9290 return
 50000 print"{down}press {rvon}return{rvof} to continue: ";
 50010 getrj$:ifrj$=""then50010
 50020 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1978    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9); "cursor #3  cards
 62010 print"{down}copyright (c) 1978  by glen fisher":gosub 60500
 62020 print"{down}prepare flash cards for flash."
 62030 print"{down}{down}want directions? ";:gosub 60000
 62040 ifleft$(in$,1)<>"y" then 100
 62100 lp=5:gosub 60200
 62150 print"this program prepares a tape containing
 62160 print"a set of{$a0}'flash cards', which can then
 62170 print"be used with the flash program.
 62180 print:print"first, enter a title for the set of{$a0}
 62190 print"cards,{rght}such as:
 62200 print"{down}chemistry symbols - dec. '79 (r.j){down}
 62210 print"the way the cards are entered is quite
 62220 print"simple: when the pet prompts you with
 62230 print"a pound sign (#) and a number, you
 62240 print"type what you want on the{$a0}'front' of
 62250 print"that flash card, then a comma{$a0}(,),
 62260 print"and then what is to be on the{$a0}'back' of
 62270 print"the card.  obviously, you can't have
 62280 print"commas in the text that you put on{$a0}
 62290 print"the cards.
 62330 gosub 60200
 62340 print"here is what a set of{$a0}4 cards for{$a0}
 62350 print"learning the symbols for the elements{$a0}
 62360 print"might look like:{down}
 62370 print"#0:symbol,element
 62380 print"#1:b,boron
 62390 print"#2:na,sodium
 62400 print"#3:in,indium
 62410 print"#4:as,arsenic
 62420 print"#5:(hit{$a0}{rvon}return{rvof} to stop entering data)
 62430 print"{down}as you can see, card #0 is special,
 62440 print"since it provides{$a0}'labels' for the two
 62450 print"sides{$a0}of the flash cards.
 62458 gosub 60200
 62460 print"you can correct a card by entering
 62470 print"a pound sign and the number of the card.
 62480 print"for example, if the program was asking
 62490 print"for data for card{$a0}5, and you wanted to
 62491 print"correct card{$a0}3, it would look like this:{down}
 62510 print"#5:#3
 62511 print"#3:ba,barium
 62512 print"#5: (now, continue entering data...)
 62538 gosub 60200
 62540 print"{down}another feature is the ability to
 62550 print"review the cards by entering{$a0}
 62560 print"two pound signs instead of data, e.g.
 62561 print"{down}#5:## (now, each card will be shown...)
 62580 print"{down}you can interupt the display by
 62590 print"pressing {rvon}space{rvof}. you will be{$a0}
 62600 print"asked for data for that item, then{$a0}
 62610 print"it will continue to 'scroll' through
 62620 print"the remaining cards.
 62621 print"{down}during the 'scroll', press {rvon}return{rvof} to
 62622 print"return to normal data input.
 62625 gosub 60200
 62630 print"{down}when you are done entering{$a0}(and
 62640 print"correcting) the flash cards ,press
 62650 print"{rvon}return{rvof}.
 62660 print"{down}now, be sure you have a blank tape in
 62670 print"the recorder. the rest is easy!
 62680 print"(see the program flash in this issue...)
 62700 gosub 60200
 62710 return
   10 j$="                                        ":j$=j$+j$
   20 v$="{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   30 poke59468,14
  100 print"{clr}      This is a memory test!!"
  110 print"      {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
  120 print"{down}{down} Imagine you have a pack of cards."
  130 print"I shall ask you to give me a card,"
  140 print"   Either: 1) {rvon}Of a given suit{rvof} ,or"
  150 print"           2) {rvon}Of a given value{rvof}."
  160 print"{down}{down}If you give me a card you score "
  170 print"more points,but if you try to give"
  180 print"me a card you have already used,"
  190 print"i shall take points off."
  200 print"  {down}{down}{down}if you want to see what cards"
  210 print"you have used,type{CBM-C}{rvon}status{rvof}{CBM-V}in response"
  220 print"to any question.you will then be "
  230 print"shown the cards,but you will lose"
  240 print"10 points."
  250 print"{rght}{rght}{rght}{down}{rvon}Press a key to start:"
  260 geta$:ifa$=""then260
  270 print"{clr}"
  310 dimp(5,14),n$(14),s$(5),t(5),m$(14),t$(5),s(16)
  320 rem
  330 fori=1to4
  340 forj=1to13
  350 p(i,j)=0
  360 nextj
  370 nexti
  380 rem
  390 fori=1to13
  400 readn$(i),m$(i)
  410 s(i)=0
  420 nexti
  430 rem
  440 fori=1to4
  450 reads$(i),t$(i)
  460 t(i)=0
  470 nexti
  480 rem
  490 dataace,an ace,two,a two,three,a three,four
  500 dataa four,five,a five,six,a six,seven,a seven
  510 dataeight,an eight,nine,a nine,ten,a ten,jack
  520 dataa jack,queen,a queen,king,a king
  530 rem
  540 dataclub,clubs,diamond,diamonds
  550 dataheart,hearts,spade,spades
  560 rem
  570 forz=1to52
  580 rem
  590 rem
  600 x=int(104*rnd(ti))
  610 ifx<52then910
  620 rem
  630 x=x-4*int(x/4)+1
  640 ift(x)>12then630
  650 print"{home}"j$"{home}Please type a ";s$(x);v$;
  660 open1,0:input#1,r$:close1
  670 ifr$<>"status"then710
  680 gosub1280
  690 goto650
  700 rem
  710 fori=1to13
  720 ifr$=n$(i)then790
  730 ifr$=m$(i)then790
  740 nexti
  750 print"Don't be stupid!!"
  755 fortm=1to200:next
  760 goto650
  770 rem
  780 rem
  790 ifp(x,i)=1then860
  800 p(x,i)=1
  810 k=k+t(x)+1
  820 s(i)=s(i)+1
  830 t(x)=t(x)+1
  840 print"{home}{down}{down}O.k.Score=";k;"{left}        "
  850 goto1180
  860 k=k-(20-t(x))
  870 print
  880 print"{up}Think again!!             "
  890 goto650
  900 rem
  910 x=x+1-13*(int(x/13))
  920 ifs(x)>3then910
  930 print"{home}"j$"{home}Please type the suit of ";m$(x);v$;
  940 open1,0:input#1,r$:close1
  950 ifr$<>"status"then990
  960 gosub1280
  970 goto930
  980 rem
  990 fori=1to4
 1000 ifr$=s$(i)then1070
 1010 ifr$=t$(i)then1070
 1020 nexti
 1030 print"Don't be stupid!!";
 1035 fortm=1to200:next
 1040 goto930
 1050 rem
 1060 rem
 1070 ifp(i,x)=1then1140
 1080 p(i,x)=1
 1090 k=k+s(x)+1
 1100 s(x)=s(x)+1
 1110 t(i)=t(i)+1
 1120 print"{home}{down}{down}O.k.Score=";k;"{left}        "
 1130 goto1180
 1140 k=k(10-s(x))
 1150 print
 1160 print"{up}Think again!!             "
 1165 fortm=1to200:next
 1170 goto930
 1180 nextz
 1190 print
 1200 print
 1210 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}You have given me all 52 cards
 1230 print"Your final score was";k
 1240 print
 1250 print"Do you want another game ?({CBM-C}y{CBM-V}or{CBM-C}n{CBM-V})"
 1260 geta$:ifa$=""then1260
 1265 ifa$="y"thenrun
 1266 print"{clr}":poke59468,12
 1267 end
 1270 print"{clr}"
 1280 print
 1290 print
 1300 printt$(1),t$(2),t$(3),t$(4)
 1310 print"-----","-----","-----","-----"
 1320 print
 1330 fori=1to13
 1340 forj=1to4
 1350 ifp(j,i)=0then1370
 1360 printtab(10*(j-1)+1);n$(i);
 1370 nextj
 1380 print
 1390 nexti
 1400 print
 1410 k=k-10
 1420 return
 1425 poke59468,12
 1430 end
:{stop} {$e0}{CTRL-P} {$60}{CTRL-P}N{f8}{CTRL-B}P{CTRL-O}{CBM-Z}{f6}{CTRL-B}{sret}{f8}{CTRL-B} {$f0}{rvon} {$00}{CTRL-V} 0{home} {$e8}{del} {$a0}{home} {CTRL-X}{CTRL-U} {gry2}{CTRL-P} {$80}{down} {$f8}{CTRL-P} H{CTRL-P}l{$e4}{$e6} {$e0}{CTRL-P} {$60}{CTRL-P}N{f8}{CTRL-B}P{CTRL-O}{CBM-Z}{f6}{CTRL-B}{sret}{f8}{CTRL-B} {$f0}{rvon} {$00}{CTRL-V} 0{home} {$e8}{del}{$ea}{$ea}{$ea} {CTRL-X}{CTRL-U} {gry2}{CTRL-P} {$80}{down}{$ea}{$ea}{$ea} H{CTRL-P}l1{$e6}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{rvon}{$00}{$00}{$00}{esc}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}2vwx{CTRL-A}()*pqrstuvwx{$f7}{$e7}{$00}{$00}T{f2}{$00}{CTRL-L}{CTRL-D}{$0a}{$00}{f2}30000{$00}${CTRL-D}{$64}{$00}{orng}i{CBM-R}0{CBM-@}2000{CBM-N}{CBM-F}(1){CBM-D}1000{$00}8{CTRL-D}{$6e}{$00}{f6}B(144){CBM-W}{CBM-E}58{CBM-M}130{$00}c{CTRL-D}{$78}{$00}{$82}:{f2}200{$00}\{CTRL-D}{$82}{$00}{f6}B(145){CBM-R}3{CBM-M}{sret}2000:{f2}120{$00}{$67}{CTRL-D}{f8}{$00}{f2}60000{$00}{$73}{CTRL-D}H{$00}{orng}i{CBM-R}0{CBM-@}50{$00}{f5}{CTRL-D}R{$00}{f6}B(144){CBM-W}{CBM-E}58{CBM-M}230{$00}{CBM-N}{CTRL-D}W{$00}{lgrn}"{rvon}{home}{down}{down}{rght}slip{down}{left}{left}{left}{left}zone{down}{left}{left}{left}{left}near"{$00}M{CTRL-D}X{$00}{lgrn}"{rvof}{home}{down}{down} slip{down}{left}{left}{left}{left}zone{down}{left}{left}{left}{left}near"{$00}{$f6}{CTRL-D}{CBM--}{$00}{$82}:{lgrn}"{home}{down}{down}     {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    ":{f2}300{$00}{CTRL-O}{wht}{$e6}{$00}{f6}B(145){CBM-R}3{CBM-M}{sret}2000:{f2}220{$00}{CTRL-Z}{wht}{$f0}{$00}{f2}60000{$00}6{wht},{CTRL-A}{yel}5120:{orng}i{CBM-R}0{CBM-@}500{CBM-N}{CBM-F}(1){CBM-D}300{$00}j{wht}6{CTRL-A}{f6}B(144){CBM-W}{CBM-E}58{CBM-M}330{$00}[{wht}@{CTRL-A}{$82}:{yel}5136:{f2}100{$00}{$74}{wht}j{CTRL-A}{f6}B(145){CBM-R}3{CBM-M}{sret}2000:{f2}320{$00}{$7f}{wht}t{CTRL-A}{f2}60000{$00}H{wht}{$e8}{stop}{lgrn}"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon} 0     100     200     300  score time {home}"{$00}{rvon}{CTRL-F}{$f2}{stop}{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}                             {rght}{rght}{rght}{rght}  {rght}{rght}  {home}"{$00}{CTRL-X}{CTRL-F}{$fc}{stop}{swuc}{$00}={CTRL-F}P{CTRL-G}{sret}1010:{orng}j{CBM-R}0{CBM-@}1000:{$82}:{gry1}640,0:{yel}5744:{swuc}{$00}{$66}{CTRL-F}(#{orng}i{CBM-R}1{CBM-@}C(a$):{lgrn}J(a$,i,1);:{orng}j{CBM-R}0{CBM-@}50:{$82}:{$82}:{swuc}{$00}{$7b}{CTRL-F}{f8}#{lgrn}{CBM-T}10);:{sret}9000:{lgrn}:{swuc}{$00}{lred}{CTRL-F}0{$75}hs{CBM-R}B(1000){CBM-N}B(1001){CBM-D}100{$00}{CBM-T}{CTRL-F}{inst}{$75}{gry1}4861,32{$00}X{CTRL-F}@{pur}{lgrn}"{clr}{down}{down}{down}{down}{rvon}{SHIFT-POUND}  {rght}{rght}{SHIFT-POUND}{CBM-*}{rght}{rght}   {CBM-*}{rght}{rght}   {CBM-*}{rght}{rght}{SHIFT-POUND}{CBM-*}{rght}{rght}{SHIFT-POUND}  {rght}   {rght}{rght}  {rght}  "{$00}{CTRL-G}{CTRL-G}j{pur}{lgrn}"{rvon} {rght}{rght}{rght}{SHIFT-POUND}  {CBM-*}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{SHIFT-POUND}  {CBM-*}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght} "{$00}@{CTRL-G}t{pur}{lgrn}"{rvon} {rght}{rght}{rght} {rvof}{SHIFT-POUND}{CBM-*}{rvon} {rght}   {rvof}{SHIFT-POUND}  {rvon}   {rvof}{SHIFT-POUND}{rght}{rvon} {rvof}{SHIFT-POUND}{CBM-*}{rvon} {rght} {rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{rvon}{rght}{rght}{rght} {rght} "{$00}{$73}{CTRL-G}^{pur}{lgrn}"{rvon} {rght}{rght}{rght}    {rght} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght}    {rght} {rght}{rght}{rght} {CBM-I}{CBM-I}{rght}{rght}{rght} {rght} "{$00}{CBM-I}{CTRL-G}{$68}{pur}{lgrn}"{rvon} {rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght} "{$00}T{CTRL-G}{$72}{pur}{lgrn}"{CBM-*}{rvon}  {rght} {rght}{rght} {rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght}{rvof}{CBM-*}{rvon}  {rght}   {rght}{rght}  {rght}  "{$00}{wht}{dish}{$7c}{pur}a${CBM-R}"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}developed by s.iwata":{sret}9000{$00}@{dish}{f3}{pur}{lgrn}:{lgrn}"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}pet users'club{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}hm-1024"{$00}{$7c}{dish}{blk}{pur}{lgrn}:a${CBM-R}"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}do you want instruction ?":{sret}9000:{gry1}167,0{$00}{up}{dish}{lblu}{pur}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}40090{$00}{CBM-N}{dish}{CBM-@}{pur}{gry1}167,1:{f6}a${CBM-R}"y"{CBM-M}40200{$00}{CBM-B}{dish}{CBM-S}{pur}{sret}1000:{yel}5480:{f2}100{$00}{$e8}{dish}{dish}{left}{lgrn}"{clr}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}**** car race ][ ****"{$00}{down}{ensh}{rvon}{left}{gry1}167,1:{gry1}28,128:{gry1}29,128:{yel}4096{CBM-N}12{CBM-D}16{CBM-N}8{$00}c{ensh}{red}{left}a${CBM-R}"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} your race car":{sret}9000:{lgrn}{$00}{$79}{ensh}&{left}a${CBM-R}"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}+++ control key table +++":{sret}9000:{lgrn}{$00}{left}{ensh}0{left}a${CBM-R}"{down}{rvon}a{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}accelleration":{sret}9100{$00}A{ensh}:{left}a${CBM-R}"{down}{rvon}4{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}handle left  ":{sret}9100{$00}{$e5}{ensh}d{left}a${CBM-R}"{down}{rvon}6{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}handle right ":{sret}9100{$00}{CTRL-Z}{$0a}i{left}a${CBM-R}"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}>>score for extend play <<":{sret}9000:{lgrn}{$00}{$60}{$0a}j{left}a${CBM-R}"{down}{rvon}2000{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}45 seconds.":{sret}9100:a${CBM-R}"{down}{rvon}4000{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}30 seconds.":{sret}9100{$00}{f5}{$0a}k{left}{lgrn}"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press any key to begin";{$00}{pur}{$0a}n{left}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}40270{$00}{CBM-M}{$0a}x{left}{f2}40110{$00}{$e3}{$0a}{$60}{$ea}{f6}hs{CBM-W}B(643){CBM-N}B(644){CBM-D}100{CBM-M}a{CBM-R}B(643):b{CBM-R}B(644):{gry1}1000,a:{gry1}1001,b{$00}${CTRL-K}{$6a}{$ea}a${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}** game over **":{sret}9000:{lgrn}{$00}{$6c}{CTRL-K}{$74}{$ea}a${CBM-R}"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}high score":{sret}9000:a{CBM-R}B(1000):hs{CBM-R}(a{CBM-P}15){CBM-N}(a{CBM-P}240){CBM-Z}8{CBM-D}5{$00}{yel}{CTRL-K}{$79}{$ea}hs{CBM-R}hs{CBM-N}(B(1001){CBM-P}15){CBM-D}100{CBM-N}(B(1001){CBM-P}240){CBM-D}62.5:{lgrn}hs{$00}{CBM-A}{CTRL-K}{$7e}{$ea}{CBM-K}a$:{f6}a${CBM-R}" "{CBM-M}{f4}{$00}{CBM-F}{CTRL-K}{f7}{$ea}{f2}60030{$00}{$00}{$00}hs{f8}{$64}{$70}{$00}{$00}a{$80}{$00}{$f1}{CTRL-Y}{$00}{$00}i{$00}{f1}h{$00}{$00}{$00}j{$00}{f3}l{$00}{$00}{$00}a{$00}{f5}*{$00}{$00}{$00}b{$00}{f3}x{$00}{$00}{$00}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$${$00}{CTRL-A}{CTRL-B}()*pqr{$78}{$79}{$7a}{$00}{$00}{$00}{$00}{$fc}{$e0}{$fe}{$7e}W{$7c}{$fc}V{$fe}{$7e}"{$7c}{$00}{$00}{$00}{$00}{$7c}{$60}{$7e}{$fe}w{$fc}{$7c}v{$7e}{$fe}{CBM-I}{$fc}{$00}{$00}{$00}{$00}{$fc}{$e0}{$fe}{$7e}Q{$7c}{$fc}V{$fe}{$7e}"{$7c}{$00}{$00}{$00}{$00}{$7c}{$60}{$7e}{$fe}q{$fc}{$7c}v{$7e}{$fe}{CBM-I}{$fc}{$00}{$00}{$00}{$00}{CTRL-P} 0@{$00}{$00}{$00}{$00}{$a0}{$e5}{$f4}{$f5}{$e1}{$76}{$6a}{$67}N{$7a}{CTRL-B}P+{SHIFT-POUND};{sret}{$7a}{CTRL-B}{$f8}8{CBM-Z}{$7b}{CTRL-B}{$e9}{CTRL-A}P{stop}l({CTRL-V}{sret}{$7b}{CTRL-B}X{CTRL-X}){$f0}jjjj{$69}{CBM-A}{sret}{$e3}{$83}{CBM-Z}{$7b}{CTRL-B}){CTRL-O}{$69}{CBM-A}{sret}{$e4}{$83}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-X}{CBM-Z}{$82}{CTRL-B}){$f8}jjj{f1}{gry1}{CBM-N}{SHIFT-POUND} J0{wht}{left}A{$83}{CTRL-P}{$f8}{CBM-+}{gry1}{CBM-Z}{$82}{CTRL-B}){CTRL-G}{CBM-POUND}{CBM-O}x{CTRL-P}{left}A{$83}{$e8}{SHIFT-POUND}{$a0}{left}A{$83}{$60}{$00}{$00}{$00}{$00}{$00}{CBM-S}{$7c}{CTRL-B}{CBM-X}p{CTRL-P}{sret}W{CTRL-P}{CBM-I}{CTRL-K}{CBM-C}{$00}{CTRL-P}{CBM-X}{CTRL-P}{CTRL-P}{up}{red}J{CTRL-P}{$f5}{$60}{$00}{CBM-I}{CTRL-K}{SHIFT-POUND} {CBM-D}{$7c}{CTRL-B}{$f0}{CTRL-B}{SHIFT-POUND}{$a0}{CBM-C}{$00}{CTRL-P}{up}{red}J{CTRL-P}{$f8}{$60}{$00}{$00}{$00}{$00}{CBM-Z}{f7}{CTRL-B}{$f0}{CTRL-X}{CBM-I}{CTRL-K}{SHIFT-POUND} {CBM-D}{$7c}{CTRL-B}{$f0}{CTRL-B}{SHIFT-POUND}{$a0}{CBM-C}{$00}{CTRL-P}Q{red}{$f0}{stop}lX{CTRL-U}J{CTRL-P}{$f3}{$60}{$00}{$00}{CBM-S}{$7c}{CTRL-B}{CBM-X}r{CTRL-P}{sret}'{down}{CBM-+}7{CBM-C}{$00}{CTRL-P}{CBM-X}0{CTRL-P}{up}<J{CTRL-P}{$f5}{$60}{$00}{CBM-+}7{SHIFT-POUND} {CBM-D}{$7c}{CTRL-B}{$f0}{CTRL-B}{SHIFT-POUND}{$a0}{CBM-C}{$00}{CTRL-P}{up}<J{CTRL-P}{$f8}{$60}{$00}{$00}{$00}{$00}{f4}h{CTRL-X}{$84}{gry1}{gry2}{$a0}{$00}{$84}{gry3}{$0a}{$0a}{$65}{gry1}{f1}{gry1}{CTRL-F}{gry1}{CTRL-F}{gry1}&{gry3}{CTRL-F}{gry1}&{gry3}{$68}{$65}{gry1}{f1}{gry1}{blk}{stop}{$e6}{gry3}{CTRL-X}{SHIFT-POUND}>{$65}{gry1}{f1}{gry1}{SHIFT-POUND}{$7f}{$65}{gry3}{f1}{gry3}{CBM-G}{gry1}{CBM-@}{gry3}{$60}{$00}{$00}{$00}{CBM-Z}{$82}{CTRL-B}){$f0}{CTRL-X}jjjj{CBM-N}{CBM-X}{$a0}{down}{sret}{f5}{CTRL-B}{CBM-POUND}{CBM-S}{f3}{CTRL-B} h{down}{f1}{red}{$84}{rght}{$60}{$ea}{$ea}{$ea}{CTRL-X}{CTRL-X}{CTRL-W}{CTRL-W}{CTRL-V}{CTRL-V}{CTRL-U}{CTRL-U}{del}{del}{home}{home}{rvon}{rvon}{$00}{$00}{CBM-S}{up}{CTRL-B}{CBM-C}T{CTRL-B}{CBM-X}P{CTRL-B}{CBM-N} h{down}{CBM-S}{up}{CTRL-B}{left}X{CTRL-B}{f1}<{gry2}{left}{CBM--}{CTRL-B}{f1}={CBM-X}T{CTRL-B}8{$e9}{CTRL-Y}{CTRL-P}{dish}{SHIFT-POUND}{CTRL-K}{f1}7{left}{$e0}{CTRL-B}{$60}{CBM-POUND}{CBM-O}{$e1}{down}P{$f4}{dish}{wht}{CTRL-B}{$00}{$00}{$00}{$00}{CTRL-X}{$f8}{CBM-Z}{$83}{CTRL-B}{$69}{CTRL-A}{sret}{$83}{CTRL-B}{CBM-Z}{$84}{CTRL-B}{$69}{$00}{sret}{$84}{CTRL-B}X{CTRL-X} {rvon}{rvon}{f8}{SHIFT--}{$83}{sret}{$de}{$83}{CBM-Z}{$83}{CTRL-B} {rvon}{rvon}{f8}{CBM-*}{$83}{sret}{$e0}{$83}{$60}{f1}{gry1}){$f0}jjjj{$69}{CBM-A}{CBM-POUND}{CBM-G}{gry1}){CTRL-O}{$69}{CBM-A}{$60}{$00}{$00}{$00}{$00}{SHIFT-POUND}4{sret}{down}{$e8}{SHIFT-POUND}{$83}{f1}{$fc}{SHIFT-POUND}{gry1}{f1}{$fb}{$a0}{$00}{CBM-E}{$fb}i{$80}{up}{$fb}8{CBM-G}{$fb}{$e9}{CTRL-A}{f1}{$fb}{CBM-A}{$f1}F{$fc}{CBM-G}{$fc}I{$7f}P{$e9}{SHIFT-POUND}<{sret}{down}{$e8}{$60}{$00}{$00}{$00}{$00}{SHIFT-POUND}{stop}{sret}{up}{CTRL-B}{CBM-Z}h{$e8}{sret}{f1}{CTRL-B}{CBM-S}{up}{CTRL-B}{CBM-C}T{CTRL-B}0#={gry2}{rvon}P{grn}{CBM-Z}{f1}{CTRL-B}={pur}{rvon}P{CTRL-L}{CBM-X}P{CTRL-B}I{CTRL-D}{$f0}{wht}{$de}P{CTRL-B}P{$0a}{CBM-X}P{CTRL-B}I{del}{$f0}{$ed}{$fe}P{CTRL-B}J{CTRL-P}U{$60}{$00}{$00}{$00}{$00}{$00}{$00}{stop}0{down}{f7}{CTRL-P}{CTRL-A}{$80}{CTRL-D}{CBM-Z}{CTRL-D}{stop}{lgrn}{CTRL-F}{$80}{lgrn}{$7e}{$80}{lgrn}{$f6}{$80}{lgrn}{$6e}{orng}{lgrn}{$e6}{orng}{lgrn}^{$82}{lgrn}V{$82}{lgrn}n{$83}{CBM-Z}{wht}{stop}{lgrn}.{$80}{lgrn}{CBM-+}{$80}{lgrn}{grn}{orng}{lgrn}{lred}{orng}{lgrn}{swlc}{$82}{lgrn}{f3}{$82}{lgrn}{$fe}{$82}{lgrn}{$76}{$83}{CBM-Z}{CTRL-F}{stop}{lgrn}v{$80}{lgrn}N{$80}{lgrn}f{orng}{lgrn}{CBM-V}{orng}{lgrn}6{$82}{lgrn}{CBM-S}{$82}{lgrn}&{$83}{$60}{$00}{CBM-Z}{CTRL-D}{stop}h{CBM-Z}{wht}{stop}h{CBM-Z}{CTRL-F}{stop}h{SHIFT-POUND} {sret}{CTRL-D}{stop}{sret}{wht}{stop}{sret}{CTRL-F}{stop}{CBM-D}{CTRL-B}{stop} {$a0}{rvon}{CBM-D}{stop}{stop} {$a0}{rvon}{$68}{sret}{CTRL-F}{stop}{$68}{sret}{wht}{stop}{$68}{sret}{CTRL-D}{stop}{CBM-D}{$00}{stop} {$a0}{rvon}{CBM-D}{CTRL-A}{stop}l{$a0}{rvon}{$00}{$00}{$00}{$00}{$00}{CBM-Z}{$00}{stop}{sret}{CTRL-B}{stop}{CBM-Z}{CTRL-A}{stop}{sret}{stop}{stop}N{f4}{CTRL-B}Pl{SHIFT-POUND}{wht}{sret}{f4}{CTRL-B}{CBM-Z}d{$e8}{sret}{f1}{CTRL-B})
P{CTRL-Y}{CBM-Z}{f1}{CTRL-B}{CTRL-P}{$0a}{CBM-Z}{$00}{stop}{$f0}{wht}N{$00}{stop}{CTRL-P}{$0a}{CBM-Z}{$00}{stop}I{stop}{$f0}{$ef}{$ee}{$00}{stop}{CBM-Z}{f1}{CTRL-B}):P{rght}{SHIFT-POUND}@,{f1}{CTRL-B}{$70}{CTRL-L}{CBM-Z}{CTRL-A}{stop}I{CTRL-Z}{$f0}{wht}{$ee}{CTRL-A}{stop}P{$0a}{CBM-Z}{CTRL-A}{stop}I{CTRL-W}{$f0}{$ed}N{CTRL-A}{stop}{CBM-Z}{CTRL-F}{stop}{CBM-D}{wht}{stop}{CBM-S}{CTRL-D}{stop}{sret}{CTRL-D}{stop}{f8}{CTRL-F}{stop}{swuc}{wht}{stop}{$60}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}M{rvon}{$e8}P{$f8}{sret}{inst}{CTRL-B}){CTRL-A}P{CTRL-L}{CBM-Z}{$82}{CTRL-B}IP{$f0}{rvon}{$ee}{$82}{CTRL-B}P
{CBM-Z}{$82}{CTRL-B}I{stop}{blk}{CTRL-F}N{$82}{CTRL-B}N{$82}{CTRL-B}N{orng}{CTRL-B}P${SHIFT-POUND}{CTRL-B}{sret}{orng}{CTRL-B}{CBM-Z}{inst}{CTRL-B}{ensh}?{CBM-D}{$7c}{CTRL-B}{$f0}{CTRL-G}I~P{stop}{CBM-Z}{$80}{CTRL-B}{sret}{$80}{CTRL-B}I{$7f}{$f0}{ensh}I{CBM-B}P{dish}N{f3}{CTRL-B}{$60}{$00}l{$60}{CTRL-V}{$60}{$00}{$00}{$00}{$00}{SHIFT-POUND}{CTRL-A}{sret}{$7c}{CTRL-B}{$78} ({rvon}x{SHIFT-POUND}{$a0}{sret}{$fd}{rvon}{$60}{SHIFT-POUND}{$00}{sret}{$7c}{CTRL-B}{$78} ({rvon}x{SHIFT-POUND} {sret}{$fd}{rvon}{$60}{SHIFT-POUND}{stop}{sret}{up}{CTRL-B}{CBM-S}{up}{CTRL-B}{CBM-X}T{CTRL-B}0{rvon}{CBM-X}X{CTRL-B}{f1}<{CBM-X}{CBM--}{CTRL-B}{f1}={CBM-X}{$e0}{CTRL-B}{f1}7 0{down}N{up}{CTRL-B}{CTRL-P}{$e1}{$60}{$00}{$00}{$00}{SHIFT-POUND}{stop}{sret}{up}{CTRL-B}{CBM-S}{up}{CTRL-B}{CBM-X}T{CTRL-B}0{CTRL-F} {CBM-A}{down} {CTRL-X}{down}N{up}{CTRL-B}{CTRL-P}{$ed}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-Z}{sret}{CTRL-B}{sret}{swuc}{CTRL-B}{CBM-Z}{rvof}{CTRL-B}{$f0}{wht}N{rvof}{CTRL-B}P{$0a}{CBM-Z}d{$e8}){stop}P{stop} {CBM-U}{del}{CBM-S}{up}{CTRL-B}{CBM-X}T{CTRL-B}0{home}{CTRL-X}{$6d}{blk}{CTRL-B}{left}T{CTRL-B}{CTRL-P}{stop} {CBM-E}{del}I{red}P{stop} {CBM-E}{del}J{CTRL-P}{$e5}{CBM-Z}{$8f}{CTRL-B}M{blk}{CTRL-B}{$f0}{wht}{$a0}{CTRL-F}{f8}{rvof}{CTRL-B}{sret}{blk}{CTRL-B}{$60}{SHIFT-POUND}~{left}T{CTRL-B}{$60}{$00}{CBM-I}{stop}{CBM-X}T{CTRL-B}I~{$f0}{stop}J{CTRL-P}{$f6}{CBM-Z}d{$e8}){CTRL-O}{CTRL-X}{$69}{wht}{left}P{CTRL-B}{$a0}{$00}{CBM-Z}{blk}{CTRL-B}{CTRL-P}{CTRL-B}{$a0}{esc}{gry2}{left}T{CTRL-B}{SHIFT-POUND}{CTRL-F}{sret}{rvof}{CTRL-B}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-X}N{brn}{CTRL-B}P{ensh}{SHIFT-POUND}{CTRL-G}{sret}{brn}{CTRL-B} x{rvon}8N{swuc}{CTRL-B}{$f0}{stop}{CBM-A}{ensh}{$60}{SHIFT-POUND}{stop}{sret}{up}{CTRL-B} {$68}{del}  {del}{SHIFT-POUND}{stop}{sret}{up}{CTRL-B}lh{del}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-Z}{$82}{CTRL-B}){$f0}{CTRL-X}jjjj{CBM-N}{CBM-X}8{CTRL-U}{sret}{f6}{CTRL-B}{CBM-X}h{CTRL-U}{sret}{sret}{CTRL-B}{CBM-X}x{CTRL-U}{sret}{$8f}{CTRL-B}{$60}{$ea}{$ea}{CTRL-P}{swlc}{CTRL-L}{CTRL-K}{$0a}{ensh}{dish}{CTRL-G}{CTRL-F}{wht}{CTRL-D}{stop}{CTRL-B}{CTRL-A}{$00}{$00}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{dish}{CTRL-G}{CTRL-F}{wht}{CTRL-D}{stop}{dish}{dish}~~~~~~~{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{SHIFT-POUND}{blk}{sret}{$7b}{CTRL-B}{SHIFT-POUND};{sret}{$7c}{CTRL-B}{sret}{$66}{CTRL-P}{CBM-I}{$00}{swuc}{$83}{CTRL-B}{swuc}{$84}{CTRL-B}{swuc}{$7c}{CTRL-B}{$ea}{$ea}{$a0}{stop}{SHIFT-POUND}~{lgrn}T{CTRL-B}{f7}{CTRL-P}{$fa}{sret}{blk}{CTRL-B}{swuc}{$82}{CTRL-B}{SHIFT-POUND}{CTRL-F}{sret}{rvof}{CTRL-B}{SHIFT-POUND}{CTRL-D}{sret}{orng}{CTRL-B}{sret}{f8}{CTRL-B}{sret}{swuc}{CTRL-B}{swuc}{clr}{CTRL-B}{swuc}{f7}{CTRL-B}{f4}{sret}{$00}{stop}{sret}{CTRL-B}{stop}{SHIFT-POUND}{CTRL-Z}{sret}{CTRL-A}{stop}{sret}{stop}{stop}{SHIFT-POUND}{esc}{sret}{f3}{CTRL-B}{SHIFT-POUND}{$60}{sret}{wht}{stop}{sret}{CTRL-F}{stop}{SHIFT-POUND}{$66}{sret}{CTRL-D}{stop}{$78}{SHIFT-POUND}:{sret}{blk}{$00}{SHIFT-POUND}{stop}{sret}{up}{$00}x{$60}{$00}{$00}{SHIFT-POUND}{CTRL-A}{sret}{clr}{CTRL-B}{CBM-I}{$00}{swuc}{f7}{CTRL-B}{SHIFT-POUND}{$6c}{sret}{blk}{$00}{swuc}{$82}{CTRL-B}{SHIFT-POUND}{esc}{sret}{f3}{CTRL-B}{SHIFT-POUND}{$66}{sret}{CTRL-D}{stop}{SHIFT-POUND}{$60}{sret}{wht}{stop}{sret}{CTRL-F}{stop}{$60}{$00}{$00}{$00}{CBM-Z}{f7}{CTRL-B}{$f0}{stop}l{$e8}{down}{CBM-Z}{CTRL-A}{stop}8{$e9}{stop}M{f3}{CTRL-B}{blk}{rvon}{SHIFT-POUND}{CTRL-A}{sret}{f7}{CTRL-B}{SHIFT-POUND}{$e0}{sret}{CTRL-D}{stop}{SHIFT-POUND}{$60}{sret}{wht}{stop}{sret}{CTRL-F}{stop}{$60}{$00}{$00}{CBM-I}{stop}{CBM-Z}{$66}{CTRL-P}J{SHIFT--}y{CTRL-V}P{$fa}{CBM-Z}{$84}{CTRL-B}{SHIFT--}\{CTRL-V}{blk}
{CBM-X}z{CTRL-V}{sret}{$66}{CTRL-P}{SHIFT-POUND}{blk}{sret}{$7b}{CTRL-B}X{$60}{SHIFT-POUND}.{sret}{blk}{$00}{SHIFT-POUND}{$e6}{sret}{up}{$00}X{$68}{$68}l1{$e6}{$60};{rght}{home} @{$a0}{$00}{CBM-Z}{f3}{CTRL-B}I{esc}{$f0}{stop}{$ee}{f3}{CTRL-B}{$60}$$$$${$78}{CBM-Z}{up}{$00}I{$e6}{$f0}{wht}{SHIFT-POUND}:{sret}{blk}{$00}x{$60}hs{sret}{red}h{$00}{$00}a{$80}/{$eb}{$0a}{$00}{$00}i{$00}{f3}{$00}{$00}{$00}{$00}j{$00}{$82}@{$00}{$00}{$00}{SHIFT-POUND}.{sret}{blk}{$00}{SHIFT-POUND}{$e6}{sret}{up}{$00}x{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{sret}{$80}{CTRL-W}{$ee}{inst}{CTRL-W}P{stop}{$ee}{brn}{CTRL-W}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}0{$60}{blk}{$f0}{$00}{$00}{$00}{$00}{CTRL-A}{dish}{$00}{dish}{CTRL-A}~<{$00}{del}{$00}{$7a}${$f0}{CBM-POUND}@{$00}H{CTRL-G}Wvp{$00}{CBM-K}{CTRL-B}~~~~~#"! {blu}{grn}{rght}{rght}{red}{red}{esc}{esc}{esc}{esc}{esc}{esc}{esc}{esc}{esc}{$65}{$74}{$75}{$61}{$f6}{$ea}{$e7}{$a0}        {stop}{CTRL-D}{wht}{CTRL-F}{dish}{$0a}{CTRL-L}{CTRL-O}{stop}{CTRL-D}{wht}{CTRL-F}{dish}{CTRL-K}
{CTRL-P}{stop}{CTRL-D}{wht}{CTRL-F}{ensh}{CTRL-K}{swlc}{down}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{ensh}{CTRL-L}{CTRL-O}{rvon}{red}{$80}b{$80}{$68}{$80}{$8f}{$80}{SHIFT-+}{orng}o{orng}{left}{$82}{rvon}{$82}${$80}l{$80}{$74}{$80}{left}{$80}{$ed}{orng}{$67}{orng}{$8f}{$00}{CTRL-G}{$00}{$00}{$82}${$80}l{$80}{$74}{$80}{left}{$80}{$ed}{orng}{$67}{orng}{$8f}{$00}{CTRL-G}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}k{$00}>{$00}{CTRL-A}{$00}{CTRL-K}{$00}{$00}{$00}{$00}{$00}{f3}{$a0}{$00}{$00}{$00}{f3}{red}{$00}{$00}{$00}{orng}{$80}{$00}{$00}{$00}{f3}${$00}{$00}{$00}{f3}{pur}{$00}{$00}{$00}{orng}{$00}{$00}{$00}{$00}{f3}{CBM-@}{$00}{$00}{$00}{f3} {$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$82}:c%{CBM-R}10:fl{CBM-R}fl{CBM-N}2.5:{sret}870:{sret}220{$00}+{CTRL-Y}a{wht}{f6}ho%{CBM-W}1{CBM-M}1500{$00}m{CTRL-Y}f{wht}f1{CBM-R}0:f2{CBM-R}0:f3{CBM-R}0:f4{CBM-R}0:{sret}720:{sret}790{$00}{$65}{CTRL-Y}p{wht}{sret}850:{$8f}knipper start{$00}{f1}{CTRL-Y}z{wht}c%{CBM-R}c%{CBM-Q}1:{sret}220:{$8f} print credit{$00}{$8f}{CTRL-Y}{$78}{wht}{f2}1100{$00}{SHIFT-POUND}{CTRL-Y}{CBM--}{wht}ho%{CBM-R}1:{sret}560:{$8f}haalholds{$00}G{CTRL-Y}{$e6}{wht}{sret}210:{$8f} nieuwe eindstanden{$00}{CBM--}{CTRL-Y}{$f0}{wht}{sret}180:{f6}ca%{CBM-E}0{CBM-M}1500{$00}{$f3}{CTRL-Y}{$fa}{wht}c%{CBM-R}c%{CBM-Q}1:{sret}220:{f2}1110{$00}{$00}{$00}i{$00}{f1}h{$00}{$00}{$00}fl{$82} {$00}{$00}{$00}j{$00}{$83}{$00}{$00}{$00}{$00}z{$00}{f1}{dish}{$00}{$00}{$00}zz{f3}l{$00}{$00}{$00}f{$80}{CTRL-D}{$f3}_{$00}{$00}C{$80}{$00}{$0a}{$00}{$00}{$00}B{$80}{$00}{$00}{$00}{$00}{$00}f1{$00}{$00}{$00}{$00}{$00}R{$80}{$00}{down}{$00}{$00}{$00}T{CBM-E}{$00}{CTRL-F}{$00}{$00}{$00}f2{$00}{$00}{$00}{$00}{$00}T{CBM-R}{$00}{CTRL-K}{$00}{$00}{$00}f3{$00}{$00}{$00}{$00}{$00}T{CBM-W}{$00}{CTRL-O}{$00}{$00}{$00}f4{$00}{$00}{$00}{$00}{$00}T{CBM-H}{$00}{down}{$00}{$00}{$00}tKl{$00}{CTRL-A}{$00}{CTRL-W}{$00}{$00}{$00}{stop}w{CTRL-D}{stop}]{CTRL-D}{stop}{$63}{CTRL-D}{stop}{$69}{CTRL-D}{stop}{$6f}{CTRL-D}{stop}{$75}{CTRL-D}{stop}{$7b}{CTRL-D}{stop}{orng}{CTRL-D}{stop}{f5}{CTRL-D}{stop}{sret}{CTRL-D}{stop}{clr}{CTRL-D}{stop}{yel}{CTRL-D}{stop}{CBM-@}{CTRL-D}{stop}{CBM-N}{CTRL-D}{stop}{CBM-A}{CTRL-D}{stop}{CBM-L}{CTRL-D}{stop}{CBM-C}{CTRL-D}{stop}B{CTRL-D}{stop}H{CTRL-D}{stop}N{CTRL-D}{stop}T{CTRL-D}{stop}Z{CTRL-D}{home}{blk}{$f8}{$65}t{CBM-N}{CBM-X}{$ed}{CTRL-X}{$a0}{$00}{CBM-I}/{$e8}8{$f9}{$ea}{CTRL-X}{CBM-A}{$f9}{$79}{$ea}{CTRL-X}h{f4}{CBM-V}{$e7}{CTRL-X}{left}{$62}{$80}{$68}H{SHIFT-*}{stop}P{$e6}{SHIFT-POUND}.{sret}{$64}{$80}{$60}{$ea}{f4}J0{CTRL-D}{f7}{CTRL-P}{$f9}{$60}{gry2}{$60}{$78}{SHIFT-POUND}{esc}{f1}{blk}{SHIFT-POUND}{esc}{f1}{up}{SHIFT-POUND}{CTRL-F}{f1}xx{$60}{$78}{SHIFT-POUND}.{f1}{blk}{SHIFT-POUND}{$e6}{f1}{up}x{$60}{CBM-I}{CTRL-F}{SHIFT-POUND}0{left}5{down}J{CTRL-P}{$fa}{SHIFT-POUND}.{sret}7{down}{sret}:{down}{$60}{SHIFT-POUND}{dish}-<{down}P{CTRL-B}FxP{red}{$a0}{CTRL-D}{CBM-V}Q{CTRL-Y}{$fe}5{down}{CBM-X}5{down}YV{CTRL-Y}P{dish}{SHIFT-POUND}0{left}5{down}{f7}{CTRL-P}{$ea}{SHIFT-POUND}{CTRL-F}{f1}x{CBM-I}{CTRL-F}{CBM-X}5{down}{left}s{$80}J{CTRL-P}{$f7}l.{$e6}{SHIFT-POUND}{CTRL-D}-<{down}{$f0}{CTRL-W}{SHIFT-POUND}~{CBM-+}o{CTRL-X}{$69}{wht}J{CTRL-P}{$fa}{CBM-N}{$a0}{CTRL-D}{CBM-X}{SHIFT-+}{CTRL-Y}{lgrn}\{$80}J{f7}{CTRL-P}{$f6}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}a{$80}{CTRL-A}{CBM-Z}_{$00}{$00}q{$00}{f7}{$7b}{$00}{$00}{$00}t{CBM-E}{CTRL-G}1{CTRL-L}{$00}{$00}s{$00}{sret}{ensh}{$e0}{$00}{$00}t{$00}{sret}{ensh}{CBM-POUND}{$00}{$00}a{$00}{$83}{$60}{$00}{$00}{$00}t{$80}{CTRL-G}{CBM-R}_{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}    1 rem cars copyright (c) 1979 john grove
    2 rem cursor #13, sep., 1979
    3 rem box 550, goleta, ca. 93017
   10 rem as of 16 sep 79
   90 clr:poke59468,12
  100 qr$="{rvon}return{rvof}":qp$="press "+qr$+" to ":qc$="{down}{rght}{rght}"+qp$+"continue"
  101 qm$="odometer ":qk$="miles":qj$="gal":v$=" vehicle":gosub62000
  108 t=3:mx=t:dimc(30),d(30):cr$=chr$(13):w=1:v=1
  109 dimca$(t),is(t),va(t),dp(t),fc(t),lc(t),fx(t),mm(t),mg(t),mc(t),me(t)
  110 print"{clr}last data on tape? ";:gosub60000
  120 ifleft$(in$,1)="n"thengosub6000:goto135
  125 gosub5000
  130 print"{clr}want to set/change"v$
  131 print"{down}names/fixed charges? ";:gosub60000:ifleft$(in$,1)="y"thengosub6000
  135 print"{clr}select input units:":gosub3000:x9=b9:print"{down}{down}select output units:"
  140 gosub3000:y9=b9:ify9=2thenqk$="kilometers":qj$="litre"
  142 w=1:v=1:ify9=3thenqj$="litre"
  143 ifx9=1andy9=2thenw=1.61:v=3.785
  144 ifx9=1andy9=3thenv=3.785
  145 ifx9=2andy9=1thenw=.621:v=.2642
  146 ifx9=2andy9=3thenw=.621
  147 ifx9=3andy9=1thenv=.2642
  148 ifx9=3andy9=2thenw=1.61
  150 gosub4850:print"{down}what month? ";:gosub60000:mo$=in$
  170 print"{down}what"v$"? ";:gosub60000
  180 forcx=1tot:ifca$(cx)=in$goto200
  192 nextcx
  194 print"{down}no such"v$" known.
  196 print"{down}want to add it? ";:gosub60000:ifleft$(in$,1)="y"goto130
  198 goto170
  200 print"{down}is last ending "qm$
  201 print"{down}for"v$" in memory? ";:gosub60000:ifleft$(in$,1)="n"goto205
  203 a=me(cx):print"{down}beginning "qm$"for "mo$" is "a:goto300
  205 print"{down}beginning "qm$;:gosub60000:a=val(in$)
  300 print"{down}ending "qm$;:gosub60000:b=val(in$)
  360 gosub4850:printtab(14)"{down}{rvon}fuel data
  400 print"{down}input fuel:"qp$"end.":gosub900:c2=c1:d2=d1
  410 gosub4850:printtab(14)"{down}{rvon}oil data
  415 print"{down}any oil data? ";:gosub60000:ifleft$(in$,1)="n"goto430
  420 print"{down}input oil:"qp$"end.":gosub900:e1=c1:f1=d1
  430 gosub4850:printtab(12)"{down}{rvon}misc. expenses
  435 print"{down}any misc. expenses? ";:gosub60000:ifleft$(in$,1)="n"goto1400
  450 printtab(12)"{down}#"tab(18)"cost":fori=1to30:c(i)=0:d(i)=0:nexti
  460 printtab(12);:gosub60000:ifin$=""goto500
  480 m1=val(in$):printtab(17)"{up}";:gosub60000:c(m1)=val(in$):goto460
  500 print"are the above data correct? ";:gosub60000
  510 ifleft$(in$,1)="n"goto450
  520 g=0:fori=1to30:g=g+c(i):nexti:goto1400
  900 c1=0:d1=0:fori=1to30:c(i)=0:d(i)=0:nexti
  910 printtab(5)"{down}#"tab(10)"amount"tab(25)"cost"
  920 gosub4800:print"are the above data correct? ";:gosub60000
  940 ifleft$(in$,1)="n"goto910
  960 fori=1to30:c1=c1+c(i):d1=d1+d(i):nexti:return
 1400 print"{clr}"tab(2)"{rvon}summaries for "mo$" for the "ca$(cx)
 1450 z9=a:gosub4900:print"{down}begining "qm$tab(25)z1$
 1460 z9=b:gosub4900:print"ending "qm$tab(25)z1$:u=(b-a)*w
 1480 z9=u:gosub4900:print"{down}total "qk$tab(28)"{rvon}"right$(z1$,8):v9=c2*v
 1500 z9=v9:gosub4900:print"{down}total fuel used"tab(25)z1$
 1520 z9=d2:gosub4900:print"total fuel cost"tab(25)z1$:ifc2=0goto1560
 1540 d3=d2/v9:d4=u/v9:qt$=left$(qk$,len(qk$)-1)
 1560 z9=d3:gosub4900:print"{down}cost/"qj$:printtab(25)z1$
 1580 z9=d4:gosub4900:printqk$"/"qj$:printtab(30)"{rvon}"right$(z1$,6)
 1600 z9=f1:gosub4900:print"{down}total oil cost"tab(25)z1$
 1620 z9=g:gosub4900:print"total misc cost"tab(25)z1$:d4=d2+f1+g:d5=d4+fx(cx)
 1640 d6=d5/(b-a):z9=d4:gosub4900:print"{down}cost of operation"tab(25)z1$
 1660 z9=d5:gosub4900:print"{down}total expense"tab(25)z1$
 1680 z9=d6:gosub4900:print"{down}cost/"qt$tab(32)"{rvon}"right$(z1$,4)
 1700 gosub7000
 1800 printtab(2)"{rvon}summary to-date for the "ca$(cx)
 1820 mm(cx)=mm(cx)+u:mg(cx)=mg(cx)+v9:mc(cx)=mc(cx)+d5:me(cx)=b
 1840 av=mm(cx)/mg(cx):cm=mc(cx)/mm(cx)
 1860 z9=mm(cx):gosub4900:print"{down}total "qk$;:printtab(25)z1$
 1880 z9=mg(cx):gosub4900:print"{down}total fuel"tab(25)z1$
 1900 z9=av:gosub4900:print"{down}"qk$"/"qj$;:printtab(30)"{rvon}"right$(z1$,6)
 1920 z9=mc(cx):gosub4900:print"{down}total cost"tab(25)z1$
 1940 z9=cm:gosub4900:print"{down}cost/"qt$;:printtab(32)"{rvon}"right$(z1$,4):gosub7000
 1965 print"{down}more on this"v$"? ";:gosub60000:ifleft$(in$,1)="y"goto150
 1975 print"{down}any more vehicles? ";:gosub60000:ifleft$(in$,1)="y"goto130
 1985 print"{down}store the data on tape? ";:gosub60000:ifleft$(in$,1)="n"goto1999
 1992 gosub2000
 1999 end
 2000 print"{clr}mount tape and rewind.":printqc$:gosub60000:open1,1,1
 2030 forj=1tot
 2032 l=ti
 2035 print#1,"."+ca$(j):print#1,is(j):print#1,va(j):print#1,dp(j)
 2055 print#1,fc(j):print#1,lc(j):print#1,fx(j):print#1,mm(j)
 2075 print#1,mg(j):print#1,mc(j):print#1,me(j)
 2077 l=ti-l
 2080 ifl<10goto2090
 2082 poke59411,53:l=ti+20
 2084 ifti<lgoto2084
 2086 poke59411,61
 2090 nextj
 2095 close1
 2100 print"{down}{rvon}done{rvof} writing tape; rewind now.":return
 3000 print"{down}1. miles:gals":print"{down}2. kilometers:litres":print"{down}3. miles:litres"
 3005 print"{down}? ";:gosub60000:b9=val(in$)
 3010 return
 4800 printtab(5);:gosub60000:ifin$=""goto4840
 4808 n9=val(in$):printtab(11)"{up}";:gosub60000
 4810 c(n9)=val(in$):printtab(25)"{up}";:gosub60000;:d(n9)=val(in$):goto4800
 4840 return
 4850 print"{clr}";tab(10);"{rvon}monthly charge data{rvof}":return
 4900 z9$=mid$(str$(int(z9*100+.5)),2)
 4910 iflen(z9$)<3thenz9$=right$("00"+z9$,3)
 4920 z9$=left$(z9$,len(z9$)-2)+"."+right$(z9$,2)
 4925 ifz9<0thenz9$="-"+z9$
 4930 z1$=right$("        "+z9$,11)
 4940 return
 5000 print"{clr}mount last data tape and rewind":printqc$;:gosub60000:open1
 5010 forj=1tot
 5015 print".";
 5020 input#1,ca$,is(j),va(j),dp(j),fc(j),lc(j),fx(j),mm(j),mg(j),mc(j),me(j)
 5025 ca$(j)=mid$(ca$,2)
 5030 nextj
 5040 close1:print"{down}{rvon}done{rvof} reading tape; rewind now.":gosub7000
 5060 return
 6000 print"{clr}change/set what?":print"{down}1."v$" names":print"{down}2. fixed charges
 6003 print"{down}? ";:gosub60000:fc=val(in$):onfcgoto6100,6300
 6095 return
 6100 print"{clr}{down}these"v$"s exist
 6160 forjx=1tomx:print"{down}{rght}{rght}{rght}{rght}"jx"{rght}{rght}"ca$(jx):nextjx
 6200 print"{down}"v$" to change/add
 6210 print"{down}{rght}{rght}{rght}{rght}";:gosub60000:ifin$=""goto6250
 6220 ix=val(in$):print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:gosub60000:ca$(ix)=in$:goto6210
 6250 print"all correct? ";:gosub60000:ifleft$(in$,1)="n"goto6200
 6260 goto 6000
 6300 print"{clr}what"v$"? ":print"{down}{rght}{rght}{rght}{rght}{rght}";:gosub60000
 6315 forjx=1tomx:ifin$=ca$(jx)goto6330
 6320 nextjx
 6325 print"{down}no such"v$"; use option 1":forzz=1to2000:nextzz:goto6000
 6330 print"{clr}input new value or "qp$:print"{down}keep existing value.{down}
 6336 printtab(23)"old"tab(33)"new":print"{down}yearly insurance";
 6340 z9=is(jx):gosub6500
 6345 ifin$<>""thenis(jx)=val(in$)
 6349 print"{down}{rght}{rght}"v$" leased? ";:gosub60000
 6350 ifleft$(in$,1)<>"y"goto6355
 6351 print"{down}yrly lease chgs";:z9=fc(jx):gosub6500:tm=1
 6352 ifin$<>""thenfc(jx)=val(in$)
 6354 goto6405
 6355 print"{down}current value";:z9=va(jx):gosub6500:ifin$<>""thenva(jx)=val(in$)
 6370 print"{down}depreciation (%)";:z9=dp(jx):gosub6500
 6380 ifin$<>""thendp(jx)=val(in$)
 6390 print"{down}finance chgs";:z9=fc(jx):gosub6500:ifin$<>""thenfc(jx)=val(in$)
 6405 print"{down}license/clubs";:z9=lc(jx):gosub6500:ifin$<>""thenlc(jx)=val(in$)
 6420 iftm=1goto6430
 6425 fx(jx)=(is(jx)+(va(jx)*(dp(jx)/100))+fc(jx)+lc(jx))/12:goto6435
 6430 tm=0:fx(jx)=(is(jx)+fc(jx)+lc(jx))/12
 6435 print"{down}{rght}{rght}monthly fixed charge ";tab(25):z9=fx(jx):gosub4900
 6436 print"{rvon}";right$(z1$,8);"{rvof}"
 6450 print"{down}everything correct ? ";:gosub60000
 6455 ifleft$(in$,1)="n"goto6300
 6499 goto6000
 6500 gosub4900:printtab(16):printz1$;"{rght}{rght}{rght}{rght}";:gosub60000:return
 7000 printqc$;:gosub60000;
 7100 print"{clr}":print"{home}";:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}"tab(9)"cursor #13  cars
 62010 print"{down} copyright (c) 1979  by john grove{down}":fori=1to10:print"FFFF";:next
 62030 print"{down}maintain"v$" cost records:":print"{down}{down}{down}"qp$"begin:"
 62050 gett$:ift$=""goto62050
 62110 print"{clr}":return
    0 clr:poke59468,12
    1 rem catch! copyright (c) 1980 george leotti
    2 rem 416 s. elmwood ave.
    3 rem glenolder, pa 19036
    4 :
    5 rem cursor #16, jan 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 9 feb 80
   90 pg$="catch!":nm$="16":gosub62000
  100 dl=1:gosub5000
  102 ti$="000000":c=0:m=0:sp=0:b=81:g=160:cl=32:cr$=""
  103 poke59467,16:poke59466,10:poke59464,0
  104 print"{clr}{down}{down}how fast should things move?":print"{down}(1=slow, 5=fast)? ";
  105 gosub60000
  106 ifin$<>""thenn=val(in$):ifn<1orn>5then104
  107 cr$=chr$(13):ifin$=""thenprintdl:n=dl:fori=1to300:nexti
  110 dl=n:print"{clr}":poke59464,0
  115 print"{home}{rght}{rght}{rght}{rght}{rght}time{rght}{rght}{rght}{rght}{rght}{rght}{rght}catches{rght}{rght}{rght}{rght}{rght}{rght}throws"
  120 fori=32848to32887:pokei,214:next
  130 fori=32888to33768step40:pokei,214:next
  140 fori=32927to33767step40:pokei,214:next
  150 fori=33729to33729+38:pokei,214:next
  160 poke59464,0:gp=33307:gd=0:bd=0
  165 geta$:ifa$<>""then165
  170 sp=int((5-dl)*20)+(rnd(ti)*15)
  180 gosub800
  190 printtab(15)right$("     "+str$(c),5);
  200 printtab(28);right$("     "+str$(c+m),5)
  210 pokegp,g
  220 z=int(rnd(1)*8):bd=dr(z)
  230 t=int(rnd(1)*(nh(z)+nv(z)))
  240 ift>=nh(z)thent=t-nh(z):bp=vs(z)+t:goto260
  250 bp=hs(z)+40*t
  260 pokebp,b
  390 poke59464,80:fori=0tosp:next:poke59464,0
  400 bp=bp+bd:ifti>=7200then700
  410 ifpeek(bp)=214thenpokebp-bd,cl:m=m+1:goto160
  415 pokebp,32
  420 pokegp,g:pokebp,b:pokebp-bd,cl:fori=0tosp:next
  430 gosub800
  440 geta$:ifa$=""then400
  450 gosub610
  460 gp=gp+gd:bp=bp+bd
  470 ifpeek(bp)=214then560
  480 ifpeek(gp)=214then560
  490 ifpeek(gp)=bthen580
  500 pokegp-gd,cl:pokegp,g:pokebp,b:pokebp-bd,cl:fori=0tosp+10:next
  520 ifgp=bpthenc=c+1:pokegp,209:poke59464,120:fori=1to750:next:pokegp,cl:goto160
  530 gosub800
  540 geta$:ifa$=""then460
  550 gosub610:goto460
  560 pokegp-gd,cl:pokebp-bd,cl:m=m+1:poke59464,255:fori=0to500:next:poke59464,0
  570 goto160
  580 pokebp,cl:pokegp-gd,cl:pokegp,209:poke59464,120:fori=0to750:next:
  590 poke59464,0:c=c+1:pokegp,cl:goto160
  610 rem
  620 ifa$="q"then720
  625 ifa$="5"orval(a$)=0then650
  630 gd=val(mid$("808182404142000102",val(a$)*2-1,2))-41
  650 return
  700 print"{clr}{down}{down}{down}{down}two minutes are up.":goto730
  720 print"{clr}{down}{down}{down}{down}{down}";
  730 print"{down}you caught";c;"balls out of";c+m;"throws,"
  740 print"{down}at a speed of";dl;"{left}."
  760 print:print"try again? ";
  770 gosub60000:ifleft$(in$,1)="n"then790
  780 print"{clr}":goto102
  790 print"{clr}":poke59467,0:poke59466,0:end
  800 print"{home}":print"{rght}{rght}{rght}{rght}{rght}";mid$(ti$,4,1);":";right$(ti$,2);
  810 return
 5000 dimnh(7),nv(7),hs(7),vs(7),dr(7):ul=32768+40*3+1
 5010 fori=0to7:readnh(i),hs,nv(i),vs,dr(i)
 5020 vs(i)=vs+ul:hs(i)=hs+ul:nexti
 5030 data0,0,34,802,-40
 5031 data8,520,18,800,-39
 5032 data21,0,0,0,1
 5033 data8,0,18,0,41
 5034 data0,0,34,2,40
 5035 data9,37,19,19,39
 5036 data21,37,0,0,-1
 5037 data9,477,19,819,-41
 5050 return
 5100 z=int(rnd(1)*8):bd=dr(z)
 5110 t=int(rnd(1)*(nh(z)+nv(z)))
 5130 ift>=nh(z)thent=t-nh(z):bp=vs(z)+t:return
 5140 bp=hs(z)+40*t:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by george leotti{down}
 62020 gosub60500
 62030 print"{down}play catch with the pet
 62080 print"{down}{down}press {rvon}return{rvof} to begin"
 62090 gett$:ift$=""then62090
 62100 goto60300
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}draw poker 1{down}{down}{down}"
    2 print"copyright 1978 commodore business":print"machines inc. all rights reserved
    3 print"{down}      {rvon}one moment please!"
    4 rem draw poker - g#1012 v5/15/78
   10 dimg1(5),f7(35),f8(35),f9(35),o(10)
   12 fori=1to10:reado(i):nexti:data200,50,30,20,10,7,5,2,1,-1
   20 dimc5(6),c6(5),c7(5),c8(7):fs$="              "
   30 m$=" "
   40 p1=32768:p2=40
   50 w=0
   80 gosub5700
   90 print"{clr}";
  100 print"{rvon}hand                odds       you win "
  110 print"royal flush:     200 to 1
  130 print"straight flush:   50 to 1":print"four of a kind:   30 to 1"
  150 print"full house:       20 to 1":print"flush:            10 to 1"
  170 print"straight:          7 to 1":print"three of a kind:   5 to 1"
  190 print"two pair:          2 to 1"
  195 print"pair:              1 to 1
  200 gosub5400
  210 print"place your bet: $1 to $10000 $";:z9=6:gosub63000:d=val(z$)
  212 onint((d+9999)/10000)+1goto5900,300,5950
  215 goto5950
  300 print"{home}":fors=1to9:z$=str$(o(s)*d):printspc(25)left$(fs$,12-len(z$))"$"z$:nexts
  400 iflen(c9$)<12thengosub7200
  410 fory=1to5:gosub7100:gosub2000:nexty
  440 gosub8000:sx=s:gosub5100
  500 getq$:ifq$<>""then500
  510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}select discards by number, 1,2,3,4&/or 5
  520 print"{up}to cancel press c. to draw press return."
  700 fori=1to5
  710 g1(i)=1
  720 nexti
  730 p=p1+24*p2
  740 gosub6000
  800 getq$
  810 ifq$=""goto800
  820 q=asc(q$)
  830 ifq=13goto970
  840 ifq$="c"goto700
  850 ifq$<"1"goto800
  860 ifq$>"5"goto800
  900 y=val(q$)
  910 g1(y)=0
  920 p=p1+24*p2+8*(y-1)
  930 m$="discard"
  940 l=len(m$)
  950 gosub6100
  960 goto800
  970 p=p1+11*p2:gosub6000
  980 p=p1+12*p2:gosub6000
  990 p=p1+13*p2:gosub6000:p=p1+24*p2:gosub6000
 1000 fory=1to5
 1010 ifg1(y)=0thengosub5000
 1020 nexty
 1030 gosub8000
 1040 ifsx=sgoto1100
 1050 gosub5100
 1060 sx=s
 1100 fory=1to5
 1110 ifg1(y)=1goto1140
 1120 gosub7100
 1130 gosub2000
 1140 nexty
 1150 gosub8000
 1160 ifsx=sgoto1200
 1170 gosub5100
 1180 sx=s
 1190 gosub5100
 1200 rem
 1500 w=w+d*o(10-s):m$="winnings":ifo(10-s)<0thenm$="losses"
 1510 m$=m$+" this hand are $"+str$(abs(d*o(10-s))):p=p1+11*p2:gosub6000
 1520 m$="winnings":ifw<0thenm$="losses
 1540 p=p1+12*p2:m$="total "+m$+" are $"+str$(abs(w)):gosub6000
 1550 m$="press return to continue...":p=p1+13*p2:gosub6000
 1600 getg$:ifg$=""then1600
 1610 ifasc(g$)<>13then1600
 1900 goto90
 2000 h=c2-7
 2020 ifh<4thenh=1
 2030 fori=1to7
 2040 c8(i)=h
 2050 nexti
 2100 onc2goto2110,2210,2200,2520,2410,2510,2500,2310,2400,2300,3000,3000,3000
 2110 c8(4)=2
 2120 goto3000
 2200 c8(4)=2
 2210 c8(2)=2:c8(6)=2
 2230 goto3000
 2300 c8(2)=2:c8(6)=2
 2310 c8(3)=3:c8(5)=3
 2320 goto2520
 2400 c8(3)=3:c8(5)=3
 2410 c8(4)=2
 2420 goto2520
 2500 c8(3)=2
 2510 c8(4)=3
 2520 c8(1)=3:c8(7)=3
 3000 a=p1+15*p2+8*(y-1)
 3010 c3=(asc(c2$)and63)+128
 3020 pokea,c3
 3030 a1=160
 3040 ifc2=10thena1=asc("0")+128
 3050 e=6
 3060 gosub4000
 3070 c4=asc(c1$)
 3072 f7(5)=c4:f7(31)=c4
 3074 f8(1)=c4:f8(35)=c4
 3076 f9(1)=c4:f9(35)=c4
 3080 fori=1to7
 3090 a=a+40
 3100 pokea,160
 3110 onc8(i)gosub4100,4200,4300,4400,4500,4600
 3120 pokea+6,160
 3130 nexti
 3140 a=a+39
 3150 ifc2=10thene=5
 3160 gosub4000
 3170 pokea+e+1,c3
 3180 ifc2=10thenpokea+7,asc("0")+128
 3190 c6(y)=c1
 3200 c7(y)=c2
 3300 return
 4000 fori=1toe
 4010 pokea+i,a1
 4020 a1=160
 4030 nexti
 4040 return
 4100 forx=1to5
 4110 pokea+x,160
 4120 nextx
 4130 return
 4200 pokea+1,160
 4210 pokea+2,160
 4220 pokea+3,c4
 4230 pokea+4,160
 4240 pokea+5,160
 4250 return
 4300 pokea+1,c4
 4310 pokea+2,160
 4320 pokea+3,160
 4330 pokea+4,160
 4340 pokea+5,c4
 4350 return
 4400 forx=1to5
 4410 x1=5*(i-1)+x
 4420 pokea+x,f7(x1)
 4430 nextx
 4440 return
 4500 forx=1to5
 4510 x1=5*(i-1)+x
 4520 pokea+x,f8(x1)
 4530 nextx
 4540 return
 4600 forx=1to5
 4610 x1=5*(i-1)+x
 4620 pokea+x,f9(x1)
 4630 nextx
 4640 return
 5000 rem clear card
 5010 a=p1+15*p2+8*(y-1)-1
 5020 fori=1to9
 5030 forx=1to7
 5040 pokea+x,32
 5050 nextx
 5060 a=a+40
 5070 nexti
 5075 c6(y)=15+2*y
 5078 c7(y)=15+2*y
 5080 return
 5100 rem highlight screen
 5108 ifsx=0goto5190
 5110 p=p1+p2*(10-sx)
 5120 x=0
 5130 fori=0to37
 5140 n=peek(p+i)
 5150 if(n=32)and(x=0)goto5180
 5160 x=1
 5170 pokep+i,(n+128)and255
 5180 nexti
 5190 return
 5300 w1=20*d
 5310 return
 5320 w1=30*d
 5330 return
 5340 w1=50*d
 5350 return
 5360 w1=200*d
 5370 return
 5400 print
 5410 ifw=0thenprint
 5420 ifw<0thenprint"your total losses are $";-w
 5430 ifw>0thenprint"your total winnings are $";w
 5450 return
 5500 f$=" _{$a0}) g*5t g{$a0}{$a0}{$a0} g{$a0}{$a0}{$a0}h {$a0}{$a0}{$a0}h y64h {SHIFT-POUND}{$a0}{CBM-*} "
 5510 return
 5530 f$=" )#t {SHIFT-POUND}g 5 {$a0}{$a0}{$a0}{$a0};{$a0}{$a0}{$a0}{$a0}{$a0}<{$a0}{$a0}{$a0}{$a0} 6 h) y${SHIFT-POUND} "
 5540 return
 5560 f$=" _{$a0}{$a0}) ' &b{SHIFT-POUND}{$a0}{$a0}{$a0}{CBM-C}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-F}{$a0}{$a0}{$a0})]& % {SHIFT-POUND}{$a0}{$a0}{CBM-*} "
 5570 return
 5600 f7(x1)=f1
 5620 return
 5630 f8(x1)=f1
 5650 return
 5660 f9(x1)=f1
 5680 return
 5700 forx=1to3
 5710 forx1=1to35
 5720 onxgosub5500,5530,5560
 5730 f1=asc(mid$(f$,x1,1))
 5740 iff1<96goto5760
 5750 iff1<192thenf1=f1+64
 5760 iff1<64thenf1=f1+64
 5770 f1=(f1+128)and255
 5780 onxgosub5600,5630,5660
 5790 nextx1
 5800 nextx
 5810 return
 5900 print:print"invalid bet "
 5910 goto5960
 5950 print:print"bet too high, house limit is $10,000"
 5960 x=100
 5970 x=x-1
 5980 ifx>0goto5970
 5990 goto90
 6000 l=40
 6100 a=p-1:l1=len(m$):fori=1tol1:m1$=mid$(m$,i,1):pokea+i,asc(m1$)and63:nexti
 6125 m1$=mid$(m$,i,1)
 6150 a=a+l1
 6160 l=l-l1
 6170 ifl<=0goto6210
 6180 fori=1tol
 6190 pokea+i,32
 6200 nexti
 6210 m$=" "
 6220 return
 6336 k
 7100 c=int(len(c9$)*rnd(ti))+1:ifc>len(c9$)thenc=len(c9$)
 7120 c=int(len(c9$)*rnd(ti))+1:ifc>len(c9$)thenc=len(c9$)
 7130 c0=asc(mid$(c9$,c,1)):c1=int((c0-1)/13)+1:c2=c0-13*(c1-1)
 7140 c1$=mid$("ASZX",c1,1):c2$=mid$("a234567891jqk",c2,1)
 7150 t$="":ifc>1thent$=left$(c9$,c-1)
 7160 c9$=t$+mid$(c9$,c+1):return
 7200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}cards have been shuffled"
 7210 c9$="":forzz=1to52:c9$=c9$+chr$(zz):nextzz:return
 8000 s=0
 8010 s2=0
 8020 fori=1to6
 8030 c5(i)=100
 8040 nexti
 8050 fori=1to5
 8060 x=5
 8070 ifc7(i)>c5(x)goto8110
 8080 c5(x+1)=c5(x)
 8090 x=x-1
 8100 ifx>0goto8070
 8110 c5(x+1)=c7(i)
 8120 nexti
 8130 ifc5(1)=1thenc5(6)=14
 8140 s1=0
 8210 fori=1to4
 8220 ifc6(i)=c6(i+1)thens1=s1+1
 8230 nexti
 8240 ifs1=4thens=5
 8250 s1=0:fori=1to4:ifc5(i)+5-i=c5(5)thens1=s1+1
 8252 nexti
 8254 ifs1=4thens=s+3:ifs=3thens=4
 8256 ifs1=4then8300
 8260 s1=0:fori=2to5:ifc5(i)+6-i=c5(6)thens1=s1+1
 8262 nexti
 8264 ifs1=4thens=s+3:ifs=3thens=4
 8300 if(s=8)and(c5(5)=13)thens=s+1
 8330 s1=0
 8340 fori=1to4
 8350 ifc5(i)=c5(i+1)thens1=s1+1
 8360 ifc5(i)=c5(i+2)thens1=s1+1
 8370 nexti
 8380 ifs1>3thens1=s1+2
 8390 ifs1>sthens=s1
 8400 return
 9000 fori=1to5
 9010 input"enter suit #, card #";c6(i),c7(i)
 9020 nexti
 9030 gosub8000
 9035 print
 9040 print"s=";s
 9044 print
 9045 print"c5","c6","c7
 9050 fori=1to5
 9060 printc5(i),c6(i),c7(i)
 9070 nexti:printc5(6)
 9080 goto9000
 63000 z$="":z0$=" ":z1$="{CBM-+}"
 63010 printz0$"{left}";:forzz=1to50:getz2$:ifz2$<>""thenzz=50:next:goto63020
 63012 next:z2$=z1$:z1$=z0$:z0$=z2$:goto63010
 63020 zz=asc(z2$)and127:ifzz=29orzz=17orzz=19orzz=34orzz=69then63010
 63022 ifzz<>20then63030
 63024 iflen(z$)>0thenprintz2$;:iflen(z$)>1thenz$=left$(z$,len(z$)-1):goto63010
 63026 goto63000
 63030 ifzz<>13thenprintz2$;:z$=z$+z2$:iflen(z$)<z9then63010
 63040 print" ":return
 63999 end:rem"end of draw poker property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    0 clr:poke59468,peek(59468)or14
    1 rem ced copyright(c) 1978 glen fisher
    2 rem cursor #4 october, 1978
    3 rem box 550, goleta,ca. 93017
   10 rem as of oct 31 79
   50 gosub62000
  100 gosub4990:i=828:readt$:print"iNITIALIZING STUFF - PLEASE BE PATIENT"
  110 readt$:ift$=""then180
  120 h$=left$(t$,1):l$=right$(t$,1)
  130 h=asc(h$)and15:ifh$>"9"thenh=h+9
  140 l=asc(l$)and15:ifl$>"9"thenl=l+9
  150 t=16*h+l:pokei,t:i=i+1
  170 goto110
  180 poke1,60:poke2,3
  190 m=826:t=i:gosub4250
  200 rem
  210 restore:readx$:t=fnp(144)-5
  220 poket,0:poket+1,0
  230 t=t+3:h=int(t/256):l=t-256*h
  240 poke634,l:poke635,h:clr
  250 t=peek(634):poke124,t:clr
  260 t=peek(635):poke125,t:clr
  270 gosub4990
  300 rem
  310 t=fnp(134)-3*1024
  320 m=134:gosub4250:clr:gosub4990
  400 t=fnp(134):fori=1to3:sc(i)=t:t=t+1024:nexti:hm=t:sc(0)=32768
  420 t=fnp(826)-1:j=0
  440 fori=828tot:ifpeek(i)=96thenj=j+1:ad(j)=i+1
  450 nexti
  600 sc=1:print"{clr}"
  610 src=0:fordst=1to3:gosub4200:nextdst
  900 crt=32768:hi=999:cs=94:pi=222:sc=1
  950 print"{clr}";:p=0
  990 fl=1:tm=0
 1000 kp=peek(crt+p)
 1010 getc$:ifc$<>""then1100
 1020 ifti<tmthen1010
 1030 ifflthenpokecrt+p,cs:goto1050
 1040 pokecrt+p,kp
 1050 fl=1-fl:tm=ti+30
 1060 goto1010
 1100 pokecrt+p,kp:ch=asc(c$)
 1110 ifch=pithen5000
 1120 sh=chand128:ch=chand127
 1130 ifch<32orch=95then1200
 1140 ifgr=0andch>64andch<91thensh=128-sh
 1150 ch=chand63:ifshthench=ch+64
 1160 ifrvthench=ch+128
 1170 pokecrt+p,ch:df=1
 1180 ifp<hithenp=p+1
 1190 goto1000
 1200 ifch<>20then1250
 1210 ifp=999thenpokecrt+p,32:goto1000
 1220 t=usr(p):sys(ad(2+(sh>0)))
 1230 goto1000
 1250 ifch<>29then1300
 1260 ifshandp>0thenp=p-1
 1270 ifsh=0andp<hithenp=p+1
 1280 goto990
 1300 ifch<>17then1350
 1310 ifsh=0andp<hi-39thenp=p+40
 1320 ifshandp>39thenp=p-40
 1330 goto990
 1350 ifch<>19then1400
 1360 ifshthenp=hi-39
 1370 ifsh=0thenp=0
 1380 goto990
 1400 ifch<>18then1450
 1410 rv=(sh=0)
 1420 cs=(csand127)+(128-sh)
 1430 goto990
 1450 ifch<>13then1500
 1460 p=int(p/40)*40:ifsh=0andp<hi-39thenp=p+40
 1470 goto990
 1500 ifch<>95then1550
 1510 ifp-40*int(p/40)=39thenpokecrt+p,32:goto1000
 1520 t=ad(2+(sh>0)):m=ad(6)-3:gosub4250:t=usr(p):sys(ad(5)):goto1000
 4000 fl=1:tm=0
 4010 getc$:ifc$<>""thenreturn
 4020 ifti<tmthen4010
 4030 printmid$(" {CBM-+}",fl,1);"{left}";
 4040 fl=3-fl:tm=ti+15:goto4010
 4100 gosub4000:ch=asc(c$)
 4110 if(chand127)<32then4100
 4120 return
 4200 poke88,sc(src)/256:poke90,sc(dst)/256
 4210 sysad(3):sysad(3):sysad(3):sysad(3):return
 4250 h=int(t/256):l=t-256*h:pokem,l:pokem+1,h:return
 4300 print"filename? ";:gosub14000
 4310 poke238,len(in$):poke241,1:poke249,10:poke250,0
 4320 iflen(in$)>0thenfori=1tolen(in$):poke9+i,asc(mid$(in$,i,1)):nexti
 4330 return
 4350 fori=1to1000:nexti:return
 4990 deffnp(x)=peek(x)+256*peek(x+1):return
 5000 src=0:dst=sc:gosub4200
 5010 print"{home}";mid$(str$(sc),2);":                                      "
 5015 print"{home}{rght}{rght}";:gosub4000
 5020 ifc$="{clr}"then950
 5030 ifc$="p"thengosub15000:goto5050
 5040 goto5100
 5050 rem:restore top line
 5055 src=sc:dst=0:gosub4200
 5060 goto990
 5100 ifasc(c$)<>222then5150
 5110 print"set fn char to: ";:gosub4000
 5120 pi=asc(c$):goto5050
 5150 ifc$<>"c"then5200
 5160 print"set cursor to: ";:gosub4100
 5170 sh=chand128:cs=chand63:ifshthencs=cs+64
 5180 ifrvthencs=cs+128
 5190 goto5050
 5200 ifc$<>"q"then5250
 5210 ifdfthendf=0:print"save first":gosub4350:goto5050
 5220 t=hm:m=134:gosub4250
 5230 end
 5250 if(asc(c$)and127)<>68then5300
 5260 gr=asc(c$)and128
 5270 ifgr=0thenpoke59468,peek(59468)or14
 5280 ifgrthenpoke59468,peek(59468)and253or12
 5290 goto5050
 5300 ifc$>"0"andc$<"4"thensc=val(c$):p=0:goto5050
 5350 ifc$<>"s"then5450
 5360 gosub4300:m=247:t=sc(1):gosub4250:m=229:t=hm:gosub4250
 5370 sys(63153):df=0:goto5050
 5450 if c$<>"l" then 5500
 5460 df=0:sc=1:p=0:gosub4300:sys(ad(4)):ifst=0then5050
 5470 print:print"load error":gosub4350:goto600
 5500 rem
 5900 goto5050
 14000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 14010 getz$:ifz$<>""then14070
 14020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 14030 goto14010
 14070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto14110
 14090 ifzl>254then14010
 14100 in$=in$+z$:printz$;zd$;z$;
 14110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 14120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto14010
 14130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto14000
 14140 goto14010
 15000 rem user supplied print routine
 15010 return
 19999 data
 20000 data20,a7,d0,38,a5,b4,85,57,e9,e7,85,59,a5,b3,09,80,85,58,e9,83,85,5a,60
 20005 data18,a5,57,e5,59,85,57,a5,58,e5,5a,85,58,a0,01,a2,00,a1,57,91,57
 20010 dataa5,57,d0,02,c6,58,c6,57,e6,59,d0,ee,e6,5a,d0,ea,a9,20,91,57
 20015 data60,a0,01,a2,00,b1,57,81,57,e6,57,d0,02,e6,58,e6,59,d0,f2
 20020 datae6,5a,d0,ee,a9,20,81,57,60
 20025 dataa0,00,84,57,84,59,b1,57,91,59,c8,d0,f9,e6,58,e6,5a,60
 20030 data20,67,f6,20,3b,f8,20,ff,f3,a5,ee,f0,0c,20,95,f4,d0,0c,a9,10,8d,0c,02
 20035 datad0,11,20,ae,f5,f0,f4,20,4d,f6,20,22,f4,20,8a,f8,20,13,f9,60
 20040 data18,90,07,18,a5,59,69,28,85,59,a5,5a,69,00,85,5a,c9,ff,d0,ef,a5,59
 20045 datac9,d8,90,e9,4c,00,00,60
 20100 data""
 60200 ifpn=0thenpk=peek(59468):poke59468,pkor14:goto60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;"  (c) 1978    pAGE";pn;"{down}"
 60270 return
 62000 print"{clr}{down}{down}{down}cursor #4 - ced  copyright (c) 1978
 62001 print"{down}cursor editor with three pages of text
 62002 ifpeek(50000)thenprint"{down}{down}{rvon}ced needs the old roms to work!"
 62003 print"{down}want directions?";
 62004 gosub 14000:in$=left$(in$,1)
 62006 ifin$<>"y"thenreturn
 62008 lp=4:nm$="4":pg$="ced":gosub60200
 62010 print"wITH{$a0}THIS{$a0}cURSOR{$a0}eDITOR, YOU{$a0}CAN{$a0}ENTER
 62015 print"AND MODIFY{$a0}UP{$a0}TO{$a0}THREE{$a0}PAGES{$a0}OF{$a0}TEXT
 62020 print"OR GRAPHIC{$a0}MATERIAL.
 62030 print"{down}ced HAS{$a0}TWO{$a0}'MODES': YOU{$a0}ARE EITHER
 62040 print"COLLECTING/EDITING{$a0}TEXT, OR{$a0}YOU{$a0}ARE
 62050 print"GIVING{$a0}COMMANDS, SUCH{$a0}AS{$a0}'sAVE{$a0}fILE'.
 62060 print"{down}tO{$a0}GIVE{$a0}COMMANDS, PRESS THE 'PI' KEY.
 62070 print"aFTER IT{$a0}IS{$a0}PRESSED, THE{$a0}FIRST{$a0}LINE{$a0}OF
 62080 print"TEXT{$a0}IS{$a0}CLEARED, AND{$a0}A{$a0}NUMBER{$a0}FOLLOWED
 62090 print"BY{$a0}A{$a0}COLON (E.G. 1:) TELLS{$a0}YOU{$a0}WHICH
 62100 print"PAGE{$a0}OF{$a0}TEXT YOU{$a0}ARE WORKING{$a0}WITH.
 62110 print"{down}iF{$a0}YOU{$a0}PRESS{$a0}ANY{$a0}NON-COMMAND{$a0}KEY, YOU
 62120 print"WILL{$a0}BE{$a0}RETURNED{$a0}TO{$a0}TEXT{$a0}EDITING{$a0}MODE.
 62121 print"aFTER{$a0}PRESSING{$a0}'pi', YOU{$a0}CAN{$a0}SWITCH{$a0}TO
 62122 print"ANOTHER{$a0}PAGE{$a0}BY{$a0}TYPING{$a0}THAT{$a0}PAGE{$a0}NUMBER
 62129 gosub60200
 62130 print"tHESE COMMANDS{$a0}CAN{$a0}FOLOW 'PI':
 62140 print"{down}key: function:
 62150 print"--------------------------------
 62160 print"q     qUIT (THE{$a0}ONLY{$a0}safe WAY{$a0}TO{$a0}EXIT!)
 62170 print"s     sAVE{$a0}CURRENT{$a0}TEXT{$a0}ON{$a0}TAPE
 62180 print"l     lOAD{$a0}A{$a0}FILE{$a0}FROM{$a0}TAPE
 62185 print"      (iF{$a0}YOU{$a0}DON'T{$a0}KNOW{$a0}THE{$a0}FILE{$a0}NAME,
 62186 print"      JUST{$a0}PRESS return, AND{$a0}THE{$a0}NEXT{$a0}
 62187 print"      FILE{$a0}WILL{$a0}BE{$a0}LOADED.)
 62190 print"{down}D     eNTER{$a0}LOWER-CASE MODE (DEFAULT)
 62195 print"d     eNTER{$a0}GRAPHICS{$a0}MODE (sHIFTED 'd')
 62200 print"PI    cHANGE{$a0}THE{$a0}COMMAND{$a0}CHARACTER
 62210 print"clr   cLEAR{$a0}THE{$a0}CURRENT{$a0}PAGE{$a0}TO{$a0}BLANKS
 62211 print"1     gO{$a0}TO{$a0}pAGE{$a0}1
 62212 print"2     gO{$a0}TO{$a0}pAGE{$a0}2
 62213 print"3     gO{$a0}TO{$a0}pAGE{$a0}3
 62220 gosub60200
 62230 print"wHILE{$a0}IN{$a0}THE{$a0}EDITING{$a0}MODE, THERE{$a0}ARE
 62240 print"TWO{$a0}WAYS{$a0}TO{$a0}INSERT{$a0}OR{$a0}DELETE{$a0}TEXT
 62250 print"tHE{$a0}NORMAL{$a0}'inst' KEY{$a0}WORKS{$a0}AS{$a0}A{$a0}GLOBAL
 62260 print"INSERT, AND{$a0}THE 'del' KEY{$a0}IS{$a0}A{$a0}GLOBAL
 62270 print"DELETE{$a0}FUNCTION. tHESE{$a0}KEYS{$a0}AFFECT{$a0}THE
 62280 print"ENTIRE{$a0}CURRENT{$a0}PAGE{$a0}OF{$a0}TEXT.
 62290 print"{down}fOR{$a0}INSERTION{$a0}THAT{$a0}IS{$a0}LOCAL TO{$a0}THE
 62300 print"CURRENT{$a0}LINE, USE{$a0}THE SHIFTED '_' KEY.
 62310 print"fOR{$a0}A{$a0}LOCAL{$a0}DELETE, PRESS '_'.
 62311 print"{down}note: DELETION{$a0}IN{$a0}ced OPERATES{$a0}ON{$a0}THE
 62312 print"CHARACTER{$a0}DIRECTLY{$a0}under THE{$a0}CURSOR,
 62313 print"(INSTEAD{$a0}OF{$a0}THE{$a0}CHARACTER{$a0}TO{$a0}THE{$a0}left
 62314 print"OF{$a0}THE{$a0}CURSOR, AS{$a0}THE pet DOES).
 62315 gosub60200
 62320 print"{down}tHE 'home' KEY{$a0}DOES{$a0}JUST{$a0}THAT:
 62330 print"IT PUTS THE{$a0}CURSOR{$a0}AT{$a0}THE{$a0}TOP{$a0}LEFT
 62340 print"CORNER OF{$a0}THE SCREEN. tO{$a0}PROTECT{$a0}YOU{$a0}
 62350 print"FROM 'WIPING{$a0}OUT' AN{$a0}ENTIRE{$a0}SCREEN,
 62360 print"'clr'{$a0}HAS{$a0}BEEN{$a0}REDEFINED{$a0}TO{$a0}TAKE
 62370 print"THE{$a0}CURSOR{$a0}TO{$a0}THE{$a0}BOTTOM{$a0}LEFT{$a0}CORNER!
 62390 print"{down}{down}note: IF{$a0}YOU{$a0}USE{$a0}THE{$a0}'stop' KEY,
 62400 print"tHE{$a0}pet WILL{$a0}THINK{$a0}IT{$a0}HAS{$a0}LESS{$a0}MEMORY
 62410 print"AVAILABLE{$a0}THAN{$a0}NORMAL. tURN IT{$a0}OFF,
 62420 print"AND{$a0}THEN{$a0}TURN{$a0}IT{$a0}BACK{$a0}ON{$a0}TO{$a0}CLEAR
 62430 print"THE{$a0}PROBLEM. (iF{$a0}YOU{$a0}USE{$a0}THE q (quit)
 62440 print"COMMAND, THEN{$a0}THIS{$a0}DOESN'T HAPPEN).
 62450 gosub60200
    0 clr:poke59468,14:pk=14
    1 rem cedpr copyright (c) 1979 glen fisher
    2 rem cursor #6, january, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of may 22,1979
   90 gosub 62000
  100 ifpeek(49152)thenprint"{down}{down}{down}{rvon}cedpr won't work with the new roms.":end
  103 if peek(0)=96 then 110
  105 t=peek(135)-12:poke 135,t:clr:poke 0,96
  110 t=peek(135)*256+peek(134)
  120 dim sc(3):for i=1 to 3:sc(i)=t:t=t+1024:next i
  130 input "ieee ADDRESS? 5{left}{left}{left}";da
  140 open 1,da
  150 cr$=chr$(13)
  160 bl$="":for i=1 to 255:bl$=bl$+" ":next i
  200 p=826
  210 read t$:if t$="" then p=0:goto300
  220 h=asc(t$)-48:if h>9 then h=h-7
  230 l=asc(mid$(t$,2))-48:if l>9 then l=l-7
  240 poke p,16*h+l:p=p+1
  250 goto 210
  300 print "fILENAME? ";:gosub 60000
  310 if in$="end" then 2000
  315 if in$="'end'" then 2000
  320 poke 238,len(in$):poke 241,1
  330 poke 249,10:poke 250,0
  340 if len(in$)>0 then for i=1 to len(in$):poke 9+i,asc(mid$(in$,i,1)):next i
  350 sys(826)
  500 in=5:ll=40:cr=1
  510 t=ll/40:if da=3 and t=int(t) then cr=0
  900 if p>0 then p=ll+1:bl=1
  910 if p=0 then bl=in
 1000 for s=1 to 3
 1010 :sc=sc(s)
 1020 :for i=0 to 999
 1030 ::c=peek(sc+i)
 1040 ::if c=32 then bl=bl+1:goto 1100
 1050 ::if bl then print#1,left$(bl$,bl);:bl=0
 1060 ::gosub 9000
 1070 ::print#1,ch$;
 1080 ::if c=34 then poke 234,0
 1100 ::p=p+1:if p<ll then 1180
 1110 ::if bl>0 or cr then print#1
 1120 ::bl=in:p=0:rv=0:rem print#1,"{rvof}";
 1180 :next i
 1190 next s
 1200 goto 300
 2000 t=peek(135):poke 135,t+12
 2010 poke 0,76
 2020 close 1
 2030 end
 9000 ch$="":rem screen to chr$
 9010 r=c and 128:sh=c and 64:c=c and 63
 9020 rem if r<>rv then ch$=mid$("{rvon}{rvof}",2+(rv=0),1):rv=r
 9030 if c<32 then c=c+64
 9040 if sh then c=c+128
 9050 ch$=ch$+chr$(c)
 9060 return
 20030 data20,67,f6,20,3b,f8,20,ff,f3,a5,ee,f0,0c,20,95,f4,d0,0c,a9,10,8d,0c,02
 20035 datad0,11,20,ae,f5,f0,f4,20,4d,f6,20,22,f4,20,8a,f8,20,13,f9,60,""
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}pRESS {rvon}return{rvof} TO ";
 60220 ifpn=lpthenprint"BEGIN:";:goto60240
 60230 print"CONTINUE:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;"  (c) 1979    pAGE";pn;"{down}"
 60270 return
 62000 pg$="cedpr":nm$="6":lp=2
 62010 print"{clr}{down}{down}{down}cedpr - cURSOR{$a0}#6  cOPYRIGHT{$a0}(C) 1979{down}"
 62020 print "wANT{$a0}DIRECTIONS? ";:gosub 60000:if left$(in$,1)="y" then 62100
 62030 print:return
 62100 gosub 60200
 62110 print "cedpr IS{$a0}A{$a0}PROGRAM{$a0}TO{$a0}LIST{$a0}FILES
 62120 print"CREATED{$a0}BY{$a0}ced (FROM{$a0}cURSOR{$a0}#4) ON{$a0}THE
 62130 print"PRINTER{$a0}OF{$a0}YOUR{$a0}CHOICE. tO{$a0}WORK, cedpr
 62140 print"NEEDS{$a0}TO{$a0}KNOW{$a0}WHAT THE{$a0}ieee-488 BUS
 62150 print"ADDRESS{$a0}OF{$a0}YOUR{$a0}PRINTER{$a0}IS. tHE DEFAULT
 62160 print"IS{$a0}5 (FOR{$a0}THE{$a0}cmc PRINTER/ADAPTER).
 62170 print"{down}nEXT, YOU{$a0}WILL{$a0}BE{$a0}ASKED{$a0}WHICH{$a0}FILE{$a0}YOU
 62180 print"WANT{$a0}LISTED. iF{$a0}YOU DON'T{$a0}KNOW{$a0}THE
 62190 print"NAME, JUST{$a0}HIT{$a0}{rvon}return{rvof}. cedpr WILL LIST
 62200 print"THE{$a0}FILE{$a0}ON{$a0}THE{$a0}PRINTER, AND{$a0}THEN COME
 62210 print"BACK{$a0}AND{$a0}ASK{$a0}YOU{$a0}FOR{$a0}ANOTHER{$a0}FILE NAME.
 62220 print"yOU{$a0}MAY{$a0}ENTER ANOTHER{$a0}NAME, AS ABOVE,
 62230 print"OR{$a0}YOU{$a0}MAY{$a0}TYPE{$a0}'end' TO{$a0}LEAVE THE
 62240 print"PROGRAM."
 62250 gosub 60200
 62260 print"yOU{$a0}HAVE{$a0}SOME{$a0}CONTROL OVER{$a0}HOW{$a0}THE FILE
 62270 print"WILL{$a0}BE PRINTED. aT{$a0}LINE{$a0}500, THREE
 62280 print"VARIABLES{$a0}ARE{$a0}SET. yOU{$a0}CAN{$a0}CHANGE{$a0}THE
 62290 print"VALUES{$a0}ANY{$a0}WAY{$a0}YOU{$a0}PLEASE.
 62300 print"{down}ll CONTROLS{$a0}HOW{$a0}WIDE{$a0}cedpr THINKS{$a0}THE
 62310 print "   PAPER{$a0}IS. tHE{$a0}DEFAULT{$a0}IS{$a0}40 COLUMNS
 62320 print"{down}in CONTROLS{$a0}HOW{$a0}MUCH{$a0}cedpr INDENTS{$a0}THE
 62330 print"   LINES{$a0}WHEN{$a0}IT{$a0}PRINTS{$a0}THEM. tHIS{$a0}IS
 62340 print"   IN{$a0}ADDITION{$a0}TO{$a0}THE{$a0}ll CHARACTERS{$a0}OF
 62350 print"   THE{$a0}TEXT.
 62360 print"{down}cr TELLS{$a0}cedpr WHETHER{$a0}THE{$a0}PRINTER{$a0}WILL
 62370 print"   DO{$a0}A{$a0}CARRIAGE{$a0}RETURN{$a0}AFTER{$a0}in+ll
 62380 print"   CHARACTERS. iF{$a0}IT{$a0}DOESN'T, cedpr
 62390 print"   WILL. iF{$a0}cedpr SHOULD{$a0}DO THE
 62400 print"   CARRIAGE{$a0}RETURN, cr SHOULD{$a0}BE{$a0}1.
 62410 gosub 60200
   10 rem************************************
   11 rem*
   12 rem* change cbm disk   sept/14/81
   13 rem*
   14 rem* this program changes the disk's
   15 rem* device number to the number that
   16 rem* is given by the operator. this
   17 rem* can range from 9 to 15. this is
   18 rem* a soft change; thus a reset of
   19 rem* the disk will cause it to restore
   20 rem* to the hard device number.
   21 rem*
   22 rem* this program is for any 2040,
   23 rem* 4040, 8050, 2031 or 1540.
   24 rem*
   25 rem* this version by jim butterfield
   26 rem*
   27 rem************************************
   99 data 12,50,119,0
  100 input"old device number";do
  110 ifdo<8 or do>15 then100
  150 input"new device number";dn
  160 ifdn<8 or dn>15 then150
  200 open15,do,15:rem command channel
  210 a$=chr$(do+32):b$=chr$(do+64)
  220 reada:ifa=0thenprint"disk not recognized!";goto310
  230 print#15,"m-r"chr$(a)chr$(0):get#15,x$:ifx$<>a$goto220
  240 print#15,"m-r"chr$(a+1)chr$(0):get#15,x$:ifx$<>b$goto220
  300 print#15,"m-w"chr$(a)chr$(0)chr$(2)chr$(dn+32)chr$(dn+64)
  310 close15
   10 print chr$(147)"chase"
   20 print "creative computing"
   30 print "morristown, new jersey"
   40 print
   41 print "you are within the walls of a high      voltage maze"
   42 print "there are five security machines trying to destroy you"
   60 print "you are the '*'  the interceptors are   the '+'"
   70 print "the areas marked 'x' are high voltage"
   80 print "your only chance for survival is to     maneuver each"
   90 print "interceptor into an 'x'.                -----good luck-----"
  100 print "moves are 7.8.9"
  110 print "          4.*.6"
  120 print "          1.2.3"
  130 print
  140 print "10 = no move for the rest of the game"
  150 print "-1 = gave up, situation hopeless."
  160 print " 0 = a tremendous (but unfortunately         random) leap"
  170 print
  180 dim a(10,20),a1(10,20),n(12),l(5),m(5),l1(5),m1(5)
  190 rem
  210 for b=1 to 10
  220 for c=1 to 20
  230 x=int(10*rnd(1))
  240 if x=5 then 270
  250 a(b,c)=asc(" ")
  260 goto 280
  270 a(b,c)=asc("x")
  280 next c
  290 next b
  300 for d=1 to 10
  310 a(d,1)=asc("x"):a(d,20)=asc("x")
  320 next d
  330 for f=1 to 20
  340 a(1,f)=asc("x"):a(10,f)=asc("x")
  350 next f
  360 goto 410
  370 h=int(2+8*rnd(1))
  380 i=int(2+18*rnd(1))
  390 if a(h,i)<>asc(" ") then 370
  400 return
  410 gosub 370
  420 a(h,i)=asc("*")
  430 j=h:k=i
  440 for n9=1 to 5
  450 gosub 370
  460 a(h,i)=asc("+")
  470 l(n9)=h:m(n9)=i
  480 next n9
  490 for b1=1 to 10:for b2=1 to 20:a1(b1,b2)=a(b1,b2):next b2:next b1
  500 for b1=1 to 5:l1(b1)=l(b1):m1(b1)=m(b1):next b1
  520 j1=j:k1=k
  530 y9=0
  540 for d2=1 to 10
  550 for b2=1 to 20
  560 n$=chr$(a(d2,b2))
  570 print n$;
  580 next b2
  590 print
  600 next d2
  610 if y9 <> 10 then 640
  620 print
  630 goto 890
  640 input y9
  650 j2=j:k2=k
  660 if y9=0 then 860
  670 if y9<0 then 1230
  680 if y9=10 then 1070
  690 on y9 goto 820,800,780,840,890,760,700,720,740
  700 j=j-1:k=k-1
  710 goto 890
  720 j=j-1
  730 goto 890
  740 j=j-1:k=k+1
  750 goto 890
  760 k=k+1
  770 goto 890
  780 j=j+1:k=k+1
  790 goto 890
  800 j=j+1
  810 goto 890
  820 j=j+1:k=k-1
  830 goto 890
  840 k=k-1
  850 goto 890
  860 print "$6,000,000 jump!!!"
  870 j=int(2+8*rnd(1))
  880 k=int(2+18*rnd(1))
  890 if a(j,k)=asc("x") then 1260
  900 a(j2,k2)=asc(" ")
  910 a(j,k)=asc("*")
  920 goto 1070
  930 rem interceptor movement
  940 if a(x,y)=asc("x") then 1040
  950 x2=x:y2=y
  960 x=sgn(j-x):y=sgn(k-y)
  970 x=x+x2:y=y+y2
  980 if a(x,y)=asc("*") then 1050
  990 if a(x,y)=asc(" ") then 1020
 1000 a(x2,y2)=asc(" ")
 1010 return
 1020 a(x,y)=asc("+")
 1030 a(x2,y2)=asc(" ")
 1040 return
 1050 g9=99
 1060 return
 1070 for n9=1 to 5
 1080 x=l(n9):y=m(n9)
 1090 g9=0
 1100 gosub 940
 1110 if g9 <> 0 then 1240
 1120 l(n9)=x:m(n9)=y
 1130 next n9
 1140 for n9=1 to 5
 1150 if a(l(n9),m(n9)) <> asc(" ") then 1170
 1160 a(l(n9),m(n9))=asc("+")
 1170 next n9
 1180 for n9=1 to 5
 1190 if a(l(n9),m(n9)) <> asc("x") then 540
 1200 next n9
 1210 print "you have destroyed all your opponents - the game is yours"
 1220 goto 1290
 1230 print "give up, eh."
 1240 print "*** you have been destroyed by a lucky      computer ***"
 1250 goto 1290
 1260 print "high voltage!!!!!!!!!!"
 1270 print "***** zap *****  you're dead!!!"
 1280 print
 1290 print "another game (y/n)";
 1300 input n9$
 1310 if n9$ <> "y" then 1400
 1320 print "same setup (y/n)";
 1330 input n9$
 1340 if n9$ <> "y" then 190
 1350 for b1=1 to 10:for b2=1 to 20:a(b1,b2)=a1(b1,b2):next b2:next b1
 1360 for b1=1 to 5:l(b1)=l1(b1):m(b1)=m1(b1):next b1
 1380 j=j1:k=k1
 1390 goto 530
 1400 end
    0 clr:poke59468,12
    1 rem checkers! copyright (c) 1980 tom skibo
    2 rem 7973 10th ave s
    3 rem st petersburg fla 33707
    4 :
    5 rem cursor #19, apr 80
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 6 jun 80
   90 pg$="checkers!":nm$="19":gosub62000
  100 clr
  110 a=rnd(-ti):t=0:f=0:c=0
  120 n2=2:ny=63:n1=1:nz=64:n5=5:n8=8:n4=4:n0=0:n9=9
  160 dima(64),a2(64),f(30),t(30),r(30),p$(2),m(8)
  170 poke59467,16:poke59466,15:poke59464,0
  180 p=59464
  230 lt=7:restore:deffnc(mz)=8*abs((mz-8*int(mz/8))=0)+mz-8*int(mz/8)
  240 fori=1to64:a2(i)=9:nexti
  250 print"{clr}":d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":z$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{home}"
  260 p$(1)="U{SHIFT-*}{SHIFT-*}I{left}{left}{left}{left}{down}J{SHIFT-*}{SHIFT-*}K{home}":p$(2)="U{CBM-R}{CBM-R}I{left}{left}{left}{left}{down}J{CBM-E}{CBM-E}K{home}":p$(0)="    {left}{left}{left}{left}{down}    {home}"
  270 d=0:fora=1to64:ifzf=0thena(a)=9
  280 ifd+aand1thenprintleft$(d$,int((a-1)/8)*3+1)tab(fnc(a)*4-4)z$:goto330
  290 ifzfthen330
  300 a(a)=0
  310 ifa<25thena(a)=-1
  320 ifa>40thena(a)=1
  330 iffnc(a)=8thend=1-d
  340 next
  350 fora=32800to33720step40:pokea,229:next:fora=33728to33759:pokea,227:next
  360 poke33760,160:fora=2to63:ifa(a)=9then390
  370 printleft$(d$,int((a-1)/8)*3+1)tab(fnc(a)*4-4)"{rvon}"mid$(str$(a),2);
  380 printleft$("    ",5-len(str$(a)))
  390 next
  400 gosub540
  410 printleft$(d$,5)tab(33)"{rvon}white{rvof}{left}{left}{left}{left}{left}{down}{down}EEEEEE"
  420 printleft$(d$,20)tab(33)"black{left}{left}{left}{left}{left}{down}{down}EEEEEE"
  430 fora=1to8:readm(a):next:data14,18,-14,-18,7,9,-7,-9
  440 goto820
  450 i$=" ":tm=0:a=0
  460 geta$:ifa$<>""then490
  470 ifti>tmthenprintmid$(" {CBM-+}",a+1,1)"{left}";:a=1-a:tm=ti+20
  480 goto460
  490 zc=asc(a$):zl=len(i$)
  500 ifzc=20andzl>1theni$=left$(i$,zl-1):print" {left}{left}";:tm=0:goto460
  510 ifzc=13thenprint" ":i$=mid$(i$,2):return
  520 if(zcand127)<32orzc=34then460
  530 ifzl<ltthenprinta$;:i$=i$+a$
  534 goto460
  540 fora=2to63:ifa(a)=9then580
  550 printleft$(d$,int((a-1)/8)*3+2)tab(fnc(a)*4-4);
  560 x=a(a):ifx<0thenprint"{rvon}";
  570 printp$(abs(x))
  580 next:return
  590 gosub1560:odj=dj
  595 printleft$(d$,6+15*(pp-1))tab(33)"       {left}{left}{left}{left}{left}{left}{left}";:gosub450
  600 ifleft$(i$,1)="q"then1900
  610 ifdjandi$=""then1062
  620 s1=val(i$)
  630 i$=mid$(i$,2):iflen(i$)<2then645
  635 ifleft$(i$,1)<>"-"then630
  640 s2=val(mid$(i$,2))
  645 ifs1<1ors1>64ors2<1ors2>64then1500
  650 ifdjands1<>djthen1500
  655 ifright$(i$,1)="-"thendj=s2
  660 ifdjandabs(s1-s2)<10then1500
  665 ifright$(i$,1)<>"-"thendj=0
  675 goto830
  680 s1=0:s2=0:fora=2to63:ifa(a)=9then710
  690 ifa(a)>0thens1=s1+a(a)
  700 ifa(a)<0thens2=s2-a(a)
  710 next
  720 ifs1=0then760
  730 ifs2=0then750
  740 return
  750 printleft$(d$,10)tab(34)"black{left}{left}{left}{left}{left}{down}wins!":goto770
  760 printleft$(d$,10)tab(34)"white{left}{left}{left}{left}{left}{down}wins!"
  770 fora=1to6:forb=240to0step-5:pokep,b:pokep,b+15:next:next:pokep,0
  780 goto1900
  820 pp=2:dj=0:odj=0:goto590
  830 ifa(s1)<1ora(s1)=9ora(s2)<>0then1500
  840 fl=0:forc=1to8:if(s2-s1)=m(c)thenfl=c
  850 next:iffl=0then1500
  860 ifm(fl)>0anda(s1)=1then1500
  870 iffl>4then900
  880 ifa(s1+m(fl+4))>-1then1500
  890 a(s1+m(fl+4))=0
  900 a(s2)=a(s1):a(s1)=0
  910 ifs2<9thena(s2)=2
  920 gosub540:gosub680
 1060 ifdjthen590
 1062 printleft$(d$,8)tab(34)"hmm,{left}{left}{left}{left}{down}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":printleft$(d$,6)tab(33)"******"
 1070 jm=9:mv=n0:ts=n0:l=n4:goto1190
 1080 t=f+m(c):ift<n1ort>nzthenreturn
 1086 ifc>n4andjm<n5thenreturn
 1090 ifa(t)thenreturn
 1100 ifm(c)<n0anda(f)>-n2thenreturn
 1110 ifc>n4then1130
 1120 ifa(f+m(c+n4))<n1thenreturn
 1130 mv=mv+n1:f(mv)=f:t(mv)=t:jm=c:return
 1140 t=f+m(c):ift<n1ort>nzthenreturn
 1150 ifa2(t)<>n0thenreturn
 1160 ifa2(f+m(c+n4))>-n1thenreturn
 1170 ifm(c)>0anda2(f)=n1thenreturn
 1180 r(a)=r(a)+a2(f+m(c+n4)):return
 1190 forf=n2tony:ifa(f)>-n1then1210
 1200 forc=1ton4:gosub1080:next
 1210 next:ifmvthen1220
 1212 forf=n2tony:ifa(f)>-n1then1219
 1216 forc=5ton8:gosub1080:next
 1219 next:ifmv=0then750
 1220 gosub680:fl=.02:ifs1>s2thenfl=-fl:ifmv=1then1350
 1230 fora=n1tomv:r(a)=n0
 1240 d=t(a)-f(a):ifabs(d)>n9thenr(a)=a(f(a)+d/n2)+fl
 1250 ift(a)>56thenr(a)=r(a)+.2
 1255 next
 1260 ifmv=1then1350
 1265 fora=n1tomv:fl=0
 1270 gosub1570
 1275 fort=1to64step16:forc=t+1tot+7step2:a2(c)=a(c):a2(c+7)=a(c+7):next:next
 1280 forc=n1ton8:ifm(c)=t(a)-f(a)thenfl=c
 1290 next
 1300 iffl<n5thena2(f(a)+m(fl+n4))=n0
 1310 a2(t(a))=a2(f(a)):a2(f(a))=n0
 1320 forf=n2tony:ifa2(f)=n9ora2(f)<n1then1340
 1330 forc=n1ton4:gosub1140:next
 1340 next:next
 1350 tm=-300:fora=n1tomv:ifr(a)>tmthentm=r(a)
 1360 next
 1370 a=int(rnd(n1)*mv)+n1:ifr(a)<tmthen1370
 1380 s1=f(a):s2=t(a)
 1390 m$=mid$(str$(s1),2)+"-"+mid$(str$(s2),2):printleft$(d$,6)tab(33)m$;
 1400 printleft$("      ",7-len(m$)):printleft$(d$,8)tab(34)"    {left}{left}{left}{left}{down}    "
 1410 pokep,250:fort=1to700:next:pokep,0
 1420 d=s2-s1:ifabs(d)>9thena(s1+d/2)=0
 1430 a(s2)=a(s1):a(s1)=0
 1440 ifs2>56thena(s2)=-2
 1450 f=s2:gosub540:gosub680:ifjm>n4then820
 1454 mv=0:jm=9:forc=n1ton4:gosub1080:next
 1456 ifmvthen1220
 1460 goto820
 1500 printleft$(d$,6+15*(pp-1))tab(33)"{rvon}??????{rvof} "
 1510 poke59466,12:poke59464,255
 1520 fort=1to300:next
 1530 poke59464,0:poke59466,15
 1535 geta$:ifa$<>""then1535
 1540 dj=odj:goto595
 1560 pokep,200:fort=1to150:next:pokep,250:fort=1to150:next:pokep,0:return
 1570 pokel+33001,42
 1580 l=l+1:ifl=6thenl=0
 1590 pokel+33001,32
 1600 return
 1900 poke59464,0:poke59466,0:poke59467,0
 2000 tm=ti+180
 2010 if ti<tm then 2010
 2020 print"{clr}{down}{down}want to play again";
 2030 tm=0:c=1
 2040 geta$:ifa$<>""then2100
 2050 ifti<tmthen2040
 2060 printmid$("? ",c,1);"{left}";:c=3-c:tm=ti+15
 2070 goto2040
 2100 ifa$="y"ora$=chr$(13)thenprint"? yes":goto100
 2110 ifa$="n"thenprint"? no{down}{down}":end
 2120 goto2040
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by tom skibo{down}
 62020 gosub60500
 62030 print"{down}pet plays the old favorite
 62080 print"{down}{down}{down}{rght}{rght}press {rvon}return{rvof} to begin
 62090 getz$:ifz$=""then62090
 62100 print"{clr}":clr:goto100
    1 print"{clr}";:dimbd%(144),d1(15),mt%(15),xy%(32):v=25:goto4000
    5 e=3000:e1=250:b$="              "
   10 restore
   15 data1,3,1,3,1,3,1,3,3,1,3,1,3,1,3,1,1,3,1,3,1,3,1,3,2,1,2,1,2,1,2,1,1,2,1,2
   16 data1,2,1,2,5,1,5,1,5,1,5,1,1,5,1,5,1,5,1,5,5,1,5,1,5,1,5,1
   17 fori=1to8:forj=1to8:readbd%(i*10+j):next:next:iffthenf=0:goto232
   20 data2,3,4,5,6,7,8:fori=2to8:readvx$(i):next
   25 pk=32806:data32,81,207,87,213,191:fori=2to7:readty%(i):next
   30 data12,14,16,18,21,23,25,27,32,34,36,38,41,43,45,47,52,54,56,58,61,63,65,67
   35 data72,74,76,78,81,83,85,87:fori=32to1step-1:readxy%(i):next
   40 data" ","Q","{rvon}Q{rvof}","W","{rvon}W{rvof}":fori=2to6:readma$(i):next
   90 print"{clr}";:fori=1to4:print"{rvon}   {rvof}{CBM-T}{CBM-T}{CBM-T}";:next:print"{left}P"
  110 n=2:fori=1to4:forj=nto3:fork=1to4
  120 print"{rvon}   {rvof}   ";:next:print"{left}{CBM-M}":n=1:next
  130 forj=1to3:print"{CBM-G}  {rvon}   {rvof}";:fork=1to3:print"   {rvon}   {rvof}";:next:print:next:next
  150 print"{up}L{CBM-@}{CBM-@}{rvon}   {rvof}";:fori=1to3:print"{CBM-@}{CBM-@}{CBM-@}{rvon}   {rvof}";:nexti:print
  200 print"{home}{rvon}1{rvof}";:fori=2to8step2:print"{rght}{rght}";vx$(i);"{rvon}{rght}{rght}";vx$(i+1);"{rvof}";:next:print
  220 print"{home}{down}";:fori=2to8step2:print"{down}{down}"vx$(i):ifi=8goto232
  230 print"{down}{down}{rvon}"vx$(i+1):next
  232 om=12:cm=12:pm$="00":ps$=pm$:mm$=pm$:ms$=pm$:jf=0:gosub1400
  235 print:printtab(v)"my men Q/{rvon}Q{rvof}":printtab(v)"your men W/{rvon}W{rvof}
  236 printtab(v)"{down}clock:":printtab(28)"00:00
  240 gosub5800
  290 ifjfgoto1000
  300 f2=0:fd=1:print"{home}"tab(v)"{rvon}your move:":printtab(v)"from:":w=1:goto1600
  310 print"{home}{down}"tab(31)x1$;:x$=x1$:w=2:goto1600
  320 print"{home}{down}"tab(32)x1$:x=val(x$+x1$):ifx<11orx>88goto7030
  360 onbd%(x)+1goto7030,7040,7000,7010,7010
  380 mh=bd%(x):m=x:gosub2000:ifjf=0goto400
  386 fori=1tojf:ifx=nm(i)thenf=1
  387 next:iff=0goto7015
  400 f=0:printtab(v)"to: ";:w=3:goto1600
  420 print"{home}":fori=1tofd:print:next:printtab(29)x1$;:a$=x1$:w=4:goto1600
  427 print"{home}":fori=1tofd:print:next:printtab(30)x1$:a=val(a$+x1$)
  430 ifa<11ora>88goto7030
  435 ifjfgoto1010
  440 ifx-a=11orx-a=9goto480
  450 ifbd%(x)=6and(a-x=9ora-x=11)goto480
  460 goto7005
  480 onbd%(a)+1goto7030,7040,490,7010,7010,7020,7020
  490 m=a:gosub2000:ifa<19thenmh=6
  500 fori=1toe1:ifpeek(515)=27thengetz$:goto7070
  530 next:bd%(x)=2:bd%(a)=mh:gosub5800
  540 print"{home}":fori=1to12:print:next:printtab(v)b$:gosub1700
  550 print"{home}"tab(25)"your move:":fori=1to6:print:next:printtab(v)"{rvon}my move:
  560 fori=1to6:printtab(25)b$:next:print"{up}{up}{up}{up}{up}{up}";
  600 gosub6200:ifjf=0goto700
  604 hf=8:x=int(rnd(1)*jf+1):d=d(x):nm=nm(x):printtab(v)"from:";nm
  608 ifnm+d+d>79andbd%(nm)=3thenbd%(nm)=4:f2=1
  610 bd%(nm+d)=2:bd%(nm+d+d)=bd%(nm):bd%(nm)=2:f=nm:t=f+d+d
  615 print"{home}":fori=1tohf:print:next:printtab(v)"to:";nm+d+d:gosub5800
  633 om=om-1:gosub1400:ifom=0goto6500
  635 iff2goto670
  640 gosub6200:ifjf=0goto670
  650 h=0:fori=1tojf:ifnm(i)=tthenh=i
  660 next:ifhthenhf=hf+1:nm=nm(h):d=d(h):goto608
  670 gosub1720:fori=1toe1:next:gosub6000:print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(v)"my move:
  680 goto7070
  700 mk=0:f1=0:forl=1to32:i=xy%(l):ifbd%(i)=3goto760
  705 ifbd%(i)<>4goto799
  710 forj=-11to-9step2
  720 ifbd%(i+j)<>2goto755
  730 bd%(i+j)=bd%(i):bd%(i)=2:gosub6000
  735 iff1=0andjf=0thenmk=0:f1=1
  737 iff1andjfgoto750
  740 mk=mk+1:d1(mk)=j:mt%(mk)=i:ifjf>0thenmt%(mk)=i*-1
  750 bd%(i)=bd%(i+j):bd%(i+j)=2
  755 next
  760 gosub1720:forj=9to11step2
  770 ifbd%(i+j)<>2goto796
  780 bd%(i+j)=bd%(i):bd%(i)=2:gosub6000
  785 iff1=0andjf=0thenmk=0:f1=1
  787 iff1andjfgoto795
  790 mk=mk+1:d1(mk)=j:mt%(mk)=i:ifjf>0thenmt%(mk)=i*-1
  795 bd%(i)=bd%(i+j):bd%(i+j)=2
  796 next
  799 next
  800 fori=1tomk:ifmt%(i)>1goto840
  810 next:fori=1tomk:ifmt%(i)<0thenmt%(i)=mt%(i)*-1:goto840
  815 next
  840 c=mt%(i):ca=d1(i):ifbd%(c)=3andc+ca>79thenbd%(c)=4
  850 bd%(c+ca)=bd%(c):bd%(c)=2
  860 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(v)"from:";c:printtab(v)"to:";c+ca:gosub5800:goto670
 1000 print"{home}":fori=1to12:print:next:printtab(v)"{rvon}your jump!":goto300
 1010 fory=1tojf:ifa=x+(2*d(y))goto1040
 1020 next:goto7015
 1040 m=a:gosub2000:ifa<19andmh=5thenmh=6:f2=1
 1045 fori=1toe1:ifpeek(515)=27thengetz$:goto7070
 1050 next:bd%(x)=2:bd%(a)=mh:bd%(x+d(y))=2:gosub5800
 1055 cm=cm-1:gosub1400:ifcm=0goto6600
 1057 iff2goto540
 1060 gosub6000:ifjf=0goto540
 1070 h=0:fori=1tojf:ifnm(i)=athenh=i:
 1080 next:ifh=0goto540
 1085 x=a:fd=fd+1:print"{home}":fori=1tofd:print:next:goto400
 1400 print"{home}":fori=1to14:print:next:printtab(v)b$
 1403 printtab(v)"{up}i have";cm;"men
 1405 printtab(v)b$+" "
 1410 printtab(v)"{up}{up}you have";om;"men":ifom>9thenprint"{up}";
 1420 return
 1600 print"{home}":fori=1to20:print:next
 1610 printtab(v)"me":printtab(v)"{rvon}you"
 1620 ti$="00"+pm$+ps$
 1630 getx1$:ifpeek(515)=27thengetw:goto7070
 1635 ifx1$<>""thenonwgoto310,320,420,427
 1640 pm$=mid$(ti$,3,2):ps$=right$(ti$,2)
 1650 print"{up}"tab(29)pm$;":";ps$:goto1630
 1700 print"{home}":fori=1to20:print:nexti:printtab(v)"{rvon}me":printtab(v)"you"
 1710 ti$="00"+mm$+ms$
 1720 mm$=mid$(ti$,3,2):ms$=right$(ti$,2):print"{home}":form=1to21:print:next
 1730 print"{up}"tab(28)mm$;":";ms$:return
 2000 l=int(m/10):r=m-l*10:pn=pk+(l-1)*120+r*3:pokepn,191:return
 4000 print"{clr}{down}{down}{down}{down}{down}":printtab(13)"pet checkers":printtab(18)"{down}{down}by
 4080 printtab(9)"{down}{down}cms software systems":printtab(10)"{down}5115 menefee drive
 4085 printtab(11)"{down}dallas, tx 75227
 4090 fori=1to5000:next
 5000 print"{clr}{down}do you need any instructions?":print"{down}press y or n.
 5010 geta$:ifa$=""goto5010
 5020 ifa$="n"goto5
 5022 print"{clr}":printtab(14)"instrutions":fori=1to20:print"{SHIFT-*}{SHIFT-*}";:next:print"{down}
 5030 print"1. international checker rules are in":print"   effect.
 5035 print"{down}2. move by entering first the row
 5040 print"   number and then the column number.
 5050 print"{down}3. to cancel a move, press {rvon}return
 5055 print"   while {rvon}?{rvof} is lighted.
 5060 print"{down}4. enter multiple jumps, 1 jump":print"   at a time.
 5100 print"{down}   press {rvon}return{rvof} to start the game.
 5110 geta$:ifa$=""goto5110
 5120 goto5
 5800 print"{home}":fori=1to7step2:z=i*10
 5840 printtab(4)ma$(bd%(z+2));tab(10)ma$(bd%(z+4));tab(16)ma$(bd%(z+6));
 5860 printtab(22)ma$(bd%(z+8)):print"{down}"
 5880 printtab(1)ma$(bd%(z+11));tab(7)ma$(bd%(z+13));tab(13)ma$(bd%(z+15));
 5900 printtab(19)ma$(bd%(z+17)):ifi=5thenprint"{up}";
 5910 ifz=70thenreturn
 5920 print"{down}":next
 6000 jf=0:forn=1to32:p=xy%(n):ifbd%(p)<>5andbd%(p)<>6goto6099
 6005 ifp<29goto6030
 6007 fork=-11to-9step2
 6010 if(bd%(p+k)=3orbd%(p+k)=4)and(bd%(p+k+k)=2)thenjf=jf+1:nm(jf)=p:d(jf)=k
 6020 next
 6030 ifbd%(p)<>6goto6099
 6035 ifp>69goto6099
 6037 fork=9to11step2
 6040 if(bd%(p+k)=3orbd%(p+k)=4)and(bd%(p+k+k)=2)thenjf=jf+1:nm(jf)=p:d(jf)=k
 6050 next
 6099 next:return
 6200 jf=0:forn=1to32:p=xy%(n):ifbd%(p)<>3andbd%(p)<>4goto6299
 6205 ifp>69goto6230
 6210 fork=9to11step2
 6220 if(bd%(p+k)=5orbd%(p+k)=6)andbd%(p+k+k)=2thenjf=jf+1:nm(jf)=p:d(jf)=k
 6225 next
 6230 ifbd%(p)<>4goto6299
 6235 ifp<39goto6299
 6240 fork=-11to-9step2
 6250 if(bd%(p+k)=5orbd%(p+k)=6)and(bd%(p+k+k)=2)thenjf=jf+1:nm(jf)=p:d(jf)=k
 6260 next
 6299 next:return
 6500 cs=cs+1:w$="i win!!!":print"{home}";
 6505 fori=1to7:printtab(v)b$:next:print"{up}{up}{up}{up}{up}{up}{up}";
 6507 printtab(v)"{rvon}"w$:printtab(v)"{rvon}score:
 6510 printtab(v)"you:";ps:printtab(v)"pet:";cs:printtab(v)"{down}do you want
 6520 printtab(25)"to play again?
 6530 geta$:ifa$=""goto6530
 6540 ifa$<>"y"thenend
 6550 print"{home}";:fori=1to15:printtab(v)b$:next:f=1:goto10
 6600 ps=ps+1:w$="you win!!!":print"{home}{down}{down}{down}{down}{down}{down}":goto6505
 6610 print"{home}{down}{down}{down}{down}{down}{down}{down}":goto6505
 7000 w1$="no checker on":w2$="that square.":goto7050
 7005 w1$="that is an":w2$="illegal move.":goto7050
 7010 w1$="i occupy":w2$="that square.":goto7050
 7015 w1$="you must take":w2$="your jump.":goto7050
 7020 w1$="you occupy":w2$="that square.":goto7050
 7030 w1$="not a":w2$="valid square.":goto7050
 7040 w1$="that is a":w2$="white square."
 7050 printtab(v)w1$:printtab(v)w2$:fori=1toe:next
 7070 gosub5800:print"{home}";:forj=1to6:printtab(v)b$:next:goto290
:{stop}{SHIFT-POUND}l{sret}{$fd}{stop}{SHIFT-POUND}{CTRL-A}{f1}{$f1}{SHIFT-POUND}{$6b}{f1}{$f9}{SHIFT-POUND}{stop}{f1}{$fa}{SHIFT-POUND}{CTRL-B}{f1}{$ee}{SHIFT-POUND}{wht}{f1}{$ee}{SHIFT-POUND}:{f1}{$f7}{SHIFT-POUND}{stop}{f1}{$f8}{SHIFT-POUND}{$00}{f1}{$e5}{SHIFT-POUND} {f1}{$e6}{CBM-I}{$00} {CBM-E}{$f6}l{f6}Cchess{$77}{$77}{$67}{$75}{$77}{$77}{$77}{$77}{$7f}{$77}{$77}{$76}{$77}{$75}{$77}{$77}{ensh}{$a0}{blk}{f7}{f7}{f7}{sret}H{f7}{f7}{orng}{f7}{dish}{$00}{dish}{f7}{gry2}BH{f6}{f4}{f7}{f7}{f7}{$80}{f7}{$80}{f7}{$80}{f7}{f6}{$80}{f2}{f7}L{dish}{f2}{$80}{$80}{f2}{f7}{dish}{f7}{gry2}{$82}{CTRL-X}{lred}{$80}{f7}{f7}{$80}{blk}{swuc}{f7}{$80}{CBM-POUND}{gry2}{f4}{f7}{f7}{f7}{f7}{ensh}{dish}v{$77}{$76}{$67}{$7c}{home}1{$77}{$7e}{$69}{$77}{$77}{$7e}{$67}{$77}{$77}{$63}{$7e}{$77}{$75}{$6f}{$77}{$76}{$77}{$7f}{$77}>7{$77}{$63}{$77}{$77}{$77}{$76}{$77}{$7d}g^77'{$77}{$77}{$6e}{$76}{$77}{$7d}{$77}{$76}{$7f}{$73}{$77}w{$7f}{$6f}{$77}W{$7f}{$76}{$77}{$7f}l{$77}{$77}{$00}
{CTRL-D}{$0a}{$00}{yel}(1039){$00}{$00}{$00}{CBM-Z}{CTRL-Y}{CTRL-B}{sret}{$fe}{stop}{CBM-Z}{CTRL-Z}{CTRL-B}{sret}~{stop}{$ea}Xx{SHIFT-POUND}{CTRL-L}{sret}l{$e8}{SHIFT-POUND}{$00}{CBM-I}{SHIFT-*}{brn}"JP{$fb}{SHIFT-POUND}{wht}{f1}s{SHIFT-POUND} {CBM-I}{$80}{f3}1{CBM-I}{$00}{f3}0{$a0}{CTRL-D}{orng}0{$e6}0P{$fa}{$e6}1{f7}P{$f5}{SHIFT-POUND}{$7a} {CBM-J}{del}{SHIFT-POUND}{$7b} {CBM-J}{del}{SHIFT-POUND}{$7c} {CBM-J}{del}{CBM-I}{$00}{CBM-X}{$e1}{CTRL-U}{$f0}{CTRL-F}{left}{$68}{$82}{$e8}P{$f5} {red}{CTRL-F}{$78}{SHIFT-POUND}{$00}{sret}#{CTRL-B}{SHIFT-POUND}i{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{dish}{sret}{CTRL-Z}{CTRL-B}{CBM-I}{$fe}{lblu}x{SHIFT-POUND}{$a0}{sret}{CBM-E}{orng}{sret}{CBM-Y}{orng}{sret}){$82}{sret}/{$82}{CBM-Z}Z{del}{sret}1{CTRL-U}{CBM-Z}{CBM--}{del}{sret}2{CTRL-U}{CBM-Z}{$de}{del}{sret}g{CTRL-U}{CBM-Z}{$e0}{del}{sret}h{CTRL-U}{CBM-I}!{CBM-X}{rght}{del}{brn}{blk}J{CTRL-P}{$f8}{SHIFT-POUND}~{f1}y {$f3}{CTRL-D} {$f3}{CTRL-U}{SHIFT-POUND}0{sret}{CBM-W}{orng}{sret}{CBM-J}{orng}{sret}{CBM-L}{orng}{sret}+{$82}{sret}-{$82}{sret}.{$82}{SHIFT-POUND}{CTRL-A}{f1}{$7a}{f1}{$7b}{SHIFT-POUND}{dish}l{$67}{wht}{SHIFT-POUND}{$ee}{f1}{$83}{f1}{$84}X{CBM-I}{$fd}{lblu}{CBM-I}{SHIFT-*}{f3}{$61}{CBM-I}{$00} {red}{CTRL-F}{CBM-Z}{$6a}{$83}I{CTRL-X}P/ {$f3}{CTRL-D}l{left}{wht}{CBM-G}vi{CTRL-G}{f1}v {CBM-R}{CTRL-G}{CBM-G}{$7e}i{CTRL-A}{f1}{$7e}{CBM-N}{CBM-X}Z{del}{sret}1{CTRL-U}{CBM-X}{CBM--}{del}{sret}2{CTRL-U}{CBM-X}{$de}{del}{sret}g{CTRL-U}{CBM-X}{$e0}{del}{sret}h{CTRL-U}{$60}I{CTRL-P}P{stop}l{CTRL-B}{ensh}I{CTRL-O}P{grn}{CBM-G}{CBM-K}{f1}{$83}{SHIFT-POUND}{down}{f1}"{CBM-Z}5{del}{CBM-S}{$6e}{$83}{$e0}{CTRL-O}P{stop}{CBM-Z}4{del}ev{f1}#{f1}{$84}l{wht}{CTRL-G}I{swlc}P{stop}lt{CTRL-F}I{rvon}P{CTRL-P}{$78}{CBM-Z}{$fe}{stop}{sret}{CTRL-Y}{CTRL-B}{CBM-Z}~{stop}{sret}{CTRL-Z}{CTRL-B}l{CTRL-O}{CTRL-D}I{ensh}P5{CBM-Z}{$6d}{$83}){CTRL-O}{ensh}0{sret}{$ee}{$80}){CTRL-O}{CBM-N}J{CTRL-P}{dish}{SHIFT-POUND} {sret}{$ee}{$80}l{CBM-N}{CTRL-G}{$e0}{dish}{CTRL-P}{$f4}{CBM-X}?{del}{f3}{f2}{f1}{f1}{CBM-X}g{del}{f1}{f3}{CBM-X}o{del}{f1}{f5}{CBM-X}w{del}{f1}{f7}lS{CTRL-D}I P{CTRL-F} {$f3}{CTRL-U}lS{CTRL-D}{CBM-I}{$00}{f3}{$83}{f3}{$84}{$a0}{$00}{CBM-O}{$6a}{$83}I P{stop}l{f3}{CTRL-F}I-P{stop}HP{$ef}I*P){CBM-G}{$84} {swuc}{CTRL-G}i{$77}{f1}#{CBM-G}{$83} {swuc}{CTRL-G}i{$77}{CBM-I}!U{blk}{$f0}{wht}J{CTRL-P}{$f9}0{rvon}{f3}"{f3}y {inst}
{SHIFT-POUND}{$f0}{f1}{$74}l{left}{wht}{$e0}{CTRL-D}0{stop}l{CBM-N}{CTRL-G}){CTRL-O}I{ensh}P{CTRL-B}{SHIFT-POUND}{$00}{$e0}{stop}{$f0}{CTRL-W}{$e0}{CTRL-B}{$f0}{CTRL-O}{$e0}{CTRL-A}{$f0}{CTRL-D}{$0a}{$0a}{$0a}{$0a}{wht}{$83}{f1}{$83}l{CTRL-W}{CTRL-F}{$0a}{$0a}{$0a}{$0a}{wht}{$84}{f1}{$84}{$e8}Hl{CBM-Q}{wht}{$a0}{wht}{SHIFT-POUND} {lgrn}{$6a}{$83}{f7}{CTRL-P}{$fa}{SHIFT-POUND}:{sret}{$69}{$83}{CBM-I}{$00}{f3}{$83}{f3}{$84} {brn}{del}I{del}{$f0}{CTRL-L}I
{$f0}{rvon})?{left}{$6a}{$83}{$e8}P{$ed}J0U{SHIFT-POUND} {left}{$6a}{$83}{CTRL-P}{$e3}{SHIFT-POUND} {sret}{inst}{$83}{$60}{SHIFT-POUND}{$00}{f1}2 d{CTRL-W}{CBM-G}2 {lgrn}{CTRL-K}hjjjj{$a0}{$00}{up}0{$68}){CTRL-O}{ensh}0{$a0}({up}0{$e6}2{CBM-G}2){dish}{$f0}{$de}{CBM-G}2{CTRL-X}{$69}{dish}{f1}2{CTRL-P}UlS{CTRL-D}{CBM-G}{$60}P{CTRL-D}{CBM-G}v{$f0}d{CBM-G}{$83} {swuc}{CTRL-G}{f1}{$83}{CBM-G}{$84} {swuc}{CTRL-G}{f1}{$84}{SHIFT-POUND}{$00}{f1}w{CBM-G}{f3}h{SHIFT-POUND}{CTRL-D}{f1}{f3}{CBM-I}{stop}{f3}$ {CBM-R}{CTRL-G} a{CTRL-L} {CBM-R}{CTRL-G}{$68}{f1}{f3}{CBM-G}{$84}i{$77}{f1}{$84}{f1}#{f1}{$72}{CBM-G}{$83}i{$77}{f1}{$83}{f1}{$71}{CBM-I}{CTRL-P}U{CBM-K}{$f0}{CTRL-F}J{CTRL-P}{$f9}l{CBM-N}{CTRL-G}{f4}{CTRL-X}{$69}{down}{f1}"FwP& {up}{CTRL-W}{CBM-+}"{$e0}{CTRL-Z}0{CTRL-W}{CBM-G}#){$f0}P{down}{SHIFT-POUND}L{brn}{blk}{CBM-I}{rvon}{CBM-J}{blk}0{stop}{$e8}P{$f9}{CBM-G}#{brn}{blk} {$f3}{CTRL-U}l{CTRL-B}{ensh}{CBM-+}"{$e0}{down}Py{CBM-S}b{$83}{$e0}{stop}{$f0}r{CBM-+}zP{$75}{CBM-+}v{$f0}"{CBM-G}{$83}I{$74}P{$6b}{CBM-G}{$84}I{$76}P{ensh} {up}{CTRL-W}{SHIFT-POUND}{$75}{f1}{CBM-@}P-I{$72}Px {up}{CTRL-W}{SHIFT-POUND}{$73}{f1}{CBM-G}P {CBM-G}{$83}I{$73}Pi{CBM-G}{$84}I{$71}P{ensh} {up}{CTRL-W}{SHIFT-POUND}{$72}{f1}{CBM-@}P{CTRL-K}I{$75}P6 {up}{CTRL-W}{SHIFT-POUND}{$74}{f1}{CBM-G}{f1}z {$f3}{CTRL-U}l{CTRL-B}{ensh}{$e0}{CTRL-Z}0#{CBM-G}_E{$84}P{rght}{CTRL-X}{$69}{CTRL-P}{f1}#{CBM-J}{blk}){$f0}I0P{CTRL-P} {up}{CTRL-W}{CBM-G}{$84}{f1}# {up}{CTRL-W} {$f3}{CTRL-U}l{CTRL-B}{ensh}l{CBM-N}{CTRL-G}h){CTRL-O}{$0a}{$0a}{$0a}{$0a}{f1}{$69}{$68}jjjj{wht}{$69}8{$e9}{down}i{CTRL-G}{CBM-+}vP{CTRL-B}i{$77}{$60}{SHIFT-POUND}?{sret}{inst}{$83}lS{CTRL-D}{CBM-I}{CTRL-P}{CBM-H}{CBM-K}{CBM-J}{blk}i{$77}{brn}{CBM-K}{gry2}i{$77}{brn}{blk}J{CTRL-P}{$f0}{$60}{CBM-E}{$76}hH{CBM-E}{$76}{f1}*{$68}{CBM-I}{down}U{blk}{$f0}{CTRL-F}J{CTRL-P}{$f9}l{$f9}{ensh}{f3}){$e0}{$00}P+{CBM-G}*{CBM-I}{stop}I{CTRL-F}P{CTRL-F}{SHIFT-POUND}{wht}{brn}{blk}P{rght}I{CTRL-A}P{CTRL-F}{SHIFT-POUND}{CTRL-B}{brn}{blk}P{home}{$e8}I{CTRL-B}P{CTRL-F}{SHIFT-POUND}{stop}{brn}{blk}P{dish}I{wht}P{CTRL-D}{SHIFT-POUND}{CTRL-D}{brn}{blk}l~{$0a}{SHIFT-POUND}l{sret}{$fd}{stop}{SHIFT-POUND}{CTRL-A}{f1}{$f1}{SHIFT-POUND};{f1}{$f9}{SHIFT-POUND}{dish}{f1}{$fa}{SHIFT-POUND}
{f1}{$ee}{SHIFT-POUND}{$fd}{f1}{$f7}{SHIFT-POUND}{stop}{f1}{$f8}{SHIFT-POUND}{$00}{f1}{$e5}{SHIFT-POUND} {f1}{$e6}{CBM-I}{$00} {CBM-E}{$f6}l{f6}Cmicrochess(c){$00}{CBM-+}{$7e}V{$7a}P[{SHIFT-POUND}<{brn}{$7a}{f4}{$f0}{CTRL-D}{CBM-I}{$7c}P{CTRL-B}{CBM-I}{CTRL-D}{$fe}{CBM-R}{orng}{CBM-X}{CBM-R}{orng}I:{blk}d{SHIFT-POUND}0{left}{CBM-R}{orng}J{$fe}{CBM-R}{orng}{CBM-X}{CBM-R}{orng}I6{blk}4{SHIFT-POUND}0{left}{CBM-R}{orng}JJ{$fe}{CBM-R}{orng}{CBM-X}{CBM-R}{orng}I:{blk}#{SHIFT-POUND}0{left}{CBM-R}{orng}J{$fe}{CBM-R}{orng}{CBM-X}{CBM-R}{orng}I!P{wht}{SHIFT-POUND}1{left}{CBM-R}{orng}I6P{$0a}{SHIFT-POUND}0{left}{CBM-R}{orng}{SHIFT-POUND}{CBM-S}{left}{CBM-E}{orng}{CBM-Z}#{CTRL-B}I{CTRL-D}Pd{CBM-G}0h{CBM-G}1h{SHIFT-POUND}_ {CBM-J}{del}{CBM-I}{wht}{SHIFT-POUND} {left}{$6a}{$83}J{CTRL-P}{$f8}{SHIFT-POUND}{$f3}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I{$fb}{$f0}&{SHIFT-POUND}{$f7}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I{$fb}P{$e8}{SHIFT-POUND}{$79} {CBM-J}{del}{CBM-Z}{rvon}{$e8}I~P{$f9}{SHIFT-POUND}{$00}{sret}
{CTRL-B}{$68}{f1}1{$68}{f1}0l{$fd}{stop}{CBM-Z}{rvon}{$e8}I~P{$f9}lp{wht}{CBM-G}{$83}I{$0a}P{stop}l{CBM-N}{CTRL-G}{CBM-G}{blk}0{$f9}{CBM-G}{CBM-K}0{$f5}{SHIFT-POUND}{$00}{f1}_{CBM-G}{$7e}i{CTRL-A}{f1}{$7e}{CBM-+}{$60}P{rght}{CBM-N}{$f0}{CTRL-O}i{CTRL-A}{f1}{$7e}{SHIFT-POUND}0{sret}+{$82}{sret}-{$82}{sret}.{$82}{SHIFT-POUND}0{sret}{CBM-W}{orng}{sret}{CBM-J}{orng}{sret}{CBM-L}{orng}{SHIFT-POUND}{$79} {CBM-J}{del}{SHIFT-POUND}^ {CBM-J}{del}{CBM-G}"I{CTRL-Z}0{CTRL-P}{CBM-G}{$71}8{$e5}{$72}I P{CTRL-G}{CBM-G}{$72}{CTRL-X}{$69}{CTRL-P}{f1}_{CBM-@}{$75}P{home}{CBM-G}v{$f0}o{CBM-G}{$71}{wht}{$72}P{ensh}{CBM-G}{$7e}i{CTRL-A}{f1}{$7e}l{CBM-N}{CTRL-G}{CBM-G}{$71}i{$77} {CBM-W}{CTRL-K}{CBM-G}{$72}i{$77} {CBM-W}{CTRL-K}{CBM-G}{$74}0{$76}{CBM-Z}{wht}{CTRL-B}{f1}8{SHIFT-POUND}{$00}{f1}{$74}{SHIFT-POUND}{$00}{f1}{$76}{SHIFT-POUND}{red}{f1}{$77}F8{$f0} {CBM-G}{$76}{CTRL-X}{$69} {f1}{$76}{CBM-G}{$77}{$69}{$00}{f1}{$77}{SHIFT-POUND}{$e1}E{$76}{SHIFT-POUND}{blu}{$e5}{$77}{CBM-A}{$e5}{blk}{SHIFT-+}{CBM-G}{$74}0{CBM-C}l{$83}{ensh}{$a0}{$00}D{$75}{$f0}{CTRL-L}{CBM-O}{$00}{stop}Q{$76}P{dish}HD{$75}P{$f4}lE{CTRL-G}{CBM-G}{$76}{CTRL-X}{$69} {f1}{$76}{CBM-G}{$77}{$69}{$00}{f1}{$77}{CBM-G}{$76}I{$e1}{CBM-G}{$77}{$e9}{blu}{blk}T{CBM-G}{$74}P
{$e6}{$74}{SHIFT-POUND}{red}{f1}{$77}{SHIFT-POUND}{$00}{f1}{$76}l{CBM-C}{ensh}{SHIFT-POUND}{$f0}{f1}{$74}{CBM-I}{CTRL-L}{f3}${f3}({f3}'{CBM-I}{del} :{CTRL-L}{CBM-I}{CTRL-D}{f3}${SHIFT-POUND}~{CBM-I}{wht}{brn}{$6a}J{CTRL-P}{$fb}{f1}{orng} 8{CTRL-L}{CBM-G}{$78}){CBM-*}{CBM-+}{$79}{$ec}{$fb}{home}{$f0}{wht}{f1}{$78}l0{$0a}{ensh} {f1}{$78}{CBM-+}'{$e0}~{blk}{dish}{SHIFT-POUND}\ {CBM-J}{del}l{$73}{$0a}{$e0}
{CBM-A}1{SHIFT-POUND}{$00} F{CTRL-K}{CBM-G}g0{home}{SHIFT-POUND}[ {CBM-J}{del}{SHIFT-POUND}] {CBM-J}{del}{CBM-G}{$78}{ensh}{dish}{f1}{$78}lS{CTRL-D}{SHIFT-POUND}{$00}{f1}){CBM-G}{blk}{f1}*{SHIFT-POUND}z {CBM-J}{del}{SHIFT-POUND}\ {CBM-J}{del}lS{CTRL-D}{CBM-G}{$78}){$f7}{f1}{$78}{CBM-G}'I{$82}{CTRL-P}{CTRL-F}I{$80}0{$7c}{CBM-G}y{CTRL-P}{$78}{CBM-G}{$6f}06{CBM-G}{$6e}02{CBM-G}{blk}I{stop}{$f0}{CTRL-W}{CBM-G}{$6a}0({f1}#{SHIFT-POUND}{CTRL-D}{f1}" {inst}
{SHIFT-POUND}{$00}{f1}){SHIFT-POUND}{CTRL-B}{f1}*Pm{SHIFT-POUND}{stop}{f1}"{SHIFT-POUND}{CTRL-B}{f1}# {inst}
{SHIFT-POUND}{$00}{f1}){SHIFT-POUND}{CTRL-A}{f1}*P8{CBM-G}{$6d}0:{CBM-G}{$6c}06{CBM-G}{blk}I{CTRL-D}{$f0}{CTRL-W}{CBM-G}{$6b}0,{f1}#{SHIFT-POUND}{CTRL-D}{f1}" {inst}
{SHIFT-POUND}{$00}{f1}){SHIFT-POUND}{wht}{f1}*P{home}{SHIFT-POUND}{wht}{f1}#{SHIFT-POUND}{stop}{f1}" {inst}
{SHIFT-POUND}{$00}{f1}){SHIFT-POUND}{CTRL-F}{f1}*{CBM-G}{$78}){CBM-*}{f1}{$78}{CBM-+})P{CTRL-B}{f3}y{CBM-J}{blk}{f1}({f3}"{CBM-G}*{f1}#{$e0}{ensh}0$E_P{CTRL-L}h8{$e9}{CTRL-P}{f1}# {up}{CTRL-W}{$68}{f1}#{SHIFT-POUND}{CBM-D}{f1}_{CBM-G}#8{$f5}{blk}I P{CTRL-G}{CBM-G}#8{$e9}{CTRL-P}{f1}_ {up}{CTRL-W}{CBM-G}]{f1}^{CBM-G}){f1}]{CBM-G}[{f1}\{CBM-G}*{f1}[{$e6}{$60}{CBM-+}){$e0}{ensh}0{CTRL-Y}{CBM-G}*){$70}I{$70}P{down}{SHIFT-POUND}L{brn}{blk}{CBM-I}{$00}{CBM-J}{blk}0{stop}{$e8}P{$f9}{CBM-G}*{brn}{blk}{CBM-G}( {CBM-W}{CTRL-K} {lgrn}{CTRL-K}{f1}{$83}{CBM-G}* {CBM-W}{CTRL-K} {lgrn}{CTRL-K}{f1}{$84}{CBM-G}{$78}) {$f0}{wht}{SHIFT-POUND}{$7f} {CBM-J}{del}{CBM-G}{$7e}i{CTRL-A}{f1}{$7e} _{del} {$f3}{CTRL-U}lS{CTRL-D}i{$70}{CBM-+}vP{CTRL-B}i{$77}hjjjj{f1}{$69}{$68}{$0a}{$0a}{$0a}{$0a}{wht}{$69}{CTRL-X}{$69}{down}{$60}{CBM-@}{$75}{lgrn}{$00}{stop}H{SHIFT-*} 0{CTRL-F}{$a0}{$f0}{$84}{$74}{$a0}{$00}{$84}{$75}{$60}{f1}" {$67}
{SHIFT-POUND}{$f8}{f1}${f1}g{CBM-I}{CTRL-P}{f3}h {$e0}{CTRL-L}P{$fb}{CBM-G}g{CTRL-P}
{SHIFT-POUND}{$f9}{f1}${SHIFT-POUND}{dish}{f1}h {$f0}{CTRL-L}P{$fb}{$60}{$e0}{$f9}{$f0}&{CBM-+}{$70}{CBM-G}hI{ensh}{CTRL-P}{down}{$e0}{down}{$f0}{CTRL-U}{$e0}{CTRL-Z}0{dish}I{CTRL-F}{$f0}
I{wht}{$f0}{ensh}{$60}{$e0}{CTRL-X}{$f0}{CTRL-D}{$e0}{CTRL-Y}P{rght}{SHIFT-POUND}{$00}{f1}g{$60}{CBM-G}h{CBM-+}{$70}{$e0}{rvon}{$f0}{$f3}{$e0}{home}{$f0}{$ef}I{wht}{CTRL-P}{ensh}{$e0}{del}{$f0}{$e7}{$e0}{CTRL-U}{$f0}{$e3}{$60}{$e0}{CTRL-V}{$f0}{$de}{$e0}{CTRL-W}{$f0}Z{$60}{CBM-I}{CTRL-P}{SHIFT-POUND}{$00}{brn}+J{CTRL-P}{$fb}{SHIFT-POUND}{down}{f1}"F"{CTRL-P}{CTRL-A}{$60} {$67}
{CBM-@}"{CBM-I}{dish}{f3}h{SHIFT-*}{ensh}{CTRL-P}e{SHIFT-*}{CTRL-G}{CTRL-P}2{SHIFT-*}{wht}{CTRL-P}#{SHIFT-*}{CTRL-B}{$f0}
{CTRL-P}{rvon}{SHIFT-*}{CTRL-A}{$f0}{CTRL-G} {$e0}{CTRL-L}P{$fb}{$f0}U {$f0}{CTRL-L}P{$fb}{$f0}N{CBM-I}{CTRL-D}{f3}h {$f0}{CTRL-L}P{$fb}{$f0}C {$f0}{CTRL-L}{CBM-G}hI{CTRL-D}P{$f7}{$f0}{CBM-U}{CBM-I}{CTRL-P}{f3}h {$e0}{CTRL-L}{CBM-G}hI{dish}P{$f7}{$f0}{SHIFT-POUND} {CBM-I}{CTRL-L}le{CTRL-L}{CBM-I}{CTRL-F}{f3}h {CTRL-F}
0{home}{$70}{CTRL-L}{CBM-+}${$e0}{CTRL-D}P{CTRL-K}{CBM-G}#E_P{wht}{dish} {SHIFT-*}
( {$67}
Fh{CBM-G}hI{wht}{$f0}{SHIFT--} {CTRL-F}
{$70}{down}{CBM-A}{CTRL-G}0
{dish} {SHIFT-*}
({CBM-G}#){$f0}I {$f0}{$ea}{$60} {CTRL-F}
0{wht}{dish} {SHIFT-*}
( {$67}
Fh{$60} {CTRL-F}
{blk}{CTRL-B}p{$f9}0{CTRL-G}{dish} {SHIFT-*}
(p{$f0} {$67}
Fh{$60}{CBM-G}#{CBM-+}h{CTRL-X}{$7d}{CTRL-L}{del}{f1}#){f7}Pn{CBM-G}#{CBM-I}"J0{CTRL-P}U{blk}P{$f9}{$e0}{down}06{f3}{$70}{SHIFT-POUND}{$7f}{$69}{CTRL-A}{$70}{CTRL-A}{CBM-U}{CBM-G}$E{f1}0#E{f3}{CTRL-P}{blu}h{dish}{CBM-G}{$70}h {inst}
{SHIFT-POUND}{$00} F{CTRL-K} {$7a}
{$68}{f1}{$70}({$68}{f1}${CBM-G}g0{CTRL-D}8{SHIFT-POUND}~{$60}{CTRL-X}{SHIFT-POUND}{$00}{$60}{f4}{CBM-+}${$e0}{CTRL-D}0{CTRL-B}{$f6}3{SHIFT-POUND}~{CTRL-X}{CBM-U}{$60}{CBM-+}"{CBM-J}{blk}{f1}#{$60} {inst}
 {CBM-R}{CTRL-G} a{CTRL-L} {CBM-R}{CTRL-G}{SHIFT-@}{f3}i{CBM-+}{$61}{lblu}{$68}{f1}h{$68}{f1}"{CBM-N}{$68}{brn}{blk}{$68}{CBM-N}{$68}{f1}#{brn}{blk}l{CBM-O}
{SHIFT-@}{f3}i{CBM-+}{$61}{lblu}{CBM-G}#h{CBM-POUND}{CBM-I}!U{blk}{$f0}{stop}J{CTRL-P}{$f9}{SHIFT-POUND}L{brn}{blk}{f4}h{CBM-+}"{CBM-J}{blk}{inst}{blk}h{f4}h{CBM-G}hh{SHIFT-@}{f3}{$61}{CBM-+}i{lblu}{$60}{CBM-+}${$e0}{stop}P{down}{CBM-G}#E{$84}P{$0a}{CBM-+}"{CBM-J}{blk}E{$83}P{CTRL-B}{$e6}w{$60}{$e0}{wht}P{rvon}{f3}j{$e6}$ {$6e}
F${CBM-G}jEl04{f1}l{$60}{$e0}{CTRL-F}P.{SHIFT-POUND}~{f1}k{$e6}$ {$6e}
F${CBM-G}k{CTRL-P}{grn} {inst}
{SHIFT-POUND}{dish}{f1}${f1}9 a{CTRL-L} {$7a}
{SHIFT-POUND}{CTRL-F}{f1}${CBM-G}9M{$fb}{home}P{CTRL-D}{SHIFT-POUND}~{f1}j{$60}{$e0}{CTRL-G}P{dish}{$e6}k{$68}{$68}{$68}{$68}{$68}{$60}{$e0}~{$f0}{$67}{CTRL-P}{stop}l{CBM-C}{swlc}{$f6}0{CBM-G}"I{CTRL-B}{$f0}{CTRL-D}I{CTRL-A}P{CTRL-B}{$f6}0p{rvon}{CBM-@}{$70}{CBM-O}{$ea}{home}U1{blk}{CTRL-B}{brn}1{CTRL-X}{dish}{$75}2{brn}2({$e0}{CTRL-D}{$f0}{esc}0{CTRL-A}{$60}{CBM-G}"I{ensh}0{CTRL-P}{CBM-G}#){$70}I{$70}P{dish}{CBM-G}"{f1}{orng}{CBM-G}#{f1}{$82}Pu{CBM-G}5{f1}@{SHIFT-POUND}{$00}{f1}$ {inst}
 {CBM-R}{CTRL-G} 8{CTRL-L} {CBM-R}{CTRL-G}{SHIFT-POUND}{dish}{f1}$ a{CTRL-L} {$7a}
l{$63}{CTRL-O}{SHIFT-POUND}{$00}{f1}o{$e6}tP{CTRL-P}{CBM-G}"I{stop}0
{CBM-@}rP{CTRL-F}{$68}{$68}{$68}{$68}{$68}{$60}{$70}{CTRL-Z}{$60}{SHIFT-POUND}{$80}{$70}{CTRL-U}{f1}q{SHIFT-POUND}{$00}Hp6{$e0}{$f9}{$f0}{CTRL-D}{$e0}{$f8}P{CTRL-F}p{stop}l{$ec}{CTRL-K}{$60}{CBM-@}{$70}{$e4}{f7}P{CTRL-D}p{$0a}{$70}{esc}p{$f3}{SHIFT-*}{CTRL-Z}{CTRL-P}{$ef}0{home}{CBM-G}{f2}I{CTRL-G}P{$e7}{CBM-G}{CBM-K}8{$e9} ){$70}E#{CBM-A}{CBM--}{$a0}{CTRL-P}{CBM-O}{$ea}{home}{brn}/{f1}r{$e0}{$fe}P{wht}{CTRL-X}{$65}o{f1}oF${SHIFT-*}{down}{$f0}7{CBM-+}{f5}{$e4}${$f0}1{CBM-+}${$e0}~P{wht}{f3}t{$e8}{f3}q {$6e}
{CBM-+}${$e0}{$fe}P{CTRL-L}{CBM-G}q{CTRL-P}{CTRL-Y}{CBM-G}oEp{blk}{CTRL-B}{f1}p{$e0}~P
{CBM-G}q{CTRL-P}{CTRL-B}{f1}{$62}{CBM-+}t{CTRL-P}{stop}{$e8}{f3}s{$e6}${CBM-G}${CBM-N}j{blk}{CTRL-O}{CTRL-X}{CBM-J}/{$75}eUf0{CTRL-B}{brn}f{SHIFT-POUND}{$00}{$f0}
8{CBM-J}e{$f5}/Uf{CTRL-P}{CTRL-B}{brn}f{SHIFT-POUND}{$00}{brn}e{$60}{CBM-+}1{$ec}{$fb}{home}P{CTRL-G}{SHIFT-POUND}{$00}{f1}%lx{home}{CBM-+}0P{swlc}{CBM-+}9{$ec}{$fb}{home}P{CTRL-G}{SHIFT-POUND}~{f1}%lx{home}{CBM-G}"I{ensh}0{$0a}{CBM-G}#E_P{CTRL-D}{SHIFT-POUND}{CTRL-A}{f1}@{CBM-G}@{CTRL-X}{$69}@{$65}f{$0a}{f1}%{CBM-G}sP{CTRL-D}{SHIFT-POUND}{CTRL-P}{f1}%{SHIFT-POUND} {CTRL-X}{$65}:{$65}@8{$e5}>{CBM-+}"{$fd}{$fb}{home}{$0a}{f1}&{SHIFT-POUND}({CTRL-X}{$65}:{$65}9{CBM-+}"{$7d}{$fb}{home}8{$e5}2{$e5}1{$e5}1{blk}{stop} {gry2}{home}{SHIFT-POUND}p{CTRL-X}{$65}88{$e5}<{$e5}0{blk}{CTRL-D}j {gry2}{home}{$ea}{SHIFT-POUND}{CTRL-P}{$65};8{$e5}? {gry2}{home}{CBM-G}{$62}{CTRL-P}{wht}{SHIFT-POUND}8 {CBM-@}{home}{CBM-G}p{$f0}{$0a}F%I{CTRL-G}0{CTRL-D}F%F%{CBM-G}"E^{$f0}{CTRL-F}E]P{rvon}{$f0}{CTRL-K}{CBM-G}#E\P{wht}{SHIFT-POUND}  {CBM-@}{home}{SHIFT-POUND}{CTRL-P} {CBM-@}{home}{SHIFT-POUND}{$00}{CTRL-X}{CBM-I}{CTRL-P}{CBM-H}{blk}0{stop}{$7d}{$fb}{home}J{CTRL-P}{$f6}{CBM-I}{CTRL-P}8{CBM-H}{CBM-K}0{stop}{$fd}{$fb}{home}J{CTRL-P}{$f6}I{$f5}0{$73}h{CBM-+}"{CBM-J}{blk}{CBM-I}{stop} {CBM-B}{CTRL-P}Pp{CBM-I}{dish} {CBM-B}{CTRL-P}Pi{CBM-I}{CTRL-K} {CBM-B}{CTRL-P}Pb{CBM-G}#{CBM-I}{CTRL-D} {CBM-B}{CTRL-P}P9{CBM-I}{CTRL-G} {CBM-B}{CTRL-P}P2{CBM-I}{CTRL-L} {CBM-B}{CTRL-P}P+{CBM-G}{$71}i{$77}{CBM-I}{wht} {CBM-B}{CTRL-P}P {CBM-I}{$0a} {CBM-B}{CTRL-P}P{CTRL-Y}{CBM-G}{$72}i{$77}{CBM-I}{CTRL-F} {CBM-B}{CTRL-P}P{swlc}{CBM-I}{ensh} {CBM-B}{CTRL-P}P{CTRL-G}{CBM-G}%8{$e9}{CTRL-F}{f1}%{$68}I{$00}0{rvon}{CBM-G}@{$f0}+{CBM-G}%I{$80}0%{SHIFT-POUND}{CTRL-X} {gry2}{home}lM{CTRL-P}{CBM-+}0P{CTRL-Y}I{$f6}0{CTRL-U}{SHIFT-POUND}{blk}{f1}%lx{home}{CBM-@}{$75}{f7}{CTRL-P}{CTRL-B}{$a0}{blu}JP{$f8}Y{$00}{stop}{$60}{CBM-+}"{$f0}{down}{CBM-J}{blk}){$70}P{CTRL-K}{CBM-G}#){$70}{$f0}{wht}{SHIFT-POUND}0 {gry2}{home}{CBM-G}{orng}04 {inst}
{CBM-G}{$70}h {CBM-R}{CTRL-G}{CBM-+}{orng}{CBM-J}{blk}h{CBM-G}{$82}{brn}{blk}{f4} F{CTRL-K}{CBM-+}{orng}{$68}{brn}{blk} {CBM-R}{CTRL-G}{$68}{f1}{$70} {$7a}
{CBM-G}g{CTRL-P}{CTRL-G}{CBM-G}%8{$e9}{$0a}{f1}%{SHIFT-POUND}p {CBM-@}{home}{CBM-G}:8{$e5}>I{CTRL-P}0{del}h{SHIFT-POUND}{CTRL-P} {gry2}{home}{$68}8{CBM-+}"{$fd}{$fb}{home}0{wht}{SHIFT-POUND}{CTRL-P} {gry2}{home}{CBM-G}#E{$72}P{wht}{SHIFT-POUND}8 {gry2}{home}{CBM-+}"{$e0}{ensh}{CTRL-P}{stop}lN{down}8{CBM-G}#{$f5}{blk}I P#{CBM-G}#{CTRL-X}{$69}{CTRL-A}{CBM-I}{dish}U{CBM-N}{$f0}{down}J{CTRL-P}{$f9}8{$e9}{CTRL-B}{CBM-I}{dish}U{CBM-N}{$f0}{wht}J{CTRL-P}{$f9}0{CTRL-G}{CBM-G}%8{$e9}{stop}{f1}%{CBM-+}"{CBM-J}{blk}I{home}{$f0}{CTRL-D}I{del}P{wht}{SHIFT-POUND}  {gry2}{home}{CBM-G}#I3{$f0};I4{$f0}7Ic{$f0}3Id{$f0}/{CBM-+}fP0){$70}I{$70}{$f0}{$0a}I{$60}{$f0}{red}Ip{$f0}{rght}P  {inst}
{CBM-G}" F{CTRL-K} {$7a}
{CBM-G}g{CTRL-P}{down}{CBM-G}%{CTRL-X}{$69}{CTRL-P}{f1}%{SHIFT-POUND}{CTRL-P} {gry2}{home}{SHIFT-POUND}{CTRL-U} {gry2}{home}{$ea}{CBM-G}#){CTRL-G}{f1}{$69}{CBM-I}{CTRL-G}{CBM-J}{lgrn}){CTRL-G}E{$69}{$f0}^J{CTRL-P}{$f5}{CBM-+}"{$f0}w{$e0}{wht}{CTRL-P}s{CBM-J}{blk}){CTRL-G}E{$69}{$f0},{CBM-I}{CTRL-G}{CBM-J}{CBM-N}){CTRL-G}E{$69}{$f0}"J{CTRL-P}{$f5}{CBM-+}"{$e0}{stop}0{CTRL-W}{CBM-G}{CBM-K}){CTRL-O}E{$69}P{CTRL-O}{CBM-G}{CBM-T}){CTRL-O}E{$69}P{CTRL-G}{CBM-G}%{CTRL-X}{$69}{$0a}{f1}%{SHIFT-POUND}{CTRL-P}{SHIFT-POUND}  {gry2}{home}{CBM-I}{CTRL-D}{CBM-J}{blk}){CTRL-G}E{$69}P{CTRL-F}{$e4}"{$f0}{CTRL-B}P{wht}J{CTRL-P}{$ef}0{wht}{SHIFT-POUND}{CTRL-P} {gry2}{home}{CBM-G}"{$f0}{down}I{wht}{CTRL-P}
{CBM-G}#){$60}I{$60}P{wht}{SHIFT-POUND}{CTRL-X} {gry2}{home}{CBM-G}"{$f0}
I{ensh}{CTRL-P}{ensh}{CBM-G}{CBM-K} {CBM-H}{home}{$0a} {CBM-@}{home}{CBM-G}"I{stop}{$f0}{CTRL-D}I{CTRL-D}P:{CBM-G}%I{$80}04I{$82}{CTRL-P}0{CBM-G}@P,{CBM-G}1I{wht}{CTRL-P}&{CBM-G}#I{CTRL-A}P{CTRL-B}{f1}{$6f}I{CTRL-B}P{CTRL-B}{f1}{$6e}I{CTRL-F}P{CTRL-B}{f1}{$6d}I{wht}P{CTRL-B}{f1}{$6c}I{CTRL-D}P{CTRL-B}{f1}{$6b}I{stop}P{CTRL-B}{f1}{$6a}{$ea}{CBM-+}"{$e0}{CTRL-B}P{del}{CBM-+}{$60}{$e0}{wht}{CTRL-P}{wht}{SHIFT-POUND}{CTRL-P} {CBM-@}{home}{$e0}{ensh}{CTRL-P}{wht}{SHIFT-POUND}{dish} {CBM-@}{home}{CBM-+}"{$e0}{CTRL-G}{$f0}{CTRL-D}{$e0}{dish}P{grn}{CBM-G}#){CTRL-O}I{$00}{$f0}{CTRL-D}I{CTRL-G}P{wht}{SHIFT-POUND}{CTRL-P} {CBM-@}{home}{CBM-J}{blk}){$70}I{$00}P{wht}{SHIFT-POUND}{dish} {gry2}{home}{CBM-+}"Ph {$e2}{home}h{CBM-G}#h{CBM-G}{blk}{f1}# {$e2}{home}{$68}{f1}#{$68}8{$e5}q{CBM-A}{CTRL-G}i~{$0a}{$0a} {gry2}{home}{CBM-I}{ensh}{SHIFT-POUND}{$00}{CTRL-X}{CBM-H}{CBM-K}0{stop}{$7d}{$fb}{home}JP{$f6}I{CTRL-P}{CTRL-P}{rvon}{SHIFT-POUND}d {CBM-H}{home}{f1}q{SHIFT-POUND} 8{$e5}q {gry2}{home}l6{home}{SHIFT-POUND}0 {CBM-@}{home}{CBM-G}0I{stop}{CBM-A}{red}{SHIFT-POUND}{$fd}{f1}l{SHIFT-POUND}{wht}{f1}${CBM-G}9h {$6e}
{$68}{f1}9{CBM-G}lI~P{wht}{SHIFT-POUND}{$f0}{f1}%{$ea}{CBM-I}{CTRL-D}{f3}${CBM-G}%E'{blk}'P{dish}{CBM-G}&E({blk}{blu}{$f0}{rght}{CBM-G}%{f1}'{CBM-G}&{f1}({CBM-G}"{f1}){CBM-G}#{f1}*{CBM-G}9{f1}{$79}{CBM-G}'I~P{stop}l{red}{$0a}{SHIFT-POUND}{$00}{f1}{$62}{f1}r{f1}p{f1}f{SHIFT-POUND}{wht}{f1}s{$60}{CTRL-X}{$65}&{f1}&{CBM-G}%{$69}{$00}{f1}%{$60}8{f1}{$69}{CBM-G}&{$e5}{$69}{f1}&{CBM-G}%{$e9}{$00}{f1}%{$60}hjjjj{f1}{$69}{CBM-G}#jjjj8{$e5}{$69}{CBM-A}{CTRL-D}i~{$69}{CTRL-A}{f1}{$69}{$68}){CTRL-G}{f1}{$68}{CBM-G}#){CTRL-G}8{$e5}{$68}{CBM-A}{CTRL-D}i~{$69}{CTRL-A}{CTRL-X}{$65}{$69}{$60}{SHIFT-POUND}{$00}{f1}q{CBM-I}{dish}{CBM-J}{lgrn}0{dish} {CBM-H}{home}{CTRL-X}{$65}q{f1}qJP{$f1}{CBM-G}q{$60}{$00}{home}{rvon}{rvon}{$0a}{$0a}{CTRL-F}{CTRL-F}{wht}{wht}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{$f0}~{CTRL-A}{CTRL-P}{down}{CTRL-O}{$ef}{$f1}{CBM-*}{$e1}{$ee}{$f2}{rvon}{swlc}{blu}!{stop}L{CTRL-D}{$00}{CTRL-G}{CTRL-B}{wht}{CTRL-A}{CTRL-F}{CTRL-P}{CTRL-W}{down}{CTRL-V}{rvon}{CTRL-U}{del}{home}{$73}L{$74}{$70}{$77}{$72}{$75}{$71}{$76}{$60}{$67}{$61}{$66}{$62}{$65}{$64}{$63}{$00}{$00}{$00}{$00}{$00}{$00}~~{$00}{$00}{$00}{$00}{dish}{dish}{dish}{dish}~{$fd}{$fc}{$fb}{$fb}{$fb}{$fb}{$fb}uuuuuuu{$00}{$a0}{$00}{SHIFT-POUND}:{sret}{CTRL-Y}{$83}{CBM-G}{$83}jjjj{lgrn}{CTRL-Z}{$83}H{CBM-G}{$83}){CTRL-O}{ensh}0{lgrn}{CTRL-Z}{$83}H{SHIFT-POUND}-{lgrn}{CTRL-Z}{$83}H{CBM-G}{$84}jjjj{lgrn}{CTRL-Z}{$83}H{CBM-G}{$84}){CTRL-O}{ensh}0{lgrn}{CTRL-Z}{$83}H{$60}{f4}h{gry2}h {$e4}~I{$00}{$f0}{$f9}{f1}{$69}{$68}{CBM-POUND}{$68}{CBM-N}{CBM-G}{$69}{$60}{SHIFT-POUND}{CTRL-A}{CTRL-X}{$65}0{f1}0{blk}{CTRL-B}{$e6}1{$60}{CBM-I}{$00}{SHIFT--}{$e2}{del}{$f0}{stop}{$e8}P{$f8}{$e8}{CBM-X}{$e2}{del}{f1}0{$e8}{CBM-X}{$e2}{del}{f1}1{$e8}{$a0}{$00}{CBM-X}{$e2}{del}{$f0}{CTRL-F}{up}0{$e8}HP{$f5}{$60}{f2}{CTRL-A}{orng}{$82}{CTRL-A}{f2}{$82}{orng}{CTRL-A}h{$80}{$65}*
{ensh}{stop}{rvon}{CTRL-O}*{$00}#{$70}{$80}{$65}*{stop}{dish}{wht}{home}{home}*{$00}"{$ea}{$80}{ensh}{down}= {$00}{$71} {$80}{$65}*******{$00}{$72}{gry2}{$80}{$65}*******{$00}{$73}9{orng}{$a0}{$83}{f8}{$8f}{$83}{f6}{$a0}{$00}{$74}{$61}{orng}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$00}{$75}{f2}{orng}{$a0}{gry1}{f7}{f2}{inst}{f1}{$a0}{$00}{$76}Y{orng}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$00}{$77}{CTRL-A}{$82}{$a0}{$82}{f8}{orng}{$83}{f6}{$a0}{$00}{$78}q{$82}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$00}{$79}{CTRL-Y}{$83}:      {$00}{$7f}b{$83}{stop}{dish}{wht}{stop}{CTRL-K}{$00}_{CTRL-Z}{$83}{CTRL-A}{CTRL-B}{CTRL-O}{rvon}{del}?{$00}^b{$83}       {$00}\{rvof}{$83}
{CTRL-A}{del}{wht}{$00}[{CTRL-Z}{$83}{CTRL-Y}{CTRL-O}{CTRL-U}{$00}]b{$83}{CTRL-W}{ensh}{swlc}{$00}zb{$83}{home}{del}{CTRL-A}{CTRL-L}{wht}{$00}{$7a}5{$80}
{ensh}{stop}{rvon}{CTRL-O}{stop}{dish}{wht}{home}{home} 2.0{$00}{$7b}{CBM-C}{orng}({stop}) {stop}{CTRL-O}{CTRL-P}{CTRL-Y}{rvon}{ensh}{CTRL-G}{dish}{del} 1978{$00}{$7c}{rvon}{$82}
{ensh}{stop}{rvon}{CTRL-O}-{CTRL-W}{CTRL-A}{rvon}{wht} {CTRL-L}{del}{CTRL-D}{$00}{$7d}{$68}{$82}{CTRL-B}{CTRL-Y} {CTRL-P}{wht}{del}{wht}{rvon} {$0a}{wht}{swlc}{swlc}{ensh}{swlc}{CTRL-G}{home}{$00}{SHIFT-POUND}{$00}{f1}2 {lblu}{CTRL-V}{$e6}2{CBM-G}2){dish}{$f0}{$f5}{CBM-G}2{CTRL-X}{$69}{dish}{f1}2{CTRL-P}{$ec}{SHIFT-POUND} {f1}0{SHIFT-POUND}{$80}{f1}1{CBM-I}{CTRL-X}{SHIFT-POUND}{$65}{$a0}{$00}{up}0{SHIFT-POUND}( {CBM-Q}{del}JP{$f2}{SHIFT-POUND}{SHIFT-*}{f1}0{CBM-I} {SHIFT-POUND}{$63}{up}0 {SHIFT-POUND}{del}JP{$f6}{SHIFT-POUND}{CTRL-A} {CBM-J}{del}{SHIFT-POUND}" {CBM-J}{del}{SHIFT-POUND}# {CBM-J}{del}{SHIFT-POUND}{$71} {CBM-J}{del}{SHIFT-POUND}{$72} {CBM-J}{del}{SHIFT-POUND}{$73} {CBM-J}{del}{SHIFT-POUND}{$74} {CBM-J}{del}{SHIFT-POUND}{$75} {CBM-J}{del}{SHIFT-POUND}{$76} {CBM-J}{del}{SHIFT-POUND}{$77} {CBM-J}{del}{SHIFT-POUND}{$78} {CBM-J}{del}{SHIFT-POUND}:{sret}{CBM-H}{orng}{sret},{$82}{CBM-+}{$60}{$f8}{SHIFT-POUND}{lgrn}{CTRL-X}{$69}{CTRL-A}J{CTRL-P}{$fa}Xh){CTRL-O}{ensh}{CBM-A}{sret}{CBM-G}{$82}{$68}jjjj{ensh}{CBM-A}{$ea}{sret}{CBM-@}{$82}{SHIFT-POUND}{$a0}{sret}{CBM-T}{$82}{sret}{CBM-+}{$82}{$60} d{CTRL-W}{CBM-I}!{CBM-G}2U{blk}{$f0}0J{CTRL-P}{$f9} D{CTRL-V}{SHIFT-POUND} {CBM-I}{stop}{CBM-A}{CTRL-B}{SHIFT-POUND}{$66}{$a0}{stop}{up}0{f7}{CTRL-P}{$fb}h{SHIFT-POUND}( {CBM-Q}{del}{$68}JP{$ef}{CBM-G}2){CTRL-O}{f1}{$69}{CBM-G}2jjjj{CTRL-X}{$65}{$69}j{$60}{f3}3{SHIFT-POUND}{$00}{f1}{$68}{$e0}{down}0{ensh}{f4}8{$e9}{down}{CBM-N}{SHIFT-POUND}{$80}{f1}{$68}{f4}){blu}{CBM-N}{CBM-G}v{$f0}{CTRL-F}{SHIFT-POUND}{$80}e{$68}{f1}{$68} D{CTRL-V}{SHIFT-POUND} {CBM-A}{CTRL-B}{SHIFT-POUND}{$66}{f1}4{CBM-X}{CTRL-O}{CTRL-W}{CBM-N} {$6f}{CTRL-W} {$6f}{CTRL-W} {$6f}{CTRL-W}{$60}{$00}{CTRL-F}{CTRL-F}{CTRL-L}{CTRL-L}{rvon}{rvon}{CTRL-X}{CTRL-X}{grn}{grn}{grn}{grn}{grn}{grn}{grn}{grn}{gry1}{gry1}{$f4}{$ea}{$f9}{$f9}qq_{$69}{$f9}{$f9}{$fc}{$fe}{$f5}{$f6}{$f9}{$f9}{$e9}{CBM-*}_{$69}{$f9}{$f9}{$e9}{CBM-*}{$a0}{$78}{$78}   {$e9}{CBM-*}{$f9}{$f9}{CBM-G}2jjjj{CBM-N}{SHIFT-POUND}{$80}{f1}1{SHIFT-POUND}{$00}{f1}0J0{dish}{SHIFT-POUND}{$78} {CBM-Q}{del}ls{CTRL-W}{CBM-G}2){CTRL-G}{CBM-N}J0{dish}{SHIFT-POUND}{CTRL-D} {CBM-Q}{del}l{$63}{CTRL-W}{$60}{$a0}{$00}{CBM-G}4{up}0{CBM-X} {CTRL-W}He{$68}{up}0{$e8}{CBM-X} {CTRL-W}{$e8}He{$68}{up}0{CBM-G}4H{up}0{SHIFT-POUND}(l{CBM-Q}{del}{CBM-+}"{CBM-J}{blk}{f1}2 {CBM-K}{CTRL-W} {inst}
{CBM-G}#{f1}2{SHIFT-POUND}{stop}{f1}5 d{CTRL-W}{$a0}p{CBM-E}0{$a0}{CTRL-A}{up}0H{up}0{$a0}){up}0H{up}0{$a0}q{up}0H{up}0{SHIFT-POUND}{$60}{sret}{wht}{CTRL-B}{CBM-Z}{wht}{CTRL-B}{CTRL-P}{$fb}F5P{CTRL-A}{$60} {lblu}{CTRL-V}{SHIFT-POUND}{$60}{sret}{wht}{CTRL-B}{CBM-Z}{wht}{CTRL-B}{CTRL-P}{$fb}l{CBM-G}{CTRL-W}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$${home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-F}%{CTRL-F}%{CTRL-B}f{wht}a{stop}{CTRL-A}{CTRL-D}{CTRL-F}{del}${home}#{wht}aar{CTRL-V}%{stop}{del}{del}4{home}3{CTRL-U}53b{CTRL-A}"{CTRL-F}%{home}#{del}${CTRL-B}5{rvon}2{stop}{CTRL-A}{CTRL-P} {CTRL-D}{home}{CTRL-A}"{CTRL-F}%2c{rvon}2{home}3{home}#{CTRL-F}%{CTRL-A}"{rvon}2{CTRL-V}&{del}${wht}{CTRL-V}{CTRL-A}"{CTRL-B}f{CTRL-B}{home}{stop}{CTRL-A}{wht}#{del}${stop}{rvon}{home}3{del}4{CTRL-B}5{CTRL-F}%{del}44c{CTRL-A}"%d{CTRL-D}4d%{wht}a{wht}{del}{CTRL-F}%{rvon}"{stop}{wht}{home}3{home}3{del}4{del}44c{CTRL-D}4{CTRL-A}"4#{CTRL-F}%{CTRL-F}%{wht}a{wht}{del}{CTRL-D}{CTRL-F}{stop}{wht}{wht}{CTRL-D}{CTRL-B}5{home}#{home}3{del}4{del}44c{CTRL-U}%cr{CTRL-B}5r{$61}{wht}{CTRL-V}{CTRL-F}%{CTRL-F}%{CTRL-A}"{CTRL-A}"{wht}a{CTRL-D}{CTRL-U}{home}#{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}5{wht}2{CTRL-U}%{CTRL-F}%{del}44c%42a{CTRL-F}%%d{stop}{CTRL-A}dr{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}f{CTRL-F}%{stop}{CTRL-A}%d{del}4{wht}{del}{CTRL-D}{home}d#fu{down}"4c#{down}{home}3{del}4{CTRL-A}"{CTRL-F}%"c{home}#c"%d{del}4#3{CTRL-B}${wht}#{stop}{CTRL-A}{CTRL-D}{CTRL-F}{CTRL-U}5{rvon}"{del}4{CTRL-F}%{CTRL-U}5{del}${down}!{home}3{CTRL-B}{down}3b{CTRL-D}7{CTRL-A}{home}75{CTRL-P} {CTRL-A}"{down}15u{$00}{CTRL-P}{home}3{CTRL-F}%3c%3{del}4{home}#{CTRL-U}53!{rvon}2#42c{CTRL-A}"{wht}#{CTRL-B}5{CTRL-F}%{del}${del}4{CTRL-U}5{CTRL-U}5{del}${CTRL-A}"{CTRL-F}%{down}!{wht}{del}{CTRL-B}{down}{CTRL-D}{CTRL-F}{stop}{CTRL-A}{home}3{CTRL-F}%{rvon}"{wht}2{stop}{CTRL-D}{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}5{CTRL-F}%{del}44c{stop}{CTRL-A}%d{CTRL-B}{stop}{home}35d{stop}3{CTRL-F}%30{del}4{CTRL-F}%{CTRL-U}5{del}${CTRL-F}%{wht}a{CTRL-D}{CTRL-U}{CTRL-A}"{CTRL-A}"{home}#{wht}{del}$4{CTRL-W}'ar{del}%{stop}{del}{home}3{CTRL-A}"{del}4{home}33d{stop}3{CTRL-A}"{del}4{CTRL-F}%{wht}a{wht}#{CTRL-B}f{CTRL-B}{home}{CTRL-D}{CTRL-B}{stop}{CTRL-A}30{del}4{home}3{CTRL-U}5{del}${CTRL-F}%{CTRL-F}%{wht}a{CTRL-A}{home}{CTRL-A}"{wht}a5d$3{home}#{rvon}2{CTRL-B}${stop}0{del}4{home}3{CTRL-U}5{rvon}"{CTRL-A}"{CTRL-F}%{CTRL-F}%3b{CTRL-W}7{CTRL-B}5"c{CTRL-A}{home}c5{stop}{rvon}{down}!{del}4{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}f{home}#{del}4{CTRL-B}{home}{CTRL-F}%{CTRL-F}%{stop}{CTRL-A}{wht}{del}{CTRL-B}{stop}4c"4{CTRL-D}{CTRL-F}{del}4{home}3{CTRL-U}5{del}${CTRL-F}%{rvon}25d$3{CTRL-A}"{CTRL-A}"{down}!{CTRL-F}%{CTRL-B}{down}2c"4{wht}2{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}f{CTRL-P} fu{home}"{del}44c{CTRL-D}4{stop}c"4{CTRL-B}{home}{CTRL-F}%{CTRL-D}{CTRL-B}{del}4{rvon}24d{home}#{CTRL-U}5{CTRL-V}&{CTRL-F}%{wht}{CTRL-V}{home}3{CTRL-F}%{CTRL-B}{home}{del}${wht}a{CTRL-D}{CTRL-F}{CTRL-A}"$3{home}3{del}4{CTRL-A}"{CTRL-A}"{del}44c"4{CTRL-F}%{CTRL-F}%{wht}a4u{down}"{CTRL-B}${home}33d"3{del}4{CTRL-F}%{CTRL-U}5{CTRL-V}&{CTRL-F}%{wht}{CTRL-V}{home}3{home}#{rvon}"{del}44d{CTRL-D}{CTRL-F}{wht}a{CTRL-W}'a#%7{home}3{rvon}"{del}4{home}3{CTRL-F}%3d%3{CTRL-B}53!5&{CTRL-P}0{CTRL-W}'{CTRL-A}"{CTRL-A}{home}{CTRL-B}$&s{del}4{CTRL-F}%{CTRL-U}5{del}${CTRL-A}"{down}!{down}!{CTRL-B}{down}{CTRL-B}{down}{wht}{del}{stop}{CTRL-A}{CTRL-D}{CTRL-F}{CTRL-F}%%d{CTRL-D}{CTRL-U}dr{CTRL-U}5{CTRL-F}%{CTRL-F}%{del}${home}3{rvon}2{CTRL-A}"{CTRL-A}"{del}42c"4{wht}a4u{home}"{CTRL-D}{$74}{CTRL-D}{stop}{CTRL-A}"{CTRL-F}%{CTRL-U}5{rvon}2{del}42c"4{del}${CTRL-F}%{wht}a{wht}{del}{CTRL-D}{CTRL-F}{home}#{CTRL-A}"{CTRL-B}{home}{home}3{home}3{del}${del}4{home}3{CTRL-F}%{CTRL-F}%{wht}a{wht}{del}3c%{home}a{$63}{stop}{del}{CTRL-D}{del}{CTRL-D}{CTRL-F}{rvon}2{rvon}2{home}3{rvon}2{CTRL-A}"{CTRL-A}"{del}42c"4{CTRL-F}%{CTRL-F}%{home}#{CTRL-B}{home}{CTRL-V}&{wht}#{wht}{CTRL-V}{stop}{CTRL-A}{CTRL-D}{CTRL-F}{home}3{rvon}2{CTRL-F}%{CTRL-A}"{down}!{CTRL-V}&{CTRL-B}{down}{wht}{CTRL-V}{del}${del}${wht}#{home}#{CTRL-A}{home}"c{stop}{CTRL-A}{CTRL-F}{del}{CTRL-U}5{del}4{CTRL-F}%{CTRL-F}%{CTRL-A}"{CTRL-A}"{home}#{home}35d%3{CTRL-B}f3r{CTRL-V}%{wht}#{del}4{CTRL-B}{home}{home}3{del}4{CTRL-A}"{CTRL-A}"{CTRL-B}f{CTRL-P} f7{down}17&"0&{$62}{CTRL-D}{CTRL-U}"c{CTRL-U}{del}{del}4{CTRL-F}%   10 rem ***** chess screen *****
   20 bt$=" {rvon}  {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F}{rvof}"
   22 wm$="{rvon}  {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K}{rvof}"
   24 wb$=" {rvon}{CBM-D}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-V}{rvof}"
   26 bm$="{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K}  {rvof}"
   28 bb$=" {rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{CBM-F}{rvof}"
   30 be$=" {rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V}  {rvof}"
   31 dim l(8,8),p%(12),p$(5),cm(2,1),ti$(5)
   32 ti$(4)="0:00:00":ti$(5)=ti$(4)
   33 p$(0)="whites ":p$(1)="blacks "
   34 p$(2)="move":p$(3)="promotion "
   35 mb$="bad move"
   36 sm=32867:cm=sm
   37 xm=48
   38 mn=0
   40 def fna(x)=(asc(mid$(mv$,x,1))-64)
   42 def fnb(x)=val(mid$(mv$,x,1))
   44 def fnc(x)=abs(ff-tf)
   46 def fnd(x)=abs(fr-tr)
   48 def fne(x)=val(mid$(ti$(0),x,2))+val(mid$(ti$(5-p),y,2))
  100 print "{clr}";
  110 print bt$;
  114 print " **** chess  game ****";
  115 for i=8 to 2 step-2
  116 if i=8 then print "{left}";i;"{left}";wm$;" white   move black":goto 130
  120 print "{left}";i;"{left}";wm$
  130 print wb$
  140 print "{left}";i-1;"{left}";bm$
  142 if i=2 goto 146
  144 print bb$
  146 next i
  148 print be$:print " ";
  150 for i=1 to 8
  160 print " ";chr$(64+i);
  170 next i:print
  181 p=32810
  182 for i=8 to 1 step-1
  183 for j=1 to 8
  184 l(j,i)=p:p=p+2
  185 next j
  186 p=p+64:next i
  202 print "white        black"
  204 print "  0   checks   0  "
  206 print " 39   points  39  "
  208 print ti$(5);"    ";ti$(4)
  209 print "{down}";p$(0);p$(2);"{up}"
  210 p=33370
  220 poke p,94:p=p+2
  230 poke p,63:p=p+2
  240 poke p,65:p=p+2
  250 poke p,42:p=p+2
  260 poke p,43:p=p+2
  270 poke p,65:p=p+2
  280 poke p,63:p=p+2
  290 poke p,94:p=33290
  300 for i=1 to 8
  310 poke p,81:p=p+2
  320 next i
  330 p=32890
  340 for i=1 to 8
  350 poke p,209:p=p+2
  360 next i
  370 p=32810
  380 poke p,222:p=p+2
  390 poke p,191:p=p+2
  400 poke p,193:p=p+2
  410 poke p,170:p=p+2
  420 poke p,171:p=p+2
  430 poke p,193:p=p+2
  440 poke p,191:p=p+2
  450 poke p,222
  452 dim sc%(1):sc%(0)=39:sc%(1)=39
  465 goto 1000
  470 print "                        {up}"
  480 print p$(p);p$(2);
  490 input mv$:print "{up}{up}"
  500 return
  510 if ((ff+fr)/(int((ff+fr)/2)))>2 then poke l(ff,fr),160:goto 530
  520 poke l(ff,fr),32
  530 poke l(tf,tr),fp
  540 if tp=32 or tp=160 goto 700
  550 if tp=81 or tp=209 then ms=1:goto 555
  551 if tp=94 or tp=222 then ms=5:goto 555
  552 if tp=63 or tp=191 then ms=3:goto 555
  553 if tp=65 or tp=193 then ms=3:goto 555
  554 if tp=42 or tp=170 then ms=9
  555 sc%(p)=sc%(p)-ms
  560 if p=1 then print "{up}{up}{up}";sc%(1);"{left} {down}{down}"
  570 if p=0 then print "{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";sc%(0);"{left} {down}{down}"
  700 return
 1000 mn=mn+1:rem increase move num.
 1005 p=0:ti$="000000"
 1010 gosub 470:rem get whites move
 1020 gosub 2000:rem check for valid move
 1030 gosub 510:rem move piece
 1040 gosub 1500 :rem record move
 1044 gosub 3400:rem adjust time
 1050 p=1:ti$="000000"
 1060 p=1:gosub 470:rem get blacks move
 1070 gosub 2000:rem check for valid move
 1080 gosub 510:rem move piece
 1090 gosub 1500 :rem record move
 1100 gosub 3400:rem adjust time
 1110 goto 1000
 1500 rem ** record move **
 1501 if p=0 and cm>33648 then cm=sm
 1503 for i=1 to 5
 1505 pm=peek(33700+i)
 1506 if i=3 and (tp<>32 and tp<>160) then pm=24
 1510 poke cm,pm
 1520 cm=cm+1:next i
 1522 cm=cm+1
 1523 if am<>1 goto 1540
 1528 if tf=3 then poke cm,fp:cm=cm+1
 1530 poke cm,(94+(128*p)):cm=cm+1
 1534 if tf=7 then poke cm,fp:cm=cm+1
 1536 cm=cm+1:goto 1549
 1540 if tp=32 or tp=160 goto 1543
 1542 poke cm,tp
 1543 cm=cm+1
 1544 if (fp=81andtr=8) or (fp=209andtr=1)then gosub 3300:goto 1549
 1546 cm=cm+2
 1549 if p then goto 1580
 1550 if mn>9 then mn=0:xm=xm+1
 1552 poke cm,xm:cm=cm+1
 1558 poke cm,mn+48:poke cm+1,46
 1560 cm=cm+3
 1570 goto 1600
 1580 cm=cm+18
 1600 for i=0 to 7
 1610 poke cm+i,32
 1620 next i
 1630 am=0
 1700 return
 2000 if len(mv$)<>5 goto 2970
 2010 x=1:ff=fna(x)
 2020 x=2:fr=fnb(x)
 2030 x=4:tf=fna(x)
 2040 x=5:tr=fnb(x)
 2050 if ff<1 or fr<1 or tf<1 or tr<1 goto 2970
 2060 if ff>8 or fr>8 or tf>8 or tr>8 goto 2970
 2070 if mid$(mv$,3,1)<>"-" and mid$(mv$,3,1)<>"x" goto 2970
 2110 if l(ff,fr)=l(tf,tr) goto 2970
 2120 fp=peek(l(ff,fr))
 2130 tp=peek(l(tf,tr))
 2170 if fp=32 or fp=160 goto 2970
 2180 if p=0 and fp>127 goto 2970
 2190 if p=1 and fp<128 goto 2970
 2200 if p=0 and (tp<128 and tp>32) goto 2970
 2210 if p=1 and tp>160 goto 2970
 2300 if fp=81 or fp=209 goto 2400
 2310 if fp=94 or fp=222 goto 2500
 2320 if fp=63 or fp=191 goto 2600
 2330 if fp=65 or fp=193 goto 2700
 2340 if fp=42 or fp=170 goto 2800
 2350 if fp=43 or fp=171 goto 2900
 2399 goto 2980
 2400 rem ** pawn **
 2410 if fnc(x)>1 or fnd(x)>2 goto 2970
 2412 if ff=tf and (tp<>32 and tp<>160) goto 2970
 2414 if ff<>tf and fnd(x)<>1 goto 2970
 2420 if p=1 goto 2450
 2430 if fr=>tr goto 2970
 2440 if tr-fr>1 and fr<>2 goto 2970
 2444 if d=tf and tr=6 goto 2490
 2449 goto 2470
 2450 if fr=<tr goto 2970
 2460 if fr-tr>1 and fr<>7 goto 2970
 2464 if d=tf and tr=3 goto 2490
 2470 if fnd(x)=2 then gosub 3200:if rs=1 goto 2970
 2472 if fnd(x)=2 then d=tf:goto 2499
 2475 if fnc(x)=0 and fnd(x)=1 goto 2494
 2478 if ff<>tf and (tp<>32 and tp<>160) and fnd(x)=1 goto 2494
 2480 goto 2970
 2490 gosub 3100
 2494 d=0
 2496 d=0
 2499 goto 2980
 2500 rem ** rook **
 2510 if fr<>tr and ff<>tf goto 2970
 2520 if ff=1 then cm(1,p)=1
 2530 if ff=8 then cm(2,p)=1
 2540 gosub 3200
 2550 if rs=1 goto 2970
 2599 goto 2980
 2600 rem ** knight **
 2610 if fr=tr or ff=tf goto 2970
 2620 if fnc(x)+fnd(x)<>3 goto 2970
 2699 goto 2980
 2700 rem ** bishop **
 2710 if fr=tr or ff=tf goto 2970
 2720 if fnc(x)<>fnd(x) goto 2970
 2730 gosub 3200
 2740 if rs=1 goto 2970
 2799 goto 2980
 2800 rem ** queen **
 2810 if fr=tr or ff=tf goto 2840
 2812 rem compare to tutor ^^^^^^
 2830 if fnc(x)<>fnd(x) goto 2970
 2840 gosub 3200
 2850 if rs=1 goto 2970
 2899 goto 2980
 2900 rem ** king **
 2910 if fnc(x)<2 and fnd(x)<2 goto 2980
 2920 if fnc(x)>2 or fnd(x)>1 goto 2970
 2930 if fr-tr<>0 or cm(0,p)>0 goto 2970
 2940 if tf=3 and cm(1,p)>0 goto 2970
 2950 if tf=7 and cm(2,p)>0 goto 2970
 2952 gosub 3200
 2954 if rs=1 goto 2970
 2960 gosub 3000
 2966 cm(0,p)=1
 2969 goto 2980
 2970 print "{down}";mb$;"{up}{up}":gosub 470:goto 2000
 2980 print "{down}        {up}{up}"
 2999 return
 3000 rem ** castle **
 3010 if tf=3 and p=0 then poke l(tf-2,tr),32:poke l(tf+1,tr),94:goto 3050
 3020 if tf=3 and p=1 then poke l(tf-2,tr),160:poke l(tf+1,tr),222:goto 3050
 3030 if tf=7 and p=1 then poke l(tf+1,tr),32:poke l(tf-1,tr),222:goto 3050
 3040 if tf=7 and p=0 then poke l(tf+1,tr),160:poke l(tf-1,tr),94
 3050 am=1
 3099 return
 3100 rem ** en passant **
 3110 if p=1 goto 3150
 3120 if tp=32 then poke l(tf,tr-1),160:tp=209
 3130 if tp=160 then poke l(tf,tr-1),32:tp=209
 3140 goto 3199
 3150 if tp=160 then poke l(tf,tr+1),32:tp=81
 3160 if tp=32 then poke l(tf,tr+1),160:tp=81
 3180 ti$(5-p)=str$(s)
 3199 return
 3200 rem ** check for empty squares **
 3210 cf=1:cr=1:rs=0
 3214 if fnc(x)<2 and fnd(x)<2 goto 3299
 3220 if ff=tf then cf=0
 3230 if ff>tf then cf=-1
 3240 if fr=tr then cr=0
 3250 if fr>tr then cr=-1
 3260 af=cf:ar=cr
 3270 for i=1 to ((fnc(x) or fnd(x))-1)
 3280 cp=peek(l(ff+af,fr+ar)):af=af+cf:ar=ar+cr
 3282 if cp<>32 and cp<>160 then rs=1
 3290 next i
 3299 return
 3300 rem ** promotion **
 3310 print p$(p);p$(3);
 3320 input mv$
 3330 tp=peek(33707)
 3340 print "{up}{up}":if len(mv$)>1 goto 3310
 3350 if p=0 and (tp<42 or tp>94) goto 3310
 3360 if p=1 and (tp<170 or tp>222) goto 3310
 3370 poke l(tf,tr),tp
 3380 poke cm,tp:cm=cm+2
 3399 return
 3400 rem ** adjust time **
 3410 ti$(0)=ti$
 3420 x=1:y=1:h=fne(x):if h>9 then h=h-9
 3421 x=3:y=3:m=fne(x):if m>59 then h=h+1:m=m-60
 3422 x=5:y=6:s=fne(x):if s>59 then m=m+1:s=s-60
 3430 if h=0 then ti$(5-p)="0:":goto 3432
 3431 ti$(5-p)=mid$(str$(h),2,1)+":"
 3432 if m<10 then ti$(5-p)=ti$(5-p)+"0"+mid$(str$(m),2,1)+":":goto 3434
 3433 ti$(5-p)=ti$(5-p)+mid$(str$(m),2,2)+":"
 3434 if s<10 then ti$(5-p)=ti$(5-p)+"0"+mid$(str$(s),2,1):goto 3490
 3435 ti$(5-p)=ti$(5-p)+mid$(str$(s),2,2)
 3490 print "{up}{up}";ti$(5);"    ";ti$(4);"{down}"
 3499 return
 4999 stop
    0 clr:poke59468,12
    1 rem circle copyright (c) 1979 glen fisher
    2 rem cursor #9, april, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
    5 rem based on a program by martin mabee
   10 rem as of dec 22 79
   90 goto62000
  100 dr=~/180:d$="{left}{CBM-V}":m$="{left}'":s$="{left}'' ":cr$=chr$(13)
  110 deffnr(x)=int(x*10+.5)/10
 1000 print"{down}where from?":gosub7000
 1005 ifn$=""then1000
 1010 a0=da:a1=ma:a2=sa:a0$=da$:ba=la
 1020 o0=do:o1=mo:o2=so:o0$=do$:bo=lo
 1025 c0$=c$:n0$=n$
 1030 print"{down}where to?":gosub7000
 1035 ifn$=""then1030
 1040 a5=da:a6=ma:a7=sa:a5$=da$:ea=la
 1050 o5=do:o6=mo:o7=so:o5$=do$:eo=lo
 1055 c5$=c$:n5$=n$
 1060 gosub9100
 2000 print"{clr}{down}{down}from ";n0$;:ifc0$<>""thenprint",";c0$;
 2010 print:printa0;d$;a1;m$;a2;s$;a0$,o0;d$;o1;m$;o2;s$;o0$
 2020 print"{down}to ";n5$;:ifc5$<>""thenprint",";c5$;
 2030 print:printa5;d$;a6;m$;a7;s$;a5$,o5;d$;o6;m$;o7;s$;o5$
 2040 x=an:gosub9300:print"{down}distance: ";
 2050 printd;d$;m;m$;s;s$;"  ="
 2060 printfnr(nm);tab(10);"nautical miles"
 2070 printfnr(sm);tab(10);"statute miles"
 2080 printfnr(km);tab(10);"kilometers"
 2090 print"{down}heading: ";:x=hd:gosub9300
 2100 printd;d$;m;m$;s;s$
 2200 print"{down}{down}{down}another? ";:gosub60000
 2210 ifleft$(in$,1)<>"n"then1000
 6999 end
 7000 print"{down}what letter does the state or country
 7010 print"  start with? ";:gosub60000:ifin$=""thengosub7400:goto7200
 7015 iflen(in$)>1orin$<"a"orin$>"z"thenprint"i said {rvon}letter{rvof}!":goto7000
 7020 restore:mr$="":l$=in$
 7030 readn$,la$,lo$
 7040 ifn$=""then7900
 7050 ifla$<>""then7030
 7060 ifleft$(n$,1)<l$then7030
 7070 ifleft$(n$,1)>l$then7900
 7080 mr$="more ":printn$;"? ";:gosub60000
 7090 ifin$<>"y"then7030
 7095 c$=n$:print"{down}is the city..."
 7100 readn$,la$,lo$
 7110 ifla$=""then7950
 7120 printn$;"? ";:gosub60000
 7130 ifin$<>"y"then7100
 7140 da$=right$(la$,1):do$=right$(lo$,1)
 7150 sa=0:so=0
 7160 ma=val(right$(la$,3)):mo=val(right$(lo$,3))
 7170 da=val(la$):do=val(lo$)
 7200 la=da+ma/60+sa/3600:lo=do+mo/60+so/3600
 7210 ifda$="s"orda$="e"thenla=-la
 7220 ifdo$="s"ordo$="e"thenlo=-lo
 7230 return
 7400 print:print"what's its name? ";:gosub60000:n$=in$:c$=""
 7410 ifin$=""thenreturn
 7420 pr$="latitude":nw$="n":se$="s":md=89:gosub7500
 7430 da=d:ma=m:sa=s:da$=a$
 7440 pr$="longitude":nw$="w":se$="e":md=179:gosub7500
 7450 do=d:mo=m:so=s:do$=a$
 7460 return
 7500 t(0)=0:t(1)=0:t(2)=0
 7510 print: print"what is its ";pr$;"? ";:gosub60000:ifin$=""then7510
 7520 forn=0to2:ifin$=""then7600
 7530 fort=1tolen(in$):t$=mid$(in$,t,1)
 7540 ift$<"0"ort$>"9"then7560
 7550 nextt:t=len(in$)+1
 7560 t(n)=val(left$(in$,t-1)):in$=mid$(in$,t)
 7570 ifleft$(in$,1)<>","then7600
 7580 in$=mid$(in$,2)
 7590 nextn
 7600 ift<2thenprint"that's not an angle.":goto7510
 7610 a=0:d=t(0):m=t(1):s=t(2)
 7615 ifd=0andm=0ands=0thena$=nw$:goto7650
 7620 ifin$=nw$orin$=se$thena$=in$:goto7650
 7630 ifin$<>""thenprint"i don't know what '";in$;"' means.":goto7500
 7640 print"you didn't say '";nw$;"' or '";se$;"'.":goto7510
 7650 ifd<=mdthen7670
 7660 print"no angles bigger than":printmd;d$;59;m$;59;s$:goto7500
 7670 ifm>59ors>59thenprint"bad angle.":goto7500
 7680 printpr$;" is ";d;d$;m;m$;s;s$;a$
 7690 return
 7900 print"i don't know any ";mr$;"countries or"
 7910 print"states starting with ";l$;"."
 7920 n$="":return
 7950 print"i don't know any more cities in ";:ifpos(0)+len(c$)+1>39thenprint
 7960 printc$;"."
 7970 n$="":return
 8100 rem
 8110 ifabs(v)>=1thenv=sgn(v)*.9999999999
 8120 v=-atn(v/sqr(-v*v+1))+~/2
 8130 return
 8200 rem
 8210 d=d+(m/60)+(s/3600)
 8220 ifd$="s"thend=-d:d$="south"
 8230 ifd$="e"thend=-d:d$="east"
 8240 ifd$="n"thend$="north"
 8250 ifd$="w"thend$="west"
 8260 return
 8500 q=(h*3600+.5)/3600
 8520 d=int(q):q=(q-d)*60
 8530 m=int(q):q=(q-m)*60
 8540 s=int(q):return
 8900 e=90-e:f=90-f:k=180/~
 8910 ifc>180thenc=c-360
 8920 ifc<-180thenc=c+360
 8930 c=c/k:e=e/k:f=f/k
 8940 v=cos(e)*cos(f)+sin(e)*sin(f)*cos(c):gosub8100:g=v
 8950 v=(cos(e)-(cos(f)*cos(g)))/(sin(f)*sin(g)):gosub8100:a=v
 8960 g=g*k:a=a*k:ifc<0thena=360-a
 8970 return
 8999 end
 9100 t=~/180:ba=ba*t:ea=ea*t:bo=bo*t:eo=eo*t
 9120 x=sin(ba)*sin(ea)+cos(ba)*cos(ea)*cos(eo-bo):gosub9200:an=f
 9130 ifbo=eothenhd=90*sgn(ea-ba):goto9160
 9140 x=(sin(ea)-sin(ba)*cos(an))/(sin(an)*cos(ba)):gosub9200:hd=f/dr
 9150 ifsin(eo-bo)>=0thenhd=360-hd
 9160 nm=60*an/dr:sm=nm*1.150779448:km=sm/0.62137
 9165 an=an/dr
 9170 return
 9200 ifx=0thenf=~/2:return
 9210 f=atn(sqr(1-x*x)/x)
 9220 iff<0thenf=f+~
 9230 return
 9300 xx=(x*3600+.5)/3600
 9310 d=int(xx):xx=(xx-d)*60
 9320 m=int(xx):xx=(xx-m)*60
 9330 s=int(xx):return
 10040 dataalaska,,
 10050 dataanchorage,61/10n,150/0w
 10145 dataarizona,,
 10146 dataphoenix,33/25n,112/10w
 10170 dataaustralia,,
 10220 datasydney,33/55s,151/10e
 10340 datacalifornia,,
 10345 datagoleta,34/26n,119/50w
 10360 datalos angeles,34/00n,118/15w
 10370 datasacramento,38/32n,121/30w
 10410 datacanada,,
 10420 datamontreal,45/31n,73/34w
 10430 dataottawa,45/27n,75/42w
 10440 dataquebec,46/50n,71/15w
 10450 datatoronto,43/39n,79/20w
 10460 datavancouver,49/17n,123/50w
 10470 datawinnipeg,49/55n,97/06w
 10520 datachina,,
 10540 datapeking,39/55n,116/24e
 10580 datacolorado,,
 10590 datadenver,39/45n,105/00w
 10660 datadistrict of columbia,,
 10670 datawashington,38/55n,77/04w
 10680 dataegypt,,
 10690 datacairo,30/03n,31/15e
 10700 dataengland,,
 10740 datalondon,51/30n,0/10w
 10800 dataflorida,,
 10810 datamiami,25/46n,80/12w
 10820 datafrance,,
 10850 dataparis,48/51n,2/20e
 10860 datageorgia,,
 10870 dataatlanta,33/45n,84/23w
 10880 datagermany,,
 10890 databerlin,52/32n,13/25e
 10950 datagreece,,
 10960 dataathens,38/00n,23/44e
 11010 datahawaii,,
 11020 datahonolulu,21/19n,157/50w
 11090 dataillinois,,
 11100 datachicago,41/50n,87/45w
 11110 dataindia,,
 11130 datacalcutta,22/35n,88/21e
 11140 datadelhi,28/40n,77/14e
 11170 datairan,,
 11180 datatehran,35/40n,51/26e
 11240 dataisrael,,
 11250 datatel aviv,32/05n,34/46e
 11270 datajerusalem,31/47n,35/13e
 11280 dataitaly,,
 11320 datarome,41/54n,12/28e
 11350 datajapan,,
 11400 datatokyo,35/40n,138/45e
 11490 datalouisiana,,
 11500 datanew orleans,30/00n,90/1w
 11530 datamaryland,,
 11540 databaltimore,39/18n,76/38w
 11550 datamassachusetts,,
 11560 databoston,42/20n,71/05w
 11570 datamexico,,
 11580 datamexico city,19/25n,99/10w
 11600 datamichigan,,
 11610 datadetroit,42/23n,83/05w
 11620 dataminnesota,,
 11630 dataminneapolis,44/59n,93/17w
 11640 datamissouri,,
 11650 datakansas city,39/02n,94/33w
 11730 datanetherlands,,
 11740 dataamsterdam,52/21n,4/54e
 11760 datanevada,,
 11770 datalas vegas,36/10n,115/10w
 11790 datanew york,,
 11800 dataalbany,42/40n,73/49w
 11820 datanew york,40/43n,74/01w
 11900 dataohio,,
 11920 datacleveland,41/30n,81/41w
 11950 dataoregon,,
 11960 dataportland,45/30n,122/40w
 12000 datapennsylvania,,
 12010 dataphiladelphia,39/57n,75/10w
 12050 dataphilippines,,
 12060 datamanila,14/36n,120/59e
 12170 datascotland,,
 12180 dataglasgow,55/53n,4/15w
 12280 datasoviet union,,
 12300 dataleningrad,59/55n,30/25e
 12320 datamoscow,55/45n,37/37e
 12340 dataspain,,
 12360 datamadrid,40/25n,3/43w
 12370 datasweden,,
 12380 datastockholm,59/20n,18/05e
 12480 datatexas,,
 12490 datadallas,32/47n,96/48w
 12500 datafort worth,32/45n,97/20w
 12510 datahouston,29/45n,95/25w
 12630 datautah,,
 12640 datasalt lake city,40/43n,111/55w
 12680 datavirginia,,
 12690 datarichmond,37/34n,77/24w
 12700 datavenezuela,,
 12710 datacaracas,10/35n,66/56w
 12720 datawashington,,
 12730 dataseattle,47/36n,122/21w
 12740 datawisconsin,,
 12750 datamilwaukee,43/09n,87/55w
 13000 data,,
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #9  circle"
 62002 print"{down}copyright (c) 1979  by glen fisher
 62004 gosub 60500
 62010 print"{down}great circle navigation
 62020 print"{down}{down}press {rvon}return{rvof} to begin...";:gosub60000
 62040 print"{clr}":clr:goto100
    1 rem circle world
    4 print"{clr}"
    6 dimd$(44),o$(63),l%(57),p%(44,6):l=4:t=250:k1=248-int(rnd(10))
    7 goto 50
    8 print"o.k."
    9 goto500
   50 forx=1to 44:readd$(x):nextx
   55 datarimwall,open plain,dark forest,field,mountain,mountain top,lakeshore
   56 datasecret tunnel,stepping disc,sandy beach,mars island
   57 datalake bottom,scrith cavern,observation deck,control room,machine city,library
   58 datavolcano pit,rimwall
   59 datatool shed,great chasm(east),celler,great chasm(west),rocky cliff,ancient temple
   60 dataalcove,rimwall,kzim's den,path
   61 datadry river bed,cave,laboratory,small room,sunflower patch
   63 datajungle,staircase,tp,round room,frail bridge,tp
   64 datatp,vertical shaft,tp,jungle
  100 for x=1to63:reado$(x):q$=q$+left$(o$(x),2):ifx>6 thenreadl%(x-6)
  102 nextx
  110 dataeast,west,north,south,up,down,laser/flashlight,5,key,26,gold wire,19,switch,90
  111 data nipweed,1,parachute,90,bucket,10,motor,32,yellow book,17,blue book,25,oil,16
  112 datawrench,90,dy,90,sand,90,scuba gear,90,radar/sonar unit,8,cloth mask,32
  113 data rope,5,matches,17,id card,90
  114 datagenerator,22,silverbox,22,green book,25,shovel,5,plaque,18,chair,17,nylon cord
  115 data32,candles,25,#2 ramjet,1,#3 ramjet,19,holes,6,wood post,6,hatch,13
  116 datajammed hatch,15,mirror,25,lever,15,control panel,15,supergrid connections,15
  117 dataviewscreen(floor),14,crt readout,25,prayer wall,25,airlock,90,frozen waterfall
  118 data30,tag,15
  119 datakzin(asleep),90,iron door,32,pit,38,steel beam,38,tree of life,13,#1ramjet,27
  120 datalocked door,20,altar,25,bolts,32,ivory statue of a helmetedbiped,17
  121 dataelectronic alarm-on motor,32,bridge off,23,power source and switch,90
  150 forx=1to44:fory=1to6:readp%(x,y):nexty:nextx
  155 data1,1,2,,,,10,4,3,1,,,,,,,,,2,5,3,,,,4,,5,28,6,,,,25,,,5
  156 data16,12,7,7,,,,24,,,,18,,,,,,,12,2,10,10,,,12,12,29,,,12,7,10
  158 data12,12,11,,,,,,42,,,,,,15,,,,,,,14,35,7,19,20,,,34,23,0
  159 data27,,22,5,,,,,,19,19,,16,,,,,16,,,,,44,21,21,,,,,,,17,0
  160 data17,,23,23,,,,34,24,24,,,,,,6,,5,,25,,,,,27,27,17,,,0
  161 data,,5,,,,,,30,11,,,,,,29,,,32,33,,,,,,31,,,,,31,,,,36,0
  162 data,17,,,,,35,16,44,35,,,38,,,,,33,37,,40,36,,,,36,,,,0
  164 data23,21,,,,,41,,40,37,,,40,,43,41,,,,,,,12,13,41,,43,38,,,21,44,44,35,,0
  180 print"{clr}":w$="goloreunpuopbllitutidrthto":goto710
  200 ifl%(22)<>0thenprint"don't have it"j:goto500
  205 print:input"which one";c$:iflen(c$)>1thenc$=left$(c$,2)
  210 ifc$="bl"andl=21orc$="bl"andl=23then230
  215 ifc$="gr"andl=24then240
  217 ifc$="re"thenprint"you die":end
  220 print"no effect here":goto9
  230 ifp%(21,1)=0thenprint"a frail magnetic bridge appears":p%(21,1)=39:p%(23,2)=39
  235 ifp%(21,1)=0theno$(62)="sign-bridge-on":goto500
  238 goto9
  240 ifd2=0thenp%(24,1)=8:d2=1:print"door opens":goto500
  300 ifp%(25,1)=26then500
  305 ifl=25thenprint"mirror swings open":p%(25,1)=26:goto9
  310 print"no effect here":goto500
  480 print"the bridge collapses  under the weight"
  481 print"you die":end
  485 l%(4)=90:l%(3)=90:o$(9)="power source-with switch
  486 return
  487 ifb$="ho" andl=6 then ifa$="lo"then print"volcano pit":goto 9
  488 b$="do":goto512
  490 p%(3,1)=0:print"light off":if l%(6)=3thenl%(6)=90
  500 input"your command";a$:print:b$="":forx=1tolen(a$)
  501 ifmid$(a$,x,1)=" "andlen(a$)>1thenb$=mid$(a$,x+1,2)
  502 nextx:ifa$="luweewu"then300
  505 f=0:s=0:t=t-.5:ift<k1 then2500
  506 ifd1-1>t then 1520printt
  507 ifl%(8)=l andl%(21)=l andl%(3)=l andl%(4)=lthen l%(8)=90:l%(21)=90:l%(57)=l:gosub485
  508 iflen(a$)>1thena$=left$(a$,2)
  509 ifa$="lo" andb$="" then710
  510 ifa$="tu"andb$="kn" then200
  511 ifb$="ho" and l=6 thenifa$="lo"thenprint"volcano pit":goto9
  512 ifb$="wi" thenb$="go"
  513 ifa$="pu"andb$="sw"and l%(57)<>90then2050
  515 ifa$="re"andb$="cr"ora$="lo" andb$="cr"then1005
  516 ifa$="di"goto1200
  517 ifa$="lo"andb$="he"ora$="re"andb$="he" then530
  518 ifl=32anda$="lo"andb$="ho" then print"a room":goto 9
  519 ifl=38anda$="lo" andb$="pi"thenprint"lab":goto9
  520 ifa$="pr" then3200
  522 ifa$="bl"andl=34andb$="sc"then3300
  525 goto555
  555 ift<0thenprint"circleworld collided with the sun":end
  560 ift<10thenprint"{clr}":print"collision imminent!"
  600 forx=1 tolen(w$)step2:ifmid$(w$,x,2)=a$thenf=(x+1)/2
  601 nextx:forx=1to126step2:ifmid$(q$,x,2)=b$ thens=(x+1)/2
  603 next
  604 z=s-6:ifa$="ta"ora$="ge"then900
  605 ifa$="in"goto1000
  608 ifa$="fl" andl(1)<>0thenprint"don't have it!":goto9
  609 ifa$="fl"andb$="on" thenl3=3:p%(3,1)=4:print"light on":ifl%(6)<>0thenl%(6)=3:goto9
  610 if a$="fl"andb$="on" then goto 9
  611 ifa$="fl"andb$="of"then490
  613 ifl<15 or l>18then615
  614 iff=1andb$="di"then625
  615 ifl<>9then goto648
  616 ifa$="ex"andb$="di"thenl=a:goto710
  617 ifa$="en"andb$="di"andl%(20)=0then619
  618 goto649
  619 z=int(rnd(1)*4)+14:ifz=athen goto619
  621 print"{clr}":forx=0to7:printtab(x);"zzzaaappp-p!!!"
  622 nextx:printd$(z):a=z:goto710
  625 ifl%(21)=0orl%(3)=0thenprint"you can't transport with that":goto500
  626 a=l:l=9:goto710
  648 ifb$="di"thenifl<15orl>18 thenprint"that's not here"
  649 iff=0ors=0thenprint"can't do that":goto9
  650 iff>9thengoto664
  652 ifs<760thengoto660
  655 ifl%(z)<>l andl(z)<>0 thenprint"that's not here":goto9
  660 onf-1goto695,1028,1230,2000,2100,3300,1500,3500
  662 c7=0:ifs=32thenifl%(26)=lthenifl<>15thenprint"you look silly up there":goto9
  663 ifs=32thenifl%(26)=15thenc7=1:goto8
  664 ifs<7then670
  665 ifl%(z)<>0thenprint"you don't have that":goto9
  670 iff-9<1then680
  675 onf-9goto1350,1110,3000,3000
  680 ifs>6 thenprint"can't":goto9
  684 ifl<>3orp%(3,1)=4then688
  685 ifp%(3,1)=0 thenx=int(rnd(1)*3):p%(3,4)=x+2
  688 ifp%(l,s)=0thenprint"can't go that way":goto9
  689 ifp%(l,s)=13thenifl%(15)=0thenprint"gear won't fit":goto9
  690 ifp%(l,s)>0thenl=p%(l,s):goto710
  695 if s>6then 702
  697 if p%(l,s)=12 thenprint"lake and a distant island":goto9
  698 ifp%(l,s)=12thenprint"lake and a distant island":goto9
  701 ifp%(l,s)<>0thenprintd$(p%(l,s)):goto500
  702 ifl=14ands=45then709
  703 ifl=25ands=41then706
  704 ifs=28thenprint"red,green,and blue knobs"
  705 goto1031
  706 print"creature wearing a helmet is looking at you":goto9
  709 print"space and a lot of stars"
  710 print"you are at:";d$(l)
  715 ifl=24andd2=0thenprint"outline of a door in the rock"
  716 if l=32thenprint"hole in the ceiling"
  721 if l=42andl%(17)<>0andl%(15)<>0thenprint"you detect an odor"
  725 ifl=34andk3=0then6010
  730 ifl%(16)=0thenl%(42)=12:p%(12,6)=42
  731 ifl%(16)<>0thenl%(42)=90:p%(12,6)=0
  760 ifl=39andl%(21)=0then480
  850 y=0:print"you see":forx=1to57:ifl%(x)=lthenprinto$(x+6):y=y+1
  851 nextx:ifl>14andl<19 thengosub6000
  852 ify=0thenprint"nothing
  855 ifl=39andl%(21)=0then480
  857 ifl=18andl%(6)<>0thenprint"you fall to your death":end
  858 ifl=13andl%(17)<>0thenprint"the vapors from the tree do you in":end
  859 ifl=12andl%(15)<>0thenprint"you drown":end
  860 print"obvious exits are-":print:forx=1to6:ifp%(l,x)<>0thenprinto$(x)
  861 nextx:goto9
  900 ifs<6thenprint"what?":goto9
  902 ifl%(z)=0thenprint"you already have that.":goto9
  910 ifl%(z)<>lthenprint"that's not here":goto9
  911 ifs=61then935
  913 ifp%(32,5)=38ands=33thenprint"can't-it's tied":goto9
  914 ifs=51thenprint"you're kidding!!":goto9
  915 ifs>34thenprint"you can't take that":goto9
  920 ifc>12then:print"your arms are full!!":goto9
  921 ifs=24thenp%(6,6)=5
  922 ifs=17ors=20thenprint:input"in what?";c$:goto945
  925 iff7=0ands=14thenprint"it's bolted down":goto9
  930 l%(z)=0:c=c+1:ifl%(45)=28andl%(5)=0thengoto2525
  931 ifs=51then2525
  932 ifs=14thenifp%(32,2)=31then935
  933 goto940
  935 ifp%(32,2)=31thenp%(32,2)=0:p%(31,1)=0:print"{clr}":print"door slams shut!!!"
  940 goto1000
  945 ifleft$(c$,2)="bu"andl%(7)=0then930
  950 ifl%(7)<>0thenprint"don't have it":goto9
  957 print"can't":goto9
 1000 print"you are carrying-":forx=1to57:ifl%(x)=0thenprinto$(x+6)
 1002 nextx:ifc=0thenprint"nothing
 1003 goto9
 1005 ifl=25orl>14andl<19then1014
 1010 print"not here":goto9
 1014 ifq=0orr=0then1022
 1016 print"{clr}":forx=1to6:print:next
 1020 print"congratulations!":print"circleworld is saved!":end
 1022 print"orbit decaying-";.01*t;"falans     until impact with the sun!!"
 1023 ifq=0thenprint"supergrid is off
 1024 ifr=0thenprint"stabilizing ramjets off
 1025 ifq=1thenprint"supergrid is on
 1026 ifr=1thenprint"ramjets on
 1027 goto9
 1028 ifl%(s-6)<>l thenprint"don't see that here":goto9
 1030 ifs<7thenprint"can't
 1031 ifs=29thenprint"the light in the forest
 1032 ifs=47thenprint"your prayer will be answered"
 1033 ifs=31then1070
 1034 ifs=15then1080
 1035 ifs=16then1097
 1036 ifs=7thenprint"flashlight on/off or blast
 1038 ifs=60thenprint"$luweewu$
 1040 ifs=25thenprint"pak fuel oil co.
 1041 ifs=50thenprint"connect power here
 1042 ifs=23thenprint"protective mask"
 1045 ifs=38thenprint"rope marks"
 1050 print:print:goto9
 1070 print"stepping disc commands:":print"go disc":print"exit disc"
 1075 print"enregize disc(id required)":goto9
 1080 print"power source=motor+generator+wire+switch+fuel":goto9
 1097 print:print"a hero's name is the key
 1098 print"speak it out, i to me":goto9
 1100 ifp%(21,1)=26then goto1107
 1105 ifs=41andl=25thenprint"mirror swings open":p%(25,1)=26
 1107 goto9
 1110 ifs<7thenprint"what?":goto9
 1115 ifs=13andl%(11)=0thenl%(11)=l:c=c-1
 1120 l%(z)=l:c=c-1:goto8
 1200 ifl%(24)<>0thenprint"can't":goto9
 1201 ifl<>10thenprint"you can't dig here":goto9
 1202 print"you are digging a hole":h=h+1:l%(14)=10
 1203 ifh=2thenprint"you are getting deeper
 1204 ifh=3thenprint"you are waist deep
 1205 ifl%(20)=90andh=4thenprint"aha!":l%(20)=10
 1220 ifh>4thenprint"you dug through and died":end
 1225 goto9
 1230 ifs(2)<>0thenprint"no key":goto9
 1240 ifs<>57thenprint"can't unlock that":goto9
 1245 ifq7=0thenprint"click":q7=1:l%(15)=20:l%(4)=20:l%(12)=20:o$(57)="open door"
 1250 goto9
 1350 ifs<>24thenifs<>33thenprint"can't":goto9
 1360 print:input"to what?";c$:c$=left$(c$,2)
 1365 ifl=6thenifc$="wo"orc$="po"then1390
 1366 ifl=30thenifc$="st"orc$="be"then1392
 1367 ifl=38andc$="st"then1392
 1370 print"can't":goto9
 1390 l%(18)=6:print"the rope uncoils and is 30 feet from floor of the pit
 1391 p%(6,6)=18:c=c-1:goto9
 1392 print"the cord uncoils & goes down into the pit":p%(32,5)=38:l%(27)=32:c=c-1
 1393 p%(38,6)=32:goto9
 1500 ifl%(19)<>0thenprint"no matches":goto9
 1504 ifc1=0thenifs=34thenc1=1:o$(34)="candles(lit)":goto8
 1505 ifs=34thenprint"already lit":goto9
 1507 ifs=17thenl%(11)=90:print"oil burns up":ifl=30 thenprint"no effect":goto9
 1508 ifs=17thenifl<>30 then 9
 1510 print"can't light that":goto9
 2000 if s=1andl=15then2050
 2001 ifs<>42thenprint"no effect":goto9
 2005 ifl%(26)=15andc7=1then2010
 2007 print"you can't quite reach it":goto9
 2010 ifr=0thenr=1:t=t+200:print"ramjets on!":goto9
 2020 goto9
 2050 ifl%(57)=15then2060
 2055 print"wrong place!":goto
 2060 ifl%(11)=15thenprint"supergrid is on":q=1:goto9
 2065 print"no fuel here":goto9
 2100 ifl=13ands=39then2105
 2101 print"can't":goto9
 2105 p%(13,6)=15:p%(15,5)=13:o$(39)="hatch-open":o$(40)="open hatch":goto8
 2500 c=0:ifl%(5)=0 then2510
 2502 forx=1to41:ifl%(x)=0thenl%(x)=int(rnd(1)*6)
 2506 nextx
 2507 print"a cat-like kzin has wandered through-took all your possesions and scattered";
 2508 print" them":gosub6005:goto507
 2510 forx=1to41:ifl%(x)=0thenl%(x)=28
 2513 next:print"the kzin takes your things and retires to his den
 2515 l%(45)=28:k1=-5:ifl%(21)=28 thenl%(21)=22
 2520 goto710
 2525 print"the kzin wakes up and claws you to death":end
 2587 print"a cat-like kzin has wandered through-took all your possesions and scattered";
 3000 ifs<7thenprint"what?":goto9
 3001 ifs<>9ands<>28thengoto3010
 3005 ifl=34andk3=0thenk3=1:goto3015
 3010 l%(z)=l:c=c-1:print"no effect":goto9
 3015 print"the scavenger takes your gift and dissapears"
 3020 c=c-1:l%(z)=90:p%(34,1)=24:goto9
 3200 ifl<>25thenprint"why pray here?":goto9
 3205 input"for what?";c$:c$=left$(c$,2):ifc$="he"thenprint"something of value":goto9
 3206 ifc$="go"then3215
 3210 print"no effect":goto9
 3215 ifc1=1thenifl%(28)=0orl%(28)=25thenifl%(3)<>90thenprint"try later":goto9
 3216 ifc1=1thenifl%(28)=0orl%(28)=25thenifl%(3)=90thenprint"granted":l%(3)=25:goto9
 3220 print"yes-but":goto3210
 3300 ifl%(1)<>0thenprint"can't":goto9
 3302 print"{clr}":if s=51then2525
 3303 ifs=41goto3320
 3304 ifs=45then2525
 3305 ifp%(34,1)=0andb$="sc"thenprint"he dodged":goto9
 3306 ifs=61andp%(32,2)=31thengoto935
 3309 ifl<>30thenprint"no effect":goto9
 3310 print"waterfall melts":p%(30,3)=31:p%(31,4)=30:l%(43)=90:k6=1:d$(30)="stream":goto9
 3320 print"laser beam reflects back-you blasted yourself":end
 3500 ifl%(12)<>0thenprint"can't":goto9
 3510 iff7=0thenprint"ok":f7=1:goto9
 3520 goto9
 6000 return
 6005 k1=t-10-int(rnd(1)*10):return
 6010 print"a night scavenger is blocking your way":print"he wants you to toss him"
 6015 print"something of value":goto850
    0 print"{clr}"
    2 print tab(26) "civil war"
    4 print tab(15) "creative computing morristown, new jersey"
    6 print:print:print
   20 rem original game design: cram, goodie, hibbard lexington h s
   30 rem modifications: g. paul, r. hess (ties), 1973
   50 dim s(4),c$(14),m1(14),m2(14),c1(14),c2(14),m(14)
   60 rem union info on likely confederate strategy
   70 s(1)=25 : s(2)=25 : s(3)=25 : s(4)=25
   84 for d=1 to 14
   86 read c$(d),m1(d),m2(d),c1(d),c2(d),m(d)
   88 next d
   89 let d=rnd(-1)
   90 print
  100 print "do you want instructions";
  110 input x$
  120 if x$="yes" then 160
  130 if x$="no" then 370
  140 print "yes or no -- ";
  150 goto 110
  160 print""
  170 print "this is a civil war simulation"
  180 print "to play, type a response when the computer asks."
  190 print "remember that all factors are interrelated and that your"
  200 print "responses could change history. facts and figures used are"
  210 print "based on the actual occurrence. most battles tend to result"
  220 print "as they did in the civil war, but it all depends on you!!"
  230 print
  240 print "the object of the game is to win as many battles as ";
  245 print "possible."
  248 print
  250 print"press any key to continue"
  255 geta$:if a$=""then 255
  260 print "your choices for defensive strategy are:"
  270 print "          (1) artillery attack"
  280 print "          (2) fortification against frontal attack"
  290 print "          (3) fortification against flanking maneuvers"
  300 print "          (4) falling back"
  310 print "your choices for offensive strategy are:"
  320 print "   (1) artillery attack"
  330 print "   (2) frontal attack"
  340 print "   (3) flanking maneuvers"
  350 print "   (4) encirclement"
  360 print "you may surrender by typing a '5'for your strategy."
  370 print "are there two generals present";
  380 print "(answer yes or no)";
  390 input b$
  400 if b$="yes" then 430
  410 if b$ <> "no" then 380
  420 print "you are the confederacy.    good luck!"
  425 print
  430 let d=1
  440 if b$ <> "yes" then 460
  450 let d=2
  460 print "select a battle by typing a number from 1 to 14 on"
  470 print "request. type any other number to end the simulation"
  480 print "but '0' brings back exact previous battle situation"
  490 print "allowing you to replay it"
  500 print
  510 print "note: a negative food$ entry causes the program to "
  520 print "use the entries from the previous battle"
  530 print
  540 print "after requesting a battle, do you wish ";
  550 print "battle descriptions"
  560 print "(answer yes or no)";
  570 input x$
  580 if x$="yes" then 600
  590 if x$ <> "no" then 560
  600 l=0:w=0:r1=0:q1=0:m3=0:m4=0:p1=0:p2=0:t1=0:t2=0
  610 f(2)=0:h(2)=0:b(2)=0:r2=0:q2=0:c6=0:f=0:w0=0:y=0:y2=0:u=0:u2=0
  620 print " "
  630 print "which battle do you wish to simulate";
  640 input a
  650 if a<> 0 then 660
  655 if r <> 0 then 1140
  660 if a <=0 then 2860
  665 if a >=15 then 2860
  670 let c$=c$(a)
  680 let m1=m1(a)
  690 let m2=m2(a)
  700 let c1=c1(a)
  710 let c2=c2(a)
  720 let m=m(a)
  960 let u=0
  970 rem inflation calc
  980 let i1=10+(l-w)*2
  990 let i2=10+(w-l)*2
 1000 rem - money available
 1010 let d(1)=100*int((m1*(100-i1)/2000)*(1+(r1-q1)/(r1+1))+.5)
 1020 let d(2)=100*int(m2*(100-i2)/2000+.5)
 1030 if b$ <> "yes" then 1050
 1040 let d(2)=100*int((m2*(100-i2)/2000)*(1+(r2-q2)/(r2+1))+.5)
 1050 rem - men available
 1060 let m5=int(m1*(1+(p1-t1)/(m3+1)))
 1070 let m6=int(m2*(1+(p2-t2)/(m4+1)))
 1080 let f1=5*m1/6
 1090 print " "
 1100 print "this is the battle of ";c$
 1110 if x$="no" then 1150
 1120 if a>11 then 1150
 1125 on a goto 3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890
 1130 on a-11 goto 3920,3950,3980
 1140 print c$ "instant replay"
 1150 print
 1160 print " ","confereracy","union"
 1170 print"men",m5,m6
 1180 print "money","$";d(1),"$";d(2)
 1190 print "inflation"," ";i1+15;"%"," ";i2;"%"
 1195 print
 1200 rem - only in printout is confed inflation = i1+15%
 1210 rem - if two generals, input confed. first
 1220 for i=1 to d
 1230 if b$ <> "yes" then 1260
 1240 if i=2 then 1260
 1250 print "confederate general---";
 1260 print "how much do you wish to spend for"
 1270 print " - food......";
 1280 input f
 1290 if f >=0 then 1360
 1300 if r1 <> 0 then 1330
 1310 print "no previous entries"
 1320 goto 1270
 1330 print "assume you want to keep the same allocations"
 1340 print
 1350 goto 1510
 1360 let f(i)=f
 1370 print " - salaries..";
 1380 input h(i)
 1390 let n=1
 1400 if h(i)<0 then 1490
 1410 print " - ammunition";
 1420 input b(i)
 1430 let n=2
 1440 if b(i)<0 then 1490
 1450 print
 1460 if f(i)+h(i)+b(i) <= d(i) then 1510
 1480 goto 1270
 1490 print "negative values not allowed."
 1500 on n goto 1370,1410
 1510 if b$ <> "yes" then 1550
 1520 if i=2 then 1550
 1530 print "union general---";
 1540 next i
 1550 for z=1 to d
 1560 if b$ <> "yes" then 1620
 1570 on z goto 1580,1600
 1580 print "confederate";
 1590 goto 1620
 1600 print "    union";
 1610 rem - find morale
 1620 let o=((2*f(z)^2+h(z)^2)/f1^2+1)
 1630 if o<10 then 1660
 1640 print "morale is high"
 1650 goto 1700
 1660 if o<5 then 1690
 1670 print "morale is fair"
 1680 goto 1700
 1690 print "morale is poor"
 1700 if b$ <> "yes" then 1760
 1710 let o(z)=o
 1720 next z
 1730 let o2=o(2)
 1740 let o=o(1)
 1750 print "confederate general---";
 1760 rem - actual off/def battle situation
 1770 if m <> 3 then 1800
 1780 print "you are on the offensive"
 1790 goto 1840
 1800 if m <> 1 then 1830
 1810 print "you are on the defensive"
 1820 goto 1840
 1830 print "both sides are on the offensive"
 1840 print
 1850 rem - choose strategies
 1860 if b$ <> "yes" then 1910
 1870 for i=1 to 2
 1880 on i goto 1890,1920
 1890 print "confederate strategy"
 1900 goto 1920
 1910 print "your strategy"
 1920 input y
 1930 if abs(y-3)<3 then 1960
 1940 print "strategy";y;"not allowed."
 1950 goto 1910
 1960 if b$="yes" then 2000
 1970 if y=5 then 2830
 1980 gosub 3110
 1990 goto 2170
 2000 if i=2 then 2040
 2010 let y1=y
 2020 print "union strategy";
 2030 next i
 2040 let y2=y
 2050 let y=y1
 2060 if y2=5 then 2020
 2070 rem : simulated losses-north
 2080 let c6=(2*c2/5)*(1+1/(2*(abs(y2-y)+1)))
 2090 let c6=c6*(1.28+(5*m2/6)/(b(2)+1))
 2100 let c6=int(c6*(1+1/o2)+.5)
 2110 rem - if loss > men present, rescale losses
 2120 let e2=100/o2
 2130 if int(c6+e2)<m6 then 2190
 2140 let c6=int(13*m6/20)
 2150 let e2=7*c6/13
 2160 let u2=1
 2170 rem - calculate simulated losses
 2180 print
 2190 print "   ","confederacy","union"
 2200 let c5=(2*c1/5)*(1+1/(2*(abs(y2-y)+1)))
 2210 let c5=int(c5*(1+1/o)*(1.28+f1/(b(1)+1))+.5)
 2220 e=100/o
 2230 if c5+100/o<m1*(1+(p1-t1)/(m3+1)) then 2270
 2240 let c5=int (13*m1/20*(1+(p1-t1)/(m3+1)))
 2250 let e=7*c5/13
 2260 let u=1
 2270 if d=1 then 2500
 2280 print "casualties",c5,c6
 2290 print "desertions",int(e),int(e2)
 2300 print
 2310 if b$ <> "yes" then 2530
 2320 print "compared to the actual casualties at "c$
 2330 print "confederate:"int(100*(c5/c1)+.5)"% of the original"
 2340 print "union:      "int(100*(c6/c2)+.5)"% of the original"
 2350 print
 2360 rem - 1 who won
 2370 if u <> 1 then 2380
 2375 if u2=1 then 2460
 2380 if u=1 then 2420
 2390 if u2=1 then 2440
 2400 if c5+e=c6+e2 then 2460
 2410 if c5+e<c6+e2 then 2440
 2420 print "the union wins "c$
 2430 goto 2600
 2440 print "the confederacy wins "c$
 2450 goto 2660
 2460 print "battle outcome unresolved"
 2470 let wo=wo+1
 2480 if a=0 then 2790
 2490 goto 2680
 2500 let c6=int(17*c2*c1/(c5*20))
 2510 let e2=5*o
 2520 goto 2280
 2530 print "your casulties were "int(100*(c5/c1)+.5)"% of "
 2540 print "the actual csaulties at ";c$
 2550 print
 2560 rem - find who won
 2570 if u=1 then 2590
 2580 if c5+e<17*c2*c1/(c5*20)+5*o then 2630
 2590 print "you lose ";c$
 2600 if a=0 then 2790
 2610 let l=l+1
 2620 goto 2680
 2630 print "you win ";c$
 2640 rem - cumulative battle factors which alter historical
 2650 rem resources available.if a replay don't update.
 2660 if a=0 then 2790
 2670 let w=w+1
 2680 let t1=t1+c5+e
 2690 let t2=t2+c6+e2
 2700 let p1=p1+c1
 2710 let p2=p2+c2
 2720 let q1=q1+(f(1)+h(1)+b(1))
 2730 let q2=q2+(f(2)+h(2)+b(2))
 2740 let r1=r1+m1*(100-i1)/20
 2750 let r2=r2+m2*(100-i2)/20
 2760 let m3=m3+m1
 2770 let m4=m4+m2
 2780 gosub 3300
 2790 u=o:u2=o
 2800 print "---------------"
 2810 goto 620
 2820 rem------finish off
 2830 print "the confederacy has surrendered"2840 goto 2860
 2850 print "the union has surrendered"
 2860 print "   "
 2870 print "the confederacy ";
 2880 print "has won "w" battles and lost "l
 2890 if y=5 then 2940
 2900 if y2=5 then 2920
 2910 if w <=l then 2940
 2915 if y=5 then 2940
 2920 print "the confederacy has won the war"
 2930 goto 2950
 2940 print "the union has won the war"
 2950 print
 2960 if r1=0 then 3100
 2970 print "for the "w+l+wo" battles fought (excluding reruns)"
 2980 print " "," "," ";
 2990 print "confederacy"," union"
 3000 print "historical losses",int(p1+.5),int(p2+.5)
 3010 print "simulated losses",int(t1+.5),int(t2+.5)
 3020 print
 3030 print "   % of original",int(100*(t1/p1)+.5),int(100*(t2/p2)+.5)
 3040 if b$="yes" then 3100
 3050 print
 3060 print "union intelligence suggests that the south used "
 3070 print "strategies 1, 2, 3, 4 in the following percentages"
 3080 print s(1);s(2);s(3);s(4)
 3090 rem---------------------
 3100 stop
 3110 rem - union strategy is computer chosen
 3120 print "union strategy is ";
 3130 if a <> 0 then 3180
 3140 input y2
 3150 if y2 <= 0 then 3160
 3155 if y2<5 then 3290
 3160 print "enter 1, 2, 3, or 4 (usually previous union strategy)"
 3170 goto 3140
 3180 let s0=0
 3190 let r=100*rnd(0)
 3200 for i=1 to 4
 3210 let s0=s0+s(i)
 3220 rem - if actual strategy info is in program data statements
 3230 rem   then r-100 is extra weight given to that strategy.
 3240 if r<s0 then 3270
 3250 next i
 3260 rem - if actual strat. in,then here is y2= hist. strat.
 3270 let y2=1
 3280 print y2
 3290 return
 3300 rem learn present strategy, start forgetting old ones
 3310 rem - present strategy of south gains 3*s, others lose s
 3320 rem probability points, unless a strategy falls below 5%
 3330 let s=3
 3340 let s0=0
 3350 for i=1 to 4
 3360 if s(i) <= 5 then 3390
 3370 let s(i)=s(i)-s
 3390 next
 3400 let s(y)=s(y)+s0
 3410 return
 3420 rem - historical data...can add more (strat.,etc) by inserting
 3430 rem data statements after appro. info, and adjusting read
 3440 data"bull run",18000,18500,1967,2708,1
 3450 data"siloh",40000.,44894.,10699,13047,3
 3460 data "seven days",95000.,115000.,20614,15849,3
 3470 data "second bull run",54000.,63000.,10000,14000,2
 3480 data "antietam",40000.,50000.,10000,12000,3
 3490 data "fredricksburg",75000.,120000.,5377,12653,1
 3500 data "murfreesboro",38000.,45000.,11000,12000,1
 3510 data "chancelorsville",32000,90000.,13000,17197,2
 3520 data "vicksburg",50000.,70000.,12000,19000,1
 3530 data "gettysburg",72500.,85000.,20000,23000,3
 3540 data "chickamauga",66000.,60000.,18000,16000,2
 3550 data "chattanooga",37000.,60000.,36700.,5800,2
 3560 data "spotsylvania",62000.,110000.,17723,18000,2
 3570 data "atlanta",65000.,100000.,8500,3700,1
 3580 print "july 21, 1861. gen.beauregard, commanding the south, met"
 3590 print "union forces with gen. mcdowell in a premature battle at"
 3600 print "bull run.  gen. jackson helped push back the union attack."
 3610 goto 1150
 3620 print "april 6-7, 1862.  the confederate sruprise attack at"
 3630 print "shiloh failed due to poor organization."
 3640 goto 1150
 3650 print"june 25-july 1, 1862.  general lee (csa) upheld the"
 3660 print "offensive throughout the battle and forced gen. mcclellan"
 3670 print "and the union forces away from richmond."
 3680 goto 1150
 3690 print "aug 29-30, 1862. the combined confederate forces under";
 3695 print "lee"
 3700 print "and jackson drove the union forces back into washington."
 3710 goto 1150
 3720 print "sept. 17, 1862. the south failed to incorporate maryland"
 3730 print "into the confederacy."
 3740 goto 1150
 3750 print "dec. 13, 1862. the confederacy under lee successfully"
 3760 print "repulsed an attack by the union under gen. burnside."
 3770 goto 1150
 3780 print "dec.31, 1862. the south under gen. bragg won a close";
 3785 print "battle."
 3790 goto 1150
 3800 print "may 1-6, 1863. the south had a costly battle and lost"
 3810 print "one of their outstanding generals, 'stonewall' jackson."
 3820 goto 1150
 3830 print "july 4, 1863. vicksburg was a costly defeat for the south"
 3840 print "because it gave the union access to the mississippi."
 3850 goto 1150
 3860 print "july 1-3, 1863. a southern mistake by gen. lee at";
 3865 print "gettysburg"
 3870 print "cost them one of the most crucial battles of the war."
 3880 goto 1150
 3890 print "sept. 15, 1863. confusion in a forest near chickamauga led"
 3900 print "to a costly southern victory"
 3910 goto 1150
 3920 print "nov. 25, 1863. after the south had sieged gen. rosencrans'"
 3930 print "army for three months, gen. grant broke the siege."
 3940 goto 1150
 3950 print "may 5, 1864. grant's plan to keep lee isolated began to"
 3960 print "fail here,and continued at cold harbor and petersburg."
 3970 goto 1150
 3980 print "august, 1864. sherman and three veteran armies converged"
 3990 print "on atlanta and dealt the death blow to the confederacy."
 4000 goto 1150
 4010 end
 1200 dimb(3,3),t(200),m(200),s(8),a$(10),l$(3)
 1220 print"{clr}        noughts & crosses"
 1240 print"        {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1260 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}by t.l.lusty..,(5/2/79)"
 1280 print"{down}board layout as below"
 1290 print"
 1300 print"    {SHIFT--}   {SHIFT--}
 1310 print"  1 {SHIFT--} 2 {SHIFT--} 3"
 1320 print" {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 1325 print"    {SHIFT--}   {SHIFT--}
 1330 print"  4 {SHIFT--} 5 {SHIFT--} 6"
 1335 print"    {SHIFT--}   {SHIFT--}
 1340 print" {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 1350 print"  7 {SHIFT--} 8 {SHIFT--} 9
 1360 print"    {SHIFT--}   {SHIFT--}
 1370 print"
 1380 print"be warned - i learn from my own mistakes"
 1400 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}press a key to start"
 1420 geta$:ifa$=""then1420
 1430 print"{clr}"
 1500 rem
 1520 l$="x.o"
 1540 m7=0
 1560 q=1
 1580 t(q)=0
 1600 m(q)=511
 1620 rem
 1640 forn1=1to3
 1660 forn2=1to3
 1680 b(n1,n2)=0
 1700 nextn2
 1720 nextn1
 1740 print
 1760 print
 1780 print"{clr}ok --- lets start --- "
 1800 m9=0
 1820 rem
 1840 m7=m7+1
 1860 ifm7=2*int(m7/2)then2280
 1880 print"what is your move";
 1900 inputh
 1920 ifh<1orh>9then1980
 1940 gosub3120
 1960 ifb(y,x)=0then2040
 1980 print"illegal move --- please try again"
 2000 print
 2020 goto1880
 2040 letb(y,x)=1
 2060 m9=m9+1
 2080 rem
 2100 gosub3200
 2120 iff1=1then2200
 2140 ifm9<9then2280
 2160 print"draw --- i must be getting better."
 2170 forppp=1to2000:next
 2180 goto1640
 2200 m(q2)=m(q2)-2^(p2-1)
 2220 print"i concede ---you win--- i'll try harder  next time"
 2230 forppp=1to2000:next
 2240 goto1640
 2260 rem
 2280 t2=0
 2300 forn1=1to3
 2320 t1=9*(b(n1,1)+1)+3*(b(n1,2)+1)+(b(n1,3)+1)
 2340 t2=t2+t1*(10^(2*n1))
 2360 nextn1
 2380 rem
 2400 forq1=1toq
 2420 ift(q1)=t2then2660
 2440 nextq1
 2460 rem
 2480 q=q+1:q1=q
 2500 t(q)=t2
 2520 m(q)=0
 2540 forn1=1to3
 2560 forn2=1to3
 2580 ifb(n1,n2)<>0then2620
 2600 m(q)=m(q)+2^(3*(n1-1)+(n2-1))
 2620 nextn2
 2640 nextn1
 2660 rem
 2680 ifm(q1)=0then2200
 2700 forp1=1to9
 2720 ifm(q1)/(2^p1)<>int(m(q1)/(2^p1))then2760
 2740 nextp1
 2760 q2=q1
 2780 p2=p1
 2800 print"computer plays position ";p1
 2820 h=p1
 2840 gosub3120
 2860 b(y,x)=-1
 2880 m9=m9+1
 2900 rem
 2920 gosub3580
 2940 gosub3200
 2960 iff1=-1then3020
 2980 ifm9<9then1880
 3000 goto2160
 3020 print"i win !!! --- do you want to try again ";
 3040 inputa$
 3060 ifa$="yes"then1640
 3080 end
 3100 rem
 3120 y=int((h-1)/3)+1
 3140 x=h-3*(y-1)
 3160 return
 3180 rem
 3200 forn1=1to3
 3220 s(n1)=b(n1,1)+b(n1,2)+b(n1,3)
 3240 s(n1+3)=b(1,n1)+b(2,n1)+b(3,n1)
 3260 nextn1
 3280 rem
 3300 s(7)=b(1,1)+b(2,2)+b(3,3)
 3320 s(8)=b(3,1)+b(2,2)+b(1,3)
 3340 rem
 3360 forn1=1to8
 3380 ifs(n1)=3then3480
 3400 ifs(n1)=-3then3520
 3420 nextn1
 3440 letf1=0
 3460 return
 3480 f1=1
 3500 return
 3520 f1=-1
 3540 return
 3560 rem
 3580 print
 3600 forn1=1to3
 3620 forn2=1to3
 3640 m8=2-b(n1,n2)
 3660 printmid$(l$,m8,1);" ";
 3680 nextn2
 3700 print
 3720 nextn1
 3740 print
 3760 return
 3780 end
    0 clr:poke59468,12
    1 rem clock (c) 1978 john fox
    2 rem lines 2000-2200 (c) 1978 glen fisher
    3 rem  included by permission
    4 rem cursor #4, october 1978
    5 rem box 550, goleta, ca.  93017
    6 :
   10 remas of 9 apr 80
   50 pg$="clock":goto62000
  100 dimnt(24):forz=1to24:readnt(z):nextz
  105 data237,224,211,199,188,177,167,157,149,140,132,124
  110 data117,111,104,99,93,88,83,78,73,69,65,61
  115 dimtb(4):fori=1to4:readtb(i):nexti
  120 data1,9,21,31
  130 p=59464:b=59467:c=59466
  200 print"{down}{down}what time is it?{down}":gosub1300
  210 ti$=t$+"00"
  220 input"{down}want an alarm clock? n{left}{left}{left}";t$
  230 ift$="n"thena1=-1:print"{clr}":goto1000
  250 print"{down}what time for alarm?{down}":gosub1300
  260 a1=val(t$):print"{clr}"
  270 t$=left$(t$,2)+":"+right$(t$,2)
  280 ifleft$(t$,1)="0"thent$=mid$(t$,2)
  290 printtab(10);"alarm set for ";t$
  300 goto1100
  450 fori=1to12
  455 printtab(x);"        "
  460 nexti
  465 return
  500 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  502 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  504 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  506 printtab(x)"{rvon} {rvof}      {rvon} "
  508 printtab(x)"{rvon} {rvof}      {rvon} "
  510 printtab(x)"{rvon} {rvof}      {rvon} "
  512 printtab(x)"{rvon} {rvof}      {rvon} "
  514 printtab(x)"{rvon} {rvof}      {rvon} "
  516 printtab(x)"{rvon} {rvof}      {rvon} "
  518 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  520 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  522 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  524 return
  550 printtab(x)"  {rvon}{SHIFT-POUND}  {rvof}   "
  552 printtab(x)"  {rvon}   {rvof}   "
  554 printtab(x)"   {rvon}  {rvof}   "
  556 printtab(x)"   {rvon}  {rvof}   "
  558 printtab(x)"   {rvon}  {rvof}   "
  560 printtab(x)"   {rvon}  {rvof}   "
  562 printtab(x)"   {rvon}  {rvof}   "
  564 printtab(x)"   {rvon}  {rvof}   "
  566 printtab(x)"   {rvon}  {rvof}   "
  568 printtab(x)"   {rvon}  {rvof}   "
  570 printtab(x)"  {rvon}    {rvof}  "
  572 printtab(x)"  {rvon}    {rvof}  "
  574 return
  600 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  602 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  604 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  606 printtab(x)"       {rvon} "
  608 printtab(x)"      {rvon}{SHIFT-POUND} "
  610 printtab(x)" {rvon}{SHIFT-POUND}     {rvof}{SHIFT-POUND}"
  612 printtab(x)"{rvon}{SHIFT-POUND}     {rvof}{SHIFT-POUND} "
  614 printtab(x)"{rvon} {rvof}{SHIFT-POUND}     "
  616 printtab(x)"{rvon} {rvof}      "
  618 printtab(x)"{rvon} {rvof}      "
  620 printtab(x)"{rvon}        "
  622 printtab(x)"{rvon}        "
  624 return
  650 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  652 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  654 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  656 printtab(x)"       {rvon} "
  658 printtab(x)"      {rvon}{SHIFT-POUND} "
  660 printtab(x)"   {rvon}    {rvof}{SHIFT-POUND}"
  662 printtab(x)"   {rvon}    {CBM-*}"
  664 printtab(x)"      {CBM-*}{rvon} "
  666 printtab(x)"       {rvon} "
  668 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  670 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  672 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  674 return
  700 printtab(x)"     {rvon}{SHIFT-POUND}  "
  702 printtab(x)"    {rvon}{SHIFT-POUND}   "
  704 printtab(x)"   {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{rvon}  "
  706 printtab(x)"  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} {rvon}  "
  708 printtab(x)" {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}  {rvon}  "
  710 printtab(x)"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}   {rvon}  "
  712 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {rvon}  "
  714 printtab(x)"{rvon}        "
  716 printtab(x)"{rvon}        "
  718 printtab(x)"      {rvon}  "
  720 printtab(x)"      {rvon}  "
  722 printtab(x)"      {rvon}  "
  724 return
  750 printtab(x)"{rvon}        "
  752 printtab(x)"{rvon}        "
  754 printtab(x)"{rvon} {rvof}       "
  756 printtab(x)"{rvon} {rvof} {$a0}     "
  758 printtab(x)"{rvon}      {CBM-*}{rvof} "
  760 printtab(x)"{rvon}       {CBM-*}"
  762 printtab(x)"      {CBM-*}{rvon} "
  764 printtab(x)"       {rvon} "
  766 printtab(x)"       {rvon} "
  768 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  770 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  772 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  774 return
  800 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  802 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  804 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  806 printtab(x)"{rvon} {rvof}       "
  808 printtab(x)"{rvon} {SHIFT-POUND}    {CBM-*}{rvof} "
  810 printtab(x)"{rvon}       {CBM-*}"
  812 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  814 printtab(x)"{rvon} {rvof}      {rvon} "
  816 printtab(x)"{rvon} {rvof}      {rvon} "
  818 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  820 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  822 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  824 return
  850 printtab(x)"{rvon}        "
  852 printtab(x)"{rvon}        "
  854 printtab(x)"     {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}"
  856 printtab(x)"    {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} "
  858 printtab(x)"    {rvon}  {rvof}  "
  860 printtab(x)"   {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}  "
  862 printtab(x)"   {rvon}  {rvof}   "
  864 printtab(x)"  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}   "
  866 printtab(x)"  {rvon}  {rvof}    "
  868 printtab(x)" {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}    "
  870 printtab(x)" {rvon}  {rvof}     "
  872 printtab(x)"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}     "
  874 return
  900 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  902 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  904 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  906 printtab(x)"{rvon} {rvof}      {rvon} "
  908 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  910 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  912 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  914 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  916 printtab(x)"{rvon} {rvof}      {rvon} "
  918 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  920 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  922 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  924 return
  950 printtab(x)" {rvon}{SHIFT-POUND}    {CBM-*}{rvof} "
  952 printtab(x)"{rvon}{SHIFT-POUND}      {CBM-*}"
  954 printtab(x)"{rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} "
  956 printtab(x)"{rvon} {rvof}      {rvon} "
  958 printtab(x)"{rvon} {rvof}      {rvon} "
  960 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  962 printtab(x)"{CBM-*}{rvon}       "
  964 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND}{rvon} "
  966 printtab(x)"       {rvon} "
  968 printtab(x)"{rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} "
  970 printtab(x)"{CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  972 printtab(x)" {CBM-*}{rvon}    {rvof}{SHIFT-POUND} "
  974 return
 1000 ifval(ti$)>125959thenti$="010000"
 1010 gosub1600:gosub1850:f1=0
 1020 fort=1to12:ift=int(val(ti$)/100)/100thenpokep,nt(1):gosub1700
 1030 nextt
 1040 t$=right$(ti$,2):ift$="00"thent$="  "
 1050 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(tb(3)-3);t$
 1060 ift$="  "then1000
 1070 getv$:ifv$="!"thengosub1900
 1080 ifv$="_"thengosub1800
 1090 goto1040
 1100 tu=0
 1110 ifval(ti$)>125959thenti$="010000"
 1120 gosub1600:iftu=0anda1=int(val(ti$)/100)thengosub1900:tu=1
 1125 iftu=1thenprint"{home}{down}";tab(10);"                    "
 1130 ifa1<>int(val(ti$)/100)thentu=0
 1140 t$=right$(ti$,2):ift$="00"thent$="  "
 1150 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(tb(3)-3);t$
 1160 ift$="  "then1110
 1170 getv$:ifv$="!"thengosub1900
 1180 ifv$="_"thengosub1800
 1190 goto1140
 1300 print"enter time as {rvon}hh:mm{rvof}, where {rvon}hh{rvof}"
 1310 print"is the hour, and {rvon}mm{rvof} is the minute."
 1320 cr$=chr$(13):print"? ";:gosub60000
 1325 ifin$=""thenprint"please type something.{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto1320
 1330 cc=0:fori=1tolen(in$)
 1340 :t$=mid$(in$,i,1):ift$>="0"andt$<="9"then1370
 1350 :ift$=":"thencc=cc+1:cl=i:goto1370
 1360 :print"times don't have ";t$;"'s in them. try again.":goto1320
 1370 nexti
 1380 ifcc>1thenprint"no seconds, please. try again.":goto1320
 1390 iflen(in$)>2andlen(in$)-cc<5then1400
 1395 print"you have too many digits in there.":goto1320
 1400 ifcc=0or(cl>1andcl<len(in$))then1420
 1410 print"you forgot something. try again.":goto1320
 1420 ifcc>0then1450
 1430 cl=len(in$)-2:in$=left$(in$,cl)+":"+right$(in$,2):cc=1:cl=cl+1
 1440 print"{down}you forgot the colon. i'm assuming":print"you meant ";in$;"."
 1450 t$=right$("0"+left$(in$,cl-1),2)+right$("0"+right$(in$,len(in$)-cl),2)
 1460 t=val(left$(t$,2)):ift>0andt<13then1480
 1470 print"this is a 12 hour clock! try again.":goto1320
 1480 t=val(right$(t$,2)):ift<60thenreturn
 1490 print"hours aren't that long. try again.":goto1320
 1600 forp1=1to4:tt=val(mid$(ti$,p1,1)):print"{home}{down}{down}{down}{down}{down}"
 1610 iftt=0andp1=1thengosub450:goto1640
 1620 x=tb(p1)
 1630 ontt+1gosub500,550,600,650,700,750,800,850,900,950
 1640 nextp1
 1650 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}";tab(tb(3)-3);"{rvon}{SHIFT-POUND}{CBM-*}{left}{left}{down}{rvof}{CBM-*}{SHIFT-POUND}{down}{down}{down}{down}{left}{left}{rvon}{SHIFT-POUND}{CBM-*}{left}{left}{down}{rvof}{CBM-*}{SHIFT-POUND}"
 1660 x=0:return
 1700 forb0=1tot
 1710 pokeb,16:pokec,15:forde=1to500:nextde
 1720 pokeb,0:pokec,0:gett$:ift$<>""thenreturn
 1730 forde=1to500:nextde:gett$:ift$<>""thenreturn
 1740 nextb0:return
 1800 z=4:goto1860
 1850 z=val(mid$(ti$,3,2))/15:ifz=0thenz=4
 1855 ifz<>int(z)thenreturn
 1860 sg$=left$("8qmoh@hoqm@qomh@hoqm@",1+5*z):gosub2000
 1870 return
 1900 z$="2gl1pl2gpl1pl2gpl1pl2gl4pl":t$="2pppp4sp2spsp4l":sg$=z$+z$+t$+t$+"<l"
 1910 gosub2000:return
 2000 pokep,0:pokeb,16:pokec,15:pn=-1:tm=0
 2010 ifsg$=""then2150
 2020 nt$=left$(sg$,1):sg$=mid$(sg$,2)
 2030 nt=asc(nt$)-64:ifnt>=0then2100
 2040 dur=5*(nt+16):goto2010
 2100 ifti<tmthen2100
 2105 ifnt=pnthenpokep,0
 2110 pn=nt:pokep,nt(nt)
 2120 tm=ti+dur
 2140 gett$:ift$=""then2010
 2150 ifti<tmthen2150
 2160 pokeb,0:pokep,0:pokec,0
 2170 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #4  clock
 62001 print"{down}copyright (c) 1978  by john fox":gosub60500
 62002 print"{down}features an audible alarm and chimes
 62003 print"{down}after you set the time:
 62004 print"{down}{rght}{rght}press '!' for music
 62006 print"{down}{rght}{rght}press '_' to hear chimes
 62010 print"{down}{rght}{rght}to make it shut up, press any key."
 62200 goto100
  120 print"{clr}{down}{down}{down}{rght}{rght}set correct time by screen editing:
  140 printtab(15)"{down}{down}";left$(ti$,2);" ";mid$(ti$,3,2)
  160 input"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";a$
  180 ti$=left$(a$,2)+right$(a$,2)+"00"
  200 print"{clr}";:poke59468,12:o0=33308:k=4/3
  220 r=11:forth=0to360step30:a=th*~/180
  240 poke(o0+int(k*r*sin(a)+.5)-40*int(r*cos(a)+.5)),35:next
  300 rem
  340 hr=val(left$(ti$,2)):mn=val(mid$(ti$,3,2))
  360 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}       {left}{left}{left}{left}{left}{left}{left}";hr;mn
  380 hr=hr+mn/60
  400 a=hr*~/06:r=7:ch=42:gosub1000
  500 a=mn*~/30:r=9:ch=46:gosub1000
  600 a$=mid$(ti$,5,1)
  620 ifmid$(ti$,5,1)=a$then620
  640 a=hr*~/06:r=7:ch=32:gosub1000
  660 a=mn*~/30:r=9:ch=32:gosub1000
  800 goto300
 1000 rem
 1020 c=cos(a):s=k*sin(a)
 1040 fori=0torstep.5:poke(o0+int(i*s+.5)-40*int(i*c+.5)),ch:next:return
    0 clr:pg$="clone":nm$="29":goto62000
    1 " nick jackiw
    2 " 5806 murrayhill pl.
    3 " pittsburgh, pa 15217
    4 "
    5 " cursor #29, feb, 1982
    6 " copyright(c)1982
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 2-16-82 tz
   20 p1=42:p2=50:p3=41:p4=18:ifffthenp1=52:p2=56:p3=54:p4=50
   21 ifwd=80thenp1=180:p2=184:p3=182:p4=178
   25 pq=1:b$="{home}score:":print"{clr}"b$s8,,"clones:"1:tx=32:aa=58:fs=296:qq=81
   26 print"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":fori=1to21:print"{SHIFT--}"spc(37)"{SHIFT--}":x=rnd(-ti)
   27 next:print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}";:a$="{rvon}     {rvof}:"
   28 print"{home}{down}":fori=1to4:print"{rght}:::::::::::::::::::::::::::::::::::::{SHIFT--}":forj=1to4
   29 print"{SHIFT--}:"a$a$a$a$a$a$"{SHIFT--}":next:next:print"{rght}";:fori=1to37:print":";:next:return
   31 print"{home}";:end
   50 gosub75:x1=x:y1=y:a1=v+x1+y1*wd:pokea,qq
   51 cl=0:gosub60:return
   60 fori=0tocl
   62 gosub75:ifabs(x1-x)<10andabs(y1-y)<12then62
   65 pokea,81:poke848+i,x:poke864+i,y:poke880+i,58:nexti:return
   75 x=int(rnd(1)*38)+1:y=int(rnd(1)*22)+2:a=x+y*wd+v:ifpeek(a)<>58then75
   76 return
  100 s9=4:gosub20:gosub50
  104 w=peek(qp):ifw=17thencl=cl+1:goto109
  105 ifw=p1thend=1:goto110
  106 ifw=p3thend=2:goto110
  107 ifw=p4thend=4:goto110
  108 ifw=p2thend=3:goto110
  109 d=di
  110 x=x1:y=y1:ondgoto111,112,113,114
  111 x=x-1:goto115
  112 x=x+1:goto115
  113 y=y-1:goto115
  114 y=y+1
  115 a=v+x+y*wd:q=peek(a)
  116 ifq=txorq=aathenpokea1,tx:pokea,qq:di=d:ifq=aathens8=s8+5*(cl+1)
  118 ifq=qqthen140
  119 ifq=aaorq=txthenx1=x:y1=y:a1=a:ifq=aathenq1=q1+1:printb$s8:ifq1=fsthen150
  120 ifq<>txandq<>aaandpqthenpq=0:goto109
  121 pq=1:ifrnd(0)<.1then104
  122 k=v+x1+y1*wd:pokek,tx:pokem1+1,x1:pokem1+2,y1:fori=0tocl:pokem1,i:sysm0:next
  123 ifpeek(k)=txthenpokek,qq:goto104
  140 print"{clr}ah!  clones everywhere!":print"they {rvon}always{rvof} get you.":print
  141 geta$:ifa$<>""then141
  142 print"your score was:";s8:print"{down}{down}do you want to play again ({rvon}y{rvof}/{rvon}n{rvof})? ";
  143 geta$:ifa$<>""then143
  144 geta$:ifa$=""then144
  145 ifa$="n"thenend
  146 goto60300
  150 q1=0:cl=cl+1:gosub26:gosub60:print"{home}",,"clones:"cl+1:goto104
 1000 data169,128,141,61,3,162,8
 1001 data10,46,61,3,14,59,3
 1002 data144,8,24,105,40,144,3
 1003 data238,61,3,202,208,236,24
 1004 data109,58,3,141,60,3,144
 1005 data3,238,61,3,96,165,0
 1006 data141,58,3,165,1,141,59
 1007 data3,32,0,26,173,60,3
 1008 data133,0,173,61,3,133,1
 1009 data160,0,165,2,208,5,177
 1010 data0,133,2,96,145,0,96
 1011 data174,62,3,189,80,3,205
 1012 data63,3,240,14,48,6,169
 1013 data0,141,65,3,96,169,1
 1014 data141,65,3,96,174,62,3
 1015 data189,96,3,205,64,3,240
 1016 data14,48,6,169,2,141,65
 1017 data3,96,169,3,141,65,3
 1018 data96,169,255,141,65,3,96
 1019 data174,62,3,189,80,3,133
 1020 data0,189,96,3,133,1,173
 1021 data65,3,208,4,198,0,208
 1022 data25,201,1,208,4,230,0
 1023 data208,17,201,2,208,4,198
 1024 data1,208,9,201,3,208,4
 1025 data230,1,208,1,96,169,0
 1026 data133,2,165,0,141,66,3
 1027 data165,1,141,67,3,169,0
 1028 data133,2,76,40,26,0,169
 1029 data1,141,68,3,32,77,26
 1030 data173,65,3,201,255,208,4
 1031 data206,68,3,96,32,133,26
 1032 data165,2,201,32,240,21,201
 1033 data58,240,17,32,102,26,32
 1034 data133,26,165,2,201,32,240
 1035 data5,201,58,240,1,96,141
 1036 data69,3,174,62,3,189,112
 1037 data3,133,2,189,96,3,133
 1038 data1,189,80,3,133,0,32
 1039 data40,26,174,62,3,173,69
 1040 data3,157,112,3,169,81,133
 1041 data2,173,66,3,157,80,3
 1042 data133,0,173,67,3,157,96
 1043 data3,133,1,76,40,26,-1
 60300 clr:print"{clr}":gosub60400:goto100
 60400 m0=6858:m1=830:v=32768:cr$=chr$(13)
 60401 qp=515:ifpeek(50000)thenqp=151
 60410 wd=40:pokev,96:ifpeek(v+1024)<>96thenwd=80:printchr$(142);
 60415 print"{home}{rght}"chr$(150):ifpeek(32768)=32thenff=1
 60420 sy=6656:q=sy+304:ifpeek(q)=76andpeek(q+1)=40andpeek(q+2)=26then60440
 60425 q=sy:print"{clr}setting up..."
 60430 print20-int((q-sy)/15)"{left} {up}":readx:ifx>=0thenpokeq,x:q=q+1:goto60430
 60440 poke6674,wd:return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by nick jackiw
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}they {rvon}are{rvof} out to get you!
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 getin$:ifin$=""then62090
 62100 goto60300
    1 dima$(18),z$(18),b$(18):yy=1:h=102:mr=h:v=826
   50 print"{clr}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}w{rvon} {CBM-I}{CBM-I} {rvof}g{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
   60 print"{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-V}{rvof}OOO{CBM-K}  {rvon}{CBM-K}{rvof}OOO{rvon}{CBM-C} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} "
   70 print"{CBM-K}     {rvon}{CBM-K}{rvof}OO{rvon}{CBM-D}{CBM-I}{rvof}{CBM-V}  {CBM-C}{rvon}{CBM-I}{CBM-F}{rvof}OO{CBM-K}conser{rvon}{CBM-K}"
   80 print"kitchenOO{CBM-K}ball  {rvon}{CBM-K}{rvof}OO{CBM-K}vatry {rvon}{CBM-K}"
   90 print"{CBM-K}     {rvon}{CBM-K}{rvof}OO{CBM-K}room  {rvon}{CBM-K}{rvof}OO{rvon}{CBM-C}{rvof} {$a0}{$a0}{$a0}{$a0}{$a0}{rvon}{CBM-K}"
  100 print"{CBM-K}     {rvon}{CBM-K}{rvof}OO{CBM-K}      {rvon}{CBM-K}{rvof}OOOO{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}"
  110 print"{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {rvon} {rvof}OO{CBM-K}      {rvon}{CBM-K}{rvof}OOOOOOOOOO"
  120 print"OOOOOOOOO{rvon} {rvof} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}OOOOOOOOOb"
  130 print"{rvon} {rvof}OOOOOOOOOOOOOOOOOO{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} "
  140 print"{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{rvof}OOOO{rvon}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{rvof}O{CBM-G}{$a0}     {rvon}{CBM-K}{rvof}"
  150 print"{CBM-K}    {CBM-C}{rvon}{CBM-I}{CBM-I} {rvof}O{CBM-K}cluedo{rvon}{CBM-K}{rvof}O{CBM-K} pool {rvon}{CBM-K}{rvof}"
  160 print"{CBM-K}dining {rvon}{CBM-K}{rvof}O{rvon}{CBM-D}{rvof}      {rvon}{CBM-F}{rvof}O{CBM-K} room {rvon}{CBM-K}{rvof}"
  170 print"{CBM-K} room   O{CBM-K}  {CBM-@}   {rvon}{CBM-K}{rvof}O{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}"
  180 print"{CBM-K}       {rvon}{CBM-K}{rvof}O{CBM-K} {CBM-M} {CBM-G}  {rvon}{CBM-K}{rvof}OOOOOOOOO"
  190 print"{CBM-K}       {rvon}{CBM-K}{rvof}O{CBM-K}  {CBM-T}   {rvon}{CBM-K}{rvof}OO{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-C}"
  200 print"{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}O{CBM-K}      {rvon}{CBM-K}{rvof}OO{CBM-K} lib-{rvon}{CBM-K}{rvof}"
  210 print"{rvon}{CBM-F}{rvof}OOOOOOOOO{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-V}{rvof}OO{CBM-G} {$a0}{$a0}{$a0}{$a0}{rvon}{CBM-K}{rvof}"
  220 print"yOOOOOOOOOOOOOOOOOOO{CBM-K} rary{rvon}{CBM-K}"
  230 print"{rvon}{CBM-V}{rvof}OOOOOOOOOO{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I} {rvof}OOO{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-D}{rvof}"
  240 print"{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof} {rvon} {rvof}O{CBM-K}     OOOOOOOOOp{$a0}"
  250 print"{CBM-K}        {rvon}{CBM-K}{rvof}O{CBM-K}    {rvon}{CBM-K}{rvof}OO{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {rvof}"
  260 print"{CBM-K}        {rvon}{CBM-K}{rvof}O{CBM-K}    {rvon}{CBM-K}{rvof}OO{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvon}{CBM-K}{rvof}"
  270 print"{CBM-K}        {rvon}{CBM-K}{rvof}O{CBM-K}    {rvon}{CBM-K}{rvof}OO{CBM-K}      {rvon}{CBM-K}"
  280 print"{CBM-K} lounge {rvon}{CBM-K}{rvof}O{CBM-K}hall{rvon}{CBM-K}{rvof}OO{CBM-K}study{$a0}{rvon}{CBM-K}{rvof}"
  290 print"{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}s{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}{rvon}{CBM-F}{rvof}{CBM-I}{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}{home}"
  480 forc=1to3:d=9:ifc<3thend=6
  510 a=int(rnd(ti)*d)+1
  520 forb=1tod:readz$
  540 ifc=1andb=athena$=z$
  550 ifc=2andb=athenb$=z$
  560 ifc=3andb=athenc$=z$
  570 nextb,c:restore:fora=1to18
  610 readz$(a)
  620 ifz$(a)=a$orz$(a)=b$orz$(a)=c$then610
  630 next
  640 fora=1to18
  650 b=int(rnd(ti)*18)+1:ifz$(b)=""then650
  670 a$(a)=z$(b):z$(b)="":next
  700 print"{home}";spc(27);"who do you{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}wish to be"
  720 printtab(27);"1:mrs scarlet":printtab(27);"2:col mustard"
  740 printtab(27);"3:mrs white{down}":printtab(27);"4:rev green{down}"
  760 printtab(27);"5:mrs peacock":printtab(27);"6:prof plum"
  780 gosub10000:ifx$<"1"orx$>"6"then780
  800 b=33074:g=32783:p=33554:s=33738:w=32778:y=33448:x=val(x$)
  870 gosub20000:p1=m:f=r
  885 print"{home}{down}";spc(27);"             "
  886 print"{home}";
  887 fora=1to12:printspc(27);"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}":next
  890 print"{home}";spc(27);"your cards"
  895 printspc(27)"             "
  900 fora=1to17step2
  910 b$((a+1)/2)=a$(a)
  912 print"{home}";:forzv=0to(a+1)/2:print"{down}";:next
  920 printspc(27);right$(str$((a+1)/2),1);a$(a);"{down}":z$((a+1)/2)=a$(a+1):next
  950 ifp1<>sthenx=1:goto980
  960 x=int(rnd(ti)*5)+2:ifval(x$)=xthen960
  980 gosub20000:c1=m:lr=r
 1001 restore:goto50000
 1010 ifp1<>sthen1430
 1021 gosub30000:forn=1tok
 1040 gosub10000
 1045 ifx$="5"and(h=32orh=101)then1075
 1050 if(val(x$)/2)<>int(val(x$)/2)orx$<"1"orx$>"9"then1040
 1060 pokep1,h
 1065 pr=o(val(x$)/2):bb=peek(p1+pr)
 1066 goto7000
 1067 ifbb<>32andbb<>79andbb<>101thenpokep1,f:goto1040
 1068 ifp1+pr>33767orp1+pr<32768thenpokep1,f:goto1040
 1069 p1=p1+pr:h=peek(p1):pokep1,f:ifh=32orh=101then1075
 1071 nextn:goto1430
 1075 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27);"  accusation":gosub10000
 1090 ifx$="n"thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27);"            ":goto1430
 1093 forj=1to2:ifx$<>"y"andj=1then1107
 1094 ifj=2thenprint"{up}"
 1100 gosub10000:ifasc(x$)=13then1150
 1107 ifasc(x$)=20andlen(h$)=1thenh$="":print"{left} {left}";:goto1100
 1110 ifasc(x$)=20andh$<>""thenprint"{left} {left}";:h$=left$(h$,len(h$)-1)
 1115 if(x$<"a"orx$>"z")andx$<>" "then1100
 1120 printtab(27);x$;:h$=h$+x$:ifasc(x$)<>13then1100
 1150 i$=h$
 1160 ifj=1thenp$=h$
 1170 h$="":print:nextj
 1171 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(27)"            "
 1172 printspc(27)"             ":printspc(27)"             "
 1180 rx=0:i=0:p=0:forj=1to18
 1190 ifz$(j)=p$andi<>1andrx<>1thenp=1
 1200 ifz$(j)=i$andp<>1andrx<>1theni=1
 1201 forkk=1to9
 1202 ifp1=rr(kk)thenr$=rr$(kk)
 1206 nextkk
 1209 ifz$(j)=r$andi<>1andp<>1thenrx=1
 1210 ifb$(j)=""ander=0thenu=j:er=1
 1220 next:er=0
 1230 ifrx=0andp=0andi=0then1350
 1240 b$(u)=i$
 1245 ifrx=1thenb$(u)=r$
 1250 ifp=1thenb$(u)=p$
 1260 print"{home}":forn=1tou-1:print"{down}";:next:ifb$(u)=""then1430
 1290 printspc(27);right$(str$(u),2);b$(u)
 1295 ifu=0then1330
 1300 forj=1to15-n
 1310 printspc(27);"          ":print"{up}";:next
 1330 print"{home}";:goto1430
 1350 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(27)"murder check?":gosub10000
 1370 ifx$="n"thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27)"             ":goto1430
 1380 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27)"             {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1390 ifr$<>c$andi$<>b$andp$<>a$then1410
 1395 print"{home}"spc(26)"{rvon}  you win  ";:gosub10000
 1400 run
 1410 print"{home}"spc(26)"{rvon}    i win  ";:gosub10000
 1420 run
 1430 gosub30000:forll=1tok
 1433 ifqe=0thenv=v+1
 1434 ifv=923+yythenv=826+yy
 1435 ifv>923+yythenv=826+yy:goto1021
 1437 jj=peek(v):ifqe=1thenjj=0
 1438 ifjj=2thenjj=40
 1439 ifjj=3thenjj=-1
 1440 ifjj=4thenjj=-40
 1441 ifxx>9thenxx=1
 1443 ifjj=0then1560
 1450 ifpeek(c1+jj)=fand(bb=32orbb=101)thenpokec1+jj,32:goto1545
 1544 ifpeek(c1+jj)<>32andpeek(c1+jj)<>101andpeek(c1+jj)<>79thenjj=0:v=v-1
 1545 pokec1,mr:c1=c1+jj:mr=peek(c1):pokec1,lr
 1546 ifpeek(v+1)=0then1560
 1547 ifpeek(v+2)=0then8000
 1548 qe=0:nextll
 1551 goto1021
 1560 pp=int(rnd(ti)*6)+1:yp=int(rnd(ti)*6)+1
 1610 forll=1to18
 1620 ifz$(ll)=mm$(pp)orz$(ll)=mn$(yp)then1560
 1630 next
 1680 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27);"1";mm$(pp)
 1690 printspc(27);"2";mn$(yp):printspc(27);"3";rr$(xx)
 1710 gosub10000
 1714 if(x$<"1"orx$>"3")andasc(x$)<>13then1710
 1715 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27)"            "
 1716 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27)"            "
 1717 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27)"             "
 1720 ifasc(x$)<>13then1790
 1730 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(27);
 1740 ifa$=mm$(pp)andb$=mn$(yp)andc$=rr$(xx)then1410
 1741 forll=1to18
 1742 ifb$(ll)=mm$(pp)orb$(ll)=mn$(yp)orb$(ll)=rr$(xx)then1745
 1743 next
 1745 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(28);"{rvon} cheat  "
 1746 goto1410
 1790 ifx$<"1"orx$>"3"then1710
 1800 ifx$="1"thenp$=mm$(pp):qe=1
 1810 ifx$="2"thenp$=mn$(yp):qe=1
 1820 ifx$="3"thenp$=rr$(xx):xx=xx+1:qe=0:v=v+1:ifxx>9thenxx=1
 1830 forn=1to18
 1840 ifz$(n)=""thenz$(n)=p$:n=18
 1850 nextn
 1860 goto1021
 1870 datamrs scarlet,col mustard,rev green,mrs white,mrs peacock,prof plum
 1880 datadagger,revolver,rope,candlestick,lead piping,spanner
 1890 datahall,study,library,pool room,conservatry,ballroom,kitchen,dining room
 1900 datalounge,33544,33627,33428,33147,32948,33058,33013,33256,33536
 1910 data40,-1,1,-40
 1920 data1,2,2,1,1,0,3,4,4,4,4,4,1,1,0,3,4,4,4,3,4,4,4,4,1,0,3,4,4,1,1,4,4,4,0,2
 1930 data2,2,3,3,2,3,3,3,3,3,3,3,3,4,0,2,3,3,4,3,3,3,4,0,2,2,1,2,1,1,1,2,2,2,3,0,1
 1935 data2,2,2,2,2,2,3,2,0,4,1,1,4,1,1,1,1,1,1,1,2,2,3,0
 1940 data4,4,4,4,4,4,4,1,1,1,1,1,1,1,2,2,3,0,1,2,1,1,1,1,1,1
 1950 data1,2,0,2,3,3,2,2,2,2,2,2,2,1,1,4,0,2,1,1,2,1,2,2,2,1,1,4,0,3,3,3,3,3
 1960 data3,3,3,2,2,1,0,3,3,3,3,3,3,3,3,3,3,0
 7000 ifbb=lrand(mr=32ormr=101)thenbb=mr:goto1075
 7010 goto1067
 8000 forcc=1to18:ifz$(cc)=rr$(xx)thenv=v+3:xx=xx+1:goto1433
 8010 next
 8020 goto1548
 10000 poke158,0
 10010 getx$:ifx$=""then10010
 10020 return
 20000 ifx=1thenm=s:r=19:uu=0:xx=1
 20010 ifx=2thenm=y:r=25:uu=82:xx=9
 20020 ifx=3thenm=w:r=23:uu=51:xx=6
 20030 ifx=4thenm=g:r=7:uu=35:xx=5
 20040 ifx=5thenm=b:r=2:uu=26:xx=4
 20050 ifx=6thenm=p:r=16:uu=0:xx=1
 20060 return
 30000 k=int(rnd(ti)*6)+1
 30010 poke33301,k+48
 30020 return
 50000 forll=1to6
 50010 readmm$(ll)
 50020 next:forll=1to6:readmn$(ll):next
 50030 forll=1to9
 50040 readrr$(ll)
 50050 next
 50060 forll=1to9
 50070 readrr(ll)
 50080 next:forll=1to4:reado(ll):next
 50090 forll=1to97:readgg:next
 50093 ifx=1then50100
 50094 forll=2tox
 50095 readgg
 50096 ifgg=0then50098
 50097 goto50095
 50098 next
 50100 readgg:pokev+yy,gg:yy=yy+1
 50110 ifgg<>0then50100
 50120 restore:forll=1to34+uu:readgg$:next
 50130 forss=uuto97
 50140 readgg
 50150 pokev+yy+ss-uu,gg
 50160 next
 50170 restore:forll=1to34:readgg$:next
 50180 pokev+yy+ss-uu,0:forll=1touu
 50190 readgg
 50195 ifv+yy-uu+ll>1016thenrestore:goto50000
 50200 pokev+yy+ll-uu+96,gg
 50210 next:goto1010
    2 print"{clr}"
    5 dimx(255),z(255)
   10 print"              ****codes****"
   20 print"                  {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
   25 gosub2000
   30 print"type message"
   40 poke167,0:getq$:ifq$=""then40
   41 ifq$=chr$(20)andlen(a$)=1thena$="":printchr$(20);:goto40
   42 ifa$<>""andq$=chr$(20)thenprintq$;:a$=left$(a$,len(a$)-1):goto40
   43 ifq$=chr$(13)thenpoke167,1:print" ":goto50
   44 ifasc(q$)>95orasc(q$)<32then40
   45 a$=a$+q$:iflen(a$)>254then48
   46 printq$;
   47 goto40
   48 fora=1to20:getw$:next:print"{down}{down}........{down}":goto51
   50 ifa$=""thenprint"{up}{up}":goto40
   51 a=len(a$)
   55 poke167,1
   60 forb=1toa
   65 d$=mid$(a$,b,1)
   66 ifd$=" "thend$="@"
   70 x(b)=asc(d$)
   80 next b
   90 print"{down}{down}{down}"
  115 print"{up}press{CBM-C}c{CBM-V}to code"
  120 geth$:ifh$=""then120
  121 print"{up}                       "
  130 if h$="c"thenx=1:l=int(rnd(ti)*62):goto140
  135 input"type code number: ";k$
  136 l=val(k$):x=-1
  140 forb=1toa
  142 z(b)=x(b)-(l*x)
  143 ifz(b)<32orz(b)>95thenz(b)=z(b)+(63*x)
  153 nextb
  160 print"{clr}coding number is:";l
  161 print"{down}{down}{down}"
  162 print"message is:"
  165 gosub3000
  170 forc=1toa
  175 ifz(c)=64andx=-1thenz(c)=32
  176 ifz(c)=32andx=1thenz(c)=64
  180 printchr$(z(c));
  190 nextc
  200 print
 1000 end
 2000 print"{down}{down}  this program will only code or "
 2010 print"decode the below characters."
 2015 print"{down}{down}"
 2020 fora=32to95:printchr$(a);:next
 2025 print:print:print:print:print
 2030 return
 2999 end
 3000 fore=1tolen(a$)/2step2
 3010 b=len(a$)-e
 3020 c=z(e)
 3030 z(e)=z(b)
 3040 z(b)=c
 3050 nexte
 3060 return
 10000 print"{clr}{down}{down}{down}{down}{down}{down}remember....
 11000 print"{down}{down}you saw it here first!
 12000 print"{down}{down}{down}(when in doubt, press a key.)"
 13000 for i=1 to 2000:next i
 14000 read l$,l:cr=l>0:l=abs(l)
 15000 if l=0 then restore:goto 14000
 16000 for i=1 to l
 17000 read p$(i):next i
 18000 print"{clr}### commodore ";l$;" ###{down}"
 19000 print int(rnd(1)*32768)+32768;"bytes free{down}"
 20000 if l<2 then 22000
 21000 for i=1 to l-1:printp$(i):next i
 22000 print p$(l);:if cr then print
 23000 tm=0:z=1
 24000 gett$:ift$<>""then14000
 25000 ifti<tmthen24000
 26000 printmid$("{rvon}{rvof}",z,1);" {left}";
 27000 z=3-z:tm=ti+15:goto25000
 28000 data lisp,1,"(ready . nil)"
 29000 data pascal,1,"type ready=(later,never);"
 30000 data apl,1,"{CBM-M}P{left}{down}{CBM-T}{up}_+Nready"
 31000 data c,1,"int *(*ready)();"
 32000 data cobol,3
 33000 data "source-computer pet2001.","object-computer pet2001.","ready?"
 34000 data snobol,1,"ready   ready ' ' =      :s(ready)"
 35000 data fortran,1,"c  ready."
 36000 data trac(tm),1,"##(cs,ready)"
 37000 data pl/i,1,"dcl ready fixed bin(23) ctl;"
 38000 data pilot,1,"ty: ready"
 39000 data 6502,-5,"reADY{CBM-S}"
 40000 data"b*
 41000 data"     pc  irq  sr ac xr yr sp
 42000 data".;  0401 e62e 32 04 5e 00 f8
 43000 data".
 44000 data ,0
    0 clr:pg$="compare":nm$="22":goto62000
    1 " glen fisher
    4 "
    5 " cursor #22, sep 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of oct 10 80
  100 dimeof(3):nu$=chr$(0)
  110 v$=chr$(1)+chr$(4):bl$="               "
  120 hy$="---------------------------------------"
  130 ol=-1
  140 dimtk$(128)
  150 fori=0to74:readtk$(i):nexti
  160 print"do you have a printer? ";:gosub60000:pr=(left$(in$,1)="y")
  170 open15,8,15
  180 print"{down}compare what file...";:gosub60000
  190 ifin$=""then660
  200 of$=in$:open1,8,2,"0:"+of$+",p"
  210 gosub1070:iferthenclose1:goto180
  220 n=1:gosub920:t$=nm$
  230 ift$<>v$thenprint"{down}";of$;" isn't a basic file.":close1:goto180
  240 print"{down}with what file? ";:gosub60000
  250 nf$=in$:open2,8,3,"0:"+nf$+",p"
  260 gosub1070:iferthenclose2:goto240
  270 n=2:gosub920:u$=nm$
  280 ifu$<>v$thenprint"{down}";nf$;" isn't a basic file.":close2:goto240
  290 ifprthenopen4,4:goto310
  300 open4,3
  310 n=1:gosub860:l1=ln:s1$=in$
  320 n=2:gosub860:l2=ln:s2$=in$
  330 printl1;"{left} :";l2;"{up}":ifprthen380
  340 gett$:ift$=""then380
  350 printtab(len(bl$));"{rvon}press a key{up}"
  360 gett$:ift$=""then360
  370 printtab(len(bl$));bl$;"{up}
  380 on2+sgn(l1-l2)goto400,450,570
  400 tt$="-"
  410 ln=l1:s$=s1$:gosub740
  420 n=1:gosub860:ifeofthen620
  430 l1=ln:s1$=in$:goto330
  450 ifs1$=s2$then500
  460 tt$="-"
  470 ln=l1:s$=s1$:gosub740
  480 tt$="+"
  490 ln=l2:s$=s2$:gosub740
  500 d=0
  510 n=1:gosub860:ifeofthend=d+1
  520 l1=ln:s1$=in$
  530 n=2:gosub860:ifeofthend=d+2
  540 l2=ln:s2$=in$
  550 ond+1goto330,620,610,660
  570 tt$="+"
  580 ln=l2:s$=s2$:gosub740
  590 n=2:gosub860:ifeofthen610
  600 l2=ln:s2$=in$:goto330
  610 n=1:in$=s1$:ln=l1:goto630
  620 n=2:in$=s2$:ln=l2:goto630
  630 tt$=mid$("-+",n,1)
  640 s$=in$:gosub740
  650 gosub860:ifeof=0then640
  660 print
  670 ifol<0thenprint"{down}no differences."
  680 ifol>=0thenprint#4,hy$:print#4,"- ";of$;"    + ";nf$
  690 close4
  700 close2
  710 close1
  720 close15
  730 end
  740 ifol<0thenprint#4,bl$:print#4,"- ";of$;"    + ";nf$
  750 ifol<0thenprint#4,hy$
  760 ifol>0andol<>lnthenprint#4,bl$
  770 ol=ln:qt=0:print#4,tt$;ln;:fori=1tolen(s$)
  780 t=asc(mid$(s$,i,1))
  790 ift=34thenqt=1-qt
  800 ift<128orqtthenprint#4,chr$(t);:goto830
  810 ift>127thenprint#4,tk$(t-128);
  820 ift=131ort=143thenprint#4,mid$(s$,i+1);:goto840
  830 nexti
  840 ifpr=0thenifpos(0)<len(bl$)thenprint#4,bl$;
  850 print#4:return
  860 gosub960:t$=c$:gosub960:lk=asc(t$)+asc(c$)*256
  870 iflk=0theneof=1:eof(n)=eof:return
  880 gosub960:t$=c$:gosub960
  890 in$=t$+c$:ln=asc(t$)+256*asc(c$):in$=""
  900 gosub960:ifc$<>nu$thenin$=in$+c$:goto900
  910 return
  920 gosub960:ifeofthennm=-1:nm$="":return
  930 nm$=c$:gosub960
  940 nm=asc(nm$)+asc(c$)*256:nm$=nm$+c$
  950 return
  960 eof=eof(n):ifeof=0thenget#n,c$:ifsttheneof=1:eof(n)=eof
  970 ifeoforc$=""thenc$=nu$
  980 return
  990 dataend,for,next,data,input#,input,dim,read
 1000 datalet,goto,run,if,restore,gosub,return,rem
 1010 datastop,on,wait,load,save,verify,def,poke
 1020 dataprint#,print,cont,list,clr,cmd,sys,open
 1030 dataclose,get,new,tab(,to,fn,spc(,then
 1040 datanot,step,+,-,*,/,^,and,or,>,=,<,sgn,int,abs,usr
 1050 datafre,pos,sqr,rnd,log,exp,cos,sin
 1060 datatan,atn,peek,len,str$,val,asc,chr$,left$,right$,mid$,go
 1070 input#15,er,er$,tk,sc
 1080 ifer<=1thenreturn
 1090 ifer=62thener$="no such file on disk"
 1100 print"{down}";er$
 1110 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"CCCC";:nexti:return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by glen fisher
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 gosub60500
 62030 print"{down}find differences between programs
 62035 print"{down}(requires disk)
 62050 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62060 gett$:ift$=""then62060
 62070 goto60300
   10 rem personal computer space trans-
   20 rem actor 2001; vers. 1.1, 2017
   30 sys 1109
  100 h5=0:print"{clr}{down}{down}{down}concorde landing simulation":print"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}
  110 print"{down}{down}{down}{down}{down}{down}{down}{down}do you require instructions (y-n)"
  120 gosub1880:print"{clr}":ifa$="y"thengosub1320
  130 poke59409,228:fork=32928to33647:pokek,102:next:poke59409,60
  140 c3=int(60*rnd(1))+1:c3=c3+240:a=33145:z=32:x=46:h=40000:s=1064:r=49000:y=2
  150 p=20:p1=39:p2=41:goto190
  160 ifh5=1thena=33145:p=20:p1=39:p2=41
  170 t(1)=(ti-t)/50:y=y+int(s/125):ify(1)=1thenh=h+int(t(1)*y):goto190
  180 h=h-int(t(1)*y)
  190 t=ti:r=r-int(s/6.2):ifh5=0thengosub1760
  200 ifs1=4thens=s+2:ifh5=0thens=s+3
  210 ifs1=3thens=s+1:ifh5=0thens=s+1
  220 ifs1=2thens=s-1:ifh5=0thens=s-1
  230 ifs1=1thens=s-2:ifh5=0thens=s-3
  240 ifh<1thenh=0
  250 ifh5=0ands<420thenprinttab(12)"{down}{down}{rvon} droop snoot {rvof}{up}{up}{up}
  260 ifh<1000thenprinttab(2)"{down}       {up}{up}{up}
  270 ifr<10000thenprinttab(28)"{down}         {up}{up}{up}"
  271 gosub1050:ifh5=0then360
  280 ifs<180thenprinttab(12)"{down}{down}{rvon}danger-speed low{up}{up}{up}
  290 ifh<2andu=0andr<0thenprint"{down}{down}{rvon}*crashed* no undercarriage":end
  300 ifr<20000andh<6000andu=0thenprint"{down}{down}{rvon}undercarriage{up}{up}{up}":fork=1to15:next
  310 ifh<1andr>2thenprint"{down}{down}{rvon}*crashed* "r"metres short of runway":end
  320 ifs>215andh<3thenprint"{down}{down}{rvon}*crashed* speed too great for landing":end
  330 ifs>200andh<2andr<0thenprint"{down}{down}{rvon}heavy landing":end
  340 ifh<1andr<1thenprinttab(8);"{down}{down}**** safe landing ****":end
  350 ifr<-750thenprint"{down}{down}{rvon}  *  over-shot runway  *  ":end
  360 ifh<10000thenprinttab(7)"{down} {up}{up}
  370 ifh<1thenh=0
  380 print"{down}{down}                                   {up}{up}{up}{up}"
  390 ifs<160thenprinttab(12);"{down}{rvon}stalled *crashed*":end
  400 v=v+1:ifv=6thenv=0:goto420
  410 geta$:ifa$=""then170
  420 ifh5=0then490
  430 pokea,z:pokea1,z:pokeb,z:pokeb1,z:ifr>25000then490
  440 pokec,z:pokec1,z:ifr>21000then490
  450 poked,z:poked1,z:ifr>18000then490
  460 pokee,z:pokee1,z:ifr>16000then490
  470 pokef,z:pokef1,z:ifr>14000then490
  480 pokeg,z:pokeg1,z
  490 ifa$="/"thens1=4
  500 ifa$="*"thens1=3
  510 ifa$="5"thens1=0
  520 ifa$="+"thens1=2
  530 ifa$="="thens1=1
  540 ifa$="u"thenu=1
  550 ifa$="s"thengoto1730
  560 ifa$="1"ora$="4"ora$="7"thena=a+1:p=p+1:c3=c3-1
  570 ifa$="3"ora$="6"ora$="9"thena=a-1:p=p-1:c3=c3+1
  580 ifa$="1"ora$="2"ora$="3"thena=a+40:gosub1160
  590 ifa$="7"ora$="8"ora$="9"thena=a-40:gosub 1160
  600 ifr<2000thenp1=36:p2=44:goto690
  610 ifr<1000thenp1=35:p2=45:goto790
  620 ifp>17andp<23thenp1=39:p2=41:goto690
  630 ifp>24thenp2=42
  640 ifp>28thenp2=43:p1=40
  650 ifp>32thenp2=44:p1=41
  660 ifp<16thenp1=38
  670 ifp<12thenp1=37:p2=40
  680 ifp<8thenp1=36:p2=39
  690 j=int(12*rnd(1))+1:ifj=1orj=2thena=a+1:p=p+1
  700 ifj=3orj=4thena=a-1:p=p-1
  710 ifj=5thena=a+40
  720 ifj=6thena=a-40
  730 ifj=7thens=s-2
  740 ifj=8thens=s+2
  750 ifj=9thenc3=c3+1
  760 ifj=10thenc3=c3-1
  770 ifr<2000then790
  780 a1=a+1
  790 ifr<12000thena1=a+2
  800 ifr<1400thenx=123
  810 ifr<800thenx=81
  820 ifr>22000thenb=a+40:b1=a1+40:c=b+40:c1=b1+40:goto850
  830 b=a+p1:b1=a1+p2:c=b+p1:c1=b1+p2:d=c+p1:d1=c1+p2:e=d+p1:e1=d1+p2
  840 f=e+p1:f1=e1+p2:g=f+p1:g1=f1+p2
  850 ifh5=0then170
  860 pokea,x:pokea1,x:pokeb,x:pokeb1,x:ifr>25000then1040
  870 pokec,x:pokec1,x:ifr>21000then1040
  880 ifr>21000then1040
  890 ifr<2000andp>25thenpoked,x:goto1040
  900 ifr<2000andp<15thenpoked1,x:goto1040
  910 ifp<31thenpoked1,x
  920 ifp>9thenpoked,x
  930 ifr>18000then1040
  940 ifr<2000andp>22thenpokee,x:goto1040
  950 ifr<2000andp<19thenpokee1,x:goto1040
  960 ifp>11thenpokee,x
  970 ifp<29thenpokee1,x
  980 ifr>16000orr<2000then1040
  990 ifp>13thenpokef,x
 1000 ifp<27thenpokef1,x
 1010 ifr>14000then1040
 1020 ifp>16thenpokeg,x
 1030 ifp<25thenpokeg1,x
 1040 a3=32897:b3=32918:goto190
 1050 ifh5=1then1110
 1060 ifh<1thenprint"{down}{rvon} * crashed at mach"s6:end
 1070 s6=s/608:r1=int(r/1609):s6=int(s6*10^2+0.5)/10^2
 1080 printtab(2)"height"tab(13)"speed-mach"tab(28)"miles to go
 1090 printtab(2)htab(15)s6tab(30)r1"{up}{up}{up}":ifs<609thenprinttab(19)"{down}   {up}{up}{up}
 1100 return
 1110 ifr<1then1140
 1120 printtab(2)"height"tab(12)"speed-knots."tab(26)"metres to go
 1130 printtab(2)htab(16)stab(30)r"{up}{up}{up}":return
 1140 printtab(2)"height"tab(12)"speed-knots."tab(26)"metres to go
 1150 printtab(2)htab(16)stab(30)"{rvon}"r"{rvof}{up}{up}{up}":return
 1160 y(1)=0:w=33025:ifa<wtheny=105:return
 1170 ifa<w+40theny=75:return
 1180 ifa<w+80theny=50:return
 1190 ifa<w+120theny=30:return
 1200 ifa<w+160theny=15:return
 1210 ifa<w+200theny=9:return
 1220 ifa<w+240theny=4:return
 1230 ifa<w+280theny=1:return
 1240 y(1)=1:ifa<w+320theny=1:return
 1250 ifa<w+360theny=2:return
 1260 ifa<w+400theny=3:return
 1270 ifa<w+440theny=4:return
 1280 ifa<w+480theny=5:return
 1290 ifa<w+520theny=4:return
 1300 ifa<w+560theny=2:return
 1310 y=1:return
 1320 poke59468,14:print"{down}tHE{$a0}SIMULATION{$a0}IS{$a0}IN{$a0}REAL{$a0}TIME.
 1330 print"{down}iT{$a0}COMMENCES{$a0}AT{$a0}AN{$a0}ALTITUDE{$a0}OF{$a0}40000FT
 1340 print"35 MILES{$a0}FROM{$a0}THE{$a0}AIRPORT{$a0}WITH{$a0}AN{$a0}AIR-
 1350 print"SPEED{$a0}OF{$a0}mach 1.75
 1360 print"{down}tHE{$a0}SNOOT{$a0}IS{$a0}UP{$a0}AND{$a0}SHOULD{$a0}BE{$a0}DROOPED
 1370 print"AT{$a0}ABOUT{$a0}mach .65, YOU{$a0}WILL{$a0}THEN{$a0}SEE
 1380 print"THE{$a0}RUNWAY{$a0}LIGHTS{$a0}IN{$a0}THE{$a0}DISTANCE
 1390 print"{down}gROUND{$a0}CONTROL{$a0}INSTRUCTIONS WILL{$a0}BE":print"DISPLAYED.":gosub1870
 1400 print"{clr}{down}{down}{down}tHE{$a0}CONTROLS{$a0}ARE{$a0}THE{$a0}NORMAL{$a0}FLYING
 1410 print"CONFIGURATION{$a0}AND{$a0}ARE{$a0}SHOWN{$a0}ON{$a0}THE":print"NEXT{$a0}PAGE.
 1420 print"{down}pRESSING{$a0}LEFT{$a0}TURNS{$a0}THE{$a0}AIRCRAFT{$a0}TO{$a0}THE
 1430 print"LEFT. pUSHING{$a0}FORWARD{$a0}WILL{$a0}PUT{$a0}THE
 1440 print"NOSE{$a0}DOWN{$a0}AND{$a0}HEIGHT{$a0}WILL{$a0}BE{$a0}LOST, ETC.":gosub1870
 1450 poke59468,12:print"{clr}{down}         nose down
 1460 print"            {SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}":print"           {CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}
 1470 print"          N{SHIFT--}7{SHIFT--}8{SHIFT--}9{SHIFT--}/{SHIFT--}M":print"           {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W} throttle
 1480 print"   bank   {SHIFT-*}{SHIFT--}4{SHIFT--}5{SHIFT--}6{SHIFT--}*{SHIFT--}N{$a0}{$a0}open":print"   left    {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
 1490 print"          M{SHIFT--}1{SHIFT--}2{SHIFT--}3{SHIFT--}+{SHIFT--}M":print"           {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W} throttle
 1500 print"            {SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{SHIFT--}={SHIFT--}N close
 1510 print"          nose up     press 5":print"                      to
 1520 print"                      maintain":print"                      speed
 1530 print"{down}   9, 6 & 3 for bank right
 1540 print"{down} for example '7' will combine":print" nose down with a bank left.
 1550 gosub1870:poke59468,14:print"{clr}{down}tHERE{$a0}ARE{$a0}TWO{$a0}OTHER{$a0}CONTROLS:
 1560 print"{down} pRESS{$a0}'u' TO{$a0}LOWER{$a0}UNDERCARRIAGE.
 1570 print" pRESS{$a0}'s' TO{$a0}DROOP{$a0}THE{$a0}SNOOT.":print"{down}oTHER{$a0}INFORMATION :
 1580 print"bEING{$a0}A{$a0}DELTA, CONCORDE{$a0}WILL{$a0}NOT
 1590 print"ACTUALLY{$a0}STALL{$a0}AND{$a0}CAN{$a0}FLY{$a0}AT{$a0}119 KNOTS
 1600 print"BUT{$a0}ON{$a0}THE{$a0}APPROACH{$a0}SPEED{$a0}SHOULD{$a0}NOT":print"DROP{$a0}BELOW{$a0}180 KNOTS.
 1610 print"{down}landing speed IS{$a0}APPROXIMATELY 190 kN.
 1620 print"dON'T{$a0}FORGET{$a0}TO{$a0}LAND{$a0}IN{$a0}THE{$a0}CENTRE{$a0}OF":print"THE{$a0}RUNWAY.{down}
 1630 print"tHE{$a0}SPEED, DIRECTION{$a0}AND{$a0}ALTITUDE{$a0}WILL
 1640 print"DRIFT{$a0}RANDOMLY, SO{$a0}BE{$a0}READY{$a0}TO{$a0}CORRECT.{down}
 1650 print"tHE{$a0}AIRCRAFT{$a0}MUST{$a0}TOUCHDOWN{$a0}IN{$a0}THE
 1660 print"FIRST{$a0}750 METRES{$a0}OF{$a0}THE{$a0}RUNWAY.
 1670 gosub1870:print"{clr}{down}{down}if you would like the instructions
 1680 print"{down}again press 'a' - any other key will
 1690 print"{down}start flight after a 5 sec delay{down}{down}
 1700 print"               break a leg !":gosub1870:poke59468,12:print"{clr}"
 1710 ifa$="a"then1320
 1720 return
 1730 a6=32888:b6=32927:forj=1to19:fork=0to20:pokea6+k,32:pokeb6-k,32:next
 1740 a6=a6+40:b6=b6+40:next:h5=1
 1750 print"                                       {up}{up}":goto160
 1760 h6=33143:ifc3<0thenc3=360
 1770 ifc3>360thenc3=0
 1780 ifc3=0orc3=10orc3=100thenprint"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(17)"    {home}
 1790 pokeh6,3:pokeh6+1,15:pokeh6+2,13:pokeh6+3,16:pokeh6+4,1:pokeh6+5,19
 1800 pokeh6+6,19:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(15)" "c3" {home}":pokeh6+85,32:ifc4=1then1860
 1810 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(5)"ground control instructions:
 1820 printtab(5)"{down}    turn to bearing 270     "
 1830 printtab(5)"  reduce height to 12000ft  "
 1840 printtab(5)"  reduce speed to mach .70  "
 1850 print"{home}"
 1860 return
 1870 print"{down}{down}         press a key to continue
 1880 geta$:ifa$=""then1880
 1890 return
   10 if peek(50000)=46thenpk=1:rem 8032 pet
   15 ifpkthenprintchr$(142);"{clr}";:poke226,19:poke213,58:goto20
   17 poke59468,12
   20 print"{clr}";:vt%=8:ht%=9:gosub3300:print"conflict 2500";:vt%=10:ht%=2:gosub3300
   30 print"an avalon hill microcomputer game";:vt%=12:ht%=9:gosub3300
   40 print"copyright 1981";:ht%=10:vt%=15:gosub3300
   50 gosub3240:gosub910
   60 input"instructions? y/n";b$:ifb$="y"thengosub540
   70 md=2:om=md:gosub840:gosub1110
   80 if rs%(nu,2)<0 then nu=nu+1:goto170
   90 if md=3 then 130
   95 if om=md and nw=nu then 140
  100 on md goto 110,120,130
  110 gosub 660:goto 140
  120 gosub 1860:goto 140
  130 gosub 2050
  140 ifmd=3then150
  145 vt%=21:ht%=1:x=nu:gosub3300:gosub3350:ht%=1:gosub3300:print"{rvon}";:gosub3020:print"{rvof}";
  150 vt%=22:ht%=1:x=nu:gosub 3300
  160 om=md:nw=nu:gosub 3140
  170 if nu>n3 then nu=0:goto 190
  180 goto 80
  190 if rs%(nu,2)<0 then nu=nu+1:goto 190
  200 gosub 840:gosub 1110:gosub 1460
  210 z=0:forx=0ton2:if es%(x,2)>0 then z=z+1
  220 next x:vt%=22:ht%=1:gosub3300:print z;" ";oc$(2);"s remaining";
  230 vt%=23:ht%=1:gosub3300:print"to end enter q..else hit return only"
  235 geta$:ifa$=""then235
  238 ifa$="q"then330
  240 f3=0:tu=tu+1
  250 forx=0ton2:ifes%(x,2)>0thenf3=1
  260 nextx
  270 if f3=0then330
  280 f3=0:forx=0ton3:ifrs%(x,2)>0thenf3=1
  300 nextx
  310 if f3=0 then 330
  320 md=2:om=2:print"{clr}";:gosub840:ht%=1:vt%=21:gosub3300:x=fre(0):goto80
  330 nl=0:el=0:print"{clr}";:
  340 print"game lasted ";tu;" turns"
  350 forx=0ton3:print"ship #";x;" destroyed ";vs%(x,2);" ";oc$(2);"s and";:
  360 if rs%(x,2)>0 then print" survived"
  370 if rs%(x,2)<0 then print" was destroyed"
  380 print"-------------------------------------":nextx
  390 forx=0ton3:ifrs%(x,2)>0thennl=nl+1
  400 nextx
  410 forx=0ton2:ifes%(x,2)>0thenel=el+1
  420 nextx
  430 nl=int(100*(nl/(n3+1))):el=int(100*(el/(n2+1)))
  440 printnl;"% of your fleet remains":printel;"% of my fleet remains"
  450 forx=0ton1:ifrb%(x,2)>0thensl=sl+1
  460 nextx
  470 forx=0ton5:ifhp%(x,2)>0thenhl=hl+1
  480 nextx
  490 printint(100*(sl/(n1+1)));"% of your bases remain..."
  495 printint(100*(hl/(n5+1)));"% of your planets remain"
  500 ifnl>elthenifsl>0orhl>0thenprint"you saved the universe":goto520
  510 print"you lose"
  520 input"try another game?y/n";a$:ifa$="y"thenrun
  530 print"{home}{home}{clr}":end
  540 rx=19:ry=10:rem instructions
  550 print"{clr}";:vt%=10:ht%=1:gosub3300
  560 print"here are tactical images":print"of the ships and objects..."
  570 print"hit return to continue"
  575 geta$:ifa$=""ora$<>chr$(13)then575
  580 forty=1to5:print"{clr}":vt%=21:ht%=1:gosub3300
  590 print"tactical image of a ";oc$(ty)
  600 gosub 730:forde=1to1000:nextde:nextty:gosub660
  610 vt%=21:ht%=1:gosub3300:print"tactical display is 2000 x 1600 in megameters"
  620 print"directions are 0 deg up,90 right,180 down,270 left";
  625 print"this is used for firing and course settings";
  630 forde=1to2000:nextde:gosub840
  640 vt%=21:ht%=1:gosub3300:print"each sector is a 1000x1000 square":print"good luck"
  650 forde=1to1000:nextde:return
  660 print"{clr}";:forx=1to40:printchr$(183);:nextx
  670 vt%=20:ht%=0:gosub3300:forx=1to40:printchr$(175);:nextx
  680 forx=1to20:vt%=x:ht%=1:gosub3300:printchr$(182);:nextx
  685 forx=1to20:vt%=x:ht%=40:gosub3300
  690 printchr$(181);:nextx
  700 forx=-6to6:vt%=x+10:ht%=x+19:gosub3300:print"\";:vt%=10-x
  705 gosub3300:print"/";:nextx:vt%=10:ht%=19:gosub3300:printchr$(214);
  710 gosub1650:return
  730 rem draw shapes with ri%(ty,10,2)
  750 forw=1to10
  760 ht%=rx+ri%(ty,w,1):vt%=ry+ri%(ty,w,2)
  770 ifht%>40then820
  780 ifvt%>20then820
  790 ifht%<1then820
  800 ifvt%<1then820
  810 gosub3300:printchr$(166);
  820 nextw
  830 return
  840 print"{clr}";:rem galatic display
  850 vt%=1:ht%=9:gosub3300:print"{rvon}galactic map--conflict 2500{rvof}"
  860 vt%=2:forx=1to40:ht%=x:gosub3300:print"-";:nextx
  870 vt%=3:forx=1to13:ht%=(x*3)-1:gosub3300:printchr$(64+x);:nextx
  880 forx=1to9:ht%=1:vt%=2+x*2:gosub3300:printchr$(x+48);:nextx
  890 gosub1860
  900 ht%=1:vt%=22:return
  910 rem dim's and strings
  920 def fna(x)=int(20000/(10+((x/10)^2)))
  930 dim ri%(5,10,2)
  940 forx=1to5:fory=1to10:readri%(x,y,1):readri%(x,y,2):nexty:nextx
  950 data 2,0,1,1,3,1,0,2,1,2,3,2,4,2,1,3,3,3,2,4
  960 data 0,0,1,1,2,2,3,3,1,2,0,3,1,4,2,4,1,5,0,5
  970 data 0,0,0,1,0,3,0,4,1,2,2,2,3,2,4,1,4,3,5,2
  980 data 0,0,1,1,2,2,3,3,4,4,5,5,4,1,3,2,2,3,1,4
  990 data 1,0,2,0,0,1,3,1,0,2,3,2,0,3,3,3,1,4,2,4
 1000 dimgm$(13,9)
 1010 dimrs%(n3,2):dimrb%(n1,2):dimes%(n2,2):dimhp%(n5,2):dimmi%(n4,2)
 1020 dimoc$(5):oc$(1)="space base"
 1030 oc$(2)="planet pulverizer":oc$(3)="hyper-fighter"
 1035 oc$(4)="annhilation mine":oc$(5)="home planet"
 1040 dim vs%(n3,2)
 1050 forx=0ton2:es%(x,0)=(1000+rnd(1)*13000):es%(x,1)=(1000+rnd(1)*8999)
 1055 es%(x,2)=10000+rnd(1)*20000:nextx
 1060 forx=0ton3:rs%(x,0)=(1000+rnd(1)*13000):rs%(x,1)=(1000+rnd(1)*9000)
 1065 rs%(x,2)=10000+rnd(1)*20000:nextx
 1070 forx=0ton1:rb%(x,0)=(1000+rnd(1)*13000):rb%(x,1)=(1000+rnd(1)*9000)
 1075 rb%(x,2)=30000:nextx
 1080 forx=0ton5:hp%(x,0)=(1000+rnd(1)*13000):hp%(x,1)=(1000+rnd(1)*9000)
 1085 hp%(x,2)=30000:nextx
 1090 dimve%(n2,2)
 1100 sp=2:bp=1:pp=5:return
 1110 rem movement of enemy ships
 1120 forax=0ton2:x=ax:p=0:ifes%(ax,2)<0then1280
 1130 fory=0ton3:ifrs%(y,2)<0then1150
 1140 pn=sp/(abs(es%(x,0)-rs%(y,0))+abs(es%(x,1)-rs%(y,1)))
 1145 ifpn>pthendx=rs%(y,0):dy=rs%(y,1):p=pn
 1150 nexty
 1160 fory=0ton5:ifhp%(y,2)<0then1180
 1170 pn=pp/(abs(es%(ax,0)-hp%(y,0))+abs(es%(ax,1)-hp%(y,1)))
 1175 ifpn>pthendx=hp%(y,0):dy=hp%(y,1):p=pn
 1180 nexty
 1190 fory=0ton1:ifrb%(y,2)<0then1210
 1200 pn=bp/(abs(es%(ax,0)-rb%(y,0))+abs(es%(ax,1)-rb%(y,1)))
 1210 nexty
 1220 dr=((es%(x,0)-dx)^2+(es%(x,1)-dy)^2)^.5
 1230 rd=dr
 1240 ifrd<(500+1500*rnd(1))thengosub1300
 1250 ve%(ax,0)=(dx-es%(x,0))/(rd^.5)
 1260 ve%(ax,1)=(dy-es%(x,1))/(rd^.5)
 1270 ve%(x,0)=5*ve%(x,0):ve%(x,1)=5*ve%(x,1)
 1280 nextax
 1290 return
 1300 ht%=1:vt%=21:gosub3300:gosub3350:gosub3300:rem en fire
 1310 ifrd<200thenrd=200
 1320 wx=int(dx/1000):wy=int(dy/1000):ht%=(wx*3)-1:vt%=(wy*2)+2:gosub3300
 1325 print"{rvon}";gm$(wx,wy);"{rvof}";:ht%=1:vt%=21:gosub3300
 1340 sn$=chr$(int(dx/1000)+64)+chr$(int(dy/1000)+48)
 1350 forz=0ton3:ifrs%(z,0)=dxandrs%(z,1)=dythensn=z:goto1420
 1360 nextz
 1370 forz=0ton5:ifhp%(z,0)=dxandhp%(z,1)=dythen1375
 1372 goto 1380
 1375 sn=z:hp%(z,2)=hp%(z,2)-(500*rnd(1))*fna(rd)
 1377 print"{rvon}";oc$(5);" under attack sector ";sn$;"{rvof}"
 1378 ifhp%(z,2)<0thenprint"{rvon}destroyed by ";oc$(2);"{rvof}"
 1380 nextz
 1390 forz=0ton1:ifrb%(z,0)=dxandrb%(z,1)=dythen1395
 1392 goto1400
 1395 sn=z:rb%(z,2)=rb%(z,2)-(500*rnd(1))*fna(rd)
 1397 print"{rvon}";oc$(1);" under attack sector ";sn$;"{rvof}"
 1398 ifrb%(z,2)<0thenprint"{rvon}destroyed by ";oc$(2);"{rvof}"
 1400 nextz
 1410 goto1450
 1420 rs%(sn,2)=rs%(sn,2)-(500*rnd(1))*fna(rd)
 1430 print"{rvon}";oc$(3);"#";sn;" taking fire sector ";sn$;"{rvof}"
 1440 ifrs%(sn,2)<0thenprint"{rvon}";oc$(3);" destroyed by ";oc$(2);"{rvof}"
 1450 x=ax:return
 1460 rem ship movement
 1470 forz=0ton2:ifes%(z,2)<0then1550
 1480 es%(z,0)=es%(z,0)+ve%(z,0)
 1490 es%(z,1)=es%(z,1)+ve%(z,1)
 1500 ifes%(z,2)<15000thenes%(z,2)=es%(z,2)*1.3
 1510 ifes%(z,0)<1000thenes%(z,0)=1000
 1520 ifes%(z,1)<1000thenes%(z,1)=1000
 1530 ifes%(z,0)>13999thenes%(z,0)=13999
 1540 ifes%(z,1)>8999thenes%(z,1)=8999
 1550 nextz
 1560 forz=0ton3:ifrs%(z,2)<0then1630
 1570 rs%(z,0)=rs%(z,0)+vs%(z,0):rs%(z,1)=rs%(z,1)+vs%(z,1)
 1580 ifrs%(z,0)>13999thenrs%(z,0)=13700:vs%(z,0)=0
 1590 ifrs%(z,1)>9000thenrs%(z,1)=9000:vs%(z,1)=0
 1600 ifrs%(z,0)<1000thenrs%(z,0)=1100:vs%(z,0)=0
 1610 ifrs%(z,1)<1000thenrs%(z,1)=1100:vs%(z,1)=0
 1620 rs%(z,2)=rs%(z,2)-(abs(vs%(z,0))+abs(vs%(z,1)))
 1630 nextz
 1640 gosub2120:return
 1650 rem scanner
 1660 forx=0ton1:rd=abs(rb%(x,0)-rs%(nu,0))+abs(rb%(x,1)-rs%(nu,1))
 1665 ifrd<2000andrb%(x,2)>0then1780
 1670 nextx
 1680 forx=0ton2:rd=abs(es%(x,0)-rs%(nu,0))+abs(es%(x,1)-rs%(nu,1))
 1685 ifrd<2000andes%(x,2)>0then1790
 1690 nextx
 1700 forx=0ton3:ifx=nuorrs%(x,2)<0then1720
 1710 rd=abs(rs%(x,0)-rs%(nu,0))+abs(rs%(x,1)-rs%(nu,1)):ifrd<2000then1800
 1720 nextx
 1730 forx=0ton4:rd=abs(mi%(x,0)-rs%(nu,0))+abs(mi%(x,1)-rs%(nu,1))
 1735 ifrd<2000andmi%(x,2)>0then1810
 1740 nextx
 1750 forx=0ton5:rd=abs(hp%(x,0)-rs%(nu,0))+abs(hp%(x,1)-rs%(nu,1))
 1755 ifrd<2000andhp%(x,2)>0then1820
 1760 nextx
 1770 goto1830
 1780 sn=x:xx=rb%(sn,0):yy=rb%(sn,1):ty=1:gosub1840:goto1670
 1790 sn=x:xx=es%(sn,0):yy=es%(sn,1):ty=2:gosub1840:goto1690
 1800 sn=x:xx=rs%(sn,0):yy=rs%(sn,1):ty=3:gosub1840:goto1720
 1810 sn=x:xx=mi%(sn,0):yy=mi%(sn,1):ty=4:gosub1840:goto1740
 1820 sn=x:xx=hp%(sn,0):yy=hp%(sn,1):ty=5:gosub1840:goto1760
 1830 return
 1840 rem update scanners
 1850 rx=18+((xx-rs%(nu,0))/50):ry=9+((yy-rs%(nu,1))/80):gosub730:return
 1860 rem update galatic
 1870 forx=1to13:fory=1to9:gm$(x,y)=chr$(187)+"  ":nexty:nextx
 1880 forx=0ton1:ifrb%(x,2)<0then1900
 1890 xx=int(rb%(x,0)/1000):yy=int(rb%(x,1)/1000):gm$(xx,yy)="b"+gm$(xx,yy)
 1900 nextx
 1910 forx=0ton3:ifrs%(x,2)<0then1930
 1920 xx=int(rs%(x,0)/1000):yy=int(rs%(x,1)/1000)
 1925 gm$(xx,yy)=right$(str$(x),1)+gm$(xx,yy)
 1930 nextx
 1940 forx=0ton4:ifmi%(x,2)<=0then1960
 1950 xx=int(mi%(x,0)/1000):yy=int(mi%(x,1)/1000):gm$(xx,yy)="m"+gm$(xx,yy)
 1960 nextx
 1970 forx=0ton5:ifhp%(x,2)<0then1990
 1980 xx=int(hp%(x,0)/1000):yy=int(hp%(x,1)/1000):gm$(xx,yy)="p"+gm$(xx,yy)
 1990 nextx
 2000 forx=1to13:fory=1to9:xx=len(gm$(x,y))
 2007 if len(gm$(x,y))>3thengm$(x,y)=left$(gm$(x,y),3)
 2010 nexty:nextx
 2020 fory=1to9:ht%=2:vt%=2+y*2:gosub3300:gosub3350:gosub3300:forx=1to13
 2025 printgm$(x,y);:nextx:nexty
 2030 wx=int(rs%(nu,0)/1000):wy=int(rs%(nu,1)/1000):ht%=(wx*3)-1:vt%=(wy*2)+2
 2035 gosub3300:print"{rvon}";gm$(wx,wy);"{rvof}"
 2040 return
 2050 print"{clr}":rem ship stats
 2060 vt%=1:ht%=5:print"{rvon}ship status{rvof}"
 2070 forx=0ton3:sn$=chr$(int(rs%(x,0)/1000)+64)+chr$(int(rs%(x,1)/1000)+48)
 2080 ifrs%(x,2)<0thenprint"ship #";x;" destroyed":goto2110
 2090 ifx=nuthenprint"{rvon}";
 2100 gosub3020:print"{rvof}";
 2110 print"---------------------------------------":nextx:ht%=1:vt%=21
 2115 gosub3300:return
 2120 forx=0ton4:rem mine update
 2130 sn$=chr$(int(mi%(x,0)/1000)+64)+chr$(int(mi%(x,1)/1000)+48)
 2140 ifmi%(x,2)<0then2280
 2150 forz=0ton3:ifrs%(z,2)<0then2200
 2160 rd=((mi%(x,0)-rs%(z,0))^2+(mi%(x,1)-rs%(z,1))^2)^.5:ifrd>500then2200
 2170 ifrd<175thenrd=175
 2180 mi%(x,2)=0
 2190 rs%(z,2)=rs%(z,2)-(500*rnd(1))*fna(rd)
 2195 vt%=21:ht%=1:gosub3300:print"ship #";z;"has exploded mine in sector ";sn$
 2200 nextz
 2210 forz=0ton2:rd=((mi%(x,0)-es%(z,0))^2+(mi%(x,1)-es%(z,1))^2)^.5
 2220 ifrd>500ores%(z,2)<0then2270
 2230 ifrd<175thenrd=175
 2235 vt%=21:ht%=1:gosub3300
 2240 pm=pm+.05:ifrnd(1)<pmthenprint"mine detected by ";oc$(2):mi%(x,2)=0:goto2270
 2250 es%(z,2)=es%(z,2)-(500*rnd(1))*fna(rd):mi%(x,2)=0
 2255 printoc$(4);" explosion in sector ";sn$;" with ";oc$(2):forde=1to1000:nextde
 2260 ifes%(z,2)<0thenprintoc$(2);" destroyed by ";oc$(4):forde=1to1000:nextde
 2270 nextz
 2280 nextx:return
 2290 vt%=23:ht%=1:gosub3300:gosub3350
 2295 vt%=23:ht%=1:gosub3300:input"firing angle ";th:ifth>360orth<0then2290
 2310 ox=19:oy=9:xx=19:yy=9
 2320 vt%=23:ht%=1:gosub3300:input"         power 0-200 ";z:ifz>200orz<0then2320
 2330 ifz*50>rs%(nu,2)thenprint"too low on energy";:goto2320
 2340 rs%(nu,2)=rs%(nu,2)-z*50:sn=-1:f5=0
 2350 a=int(10*sin(th/57.3)):b=int(-10*cos(th/57.3))
 2360 forx=0to200step10:dx=rs%(nu,0)+a*x:dy=rs%(nu,1)+b*x
 2370 iff5=1then2500
 2380 fory=0ton2:ifes%(y,2)<0then2420
 2390 ra=abs(es%(y,0)-rs%(nu,0))+abs(es%(y,1)-rs%(nu,1)):ifra<155thenra=155
 2400 rd=abs(dx-es%(y,0))+abs(dy-es%(y,1))
 2410 ifrd>250then2420
 2413 vt%=22:ht%=1:gosub3300
 2415 es%(y,2)=es%(y,2)-z*int(fna(ra)):sn=y:f5=1:sp=sp*1.5:printoc$(2);" hit by";
 2418 printoc$(3):forde=1to1000:nextde:goto2430
 2420 nexty
 2430 ifmd<>1then2500
 2440 xx=19+int((a*x)/50):yy=9+int((b*x)/80)
 2450 ifxx>39oryy<0oryy>19orxx<0thenx=200:goto2500
 2460 ht%=ox:vt%=oy:gosub3300:print" ";
 2470 ox=xx:oy=yy:ht%=xx:vt%=yy:gosub3300:printchr$(209);:ht%=1:vt%=23:gosub3300
 2490 ifsn>=0thenx=200
 2500 nextx:ht%=ox:vt%=oy:gosub3300:print" ";:vt%=23:ht%=1:gosub3300
 2510 ifsn>=0thenifes%(sn,2)<0thengoto2515
 2512 goto 2520
 2515 vt%=22:ht%=1:gosub3300:printoc$(2);" destroyed by ";oc$(3)
 2518 vs%(nu,2)=vs%(nu,2)+1:sp=sp*2:om=0
 2520 ox=0:oy=0:return
 2530 vt%=23:ht%=1:gosub3300:gosub3350
 2535 vt%=23:ht%=1:gosub3300:input"velocity 0-5000";v:ifv>5000orv<0then2530
 2550 ifv>rs%(nu,2)thenprint"too low on energy";:goto2530
 2555 vt%=23:ht%=1:gosub3300:gosub3350
 2560 vt%=23:ht%=1:gosub3300:input"heading 0-359";th:ifth>359orth<0then2555
 2570 vs%(nu,0)=int(v*sin(th/57)):vs%(nu,1)=int(-v*cos(th/57))
 2580 return
 2590 rem display mode select
 2600 vt%=23:ht%=1:gosub3300:gosub3350:gosub3300:input"tactical,map,status";a$
 2610 ifa$=""then2660
 2620 ifa$=left$("tactical",len(a$))thenmd=1:goto2660
 2630 ifa$=left$("map",len(a$))thenmd=2:gosub840:om=2:goto2660
 2640 ifa$=left$("status",len(a$))thenmd=3:goto2660
 2650 goto2600
 2660 return
 2670 vt%=23:ht%=1:gosub3300:gosub3350:ht%=1:vt%=23:gosub3300
 2672 input"docking with ? base,ship,planet";a$:ifa$=""then2920
 2675 vt%=23:ht%=1:gosub3300:gosub3350:vt%=23:ht%=1:gosub3300
 2680 ifrs%(nu,2)<25000orleft$(a$,1)="s"then2690
 2685 vt%=23:ht%=1:gosub3300:print"too much energy on board to refuel":goto2920
 2690 oe=rs%(nu,2)
 2700 ifa$=left$("base",len(a$))then2740
 2710 ifa$=left$("planet",len(a$))then2800
 2720 ifa$=left$("ship",len(a$))then2850
 2730 goto2670
 2740 ifrs%(nu,2)<10001then2750
 2743 vt%=23:ht%=1:gosub3300
 2745 print"base can only refuel to 10000":forde=1to2000:nextde:goto2910
 2750 forz=0ton1:ifrb%(z,2)<0then2780
 2760 dx=abs(rb%(z,0)-rs%(nu,0)):dy=abs(rb%(z,1)-rs%(nu,1))
 2770 ifdx<300anddy<300thenrs%(nu,2)=10000:bp=bp*1.5:print"ship docked with base"
 2780 nextz
 2790 goto2910
 2800 forz=0ton5:ifhp%(z,2)<0then2830
 2810 dx=abs(hp%(z,0)-rs%(nu,0)):dy=abs(hp%(z,1)-rs%(nu,1))
 2820 ifdx<300anddy<300thenrs%(nu,2)=30000:pp=1.5*pp:print"ship in orbit"
 2830 nextz
 2840 goto2910
 2850 forz=0ton3:ifz=nuthen2900
 2860 dx=abs(rs%(z,0)-rs%(nu,0)):dy=abs(rs%(z,1)-rs%(nu,1)):ifrs%(z,2)<0then2900
 2870 ifdx>299ordy>299then2900
 2873 vt%=23:ht%=1:gosub3300:gosub3350
 2875 vt%=23:ht%=1:gosub3300:input"input xfer from your ship";en
 2877 if(rs%(nu,2)-en)<0or(rs%(z,2)+en)<0then2873
 2880 if(rs%(nu,2)-en)>30000or(rs%(x,2)+en)>30000thenprint"over 30000";:goto2873
 2890 rs%(nu,2)=rs%(nu,2)-int(en):rs%(z,2)=rs%(z,2)+int(en)
 2900 nextz
 2910 ifrs%(nu,2)=oethenvt%=23:ht%=1:gosub3300:print"refueling not possible"
 2920 forde=1to3000:nextde:return
 2930 nm=nm+1:vt%=21:ht%=1:gosub3300:ifnm>n4then2960
 2940 mi%(nm,0)=rs%(nu,0):mi%(nm,1)=rs%(nu,1)
 2945 print"{rvon}ship must be >500 megameters away next turn{rvof}"
 2950 goto2970
 2960 print"you have placed all your mines"
 2970 forde=1to2000:nextde:return
 2980 ifnm>n4thenprint"all mines placed and armed":goto3010
 2990 mi%(nm,2)=10000:print"mine armed"
 3000 om=0
 3010 forde=1to1000:nextde:return
 3020 th=0:ifvs%(x,0)=0then3040:rem ship stat
 3030 th=atn(vs%(x,1)/vs%(x,0))
 3040 y=((vs%(x,0)^2)+(vs%(x,1)^2))^.5:th=int(57*th):y=int(y)
 3050 ifth<0thenth=-th
 3060 ifvs%(x,0)>0andvs%(x,1)<0thenth=90-th
 3070 ifvs%(x,0)>0andvs%(x,1)>0thenth=90+th
 3080 ifvs%(x,0)<0andvs%(x,1)<0thenth=270+th
 3090 ifvs%(x,0)<0andvs%(x,1)>0thenth=270-th
 3100 ifvs%(x,0)=0thenth=0:ifvs%(x,1)>0thenth=180
 3110 sn$=chr$(int(rs%(x,0)/1000)+64)+chr$(int(rs%(x,1)/1000)+48)
 3120 print"ship#";x;" sec";sn$;" en";rs%(x,2);" ve";y;" an";th
 3130 return
 3140 ht%=1:vt%=23:gosub3300:gosub3350:ht%=1:vt%=22:gosub3300
 3145 input"ship commands--fire,dock,view,set,arm,   change,next(ship)";a$
 3150 ifa$=""then3230
 3160 ifa$=left$("fire",len(a$))andf1=0thengosub2290:f1=1
 3170 ifa$=left$("dock",len(a$))thengosub2670:goto3230
 3180 ifa$=left$("set",len(a$))andf2=0thengosub2930:f2=1
 3190 ifa$=left$("arm",len(a$))andf2=1thengosub2980
 3200 ifa$=left$("change",len(a$))thengosub2530
 3210 ifa$=left$("next",len(a$))thenf1=0:f2=0:nu=nu+1
 3220 ifa$=left$("view",len(a$))thengosub2590
 3230 return
 3240 print"scenario development"
 3250 input"number of your ships 1-10";x:n3=int(x-1):ifn3>9orn3<0then3260
 3260 input"number of enemy ships 1-20";x:n2=int(x-1):ifn2>19orn2<0then3260
 3270 input"number of planets 1-10";x:n5=int(x-1):ifn5>9orn5<0then3270
 3280 input"number of bases 1-10";x:n1=int(x-1):ifn1>9orn1<0then3280
 3290 n4=int((n3+1)*2):return
 3300 print"{home}";:ifht%<2then3310
 3305 printleft$("{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}",ht%-1);
 3310 ifvt%>1then:printleft$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",vt%-1);
 3320 return
 3350 forzz=1to40:print" ";:nextzz:return
  130 dimb(8,7),e(2,9),v(3),x(3)
  200 gosub8000
  220 ifnp=1andrnd(0)>.5thenprint"{home}i'll go first this time";chr$(16):goto300
  250 c=2:gosub7000
  300 c=1
  310 ifnp=2thengosub7000:goto250
  350 gosub1000:goto250
  499 rem*eval x,y
  500 e=ec(x)
  510 ford=0to3
  520 q=x(d):r=y(d)
  530 forc1=1to2
  540 n=0:i=x+q:j=y+r
  550 ifb(i,j)<>c1then580
  560 i=i+q:j=j+r:n=n+1
  570 ifb(i,j)=c1then560
  580 o=(b(i,j)=0)
  590 i=x-q:j=y-r
  600 ifb(i,j)<>c1then630
  610 i=i-q:j=j-r:n=n+1
  620 ifb(i,j)=c1then610
  630 o=-(b(i,j)=0)-o
  640 a=n*3+o:ifa>9thena=9
  645 c2=c1:ifc=2thenc2=3-c2
  650 e=e+e(c2,a)
  660 next
  670 next
  890 return
 1000 rem
 1020 b=-1:be=-1e9
 1050 forx=1to7
 1060 gosub1900:ify>6then1200
 1100 gosub500
 1110 print"{home}hmm...let me think";chr$(16)
 1120 ife>bethenbe=e:b=x
 1200 nextx
 1400 x=b:ifx<0thenreturn
 1410 gosub7500
 1420 ife<500thenreturn
 1430 print"{home} ah well i win. hit space";chr$(16)
 1440 geta$:ifa$<>" "then1440
 1450 run
 1900 fory=1to6:ifb(x,y)thennext
 1910 return
 7000 gosub7400
 7020 print"{home}"mid$("whiteblack",c*5-4,5)" move? (or {rvon}s{rvof}top)"
 7030 geta$:ifa$<>""then7030
 7050 geta$:ifa$="s"thenrun
 7100 x=val(a$)
 7110 ifx=0orx>7then7050
 7120 gosub7500
 7150 ify>6then7050
 7200 ife<500then7400
 7210 print"{home}only just won. hit space";chr$(16)
 7250 geta$:ifa$<>" "then7250
 7260 run
 7400 fora=32768to32833:pokea,32
 7410 next
 7490 return
 7500 fory=1to6
 7510 ifb(x,y)thennext:return
 7550 fora=x*4+32846tox*4+33665-y*120step40
 7555 pokea-39,32:pokea-40,32
 7560 ifc=1thenpokea,233:pokea+1,223:pokea+40,95:pokea+41,105
 7570 ifc=2thenpokea,78:pokea+1,77:pokea+40,77:pokea+41,78
 7600 nexta
 7610 gosub500
 7650 b(x,y)=c
 7990 return
 8000 rem new game
 8020 print"{clr}1 or 2 players"
 8030 geta$:ifa$=""then8030
 8035 np=val(a$)
 8040 ifnp<1ornp>2then8030
 8050 print"{clr}{down}{down}"
 8100 forx=1to18:print"{CBM-M}   {CBM-M}   {CBM-M}   {CBM-M}   {CBM-M}   {CBM-M}   {CBM-M}   {CBM-M}           ";:next
 8120 print" {rvon} 1   2   3   4   5   6   7  {home}"
 8200 forx=1to7:fory=1to6
 8205 b(x,y)=0:next:next
 8210 forx=0to8:b(x,0)=-1
 8215 b(x,7)=-1:next
 8220 fory=0to7:b(0,y)=-1
 8225 b(8,y)=-1:next
 8400 restore
 8410 forc=1to2:forx=0to9
 8415 reade(c,x):next:next
 8420 forx=0to3:readx(x):next
 8430 forx=0to3:ready(x):next
 8450 forx=1to7:readc(x):next
 8490 return
 9600 data0,2,3,0,4,6,1,12,16,1000
 9620 data0,0,0,0,2,3,0,8,11,120
 9630 data0,1,1,1
 9640 data1,1,0,-1
 9650 data0,0,1,3,1,0,0
    0 clr:pg$="contact":nm$="29":goto62000
    1 " george leotti
    2 " 416 s. elmwood ave.
    3 " glenolden, pa. 19036
    4 "
    5 " cursor #29, feb, 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 2-16-82 tz
  100 fori=1to20:readx,y,z:next:fori=0to6:readd$(i):next:cr$=chr$(13)+"{down}"
  110 c$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}***contact***":cl$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":forj=1to3
  120 fori=1to19:cl$=cl$+" ":next:cl$=cl$+cr$:next:cl$=cl$+left$(cl$,14)
  130 print"{clr}{down}{down}how many players? ";:gosub60000:n=val(in$):ifn>5orn<1then130
  140 fori=1ton:print"name of player"i"? ";:gosub60000:p$(i)=in$
  145 iflen(in$)=0theni=i-1:print"{up}{up}{up}":next
  150 iflen(p$(i))>6thenprint"six letters please{down}":i=i-1
  160 next
  170 print"can i play too? ";:gosub60000:ifleft$(in$,1)="n"then190
  180 n=n+1:p$(n)="pet"
  190 print"{clr}":x=rnd(-ti)
  195 printleft$(cl$,11)"{rvon}points accumulated":print"{rvon}this turn ="sc"{rvof}{left}   "
  200 printcl$:t=0:p=p+1:ifp>nthenp=0:goto200
  210 gosub1530:iftthen195
  220 r=1:k=0:fori=1to6:d%(i)=6*rnd(1)+1:p%(i)=d%(i):k=k+d%(i):next
  230 gosub1600:t=0:ifk=21thengosub1000:iftthen195
  240 ifp$(p)="pet"then1070
  250 j=0:k=0:fori=1to6:t%(i)=p%(i):if(p%(i)and3)=1thenj=j+1
  260 ifp%(i)=0thenk=k+1
  270 next:ifj+k=6then330
  280 restore:fori=1to20:readx,y,z:ift%(x)=0or(t%(x)and3)=1then300
  290 ift%(x)=t%(y)andt%(x)=t%(z)thenj=j+3:t%(x)=0:t%(y)=0:t%(z)=0
  300 next:ifj+k=6then330
  310 ifjthen350
  320 printcl$"{rvon}nothing that roll{rvof}":gosub1060:sc=0:goto195
  330 fori=1to20:printc$:forj=1to20:next:print"{rvon}"c$"{rvof}":forj=1to20:next:next:t=1
  340 goto380
  350 printcl$"do you want"cr$"to roll again"cr$p$(p)"? ";:gosub60000
  355 ifleft$(in$,1)="q"thenprint"{clr}":end
  360 ifleft$(in$,1)<>"n"then500
  380 k=0:restore:fori=1to20:readx,y,z
  390 ifp%(x)=p%(y)andp%(x)=p%(z)thenk=p%(x):p%(x)=0:p%(y)=0:p%(z)=0
  400 ifk=1thensc=sc+1000:k=0
  410 sc=sc+k*100:k=0:next
  420 fori=1to6:ifp%(i)=1thensc=sc+100
  430 ifp%(i)=5thensc=sc+50
  440 next:iftthen460
  450 s%(p)=s%(p)+sc:sc=0:goto195
  460 printleft$(cl$,12)tab(11)"{rvon}"sc
  470 printcl$"do you want to"cr$"keep rolling? ";:gosub60000
  480 ifleft$(in$,1)="n"thens%(p)=s%(p)+sc:sc=0:goto195
  490 p=p-1:goto195
  500 printcl$"which dice do"cr$"you want to"cr$"keep? ";:gosub60000
  560 ifin$=""then500
  570 ifin$<>"0"then580
  572 ifr>1thenprintcl$"first roll only":gosub1060:goto350
  574 restore:fori=1to20:readx,y,z
  576 ifp%(x)=p%(y)andp%(x)=p%(z)andp%(x)=2theni=20:next:printcl$:goto220
  578 next:printcl$"you don't have"cr$"three twos":gosub1060:goto350
  580 k=len(in$):fori=1tok:ifp%(val(mid$(in$,i,1)))=0theni=k:next:goto500
  590 forj=1tok:ifj=ithen610
  600 ifmid$(in$,j,1)=mid$(in$,i,1)thenj=k:i=k:next:next:goto500
  610 next:next:onkgoto630,690,730,790,790
  620 goto350
  630 k=p%(val(in$)):ifk=1ork=5then650
  640 printcl$"you can't keep"cr$"one"k"!":gosub1060:goto350
  650 p%(val(in$))=0
  660 ifk=1thensc=sc+100:goto680
  670 sc=sc+50
  680 goto850
  690 ifp%(val(left$(in$,1)))=1andp%(val(right$(in$,1)))=1then710
  700 printcl$"you have to"cr$"have three of"cr$"of a kind!":gosub1060:goto350
  710 p%(val(left$(in$,1)))=0:p%(val(right$(in$,1)))=0:sc=sc+200:goto850
  730 k=p%(val(left$(in$,1)))
  740 ifk=p%(val(mid$(in$,2,1)))andk=p%(val(right$(in$,1)))then760
  750 printcl$"the three dice"cr$"must match!":gosub1060:goto350
  760 fori=1to3:p%(val(mid$(in$,i,1)))=0:next:ifk=1thensc=sc+1000:goto850
  770 sc=sc+k*100:goto850
  790 fori=1tok:ifp%(val(mid$(in$,i,1)))<>1theni=k:next:goto810
  800 next:goto820
  810 printcl$"you may only"cr$"keep"k"ones":gosub1060:goto350
  820 fori=1tok:p%(val(mid$(in$,i,1)))=0:next:ifk=5thensc=sc+1200:goto850
  830 sc=sc+1100
  850 printleft$(cl$,12)tab(11)"{rvon}"sc:fori=1to6:ifp%(i)thend%(i)=0
  860 next
  870 printcl$:fori=1tolen(in$)
  880 ifmid$(in$,i,1)="1"thenprintleft$(c$,8)spc(4)"1":goto900
  890 printleft$(c$,8)spc(4+(6*(val(mid$(in$,i,1))-1)))mid$(in$,i,1)
  900 next:gosub1650
  910 fori=1to6:ifp%(i)thend%(i)=6*rnd(1)+1:p%(i)=d%(i)
  920 next:r=r+1:gosub1650:goto250
 1000 restore:fori=1to20:readx,y,z
 1005 ifp%(x)=p%(y)orp%(x)=p%(z)orp%(y)=p%(z)theni=20:next:return
 1010 next
 1020 printcl$p$(p)" wins"cr$"with a straight!
 1030 print"{down}play again? ";:gosub60000:ifleft$(in$,1)="n"thenend
 1040 print"same players? ";:gosub60000:ifleft$(in$,1)="n"thenrun100
 1050 print"{clr}":fori=1to6:s%(i)=0:next:p=0:sc=0:t=1:return
 1060 fori=1to1500:next:return
 1070 t=s%(1):fori=1ton-1:ift<s%(i)thent=s%(i)
 1080 next
 1090 ps=0:c1=0:c5=0:j=0:k=0:tw=0
 1100 fori=1to6:t%(i)=p%(i):next:restore:fori=1to20:readx,y,z
 1110 ift%(x)=t%(y)andt%(x)=t%(z)thenk=t%(x):t%(x)=0:t%(y)=0:t%(z)=0:ifkthenj=1
 1120 ifk=1thenps=ps+1000:k=0
 1130 ifk=2andr=1thentw=1
 1140 ps=ps+k*100:k=0:next
 1170 fori=1to6:ift%(i)=1thenc1=c1+100:t%(i)=0:j=1
 1180 ift%(i)=5thenc5=c5+50:t%(i)=0:j=1
 1190 next:ifj=0then320
 1200 j=ps+c1+c5:k=0:fori=1to6:k=k+t%(i):next:ifk=0then1340
 1210 iftwthen1360
 1220 k=0:fori=1to6:ifp%(i)=0thenk=k+1
 1230 next:ifs%(n)+sc+j>=5000then1520
 1240 ift>=4700then1370
 1250 ifj+sc>=1000then1520
 1260 ifk=0then1310
 1270 ifj+sc>350ands%(n)+j+sc>tthen1520
 1280 ifj+sc>300andsc<300then1520
 1290 ifk>=3then1520
 1300 goto1370
 1310 ifj>400ands%(n)+j>tthen1520
 1320 ifj>500then1520
 1330 goto1370
 1340 fori=1to20:printc$:fork=1to20:next:print"{rvon}"c$"{rvof}":fork=1to20:next:next
 1350 ifj+sc+s%(n)>=5000then1520
 1355 sc=sc+j
 1360 printcl$"i'll roll again":fori=1to6:d%(i)=0:next:gosub1060
 1365 printleft$(cl$,12)tab(11)"{rvon}"sc:printcl$:gosub1660:gosub1530:goto220
 1370 printcl$"i'll keep ";:ifps>c1orps>c5then1430
 1380 ifc1>c5orc1=c5then1410
 1390 fori=1to6:ifp%(i)=5thenprinti:p%(i)=0:i=6
 1400 next:sc=sc+50:goto1460
 1410 fori=1to6:ifp%(i)=1thenprinti;:p%(i)=0
 1420 next:sc=sc+c1:goto1460
 1430 restore:fori=1to20:readx,y,z:ifp%(x)=0then1450
 1440 ifp%(x)=p%(y)andp%(x)=p%(z)thenprintx;y;z:p%(x)=0:p%(y)=0:p%(z)=0
 1450 next:sc=sc+ps
 1460 printleft$(cl$,12)tab(11)"{rvon}"sc:fori=1to6:ifp%(i)thend%(i)=0
 1470 next
 1480 ifp%(1)=0thenprint"{home}{down}{down}{down}{down}{down}{down}{down}"spc(4)"1"
 1490 fori=2to6:ifp%(i)=0thenprint"{home}{down}{down}{down}{down}{down}{down}{down}"spc(4+(6*(i-1)))mid$(str$(i),2,1)
 1500 next:gosub1650:fori=1to6:ifp%(i)thend%(i)=6*rnd(1)+1:p%(i)=d%(i)
 1510 next:r=r+1:gosub1060:printcl$:gosub1650:goto1090
 1520 printcl$"i won't roll"cr$"again":s%(n)=s%(n)+sc+j:gosub1060:sc=0:goto195
 1530 print"{home}{down}{down}{down}{down}{down}{down}{down}{rvon}    1     2     3     4     5     6     {rvof}":print"{up}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 1540 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}"c$"{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":print"{up}"tab(19)" {down}{left}    player    ";
 1550 print"score{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1ton:ifs%(n)>=5000then1570
 1560 ifi=pthenprinttab(19)"{rvon}"mid$(str$(i),2,1)"{rvof}   {rvon}"p$(i)"{rvof}"tab(32)s%(i):goto1580
 1570 printtab(18)i"  "p$(i)tab(32)s%(i):ifs%(i)>=5000thenj=i:i=n:next:goto1590
 1580 print:next:return
 1590 printcl$p$(j)" wins!":gosub1030:goto1530
 1600 print"{home}{down}{down}  U{SHIFT-*}{SHIFT-*}{SHIFT-*}I U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{$a0}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{$a0}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{$a0}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I U{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
 1610 print"  {SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}"
 1620 print"  {SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}"
 1630 print"  {SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}"
 1640 print"  J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
 1650 print"{home}{rvon}roll"r"{rvof}"
 1660 j=1:fori=3to33step6:print"{home}{down}{down}{down}{rght}{rght}{rght}"tab(i)d$(d%(j)):j=j+1:next:j=0:return
 1670 data1,2,3,1,2,4,1,2,5,1,2,6,1,3,4,1,3,5,1,3,6,1,4,5,1,4,6,1,5,6,2,3,4,2,3
 1680 data5,2,3,6,2,4,5,2,4,6,2,5,6,3,4,5,3,4,6,3,5,6,4,5,6,"   {left}{left}{left}{down}   {left}{left}{left}{down}   "
 1690 data"   {left}{left}{left}{down} Z {left}{left}{left}{down}   ","Q  {left}{left}{left}{down}   {left}{left}{left}{down}  Q","Q  {left}{left}{left}{down} Q {left}{left}{left}{down}  Q"
 1700 data"Q Q{left}{left}{left}{down}   {left}{left}{left}{down}Q{$a0}Q","Z Z{left}{left}{left}{down} Z {left}{left}{left}{down}Z Z","Q Q{left}{left}{left}{down}Q Q{left}{left}{left}{down}Q{$a0}Q"
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32orz=34thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>6then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 ifwd=80thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(39);chr$(143);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by george leotti
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}roll the dice
 62070 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62080 getr$:ifr$=""then62080
 62090 goto60300
    0 clr:poke59468,12
    1 rem cops copyright (c) 1979 glen fisher
    4 :
    5 rem cursor #14, oct 79
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of nov 1 79 8:40pm
   90 pg$="cops":nm$="14":gosub62000
  100 dimud(4),lr(4),ok$(4)
  110 fori=1to4:readud(i),lr(i):nexti
  120 data-1,0,0,1,1,0,0,-1
  130 fori=1to4:readok$(i):nexti
  140 data"86{stop}{stop}","{stop}62{stop}","{stop}{stop}24","8{stop}{stop}4"
  150 ar$="^>v<"
  160 rs=25:cs=25:mt=15
  400 bl$="      "
  500 mg=5:md=9:t=mg+mg:t1=mg+1:rj=12
  510 cr=int(rnd(1)*(rs-t))+t1:cc=int(rnd(1)*(cs-t))+t1
  520 rr=int(rnd(1)*(rs-t))+t1:rc=int(rnd(1)*(cs-t))+t1
  530 z=sqr((rr-cr)^2+abs(rc-cc)^2):ifz<mdorz>rjthen510
  540 cd=1:cp$=mid$(ar$,cd,1):rb$="+"
  600 em$=":":gosub10000
  610 r=cr:c=cc:gosub10100:printmid$(cp$,cd,1);"{home}"
  620 r=rr:c=rc:gosub10100:printrb$;"{home}"
  700 tn=mt
  900 print"{home}moves":print"left:":printtn;"{left} "
 1000 r=cr:c=cc:ch$=ok$(cd):sy$=cp$:gosub10200:ifch=0then1500
 1010 nr=cr+2*ud(ch):nc=cc+2*lr(ch)
 1020 gosub3000
 1060 cr=nr:cc=nc:printem$;"{home}"
 1070 cd=ch:cp$=mid$(ar$,cd,1)
 1080 r=cr:c=cc:gosub10100:printcp$;"{home}"
 1090 ifabs(cr-rr)<2andabs(cc-rc)<2then2000
 1100 r=rr:c=rc:ch$="wdxa":sy$=rb$:gosub10200:ifch=0then1500
 1110 nr=rr+ud(ch):nc=rc+lr(ch)
 1120 gosub3000
 1160 rr=nr:rc=nc:printem$;"{home}"
 1170 r=rr:c=rc:gosub10100:printrb$;"{home}"
 1180 ifabs(cr-rr)<2andabs(cc-rc)<2then2000
 1190 tn=tn-1:iftn>0then900
 1200 print"{home}escape!":printbl$:printbl$
 1210 rb=rb+1:goto2100
 1500 print"{home}sigh...":printbl$:printbl$
 1510 forz=1to500:nextz:goto2100
 2000 print"{home}justice":print"triumphs!":printbl$
 2010 cp=cp+1
 2100 gm=gm+1:forz=1to500:nextz
 2110 gett$:ift$<>""then2110
 2120 print"{clr}";tab(10)"in"gm"game";mid$("s",2+(gm<>1))":{down}"
 2130 print"cops have caught robbers"cp"time"mid$("s",2+(cp<>1))"."
 2140 print"robbers have escaped"rb"time"mid$("s",2+(rb<>1))"."
 2200 print"{down}{down}want to play again? ";
 2210 gosub60000:ifleft$(in$,1)<>"n"then500
 2220 end
 3000 ifnr<1thennr=1
 3010 ifnr>rsthennr=rs
 3020 ifnc<1thennc=1
 3030 ifnc>csthennc=cs
 3040 return
 3100 ifnr<1thennr=nr+rs
 3110 ifnr>rsthennr=nr-rs
 3120 ifnc<1thennc=nc+cs
 3130 ifnc>csthennc=nc-cs
 3140 return
 10000 l$="{rght}":fori=1tocs:l$=l$+em$:nexti
 10020 print"{clr}":tb=7:print"{up}";
 10030 fori=1to24:printtab(tb);l$:nexti
 10040 printtab(tb);l$;"{home}"
 10060 return
 10100 print"{home}":pokeql,r:print"{up}";tab(tb+c);:return
 10110 rem pk=32768+80*r+2*c+tb-40:ch=peek(pk)
 10200 z=1:tm=0:gosub10100
 10210 getz$:ifz$<>""then10250
 10220 ifti<tmthen10210
 10230 printmid$("{rvon}{rvof}",z,1);sy$;"{left}";
 10240 z=3-z:tm=ti+20:goto10210
 10250 ifz$="_"thench=0:goto10290
 10260 forz0=1tolen(ch$)
 10270 ifz$=mid$(ch$,z0,1)thench=z0:goto10290
 10280 nextz0:goto10210
 10290 print"{rvof}";sy$;"{left}";:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by glen fisher{down}
 62020 gosub60500
 62030 print"{down}cops 'n' robbers.
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=4:gosub60200
 62110 print"the police have received an anonymous{down}
 62120 print"call that the infamous smith gang is in{down}
 62130 print"town.  naturally, they send out a squad{down}
 62140 print"car to bring them in. the smiths know{down}
 62150 print"this, since they make it a point to{down}
 62160 print"listen to the police frequencies. they,{down}
 62170 print"of course, want to stay free. if they{down}
 62180 print"manage long enough, the squad car will{down}
 62190 print"be sent off on another call, and the{down}
 62200 print"smiths will be safe.
 62210 gosub60200
 62240 print"city traffic laws prohibit left turns{down}
 62250 print"anywhere, and the squad car, upholder of
 62260 print"the law that it is, can only go straight
 62270 print"or turn right. the smiths will go any{down}
 62280 print"way they like, as they already have far{down}
 62290 print"worse crimes on their records. the squad
 62300 print"car, however, can move faster than the{down}
 62330 print"smiths' car, since it has a siren to{down}
 62340 print"clear traffic out of its way.
 62350 gosub60200
 62360 print"a map of the city will be shown on your{down}
 62370 print"screen, with the positions of the smiths
 62380 print"and the squad car marked. the smiths are
 62390 print"marked by a '+'. the squad car, since it
 62400 print"has to obey the law, is marked with one{down}
 62410 print"of four arrows (^,>,v,<) depending on{down}
 62420 print"which direction it is facing. the squad{down}
 62430 print"car and the smiths take turns moving,{down}
 62440 print"with the squad car moving first. each{down}
 62450 print"move, the squad car moves two spaces,{down}
 62460 print"and the smiths move one.
 62470 gosub60200
 62490 print"when it is the squad car's turn to move,
 62500 print"its arrow will blink. if it is the{down}
 62510 print"smiths' turn to move, their car will{down}
 62520 print"blink. to move, the squad car uses the{down}
 62530 print"{rvon}2{rvof},{rvon}4{rvof},{rvon}6{rvof}, and {rvon}8{rvof} keys. the smiths use the {rvon}x{rvof},
 62540 print"{rvon}a{rvof},{rvon}w{rvof}, and {rvon}d{rvof} keys. if the squad car gets{down}
 62550 print"  ^   within one space of the       ^
 62555 print"  {rvon}w{rvof}";tab(36);"{rvon}8{rvof}
 62560 print"<{rvon}a{rght}d{rvof}> smiths, the smiths are cap- <{rvon}4{rght}6{rvof}>
 62565 print"  {rvon}x{rvof}";tab(36);"{rvon}2{rvof}
 62570 print"  v   tured. if the smiths can      v{down}
 62580 print"evade capture for 15 turns, they escap.{left}{inst}e
 62590 gosub60200
  100 print"{clr}disk copy-all  jim butterfield"
  110 a$="!jim butterfield!":a$=a$+a$+a$:a$=a$+a$+a$+a$+a$
  120 p$=""
  130 dim l2(232),l1%(232),n$(232),t%(232),t$(4)
  140 data xxx,seq,prg,usr,rel
  150 forj=0to4:readt$(j):nextj
  160 input"from unit  8{left}{left}{left}";f
  170 gosub830
  180 f$=d$
  190 input"to unit  9{left}{left}{left}";t
  200 gosub830:t$=d$:ift=fandf$=t$thenrun
  230 n=0:close1:close15:open 15,f,15:print#15,"i"+f$
  240 gosub860:if e then stop:goto230
  250 z=90:input"pattern  *{left}{left}{left}";p$
  260 p$="xxx"+left$(p$+"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}",16)
  270 print"hold down 'y' or 'n' key to select"
  280 print"programs to be copied..."
  290 open 1,f,3,"$"+f$
  300 gosub860:ifethenstop:goto230
  310 sys4156
  320 r=255:goto 340
  330 sys4245
  340 forj=16to2step-1:ifasc(mid$(a$,j+3))=160thennextj
  350 n$=mid$(a$,4,j)
  360 t9=asc(a$)-128:ift9<1ort9>4goto470
  370 l1%=asc(mid$(a$,22))
  380 l2=asc(mid$(a$,29))+asc(mid$(a$,30))*256
  390 printmid$(a$,4,16);" ";t$(t9)
  400 p=peek(203)andr
  410 getz$:ifz$=""andp<064goto450
  420 ifz$="y"orz$="n"thenz=asc(z$):r=255:goto450
  430 ifz$=chr$(13)thenr=0:goto450
  440 goto410
  450 ifz<80thenprint"{up}                     {up}":goto470
  460 n=n+1:l2(n)=l2:n$(n)=n$:t%(n)=t9:l1%(n)=l1%
  470 ifst=0andn<232goto330
  480 close1:close15:print" * * * * *"
  485 ifn=0thenprint"* no programs *":goto 800
  490 forj=1ton
  500 l2=l2(j):t%=t%(j):ifl>l2goto670
  510 ifq=0goto550
  520 print"*** output disk full"
  530 input"do you have a new one";z$
  540 ifasc(z$)<>89thenend
  550 close15:open15,t,15:input"want to new the output disk  n{left}{left}{left}";z$
  560 ifasc(z$)<>89goto600
  570 input"disk name,id";x$,y$
  580 print#15,"n"+t$+":"+x$+","+y$
  590 gosub860:ifethenstop:goto550
  600 print#15,"i"+t$:open1,t,0,"$"+t$+":!#$%&"
  610 gosub860:ifethenstop:goto550
  620 gosub890:gosub890:q=q+1
  630 get#1,x$:ifx$<>""goto630
  640 gosub890
  650 l=x+y*256:print"(";l;"blocks free )"
  660 close1:close15:goto500
  670 open14,f,15:open15,t,15
  680 printleft$(n$(j)+"                    ",21);
  690 open3,f,3,f$+":"+n$(j)+","+t$(t%)
  700 gosub855:ifethenprint"** ";e$;e:goto780
  710 ift%=4thenopen4,t,4,t$+":"+n$(j)+",l,"+chr$(l1%(j)):goto730
  720 open4,t,4,t$+":"+n$(j)+","+t$(t%)+",w"
  730 l=l-l2:gosub860:ifethenprint"*** ";e$;e:goto780
  740 ift%=4thensys4462:gosub855:goto760
  750 sys4443
  760 n$(j)="":gosub860:ifethenprint"**** ";e$;e:goto780
  770 print"{up}"
  780 close4:close3:close15:close14
  790 nextj
  800 x=fre(0):input"another input disk ready";z$
  810 ifasc(z$)=89goto230
  820 end
  830 input"drive  0{left}{left}{left}";d
  840 ifd*d<>dgoto830
  850 d$=chr$(d+48):return
  855 input#14,e,e$,e1,e2:goto870
  860 input#15,e,e$,e1,e2
  870 ife=0thene=(st and 191):e$="*st*"
  880 return
  890 get#1,x$
  900 get#1,x$
  910 get#1,x$
  920 x=asc(x$+chr$(0))
  930 get#1,x$:y=asc(x$+chr$(0))
  940 return
    1 rem"{del}{del}{del}{del}{del}{del}{del}sA"@0:copy sort.",8
    2 rem copieren disk dateien - ver 2.0   update zu dos ver. 2  26/12/79
    3 print"{clr}{down}{down}"tab(10)"{rvon} copieren sortiert {down}"
    4 poke1022,255:poke59468,12
    5 print"disketten in laufwerke einlegen {down}"
   10 dn=8:dn$=right$(str$(dn),1):open15,dn,15
   15 input"ziellaufwerk nummer{$a0}{$a0}{$a0}{left}{left}{left}";dd
   16 dd$=right$(str$(dd),1):sd$=right$(str$(1-dd),1)
   18 cc$="i"+sd$:print#15,cc$
   20 print"{down}formatieren laufwerk "dd$;:input"  n{left}{left}{left}";s$:ifs$="j"then30
   25 gosub900:cc$="i"+dd$:print#15,cc$:goto40
   30 input"disk name{$a0}{$a0}{$a0}{left}{left}{left}";n$:ifn$="{$a0}"thenprint"{up}";:goto30
   32 input"id{$a0}(fuer formatierung){$a0}{$a0}{$a0}{left}{left}{left}";id$:ifid$="{$a0}"thenid$="":goto36
   34 id$=","+left$(id$,2)
   36 gosub900:cc$="n "+dd$+":"+n$+id$:print#15,cc$
   40 dimd$(250)
   51 input"alphabethisch sortieren  n{left}{left}{left}";s$
   60 input"{down}mit pattern matching  n{left}{left}{left}";p$
   61 ifp$<>"j"thenp$="*":goto70
   65 input"{down}{rvon}pattern{rvof} (regeln beachten){$a0}{$a0}{$a0}{left}{left}{left}";p$
   66 ifp$="{$a0}"thenp$="*"
   70 print"{down}{rvon}c{rvof}opieren alle dateien von laufwerk "sd$;" oder"
   71 input"{rvon}f{rvof}ragen bei jedem namen{$a0}{$a0}c{left}{left}{left}";q$
   90 gosub900
  100 forl=0to300:next:gosub500
  110 gosub200
  115 print"{down}ende copieren!!{down}"
  120 poke1022,8::poke59468,14:end
  200 fori=1tok-1
  205 print:in$="j":ifq$="f"thenprint"{up}copy: {rvon}"d$(i)"{rvof}":input"{$a0} j{left}{left}{left}";in$
  210 print"{up}{up}":ifin$<>"j"thennext:return
  220 cc$="c "+dd$+":"+d$(i)+"="+sd$+":"+d$(i)
  230 print#15,cc$:gosub900
  240 ifen>29 or en=0then next:return
  260 cc$="s "+dd$+":"+d$(i):print#15,cc$:gosub900:next:return
  500 rem read directory
  505 k=1
  520 print "{clr}{down}    {rvon}verzeichnis von laufwerk "sd$"{down}":b=30
  550 cc$="$"+sd$+":"+p$:open 2,dn,0,cc$
  551 cc$="open 2,"+dn$+",0,"+chr$(34)+cc$+chr$(34)
  555 gosub900:print
  560 get#2,a$ :get#2,a$ :i$=""
  570 if st<>0 goto 660
  580 for a=1tob :get#2,a$
  590 if a$="" then a$=chr$(0)
  600 i$=i$+a$ :next :i$=i$+"  "
  610 bq=asc(mid$(i$,3,1))
  620 bq=bq+asc(mid$(i$,4,1))*256
  630 print bq;mid$(i$,5,27)
  631 ifb=30then650
  633 fori=6to27:ifmid$(i$,i,1)<>chr$(34)thennext:goto650
  635 forj=i+1to27:ifmid$(i$,j,1)<>chr$(34)thend$=d$+mid$(i$,j,1):next
  639 ifs$="j"thengosub700:goto650
  640 d$(k)=d$:k=k+1
  650 d$="":i$="":b=32:ifa$<>"s"goto570
  660 print:cc$="lesen verzeichnis":gosub900
  670 cc$="close 2": close 2:gosub900:print"{down}{down}":return
  700 rem sort directory
  710 if k=1 then j=0: goto 740
  720 if k=0 then j=-1:goto 740
  730 for j=k-1 to 1 step-1:if d$<d$(j) then d$(j+1)=d$(j): next
  740 d$(j+1)=d$ :k=k+1 :return
  900 rem input from error channel
  910 input#15,en,em$,et$,es$
  920 ifen=0thenprint"{rvon}"cc$"{rvof} C> "tab(15)em$:return
  930 ifen=1thenprint"{rvon}"cc$"{rvof} C> "tab(15)"{rvon}"et$"{rvof}"em$:return
  940 print"{down}{rvon}"cc$:print"{rvof} C> fehler #"en"{rvon}"em$;
  950 ifen<30thenprint" on "et$"."es$;
  960 print"{down}"
  970 input"fortsetzen {$a0}n{left}{left}{left}";in$:ifin$="j"then return
  980 end
:{stop}{f7}{f2}{f5}{f7}{f1}{clr}{inst}{$a0}{clr}{$83}{$8f}{rvof}{f1}~{SHIFT-POUND}{blk}{sret}{CBM-F}{wht}l{SHIFT-@}{grn}{SHIFT-POUND}{$00}{f1}Sl{CBM-Y}{CTRL-X}{$ea}{$ea}{SHIFT-POUND}{$00}{f1}{f2}{f1}{f4} B{CTRL-G} {f4}{stop}{$60}FT{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-A}{f1}T{CBM-G}{$e9}P{CTRL-K}{$e6}{$e9}8{CBM-G}S{$e9}{$0a}{sret}h{$e8}{$60}{SHIFT-POUND}{$00}{f1}{$e9}FS{CBM-G}S{sret}h{$e8}{$60}{SHIFT-POUND}{CTRL-A}{f1}T F{grn}{$60} Z{blu} {$00}{CTRL-K}{$60} B{CTRL-G} h{CTRL-F}{$60}{CBM-+}{CBM-C}{CBM-X}{SHIFT-POUND}{stop}{sret}{CBM-Q}{wht}{$60}{$60}xp@0 {rvon}{$0a}{CTRL-D}{$00} {$65}{CTRL-F} {$a0}{stop}{$60}{SHIFT-POUND}{wht}{f1}{CBM-C}{$60}{CBM-G}{CBM-J}{$0a}{f1}F{$60}{brn}{$00}{$e8}{$e0}{$f7}{$60} B{CTRL-G}lq{esc} {lred}{CTRL-V}{f4}{$69}@{sret}h{$e8}{$60}{CBM-G}{CBM-J}{f1}{$ec} s{CTRL-Y}{$60} {CBM-J}{CTRL-Z}l-{stop}{$00}{$00}{$0a}{$00}{$00}{$00}{$00}{$f0}{stop}l3{CTRL-F} {gry3}{CTRL-Z}{$60}{$ec}P{$f9}{$60}l{CTRL-O}{CTRL-D}{$00}
{CTRL-D}{$0a}{$00}{yel}(8384){$00}{$00}{$00}X{$78}{SHIFT-POUND}{$00}{f1}{CBM-L}{f1}{CBM-Y}{f1}{CBM-U} {$8f}{CTRL-B} H{CTRL-G} h{stop} #{rvon} {CTRL-L}{blu} Y{$0a}{CBM-G}{$ee}{$f0}{stop}l_{wht} {CBM-I}{wht} {SHIFT--}{CTRL-W} {dish}{CTRL-W} U{CTRL-U} {CBM-I}{wht}{CBM-G}{CBM-J}I{CTRL-F}{blk}{stop} {dish}{CTRL-W} {CBM-T}{swlc} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {CBM-R}{CTRL-B} {CBM-I}{wht}{CBM-G}{CBM-J}I{ensh}{blk}{stop} {dish}{CTRL-W} {$fd}{CTRL-L} ){blu} {CBM-I}{wht} {dish}{CTRL-W} U{CTRL-U} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {SHIFT--}{CTRL-W} {CBM-R}{CTRL-B} {CBM-I}{wht}{CBM-G}{CBM-J}I{dish}{blk}{stop} {dish}{CTRL-W} {CBM-T}{swlc} {CBM-I}{wht} Z{blu} U{CTRL-U} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {$00}{CTRL-K} {CBM-C}{esc}{CBM-G}{$ee}{$f0}{stop}l_{wht} {CBM-I}{wht} {CBM-R}{CTRL-B}{CBM-G}{CBM-J}I{wht}{blk}{stop} {dish}{CTRL-W} {CBM-X}{blu} ){blu}{CBM-G}{CBM-Z}{$f0}{stop}l({CTRL-D}{CBM-G}{$77}P{$f9} y{stop} p{stop} {dish}{CTRL-W} {CBM-R}{wht} {CBM-R}{CTRL-B} U{CTRL-U} {dish}{CTRL-W} {CBM-R}{wht} U{CTRL-U} {dish}{CTRL-W} U{CTRL-U} {CBM-R}{wht} {CBM-R}{CTRL-B} {dish}{CTRL-W} U{CTRL-U} {dish}{CTRL-W} {CBM-R}{wht} {CBM-R}{CTRL-B} {CBM-G}{CTRL-Y} {dish}{CTRL-W} S{CTRL-G} U{CTRL-U} Y{$0a}{CBM-G}{$ee}{$f0}{stop}l_{wht}{CBM-G}C{$f0}{dish}{CBM-G}{$77}P{CTRL-D}{SHIFT-POUND}{$00}{f1}D {$66}{stop}{CBM-G}D{$f0}{stop}l{$e9}{CTRL-D} y{stop}{$e6}{CBM-J} {lblu}{blu}{$ea}{blk}{stop} +{CTRL-F} M{blu}{$ea}{$ea}{$ea} {$6e}{ensh}l%{CTRL-D} F{grn} B{wht} B{CTRL-G}{$ea} {$e3}{wht}{CBM-G}{CBM-F}E{CBM-U}{$f0}{wht}{blk}%l{f4}{wht}{CBM-G}{SHIFT-@}E{CBM-Y}{$f0}{wht}{blk}{CTRL-Z}l{f4}{wht}{CBM-G}{CBM-O}E{CBM-L}{$f0}{down}{blk}{CTRL-O} 
{CTRL-F}{CBM-G}{CBM-O}{f1}{CBM-L}{CBM-G}{SHIFT-@}{f1}{CBM-Y}{CBM-G}{CBM-F}{f1}{CBM-U} {$7e}{CTRL-F} F{grn}l{blu}{CTRL-D}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND} {f1}U {cyn}{CTRL-G}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND}{blk}{f1}U {cyn}{CTRL-G}{$60}{CBM-I}{$00}{CBM-J}{$00}P{CTRL-K}{CBM-J}{CTRL-A}P{CTRL-G}{$e8}{$e8}{$e0}7{blk}{$f2}{$60}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{ensh}{$80}{f1}Y {clr}{swlc}lL{wht}{CBM-I}{$00}{f3}{$e7} @{CTRL-F}{CBM-+}{$e7}{CBM-X}{$fb}{wht}I~P{CTRL-A}{$60}{left}{home}{$82}{$e6}{$e7}P{$ec}{f5}{$a0}{orng}{$a0}{sret}{$a0}{f1}{$a0}{$a0}{$a0}{$8f}{$a0}{lred}{$a0}{f1}{$a0}{rvof}~{CBM-I}{$00}{f3}{$e7} @{CTRL-F}{CBM-+}{$e7}{CBM-X}:{stop}I~P{CTRL-G} F{grn}{$ea}{$ea}{$ea}{$60}{left}{$65}{$82}{$e6}{$e7}P{$e6}{SHIFT-POUND}{CTRL-F}{f1}{CBM-J}{CBM-I} {f3}{$ec}N{CBM-Q}{wht}N{CBM-F}{wht}N{CBM-F}{wht}Jl{$f0}{stop}{CBM-Z}@{$e8}) P{$f9}{$60}{CBM-I}{$00}{SHIFT-POUND} {left}{$00}{$80}{left}{$00}{orng}{left}{$00}{$82}{left}{$00}{$83}{$e8}P{$f1}{$60}{CBM-@}YH{gry2}{$0a}{CBM-POUND}{$60}{$ea}{$ea}{SHIFT-POUND}{CBM-Q}{f1}{CBM-W}{SHIFT-POUND}{$83}{f1}{CBM-H}{$a0}{$00}{SHIFT-POUND}{$a0}{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}Hl{$ed}{ensh} :{CTRL-G}{CBM-G}{CBM-L}{f1}X{CBM-G}{CBM-Y}{f1}Y{CBM-G}{CBM-U}{f1}Z K{CTRL-F}{CBM-I}{$00}{CBM-X}B{CTRL-F}{left}{CTRL-D}{$80}{$e8}{$e0}{ensh}P{$f5}{CBM-I}{$00}{CBM-J}{SHIFT-+}{left}
{$80}{$e8}{$e0}{wht}P{$f6}{CBM-I}{$00}{CBM-X}E{CTRL-F}{left}{CTRL-Y}{$80}{$e8}{$e0}{CTRL-F}P{$f5} {esc}{CTRL-G}{CBM-G}{CBM-C}{CTRL-X}{$69}0 {clr}{blu}{$60}{dish}{ensh}-{home}{stop}{CTRL-O}{rvon}{wht}={CBM-I}{wht}{SHIFT-POUND}0{brn}ZJP{$fb}{$a0}{CTRL-F}{CBM-G}ZP{rvon}{CBM-G}Y{SHIFT--}{down}{CTRL-G}{$f0}{CTRL-D}{CBM-A}{ensh}P&{CBM-G}X{SHIFT--}{rvon}{CTRL-G}{blk}{blu}{f4}j{CBM-N}{$f6}{SHIFT-+}{$0a}{CBM-N}8{CBM-G}X{$fd}{rvon}{CTRL-G}{f1}X{CBM-G}Y{$fd}{down}{CTRL-G}{f1}Y{CBM-G}Z{$e9}{$00}{f1}ZlV{CTRL-F}{$e8}{$e8}{f7}PF{$60}'{CTRL-P}{stop}{$e8}{$00}{$64}{$00}{$0a}{$00}{CTRL-A}{CBM-G}{CBM-O}{f1}X{CBM-G}{SHIFT-@}{f1}Y{CBM-G}{CBM-F}{f1}Z K{CTRL-F} @{CTRL-F}{CBM-I}{$00}{CBM-J}{SHIFT-+}{left}{blu}{$80}{$e8}{$e0}{wht}P{$f6}{$60}{CBM-G}{CBM-X}{CTRL-X}{$69}0{sret}{$00}{$80}{$60}p{$80}{$78}{$80}{$a0}{$80}H{$80}{$f0}{$80}{CTRL-X}{orng}@{orng}{$68}{orng}{blk}{orng}{CBM-U}{orng}{$e0}{orng}{dish}{$82}0{$82}x{$82}{$80}{$82}{CBM-POUND}{$82}P{$82}{$f8}{$82} {$83}h{$83}{$70}{$83}{gry2}{$83}{SHIFT-*}{$83}{$75}{$80}{left}{$80}E{$80}{$ed}{$80}{CTRL-U}{orng}={orng}{$65}{orng}{sret}{orng}{CBM-J}{orng}{SHIFT--}{orng}{wht}{$82}-{$82}u{$82}{$7d}{$82}{CBM-G}{$82}M{$82}{$f5}{$82}{rght}{$83}e{$83}{$6d}{$83}{brn}{$83}{CBM-X}{$83}{$e5}{$83}{CBM-G}UP{ensh}{CBM-G}VP{wht}{CBM-G}WP{CTRL-A}{$60}8{CBM-G}U{$e9}{CTRL-A}{f1}U{CBM-G}V{$e9}{$00}{f1}V{CBM-G}W{$e9}{$00}{f1}Wl{cyn}{CTRL-G}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{$60}{$e6}{$ea}{$e6}{$ea}{CBM-+}{$ea}{CBM-X}d{dish}{f1}X{CBM-X}e{dish}{f1}Y){$80}{f1}Z{CBM-G}Y{ensh}{$80}{f1}Y{CTRL-X}{CBM-G}X{$69}({f1}{SHIFT-+}{CBM-G}Y{$69}{$00}{f1}{CBM--}I{$83}{$f0}{rvon}{blk}{CTRL-V}8{CBM-G}{SHIFT-+}{$e9}{gry2}{f1}{SHIFT-+}{CBM-G}{CBM--}{$e9}{stop}{f1}{CBM--}l{CTRL-V}{dish}{CBM-G}{SHIFT-+}I{$e7}{CBM-A}{$ea} @{CTRL-F}{$a0}{$00}{CBM-G}ZP{CTRL-L}{CBM-E}XI.P{CTRL-P}{SHIFT-POUND} {up}XP{$0a}{CBM-E}{SHIFT-+}I P{CTRL-D}{SHIFT-POUND}.{up}{SHIFT-+}{CBM-G}{CBM--}){$7f}{wht}Zi{$80}{left}e{dish}ld{ensh}{$ea}X{$82}
{CTRL-A}X{orng}O{stop}{CBM-M}{$80}y{stop}{wht}{$82}{orng}{$00}-{orng}{$66}{stop}{CBM-B}{$82}{gry3}{$00}+{$82}{$7f}{CTRL-A}{CBM-E}{$83}{CBM-X}{CTRL-A}{brn}{$82}u{$00}{$61}{orng}{f4}{stop}z{$82}B{$00}{CTRL-B}{$83}{$f5}{$00}9{$83}{$e7}{CTRL-A}{$6f}{$80}{lred}{stop}{CBM-D}{orng}{$ee}{CTRL-B}?{orng}{CTRL-W}{CTRL-B}{$7a}{$80}k{stop}{$7b}{$82}{$e5}{stop} {orng}{$66}{$00}I{$82}{CBM-K}{stop}B{orng}{CTRL-L}{CTRL-B}{CBM-G}{$83}{$8f}{$00}H{$83}{CBM-J}{CTRL-B}{$83}{$83}{CBM-K}{CTRL-A}{$f5}{$82}{$72}{stop}{del}{orng}{CBM--}{CTRL-A}{$6f}{$83}{CTRL-Y}{CTRL-A}{$82}{orng}{CBM-F}{stop}l{orng}{CBM-K}{$00}{CBM-U}{orng}N{CTRL-B}{up}{$83}G{CTRL-A}{$fb}{$80}%{CTRL-B}{f1}{$80}b{stop} {$83}{CTRL-A}{CTRL-B}{$60}{$80}{CBM-Y}{CTRL-A}{$60}{$83}>{CTRL-B}{CBM--}{$83}~{$00}{$e6}{$82}{CBM-L}{$00}.{$83}0{CTRL-B}{pur}{$83}2{CTRL-A}{$74}{$82}{del}{CTRL-B}{lred}{$80}{f4}{CTRL-A}{CBM-Q}{$82}s{CTRL-A}{$ec}{orng}C{CTRL-B}f{$83}%{CTRL-A}p{$80}d{CTRL-A}i{$82}4{stop}{ensh}{orng}{$fa}{CTRL-B}N{orng}{$77}{$00}{down}{$82}{SHIFT-POUND}{CTRL-B}{$63}{$82}{CBM-Q}{$00}{f2}{$82}{$6a}{CTRL-B}V{$83}{$6f}{CTRL-A}{$f9}{orng}{blk}{CTRL-B}U{$80}{$7e}{CTRL-B}{$ee}{$80}o{CTRL-B}q{$83}{$66}{CTRL-A}{$6a}{orng}A{stop}{red}{$82}&{stop}{CBM-R}{$80}{$e2}{CTRL-B}K{$80}{SHIFT-POUND}{stop}{SHIFT-@}{$80}^{CTRL-B}{yel}{$80}{$e3}{$00}{$76}{orng}{$f3}{CTRL-A}{CBM-G}{SHIFT-+}{left}d{dish}{$60}{CBM-I}{$00}{CBM-X}{$69}{ensh}{left}k{$80}{$e8}{$e0}{wht}P{$f5}{SHIFT-POUND}#{f1}{$eb}{SHIFT-POUND}{$f5}{f1}{$e6}{CBM-I}{$00}{f3}{$e7}{f3}Pl{$e7}{CTRL-Z}{$ea}{cyn}{f3}{brn}{f1}{f8}{CBM-I}{$00}{CBM-X}{CBM-S}{ensh}{brn}{$00}{$e8}{$e0}8{blk}{$f6}{SHIFT-POUND}{CTRL-A}{f1}? {$e6}{ensh}{f1}{$7a}{f1}{$7b}{f1}{$7c}{SHIFT-POUND}{red} {f5}{CTRL-L}{$ea}{CBM-I}{$00}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{f1}Y{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}k{up}X{$e8}{$e8}{$e0}8{blk}{$e2}{$60}K{$80}{esc}{orng}{$6b}{orng}{CBM-M}{$80}{$f7}{$80}g{orng}{gry1}{orng}{$83}{$80}S{$80}#{orng}{$73}{orng}C{orng}{CBM-P}{$80}~{$80}o{orng}{cyn}{orng}{f6}{$80}{SHIFT-+}{$80}+{orng}{$7b}{orng}K{orng}{CBM-Y}{$80}{CTRL-G}{orng}w{orng}{CBM-M}{orng}{$e3}{$80}3{orng}{$83}{orng}{CBM-G}{CBM-J}{f1}{CBM-Q}{SHIFT-POUND}{$00}{$60}{up}{CBM-W}{SHIFT-POUND}{CTRL-A}{f1}{CBM-V}{$60}{CBM-G}{CBM-W}P{wht}{CBM-G}{CBM-H}P{CTRL-A}{$60} @{CTRL-F}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{CTRL-B}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{f1}{gry1})  {$e5}{CTRL-L}{$ea}{$60}{CBM-G}{CBM-V}{$f0}{CTRL-G}{CBM-G}{CBM-W}I{pur}P{dish}{$60} {$66}{$0a} {CBM-Z}{$0a}{$60} {CBM-H}{$0a}8{CBM-G}{CBM-W}{$e9}{CTRL-A}{f1}{CBM-W}{CBM-G}{CBM-H}{$e9}{$00}{f1}{CBM-H} {swuc}{$0a}{SHIFT-POUND}{$00}{f1}{CBM-V}{$60}{CBM-G}{CBM-V}{$f0}{CTRL-G}{CBM-G}{CBM-W}I{CBM-F}P{CTRL-U}{$60} {$66}{$0a}{CTRL-X}{CBM-G}{CBM-W}{$69}{CTRL-A}{f1}{CBM-W}{CBM-G}{CBM-H}{$69}{$00}{f1}{CBM-H} {CBM-Z}{$0a}{$60} {CBM-H}{$0a} {swuc}{$0a}{$60}{$a0}{$00}{SHIFT-POUND} {up}{CBM-W}H{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}{$60}{$a0}{$00}{CBM-G}X{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}{$60}{$a0}{$00} M{$0a}{$ea}H{SHIFT-POUND}{$61}{up}{CBM-W}{$a0}'{SHIFT-POUND}{$e1}{up}{CBM-W}H{SHIFT-POUND}{$a0}{up}{CBM-W}H{up}{CBM-W}H{SHIFT-POUND}{$61}{up}{CBM-W}{$60}{SHIFT-POUND}{$a0}{f1}XlT{$0a}{SHIFT-POUND} {f1}Xl{$7d}{$0a}{CBM-G}{CBM-E}P{CTRL-D}{CBM-G}{CBM-R}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-W}{f1}{CBM-E}{CBM-G}{CBM-H}{f1}{CBM-R}{$60}{$84}{CBM-V}{SHIFT-POUND}{$e1}{up}{CBM-W}{$60}{f1}{CBM-V}l{$7d}{$0a}{CBM-G}{CBM-W}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-H}P{$fb}{CBM-G}{$77}P{$f7}{CBM-G}{CBM-D}P{$f3}{CBM-G}{CBM-X}P{stop}{$e6}{$ee}{$60}{CBM-G}{f2}{$f0}{stop}l{gry2}{del}{CBM-G}{f4}l{inst}{del}{$ea}{$ea}{$ea}{$e6}^{CBM-G}^I{CTRL-G}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}^{CBM-N}{CBM-X}9{CTRL-K}{f1}{CBM--}{CBM-N}{CBM-X}2{CTRL-K}{f1}X{CBM-X}@{CTRL-K}{f1}Z{CBM-J}8{f1}{SHIFT-+}{CBM-POUND}H{SHIFT-*}{CTRL-D}{blk}{CTRL-B}{$a0}{$00}{inst}8{SHIFT-POUND}{$00}{f1}Ylg{CTRL-K}{$00}{CTRL-F}{swlc}{CTRL-X} *2{$00}{stop}{CTRL-B}{wht}{CTRL-A}{CTRL-F}{CTRL-D}{stop}{CTRL-D}{wht}{CTRL-D}{wht}{CTRL-D}{stop}{CBM-G}Z{$0a}{CBM-POUND}{f7}{CBM-E}XP{CTRL-F}{f7}{CTRL-P}{$f9}l{CTRL-Z}{CTRL-L}{CBM-+}{SHIFT-+}{$e0}{stop}P{wht}{CBM-G}{$7b}{$f0}{CTRL-A}{$e8}{f4}{$0a}{CBM-N}{CBM-G}?P{CTRL-K}{CBM-X}{$73}{CTRL-L}{f1}{SHIFT--}{CBM-X}{$74}{CTRL-L}l{$7b}{CTRL-K}{CBM-X}{$7d}{CTRL-L}{f1}{SHIFT--}{CBM-X}{$7e}{CTRL-L}{f1}{$de}{CBM-G}Z{$0a}{f1}{CBM-*}F{CBM-*}F{CBM-*}{CTRL-P}{stop}l{CTRL-Z}{CTRL-L}{CBM-@}{CBM-*}{CBM-E}X{f1}{$e0}H{CBM-E}X F{CTRL-U}{CTRL-X}{CBM-G}{$e0}{$65}{SHIFT--}{up}X{f1}{$e2}{CBM-G}{$e1}{$65}{$de}{f1}{$e3}H{up}X){$80}{$f0}{ensh}{CBM-G}{$e3}{ensh}{$80}{f1}{$e3} ={CTRL-L}{CBM-G}{SHIFT-+}I{stop}{$f0}{stop}l{$82}{CTRL-K}{CBM-G}?{$f0}{rvon}{CTRL-X}{CBM-G}{$e2}{$69}{CTRL-A}{f1}{$e2}{CBM-G}{$e3}{$69}{$00}{ensh}{$80}{f1}{$e3}l{$e4}{CTRL-K}8{CBM-G}{$e2}{$e9}{CTRL-B}{f1}{$e2}{CBM-G}{$e3}{$e9}{$00}{ensh}{$80}{f1}{$e3}{CBM-I}{rvon}{CBM-G}?P{esc}{CBM-G}{$e2}{SHIFT--}c{CTRL-G}P
{CBM-G}{$e3}{SHIFT--}d{CTRL-G}P{CTRL-F}{SHIFT-POUND}{CTRL-A}{f1}{$7c}P{CTRL-Y}JJ{CTRL-P}{$e8}l{CTRL-W}{CTRL-L}{CBM-G}{$e2}{SHIFT--}{$71}{CTRL-G}P{CTRL-G}{CBM-G}{$e3}{SHIFT--}{$72}{CTRL-G}{$f0}{$e5}JJ{CTRL-P}{$ee}l{$82}{CTRL-K}{CBM-G}{SHIFT-+}I{stop}P{red}{CBM-G}{CBM--}I{CTRL-D}P{CTRL-V}{CBM-G}{$7c}{$f0}{rvon}{CBM-G}?{$f0}{CTRL-F}{SHIFT-POUND}{$00}{f1}?{$f0}{CTRL-D}{SHIFT-POUND}{CTRL-A}{f1}?{SHIFT-POUND}{$00}{f1}{$7c}{$60} @{CTRL-F}{$a0}{$00}{CBM-E}{$e0}{CBM-N}{SHIFT-POUND} {up}{$e0}H{up}{$e0}H{up}{$e0}{$a0}{$00}{$e0}j{$f0}{CTRL-O}{SHIFT-POUND}j{up}{$e2}H{SHIFT-POUND}q{up}{$e2}H{SHIFT-POUND}k{up}{$e2}{$60}{SHIFT-POUND}u{up}{$e2}H{SHIFT-POUND}q{up}{$e2}H{SHIFT-POUND}i{up}{$e2}{$60}Y~'{$00}W~({$00}){$00}W~){$00}Y~({$00}'{$00}{f1}{CBM-Z}{CBM-I}&{SHIFT-POUND}{$00}{brn}8J{CTRL-P}{$fb}{$60}{CBM-G}YI{$83}{blk}
{$f0}{wht}{SHIFT-POUND}~{f1}Z{$60}{CBM-G}XI{gry1}{CBM-A}{$f5}8{SHIFT-POUND}{gry1}{$e5}X{f1}Z{SHIFT-POUND}{$83}{$e5}Y{f1}{SHIFT-+}{$a0}{$00}{$84}{CBM--}H8{CBM-G}Z{$e9}({f1}Z{CBM-G}{SHIFT-+}{$e9}{$00}{f1}{SHIFT-+}{CTRL-P}{$f0}{CBM-G}Zi~{CBM-N}{$e8}{f3}Z8{CBM-G}{CBM-W}{$e9}{gry1}8{$e5}Z{CTRL-P}{CTRL-G}{$e6}{CBM--}i~{CBM-N}{$e8}{f4}{f1}{SHIFT-+}{$84}Z{$60}P{stop} {CBM-F}{$0a}{CBM-G}{gry1}){CTRL-B}P{stop} @{$0a}{CBM-G}{gry1}){CTRL-A}P{stop} {CTRL-V}{$0a}{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-Z}P{CTRL-A}{$60}{CBM-G}{CBM-D}E{CBM-Q}{blk}{CTRL-A}{$60}I{CTRL-F}{blk}{CTRL-A}{$60}{CBM-G}{$83}P{CTRL-L}{CBM-G}{$84}P{CTRL-F}{CBM-G}{f1}{$f0}{CTRL-G}F{f1}F{$84}F{$83}{$60}{$a0}{$00}{CBM-G}?{$f0}{swlc}{CBM-O}P
{f1}X{CBM-N}{CBM-O}Q
{f1}Yle
{CBM-O}{dish}{swlc}{f1}X{CBM-N}{CBM-O}{ensh}{swlc}{f1}Y{CBM-J}{$00}P{CTRL-K}{CBM-J}{CTRL-A}P{ensh}HH{SHIFT-*}7{blk}U{$60}{CBM-J}{CTRL-A}){$80}{$f0}{$f3}{CBM-G}Y){CTRL-O}{CBM-N}{CBM-J}8P{$f0}fYfYfYfY{CBM-+}X \{CTRL-F}8{CBM-J}{$00}{$f9}c{CTRL-G}{f1}Z{CBM-G}?{$f0}{CTRL-G}{CBM-G}ZI{$0a}{CBM-A}{dish}{$60}{CBM-G}ZI{red}{blk}{CTRL-A}{$60}{CBM-J}{$00}{f1}{SHIFT-+}{CBM-J}{CTRL-A}{f1}{CBM--}){$7f}{brn}{CTRL-A}{$e6}{CBM-D}{f3}{SHIFT--}{CBM-I}{$00}{CBM-J}@P{CTRL-D}{CBM-J}a{$f0}{$0a}{$e8}{$e8}{$e8}{$e8}{$e8}{$e0}{CTRL-Z}{blk}{$ef}{$60}{CBM-G}{SHIFT-+}{brn}@{CBM-G}{CBM--}{brn}a{CBM-G}{SHIFT--}{ensh}{$80}{brn}b{SHIFT-POUND}{stop}{brn}c{CBM-G}?{$f0}{CTRL-D}{SHIFT-POUND}{$60}P{CTRL-B}{SHIFT-POUND}p{brn}d {$7b}{rvon}{$60}{CTRL-F}{down}{CTRL-P}"{$00} .u{CTRL-X}{home}{swlc}{CTRL-B}{$0a}q {CTRL-D}{red}s*{CTRL-U}2&({$84}{dish}1{CTRL-Z}3{CTRL-B}@"${CTRL-L}{$71}{grn}{$73}4f{rvon}b{CTRL-D}{$60}$d6{$66},5{del}{$62}0{$75}&{$64}{CTRL-V}{$82} {CTRL-D}{CTRL-P}".u{$0a}q2&6{$66}{CTRL-Z}3{swlc}{CTRL-B}{$00} {CTRL-V}{$82}{CTRL-D}{$60},5{CTRL-X}{home}{del}{$62}*{CTRL-U}{red}s{CTRL-F}{down}$d{CTRL-B}@"$({$84}4f{dish}10{$75}{rvon}b&{$64}{CTRL-L}{$71}{grn}{$73}{$e6}{f3}{CBM-G}{f3}I{$0a}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{f3}{$0a}{CTRL-X}{$65}{f3}{CBM-N}{CBM-X}{$61}{swlc}{f1}{$83}{CBM-X}{$62}{swlc}{f1}{$84}{CBM-X}{$63}{swlc}{f1}{f1}{$60}{CTRL-B}{$00}{$00}{CTRL-B}{$00}{$00}{stop}{$00}{$00}{wht}{$00}{$00}{CTRL-B}{$00}{$00}{stop}{$00}{$00}{CTRL-B}{$00}{$00}{CTRL-D}{$00}{$00}{CTRL-B}{$00}{$00}{wht}{$00}{$00} 9{CTRL-U}{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND} {up}XH{up}XH{up}X{$60}{$e6}{$79}{CBM-G}{$79}I{CTRL-F}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{$79}{$0a}{$0a}{CTRL-X}{$65}{$79}{CBM-N}{CBM-J}@P{wht}{CBM-J}aP{CTRL-A}{$60}{CBM-J}b{CTRL-P}{CTRL-D} {CBM-L}{CTRL-P}{$60}{CBM-J}c{CTRL-P}{CTRL-L})@{$f0}{CTRL-D} {$83}{rvon}{$60} {$83}{rvon}{$60}{CBM-J}c) {$f0}{CTRL-D} {CTRL-Z}{down}{$60} {$68}{CTRL-O}{$60}{CBM-I}{$00}{CBM-G}ZP{wht}{CBM-X}d{CTRL-G}P{stop}{CBM-X}{$72}{CTRL-G}EY{$f0}{CTRL-K}{CBM-A}{CTRL-F}{$e8}{$e8}{$e0}.{blk}{$e8}{SHIFT-POUND}{$00}{$60}{CBM-G}ZP{wht}{CBM-X}c{CTRL-G}P{stop}{CBM-X}{$71}{CTRL-G}EX{$f0}{CTRL-D}{CBM-A}{$eb}P{$e3}{SHIFT-POUND}{CTRL-A}{$60}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{ensh}{$80}{f1}Y{CBM-G}YI{$80}{$f0}{wht}{CBM-A}{ensh}l*{CTRL-O}{CBM-G}XI{$78}{blk}{CTRL-P}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Yl"{CTRL-O}{$60}{$e6}{f5}{CBM-+}{f5}{$e0}{del}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f5}{CBM-X}t{CTRL-O}{$60}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{CBM-J}@{f1}X{CBM-J}a{f1}Y {clr}{swlc}{f3}{$e7}{CBM-J}d){CTRL-P}{f1}Z {$e4}{swlc}{$f0}{stop}l{$f5}{down}{CBM-+}{$e7}{CBM-J}d){$f0}I0{$f0}{CTRL-O}I@P{CTRL-Y}{CBM-G}XP{CTRL-B}FYFXl{CBM-I}{CTRL-O}{$e6}XP{CTRL-B}{$e6}Y {$e4}{swlc}{$f0}{stop}l{$f5}{down} {$67}{rvon}{$ea}){$f0}I0{CBM-A}{CTRL-L}I{CTRL-P}{$f0}{CTRL-D}{SHIFT-POUND}'P{CTRL-L}{SHIFT-POUND})P{dish}{$f0}{CTRL-D}{SHIFT-POUND}&P{CTRL-B}{SHIFT-POUND}*{CTRL-X}{$75}@{f1}X{brn}@{CBM-J}a{$69}{$00}{f1}Y{brn}a{CBM-G}YI{$83}{blk}{swlc}{$f0}{stop}l{lblu}{CTRL-P}{CBM-G}XI{$e7}{blk}{stop}l{lblu}{CTRL-P} {$7f}{swlc}{CBM-G}YI{$83}{$f0}{ensh}{blk}d{CBM-J}b{ensh}@{brn}b{$60}{CBM-G}XI{$70}{CBM-A}{$f3}{CBM-G}YI{$83}P1{CBM-G}XI {blk}+I{$70}{CBM-A}' d{CTRL-O}{$f0}" {clr}{CTRL-L}{CBM-+}{$e7}{CBM-J}d){CTRL-P}{$f0}{CTRL-F}{CBM-G}{CBM--}P{$0a}{$f0}{down}{CBM-G}{CBM--}P
{SHIFT-POUND}{$80}P{CTRL-B}{SHIFT-POUND}{SHIFT-*}{brn}c{SHIFT-POUND}{$00}{brn}d{$60}{CBM-+}{$e7}{CBM-J}b)@{$f0}{CTRL-A}{$60} {clr}{CTRL-L}{CBM-G}Z{CTRL-P}{CTRL-A}{$60}{CBM-+}{$e7}{CBM-J}d){$f0}I0{blk}{CTRL-B}{CTRL-F}Z{CBM-G}ZE{SHIFT-+}{$f0}{CTRL-G}F{SHIFT-+}E{SHIFT-+}{$f0}{CTRL-A}{$60}{CBM-J}d){$f0}{f1}{$e6}){CTRL-P}{$f0}{CTRL-G}{CBM-G}{CBM--}P{CTRL-G}l{$f6}{CTRL-O}{CBM-G}{CBM--}P{$f9}{CBM-G}{$e6}I{CTRL-P}P{CTRL-D}{SHIFT-POUND} P{rvon}I P{CTRL-D}{SHIFT-POUND}{CTRL-P}P{$0a}I0P{CTRL-D}{SHIFT-POUND}@P{CTRL-B}{SHIFT-POUND}0{brn}dl{$f6}{CTRL-O}{CBM-+}{$e7}{CBM-J}b)?{CBM-N} {CTRL-X}{CTRL-O}{CBM-+}{$e7}{CBM-G}X{brn}@{CBM-G}Y{brn}a{SHIFT-POUND} {brn}c {$7f}{swlc}{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y {clr}{swlc}{CBM-J}d){$f0}Ip{$f0}{CTRL-F}{SHIFT-POUND}%{f1}ZP{CTRL-D}{SHIFT-POUND}+{f1}Z{CTRL-X}{CBM-G}X{$65}Z{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a {$7f}{swlc}{CBM-J}c){blu}{CBM-POUND}{f7}{$f0}{stop}{inst}c{$60} {clr}{CTRL-L}{CBM-+}{$e7}{CBM-J}b)?{brn}b{SHIFT-POUND}{$00}{brn}c{$a0}{CTRL-A}{CBM-G}{SHIFT-+}EZ{blk}{CTRL-B}{$a0}{stop}{CBM-G}{CBM--}{$f0}{CTRL-A}H{gry2}{$0a}{$0a}{$0a}{$0a}{brn}d{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}b)?{CBM-N}{CBM-J}{$00}{f1}Z{CBM-J}{CTRL-A}{ensh}{$80}{f1}{SHIFT-+}EYP{ensh}{CBM-G}ZEXP{stop}lE{down}8{CBM-G}X{$e9}({f1}{CBM--}{CBM-G}Y{$e9}{$80}{f1}{SHIFT--} {CBM-I}{blu}{f3}{$de}{CBM-G}{CBM--}{f1}{CBM-*}8{CBM-G}Z{$e9}({f1}{CBM--}{CBM-G}{SHIFT-+}{$e9}{$80}{f1}{SHIFT--} {$74}{rvon}{f3}{$e0}{CBM-G}{$de}E{$e0}{$f0}{rvon}{blk}{$0a}{SHIFT-POUND}~{f1}{$e2}{SHIFT-POUND}X{f1}{$e1}P{swlc}{SHIFT-POUND}({f1}{$e1}P{CTRL-D}{SHIFT-POUND}{$00}{f1}{$e1}{SHIFT-POUND}{$00}{f1}{$e2}{CBM-G}{CBM-*}E{CBM--}{$f0}{home}{blk}{CTRL-K}{CBM-G}{$e1}P{CTRL-B}F{$e2}F{$e1}l{CBM-K}{down}{$e6}{$e1}P{CTRL-B}{$e6}{$e2}{CBM-+}{$e7}{CTRL-X}{CBM-G}X{$65}{$e1}{brn}@{f1}X{CBM-G}Y{$65}{$e2}{brn}a{f1}Y {$7f}{swlc}{CBM-G}XEZ{$f0}{CTRL-A}{$60}{CBM-G}YE{SHIFT-+}{$f0}{CTRL-A}{$60}F{CBM-D}{CBM-+}{$e7}{SHIFT-POUND}{$00}{brn}@{brn}a{CBM-J}b)?{CBM-N}{CBM-J}{CTRL-A}{ensh}{$80}{brn}{CTRL-A}{$60}{$e6}{f7}{CBM-+}{f7}{$e0}{$0a}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f7}{CBM-X}{$eb}{down}{$60}{$00}{CTRL-A}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{CTRL-A}{CTRL-A}{$00} {SHIFT-+}{down}P{stop}l{lblu}{CTRL-P}{CBM-+}{$e7}{CBM-J}d){$f0}I{CTRL-P}P{CTRL-D}{$a0} P{rvon}I P{CTRL-D}{$a0}{CTRL-P}P{$0a}I0P{CTRL-D}{$a0}@P{CTRL-B}{$a0}0{inst}d{gry2}l{CBM-A}{CTRL-O}{CBM-I}{f8}{SHIFT-POUND}{$00}{brn}{$00}JP{$fb}{f1}{CBM-O}{f1}{SHIFT-@}{f1}{CBM-F}{CBM-I}{CBM-X} E{stop}{blk}{$fb}{CBM-I}{$0a}{brn}{CBM-Q}J{CTRL-P}{$fb}{SHIFT-POUND}{CTRL-A}{f1}{CBM-J} @{swlc}{SHIFT-POUND}{CTRL-B}{f1}{CBM-X} h{CTRL-F} {$7e}{CTRL-F}{SHIFT-POUND}{$00}{f1}K{SHIFT-POUND}{wht}{f1}J{SHIFT-POUND}{CBM--}{f1}I M{blu} {$6e}{ensh} {CBM-W}{stop}{$60}{CBM-+}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}d{$60} {clr}{swlc} {CBM-I}{blu}{$60}{SHIFT-POUND} {f1}R @{swlc}{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}c)@{f1}Z{CBM-J}d{$f6}d){CTRL-O}{$0a}{CBM-N}{CBM-X}{CBM-N}{rvon}{sret}{CBM-POUND}{rvon}{CBM-X}{CBM-Q}{rvon}{sret}{SHIFT-POUND}{rvon}l{$ea}{$ea}{CBM-V}{rvon}E{rvon}&{home}5{home}d{home}s{home}{$7c}{home}{lgrn}{home}{SHIFT-@}{home}{CBM-*}{home} {CBM-*}{rvon} {$7f}{swlc}{$60} {CBM-*}{rvon}{CBM-G}ZP{CTRL-D} {$f9}{home}{$60} 
{del}{$60}{$a0}){CBM-G}ZP{CTRL-B}{$a0}'{$84}{SHIFT-+}{$60} {clr}{swlc} T{rvon} {$e9}{rvon}{$60}{CBM-+}{$e7}8{CBM-G}X{$e5}{SHIFT-+}{f1}X{brn}@{CBM-G}Y{$e9}{$00}{f1}Y{brn}a{$60}{CBM-+}{$e7}8{CBM-G}X{$e9}({f1}X{brn}@{CBM-G}Y{$e9}{$00}{f1}Y{brn}a {del}{home}{$60} @{CTRL-F}{SHIFT-POUND} {$a0}{CTRL-A}{up}X{$a0}){up}X{$a0}q{up}X{$60} {CBM-*}{rvon}{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CBM-G}ZP{CTRL-D} {$6e}{del}{$60} 4{del}{$60} {$fd}{rvon}{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX {$f9}{home}l{$71}{home}{$e6}XP{CTRL-B}{$e6}Y 
{del}{CBM-+}{$e7}{CBM-G}X{brn}@{CBM-G}Y{brn}a{$60} {clr}{swlc}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX g{del}l{$71}{home}{$e6}XP{$f6}{$e6}YP{$f2} {clr}{swlc}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX {$f9}{home}l{$71}{home}{$e6}XP{CTRL-B}{$e6}Y 
{del}l{$71}{home} {clr}{swlc} T{rvon}{CBM-+}{$e7}{CTRL-X}{CBM-G}X{$65}{SHIFT-+}{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CTRL-X}{CBM-G}X{$69}p{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a {$7f}{swlc}l{$f4}{CTRL-P} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}u{up}X{SHIFT-POUND}qH{up}XH{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}i{up}X{$60} {orng}{del}{SHIFT-POUND}u{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}k{up}X{$60} {orng}{del}{SHIFT-POUND}i{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}u{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}i{up}X{$60} {orng}{del}{SHIFT-POUND}i{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}j{up}X{$60} {orng}{del}{SHIFT-POUND}u{up}X{SHIFT-POUND}q{$a0}){up}X{CBM-POUND}{SHIFT-POUND}j{up}X{$60}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Y @{CTRL-F}{$a0}{CTRL-A}{$60}{$f0}{wht}F{f4}F{f2}{$60}F{CBM-X} {$67}{CTRL-U}{SHIFT-POUND}{$00}{f1}{$7a}{$60} @{CTRL-F}{gry2}{$a0}{$00}{up}XH{up}XH{up}X{$a0}'{up}XH{up}XH{up}XH{up}XH{up}X{$60}{CBM-G}{CBM-W}{f1}X{CBM-G}{CBM-H}{f1}Y{CBM-G}XP{CTRL-B}FYFX{SHIFT-POUND}{CTRL-B}{f1}{SHIFT-+}{SHIFT-POUND}p{f1}Z {grn}{CTRL-U}{$a0}{$7f} {CBM-G}{del} .{CTRL-U} {grn}{CTRL-U}{$a0}~ {CBM-G}{del} .{CTRL-U}{CBM-G}ZP{CTRL-F}{CBM-G}{SHIFT-+}{$f0}{CTRL-G}F{SHIFT-+}FZl{CBM--}{del}{$a0}  {CBM-G}{del}{SHIFT-POUND}{CTRL-A}{f1}{$7a}{SHIFT-POUND}{blk}{f1}{f2}{SHIFT-POUND}{$00}{f1}{f4}{SHIFT-POUND}{$00}{f1}{CBM-W}{f1}{CBM-H}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND}{CTRL-B}{f1}U {cyn}{CTRL-G}{$60}{$e6}{CBM--}{CBM-+}{CBM--}{CBM-X}{SHIFT-*}{CTRL-K}{sret}h{$e8}{$60} @{CTRL-F}{$a0}{$00} y{CTRL-U}{$f0}
H y{CTRL-U}{$f0}{CTRL-G}H y{CTRL-U}{$f0}{CTRL-A}{$60}{$68}{$68} {CBM-X}{CTRL-U}{CBM-+}{$de}{$ea}{$60}{CBM-E}XI{$a0}P{CTRL-A}{$60}I{$e1}{$f0}{CTRL-B}I{$61}{$60} :{CTRL-G} {$65}{CTRL-F}{$60} {CTRL-Z}{esc}{CBM-I}{$00}{CBM-G}XU{$00}{$f0}{dish}{$e8}{$e8}{$e0}7{blk}{$f4}{CBM-A}{CTRL-O}{CBM-G}YU{CTRL-A}P{$f2}{SHIFT-POUND}{$00}{brn}{$00}{brn}{CTRL-A}F{CBM-Z}{$60}{CBM-I}@{CBM-G}XU{$00}{$f0}{$0a}{$e8}{$e8}{$e8}{$e8}{$e8}{$e0}z{blk}{$f1}{$60}{CBM-G}YU{CTRL-A}P{$f0}{$e6}{$e8}{$ea}{$ea}{$ea}{SHIFT-POUND}{$00}{brn}{$00}{brn}{CTRL-A}{CBM-J}{CTRL-B})?{CBM-N}F{CBM-D}l{f5}{CTRL-U}{f3}{$de} {$6e}{CTRL-U} D{del}{$60}{f1}{$e1}{$f0}{CTRL-B}{f7}{$60}{CBM-G}{$e0}P{$fa}{$68}{$68}l{$82}{CTRL-K}{CBM-G}{CBM-E}P{wht}{CBM-G}{CBM-R}P{CTRL-A}{$60} @{CTRL-F}{$a0}{$00}{CBM-E}{CBM-E}I{grn}P{CTRL-D}{SHIFT-POUND} {up}{CBM-E}8{CBM-G}{CBM-E}{$e9}({f1}{CBM-E}{f1}X{CBM-G}{CBM-R}{$e9}{$00}{f1}{CBM-R}{f1}YI{$80}P
{CBM-G}{CBM-E}Ip{CBM-A}{CTRL-G}{SHIFT-POUND}{$00}{f1}{CBM-E}{f1}{CBM-R}{$60}{CBM-E}{CBM-E}I P{wht}{SHIFT-POUND}{grn}{up}{CBM-E}{$60}I.{$f0}{$f7}Ij{$f0}{$f7}Ik{$f0}{$f3}Ii{$f0}{$ef}Iu{$f0}{$eb}I]{$f0}{dish}In{$f0}{CTRL-D}ImP{stop}l{$6d}{CTRL-V} 9{CTRL-Z}{$ea}{CBM-G}XP{CTRL-B}FYFX {$f4}{CTRL-V}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Y{CBM-I}{$a0} Q{stop} {$e4}{CTRL-V} B{CTRL-V} {$e4}{CTRL-V}J{CTRL-P}{$f1}l"{esc}{CBM-I}{$00}{CBM-G}{CBM-E}U_{$f0}{$0a}{$e8}{$e8}{$e8}{$e0}{CTRL-V}{blk}{$f3}l{dish}{CTRL-V}{CBM-G}{CBM-R}U{$60}P{$f0}F{$77}{SHIFT-POUND} {up}{CBM-E}{SHIFT-POUND}{$00}{brn}_{brn}{$60}{brn}{$61}l{dish}{CTRL-V} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}m{up}X{$a0}r{up}X{$a0}{CTRL-A}{SHIFT-POUND}]{up}X{$a0}q{up}X{$a0}{CTRL-B}{SHIFT-POUND}n{up}X{$a0}p{up}X{$a0}({SHIFT-POUND}c{up}X{$a0}*{up}X{$60} @{CTRL-F}{SHIFT-POUND} {$a0}{$00}{up}XH{up}XH{up}X{$a0}({up}XHH{up}X{$a0}p{up}XH{up}XH{up}X{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-B}{f1}V{SHIFT-POUND}@{f1}U {cyn}{CTRL-G}{$60} {$6e}{CTRL-U}{CBM-G}YI{$80}P{$f6}{CBM-G}XI{$78}{CBM-A}{$f0}{$68}{$68}l"{esc}{CBM-G}{$77}P{CTRL-A}{$60}{$e6}{$78}{CBM-G}{$78}E{CBM-S}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{$78}{$0a}{CTRL-X}{$65}{$78}{CBM-N}{CBM-J}_P{wht}{CBM-J}{$60}P{CTRL-A}{$60}{CBM-J}_{f1}X{CBM-J}{$60}{f1}Y @{CTRL-F}{$a0}{$00}{CBM-E}XI]P{CTRL-F}{SHIFT-POUND} {up}XP{dish}In{$f0}{$f6}Im{$f0}{$f2}{CBM-J}{$61}P{down}{f1}Z {CBM-P}{CTRL-X}P>{SHIFT-POUND}m{f1}{CBM--}{SHIFT-POUND}){f1}{SHIFT-+}P{rght}I{CTRL-A}P{down}{f1}Z {CBM-P}{CTRL-X}P){SHIFT-POUND}n{f1}{CBM--}{SHIFT-POUND}'{f1}{SHIFT-+}P{dish}{SHIFT-POUND}]{f1}{CBM--}{SHIFT-POUND}({f1}{SHIFT-+}{CTRL-X}{CBM-G}X{$65}{SHIFT-+}{f1}X{brn}_{CBM-G}Y{$69}{$00}{f1}Y{brn}{$60}I{$83}{$f0}{CTRL-K}{blk}{CTRL-O}{SHIFT-POUND}{$00}{brn}_{brn}{$60}F{$77}{$60}{CBM-G}XI{$e8}{CBM-A}{$f1} @{CTRL-F}{$a0}{$00}{CBM-E}XI P{wht}{CBM-G}{CBM--}{up}X{$60}I.{$f0}{$f7}I:{$f0}{$f3}I{grn}P
{SHIFT-POUND}{$00}{f1}{CBM-E}{f1}{CBM-R}{SHIFT-POUND} {up}Xl{up}{CTRL-W}I{$a0}{$f0}{ensh}I{$e1}{$f0}{wht}I{$61}{$f0}{CTRL-A}{$60} {up}{CTRL-W} D{del}{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}{CBM-G}{$77}E{CBM-S}{blk}{CTRL-A}{$60} {f6}{CTRL-X}P{CTRL-A}{$60}{f1}Z{$e6}{f6}{CBM-G}{f6}I{CTRL-F}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{f6}{$0a}{$0a}{CTRL-X}{$65}{f6}{CBM-N}{CBM-J}@P{wht}{CBM-J}aP{CTRL-A}{$60}{CBM-J}c{CTRL-P}{CTRL-A}{$60}) {$f0}{CTRL-A}{$60}{CBM-J}b{CTRL-P}{CTRL-A}{$60}{CBM-J}d{f1}{SHIFT-+}{CBM-J}@{f1}X{CBM-J}a{f1}Y {$76}{CTRL-X}{f4}{CTRL-P}{CTRL-A}{$60}{$e6}XP{CTRL-B}{$e6}Y{CBM-G}X{brn}_{CBM-G}Y{brn}{$60}{SHIFT-POUND}{CTRL-B}{brn}{$61}{$e6}{$77}{CBM-G}ZI{CTRL-A}P{CTRL-A}{$60}{CBM-G}{$77}E{CBM-S}{blk}{CTRL-A}{$60} {$76}{CTRL-X}{f4}{CTRL-P}{CTRL-A}{$60}{CBM-G}X{brn}_{CBM-G}Y{brn}{$60}{$e6}{$77}{CBM-G}{SHIFT-+}){$f0}I{CTRL-P}{$f0}{dish}I0{$f0}{CTRL-D}{SHIFT-POUND}{CTRL-A}P{CTRL-B}{SHIFT-POUND}{$00}{brn}{$61}{$60}{CBM-I}{$00}{CBM-J}_P{wht}{CBM-J}{$60}P{CTRL-A}{$60}{$e8}{$e8}{$e8}{$e0}{CTRL-V}{blk}{$f0}{CBM-I}~{$60}{$e6}{f8}{CBM-+}{f8}{$e0}{del}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f8}{CBM-X}{gry3}{CTRL-X}{$60}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-B}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-B}{$00}{CTRL-B}{f3}{SHIFT--} {$e4}{swlc}lc{esc}{SHIFT-POUND}q{f1}G{SHIFT-POUND}{$80}{f1}H{CBM-G}{CBM-J}{f1}F{SHIFT-POUND}{$00}{f1}E{$e6}D  {blu}{$60} @{CTRL-F}{$a0}{stop}{SHIFT-POUND}p{up}GHH{SHIFT-POUND}o{up}G{$a0}({SHIFT-POUND}{$e1}{up}GHH{SHIFT-POUND}{$e9}{up}GH{SHIFT-POUND}{$a0}{up}GH{up}GH{up}GH{SHIFT-POUND}{CBM-*}{up}GHH{SHIFT-POUND}{$61}{up}G{$a0}p{SHIFT-POUND}{$e1}{up}GH{SHIFT-POUND}{$62}{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}Q{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}Q{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$62}{up}GH{SHIFT-POUND}{$61}{up}G{$a0}{$7a}{SHIFT-POUND}_{up}GH{SHIFT-POUND}{$a0}{up}GHFFP{dish} {CBM-B}{stop}{$ea}{SHIFT-POUND} P{CTRL-B}{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$69}{up}G{$60} @{CTRL-F}{$a0}{stop}{SHIFT-POUND} {up}GHH{up}G{$a0}({up}GHH{up}GH{up}GH{up}GH{up}GH{up}GHH{up}G{$a0}p{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}G{$a0}{$7a}{up}GH{up}GH{up}GH{up}GH{up}G{$60}{CBM-G}CP{$fb}{CBM-G}D{$f0}{$f7} s{CTRL-Y}{CBM-G}E{$f0}{stop}l{$f6}{CTRL-Y}{CTRL-X}{CBM-G}G{$69}{CTRL-G}{f1}X{CBM-G}H{$69}{$00}{f1}Y{SHIFT-POUND}{CTRL-A}{f1}Z {$e4}{swlc}{$f0}{blu}{$e6}E{CTRL-X}{CBM-G}G{$69}({f1}G{CBM-G}H{$69}{$00}{f1}HI{$83}{blk}{rvon} K{stop}{SHIFT-POUND}{$00}{f1}D{f1}G{f1}H{$60}{$e6}GP{CTRL-B}{$e6}H M{CTRL-X}{$60}{CBM-G}GP{CTRL-B}FHFG{CBM-G}G{f1}X{CBM-G}H{f1}Y{SHIFT-POUND}{$00}{f1}Z {$e4}{swlc}{$f0}{grn}{SHIFT-POUND}{$00}{f1}E{CTRL-X}{CBM-G}G{$69}){f1}G{CBM-G}H{$69}{$00}{f1}HI{$83}P{ensh}{CBM-G}GI {blk}{stop}l{$e0}{CTRL-Y} M{CTRL-X}{$60}{SHIFT-POUND}{stop}{f1}{CBM-S} M{CTRL-X}{$60}IqP{CTRL-A}{$60}{CBM-G}DP{stop}{$68}{$68}{$60}{CBM-E}{CBM-E}I{$a0}{$f0}{stop}l{clr}{CTRL-Z}{$a0}'{CBM-E}{CBM-E}I{$a0}P{$f5}HH{CBM-E}{CBM-E}I{$a0}P{$ed} {$64}{CTRL-Z}l{clr}{CTRL-Z}{$e6}C{SHIFT-POUND}{stop}{f1}{$77}{f1}{CBM-S}{CTRL-X}{CBM-G}G{$69}t{f1}_{f1}{$62}{f1}{$65}{CBM-G}H{$69}{$00}{f1}{$60}{f1}{$63}{f1}{$66}{$a0}{$00}{$84}{$61}{$84}{$78}F{$78}H{$84}{$64}H{$84}{$67} {gry2}{CTRL-Z}{$60}{$68}{$68}l{dish}{CTRL-V} {SHIFT-+}{stop}{CTRL-X}{CBM-G}{CBM-O}{$69},{f1}{CBM-O}{CBM-G}{SHIFT-@}{$69}{CTRL-A}{f1}{SHIFT-@}{CBM-G}{CBM-F}{$69}{$00}{f1}{CBM-F} {$7e}{CTRL-F} {$e3}{stop}{$60}{CBM-G}{CBM-F}EK{CBM-A}{CTRL-A}{$60}{$f0}{CTRL-Y}{$e6}{CBM-X} :{CTRL-G}{CTRL-X}{CBM-G}I{$69}{CBM--}{f1}I{CBM-G}J{$69}{wht}{f1}J{CBM-G}K{$69}{$00}{f1}K{$60}{CBM-G}{SHIFT-@}EJ{CBM-A}{CTRL-A}{$60}P{$de}{CBM-G}{CBM-O}EI{CBM-A}X{$60} @{CTRL-F}{SHIFT-POUND}{$e8}{left}({$80}{CBM-G}{$e6}{sret}h{$e8}8{CBM-G}{$e6}{$e9}{CTRL-F}{f1}{$e6}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-K}{f1}V{SHIFT-POUND}{$00}{f1}U {$ed}{grn}{$ea}{$e0}#{blk}X{SHIFT-POUND}{$00}{sret}h{$e8}{SHIFT-POUND}{$a0} {CBM-H}{esc}{$60}{SHIFT-POUND}{$00}{f1}{$e8} {clr}{swlc}{$60}{CBM-G}{$e8}P{CTRL-D}{SHIFT-POUND}{$0a}P{CTRL-B}{SHIFT-POUND}{grn}{CTRL-X}{$65}{CBM-O}{f1}{CBM-O}{CBM-G}{SHIFT-@}{$69}{$00}{f1}{SHIFT-@}{CBM-G}{CBM-F}{$69}{$00}{f1}{CBM-F} j{esc}l{dish}{CTRL-V}{f1}{$e1}{CBM-+}{SHIFT--}{CBM-G}{$e1}{$60} {esc}{CTRL-G} {CBM-J}{CTRL-Z}{$60}{SHIFT-POUND}{$00}{f1}A{SHIFT-POUND}{$0a}{f1}{SHIFT-*}{SHIFT-POUND}{$00}{f1}{CBM-B}{CBM-I}{$00}{f3}L @{CTRL-F}{CBM-X}{$a0}{esc}{left}{lblu}{orng} {sret}{esc}{$e6}L{CBM-+}L{$e0}{del}{blk}{$ec}{SHIFT-POUND}{$0a}{f1}E {sret}{esc}FEP{$f9}{CBM-I}{$00}{SHIFT-POUND} {left}{lblu}{orng}{$e8}{$e0}{del}{blk}{$f8}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{del}{f1}V{SHIFT-POUND}{$00}{f1}U {cyn}{CTRL-G} S{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{$a0}{sret}{f2}{clr}{clr}{f1}{$84}{$a0}{$82}{$8f}{swuc}{brn}{clr}{$a0}{CBM-N}{CBM-N}{CBM-N}{sret}j{$80}{SHIFT-POUND}2{f1}M{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}FM{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-P}{f1}M{CBM-+}{$eb}J @{CTRL-F}{CBM-X}({$80}I{$a0}P{CTRL-F}{SHIFT-POUND}{$61}{left}({$80}{$60}{SHIFT-POUND} {left}({$80}F{$eb}{$f0}{CTRL-G}J{SHIFT-POUND}{$a0} {$fe}{grn}{$60}{$e6}{$ee}{$60}y{$80}{$00}{$a0}{$83}{$8f}{clr}{sret}{f2}{$83}{$a0}{$a0}{$83}{$8f}{clr}{sret}{f2}{orng}{$84}{clr}{$a0}~{rvof}{$80}{$00}{sret}{f6}{CBM-A}{CBM-E}~{$f8}{$80}{$00}jqk~{$fe}{$80}{CTRL-A}-  {CBM-E}{CBM-A}{$a0}{blk}{$8f}{f2}{swuc}{inst}{clr}{$a0}{$a0}{$a0}{$a0}~h{orng}{CTRL-A}{f2}{swuc}~{$6e}{orng}{CTRL-A}{f3}{f8}{f2}{f5}{f7}{inst}~n{orng}{CTRL-A}-  {CBM-W}{CBM-A}{$a0}{blk}{$8f}{f2}{swuc}{inst}{clr}{$a0}{$a0}{$a0}{$a0}~{SHIFT-*}{orng}{$00}{$6e}{$70}~{$e6}{orng}{$00}l{$e9}QQ{CBM-*}{$7a}~{CTRL-O}{$82}{$00}_{$ec}{$fb}{$69}~I{orng}{CTRL-A}{clr}{f7}{$8f}{inst}{$a0}{f2}{swuc}{$a0}{lblu}{lgrn}{f8}{$8f}{swuc}~{$ee}{orng}{CTRL-A}-  {sret}{$8f}{brn}{inst}{f7}{$a0}{clr}{$83}{$8f}{rvof}{f1}{clr}{CBM-Z}~{CTRL-Y}{$82}{CTRL-A}{CBM-N}{CBM-N}{CBM-N}{$a0}{$82}{$8f}{swuc}{brn}{clr}{$a0}{CBM-N}{CBM-N}{CBM-N}~{$60}{$82}{$00}'{down}'~{f7}{$82}{$00}'{wht}'~{CBM-A}{$82}{$00}'{grn}'~X{$82}{$00}'{home}'~{$66}{$82}{CTRL-A}-  {sret}{$8f}{lred}{f1}{clr}{$a0}{f8}{f1}{f3}{inst}{$a0}{$a0}{$a0}~{swuc}{$82}{CTRL-A}-  {sret}{$8f}{lred}{f1}{clr}{$a0}{rvof}{f2}{f5}{f7}{inst}{$a0}{$a0}~{CBM-L}{$82}{CTRL-A}-  {f3}{f2}{rvof}{f1}{clr}{$a0}{f8}{orng}{lblu}{f1}{rvof}{$a0}{$a0}~{$de}{$82}{CTRL-A}-  {clr}{inst}{orng}{rvof}{inst}{clr}{$a0}{f5}{orng}{sret}{f1}{$a0}{$a0}~&{$83}{$00}{CBM-N}{CBM-N}{CBM-N}{$a0}{f8}{f1}{lred}{f1}{f8}{$a0}>   <{CBM-POUND}{CBM-A}{CBM-Z}{CBM-O}{SHIFT-POUND}{$a0}{CBM-N}{CBM-N}{CBM-N}~{$76}{$83}{$00}{CTRL-A}{CTRL-U}{del}{dish}{CTRL-O}{rvon}:  {CTRL-D}{wht}{rvon}{wht}{CTRL-K} {$0a}{$7b} {dish}{ensh}{CTRL-P}{CTRL-K}{ensh}{swlc}~~~x{blu}{$e6}{$e4}P{CTRL-B}{$e6}{$e5} m{rght}{$60}{$e6}{$e2}P{CTRL-B}{$e6}{$e3}{$60}{CBM-I}{$00}{SHIFT-POUND}o{sret}{$00}{$80}{SHIFT-POUND}l{sret}{SHIFT-*}{$83}{SHIFT-POUND}p{sret}'{$80}{SHIFT-POUND}{$7a}{sret}{$e7}{$83}{SHIFT-POUND}{$63}{left}{CTRL-A}{$80}{SHIFT-POUND}{$64}{left}A{$83}{$e8}{$e0}&{blk}{$f1}{SHIFT-POUND}{CTRL-W}{f1}{$e3}{SHIFT-POUND}({f1}{$e5}{SHIFT-POUND}{$80}{f1}{$e6}{$a0}{$00}{SHIFT-POUND}{$65}{up}{$e5}{$a0}'{SHIFT-POUND}{$67}{up}{$e5}{CTRL-X}{CBM-G}{$e5}{$69}({f1}{$e5}{CBM-G}{$e6}{$69}{$00}{f1}{$e6}F{$e3}P{$e3}{CBM-I}{$00}{SHIFT-POUND}{CBM-N}{left}.{$80}{left}v{$80}{left}{$7e}{$80}{$e8}{$e0}{CTRL-Y}{blk}{$f2}{SHIFT-POUND}{$f0}{f1}{$e2}{SHIFT-POUND}{esc}{f1}{$e3}{$a0}{$00}{CBM-E}{$e2}{f1}{$e4} m{rght}{CBM-E}{$e2}{f1}{$e5} m{rght}{CBM-E}{$e2}{f1}{$e6} m{rght} +{grn}{$a0}{$00}{CBM-E}{$e2}I~{$f0}{dish}{up}{$e4} c{rght}lS{rght} c{rght}{CBM-E}{$e2}I~PMH{CBM-E}{$e2}I~PF {CBM-W}{grn}{$f0}{CTRL-K}{CBM-N}H{CBM-E}{$e2}{f1}{$e3}{f3}{$e2}l{CBM-C}{rght}{CBM-N}H{CBM-E}{$e2}P{$f3}{SHIFT-POUND}{$00}{f1}{$e3}{SHIFT-POUND}{CBM-H}{f1}{$e2} +{grn}{CBM-G}{$e2}P{CTRL-F}{CBM-G}{$e3}{$f0}{CTRL-G}F{$e3}F{$e2}l{del}{grn}{SHIFT-POUND}{CTRL-A}{f1}{CBM-P}{$60}l{$e3}{CTRL-B} ^{grn}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-A}P{CTRL-G}{$68}{$68}{SHIFT-POUND}{$00}{f1}{CBM-P}{$60}{CBM-G}{$e6}P{CTRL-A}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-P}{f1}V{SHIFT-POUND}{$00}{f1}U {cyn}{CTRL-G}{$60}{CBM-I}{CTRL-A}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{CTRL-F}{sret}{CTRL-P}{$e8}{$a0}{stop}{CBM-Z}{rvon}{$e8})@P{CTRL-F}{f3}{CBM-C} {CBM-Q}{grn}{$60}{$e8}{$ee}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8})@{$f0}{$ef}{$e8}N{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){$80}{$f0}{$e4}{$e8}N{CTRL-P}{$e8}N{CTRL-P}{$e8}{f7}PS{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{dish}{sret}{CTRL-P}{$e8} {SHIFT-*}{grn})@{$f0}I{$60}{CBM-G}{CBM-C}{ensh}0{sret}2{$83}{$60} {CBM-Q}{grn}H{CBM-E}{$e2}{$60} {lgrn}{stop}lt{rght}{CBM-I}{$00}{CBM-Z}{rvon}{$e8}{$60}{SHIFT-POUND}{CTRL-A}{f1}N{SHIFT-POUND}{$80}{f1}{CBM-A} S{CTRL-G}{SHIFT-POUND}{$00}{f1}W{f1}U{SHIFT-POUND}{CTRL-A}{f1}V {cyn}{CTRL-G} {$f2}{blu} U{CTRL-U}F{CBM-A}P{$e6}FNP{$fa}{$60} S{CTRL-G} {cyn}{CTRL-G} S{CTRL-G} S{CTRL-G}{$e6}{$e7}{CBM-+}{$e7}{$60}{left}({$80}{CBM-G}{$eb}I{dish}{CBM-A}{CTRL-D}{$e6}P{f1}O{$60}{CBM-+}{CBM-J}{CBM-X}{$70}{blu}{CBM-N}){$f0}jjjj{f1}{CBM-Q}{f4}){CTRL-O}{f1}{CBM-S}{$60}{f1}C 1{CTRL-Z}{$60}{$00}{$00}{$00}{CBM-G}PP{CTRL-A}{$60}FO{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-P}{f1}O @{CTRL-F}{CBM-Z}o{$80}I {$f0}{CTRL-K}{SHIFT-POUND} {CBM-I}{CTRL-D}{left}k{$80}J{CTRL-P}{$fa}{$60}{CBM-I}{CTRL-D}{CBM-X}{$69}{ensh}{left}k{$80}J{CTRL-P}{$f7}{$60}{$7e}{$80}{CTRL-A}{$83}{$8f}{blk}{lgrn}{rvof}{f2}{f5}{f7}{inst}{CBM-POUND}{$83}{SHIFT-POUND}{CBM-E}{CBM-O}{CBM-U}{CBM-E}~~~{$00}{$00}{$00}{down}"#46fvw{$68} @{CTRL-F}{CBM-I}{$00}{SHIFT-POUND}{CBM-N}{left}{del}{$80}{$e8}{CBM-POUND}{CBM-G}{CBM-J}{ensh}{CBM-A}{left}{del}{$80}{$e8}{gry2}{left}{del}{$80}{$60}{sret}'{$80} {$7a}{blu}{$60} {$7a}{blu}{CBM-G}{CBM-J}I{$0a}{$60}{CBM-I}{$00}8{CBM-G}{CBM--}{$e9}({f1}{CBM--}{CBM-G}{SHIFT--}{$e9}{$00}{f1}{SHIFT--}{$e8}{CBM-G}{SHIFT--}P{$ee}{CBM-G}{CBM--}I({CBM-A}{$e8}{$60}{CBM-G}{CBM-D}P{CTRL-A}{$60}{$e6}R{$ea}{$ea}{$ea}{CBM-G}R{sret}h{$e8}{$60}{CBM-I}({SHIFT-POUND} {left}'{$80}JP{$fa}lj{ensh}{CBM-G}{CBM-D}{$f0}{CTRL-A}{$60}{$e6}Q{CBM-+}Q{CBM-X}{$00}{CTRL-P}{sret}h{$e8}{$e0}{wht}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}Q{$60} {rvof}{stop}{CBM-G}{$ee}P{stop} {CBM-R}{CTRL-B}{$60}F{grn}{$60}{CTRL-A}:{stop}{$00} cosmiads uni    {CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l{SHIFT-@}{stop} {esc}{$e0}{SHIFT-POUND}{CTRL-A}{sret}{$80}{$e8}{SHIFT-POUND}{del}{sret}{orng}{$e8}{SHIFT-POUND}{CTRL-B}{sret}{$80}{$e8}{SHIFT-POUND}{blu}{sret}{orng}{$e8}P{$e4}{CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l{$f4}{ensh}{CBM-G}{CBM-W}P{wht}{CBM-G}{CBM-H}P{CTRL-A}{$60} @{CTRL-F}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){stop}{f1}{gry1}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}) {wht}{gry1}l
{$0a}{CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l.{grn} {CTRL-B}{stop}{SHIFT-POUND}{CTRL-B}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-B}P{stop}lb{grn}li{grn}{CBM-I}{ensh}{CBM-X}{CTRL-Y}{stop}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}=#{stop}P{stop}l{$73}{grn}J{CTRL-P}{$ec}{$60}{CTRL-G}{dish}{CTRL-G}{CTRL-F}{wht}{CTRL-B}{stop}{CTRL-A}{$00}{CTRL-A}{CTRL-P}{$80}{$80}{$80}{$80}{$80}{$80}{CTRL-P}{CTRL-P}{$80}F{$ec}P{CTRL-A}{$60}{$68}{$68}l{gry3}{CTRL-Z}{CBM-N}{CBM-N}{CBM-N}{CBM-I}{SHIFT-*}{CBM-X}~{blu}{left}{$79}{CTRL-B}JP{$f7}l{CTRL-O}{CTRL-D}{CBM-N}{CBM-N}{$7a}{CTRL-B}{CTRL-A}:{stop}{$00} cosmiads uni    {CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l{SHIFT-@}{stop} {esc}{$e0}{SHIFT-POUND}{CTRL-A}{sret}{$80}{$e8}{SHIFT-POUND}{del}{sret}{orng}{$e8}{SHIFT-POUND}{CTRL-B}{sret}{$80}{$e8}{SHIFT-POUND}{blu}{sret}{orng}{$e8}P{$e4}{CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l{$f4}{ensh}{CBM-G}{CBM-W}P{wht}{CBM-G}{CBM-H}P{CTRL-A}{$60} @{CTRL-F}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){stop}{f1}{gry1}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}) {wht}{gry1}l
{$0a}{CBM-Z}{CTRL-A}{$e0}Ik{$f0}{stop}l.{grn} {CTRL-B}{stop}{SHIFT-POUND}{CTRL-B}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-B}P{stop}lb{grn}li{grn}{CBM-I}{ensh}{CBM-X}{CTRL-Y}{stop}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}=#{stop}P{stop}l{$73}{grn}J{CTRL-P}{$ec}{$60}{CTRL-G}{dish}{CTRL-G}{CTRL-F}{wht}{CTRL-B}{stop}{CTRL-A}{$00}{CTRL-A}{CTRL-P}{$80}{$80}{$80}{$80}{$80}{$80}{CTRL-P}{CTRL-P}{$80}F{$ec}P{CTRL-A}{$60}{$68}{$68}l{gry3}{CTRL-Z}{CBM-N}{CBM-N}{CBM-N}{f7}{f2}{f5}{f7}{f1}{clr}{inst}{$a0}{clr}{$83}{$8f}{rvof}{f1}~{SHIFT-POUND}{blk}{sret}{CBM-F}{wht}l{SHIFT-@}{grn}{SHIFT-POUND}{$00}{f1}Sl{CBM-Y}{CTRL-X}{$ea}{$ea}{SHIFT-POUND}{$00}{f1}{f2}{f1}{f4} B{CTRL-G} {f4}{stop}{$60}FT{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-A}{f1}T{CBM-G}{$e9}P{CTRL-K}{$e6}{$e9}8{CBM-G}S{$e9}{$0a}{sret}h{$e8}{$60}{SHIFT-POUND}{$00}{f1}{$e9}FS{CBM-G}S{sret}h{$e8}{$60}{SHIFT-POUND}{CTRL-A}{f1}T F{grn}{$60} Z{blu} {$00}{CTRL-K}{$60} B{CTRL-G} h{CTRL-F}{$60}{CBM-+}{CBM-C}{CBM-X}{SHIFT-POUND}{stop}{sret}{CBM-Q}{wht}{$60}{$60}xp@0 {rvon}{$0a}{CTRL-D}{$00} {$65}{CTRL-F} {$a0}{stop}{$60}{SHIFT-POUND}{wht}{f1}{CBM-C}{$60}{CBM-G}{CBM-J}{$0a}{f1}F{$60}{brn}{$00}{$e8}{$e0}{$f7}{$60} B{CTRL-G}lq{esc} {lred}{CTRL-V}{f4}{$69}@{sret}h{$e8}{$60}{CBM-G}{CBM-J}{f1}{$ec} s{CTRL-Y}{$60} {CBM-J}{CTRL-Z}l-{stop}{$00}{$00}{$0a}{$00}{$00}{$00}{$00}{$f0}{stop}l3{CTRL-F} {gry3}{CTRL-Z}{$60}{$ec}P{$f9}{$60}l{CTRL-O}{CTRL-D}{$00}
{CTRL-D}{$0a}{$00}{yel}(1021){$00}{$00}{$00}X{$78}{SHIFT-POUND}{$00}{f1}{CBM-L}{f1}{CBM-Y}{f1}{CBM-U} {$8f}{CTRL-B} H{CTRL-G} h{stop} #{rvon} {CTRL-L}{blu} Y{$0a}{CBM-G}{$ee}{$f0}{stop}l_{wht} {CBM-I}{wht} {SHIFT--}{CTRL-W} {dish}{CTRL-W} U{CTRL-U} {CBM-I}{wht}{CBM-G}{CBM-J}I{CTRL-F}{blk}{stop} {dish}{CTRL-W} {CBM-T}{swlc} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {CBM-R}{CTRL-B} {CBM-I}{wht}{CBM-G}{CBM-J}I{ensh}{blk}{stop} {dish}{CTRL-W} {$fd}{CTRL-L} ){blu} {CBM-I}{wht} {dish}{CTRL-W} U{CTRL-U} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {SHIFT--}{CTRL-W} {CBM-R}{CTRL-B} {CBM-I}{wht}{CBM-G}{CBM-J}I{dish}{blk}{stop} {dish}{CTRL-W} {CBM-T}{swlc} {CBM-I}{wht} Z{blu} U{CTRL-U} S{CTRL-G} {CBM-I}{wht}{CBM-G}{CBM-J}I{stop}{blk}{stop} {dish}{CTRL-W} {$00}{CTRL-K} {CBM-C}{esc}{CBM-G}{$ee}{$f0}{stop}l_{wht} {CBM-I}{wht} {CBM-R}{CTRL-B}{CBM-G}{CBM-J}I{wht}{blk}{stop} {dish}{CTRL-W} {CBM-X}{blu} ){blu}{CBM-G}{CBM-Z}{$f0}{stop}l({CTRL-D}{CBM-G}{$77}P{$f9} y{stop} p{stop} {dish}{CTRL-W} {CBM-R}{wht} {CBM-R}{CTRL-B} U{CTRL-U} {dish}{CTRL-W} {CBM-R}{wht} U{CTRL-U} {dish}{CTRL-W} U{CTRL-U} {CBM-R}{wht} {CBM-R}{CTRL-B} {dish}{CTRL-W} U{CTRL-U} {dish}{CTRL-W} {CBM-R}{wht} {CBM-R}{CTRL-B} {CBM-G}{CTRL-Y} {dish}{CTRL-W} S{CTRL-G} U{CTRL-U} Y{$0a}{CBM-G}{$ee}{$f0}{stop}l_{wht}{CBM-G}C{$f0}{dish}{CBM-G}{$77}P{CTRL-D}{SHIFT-POUND}{$00}{f1}D {$66}{stop}{CBM-G}D{$f0}{stop}l{$e9}{CTRL-D} y{stop}{$e6}{CBM-J} {lblu}{blu}{$ea}{blk}{stop} +{CTRL-F} M{blu}{$ea}{$ea}{$ea} {$6e}{ensh}l%{CTRL-D} F{grn} B{wht} B{CTRL-G}{$ea} {$e3}{wht}{CBM-G}{CBM-F}E{CBM-U}{$f0}{wht}{blk}%l{f4}{wht}{CBM-G}{SHIFT-@}E{CBM-Y}{$f0}{wht}{blk}{CTRL-Z}l{f4}{wht}{CBM-G}{CBM-O}E{CBM-L}{$f0}{down}{blk}{CTRL-O} 
{CTRL-F}{CBM-G}{CBM-O}{f1}{CBM-L}{CBM-G}{SHIFT-@}{f1}{CBM-Y}{CBM-G}{CBM-F}{f1}{CBM-U} {$7e}{CTRL-F} F{grn}l{blu}{CTRL-D}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND} {f1}U {cyn}{CTRL-G}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND}{blk}{f1}U {cyn}{CTRL-G}{$60}{CBM-I}{$00}{CBM-J}{$00}P{CTRL-K}{CBM-J}{CTRL-A}P{CTRL-G}{$e8}{$e8}{$e0}7{blk}{$f2}{$60}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{ensh}{$80}{f1}Y {clr}{swlc}lL{wht}{CBM-I}{$00}{f3}{$e7} @{CTRL-F}{CBM-+}{$e7}{CBM-X}{$fb}{wht}I~P{CTRL-A}{$60}{left}{home}{$82}{$e6}{$e7}P{$ec}{f5}{$a0}{orng}{$a0}{sret}{$a0}{f1}{$a0}{$a0}{$a0}{$8f}{$a0}{lred}{$a0}{f1}{$a0}{rvof}~{CBM-I}{$00}{f3}{$e7} @{CTRL-F}{CBM-+}{$e7}{CBM-X}:{stop}I~P{CTRL-G} F{grn}{$ea}{$ea}{$ea}{$60}{left}{$65}{$82}{$e6}{$e7}P{$e6}{SHIFT-POUND}{CTRL-F}{f1}{CBM-J}{CBM-I} {f3}{$ec}N{CBM-Q}{wht}N{CBM-F}{wht}N{CBM-F}{wht}Jl{$f0}{stop}{CBM-Z}@{$e8}) P{$f9}{$60}{CBM-I}{$00}{SHIFT-POUND} {left}{$00}{$80}{left}{$00}{orng}{left}{$00}{$82}{left}{$00}{$83}{$e8}P{$f1}{$60}{CBM-@}YH{gry2}{$0a}{CBM-POUND}{$60}{$ea}{$ea}{SHIFT-POUND}{CBM-Q}{f1}{CBM-W}{SHIFT-POUND}{$83}{f1}{CBM-H}{$a0}{$00}{SHIFT-POUND}{$a0}{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}Hl{$ed}{ensh} :{CTRL-G}{CBM-G}{CBM-L}{f1}X{CBM-G}{CBM-Y}{f1}Y{CBM-G}{CBM-U}{f1}Z K{CTRL-F}{CBM-I}{$00}{CBM-X}B{CTRL-F}{left}{CTRL-D}{$80}{$e8}{$e0}{ensh}P{$f5}{CBM-I}{$00}{CBM-J}{SHIFT-+}{left}
{$80}{$e8}{$e0}{wht}P{$f6}{CBM-I}{$00}{CBM-X}E{CTRL-F}{left}{CTRL-Y}{$80}{$e8}{$e0}{CTRL-F}P{$f5} {esc}{CTRL-G}{CBM-G}{CBM-C}{CTRL-X}{$69}0 {clr}{blu}{$60}{dish}{ensh}-{home}{stop}{CTRL-O}{rvon}{wht}={CBM-I}{wht}{SHIFT-POUND}0{brn}ZJP{$fb}{$a0}{CTRL-F}{CBM-G}ZP{rvon}{CBM-G}Y{SHIFT--}{down}{CTRL-G}{$f0}{CTRL-D}{CBM-A}{ensh}P&{CBM-G}X{SHIFT--}{rvon}{CTRL-G}{blk}{blu}{f4}j{CBM-N}{$f6}{SHIFT-+}{$0a}{CBM-N}8{CBM-G}X{$fd}{rvon}{CTRL-G}{f1}X{CBM-G}Y{$fd}{down}{CTRL-G}{f1}Y{CBM-G}Z{$e9}{$00}{f1}ZlV{CTRL-F}{$e8}{$e8}{f7}PF{$60}'{CTRL-P}{stop}{$e8}{$00}{$64}{$00}{$0a}{$00}{CTRL-A}{CBM-G}{CBM-O}{f1}X{CBM-G}{SHIFT-@}{f1}Y{CBM-G}{CBM-F}{f1}Z K{CTRL-F} @{CTRL-F}{CBM-I}{$00}{CBM-J}{SHIFT-+}{left}{blu}{$80}{$e8}{$e0}{wht}P{$f6}{$60}{CBM-G}{CBM-X}{CTRL-X}{$69}0{sret}{$00}{$80}{$60}p{$80}{$78}{$80}{$a0}{$80}H{$80}{$f0}{$80}{CTRL-X}{orng}@{orng}{$68}{orng}{blk}{orng}{CBM-U}{orng}{$e0}{orng}{dish}{$82}0{$82}x{$82}{$80}{$82}{CBM-POUND}{$82}P{$82}{$f8}{$82} {$83}h{$83}{$70}{$83}{gry2}{$83}{SHIFT-*}{$83}{$75}{$80}{left}{$80}E{$80}{$ed}{$80}{CTRL-U}{orng}={orng}{$65}{orng}{sret}{orng}{CBM-J}{orng}{SHIFT--}{orng}{wht}{$82}-{$82}u{$82}{$7d}{$82}{CBM-G}{$82}M{$82}{$f5}{$82}{rght}{$83}e{$83}{$6d}{$83}{brn}{$83}{CBM-X}{$83}{$e5}{$83}{CBM-G}UP{ensh}{CBM-G}VP{wht}{CBM-G}WP{CTRL-A}{$60}8{CBM-G}U{$e9}{CTRL-A}{f1}U{CBM-G}V{$e9}{$00}{f1}V{CBM-G}W{$e9}{$00}{f1}Wl{cyn}{CTRL-G}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{$60}{$e6}{$ea}{$e6}{$ea}{CBM-+}{$ea}{CBM-X}d{dish}{f1}X{CBM-X}e{dish}{f1}Y){$80}{f1}Z{CBM-G}Y{ensh}{$80}{f1}Y{CTRL-X}{CBM-G}X{$69}({f1}{SHIFT-+}{CBM-G}Y{$69}{$00}{f1}{CBM--}I{$83}{$f0}{rvon}{blk}{CTRL-V}8{CBM-G}{SHIFT-+}{$e9}{gry2}{f1}{SHIFT-+}{CBM-G}{CBM--}{$e9}{stop}{f1}{CBM--}l{CTRL-V}{dish}{CBM-G}{SHIFT-+}I{$e7}{CBM-A}{$ea} @{CTRL-F}{$a0}{$00}{CBM-G}ZP{CTRL-L}{CBM-E}XI.P{CTRL-P}{SHIFT-POUND} {up}XP{$0a}{CBM-E}{SHIFT-+}I P{CTRL-D}{SHIFT-POUND}.{up}{SHIFT-+}{CBM-G}{CBM--}){$7f}{wht}Zi{$80}{left}e{dish}ld{ensh}{$ea}X{$82}
{CTRL-A}X{orng}O{stop}{CBM-M}{$80}y{stop}{wht}{$82}{orng}{$00}-{orng}{$66}{stop}{CBM-B}{$82}{gry3}{$00}+{$82}{$7f}{CTRL-A}{CBM-E}{$83}{CBM-X}{CTRL-A}{brn}{$82}u{$00}{$61}{orng}{f4}{stop}z{$82}B{$00}{CTRL-B}{$83}{$f5}{$00}9{$83}{$e7}{CTRL-A}{$6f}{$80}{lred}{stop}{CBM-D}{orng}{$ee}{CTRL-B}?{orng}{CTRL-W}{CTRL-B}{$7a}{$80}k{stop}{$7b}{$82}{$e5}{stop} {orng}{$66}{$00}I{$82}{CBM-K}{stop}B{orng}{CTRL-L}{CTRL-B}{CBM-G}{$83}{$8f}{$00}H{$83}{CBM-J}{CTRL-B}{$83}{$83}{CBM-K}{CTRL-A}{$f5}{$82}{$72}{stop}{del}{orng}{CBM--}{CTRL-A}{$6f}{$83}{CTRL-Y}{CTRL-A}{$82}{orng}{CBM-F}{stop}l{orng}{CBM-K}{$00}{CBM-U}{orng}N{CTRL-B}{up}{$83}G{CTRL-A}{$fb}{$80}%{CTRL-B}{f1}{$80}b{stop} {$83}{CTRL-A}{CTRL-B}{$60}{$80}{CBM-Y}{CTRL-A}{$60}{$83}>{CTRL-B}{CBM--}{$83}~{$00}{$e6}{$82}{CBM-L}{$00}.{$83}0{CTRL-B}{pur}{$83}2{CTRL-A}{$74}{$82}{del}{CTRL-B}{lred}{$80}{f4}{CTRL-A}{CBM-Q}{$82}s{CTRL-A}{$ec}{orng}C{CTRL-B}f{$83}%{CTRL-A}p{$80}d{CTRL-A}i{$82}4{stop}{ensh}{orng}{$fa}{CTRL-B}N{orng}{$77}{$00}{down}{$82}{SHIFT-POUND}{CTRL-B}{$63}{$82}{CBM-Q}{$00}{f2}{$82}{$6a}{CTRL-B}V{$83}{$6f}{CTRL-A}{$f9}{orng}{blk}{CTRL-B}U{$80}{$7e}{CTRL-B}{$ee}{$80}o{CTRL-B}q{$83}{$66}{CTRL-A}{$6a}{orng}A{stop}{red}{$82}&{stop}{CBM-R}{$80}{$e2}{CTRL-B}K{$80}{SHIFT-POUND}{stop}{SHIFT-@}{$80}^{CTRL-B}{yel}{$80}{$e3}{$00}{$76}{orng}{$f3}{CTRL-A}{CBM-G}{SHIFT-+}{left}d{dish}{$60}{CBM-I}{$00}{CBM-X}{$69}{ensh}{left}k{$80}{$e8}{$e0}{wht}P{$f5}{SHIFT-POUND}#{f1}{$eb}{SHIFT-POUND}{$f5}{f1}{$e6}{CBM-I}{$00}{f3}{$e7}{f3}Pl{$e7}{CTRL-Z}{$ea}{cyn}{f3}{brn}{f1}{f8}{CBM-I}{$00}{CBM-X}{CBM-S}{ensh}{brn}{$00}{$e8}{$e0}8{blk}{$f6}{SHIFT-POUND}{CTRL-A}{f1}? {$e6}{ensh}{f1}{$7a}{f1}{$7b}{f1}{$7c}{SHIFT-POUND}{red} {f5}{CTRL-L}{$ea}{CBM-I}{$00}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{f1}Y{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}k{up}X{$e8}{$e8}{$e0}8{blk}{$e2}{$60}K{$80}{esc}{orng}{$6b}{orng}{CBM-M}{$80}{$f7}{$80}g{orng}{gry1}{orng}{$83}{$80}S{$80}#{orng}{$73}{orng}C{orng}{CBM-P}{$80}~{$80}o{orng}{cyn}{orng}{f6}{$80}{SHIFT-+}{$80}+{orng}{$7b}{orng}K{orng}{CBM-Y}{$80}{CTRL-G}{orng}w{orng}{CBM-M}{orng}{$e3}{$80}3{orng}{$83}{orng}{CBM-G}{CBM-J}{f1}{CBM-Q}{SHIFT-POUND}{$00}{$60}{up}{CBM-W}{SHIFT-POUND}{CTRL-A}{f1}{CBM-V}{$60}{CBM-G}{CBM-W}P{wht}{CBM-G}{CBM-H}P{CTRL-A}{$60} @{CTRL-F}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{CTRL-B}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{f1}{gry1})  {$e5}{CTRL-L}{$ea}{$60}{CBM-G}{CBM-V}{$f0}{CTRL-G}{CBM-G}{CBM-W}I{pur}P{dish}{$60} {$66}{$0a} {CBM-Z}{$0a}{$60} {CBM-H}{$0a}8{CBM-G}{CBM-W}{$e9}{CTRL-A}{f1}{CBM-W}{CBM-G}{CBM-H}{$e9}{$00}{f1}{CBM-H} {swuc}{$0a}{SHIFT-POUND}{$00}{f1}{CBM-V}{$60}{CBM-G}{CBM-V}{$f0}{CTRL-G}{CBM-G}{CBM-W}I{CBM-F}P{CTRL-U}{$60} {$66}{$0a}{CTRL-X}{CBM-G}{CBM-W}{$69}{CTRL-A}{f1}{CBM-W}{CBM-G}{CBM-H}{$69}{$00}{f1}{CBM-H} {CBM-Z}{$0a}{$60} {CBM-H}{$0a} {swuc}{$0a}{$60}{$a0}{$00}{SHIFT-POUND} {up}{CBM-W}H{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}{$60}{$a0}{$00}{CBM-G}X{up}{CBM-W}{$a0}'{up}{CBM-W}H{up}{CBM-W}H{up}{CBM-W}{$60}{$a0}{$00} M{$0a}{$ea}H{SHIFT-POUND}{$61}{up}{CBM-W}{$a0}'{SHIFT-POUND}{$e1}{up}{CBM-W}H{SHIFT-POUND}{$a0}{up}{CBM-W}H{up}{CBM-W}H{SHIFT-POUND}{$61}{up}{CBM-W}{$60}{SHIFT-POUND}{$a0}{f1}XlT{$0a}{SHIFT-POUND} {f1}Xl{$7d}{$0a}{CBM-G}{CBM-E}P{CTRL-D}{CBM-G}{CBM-R}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-W}{f1}{CBM-E}{CBM-G}{CBM-H}{f1}{CBM-R}{$60}{$84}{CBM-V}{SHIFT-POUND}{$e1}{up}{CBM-W}{$60}{f1}{CBM-V}l{$7d}{$0a}{CBM-G}{CBM-W}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-H}P{$fb}{CBM-G}{$77}P{$f7}{CBM-G}{CBM-D}P{$f3}{CBM-G}{CBM-X}P{stop}{$e6}{$ee}{$60}{CBM-G}{f2}{$f0}{stop}l{gry2}{del}{CBM-G}{f4}l{inst}{del}{$ea}{$ea}{$ea}{$e6}^{CBM-G}^I{CTRL-G}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}^{CBM-N}{CBM-X}9{CTRL-K}{f1}{CBM--}{CBM-N}{CBM-X}2{CTRL-K}{f1}X{CBM-X}@{CTRL-K}{f1}Z{CBM-J}8{f1}{SHIFT-+}{CBM-POUND}H{SHIFT-*}{CTRL-D}{blk}{CTRL-B}{$a0}{$00}{inst}8{SHIFT-POUND}{$00}{f1}Ylg{CTRL-K}{$00}{CTRL-F}{swlc}{CTRL-X} *2{$00}{stop}{CTRL-B}{wht}{CTRL-A}{CTRL-F}{CTRL-D}{stop}{CTRL-D}{wht}{CTRL-D}{wht}{CTRL-D}{stop}{CBM-G}Z{$0a}{CBM-POUND}{f7}{CBM-E}XP{CTRL-F}{f7}{CTRL-P}{$f9}l{CTRL-Z}{CTRL-L}{CBM-+}{SHIFT-+}{$e0}{stop}P{wht}{CBM-G}{$7b}{$f0}{CTRL-A}{$e8}{f4}{$0a}{CBM-N}{CBM-G}?P{CTRL-K}{CBM-X}{$73}{CTRL-L}{f1}{SHIFT--}{CBM-X}{$74}{CTRL-L}l{$7b}{CTRL-K}{CBM-X}{$7d}{CTRL-L}{f1}{SHIFT--}{CBM-X}{$7e}{CTRL-L}{f1}{$de}{CBM-G}Z{$0a}{f1}{CBM-*}F{CBM-*}F{CBM-*}{CTRL-P}{stop}l{CTRL-Z}{CTRL-L}{CBM-@}{CBM-*}{CBM-E}X{f1}{$e0}H{CBM-E}X F{CTRL-U}{CTRL-X}{CBM-G}{$e0}{$65}{SHIFT--}{up}X{f1}{$e2}{CBM-G}{$e1}{$65}{$de}{f1}{$e3}H{up}X){$80}{$f0}{ensh}{CBM-G}{$e3}{ensh}{$80}{f1}{$e3} ={CTRL-L}{CBM-G}{SHIFT-+}I{stop}{$f0}{stop}l{$82}{CTRL-K}{CBM-G}?{$f0}{rvon}{CTRL-X}{CBM-G}{$e2}{$69}{CTRL-A}{f1}{$e2}{CBM-G}{$e3}{$69}{$00}{ensh}{$80}{f1}{$e3}l{$e4}{CTRL-K}8{CBM-G}{$e2}{$e9}{CTRL-B}{f1}{$e2}{CBM-G}{$e3}{$e9}{$00}{ensh}{$80}{f1}{$e3}{CBM-I}{rvon}{CBM-G}?P{esc}{CBM-G}{$e2}{SHIFT--}c{CTRL-G}P
{CBM-G}{$e3}{SHIFT--}d{CTRL-G}P{CTRL-F}{SHIFT-POUND}{CTRL-A}{f1}{$7c}P{CTRL-Y}JJ{CTRL-P}{$e8}l{CTRL-W}{CTRL-L}{CBM-G}{$e2}{SHIFT--}{$71}{CTRL-G}P{CTRL-G}{CBM-G}{$e3}{SHIFT--}{$72}{CTRL-G}{$f0}{$e5}JJ{CTRL-P}{$ee}l{$82}{CTRL-K}{CBM-G}{SHIFT-+}I{stop}P{red}{CBM-G}{CBM--}I{CTRL-D}P{CTRL-V}{CBM-G}{$7c}{$f0}{rvon}{CBM-G}?{$f0}{CTRL-F}{SHIFT-POUND}{$00}{f1}?{$f0}{CTRL-D}{SHIFT-POUND}{CTRL-A}{f1}?{SHIFT-POUND}{$00}{f1}{$7c}{$60} @{CTRL-F}{$a0}{$00}{CBM-E}{$e0}{CBM-N}{SHIFT-POUND} {up}{$e0}H{up}{$e0}H{up}{$e0}{$a0}{$00}{$e0}j{$f0}{CTRL-O}{SHIFT-POUND}j{up}{$e2}H{SHIFT-POUND}q{up}{$e2}H{SHIFT-POUND}k{up}{$e2}{$60}{SHIFT-POUND}u{up}{$e2}H{SHIFT-POUND}q{up}{$e2}H{SHIFT-POUND}i{up}{$e2}{$60}Y~'{$00}W~({$00}){$00}W~){$00}Y~({$00}'{$00}{f1}{CBM-Z}{CBM-I}&{SHIFT-POUND}{$00}{brn}8J{CTRL-P}{$fb}{$60}{CBM-G}YI{$83}{blk}
{$f0}{wht}{SHIFT-POUND}~{f1}Z{$60}{CBM-G}XI{gry1}{CBM-A}{$f5}8{SHIFT-POUND}{gry1}{$e5}X{f1}Z{SHIFT-POUND}{$83}{$e5}Y{f1}{SHIFT-+}{$a0}{$00}{$84}{CBM--}H8{CBM-G}Z{$e9}({f1}Z{CBM-G}{SHIFT-+}{$e9}{$00}{f1}{SHIFT-+}{CTRL-P}{$f0}{CBM-G}Zi~{CBM-N}{$e8}{f3}Z8{CBM-G}{CBM-W}{$e9}{gry1}8{$e5}Z{CTRL-P}{CTRL-G}{$e6}{CBM--}i~{CBM-N}{$e8}{f4}{f1}{SHIFT-+}{$84}Z{$60}P{stop} {CBM-F}{$0a}{CBM-G}{gry1}){CTRL-B}P{stop} @{$0a}{CBM-G}{gry1}){CTRL-A}P{stop} {CTRL-V}{$0a}{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}{CBM-G}{CBM-Z}P{CTRL-A}{$60}{CBM-G}{CBM-D}E{CBM-Q}{blk}{CTRL-A}{$60}I{CTRL-F}{blk}{CTRL-A}{$60}{CBM-G}{$83}P{CTRL-L}{CBM-G}{$84}P{CTRL-F}{CBM-G}{f1}{$f0}{CTRL-G}F{f1}F{$84}F{$83}{$60}{$a0}{$00}{CBM-G}?{$f0}{swlc}{CBM-O}P
{f1}X{CBM-N}{CBM-O}Q
{f1}Yle
{CBM-O}{dish}{swlc}{f1}X{CBM-N}{CBM-O}{ensh}{swlc}{f1}Y{CBM-J}{$00}P{CTRL-K}{CBM-J}{CTRL-A}P{ensh}HH{SHIFT-*}7{blk}U{$60}{CBM-J}{CTRL-A}){$80}{$f0}{$f3}{CBM-G}Y){CTRL-O}{CBM-N}{CBM-J}8P{$f0}fYfYfYfY{CBM-+}X \{CTRL-F}8{CBM-J}{$00}{$f9}c{CTRL-G}{f1}Z{CBM-G}?{$f0}{CTRL-G}{CBM-G}ZI{$0a}{CBM-A}{dish}{$60}{CBM-G}ZI{red}{blk}{CTRL-A}{$60}{CBM-J}{$00}{f1}{SHIFT-+}{CBM-J}{CTRL-A}{f1}{CBM--}){$7f}{brn}{CTRL-A}{$e6}{CBM-D}{f3}{SHIFT--}{CBM-I}{$00}{CBM-J}@P{CTRL-D}{CBM-J}a{$f0}{$0a}{$e8}{$e8}{$e8}{$e8}{$e8}{$e0}{CTRL-Z}{blk}{$ef}{$60}{CBM-G}{SHIFT-+}{brn}@{CBM-G}{CBM--}{brn}a{CBM-G}{SHIFT--}{ensh}{$80}{brn}b{SHIFT-POUND}{stop}{brn}c{CBM-G}?{$f0}{CTRL-D}{SHIFT-POUND}{$60}P{CTRL-B}{SHIFT-POUND}p{brn}d {$7b}{rvon}{$60}{CTRL-F}{down}{CTRL-P}"{$00} .u{CTRL-X}{home}{swlc}{CTRL-B}{$0a}q {CTRL-D}{red}s*{CTRL-U}2&({$84}{dish}1{CTRL-Z}3{CTRL-B}@"${CTRL-L}{$71}{grn}{$73}4f{rvon}b{CTRL-D}{$60}$d6{$66},5{del}{$62}0{$75}&{$64}{CTRL-V}{$82} {CTRL-D}{CTRL-P}".u{$0a}q2&6{$66}{CTRL-Z}3{swlc}{CTRL-B}{$00} {CTRL-V}{$82}{CTRL-D}{$60},5{CTRL-X}{home}{del}{$62}*{CTRL-U}{red}s{CTRL-F}{down}$d{CTRL-B}@"$({$84}4f{dish}10{$75}{rvon}b&{$64}{CTRL-L}{$71}{grn}{$73}{$e6}{f3}{CBM-G}{f3}I{$0a}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{f3}{$0a}{CTRL-X}{$65}{f3}{CBM-N}{CBM-X}{$61}{swlc}{f1}{$83}{CBM-X}{$62}{swlc}{f1}{$84}{CBM-X}{$63}{swlc}{f1}{f1}{$60}{CTRL-B}{$00}{$00}{CTRL-B}{$00}{$00}{stop}{$00}{$00}{wht}{$00}{$00}{CTRL-B}{$00}{$00}{stop}{$00}{$00}{CTRL-B}{$00}{$00}{CTRL-D}{$00}{$00}{CTRL-B}{$00}{$00}{wht}{$00}{$00} 9{CTRL-U}{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND} {up}XH{up}XH{up}X{$60}{$e6}{$79}{CBM-G}{$79}I{CTRL-F}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{$79}{$0a}{$0a}{CTRL-X}{$65}{$79}{CBM-N}{CBM-J}@P{wht}{CBM-J}aP{CTRL-A}{$60}{CBM-J}b{CTRL-P}{CTRL-D} {CBM-L}{CTRL-P}{$60}{CBM-J}c{CTRL-P}{CTRL-L})@{$f0}{CTRL-D} {$83}{rvon}{$60} {$83}{rvon}{$60}{CBM-J}c) {$f0}{CTRL-D} {CTRL-Z}{down}{$60} {$68}{CTRL-O}{$60}{CBM-I}{$00}{CBM-G}ZP{wht}{CBM-X}d{CTRL-G}P{stop}{CBM-X}{$72}{CTRL-G}EY{$f0}{CTRL-K}{CBM-A}{CTRL-F}{$e8}{$e8}{$e0}.{blk}{$e8}{SHIFT-POUND}{$00}{$60}{CBM-G}ZP{wht}{CBM-X}c{CTRL-G}P{stop}{CBM-X}{$71}{CTRL-G}EX{$f0}{CTRL-D}{CBM-A}{$eb}P{$e3}{SHIFT-POUND}{CTRL-A}{$60}{CBM-J}{$00}{f1}X{CBM-J}{CTRL-A}{ensh}{$80}{f1}Y{CBM-G}YI{$80}{$f0}{wht}{CBM-A}{ensh}l*{CTRL-O}{CBM-G}XI{$78}{blk}{CTRL-P}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Yl"{CTRL-O}{$60}{$e6}{f5}{CBM-+}{f5}{$e0}{del}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f5}{CBM-X}t{CTRL-O}{$60}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{CBM-J}@{f1}X{CBM-J}a{f1}Y {clr}{swlc}{f3}{$e7}{CBM-J}d){CTRL-P}{f1}Z {$e4}{swlc}{$f0}{stop}l{$f5}{down}{CBM-+}{$e7}{CBM-J}d){$f0}I0{$f0}{CTRL-O}I@P{CTRL-Y}{CBM-G}XP{CTRL-B}FYFXl{CBM-I}{CTRL-O}{$e6}XP{CTRL-B}{$e6}Y {$e4}{swlc}{$f0}{stop}l{$f5}{down} {$67}{rvon}{$ea}){$f0}I0{CBM-A}{CTRL-L}I{CTRL-P}{$f0}{CTRL-D}{SHIFT-POUND}'P{CTRL-L}{SHIFT-POUND})P{dish}{$f0}{CTRL-D}{SHIFT-POUND}&P{CTRL-B}{SHIFT-POUND}*{CTRL-X}{$75}@{f1}X{brn}@{CBM-J}a{$69}{$00}{f1}Y{brn}a{CBM-G}YI{$83}{blk}{swlc}{$f0}{stop}l{lblu}{CTRL-P}{CBM-G}XI{$e7}{blk}{stop}l{lblu}{CTRL-P} {$7f}{swlc}{CBM-G}YI{$83}{$f0}{ensh}{blk}d{CBM-J}b{ensh}@{brn}b{$60}{CBM-G}XI{$70}{CBM-A}{$f3}{CBM-G}YI{$83}P1{CBM-G}XI {blk}+I{$70}{CBM-A}' d{CTRL-O}{$f0}" {clr}{CTRL-L}{CBM-+}{$e7}{CBM-J}d){CTRL-P}{$f0}{CTRL-F}{CBM-G}{CBM--}P{$0a}{$f0}{down}{CBM-G}{CBM--}P
{SHIFT-POUND}{$80}P{CTRL-B}{SHIFT-POUND}{SHIFT-*}{brn}c{SHIFT-POUND}{$00}{brn}d{$60}{CBM-+}{$e7}{CBM-J}b)@{$f0}{CTRL-A}{$60} {clr}{CTRL-L}{CBM-G}Z{CTRL-P}{CTRL-A}{$60}{CBM-+}{$e7}{CBM-J}d){$f0}I0{blk}{CTRL-B}{CTRL-F}Z{CBM-G}ZE{SHIFT-+}{$f0}{CTRL-G}F{SHIFT-+}E{SHIFT-+}{$f0}{CTRL-A}{$60}{CBM-J}d){$f0}{f1}{$e6}){CTRL-P}{$f0}{CTRL-G}{CBM-G}{CBM--}P{CTRL-G}l{$f6}{CTRL-O}{CBM-G}{CBM--}P{$f9}{CBM-G}{$e6}I{CTRL-P}P{CTRL-D}{SHIFT-POUND} P{rvon}I P{CTRL-D}{SHIFT-POUND}{CTRL-P}P{$0a}I0P{CTRL-D}{SHIFT-POUND}@P{CTRL-B}{SHIFT-POUND}0{brn}dl{$f6}{CTRL-O}{CBM-+}{$e7}{CBM-J}b)?{CBM-N} {CTRL-X}{CTRL-O}{CBM-+}{$e7}{CBM-G}X{brn}@{CBM-G}Y{brn}a{SHIFT-POUND} {brn}c {$7f}{swlc}{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y {clr}{swlc}{CBM-J}d){$f0}Ip{$f0}{CTRL-F}{SHIFT-POUND}%{f1}ZP{CTRL-D}{SHIFT-POUND}+{f1}Z{CTRL-X}{CBM-G}X{$65}Z{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a {$7f}{swlc}{CBM-J}c){blu}{CBM-POUND}{f7}{$f0}{stop}{inst}c{$60} {clr}{CTRL-L}{CBM-+}{$e7}{CBM-J}b)?{brn}b{SHIFT-POUND}{$00}{brn}c{$a0}{CTRL-A}{CBM-G}{SHIFT-+}EZ{blk}{CTRL-B}{$a0}{stop}{CBM-G}{CBM--}{$f0}{CTRL-A}H{gry2}{$0a}{$0a}{$0a}{$0a}{brn}d{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}b)?{CBM-N}{CBM-J}{$00}{f1}Z{CBM-J}{CTRL-A}{ensh}{$80}{f1}{SHIFT-+}EYP{ensh}{CBM-G}ZEXP{stop}lE{down}8{CBM-G}X{$e9}({f1}{CBM--}{CBM-G}Y{$e9}{$80}{f1}{SHIFT--} {CBM-I}{blu}{f3}{$de}{CBM-G}{CBM--}{f1}{CBM-*}8{CBM-G}Z{$e9}({f1}{CBM--}{CBM-G}{SHIFT-+}{$e9}{$80}{f1}{SHIFT--} {$74}{rvon}{f3}{$e0}{CBM-G}{$de}E{$e0}{$f0}{rvon}{blk}{$0a}{SHIFT-POUND}~{f1}{$e2}{SHIFT-POUND}X{f1}{$e1}P{swlc}{SHIFT-POUND}({f1}{$e1}P{CTRL-D}{SHIFT-POUND}{$00}{f1}{$e1}{SHIFT-POUND}{$00}{f1}{$e2}{CBM-G}{CBM-*}E{CBM--}{$f0}{home}{blk}{CTRL-K}{CBM-G}{$e1}P{CTRL-B}F{$e2}F{$e1}l{CBM-K}{down}{$e6}{$e1}P{CTRL-B}{$e6}{$e2}{CBM-+}{$e7}{CTRL-X}{CBM-G}X{$65}{$e1}{brn}@{f1}X{CBM-G}Y{$65}{$e2}{brn}a{f1}Y {$7f}{swlc}{CBM-G}XEZ{$f0}{CTRL-A}{$60}{CBM-G}YE{SHIFT-+}{$f0}{CTRL-A}{$60}F{CBM-D}{CBM-+}{$e7}{SHIFT-POUND}{$00}{brn}@{brn}a{CBM-J}b)?{CBM-N}{CBM-J}{CTRL-A}{ensh}{$80}{brn}{CTRL-A}{$60}{$e6}{f7}{CBM-+}{f7}{$e0}{$0a}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f7}{CBM-X}{$eb}{down}{$60}{$00}{CTRL-A}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{CTRL-A}{CTRL-A}{$00} {SHIFT-+}{down}P{stop}l{lblu}{CTRL-P}{CBM-+}{$e7}{CBM-J}d){$f0}I{CTRL-P}P{CTRL-D}{$a0} P{rvon}I P{CTRL-D}{$a0}{CTRL-P}P{$0a}I0P{CTRL-D}{$a0}@P{CTRL-B}{$a0}0{inst}d{gry2}l{CBM-A}{CTRL-O}{CBM-I}{f8}{SHIFT-POUND}{$00}{brn}{$00}JP{$fb}{f1}{CBM-O}{f1}{SHIFT-@}{f1}{CBM-F}{CBM-I}{CBM-X} E{stop}{blk}{$fb}{CBM-I}{$0a}{brn}{CBM-Q}J{CTRL-P}{$fb}{SHIFT-POUND}{CTRL-A}{f1}{CBM-J} @{swlc}{SHIFT-POUND}{CTRL-B}{f1}{CBM-X} h{CTRL-F} {$7e}{CTRL-F}{SHIFT-POUND}{$00}{f1}K{SHIFT-POUND}{wht}{f1}J{SHIFT-POUND}{CBM--}{f1}I M{blu} {$6e}{ensh} {CBM-W}{stop}{$60}{CBM-+}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}d{$60} {clr}{swlc} {CBM-I}{blu}{$60}{SHIFT-POUND} {f1}R @{swlc}{$60}{f3}{$e7}{CBM-J}@{f1}X{CBM-J}a{f1}Y{CBM-J}c)@{f1}Z{CBM-J}d{$f6}d){CTRL-O}{$0a}{CBM-N}{CBM-X}{CBM-N}{rvon}{sret}{CBM-POUND}{rvon}{CBM-X}{CBM-Q}{rvon}{sret}{SHIFT-POUND}{rvon}l{$ea}{$ea}{CBM-V}{rvon}E{rvon}&{home}5{home}d{home}s{home}{$7c}{home}{lgrn}{home}{SHIFT-@}{home}{CBM-*}{home} {CBM-*}{rvon} {$7f}{swlc}{$60} {CBM-*}{rvon}{CBM-G}ZP{CTRL-D} {$f9}{home}{$60} 
{del}{$60}{$a0}){CBM-G}ZP{CTRL-B}{$a0}'{$84}{SHIFT-+}{$60} {clr}{swlc} T{rvon} {$e9}{rvon}{$60}{CBM-+}{$e7}8{CBM-G}X{$e5}{SHIFT-+}{f1}X{brn}@{CBM-G}Y{$e9}{$00}{f1}Y{brn}a{$60}{CBM-+}{$e7}8{CBM-G}X{$e9}({f1}X{brn}@{CBM-G}Y{$e9}{$00}{f1}Y{brn}a {del}{home}{$60} @{CTRL-F}{SHIFT-POUND} {$a0}{CTRL-A}{up}X{$a0}){up}X{$a0}q{up}X{$60} {CBM-*}{rvon}{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CBM-G}ZP{CTRL-D} {$6e}{del}{$60} 4{del}{$60} {$fd}{rvon}{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX {$f9}{home}l{$71}{home}{$e6}XP{CTRL-B}{$e6}Y 
{del}{CBM-+}{$e7}{CBM-G}X{brn}@{CBM-G}Y{brn}a{$60} {clr}{swlc}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX g{del}l{$71}{home}{$e6}XP{$f6}{$e6}YP{$f2} {clr}{swlc}{CBM-G}ZP{swlc}{CBM-G}XP{CTRL-B}FYFX {$f9}{home}l{$71}{home}{$e6}XP{CTRL-B}{$e6}Y 
{del}l{$71}{home} {clr}{swlc} T{rvon}{CBM-+}{$e7}{CTRL-X}{CBM-G}X{$65}{SHIFT-+}{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a{CBM-G}ZP{CTRL-D} [{del}{$60} !{del}{$60} {$fd}{rvon}{CTRL-X}{CBM-G}X{$69}p{f1}X{brn}@{CBM-G}Y{$69}{$00}{f1}Y{brn}a {$7f}{swlc}l{$f4}{CTRL-P} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}u{up}X{SHIFT-POUND}qH{up}XH{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}j{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}i{up}X{$60} {orng}{del}{SHIFT-POUND}u{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}k{up}X{$60} {orng}{del}{SHIFT-POUND}i{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}k{up}X{$60} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}u{up}XH{SHIFT-POUND}q{up}XH{SHIFT-POUND}i{up}X{$60} {orng}{del}{SHIFT-POUND}i{up}X{$a0}){SHIFT-POUND}q{up}X{CBM-POUND}{SHIFT-POUND}j{up}X{$60} {orng}{del}{SHIFT-POUND}u{up}X{SHIFT-POUND}q{$a0}){up}X{CBM-POUND}{SHIFT-POUND}j{up}X{$60}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Y @{CTRL-F}{$a0}{CTRL-A}{$60}{$f0}{wht}F{f4}F{f2}{$60}F{CBM-X} {$67}{CTRL-U}{SHIFT-POUND}{$00}{f1}{$7a}{$60} @{CTRL-F}{gry2}{$a0}{$00}{up}XH{up}XH{up}X{$a0}'{up}XH{up}XH{up}XH{up}XH{up}X{$60}{CBM-G}{CBM-W}{f1}X{CBM-G}{CBM-H}{f1}Y{CBM-G}XP{CTRL-B}FYFX{SHIFT-POUND}{CTRL-B}{f1}{SHIFT-+}{SHIFT-POUND}p{f1}Z {grn}{CTRL-U}{$a0}{$7f} {CBM-G}{del} .{CTRL-U} {grn}{CTRL-U}{$a0}~ {CBM-G}{del} .{CTRL-U}{CBM-G}ZP{CTRL-F}{CBM-G}{SHIFT-+}{$f0}{CTRL-G}F{SHIFT-+}FZl{CBM--}{del}{$a0}  {CBM-G}{del}{SHIFT-POUND}{CTRL-A}{f1}{$7a}{SHIFT-POUND}{blk}{f1}{f2}{SHIFT-POUND}{$00}{f1}{f4}{SHIFT-POUND}{$00}{f1}{CBM-W}{f1}{CBM-H}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{$00}{f1}V{SHIFT-POUND}{CTRL-B}{f1}U {cyn}{CTRL-G}{$60}{$e6}{CBM--}{CBM-+}{CBM--}{CBM-X}{SHIFT-*}{CTRL-K}{sret}h{$e8}{$60} @{CTRL-F}{$a0}{$00} y{CTRL-U}{$f0}
H y{CTRL-U}{$f0}{CTRL-G}H y{CTRL-U}{$f0}{CTRL-A}{$60}{$68}{$68} {CBM-X}{CTRL-U}{CBM-+}{$de}{$ea}{$60}{CBM-E}XI{$a0}P{CTRL-A}{$60}I{$e1}{$f0}{CTRL-B}I{$61}{$60} :{CTRL-G} {$65}{CTRL-F}{$60} {CTRL-Z}{esc}{CBM-I}{$00}{CBM-G}XU{$00}{$f0}{dish}{$e8}{$e8}{$e0}7{blk}{$f4}{CBM-A}{CTRL-O}{CBM-G}YU{CTRL-A}P{$f2}{SHIFT-POUND}{$00}{brn}{$00}{brn}{CTRL-A}F{CBM-Z}{$60}{CBM-I}@{CBM-G}XU{$00}{$f0}{$0a}{$e8}{$e8}{$e8}{$e8}{$e8}{$e0}z{blk}{$f1}{$60}{CBM-G}YU{CTRL-A}P{$f0}{$e6}{$e8}{$ea}{$ea}{$ea}{SHIFT-POUND}{$00}{brn}{$00}{brn}{CTRL-A}{CBM-J}{CTRL-B})?{CBM-N}F{CBM-D}l{f5}{CTRL-U}{f3}{$de} {$6e}{CTRL-U} D{del}{$60}{f1}{$e1}{$f0}{CTRL-B}{f7}{$60}{CBM-G}{$e0}P{$fa}{$68}{$68}l{$82}{CTRL-K}{CBM-G}{CBM-E}P{wht}{CBM-G}{CBM-R}P{CTRL-A}{$60} @{CTRL-F}{$a0}{$00}{CBM-E}{CBM-E}I{grn}P{CTRL-D}{SHIFT-POUND} {up}{CBM-E}8{CBM-G}{CBM-E}{$e9}({f1}{CBM-E}{f1}X{CBM-G}{CBM-R}{$e9}{$00}{f1}{CBM-R}{f1}YI{$80}P
{CBM-G}{CBM-E}Ip{CBM-A}{CTRL-G}{SHIFT-POUND}{$00}{f1}{CBM-E}{f1}{CBM-R}{$60}{CBM-E}{CBM-E}I P{wht}{SHIFT-POUND}{grn}{up}{CBM-E}{$60}I.{$f0}{$f7}Ij{$f0}{$f7}Ik{$f0}{$f3}Ii{$f0}{$ef}Iu{$f0}{$eb}I]{$f0}{dish}In{$f0}{CTRL-D}ImP{stop}l{$6d}{CTRL-V} 9{CTRL-Z}{$ea}{CBM-G}XP{CTRL-B}FYFX {$f4}{CTRL-V}8{CBM-G}X{$e9}({f1}X{CBM-G}Y{$e9}{$00}{f1}Y{CBM-I}{$a0} Q{stop} {$e4}{CTRL-V} B{CTRL-V} {$e4}{CTRL-V}J{CTRL-P}{$f1}l"{esc}{CBM-I}{$00}{CBM-G}{CBM-E}U_{$f0}{$0a}{$e8}{$e8}{$e8}{$e0}{CTRL-V}{blk}{$f3}l{dish}{CTRL-V}{CBM-G}{CBM-R}U{$60}P{$f0}F{$77}{SHIFT-POUND} {up}{CBM-E}{SHIFT-POUND}{$00}{brn}_{brn}{$60}{brn}{$61}l{dish}{CTRL-V} @{CTRL-F}{$a0}{$00}{SHIFT-POUND}m{up}X{$a0}r{up}X{$a0}{CTRL-A}{SHIFT-POUND}]{up}X{$a0}q{up}X{$a0}{CTRL-B}{SHIFT-POUND}n{up}X{$a0}p{up}X{$a0}({SHIFT-POUND}c{up}X{$a0}*{up}X{$60} @{CTRL-F}{SHIFT-POUND} {$a0}{$00}{up}XH{up}XH{up}X{$a0}({up}XHH{up}X{$a0}p{up}XH{up}XH{up}X{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-B}{f1}V{SHIFT-POUND}@{f1}U {cyn}{CTRL-G}{$60} {$6e}{CTRL-U}{CBM-G}YI{$80}P{$f6}{CBM-G}XI{$78}{CBM-A}{$f0}{$68}{$68}l"{esc}{CBM-G}{$77}P{CTRL-A}{$60}{$e6}{$78}{CBM-G}{$78}E{CBM-S}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{$78}{$0a}{CTRL-X}{$65}{$78}{CBM-N}{CBM-J}_P{wht}{CBM-J}{$60}P{CTRL-A}{$60}{CBM-J}_{f1}X{CBM-J}{$60}{f1}Y @{CTRL-F}{$a0}{$00}{CBM-E}XI]P{CTRL-F}{SHIFT-POUND} {up}XP{dish}In{$f0}{$f6}Im{$f0}{$f2}{CBM-J}{$61}P{down}{f1}Z {CBM-P}{CTRL-X}P>{SHIFT-POUND}m{f1}{CBM--}{SHIFT-POUND}){f1}{SHIFT-+}P{rght}I{CTRL-A}P{down}{f1}Z {CBM-P}{CTRL-X}P){SHIFT-POUND}n{f1}{CBM--}{SHIFT-POUND}'{f1}{SHIFT-+}P{dish}{SHIFT-POUND}]{f1}{CBM--}{SHIFT-POUND}({f1}{SHIFT-+}{CTRL-X}{CBM-G}X{$65}{SHIFT-+}{f1}X{brn}_{CBM-G}Y{$69}{$00}{f1}Y{brn}{$60}I{$83}{$f0}{CTRL-K}{blk}{CTRL-O}{SHIFT-POUND}{$00}{brn}_{brn}{$60}F{$77}{$60}{CBM-G}XI{$e8}{CBM-A}{$f1} @{CTRL-F}{$a0}{$00}{CBM-E}XI P{wht}{CBM-G}{CBM--}{up}X{$60}I.{$f0}{$f7}I:{$f0}{$f3}I{grn}P
{SHIFT-POUND}{$00}{f1}{CBM-E}{f1}{CBM-R}{SHIFT-POUND} {up}Xl{up}{CTRL-W}I{$a0}{$f0}{ensh}I{$e1}{$f0}{wht}I{$61}{$f0}{CTRL-A}{$60} {up}{CTRL-W} D{del}{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}{CBM-G}{$77}E{CBM-S}{blk}{CTRL-A}{$60} {f6}{CTRL-X}P{CTRL-A}{$60}{f1}Z{$e6}{f6}{CBM-G}{f6}I{CTRL-F}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}{f6}{$0a}{$0a}{CTRL-X}{$65}{f6}{CBM-N}{CBM-J}@P{wht}{CBM-J}aP{CTRL-A}{$60}{CBM-J}c{CTRL-P}{CTRL-A}{$60}) {$f0}{CTRL-A}{$60}{CBM-J}b{CTRL-P}{CTRL-A}{$60}{CBM-J}d{f1}{SHIFT-+}{CBM-J}@{f1}X{CBM-J}a{f1}Y {$76}{CTRL-X}{f4}{CTRL-P}{CTRL-A}{$60}{$e6}XP{CTRL-B}{$e6}Y{CBM-G}X{brn}_{CBM-G}Y{brn}{$60}{SHIFT-POUND}{CTRL-B}{brn}{$61}{$e6}{$77}{CBM-G}ZI{CTRL-A}P{CTRL-A}{$60}{CBM-G}{$77}E{CBM-S}{blk}{CTRL-A}{$60} {$76}{CTRL-X}{f4}{CTRL-P}{CTRL-A}{$60}{CBM-G}X{brn}_{CBM-G}Y{brn}{$60}{$e6}{$77}{CBM-G}{SHIFT-+}){$f0}I{CTRL-P}{$f0}{dish}I0{$f0}{CTRL-D}{SHIFT-POUND}{CTRL-A}P{CTRL-B}{SHIFT-POUND}{$00}{brn}{$61}{$60}{CBM-I}{$00}{CBM-J}_P{wht}{CBM-J}{$60}P{CTRL-A}{$60}{$e8}{$e8}{$e8}{$e0}{CTRL-V}{blk}{$f0}{CBM-I}~{$60}{$e6}{f8}{CBM-+}{f8}{$e0}{del}{blk}{CTRL-D}{CBM-I}{$00}{f3}{f8}{CBM-X}{gry3}{CTRL-X}{$60}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-B}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-B}{$00}{CTRL-B}{f3}{SHIFT--} {$e4}{swlc}lc{esc}{SHIFT-POUND}q{f1}G{SHIFT-POUND}{$80}{f1}H{CBM-G}{CBM-J}{f1}F{SHIFT-POUND}{$00}{f1}E{$e6}D  {blu}{$60} @{CTRL-F}{$a0}{stop}{SHIFT-POUND}p{up}GHH{SHIFT-POUND}o{up}G{$a0}({SHIFT-POUND}{$e1}{up}GHH{SHIFT-POUND}{$e9}{up}GH{SHIFT-POUND}{$a0}{up}GH{up}GH{up}GH{SHIFT-POUND}{CBM-*}{up}GHH{SHIFT-POUND}{$61}{up}G{$a0}p{SHIFT-POUND}{$e1}{up}GH{SHIFT-POUND}{$62}{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}Q{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}Q{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$62}{up}GH{SHIFT-POUND}{$61}{up}G{$a0}{$7a}{SHIFT-POUND}_{up}GH{SHIFT-POUND}{$a0}{up}GHFFP{dish} {CBM-B}{stop}{$ea}{SHIFT-POUND} P{CTRL-B}{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$a0}{up}GH{SHIFT-POUND}{$69}{up}G{$60} @{CTRL-F}{$a0}{stop}{SHIFT-POUND} {up}GHH{up}G{$a0}({up}GHH{up}GH{up}GH{up}GH{up}GH{up}GHH{up}G{$a0}p{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}GH{up}G{$a0}{$7a}{up}GH{up}GH{up}GH{up}GH{up}G{$60}{CBM-G}CP{$fb}{CBM-G}D{$f0}{$f7} s{CTRL-Y}{CBM-G}E{$f0}{stop}l{$f6}{CTRL-Y}{CTRL-X}{CBM-G}G{$69}{CTRL-G}{f1}X{CBM-G}H{$69}{$00}{f1}Y{SHIFT-POUND}{CTRL-A}{f1}Z {$e4}{swlc}{$f0}{blu}{$e6}E{CTRL-X}{CBM-G}G{$69}({f1}G{CBM-G}H{$69}{$00}{f1}HI{$83}{blk}{rvon} K{stop}{SHIFT-POUND}{$00}{f1}D{f1}G{f1}H{$60}{$e6}GP{CTRL-B}{$e6}H M{CTRL-X}{$60}{CBM-G}GP{CTRL-B}FHFG{CBM-G}G{f1}X{CBM-G}H{f1}Y{SHIFT-POUND}{$00}{f1}Z {$e4}{swlc}{$f0}{grn}{SHIFT-POUND}{$00}{f1}E{CTRL-X}{CBM-G}G{$69}){f1}G{CBM-G}H{$69}{$00}{f1}HI{$83}P{ensh}{CBM-G}GI {blk}{stop}l{$e0}{CTRL-Y} M{CTRL-X}{$60}{SHIFT-POUND}{stop}{f1}{CBM-S} M{CTRL-X}{$60}IqP{CTRL-A}{$60}{CBM-G}DP{stop}{$68}{$68}{$60}{CBM-E}{CBM-E}I{$a0}{$f0}{stop}l{clr}{CTRL-Z}{$a0}'{CBM-E}{CBM-E}I{$a0}P{$f5}HH{CBM-E}{CBM-E}I{$a0}P{$ed} {$64}{CTRL-Z}l{clr}{CTRL-Z}{$e6}C{SHIFT-POUND}{stop}{f1}{$77}{f1}{CBM-S}{CTRL-X}{CBM-G}G{$69}t{f1}_{f1}{$62}{f1}{$65}{CBM-G}H{$69}{$00}{f1}{$60}{f1}{$63}{f1}{$66}{$a0}{$00}{$84}{$61}{$84}{$78}F{$78}H{$84}{$64}H{$84}{$67} {gry2}{CTRL-Z}{$60}{$68}{$68}l{dish}{CTRL-V} {SHIFT-+}{stop}{CTRL-X}{CBM-G}{CBM-O}{$69},{f1}{CBM-O}{CBM-G}{SHIFT-@}{$69}{CTRL-A}{f1}{SHIFT-@}{CBM-G}{CBM-F}{$69}{$00}{f1}{CBM-F} {$7e}{CTRL-F} {$e3}{stop}{$60}{CBM-G}{CBM-F}EK{CBM-A}{CTRL-A}{$60}{$f0}{CTRL-Y}{$e6}{CBM-X} :{CTRL-G}{CTRL-X}{CBM-G}I{$69}{CBM--}{f1}I{CBM-G}J{$69}{wht}{f1}J{CBM-G}K{$69}{$00}{f1}K{$60}{CBM-G}{SHIFT-@}EJ{CBM-A}{CTRL-A}{$60}P{$de}{CBM-G}{CBM-O}EI{CBM-A}X{$60} @{CTRL-F}{SHIFT-POUND}{$e8}{left}({$80}{CBM-G}{$e6}{sret}h{$e8}8{CBM-G}{$e6}{$e9}{CTRL-F}{f1}{$e6}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-K}{f1}V{SHIFT-POUND}{$00}{f1}U {$ed}{grn}{$ea}{$e0}#{blk}X{SHIFT-POUND}{$00}{sret}h{$e8}{SHIFT-POUND}{$a0} {CBM-H}{esc}{$60}{SHIFT-POUND}{$00}{f1}{$e8} {clr}{swlc}{$60}{CBM-G}{$e8}P{CTRL-D}{SHIFT-POUND}{$0a}P{CTRL-B}{SHIFT-POUND}{grn}{CTRL-X}{$65}{CBM-O}{f1}{CBM-O}{CBM-G}{SHIFT-@}{$69}{$00}{f1}{SHIFT-@}{CBM-G}{CBM-F}{$69}{$00}{f1}{CBM-F} j{esc}l{dish}{CTRL-V}{f1}{$e1}{CBM-+}{SHIFT--}{CBM-G}{$e1}{$60} {esc}{CTRL-G} {CBM-J}{CTRL-Z}{$60}{SHIFT-POUND}{$00}{f1}A{SHIFT-POUND}{$0a}{f1}{SHIFT-*}{SHIFT-POUND}{$00}{f1}{CBM-B}{CBM-I}{$00}{f3}L @{CTRL-F}{CBM-X}{$a0}{esc}{left}{lblu}{orng} {sret}{esc}{$e6}L{CBM-+}L{$e0}{del}{blk}{$ec}{SHIFT-POUND}{$0a}{f1}E {sret}{esc}FEP{$f9}{CBM-I}{$00}{SHIFT-POUND} {left}{lblu}{orng}{$e8}{$e0}{del}{blk}{$f8}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{del}{f1}V{SHIFT-POUND}{$00}{f1}U {cyn}{CTRL-G} S{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{$a0}{sret}{f2}{clr}{clr}{f1}{$84}{$a0}{$82}{$8f}{swuc}{brn}{clr}{$a0}{CBM-N}{CBM-N}{CBM-N}{sret}j{$80}{SHIFT-POUND}2{f1}M{$60}{CBM-G}{$7a}{$f0}{CTRL-A}{$60}FM{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-P}{f1}M{CBM-+}{$eb}J @{CTRL-F}{CBM-X}({$80}I{$a0}P{CTRL-F}{SHIFT-POUND}{$61}{left}({$80}{$60}{SHIFT-POUND} {left}({$80}F{$eb}{$f0}{CTRL-G}J{SHIFT-POUND}{$a0} {$fe}{grn}{$60}{$e6}{$ee}{$60}y{$80}{$00}{$a0}{$83}{$8f}{clr}{sret}{f2}{$83}{$a0}{$a0}{$83}{$8f}{clr}{sret}{f2}{orng}{$84}{clr}{$a0}~{rvof}{$80}{$00}{sret}{f6}{CBM-A}{CBM-E}~{$f8}{$80}{$00}jqk~{$fe}{$80}{CTRL-A}-  {CBM-E}{CBM-A}{$a0}{blk}{$8f}{f2}{swuc}{inst}{clr}{$a0}{$a0}{$a0}{$a0}~h{orng}{CTRL-A}{f2}{swuc}~{$6e}{orng}{CTRL-A}{f3}{f8}{f2}{f5}{f7}{inst}~n{orng}{CTRL-A}-  {CBM-W}{CBM-A}{$a0}{blk}{$8f}{f2}{swuc}{inst}{clr}{$a0}{$a0}{$a0}{$a0}~{SHIFT-*}{orng}{$00}{$6e}{$70}~{$e6}{orng}{$00}l{$e9}QQ{CBM-*}{$7a}~{CTRL-O}{$82}{$00}_{$ec}{$fb}{$69}~I{orng}{CTRL-A}{clr}{f7}{$8f}{inst}{$a0}{f2}{swuc}{$a0}{lblu}{lgrn}{f8}{$8f}{swuc}~{$ee}{orng}{CTRL-A}-  {sret}{$8f}{brn}{inst}{f7}{$a0}{clr}{$83}{$8f}{rvof}{f1}{clr}{CBM-Z}~{CTRL-Y}{$82}{CTRL-A}{CBM-N}{CBM-N}{CBM-N}{$a0}{$82}{$8f}{swuc}{brn}{clr}{$a0}{CBM-N}{CBM-N}{CBM-N}~{$60}{$82}{$00}'{down}'~{f7}{$82}{$00}'{wht}'~{CBM-A}{$82}{$00}'{grn}'~X{$82}{$00}'{home}'~{$66}{$82}{CTRL-A}-  {sret}{$8f}{lred}{f1}{clr}{$a0}{f8}{f1}{f3}{inst}{$a0}{$a0}{$a0}~{swuc}{$82}{CTRL-A}-  {sret}{$8f}{lred}{f1}{clr}{$a0}{rvof}{f2}{f5}{f7}{inst}{$a0}{$a0}~{CBM-L}{$82}{CTRL-A}-  {f3}{f2}{rvof}{f1}{clr}{$a0}{f8}{orng}{lblu}{f1}{rvof}{$a0}{$a0}~{$de}{$82}{CTRL-A}-  {clr}{inst}{orng}{rvof}{inst}{clr}{$a0}{f5}{orng}{sret}{f1}{$a0}{$a0}~&{$83}{$00}{CBM-N}{CBM-N}{CBM-N}{$a0}{f8}{f1}{lred}{f1}{f8}{$a0}>   <{CBM-POUND}{CBM-A}{CBM-Z}{CBM-O}{SHIFT-POUND}{$a0}{CBM-N}{CBM-N}{CBM-N}~{$76}{$83}{$00}{CTRL-A}{CTRL-U}{del}{dish}{CTRL-O}{rvon}:  {CTRL-D}{wht}{rvon}{wht}{CTRL-K} {$0a}{$7b} {dish}{ensh}{CTRL-P}{CTRL-K}{ensh}{swlc}~~~x{blu}{$e6}{$e4}P{CTRL-B}{$e6}{$e5} m{rght}{$60}{$e6}{$e2}P{CTRL-B}{$e6}{$e3}{$60}{CBM-I}{$00}{SHIFT-POUND}o{sret}{$00}{$80}{SHIFT-POUND}l{sret}{SHIFT-*}{$83}{SHIFT-POUND}p{sret}'{$80}{SHIFT-POUND}{$7a}{sret}{$e7}{$83}{SHIFT-POUND}{$63}{left}{CTRL-A}{$80}{SHIFT-POUND}{$64}{left}A{$83}{$e8}{$e0}&{blk}{$f1}{SHIFT-POUND}{CTRL-W}{f1}{$e3}{SHIFT-POUND}({f1}{$e5}{SHIFT-POUND}{$80}{f1}{$e6}{$a0}{$00}{SHIFT-POUND}{$65}{up}{$e5}{$a0}'{SHIFT-POUND}{$67}{up}{$e5}{CTRL-X}{CBM-G}{$e5}{$69}({f1}{$e5}{CBM-G}{$e6}{$69}{$00}{f1}{$e6}F{$e3}P{$e3}{CBM-I}{$00}{SHIFT-POUND}{CBM-N}{left}.{$80}{left}v{$80}{left}{$7e}{$80}{$e8}{$e0}{CTRL-Y}{blk}{$f2}{SHIFT-POUND}{$f0}{f1}{$e2}{SHIFT-POUND}{esc}{f1}{$e3}{$a0}{$00}{CBM-E}{$e2}{f1}{$e4} m{rght}{CBM-E}{$e2}{f1}{$e5} m{rght}{CBM-E}{$e2}{f1}{$e6} m{rght} +{grn}{$a0}{$00}{CBM-E}{$e2}I~{$f0}{dish}{up}{$e4} c{rght}lS{rght} c{rght}{CBM-E}{$e2}I~PMH{CBM-E}{$e2}I~PF {CBM-W}{grn}{$f0}{CTRL-K}{CBM-N}H{CBM-E}{$e2}{f1}{$e3}{f3}{$e2}l{CBM-C}{rght}{CBM-N}H{CBM-E}{$e2}P{$f3}{SHIFT-POUND}{$00}{f1}{$e3}{SHIFT-POUND}{CBM-H}{f1}{$e2} +{grn}{CBM-G}{$e2}P{CTRL-F}{CBM-G}{$e3}{$f0}{CTRL-G}F{$e3}F{$e2}l{del}{grn}{SHIFT-POUND}{CTRL-A}{f1}{CBM-P}{$60}l{$e3}{CTRL-B} ^{grn}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-A}P{CTRL-G}{$68}{$68}{SHIFT-POUND}{$00}{f1}{CBM-P}{$60}{CBM-G}{$e6}P{CTRL-A}{$60}{SHIFT-POUND}{$00}{f1}W{SHIFT-POUND}{CTRL-P}{f1}V{SHIFT-POUND}{$00}{f1}U {cyn}{CTRL-G}{$60}{CBM-I}{CTRL-A}{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{CTRL-F}{sret}{CTRL-P}{$e8}{$a0}{stop}{CBM-Z}{rvon}{$e8})@P{CTRL-F}{f3}{CBM-C} {CBM-Q}{grn}{$60}{$e8}{$ee}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8})@{$f0}{$ef}{$e8}N{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){$80}{$f0}{$e4}{$e8}N{CTRL-P}{$e8}N{CTRL-P}{$e8}{f7}PS{CBM-Z}{CTRL-P}{$e8}){$f0}{ensh}{dish}{sret}{CTRL-P}{$e8} {SHIFT-*}{grn})@{$f0}I{$60}{CBM-G}{CBM-C}{ensh}0{sret}2{$83}{$60} {CBM-Q}{grn}H{CBM-E}{$e2}{$60} {lgrn}{stop}lt{rght}{CBM-I}{$00}{CBM-Z}{rvon}{$e8}{$60}{SHIFT-POUND}{CTRL-A}{f1}N{SHIFT-POUND}{$80}{f1}{CBM-A} S{CTRL-G}{SHIFT-POUND}{$00}{f1}W{f1}U{SHIFT-POUND}{CTRL-A}{f1}V {cyn}{CTRL-G} {$f2}{blu} U{CTRL-U}F{CBM-A}P{$e6}FNP{$fa}{$60} S{CTRL-G} {cyn}{CTRL-G} S{CTRL-G} S{CTRL-G}{$e6}{$e7}{CBM-+}{$e7}{$60}{left}({$80}{CBM-G}{$eb}I{dish}{CBM-A}{CTRL-D}{$e6}P{f1}O{$60}{CBM-+}{CBM-J}{CBM-X}{$70}{blu}{CBM-N}){$f0}jjjj{f1}{CBM-Q}{f4}){CTRL-O}{f1}{CBM-S}{$60}{f1}C 1{CTRL-Z}{$60}{$00}{$00}{$00}{CBM-G}PP{CTRL-A}{$60}FO{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-P}{f1}O @{CTRL-F}{CBM-Z}o{$80}I {$f0}{CTRL-K}{SHIFT-POUND} {CBM-I}{CTRL-D}{left}k{$80}J{CTRL-P}{$fa}{$60}{CBM-I}{CTRL-D}{CBM-X}{$69}{ensh}{left}k{$80}J{CTRL-P}{$f7}{$60}{$7e}{$80}{CTRL-A}{$83}{$8f}{blk}{lgrn}{rvof}{f2}{f5}{f7}{inst}{CBM-POUND}{$83}{SHIFT-POUND}{CBM-E}{CBM-O}{CBM-U}{CBM-E}~~~{$00}{$00}{$00}{down}"#46fvw{$68} @{CTRL-F}{CBM-I}{$00}{SHIFT-POUND}{CBM-N}{left}{del}{$80}{$e8}{CBM-POUND}{CBM-G}{CBM-J}{ensh}{CBM-A}{left}{del}{$80}{$e8}{gry2}{left}{del}{$80}{$60}{sret}'{$80} {$7a}{blu}{$60} {$7a}{blu}{CBM-G}{CBM-J}I{$0a}{$60}{CBM-I}{$00}8{CBM-G}{CBM--}{$e9}({f1}{CBM--}{CBM-G}{SHIFT--}{$e9}{$00}{f1}{SHIFT--}{$e8}{CBM-G}{SHIFT--}P{$ee}{CBM-G}{CBM--}I({CBM-A}{$e8}{$60}{CBM-G}{CBM-D}P{CTRL-A}{$60}{$e6}R{$ea}{$ea}{$ea}{CBM-G}R{sret}h{$e8}{$60}{CBM-I}({SHIFT-POUND} {left}'{$80}JP{$fa}lj{ensh}{CBM-G}{CBM-D}{$f0}{CTRL-A}{$60}{$e6}Q{CBM-+}Q{CBM-X}{$00}{CTRL-P}{sret}h{$e8}{$e0}{wht}{blk}{CTRL-D}{SHIFT-POUND}{$00}{f1}Q{$60} {rvof}{stop}{CBM-G}{$ee}P{stop} {CBM-R}{CTRL-B}{$60}F{grn}{$60}   10 print"{clr}";tab(12);"{rvon}cosmic jailbreak"
   20 poke59468,12:print:print"a  long,  long time ago a fierce battle"
   30 print"was fought against the  invading  space"
   40 print"aliens.       many people were lost...."
   50 print:print"but they did not die in vain,    for it"
   60 print"was mans ingenuity and technology which"
   70 print"finally forced the invaders to retreat."
   80 print:print"during  the  battle  many  aliens  were"
   90 print"imprisoned  on  'earth'  and  held  for"
  100 print"interrogation."
  110 print:print"the  'aliens'  using  their  telepathic"
  120 print"communicators  discover  that you  have"
  130 print"taken prisoners."
  140 print:print"on board  computer {$a0}warns that they are"
  150 print"preparing an attack, code-named:"
  160 print:printtab(12);"{rvon}cosmic jailbreak"
  170 print:print"prepare yourself....   {rvon} press any key "
  180 geta$:ifa$=""then180
  190 print"{clr}";tab(12);"{rvon}cosmic jailbreak"
  200 print:print"the  object  of the  game is to prevent"
  210 print"the  'aliens'  from releasing their men"
  220 print"from jail.  you have 3 lasers initially"
  230 print"but an extra will be awarded every 3000"
  240 print"points."
  250 print:printtab(10);"{CBM-Z}{rvon}.{rvof}{CBM-X}  -  {rvon}20 points{rvof}"
  260 print:print:printtab(9);"{rvon}{SHIFT-POUND}..{CBM-*}{rvof}  -  {rvon}random score value{rvof}"
  270 print:printtab(10);"IU{down}{left}{left}{left}{rvon}{SHIFT-POUND}QQ{CBM-*}{rvof}{down}{left}{left}{left}{left}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{up}  -  {rvon}random score value{rvof}"
  275 printtab(18);"(must hit outer legs)"
  280 print:print"clearing all 9 screens awards a  {rvon}meteor{rvof}"
  290 print"storm  giving  an  extra  5000  points."
  300 print:print"'q' - moves {rvon}left{rvof}      'e' - moves {rvon}right{rvof}"
  310 print"'p' - {rvon}fires{rvof} laser     's' - {rvon}starts{rvof} game"
  320 print:print"{rvon} *  *  * game now being loaded *  *  * "
  325 geta$:ifa$=""then325
  330 load"cosmic jailbreak"
:{stop}{left}{$00}{f5}{$e8}P{CTRL-A}{$60}l{$f3}{CTRL-G}l{f1}{$e6}{CBM-I}{$00}{CBM-J}{$00}{left}{$00}{blu}{$e8}P{$f8}{CBM-X}{$00}{grn}{brn}{$00}{$e8}P{$f8}l{f6}C{SHIFT-POUND}l{sret}{$fd}{stop}{SHIFT-POUND}{CTRL-A}{f1}{$f1}{SHIFT-POUND}{f2}{f1}{$f9}{SHIFT-POUND}{stop}{f1}{$fa}{SHIFT-POUND}{swlc}{f1}{$ee}{SHIFT-POUND}:{f1}{$f7}{SHIFT-POUND}{stop}{f1}{$f8}{SHIFT-POUND}{$00}{f1}{$e5}{SHIFT-POUND} {f1}{$e6}{CBM-I}{$00} {CBM-E}{$f6}l{f6}Ccosmic raiders\{$78}{SHIFT-POUND}:{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{stop}{sret}{CTRL-Z}{CTRL-B}x{CBM-I}{$00}{CBM-J}{$00}{left}{$00}{grn}{$e8}P{$f8} {CTRL-O}{CTRL-D}lg{stop}{SHIFT-@}{SHIFT-POUND}{stop}{left}{CTRL-F}{CTRL-A}{SHIFT-POUND}g{left}{wht}{CTRL-A}{$78}{SHIFT-POUND}{f1}{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{$e6}{sret}{CTRL-Z}{CTRL-B}xl{f1}{$e6}{SHIFT-POUND}{lred}{f1}n{SHIFT-POUND}{f5}{f1}ol*{CTRL-D}\&G]{blu}{CBM-R}-{$70}{$71}{$63}H{CBM-W}{CBM-U}{$82}U{ensh}{$00}+{f1}{$67}){f8}{$8f}]k,{f5}{CBM-W},{sret}{orng}{$62}!<{CBM-T}{rvof}l{$63}{CTRL-U}{$00}{rght}{CTRL-D}{$0a}{$00}{gry1}59468,12:{lgrn}G(142):{yel}1021{$00}{$00}{$00}{$6f}{rvon}{$ea}lN{stop}l%{CTRL-D}{f1}o{SHIFT-POUND}{$00}{f1}s{f1}t{f1}_ {gry1}{CTRL-X} {$e6}{CTRL-U}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} {$ed}{CTRL-F}{CTRL-X}{SHIFT-POUND}{$a0}{$65}h{f1}h{SHIFT-POUND}{$00}{$65}i{f1}il{up}{down}{SHIFT-POUND}{$00}{f1}{orng}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{CTRL-A}{f1}{$79} p{CTRL-P} .{CTRL-L}{$60}{SHIFT-POUND}{$00}{f1}{orng}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{CTRL-A}{f1}{$79} p{CTRL-P} {blu}{rvon}{$60}{SHIFT-POUND}{$00}{f1}{orng}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{CTRL-A}{f1}{$79} p{CTRL-P} &{swlc}{$60}{SHIFT-POUND}{$00}{f1}{orng}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{CTRL-A}{f1}{$79} p{CTRL-P} {grn}{$0a}{$60}{SHIFT-POUND}{$00}{f1}{orng}{SHIFT-POUND}{CTRL-B}{f1}{$80}{SHIFT-POUND}x{f1}{$79} p{CTRL-P} {up}{swlc}{$60} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {$65}{CTRL-D}{CBM-G}fI{wht}{CBM-A}{$0a} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {$78}{CTRL-D} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} {$65}{CTRL-D}{CBM-G}fI{stop}{CBM-A}{$0a} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht}{$ea}{$ea}{$ea} {$65}{CTRL-D} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {$78}{CTRL-D} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} r{CTRL-D}{CBM-G}fP{stop}l{CBM-C}{wht} {f6}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht}{CBM-G}fI{stop}{CBM-A}{$0a} {yel}{CTRL-D}{CBM-G}_{$f0}{stop}lD{wht} {$65}{CTRL-D}l{CBM-E}{CTRL-D}{$a0}~{CTRL-F}{$60}{CTRL-F}{$60}{CTRL-F}{$60}{f7}P{$f7}JP{$f2}{$60}{$ea}{$ea} {left}{CTRL-X}l?{CTRL-D} ;{rvon}l{$ed}{wht}{$ea}Et{blk}{CTRL-D}{$f0}{home}P{CTRL-K}{CBM-G}s{f1}q{CBM-G}t{f1}r {CBM-Z}{dish} {CBM-@}{CTRL-O}l{CTRL-V}{CTRL-D}{CBM-G}qEs{blk}{$e9}l{$de}{wht}{CBM-G}{CBM-R}{$f0}{stop}l{$de}{wht}{CBM-G}rlK{wht}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{CBM-G}{$84}{$f0}{CTRL-A}{$60}{CBM-+}g{CBM-J}{$00}{f1}{f1}{$e8}{CBM-J}{$00}{f1}{f3}{CBM-G}mI{CTRL-A}P {CBM-I}{$00}{CBM-G}{f1}{SHIFT--}B{CTRL-F}P
{$e8}{CBM-G}{f3}{SHIFT--}B{CTRL-F}P{CTRL-F}{SHIFT-POUND}o{f1}{$84}{$60}{$e8}{$e8}{CBM-X}B{CTRL-F}I~P{$e3}{$60}{CBM-G}mI~P{$ef}{CBM-I}{$00}{CBM-G}{f1}{SHIFT--}{lgrn}{CTRL-F}P
{$e8}{CBM-G}{f3}{SHIFT--}{lgrn}{CTRL-F}P{CTRL-F}{SHIFT-POUND}q{f1}{$84}{$60}{$e8}{$e8}l#{CTRL-L}{$ea}{$ea}{CTRL-F}{orng}v{orng}{CBM-+}{orng}{$f6}{orng}f{$82}{lred}{$82}{$e6}{$82}6{$83}{f3}{$83}V{$83}&{$84}{$76}{$84}F{$84}{CTRL-V}{f1}{$66}{f1}{CBM-L}{f1}{CTRL-F}{f3}v{f3}{CBM-+}{f3}{$f6}{f3}~W{$80}'{orng}{$77}{orng}G{orng}{CTRL-W}{$82}{$67}{$82}{CBM-Y}{$82}{CTRL-G}{$83}w{$83}{CBM-M}{$83}{$f7}{$83}g{$84}{gry1}{$84}{$e7}{$84}7{f1}{f5}{f1}W{f1}'{f3}{$77}{f3}G{f3}{CTRL-W}{f5}~ {$ef}{CTRL-G}{SHIFT-POUND}{dish}{f1}{$6a}{SHIFT-POUND}{f3}{f1}{$6b}{SHIFT-POUND}{CTRL-D}{f1}{$6c}{$a0}{$00}{SHIFT-POUND}{$e9}{up}{$6a}H{SHIFT-POUND}{$a0}{up}{$6a}H{up}{$6a}H{up}{$6a}H{SHIFT-POUND}{CBM-*}{up}{$6a}{CBM-I}{wht}HJP{$fc}F{$6c}P{$e2}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}x{f1}{$6a}{SHIFT-POUND}{f3}{f1}{$6b}{$a0}{$00}{SHIFT-POUND}{CTRL-B}{f1}{$6d}{SHIFT-POUND}{CTRL-D}{f1}{$6c}{SHIFT-POUND}{wht}{f1}{$70}{SHIFT-POUND}{$a0}{up}{$6a}HF{$70}P{$f9}{CBM-I}{CTRL-D}HJP{$fc}F{$6c}P{$e9}{CBM-I},HJP{$fc}F{$6d}P{SHIFT-+}{CBM-G}h{f1}{$64}{CBM-G}i{f1}{$65}{CBM-I}{$00}{SHIFT-POUND}{wht}{f1}{$6c}{SHIFT-POUND}{CTRL-G}{f1}{$6d}{CBM-G}{$64}{brn}{$00}{$ea}{CBM-G}{$65}{brn}{CTRL-A}{$a0}{$00} {$6a}{rght}{$e8}{$e8}{CTRL-X}{SHIFT-POUND}{CTRL-D}{$65}{$64}{f1}{$64}{SHIFT-POUND}{$00}{$65}{$65}{f1}{$65}F{$6d}P{CBM-*}{CTRL-X}{SHIFT-POUND}{$84}{$65}{$64}{f1}{$64}{SHIFT-POUND}{$00}{$65}{$65}{f1}{$65}F{$6c}PJ{SHIFT-POUND}#{f1}f{SHIFT-POUND}d{f1}g{f1}{$78}{CTRL-X}{SHIFT-POUND}p{$65}h{f1}h{SHIFT-POUND}{$00}{$65}i{f1}i{SHIFT-POUND}{CTRL-A}{f1}m{SHIFT-POUND}{$00}{f1}u{f1}v{f1}w{f1}x{f1}y{f1}[{f1}\{f1}]{f1}^{f1}{$77} {red}{CTRL-L}{$ea}{SHIFT-POUND}u{f1}z {CBM-Z}{dish} ({ensh} {pur}{CTRL-O}{SHIFT-POUND}{lred}{f1}n{SHIFT-POUND}{f5}{f1}o {f1}{down}{$60}{$60}@{$e8}) P{$f9}{$60}{CBM-I}{$00}{SHIFT-POUND} {left}{$00}{$80}{left}{$00}{orng}{left}{$00}{$82}{left}{$00}{$83}{left}{$00}{$84}{left}{$00}{f1}{left}{$00}{f3}l:{stop}{$60} 9{CTRL-W}I~P{CTRL-A}{$60}Ia{$f0}&Id{$f0}rI{$de}P{$f3}{CBM-G}[P{$ef}{CBM-G}\P{$eb} \{CTRL-X}{$ea}{SHIFT-POUND}{$00}{f1}{$6d}8{CBM-G}n{$e5}{$6c}{f1}[{CBM-G}o{$e5}{$6d}l{$fa}{CTRL-V}{CBM-G}nI{lred}P{CTRL-G}{CBM-G}oI{f5}P{CTRL-A}{$60}{$a0}{CTRL-B} {$e7}{CTRL-G}{SHIFT-POUND} {up}n{$a0}o ~{ensh}FnP{CTRL-B}Fo{CBM-I}{$00} {$e7}{CTRL-G}{SHIFT-POUND}{$a0}{orng}n{$a0}o ~{ensh}{$60}{CBM-G}nI{CBM-Y}P{CTRL-G}{CBM-G}oI{f5}P{CTRL-A}{$60}{CBM-I}{$00} {$e7}{CTRL-G}{SHIFT-POUND} {orng}n{$a0}o ~{ensh}{$e6}nP{CTRL-B}{$e6}o{$a0}{CTRL-B} {$e7}{CTRL-G}{SHIFT-POUND}{$a0}{up}n{$a0}o ~{ensh}{$60}{dish}{ensh}-{home}{stop}{CTRL-O}{rvon}{wht}={stop}{$e8}{$00}{$64}{$00}{$0a}{SHIFT-POUND}{CTRL-X}{f1}{$60}{SHIFT-POUND}{$80}{f1}{$61}{CBM-I}{ensh}{$a0}{$00}{CBM-O}{yel}{dish}{up}{$60}HJP{$f7}{CBM-G}q{f1}{$62}{CBM-G}r{f1}{$63}{SHIFT-POUND}{stop}{f1}{$64}{CBM-I}{$00}{SHIFT-POUND}0{f1}{$65}{CBM-G}{$63}{SHIFT--}{CBM-M}{dish}{$f0}-{CBM-A}4{$e8} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{CBM-G}{$65}{up}{$60}HF{$64}{$f0}{CTRL-D}{$e8}lP{dish}{SHIFT-POUND}0{f1}{$65}{CBM-G}{$62}{$f0}{CTRL-F}{$e6}{$65}F{$62}P{$f6} {$e7}{CTRL-G}{CBM-G}{$65}{up}{$60}{$60}{$e8}{CBM-G}{$62}{SHIFT--}{CBM-M}{dish}{blk}NJ{$e8}8{CBM-G}{$62}{$fd}{CBM-M}{dish}{f1}{$62}J{CBM-G}{$63}{$fd}{CBM-M}{dish}{f1}{$63}{$ea}{$e6}{$65}lT{dish} {$7b}{rvon}{$ea}{SHIFT-POUND}{$80}{f1}{$61}{CBM-I}{CTRL-F}{$a0}{$00}{CBM-O}{CBM-K}{dish}{up}{$60}HJP{$f7}{CBM-G}s{f1}{$62}{CBM-G}t{f1}{$63}lJ{dish}{CBM-+}{$71}{CBM-X}[{ensh}I~P{CTRL-G}{CBM-I}{$00}{f3}{$71}{CBM-X}[{ensh}{$e6}{$71}{$60}{$00}{$00}{$00}{CTRL-F}{$00}{$00}{$00}{$00}{CTRL-G}{$00}{wht}{$00}{$00}{CTRL-B}{$00}{$00}{$00}{CTRL-A}{CTRL-F}{$00}{CTRL-G}{$00}{$00}{CTRL-A}{$00}{CTRL-D}{$00}{$00}{$00}{$00}{stop}{$00}{$00}{$00}{$00}{wht}{$00}{$00}{$00}{stop}{$00}{$00}{CTRL-D}{$00}{CTRL-B}{$00}{$00}{CTRL-F}{$00}{$00}{$00}{$00}~{CBM-+}{$72}{CBM-X}{$e2}{ensh}I{$fa}P{CTRL-D}{SHIFT-POUND}{$00}{f1}{$72}{CBM-X}{$e2}{ensh}{f1}{$76}{f1}{$83}{SHIFT-POUND}0{f1}{$73}{f1}{$74}{f1}{$75}{CBM-G}{$83}I{$64}{blk}{CTRL-O}{$e6}{$73}{CBM-I}{$64}F{$83}P{CTRL-A}{$60}JP{$f8}l{CBM-D}{ensh}{CBM-G}{$83}I{$0a}{blk}{CTRL-O}{$e6}{$74}{CBM-I}{$0a}F{$83}P{CTRL-A}{$60}JP{$f8}lA{ensh}{CBM-G}{$83}P{CTRL-A}{$60}{$e6}{$75}F{$83}lV{ensh}{$64}{$64}{$64}{lred}{$64}H{$64}H{$64}{$64}{lred}{$64}{$64}{$64}H{$64}{$64}{lred}{$64}{$64}{$64}{$64}{$fa}{CBM-Z}{wht}{CTRL-B}){CTRL-A}{$60}{CBM-N}{$84}{$62}8{CBM-G}n{$e5}{$62}{f1}{$60}{CBM-G}o{$e9}{$00}{f1}{$61}{$ea}{$ea} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{f4}{CBM-I}{$00}{orng}{$60}{$60}{CBM-G}yP{stop}lb{CTRL-K}{$e6}z{$e6}z{CBM-G}zIx{blk}{CTRL-D}{SHIFT-POUND}u{f1}z{CBM-+}z{CBM-J}{$00}P{CTRL-D}{CBM-J}{CTRL-A}{$f0}{$e8}{CBM-J}{$00}{f1}{$60}{CBM-J}{CTRL-A}{f1}{$61}{CTRL-X}{SHIFT-POUND}p{$65}{$60}{f1}{$62}{SHIFT-POUND}{$00}{$65}{$61}{f1}{$63} {$e7}{CTRL-G}{CBM-G}{$63}I{f5}{$f0}{del}{blk}{CTRL-X} ?{down}{$ea}{orng}{$60}Fy{f4}{CBM-+}z{brn}{$00}{brn}{CTRL-A}lb{CTRL-K}{CBM-G}{$62}I{CBM-C}{CBM-A}{$e8}{CBM-I}{$00} 4{down}{$ea}{CBM-K}{$62}I P{down}{SHIFT-POUND}b{orng}{$62}{CBM-+}z{CBM-G}{$62}{brn}{$00}{CBM-G}{$63}{brn}{CTRL-A}lb{CTRL-K}I{grn}P{swlc}{SHIFT-POUND} {orng}{$62}{f3}[{f3}\{$ea}{$ea}{$ea}l{$63}{$0a}l^{red}{$ea}{SHIFT-POUND} {orng}{$62}l{$61}{$0a}{f1}{$64}{CBM-G}{$63}I{f5}P{ensh}{CBM-G}{$62}Id{blk}{stop}lQ{$0a}{CBM-G}{$64}I{$66}P{CTRL-D}{SHIFT-POUND} P{CTRL-B}{SHIFT-POUND}{$66}{orng}{$62}l]{$0a}{CBM-G}{$64}I{$a0}P{$e9}Fp 5{CTRL-K} {$73}{esc}l{$f6}{$0a} {CTRL-K}{CTRL-K}{CBM-I}{$7f} {CTRL-K}{CTRL-K} d{rvon}F{$65}P{$ef}{$ea}{$ea} {ensh}{home}{CBM-G}pP{stop}{$e6}_{$60}{SHIFT-POUND}{lred}{f1}n{SHIFT-POUND}{f5}{f1}o {brn}{CTRL-O}l{f2}{CTRL-W} {$e7}{CTRL-G}{f4}{f1}{$6d}{$a0}{CTRL-A} ~{ensh}{orng}n{up}nH{up}nH{up}n{$a0}n ~{ensh}H ~{ensh}H ~{ensh}{SHIFT-POUND} {$a0}{cyn} ~{ensh}{$60}{CTRL-X}{SHIFT-POUND}0{$65}p{CBM-N} {$e7}{CTRL-G} {CBM-+}{CTRL-V}{$60}{CBM-G}yI{CTRL-B}P{CTRL-U}{$60}{CBM-G}fI{CTRL-A}P{dish}{CBM-G}{$78}{f1}{$6a}{CBM-N}l{$83}{CTRL-K}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} h{ensh}lI{CTRL-K}{$ea}F{$6a}{CTRL-F}{$6a}{CTRL-X}{CBM-G}{$6a}{$69}8{f1}{$6a}{CBM-+}{$6a}{CBM-J}{$00}P{swlc}{CBM-J}{CTRL-A}P{$0a}8{CBM-G}{$6a}{$e9}{swlc}{f1}{$6a}{CTRL-P}{$ed}{$60}{CBM-J}{$00}{f1}{$60}{CBM-J}{CTRL-A}{f1}{$61}{CTRL-X}{CBM-G}{$60}{$69}q{f1}{$60}{CBM-G}{$61}{$69}{$00}{f1}{$61} {$e7}{CTRL-G}{CBM-I}{$00}{CBM-K}{$60}I{grn}P{ensh}{SHIFT-POUND} {orng}{$60}{f3}[{f3}\{$60}{SHIFT-POUND}b{orng}{$60}{$e6}y{CBM-G}uP{dish}{CBM-G}vP{CTRL-D}{CBM-I}uP{CTRL-B}{CBM-I}w{CBM-G}{$60}{brn}{$00}{CBM-G}{$61}{brn}{CTRL-A}{$60}{f1}{$6a}{CBM-G}{$6a}{$f0}{stop}l{$63}{CTRL-K}{$60}JP{$fb}{CBM-G}{$60}{CTRL-P}{$e7}{$60}{$e6}y{CBM-G}uP{CTRL-K}{CBM-G}vP{CTRL-G}{SHIFT-POUND}u{f1}{$6a}l{$f0}{CTRL-K}{SHIFT-POUND}w{f1}{$6a}{SHIFT-POUND}{$00}{f1}{$6b}{f1}{$61}{CBM-I}{$00}{CBM-K}{$60}{orng}{$6a}{$e8}{CBM-K}{$60}{orng}{$6a}J{CTRL-X}{CBM-K}{$6a}{$69}p{orng}{$6a}{$e6}{$6a} {lred}{CTRL-P} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{CBM-+}{$6a}{SHIFT-POUND}b{orng}{$00}{$60}{f1}{$71}{$ea}{$ea}l4{CTRL-W}{CBM-X}{lgrn}{CTRL-F}I~P{CTRL-A}{$60}l{$7e}{CTRL-F}{CBM-G}[P{wht}{CBM-G}\P{CTRL-A}{$60} @{CTRL-W}{$ea}{CBM-G}\{f1}{$61}8{CBM-G}{$60}{$e9}p{f1}{$60}{CBM-G}{$61}{$e9}{$00}{f1}{$61} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{CBM-I}{$00} ){down}{$ea}{CBM-K}{$60}lG{red}{$ea}{f3}[{f3}\Ib{$f0}y{f1}{$6a}{CBM-G}{$61}I{$80}P{CTRL-K}{CBM-G}{$60}I{CBM-H}{CBM-A}{wht}Io{CBM-A}{$0a}{$60}{CBM-G}{$6a}I{CBM-S}P
l{$eb}{CTRL-L}l{SHIFT-*}
Ip{CBM-A}{stop}l{SHIFT-*}
{CBM-I}{$00} {$e7}{CTRL-G}{CBM-K}{$60}I{$a0}P{CTRL-L} {$f9}{ensh}{f1}{$63}{$f0}{wht}{$a0}{$66}l{CBM-+}{CTRL-L}{$a0} {CBM-I}{$00} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{gry2}{orng}{$60}{$60}{CBM-G}{$60}{f1}[{CBM-G}{$61}{f1}\{$a0}{grn}l{CBM-POUND}{CTRL-L}{CBM-G}{$60}Eu{$f0}{ensh}{SHIFT-POUND}{$00}{f1}w{f1}xl{SHIFT-+}{CTRL-L}{CBM-G}{$61}EvP{$f1}{SHIFT-POUND}{$00}{f1}u{f1}vFyl{CBM-@}{CTRL-L} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{f4}{up}{$60}{$60} {$f6}{red}{$ea}{CBM-G}{$60}U{$00}P{$0a}{CBM-G}{$61}{$e8}U{$00}P{CTRL-D}l{$0a}{down}{$e8}{$e8}{f7}P{$eb}{$60}{f3}{$6d}l{CBM-D}{CTRL-Y}{$ea}{$e8}{brn}{$00}Ff {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND} {$a0}{CTRL-A}{up}{$60}{$a0}p {$e4}{CTRL-P}{$ea}{$ea}{$ea}{f7}P{$f7}{SHIFT-POUND}{$0a}{f1}{$6c}{CBM-I}-{$a0}p {$e0}{CTRL-L}{$a0}r {$e0}{CTRL-L}{CBM-I}m{$a0}{$00} {$e0}{CTRL-L}{$a0}{CBM-I} {$e0}{CTRL-L}{$e8}{$a0}{CTRL-B} {$e0}{CTRL-L}{$a0}{$a0} {$e0}{CTRL-L}{CBM-I}b{$a0}{CTRL-A} {$e0}{CTRL-L}{$a0}{CBM-K} {$e0}{CTRL-L} h{CTRL-W}{$ea} {$e0}{CTRL-L}{$a0}r {$e0}{CTRL-L}{$a0}{$00} {$e0}{CTRL-L}{$a0}{CBM-I} {$e0}{CTRL-L}{$a0}{CTRL-B} {$e0}{CTRL-L}{$a0}{$a0} {$e0}{CTRL-L}{$a0}{CTRL-A} {$e0}{CTRL-L}{$a0}{CBM-K} {$e0}{CTRL-L}F{$6c}P{CBM-T}{CBM-G}{$6d}I7{blk}{wht}{SHIFT-POUND}{wht}l{CBM-E}
I){blk}{wht}{SHIFT-POUND}{$0a}l{CBM-E}
I{esc}{blk}{wht}{SHIFT-POUND}{CTRL-O}l{CBM-E}
I
{blk}{wht}{SHIFT-POUND}{del}l{CBM-E}
{SHIFT-POUND}{CTRL-Y}{CTRL-X}{$65}s{f1}s{SHIFT-POUND}{$00}{$65}t{f1}t {$6d}{CTRL-W}{$60} {CBM-E}{red}{CTRL-X}{CBM-G}{$76}{$65}s{f1}s{SHIFT-POUND}{$00}{$65}t{f1}t{SHIFT-POUND}~{f1}{$65}l{$e2}
 {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{f4}{up}]{$60}{CBM-I}*{$a0}{$00} {CBM-O}{red}{$a0}{CTRL-D} W
{$a0}{CTRL-A}{CBM-+}{$73} W
H{CBM-+}{$74} W
H{CBM-+}{$75} W
F{$65}P{SHIFT--}{CBM-I} {$a0}{$00} W
H W
H W
H W
H {$de}
{SHIFT-POUND}{$00}{f1}]{f1}^ +{rvon}{$60}{CBM-G}]Pm{CBM-G}^Pi{$e6}{$6e}P{CTRL-B}{$e6}{$6f}{CBM-+}{CBM-V}{CBM-X}{CTRL-O}{CTRL-X}E{$6e}{$f0}{CTRL-A}{$60}{CBM-X}{CTRL-P}{CTRL-X}E{$6f}{$f0}{stop}{blk}{CTRL-A}{$60}l{$7e}{CTRL-X}{$ea}{$ea}{$e6}{CBM-V}l{$74}{CTRL-X}I~P{CTRL-K}{CBM-X}{CTRL-P}{CTRL-X}I~P{CTRL-D}{SHIFT-POUND}{$00}{f1}{CBM-V}{CBM-G}{CBM-B}P{CTRL-F}{SHIFT-POUND}{$63}{f1}]P{CTRL-D}{SHIFT-POUND}{f2}{f1}]{SHIFT-POUND}{$80}{f1}^ Q{down}{$60}{CBM-G}{CBM-B}{$f0}{stop}l{$f0}{CTRL-W}{CBM-G}]I{f7}P{stop}lO{CTRL-W}{$a0}{$00}{CBM-I}  W
l{CBM-A}{CTRL-W}{CBM-+}g{CBM-J}{$00}P){$e8}{CBM-J}{$00}P${CBM-G}gE{$78}P{wht}F{$78}F{$78}{$ea}E{$77}lB{CTRL-P}{$ea}l{$f7}{CTRL-P}{$ea}{CBM-G}gE{$77}{$f0}Z{CBM-A}X{CBM-G}{$78}{f1}gl{up}{swlc}{CBM-G}{$84}P{stop} @{CTRL-F}{CBM-+}g{CBM-J}{$00}{f1}{$60}{$e8}{CBM-J}{$00}{f1}{$61}lR{CTRL-P}{$65}m{f1}{$60}{SHIFT-POUND}{$00}{$65}{$61}{f1}{$61} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{CBM-I}{$00}{CBM-K}{$60}I{grn}P{rght}{SHIFT-POUND} {orng}{$60}8{CBM-G}[{$e9}p{f1}[l{swlc}{down}{f1}\{CBM-I}{$00} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}{grn}{orng}[{CBM-+}g{CBM-J}{$00}{f1}{$64}{CBM-J}{CTRL-A}{f1}{$65}{$a0}{$00}{CBM-E}{$64}h{SHIFT-POUND} {up}{$64}H{up}{$64}H{up}{$64}{CBM-G}{$60}{brn}{$00}lv{rght}{$ea}{CBM-G}gE{$77}P){CBM-G}{$84}{$f0}%Em{$f0}{wht}{f1}ml[{CTRL-O}{SHIFT-POUND}{$00}{f1}{$84}{CBM-G}mIo{$f0}{swlc}Iq{$f0}{stop}l[{CTRL-O}{SHIFT-POUND}{CTRL-A}{f1}ml[{CTRL-O}{SHIFT-POUND}~{f1}m{$60}{$ea}I{f3}{blk}{$0a}{CBM-J}{$00}I{CBM-*}{blk}{CTRL-D}l{f7}{CTRL-X}{$ea}l{CBM-E}{CTRL-P}{$ea}{CBM-G}gE{$77}{$f0}{CTRL-F}{CBM-A}{CTRL-D}{CBM-G}{$78}{f1}g{$60}{$a0}{$00} {$e7}{CTRL-G}{$ea}{$ea}{$ea}{$ea}{CBM-G}{$66}{up}nH{up}nH{up}n{$a0}o ~{ensh}{$60}{SHIFT-POUND}{$a0}{f1}{$66}l{$7c}{CTRL-O}{SHIFT-POUND} {f1}{$66}l{$7c}{CTRL-O}{$60}l{$ee}{CTRL-V}{$ea}{SHIFT-POUND}{left}{f1}{$63} {$0a}{CTRL-P} {$0a}{CTRL-P}{SHIFT-POUND}2{f1}{$62} {$0a}{CTRL-P}{SHIFT-POUND}{$f0}{f1}{$62} {$0a}{CTRL-P}{SHIFT-POUND}{$f0}{f1}{$62}{SHIFT-POUND}{$82}{f1}{$63} {$0a}{CTRL-P}{SHIFT-POUND}2{f1}{$62}{SHIFT-POUND}{f8}{f1}{$63} {$0a}{CTRL-P}{SHIFT-POUND}{$f0}{f1}{$62} {$0a}{CTRL-P}{SHIFT-POUND}2{f1}{$62}{SHIFT-POUND}{left}{f1}{$63} {$0a}{CTRL-P}{SHIFT-POUND}{$f0}{f1}{$62}{SHIFT-POUND}{left}{f1}{$63} {$0a}{CTRL-P}{SHIFT-POUND}{$64}{f1}{$62}{SHIFT-POUND}{CBM-N}{f1}{$63} {$0a}{CTRL-P}{SHIFT-POUND}{$f0}{f1}{$62}{SHIFT-POUND}{left}{f1}{$63} {$0a}{CTRL-P}{$60}{CBM-I}{CTRL-P}{swuc}k{$e8}J{swuc}j{$e8}{CBM-G}{$63}{sret}h{$e8}{CBM-G}{$62}{f1}{$64}{CBM-I}{wht}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}JP{$f1}F{$64}P{$eb}{SHIFT-POUND}{$00}{sret}k{$e8}{SHIFT-POUND}p{f1}{$64}{CBM-I}2{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}JP{$f1}F{$64}P{$eb}{$60}{CBM-G}{$79}{$f0}{rght}{CBM-I}{$0a}l{$6a}{CTRL-P}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}{CTRL-F}{f5}JP{$e9}F{$79}P{$e3}{CBM-G}{$80}{$f0}{wht}F{$80}lt{CTRL-P}{CBM-G}{orng}{$f0}{wht}F{orng}lt{CTRL-P}{$60}{$f0}{stop}{CBM-A}{CTRL-A}{$60}l{$72}{CTRL-L}{$f0}{wht}{CBM-A}{stop}l{SHIFT-*}
l{$84}{CTRL-L}{CBM-K}{$6a}{$69}{$00}l{rght}{down}{$e6}z{$e6}z{CBM-G}z{$60}{CBM-G}z{f1}{$62}{SHIFT-POUND}{$00}{f1}{$63}{$a0}{$00}{CBM-E}{$62}{$60}{CBM-G}g{$f0}{CTRL-G}FgFgl{$6e}{CTRL-O}l{$77}{CTRL-O}F{$78}{$60}P{CTRL-D} {CBM-Y}{down}{$ea}l{CBM-Z}{swlc}{brn}{$00}{CBM-G}{$61}{brn}{CTRL-A}{$60}{CBM-G}mI~{$f0}{CTRL-F}{CTRL-X}{CBM-G}{$60}lU{swlc} {$e4}{CTRL-P}l{CBM-*}{swlc}{CBM-G}{$60}P{CTRL-B}F{$61}F{$60}{$60}Ia{$f0}{stop}l{$66}{CTRL-L}l{$eb}{CTRL-L}{CBM-G}g{$f0}{CTRL-G}FgFgl{CBM-E}{swlc}l{CBM-O}{swlc}{$e6}{$72}l{blk}{ensh}Jl{wht}
{CBM-G}\{$e9}{$00}l{$fc}{swlc}{f1}{$6e}{f1}{$6f} ({ensh}{$60}{orng}{$6a}F{$6a}{$60} {brn}{CTRL-O} {CBM-V}{CTRL-V}{$60}{CBM-K}[I{grn}P{CTRL-D}{SHIFT-POUND} {orng}[{$60}{CBM-K}{$60}IbP{CTRL-D}{SHIFT-POUND} {orng}{$60}{$60}{CBM-I}{$00}{CBM-K}{$60}IbP{CTRL-B}{SHIFT-POUND} {$60}{CBM-G}{CBM-D}{$f0}{stop}F{CBM-D}{$60}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{CBM-G}{f4}{$f0}{CTRL-A}{$60}{CBM-G}{f6}{$f0}{CTRL-P}{SHIFT-POUND}{$00}{f1}{f6}{sret}k{$e8}{CBM-G}f{f1}{CBM-D}{$ea}{$ea}{CTRL-F}{CBM-D}{$60}{SHIFT-POUND}{CTRL-A}{f1}{f6}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}~{sret}h{$e8}{$60}{SHIFT-POUND}{$00}{f1}{f4}{f1}{f6}{f1}{CBM-D} "{down}{$60}{CBM-G}iI{$82}{$f0}{CTRL-D}{blk}{CTRL-P}P{CTRL-F}{CBM-G}hI{$e9}{blk}{dish}{SHIFT-POUND}{$e6}{f1}h{SHIFT-POUND}{$82}{f1}il{CBM-E}{CTRL-D} j{down} ,{CTRL-O}{CBM-J}{CTRL-A}l]{CTRL-O}{CBM-I}{$00}{CBM-J}{$00}P{$0a}{CBM-J}{CTRL-A}P{CTRL-F}{$e8}{$e8}{$e0}dP{$f2}{f3}{$77} 2{CTRL-O}{$60}{SHIFT-POUND}{$80}{f1}^{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{$fa}{sret}h{$e8}{f1}{CBM-C}{SHIFT-POUND}{CTRL-A}{f1}{CBM-D}{SHIFT-POUND}{CTRL-A}{f1}{f4}{$60}{f1}{$6e}{f1}{$6f}{f1}{f4}{sret}k{$e8}{$60} W
{CBM-G}{f4}P{CTRL-A}{$60}{CBM-G}{CBM-D}{$f0}{stop}F{CBM-D}{$60}{CBM-G}{CBM-C}IR{blk}{ensh}8{CBM-G}{CBM-C}{$e9}{del}{f1}{CBM-C}P{CTRL-D}{SHIFT-POUND}{$fa}{f1}{CBM-C}{sret}h{$e8}{SHIFT-POUND}{CTRL-A}{f1}{CBM-D}{$60} {CTRL-L}{dish} {$f8}{down}{$60}{SHIFT-POUND}{$00}l{$ef}{down} {CTRL-U}{down} &{rvon}{$60} &{rvon}{CBM-I}{SHIFT-*} {CBM-Z}{wht}{$60} &{rvon}{CBM-I}~ {CBM-Z}{wht}{$60}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8} {ensh}{red}{CBM-G}C{sret}h{$e8}{$ea}{$ea}{$60}{SHIFT-POUND}{$00}{sret}k{$e8}{$60} y{rvon}{CBM-I}  {CTRL-K}{CTRL-K}{$60}{f1}q{f1}r{f1}{$72}{$60}{SHIFT-POUND}{stop}{f1}p{CBM-I}{CTRL-G}{f3}{CBM-F}{$e8}{f3}{SHIFT-@}{$60}{SHIFT-POUND}.{f1}{$60}{CBM-G}tE{CBM-F}{blk}{rght}P{CTRL-F}{CBM-G}sE{SHIFT-@}{blk}{CTRL-U}{$e6}p 5{CTRL-K}{$ea}{$ea}{$ea}{CTRL-X}{CBM-G}{SHIFT-@}{$69}x{f1}{SHIFT-@}{CBM-G}{CBM-F}{$69}{CTRL-B}{f1}{CBM-F}{$60} {$ef}{CTRL-G}{SHIFT-POUND}{del}{f1}{$60}{SHIFT-POUND}{home}{f1}{$61}{SHIFT-POUND}{home}{f1}{$62} {$e7}{CTRL-G}{CBM-I}{$00}{CBM-K}{$61}{f1}{$63}{CBM-G}{$61}P{CTRL-B}{$e6}{$62}{$e6}{$61}{$a0}{$00}{CBM-E}{$61}{f1}{$64}H{CBM-E}{$61}{f1}{$65}{f7}{CTRL-X}{CBM-G}{$61}{$69}{CTRL-B}{f1}{$61}{CBM-G}{$62}{$69}{$00}{f1}{$62}{CBM-E}{$61}{up}{$64}HF{$63}P{$f7}{CTRL-X}{gry2}{$65}{$61}{f1}{$61}{CBM-G}{$62}{$69}{$00}{f1}{$62}F{$60}P{CBM-X}{$ea}{$ea}{$ea}{$60}$$$$$$$$$$$$$$$${CBM-G}{f4}{$f0}{stop}l{$62}{rvon}l_{rvon}{CTRL-Z}{CTRL-Z}{$80}- - - {$83}{$8f}{clr}{sret}{f2}{$83}{$a0}{rvof}{orng}{f2}{$84}{f1}{rvof}{clr} - - -{CTRL-Y}{$0a}{orng}{$e9}{CBM-S}{CBM-S}{CBM-*} - {rvon}{CTRL-A}{swlc}{CTRL-D}{CTRL-O}
 {home}{stop}{CTRL-O}{rvon}{wht} {CTRL-V}{CTRL-A}{CTRL-L}{CTRL-U}{wht}{del}{CBM-M}{orng}{del}{CTRL-O}{CTRL-P} {$6d}{CBM-S}{$7d} - 25  {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}{CTRL-O}l{$82}{CBM-S}{$6e} - 20  {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}{CTRL-O}{$ec}{$82}{CBM-S}{$7d} - 15  {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}{CTRL-O}{f8}{$83}{CBM-S}{$6e} - 10  {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}{CTRL-W}${$84}{CTRL-B}{CTRL-O}{del}{del}{CTRL-O}
 {$6d}{CBM-S}{$7d} -  5  {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} I{$84}1800 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-A}{CTRL-W}{CTRL-A}{rvon}{CTRL-D}{home} 1 {wht}{CTRL-X}{del}{rvon}{CTRL-A} {CTRL-L}{CTRL-A}{home}{wht}{rvon}{CTRL-Y}{grn}{f1}{CTRL-A}{swlc}{CTRL-D} {del}{dish}{wht}{swlc} {wht}{CTRL-V}{wht}{rvon}{CTRL-Y} 600 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}{CTRL-X}{SHIFT-@}{f1}'{CTRL-A}'  -  
{CTRL-O}{CTRL-V}{wht}{home} {CTRL-L}{CTRL-A}{home}{wht}{rvon} {CTRL-L}{wht}{CTRL-F}{del}{CTRL-Y}{$0a}{f3}'{CTRL-D}'  -  
{CTRL-O}{CTRL-V}{wht}{home} {CTRL-L}{CTRL-A}{home}{wht}{rvon} {rvon}{ensh}{CTRL-G}{dish}{del}{home}z{f3}'{grn}'  -  {CTRL-F}{ensh}{rvon}{wht}{home} {CTRL-L}{CTRL-A}{home}{wht}{rvon}{CTRL-A}k{$82}{$70}{CTRL-A}{$eb}{$82}{$6d}{CTRL-A}{f6}{$83}{$70}{home}{CBM-N}{f3}'{home}'  -  {home}{del}{CTRL-A}{rvon}{del}{home} {CTRL-G}{CTRL-A}
{wht}{red}{$f8}{f3}0 {del}{CTRL-O} 9 -  {home}{wht}{del}{home} {CTRL-L}{wht}{CTRL-V}{wht}{CTRL-L} {CTRL-O}{CTRL-F} {CTRL-G}{CTRL-A}
{wht}{home}{gry2}{f5}{CTRL-L} {wht} {CTRL-V} {wht} {CTRL-L}  =  * 5 *{$0a}{CBM-R}{f5}{CTRL-A}{CTRL-U}{del}{dish}{CTRL-O}{rvon}:{CTRL-D}{$0a}{dish}{CTRL-D}{f7}{$80}
{CTRL-K} 3$$$$$$$$$${CBM-G}{CBM-R}P{CTRL-D} {$78}{CTRL-W}{$60}{CBM-G}{CBM-A}P{dish}{CBM-G}{CBM-E}P{CTRL-B}{$f0}{CTRL-G}F{CBM-E}F{CBM-A}{CBM-G}{CBM-H}{$60}{CBM-+}{CBM-W}{CBM-X}{$ee}{del}{f1}{CBM-H}{$e8}{CBM-X}{$ee}{del}{f1}{CBM-A}{$e8}{CBM-X}{$ee}{del}{f1}{CBM-E}{$e8}{f3}{CBM-W}{CBM-G}{CBM-H}I~P{CTRL-D}{SHIFT-POUND}{$00}{f1}{CBM-W}{$60}d{CTRL-F}{$00}{$de}{CTRL-A}{$00}a{stop}{$00}{$de}{CTRL-A}{$00}d{wht}{$00}{$de}{CTRL-A}{$00}d{CTRL-G}{$00}{$de}{CTRL-A}{$00}a{stop}{$00}{$de}{CTRL-A}{$00}d{dish}{$00}{$de}{CTRL-A}{$00}a
{$00}{$de}{CTRL-A}{$00}d{rvon}{$00}{$de}{CTRL-A}{$00}d{CTRL-D}{$00}{$de}{CTRL-A}{$00}a{CTRL-B}{$00}{$de}{CTRL-A}{$00}d{CTRL-D}{$00}{$de}{CTRL-A}{$00}a{wht}{$00}{$de}{CTRL-A}{$00}a{CTRL-D}{$00}{$de}{CTRL-A}{$00}a{CTRL-D}{$00}{$de}{CTRL-A}{$00}d{stop}{$00}{$de}{CTRL-A}{$00}d{stop}{$00}{$de}{CTRL-A}{$00}a{CTRL-B}{$00}{$de}{CTRL-A}{$00}a{$0a}{$00}{$de}{CTRL-A}{$00}a{CTRL-D}{$00}{$de}{CTRL-A}{$00}~{$00}{$00}{CBM-I} {CBM-X}{$71}{CTRL-U}{left}{CTRL-O}{CTRL-D}J{CTRL-P}{$f7}l{CTRL-O}{CTRL-D} {$71}{red} p{CTRL-X}{$ea}{SHIFT-POUND}{CBM-L}{f1}h{SHIFT-POUND}{$80}{f1}i {$6f}{rvon}{$ea}lN{stop}l%{CTRL-D}{f1}o{SHIFT-POUND}{$00}{f1}s{f1}t{f1}_$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$u$$${$72}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$${f1}{CBM-W} {CBM-P}{CTRL-V}{$60}{SHIFT-POUND}{$00}{f1}{CBM-A}{f1}{CBM-E}{f1}{CBM-R} {CBM-T}{rvon}{SHIFT-POUND}~{f1}{$60}{SHIFT-POUND}~{f1}{$61}{SHIFT-POUND}{CTRL-Y}{f1}{$62}{SHIFT-POUND}{CTRL-A}{f1}{$63}{CBM-Z}{stop}{CTRL-B}I~P{home}F{$60}P{$f5}F{$61}P{$f1}F{$62}P{$ed}F{$63}P{$e9}{$e6}{CBM-R}{$60}IsP{CTRL-A}{$60}l5{CTRL-V}{SHIFT--}I:{CBM-A}Y{f1}{$60} {$e7}{CTRL-G}{CBM-G}{$60}{sret}{CBM-POUND}{f5}l{$f1}{CTRL-U}I{CBM-A}P{CTRL-G}{SHIFT-POUND}0{f1}{CBM-J}l({CTRL-V}I{CBM-E}P{CTRL-G}{SHIFT-POUND}1{f1}{CBM-J}l({CTRL-V}I{CBM-R}P{CTRL-G}{SHIFT-POUND}2{f1}{CBM-J}l({CTRL-V}I{CBM-W}P{CTRL-G}{SHIFT-POUND}3{f1}{CBM-J}l({CTRL-V}I{CBM-H}P{CTRL-G}{SHIFT-POUND}4{f1}{CBM-J}l({CTRL-V}I{CBM-J}P{CTRL-G}{SHIFT-POUND}5{f1}{CBM-J}l({CTRL-V}I{CBM-L}P{CTRL-G}{SHIFT-POUND}6{f1}{CBM-J}l({CTRL-V}I{CBM-Y}P{CTRL-G}{SHIFT-POUND}7{f1}{CBM-J}l({CTRL-V}I{CBM-U}P{CTRL-G}{SHIFT-POUND}8{f1}{CBM-J}l({CTRL-V}I{CBM-O}P{CTRL-G}{SHIFT-POUND}9{f1}{CBM-J}l({CTRL-V}l{$f1}{CTRL-U}{swuc}{CTRL-U}{$80}{CBM-G}{CBM-J} {CBM-Y}{CTRL-V}{$60} {$68}{rvon}{SHIFT-POUND}5{f1}{CBM-J}{$60}{sret}:{$80}{sret}{clr}{del}{$60} 5{CTRL-K}{SHIFT-POUND}f{f1}{$60}{SHIFT-POUND}{wht}{f1}{$61}{CBM-G}{CBM-J}8{$e9}0{f1}{$62}{$f0}{down}8{CBM-G}{$60}{$e9}{lred}{f1}{$60}{CBM-G}{$61}{$e9}{$00}{f1}{$61}F{$62}P{$ef}{CBM-G}{$60}{sret}{CBM-M}{CTRL-D}{CBM-G}{$61}{sret}{CBM-T}{CTRL-D}{$60}{CBM-G}{CBM-R}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{$f0}{f1}{$62}l{CBM-POUND}{CTRL-O}{f1}\{SHIFT-POUND}{CTRL-A}{f1}{CBM-L}{SHIFT-POUND}({f1}{CBM-Y}{$60}{$60}{CBM-L}{$f0}'{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{CBM-G}{CBM-Y}{sret}h{$e8}{CTRL-X}{SHIFT-POUND}{CTRL-A}{$65}{CBM-Y}{f1}{CBM-Y}I{$64}{$f0}{CTRL-B}P{CTRL-K}{SHIFT-POUND}{$00}{f1}{CBM-L}{CBM-G}{f4}P{stop}{sret}k{$e8}{$60}{$ea}{$ea}{$ea}{f1}{$84}{f1}{CBM-L}{$60} {wht}{CTRL-W} {CBM-H}{del}{$60} {wht}{CTRL-W}{CBM-G}[{f1}{$60}{$60}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{$a0}{del}{CBM-+}{CBM-U}{CBM-X}{$00}{swlc}{sret}h{$e8}{$e6}{CBM-U}{f7}P{$f3}{$f0}{wht}P{stop}{sret}k{$e8}{CBM-I} {$a0}p{$60} ({ensh}{CBM-G}{f4}P{stop}{sret}k{$e8}{$60}{CBM-Z}{stop}{CTRL-B}I{$de}{$f0}{stop}{f1}{CBM-O}{$60}E{CBM-O}P{$f9}{SHIFT-POUND}{$de}{$60}{CBM-I}{$00}{CBM-G}uP{CTRL-D}{CBM-G}v{$f0}{CTRL-D}{SHIFT-POUND} {orng}u{CBM-G}wP{CTRL-D}{CBM-G}x{$f0}{CTRL-D}{SHIFT-POUND} {orng}w{f3}y{f3}u{f3}v{f3}w{f3}xlb{CTRL-K}{$e6}]P{CTRL-B}{$e6}^{CBM-I}{$e9} {$de}
H{CBM-I}{CBM-S} {$de}
H {$de}
{CBM-I}{CBM-*}H {$de}
 {$f8}{down}{$60}{$a0}{$00}{CBM-I}  W
H {$de}
H {$de}
H {$de}
{SHIFT-POUND}{$00}{f1}]{f1}^{f1}{$6e}{f1}{$6f} {$ef}{down}{$60}{CBM-G}]I{$64}{$f0}Y{$a0}{stop}{CBM-I}  W
8{CBM-G}]{$e9}{CTRL-A}{f1}]{CBM-G}^{$e9}{$00}{f1}^{$a0}{$00}l{CBM-L}{CTRL-W}@{$00}P{$00}0{$00}{$a0}{$00}0{$00}{CTRL-P}{$00}p{$00}{blk}{$00}{$a0}{$00}{$f0}{$00}{CBM-A}{$00}{$f0}{$00}{wht}{$00}{$a0}{$00}{$60}{$00}{$f0}{$00}{$80}{$00}0{$00}{SHIFT-*}{$00}P{$00}{$a0}{$00}@{$00}0{$00}{$70}{$00}{CTRL-P}{$00}{$f0}{$00}{blk}{$00}P{$00}@{$00}{SHIFT-*}{$00}{$60}{$00}~~{$ea}{f1}{CBM-V}{f1}{$6e}{f1}{$6f}{f1}{CBM-B} {up}{CTRL-X}{$60}{CBM-G}]P{$0a}{CBM-G}^P{CTRL-F}{CBM-G}{CBM-B}i{CTRL-A}{f1}{CBM-B} {wht}{esc}{SHIFT-POUND}o{f1}{$6c}{$60}{home}{dish}{$e6}{CBM-V}{CBM-+}{CBM-V}{CBM-X}{CTRL-O}{CTRL-X}lr{swlc}{CBM-G}fI{CTRL-F}{CBM-A}{CTRL-A}{$60}lm{swlc}{$e6}_{SHIFT-POUND}{$00}{f1}pl{CBM--}{$0a}{f1}A {$e0}{CTRL-U}{$60}{f1}B {$ef}{CTRL-G}{$60} {CBM-+}{CTRL-X} 2{rvon}{$e6}B{$60}l{pur}{CTRL-Y}{f1}{$60}{CBM-I}{CTRL-A}{f3}{$61}{CBM-X}{CTRL-W}{CTRL-Y}{f1}{$62}{$e8}{CBM-X}{CTRL-W}{CTRL-Y}{f1}{$63}{$e8}{CBM-X}{CTRL-W}{CTRL-Y}{f1}{$64}{$e8}{f3}{$61} {$7f}{CTRL-Y}{CBM-+}{$61}{CBM-X}{CTRL-W}{CTRL-Y}{$a0}{$00}{up}{$62} {rvof}{CTRL-Y}P{$ed}F{$60}PW{SHIFT-POUND}{$00}{f1}{$79}{SHIFT-POUND}p{f1}{$80}{SHIFT-POUND}{lred}{f1}{orng}{SHIFT-POUND}{CTRL-P}{f1}{$62} p{CTRL-P}{SHIFT-POUND}{CBM-H}{f1}{$60}{SHIFT-POUND}{$80}{f1}{$61} {$e7}{CTRL-G}{CBM-I}
{SHIFT-POUND}a{$a0}{$00} {CBM-J}{rght}JP{$fa} {$7f}{CTRL-Y}{CTRL-X}{CBM-G}{$60}{$69}p{f1}{$60}{CBM-G}{$61}{$69}{$00}{f1}{$61}F{$62}P{$e0}{$60}{CTRL-D}{home}{orng}{dish}{CTRL-W}{CTRL-A}{rvon}{swlc}{ensh}{swlc}{CTRL-G}!{$e6}{$82}{dish}{home}{CTRL-U}{CTRL-P}{wht}{rvon}{ensh}{CTRL-O}{rvon}{f6}{$83}{esc}{stop} {CTRL-O} {home} 
 {ensh} {stop}   {rvon} {CTRL-A} {ensh} {CTRL-D} {wht} {rvon} {home}>{$84}{CTRL-L}{CTRL-A}{CTRL-P}{CTRL-P}{rvon}{CTRL-O}{CTRL-A}{stop}{dish}{ensh}{swlc}{CTRL-G}!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$${SHIFT-POUND}{$00}{f1}{$79}{SHIFT-POUND}{CTRL-A}{f1}{$80}{SHIFT-POUND}{wht}{f1}{orng} p{CTRL-P} {$e7}{CTRL-G}{$60}{$e6}{$62}P{CTRL-B}{$e6}{$63}{$e8}F{$64}{$60}{CBM-G}{CBM-J}I5{blk}{ensh}{$ea}{$ea}{$ea}{CBM-Z}{CTRL-W}{CTRL-Y}l{SHIFT-POUND}{CTRL-X}{$60}{f3}{$82}{CBM-G}{CBM-J}I5{$f0}{CTRL-K}{CBM-A}{ensh}{CBM-+}{$82}{SHIFT-POUND}{$00}{brn}{$00}l{CTRL-K}
{CBM-G}B{$f0}{$f3} {wht}{esc}{$f0}{$ee}{CBM-+}{$6d}{CBM-J}{$00}{f1}{$64}{f1}{$66}{CBM-J}{CTRL-A}{f1}{$65}{f1}{$67}8{CBM-G}{$66}{$e9}({f1}{$66}{CBM-G}{$67} 0{red}{$ea}8{CBM-G}{$66}{$e9}({f1}{$66}{CBM-G}{$67}{$e9}{$00}{f1}{$67}P{$f1}{CBM-G}{$66}I({$f0}{$eb}{CBM-A}{$e9}{CBM-G}mI{CTRL-A}{$f0}{CTRL-G}I){$f0}{stop}lb{red} ;{red}{$ea}{$f0}{CTRL-G}{CBM-A}{wht}{$ea}{$ea}lk{red}{CBM-G}{$6d}{$f0}{$f7}I{swlc}{$f0}{$f3}I{red}{$f0}{$ef}I*{$f0}{$eb}I8{$f0}{$e7}{CBM-N}JJ{CBM-J}{$00}P{$e0}{CBM-J}{CTRL-A}P{CBM--}8{CBM-G}{$64}{$e9}{CTRL-D}{brn}{$00}{$ea}{$ea}{CBM-G}{$65}{$e9}{$00}{brn}{CTRL-A}{$ea}{$ea}{CBM-G}{$6d}E{$77}P{CTRL-D}F{$77}F{$77} y{esc}{f3}{$6c}{CBM-G}{$64}{f1}{$68}{f1}{$66}{CBM-G}{$65}{f1}{$67}{f1}{$69} {$71}{rght}{$ea}{CBM-G}{$69}{f1}{$65} {rvon}{rght}{CBM-G}{$66}{f1}{$64}{CBM-G}{$67}{f1}{$65} {rvon}{rght} {$f9}{CTRL-Z}l{dish}{rght}{$e6}fl{f2}
{CBM-G}{$66}I {CBM-A}{CTRL-F}{CBM-G}{$6d}I{CTRL-L}P{wht}{$ea}{$ea}lk{red}I{CTRL-Z}{$f0}{$f7}I({$f0}{$f3}I6{$f0}{$ef}Id{$f0}{$eb}{CBM-N}{$e8}{$e8}{CBM-J}{$00}P{$e4}{CBM-J}{CTRL-A}P{$e0}{CTRL-X}{CBM-G}{$64}{$69}{CTRL-D}{brn}{$00}{CBM-G}{$65}{$69}{$00}{brn}{CTRL-A}{CBM-G}{$6d}E{$78}P{CTRL-D}{$e6}{$78}{$e6}{$78}ll{esc}{$ea}{CBM-I}{CTRL-D}{f3}{$6c} {CBM-POUND}{rght}{$ea}{f1}{$66}{CBM-G}{$65}{f1}{$67}{f1}{$69}{$e6}{$68}P{CTRL-B}{$e6}{$69}{CBM-G}{$68}{f1}{$64}{CBM-G}{$69}{f1}{$65} "{rght}{CBM-G}{$66}{f1}{$64}{CBM-G}{$67}{f1}{$65}l{$7e}{rght}{$ea}{$e6}fl{f2}
{CBM-I}{$78}{f1}{$70}F{$70}P{$fc}JP{$f7}{$60}{$e6}A{CBM-+}A{CBM-X}{CTRL-X}{esc}I~P{CTRL-D}{f1}A{$f0}{$f1}{CBM-X}{CTRL-X}{esc}{$60}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}~{CBM-G}{$6d}EgP{CTRL-D}{$e6}g{$e6}glG{CTRL-Z}{f4}EgP{$0a}{CBM-G}gE{$77}P{dish}{CBM-G}{$78}{f1}g{CBM-I}{CTRL-D}{$ea}{$60}FgFgl{$68}{esc}{SHIFT-POUND}{CTRL-B}{f1}{$65}8{CBM-G}n{$e9}q{f1}n{CBM-G}o{$e9}{$00}{f1}o {$e7}{CTRL-G}{SHIFT-POUND}{$7f} {$de}{esc}{SHIFT-POUND}{$00}{f1}{$67}{SHIFT-POUND}{dish}{f1}{$66}{SHIFT-POUND}{$00}{f1}{$68}{SHIFT-POUND}{$80}{f1}{$69} {$e7}{CTRL-G}{$a0}{$00} %{red}{CBM-G}{$67}P{CTRL-G}{CTRL-X}{f4}{$69}{$80}l{CBM-W}{esc}8{f4}{$e9}{$80}{up}{$68}HP{$e9}{$ea}{$ea}{$ea}{$e6}{$69}F{$66}P{SHIFT-+}{SHIFT-POUND}{$00}{f1}{$79}{f1}{$80}{SHIFT-POUND}{$00}{f1}{orng}{$ea}{$ea}{$ea}{CBM-G}{$67}i{CTRL-A}{f1}{$67}F{$65}P{CBM-U}{SHIFT-POUND}  {CTRL-X}{red}{$60}{$a0}{CTRL-A}{CBM-I}{stop}{up}nHJP{$fa}{$a0}p{CBM-I}{wht}{up}nHJP{$fa}{$a0}{$a0}{CBM-I}{wht}{up}nHJP{$fa}{$60}{$00}{sret}k{$e8}{$60} {$e7}{CTRL-G}{CBM-E}{$68}{CBM-N}{$60}{CBM-I}{wht}{$e6}CJP{$fb}{$60}{SHIFT-POUND}{$80}{f1}Cl{$73}{esc} {$de}{esc}{CBM-G}{f4}P{wht}{SHIFT-POUND}{$00}{sret}k{$e8}{$60} {CTRL-B}{red}{f3}D d{rvon}{CBM-+}D{$60}{$e9}{$80}{f1}{$67}{SHIFT-POUND}{$00}{f1}E{f1}F{$60}{$e6}E{CBM-G}{$66}I{CTRL-F}{$60}{SHIFT-POUND}{CTRL-A}{f1}F{$e6}El{$80}{CTRL-Z}{CBM-G}EI{CTRL-B}{$f0}{$0a}{CBM-G}FP{stop}lb{red}l{CTRL-G}{CTRL-Z}l{CBM-L}{CTRL-Y}l{swuc}{rght}{$ea}{CBM-I}{$00}l{$63}{$0a}IH{blk}{stop}l{CBM-POUND}{$0a}l{CBM-P}{$0a}{SHIFT-POUND}{$00}{f1}{gry1}{$a0}{$00}{CBM-I}{$00}{CBM-K}{$00}{CBM-K}{$00}{CBM-K}{$00}{CBM-K}{$00}JP{$f5}{f7}P{$f0}{CBM-G}{gry1}P{$0a}{SHIFT-POUND}{stop}{f1}G{SHIFT-POUND}{CTRL-B}{f1}HP{dish}{SHIFT-POUND}{gry1}{f1}G{SHIFT-POUND}{$00}{f1}H{CBM-G}G{sret}{$79}{CTRL-W}{sret}{CTRL-B}{CTRL-V}{CBM-G}H{sret}{$7a}{CTRL-W}{sret}{stop}{CTRL-V}X{SHIFT-POUND}{$00}{$60} {wht}{down}{SHIFT-POUND}~{f1}{$6b}{$60}{CBM-G}{$6b}{sret}h{$e8}8{$e9}{CTRL-A}{f1}{$6b} W
{$60}I{$6d}P{stop}l{$ed}{red}I{$6e}P{stop}l{$ed}{red}I{$70}P{stop}l{$ed}{red}I{$7d}P{stop}l{$ed}{red}I {$f0}{stop}l_{CTRL-L}l{CBM-W}{CTRL-L}{CBM-G}{$60}{f1}[{CBM-G}{$61}{f1}\{$60}8{CBM-G}{$60}{$e9}{CTRL-A}{f1}{$60}{CBM-G}{$61}{$e9}{$00}{f1}{$61}{CBM-I}{$00}{$a0}#{$60}F{$6c}P{stop}l{$7b}{CTRL-Z}l_{CTRL-Z} {$e7}{CTRL-G}{$a0}{$00}{CBM-E}{$64} 4{rght}H{SHIFT-POUND} {up}{$64}{$60} {$e7}{CTRL-G}{$a0}{$00}{CBM-E}{$64}{CBM-N}{SHIFT-POUND} {up}{$64}H{f4} 4{rght}{$60}I{$6d}P{CTRL-O}{SHIFT-POUND}{$70}{up}{$64}H{SHIFT-POUND}{CBM-S}{up}{$64}H{SHIFT-POUND}{$6e}{up}{$64}{$60}{SHIFT-POUND}{$6d}{up}{$64}H{SHIFT-POUND}{CBM-S}{up}{$64}H{SHIFT-POUND}{$7d}{up}{$64}{$60}{f1}{$64}{CBM-G}{$61}{f1}{$65}{brn}{CTRL-A} {$e7}{CTRL-G}{$a0}{$00}{$68} 4{rght}l{CBM-D}{down}{SHIFT-POUND}{$70} 4{rght}{$60}{$ea}{CBM-G}{$68}P{CTRL-B}F{$69}F{$68}{CBM-G}{$68}{f1}{$64}{$60} "{rght} {$f9}{CTRL-Z}F{$6c}P{stop}l{$f4}{CTRL-Z}lW{CTRL-Z}I{$6d}{$f0}{home}I{$6e}{$f0}{CTRL-O}I{$70}{$f0}{CTRL-K}I{$7d}{$f0}{CTRL-G}I{CBM-S}{$f0}{stop}l{$67}{red}l{$62}{red}{CBM-G}{$64}P{CTRL-B}F{$65}F{$64}{CBM-G}{$64}{f1}{$68}{$60}{SHIFT-POUND}{$6d}{up}{$60}H{SHIFT-POUND}{CBM-S}{up}{$60}H{SHIFT-POUND}{$7d}{up}{$60}H{$60}{$00}{$60}{CTRL-X}{$69}0{up}{$00}H{$60}$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$   10 sys4544
   10 poke59468,12:printchr$(142):sys1021
    1 poke59468,14
    2 printchr$(147)
    3 print"{down}"
    6 print"             Count to 100
    7 print"             {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
    8 print"{down}{down}"
   10 print"This is a game for two players.
   15 print"I am one,you are the other.
   20 print"The aim is to count from 1 to 100
   30 print"in steps of any number between 1 and 10,inclusive.
   40 print"The first player starts with any number
   50 print"between 1 and 10.
   51 print"We then take alternate turns.
   55 print"The player who counts 100 is the winner!";
   58 x=.5
   60 print"{down}{down}   Press a key to start:"
   70 foryy=1to20:geta$:next
   80 geta$:ifa$=""then80
   90 c=0:print"{clr} Do you want to start?"
   91 foryy=1to20:geta$:next
   92 geta$:ifa$=""then92
   93 ifa$="y"then500
  120 x=rnd(x)
  130 ifx>0.333333then160
  140 m=1
  150 goto180
  160 x=rnd(x)
  170 m=int(10*x+1)
  180 c=c+m
  190 print"I choose";m,"count equals";c
  200 ifc=100then600
  210 print"You choose a number."
  220 inputy
  230 ify<1then260
  240 ify>10then260
  250 goto280
  260 print"You great twit! the number must be      between 1 and10."
  270 goto220
  280 c=c+y
  290 print "          "  ,"count equals";c
  295 ifc=100then700
  300 forn=1to 100 step11
  310 if c>nthen330
  320 m=n-c :goto340
  330 nextn
  340 ifm>0then180
  350 m=int(rnd(x)*10+1)
  360 goto180
  500 goto210
  600 print"Hard luck. I win: but it is only to be  expected!"
  610 goto710
  700 print"You win. Sheer fluke!"
  710 print"{down}{down}{down}{down}  Press{CBM-C}{rvon}RETURN{rvof}{CBM-V}to go again"
  715 foryy=1to20:geta$:next
  720 geta$:ifa$=""then720
  730 ifa$=chr$(13)then90
  740 ifj=1then60
  750 print"{clr}good-bye."
  760 poke59468,12
  770 end
    0 clr:poke59468,12:pk=12
    1 rem course copyright (c) 1979 glen fisher:idea by julia hallford
    2 rem cursor #10, may,1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of june 1, 1979
   90 pg$="course":nm$="10":gosub 62000
  100 bl$="                                      "
  110 rw=22:col=len(bl$)-1:crt=32768
  120 bg=crt+41:en=crt+rw*40+col:nd=0
  130 readt:ift<>0thennd=nd+1:goto130
  140 restore:dim ch(9),ch$(9),dr(nd)
  150 fori=1tond:readdr(i):nexti:readx
  160 fori=1to9:readch(i),ch$(i):next i
  171 data1,1,1,1,1,1,1,1,1,1,1
  172 data2,2,2,2,2,2,2,2,2,2
  173 data3,3,3,3,3,3,3,3,3,3,3
  174 data6,6,6,6,6,6,6,6,6,6
  175 data9,9,9,9,9,9,9,9,9,9,9
  176 data8
  177 data7
  178 data4
  179 data0
  180 data39,"{down}{left}",40,"{down}",41,"{down}{rght}",-1,"{left}",0,"",1,"{rght}",-41,"{up}{left}",-40,"{up}",-39,"{up}{rght}"
  200 df=.6
  210 tw=.33
  300 bt=1e38
  500 print"{clr}{down}{down}how hard should the course be?
  510 print"{down}1:easy, 2:middlin', 3:hard   ? ";:gosub60000
  520 ifin$<>"1"andin$<>"2"andin$<>"3"then500
  530 ifin$="1"thendf=.2
  540 ifin$="2"thendf=.4
  550 ifin$="3"thendf=.6
 1000 print"{clr}{rvon} ";bl$
 1010 fori=1torw:print"{rvon} ";tab(col);"{rght} ":nexti
 1020 print"{rvon} ";bl$;"{left}Q{up}":print"{rght}{rght}{rght}{rvon}constructing  course{home}Q"
 1100 p=bg:sy=96:t=5
 1200 pokep,sy:ifrnd(1)>twthen1230
 1220 t=int(rnd(1)*nd)+1:t=dr(t)
 1230 n=p+ch(t):ifpeek(n)<>32andpeek(n)<>sythen1220
 1240 p=n:ifp<>enthen1200
 1250 pokep,sy
 1300 print"{home}{down}";
 1310 fori=1torw:p=bg+40*i-40:print"{rght}";
 1320 forj=1tocol
 1330 ifpeek(p)<>syandrnd(1)<dfthenprintmid$("{SHIFT-+}{SHIFT--}{SHIFT-*}{SHIFT--}{SHIFT-*}{SHIFT--}{SHIFT-*}",1+rnd(1)*7,1);:goto1350
 1340 print" ";
 1350 p=p+1:nextj:print:nexti
 1360 print"{rvon}";bl$;"{left}{left}{left}{left}{left}{left}{left}finish^"
 1500 rs=0
 1900 print"{home}{down}{rght}";:tm=0:sw=1
 1910 p=bg
 1920 s$="Q":print"{home}{down}{rght}";s$;"{left}";:sy=peek(bg)
 1990 et=ti
 2000 get t$:if t$<>"" then 2100
 2010 ifti<tmthen2000
 2020 ifsw=1thenprint"{rvon}";s$;"{left}{rvof}";:tm=ti+5:sw=2:goto2000
 2030 prints$;"{left}";:tm=ti+15:sw=1:goto2000
 2100 ift$=chr$(13)thenrs=1:rc=rc+1:goto2200
 2105 ift$<"1"ort$>"9"ort$="5"then2000
 2110 t=val(t$):n=p+ch(t)
 2120 ifpeek(n)<>32andpeek(n)<>sythen2000
 2130 p=n:c=peek(p)
 2140 ifc=32thenprints$;"{left}";
 2150 ifc<>32thenprint" {left}";
 2160 printch$(t);s$;"{left}";
 2170 ifp<>enthen2000
 2200 et=int((ti-et)/60+.5)
 2210 tm=et:gosub3000
 2220 print"{home}":fori=1torw:print:nexti
 2250 print"{rght}{rght}{rvon}elapsed time: ";tm$
 2270 ifrs=0thengm=gm+1:gt=gt+et:ifet<btthenbt=et
 2300 print"  try again? ";:gosub60000
 2310 ifleft$(in$,1)<>"n"then1000
 2320 print"{clr}{down}{down}thanks for playing.
 2325 ifgm=0then2354
 2330 tm=bt:gosub3000:print"{down}your best time was ";tm$;"."
 2340 tm=int(gt/gm+.5):gosub3000
 2350 print"{down}your average time was ";tm$;"."
 2352 ifgm>0then2360
 2354 print"{down}sorry, you never made it to the
 2356 print"finish line";:goto2364
 2360 print"{down}you succeeded";gm;"time";
 2362 ifgm>1thenprint"s";
 2364 ifrc>=1then2370
 2366 print".":goto2380
 2370 print",":print"and you resigned";rc;"time";:ifrc>1thenprint"s";
 2375 print"."
 2380 print"{down}{down}":end
 3000 m=int(tm/60):s=tm-60*m
 3010 tm$=str$(m)+":"+right$(str$(s+100),2):return
 9999 pokecrt,32
 10000 gett$:ift$=""then10000
 10001 goto1000
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 62000 print"{clr}{down}";tab(8);"cursor #";nm$;tab(22);pg$
 62010 print"{down}copyright (c) 1979";tab(22);"by glen fisher
 62012 fori=1to10:print"DDDD";:next
 62015 print"{down}{down}find your way through an obstacle course
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 if left$(in$,1)="y" then 62100
 62040 print"{clr}":poke59468,pk:clr:goto100
 62100 lp=1:gosub60200
 62110 print"in this game you are timed as you try
 62120 print"{down}to go from the upper left corner to
 62130 print"{down}the lower right corner. you move by
 62210 print"{down}using the numeric keypad.   7  8  9
 62211 print"                             M {SHIFT--} N
 62212 print"you can back up if you run
 62213 print"                            4C * C6
 62214 print"into a dead end.
 62215 print"                             N {SHIFT--} M
 62216 print"the penalty is lost time!   1  2  3
 62280 print"{down}if you want to 'resign' and start with
 62290 print"{down}a fresh course, just hit 'return'.
 62600 gosub60200
    0 clr:poke59468,12
    1 rem cover copyright(c) 1978 cursor magazine
    2 rem cursor #4 october, 1978
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of 4 mar 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #4"
  139 print
  140 print"o 1"
  141 print"c 9"
  142 print"t 7"
  143 print"  8"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  160 poke59468,12
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  200 ifti<tmthen220
  210 fori=0to5:pokect+i,(peek(ct+i)+128)and255:nexti:tm=ti+50
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub 350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub 800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"october, 1978",2,1,36,3,"#4",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover!",5,3,"a musical{$a0}front cover"
  913 data4
  915 data4,3,"bop",5,3,"chisanbop game"
  920 data4,3,"calc",5,3,"fancy calculator"
  925 data4,3,"clock!",5,3,"alarm clock w/ chimes"
  935 data4,3,"inp",5,3,"powerful input routine"
  940 data4,3,"ced",5,3,"cursor text editor"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to{$a0}load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load name-of program'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1978"
  999 data-1
 1000 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}cursor's first audible cover!"
 1001 printtab(23);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}"
 1005 in=12
 1010 wh=3:bl=5
 1015 q0=142:ifpeek(49152)thenq0=60
 1020 gosub5000:print"{down}{down}";:gosub5000
 1030 poke59467,16:poke59466,15:poke59464,0
 1040 print"{home}";
 1050 x1=12:x2=2080:x3=59464
 1100 dim pc(24),cl(24)
 1110 fori=1to24:readpc(i),cl(i):nexti
 1120 data237,0,224,1,211,0,199,1,188,0
 1130 data177,0,167,1,157,0,149,1,140,0
 1140 data132,1,124,0,117,0,111,1,104,0
 1150 data99,1,93,0,88,0,83,1,78,0
 1160 data73,1,69,0,65,1,61,0
 1170 dimhp%(24)
 1180 fori=1to12:readhp%(i):hp%(i+12)=hp%(i):nexti
 1190 data1,2,4,5,7,10,11,13,14,16,17,19
 1195 goto2010
 2000 ifnt>0thenprint"{left}{left}  "
 2010 gett$:ift$=" "thenpoke59467,0:poke 59464,0:poke 59466,0:return
 2020 ol$=nt$:read nt$,dr
 2024 ifnt$=""then2100
 2025 nt=asc(nt$)-64
 2026 ifol$=nt$thenpoke59466,0:poke59466,15
 2030 poke59464,pc(nt)
 2035 tm=ti+3*dr:ifnt=0then2080
 2040 print"{home}{down}{down}{down}{down}{down}{down}";tab(in+hp%(nt));
 2050 ifnt>12thenprint"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2060 ifcl(nt)thenprint"{rvon}{CBM-K}{rvof}{CBM-K}";:goto2080
 2070 print"{down}{down}{down} {rvon}";
 2080 ifti<tmthen2080
 2090 goto 2000
 2100 ifdr=0thengosub700:fori=1to60:readx:nexti:goto2010
 2110 ifdr>0thenrp=rp+1:ifrp<drthenfori=q0toq0+5:pokei,sv(i-q0):nexti:goto2010
 2120 rp=0:fori=q0toq0+5:sv(i-q0)=peek(i):nexti:goto2010
 2200 data"",-1,m,4,d,4,i,4,k,4,m,4,d,4,i,4,k,4,m,8,n,6,m,2,m,4,k,4,k,8
 2205 datak,4,d,4,h,4,i,4, k,4,d,4,h,4,i,4,k,8,m,6,k,2,k,4,i,4,i,8,"",2
 2210 data"",-1,p,2,i,2,i,2,i,8,i,2,h,4,f,4,f,8,n,2,h,2,h,2,h,8,h,2
 2215 dataf,4,d,4,d,8,p,2,i,2,i,2,i,8,i,2,h,4,f,4,f,6,f,2
 2220 dataf,4,n,4,f,4,h,4,i,8,i,8,"",2
 2230 data@,40
 2500 data"",-1,o,1,t,1,s,1,t,1,o,1,t,1,s,1,t,1,o,1,t,1,s,1,t,1,o,1
 2505 dataq,1,o,1,m,1,l,1, m,1,q,1,j,1,q,1,m,1,q,1,j,1,q,1
 2510 datam,1,q,1,j,1,q,1,t,1,s,1,q,1,o,1, t,1,s,1,t,1,o,1
 2515 datat,1,s,1,t,1,o,1,t,1,s,1,t,1,o,1,q,1,o,1,m,1,l,1
 2520 datam,1,q,1,o,1,m,1,l,1,j,1,h,1,e,1, c,1,h,1,h,1,g,1,h,3,j,1
 2525 datal,1,o,1,h,1,o,1,l,1,o,1,h,1,o,1, l,1,o,1,h,1,o,1
 2530 dataq,1,o,1,m,1,l,1,m,1,q,1,j,1,q,1,m,1,q,1,j,1,q,1
 2535 datam,1,q,1,j,1,q,1,t,1,s,1,q,1,o,1, l,1,o,1,h,1,o,1
 2540 datal,1,o,1,h,1,o,1,l,1,o,1,h,1,o,1,t,1,s,1,q,1,o,1
 2545 datam,1,q,1,o,1,m,1,l,1,j,1,h,1,e,1, c,1,h,1,h,1,g,1,h,3
 2546 data"",2
 2550 data@,40
 2590 data"",-1
 2600 dataf,1,h,2,i,3,k,1,i,2,h,3,i,1,h,2,f,4,m,2,h,4,m,2,h,4,m,2,h,4,m,2
 2605 datai,2,h,2,f,2,a,2,f,2,h,2,i,3,k,1,i,2,h,3,i,1,h,1,f,4,m,2,h,4,m,2
 2610 datah,4,m,4,h,2,i,2,h,2,f,10,n,1,m,1,k,2,h,2,i,2,k,2,m,2,k,2,i,2,f,2
 2615 datah,2,i,2,k,2,i,2,h,2,e,2,f,2,h,2,i,2,k,2,m,2,i,2,f,2,m,4,n,1
 2620 datam,1,k,2,h,2,i,2,k,2,m,2,k,2,i,2,f,2,h,2,i,2,k,2,i,2,h,2,n,2,m,2
 2625 datak,2,i,2,h,2,f,12,s,0,r,12,s,0,r,10,m,2,m,2,n,2,m,2,k,2,i,2,h,2,h,2
 2630 datam,2,i,2,f,6,s,0,r,12,s,0,r,10,m,2,m,2,n,2,m,2,k,2,i,2,h,2,f,10
 2635 datam,2,n,2,p,2,m,2,i,2,p,2,m,2,i,2,p,2,m,2,i,2,p,2,r,2,p,2,n,2,m,2,k,2
 2640 datan,2,m,2,k,2,p,2,m,2,i,2,i,4,m,1,n,1,p,2,m,2,i,2,p,2,m,2,i,2,p,2
 2645 datam,2,i,2,p,2,o,2,p,2,t,2,r,2,p,2,n,2,m,2,k,2,i,6
 2650 data"",2
 3999 data@,0,"",0
 5000 printtab(in);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}"
 5010 fori=1tobl
 5020 printtab(in);"{rvon}  {rght}{rght} {rght}{rght} {CBM-M}  {rght}{rght} {rght}{rght} {rght}{rght} {CBM-M}"
 5030 nexti
 5040 fori=1towh
 5050 printtab(in);"{rvon}  {CBM-M}  {CBM-M}  {CBM-M}  {CBM-M}  {CBM-M}  {CBM-M}  {CBM-M}"
 5060 nexti
 5070 return
    0 clr:poke59468,12
    1 rem cover copyright(c) 1978 cursor magazine
    2 rem cursor #6 january, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of 9 apr 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #6"
  139 print
  140 print"j 1"
  141 print"a 9"
  142 print"n 7"
  143 print"  9"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  200 ifti<tmthen220
  210 fori=0to5:pokect+i,(peek(ct+i)+128)and255:nexti:tm=ti+90
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"january, 1979",2,1,36,3,"#6",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"graphic design - jim hinds"
  913 data4
  915 data4,3,"box",5,3,"probe for the atoms"
  917 data4,3,"bjack",5,3,"las vegas blackjack"
  920 data4,3,"pack",5,3,"squeeze out all blanks"
  925 data4,3,"list",5,3,"lists programs readably"
  940 data4,3,"cedpr",5,3,"prints ced text files"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program  1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1
 1000 dimz7(15):fori=0to15:readz7(i):nexti
 1010 readm:dimcd(m):fori=1tom:readcd(i):nexti
 1020 cc=crt+500:rv=0:tz=2:lz=1:x=0:y=0:dx=-1:dy=0
 1030 forn=1tom
 1040 getc$:ifc$=""then1050
 1045 rv=0:return
 1050 forj=1tocd(n)
 1060 k=lz+tz:gosub1200
 1070 gosub1300
 1080 nextj
 1090 lz=2*lz:iflz=16thenlz=1
 1100 t=-dy:dy=dx:dx=t
 1110 nextn
 1120 rv=128-rv:goto1030
 1200 s=cc+x+40*y:c=peek(s)and127
 1210 fori=0to15
 1220 ifc=z7(i)thenpokes,z7(iork)+rv:return
 1230 nexti:return
 1300 x=x+dx:y=y+dy
 1310 ifabs(x)>17thenx=dx-x
 1320 ifabs(y)>12theny=dy-y
 1330 tz=lz*4:iftz>8thentz=int(tz/16)
 1340 return
 1500 data32,32,32,125,32,64,109,113
 1510 data32,110,93,115,112,114,107,91
 1520 data8,3,5,7,11,2,4,6,1
    0 clr:poke59468,12
    1 rem cover05 copyright(c) 1978 cursor magazine
    2 rem cursor #5, nov/dec 1978
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of 04 apr 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #5"
  139 print
  140 print"n d"
  141 print"o e"
  142 print"v c"
  143 print"   "
  144 print"78"
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  200 ifti<tmthen220
  210 fori=0to5:pokect+i,(peek(ct+i)+128)and255:nexti:tm=ti+50
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 if ch=148 then ch=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub 350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub 800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"nov/dec  1978",2,1,36,3,"#5",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"a map of the pet keyboard"
  913 data4
  915 data4,3,"hanoi",5,3,"animated towers of hanoi"
  920 data4,3,"shoot",5,3,"fire at a falling target"
  925 data4,3,"bship",5,3,"battleship game (super!)"
  935 data4,3,"face",5,3,"draw faces..."
  940 data4,3,"hman",5,3,"vocabulary and spelling"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1978"
  999 data-1
 1000 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}now loading{left}{left}{left}{left}{left}{left}{down}{down}";
 1050 pt=634:gosub2000:ifpt=0thenreturn
 1060 pt=826:gosub2000:ifpt=0thenreturn
 1065 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}press {rvon}any{rvof} key!"
 1070 sys(826)
 1080 return
 2000 readt$:ift$=""thenreturn
 2010 h$=left$(t$,1):h=asc(h$)-48:ifh>9thenh=h-7
 2020 l$=mid$(t$,2):l=asc(l$)-48:ifl>9thenl=l-7
 2025 printmid$("{rvon}{rvof}",ii+1,1);"V{left}";:ii=(ii+1)and1
 2030 t=16*h+l:poke pt,t:pt=pt+1
 2035 gett$:ift$=" "thenpt=0:return
 2040 goto2000
 3000 data1a,18,16,14,12,10,0e,0c
 3010 data1b,19,17,15,13,11,0f,0d
 3020 data42,40,3e,3c,3a,38,36,34
 3030 data43,41,3f,3d,3b,39,37,35
 3040 data6a,68,66,64,62,60,5e,5c
 3050 data6b,69,67,65,63,61,5f,5d
 3060 data92,90,8e,8c,8a,88,86,84
 3070 data93,91,8f,8d,8b,89,87,85
 3080 databa,b8,b6,b4,b2,b0,ae,ac
 3090 databb,b9,b7,b5,b3,b1,af,ad
 3100 data""
 3200 data78,a2,0a,ad,10,e8,29,f0
 3210 data8d,10,e8,ad,12,e8,cd,12,e8
 3220 datad0,f8,9d,cf,02,ca,f0,05
 3230 dataee,10,e8,d0,ed
 3235 dataad,40,e8,29,20,d0,f9
 3240 dataa2,50,a9,02,85,02
 3250 dataa9,c8,85,01,a0,08,b1,01
 3260 data4a,48,98,48,bc,79,02
 3270 data90,04,a9,57,b0,02,a9,51
 3280 data99,18,81,68,a8,68,ca
 3290 dataf0,07,88,d0,e5,e6,01
 3300 datad0,dd,ad,12,e8,29,04
 3310 datad0,a8,58,60
 3320 data""
    0 clr:poke59468,12
    1 rem cover copyright (c) 1979 cursor magazine
    2 rem cursor #7 february, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 remas of 6 mar 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #7"
  139 print
  140 print"f 1"
  141 print"e 9"
  142 print"b 7"
  143 print"  9"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1020
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  200 ifti<tmthen220
  210 fori=0to5:pokect+i,(peek(ct+i)+128)and255:nexti:tm=ti+90
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub 800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"february, 1979",2,1,36,3,"#7",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"submitted by ken matthews"
  913 data4
  915 data4,3,"pricer",5,3,"estimate job costs"
  920 data4,3,"sound!",5,3,"cursor sound effects"
  925 data4,3,"mind",5,3,"mastermind puzzle"
  935 data4,3,"fball",5,3,"football game"
  940 data4,3,"paper",5,3,"design wallpaper"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1
 1020 rem cover design by k. matthews
 1040 rem box 1348 aldergrove b.c.
 1060 rem canada  vox 1a0
 1080 rem
 1120 width=34:x=(wd-4-wi)/2+3
 1140 height=22:y=(ht-he)/2
 1180 c$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
 1200 dimch$(22)
 1220 forj=0to22:readch$(j):nextj
 1260 t$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":t$=t$+t$+t$+t$
 1280 print"{home}{rght}{rght}{rght}";t$
 1300 fori=1tohe:print"{rght}{rght}{rght}{CBM-+}";tab(38);"{CBM-+}"
 1320 nexti:print"{rght}{rght}{rght}";t$
 1340 c1=1:c2=2:c3=3:c5=5:c7=7
 1400 rx=int(rnd(1)*wi/2)
 1420 ry=int(rnd(2)*he/2+1)
 1440 ch$=ch$(int(rnd(1)*23))
 1500 printleft$(c$,y+ry);tab(x+rx);mid$(ch$,c1,c2);
 1550 printtab(x+wi-rx-1);mid$(ch$,c3,c2)
 1610 printleft$(c$,y+he-ry+1);tab(x+rx);mid$(ch$,c5,c2);
 1650 printtab(x+wi-rx-1);mid$(ch$,c7,c2)
 1660 forl=1to10*s
 1670 gets$:ifs$=" "thenreturn
 1680 ifs$=""thennextl
 1690 l=val(s$):ifl>0ors$="0"thens=9-l
 1700 goto1400
 2200 data"{rvof}{CBM-K}{rvon}{CBM-K}{rvof}{CBM-K}{rvon}{CBM-K}","{rvon}{CBM-K}{rvof}{CBM-K}{rvon}{CBM-K}{rvof}{CBM-K}"
 2210 data"{rvof}{CBM-I}{rvof}{CBM-I}{rvon}{CBM-I}{rvon}{CBM-I}","{rvon}{CBM-I}{rvon}{CBM-I}{rvof}{CBM-I}{rvof}{CBM-I}"
 2220 data"{rvof}{SHIFT-POUND}{rvof}{CBM-*}{rvon}{CBM-*}{rvon}{SHIFT-POUND}","{rvon}{SHIFT-POUND}{rvon}{CBM-*}{rvof}{CBM-*}{rvof}{SHIFT-POUND}"
 2230 data"{rvof}{CBM-*}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvon}{CBM-*}","{rvon}{CBM-*}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvof}{CBM-*}"
 2240 data"{rvof}{CBM-D}{rvof}{CBM-F}{rvof}{CBM-C}{rvof}{CBM-V}","{rvon}{CBM-D}{rvon}{CBM-F}{rvon}{CBM-C}{rvon}{CBM-V}"
 2250 data"{rvof}{CBM-C}{rvof}{CBM-V}{rvof}{CBM-D}{rvof}{CBM-F}","{rvon}{CBM-C}{rvon}{CBM-V}{rvon}{CBM-D}{rvon}{CBM-F}"
 2260 data"{rvof}{CBM-F}{rvof}{CBM-D}{rvof}{CBM-V}{rvof}{CBM-C}","{rvon}{CBM-F}{rvon}{CBM-D}{rvon}{CBM-V}{rvon}{CBM-C}"
 2270 data"{rvof}{CBM-V}{rvof}{CBM-C}{rvof}{CBM-F}{rvof}{CBM-D}","{rvon}{CBM-V}{rvon}{CBM-C}{rvon}{CBM-F}{rvon}{CBM-D}"
 2280 data"{rvof}{CBM-B}{rvon}{CBM-B}{rvon}{CBM-B}{rvof}{CBM-B}","{rvon}{CBM-B}{rvof}{CBM-B}{rvof}{CBM-B}{rvon}{CBM-B}"
 2290 data"{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}","{rvon} {rvon} {rvon} {rvon} "
 2300 data"{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}","{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}"
 2310 data"{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}{rvof}{$a0}"
    1 rem cover copyright(c) 1979 cursor magazine
    2 rem cursor #8 march, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of mar 05 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #8"
  139 print
  140 print"m 1"
  141 print"a 9"
  142 print"r 7"
  143 print"  9"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  200 ifti<tmthen220
  210 fori=0to5:pokect+i,(peek(ct+i)+128)and255:nexti:tm=ti+50
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub 350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 readtx$:iftx$<>"--"then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,13,3,"march, 1979",2,1,36,3,"#8",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"the loom"
  913 data4
  915 data4,3,"revers!",5,3,"the game of reversi"
  920 data4,3,"dbook",5,3,"computer date book"
  925 data4,3,"space!",5,3,"fly your pet..."
  935 data4,3,"maze",5,3,"find the hidden gold"
  940 data4,3,"add",5,3,"addition drill (with carry)"
  942 data4,3,"x",5,3,"framework for submissions"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,5,3,"          2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1,--
 1000 dim wv(10,10)
 1010 ql=245:ifpeek(49152)thenql=216
 1020 in=10
 1030 sz=24
 1040 bl$=left$("                                       ",sz)
 1050 readrs,cs
 1100 fori=1tors:forj=1tocs:readwv(i,j):nextj,i
 1110 r=0:c=0
 1200 fori=1tosz
 1210 r=r+1:ifr>rsthenr=1
 1220 c=c+1:ifc>csthenc=1
 1300 print"{home}":pokeql,i:print"{up}";tab(in);
 1310 r0=r:c0=1
 1320 forj=1tosz
 1330 ifwv(r0,c0)orj>=ithenprint"{SHIFT-*}";:goto1350
 1340 print"{rght}";
 1350 c0=c0+1:ifc0>csthenc0=1
 1360 gett$:ift$<>""then1700
 1370 nextj
 1400 print"{home}":print"{up}";tab(i-1+in);
 1410 r0=1:c0=c
 1420 forj=1tosz
 1430 ifwv(r0,c0)andj<=ithenprint"{rght}";:goto1450
 1440 ::print"{SHIFT--}";
 1450 r0=r0+1:ifr0>rsthenr0=1
 1460 print"{left}{down}";
 1470 gett$:ift$<>""then1700
 1480 nextj
 1500 nexti
 1600 tm=ti+300
 1605 readrs,cs:ifrs=0thengosub700:readrs,cs
 1610 gett$:ift$<>""then1700
 1620 ifti<tmthen1610
 1630 print"{home}":print"{up}";
 1640 fori=1tosz:printtab(in);bl$:nexti
 1650 goto1100
 1700 return
 7905 data6,2
 7910 data0,1, 0,0, 1,0, 1,1, 0,1, 0,0
 8000 data3,3
 8010 data1,1,0, 1,0,1, 0,1,1
 9000 data2,2
 9010 data1,0,0,1
 9020 data4,4
 9030 data1,1,0,0, 0,1,1,0, 0,0,1,1, 1,0,0,1
 10000 data0,0
    0 clr:poke59468,12
    1 rem cover copyright(c) 1979 cursor magazine
    2 rem cursor #9 april, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of 18 feb 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print" #9"
  139 print
  140 print"a 1"
  141 print"p 9"
  142 print"r 7"
  143 print"  9"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"april, 1979",2,1,36,3,"#9",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"idea by ken matthews"
  913 data4
  915 data4,3,"yahtzee",5,3,"yahtzee game"
  920 data4,3,"slot!",5,3,"the cursor casino (w/sound)"
  925 data4,3,"flip",5,3,"flip old roms to new roms"
  935 data4,3,"circle",5,3,"great circle distances"
  940 data4,3,"gammon",5,3,"16k backgammon game"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1
 1000 rem
 1100 fors=1to2:print"{home}{rght}{rght}{rght}";mid$("{rvof}{rvon}",s,1);
 1110 forh=23to1step-2:w=h+13
 1120 fori=1tow:print"{SHIFT-*}";:nexti
 1130 print"I{left}{down}";
 1140 ifh>1thenfori=2toh:print"{SHIFT--}{left}{down}";:nexti
 1150 print"K{left}{left}";
 1160 fori=2tow:print"{SHIFT-*}{left}{left}";:nexti
 1170 ifh>2thenprint"J{left}{up}";
 1180 ifh>2thenfori=3toh:print"{SHIFT--}{left}{up}";:nexti
 1190 ifh>2thenprint"U";
 1195 gett$:ift$<>""thenreturn
 1200 nexth
 1205 print"{SHIFT-*}"
 1210 nexts
 1220 fori=1to350:nexti
 1230 gett$:ift$<>""thenreturn
 1300 fors=1to2:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";mid$("{rvof}{rvon}",s,1);"{SHIFT-*}";
 1310 forh=1to23step2:w=h+13
 1320 ifh>2thenprint"U{left}{down}";
 1330 ifh>2thenfori=3toh:print"{SHIFT--}{left}{down}";:nexti
 1340 ifh>2thenprint"J";
 1350 fori=2tow:print"{SHIFT-*}";:nexti
 1360 print"K{left}{up}";
 1370 ifh>1thenfori=2toh:print"{SHIFT--}{left}{up}";:nexti
 1380 print"I{left}{left}";
 1390 fori=1tow:print"{SHIFT-*}{left}{left}";:nexti
 1395 gett$:ift$<>""thenreturn
 1400 nexth
 1405 print
 1410 nexts
 1420 fori=1to350:nexti
 1430 gett$:ift$<>""thenreturn
 1440 goto1100
    0 clr:poke59468,12
    1 rem cover copyright(c) 1978 cursor magazine
    2 rem cursor #10 may, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of may 31, 1979
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print"#10"
  139 print
  140 print"m 1"
  141 print"a 9"
  142 print"y 7"
  143 print"  9"
  144 print
  150 print"  press {rvon}space{rvof} to{$a0}see{$a0}table{$a0}of{$a0}contents";
  155 gosub1000:print"{clr}"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 xx=2
  200 ifti<tmthen220
  210 printmid$("{rvon}{rvof}",xx,1);"{home}{down}{rght}cursor":tm=ti+30:xx=3-xx
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=3:cd=0:goto200
  310 c=12:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub 350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub 800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"may, 1979",2,1,36,3,"#10",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover!",5,3,"music you can see"
  913 data4
  915 data4,3,"titrate",5,3,"practice titration"
  920 data4,3,"finance",5,3,"calculate your riches"
  925 data4,3,"course",5,3,"an obstacle course"
  935 data4,3,"asm",5,3,"a simple 6502 assembler"
  940 data4,3,"reader",5,3,"produce data statements"
  941 data4,5,3,"from 6502 machine code."
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type  'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all{$a0}programs{$a0}(c) 1979"
  999 data-1
 1000 dim nt(36),sg$(20)
 1005 nt=0:cl=0:n=0:rr=0
 1010 t=12:print"{home}{down}{down}{down}{down}{down}
 1020 printtab(t);"{down}cursor's
 1030 printtab(t+2);"{down}second
 1040 printtab(t+2); "{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1050 printtab(t+4); "musical
 1060 printtab(t+6);"{down}cover"
 1100 readt$:ift$<>"--"then1100
 1110 forj=1to36:readnt(j):nextj
 1120 f$="{rght}{rght}{rght}":d$="{down}":h$="{home}{down}{down}"+d$+f$
 1800 gosub700:goto2000
 1900 poke59467,16:poke59466,15:poke59464,0:return
 1910 poke59464,0:poke59466,0:poke59467,0:return
 1950 gosub1910:return
 2000 read rp,iv,ll,sg,tl$
 2010 iftl$=""then2100
 2020 gosub1910
 2025 ifrp=0thengosub700:goto2000
 2030 ifcl=0then2050
 2035 forj=1to500:gett$:ift$<>""then1950
 2040 nextj
 2050 print"{home}";
 2060 forj=1to24:print"{rght}{rght}{rght}                                    ":nextj
 2070 print"{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";tl$:print"{home}"
 2080 gosub1900
 2090 cl=ll:rr=10:nl=1
 2100 forj=1tosg:readsg$(j):nextj
 2140 i=0
 2150 i=i+1:ifi>sgtheni=1:rp=rp-1:ifrp=0then2000
 2200 a$=sg$(i):for j=1tolen(a$)
 2210 n=asc(mid$(a$,j,1))-64:ifn>=0then2300
 2220 ifn>-16thennl=n+16:goto2400
 2230 ck=0:goto2400
 2300 nt=nl
 2310 cl=cl+1:ifcl>llthenprintd$:printf$;:cl=1:rr=rr+1:ifrr>10thenprinth$;:rr=1
 2320 ifti<tmthen2320
 2330 ifckthenpoke59464,0
 2340 poke59464,nt(n):ck=1
 2350 tm=ti+iv:r=int(n/8):l=n-8*r
 2360 printleft$("{rvof}{up}{up}{up}",r+1);mid$("{CBM-@}RF{SHIFT-*}CDE{CBM-T}",l+1,1);left$("{rvof}{down}{down}{down}",r+1);
 2370 nt=nt-1:ifntthenck=0:goto2310
 2380 gett$:ift$<>"" then 1950
 2400 nextj
 2410 goto2150
 7000 data 3,0,24,1,"irish washerwoman"
 7010 data usrnninnrnrusrsppippspswusrnninnrnrusrsrspusrnn+n
 7050 data 2,0,32,4,"devil's dream"
 7060 data 1otstotstotstoqomlmqjqmqjqmqjqtsqo
 7070 data   tstotstotstoqomlmqomljhechhg3h
 7080 data 1jloholoholohoqomlmqjqmqjqmqjqtsqo
 7090 data   loholoholohotsqomqomljhechhg3h
 7100 data 2,1,32,1,"polly wolly doodle"
 7110 data 1np2rrnnrrnn1rrrr2sr6p2mppmmppmp1uuuu2sp6n
 7120 data 1,1,32,1,""
 7130 data 1np6r1np6r1np2rrsr6p1mn2ppm1mm2ppmm1uuuu2sp6n
 7140 data 2,1,32,1,"camptown races"
 7150 data 2uuruwu4r2r6p2r6p2uuruwu4r2p1rs2rp4nn
 7160 data 1,1,32,1,""
 7170 data 3n1n2ru8z3w1w2zw6u2ruuru2wu4r2p1rs2rp4nn
 7180 data 2,1,32,1,"the caisson song"
 7190 data 2uru+uuru+uur3u1w2uru+ursus+spus+sp8n+4n
 7200 data 1,1,32,1,""
 7210 data 2uu4zz6u1uu2wyzw6u2uzz+zywwyz8y+4y2uu4zz8u2wyzwu+u
 7220 data 2,1,32,1,""
 7230 data 2rsus+spus+sp8n+4n
 7240 data 2,10,24,1,"happy birthday"
 7250 data 1hh2jhm4l1hh2jho4m1hh2tqmlj1rr2qmo4m
 8100 data 0,0,0,0,"x"
 9000 data --,255,242,228,215,203,192,181,171,161,152,144,136
 9010 data 128,121,114,108,102,96,91,85,81,76,72,68
 9020 data 64,60,57,54,51,48,45,43,40,38,36,34
 50301 ,1,32,1,""
    0 clr:poke59468,peek(59468)and253or12
    1 rem cover copyright(c) 1979 cursor magazine
    2 rem cursor #11 june, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
    7 rem cursor #11 edited by glen fisher
    8 rem     associate editor: diane grove
    9 rem     publisher: ron jeffries
   10 rem as of july 5 1979
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I"
  122 print"{SHIFT--}  "
  123 print"J{SHIFT-*}K"
  124 print"{SHIFT--} {SHIFT--}"
  125 print"J{SHIFT-*}K"
  126 print"U{SHIFT-*}I"
  127 print"{SHIFT--}  "
  128 print"{SHIFT--}  "
  129 print"U{SHIFT-*}I"
  130 print"J{SHIFT-*}I"
  131 print"J{SHIFT-*}K"
  132 print"U{SHIFT-*}I"
  133 print"{SHIFT--}{$a0}{SHIFT--}"
  134 print"J{SHIFT-*}K"
  135 print"U{SHIFT-*}I"
  136 print"{SHIFT--}  "
  137 print"{SHIFT--}  "
  138 print"#11"
  139 print
  140 print"j 1"
  141 print"u 9"
  142 print"n 7"
  143 print"e 9"
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub 350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub 800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto 800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"june, 1979",2,1,36,3,"#11",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover",5,3,"fireworks - by glen fisher
  913 data4
  915 data4,3,"demon!",5,3,"try to catch the demons
  920 data4,3,"hi calc",5,3,"high precision calculator
  925 data4,3,"wipeout",5,3,"roll dice to match numbers
  935 data4,3,"peg",5,3,"a pegboard puzzle
  940 data4,3,"states",5,3,"states & capitals of the u.s.
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1
 1000 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{rvof}{CBM-K}"
 1010 ql=245:ifpeek(50000)thenql=216
 2000 h=9+int(rnd(1)*10)
 2010 e=int(rnd(1)*15)+18
 2020 x2=5:y2=20:print"{home}"
 2030 gett$:ift$<>""thenreturn
 2040 x=x2:y=y2+1:gosub 5300:print"{left}{CBM--}";
 2100 fori=5toe:x1=x2:y1=y2
 2110 x2=i:y2=i-20:y2=int(y2*y2/225*h)+20-h
 2120 gett$:ift$<>""thenreturn
 2130 gosub5000:nexti
 2450 x=x2-5
 2490 print"{up}
 2500 printtab(x);"{rght}{rght}{rght}{rght}{rght}{rvon} {up}"
 2509 :
 2510 printtab(x);"{rght}{rght}{rght}{rght}.{rght}.
 2511 printtab(x);"{rght}{rght}{rght}{rght}...{up}{up}
 2519 :
 2520 printtab(x);"{rght}{rght}{rght}.   .
 2521 printtab(x);"{rght}{rght}{rght}{rght}   "
 2522 printtab(x);"{rght}{rght}{rght}..{rght}{rght}.{up}{up}{up}
 2529 :
 2530 printtab(x);"{rght}{rght}. {rght}{rght}{rght} "
 2531 printtab(x);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}.
 2532 printtab(x);"{rght}{rght}.  {rght}{rght} "
 2533 printtab(x);"{rght}{rght}{rght}.{rght}{rght}{rght}.{up}{up}{up}{up}
 2539 :
 2540 printtab(x);"{rght}{rght} "
 2541 printtab(x);"{rght}.{rght}{rght}{rght}{rght}{rght}{rght} "
 2542 printtab(x);"{rght}{rght} "
 2543 printtab(x);"{rght}.{rght} {rght}{rght}{rght} "
 2544 printtab(x);"{rght}{rght}{rght}.{rght}{rght}{rght}{rght}.{up}{up}{up}{up}{up}
 2549 :
 2550 print
 2551 printtab(x);"{rght} "
 2552 print
 2553 printtab(x);"{rght} "
 2554 printtab(x);".{rght}{rght} {rght}{rght}{rght}{rght} "
 2555 printtab(x);"{rght}{rght}{rght}.{rght}{rght}{rght}{rght}{rght}.{up}{up}{up}{up}{up}{up}
 2559 :
 2560 print
 2561 print
 2562 print
 2563 print
 2564 printtab(x);" "
 2565 printtab(x);"{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} "
 2566 printtab(x);"{rght}{rght}{rght}.{rght}{rght}{rght}{rght}{rght}.{up}{up}{up}{up}{up}{up}{up}
 2569 :
 2570 print
 2571 print
 2572 print
 2573 print
 2574 print
 2575 print
 2576 printtab(x);"{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {up}{up}{up}{up}{up}{up}{up}
 2579 :
 4000 fori=1to500:nexti
 4010 goto2000
 5000 r=0:x=x1:y=y1
 5010 dx=abs(x2-x1):dy=abs(y2-y1)
 5020 sx=sgn(x2-x1):sy=sgn(y2-y1)
 5100 gosub5300
 5110 ifdx<dythen5200
 5120 ifx=x2thenreturn
 5130 x=x+sx:r=r+dy
 5140 ifr>dx-rtheny=y+sy:r=r-dx
 5150 goto5100
 5200 ify=y2thenreturn
 5210 y=y+sy:r=r+dx
 5220 ifr>dy-rthenx=x+sx:r=r-dy
 5230 goto5100
 5300 print"{left} {home}":pokeql,y+1:print"{up}";tab(x);".";:return
    0 clr:poke59468,12
    1 rem cover copyright(c) 1979 cursor magazine
    2 rem cursor #12 june, 1979
    3 rem box 550, goleta,ca. 93017
    4 :
    7 rem cursor #12 edited by glen fisher
    8 rem associate editors dave platton,  diane grove
    9 rem
   10 rem as of aug 30 1979
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#12
  139 print
  140 print"j 1
  141 print"u 9
  142 print"l 7
  143 print"y 9
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  152 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}loading...{rvof}
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"july, 1979",2,1,36,3,"#12",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover12",5,3,"symmetry - by glen fisher
  913 data4
  915 data4,3,"canyon!",5,3,"practice flying
  920 data4,3,"gauss!",5,3,"probability demonstration
  925 data4,3,"pickup",5,3,"danger: spilled chemicals
  935 data4,3,"piegram",5,3,"throw pies at the pet
  940 data4,3,"flight!",5,3,"canadian moon landing
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  999 data-1
 1000 mn=20:mx=100:dimp(mx+1),h(4),v(4),rg(6),r(6)
 1010 hl=4:hh=2:vl=3:vh=1:hc=5:vc=6
 1020 lf=1:ah=2:rt=3:rv=2
 1030 bl$="{rght}{rght}{rght}                                    "
 1100 fori=1to4:forj=1to3:readd(i,j),d$(i,j):nextj,i
 1110 fori=1to4:readh(i),v(i):nexti
 2000 n=int(rnd(1)*(mx-mn+1))+mn
 2010 h=0:v=0:d=vh
 2020 fori=1to4:r(i)=0:rg(i)=0:nexti
 2100 fori=1ton
 2110 p=int(rnd(1)*3)+1
 2120 gosub8400
 2130 p(i)=p
 2135 gett$:ift$<>""thenreturn
 2140 nexti
 2150 ifd=vhthenn=n+1:p=lf:gosub8400:p(n)=p
 2160 ifd=hlthentn=lf
 2170 ifd=vlthentn=rv
 2180 ifd=hhthentn=rt
 2200 fori=0to4:r(i)=rg(i):rg(i)=0:nexti
 2210 r(hc)=h:r(vc)=v
 2220 h=0:v=0:d=vh
 2300 gosub8300
 2305 gett$:ift$<>""thenreturn
 2310 h=h+r(hc):v=v+r(vc)
 2320 ontngosub8000,8100,8200
 2330 ifd<>vhthen2300
 2400 ifrg(hh)-rg(hl)>72then2000
 2410 ifrg(vh)-rg(vl)>46then2000
 3000 ho=(72-(rg(hh)-rg(hl)))/2-rg(hl)
 3005 ho=int(ho/2)+3
 3010 vo=(46-(rg(vh)-rg(vl)))/2+rg(vh)
 3015 vo=int(vo/2)
 3020 print"{home}";:fori=1to24:printbl$:nexti
 3080 printleft$("{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",vo+1);tab(ho);:q=pos(0)
 3090 d=vh
 3100 fori=1ton
 3110 print"Q{left}";d$(d,p(i));:d=d(d,p(i))
 3120 gett$:ift$<>""then3200
 3150 nexti
 3160 ifd<>vhthen3100
 3170 goto2000
 3200 return
 8000 rem
 8010 t=r(vh):r(vh)=r(hh):r(hh)=-r(vl):r(vl)=r(hl):r(hl)=-t
 8020 t=r(hc):r(hc)=-r(vc):r(vc)=t
 8030 d=d(d,lf)
 8040 return
 8100 rem
 8110 t=r(hh):r(hh)=-r(hl):r(hl)=-t
 8120 t=r(vh):r(vh)=-r(vl):r(vl)=-t
 8130 r(hc)=-r(hc):r(vc)=-r(vc)
 8140 d=d(d(d,rt),rt)
 8150 return
 8200 rem
 8210 t=r(vh):r(vh)=-r(hl):r(hl)=r(vl):r(vl)=-r(hh):r(hh)=t
 8220 t=r(hc):r(hc)=r(vc):r(vc)=-t
 8230 d=d(d,rt)
 8240 return
 8300 t=r(hl)+h:ift<rg(hl)thenrg(hl)=t
 8310 t=r(hh)+h:ift>rg(hh)thenrg(hh)=t
 8320 t=r(vl)+v:ift<rg(vl)thenrg(vl)=t
 8330 t=r(vh)+v:ift>rg(vh)thenrg(vh)=t
 8340 return
 8400 nd=d(d,p):h=h+h(d)+h(nd):v=v+v(d)+v(nd)
 8410 gosub8300:d=nd
 8420 return
 9000 data4,"I{left}{left}",1,"{SHIFT--}{left}{up}",2,"U"
 9010 data1,"K{left}{up}",2,"{SHIFT-*}",3,"I{left}{down}"
 9020 data2,"J",3,"{SHIFT--}{left}{down}",4,"K{left}{left}"
 9030 data3,"U{left}{down}",4,"{SHIFT-*}{left}{left}",1,"J{left}{up}"
 9040 data0,1,1,0,0,-1,-1,0
    0 clr:poke59468,12
    1 rem cover13 copyright(c) 1979 cursor magazine
    2 rem cursor #13 september 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of sep 24 1979
   19 :
   20 rem     editor:
   21 rem        glen fisher
   22 :
   23 rem     associate editors:
   24 rem        dave platton
   25 rem        diane grove
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#13
  139 print
  140 print"s 1
  141 print"e 9
  142 print"p 7
  143 print"t 9
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"aug/sep 1979",2,1,36,3,"#13",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover13",5,3,"fish swimming - by chuck bond
  913 data4
  915 data4,3,"ratrun",5,3,"a perspective maze
  920 data4,3,"cars",5,3,"cost records for vehicles
  925 data4,3,"ferry!",5,3,"cross the asteroid belt
  935 data4,3,"leap",5,3,"a mental challenge
  940 data4,3,"tcard",5,3,"figure time cards
  945 data4
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  972 data4
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  990 data4,3," ",5,3,"all rights reserved"
  992 data4
  995 data4,3,"cursor - box 550, goleta, ca 93017"
  999 data-1
 1000 fori=826to890:readx:pokei,x:nexti
 1010 a$(0)="{down} {up}{left} {CBM-*}{rvon}{SHIFT-POUND} .{CBM-*}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1020 b$(0)="{rvon}{SHIFT-POUND}. {CBM-*}{rvof}{SHIFT-POUND} {down}{left} {left}{left}{left}{left}{left}{left}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}{CBM-*}{rvof}"
 1030 a$(1)="{down} {up}{left} {rvon}{CBM-*}{SHIFT-POUND} .{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-*}{rvon}  {CBM-*}{rvof}"
 1040 b$(1)="{CBM-*}{rvon}. {CBM-*}{SHIFT-POUND}{rvof} {down}{left} {left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}{CBM-*}{rvof}"
 1050 a$(2)="{down} {up}{left} {CBM-*}{rvon}{SHIFT-POUND} .{up}{rvof}W{down}{left}{rvon}{CBM-*}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1060 b$(2)="{up}W{down}{left}{rvon}{SHIFT-POUND}. {CBM-*}{rvof}{SHIFT-POUND} {down}{left} {left}{left}{left}{left}{left}{left}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}{CBM-*}{rvof}"
 1070 a$(3)="{down} {up}{left} {rvon}{CBM-*}{SHIFT-POUND} .{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-*}{rvon}  {CBM-*}{rvof}"
 1080 b$(3)="{CBM-*}{rvon}. {CBM-*}{SHIFT-POUND}{rvof} {down}{left} {left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}{CBM-*}{rvof}"
 1100 d$="{rght}{rght}{rght}{CBM-T}EDCDC{SHIFT-*}FRFR{CBM-@}R{CBM-@}RF{SHIFT-*}F{SHIFT-*}CDE{CBM-T}EDC{SHIFT-*}CDC{SHIFT-*}FRF{SHIFT-*}C{rght}"
 1110 e$="{rght}{rght}{rght}CDC{SHIFT-*}FRFR{CBM-@}R{CBM-@}RF{SHIFT-*}F{SHIFT-*}CDE{CBM-T}EDC{SHIFT-*}CDC{SHIFT-*}FRFRF{SHIFT-*}CD{rght}"
 1120 w$(0)=d$+e$
 1130 w$(1)=e$+d$
 1200 cr$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1210 cd$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"+cr$
 1220 dd$="{down}{down}{down}{down}{down}{down}"+cr$
 1300 f=1
 3000 fori=16to46
 3010 print"{home}";:iff=0thenprintw$(n):n=1-n
 3020 printleft$(cd$,i)a$(f-2*(rnd(1)<.3))
 3030 printleft$(dd$,55-i)b$(f-2*(rnd(1)<.3))
 3040 f=1-f:iff=1thensys826
 3050 gett$:ift$<>""thenreturn
 3060 nexti
 3100 fori=1to31
 3110 print"{home}";:iff=0thenprintw$(n):n=1-n
 3120 printleft$(cd$,47-i)b$(f+2*abs(rnd(1)<.2))
 3130 printleft$(dd$,i+8)a$(f+2*abs(rnd(1)<.3))
 3140 f=1-f:iff=1thensys826
 3150 gett$:ift$<>""thenreturn
 3160 nexti
 3200 goto3000
 5000 data162,87,160,127,132,88,200,132,85,169,247
 5010 data133,87,169,31,133,84,160,50,169,3,133
 5020 data89,173,64,232,41,32,208,249,138,209,84
 5030 data208,11,169,32,145,84,209,87,208,3,138
 5040 data145,87,200,240,7,152,41,63,208,232,240
 5050 data223,230,88,230,85,198,89,208,215,96
    0 clr:poke59468,12
    1 rem cover14 copyright(c) 1979 cursor magazine
    2 rem cursor #14 oct 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of nov 2 79
   19 :
   20 rem editorial director:
   21 rem  glen fisher
   22 :
   23 rem assistant editors:
   24 rem  dave platton
   25 rem  diane grove
  100 crt=32768:ht=24:wd=40:print"{clr}
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#14
  139 print
  140 print"o 1
  141 print"c 9
  142 print"t 7
  143 print"  9
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"october 1979",2,1,36,3,"#14",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover14",5,3,"illusion - by chuck cares
  913 data4
  915 data4,3,"match",5,3,"test your memory
  920 data4,3,"search",5,3,"create word search puzzles
  925 data4,3,"bat!",5,3,"become a super bat
  935 data4,3,"morse!",5,3,"learn morse code
  940 data4,3,"cops",5,3,"cops chase the crooks
  942 data4,3,"coming",5,3,"amaze your friends...
  945 data4
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  972 data4
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  990 data4,3," ",5,3,"all rights reserved"
  992 data4
  995 data4,3,"cursor - box 550, goleta, ca 93017"
  999 data-1
 1000 ht$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}":vt$="{home}{down}{down}"+ht$
 1020 printvt$;"        {rvon}{SHIFT-POUND}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} N"
 1030 printht$;"       {rvon}{SHIFT-POUND}N{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}NN "
 1040 printht$;"      {rvon}{SHIFT-POUND}NN{CBM-G}{rvof}            {rvon}{SHIFT-POUND}NN{CBM-G}"
 1050 printht$;"     {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}{CBM-G}{CBM-G}{rvof}           {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}{CBM-G}{CBM-G}"
 1060 printht$;"    {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND} {rvon}{CBM-G}{CBM-G}{rvof}          {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND} {rvon}{CBM-G}{CBM-G}"
 1070 printht$;"   {rvon}{SHIFT-POUND} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}N{rvof}{SHIFT-POUND}  {rvon}{CBM-G}{CBM-G}"
 1080 printht$;"   {rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1090 printht$;"   {rvon}{CBM-M}P{rvof}   {rvon}OO{rvof}         {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1100 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}{rvof}         {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1110 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}{rvof}         {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1120 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}{rvof}         {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1130 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}{rvof}         {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}{CBM-G}"
 1140 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}   {rvon}{CBM-G}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-M}{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-G}{CBM-G}"
 1150 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof}  {rvon}{SHIFT-POUND}N{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-M}{CBM-M}{CBM-@}{CBM-@}NN{rvof}{SHIFT-POUND}"
 1160 printht$;"   {rvon}{CBM-M}{CBM-M}{rvof} {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}          {rvon}{CBM-M}{CBM-M}{rvof} {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}"
 1170 printht$;"   {rvon}{CBM-M}{CBM-M}{SHIFT-POUND}N{rvof}{SHIFT-POUND}           {rvon}{CBM-M}{CBM-M}{SHIFT-POUND}N{rvof}{SHIFT-POUND}"
 1180 printht$;"   {rvon}{CBM-M}{CBM-M}N{rvof}{SHIFT-POUND}            {rvon}{CBM-M}{CBM-M}N{rvof}{SHIFT-POUND}"
 1190 printht$;"   {rvon}{CBM-M} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-M}{$a0}{rvof}{SHIFT-POUND}"
 1200 printht$;"   {rvon} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-M}{rvof}{SHIFT-POUND}"
 1210 x=int(rnd(1)*16)+1:ifx=oxthen1210
 1220 ox=x
 1230 onxgoto1240,1250,1260,1270,1280,1290,1300,1310,1320,1330,1340,1350,1360,1370,1380,1390
 1240 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-@}{SHIFT-@}{down}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}":goto1400
 1250 printvt$;"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-G}{CBM-G}O{down}{left}{left}{left}{CBM-G}{CBM-G}O{down}{left}{left}{left}{CBM-G}{CBM-G}":goto1400
 1260 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-M}{CBM-M}{down}{left}{left}{left}{SHIFT-@}{CBM-M}{CBM-M}{down}{left}{left}{left}{SHIFT-@}{CBM-M}{CBM-M}":goto1400
 1270 printvt$;"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}OO":goto1400
 1280 printvt$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-@}{down}{left}{left}N{CBM-@}{CBM-@}{down}{left}{left}{left}N":goto1400
 1290 printvt$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-@} {down}{left}{left}{left}{CBM-@} {CBM-G}{down}{left}{left}{CBM-G}":goto1400
 1300 printvt$;"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}NN{down}{left}{left}{left}{CBM-M}{CBM-M}{down}{left}{CBM-M}":goto1400
 1310 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}N{down}{left}{left}{left}{CBM-T}{CBM-T}N{down}{left}{left}{CBM-T}":goto1400
 1320 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}N{down}{left}{left} NN{down}{left}{left}{left}N ":goto1400
 1330 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}L{CBM-G}{down}{left}{left}{CBM-@}{CBM-@}{down}{left}{left}{left}{CBM-@} ":goto1400
 1340 printvt$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-G}{down}{left}{left} {CBM-G}L{down}{left}{left}{left}{CBM-G}":goto1400
 1350 printvt$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} N{down}{left}{left}{left}NN {down}{left}{left}N":goto1400
 1360 printvt$;"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon} {CBM-T}{down}{left}{left}{left}{CBM-T}{CBM-T}{down}{left}P":goto1400
 1370 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-M}{down}{left}{left}{left}P{CBM-M} {down}{left}{left}{CBM-M}":goto1400
 1380 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}{CBM-M}{down}{left}{left}{CBM-M} {CBM-T}{down}{left}{left}{left} {CBM-T}":goto1400
 1390 printvt$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-G}{down}{left}{CBM-G}{CBM-G}{down}{left}{left}{left}NN"
 1400 dl=int(rnd(1)*120)+60:tm=ti+dl
 1410 gett$:ift$<>""thenreturn
 1420 ifti<tmthen1410
 1430 goto1210
    0 clr:poke59468,12
    1 rem cover15! copyright(c) 1979 cursor magazine
    2 rem cursor #15 nov/dec 1979
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of dec 28 1979
   19 :
   20 rem     editor:
   21 rem        glen fisher
   22 :
   23 rem     associate editors:
   24 rem        dave platton
   25 rem        diane grove
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#15
  139 print
  140 print"d 1
  141 print"e 9
  142 print"c 7
  143 print"  9
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"nov/dec 1979",2,1,36,3,"#15",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover15!",5,3,"musical christmas tree
  913 data4
  915 data4,3,"dungeon",5,3,"search for gold...
  920 data4,3,"fifteen",5,3,"can you put them in order?
  925 data4,3,"gomoku",5,3,"get five stones in a row
  935 data4,3,"everest",5,3,"climb mt. everest
  940 data4,3,"hawaii!",5,3,"animated cartoon (rated pg)
  945 data4
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  972 data4
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1979"
  990 data4,3," ",5,3,"all rights reserved"
  992 data4
  995 data4,3,"cursor - box 550, goleta, ca 93017"
  999 data-1
 1000 dimnt(24),bp(24),sv(5),re(5)
 1005 q0=142:ifpeek(50000)thenq0=60
 1010 b=255:p=2^(1/12)
 1020 fori=1to24:nt(i)=int(b+.5):b=b/p:nexti
 1030 nt(0)=0
 1100 tb=20:t$="":print"{home}"
 1110 printtab(tb);"{up}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{left}{left}{down}{CBM-*}{SHIFT-POUND}"
 1120 fori=1to9:t$=t$+chr$(34)
 1130 printtab(tb-i);" N";tab(tb+i);"M "
 1140 printtab(tb-i);"N ";tab(tb+i);" M"
 1150 nexti:printtab(tb-i+1);t$;"{CBM-+}{CBM-+}";t$
 1160 fori=1to2:printtab(tb);"{CBM-+}{CBM-+}":nexti
 1180 print"{home}"
 1200 fori=0to24
 1210 t=int(.5+sqr(.25+2*int(rnd(1)*45)))
 1220 r=2*t+1:ifrnd(1)>.5thenr=r+1
 1230 ifr>19then1210
 1240 c=int(rnd(1)*2*t)-t+1
 1250 bp=32768+40*r+c+tb:ifpeek(bp)<>32then1210
 1260 bp(i)=bp
 1265 pokebp,96
 1270 nexti
 1280 fori=0to24:pokebp(i),32:nexti
 1310 fori=0to5:re(i)=peek(q0+i):nexti
 1500 poke59467,16:poke59466,15:poke59464,0:pn=-1
 2000 readn$,d
 2010 ifd<=0then2500
 2020 nt=asc(n$)-64:bl=int(rnd(1)*25):pc=nt(nt)
 2030 bp=bp(bl):nb=113-peek(bp)
 2100 ifti<tmthen2100
 2105 ifpn=pcthenpoke59464,0
 2110 poke59464,pc:pokebp,nb
 2115 pn=pc
 2120 tm=ti+d*4
 2130 gett$:ift$=""then2000
 2140 poke59464,0:poke59466,0:poke59467,0
 2150 return
 2500 d=-d
 2505 ifn$=">"thenforz=0to5:sv(z)=peek(q0+z):nextz:rp=1:goto2000
 2510 ifn$="^"andrp<dthenforz=0to5:pokeq0+z,sv(z):nextz:rp=rp+1:goto2000
 2530 ifn$="<"thenfori=0to5:pokeq0+i,re(i):nexti:goto2000
 2540 goto2000
 3990 rem ====== deck the halls ...
 4000 data>,0,o,7,m,2,l,4,j,4,h,4,j,4,l,4,h,4,j,2,l,2,m,2,j,2,l,6,j,2,h,4,g,4,h,8
 4010 datao,7,m,2,l,4,j,4,h,4,j,4,l,4,h,4,j,2,l,2,m,2,j,2,l,6,j,2,h,4,g,4,h,8
 4020 dataj,7,l,2,m,4,j,4,l,7,m,2,o,4,j,4,l,2,n,2,o,4,q,2,s,2,t,4,s,4,q,4,o,8
 4030 datao,7,m,2,l,4,j,4,h,4,j,4,l,4,h,4,q,2,q,2,q,2,q,2,o,7,m,2,l,4,j,4,h,8,@,4
 4040 data^,-3,@,32
 4990 rem ====== good king ...
 5000 data>,0,h,4,h,4,h,4,j,4,h,4,h,4,c,8,e,4,c,4,e,4,g,4,h,8,h,8
 5010 datah,4,h,4,h,4,j,4,h,4,h,4,c,8,e,4,c,4,e,4,g,4,h,8,h,8
 5020 datao,6,m,1,l,4,j,4,l,4,j,4,h,8,e,4,c,4,e,4,g,4,h,8,h,8
 5030 datac,4,c,4,e,4,g,4,h,4,h,4,j,8,o,4,m,4,l,4,j,4,h,10,m,10,h,10,@,8
 5040 data^,-3,@,32
 5990 rem ====== jingle bells
 6000 data>,0,j,4,j,4,j,8,j,4,j,4,j,8,j,4,m,4,f,6,h,1,j,16
 6010 datak,4,k,4,k,6,k,2,k,4,j,4,j,6,j,2,j,4,h,4,h,4,j,4,h,9,m,8
 6020 dataj,4,j,4,j,8,j,4,j,4,j,8,j,4,m,4,f,6,h,1,j,16
 6030 datak,4,k,4,k,6,k,2,k,4,j,4,j,6,j,2,m,4,m,4,k,4,h,4,f,16
 6040 dataa,4,j,4,h,4,f,4,a,12,a,3,a,1,a,4,j,4,h,4,f,4,c,16
 6050 datac,4,k,4,j,4,h,4,e,16,m,4,m,4,k,4,h,4,j,16
 6060 dataa,4,j,4,h,4,f,4,a,16,a,4,j,4,h,4,f,4,c,16
 6070 datac,4,k,4,j,4,h,4,m,4,m,4,m,4,m,4,o,4,m,4,k,4,h,4,f,16,^,-2
 6080 dataj,4,j,4,j,8,j,4,j,4,j,8,j,4,m,4,f,6,h,1,j,16
 6090 datak,4,k,4,k,6,k,2,k,4,j,4,j,6,j,2,j,4,h,4,h,4,j,4,h,9,m,8
 6100 dataj,4,j,4,j,8,j,4,j,4,j,8,j,4,m,4,f,6,h,1,j,16
 6110 datak,4,k,4,k,6,k,2,k,4,j,4,j,6,j,2,m,4,m,4,k,4,h,4,f,16,@,32
 6990 rem ====== rudolph the
 7000 data>,0,h,2,j,3,h,1.5,e,3,m,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,m,3,l,13
 7010 dataf,2,h,3,f,1.5,c,3,l,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,j,3,e,13
 7020 datah,2,j,3,h,1.5,e,3,m,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,m,3,l,13
 7030 dataf,2,h,3,f,1.5,c,3,l,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,o,3,m,13
 7040 dataj,3,j,3,m,3,j,3,h,3,e,3,h,6,f,3,j,3,h,3,f,3,e,12,c,3,c,3,h,3,h,3
 7050 datal,3,l,3,o,6,m,3,m,3,l,3,j,3,h,3,f,3,c,6
 7060 datah,2,j,3,h,1.5,e,3,m,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,m,3,l,13
 7070 dataf,2,h,3,f,1.5,c,3,l,3,j,3,h,10,h,2,j,1,h,2,j,1,h,3,o,3,m,13,^,-2,@,32
 7990 rem ====== silent night
 8000 data>,0,h,8,j,2,h,6,e,18,h,8,j,2,h,6,e,18,o,10,o,6,l,16,m,10,m,6,h,16
 8010 dataj,10,j,6,m,8,l,2,j,6,h,8,j,2,h,6,e,16
 8020 dataj,10,j,6,m,8,l,2,j,6,h,8,j,2,h,6,e,16
 8030 datao,10,o,6,r,8,o,2,l,6,m,16,q,16,m,5,h,5,e,5,h,8,f,2,c,6,a,18,@,18
 8040 datah,8,j,2,h,6,e,18,h,8,j,2,h,6,e,18,o,10,o,6,l,16,m,10,m,6,h,16
 8050 dataj,10,j,6,m,8,l,2,j,6,h,8,j,2,h,6,e,16
 8060 dataj,10,j,6,m,8,l,2,j,6,h,8,j,2,h,6,e,16
 8070 datao,10,o,6,r,8,o,2,l,6,m,16,q,16,m,5,h,5,e,5,h,8,f,2,c,6,a,18,^,-2,@,32
 8080 data<,0
 9000 dims$(1000)
 9010 gosub700
 9100 i=0
 9110 readn$,d$:ifn$="^"then9130
 9111 ifn$="<"thenstop
 9115 printn$;
 9120 s$(i)=n$:s$(i+1)=d$:i=i+2:goto9110
 9130 printi
 9200 n=i/2:fori=2ton-1
 9210 ifs$(i)<>s$(i+n)thenprint"{rvon}";s$(i);
 9230 prints$(i+n);"{rvof} ";
 9240 nexti
 9300 print:goto9100
    0 clr:poke59468,12
    1 rem cover16 copyright(c) 1980 cursor magazine
    2 rem cursor #16 january 1980
    3 rem box 550, goleta,ca. 93017
    4 :
   10 rem as of jan 31 1980
   19 :
   20 rem editorial director:
   21 rem   glen fisher
   22 :
   23 rem assistant editors:
   24 rem   dave platton
   25 rem   diane grove
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#16
  139 print
  140 print"j 1
  141 print"a 9
  142 print"n 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor"
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"january 1980",2,1,36,3,"#16",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover16",5,3,"variation - by tony schettino
  913 data4
  915 data4,3,"nab!",5,3,"escape a head-on crash
  920 data4,3,"fire!",5,3,"extinguish a high-rise fire
  925 data4,3,"aliens!",5,3,"protect earth from invaders
  935 data4,3,"bonzo!",5,3,"chutes and ladders
  940 data4,3,"catch!",5,3,"play catch with the pet
  945 data4
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data4,3,"                   2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  972 data4
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  990 data4,3," ",5,3,"all rights reserved"
  992 data4
  995 data4,3,"cursor - box 550, goleta, ca 93017"
  999 data-1
 1000 o=32771:bh=64:bv=93:f=32
 1005 ht=23:wd=36
 1010 c1=85:c2=73:c3=75:c4=74
 1020 x=0:y=0:w=wd:h=ht:m=-1
 1030 goto 1090
 1040 get a$:if a$=" " then return
 1050 x=int(rnd(1)*(wd-2))
 1060 y=int(rnd(1)*(ht-2))
 1070 w=int(rnd(1)*(wd-2-x))+3:ifw>wd-5then1070
 1080 h=int(rnd(1)*(ht-2-y)+3):ifh>ht-5then1080
 1090 s=o+x+(40*y):h=h*40
 1100 poke s,c1
 1110 for i=1 to w-1
 1120 :poke s+i,bh:next
 1130 poke s+w,c2
 1140 for i=40 to h-40 step 40
 1150 :poke s+w+i,bv:next
 1160 poke s+w+h,c3
 1170 for i=w-1 to 1 step -1
 1180 :poke s+h+i,bh:next
 1190 poke s+h,c4
 1200 for i=h-40 to 40 step -40
 1210 :poke s+i,bv:next
 1220 ifmthenm=0:goto1040
 1230 ifa$<>""thenf=asc(a$)and63:ifasc(a$)>127thenf=f+64
 1240 fori=s+40 to s+h-40 step 40
 1250 :for j=1 to w-1
 1260 ::poke i+j,f
 1270 ::next j:next i
 1280 tm=ti+15
 1290 ifti<tmthen1290
 1300 remgett$:ift$=""then1300
 1310 goto1040
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #17 feb, 80
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - pete stearns
    8 rem asst. editors dave platton, dianegrove
    9 rem
   10 rem as of feb 27 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#17
  139 print
  140 print"f 1
  141 print"e 9
  142 print"b 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"february, 1980",2,1,36,3,"#17",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover17",5,3,"graphics by stephen rosset
  913 data4
  915 data4,3,"police!",5,3,"support law and order
  920 data4,3,"spot",5,3,"get four in a row
  925 data4,3,"ruler",5,3,"how to use a ruler
  935 data4,3,"letter",5,3,"draws big letters
  938 data4,3,"merge",5,3,"combine two basic programs
  944 data4,3,"npack",5,3,"remove blanks from a program
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}now loading{down}":printtab(21);:zz=1
 1010 fori=826to869:gett$:ift$<>""thenreturn
 1015 readw$:gosub8000:next
 1020 fori=896to945:gett$:ift$<>""thenreturn
 1025 readw$:gosub8000:next
 1100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {down}{down} {left}{up}{up}      ":poke856,128:p1=128
 1110 a(1)=3:a(2)=0:a(3)=37:a(4)=24
 1120 fori=1to12
 1130 forj=1to4:pokej+891,a(j):nextj
 1140 sys826
 1150 a(1)=a(1)+1:a(2)=a(2)+1:a(3)=a(3)-2:a(4)=a(4)-2
 1160 fork=1to25
 1170 gett$:ift$<>""thenreturn
 1180 nextk:nexti
 1190 ifrnd(4)>.8thengosub8100
 1200 ifrnd(5)>.8thengosub8200
 1205 ifrnd(6)>.8thengosub8300
 1207 ifrnd(7)>.8thenp1=198-p1:poke856,p1:rem198 instead of 223
 1210 goto1110
 8000 c=0:forb=1to2:a=asc(right$(w$,b))-48:a=a+(a>9)*7:c=c+a*(16^(b-1)):next
 8010 printmid$("{rvon}{rvof}",zz,1);"V{left}";:zz=3-zz
 8020 pokei,c:return
 8100 poke892,3:poke893,0:poke894,18:poke895,12:sys826
 8110 poke892,21:poke893,12:poke894,19:poke895,12:sys826:return
 8200 poke892,3:poke893,12:poke894,18:poke895,12:sys826
 8210 poke892,21:poke893,0:poke894,19:poke895,12:sys826:return
 8300 poke856,128:poke892,0:poke893,0:poke894,40:poke895,25:sys826
 8310 poke856,p1:return
 9000 dataad,7d,03,18,6d,7f,03,aa,bd,7f,03,18,6d,7c,03,85,00,bd,98
 9010 data03,69,00,85,01,ac,7e,03,b1,00,49,80,91,00,88,d0,f7,ca,8a,cd,7d
 9020 data03,d0,dd,60,ff,27,4f,77,9f,c7,ef,17,3f,67,8f,b7,df,07,2f,57,7f
 9030 dataa7,cf,f7,1f,47,6f,97,bf,7f,80,80,80,80,80,80,81,81,81,81,81,81
 9040 data82,82,82,82,82,82,82,83,83,83,83,83
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #18 mar 80
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - pete stearns
    8 rem asst. editors dave platton, dianegrove
    9 rem
   10 rem as of 25 mar 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#18
  139 print
  140 print"m 1
  141 print"a 9
  142 print"r 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"  march 1980  ",2,1,36,3,"#18",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover18",5,3,"graphics by peter stearns
  913 data4
  915 data4,3,"dromeda!",5,3,"cursor creature feature
  920 data4,3,"joust",5,3,"lance a knight
  925 data4,3,"weather",5,3,"forecast the weather?
  935 data4,3,"hi-res",5,3,"high resolution graphics
  938 data4,3,"sheep",5,3,"be a sheep herder
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,17,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 :
 1010 for mx=0 to8
 1020 for z=0tomx
 1030 forx=0tomx-z
 1040 y=mx-z-x
 1050 sp=33270-40*z+39*y+x
 1052 ifx=0thenpokesp-40,233:goto1060
 1054 poke sp-40,160
 1060 poke sp,230
 1062 ifz=0then pokesp+1,78:goto 1070
 1066 poke sp+1,233
 1070 poke sp-39,105
 1074 if y=0 then poke sp-38,101
 1076 fori=x*y*3+mx*3+3*zto120:geta$:ifa$<>""thenreturn
 1078 nexti
 1080 nextx,z,mx
 1110 fory=8to0 step -1
 1120 forz=8-yto0step-1
 1130 for x=8-y-zto0step-1
 1150 sp=33270-40*z+39*y+x
 1160 if y=0thenpokesp-39,32:pokesp-38,32
 1170 if y>0thenpoke sp-39,230
 1172 ifz=0thenpokesp+1,32:pokesp,78:ifx=0thenpokesp,32
 1174 ifx=0thenpokesp-40,32
 1176 ifz>0thenpokesp+1,160:pokesp,233
 1178 ifx>0thenpokesp-40,105
 1180 :
 1210 dl=8*y+15:gosub1300:ifa$<>""thenreturn
 1220 nextx,z,y
 1224 dl=333:gosub1300:ifa$<>""thenreturn
 1230 goto1000
 1300 :
 1310 fori=1todl:geta$:ifa$<>""thenreturn
 1320 nexti:return
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #19 apr 80
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - pete stearns
    8 rem asst. editors dave platton, dianegrove
   10 rem as of 25 apr 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#19
  139 print
  140 print"a 1
  141 print"p 9
  142 print"r 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"april, 1980",2,1,36,3,"#19",2,2,0
  910 data4,3,"file",5,3," description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3," {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover19",5,3," steps by peter stearns
  913 data4
  915 data4,3,"frog!",5,3," eat your fill of bugs
  920 data4,3,"godzilla!",5,3," slay the king of monsters
  925 data4,3,"miner!",5,3," run a successful gold mine
  935 data4,3,"rail",5,3," switchyard frenzy
  938 data4,3,"gbooka",5,3," enter gradebook names
  944 data4,3,"gbookb",5,3," record grades
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 rem..cover design
 1010 f=1:goto1040
 1020 fori=1to15:geti$:ifi$<>""then165
 1022 next:return
 1030 fori=1to200:geti$:ifi$<>""then165
 1032 next:return
 1040 print"{up}":print"{home}"
 1042 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght} U
 1043 print"{rght}{rght}{rght}{rght}{rght}{rght} M{SHIFT--}N
 1044 print"{rght}{rght}{rght}{rght}{rght} J{SHIFT-*}Q{SHIFT-*}I
 1045 print"{rght}{rght}{rght}{rght}{rght}  N{SHIFT--}M
 1046 print"{rght}{rght}{rght}{rght}{rght}{rght}  K
 1050 printtab(23);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{CBM-G}
 1060 printtab(22);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}{CBM-G}
 1070 printtab(20);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{SHIFT-POUND} {CBM-G} {CBM-M}{rvon}{SHIFT-POUND}   {rvof}{SHIFT-POUND}{CBM-G}
 1080 printtab(19);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}   {CBM-G}     {CBM-M}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}{CBM-G}
 1090 printtab(18);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}    {CBM-G}        {CBM-M}N{CBM-G}
 1100 printtab(16);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{SHIFT-POUND}     {CBM-G}      {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}N{CBM-G}
 1110 printtab(15);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}       {CBM-G}     {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}NN{CBM-G}
 1120 printtab(14);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}        {CBM-G}{rvon}{SHIFT-POUND}    {rvof}{SHIFT-@}{SHIFT-@}NNN{CBM-G}
 1130 printtab(13);"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}   {rvon}{SHIFT-POUND}      {rvof}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}NNN{CBM-G}
 1140 printtab(11);"{rvon}{SHIFT-POUND}       {rvof}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{SHIFT-@}NNN{CBM-G}
 1150 print"{rght}{rght}{rght} X{SHIFT-*}{SHIFT-*}XX{SHIFT-*}{SHIFT-*}L{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}NNNO{CBM-T}{CBM-T}
 1160 print"{rght}{rght}{rght}  X X   LL{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{SHIFT-@}NNN{CBM-G} X
 1170 print"{rght}{rght}{rght}  X   XXL{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}NNN{CBM-G}X
 1180 printtab(11);"LL{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{SHIFT-@}NNN
 1190 printtab(11);"L{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}NN
 1200 printtab(11);"LL{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{CBM-@}{SHIFT-@}{SHIFT-@}N
 1210 m=11:n=11:d$="{up}{up}{up}{left}{left}
 1220 a$=" ":b$=" ":c$=" ":gosub1630
 1230 gosub1590:gosub1590
 1240 c$="{rvon}{SHIFT-POUND}{rvof}":gosub1590
 1250 a$=c$:b$=c$:c$="{rvon} {rvof}":gosub1590
 1260 a$=c$:b$=c$:c$="{SHIFT-POUND}":gosub1590
 1270 a$=c$:b$=c$:c$=" ":gosub1590
 1280 gosub1710:a$=c$:b$="  {left}":c$="  {up}":gosub1630
 1290 c$=" ":b$=c$:n=n+1:m=10:gosub1590
 1300 gosub1590:gosub1590:gosub1590:gosub1590
 1310 gosub1710:b$=" {CBM-G}{left}":c$=" {CBM-G}{up}":a$="{CBM-G}":gosub1630
 1320 a$=" ":b$=a$:c$=a$:n=n+1:m=9:gosub1590:gosub1590:gosub1590
 1330 gosub1710:b$="  {left}":c$="  {up}":gosub1630
 1340 n=n+1:m=8:a$="{rvon}{SHIFT-POUND}{rvof}":b$=" ":c$=" ":gosub1590
 1350 n=n+2:m=5:gosub1750
 1360 a$=" ":b$=a$:c$=a$:gosub1600:gosub1600
 1370 gosub1870
 1380 gosub1600:gosub1600:gosub1600
 1390 gosub1870:gosub1600:gosub1600
 1400 gosub1870:gosub1600
 1410 m=m-1:a$="  {left}{left}":c$=" ":gosub1910
 1420 onfgoto1500,1430,1440,1450,1460,1470,1480,1490
 1430 printd$;"?";:goto1500
 1440 printd$;"{left}MBN";:goto1500
 1450 gosub1980:goto1500
 1460 :
 1470 :
 1480 :
 1490 f=1
 1500 gosub1030:f=f+1:print"{left}{left}{left}   {left}{left}{left}{up}   {left}{left}{left}{up}
 1510 n=n-1:gosub1910
 1520 a$="":c$="":gosub1620:gosub1620
 1530 a$=" {left}":c$=" ":m=m-1:gosub1620
 1540 a$="":c$="":gosub1620:gosub1620:gosub1620
 1550 a$=" {left}":c$=" ":m=m-1:gosub1620
 1560 a$="":c$="":gosub1620:gosub1620:gosub1620:gosub1620
 1570 goto1210
 1580 end
 1590 gosub1670:gosub1630:return
 1600 gosub1830:gosub1790:return
 1610 print:print"{home}":fori=1tom:print"{down}";:next:return
 1620 m=m+1:n=n-1:gosub1910:gosub1940:return
 1630 :
 1640 gosub1610
 1650 printtab(n)a$;"{down}{left}{left}";b$;"{down}{left}";c$;"{up}{up}{rght}Q{down}{left}{left}N0E{down}{left}{left}{left}/H{up}{up}{left}
 1660 n=n+1:gosub1020:return
 1670 :
 1680 gosub1610
 1690 printtab(n)"{down}{down}{left}";c$;"K\":gosub1020
 1700 return
 1710 :
 1720 gosub1610
 1730 printtab(n)"{down}{down}{left}";c$;"{up}{rght}I":gosub1020
 1740 return
 1750 :
 1760 gosub1610
 1770 printtab(n)"Q{down}{left}{left}/0\{down}{left}{left}{left}/Y{down}{left}{left}{left}{rvon} {rvof}{down}{left}{left}  {CBM-M}{down}{left}{left}{left}{rvon}{SHIFT-POUND} {rvof}"
 1780 return
 1790 :
 1800 gosub1610
 1810 printtab(n)a$;"{down}";b$;"{down}{left}";c$;"{up}{up}{left}{left}{left}Q {down}{left}{left}{left}E0\ {down}{left}{left}{left}T\  {up}{up}{left}{left}{left}
 1820 n=n-1:gosub1020:return
 1830 :
 1840 gosub1610
 1850 printtab(n)"Q {left}{left}{left}{down}E0\ {left}{left}{left}{left}{down}/J  {left}{left}";:gosub1020
 1860 return
 1870 :
 1880 gosub1610
 1890 printtab(n)"{down}{down}Y";c$;"{up}{left}{left}{left}U";:gosub1020:gosub1020
 1900 m=m-1:n=n-1:print"{down}{CBM-G}":return
 1910 :
 1920 gosub1610
 1930 printtab(n)"  {left}{left}{down}Q  {left}{left}{left}{left}{down}J0\";a$;"{left}{left}{left}{down}/J";c$;:gosub1020:return
 1940 :
 1950 gosub1610
 1960 printtab(n)"  {left}{left}{down}Q  {left}{left}{left}{left}{down}/0K";a$;"{left}{left}{left}{down}{CBM-M}B";c$;:gosub1020:return
 1970 return
 1980 :
 1990 printd$;:forj=1to5:print"Q{left}{down} ";:gosub1020:print"{left}Q{left}{up} {left}";:gosub1020
 2000 next:return
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #17 feb, 80
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - pete stearns
    8 rem asst. editor-  diane grove
   10 rem as of 29 may 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#20
  139 print
  140 print"m 1
  141 print"a 9
  142 print"y 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"may, 1980",2,1,36,3,"#20",2,2,0
  910 data4,3,"file",5,3," description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3," {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover20",5,3," graphics by peter stearns
  913 data4
  915 data4,3,"music!",5,3," compose your own
  920 data4,3,"bets",5,3," who has the high card?
  925 data4,3,"checkers!",5,3," pet plays the old favorite
  935 data4,3,"curves",5,3," draws fancy figures
  938 data4,3,"equip",5,3," equipment inventory program
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 :
 1100 n1=1:tl=32772:k=0
 1200 deffnr(h)=n1+int(rnd(ti)*h)
 1210 data102,160,97,66,35,194
 1212 data32,86,163,170,46,214
 1220 dims(12):dimf(8):dimf1(8)
 1230 fori=1to12:reads(i):next
 1240 data102,160,160,102,66,64,35,160
 1260 data160,86,102,86,219,219,160,102
 1280 fori=1to8:readf(i):next
 1282 fori=1to8:readf1(i):next
 1300 w=fnr(7)+2:p=0:z%=0
 1330 l=1:g=0:k=0
 1340 ifk>0then1350
 1344 a=s(fnr(6)+p)
 1350 c=17+k:d=-1:e=w
 1360 d=d+1:e=-e:c=c+d*e:j=0
 1380 x=tl+c:y=tl+40*(c-8)
 1496 ifj>35then2000
 1498 ifc<6orc>30then1600
 1500 n=peek(y):b=a:gosub4000:ifb=66thenb=64
 1502 ifb=97thenb=98
 1504 ifb=194thenb=192
 1590 pokey,b:y=y+1
 1600 ifj>22then1990
 1610 ifc<0orc>35then2010
 1620 n=peek(x):b=a
 1630 gosub4000:pokex,b:x=x+40
 1990 geta$:ifa$<>""thenreturn
 1994 j=j+1:goto1496
 2000 goto1360
 2010 ifz%=0thenz%=1:goto1360
 2020 z%=0:g=g+1:l=-l:k=k+(l*g):ifk>(w/2)-1then2100
 2030 goto1340
 2100 p=6-p:goto1330
 4000 :
 4002 u=0:ifp>0then4100
 4010 ifa=102thenu=1
 4020 ifa=160thenu=3
 4024 ifa=66thenu=5
 4028 ifa=35thenu=7
 4080 ifu=0thenreturn
 4090 fori=utou+1:iff(i)=nthenb=f1(i)
 4092 next
 4099 return
 4100 ifa<>nthenreturn
 4110 b=a+128:ifb>256thenb=b-256
 4120 return
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #21 june/july 1980
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    8 rem asst. editors dave platton, dianegrove
    9 rem
   10 rem as of 1 aug 1980
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#21
  139 print
  140 print"j 1
  141 print"u 9
  142 print"l 8
  143 print"y 0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"june/july, 1980",2,1,36,3,"#21",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover21!",5,3,"by stephen pietrowicz
  913 data4
  915 data4,3,"capture!",5,3,"trap the wild beasts
  920 data4,3,"dance!",5,3,"animated cartoon
  925 data4,3,"boswain",5,3,"to whom we pay tribute
  935 data4,3,"ouranos!",5,3,"a weather fight
  938 data4,3,"drag",5,3,"add and subtract
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  966 data4
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 rem by stephen pietrowicz
 1005 rem 2965 leyton court
 1010 rem rochester, mi  48063
 1020 dimdr(9):c=12:fori=2to8step2:dr(i)=c:dr(i+1)=c*1.5:c=c*2:nexti:dr(1)=6
 1025 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{down}{down}{down}{rght}{rght}{rght}{rght}please turn on your sound box
 1026 fori=1to550:nexti
 1030 poke59467,16:poke59466,0:hm=32767:dima(70):mh=32850:fort=1to7
 1035 fori=4to31step3:a(j)=mh+i:j=j+1:next:mh=mh+120:next
 1040 t$="{CBM-G}"+chr$(34)+" ":print"{home}";
 1045 fori=1to7
 1050 printtab(5);"{rvon}";:forj=1to10:print"{SHIFT-POUND}{CBM-T}{CBM-*}";:nextj:print
 1060 printtab(5);"{rvon}";:forj=1to10:printt$;:nextj:print
 1070 printtab(5);:forj=1to10:print"{CBM-*}{rvon}{SHIFT-*}{rvof}{SHIFT-POUND}";:nextj:print
 1080 nexti
 1090 r=0
 1110 dimnt(24),tn(24)
 1120 a=2^(1/12):b=235.7
 1130 fori=1to12:j=i+12:b=b/a
 1140 nt(i)=int(b+.5):nt(j)=nt(i)
 1150 tn(i)=15:tn(j)=51:nexti
 1170 fori=1to1100:nexti
 1180 reada:ifa<0thenb=dr(-a):goto1180
 1185 ifa=255thenpoke59464,0:gosub700:goto1180
 1190 ifa=500thenpoke59464,0:goto1170
 1200 t=ti+b:r=a(int(rnd(1)*70)+1)
 1210 pokelr,195:ifa=oathenpoke59464,0
 1220 ifa>0thenpoker,209:poke59464,nt(a)
 1230 poke59466,tn(a)
 1240 geta$:ifa$=""thenifti<tthen1240
 1250 oa=a:lr=r
 1260 ifa$=""then1180
 1270 poke59466,0:poke59467,0:return
 1280 data-2,8,6,-7,6,-1,0,-2,10,12,14,15,17,18,17,15,-7,15,-1,0,-2,15,15,13
 1290 data11,10,8,-4,11,10,10,8,6,10,8,3,6,10,-6,10,-2,8,6,-7,6,-1,0,-2,10,12
 1300 data14,15,17,18,17,15,-7,15,-1,0,-2,15,15,13,11,10,8,-4,11,10,10,8,6,10
 1310 data8,3,6,10,-6,10,10,10,-4,15,17,18,-2,17,15,-5,17,-2,15,-4,13,15,-8,10
 1320 data-6,10,10,-4,15,17,18,-2,17,15,-4,17,15,13,17,18,13,11,10,-2,8,6,-7,6
 1330 data-1,0,-2,10,12,14,15,17,18,17,15,-7,15,-1,0,-2,15,15,13,11,10,8,-4,11
 1340 data10,10,8,6,10,8,3,-2,6,10,-7,10,-4,18,22,20,15,18,22,-7,22
 1350 data500
 1360 data-4,13,-6,10,-4,10,-2,13,15,-7,8,-2,8,10,-4,11,-5,18,-2,18,17,13
 1370 data15,13,11,-5,10,-4,13,15,-2,15,15,20,18,17,18,15,-6,13,-2,6,8
 1380 data-4,10,-2,15,13,-4,13,-2,11,10,-4,5,5,-6,6
 1390 data-4,13,-6,10,-4,10,-2,13,15,-7,8,-2,8,10,-4,11,-5,18,-2,18,17,13
 1400 data15,13,11,-5,10,-4,13,15,-2,15,15,20,18,17,18,15,-6,13,-2,6,8
 1410 data-4,10,-2,15,13,-4,13,-2,11,10,-4,5,5,-6,6
 1420 data-4,0,6,-2,18,16,15,13,13,11,-4,15,18,15,18,11,18,-2,15,13,-4,11
 1430 data13,15,13,11,-2,10,8,-7,6,-4,6,-2,18,16,15,13,13,11,-4,15,18,15,18,11
 1440 data18,-2,15,13,-4,11,13,15,13,11,-2,10,8,-4,6,6,-2,13,15,16,15,-4,16
 1450 data-2,17,18,-4,20,-7,20
 1460 data-4,13,-6,10,-4,10,-2,13,15,-7,8,-2,8,10,-4,11,-5,18,-2,18,17,13
 1470 data15,13,11,-5,10,-4,13,15,-2,15,15,20,18,17,18,15,-6,13,-2,6,8
 1480 data-4,10,-2,15,13,-4,13,-2,11,10,-4,5,5,-6,6,500
 1490 data-6,10,10,-4,0,11,-6,6,-4,5,10,5,4,3,6,9,6,-6,5,-4,3,6,-8,5,-6,10
 1500 data10,-4,0,11,-6,6,-4,5,10,5,4,3,6,9,6,-6,5,-2,3,5,-4,6,-7,5,-4,10,15
 1510 data-2,13,10,-4,15,-2,13,10,-4,17,-7,15,-4,10,-2,11,10,-4,11,6,-8,6,-4
 1520 data10,-2,10,10,-4,15,10,-2,8,6,-6,5,-2,5,8,-4,10,10,10,10,10,10,10,10
 1530 data-6,10,-4,8,6,-8,5,-6,10,10,-4,0,11,-6,6,-4,5,10,5,4,3,6,9,6,-6,5
 1540 data-2,3,5,-4,6,-7,5,-4,10,15,-2,13,10,-4,15,-2,13,10,-4,17,-7,15,-4
 1550 data10,-2,11,10,-4,11,6,-8,6,-4,10,-2,10,10,-4,15,10,-2,8,6,-6,5,-2,5
 1560 data8,-4,10,10,10,10,10,10,10,10,-6,10,-4,8,6,-7,5,-6,10,10,-4,0,11,-6
 1570 data6,-4,5,10,5,4,3,6,9,6,-6,5,-4,3,-2,5,6,-7,5,-2,3,5,-4,6,3,8,5,6,3
 1580 data8,5,-6,6,-4,5,3,-6,2,-4,3,5,-9,3
 1600 data255
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #22 sep 80
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - nancy rhodes
    8 rem asst. editor diane grove
    9 rem
   10 rem as of oct 10 1980
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#22
  139 print
  140 print"s 1
  141 print"e 9
  142 print"p 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"september 1980",2,1,36,3,"#22",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover22",5,3,"graphics by george macrae
  913 data4
  915 data4,3,"kalah",5,3,"rock collecting made easy
  920 data4,3,"poker",5,3,"the las vegas edition
  925 data4,3,"match",5,3,"match the hidden numbers
  935 data4,3,"thunt!",5,3,"still more treasure!
  938 data4,3,"compare",5,3,"compare two basic programs
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93017"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 rem lines 1000-1400 copyright (c) 1980  by george macrae
 1010 rem 2492 sinclair circle
 1020 rem burlington, ontario
 1030 rem canada, l7p 3m6
 1040 dim a(27),b(27)
 1050 ht=15:q$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
 1060 a$="{rvof}{CBM-C}{left}{up} {up}{CBM-D}{up}{CBM-D}{CBM-C}{CBM-C}{CBM-D}{down}{left} {CBM-D}{down}{left} {down}{CBM-C}{down}{left} {CBM-D}{down}{left} {CBM-D}{down}{left} {CBM-C}{CBM-C}{up}{left} {CBM-D}{up}{CBM-D}{up}{left} "
 1070 b$="{rvof}{CBM-D}{up}{CBM-C}{up}{left} {CBM-C}{up}{left} {CBM-D}{CBM-C}{CBM-D}{down}{CBM-C}{down}{CBM-D}{down}{left} {down}{CBM-C}{down}{CBM-C}{CBM-D}{down}{left} {CBM-C}{up}{CBM-D}{CBM-C}{up}{left} {up}"
 1080 g$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}{up}{up}{rvon} {down}{left} {rvof}{down}{left}":f$="{down}{left} {down}{left} {up}{up}":z$="{rvon}{CBM-I}{rvof}":y$="{rvon} {rvof}"
 1090 printleft$(q$,ht)g$:printleft$(q$,ht-7);
 1100 print"{rght}{rght}{rght}{rght}{rvof}  {rvon}VVVVV{left}{left}{left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down}{CBM-I}{rvof}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}
 1110 k=len(a$):n=ht:l=len(b$):m=ht:s=0
 1120 d$=mid$(a$,k,1):k=k-1
 1130 ifd$="{up}"thenn=n+1
 1140 ifd$="{down}"thenn=n-1
 1150 ifd$<>"{CBM-D}"andd$<>"{CBM-C}"then1120
 1160 a(s)=k:a(s+1)=n
 1170 d$=mid$(b$,l,1):l=l-1
 1180 ifd$="{up}"thenm=m+1
 1190 ifd$="{down}"thenm=m-1
 1200 ifd$<>"{CBM-D}"andd$<>"{CBM-C}"then1170
 1210 b(s)=l:b(s+1)=m
 1220 s=s+2:ifk>1then1120
 1230 n=0:c$="":d$=""
 1240 fors=0to27step2
 1250 gett$:ift$<>""thenreturn
 1260 t$=mid$(a$,a(s)+1):h$=z$:ifleft$(t$,1)="{CBM-D}"thenh$=y$
 1270 print:printleft$(q$,a(s+1));g$;h$;f$;t$;c$;:ifn>=2thenprintleft$(a$,a(s));
 1280 t$=mid$(b$,b(s)+1):h$=z$:ifleft$(t$,1)="{CBM-D}"thenh$=y$
 1290 print:printleft$(q$,b(s+1));g$;h$;f$;t$;d$;:ifn>=2thenprintleft$(b$,b(s));
 1300 nexts:n=n+1:ifn=1thenc$=a$:d$=b$
 1310 goto1240
    0 clr:poke59468,12
    1 rem cover copyright(c) 1980 cursor magazine
    2 rem cursor #23 dec 1980
    3 rem box 550, goleta,ca. 93017
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - nancy rhodes
    8 rem asst. editor - diane grove,randy lum
    9 rem
   10 rem as of 9 dec 80
  100 crt=32768:ht=24:wd=40:print"{clr}"
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#23
  139 print
  140 print"d 1
  141 print"e 9
  142 print"c 8
  143 print"  0
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+40*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+40*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"december, 1980",2,1,36,3,"#23",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover23",5,3,"graphics by rob van gelder
  913 data4
  915 data4,3,"recipe",5,3,"for feeding a few or a flock
  920 data4,3,"ambush!",5,3,"war game in the woods
  925 data4,3,"orrery",5,3,"see the universe on your pet
  935 data4,3,"enigma",5,3,"simulates german war code
  938 data4,3,"mwhiz!",5,3,"are you a math whiz?
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'",4
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1980"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 print"{home}{down}{down}":te=90:sp=42
 1010 forx=1to20:printtab(6);"{rvon} {rvof}":next
 1020 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}";:forx=1to30:print"{rvon} {rvof}";:next
 1030 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:forx=1to15:print"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{up}{left}";:next
 1100 x=32853:r=32
 1280 read l,c,t2:if l=0 then 1300
 1285 gett$:ift$<>""thenreturn
 1290 gosub1900:goto1280
 1300 gosub700:print"{home}";
 1310 for i=1to23:printtab(6);"                                 ":next i
 1320 goto 1000
 1340 forz=1tote:next:return
 1900 if l<0 then r=t2:l=-l
 1930 ift2=0thengosub2100:return
 1950 gosub2000:return
 2000 if r>0 then pokex,r
 2010 if l>1then for q=2 to l:x=x+c:poke x,sp:gosub1340:pokex,t2:next q
 2020 x=x+c:r=peek(x):poke x,sp
 2030 return
 2100 if r>0 then pokex,r
 2110 if l>1then for q=2to l:x=x+c:r=peek(x):poke x,sp:gosub1340:pokex,r:next q
 2120 x=x+c:r=peek(x):poke x,sp
 2130 return
 4980 data 23,1,100
 4985 data -1,41,100
 4990 data -5,41,77
 5000 data -5, -41, 77
 5010 data 12, -1,  32
 5015 rem  data  1, -40, 32
 5020 data-19, 40,  93
 5030 data 11, -1, 160
 5040 data 10, -40,160
 5050 data 11, 1,   64
 5060 data 14, 1,   64
 5070 data 14, -1,  64
 5080 data 10,-39,  78
 5090 data 10, 39,  78
 5100 data 10, -41, 77
 5110 data 10, 41,  77
 5120 data  7, 41,  77
 5130 data  7,-41,  77
 5140 data 10, 39,  78
 5150 data 10,-39,  78
 5155 data -1,-40, 87
 5160 data  1,-41,  0
 5170 data -1,  1,100,  2,  1,100
 5180 data  1, -1,  0,  2, 41, 77
 5190 data  2, 39, 78,  -1, -1, 99
 5200 data  2, -1, 99,  1,  1,  0
 5210 data  2,-41, 77,   2,-39, 78
 5220 data  1,-41,  0
 5230 data -2,  1,100,   3,  1,100
 5240 data  1, -1,  0,   3, 41, 77
 5250 data  3, 39, 78,  -2, -1, 99
 5260 data  3, -1, 99,   1,  1,  0
 5270 data  3,-41, 77,   3,-39, 78
 5280 data  1,-41,  0
 5290 data -3,  1,100,   4,  1,100
 5300 data  1, -1,  0,   4, 41, 77
 5310 data  4, 39, 78,  -3, -1, 99
 5320 data  4, -1, 99,   1,  1,  0
 5330 data  4,-41, 77,   4,-39, 78
 5340 data  1,-41,  0
 5350 data -4,  1,100,   5,  1,100
 5360 data  1, -1,  0,   5, 41, 77
 5370 data  5, 39, 78,  -4, -1, 99
 5380 data  5, -1, 99,   1,  1,  0
 5390 data  5,-41, 77,   5,-39, 78
 5400 data  1,-41,  0
 5410 data -5,  1,100,   6,  1,100
 5420 data  1, -1,  0,   6, 41, 77
 5430 data  6, 39, 78,  -5, -1, 99
 5440 data  6, -1, 99,   1,  1,  0
 5450 data  6,-41, 77,   6,-39, 78
 5460 data  1,-41,  0
 5470 data -6,  1,100,   7,  1,100
 5480 data  1, -1,  0,   7, 41, 77
 5490 data  7, 39, 78,  -6, -1, 99
 5500 data  7, -1, 99,   1,  1,  0
 5510 data  5,-41, 77,   4,-40,160, 5,-39, 78
 5520 data  1,-41,  0
 5530 data -7,  1,100,   8,  1,100
 5540 data  1, -1,  0,   8, 41, 77
 5550 data  8, 39,  0,  2,-1,0, -5, -1, 99
 5560 data  8, -1, 99,   1,  1,  0
 5570 data  4,-41, 77,   8,-40,160, 4,-39, 78
 5580 data 8,41,0, 1,-1,0
 9999 data 0,0,0
    0 clr:poke59468,12
    1 rem cover copyright(c) 1981 cursor magazine
    2 rem cursor #24 feb, 81
    3 rem box 550, goleta,ca. 93116
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - nancy rhodes
    8 rem asst. editors brian sawyer, dianegrove
    9 rem
   10 rem as of 27jan81 11am rj
  100 crt=32768:ht=24:wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#24
  139 print
  140 print"f 1
  141 print"e 9
  142 print"b 8
  143 print"  1
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0:ct=crt+41
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"february, 1981",2,1,36,3,"#24",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover24",5,3,"graphics by mark stewart
  913 data4
  915 data4,3,"defend!",5,3,"fight off invading aliens
  920 data4,3,"g-word",5,3,"guess the secret word
  925 data4,3,"racer!",5,3,"stay on the right course
  935 data4,3,"re-num",5,3,"renumber your disk programs
  938 data4,3,"printsit",5,3,"save your screen on paper
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1981"
  985 data4,5,3,"all rights reserved.
  990 wd=40
  999 data-1
 1000 rem graphics by mark stewart
 1010 rem 344 lakeside dr.
 1020 rem north bay ontario
 1030 rem canada p1a 3e4
 1040 b=826:p=7
 1050 reada:ifa<>999thenpokeb,a:b=b+1:goto1050
 1060 a=crt-1
 1070 b=896
 1080 fori=0to24
 1090 h=int(a/256):pokeb,a-256*h:pokeb+25,h
 1100 b=b+1:a=a+wd:nexti
 1110 data173,125,3,24,109,127,3,170,189,127,3,24,109,124,3,141,0,0,189
 1120 data152,3,105,0,141,1,0,173,64,232,41,32,208,249,172,126,3,177,0,73,128
 1130 data145,0,136,208,247,202,236,125,3,208,213,96
 1140 data999
 1150 z=int(rnd(1)*p+1)
 1160 getin$:ifin$<>""thenreturn
 1170 onzgosub1200,1240,1280,1320,1360,1400,1440,63999
 1180 ifz=9then1150
 1190 goto1150
 1200 a=3:b=0:c=37:d=24
 1210 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1220 a=a:b=b:c=c-1:d=d-1:ifd=0thenreturn
 1230 goto1210
 1240 a=3:b=0:c=37:d=24
 1250 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1260 a=a+1:b=b+1:c=c-2:d=d-2:ifc<=14thenreturn
 1270 goto1250
 1280 a=14:b=11:c=15:d=2
 1290 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1300 a=a-1:b=b-1:c=c+2:d=d+2:ifa<3thenreturn
 1310 goto1290
 1320 a=3:b=0:c=37:d=24
 1330 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1340 a=a+1:b=b:c=c-1:d=d-1:ifd<=0thenreturn
 1350 goto1330
 1360 a=3:b=0:c=37:d=24
 1370 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1380 a=a+1:b=b:c=c-1:d=d:ifc<=0thenreturn
 1390 goto1370
 1400 a=3:b=0:c=37:d=24
 1410 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1420 a=a+1:b=b:c=c-2:d=d-1:ifc<=0thenreturn
 1430 goto1410
 1440 a=3:b=0:c=37:d=24
 1450 poke892,a:poke893,b:poke894,c:poke895,d:sys826
 1460 a=a+1:b=b+1:c=c-2:d=d-1:ifc<=0thenreturn
 1470 goto1450
    0 clr:poke59468,12
    2 rem cover copyright(c) 1981 cursor magazine
    4 rem cursor #25 april 1981
    6 rem box 550, goleta,ca. 93116
    8 :
   10 rem as of 1may81
   11 :
   12 rem graphics by kurt carpenter
   14 rem 181 ave de las flores
   16 rem thousand oaks, ca 91360
   20 crt=32768:ht=24:wd=40:print"{clr}"
   21 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
   22 gosub122
   24 print"{clr}";
   26 print"U{SHIFT-*}I
   28 print"{SHIFT--}
   30 print"J{SHIFT-*}K
   32 print"{SHIFT--} {SHIFT--}
   34 print"J{SHIFT-*}K
   36 print"U{SHIFT-*}I
   38 print"{SHIFT--}
   40 print"{SHIFT--}
   42 print"U{SHIFT-*}I
   44 print"J{SHIFT-*}I
   46 print"J{SHIFT-*}K
   48 print"U{SHIFT-*}I
   50 print"{SHIFT--}{$a0}{SHIFT--}
   52 print"J{SHIFT-*}K
   54 print"U{SHIFT-*}I
   56 print"{SHIFT--}
   58 print"{SHIFT--}
   60 print"#25
   62 print
   64 print"a 1
   66 print"p 9
   68 print"r 8
   70 print"  1
   72 print
   74 print"  press {rvon}space{rvof} to see table of contents{up}{up}"
   76 gosub1000
   78 print"{clr}{down}{rght}cursor
   80 r=0:c=0:cd=0:ct=crt+wd+1
   82 restore
   84 sw=1:rv=0
   86 ifti<tmthen90
   88 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
   90 oncd+2goto86,94,98,0,116,104,106
   92 remstop
   94 gosub128:ifcd=1orcd=6thengosub108:ifcd=6thenln=1:cd=1
   96 goto90
   98 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  100 ln=ln-1:ifln=0thencd=0
  102 goto86
  104 r=r+1:c=1:cd=0:goto86
  106 c=10:cd=0:goto86
  108 ifch=148thench=34
  110 sh=chand128:ch=chand63:ifshthench=ch+64
  112 ifrvthench=ch+128
  114 return
  116 iflen(tx$)=0thencd=0:goto86
  118 ch=asc(tx$):gosub108:tx$=mid$(tx$,2,255)
  120 pokecrt+wd*r+c,ch:c=c+1:goto86
  122 restore
  124 gosub128:ifcd<>-1then124
  126 return
  128 readcd:oncd+2goto130,128,132,136,138,130,130,134
  130 return
  132 readrc,cc,ln,ch:return
  134 readrc,cc,ch:return
  136 readr,c:goto128
  138 readtx$:return
  140 readtx$:return
  142 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  144 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  146 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  148 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  150 data2,1,12,3,"april, 1981",2,1,36,3,"#25",2,2,0
  152 data4,3,"file",5,3,"description"
  154 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  156 data4,3,"cover25!",5,3,"graphics by kurt carpenter
  158 data4
  160 data4,3,"maxit",5,3,"clever logic game
  162 data4,3,"mail",5,3,"mail list program (16k)
  164 data4,3,"rescue!",5,3,"save the survivors!
  166 data4,3,"repair",5,3,"small database (16k)
  168 data4,3,"xref",5,3,"cross referencer (disk)
  170 data4,4
  172 data4,3,"cursor - box 550, goleta, ca 93116"
  174 data4
  176 data4,3,"to load a program: 1. press 'stop'"
  178 data2,18,20,3,"2. press 'clr'",4
  180 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  182 data4
  184 data4,3,"cursor(tm) - all programs{$a0}(c) 1981"
  186 data4,5,3,"all rights reserved.
  188 data-1
 1000 dimm1%(6),m2(6),m0%(6),d(5)
 1006 v1%=wd:v2%=32:v3%=wd-1:v4%=-wd:v5%=-wd+1:v6%=wd+1:v7%=-wd-1:v8%=102
 1007 ct=32768+wd*6+10:d(0)=1:d(1)=-1:d(2)=wd-1:d(3)=-wd+1:d(4)=wd+1:d(5)=-wd-1
 1008 fori=0to6:ifi=int(i/2)*2thenm0%(i)=87:goto1010
 1009 m0%(i)=81
 1010 m1%(i)=d(int(rnd(1)*6))
 1011 m2(i)=ct+int(rnd(1)*26):ct=ct+wd:next
 1012 print: print"{home}"tab(17)"gas molecules
 1013 ct=32768+wd*2+9
 1014 fori=1to27:pokect,224:ct=ct+1:next
 1015 fori=1to12:pokect,224:ct=ct+wd:next
 1016 fori=1to27:pokect,224:ct=ct-1:next
 1017 fori=1to12:pokect,224:ct=ct-wd:next
 1018 ct=ct+14+wd:fori=1to11:pokect,102:ct=ct+wd:next:w=1:ct=ct-wd
 1019 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}capture molecules in right chamber
 1020 printtab(7)"use key {rvon}5{rvof} to control center wall{down}
 1021 ti$="000000"
 1027 forj=0to6:d%=m1%(j):ifpeek(m2(j)+d%)>v2%thengosub1034:ifpeek(m2(j)+d%)<>v2%thend%=-d%:goto1029
 1028 pokem2(j),v2%:m2(j)=m2(j)+d%:pokem2(j),m0%(j)
 1029 m1%(j)=d%:next
 1030 geta$:ifa$=""then1027
 1031 ifa$="5"thengosub1044:goto1027
 1032 return
 1033 goto1027
 1034 poke59467,16:poke59466,100:poke59464,252:poke59467,0:ifd%=v7%thend%=v3%:return
 1035 ifd%=v3%thend%=v7%:return
 1036 ifd%=v5%thend%=v6%:return
 1037 ifd%=v6%thend%=v5%:return
 1038 d%=-d%:return
 1044 ifw=1then1048
 1045 fori=1to11:ifpeek(ct)<>v2%then1047
 1046 pokect,102
 1047 ct=ct+v1%:next:w=1:ct=ct-v1%:goto1054
 1048 fori=1to11:pokect,v2%:ct=ct-v1%:next:w=0:ct=ct+v1%:return
 1054 eg=32768+wd*3+10:fori=0to6
 1055 if(m2(i)-eg)-int((m2(i)-eg)/wd)*wd<14thenreturn
 1056 next:print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}time = "mid$(ti$,4,1)":"right$(ti$,2)
 1057 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you win!!";
 1063 poke59467,16
 1064 poke59466,15
 1065 fori=0to2
 1066 f=int(65+125*rnd(ti))
 1067 fork=65to45step-5:print"{left}{left}{rvon}!!{rvof}";
 1068 forj=kto1step-5
 1069 poke59464,f-j
 1070 poke59464,f
 1071 poke59464,f+j:print"{left}{left}!!";
 1072 next
 1073 next
 1074 fori=1to200:poke59464,i:next
 1075 print"{home}";:poke59467,0:poke59466,0:poke59464,0
 1076 forn=1to22*wd/40:print"{rght}{rght}{rght}                                     ";:next
 1077 goto1006
    0 clr:poke59468,12
    1 rem cover copyright(c) 1981 cursor magazine
    2 rem cursor #26 june, 1981
    3 rem box 550, goleta,ca. 93116
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - nancy rhodes
    8 rem asst. editor - brian sawyer
    9 rem
   10 rem as of 19 june 1981
  100 crt=32768:ht=24:wd=40:print"{clr}"
  102 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#26
  139 print
  140 print"j 1
  141 print"u 9
  142 print"n 8
  143 print"  1
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"june, 1981",2,1,36,3,"#26",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover26",5,3,"graphics by brian sawyer
  913 data4
  915 data4,3,"lawn!",5,3,"the armchair gardener
  920 data4,3,"tank!",5,3,"patton vs. the desert fox
  925 data4,3,"ram",5,3,"try to cross the board first
  935 data4,3,"safe!",5,3,"take a crack at safe cracking
  944 data4,3,"test",5,3,"aid in test grading
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1981"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 di(1)=wd-1:di(2)=wd:di(3)=wd+1:di(4)=-1:di(6)=1:di(7)=-wd-1:di(8)=-wd
 1005 di(9)=-wd+1
 1015 dima(50):forn=1to30:ifn<26thenreadq:a(n)=di(q)
 1020 a(n)=a(n)+a(n-1):next
 1025 dimb(50):forn=1to30:ifn<26thenreadq:b(n)=di(q)
 1030 b(n)=b(n)+b(n-1):next
 1040 tp=crt-wd*3-7
 1050 f=81:g=32
 1060 dimd$(21):forn=1to20step2:d$(n)="{rvon}{SHIFT-POUND}{SHIFT-POUND}{CBM-*}{CBM-*}{rvof}":d$(n+1)="{rvon}{CBM-*}{CBM-*}{SHIFT-POUND}{SHIFT-POUND}":next
 1070 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":e$="{up}{up}{rght}  {down}{left}{left}  "
 1080 a$="{up}{up}{rght}{rvon}{CBM-*}{SHIFT-POUND}{down}{left}{left}NM{down}{left}{left}{left}{CBM-*}MN{SHIFT-POUND}{rvof}"
 1090 n1=tp+wd*13+25:n2=tp+wd*13+23:n3=tp+wd*13+24:n4=tp+wd*12+24:n5=tp+wd*13+22
 1100 n6=tp+wd*12+23:n7=tp+wd*12+22:n8=tp+wd*12+25
 1110 gosub1320
 1120 k(1)=205:k(2)=206
 1130 forn=1to1200:next
 1140 goto1210
 1150 poken1+a(q1-1),g:poken2+a(q2-1),g:poken3+a(q3-1),g:poken7+a(q7-1),g
 1160 poken4+b(q4-1),g:poken5+b(q5-1),g:poken6+b(q6-1),g:poken8+b(q8-1),g
 1170 ifq3=17then1210
 1180 poken1+a(q1),f:poken4+b(q4),f:poken2+a(q2),f:poken7+a(q7),f:poken8+b(q8),f
 1190 poken5+b(q5),f:poken3+a(q3),f:poken6+b(q6),f:f=46:printb$d$(q3)
 1195 getin$:ifin$<>""thenreturn
 1200 q1=q1+1:q2=q2+1:q3=q3+1:q4=q4+1:q5=q5+1:q6=q6+1:q7=q7+1:q8=q8+1:goto1150
 1210 f=81:printb$a$
 1220 q2=int(rnd(10)*5)
 1230 q3=int(rnd(10)*5)
 1240 q4=int(rnd(10)*5)
 1250 q5=int(rnd(10)*5)
 1260 q6=int(rnd(10)*5)
 1270 q7=int(rnd(10)*5)
 1280 q8=int(rnd(10)*5)
 1290 q1=int(rnd(10)*5)
 1300 printb$e$
 1310 goto1180
 1320 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
 1330 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  NM
 1340 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} N  M
 1350 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   N    M
 1360 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  NMNM  NM
 1370 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} N    MN  M
 1380 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N          M
 1390 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} N {$a0}          M
 1400 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} N {$a0}            M     NM
 1410 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N {$a0}              M   N  M
 1420 print"{rght}{rght}{rght}{rght}{rght}NMN ^               ^M N    M
 1430 print"{rght}{rght}{rght}{rght}N N^^ ^^          ^ ^{$a0}^^      M
 1440 print"{rght}{rght}{rght}^ ^^^ ^   ^^      ^ ^ ^  ^      M
 1450 return
 1500 data8,8,8,9,9,6,6,6,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2
 1510 data8,8,8,7,7,4,4,4,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2
    0 clr:poke59468,12
    1 rem cover27! copyright(c) 1981 the code works
    2 rem cursor #27 august, 1981
    3 rem box 550, goleta, ca 93116
    4 :
    6 rem editorial director - glen fisher
    7 rem editor - nancy rhodes
    8 rem asst. editors mike rawley, andy stadler
    9 rem
   10 rem as of 24aug81
   99 dim v(27),d(27),s(27)
  100 crt=32768:ht=24:wd=40:print"{clr}"
  102 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  104 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}please turn on sound box";
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#27
  139 print
  140 print"a 1
  141 print"u 9
  142 print"g 8
  143 print"  1
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"august, 1981",2,1,36,3,"#27",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover27!",5,3,"graphics by steve gull
  913 data4
  915 data4,3,"attack!",5,3,"defend your base
  920 data4,3,"emaze!",5,3,"navigate the electron maze
  925 data4,3,"duel!",5,3,"board game with dice
  935 data4,3,"miser",5,3,"adventure game (16k)
  938 data4,3,"prochar",5,3,"design printer characters
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1981"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 rem graphics by steve gull
 1010 rem 1403 stella
 1020 rem anaheim ca 92802
 1060 gosub700:forx=826to867:ready:pokex,y:next:ifwd=80thenpoke864,134
 1070 data169,128,133,34,169,130,133,33,160,1,177,33,136,145,33,200,200,192
 1080 data28,208,245,165,33,24,105,40,133,33,144,234,165,34,24,105,1,133,34
 1090 data 201,131,208,223,96
 1100 print"{home}{rght}{rght}{rght}U";:forx=1to35:print"{SHIFT-*}";:next:print"I{left}{down}";:forx=1to22
 1110 print"{SHIFT--}{left}{down}";:next:print"K{left}{left}";:forx=1to35:print"{SHIFT-*}{left}{left}";:next:print"J{left}{up}";
 1120 forx=1to22:print"{SHIFT--}{left}{up}";:next:t$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1140 c$="{CBM-@}{CBM-@}{down}{left}N{down}{left}{left}N{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}OP{left}{left}{down}{CBM-G}{CBM-M}{left}{left}{down}{CBM-T}{CBM-T}{left}{left}{left}{left}{CBM-T}{CBM-T}{left}{down}{rvon} {rvof}{CBM-G}{left}{up}O{left}{down}{left}{left}{left}{up}{up}{CBM-M}{up}{left}{CBM-M}{up}N{up}N{left}{up}{CBM-M}{up}{left}{CBM-M}"
 1160 printt$c$t$"{rght}{rght}";:forx=1to9:print"{CBM-L}{left}{down}";:nextx
 1170 printt$"{up}":fory=1to5:printtab(10);:forx=1to29:print"{SHIFT-*}";:next:print
 1172 ifwd=80thenprint
 1175 nexty
 1180 forx=0to27:readv(x),d(x),s(x):next:data0,0,0
 1190 data236,18,0,222,18,1,210,17,0,198,17,1,187,16,0,176,15,0,166,15,1,157,14
 1200 data0,148,14,1,140,13,0,132,13,1,125,12,0,117,11,0,109,11,1,104,10,0
 1201 data98,10,1,92,9,0,87,8,0,83,8,1,77,7,0,72,7,1,68,6,0,63,6,1,60,5,0,57,4
 1202 data0,54,4,1,51,3,0
 1210 a$="Q{up}{left}{CBM-M}{up}{left}{CBM-M}{up}{left}{CBM-M}":b$="Q{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{left}{left}"
 1220 n$(0)=a$+"M{down}{left}M{down}{left}":u$(0)=b$+"M{up}{left}M{up}{left}":n$(2)=a$+"M{down}{down}{left}":u$(2)=b$+"M{up}{up}{left}"
 1280 n$(4)=a$+"{down}{down}":u$(4)=b$+"{up}{up}":n$(6)="W{up}{left}{CBM-M}{up}{left}{CBM-M}{up}{left}{CBM-M}{down}{down}":u$(6)="W{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{left}{left}{up}{up}"
 1300 n$(8)="W{up}":u$(8)="W{down}{left}{left}":n$(9)="{down}{down}N{down}{left}M{down}{left}N{down}{left}M{up}{up}":n$(10)="{down}{down}{down}{CBM-@}{CBM-@}{left}{left}{down}{CBM-V}N{down}{left}{left}N"
 1340 forx=0to9:readt(x),k(x):next
 1350 data 0,0,15,1,35,0,60,1,140,0,200,1,250,0,410,1,490,0,700,1
 1410 sr=59464:pokesr+3,16:pokesr+2,15:pokesr,0:q$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1420 reada$:a=val(left$(a$,2)):c=val(right$(a$,1)):geta$
 1440 ifa$<>""thenpokesr+3,0:goto165
 1450 ifa=0andc=0then1650
 1460 ifa=99then1000
 1470 ifa<>0then1500
 1480 ifc=2orc=3thenprintt$spc(27)n$(10);:goto1580
 1490 printt$spc(28)n$(9);:goto1580
 1500 print"{home}"left$(q$,d(a))spc(35);
 1510 j=c:ifa<6then1550
 1520 ifa>19then1540
 1530 ifrnd(1)<.5then1550
 1540 print"{rght}";:ifk(c)=1thenj=j-1
 1545 printu$(j);:goto1570
 1550 ifk(c)=1thenj=j-1
 1555 printn$(j);
 1560 ifs(a)=1anda<20thenprint"#{down}";:goto1580
 1570 ifs(a)=1thenprint"#{up}";
 1580 ifk(c)=1thenprint"."
 1590 ifa=qthenpokesr,0
 1610 q=a:pokesr,v(a):forw=1tot(c):next:sys826:sys826:goto1420
 1650 pokesr,0:forw=1to2500:next:forx=1to26:sys826:forw=1to20:nextw,x:goto1420
 1700 data082,102,122,152,132,132,172,152,152,202,192,202,152,122,082,102,122
 1710 data132,152,172,152,132,122,102,122,082,072,082,102,032,072,102,132,122
 1730 data102,122,082,102,122,152,132,132,172,152,152,202,192,202,152,122,082
 1740 data102,122,052,152,132,122,102,082,032,082,072,088,005,000
 1760 data190,170,154,104,154,174,190,200,190,170,150,170,190,200,226,220,224
 1770 data244,226,200,194,204,224,274,224,204,194,170,190,200,220,200,190,204
 1780 data170,190,204,154,178,004
 1790 data190,170,154,104,154,174,190,200,190,170,150,170,190,200,226,220,224
 1800 data244,226,200,194,204,224,274,224,204,194,170,190,200,220,200,190,204
 1810 data170,190,204,154,158,003,000
 1820 data134,080,080,104,086,004,124,138,000
 5000 data999
    0 clr:poke 59468,12:gosub 1320
    1 rem cover28! (c) copyright 1981 the code works
    2 rem cursor #28, november, 1981
    3 rem box 550, goleta, ca 93116
    4 :
    6 rem editorial director - glen fisher
    9 rem
   10 rem as of 18nov81 rj
  100 crt=32768:ht=24:wd=40:print"{clr}"
  102 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  110 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(34)"/{CBM-*}{rvon}{CBM-*}
  111 printtab(34)"JI{CBM-*}{CBM-K}
  112 printtab(31)"UR{CBM-@} {rvon}{SHIFT-POUND} {CBM-*}
  113 printtab(31)"J{SHIFT-*}{rvon}   N {rvof}
  114 printtab(32)"{rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}  {rvof}
  115 printtab(31)"{rvon}{SHIFT-POUND}     {CBM-M}
  116 printtab(31)"{rvon}{CBM-+}{CBM-+}{CBM--}   {CBM-M}
  117 poke59467,16:poke59466,15:s=59464:pokes,0
  118 print"{home}U{SHIFT-*}I     {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  119 print"{SHIFT--}      {CBM-M}\                   /{CBM-G}
  120 print"J{SHIFT-*}K    {CBM-M} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-G}
  121 print"{SHIFT--} {SHIFT--}    {CBM-M} {CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M} {CBM-G}
  122 print"J{SHIFT-*}K    {CBM-M} {CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M} {CBM-G}
  123 print"U{SHIFT-*}I    {CBM-M} {CBM-G}{CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  124 print"{SHIFT--}      {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  125 print"{SHIFT--}      {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  126 print"U{SHIFT-*}I    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  127 print"J{SHIFT-*}I    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}N{CBM-T}{CBM-T}{CBM-T}M{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  128 print"J{SHIFT-*}K    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}N{CBM-T}M{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  129 print"U{SHIFT-*}I    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G} {CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  130 print"{SHIFT--} {SHIFT--}    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}M{CBM-@}N{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  131 print"J{SHIFT-*}K    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  132 print"U{SHIFT-*}I    {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  133 print"{SHIFT--}      {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  134 print"{SHIFT--}      {CBM-M} {CBM-G}{CBM-G}{CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  135 print"#28    {CBM-M} {CBM-G}{CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M}{CBM-M} {CBM-G}
  136 print"       {CBM-M} {CBM-G}{CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M}{CBM-M} {CBM-G}
  137 print"n 1    {CBM-M} {CBM-G}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-M} {CBM-G}
  138 print"o 9    {CBM-M} L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} {CBM-G}
  139 print"v 8    {CBM-M}/                   \{CBM-G}
  140 print"  1{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  141 print"{down}{rght}{rght}press {rvon}space{rvof} to see table of contents{home}
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"november, 1981",2,1,36,3,"#28",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover28!",5,3,"graphics by bob carr
  913 data4
  915 data4,3,"skeet!",5,3,"shoot the clay pigeons
  918 data4,3,"blasto!",5,3,"destroy the mines
  920 data4,3,"stop!",5,3,"capture three columns
  934 data4,3,"voz",5,3,"a chess puzzle
  935 data4,3,"flags",5,3,"practice semaphore
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1981"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 rem graphics by bobb carr
 1002 rem 3902 w rovey
 1003 rem phoenix az 85019
 1004 rem
 1009 gosub700:y=crt+17*wd+32:a=crt+10*wd+17
 1010 pokey,82:pokey-1,32:pokey+wd-1,32:pokey+wd,74
 1020 forx=1to6:c=peek(y):pokey,35:pokes,25-x:pokey,c:y=y-wd-1:next
 1030 forx=7to16:c=peek(y):pokey,35:pokes,25-x:pokey,c:y=y-1:next:pokes,0
 1040 b=7:gosub1120:b=15:a=a-wd*2-1:gosub1120:b=23:a=a-wd-2:gosub1120
 1050 b=31:a=a-wd*2-1:gosub1120
 1060 b=39:a=a-wd-2:gosub1120
 1070 b=47:a=a-wd*2-1:gosub1120
 1080 b=55:a=a-wd-2:gosub1120
 1090 b=63:a=a-wd*2-1:gosub1120
 1100 pokes,10:y=crt+wd*17+32:pokey,35:pokey-1,85:pokey+wd-1,74:pokey+wd,64
 1110 pokes,0:forx=1to300:gosub1150:next:goto1000
 1120 c=peek(a):forx=1tob:gosub1130:next:pokea,c:gosub1150:return
 1130 readd:ifabs(d)=40andwd=80thend=80*sgn(d)
 1140 e=peek(a+d):pokea,e:a=a+d:pokea,35:return
 1150 geta$:ifa$=" "thenprint"{clr}":poke59467,0:goto165
 1160 return
 1170 data1,1,40,40,-1,-1,-40
 1180 data40,40,40,40,1,1,1,1,-40,-40,-40,-40,-1,-1,-1
 1190 data1,1,1,1,1,1,40,40,40,40,40,40,-1,-1,-1,-1,-1,-1,-40,-40,-40,-40,-40
 1200 data40,40,40,40,40,40,40,40,1,1,1,1,1,1,1,1,-40,-40,-40,-40,-40,-40,-40
 1210 data-40,-1,-1,-1,-1,-1,-1,-1
 1220 data1,1,1,1,1,1,1,1,1,1,40,40,40,40,40,40,40,40,40,40,-1,-1,-1,-1,-1,-1,-1
 1230 data-1,-1,-1,-40,-40,-40,-40,-40,-40,-40,-40,-40
 1240 data40,40,40,40,40,40,40,40,40,40,40,40,1,1,1,1,1,1,1,1,1,1,1,1,-40,-40
 1250 data-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
 1260 data-1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,40,40,40,40,40,40,40,40,40,40,40,40
 1270 data40,40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-40,-40,-40,-40,-40,-40
 1280 data-40,-40,-40,-40,-40,-40,-40
 1290 data40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,40,1,1,1,1
 1300 data1,1,1,1,1,1,1,1,1,1,1,1,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40,-40
 1310 data-40,-40,-40,-40,-40,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1
 1320 crt=32768:cr$=chr$(13)
 1330 wd=40:pokecrt,96:if peek(crt+1024)<>96thenwd=80:printchr$(142);
 1340 return
    0 clr:poke59468,12
    1 rem cover29 copyright(c) 1982 the code works
    2 rem cursor #29 february 1982
    3 rem box 550,goleta,ca 93116
    4 :
    6 rem editorial director glen fisher
   10 rem as of 22feb82 rj
  100 crt=32768:ht=24:wd=40:print"{clr}"
  102 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#29
  139 print
  140 print"f 1
  141 print"e 9
  142 print"b 8
  143 print"  2
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1010
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,12,3,"february, 1982",2,1,36,3,"#29",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover29",5,3,"graphics by mark baker
  913 data4
  920 data4,3,"pong!",5,3,"four very fast games"
  922 data4,3,"clone",5,3,"they're out to get you"
  925 data4,3,"drone!",5,3,"fly - without a pilot"
  935 data4,3,"contact",5,3,"roll the dice"
  938 data4,3,"krypto",5,3,"find the function"
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,18,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1982"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1010 rem juggler
 1030 rem graphics by mark baker
 1040 rem 2969 kenmore
 1050 rem santa barbara ca
 1070 xx=rnd(-ti):print"{home}"
 1080 dimbp(31):e=2
 1090 b(0)=crt+wd*21+7:bp(0)=crt:x5(0)=crt+wd*5+28
 1100 gosub700:forq1=1to31:readqq:q4=int(qq/40):q5=qq-(q4*40)
 1105 bp(q1)=crt+wd*q4+q5+4:next
 1110 forq=1to9:readqq:q4=int(qq/40):q5=qq-(q4*40):b(q)=b(0)+wd*q4+q5:next
 1120 forq=1to6:readqq:q4=int(qq/40):q5=qq-(q4*40):x5(q)=32732+wd*q4+q5+(40-wd)
 1125 next
 1130 a$(1)="{down}{down}{down}{down}{left}{left}*{rvon}     {rvof}"
 1140 a$(2)="{down}{down}{down}{down}{left}{left}{rvon}     {rvof}*"
 1150 a$(3)="{rvon}M{CBM-*}{rvof}{down}{left}{left}{CBM-*}{rvon}M{CBM-*}{rvof}{down}{left}{left}{CBM-*}{rvon}M{CBM-*}{rvof}{down}{left}{left}{CBM-*}{rvon}M{CBM-*}{rvof}{down}{left}{left}{CBM-*}"
 1160 a$(4)="{rvon}{SHIFT-POUND}N{rvof}{down}{left}{left}{left}{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{down}{left}{left}{SHIFT-POUND}"
 1170 a$(5)="  {down}{left}{left}   {down}{left}{left}   {down}{left}{left}   {down}{left}{left} "
 1180 a$(6)="  {down}{left}{left}{left}   {down}{left}{left}{left}{left}   {down}{left}{left}{left}{left}   {down}{left}{left} "
 1190 a$(7)="{down}{down}{down}{down}{left}{left}      "
 1200 cr$="{home}{down}{down}{down}{down}{down}{down}{down}{down}"
 1210 :
 1220 ife<6then1245
 1230 e=2
 1245 vv=v
 1250 forq=1to9:x(q)=1:next:bp(0)=crt+25*wd:s$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1260 e=e+1:f=0:a=16:e1=int(31/e):r=1:g=0:q3=0:v=0:v1=0:ki=0
 1270 xx=rnd(1):t$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"+s$
 1280 ifxx<.4thenv=1
 1290 xx=10
 1300 printcr$;s$;a$(5);cr$;s$;a$(7);cr$;t$;a$(7);cr$;t$;a$(6)
 1310 ife<4thenforq=1to9:pokeb(q),81:next
 1330 print"{home}":gosub2050
 1340 ife>3andvv=0thenpokeb(1)-wd*3+17,81:forq=1to1000:next:pokeb(1)-wd*3+17,32
 1345 getx$:ifx$<>""then165
 1350 ife<4orvv=1thenforq=1to1000:next
 1360 gosub2200:gosub2340:gosub2200:gosub2050
 1370 pokeb(1)-3*wd+17,81:forq=1to1000:next:pokeb(1)-wd*3+17,32
 1380 printcr$"{down}{down}{down}{down}{down}";tab(a+2)"  {down}{left}{left}{left}   {down}{left}{left}{left}{left}   {down}{left}{left}{left}  "
 1390 printcr$"{down}{down}{down}{down}"tab(a+10)"  {down}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}   {down}{left}{left}{left}   "
 1400 :
 1420 gosub1740
 1425 getz1$:ifz1$<>""thenreturn
 1430 forq2=eto2step-1:goto1450
 1440 forq3=1toxx
 1450 forq=1toe1
 1455 getz1$:ifz1$<>""thenreturn
 1460 forq1=1tor
 1470 ifxx-q3<=ethenonv+1goto1640,1680
 1480 ifx(q1)=32thenx(q1)=1:pokebp(31),32
 1490 pokebp(x(q1)),81:pokebp(x(q1)-1),32
 1500 x(q1)=x(q1)+1
 1510 ifx(q1)=30thengosub1780
 1520 ifx(q1)=13thengosub1740
 1530 ifx(q1)=17thengosub1840
 1540 ifx(q1)=2thengosub1870
 1550 next
 1560 next
 1570 r=r+1:ifr>ethenr=e
 1580 ifq2=1then1600
 1590 gosub1780
 1600 next
 1610 iff=1then1210
 1620 f=1:goto1440
 1640 ifg=0then1660
 1650 ifx(q1)=1then1520
 1660 ifx(q1)<32then1490
 1670 x(q1)=1:pokebp(31),32:g=1:pokeb(1)-wd*7+18,81:goto1520
 1680 rem *** the stray ***
 1690 ifx(q1)=4thenv1=q1:goto1710
 1695 ifki=1thenpokecrt+6*wd+28,32
 1700 ifki=0orv1<>q1then1480
 1710 ki=ki+1:pokex5(ki),81:pokex5(ki-1),32:ifki=6then2490
 1720 goto1550
 1740 rem
 1750 printcr$;tab(a)a$(5)
 1760 printcr$;tab(a)a$(1)
 1770 return
 1780 ifxx-q3<=eandg=1thenreturn
 1790 printcr$;tab(a+12)a$(6)
 1800 printcr$;tab(a+12)a$(2)
 1810 pokeb(1)-wd*12+16,32
 1820 ifq2>1thenpokeb(1)-wd*7+18,81
 1830 return
 1840 printcr$;tab(a)a$(7)
 1850 printcr$;tab(a)a$(3)
 1860 return
 1870 printcr$;tab(a+12)a$(7)
 1880 printcr$;tab(a+12)a$(4)
 1890 pokeb(1)-wd*7+18,32
 1900 ifq2>1thenpokeb(1)-wd*12+16,81
 1910 return
 1920 :
 1930 data 346,305,264,223,181,179,178,176,214,253,292,331,370,410,490
 1940 data 330,291,252,213,174,136,138,139,141,183,224,265,306,347,427,507
 1950 data -74,-35,-34,-33,4,5,6,7,8
 1960 data 222,261,300,339,378,418
 1970 :
 1980 rem
 1990 ni(1)=bp(qi)-wd
 2000 ni(2)=ni(1)-1:ni(3)=ni(1)+wd-1:ni(4)=ni(1)+wd
 2010 forqq=1to4:pokeni(qq),160:next:fori=1to50:next
 2020 pokeni(1),124:pokeni(2),126:pokeni(3),123:pokeni(4),108:fori=1to50:next
 2030 forqq=1to4:pokeni(qq),46:next:fori=1to50:next:fori=1to4:pokeni(i),32:next
 2040 return
 2050 printcr$"{down}"
 2060 printtab(a)"      {rvon}..{rvof}
 2070 printtab(a)"      {rvon}JK{rvof}
 2080 printtab(a)"   {rvon}{SHIFT-POUND}      {CBM-*}{rvof}
 2090 printtab(a)"  {rvon}{SHIFT-POUND}N      M{CBM-*}{rvof}
 2100 printtab(a)" {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}      {rvof}{CBM-*}{rvon}M{CBM-*}{rvof}
 2110 printtab(a)"{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND} {rvon}      {rvof} {CBM-*}{rvon}M{CBM-*}{rvof}
 2120 printtab(a)"{rvon}N{rvof}{SHIFT-POUND}  {rvon}      {rvof}  {CBM-*}{rvon}M{rvof}
 2130 printtab(a)"   {rvon}{SHIFT-POUND}      {CBM-*}{rvof}
 2140 printtab(a)"   {rvon}   {rvof}{SHIFT-POUND}{CBM-*}{rvon}   {rvof}
 2150 printtab(a)"   {rvon}  {rvof}{SHIFT-POUND}  {CBM-*}{rvon}  {rvof}
 2160 printtab(a)"   {rvon}  {rvof}    {rvon}  {rvof}
 2170 printtab(a)"  {rvon}{SHIFT-POUND}  {rvof}    {rvon}  {CBM-*}{rvof}
 2180 return
 2190 forq=1to1000:next
 2200 printcr$+"{down}"
 2210 printtab(a)"     {rvon}. {rvof} "
 2220 printtab(a)"     {rvon}K {rvof} "
 2230 printtab(a)"    {rvon}{SHIFT-POUND}  {rvof}    "
 2240 printtab(a)"    {rvon}   {rvof}     "
 2250 printtab(a)"   {rvon}{SHIFT-POUND}N  {rvof}      "
 2260 printtab(a)"  {rvon}{SHIFT-POUND}N   {rvof}       "
 2270 printtab(a)" {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}   {rvof}       "
 2280 printtab(a)" {rvon}N{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}   {rvof}    "
 2290 printtab(a)"  {rvon}{SHIFT-POUND}    {rvof}    "
 2300 printtab(a)"  {rvon}  {rvof}{SHIFT-POUND}{rvon}  {rvof}    "
 2310 printtab(a)"  {rvon}  {rvof} {rvon}  {rvof}    "
 2320 printtab(a)" {rvon}{SHIFT-POUND}  {SHIFT-POUND}  {rvof}     "
 2330 return
 2340 printcr$+"{down}"
 2350 printtab(a)"          "
 2360 printtab(a)"          "
 2370 printtab(a)"          "
 2380 printtab(a)"  {rvon}. {rvof}     "
 2390 printtab(a)"  {rvon}K  {CBM-*}{rvof}   "
 2400 printtab(a)"   {rvon}   {CBM-*}{rvof}  "
 2410 printtab(a)"  {rvon}{SHIFT-POUND}N   {CBM-*}{rvof} "
 2420 printtab(a)" {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{CBM-*}{rvon}   {CBM-*}{rvof}   "
 2430 printtab(a)"{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}  {rvon}    {rvof}   "
 2440 printtab(a)"{rvon}N{rvof}{SHIFT-POUND}  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{rvon}  {rvof}   "
 2450 printtab(a)"    {rvon}  {rvof} {rvon}  {rvof}    "
 2460 printtab(a)"   {rvon}{SHIFT-POUND}  {SHIFT-POUND}  {rvof}     "
 2470 fori=1toe:pokeb(i),32:next
 2480 return
 2490 bp(0)=crt+9*wd+22
 2500 qi=0:gosub1980
 2510 printcr$;s$;a$(5);cr$;t$;a$(6)cr$;s$;a$(7);cr$;t$;a$(7)
 2530 printcr$"{down}{down}{down}"s$"{rght}{rght}{rght}{rvon}UI"
 2540 printcr$;:forq=1to8:prints$"{rght}{rght}             ":next:print"{up}{up}"
 2550 printcr$"{down}{down}{down}{down}{down}"
 2560 printtab(a)"      {rvon}..
 2570 printtab(a)"      {rvon}UI
 2580 printtab(a)"   {rvon}{SHIFT-POUND}      {CBM-*}{rvof}   "
 2590 printtab(a)"  {rvon}{SHIFT-POUND}N      M{CBM-*}{rvof}  "
 2600 printtab(a)" {rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}    {rvon}  {rvof}{CBM-*}{rvon}M{CBM-*}
 2610 printtab(a)"{rvon}{SHIFT-POUND}N{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}  {CBM-*}{rvon} {CBM-*}{rvof}{CBM-*}{rvon}M{CBM-*}
 2620 printtab(a)"{rvon}N{rvof}{SHIFT-POUND} {rvon}  {rvof}    {rvon}  {rvof} {CBM-*}{rvon}M
 2630 printtab(a)"  {rvon}{SHIFT-POUND}  {rvof}    {rvon}  {CBM-*}
 2640 forqi=1to31:ifpeek(bp(qi))<>32thengosub1980
 2660 next
 2670 forq=1to2000:next
 2680 printcr$;:forq=1to14:printtab(a)"                    ":next
 2690 forq=1to9:pokeb(q),81:next
 2700 goto1210
    0 clr:poke59468,12
    1 rem cover copyright(c) 1982 cursor magazine
    2 rem cursor #30 may, 82
    3 rem box 550, goleta,ca. 93116
    4 :
    6 rem editorial director - glen fisher
    8 rem asst. editors eric friesen, todd zimmermann
    9 rem
   10 rem as of 24may82
  100 crt=32768:ht=24:wd=40:print"{clr}"
  102 pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142)
  105 gosub700
  120 print"{clr}";
  121 print"U{SHIFT-*}I
  122 print"{SHIFT--}
  123 print"J{SHIFT-*}K
  124 print"{SHIFT--} {SHIFT--}
  125 print"J{SHIFT-*}K
  126 print"U{SHIFT-*}I
  127 print"{SHIFT--}
  128 print"{SHIFT--}
  129 print"U{SHIFT-*}I
  130 print"J{SHIFT-*}I
  131 print"J{SHIFT-*}K
  132 print"U{SHIFT-*}I
  133 print"{SHIFT--}{$a0}{SHIFT--}
  134 print"J{SHIFT-*}K
  135 print"U{SHIFT-*}I
  136 print"{SHIFT--}
  137 print"{SHIFT--}
  138 print"#30
  139 print
  140 print"m 1
  141 print"a 9
  142 print"y 8
  143 print"  2
  144 print
  150 print"  press {rvon}space{rvof} to see table of contents";
  155 gosub1000
  165 print"{clr}{down}{rght}cursor
  170 r=0:c=0:cd=0
  175 restore
  180 sw=1:rv=0
  200 ifti<tmthen220
  210 print"{home}{down}{rght}";mid$("{rvon}{rvof}",sw,1);"cursor":sw=3-sw:tm=ti+30
  220 oncd+2goto200,230,250,000,400,300,310
  225 remstop
  230 gosub800:ifcd=1orcd=6thengosub350:ifcd=6thenln=1:cd=1
  240 goto220
  250 pokecrt+wd*r+c,ch:r=r+rc:c=c+cc
  260 ln=ln-1:ifln=0thencd=0
  270 goto200
  300 r=r+1:c=1:cd=0:goto200
  310 c=10:cd=0:goto200
  350 ifch=148thench=34
  355 sh=chand128:ch=chand63:ifshthench=ch+64
  360 ifrvthench=ch+128
  370 return
  400 iflen(tx$)=0thencd=0:goto200
  410 ch=asc(tx$):gosub350:tx$=mid$(tx$,2,255)
  420 pokecrt+wd*r+c,ch:c=c+1:goto200
  700 restore
  710 gosub800:ifcd<>-1then710
  720 return
  800 readcd:oncd+2goto810,800,820,830,840,810,810,825
  810 return
  820 readrc,cc,ln,ch:return
  825 readrc,cc,ch:return
  830 readr,c:goto800
  840 readtx$:return
  850 readtx$:return
  900 data6,1,0,176,6,1,0,221,6,0,1,171,1,0,1,6,192,6,-1,0,189
  901 data6,-1,0,221,6,0,-1,174,1,0,-1,6,192
  902 data2,3,0,1,1,0,21,221,6,0,1,173,1,0,1,38,192,6,-1,0,189
  903 data1,-1,0,23,221,6,0,-1,174,1,0,-1,31,192,6,0,0,178
  905 data2,1,15,3,"may, 1982",2,1,36,3,"#30",2,2,0
  910 data4,3,"file",5,3,"description"
  911 data4,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}",5,3,"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  912 data4,3,"cover30",5,3,"graphics by brian sawyer
  913 data4
  915 data4,3,"dive",5,3,"dive for treasure
  920 data4,3,"slide",5,3,"catch the falling rocks
  921 data4,5,3,"(slide needs 4.0 roms)
  925 data4,3,"break",5,3,"can you break out?
  926 data4,5,3,"(break needs 40 col 4.0 roms)
  935 data4,3,"rebound",5,3,"test your reflexes
  938 data4,3,"zip",5,3,"control a strange robot
  945 data4,4
  950 data4,3,"cursor - box 550, goleta, ca 93116"
  955 data4
  960 data4,3,"to load a program: 1. press 'stop'"
  965 data2,19,20,3,"2. press 'clr'"
  970 data4,3,"then type: 'load {inst}name-of-program{inst}'"
  975 data4
  980 data4,3,"cursor(tm) - all programs{$a0}(c) 1982"
  985 data4,5,3,"all rights reserved.
  999 data-1
 1000 fort=1to3:reada,b
 1010 forn=atob:readc:poken,c:next:next
 1015 poke1002,1:poke884,wd
 1020 forln=3to6
 1040 q=~/9
 1050 sz=20
 1060 forp=1to6:ifp<>1then1100
 1080 forn=1toln:x(n)=cos(2*~*(n/ln))*sz:y(n)=sin(2*~*(n/ln))*sz:nextn
 1090 x(ln+1)=x(1):y(n+1)=y(1)
 1092 getz$:ifz$<>""thenreturn
 1100 forn=1toln
 1110 x1(n)=x(n):y1(n)=y(n)
 1120 nextn
 1130 forn=1toln
 1140 x(n)=+x1(n)*cos(q)+y1(n)*sin(q)
 1150 y(n)=-x1(n)*sin(q)+y1(n)*cos(q)
 1160 x(n)=int(x(n)):y(n)=int(y(n))
 1165 getz$:ifz$<>""thenreturn
 1170 next
 1180 x(ln+1)=x(1):y(ln+1)=y(1)
 1190 printc$;:forn=1toln
 1200 poke7900,x(n)+35:poke7901,y(n)+25
 1210 poke7902,x(n+1)+35:poke7903,y(n+1)+25
 1220 sys7550:next
 1230 geta$:ifa$<>""thenreturn
 1235 nextp:forg=1to2000::next
 1240 print"{home}";:forg=1to23:print"{rght}{rght}{rght}                                   "
 1250 nextg:nextln
 1260 goto1020
 1550 data 826, 970
 1560 data 206,232,3,206,233,3,169,1,141,235,3,24,78,232,3,144
 1570 data 5,169,2,141,235,3,24,78,233,3,144,17,174,235,3,169
 1580 data 4,141,235,3,224,1,240,5,169,8,141,235,3,162,0,173
 1590 data 232,3,160,128,236,233,3,240,12,105,40,232,144,1,200,24
 1600 data 236,233,3,208,244,133,0,132,1,160,0,162,1,177,0,221
 1610 data 180,3,240,10,232,224,16,240,3,76,137,3,162,0,138,162
 1620 data 1,236,234,3,240,11,44,235,3,240,15,237,235,3,76,174
 1630 data 3,13,235,3,170,189,180,3,145,0,96,126,124,226,123,97
 1640 data 255,236,108,127,225,251,98,252,254,160,213,167,246,247,246,214
 1650 data 244
 1660 data 7550, 7680
 1670 data 162,0,142,224,30,142,225,30,172,222,30,140,230,30,172,223
 1680 data 30,140,231,30,142,228,30,142,229,30,142,232,30,173,222,30
 1690 data 56,237,220,30,16,12,162,1,142,228,30,173,220,30,56,237
 1700 data 222,30,141,226,30,14,226,30,14,226,30,173,223,30,56,237
 1710 data 221,30,16,12,162,1,142,229,30,173,221,30,56,237,223,30
 1720 data 56,141,227,30,14,227,30,14,227,30,173,227,30,205,226,30
 1730 data 208,8,169,255,141,226,30,141,227,30,173,3,2,201,80,208
 1740 data 13,173,230,30,141,220,30,173,231,30,141,221,30,96,173,220
 1750 data 30,141,232
 1760 data 7681, 7790
 1770 data 3,173,221,30,141,233,3,32,58,3,173,221,30,205,223,30
 1780 data 208,5,169,1,141,232,30,173,220,30,205,222,30,208,11,173
 1790 data 232,30,201,1,208,1,96,76,78,30,173,226,30,24,109,224
 1800 data 30,144,16,174,228,30,238,220,30,224,0,240,6,206,220,30
 1810 data 206,220,30,141,224,30,173,232,30,201,1,240,154,24,173,227
 1820 data 30,109,225,30,144,16,174,229,30,238,221,30,224,0,240,6
 1830 data 206,221,30,206,221,30,141,225,30,76,232,29,32,32
   10 poke219,peek(59464):poke220,peek(59465):poke221,peek(514):poke222,peek(513)
   20 print"                                        "
   25 print"{clr}"
   28 printtab(5)"wilkommen zum computerspiel"
   30 printtab(10)"{down}{down}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   40 printtab(10)"{CBM-G} c r a s h {CBM-M}"
   50 printtab(10)"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   60 fori=1to3000:next
   70 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}kennen sie das spiel bereits ?  (j/n){down}{down}"
   80 geta$:ifa$=""then80
   90 ifa$="n"then130
  100 ifa$="j"then900
  110 print"{clr} bitte taste 'j' oder 'n' druecken !":goto80
  130 print"{clr}"
  140 print" O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  150 print" {CBM-G} s p i e l   -   a n l e i t u n g {CBM-M}"
  160 print" L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  170 print"{down}{down}{down}das spiel   {rvon}crash{rvof}   ist ein autorennen"
  180 print"{down}gegen den computer."
  190 print"{down}{down}{down}sowohl sie,als auch der computer,"
  200 print"{down}lenken ein auto."
  210 print"{down}sie haben das weisse fahrzeug({rvon} {rvof})"
  220 print"{down}der computer hat das graue fahrzeug ({CBM-+}){down}{down}"
  230 gosub6000
  240 print"{clr}das spielfeld besteht aus vier - inein-"
  250 print"{down}einandergaschachtelten - fahrbahnen."
  260 print"{down}{down}{down}auf jeder spielfeldseite sind die "
  270 print"{down}fahrspuren unterbrochen - hier koennen"
  280 print"{down}sie die fahrspuren,durch druecken be-"
  290 print"stimmter tasten wechseln."
  300 print"ihre aufgabe ist es einen {rvon}zuasammenstoss"
  310 print"mit dem computer-auto zu verhindern.{down}{down}{down}"
  320 gosub6000
  330 print"{clr}hier sind die tasten, mit dem  sie ihr"
  340 print"{down}auto  lenken koennen:"
  350 printtab(16)"{down}{down}{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}"
  360 printtab(16)"{SHIFT--}7{SHIFT--}{rvon}8{rvof}{SHIFT--}9{SHIFT--}"
  370 printtab(16)"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
  380 printtab(16)"{SHIFT--}{rvon}4{rvof}{SHIFT--}5{SHIFT--}{rvon}6{rvof}{SHIFT--}"
  390 printtab(16)"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
  400 printtab(16)"{SHIFT--}1{SHIFT--}{rvon}2{rvof}{SHIFT--}3{SHIFT--}"
  410 printtab(16)"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}"
  420 print,"{down}{down}taste","lenkung nach"
  430 print,"-----","------------{down}"
  440 print,"8","oben"
  450 print,"4","links"
  460 print,"2","unten"
  465 print,"6","rechts"
  470 gosub6000
  480 print"{clr}druecken sie eine taste {rvon}einmal{rvof},so"
  490 print"{down}wechseln sie {rvon}eine{rvof} fahrspur in die ent-"
  500 print"{down}sprechende richtung,die durch die ge-"
  510 print"drueckte taste bestimmt ist."
  520 print"{down}{down}{down}wird eine taste {rvon}zweimal{rvof} gedrueckt,"
  530 print"so werden {rvon}zwei{rvof} fahrspuren gewechselt.{down}{down}{down}{down}{down}{down}"
  540 gosub6000
  550 print"{clr}auf den fahrspuren befinden sich  "
  560 print"{down}{rvon}markierungspunkte{rvof},die durch das ueber-"
  570 print"{down}fahren mit ihrem fahrzeug geloescht "
  580 print"{down}werden"
  590 print"{down}{down}{down}das spiel ist zu ende,wenn sie alle"
  600 print"{down}punkte {rvon}geloescht{rvof} haben oder aber die"
  610 print"{down}{rvon}spielzeit{rvof} abgelaufen  ist.sie haben "
  620 print"{down}{rvon}1000{rvof} zeitenheiten zu  verfuegung.{down}{down}{down}{down}{down}"
  630 gosub6000
  640 print"{clr}wenn sie jetzt mit dem spiel  beginnen"
  650 print"{down}wollen so druecken sie bitte  die"
  660 print"{down}taste {rvon}space"
  670 print"{down}{down}{down}wenn sie die spiel-anleitung noch "
  680 print"{down}einmal lesen wollen, so druecken sie die"
  690 print"taste {rvon}return"
  756 geta$:ifa$=""then756
  757 ifa$<>" "then130
  758 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}und nun wuensche ich ihnen"
  759 printtab(12)"{down}{down}{down}{down}{down}{down}{rvon}viel vergnuegen !"
  800 for i=1to3000:next
  900 clr
  905 deffnm(x)=x-int(x/4)*4
  910 deffnr(x)=int(rnd(1)*x)
  920 restore
 1000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":a=32769:b=33729:z=36:v=4:poke59459,0
 1001 fori=1to4:forj=0toz:pokea+j,64:pokeb+j,64:pokea+40+j,46:pokeb-40+j,46:next j
 1002 z=z-4:a=a+82:b=b-78:nexti:forj=0toz:pokea+j,64:pokeb+j,64:nextj
 1003 a=32808:b=32846:z=22:fori=1to4:forj=0toz:pokea+j*40,93:pokeb+j*40,93
 1004 pokea+j*40+1,46:pokeb+j*40-1,46:nextj
 1005 z=z-4:a=a+82:b=b+78:nexti:forj=0toz:pokea+j*40,93:pokeb+j*40,93:nextj
 1006 a=32768:b=33728:z=38
 1007 fori=1to5:pokea,112:pokea+z,110:pokeb,109:pokeb+z,125:a=a+82:b=b-78
 1008 z=z-4:nexti
 1009 a=32866:b=33666:fori=1to3:forj=0to2:pokea+j,32:pokeb+j,32:nextj
 1010 a=a+80:b=b-80:nexti
 1011 a=33210:b=33244:fori=1to3:forj=0to2:pokea+j*40,32:pokeb+j*40,32:nextj
 1012 a=a+2:b=b-2:nexti
 1015 printtab(13)"{rvon}{up}zeit:"
 1020 dimr(3),k$(3):fori=0to3:readr(i),k$(i):nexti
 1030 data1,8,-40,4,-1,2,40,6
 1040 dimw(3,3):fori=0to3:forj=0to3:readw(i,j):nextj,i
 1050 data33707,33285,32827,33249,33627,33283,32907,33251
 1060 data33547,33281,32987,33253,33467,33279,33067,33255
 1064 ww=46:pu=0:t=999
 1065 pc=33175:rc=2:sc=2:tc=3:pp=33709:rp=0:sp=1:tp=0:v=3:p1=33709:yy=1
 1066 vv=3:l=3
 1070 ifpp=w(tp,sp)then gosub2000
 1075 ifv<3thenpp=pp+r(vp):v=v+1:goto1100
 1080 x=peek(pp+r(rp)):ifx=64orx=93thenrp=fnm(rp+1)
 1085 pp=pp+r(rp)
 1100 pokep1,32:ifpeek(pp)=46thenpu=pu+1
 1101 pokepp,160:p1=pp:ifpu=367then5000
 1199 ifpeek(pc)=160then4000
 1200 ifpc=w(tc,sc)thengosub3000
 1210 ifvv<lthenpc=pc+r(vc):vv=vv+1:goto1300
 1220 x=peek(pc+r(rc)):ifx=64orx=93thenrc=fnm(rc-1)
 1230 pc=pc+r(rc)
 1300 pokep2,ww:ww=peek(pc):pokepc,102:p2=pc
 1320 printtab(19)"{up}"t"{left} ":t=t-1:ift>0then1070
 1400 goto5000
 2000 geta$:y=y+1:ify=4then2030
 2010 ifa$=k$(sp)andtp<3thentp=tp+1:v=1:vp=fnm(rp+1):return
 2020 ifa$=k$(fnm(sp+2))andtp>0thentp=tp-1:v=1:vp=fnm(rp-1):return
 2030 geta$:geta$:y=1:sp=fnm(sp+1):return
 3000 yy=yy+1:ifyy=3orfnr(4)=0then3030
 3010 iftp-tc>1andfnr(3)>0thentc=tc+2:l=5:vv=1:vc=fnm(rc-1):return
 3020 iftc-tp>1andfnr(3)>0thentc=tc-2:l=5:vv=1:vc=fnm(rc+1):return
 3022 iftp>tcandfnr(2)=0thentc=tc+1:l=3:vv=1:vc=fnm(rc-1):return
 3024 iftc>tpandfnr(2)=0thentc=tc-1:l=3:vv=1:vc=fnm(rc+1):return
 3026 iftc>0andfnr(2)=0thentc=tc-1:l=3:vv=1:vc=fnm(rc+1):return
 3028 iftc<3andfnr(2)=0thentc=tc+1:l=3:vv=1:vc=fnm(rc-1):return
 3030 yy=1:sc=fnm(sc-1):return
 4000 cr=cr+1
 4010 fori=1to5:forj=1to200:nextj:printtab(13)"{up}   crash!!!":pokepc,32
 4020 forj=1to200:nextj:printtab(16)"{up}        ":pokepc,42:nexti
 4030 pokepc,32:pokepp,32
 4035 ifww=46thenpokepc,46
 4040 printtab(13)"{up}{rvon}zeit:":goto1065
 5000 printtab(13)"{up}{rvon}spiel zu ende!!"
 5010 fori=1to3000:nexti
 5020 print"{clr}"
 5025 print"{rght}{rvon}                                     "
 5030 print"{rght}{rvon}   s p i e l    -   e r g e b n i s  "
 5035 print"{rght}{rvon}                                     ":ift=0then5100
 5040 print"{down}{down}gratuliere,sie  haben alle markierungen"
 5050 print"geloescht"
 5060 print"{down}{down}{down}{rvon}anzahl der zusammenstoesse:{rvof}",cr
 5070 print"{down}{rvon}benoetigte zeit:{rvof}",,1000-t:goto5200
 5100 printtab(6)"{down}{down}die spielzeit ist abgelaufen"
 5110 print"{down}{down}{down}{rvon}anzahl der zusammenstoesse:{rvof}",cr
 5120 print"{down}{rvon}anzahl der geloeschten punkte:{rvof}",pu
 5200 print"{down}{down}{down}wollen sie noch einmal spielen ?        (j / n){down}{down}"
 5210 geta$:ifa$=""then5210
 5220 ifa$="j"then900
 5230 ifa$<>"n"thenprint"{up}bitte 'j' oder 'n' druecken!":goto5210
 5300 print"{clr}{down}{down}{down}auf wiedersehen{down}{down}{down}beim spiel{down}{down}{down}{rvon}crash{down}{down}{down}{down}{down}":end
 6000 print"{down}{rvon}zum weiterblaettern eine taste druecken"
 6001 geta$:ifa$=""then6001
 6002 return
    1 n$="commodore":hs=5000:ch=32:vc=33027:u=0:v(0)=77:v(1)=66:v(2)=78
    3 mc=59408:ma=59410:vu=59464:aa=244:ab=247:ac=243
    9 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}sound on pins {rvon}m{rvof} and {rvon}n{rvof} of user port":poke59464,0:s=0
   10 print"{home}{down}{down}do you want instructions?":print"{down}{down}e = end":forc=1to20:gett$:nextc
   11 m=32874:ml=0:gett$:ift$=""then11
   12 ift$="y"thenpokem,25:pokem+1,5:pokem+2,19:fori=1to500:nexti:gosub900:t$=""
   13 ba=4:sp=-.25:ift$<>""thenpokem,14:pokem+1,15:fori=1to500:nexti
   14 print"{clr}":ift$="e"thenpoke59466,255:poke59467,0:print"{clr}":poke537,133:end
   40 forc=0to2:poke59466,15:poke59467,16:nextc:poke537,133
   41 pokevu,0:gosub250:ng=1:ifba>0then50
   45 ba=4:ifs>hsthenhs=s:input"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}name{rght}{rght}{down}------------{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";n$
   46 iflen(n$)>12thenprint"{home}{down}{down}{down}{down}{down}{down}{down}name too long":hs=0:fore=1to500:nexte:goto45
   47 s=0:forc=0to255:poke59464,c:nextc:ng=0:lv=1:goto9
   50 l=.25:sp=-.25:r=0:p=33636:qq=33596:q=33596:pp=33636
   52 ifs>3999andml<.3thenl=.333333:gosub1300:ml=5:lv=2:goto93
   90 u=0:n(0)=-1:n(1)=0:n(2)=1
   91 ifs=0andba=4thenforc=255to0step-2:pokevu,c:nextc:pokevu,0:lv=1
   93 ifs>3999thenl=.333333:lv=2:ifs>5999thenpoke32977,42:lv=3
   94 ifs>6999thenpoke33467,42:lv=4
   95 ifs>7999thenpoke33264,42:lv=5
   96 ifs>8999thenlv=6:gosub700
   97 zz=1000:ifba=0then45
   98 forc=1to12:getw$:nextc:r%=0
   99 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}level{down}{left}{left}{left}{left}{left}{left}"lv
  100 gosub1100:pp=p:qq=q:q=p-40.5+u:p=p+r%
  105 ifsx<>sthengosub800
  110 ifr%<>0thenpokevu,1
  120 sx=s:pokevu,0:zz=zz-1:ifzz<100thenzz=100
  125 ifkj%=1andkk%=1thenbe%=1
  128 h=int(u+1.5):pokevu,0:q=p-40+n(h)
  130 cj%=peek(p+r):ck%=peek(q+r):ch%=peek(p):ci%=peek(q)
  131 ifcj%=102orck%=102thenr%=-r%:u=0:p=p+2*r%:q=p-40:h=1:pokevu,32
  132 ifch%=100orci%=100thenpn=p:go%=1:s=s+zz
  134 ifch%=67orci%=67thens=s+100:kj%=1
  135 u=u+l:ifu>1oru<-1thenu=u-l:l=-l
  136 ss=vc:ifch%=100orci%=100thenpokeq,96:pokeqq,96:k=q-pn+p:pokek,87
  137 ifpp<>pthenpokepp,96
  138 vc=vc+sp:ifpeek(vc+sgn(sp))=42thensp=.75-sp
  139 ifss<>vcthenpokess,96:pokevc,90
  140 a1=int(p):a2=int(q):a3=int(vc):ifa1=a3ora2=a3then500
  145 ifch%=104orci%=104thens=s+150:kk%=1
  150 pokeq,87:ifq<>qqthenpokeqq,96
  155 if(ch%=32orci%=32)andr%<>0thens=s+1
  160 ifch%=100orci%=100thenpokepp,96:pokep,v(h):goto1400
  170 pokep,v(h):ifch%=42orci%=42then500
  180 ifr%=0thenth=th+1:ifth=>15then500
  190 ifr%<>0thenth=0
  200 goto100
  250 ifba=0thenng=0
  255 ifba=0thenreturn
  275 ifng=0thenforc=32768to33728step40:pokec,96:pokec+39,96:nextc
  280 ifng=0thenforc=32768to32807:pokec,96:pokec+960,96:nextc:ng=1
  299 print"{home}score"s:print"{home}"tab(24-len(n$));n$:print"{home}"tab(25);hs
  300 print"{home}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       ":gosub2000
  301 print"{CBM-+}*****************************{CBM-+}       "
  302 print"{CBM-+}**       ******          ****{CBM-+}"
  303 print"{CBM-+}*         ****            ***{CBM-+}   c"
  304 print"{CBM-+}    **                    ***{CBM-+}   r"
  305 print"{CBM-+}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-+}**           *****   ***{CBM-+}   a"
  306 print"{CBM-+}{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}{CBM-+}***        ********   **{CBM-+}   z"
  307 print"{CBM-+}goal{CBM-+}*******C***********   **{CBM-+}   y"
  308 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}***       ********   ***{CBM-+}"
  309 print"{CBM-+}******          *******   ***{CBM-+}   b"
  310 print"{CBM-+}*****            ****     ***{CBM-+}   a":kj%=0:kk%=0:be%=0
  311 print"{CBM-+}****      ***             ***{CBM-+}   l"
  312 print"{CBM-+}***      *****           ****{CBM-+}   l"
  313 print"{CBM-+}***     *******        ******{CBM-+}   o"
  314 print"{CBM-+}***     ***********{CBM-POUND}*********{CBM-+}   o":
  315 print"{CBM-+}***      *********  *********{CBM-+}   n"
  316 print"{CBM-+}****      ********  *********{CBM-+}"
  317 print"{CBM-+}****        ***       **{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  318 print"{CBM-+}*****                 {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}
  319 print"{CBM-+}******                {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}
  320 print"{CBM-+}********        ****  {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}":zz=1000
  321 print"{CBM-+}********************* {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}"
  322 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":printba"  balloons left{home}"
  340 pokevu,0:print"{home}";
  350 forc=1to24:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
  360 nextc:print"{home}";:forc=1to10:print"{home}score{rvon}"s:print"{home}score"s
  400 nextc:print"{home}score"s:return
  500 ba=ba-1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"ba"{home}":pokevu+2,144
  510 pokeq,160:pokep,40:forx=40to100step7:pokevu,x:pokeq,42:nextx:pokep,40
  515 forx=101to160step6:pokevu,x:pokeq,43:nextx:th=0
  520 forx=161to200step5:pokevu,x:pokeq,58:nextx:pokevu,0
  590 be=0:pokep,32:pokeq,32:goto40
  700 rs=0:print"{home}";
  703 forc=1to24:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
  704 forcc=1to10:nextcc:nextc:print"{home}{down}"
  705 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}random"
  706 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}stars"
  710 forc=8999tosstep1000
  720 z=1000*rnd(ti)+32768
  725 ifpeek(z)<>32then720
  727 rs=rs+1:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}"rs
  730 pokez,160:form=200to100step-10:pokevu,m:nextm:pokez,42
  740 pokevu,0:forcc=1to50:nextcc,c:print"{home}";:lv=lv+int(rs/2):return
  800 print"{home}score"s
  810 ifs-sx>50thenforc=255to0step-15:pokevu,c:nextc:pokevu,0:sx=s:goto820
  815 pokevu,100
  820 return
  900 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} instructions {rvof}":poke59468,14:pokevu,0
  901 iffre(o)<1500thenpoke59468,14:goto1200
  905 print"{down}{down}Move the swaying balloon to the Goal,
  910 print"{down}   but avoid the  Prickly Stars
  915 print"{down} to prevent your balloon bursting.
  916 print
  920 print"{down}   Passing through lines scores :-"
  925 print"{down}{down}{CBM-POUND}      = 150 points
  930 print"{down}{SHIFT-*}      = 100 points
  935 print"{down}{SHIFT-*} + {CBM-POUND}  = 250 points + BONUS 500 at GOAL"
  937 print"{down}      {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  940 print"      {rvon} press a key to continue {rvof}"
  942 gett$:ift$=""then942
  945 poke59468,12:print"{clr}{down}   use number keys to move
  948 print"{down}{down}                    a
  949 print"         4+8  O     B     P  6+8
  950 print"               M    B    N
  951 print"                \   8   /
  952 print"{down}{down}             <{SHIFT-*}{SHIFT-*}4   N {up}{left}W{down}  6{SHIFT-*}{SHIFT-*}>
  953 print"{down}{down}                /   2   \
  954 print"               N    B    M
  955 print"         4+2  L     B     {SHIFT-@}  6+2
  956 print"                    v
  957 print"    the balloon will burst if it
  960 print"{down} remains still for 5 or more seconds"
  963 print"{down}        {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  965 print"        {rvon} press a key to play {rvof}"
  990 getw$:ifw$=""then990
  995 return
 1100 poke537,136:poke59411,60
 1110 x=0:y=0:pokemc,aa:n%=peek(ma)
 1120 if(n%and64)=0thenx=-1:goto1130
 1125 if(n%and128)=0thenx=1
 1130 pokemc,ab:if(peek(ma)and64)=0theny=40:goto1150
 1140 pokemc,ac:if(peek(ma)and64)=0theny=-40
 1150 poke59411,61:poke537,133:r%=x+y:pokema+1,61:return
 1200 print"{down}{down}mOVE THE SWAYING BALLOON TO THE gOAL,
 1210 print"{down}   BUT AVOID THE  pRICKLY sTARS
 1215 print"{down} TO PREVENT YOUR BALLOON BURSTING.
 1220 print"{down}   pASSING THROUGH lINES SCORES :-"
 1225 print"{down}{down}{CBM-POUND}      = 150 POINTS
 1230 print"{down}{SHIFT-*}      = 100 POINTS
 1235 print"{down}{CBM-POUND} + {SHIFT-*}  = 250 POINTS + bonus 500 AT goal"
 1237 print"{down}      {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1240 print"      {rvon} pRESS A KEY TO CONTINUE {rvof}"
 1241 print"      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto942
 1300 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}extra"
 1305 forz=1to7:poke59464,0:forc=1to99:nextc:pokevu,50:forc=1to99:nextc,z
 1310 pokevu,0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}goal{CBM-+}"
 1320 ba=ba+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"ba"{home}":return
 1400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}goal":print"{up}{up}{rght}"zz:sx=s:gosub800
 1420 forcc=1to5:forc=250to50step-4:pokevu,c:nextc:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}    "
 1430 pokek,87:forc=50to250step4:pokevu,c:nextc:pokek,81
 1450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}goal":nextcc:ifbe%=0then40
 1460 pokevu,0:forc=1to999:nextc:pokevu+2,144
 1470 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}bonus":print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}500"
 1480 be%=0:kj%=0:kk%=0:forc=255to0step-1:pokevu,c:nextc:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}bonus"
 1500 forc=255to0step-1:pokevu,c:nextc:s=s+500:sx=s:pokevu,0:gosub800:goto40
 2000 forc=1to10:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
 2010 nextc:print"{home}{down}":return
 3000 rem **********************
 3010 rem **********************
 3020 rem **********************
 3030 rem **********************
  100 print" cross ref":print"v1.1   jim butterfield"
  115 w=06
  120 close1:input"name of program";n$
  130 open1,8,3,n$+",p,r":get#1,x$,y$:ifx$<>chr$(1)goto120
  190 sys2716:close1:input"printer";z$:p=3:ifasc(z$)=89thenp=4:w=11
  200 open4,p:print#4,"cross-ref: ";n$:poke190,w:sys3183:print#4:close4
    1 rem crossword puzzle
    2 :
    3 rem    this program was written
    4 rem     under a grant from the
    5 rem  ontario ministry of education
    6 rem   experience '81 project
    7 rem   wentworth county board of
    8 rem         education
    9 rem  program coordinators-
   10 rem    don wood  and  neal reid
   11 :
   12 rem pet 16k and printer
   13 :
   14 rem modified for softswap by j lewis
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--}       san mateo county      {SHIFT--}
   23 rem"{SHIFT--}     office of education     {SHIFT--}
   24 rem"{SHIFT--}             &               {SHIFT--}
   25 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   26 rem"{SHIFT--}                             {SHIFT--}
   27 rem"{SHIFT--}          softswap           {SHIFT--}
   28 rem"{SHIFT--}                             {SHIFT--}
   29 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   30 rem"{SHIFT--}ca  94063      (415) 363-5472{SHIFT--}
   31 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   32 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   33 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   34 rem"{SHIFT--} educational use only and    {SHIFT--}
   35 rem"{SHIFT--} are not to be sold.         {SHIFT--}
   36 rem"{SHIFT--} copyright 1983    cue inc.  {SHIFT--}
   37 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   49 goto101
   50 rem"{CBM-I}{CBM-I}{CBM-I}input routine
   51 deffnz(z)=peek(196)+256*peek(197)+peek(198):poke158,0:zz$="":poke167,0
   52 getz$:ifz$=""orz$="{clr}"orz$="{home}"orz$="{down}"orz$="{up}"orz$="{rght}"orz$="{left}"orz$="{inst}"then52
   53 ifz$=chr$(13)thenpoke167,1:pokefnz(z),32:z$=zz$:print:goto57
   54 if(zz$=""andz$=chr$(20))then51
   55 ifzcandlen(zz$)>zc-1thengosub58:goto51
   56 zz$=zz$+z$:zz$=left$(zz$,len(zz$)+(chr$(20)=z$)*2):printz$;:goto52
   57 zc=0:return
   58 forzx=1tozc:printchr$(20);:next:return
   59 rem"{CBM-I}{CBM-I}{CBM-I}get routine
   60 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$=""then60
   61 ifzc$<>""thenforzx=1tolen(zc$):zf=zf+zx*-(z$=mid$(zc$,zx,1)):next:ifzf=0then60
   62 zc$="":zf=0:return
  101 rem main line
  105 rem goto130
  110 gosub 10000
  120 gosub  9000
  130 gosub  1000
  135 rem gosub4010
  140 gosub  8000
  200 :
  210 gosub 11000
  220 gosub 2500
  230 gosub  3000
  235 print "{home}                                       "
  238 if nf<>0 then print "{home}        ";nf;"word(s) didn't fit"
  240 poke 216,2 : print "{up}        press {rvon}p{rvof} to print puzzle"
  250 poke 216,25 : print "{up}  press {rvon}a{rvof} for a different arrangement{home}"
  255 get a$ : get a$ : get a$
  260 get a$ : if a$="" goto 260
  270 if a$="a" goto 200
  280 if a$<>"p" goto 260
  400 :
  410 open 1,4 : open 2,4,5 : open 6,4,6
  420 for io=0 to 1
  425 print#6,chr$(18)
  430 poke 216,25 : print "{up}";bl$;"{home}"
  435 if io=0 then print "{home}                answers               "
  437 if io=1 then print "{home}                puzzle                "
  440 print "      insert paper and press {rvon}return{rvof}"
  450 get g$ : get g$ : get g$
  460 get g$ : if g$<>chr$(13) goto 460
  500 :
  510 print "{home}";bl$
  520 print "       printing                        "
  530 gosub 13000 print crossword grid
  531 print#6,chr$(32)
  535 gosub5000
  540 if io=0 then poke 216,25 : print "{up}         answers completed           {home}"
  550 next io
  560 poke 216,25 : print "{up}           puzzle completed       {home}"
  980 close 1 : close 2 : close 6
  990 close6: end
 1000 :
 1001 rem input words and definitions
 1002 dim w$(25), d$(25)
 1005 i=0
 1010 print"{clr}";
 1015 print"title  "; : zc=38: gosub50   : tl$=z$
 1017 print"{clr}";
 1030 i=i+1
 1035 if i<1theni=1
 1040 print : print "word no.";i" "; : gosub 50   : w$(i)=z$:b$=z$
 1045 if b$="^" then i=i-1 : goto 1035
 1050 if b$<>""then1055
 1051 print"{up}done? (y/n)        {left}{left}{left}{left}{left}{left}{left}";
 1052 zc$="yn":gosub60:ifz$="y"thenn=i-1:fl=0:return
 1053 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}                 {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}";:goto1035
 1055 for j=1 to len(w$(i))
 1056 if mid$(w$(i),j,1)<"a" or mid$(w$(i),j,1)>"z" then fa=1 : j=len(w$(i))
 1057 next j
 1058 if fa=1 then fa=0 : gosub 1150 : goto 1040 redo word
 1060 print : print "definition no.";i
 1065 print"     ";:zc=74:gosub50
 1070 b$=z$      : if b$="^"then i=i-1 : goto1035
 1075 ifb$=""thenprint"{up}";:goto1051
 1080 d$(i)=b$
 1090 if len(d$(i))>74thenprint"{down}the definition is too long" : i=i-2
 1100 if i<20 then 1030
 1110 n=20:return
 1150 print : print "letters only please!"
 1160 return
 2500 :
 2501 rem poke first word
 2510 for k=0 to n : dr(k)=0 : next
 2520 d(1)=1 : d(2)=40
 2525 k=int((n-1)*rnd(0))+2
 2530 w$=w$(1) : w$(1)=w$(k) : w$(k)=w$
 2535 d$=d$(1) : d$(1)=d$(k) : d$(k)=d$
 2540 t=1 : w$=w$(t) : lw=len(w$)
 2550 k=int( 2*rnd(0))+1 : dr(t)=d(k)
 2560 x=int(18*rnd(0))+9 : if k=1 and x+lw>30 goto 2560
 2570 y=int(10*rnd(0))+6 : if k=2 and y+lw>19 goto 2570
 2580 lc=32768+40*y+x
 2590 gosub 7000 poke word
 2599 return
 2800 :
 2801 rem prompt to enter ditto
 2810 poke 216,25 : print "{up}";bl$;"{home}";bl$
 2820 print "      insert paper and press {rvon}return{rvof}"
 2830 get g$ : get g$ : get g$
 2840 get g$ : if g$<>chr$(13) goto2840
 2850 return
 3000 :
 3001 rem make crossword
 3010 t=t+1 : u=0
 3020 for c=1 to n : if dr(c)<>0 then u=u+1 : g(u)=c : next c
 3030 for i=1 to u :s=1+int(u*rnd(1)) :gg=g(i) :g(i)=g(s) :g(s)=gg :next i
 3100 :
 3110 w$=w$(t) : lw=len(w$) : nf=nf+1
 3130 print "{home}       ";w$;"           "
 3170 for c=1to u : e=g(c) : c$=w$(e)
 3190 for l=1 to lw      : z1$= mid$(w$,l,1)
 3210 forzq=1 to len(c$) : z2$= mid$(c$,zq,1)
 3220 if z1$ <> z2$ then 3370
 3240 if dr(e)=40 then dr(t)=1
 3250 if dr(e)=1 then dr(t)=40
 3280 lc= lo(e) +dr(e)*zq -dr(t)* l
 3281 if lc<32895 then 3370
 3282 if lc+lw*dr(t)>33640 then 3370
 3284 wt=peek(lc)
 3285 if wt<27then3360
 3286 if peek(lc+(lw+1)*dr(t))<27 then3360
 3290 pokelc ,102
 3301 :
 3305 o=0
 3310 for v=1 to lw
 3315 q0=lc+v*dr(t) : wi=peek (q0) : poke q0,102 : pokeq0,wi
 3317 if dr(t)=40 then 3322
 3318 if peek(q0+40)<>32 and fq%(q0+40-ad)=dr(t) then 3345
 3319 if peek(q0-40)<>32 and fq%(q0-40-ad)=dr(t) then 3345
 3320 goto 3324
 3322 if peek(q0 +1)<>32 and fq%(q0 +1-ad)=dr(t) then 3345
 3323 if peek(q0 -1)<>32 and fq%(q0 -1-ad)=dr(t) then 3345
 3324 for y=1 to u : if dr(y)=dr(t) then 3327
 3325 if q0=lo(y)then o=1 :y=u :goto3327
 3326 if q0=lo(y)+dr(y)*(len(w$(y))+1) then o=1 :y=u
 3327 next y
 3328 if o=1 goto 3345
 3340 if wi<>32 and wi<> asc( mid$(w$,v,1))-64 then 3345
 3344 goto 3350
 3345 v=lw : o=1
 3350 next v
 3355 if o=0 then gosub 7000 : nf=0 :zq=len(c$) : l=lw : c=u
 3360 poke lc,wt
 3370 nextzq,l,c
 3410 if nf=0 goto 3490
 3420 if n-u=nf goto 3499
 3430 w$=w$(u+1) : d$=d$(u+1)
 3440 for c=u+2 to n : w$(c-1)=w$(c) : d$(c-1)=d$(c) : next c
 3475 w$(n)=w$ : d$(n)=d$
 3480 goto 3100
 3490 if t<n goto 3000
 3499 return
 4000 :
 4010 open6,4,6 : print#6,chr$(18):return
 4500 q$(sc)=q$(sc)+left$(l$,1)+chr$(254)+" ":sc=sc+1
 4530 fori=1tolen(q$(sc-1)):q$(sc)=q$(sc)+" ": next i
 4540 return
 5000 :
 5001 rem  print students' copy
 5030 print# 1,chr$(19)
 5040 print#1, spc(34);chr$(1);"across"
 5060 print#1, spc(34);chr$(1);"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 5080 for i=1 to a
 5090 print#1,na(i);" ";da$(i)
 5110 next i
 5111 print#1
 5120 print#1,spc(36);chr$(1);"down"
 5130 print#1,spc(36);chr$(1);"{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 5150 for i=1 to d
 5160 print#1,nd(i);" ";dd$(i)
 5180 next i
 5200 return
 6000 :
 6001 rem   input data
 6010 gosub50:b$=z$
 6020 if b$="e" then fl=1
 6030 return
 7000 :
 7001 rem poking the word
 7010 for i=1 to lw : poke lc+i*dr(t) , asc (mid$ (w$,i,1))-64
 7020 fq=lc+i*dr(t)-32768 : fq%(fq)=dr(t)
 7030 nexti
 7040 cf=lc+dr(t) : cl=lc+lw*dr(t)
 7050 c0= 40*int(cf/40) : cf=cf-c0
 7060 c1= 40*int(cl/40) : cl=cl-c1 :c1=c1+40
 7070 if c0<ub then ub=c0
 7080 if c0>lb then lb=c0
 7090 if c1<ub then ub=c1
 7100 if c1>lb then lb=c1
 7150 lo(t)=lc
 7160 return
 8000 :
 8001 rem set up
 8020 dim lc(25),dr(25),lo(25),g(25),fq%(1000),a$(19),da$(25),dd$(25)
 8025 dim tb(25),q$(25),na(25),nd(25)
 8030 qz= rnd (rnd (-ti^3)) : rem seed random generator
 8040 ad=32768
 8050 bl$="                                       "
 8400 :
 8410 for j=0to9
 8420 for i=1 to 8 : read a : a$(j)=a$(j)+chr$(a) : next i
 8425 a$(j+10)=chr$(124)+chr$(0)+left$(a$(j),6)
 8430 next j
 8480 ub=lc : lb=lc+dr(t)*(len(w$)+1)
 8490 return
 8500 data 56,68,68,56,0,0,0,0
 8510 data 124,0,0,0,0,0,0,0
 8520 data 36,76,84,36,0,0,0,0
 8530 data 0,68,84,104,0,0,0,0
 8540 data 24,40,124,8,0,0,0,0
 8550 data 116,84,84,72,0,0,0,0
 8560 data 56,84,84,72,0,0,0,0
 8570 data 64,76,80,96,0,0,0,0
 8580 data 40,84,84,40,0,0,0,0
 8590 data 36,84,84,56,0,0,0,0
 9000 :
 9001 rem instructions
 9010 print"{clr}do you want instructions (y/n)  ";:zc$="yn":gosub60
 9020 if z$="n"then 9310
 9024 print"{clr}";tab(12)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(12)"{rvon}crossword puzzle"
 9030 print"{down}crossword puzzle allows the user to make";
 9040 print"{down}a crossword puzzle."
 9060 print : print : print"as soon as you run the program the "
 9070 print"{down}computer will ask you to enter words and";
 9080 print"{down}their corresponding definitions.  always";
 9090 print"{down}end the current line you're typing in by";
 9100 print"{down}pressing the <return> key."
 9110 gosub 9500
 9120 print"{clr}there are editing features in this"
 9130 print"program which make it easier to use."
 9180 print:print:print"to correct the previous line entered hit";
 9190 print"<return> before typing anything else."
 9200 print:print:print"when you have finished entering all "
 9210 print"of your names and definitions type {rvon}e{rvof} and";
 9220 print"<return>."
 9230 gosub9500
 9240 print"{clr}when you enter a word for the puzzle you";
 9250 print"{down}must use letters only.  definitions may"
 9255 print"{down}contain any character found on the pet"
 9270 print"{down}keyboard.  the definition may be up to"
 9280 print"{down}two lines long."
 9285 print"{down}{down}the program can handle up to 19 words   {down}and their definitions."
 9290 gosub9500
 9310 return
 9500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}press {rvon}return{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} to continue ";
 9510 zc$=chr$(13):gosub60
 9520 return
 10000 :
 10001 rem title
 10010 print"{clr}";
 10020 poke216,12 : printtab(12);"{up}";
 10030 tt$="crossword puzzle"
 10040 for i=1tolen(tt$)
 10050 print"{CBM-+}";
 10060 fork=1to50 : next
 10070 print"{left}";mid$(tt$,i,1);
 10080 next i
 10085 print
 10090 poke216,18
 10100 return
 11000 :
 11020 print "{clr}{rvon}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}";
 11030 fori=1 to 26 : print"{CBM-I}"; :next :print"{CBM-F}{left}{down}";
 11040 for i=1to18 : print"{CBM-K}{left}{down}"; :next :print"{CBM-V}{left}{left}{rvof}";
 11050 for i= 1to 25 :print"{CBM-I}{left}{left}"; :next:print"{rvon}{CBM-C}{rvof}{left}{up}";
 11060 for i=1to18 :print"{CBM-K}{left}{up}"; :next:print"{rvon}{CBM-D}{rvof}"
 11070 return
 11090 end
 13000 :
 13001 rem print crossword grid
 13020 print#1, spc(40-int(len(tl$)/2));chr$(1);tl$
 13030 print#1 : print#1
 13040 a=0 : d=0 : cw=0 : ee=0
 13100 :
 13110 for r=4 to 22
 13120 for i=1 to sc :q$(i)="" :next
 13130 p$="" : r$="" : sc=1 : e=0
 13140 print "{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";r-3
 13200 :
 13210 for c=7 to 32
 13220 xx=ad+40*r+c : x=peek(xx)
 13230 if x>26 goto 13700  not a letter
 13300 :
 13310 p$=p$+"{SHIFT-+}{SHIFT-*}{SHIFT-*}" : fs=0 : e=1
 13320 for i=1 to n
 13330 if lo(i)+dr(i)<>xx goto 13370
 13340 if dr(i)=1  then a=a+1 : na(a)=cw+sc : da$(a)=d$(i) :
 13350 if dr(i)=40 then d=d+1 : nd(d)=cw+sc : dd$(d)=d$(i)
 13360 fs=1
 13370 next i
 13400 :
 13410 if fs=0 then q$(sc)=q$(sc)+"{SHIFT--}  " : goto 13500
 13420 q$(sc)=q$(sc)+"{SHIFT--}"+chr$(254)+" "
 13430 sc=sc+1 : tb(sc)=3*(c-6)
 13500 :
 13510 if io=1 then r$=r$+"{SHIFT--}  " : goto 13900
 13520 r$=r$+"{SHIFT--} "+chr$(x+64) : goto 13900
 13700 :
 13710 y=peek(xx-1) :zq=peek(xx-40) : v=peek(xx-41)
 13720 ifzq<27 then p$=p$+"{SHIFT-+}{SHIFT-*}{SHIFT-*}" : goto 13800
 13730 if v>26 and y>26 then p$=p$+"   " : goto 13800
 13740 p$=p$+"{SHIFT-+}  "
 13800 :
 13810 if y<27 then q$(sc)=q$(sc)+"{SHIFT--}  " : r$=r$+"{SHIFT--}  " : goto 13900
 13820 q$(sc)=q$(sc)+"   " : r$=r$+"   "
 13900 :
 13910 next c
 13915 if e+ee=0 goto 13960
 13920 ee=1 : print#1, p$
 13930 gosub 14000 print q$
 13940 print#1, r$
 13950 cw=cw+sc-1
 13955 if e+ee=1 then r=22
 13960 next r
 13990 return
 14000 :
 14010 if sc=1 goto 14060
 14020 for i=1 to sc-1
 14030 print#2, a$(cw+i)
 14040 print#1, tab(tb(i));q$(i);chr$(141);
 14050 next i
 14060 print#1, tab(tb(sc));q$(sc)
 14070 return
  100 print"curve fit       jim butterfield"
  120 input"{down}want instructions";z$
  130 if asc(z$)=78 goto 200
  140 print"{down}this program fits 6 different types"
  150 print"of curves to your data."
  155 print"{down}data is input as a series of x,y points"
  160 print"e.g., 15,7 represents x=15,y=7"
  165 print"{down}after you have entered all points,"
  170 print"enter 0,0 to signal end-of-data"
  180 print"{down}{rvon}zero or negative values are not allowed"
  190 print"{down}curves are fitted by least-squares rule{down}"
  200 dim x(50),y(50),a(5),b(5),c(5)
  210 dim d(5),e(5),f(5),g(5),h(5),i(5)
  220 dim l$(5),m$(5),r(5)
  230 l$(0)="1.a+b*x":m$(0)="linear"
  240 l$(1)="2.a*exp(b*x)":m$(1)="exponential"
  250 l$(2)="3.a*x^b":m$(2)="power"
  260 l$(3)="4.a+(b/x)":m$(3)="hyperbolic"
  270 l$(4)="5.1/(a+b*x)":m$(4)=m$(3)
  280 l$(5)="6.x/(a*x+b)":m$(5)=m$(3)
  290 def fnt(z)=int(z*1e6+.5)/1e6
  300 n=0
  310 print"input x,y points:"
  320 for j=n to 50
  330 input x(j),y(j)
  340 if x(j)>0andy(j)>0then nextj
  350 n=j
  360 fork=0to5:e(k)=0:f(k)=0:g(k)=0
  370 h(k)=0:i(k)=0:next k
  380 forj=0ton-1
  390 x=x(j):c(0)=x:c(1)=x:c(4)=x
  400 c(2)=log(x):c(3)=1/x:c(5)=1/x
  410 y=y(j):d(0)=y:d(3)=y:z=log(y)
  420 d(1)=z:d(2)=z:z=1/y:d(4)=z:d(5)=z
  430 for k=0to5
  440 x=c(k):y=d(k):e(k)=e(k)+x
  450 f(k)=f(k)+x*x:g(k)=g(k)+x*y
  460 h(k)=h(k)+y:i(k)=i(k)+y*y:next k,j
  470 print"{rvon} curve       a         b      coeff of"
  480 print"{rvon}  y=         =         =     determtion"
  490 fork=0to5
  500 e=e(k):b(k)=(n*g(k)-e*h(k))/(n*f(k)-e*e)
  510 a(k)=h(k)/n-b(k)*e/n
  520 r(k)=(n*g(k)-e*h(k))*b(k)/(n*i(k)-h(k)*h(k))
  530 a=a(k):ifk=1ork=2thena=exp(a)
  540 printl$(k);tab(12);fnt(a);
  550 printtab(22);fnt(b(k));
  560 printtab(31);int(r(k)*1e4+.5)/1e4
  570 next k
  580 def fny(z)=z:deffnx(z)=z
  590 input"equation code";e
  600 e=e-1:ife<0ore>5goto5000
  610 if e=1ore=2thendeffny(z)=exp(z)
  620 if e=4ore=5thendeffny(z)=1/z
  630 if e=2thendeffnx(z)=log(z)
  640 if e=3ore=5thendeffnx(z)=1/z
  650 printleft$(l$(e),2);"y=";mid$(l$(e),3);
  660 print" is a ";m$(e);" function"
  680 print"{rvon}x-actual y-actual y-calc    pct diff"
  690 forj=0ton-1
  700 printx(j);tab(7);y(j);tab(14);
  710 v=fny(a(e)+b(e)*fnx(x(j)))
  720 p=int((y(j)-v)*1000/v)/10
  730 printint(v*1e5+.5)/1e5;tab(30);p
  740 next j
  750 print
  760 goto 580
 5000 rem  end
    0 clr:poke59468,12
    1 rem copyright(c) 1980 dave goforth
    2 rem 329-22 st e
    3 rem prince albert sask canada
    4 :
    5 rem cursor #20, may 1980
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 6 jun 80
   90 pg$="curves":nm$="20":gosub62000
  100 dimpc(15):fori=0to15:readpc(i):nexti
  120 data32,123,108,98,126,97,127,252,124,255,225,254,226,236,251,224
  125 m$="{up}{$a0}          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  130 q1=33267:q0=32768
  150 g=7/6
  160 pr$="{clr}press {rvon}return{rvof} for menu
  200 print"{clr}{down}
  220 print"{down}     {rvon}h{rvof}ypocycloids
  240 print"{down}     {rvon}t{rvof}rigonometric loops
  250 print"{down}     {rvon}q{rvof}uit
  300 print"{down}pick one: ";:gosub60000:y$=left$(in$,1)
  310 ify$="h"then1000
  320 ify$="t"then3000
  330 ify$="q"then4000
  340 print"try again":goto 300
 1000 print"{clr}hypocycloids{down}{down}
 1210 print"{down}radius of outer wheel: ";:gosub60000:ro=val(in$)
 1215 ifro<>int(ro)thenprint"{down}integers only.":goto1210
 1220 ifro>=2then1250
 1230 print"{down}outer wheel must have a radius of 2":print"or more.":goto1210
 1250 print"{down}radius of inner wheel: ";:gosub60000:ri=val(in$)
 1260 if ri<>int(ri) thenprint"{down}integers only.":goto1250
 1265 ifri>=rothenprint"{down}inner wheel must be smaller than";ro:goto1250
 1270 ifri>=1then1300
 1275 print"{down}inner wheel must have a radius of 1":print"or more.":goto1250
 1300 print"{down}how far from the center of the inner":print"wheel is the pencil? ";
 1310 gosub60000:rp=val(in$)
 1315 ifin$=""thenrp=ri:print"{down}i'll put it on the edge.":fort=1to400:nextt
 1320 if rp<0 then print"{down}that doesn't make sense.":goto1300
 1330 if rp>ri then print"{down}{left}";ri;"or less, please.":goto1300
 1350 p=ri:n=ro
 1360 t=int(p/n):z=p-t*n:ifz<>0thenp=n:n=z:goto1360
 1370 ri=ri/n:ro=ro/n:rp=rp/n
 1410 rm=ro-(ri-rp)
 1430 p=ro
 1440 n=ri
 1445 d=~/int(60+60/n)
 1500 t1=1-ro/ri:t2=ro-ri
 1505 printpr$
 1510 fori=0to2*n*~stepd
 1515 ii=i*t1
 1520 y=12*(t2*cos(i)+rp*cos(ii))/rm
 1530 x=14*(t2*sin(i)+rp*sin(ii))/rm
 1534 gety$:ify$=cr$then200
 1540 gosub5000
 1550 nexti
 1555 print"{down}{down}done.
 1560 gety$:ify$<>cr$then1560
 1570 goto200
 3000 print"{clr}{down}trigonometric function plotting
 3010 print"{down}using polar coordinates.
 3020 print"{down}{down}the general formula is
 3025 print"    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 3030 print"    {rvon}r = f ( m * a )
 3040 print"{down}you can choose {rvon}f{rvof}{up}{left}{CBM-@}{down} (the function), and
 3050 print"{down}{rvon}m{rvof}{up}{left}{CBM-@}{down} (the multiplier). {rvon}a{rvof}{up}{left}{CBM-@}{down} is the angle.
 3100 print"{down}{down}you can choose the function from:
 3110 print"{down}   1) sine";tab(20);"4) cosecant
 3120 print"{down}   2) cosine";tab(20);"5) secant
 3130 print"{down}   3) tangent";tab(20);"6) cotangent
 3200 print"{down}enter number: ";:gosub60000
 3210 n=val(in$):if n<1 or n>6 then print"type a number from 1 to 6.":goto3200
 3220 ifn<>int(n)then print"integers only.":goto3200
 3230 print"{down}the multiplier affects the size and
 3240 print"{down}number of the loops.
 3250 print"{down}pick a multiplier: ";:gosub60000:w=val(in$)
 3260 ifw<=0thenprint"positive numbers only, please.":goto3250
 3280 printpr$
 3320 a=0:d=~/90:mx=14:my=12
 3321 ifn>2thenmx=7:my=6
 3322 d=d/w
 3330 onngosub3910,3920,3930,3940,3950,3960
 3344 gety$:ify$=cr$then200
 3350 x=mx*r*cos(a):y=my*r*sin(a):ifabs(x)<19andabs(y)<12thengosub5000
 3360 a=a+d
 3370 gety$:ify$<>cr$then3330
 3380 goto200
 3910 r=sin(a*w):return
 3920 r=cos(a*w):return
 3930 ifint((2*a*w)/~)=(2*a*w)/~thenr=0:return
 3931 r=tan(a*w):return
 3940 r=sin(a*w):ifr=0thenr=10000:return
 3941 r=1/r:return
 3950 r=cos(a*w):ifr=0thenr=10000:return
 3951 r=1/r:return
 3960 ifint((2*a*w)/~)=(2*a*w)/~thenr=0:return
 3961 r=1/tan(a*w):return
 4000 end
 5000 ix=int(x):iy=int(y)
 5010 c=1:ifix-int(x+.5)thenc=2
 5020 ifiy-int(y+.5)thenc=c*4
 5050 cl=q1+ix-40*iy:cv=peek(cl)
 5055 pokecl,(cv+128)and255
 5060 forj=0to15
 5070 ifcv=pc(j)then5100
 5080 nextj:pokecl,cv:return
 5100 pokecl,pc(j or c)
 5120 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by dave goforth{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}presenting pleasing plotted patterns
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 getz$:ifz$=""then62090
 62100 print"{clr}":clr:cr$=chr$(13):goto100
   10 rem** pet dactetris  version 1.3 **
   20 rem** by tim howe, march 2010    **
   30 rem** compiled with cc65 v2-12-0 **
   40 sys(1153)
    1 print"{clr}";
    4 poke59459,3:poke59471,3
    5 rem dam buster
    6 rem by evan williams
    7 rem 924 dog creek road
    8 rem williams lake,b.c. canada v2g 3g6
   10 print"             dam  buster
   15 print"{down}bust the dam with your bombs but watch"
   20 print"{down}{down}out for anti-aircraft fire.";
   25 print"  you have{down}{down}   three aircraft.  one will";
   30 print" keep making{down}{down}   bomb runs until all are";
   35 print" shot down or{down}{down}    you bust the dam.";
   38 print" to drop a bomb press{down}{down}  space"
   40 print"{down}{down}{down}{down}{down}to play press space "
   45 geta$:ifa$=""goto45
   90 print"{clr}"
  100 fori=1to12:print:next
  119 print"           NN
  120 print"          {rvon}{$a0} {$a0}{CBM-*}{rvof}
  122 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}
  123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}
  124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}
  125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}
  126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}
  127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}"
  128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
  129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
  200 print"{home}"
  250 ac=0
  300 c=33299:g=0
  380 b=(int(rnd(1)*12))*40
  400 a=32807+b
  450 rem  main movement loop
  460 rem  a=aircraft  c=cannon  d=bomb
  500 fori=1to40
  505 c=c-38:ifpeek(a)<>32orpeek(a+1)=124goto700
  510 pokea+1,32: pokea,120:pokec+38,32:pokec,124
  515 ifc<a-40 thenpokec,32: c=33299
  518 poke33299,78:poke33300,78
  520 a=a-1:poke33299,78:poke33300,78
  521 geta$:ifa$<>""thenk=1:poke59471,2
  523 ifk=1thend=d+40:ifpeek(a+1+d)=102thenk=0
  524 ifk=1andpeek(a+1+d)<>32thenpokea+1+d,32:gosub900: k=0:ifpeek(a+d)=102goto1000{CTRL-D}{CTRL-D}k
  525 ifk=1thenpokea+1+d,123:pokea+1+d-39,32:ifa+1+d>33600thenk=0
  526 pokea+d-38,32:p=d:ifk=0thend=0
  528 poke59471,3
  530 next
  535 k=0:d=0
  540 pokea+1+p,32
  545 pokea+1,32:poke33368,102
  600 goto380
  650 rem  aircraft explosion sequence
  700 pokea+1+d,32
  703 pokea+1,32
  705 pokea,42:pokea+40,42:pokea-40,42:pokea+1,42:pokea-1,42:gosub850
  710 pokea,32:pokea+40,32:pokea-40,32:pokea+1,32:pokea-1,32
  715 pokea,42:pokea+41,42:pokea-41,42:pokea+39,42:pokea-39,42:gosub850
  718 pokea,32:pokea+41,32:pokea-41,32:pokea+39,32:pokea-39,32
  720 pokea+40,34:gosub850
  725 pokea+40,32
  730 pokea+80,61:gosub850
  735 pokea+80,32
  740 pokea+120,43:gosub850
  745 pokea+120,32
  750 pokea+160,42:gosub850
  755 pokea+160,32
  760 pokea+200,110:gosub850
  765 pokea+200,32
  770 pokea+240,34 :gosub850
  775 pokea+240,32
  780 pokea+280,61 :gosub850
  785 pokea+280,32
  790 pokea+320,43 :gosub850
  795 pokea+320,32
  800 pokea+360,42 :gosub850
  805 pokea+360,32
  810 pokea+400,61 :gosub850
  814 remark: the 'get y$' commands soak up any extra key pushes
  815 pokea+400,32:gety$:gety$:gety$:g=1
  816 gosub850
  817 gosub850
  818 gosub850
  819 gosub850
  820 ac=ac+1
  821 gosub850
  822 gosub850
  823 gosub850
  824 remark:the gosubs allow the bomb to  continue falling after the debris ends
  825 ifac=3thenprint"{home}you just lost your third aircraft":goto10160
  830 goto300
  840 rem this subroutine allows bomb to continue falling after plane is hit
  850 ifk=1thend=d+39:ifpeek(a+1+d)=102thenk=0
  855 poke59471,0
  860 ifk=1andpeek(a+1+d)<>32thenpokea+1+d,32:k=0:ifpeek(a+d)=102goto1000
  870 ifk=1thenpokea+1+d,123:pokea+1+d-39,32
  873 fori=1to90 :nexti
  875 pokea+d-38,32:p=d
  878 poke59471,1
  880 ifk=0thend=0:ifg=1thenreturn
  887 ifa+d>33600thenk=0
  890 return
  900 poke59471,0:poke59471,2:poke59471,1 :poke59471,2:poke59471,3:return
 1000 print"{home}";:poke59471,3
 1010 pokea+1,32
 1020 pokea+1+p,32
 1030 pokec,32
 1100 fori=1to13:print:next
 1119 print"           NN
 1120 print"           {CBM-*}{SHIFT-POUND}
 1122 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}{rvon}{cyn}{rvof}
 1123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{rvof}
 1124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{$a0}{rvof}
 1125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}    {CBM-*}{rvof}
 1126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{$a0}{rvof}  {rvon} {CBM-*}{rvof}"
 1127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon} {rvof}  {rvon} {rvof} {rvon} {rvof}  "
 1128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}         {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 1129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 2000 print"{home}";
 2100 fori=1to13:print:next
 2119 print"            NN
 2120 print"     dam buster
 2122 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 2123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}V
 2124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}V
 2125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}V   M
 2126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-+}{CBM--}    {rvof}
 2127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  V V  "
 2128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}         {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 2129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 3000 print"{home}";
 3100 fori=1to13:print:next
 3119 print"                "
 3120 print"                 "
 3122 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-*}NN
 3123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}V
 3124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}V
 3125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}V   M
 3126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon} {rvof} {rvon}  {rvof}"
 3127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--} V V  "
 3128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}         {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 3129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 4000 print"{home}";
 4100 fori=1to13:print:next
 4119 print"                "
 4120 print"                 "
 4122 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}   "
 4123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}
 4124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}
 4125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}  M
 4126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--} VV
 4127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}V V  "
 4128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}      {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 4129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 5000 print"{home}";
 5100 fori=1to13:print:next
 5119 print"                "
 5120 print"                 "
 5122 print"                 "
 5123 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}
 5124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 5125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--} M
 5126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} VV
 5127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} V  "
 5128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}    {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 5129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 6000 print"{home}";
 6100 fori=1to13:print:next
 6119 print"                "
 6120 print"                 "
 6122 print"                 "
 6123 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}
 6124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}
 6125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 6126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 6127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--} "
 6128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon} {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 6129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 7000 print"{home}";
 7100 fori=1to13:print:next
 7119 print"                "
 7120 print"                 "
 7122 print"                 "
 7123 print"                   "
 7124 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}
 7125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 7126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 7127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--} "
 7128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 7129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 8000 print"{home}";
 8100 fori=1to13:print:next
 8119 print"                "
 8120 print"                 "
 8122 print"                 "
 8123 print"                   "
 8124 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}
 8125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 8126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}help
 8127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}Q{SHIFT-*}{CBM-X}
 8128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 8129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 9000 print"{home}";
 9100 fori=1to13:print:next
 9119 print"                "
 9120 print"                 "
 9122 print"                 "
 9123 print"                   "
 9124 print"                      "
 9125 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 9126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 9127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 9128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 9129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 10000 print"{home}";
 10100 fori=1to13:print:next
 10119 print"                "
 10120 print"                 "
 10122 print"                 "
 10123 print"                   "
 10124 print"                      "
 10125 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}";
 10126 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 10127 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 10128 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 10129 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 10140 gety$:gety$:gety$
 10150 print"{home}you got the dam"
 10160 print"{down}would you like another game? (y/n)"
 10170 get a$:ifa$=""goto10170
 10175 ifa$="n"thenprint"{down}thanks for playing":printtab(35)"{up}{up}{up}no{down}{down}{down}{down}":end
 10180 run
    0 clr:poke59468,12
    1 rem dance! copyright (c) 1980 bob carr
    2 rem 957 e. washington
    3 rem el cajon, ca. 92020
    4 :
    5 rem cursor #21, month, 1980
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 80 aug 1
   90 pg$="dance!":nm$="21":gosub62000
  100 a$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}"
  110 b$="{CBM-Q}I{left}{left}{down}{CBM-L}{rvon}{CBM-N}{rvof}{left}{left}{down}{CBM-N}{CBM-K}{left}{down}{CBM-K}{left}{down}{rvon}{CBM-C}{rvof}{left}{left}{up}{up}{up}{up}"
  120 c$="{CBM-Q}I{left}{left}{down}{CBM-L}{rvon}{CBM-N}{rvof}{left}{left}{down}{CBM-N}{rvon}{CBM-C}{rvof}{CBM-F}{left}{left}{down}{CBM-K}{rvon}{CBM-C}{rvof}{left}{left}{down}{rvon}{CBM-C}{rvof}{left}{left}{up}{up}{up}{up}"
  130 d$="  {left}{left}{down}  {left}{left}{left}{down}    {left}{left}{left}{left}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{left}{down}  {left}{left}{up}{up}{up}{up}"
  140 e$="U{CBM-W}{left}{left}{down}{rvon}{CBM-H}{rvof}{CBM-J}{left}{left}{down}{rvon}{CBM-K}{rvof}{CBM-H}{left}{left}{down}{rvon}{CBM-K}{left}{down}{CBM-V}{rvof}{left}{up}{up}{up}{up}"
  150 f$="U{CBM-W}{left}{left}{down}{rvon}{CBM-H}{rvof}{CBM-J}{left}{left}{left}{down}{CBM-D}{rvon}{CBM-V}{rvof}{CBM-H}{left}{left}{left}{down}{rvon}{CBM-V}{CBM-K}{left}{down}{CBM-V}{rvof}{left}{up}{up}{up}{up}"
  160 g$="{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {left}{down} {left}{down} {left}{down}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{left}{down}{CBM-*}{rvon}{CBM-*}{rvof}{left}{down}{CBM-*}{rvon}{CBM-*}{rvof}{left}{left}{down}"
  170 g$=g$+"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{down}{rvon} {left}{down} {left}{down} {left}{down} "
  180 g$=g$+"{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{left}{left}{left}{rvon}{CBM-P}{CBM-Y}{CBM-P}{CBM-T}{rvof}"
  190 h$="{left}{left}{left}{left}     {left}{up}  {left}{up}  {left}{up}  {left}{up}{CBM-@}{left}{up} {left}{up}{CBM-@}{left}{up} {left}{up}  {left}{up}  {left}{up}  {left}{up}  {left}{left}{up}  {left}{left}{left}{up}  {left}{left}{left}{up}  "
  200 h$=h$+"{left}{left}{up} {left}{up} {left}{up}{CBM-+}"
  210 i$="{left}{left}{rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-V}{rvof}{CBM-K}{left}{left}{up}{rvon}{CBM-H}{rvof}{CBM-K}{left}{left}{up}U{CBM-W}"
  220 j$="{left}{left}{left}{left}{down}{down}{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{rvon}{CBM-U}{CBM-Y}{rvof}I"
  230 kk$="{CBM-Q}I{left}{left}{down}{CBM-L}{rvon}{CBM-N}{rvof}{left}{left}{down}{CBM-N}{rvon}{CBM-C}{rvof}{CBM-F}{left}{left}{left}{left}{down}{rvon}{CBM-K}{CBM-I}{rvof}{CBM-V}{rvon}{CBM-C}{rvof}{left}{left}{left}{up}{up}{up}"
  240 k$="{CBM-Q}I{left}{left}{down}{CBM-L}{rvon}{CBM-N}{rvof}{left}{left}{down}{CBM-N}{CBM-K}{left}{left}{left}{down}{rvon}{CBM-K}{CBM-I}{rvof}{CBM-K}{left}{down}{rvon}{CBM-C}{rvof}{left}{left}{up}{up}{up}{up}"
  250 l$="U{CBM-W}{left}{left}{down}{rvon}{CBM-H}{rvof}{CBM-J}{left}{left}{down}{rvon}{CBM-K}{rvof}{CBM-H}{left}{left}{down}{rvon}{CBM-K}{CBM-I}{rvof}{CBM-K}{left}{left}{left}{down}{rvon}{CBM-V}{rvof}{left}{up}{up}{up}{up}"
  260 ll$="U{CBM-W}{left}{left}{down}{rvon}{CBM-H}{rvof}{CBM-J}{left}{left}{left}{down}{CBM-D}{rvon}{CBM-V}{rvof}{CBM-H}{left}{left}{left}{down}{rvon}{CBM-V}{rvof}{CBM-C}{rvon}{CBM-I}{rvof}{CBM-K}{left}{left}{left}{up}{up}{up}"
  270 m$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N{left}{down}M{down}{CBM-G}{left}{down}M{down}{CBM-G}{left}{left}{down}NM{left}{left}{down}M{CBM-M}{left}{left}{down}N{rght}M{down}{CBM-G}{left}{down}M"
  280 n$="{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {left}{down} {down} {left}{down} {down} {left}{left}{down}  {left}{left}{down}  {left}{left}{down} {rght} {down} {left}{down} "
  290 readaa,bb:forz=aatobb:readw:pokez,w:next
  300 f=33665:g=33654:h=33047:s=59464:poke59467,16:poke59466,15:pokes,0:t=59468
  310 print"{clr}{down}{down}{down}{down}{down}{down}"tab(25)"O{CBM-G}
  320 printtab(24)"N L   {CBM-M}P
  330 printtab(23)"{SHIFT-@}  {CBM-M}P  {CBM-M}{CBM-M}
  340 printtab(23)"{CBM-G}   {CBM-M}  N{CBM-M}
  350 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}L"spc(18)"{CBM-G}    MN {CBM-M}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  360 print"    {CBM-G}L"spc(16)"N      M {CBM-M}
  370 print"     {CBM-G}{CBM-G}"spc(13)"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}{CBM-@} M{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  380 print"      {CBM-G}"spc(11)"N{CBM-T}{CBM-T}{CBM-T}{CBM-G}    {CBM-M}   M     M
  390 print"      M"spc(10)"N    M    {CBM-M}    {CBM-T}M
  400 print"       M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N      {CBM-G}    M     M
  410 print"        M     {CBM-@}N       M     M     M
  420 printtab(9)"M{CBM-@}{CBM-@}{CBM-@}"spc(17)"M{CBM-@}
  430 printtab(13)"M"spc(21)"V  V
  440 printtab(27)"U{CBM-W}     N{SHIFT--}MN:M
  450 printtab(27)"{up}{rvon}{CBM-H}{rvof}{CBM-K}    N  N
  460 print"    {CBM-Q}I           U{CBM-W}   U{CBM-W}U{CBM-W} {rvon}{CBM-K}{rvof}{CBM-H}   N  N  :
  470 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}{CBM-G}{CBM-*}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}{CBM-V}{CBM-M}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}{SHIFT-POUND}{CBM-N}{SHIFT-POUND}{CBM-M}{rvof}{SHIFT-*}{rvon}{CBM-K}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}N  N )(:
  480 print"    {rvon}  {CBM-V}{rvof}      {$a0} {$a0}{rvon}{CBM-C}u {rvof}  {rvon}{CBM-C}    {rvof} {rvon}{CBM-V}{rvof}  N  N   {CBM-M}{CBM-*}
  490 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}";:poke33767,120:x=5
  500 forw=1tox:pokeh,32:pokeh-1,32:h=h-41:gosub1330:pokeh,73
  510 pokeh-1,85:gosub1330:pokeh,75:pokeh-1,74:gosub1330:next
  520 ifw=12then580
  530 forw=1to8:pokeh,32:pokeh-1,32:gosub1330:h=h-1:pokeh,73
  540 pokeh-1,85:gosub1330:pokeh,75:pokeh-1,74:gosub1330:next
  550 forw=1to10:pokeh,32:pokeh-1,32:h=h+39:gosub1330:pokeh,73
  560 pokeh-1,85:gosub1330:pokeh,75:pokeh-1,74:gosub1330:next
  570 x=11:goto500
  580 pokeh,32:pokeh-1,32
  590 gosub1350:forw=1to10:pokef,255:pokes,100:pokes,0:forx=1to60:next
  600 pokef,127:forx=1to50:next:next
  610 printa$d$"{down}{down}{down}{down}   {left}{left}{left}{up}{up}{up}{up}"b$;:gosub1350:print"{down}{rght}{rvon}{CBM-C}{rvof}{CBM-H}";:pokes,50
  620 pokes,0:gosub1360:printspc(19)"{CBM-N}{rvon}{CBM-V}{rvof}":pokes,150:pokes,0
  630 gosub1340:print"{up}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-N}{rvof} "spc(19)" {rvon}{CBM-H}{rvof}"a$;:pokes,10:pokes,0
  640 gosub1350:forx=1to10:pokef,255:pokes,100:pokes,0:forw=1to60:next
  650 pokef,127:forw=1to50:next:next
  660 forw=1to3:pokef,255:printc$d$b$;:pokes,150:pokes,0:pokef,127:forx=1to25
  670 next:printc$;:pokes,150:pokes,0:forx=1to25:next
  680 printd$b$;:pokes,150:pokes,0:forx=1to25:next:next
  690 forw=1to3:gosub1350:pokef,255:printc$d$b$;:pokes,150:pokes,0
  700 forx=1to25:next:pokef,127:printc$;:pokes,150:pokes,0:pokef,255:printd$b$;
  710 pokes,150:pokes,0:forx=1to25:next:next
  720 forz=1to8:forx=1to6:printd$c$;:gosub760:printd$b$;:gosub760:next
  730 printd$"{rght}";:dd=dd+1:next:ff=0:forz=1to8
  740 forx=1to6:printd$e$;:gosub800:printd$f$;:gosub800:next
  750 printd$"{left}";:dd=dd-1:next:printe$f$:sys826:sys826:goto870
  760 pokef,255:ifff>25thenforw=1to30:next:goto830
  770 ifx=2orx=6thenprintd$k$;:pokef,127:pokes,150:pokes,0:ff=ff+1:return
  780 ifz=2andx=4orz=6andx=4thenpokes,100:pokes,0:printd$kk$d$b$;:pokes,150
  790 pokes,0:goto830
  800 pokef,255:ifff>25thenforw=1to25:next:goto830
  810 ifx=2orx=6thenprintd$l$;:pokef,127:pokes,150:pokes,0:ff=ff+1:return
  820 ifz=2andx=4orz=6andx=4thenpokes,100:pokes,0:printd$ll$d$e$;:pokes,150
  830 pokes,0:readaa,bb:cc=cc+.5:ee=100:ifbb=1thenbb=102:goto850
  840 bb=104:ifcc>50thenprintm$:sys826:sys826:printn$a$spc(dd);:ee=30
  850 ifcc=int(cc)thenpokef,127
  860 forw=1toee:next:poke32767+aa,bb:forw=1toee:next:pokes,aa:pokes,0:return
  870 forx=1to2:sys826:sys826:printg$;:sys826:sys826:poke59467,0:forw=1to25
  880 poket,194:poket,12:next:printh$:printa$d$k$d$l$d$k$d$l$d$b$d$kk$:pokef,254
  890 printg$;:sys826:sys826:forw=1to25:poket,194:poket,12:next:next
  900 poke59467,16:poke59466,15:pokes,0:printh$:printa$d$k$d$l$d$k$d$ll$d$"{down}{down}"i$;
  910 printa$"  {left}{left}{down}  {left}{left}{left}{left}{down}    "j$"{home}":gosub1350
  920 restore:forw=1to26:readaa:next:forw=1to140step.5:xx=w/29
  930 ifw=int(w)thengosub970:gosub1030
  940 readaa,bb:poke32767+aa,32:next
  950 goto1090
  960 printa$tab(26)"{down} {left}{down} {home}":gosub1340
  970 ifw=80thenprinta$"{down}{down}{down}{down}{left}     {left}{left}{left}{left}"i$:ee=0:return
  980 ifw=100thenprinta$"{down}{down}{down}{down}{left}{left}    {up}{left}{SHIFT-*}{SHIFT-*}{up}{left}{left}  "a$e$:ee=0:return
  990 ifw=120thenprinta$d$b$:ee=0:return
 1000 ifw<>130thenreturn
 1010 forx=1to5:pokef,255:printa$d$c$d$b$;:pokef,127:pokes,150
 1020 pokes,0:next:pokef,254:print:return
 1030 printa$tab(26)"{down}F{left}{down}{CBM-T}{up}{up}{left}{left}M{up}";:pokes,5:pokes,0:print"{left}{left}{left}{left}clap":w=w+.5
 1040 forx=1toee:next:printa$tab(26)"{down}{CBM-P}{left}{down} {up}{up}{left}{left} {up}";:ee=40
 1050 pokes,10:pokes,0:print"{left}{left}{left}{left}    ":ifxx<>int(xx)then1080
 1060 poke59466,85:forz=80to30step-1:pokes,z:next:forz=80to30step-2:pokes,z
 1070 next:forz=30to130step3:pokes,z:next:pokes,0:poke59466,15
 1080 return
 1090 gosub1360:printa$d$"{down}{CBM-P}{CBM-O}{CBM-R}{left}{left}{left}{down}{rvon}{CBM-D}{CBM-P}{rvof}K{left}{left}{left}{down}{CBM-K}{left}{down}{rvon}{CBM-C}{rvof}":forx=1to2000:next
 1100 printa$d$"{down}   {left}{left}{left}{down}   {left}{left}{left}{down} {left}{down} "a$b$;
 1110 gosub1340:print"{down}{rght}{rvon}{CBM-C}{rvof}{CBM-H}";:pokes,50:pokes,0
 1120 gosub1360:printspc(19)"{CBM-N}{rvon}{CBM-V}{rvof}":pokes,150:pokes,0
 1130 gosub1340:print"{up}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-N}{rvof} "spc(19)" {rvon}{CBM-H}{rvof}"a$;:pokes,10:pokes,0
 1140 gosub1350:printd$"{down}{down}{CBM-Q}I{left}{left}{down}{rvon}{CBM-H}{CBM-*}{left}{left}{down}  {CBM-*}{rvof}";:gosub1340
 1150 print"{up}{up}{left}N{up}next{left}{left}{left}{left}";:poke59466,85:forx=100to50step-1:pokes,x
 1160 next:forx=50to100:pokes,x:next:forx=100to10step-2:pokes,x
 1170 next:poke59467,0:print"    {left}{left}{left}{left}{left}{down} ":forx=1to6000:next
 1180 print"{clr}"a$spc(13)"the end{down}{down}":poke59467,0:end
 1190 data826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
 1200 data200,208,247,232,224,132,208,240,96,0000
 1210 data114,1,115,1,116,1,117,1,125,2,126,1,127,1,128,1,129,1,130,1,131,1,31,2
 1220 data155,1,156,2,167,2,168,2,169,1
 1230 data170,1,171,1,172,1,173,1,174,1,175,1,176,1,177,1,178,1,179,1,180,1
 1240 data69,1,70,1,71,1,72,1,73,1,74,1,75,1,76,2,86,2,87,1,88,1,89,1
 1250 data143,1,144,1,145,1,146,1,147,1,148,1,90,1,102,1,151,1,152,1,153,1,154,1
 1260 data149,1,91,1,92,1,93,1,94,1,95,1,96,1,97,1,98,1,99,1,100,1,101,1,150,1
 1270 data51,1,103,1,104,1,105,1,106,1,107,1,108,1,109,1,110,1,111,1,112,1,113,1
 1280 data25,1,26,2,29,2,30,1,33,1,45,2,46,1,47,1,48,2,49,2,50,1,52,1,53,1,54,1
 1290 data55,1,56,1,13,1,14,1,15,1,16,1,17,1,18,1,19,2,20,2,21,1,22,1,23,2,24,2
 1300 data11,2,12,2,57,1,58,1,59,1,60,1,61,1,62,1,63,1,64,1,65,1,66,1,67,1,68,2
 1310 data132,1,133,1,134,1,135,1,136,1,137,1,138,1,139,1,140,1,141,1,142,1,32,2
 1320 data181,1,182,1,183,2,184,2,189,2,190,1,191,1,192,1,193,2
 1330 forx=1to100:next:return
 1340 forx=1to1000:next:return
 1350 forx=1to1500:next:return
 1360 forx=1to500:next:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by bob carr{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}the rain dance ceremony
 62080 print"{down}{down}press {rvon}return{rvof} to begin
 62090 get t$:if t$="" then 62090
 62100 print"{clr}":clr:goto100
    1 poke826,0:print"{clr}{down}":print"1":print"2":print"run":print"{home}";:poke158,4
    2 fori=623to626:pokei,13:next:end
   20 goto 2000
   60 l=peek(b):ifl=k6thengosub400
   61 pokeb1,k5:pokeb,k1
   62 b1=b:b=b+s:k=peek(b):ifk=k5then140
   63 ifk=k6then395
   64 ifk=q5ands<zethen600
   65 ifk=q5ands>zethen700
   66 ifk=r1then500
   67 ifk=l1then450
   68 ifk=t1then800
   69 ifk=122then300
   70 ifk=76then330
   80 ifk=45then900
  140 pokec-k8,k5:pokec+k8,k5:pokec-k7,k6:pokec+k7,k6
  150 c1=c:l=peek(151):ifl=v1thenc=c-k7
  152 ifl=a1thenc=c+k7
  155 ifc=w1orc=w2thenc=c1
  170 i=i+k7:ifi<qthen140
  175 i=ze:goto60
  300 s=a1:b=b1+s:ifpeek(b)=q5then1000
  320 goto140
  330 s=a2:b=b1+s:ifpeek(b)=q5then1000
  340 goto140
  395 gosub400:goto140
  400 ifpeek(b1+40)=k5thens=-s:b=b+s:goto140
  404 p=rnd(ti)*te:ifp=<ththens=a6:goto440
  406 ifs=a2thens=a4
  408 ifs=a1thens=a5
  410 ifs=a3andp>=sethens=a4
  415 ifs=a3andp<sethens=a5
  440 b=b1+s:return
  450 ifs=a2thens=a1
  460 ifs=a4thens=a5
  465 b=b1+s:ifpeek(b)=102then1000
  470 goto140
  500 ifs=a1thens=a2
  510 ifs=a5thens=a4
  515 b=b1+s:ifpeek(b)=102then1000
  520 goto140
  600 s1=s1+1:print"{home}  score";s1:ifs1>74thenq=1
  609 ifs<>a6then620
  611 p=rnd(ti)*te:ifp>9thens=a3
  612 ifp>=4.5andp<9thens=a1
  613 ifp<4.5thens=a2
  614 goto140
  620 ifs=a4thens=a2
  630 ifs=a5thens=a1
  640 goto140
  700 ifs=a2thens=a4
  701 s1=s1+1:print"{home}  score";s1:ifs1>74thenq=1
  710 ifs=a1thens=a5
  720 goto140
  800 ifs=a6thens=a1
  810 ifs=a4thens=a2
  815 ifs=a5thens=a1
  818 b=b1
  820 goto140
  900 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-M}           you scored";s1
  910 print"{down}{CBM-M}
  920 print"{CBM-M}           another game ?
  921 ifs1>hithenhi=s1
  922 poke826,hi
  925 print"{CBM-M}
  930 geta$
  935 ifa$="n"thenpoke245,23:print:end
  940 ifa$<>"y"then930
  946 clr:goto3100
 1000 s1=s1+k7
 1005 ifs=a1thens=a5:goto1030
 1010 ifs=a2thens=a4:goto1030
 1015 ifs=a4thens=a2:goto1030
 1020 ifs=a5thens=a1
 1030 print"{home}  score";s1
 1036 s1=s1+k7
 1040 goto140
 2000 print"{clr}{down}    QQQ  a dawson production  QQQ
 2005 print"{down}{down}{down} {rvon}  {CBM-*}{rvof} {rvon}  {CBM-*}{rvof} {rvon}   {rvof} {rvon}{SHIFT-POUND}  {rvof} {rvon} {rvof} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}   {rvon} {rvof}  {rvon} {rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon} {rvof}   {rvon} {rvof}
 2010 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof}  {rvon} {rvof}{SHIFT-POUND}  {rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND}    {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}   {rvon} {rvof}
 2020 print" {rvon} {rvof}{CBM-O}{SHIFT-POUND} {rvon} {rvof}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}  {rvon} {rvof}  {rvon} {rvof}   {rvon} {rvof}{SHIFT-POUND}     {rvon} {rvof}  {rvon} {rvof} {rvon}   {rvof} {rvon} {rvof}   {rvon} {rvof}
 2030 print" {rvon} {rvof}{CBM-U}{rvon}{CBM-*}{rvof} {rvon}  {CBM-*}{rvof}  {rvon} {rvof}  {rvon} {rvof}   {rvon} {CBM-*}{rvof}     {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}   {rvon} {rvof}
 2040 print" {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}{CBM-*}{rvon} {rvof}  {rvon} {rvof}  {rvon} {CBM-*}{rvof}  {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof}    {rvon} {SHIFT-POUND}{CBM-*} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}   {rvon} {rvof}
 2050 print" {rvon}  {rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {rvon}   {rvof} {CBM-*}{rvon}  {rvof} {rvon} {rvof} {CBM-*}{rvon}{CBM-*}{rvof}   {CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {rvon}   {rvof} {rvon}   {rvof}
 2060 print"{down}{rvon}                                        {rvof}
 2075 print"{down}{down}{down}    {rvon} do you require instructions {rvof} ?
 2077 geta$
 2078 ifa$="n"then3100
 2080 ifa$<>"y"then2077
 3000 poke59468,14: print"{clr}{down}     brick wall":print"    {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{down}"
 3010 print"  YOU{$a0}CONTROL{$a0}A{$a0}BAT '{CBM-O}{CBM-O}{CBM-O}'
 3020 print"{down} BY{$a0}THE{$a0}KEY'S '4' & '6'
 3030 print"{down} WHICH MOVE THE BAT LEFT
 3040 print"{down} & RIGHT{$a0}RESPECTIVELY.
 3050 print"{down}  YOU{$a0}MUST{$a0}TRY{$a0}TO{$a0}HIT{$a0}THE
 3060 print"{down} BALL 'o' AND{$a0}THUS{$a0}REMOVE{down}": print" THE{$a0}BRICKS '{CBM-+}'.
 3070 print"{down} 1 POINT FOR{$a0}EACH{$a0}BRICK.
 3080 print"{down}{rvon}note{rvof} : BALL{$a0}SPEEDS{$a0}UP AT SCORE 75
 3090 print"{down}        {rvon}Touch Any Key To Start{rvof}
 3097 geta$:ifa$=""then3097
 3098 printchr$(147):poke59468,12
 3100 q=2: k5=32:q5=102:k1=81:k6=120:k7=1
 3102 b=33357:s=39:b1=b+s:c=33708:c1=c+1
 3105 a1=41:a2=39:a3=40:a4=-41:a5=-39:a6=-40:k8=2:ze=0
 3110 w1=33690:w2=33724:w4=33690
 3120 v1=42:v3=255
 3130 l1=103:r1=101:t1=100:te=10:se=7:th=3
 3150 print"{clr}":fori=0to37:printtab(i);"{CBM-@}";:nexti:print"{CBM-@}
 3160 hi=peek(826)
 3200 print"{home}  score 0    :     {rvon} highest score";hi;"{left} {rvof}{down}"
 3220 fori=1to22:print"{CBM-M}";tab(38);"{CBM-G}":nexti
 3230 print"{home}{down}{down}{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}L{CBM-@}{CBM-@}{SHIFT-@}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}L{CBM-@}{CBM-@}{SHIFT-@}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3240 print"{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3250 print"{CBM-M}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{CBM-M} {$a0}
 3260 print"{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3270 print"{CBM-M}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{CBM-M} {$a0}
 3280 print"{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}L{SHIFT-@}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3290 print"{CBM-M}                    {$a0}
 3300 print"
 3310 print"{CBM-M}{$a0}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {$a0}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3320 print"
 3330 print"{CBM-M}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3340 print"{CBM-M}{down}            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3345 fori=33728to33766:pokei,45:next
 3350 b=33357:s=39:b1=b+s
 3380 pokec,k6:pokec+1,k6:pokec+2,k6
 3400 goto140
    0 clr:poke59468,12
    1 rem dbook copyright (c) 1979 glen fisher
    2 rem cursor #8, march, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of december 15 1979
   90 pg$="dbook":nm$="8":gosub62000
  100 mx=50:cm=9:oc=2:dimn$(mx),d%(mx),o%(mx),p%(mx),mn$(12),cm$(cm),oc$(oc)
  110 cr$=chr$(13)
  120 fori=1to12:readmn$(i):next
  130 datajanuary,february,march,april,may,june
  140 datajuly,august,september,october,november,december
  150 fori=1tocm:readcm$(i):nexti
  160 dataadd,clear,dump,edit,list,load,quit,save,sort
  170 fori=1tooc:readoc$(i):nexti
  180 data"birthday","anniversary"
  900 nc=0:sv=1
 1000 fl=0:print"command? ";:gosub60000:ifin$=""then1000
 1010 zc=1:zn=0:zl=len(in$)
 1020 fori=1tocm:ifleft$(cm$(i),zl)=in$thenzn=i:zc=zc+1
 1030 nexti:onzcgoto1040,1100:print"not unique.";:goto1050
 1040 ifin$<>"?"thenprint"not a command.";
 1050 print" commands are:"
 1060 fori=1tocm:ifpos(0)+len(cm$(i))>38thenprint
 1070 printcm$(i);" ";:nexti:print:goto1000
 1100 onzngoto2000,1900,2100,3000,7600,5000,6000,4000,7000
 1200 goto1000
 1900 nc=0:goto1000
 2000 ifnc=mxthenprint"no room for more names.":goto1000
 2020 nc=nc+1:print"{down}  person";nc:gosub50100:ifn$=""thennc=nc-1:goto1000
 2030 sv=0:np=-1:n$(nc)=n$:d%(nc)=d:o%(nc)=o:goto2020
 2100 ifnc=0thenprint"no names.":goto1000
 2120 sz=5:ln=0:fori=1tonc:gosub50300:print"{down}  person";i
 2130 n$=n$(i):d=d%(i):o=o%(i):gosub50200:nexti:print:goto1000
 3000 ep=1:ifep>ncthenprint"no names.":goto1000
 3020 print"{down}  person";ep:n$=n$(ep):d=d%(ep):o=o%(ep):gosub50200
 3040 fl=0:print"change? ";:gosub60000:t$=left$(in$,1)
 3050 gosub59000:ifyn=1thenn=val(in$):ifn>0andn<=ncthenep=n:goto3020
 3055 ifyn=1thenprint"no such person.":goto3040
 3060 ift$="y"thengosub50100:n$(ep)=n$:d%(ep)=d:o%(ep)=o:sv=0:np=-1:goto3020
 3065 ift$="q"then1000
 3070 ift$="n"orin$=""then3090
 3075 ift$="d"thengosub3500:sv=0:np=-1:onsgn(ep)+1goto1000,3020
 3080 ift$="?"then3200
 3085 print"hUH?":goto3040
 3090 ep=ep+1:ifep>ncthen1000
 3100 goto3020
 3200 print"choices are:":print"y   change this entry":print"n or{$a0}{rvon}return"
 3220 print"    leave it alone":print"q   return to{$a0}'command?'"
 3240 print"d   discard this entry":print"?   print this list"
 3270 print"some number":print"    move{$a0}to that person":goto3020
 3500 nc=nc-1:ifep<=ncthen3600
 3510 ifnc=0thenprint"all names deleted."
 3520 ep=nc:return
 3600 fori=eptonc:j=i+1:n$(i)=n$(j):d%(i)=d%(j):o%(i)=o%(j):nexti:return
 4000 ifnc=0thenprint"no names.":goto1000
 4020 fl=0:print"file name? ";:gosub60000
 4030 ifin$=""then1000
 4040 f$=in$
 4100 open1,1,1,f$:print#1,nc:x$=chr$(1):q$=chr$(34)
 4120 fori=1tonc:s$=n$(i):d=d%(i):o=o%(i):print".";:gosub4200:nexti
 4140 close1:print:sv=1:goto1000
 4200 t$="":forj=1tolen(s$)
 4220 :c$=mid$(s$,j,1):ifc$=":"orc$=q$orc$=","thenc$=chr$(65+asc(c$))
 4240 :t$=t$+c$:nextj
 4300 t=ti:print#1,q$;t$;q$;",";str$(d);",";str$(o):t=ti-t
 4310 ift<10thenreturn
 4320 poke59411,53:t=ti+20
 4330 ifti<tthen4330
 4340 poke59411,61:return
 5000 print"file name (? if unknown)? ";:fl=0:gosub60000:ifin$=""then1000
 5016 ifin$="?"thenin$=""
 5020 m=0:open1,1,0,in$:input#1,fc:iffc+nc<=mxthen5100
 5050 print"not enough room for all saved names.":close1:goto1000
 5100 form=nc+1tonc+fc:input#1,t$,d,o:print".";
 5140 gosub5200:n$(m)=t$:d%(m)=d:o%(m)=o:nextm
 5160 np=-1:nc=nc+fc:close1:print::ifnc<>fcthensv=0
 5170 goto1000
 5200 s$="":fori=1tolen(t$)
 5220 :c$=mid$(t$,i,1):ifasc(c$)>95andasc(c$)<128thenc$=chr$(asc(c$)-65)
 5230 :s$=s$+c$:nexti:return
 6000 ifsv=0thenprint"names not yet saved.":sv=1:goto1000
 6020 end
 7000 ifnc=0thenprint"no names.":goto1000
 7020 print"by name{$a0}(1), or by date (2)? ";:gosub60000:gosub59000
 7030 ifyn=1thenby=val(in$):ifby>0thenonbygoto7100,7200
 7040 print"type a{$a0}1 or{$a0}2.":goto7020
 7100 print"from: ";:gosub60000:f$=in$:iff$=""thenf$=chr$(0)
 7110 print"to: ";:gosub60000:t$=in$:ift$=""thent$=chr$(255)
 7120 iff$>t$thenx$=f$:f$=t$:t$=x$
 7125 fl=len(f$):tl=len(t$)
 7140 np=0:fori=1tonc:n$=n$(i):ifo%(i)>1thenn$=left$(n$,o%(i)-1)
 7150 :iff$<=left$(n$,fl)andleft$(n$,tl)<=t$thennp=np+1:p%(np)=i
 7160 :nexti:goto7500
 7200 print"from ";:gosub50000:fd=d
 7210 print"to ";:gosub50000:td=d:iftd=0thentd=1300
 7220 iffd>tdthenx=fd:fd=td:td=x
 7240 np=0:fori=1tonc:iffd<=d%(i)andd%(i)<=tdthennp=np+1:p%(np)=i
 7250 :nexti:goto7500
 7300 f$=n$(f):t$=n$(t)
 7310 cp=1:iff$>t$thenreturn
 7320 cp=0:iff$=t$thenreturn
 7330 cp=-1:return
 7400 fd=d%(f):td=d%(t)
 7410 cp=1:iffd>tdthenreturn
 7420 cp=0:iffd=tdthenreturn
 7430 cp=-1:return
 7500 print"now sorting":rem insertion sort
 7510 forns=1tonp:n=ns:t=p%(ns)
 7530 ifn<=1then7570
 7540 :f=p%(n-1):onbygosub7300,7400
 7550 :ifcp<=0then7570
 7560 ::p%(n)=p%(n-1):n=n-1:goto7530
 7570 :p%(n)=t
 7580 nextns:goto1000
 7600 ifnp<0thenprint"list not sorted.":goto1000
 7610 ifnp=0thenprint"no names.":goto1000
 7620 ln=0:sz=4:fori=1tonp:n=p%(i):gosub50300
 7630 n$=n$(n):d=d%(n):o=o%(n):print:gosub50200
 7640 nexti:print:goto1000
 50000 fl=0:print"month: ";:gosub60000:ifin$=""thend=0:return
 50010 zc=1:zn=0:zl=len(in$)
 50020 forzi=1to12:ifleft$(mn$(zi),zl)=in$thenzc=zc+1:zn=zi
 50030 nextzi:onzcgoto50050,50040:print"not unique.":goto50000
 50040 m=zn:goto50070
 50050 gosub59000:ifyn=1thenm=val(in$):ifm>0andm<13then50070
 50060 print"type a name, or{$a0}1 thru{$a0}12.":goto50000
 50070 print"date: ";:gosub60000:gosub59000
 50080 ifyn=1thend=val(in$):ifd>0andd<32then50090
 50085 print"type a number from 1 to{$a0}31.":goto50070
 50090 d=m*100+d:return
 50100 print"name: ";:gosub60000:n$=in$:ifn$=""thenreturn
 50110 gosub50000:ifd=0then50110
 50120 print"occasion: ";:gosub60000
 50130 gosub59000:ifyn=1theno=val(in$):ifo>0ando<=oc+1then50150
 50140 print"type";:fori=1tooc:printtab(4);i;"(";oc$(i);"),":nexti
 50145 print"  or";oc+1;"(something else)":goto50120
 50150 ifo<=octheno=-o:return
 50160 o=len(n$)+1
 50170 print"what is it? ";:gosub60000:ifin$=""then50120
 50180 n$=n$+in$:return
 50200 m=int(d/100):ifo<0theno$=oc$(abs(o)):goto50220
 50210 o$=mid$(n$,o):n$=left$(n$,o-1)
 50220 print"name: ";n$:print"date: ";mn$(m);d-100*m
 50230 printtab(6);o$
 50240 return
 50300 ln=ln+sz:ifln<22thenreturn
 50310 print"{down}  hit {rvon}return{rvof} to continue."
 50320 gett$:ift$=""then50320
 50330 ln=sz:return
 59000 ifin$=""thenyn=0:return
 59010 fori=1tolen(in$):t$=mid$(in$,i,1)
 59020 :ift$<"0"ort$>"9"thenyn=0:return
 59030 nexti:yn=1:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 for i=1to10:print"DDDD";:next i:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #8  dbook"
 62002 print"{down}copyright (c) 1979  by glen fisher
 62004 gosub 60500
 62010 print"{down}keep track of dates"
 62020 print"{down}{down}{down}press{$a0}{rvon}return{rvof} to begin."
 62030 gett$:ift$=""then62030
 62040 print"{clr}":return
    0 rem copyright 1981 bodyguard software               (02208)7490
    1 forl=0to7:readl(l):next:t=1:r=59464:n=515:ifpeek(51234)thenn=151
    2 ifpeek(823)thenpoke823,0:poke824,0:poke825,0:poke59468,12:gosub22
    3 q=peek(824)*256+peek(825)
    4 print"{clr}score : 0"tab(30-len(str$(q)))"hi-score :"q:forx=32808to32927
    5 pokex,204:next:d=32928:forx=33728to33767:pokex,l(rnd(1)*8):next
    6 a=int(rnd(1)*40):poker+3,16:poker+2,15:forx=33688+ato32848+astep-40
    7 poker,x/4-8177:pokex,32:pokex-40,30
    8 b=peek(n):c=d:d=d+(b=42)-(b=41):d=d+(d=32968)*39-(d=32927)*39
    9 pokec,32:poked,104:ifx-40<>dthen12
   10 f=x:s=1:gosub20
   11 pokef,204:p=p+1:print"{home}score :"p:x=32767
   12 ifpeek(x-80)<204then15
   13 pokex-40,32:f=x-80:s=-(x-120=d):gosub20:ifx-120=dthen11
   14 pokex-80,32:x=32767
   15 next:pokex,32:ifx=32808+athen17
   16 goto6
   17 ifp>qthenpoke824,p/256:poke825,p-int(p/256)*256
   18 geta$:ifa$<>""then18
   19 forx=0to255:poker+2,x:poker,x:next:run
   20 poker+2,t:fory=0to5:pokef,86:poker,249-125*s:forz=0to24:next
   21 pokef,91:poker,132-67*s:forz=0to24:next:next:poker+3,0:s=0:t=t+1+(t>254)*255:return
   22 print"{clr}stuur je onkwetsbare ruimtegondeltje in
   23 print"{down} de baan van de raketten die de gordel
   24 print"{down}     van ruimte-puin rond de aarde"tab(50)"{down}willen vernietigen
   25 print"{down}{down}  want zodra de vijand door de gordel
   26 print"{down}  heen kan kijken zijn we verloren...
   27 print"{down}{down}  de gondel beweeg je dmv. de toetsen"tab(55)"{down}4 en 6
   28 printtab(11)"{down}{down}{down}{down}druk op [{rvon}shift{rvof}{up}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}]":waitn+1,1:return
   29 data100,111,121,98,248,247,227,160
    1 rem deepspace 1.0
  100 print
  110 print
  120 print"{clr}deepspace"
  130 print
  140 print
  150 print"this is deepspace, a tactical simulation";
  155 print"of ship-to-ship combat in deep space."
  160 print"do you wish instructions (yes or no)?":print
  170 geti$:ifi$=""goto170
  180 ifi$="y"goto200
  190 goto610
  200 print"{clr}you are one of a group of captains"
  205 print"assigned to patrol a section of your"
  210 print"star empire's border against hostile"
  215 print"aliens.  all your encounters here will"
  220 print"be against hostile vessels.  you will"
  225 print"first berequired to select a vessel"
  230 print"from one of the three types, each with"
  235 print"its own characteristics:"
  250 print
  260 print"type";tab(12);"speed";tab(21);"cargo","protection"
  270 print"1 scout";tab(13);"10x";tab(22);"16";tab(35);"1"
  280 print"2 cruiser";tab(14);"4x";tab(22);"24";tab(35);"2"
  290 print"3 battleship";tab(14);"2x";tab(22);"30";tab(35);"5"
  300 print
  310 print"speed is given relative to the other":print"  ships."
  320 print"cargo space is in units of space aboard"
  330 print"  ship which can be filled with weapons."
  340 print"protection is the relative strength of"
  350 print"  the ship's armor and force fields."
  354 print
  355 print"to continue hit return."
  356 gett9$:ift9$=""goto356
  360 print"{clr}";
  370 print"once a ship has been selected, you will"
  380 print"  be instructed to arm it with weapory"
  385 print"  from the following list:"
  390 print
  400 print"type";tab(15);"cargo space";tab(28);"rel.strength"
  410 print"1 phaser banks";tab(24);"12";tab(34);"4"
  420 print"2 anti-matter missile";tab(25);"4";tab(33);"20"
  430 print"3 hyperspace lance";tab(25);"4";tab(33);"16"
  440 print"4 photon torpedo";tab(25);"2";tab(33);"10"
  450 print"5 hyperon neut field";tab(24);"20";tab(34);"6"
  460 print
  470 print"weapons #1 & #5 can be fired 100 times"
  475 print"  each;  all others can be fired once"
  480 print"  for each on board."
  490 print"a typical load for a cruiser might"
  495 print"  consist of:"
  500 print"     1-#1 phaser bank       = 12"
  510 print"     2-#3 hyperspace lances =  8"
  520 print"     2-#4 photon torpedoes  =  4"
  530 print"                             {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  540 print"          units of cargo    = 24"
  545 print
  546 print"to continue hit return"
  547 gett9$:ift9$=""goto547
  548 print"{clr}";
  550 print"a word of caution; firing high yield"
  555 print"  weapons at close (<100) range can be"
  560 print"  dangerous to your ship and minimal"
  565 print"  damage can occur as far out as 200 in"
  570 print"  some circumstances."
  580 print
  590 print"range is given in thousands of klicks."
  600 goto640
  610 print"do you wish a maneuver chart"
  615 gett9$:ift9$=""goto615
  620 ift9$="y"goto640
  630 goto770
  640 print
  650 printtab(10);"maneuver chart"
  655 print
  660 print" 1)";tab(5);"fire phasers"
  670 print" 2)";tab(5);"fire anti-matter missile"
  680 print" 3)";tab(5);"fire hyperspace lance"
  690 print" 4)";tab(5);"fire photon torpedo"
  700 print" 5)";tab(5);"activate hyperon neut field"
  720 print" 6)";tab(5);"self-destruct"
  730 print" 7)";tab(5);"change velocity"
  740 print" 8)";tab(5);"disengage"
  750 print" 9)";tab(5);"proceed"
  760 print
  765 print"to continue hit return."
  766 getr9$:ifr9$=""goto766
  767 print"{clr}";
  770 print"you have a choice of 3 systems to patrol"
  780 print"  1)  orion
  790 print"  2)  deneb
  800 print"  3)  arcturus
  810 print"{down}select a system (1-3)"
  815 gett9$:ift9$=""goto815
  820 ift9$="1"goto2380
  830 ift9$="2"goto2430
  840 goto2480
  850 d0=0
  860 d1=0
  870 n1=0
  880 n2=0
  890 n3=0
  900 n4=0
  910 d=0
  920 print"which spacecraft would you like (1-3)?"
  925 gett9$:ift9$=""goto925
  930 ift9$="1"goto1790
  940 ift9$="2"goto1830
  950 ift9$="3"goto1870
  960 goto920
  970 c=c0
  980 print"you have";c;"units of cargo space to fill"
  985 print"  with weaponry.  choose a weapon and"
  990 print"  the amount you wish."
  995 inputw,n
 1000 ifw=1then1910
 1010 ifw=2then2010
 1020 ifw=3then2100
 1030 ifw=4then2190
 1040 ifw=5then2280
 1050 goto980
 1060 ifn*c1>cthen2530
 1070 c=c-n*c1
 1080 ifw=1then1990
 1090 ifw=2then2080
 1100 ifw=3then2170
 1110 ifw=4then2260
 1120 goto2360
 1130 ifc>1then980
 1140 rem
 1150 s1=s0*rnd(1)
 1160 r=(3*rnd(1)+5)*100
 1170 print
 1180 print"range to target:  ";r
 1190 print"relative velocity:  ";s1
 1200 input"action";m
 1210 ifm=1then1940
 1220 ifm=2then2030
 1230 ifm=3then2120
 1240 ifm=4then2210
 1250 ifm=5then2310
 1260 ifm=6then1660
 1270 ifm=7then1390
 1280 ifm=8then2760
 1290 ifr<500then1500
 1300 ifs1>0then1330
 1310 r=r+((-1*s1)*8.3)^1.25
 1320 goto1340
 1330 r=r-(s1*8.3)^1.25
 1340 ifr>1500then2590
 1350 ifr>0then1370
 1360 r=-r
 1370 print
 1380 goto1180
 1390 input"change to be effected";s2
 1400 if(s1+s2)>s0then2550
 1410 s1=s1+s2
 1420 goto1180
 1430 f0=p1*(z/r)^1.5
 1440 rem
 1450 d0=(2*f0+3*f0*rnd(1))/5
 1460 d=d+d0
 1470 print"sensors report enemy damage now:";d
 1480 ifd>99then2720
 1490 goto1510
 1500 d0=0
 1510 rem
 1520 k=e1+e2*rnd(1)
 1530 rem
 1540 e=e3+e4*rnd(1)+5/p0*rnd(1)
 1550 rem
 1560 f3=e*(k/r)^1.85
 1570 d2=(3*f3+3*f3*rnd(1))/5.5
 1580 d1=d1+d2
 1590 if(z*d0)/(r*500)>2.2then1620
 1600 d3=d0*2/(r^2*p0)
 1610 d1=d1+d3
 1620 print"ship damage:  ";d1
 1630 ifd1>99then2740
 1640 ifd>99then2760
 1650 goto1300
 1660 print"self-destruct failsafe activated!!"
 1670 input"input 1 to release failsafe";u
 1680 ifu=1then1700
 1690 goto1290
 1700 print"self-destruct accomplished"
 1710 ifr>60then1740
 1720 print"enemy vessel also destroyed!"
 1730 goto2760
 1740 d4=3200/r
 1750 d=d+4
 1760 ifd>99then1720
 1770 print"enemy vessel survives with ";d;" damage"
 1780 goto2760
 1790 s0=10
 1800 c0=16
 1810 p0=1
 1820 goto970
 1830 s0=4
 1840 c0=24
 1850 p0=2
 1860 goto970
 1870 s0=2
 1880 c0=30
 1890 p0=5
 1900 goto970
 1910 c1=.12
 1920 n=100
 1930 goto1060
 1940 p1=4
 1950 ifn1=0then2610
 1960 n1=n1-1
 1970 z=200
 1980 goto1430
 1990 n1=n1+n
 2000 goto1130
 2010 c1=4
 2020 goto1060
 2030 p1=20
 2040 ifn2=0then2640
 2050 n2=n2-1
 2060 z=500
 2070 goto1430
 2080 n2=n2+n
 2090 goto1130
 2100 c1=4
 2110 goto1060
 2120 p1=16
 2130 ifn3=0then2660
 2140 n3=n3-1
 2150 z=550
 2160 goto1430
 2170 n3=n3+n
 2180 goto1130
 2190 c1=2
 2200 goto1060
 2210 p1=10
 2220 ifn4=0then2680
 2230 n4=n4-1
 2240 z=400
 2250 goto1430
 2260 n4=n4+n
 2270 goto1130
 2280 c1=.2
 2290 n=100
 2300 goto1060
 2310 p1=6
 2320 ifn5=0then2700
 2330 n5=n5-1
 2340 z=250
 2350 goto1430
 2360 n5=n5+n
 2370 goto1130
 2380 e1=150
 2390 e2=500
 2400 e3=3
 2410 e4=4
 2420 goto850
 2430 e1=200
 2440 e2=350
 2450 e3=4
 2460 e4=3
 2470 goto850
 2480 e1=150
 2490 e2=400
 2500 e3=5
 2510 e4=2
 2520 goto850
 2530 print"not enough space. reselect"
 2540 goto980
 2550 print"change beyond max possible"
 2560 print"increasing to max"
 2570 s1=s0
 2580 goto1300
 2590 print"out of sensor range. automatic disengage"
 2600 goto2760
 2610 print"phaser banks drained"
 2620 print"select another course of action"
 2630 goto1200
 2640 print"all anti-matter missles expended"
 2650 goto2620
 2660 print"all hyperspace lances expended"
 2670 goto2620
 2680 print"all photon torpedo tubes empty"
 2690 goto2620
 2700 print"hyperon neut field drained"
 2710 goto2620
 2720 print"enemy vessel destroyed!"
 2730 goto1510
 2740 print"your vessel has been destroyed"
 2750 goto2760
 2760 print"another battle?"
 2765 gett9$:ift9$=""goto2765
 2770 ift9$="n"goto2790
 2780 goto810
 2790 print"try again later!"
 2800 end
    0 clr:pg$="defend!":nm$="24":goto62000
    1 " randall lockwood
    2 " 90 dyke road
    3 " setauket, new york 11733
    4 "
    5 " cursor #24, february, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 81 feb 3 9:25pm
  100 fori=826to848:readn:pokei,n:next
  110 data162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232,224
  120 data136,208,240,96
  130 e$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  140 dimx$(17):gosub1150
  150 u=crt+wd*8+18:r=crt+wd*11+23:d=crt+wd*15+18:l=crt+wd*11+14
  160 s=18:t=59464:poket,0:poket+3,16:poket+2,55
  170 print"{clr}{down}{down}{down}how hard (1=easy to 9=hard) ? ";
  180 gosub60000:a$=in$
  190 ifa$=""then print"{down}{down}let's make it 3":a$="3":fori=1to1350:nexti
  200 di=val(a$):ifdi<1ordi>9then170
  210 b=4:bb=0:sc=0
  220 e=10*(14-di):v=1+int(di/3)
  230 gosub540:gosub1350:gosub1340
  240 pokeql,24:print"{up}score:"sc;
  250 printtab(30);"level"di
  260 forz=1to1000:nextz
  270 getf$:f=val(f$):iff=0orf/2<>int(f/2)then750
  290 e=e-10:gosub1350:ife<1then1020
  300 onf/2goto430,480,380,330
  310 goto270
  330 fori=0to320stepwd:p=u-i
  340 ifpeek(p)<>32thengoto640
  350 pokep,103:poket,255-.7*i:z=sin(0):pokep,32:next
  360 poket,0:goto270
  380 fori=1to15:p=r+i
  390 ifpeek(p)<>32thengoto640
  400 pokep,100:poket,16*i:z=sin(0):pokep,32:next
  410 poket,0:goto270
  430 fori=0to320stepwd:p=d+i
  440 ifpeek(p)<>32thengoto640
  450 pokep,103:poket,255-.7*i:z=sin(0):pokep,32:next
  460 poket,0:goto270
  480 fori=1to14:p=l-i
  490 ifpeek(p)<>32thengoto640
  500 pokep,100:poket,16*i:z=sin(0):pokep,32:next
  510 poket,0:goto270
  520 end
  540 print"{clr}{down}{down}{down}{down}{down}{down}{down}"
  550 print
  560 printspc(s)"{rvon}{SHIFT-POUND}{CBM-*}"
  570 printspc(16)"{rvon}      "
  580 printspc(14)"M{CBM-@}{rvon}      {rvof}{CBM-@}N"
  590 printspc(14)"N{CBM-T}{rvon}energy{rvof}{CBM-T}M"
  600 printspc(16)"{rvon}      "
  610 printspc(s)"{CBM-*}{SHIFT-POUND}"
  620 return
  640 e=e+10:gosub1350:a=0:c=0
  650 forj=1to5:pokep,160:poket,100:pokep,32:next:poket,0
  660 pokep,160:forz=1to20:next
  670 pokep,32
  680 sc=sc+10*v:ifbb=1orsc<2500then720
  690 b=b+1:bb=1:poket,125:print"{home}{down}{down}{rvon}bonus":forz=1to1000:next:poket,0
  700 print"{home}{down}{down}      "
  710 gosub1340
  720 pokeql,24:print"{up}score:"sc
  730 goto270
  740 forz=1to30:next:pokep,32:return
  750 iff$="q"then1040
  760 ona+1goto780,800,840,870,900
  780 c=int(rnd(1)*(di/2))+1:a=int(rnd(1)*4)+1:c=int(di/2+1):goto760
  800 pokeq,32:c=c+1:ifc>9thenc=0:goto940
  810 q=crt-wd/2:ifwd=80thenq=crt-3*wd/4
  820 q=q+wd*c-2:pokeq,81:goto920
  840 pokeq,32:c=c+1:ifc>15thenc=0:goto940
  850 q=crt+wd*11+39-c:pokeq,81:goto920
  870 pokeq,32:c=c+1:ifc>8thenc=0:goto940
  880 q=crt+23*wd+18-wd*c:pokeq,81:goto920
  900 pokeq,32:c=c+1:ifc>15thenc=0:goto940
  910 q=crt+wd*11+c:pokeq,81
  920 goto270
  940 sys826:forz=1to10:sys826
  950 forj=1to10:poket,255:poket,190:poket,225:poket,160:poket,0:next:b=b-1
  960 forj=1to17:sys826
  970 printe$;x$(j):poket,255:poket,200:poket,210:poket,0:next:sys826
  980 gett$:ift$<>""then980
  990 ifb=0then1040
 1000 goto230
 1020 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}energy is gone"
 1030 forj=150to255step.2:poket,j:next:poket,0
 1040 ng=ng+1:ts=ts+sc:ifsc>bsthenbs=sc:bg=ng
 1050 print"{clr}{down}{down}{down}game";ng;"{left}, at level";di
 1060 print"{down}your score was";sc;"{left}.
 1070 print"{down}your best score was";bs;"in game";bg;"{left}.
 1080 getz$:ifz$<>""then1080
 1090 print"{down}{down}{down}another game? ";
 1100 gosub60000
 1110 ifleft$(in$,1)<>"n"then210
 1120 ifng>1thenprint:print"{up}{up}you averaged"int(ts/ng)"points per game."
 1130 poke59467,0:end
 1150 x$(0)="{left}  -   "
 1160 x$(1)="{left}{left}   *   "
 1170 x$(2)="{left}{left}{left}{CBM-F}{CBM-V}{CBM-B}{CBM-D}{CBM-C}{CBM-V}{CBM-F}{CBM-B}{CBM-F}{CBM-C}{CBM-F}"
 1180 x$(3)="{left}{left}{left}{up}{CBM-B}{CBM-F}{CBM-V}{CBM-C}{CBM-C}{CBM-D}{CBM-F}{CBM-V}{CBM-B}{CBM-C}{CBM-F}"
 1190 x$(4)="{left}{left}{left}{up}{up}{CBM-V}{CBM-F}{CBM-D}{CBM-C}{CBM-V}{CBM-B}{CBM-V}{CBM-C}{CBM-D}{CBM-F}{CBM-V}"
 1200 x$(5)="{left}{left}{left}{down}{CBM-F}{CBM-V}{CBM-C}{CBM-B}{CBM-D}{CBM-V}{CBM-B}{CBM-F}{CBM-C}{CBM-V}{CBM-V}{CBM-D}"
 1210 x$(6)="{left}{left}{left}{down}{down}{CBM-B}{CBM-F}{CBM-V}{CBM-C}{CBM-D}{CBM-C}{CBM-C}{CBM-D}{CBM-C}{CBM-D}{CBM-B}"
 1220 x$(7)="{left}{left}{left}{up}{up}{up}{CBM-B}{CBM-V}{CBM-C}{CBM-D}{CBM-B}{CBM-C}{CBM-V}{CBM-F}{CBM-B}{CBM-C}{CBM-F}"
 1230 x$(8)="{left}{left}{left}{down}{down}{down}{CBM-B}{CBM-V}{CBM-B}{CBM-C}{CBM-D}{CBM-V}{CBM-F}{CBM-B}{CBM-C}{CBM-B}{CBM-V}"
 1240 x$(9)="{left}      "
 1250 x$(10)="{left}{left}       "
 1260 x$(11)="{left}{left}{left}           "
 1270 x$(12)="{left}{left}{left}{up}           "
 1280 x$(13)="{left}{left}{left}{up}{up}           "
 1290 x$(14)="{left}{left}{left}{down}            "
 1300 x$(15)="{left}{left}{left}{down}{down}           "
 1310 x$(16)="{left}{left}{left}{up}{up}{up}           "
 1320 x$(17)="{left}{left}{left}{down}{down}{down}           "
 1330 return
 1340 pokeql,2:print"{up}shield":print"strength":printb-1;"{left} ":return
 1350 printe$;"{rvon}    {left}{left}{left}{left}";e:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60040
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60040 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60080
 60050 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60060 ifzl>254then60010
 60070 in$=in$+z$:printz$;zd$;z$;
 60080 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60090 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60100 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60110 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 ql=245:ifpeek(50000)<>0thenql=216
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62010 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by randall lockwood
 62020 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62030 gosub60500
 62040 print"{down}shots in the dark
 62050 print"{down}{down}press {rvon}return{rvof} to continue
 62060 gett$:ift$=""then62060
 62070 goto60300
   10 rem for 32k, 40 & 80 column cbm/pet
   15 rem tested on 3032, 4032, 8032
   20 print chr$(147)
   25 print chr$(42)
   30 sys 2816
  100 print"{clr}game of deflection":print:print
  110 input"do you want instructions";x$:if left$(x$,1)="y" then gosub 1000
  120 print"{clr}"
  140 ss=32768:j=3:for i=1 to j
  160 for i=1 to j
  170 a=int(1000*rnd(1)):if peek(ss+a)=160 goto 170
  180 poke ss+a,160:next i
  210 a=int(1000*rnd(1)):if peek(a+ss)=160 goto 210
  220 u=a+ss:di=1:if rnd(1)>.5 then d1=-1
  240 s=ti
  300 get x$:if len(x$)<>0 goto 600
  320 ne=u+di:if abs(di)=1 goto 430
  340 if di>0 goto 380
  350 if ne<ss then di=-di:goto 320
  355 a=ne
  360 if peek(a)=77 then di=-1:ne=ne-1
  370 if peek(a)=78 then di=1:ne=ne+1
  375 goto 530
  380 if ne>ss+999 then di=-di:goto 320
  390 a=ne
  400 if peek(a)=77 then di=1:ne=ne+1
  410 if peek(a)=78 then di=-1:ne=ne-1
  420 goto 530
  430 if di>0 goto 490
  440 if ne-40*int(ne/40)=7then di=-di:goto 320
  450 a=ne
  460 if peek(a)=77 then di=-40:ne=ne-40
  470 if peek(a)=78 then di=40:ne=ne+40
  480 goto 530
  490 if ne-40*int(ne/40)=8 then di=-di:goto 320
  500 a=ne
  510 if peek(a)=77 then di=40:ne=ne+40
  520 if peek(a)=78 then di=-40:ne=ne-40
  530 poke u,32
  540 if peek(ne)=32 then poke ne,81:u=ne:goto 300
  550 if peek(ne)=160 then k=k+1
  555 poke ne,81:u=ne
  560 if k=j goto 700
  570 goto 300
  600 if x$="/" then a=78:goto 630
  610 if x$="\" then a=77:goto 630
  620 goto 320
  630 if peek(u+di)=32 then poke u+di,a:t=t+1
  640 goto 300
  700 a=ti-s
  710 b=int(a/60 +.5):print"{clr}it took you"t;"tries and"b;"seconds"
  720 print"to get all"j;"of the targets"
  740 a=b/j
  750 if a<3 then print"you're too good - go home!":print:print:goto 900
  760 if a<5 then print"you must have been practicing":goto 900
  770 if a<7 then print"you are getting good at this":goto 900
  780 if a<11 then print"keep practicing - you'll get better":goto 900
  790 if a<20 then print"you have some potential":goto 900
  800 print"you seem to be uncoordinated"
  900 fori=1 to 200:next i
  902 a=exp(log(j)/3):print"your score";int(1000*(a/b+a/t))
  910 print:print:input"do you wish to play again";x$:if left$(x$,1)<>"y" goto 990
  930 print:input"how many targets do you want";j:j=abs(int(j)):if j<2 goto 930
  940 print"{clr}":k=0:t=0:goto 160
  990 print"been fun. come again soon!"
  999 end
 1000 print:print"your mission is to deflect the ball"
 1010 print"into the targets. you have two controls"
 1015 print"over the ball; the '\' and the '/'."
 1020 print"type a slash and it will show up"
 1030 print"immediately in front of the ball and"
 1040 print"the ball will bounce off the slash."
 1050 print"once placed, a slash cannot be changed."
 1060 print:print:print"hit any key when ready to begin"
 1070 get x$:iflen(x$)=0 goto 1070
 1080 return
    5 print chr$(14)
   10 print"Hier kommen jetzt erst mal ein paar Demos."
   20 print"Spaeter wieder Videospiele"
   30 print"{down}Fast alle Programme von SENIL{$a0}Data Systems"
   10 printchr$(142);"{clr}"
   20 poke 59467,16:poke 59466,15:poke 59464,118
   30 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(39);"[]"
   40 poke 59464,104
   50 for t=1 to 40:next t
   60 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,118
   65 for t=1 to 40:next t
   70 print tab(38);"{up}[ta]"
   80 poke 59464,104:for t=1 to 40:next t
   90 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
   95 for t=1 to 40:next t
  100 print tab(37);"{up}[ata ]"
  110 poke 59464,104
  120 for t=1 to 40:next t
  130 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,118
  140 print tab(36);"{up}[data s]"
  145 for t=1 to 40:next t
  150 poke 59464,104
  160 for t=1 to 40:next t
  170 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
  175 for t=1 to 40:next t
  180 print tab(35);"{up}[ data sy]"
  190 poke 59464,104
  200 for t=1 to 40:next t
  210 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,88
  215 for t=1 to 40:next t
  220 print tab(34);"{up}[l data sys]"
  230 poke 59464,93
  240 for t=1 to 40:next t
  250 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
  255 for t=1 to 40:next t
  260 print tab(33);"{up}[il data syst]"
  270 poke 59464,104
  280 for t=1 to 40:next t
  290 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
  295 for t=1 to 40:next t
  300 print tab(32);"{up}[nil data syste]"
  310 poke 59464,104
  320 for t=1 to 40:next t
  330 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,118
  335 for t=1 to 40:next t
  340 print tab(31);"{up}[enil data system]"
  350 poke 59464,104
  360 for t=1 to 40:next t
  370 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
  375 for t=1 to 40:next t
  380 print tab(30);"{up}[senil data systems]"
  390 poke 59464,104
  400 for t=1 to 40:next t
  410 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,118
  415 for t=1 to 40:next t
  420 for t=1 to 10:next t
  430 poke 59464,104
  440 for t=1 to 40:next t
  450 poke 59466,0:fort=1 to 50:next t:poke 59466,15:poke 59464,118
  455 for t=1 to 40:next t
  460 for t=1 to 10:next t
  465 print
  470 poke 59464,104
  480 for t=1 to 40:next t
  490 poke 59466,0:fort=1 to 90:next t:poke 59466,15:poke 59464,118
  500 for t=1 to 10:next t
  510 poke 59464,140
  515 print
  520 for t=1 to 40:next t
  530 poke 59466,0:fort=1 to 90:next t:poke 59466,15
  534 print tab(39);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}se";
  535 for x=1 to 4
  539 poke 59464,238
  540 print"{up}{up}";chr$(21)
  550 poke 59466,0:fort=1to20:nextt:poke59466,15:poke59464,238
  560 next x
  570 printtab(38);"esen";
  575 poke 59464,188
  580 for t=1 to 50:next t
  590 for x=1 to 4
  600 poke 59464,238
  610 print"{up}{up}";chr$(21)
  620 poke 59466,0:fort=1to20:nextt:poke59466,15:poke59464,238
  630 next x
  640 printtab(37);"resent";
  650 poke 59464,158
  660 for t=1 to 50:next t
  670 for x=1 to 4
  680 poke 59464,238
  690 print"{up}{up}";chr$(21)
  700 poke 59466,0:fort=1to20:nextt:poke59466,15:poke59464,238
  710 next x
  715 for t=1 to 40:nextt:poke 59466,0:for t=1 to 60:next t:poke59466,15
  720 poke 59464,125
  730 for t=1 to 50:next t
  740 print"{up}{up}";chr$(21)
  750 for t=0 to 36
  755 poke 59464,40-t
  760 poke 33648+t,16:poke 33727-t,19
  770 next t
  775 poke 59466,0
  780 for t=0 to 35
  790 poke 33648+t,32:poke 33727-t,32
  800 next t
  810 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  815 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  820 print"{rvon} {CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-I} {rvon}{CBM-I} {CBM-I}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{CBM-I} {CBM-I}{rght}{rvof}{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{rght} {rght}{rght}{rght}{rght} {rght} {CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-I} {rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {rvof}{CBM-I}{rght}{CBM-I}{rvon} {rght}{rvof}{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-I}"
  825 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  830 print"{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-I}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rght} {rght}{rght}{rght} {rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{rvon} {rght}{CBM-I}{rght} {rght} {rght}{rght}{rght} "
  835 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  840 print"{rvon} {rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght} "
  845 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  850 print"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{rght}{rght}{rght}{rght}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{rght}{rght}{rght}{CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}"
  855 poke 59468,14:poke 59466,15
  860 for x=1 to 16
  870 read a
  880 poke 59464,a
  885 for t=1 to 80:next t
  886 poke 59466,0:fort=1to40:nextt:poke59466,15
  890 next x
  900 data 238,238,210,238,238,188,238,238,177,238,238,188,238,238,210,238
  910 print"Billich"
  920 for x=1 to 15
  930 read a
  940 print"{up}{inst}{inst}  "
  950 poke 59464,a
  955 for t=1 to 80:next t
  960 poke 59466,0:fort=1to40:nextt:poke59466,15
  970 next x
  980 data 210,210,188,210,210,177,210,210,158,210,210,177,210,210,188
  990 poke 59464,210
  995 for t=1 to 70:next t
 1000 printtab(38);"{up}&"
 1010 print"{up}{ensh}{left}{left}{left}{left}{left}Lasch";
 1011 poke 33966,32
 1015 for t=1 to 20:next t
 1020 for x=1 to 16
 1030 read a
 1040 print"{left}{left}{left}{left}{left}{left}{left}{left}Lasch  {left}";
 1050 poke 59464,a
 1055 for t=1 to 80:next t
 1060 poke 59466,0:fort=1to40:nextt:poke59466,15
 1070 next x
 1080 data 188,188,177,188,188,158,188,188,140,188,188,158,188,188,177,188
 1090 for x=1 to 3
 1100 poke 59464,125
 1110 for t=1 to 20:next t
 1120 poke 59466,0:fort=1to160:nextt:poke59466,15
 1130 next x
 1140 for x=1 to 8
 1150 read a
 1160 poke 59464,a
 1170 for t=1 to 60:next t
 1180 poke 59466,0:fort=1to40:nextt:poke59466,15
 1190 next x
 1200 data 238,210,188,177,188,210,238,238
 1205 print
 1210 print tab(25);"{down}{down}{down}{down}{down}Copyright 2001(PC), 2007(CBM)"
 1215 poke 59466,0:fort=1to200:nextt:poke59466,15
 1220 for t=1 to 80
 1230 poke 59464,80-t
 1240 next t
 1250 poke 59466,0:fort=1to200:nextt:poke59466,15
 1260 print"{clr}";
 1265 rem auf dem pc ging ds schneller
 1270 printtab(20);"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{left}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
 1271 poke 59464,238
 1272 for t=1 to 80:next t
 1273 print"{home}";chr$(153)
 1274 poke 59466,0:fort=1to40:nextt:poke59466,15
 1280 printtab(20);"{rvon}{rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
 1281 poke 59464,238
 1282 for t=1 to 80:next t
 1283 print"{home}";chr$(153)
 1284 poke 59466,0:fort=1to40:nextt:poke59466,15
 1290 printtab(20);"{rvon}{rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
 1291 poke 59464,210
 1292 for t=1 to 80:next t
 1293 print"{home}";chr$(153)
 1294 poke 59466,0:fort=1to40:nextt:poke59466,15
 1300 printtab(20);"{rvon}{CBM-I}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
 1301 poke 59464,238
 1302 for t=1 to 80:next t
 1303 print"{home}";chr$(153)
 1304 poke 59466,0:fort=1to40:nextt:poke59466,15
 1310 printtab(20);"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
 1311 poke 59464,238
 1312 for t=1 to 80:next t
 1313 print"{home}";chr$(153)
 1314 poke 59466,0:fort=1to40:nextt:poke59466,15
 1320 printtab(20);"{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 1321 poke 59464,188
 1322 for t=1 to 80:next t
 1323 print"{home}";chr$(153)
 1324 poke 59466,0:fort=1to40:nextt:poke59466,15
 1325 poke 59464,238
 1330 print"{down}{down}{down}{down}"
 1340 for t=1 to 21:print chr$(149);
 1350 if t=12 then poke 59466,0
 1355 if t=14 then poke 59466,15
 1360 next t
 1370 print"{home}{down}{down}{down}"
 1375 poke 59464,177
 1380 for t=1 to 22:print chr$(149);
 1390 if t=12 then poke 59466,0:poke 59464,238
 1392 if t=14 then poke 59466,15
 1400 next t
 1410 print"{home}{down}{down}"
 1420 poke 59466,0
 1430 for t=1 to 23:print chr$(149);
 1440 if t=2 then poke 59466,15:if t=13 then poke 59466,0
 1450 if t=15 then poke 59466,0:poke 59464,188
 1460 if t=17 then poke 59466,15
 1470 next t
 1480 print"{home}{down}"
 1490 for t=1 to 24:print chr$(153)
 1500 if t=3 then poke 59466,0:poke59464,238
 1510 if t=5 then poke 59466,15
 1515 if t=17 then poke 59466,0
 1516 if t=19 then poke 59466,15
 1520 next t
 1530 for t=1 to 30:next t
 1540 poke 59464,210:for t=1 to 80:next t
 1550 poke 59466,0:fort=1to40:nextt:poke59466,15
 1560 for x=1 to 2
 1570 poke 59464,238
 1571 for t=1 to 80:next t
 1572 poke 59466,0:fort=1to40:nextt:poke59466,15
 1575 next x
 1580 poke 59464,210
 1590 poke 59466,0:fort=1to40:nextt:poke59466,15
 1600 poke 59464,238
 1610 for t=1 to 80:next t
 1620 poke 59464,210
 1629 print"{rght}{rght}{rght}{rght}{rght}{rght}";
 1630 print"{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rvof}{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {rght}{rght}{rght}{rght}{rvof}{CBM-I}{rvon}{CBM-I}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {rvof}{CBM-I}      {rvon} ";
 1635 print"{rght}{rvof}{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 1636 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1638 for t=1 to 20:nextt
 1640 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rvof}{CBM-I}{rvon}{CBM-I}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{CBM-I}{rvof}{CBM-I}{rvon}";
 1645 print"{rght}{rght}{rght}{rght} {rght} "
 1646 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1647 poke 59464,188
 1648 for t=1 to 20:nextt
 1650 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {CBM-I} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} ";
 1655 print"{rght}{rght}{rght}{CBM-I}{rvof}{CBM-I}{rvon}{rght}{rght} {rght} {rvof}  {CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 1656 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1657 poke 59464,210
 1658 for t=1 to 20:nextt
 1660 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{CBM-I}{rvof}{CBM-I}{rvon}";
 1665 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{CBM-I}{rvof}{CBM-I}{rvon} {rght} {rght}{rght}{rght}{rght}{rght}{rght} "
 1666 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1668 for t=1 to 20:nextt
 1670 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{CBM-I}{rvof}{CBM-I}{rvon}";
 1675 print"{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght} "
 1676 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1677 poke 59464,177
 1678 for t=1 to 20:nextt
 1679 print"{rght}{rght}{rght}{rght}{rght}{rght}";
 1680 print"{rvon}{CBM-I}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 1686 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1687 poke 59464,210
 1688 for t=1 to 20:nextt
 1690 for x=1 to 25
 1700 read a
 1701 poke 59464,a
 1710 poke59466,0:for t=1 to 40:nextt:poke59466,15
 1720 print
 1730 for t=1 to 25:nextt
 1740 next x
 1750 data 210,158,210,210,177,210,210,188,210,188,188,177,188,188,158,188,188
 1751 data 140,188,188,158,188,188,177,188
 1755 poke 59466,0
 1756 for t=1 to 80:next
 1760 print"{home}{down}{down}{down}{down}{down}{down}{down}"
 1769 print"{rght}{rght}{rght}";
 1770 print"{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}   {CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rvof}{CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-I}   {CBM-I}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-I}";
 1771 print"{rght}{rght}{rght}{rght}{rvon} "
 1774 poke 59464,125:poke 59466,15
 1775 for t=1 to 20:next:poke 59466,0
 1776 for t=1 to 180:nextt
 1779 print"{rght}{rght}{rght}";
 1780 print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} "
 1781 poke 59466,15:fort=1to20:nextt:poke59466,0
 1782 for t=1 to 180:nextt
 1789 print"{rght}{rght}{rght}";
 1790 print"{rvon}{CBM-I}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}   {rvon} {rvof}            {rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} ";
 1800 print"{rght}{rght}{rght}{rght} "
 1801 poke 59466,15:fort=1to20:nextt:poke59466,0
 1810 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} ";
 1811 print"{rght}{rght}{rght}{rght} "
 1820 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} ";
 1821 print"{rght}{rght}{rght}{rght} "
 1829 print"{rght}{rght}{rght}";
 1830 print" {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}    {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght}{rght}{CBM-I}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-I}{rght}{rght}{rght}{rght}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}     {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof} ";
 1831 print"{rght}{rght}{rght}{rght}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 1840 for t=1 to 150:next t
 1845 poke 59466,15
 1850 for x=1 to 8
 1860 read a
 1865 poke 59464,a
 1866 for t=1 to 60:next t
 1870 poke 59466,0:fort=1to20:nextt:poke59466,15
 1880 next x
 1890 data 238,210,188,177,177,188,210,238
 1900 poke 59466,0:poke59464,255
 1905 for x=1 to 1500
 1910 p=int(rnd(0)*480)+33408
 1920 poke 59468,12
 1930 poke p,160
 1940 poke 59466,15
 1950 poke p,81
 1960 poke 59466,0
 1970 poke p,87
 1980 poke p,32
 1990 next x
 2000 print chr$(14)
 10000 poke 59467,0:rem turn sound off
   10 print chr$(142);"{clr}"
   20 for x=1 to 80
   30 read a,b,c,d,e,f,g
   40 poke 33249,a
   50 poke 33329,b
   60 poke 33727,c
   70 poke 33807,d
   80 poke 33887,e
   90 poke 34129,f
  100 poke 34209,g
  110 print"{home}{down}{down}{down}{down}{down}":print chr$(148):print chr$(148);"{down}{down}{down}{down}{down}{rght}";chr$(20)
  120 print " "+chr$(20);"{down} ";chr$(20);"{down}{down}{down}{down}";chr$(148):print chr$(148)
  130 next x
  140 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";chr$(148):print chr$(148)
  150 print"{down}{down}{down}{down}{down}{down}{down}"
  160 print" {rvon}  {rvof}       {rvon}{SHIFT-POUND} {rvof}    {rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} {rvof}  {rvon} {rvof}     {CBM-*}{rvon}{CBM-*}{rvof}      ";
  170 print"{left}{rvon}  {rvof}        {rvon}  {rvof}     {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}   {rvon} {CBM-*}{rvof}     {rvon}{SHIFT-POUND} {rvof}  {rvon} {rvof}      {rvon} {rvof}"
  180 print"{home}{down}{down} {rvon}  {rvof}       {CBM-*}{rvon}{CBM-*}{rvof}    {rvon} {rvof}{SHIFT-POUND}    {CBM-*}{rvon} {rvof}  {rvon} {rvof}      {CBM-*}{rvon}{CBM-*}{rvof}    ";
  190 print"{rvon} {rvof}         {rvon}  {rvof}     {CBM-*}{rvon}{CBM-*}{rvof}   {rvon} {rvof}{SHIFT-POUND}     {CBM-*}{rvon} {rvof}  {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} {rvof}"
  200 print"{home} {rvon}         {rvon}{CBM-*}{rvof}     {rvon}{SHIFT-POUND}      {rvon}{CBM-*}{rvof}  {rvon}       {rvon}{CBM-*}{rvof}     ";
  210 print"{rvon}        {rvof}  {rvon}       {rvon}{CBM-*}{rvof}    {rvon}{SHIFT-POUND}       {rvon}{CBM-*}{rvof}  {rvon} {CBM-*}{rvof}    {rvon}{SHIFT-POUND} {rvof}"
  220 for l=1 to 40:next l
  230 print "{up}"chr$(21)
  240 print"{down}"chr$(21)"{down}{down}{down}{down}{down}"chr$(21)
  250 print"{down}{down}{down}"chr$(21)"{down}{down}{down}{down}{down}"chr$(21)"{down}{down}"
  260 print" {rvon}          {rvof}{SHIFT-POUND}    {CBM-*}{rvon}      {rvof}{SHIFT-POUND}  {rvon} {rvof}      {CBM-*}{rvon}{CBM-*}{rvof}    ";
  270 print"{rvon}        {rvof}  {rvon}       {rvof}{SHIFT-POUND}    {CBM-*}{rvon}       {rvof}{SHIFT-POUND}  {rvon} {rvof}      {rvon} {rvof}"
  280 for l=1 to 10:nextl
  290 print"{home}{down}{down}"chr$(21)"{down}{down}{down}{down}"chr$(21)"{down}{down}{down}{down}"chr$(21)"{down}{down}{down}"chr$(21)"{down}{down}"chr$(21)
  300 print"{home}{down}{down}"chr$(21)"{down}{down}"chr$(21)"{down}{down}{down}"chr$(21)"{down}{down}"chr$(21)"{down}"chr$(21)
  310 print"{home}{down}{down}{down} "
  320 for t=1 to 14
  330 print chr$(153)
  340 for l=1 to 10:next l
  350 next t
  360 for t=1 to 14
  370 print chr$(25)"{up}"
  380 for l=1 to 10:next l
  390 next t
  395 for t=1 to 100
  400 print tab(28);"mir war langweilig!"
  410 print tab(28);"{up}                    {up}"
  420 next t
  425 for x=1 to 5
  430 for t=1 to 14
  440 for l=1 to (14-t)*5:next l
  450 print chr$(153)"{up}"
  460 next t
  470 for t=14 to 1 step-1
  480 for l=1 to (14-t)*5:next l
  490 print chr$(25)"{up}"
  500 next t
  502 for l=1 to 20:next
  505 next x
  506 for x=1 to 5
  510 for t=0 to 13
  515 s=50*(1-sin((~*.075)*t))
  520 for l=0 to s:next l
  530 print chr$(153)"{up}"
  540 next t
  550 for t=0 to 13
  560 s=50*(1-sin((~*.075)*t))
  570 for l=0 to s:next l
  580 print chr$(25)"{up}"
  590 next t
  600 next x
  610 print"{up}{up}{up}{up}{up}{up}"
  620 print tab(30);"school is boring!"
  630 print tab(23);"life is sometimes boring, too"
  640 print tab(10);"i hate having to get up early just to have to go somewhere"
  650 print tab(23);"where i only get bored again!"
  660 print tab(26);"math is extremely boring"
  670 print tab(20);"this old computer is extremely boring"
  680 print tab(27);"housework is boring"
  690 print tab(29);"and homework too"
  700 print tab(22);"and i'm writing only nonsense!"
 1000 data 32,32,32,32,32,32,32
 1001 data 160,160,160,160,160,160,160
 1002 data 32,32,160,160,160,32,32
 1003 data 105,32,32,160,32,32,32
 1004 data 233,105,32,160,32,32,32
 1005 data 223,95,32,160,32,32,32
 1006 data 95,32,32,160,32,32,32
 1007 data 32,32,32,160,32,32,32
 1008 data 160,160,32,160,32,160,160
 1009 data 32,32,32,160,32,32,32
 1010 data 32,32,233,160,95,32,32
 1011 data 160,160,105,223,160,160,160
 1012 data 32,32,32,32,32,32,32
 1013 data 32,32,32,32,32,32,32
 1014 data 32,32,32,32,32,32,32
 1015 data 32,32,32,32,32,32,32
 1016 data 32,32,160,160,160,32,32
 1017 data 32,32,32,32,32,32,32
 1018 data 32,32,32,32,32,32,32
 1019 data 160,160,32,32,32,160,160
 1020 data 32,32,32,32,32,32,32
 1021 data 32,32,32,32,32,32,32
 1022 data 32,32,32,32,32,32,32
 1023 data 160,160,160,160,160,160,160
 1024 data 32,32,32,32,32,32,32
 1025 data 32,32,32,32,32,32,32
 1026 data 32,32,160,160,160,32,32
 1027 data 32,32,160,32,32,32,32
 1028 data 32,32,160,95,32,32,32
 1029 data 32,32,160,223,95,32,32
 1030 data 160,160,160,32,223,160,160
 1031 data 160,160,160,32,32,160,160
 1032 data 32,32,160,32,32,32,32
 1033 data 32,32,160,32,32,32,32
 1034 data 32,32,105,32,32,32,32
 1035 data 32,32,32,32,32,32,32
 1036 data 32,32,32,32,32,32,32
 1037 data 32,32,32,32,32,32,32
 1038 data 32,32,32,32,32,32,32
 1039 data 32,32,160,160,160,32,32
 1040 data 32,32,32,160,160,160,160
 1041 data 160,160,32,160,32,160,160
 1042 data 32,32,32,160,32,32,32
 1043 data 32,32,32,160,32,32,32
 1044 data 32,32,32,160,32,32,32
 1045 data 32,32,32,32,32,32,32
 1046 data 160,160,32,32,32,32,32
 1047 data 32,233,32,32,32,32,32
 1048 data 32,32,32,32,32,32,223
 1049 data 32,32,160,160,160,223,95
 1050 data 32,32,160,160,160,95,32
 1051 data 32,32,32,32,32,32,32
 1052 data 32,32,32,32,32,32,32
 1053 data 32,32,32,32,32,32,32
 1054 data 160,160,32,32,32,160,160
 1055 data 32,32,32,32,32,32,32
 1056 data 32,32,32,32,32,32,32
 1057 data 160,160,160,160,160,160,160
 1058 data 32,32,32,32,32,32,32
 1059 data 32,32,32,32,32,32,32
 1060 data 32,32,32,32,32,32,32
 1061 data 32,32,160,160,160,32,32
 1062 data 32,32,32,32,32,32,32
 1063 data 32,32,32,32,32,32,32
 1064 data 160,160,32,32,32,160,160
 1065 data 32,32,32,32,32,32,32
 1066 data 32,32,32,32,32,32,32
 1067 data 32,32,32,32,32,32,32
 1068 data 32,32,32,32,32,32,32
 1069 data 160,160,160,160,160,160,160
 1070 data 32,32,32,32,32,32,32
 1071 data 32,32,32,32,32,32,32
 1072 data 32,32,160,160,160,32,32
 1073 data 32,32,32,32,32,32,32
 1074 data 32,32,32,32,32,32,32
 1075 data 32,32,32,32,32,32,32
 1076 data 32,32,32,32,32,32,32
 1077 data 32,32,32,32,32,32,32
 1078 data 160,160,32,32,32,160,160
 1079 data 160,160,160,160,160,160,160
    0 j=0
   10 print chr$(142);"{clr}";
   20 print"{rvon}{rght}    {rght}    {rght}{rght}    {rght}    {rght}{rght}{rght}   {rght}{rght}     {rght}{rght}    "
   30 poke 32768,233:poke 32778,223:poke 32788,223:poke 32804,233
   40 print"{rvon} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}"
   50 print"{rvon} {rght}{rght}{rght}{rght}{rght}    {rght}{rght}   {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}    "
   60 poke 32938,105:poke 32964,95:poke 32967,223
   70 print"{rvon} {rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} "
   80 print"{rvon}{rght}    {rght} {rght}{rght}{rght} {rght}    {rght}   {rght}{rght}{rght}{rght}   {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}    "
   90 poke 33088,95:poke 33108,105:poke 33127,105
   95 print"{down}{down}"
  100 read a
  104 if j=1 and a=128 then j=0:goto 100
  105 if a=128 then j=1:goto 100
  106 if j=1 then a=a+128
  110 poke 33487,a
  120 for l=1 to 30:next l
  130 print " ";chr$(20);
  140 if a<>255 then goto 100
  150 for t=1 to 79
  160 print " ";chr$(20);
  170 next t
  175 data 130
  180 data 1,12,12,32,23,15,18,11,19,32,2,25,32,13,5,44,32,19,9,13,15,14,32
  190 data 15,6,32,19,4,19,40,19,5,14,9,12,32,4,1,20,1,32,19,25,19,20,5,13,19
  200 data 41,46,32,20,8,5,32,18,5,1,19,15,14,32,20,8,1,20,32,20,8,5,18,5,32
  210 data 9,19,32,15,14,12,25,32,49,32,19,3,18,15,12,12,32,9,19,32,20,8,1,20
  220 data 32,9,32,3,1,14,32,15,14,12,25,32,1,14,9,13,1,20,5,32,50,32,19,3
  230 data 18,15,12,12,5,18,19,32,23,8,5,14,32,20,8,5,25,32,1,18,5,32,2,15,20,8
  240 data 32,8,1,22,9,14,7,32,20,8,5,32,19,1,13,5,32,12,5,14,7,8,20,46
  250 data 32,32,32,32,14,15,23,32,19,15,13,5,32,23,15,18,4,19,32,9,32
  260 data 19,1,25,32,17,21,9,20,5,32,15,6,20,5,14,58,32,32,32,32,32,128
  270 data 19,8,9,20,32,6,21,3,11,9,14,7,32,19,3,8,15,15,12,33,33,33,128,32,32
  280 data 32,32,128,19,5,14,9,12,32,18,21,12,5,26,33,33,128,32,32,32,128
  290 data 8,15,12,9,4,1,25,26,32,18,21,12,5,33,128,32,32,32,32,32,32,32
  300 data 13,25,32,19,3,18,15,12,12,19,25,19,20,5,13,32,9,19,32,17,21,9,20,5
  310 data 32,7,15,15,4,32,6,15,18,32,9,20,19,32,12,1,13,5,14,5,19,19,46
  320 data 32,9,32,3,15,21,12,4,32,1,14,9,13,1,20,5,32,13,15,18,5,32
  330 data 19,20,21,6,6,32,15,14,32,19,3,18,5,5,14,32,23,9,20,8,15,21,20,32
  340 data 18,5,4,21,3,9,14,7,32,20,8,5,32,19,16,5,5,4,32,15,6,32,19,3,18
  350 data 15,12,12,9,14,7,44,2,21,20,32,9,32,1,13,32,10,21,19,20,32,20,15,15
  360 data 32,12,1,26,25,46,32,32,32,32,32,32,32,32,32,32,32,32,23,1,18,16,255
  370 print"all works done by simon of senil data systems in 2003"
  375 j=35
  380 print"{down}{down}{rvon}      {rght}    {rght}{rght}     {rght}     {rght}     {rght}     "
  390 print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} "
  400 print"{rvon} {rght}{rght}   {rght}    {rght}{rght}   {rght}{rght}{rght}   {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}     "
  410 print"{rvon} {rght}{rght}{rght}{rght} {rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} "
  420 print"{rvon}      {rght} {rght}{rght}{rght} {rght}     {rght}     {rght}{rght}{rght} {rght}{rght}{rght}     "
  425 print"{down}{down}"
  430 read b
  435 if b>=100 then j=b-100
  440 poke 34367,b
  450 for l=1 to j:next l
  460 print " ";chr$(20);
  470 if b=255 then restore
  480 get a$:if a$="" then 430
  490 data 7,18,5,5,20,9,14,7,19,32,7,15,32,20,15,58,32,14,15,2,15,4,25,33
  500 data 32,32,32,3,15,26,39,32,14,15,2,15,4,25,32,23,9,12,12,32,5,22,5,18
  510 data 32,18,5,1,4,32,20,8,9,19,32,19,3,18,15,12,12,20,5,24,20,32
  520 data 5,24,3,5,16,20,32,13,5,32,1,14,4,32,13,25,32,6,18,9,5,14,4,19,46
  530 data 32,32,2,21,20,32,9,32,7,18,5,5,20,32,20,8,5,19,5,32,7,21,25,19,44
  540 data 32,20,15,15,46,32,32,32,125,32,13,1,18,20,9,14,32,2,15,5,14,19,5,12
  550 data 44,32,14,9,3,15,32,19,20,5,6,1,14,32,13,9,11,1,9,12,44,32
  560 data 16,1,19,3,1,12,44,32,12,21,11,5,32,13,15,32,32,135
  570 data 20,8,5,32,3,54,52,32,6,18,5,1,11,19,32,7,18,5,5,20,5,32,7,15,32
  580 data 20,15,58,32,105,32,32,15,14,12,9,14,5,44,32,1,3,22,44,32,9,19,9,44
  590 data 32,8,9,3,44,32,3,18,5,19,20,46,140,32,32,32,20,8,1,20,39,19
  600 data 32,1,12,12,32,20,8,9,19,32,20,5,24,20,32,9,19,32,14,15,23,32
  610 data 23,18,1,16,16,9,14,7,135,255
    5 print chr$(142):poke 59468,85
   10 if peek(16384)=170 then print"{home}{down}{rght}";chr$(15)
   20 if peek(16384)=170 then print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{ensh}{left}";chr$(143);"{up}{up}"
   30 poke 16384,85
   40 print"Select a frame"
   50 print"1 - Old TV"
   60 print"2 - Simple outline"
   70 print"3 - Danger Zone"
   75 rem 3 requires to poke 59468,12
   80 print"4 - Stars"
   90 get a$:if a$=""then 90
  100 if a$="1" then goto 1000
  110 if a$="2"then goto 2000
  120 if a$="3" then goto 3000
  130 if a$="4"then goto 4000
  140 print"Remember to power off and on your computer to restore CRT{$a0}Mode"
 1000 poke 32768,160:poke34767,160:poke32847,160:poke 34688,160
 1005 x=0
 1010 read a
 1020 for t=0 to 4
 1030 poke 32768+t+x,a
 1040 poke 32768+80-t-x,a
 1050 next t
 1060 x=x+5
 1070 if x<40 then goto 1010
 1080 data 160,228,239,249,226,120,119,99
 1090 poke 32808,99
 1105 x=0
 1110 read a
 1120 for t=0 to 4
 1130 poke 34687+t+x,a
 1140 poke 34687+80-t-x,a
 1150 next t
 1160 x=x+5
 1170 if x<40 then goto 1110
 1180 data 160,227,247,248,98,121,111,100
 1190 poke 34727,100
 1200 poke 32848,231:poke 34608,231:poke 32927,229:poke 34687,229
 1210 poke 32928,234:poke 34528,234:poke 33007,244:poke 34607,244
 1220 poke 33008,234:poke 34448,234:poke 33087,244:poke 34527,244
 1230 poke 33088,246:poke 34368,246:poke 33167,245:poke 34447,245
 1240 poke 33168,97:poke 34288,97:poke 33247,225:poke 34367,225
 1450 poke 33248,97:poke 34208,97:poke 33327,225:poke 34287,225
 1460 poke 33328,117:poke 34128,117:poke 33407,118:poke 34207,118
 1470 poke 33408,117:poke 34048,117:poke 33487,118:poke 34127,118
 1480 poke 33488,116:poke 33968,116:poke 33567,106:poke 34047,106
 1490 poke 33568,116:poke 33888,116:poke 33647,106:poke 33967,106
 1500 poke 33648,101:poke33808,101:poke 33727,103:poke 33887,103
 1510 poke 33728,101:poke 33807,103
 1999 end
 2000 poke 59468,14
 2010 poke 32768,112:poke 32847,110:poke 34688,109:poke 34767,125
 2020 for t=1 to 78
 2030 poke 32768+t,64
 2040 poke 34688+t,64
 2050 next t
 2060 for t=1 to 23
 2070 poke 32768+80*t,93
 2080 poke 32847+80*t,93
 2090 next t
 2100 end
 3000 poke 59468,12
 3010 for t=0 to 39
 3020 poke 32768+t*2,233:poke 32769+t*2,105
 3025 poke 34688+t*2,233:poke 34689+t*2,105
 3030 next t
 3040 for t=0 to 11
 3050 poke 32768+160*t,233:poke 32848+160*t,105
 3055 poke 32847+160*t,105:poke 32927+160*t,233
 3060 next t
 3100 end
 4000 for t=0 to 79
 4010 poke 32768+t,42:poke 34688+t,42
 4020 next t
 4030 for t=1 to 23
 4040 poke 32768+t*80,42
 4050 poke 32847+t*80,42
 4060 next t
    1 print chr$(14);
   10 print"{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Funny fake Error Messages"
   20 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press SPACE for next one"
   30 for l=1 to 1000:next l
   40 print"{down}{down}{down}?cpu feels bored error in";int(rnd(0)*6000)*10+5000
   50 get a$:if a$<>" " then 50
   60 for i=1 to 4
   71 if i=1 then print"l";
   72 if i=2 then print"o";
   73 if i=3 then print"a";
   74 if i=4 then print"d"
   80 for l=1 to 200:next l
   90 next i
  100 print"{down}press play on tape #1"
  110 for l=1 to 1000:next l
  120 print "ok":print"{down}searching"
  130 for l=1 to 2000:next l
  140 print"?tape blank error":print"ready."
  150 get a$:if a$<>" " then 150
  155 a=0
  160 for i=1 to 3
  161 if i=1 then print"r";
  162 if i=2 then print"u";
  163 if i=3 then print"n"
  170 for l=1 to 200:next l
  180 next i
  183 if a=0 then goto 400
  190 print"This Program requires Microsoft Windows"
  200 print"{down}C:\>";
  210 print"{CBM-P}{left}";
  220 for l=1 to 80:next l
  230 print" {left}";
  240 for l=1 to 80:next l
  250 get a$:if a$<>" "then 210
  260 print"Bin ich hier im falschen Film gelandet!?"
  270 for l=1 to 300:next l
  280 print"Befehl oder Dateiname nicht gefunden"
  290 print"{down}C:\>";
  300 for i=1 to 4
  310 if i=1 then print"e";
  311 if i=2 then print"x";
  312 if i=3 then print"i";
  313 if i=4 then print"t{up}"
  320 for l=1 to 300:next l
  330 next i
  340 end
  400 a=1
  410 print"?you should have bought a squirrel error in";int(rnd(0)*6000)*10+5000
  411 rem this joke requires the knowledge of the film "rat race"
  415 print
  420 get a$:if a$<>" " then 420
  430 for i=1 to 3
  440 if i=1 then print"rte";
  441 if i=2 then print"uy7";
  442 if i=3 then print"nmn"
  450 for l=1 to 300:next l
  460 next i
  470 print"{down}?fingers too fat error{down}"
  480 get a$:if a$<>" " then 480
  490 print"?computer/user mismatch error"
  575 get a$:if a$<>" " then 575
  580 goto 160
    1 ti$="000000"
    2 dim d(14)
    3 for t=1 to 14:d(t)=int(rnd(0)*10):next t
    5 print chr$(14);"{clr}"
   10 poke 32768+int(rnd(0)*80),int(rnd(0)*256)
   15 poke 32768+int(rnd(1)*80),int(rnd(1)*256)
   20 if val(ti$)<15 then goto 70
   30 if val(ti$)=d(1)+15 then poke 32793,77
   32 if val(ti$)=d(2)+16 then poke 32795,1
   34 if val(ti$)=d(3)+15 then poke 32797,20
   36 if val(ti$)=d(4)+14 then poke 32799,20
   38 if val(ti$)=d(5)+17 then poke 32801,25
   40 if val(ti$)=d(6)+18 then poke 32805,45
   41 if peek(33753)=77 then poke (33753-80),77
   43 if peek(33755)=1 then poke(33755-80),1
   45 if val(ti$)=d(7)+16 then poke 32809,82
   46 if peek(33757)=20 then poke(33757-80),20
   48 if peek(33759)=20 then poke(33759-80),20
   49 if peek(33761)=25 then poke(33761-80),25
   50 if val(ti$)=d(8)+15 then poke 32811,5
   51 if peek(33765)=45 then poke(33765-80),45
   52 if peek(33769)=82 then poke(33769-80),82
   53 if peek(33771)=5 then poke(33771-80),5
   54 if peek(33773)=12 then poke(33773-80),12
   55 if val(ti$)=d(9)+15 then poke 32813,12
   56 if peek(33775)=15 then poke(33775-80),15
   57 if peek(33777)=1 then poke(33777-80),1
   58 if peek(33779)=4 then poke(33779-80),4
   59 if peek(33781)=5 then poke 33701,5
   60 if val(ti$)=d(10)+18 then poke 32815,15
   61 if peek(33783)=4 then poke 33703,4
   62 if val(ti$)=d(11)+16 then poke 32817,1
   63 if val(ti$)>35 then goto 90
   64 if val(ti$)=d(12)+17 then poke 32819,4
   66 if val(ti$)=d(13)+17 then poke 32821,5
   68 if val(ti$)=d(14)+16 then poke 32823,4
   70 print"{up}"+chr$(153)
   80 goto 10
   90 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}                        M a t t y   -   R e l o a d e d"
  100 print chr$(153)
  110 if val(ti$)<38 then goto 90
  115 for t=1 to 13
  120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";chr$(149)
  125 next t
   10 print chr$(142);"{clr}";
   20 for t=33168 to 33247
   30 poke t,98:poke t+1440,226
   40 next t
   50 for t=34448 to 34466
   60 poke t,98
   70 next t
   80 poke 34467,255
   90 poke 34468,226
  100 poke 34469,226
  110 poke 34470,126
  120 poke 34390,98
  130 poke 34391,254
  140 poke 34312,254
  150 poke 34392,126
  160 poke 34313,126     
  170 poke 34233,254
  180 poke 34154,97
  190 poke 34073,127
  200 poke 34072,124:poke 33992,123
  210 poke 33991,98:poke33990,226
  220 poke 33909,98:poke33908,98
  230 poke 33907,226:poke 33906,124:poke33826,123
  240 poke 33825,127:poke 33744,127
  250 poke 33663,225:poke33583,108
  260 poke 33584,126:poke33504,108
  270 poke 33505,126:poke33425,108
  280 poke 33426,255:poke 33427,226
  290 poke 33348,98:poke33349,255
  300 for t=33350 to 33367:poket,226:nextt
  310 poke 33355,251:poke33368,251
  320 for t=33435 to 34500 step 80:poket,225:poket+13,225:nextt
  330 for t=34476 to 34487:poke t,98:nextt
  340 poke 34488,254
  350 for t=33916 to 33923:poket,98:nextt
  360 poke 33369,223
  370 for t=33449 to 34500 step 81
  380 poke t,95:poket+1,223
  390 next t
  400 poke 34502,95
  410 for t=34503 to 33360 step -80:poket,97:nextt
  420 for t=33305 to 34600 step 80
  430 poke t,160:poket+1,160:poket+2,160:poket+3,160
  440 next t
  450 for t=33390 to 34580 step 80
  460 poke t,225:next t
  470 for t=34511 to 34527:poket,98:next t
  480 poke 32826,233:poke32827,223
  490 poke 32905,254:poke 32906,160:poke32907,160:poke32908,252
  500 poke 32903,111:poke32904,98:poke32909,98:poke32910,111
  510 poke 32984,251:poke 32989,236
  520 for t=32985 to 32988:poket,160:poket+80,160:nextt
  530 poke33064,233:poke33069,223
  540 poke 33066,239:poke33067,239
  550 poke 33143,233:poke33144,226:poke33149,226:poke33150,223
  560 print tab(33);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}data systems";
  570 print tab(60);"www.tempect.de/seni{home}"
  580 poke 34767,12
   10 print chr$(142);"{clr}";
   20 for t=33168 to 33247
   30 poke t,98:poke t+1440,226
   40 next t
   50 for t=34448 to 34466
   60 poke t,98
   70 next t
   80 poke 34467,255
   90 poke 34468,226
  100 poke 34469,226
  110 poke 34470,126
  120 poke 34390,98
  130 poke 34391,254
  140 poke 34312,254
  150 poke 34392,126
  160 poke 34313,126     
  170 poke 34233,254
  180 poke 34154,97
  190 poke 34073,127
  200 poke 34072,124:poke 33992,123
  210 poke 33991,98:poke33990,226
  220 poke 33909,98:poke33908,98
  230 poke 33907,226:poke 33906,124:poke33826,123
  240 poke 33825,127:poke 33744,127
  250 poke 33663,225:poke33583,108
  260 poke 33584,126:poke33504,108
  270 poke 33505,126:poke33425,108
  280 poke 33426,255:poke 33427,226
  290 poke 33348,98:poke33349,255
  300 for t=33350 to 33367:poket,226:nextt
  310 poke 33355,251:poke33368,251
  320 for t=33435 to 34500 step 80:poket,225:poket+13,225:nextt
  330 for t=34476 to 34487:poke t,98:nextt
  340 poke 34488,254
  350 for t=33916 to 33923:poket,98:nextt
  360 poke 33369,223
  370 for t=33449 to 34500 step 81
  380 poke t,95:poket+1,223
  390 next t
  400 poke 34502,95
  410 for t=34503 to 33360 step -80:poket,97:nextt
  420 for t=33305 to 34600 step 80
  430 poke t,160:poket+1,160:poket+2,160:poket+3,160
  440 next t
  450 for t=33390 to 34580 step 80
  460 poke t,225:next t
  470 for t=34511 to 34527:poket,98:next t
  480 poke 32826,233:poke32827,223
  490 poke 32905,254:poke 32906,160:poke32907,160:poke32908,252
  500 poke 32903,111:poke32904,98:poke32909,98:poke32910,111
  510 poke 32984,251:poke 32989,236
  520 for t=32985 to 32988:poket,160:poket+80,160:nextt
  530 poke33064,233:poke33069,223
  540 poke 33066,239:poke33067,239
  550 poke 33143,233:poke33144,226:poke33149,226:poke33150,223
  560 print tab(33);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}data systems";
  570 print tab(65);"www.senil.de.g{home}"
  580 poke 34767,7
    0 clr:poke59468,12
    1 rem demon! copyright (c) 1979 k morley
    2 rem 6440 dumfries st.
    3 rem vancouver, b.c., canada
    4 :
    5 rem cursor #11, june, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of aug 20 1979
   90 pg$="demon!":nm$="11":gosub62000
  100 rem
  110 fori=1to9:readn2(i):nexti
  120 data17,14,13,8,0,12,9,10,11
  130 fori=1to8:d(i)=i-(i>4):nexti
  140 fori=1to9:reade(i):next
  150 data39,40,41,-1,0,1,-41,-40,-39
  160 fori=1to9:readn1(i):next
  170 data58,52,46,28,0,43,30,34,38
  190 fq=59464:tn=59466:ct=59467
  300 nm=0:cr$=chr$(13)
  310 o1=33708:ti$="000000"
  320 print"{clr}"
  480 goto500
  490 print"{down}please answer '1', '2', or '3'."
  500 print"{down}want a (1) short, (2) medium, or
  510 print"(3) long game? ";:gosub60000
  520 ifin$=""thenprint"i'll assume a short game.":fort=1to1000:next:in$="1"
  530 iflen(in$)>1then490
  540 ifin$<"1"orin$>"3"then490
  550 lm=3600*val(in$)
  800 gosub10000
  810 fori=1to5:pokeo1,81:forj=1to100:next:pokeo1,32:forj=1to100:next:nexti
  820 pokeo1,81
  900 op=32809+int(rnd(1)*918)
  910 ifpeek(op)<>32then900
 1000 nd=8
 1005 t=int(rnd(1)*nd):dn=d(t):d(t)=d(nd):d(nd)=dn:nd=nd-1
 1006 ifpeek(op+e(dn))<>32then1005
 1010 fori=1toint(rnd(1)*6)+3
 1020 np=op+e(dn)
 1030 ifpeek(np)=81thengosub5000:goto900
 1040 ifpeek(np)=32thenpokeop,32:pokenp,87:op=np:pc=n2(dn):gosub4000
 1100 ifti>lmthengoto2000
 1110 b=usr(0):ifb=0then2000
 1120 n1=o1+e(b)
 1130 ifpeek(n1)=87thengosub5000:goto900
 1140 ifpeek(n1)=32thenpokeo1,32:poken1,81:o1=n1:pc=n1(b):gosub4000
 1500 nexti
 1510 goto1000
 2000 pc=0:gosub4000:poketn,1:pc=255
 2001 pokeop,102:gosub2500
 2002 pokeop,224:gosub2500
 2003 pokeop,32:gosub2500
 2004 gosub4100
 2010 fori=1to1000:nexti
 2015 print"{clr}{down}{down}{down}the spell has expired!"
 2020 print"{down}you caught";nm;"demon";
 2025 ifnm<>1thenprint"s";
 2030 print"!":fori=1to100:nexti
 2035 gett$:ift$<>""then2035
 2040 print"{down}want to play again? ";:gosub60000
 2050 ifleft$(in$,1)<>"n"then300
 2100 print"{clr}{down}{down}":end
 2500 fori=1to20:forj=1to10:nextj:pokefq,pc:pc=pc-4:nexti:return
 4000 pokect,16:poketn,15:pokefq,pc:ifpc=0thenreturn
 4100 pokefq,0:poketn,0:pokect,0:return
 5000 pokeop,215
 5010 pc=0:gosub4000
 5020 fork=1to250step2:pokefq,k:next
 5030 gosub4100
 5040 nm=nm+1
 5050 return
 10000 t$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 10010 print"{clr}{CBM-A}";t$;"{CBM-S}{left}{inst}{SHIFT-*}"
 10020 fori=1to23:print"{SHIFT--}";tab(38);"{SHIFT--}{left}{inst}":nexti
 10030 print"{CBM-Z}";t$;"{CBM-X}{left}{inst}{SHIFT-*}{home}"
 10035 fork=1to70
 10040 w=int(rnd(1)*918+41)
 10050 ifpeek(32768+w)<>32then10040
 10060 poke32768+w,214
 10070 next
 10080 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}";:gosub60400:goto61000
 60400 cr$=chr$(13):qv=1:ifpeek(50000)thenqv=2
 60410 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 61000 dimj(15):poke59456,0:j$=" joystick"
 61005 restore:fori=0to15:j(i)=5:next
 61010 readp$:ifp$<>"&js&"then61010
 61015 readi,d,f,q,s,k:fort=i+8tod:readx:poket,x:next
 61016 ifqv=1thenpokef,176:pokeq,3:pokeq+1,2
 61020 print"{down}{down}using a";j$;"? ";:gosub60000:ifleft$(in$,1)<>"y"thens=k:goto61070
 61030 print:fori=0to5:readp$,p:gosub61100:t(i)=t:j(t)=p:nexti
 61033 fori=1to5:ift(i-1)<>t(i)then61040
 61035 nexti:print"{down}{rvon}is your";j$;" plugged in?":goto61005
 61040 fori=1to4:j(t(i)andt)=0:next:fori=1to2:forj=3to4:readp:j(t(i)andt(j))=p
 61060 next:next:forj=0to15:poked+1+j,j(j):next
 61070 poke1,s:poke2,2:clr:gosub60400:print"{clr}";:goto100
 61100 print"{down}hold";j$;" ";p$;" & press a key"
 61110 gett$:ift$=""then61110
 61120 t=peek(59471):t=int(t/16)andt:return
 61200 data&js&,651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
 61210 data237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
 61220 data48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
 61230 data0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
 61240 data131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16
 61250 datacentered,5,left,4,right,6,up,8,down,2,button down,0,7,1,9,3
 62000 print"{clr}{down}{down}";tab(9);"cursor #11  demon!
 62005 print"{down} copyright (c) 1979  by ken morley{down}
 62010 gosub60500
 62030 print"{down}capture the escaped demons
 62040 print"{down}{down}{down}want directions? ";:gosub60000
 62050 ifleft$(in$,1)<>"y"then60300
 62100 lp=3:gosub60200
 62110 print"in the midst of a demonstration of a new
 62120 print"spell at the wizards, warlocks and sor-
 62130 print"{down}cerers chowder and marching society, an
 62140 print"{down}accident occurred, permitting the escape
 62150 print"of some demons. fortunately, the spell
 62155 print"{down}was set up so that it will expire soon.
 62160 print"{down}also, only one demon can be loose at a
 62170 print"{down}time (which is just as well...). your
 62180 print"{down}task is to recapture as many demons as
 62190 print"{down}possible before the spell expires.
 62200 gosub60200
 62210 print"you may control your moves with either a
 62220 print"joystick or the numeric pad. the  7 8 9
 62230 printtab(35);"M{SHIFT--}N
 62240 print"number pad moves you as shown to  4{SHIFT-*}Q{SHIFT-*}6
 62250 printtab(35);"N{SHIFT--}M
 62260 print"the right.  to stop the game      1 2 3
 62270 print"{down}early, press the joystick button (if
 62280 print"{down}you're using the joystick), or the {rvon}space{rvof}
 62290 print"key (if you're using the numeric pad).
 62310 gosub60200
 62320 print"in the game, you will be the 'Q', and
 62330 print"{down}the currently escaped demon will be 'W'.
 62340 print"when you capture a demon, it is frozen
 62350 print"{down}in place, and marked with '{rvon}W{rvof}'. when the
 62360 print"{down}spell ends, the currently escaped demon
 62370 print"{down}will be sent back where he came from,
 62380 print"{down}and won't be a problem.
 62390 gosub60200
    1 rem derelict
    5 clr
   10 print"{clr}":dimd$(26),o$(71),l%(70),p%(37,6):l=1:o1=71:o2=501:o3=31
   12 q=4
   15 print"an alien tractor beam is pulling you in":goto180
   20 print"it's already open":goto370
   21 stop
   30 print"o.k."
   40 goto370
   50 ifl>30andl<40thenprint"you are at: a corridor rising upward in front and behind you"
   60 ifl>30andl<40thenprint"you are at: a corridor rising upward in front and behind you"
   70 ifl>25andl<31thenprint"you are at:";d$(26)
   80 return
   90 ifl<5orl=11orl=12orl>25then150
  100 l=l+40
  110 print"you are in a  glass booth--there is a keyboard here":ifl>77thenl=l-40:goto110
  120 z$="":ifl>45andl<50orl>52andl<65thenz$="a sign:"
  130 print"outside you see:":print;z$;d$(l-40):l=l-40:gosub1120
  140 l=l+40:goto40
  150 print"that's not here":goto40
  160 l=l-40:goto830
  170 print"ship floated away":l%(59)=90:p%(25,5)=0:goto420
  180 forx=1to26:readd$(x):next
  190 data cabin of a one man spaceship,airlock,mine,vertical shaft,asteroid surface
  192 datahgliztv illn,vmtrmv illn,gllo illn,xlnnfmrxzgrlmh,observation deck,stairs
  194 datamachinery room,hrxp yzb,nvm,dlnvm,xzkgrzmh xzyrm,oryizib,xivdh jfzigvih
  196 data ivxivzgrlm
  200 dataozyilzglib,prgxsvm,nvhh szoo,hvxfirgb,xlmgilo wvxp
  202 datalanding bay,central shaft
  210 forx=1to500:next:print"bay doors closing behind you
  220 forx=1to71:reado$(x):o$=o$+left$(o$(x),2):ifx>6thenreadl%(x-6)
  230 next
  240 dataforward,aft,spinward,antispinward,up,down,nylon spacesuit-with fitting,1
  242 dataoxygen bottle,1,magnetic boots,1,metallic spacesuit-with fitting,6,cutting torch
  244 data8,tank,8,lumps of coal,3,shielding,7,sign,1,resistors,9,flashlight,12,log book
  246 data16,phaser,90
  250 data ring of keys,90,gray box-with knob,90,playing cards,19,lighter,16,bottle,90
  252 datatitanium pickax,3,ruby crystal,90,wire(silver),90,painting,16,coins,90
  254 datajeweled gaming pieces,19,diamonds,90,globe(platinum),17,gold,90
  256 dataimmortality syrum,90
  260 dataporthole,1,switch,1
  270 data iron door,2,atmospheric analyzer,2,hatch(hull),2,hyperdrive engines,7,gauges,7
  272 datainstruments,7,yellow sign,7,chart,9,transmitter,9,radio
  274 data9,press,12,cabinet,13,blue door,14,pink door,15,fixtures(porcelain),15
  276 datafoot hole,14,bunk,16,desk,16,safe,23
  280 dataclothpallets,18,oven,21,large machine,20,benches and tables,22,video projector
  282 data17,screen,17,pushbuttons(colored),24,crt screen,24,bay doors(closed),25
  284 datasmall spaceship,25,#1 droid,25,#2 droid,7,#3 droid,17,#4 droid,13,#5 droid,20
  286 data#6 droid,24
  290 print"{clr}":print"bay doors closed":forx=1to500:next:print"tractor beam off!
  300 fory=1to37:forx=1to6:readp%(y,x):nextx:nexty
  310 data,2,,,,,1,,,,,0,,,,,4,,,,,,5,3,,,,,,4,32,,,,,,,31,,,,,,32,,
  312 data,,31,,,,,,,,,,,11,,,,,10,12,,,,,11,,34,,,,,
  320 data,35,,,,,35,,,,,,33,,,,,,,,19,,,,,34,,,,,,33,,17,,,,36,,,,
  322 data37,,,,,,,37,,,,,36,,,,,,,,,,,30,,26,,,2,,25,25,,,27,26
  330 data,,,,28,26,32,31,,,29,27,34,33,,,30,28,36,37,,,24,29,7,9,32
  332 data32,28,,8,6,31,31,28,,19,16,34,35,29,,18,13,35,33,29,,14,15
  334 data33,34,,,20,23,37,37,30,,22,21,36,36,30,
  340 forx=1to10:readc$(x):next
  350 datablack,brown,red,orange,yellow,green,blue,purple,gray,white
  360 w$="goloreunpuopblcucldratdeplliwe":goto830
  370 print:print"your command":inputa$:print:b$="":forx=1tolen(a$)
  380 ifmid$(a$,x,1)=" "andlen(a$)>x+1thenb$=mid$(a$,x+1,2)
  390 next:ifl=7orl=13orl=17orl=20orl=24orl=25then2680
  400 m=0:j1=0:r=int(rnd(10)*10)+2
  410 f=0:s=0:a$=left$(a$,2):ifl>2andb=1andn=0andl%(59)=25then170
  420 ifw=1andl%(17)=0andl>6thenw=0:print"lighter went out
  430 ift=1theno2=o2-25
  440 ifl%(6)<>0andt=1oro4=2andt=1thent=0:print"torch is out
  450 ifl<6ando4=0then480
  460 o=o-1:ifo<0thenprint"you die-no oxygen":end
  470 ifo<10thenprint"oxygen is low!!
  480 forx=1tolen(w$)step2:ifmid$(w$,x,2)=a$thenf=(x+1)/2
  490 next:forx=1to142step2:ifmid$(o$,x,2)=b$thens=(x+1)/2:goto 500
  491 next
  500 ifl=7andc2=1andl%(4)<>0thenprint"you die from radiation":end
  510 z=(s-6):ifa$="ta"ora$="ge"then1000
  520 ifa$="in"andb$=""then1070
  530 ifa$="lo"andb$=""then830
  540 iff=1and(b$="bo"orb$="in")andl<40then90
  550 iff=1and(b$="ex"orb$="ou")andl>40then160
  560 iff=5andb$="ke"andl>40then1450
  570 iff=2andb$="ke"andl>40thenprint"keys numbered 1-99":goto40
  580 iff=2andb$="bo"andl>40thenprint"exit":goto40
  590 iff=5andb$="bu"then1740
  610 ifa$="tu"andb$="kn"then1650
  620 ifa$="of"then2470
  630 ifa$="sc"then2570
  640 ifa$="ex"andb$="bo"andl>40then160
  650 iff=0ors=0thenprint"what?":goto40
  660 iff>9then720
  670 ifs<7then700
  680 ifl%(z)<>landl%(z)<>0then150
  700 on(f-1)goto1190,1260,1430,1550,1830,1950,2030,2070
  710 goto750
  720 ifs<7then740
  730 ifl%(z)<>0thenprint"you don't have it":goto40
  740 on(f-9)goto2110,2230,2290,2000,2340,2630
  750 ifs>6thenprint"can't go to that":goto40
  760 ifl>40thenprint"can't":goto40
  800 ifp%(l,s)=0thenprint"can't go that way!":goto40
  810 l=p%(l,s)
  820 ifl>40then120
  830 ifl>12andl<25orl>5andl<10thenprint"you are in a room-"
  832 ifl>12andl<25orl>5andl<10thenprint"the sign says: ";d$(l):goto910
  840 gosub50:ifl>38then110
  841 ifl>25andl<38then844
  843 print"you are at: ";d$(l)
  844 ifl>25andl<31andl%(3)<>0thenprint"you are floating helpless in zero g":end
  910 ifl<5orl>25orl=11orl=12goto1100
  920 l1=int(l/10):l2=l-10*l1:ifl=10then print"you are looking on an alien city
  930 ifl=5thenprint"a black/green asteroid surface stretches out before you":goto950
  940 print"the floor is "c$(l1+1):print"the walls are ";c$(l2+1)
  950 print"there is a glass booth here
  960 ifj1=1andl<40thenprint"and a smoking pile of junk
  970 print:goto1100
  980 goto1160
  990 print"can't go to that":goto370
 1000 ifs<7thenprint"huh??!!":goto40
 1010 ifl%(z)=0thenprint"you have that":goto40
 1020 ifl%(z)<>lthenprint"it's not in sight":goto40
 1030 ifs>34thenprint"you can't take that!!":goto40
 1040 ifs=14andc2=0thenprint"can't-it's welded to the floor":goto40
 1050 ifc>12thenprint"you are carrying too much!":goto40
 1060 l%(z)=0:c=c+1
 1070 print"you are carrying:":forx=1to37:ifl%(x)=0thenprinto$(x+6)
 1080 next:ifc=0thenprint"nothing
 1090 goto40
 1100 gosub1120
 1110 goto1160
 1120 y=0:print"you see-":forx=1to65:ifl%(x)=lthenprinto$(x+6):y=y+1
 1130 next:ify=othenprint"nothing
 1140 ifl=12orl=14orl=15orl=17orl=20thenprint"a button(push-type)
 1150 return
 1160 print"exits are-":ifl>40then40
 1170 forx=1to6:ifp%(l,x)>0thenprinto$(x)
 1180 next:goto40
 1190 ifl>40ands<7then40
 1200 ifs>6then1220
 1220 ifs=35thenprint"landing bay
 1230 ifs=18thenprint"hzuv: #!!!-#!##-#!!!
 1240 ifs=28thenprint"a black & green asteroid
 1250 ifs=55thenprint"keypad-numbers 0-9
 1260 ifs=61andv=1thenprint"a brown & black alien city
 1270 ifs=38thenprint"helium outside
 1280 ifs=8thenprint"attach/detach oxygen
 1290 ifs=43thenprint"izwrzgrlm
 1300 ifs=49thenprint"nvm
 1310 ifs=12thenprint"dvowrmt tzh
 1320 ifs=50thenprint"dlnum
 1330 ifs=47thenprint"xziylm xibhgzorvi fmrg
 1340 ifs=15thenprint"drop treasure here-type score
 1350 ifs=45ors=57thenprint"a lid
 1360 ifs=63andp=0thenprint"no power":goto40
 1370 ifs=58thenprint"ovzw gl tlow
 1380 ifs=24thenprint"xllprmt tzh
 1390 ifs=62thenprint"red kldvi":print"green gizxgli yvzn":print"bblue yzb wllih":goto40
 1400 ifs=63thenprint"my favorite martian reruns
 1410 ifs=44thenprint"    # yozxp":print"    ! yildm":print"   !# ivw"
 1412 ifs=44thenprint"   !! lixmtv":print"  !## bvoold":print"  !#! tivvm":print" !!#yofv"
 1414 ifs=44thenprint"  !!! kfikov":print" !### tizb":print"!##! dsrfv"
 1420 print:print:goto40
 1430 ifs=48andl%(14)=0andk=0thenk=1:goto30
 1440 print"can't":goto40
 1450 print:input"which one";z:ifz<1orz>99thenprint"error":goto1450
 1460 ifp=0thenprint"no power":goto40
 1480 print"{clr}":z1=l:l=z:print"zzaapp"
 1490 ifz<4 orz=11 orz=12 orz>25 thengoto 1520
 1500 goto100
 1520 print"you molecules are scattered throughout the known universe!!":end
 1540 print"malfunction":l=z1-40:goto100
 1550 ifb$="ke"thenprint"not here"
 1560 ifl=24thenprint:input"what color";k$:k$=left$(k$,2):goto1580
 1570 goto1720
 1580 ifk$="re"then1690
 1590 ifp=0thenprint"nothing happens":goto40
 1600 ifk$="bl"then1630
 1610 ifk$="gr"then1670
 1620 goto40
 1630 ifb=0thenprint"open":b=1:o$(64)="bay doors(open)":goto40
 1640 print"closed":b=0:o$(64)="bay doors(closed)":goto40
 1650 ifl%(15)=0 orl%(15)=l then 1670
 1660 print"it's not here"
 1670 ifn=0then n=1:print"beam on":goto40
 1680 n=0:print"beam off":goto40
 1690 ifp=1thenprint"power off":goto40
 1700 p=1:print"{clr}":print"power on":print:forx=1to6:print:print"intruder alert":nextx
 1710 forx=24to37:p%(x,5)=0:p%(x,6)=0:nextx:p%(25,2)=0:p%(25,5)=2:goto40
 1720 ifs=36then2520
 1730 goto40
 1740 ifl=14 orl=15 thenprint"you hear water gurgling":goto40
 1750 ifp=0thenprint"no power":goto40
 1760 ifl=20andl%(8)=20andg=1thenl%(27)=20:l%(8)=90:goto1820
 1770 ifl=12andl%(7)=landd2=1thenl%(7)=90:l%(25)=12:goto1820
 1780 ifl=12orl=20thenprint"nothing placed in that machine":goto40
 1790 ifl=17andv=0thenprint"screen is lit":v=1:goto40
 1800 ifl=17thenv=0:print"off":goto40
 1810 print"not here":goto40
 1820 print"done!":goto40
 1830 ifs=48andk=0thenprint"locked!":goto40
 1840 ifs=48thenifl%(28)=90thenl%(28)=13:l%(21)=13:l%(15)=13:goto30
 1841 ifs=48thenifl%(28)<>90thengoto 20
 1850 ifs=55thenifl%(23)=90thenprint:input"combination";q$
 1851 ifs=55thenifl%(23)<>90thengoto20
 1860 ifs=55andp=0thenprint"no power":goto40
 1865 ifs<>55then goto1880
 1870 ifl%(23)=90thenifq$="747"orq$="7-4-7"thenl%(23)=23:l%(13)=23:l%(14)=23:goto30
 1880 ifs=45thenifl%(20)=90thenl%(20)=9:goto30
 1881 ifs=45thenifl%(20)<>90thengoto20
 1890 ifs=37andd1=0ors=39andd=1then20
 1900 ifs=39andd1=1andd=0thend=1:p%(2,6)=25:goto30
 1910 ifs=37and1=1andd=0thend1=0:p%(2,1)=1:goto30
 1920 ifs=39 ors=37thenprint"can't yet--the airlock is open!
 1930 ifs=57thenifl%(18)=90thenl%(18)=21:goto30
 1931 ifs=57thenifl%(18)<>90thengoto20
 1940 goto40
 1950 ifl%(13)=0ands>65andl=l%(z)thenj=int((rnd(3)*3)):goto1970
 1960 print"can't":goto40
 1970 ifq=0thenprint"phaser is empty!!":goto40
 1980 ifj<1then:print"{clr}":print"phaser misfired":goto40
 1990 print"{clr}":print"droid destroyed":q=q-1:l%(z)=90:goto40
 2000 print:input"in what";p$:p$=left$(p$,2):ifp$="pr"andl=12ands=13thenl%(7)=l:d2=1:goto30
 2010 ifp$="la"andl=20ands=14thenl%(8)=l:g=1:goto30
 2020 print"can't":l%(z)=l:goto40
 2030 ifs=14andl<>l%(z)then1810
 2032 ifs=14andl%(5)=0then2050
 2040 print"no torch":goto40
 2050 ifl%(6)=0andt=1thenc2=1:print"it's cut":goto40
 2060 print"can't":goto40
 2070 ifs=37andd1=1ors=39andd=0thenprint"it's closed":goto40
 2080 ifs=39andd=1thend=0:p%(2,6)=0:goto30
 2090 ifs=37andd1=0thend1=1:p%(2,1)=0:goto30
 2100 print"can't close that":goto40
 2110 ifs<7thenprint"what":goto40
 2120 ifs=7thenw1=0
 2130 ifs=10thenw2=0
 2140 ifs=8ando4=1then2220
 2150 ifs=12ando4=2then2220
 2160 ifs=24ando4=3then2220
 2170 l%(z)=l:c=c-1
 2180 ifs=7ando4=1thenl%(2)=l:o1=o:goto2210
 2190 ifs=10ando4=2ors=10ando4=3thenl%(18)=l:o3=0:goto2210
 2200 goto30
 2210 c=c-1:o=0:o4=o:goto30
 2220 print"can't-it's attached":goto40
 2230 ifo4<>0 thenprint"can't":goto40
 2240 ifs=8andw1=1theno=o1:o4=1:goto30
 2250 ifw2=0then2280
 2260 ifs=12theno=o2:o4=2:goto30
 2270 ifs=24theno=o3:o4=3:goto30
 2280 print"not wearing a suit":goto40
 2290 ifs=8ando4=1theno1=0:goto2330
 2300 ifs=12ando4=2theno2=o:goto2330
 2310 ifs=24ando4=3theno3=o:goto2330
 2320 print"can't":goto40
 2330 c=c-1:o=0:o4=0:goto30
 2340 ifs=11then2400
 2350 ifs=17andf1=0thenf1=1:goto30
 2360 ifs=23andw=0thenw=1:goto30
 2370 print"will not light":goto40
 2380 ifs=17andf1=1then2460
 2390 goto40
 2400 ift=1then2460
 2410 ifl%(17)<>0thenprint"no lighter":goto40
 2420 ifl%(6)=0ando4<>2then2450
 2430 ifl%(18)=0ando4<>3then print"oxygen-bottle is empty":o3=0:goto40
 2440 print"can't yet":goto40
 2450 t=1:goto30
 2460 print"it's already lit":goto40
 2470 ifs=17thenf1=0:goto2510
 2480 ifs=23thenw=0:goto2510
 2490 ifs=11thent=0:goto2510
 2500 print"can't":goto40
 2510 print"it's off":goto40
 2520 ifb=1andn=0then2560
 2530 ifb=1then2550
 2540 print"can't launch-bay doors closed":goto40
 2550 ifn=1thenprint"tractor beam holding you":goto40
 2560 print"you sucessfully launched your ship":e=1
 2570 s=0:forx=19to28:ifl%(x)=1thens=s+9
 2580 next:ife=1thens=s+10
 2590 print"score is";s;"out of 100
 2600 ifs>90thenprint"good-but you're still stuck here
 2610 ife=1thenend
 2620 goto40
 2630 ifs=7andw2=0 then w1=1:goto30
 2640 ifs=10andw1=0 thenw2=1:goto30
 2650 print"you already are wearing one"
 2660 goto40
 2680 ifp=0then410
 2690 forx=60to65:ifl%(x)=l then2710
 2700 next:j1=1:goto410
 2710 print"you hear metalic movement":m=m+1:print
 2720 ifm=r thenprint"the droid has blasted you into  eternity":end
 2730 print"a deadly laser beam just missed you!!":goto410
 3010 ifp$="la"andl=20ands=14thenl%(8)=l:g=1:goto30
   10 gosub 5000:goto 10000
   20 gosub 6000:gosub 2000
   30 l=32849+int(880*rnd(1)+1):ifpeek(l)<>32 then 30
   40 print"{home}              ":poke l,81:m=0:ifdc=0then50
   45 forx=1to9:ifpeek(l+d(x))=96then m=1
   46 next
   50 print"{home}"spc(15)"shd:"right$(str$(ss),1)" dis:"right$(str$(bl),1);
   60 print" battery:"right$(str$(1000+dc),3)
   70 ifm=1 then a=(a+1)and1:print"{home}"left$("{rvof}{rvon}",a+1)" *** mine *** {rvof}"
   80 get a$:ifa$="" then 70
   90 if val(a$)>0 then 150
  100 ifa$="{home}" then if bl>0 then bl=bl-1:goto 200
  120 ifa$="q" then 10000
  130 goto 70
  150 ifdc>0thendc=dc-1
  155 z=l+d(val(a$)):ifpeek(z)=32then pokel,32:l=z:goto 40
  160 ifpeek(z)=90 thens=s+100+10*lv:pokel,32:l=z:dc=dc+int(50*rnd(1)+5):goto 40
  170 if peek(z)=65 then poke875,96:poke879,43:sys859:goto300
  180 if peek(z)=96 then sys826:ss=ss-1:goto 250
  190 goto 80
  200 z=0:sys826:sys826:forx=1to9:ifz<>0then pokez,32
  210 z=l+d(x):ifpeek(z)<200andpeek(z)>90 then pokez,42:goto 220
  215 z=0
  220 next:ifz<>0 thenpokez,32
  230 goto 40
  250 ifss<0 then poke l,32:poke z,42:forx=1to5:sys826:sys826:next:goto 500
  255 if dc>1thendc=int(dc/2)
  260 poke l,160:l=z:sys826:goto 200
  300 poke l,32:poke z,88:ifdc<40thendc=40
  310 sys826:fort=1to100:next:poke 875,171:poke 879,170:sys859:fort=1to200:next
  320 pokez,221:poke 875,230:poke879,160:sys859:poke875,86:poke879,214:sys859
  330 fort=1to400:next:pokez,160:sys826:print"{clr}"
  340 lv=lv+1:print"{down}{down}{down}{rght}{rght}exiting sector "right$(str$(lv+100),2)
  350 print"{down}{down}earnings $";s
  360 print"{down}{down}{down}rank: ";
  370 ifs(10)>s then print"lousy!":goto410
  380 ifs(1)<s then print"the best!":goto410
  390 forx=10to1step-1:ifs(x-1)<sthen next
  400 print "number";x
  410 fort=1to1000:next:bl=bl+2:ifbl>8thenbl=8
  420 nm=nm+5:nd=nd+1:gosub2000:goto 30
  500 poke875,224:poke879,170:sys859:fort=1to2000:next:sys826:print"{clr}"
  510 print"{down}{down}{down}{rght}{rght}you perished in sector: "lv+1
  520 print"{down}{down}{down}you earned: $"s
  530 ifs<s(10)thenprint"{down}{down}  you did not make a high score...":goto 999
  535 ifs(9)>s then p=10:print"{down}{down}  you are at the bottom of the list.":goto570
  540 ifs>s(1) thenprint"{down}{down}  {rvon}your the best yet!":p=1:goto547
  545 goto 550
  547 forx=9to1step-1:s(x+1)=s(x):h$(x+1)=h$(x):next:goto570
  550 forx=9to1step-1:ifs(x)<sthen s(x+1)=s(x):h$(x+1)=h$(x)::ifs(x-1)<sthen next
  560 p=x:print"{down}{down}you are number";p
  570 print"{down}enter your name, sport  *{left}{left}{left}";:inputn$:h$(p)=left$(n$,16):s(p)=s
  999 fort=1to2000:next:goto 10000
 1999 end
 2000 print"{clr}:::scanning:::":forx=1to24:poke32807+x*40,214:poke33768-x*40,214:z=x*1.6
 2020 poke 32807+z,214:poke32808+z,214:poke 33768-z,214:poke 33767-z,214:next
 2400 forz=1to2:y1=int(20*rnd(1)+1):y2=int((21-y1)*rnd(1)+2)+y1
 2410 x1=int(35*rnd(1)+1):x2=int((38-x1)*rnd(1)+2)+x1:gosub 2500:next
 2420 forz=1to3:y1=int(22*rnd(1)+1)
 2430 x1=int(35*rnd(1)+1):x2=int((38-x1)*rnd(1)+2)+x1:gosub 2600:next
 2440 forz=1to3:y1=int(20*rnd(1)+1):y2=int((21-y1)*rnd(1)+2)+y1
 2450 x1=int(38*rnd(1)+1):gosub 2700:next
 2460 ch=96:n=nm:gosub 2800
 2470 ch=90:n=nd:gosub 2800
 2480 ch=65:n=1:gosub 2800
 2499 return
 2500 l=x2-x1-2:printleft$(d$,y1+2);spc(x1);left$(w$,l+2)
 2510 ify2-y1=1 then2530
 2520 forx=1to(y2-y1-1):printspc(x1)"{CBM-+}"spc(l)"{CBM-+}":next
 2530 printspc(x1);left$(w$,l+2):return
 2600 l=x2-x1:printleft$(d$,y1+2);spc(x1);left$(w$,l):return
 2700 printleft$(d$,y1+2);
 2710 forx=1to(y2-y1):printspc(x1)"{CBM-+}":next:return
 2800 forx=1ton
 2810 t=32849+int(880*rnd(1)+1):ifpeek(t)<>32 then 2810
 2820 poke t,ch:next:return
 5000 b$=":::::::::::::::":d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 5005 w$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5010 forx=826to895:readd:pokex,d:next
 5020 forx=1to10:readh$(x):next:forx=1to9:read d(x):next
 5999 return
 6000 nm=10:nd=5:ss=3:bl=5:dc=50:s=0
 6999 return
 9000 data169,128,141,72,3,141,77
 9010 data3,160,4,162,0,189,0
 9020 data128,73,128,157,0,128,232
 9030 data208,245,238,72,3,238,77
 9040 data3,136,208,234,96
 9050 data169,128,141,105,3,141,114,3,160,4,162, 0,189,0,128,201,32,208
 9060 data5,169,0,157,0,128,232,208,241,238,105,3,238,114,3,136,208,232,96
 9500 data ":original prog"
 9510 data "::by dr. ken"
 9520 data ":rewritten by"
 9530 data ":joe commodore"
 9540 data ""
 9550 data "::dedicated to"
 9560 data "::::classic"
 9570 data ":::commodore"
 9580 data ":::::users"
 9590 data ":::everwhere!"
 9600 data 39,40,41,-1,0,1,-41,-40,-39
 10000 print"{clr}{down}       {rvon}dr. ken & joe commodore's"
 10010 print"{down}{down}{down}ZZZZ  ZZZ   Z   Z   Z  ZZZ  Z   Z ZZZZ
 10020 print" Z  Z  Z  {$a0}Z Z  ZZ ZZ Z   Z ZZ  Z  Z  Z
 10030 print" Z  Z  Z  ZZZZZ Z Z Z Z   Z Z Z Z  Z  Z
 10040 print"{$a0}Z  Z  Z  Z   Z Z   Z Z   Z Z  ZZ  Z  Z
 10050 print"ZZZZ  ZZZ Z   Z Z   Z  ZZZ  Z   Z ZZZZ
 10060 print"{down}{down} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 10070 print" {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}   {CBM-+}{CBM-+}      {CBM-+}{CBM-+} {CBM-+}{CBM-+}
 10080 print" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{$a0}     {CBM-+}{CBM-+} {CBM-+}{CBM-+}
 10090 print" {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{$a0}     {CBM-+}{CBM-+} {CBM-+}{CBM-+}
 10100 print" {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+}   {CBM-+}{CBM-+}     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 10105 print"{down}{down}    written in 1990 by joe commodore"
 10110 print"{down}{down}     press [return] to start game."
 10120 a=9
 10130 fort=1to800:next:sys826:a=a-1:ifpeek(158)=0 and a>0 then 10130
 10140 geta$:ifa$<>"" then goto 20
 10150 forx=25to1step-1:print:fort=1to5*x:next:next
 20000 rem
 20008 print"{down}instructions:
 20009 print"{down}   search for diamonds in an abandoned
 20010 print"mine field.  you take with you an
 20011 print"armored suit (good for three blasts),
 20012 print"a radio shack mine detector (which only
 20013 print"warns you of mines nearby, but not
 20014 print"where they may be), and a disruptor
 20015 print"(destroys all mines & walls around you)
 20016 print"which is charged for five shots.
 20017 print"{down}   picking up diamonds will recharge
 20018 print"your mine detector, and your disruptor
 20019 print"will charge two shots (eight max)
 20020 print"between mine fields.
 20021 print"{down}keyboard controlls:
 20022 print"{down}7 8 9  [clr/home] - use disruptor
 20023 print" M{SHIFT--}N
 20024 print"4{SHIFT-*}Q{SHIFT-*}6  enter your telepod (A)
 20025 print" N{SHIFT--}M   to leave current mine field.
 20026 print"1 2 3"
 20027 print"        {rvon}press [return] to start game.{rvof}{home}";:a=1000
 20028 a=a-1:ifa>0and peek(158)=0 then20028
 20029 geta$:ifa$<>"" then goto 20
 20030 forx=1to25:print"                                       "
 20040 fort=1to50:next:next
 30000 print"{home}{down}{down}{down}{down}{down}{down}   =====>high scores for today<====="
 30010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":forx=1to10
 30020 printtab(8):print"{rvon}"right$(str$(100+x),2)". "+left$(h$(x)+b$,15)+"=>"s(x)"{rvof}"
 30030 fort=1to100:next:print"{up}";
 30040 printtab(8):printright$(str$(100+x),2)". "+left$(h$(x)+b$,15)+"=>"s(x)
 30050 nextx
 30060 a=a+1:print"{down}{down}{down}{down}{down}"mid$("{rvon}{rvof}",1+(aand1),1);
 30070 printtab(5)"press [return] to start game.{rvof}{home}"
 30080 ifa<6 and peek(158)=0 then 30010
 30090 geta$:if a$<>"" then 20
 30100 goto 10000
  100 dimt$(4)
  110 print"disk file log - jim butterfield"
  130 c$=chr$(0)
  140 data 169,0, 162,4, 149,98, 202, 16,251
  145 data 169,160, 133,97, 162,2, 32,198,255
  150 data 230,101, 208,10, 230,100, 208,6, 230,99
  155 data 208,2, 230,98, 32,228,255, 165,144
  160 data 240,235, 32,204,255, 198,97
  165 data 6,101, 38,100, 38,99, 38,98, 16,244, 96
  170 data 169,0, 133,139, 133,140
  180 data 230,139, 208,2, 230,140
  190 data 162,15, 32,201,255, 169,80, 32,210,255
  200 data 169,4, 32,210,255, 165,139, 32,210,255
  205 data 165,140, 32,210,255
  210 data 169,1, 32,210,255, 32,204,255
  215 data 162,15, 32,198,255, 32,228,255
  220 data 72, 32,204,255, 104, 201,48, 240,200, 96
  230 forj=860to977:readx:t=t+x:pokej,x:nextj
  240 if t<>16312 then stop
  250 data "xxx","seq","prg","usr","rel"
  260 forj=0to4:readt$(j):next
  270 input"printer";z$
  280 z=3:ifasc(z$)=89thenz=4:input"date";d$
  290 u=8:rem unit 8
  300 d=0:rem drive 0
  330 open4,z:open1,u,15,"i"+chr$(d+48):close1
  340 g$="                 "
  350 open15,u,15
  360 open1,u,3,"$"+chr$(d+48)
  370 get#1,a$:a=asc(a$+" ")
  380 ifa=1ora=65thenl1=141:l2=89:goto410
  390 ifa=67thenl1=3:l2=735:goto410
  400 close1:print"???":stop
  410 print#4,"*** disk log ***  ";d$
  420 forj=1tol1:get#1,a$:nextj
  430 print#4,"  ";:forj=1to23:get#1,a$:print#4,a$;:nextj
  440 print#4:forj=1tol2:get#1,a$:nextj
  450 m=m+1:get#1,k$,t$,s$
  460 l7=-1:z$=chr$(160):f$="":forj=1to16:get#1,a$
  470 ifa$=z$thenl7=0
  480 ifl7thenf$=f$+a$
  490 nextj
  500 get#1,a$,a$,a$:l%=asc(a$+c$)
  510 forj=1to6:get#1,a$:nextj
  530 get#1,a$:l=asc(a$+c$)
  550 get#1,a$:l=l+256*asc(a$+c$):ifm<8thenget#1,a$,a$:goto570
  560 m=0
  570 sw=st:ifk$=""goto820
  580 k=asc(k$)-128:ifk<1ork>4thenk=0
  620 print#4,t$(k);
  630 print#4,right$(" "+str$(l),3);" ";
  640 print#4,left$(f$+g$,17);
  650 ifk=0goto810
  660 ifk=4thenprint#4,"l=";mid$(str$(l%),2);
  670 open2,u,4,chr$(d+48)+":"+f$+","+t$(k)
  680 a=0:ifk<>2goto730
  690 get#2,a$,b$:a=asc(a$+c$)
  700 b=asc(b$+c$)
  710 gosub840
  730 ifk<>4goto760
  740 sys915:a=peek(139)+peek(140)*256-1
  750 print#4,",";mid$(str$(a),2);"r";:goto800
  760 poke785,92:poke786,3:a=a+usr(0)
  770 ifk<>2thenprint#4,a;"bytes";:goto800
  780 print#4," ";:a%=a/256:a=a-a%*256:b=b+a%
  790 gosub840
  800 close2
  810 print#4
  820 ifsw=0goto450
  830 close1:close4:close15:end
  840 x=b/16:gosub850:x=a/16
  850 forj=1to2:x%=x:x=(x-x%)*16:ifx%>9thenx%=x%+7
  860 print#4,chr$(x%+48);:nextj:return
    0 clr:pg$="dive":nm$="30":goto62000
    1 " pat persch
    2 " 34 houghton st.
    3 " fredonia n.y. 14063
    4 "
    5 " cursor #30, may, 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 6/1/82 gf
  100 gosub1940
  200 restore:xx=0
  220 fori=2to8step2
  230 reada(i),b(i),c(i),d(i),e(i),f(i),g(i)
  235 ifwd=80and(i=2ori=8)thena(i)=a(i)*2:f(i)=f(i)*2-1:g(i)=g(i)*2+1
  240 nexti:t=0:g=0:s=1:x=crt:dd=0:b=32:bd=160
  245 a(2)=wd*2:a(4)=-2:a(6)=2:a(8)=-wd*2:f(2)=wd-1:f(4)=-wd-1:f(6)=wd+1
  246 f(8)=-wd+1:g(2)=wd+1:g(4)=wd-1:g(6)=-wd+1:g(8)=-wd-1
  250 print"{clr}"
  260 w=crt+wd*4+12:z1=crt+wd*22+21:z3=crt+3*wd+4:q=l
  270 gosub1260
  280 gosub420
  290 dx=10:dy=5:hx=3:hy=15
  300 at=ti+5
  310 getrr$:ifrr$="q"then1540
  315 ifrr$<>""thenr=val(rr$):ifr<2orr>8thenr=1
  320 ifti<atthen310
  330 ifdx<>10ordy<>5thenq=q-1
  340 gosub1700:ifq=0thenprint"{home}out of air!":forz=1to900:next:gosub1120:goto300
  350 if(r and 1)=0 then gosub 545:ifxxthen1520
  360 ifdx>=19anddx<=21anddy>20thengosub720
  370 ifdx=10anddy=5thengosub770
  380 gosub870:ifxxthen1520
  390 ift=6anddg=0then1520
  400 goto300
  420 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(20);"{CBM-M}***{CBM-G}{left}{left}{left}{left}{left}{down}{CBM-M}***{CBM-G}{left}{left}{left}{left}{down}{CBM-T}{CBM-T}{CBM-T}{home}":return
  430 pokew,bd
  440 pokew-wd,b(r)
  450 pokew+wd,c(r)
  460 pokew-1,d(r)
  470 pokew+1,e(r)
  480 return
  510 pokew-wd,b:pokew,b:pokew-1,b
  520 pokew+1,b:pokew+wd,b:return
  545 rem
  550 x1=peek(w+f(r)):x2=peek(w+a(r)):x3=peek(w+g(r))
  560 ifx1=45orx2=45orx3=45orx1=62orx2=62orx3=62thenpokex,b:x=w+a(r)-3:goto1010
  570 ifx1<>32orx2<>32orx3<>32thenreturn
  580 ifr=2anddy=23thenreturn
  590 ifr=4anddx=-1thenreturn
  600 ifr=6anddx=36thenreturn
  610 gosub510:w=w+a(r)/2
  620 gosub430
  670 onr/2goto680,690,700,710
  680 dy=dy+1:return
  690 dx=dx-1:return
  700 dx=dx+1:return
  710 dy=dy-1:return
  720 ift>5ordg=1thenreturn
  730 t=t+1:dg=1:bd=170:pokew,bd
  750 ift<4thenpokez1+t-1,32:return
  760 pokez1+wd+t-4,32:return
  770 ifg>5ordg=0thenreturn
  780 pokez3+g,42:dg=0:g=g+1:bd=160:pokew,bd
  785 ift<6thenifq<lthenforq=qtol:gosub1700:next
  790 return
  870 ifs=0then910
  880 rn=int(14*rnd(1))+5
  890 x=crt
  900 s=0:x=x+wd*rn:y=x
  910 z=peek(x+3)
  920 ifz=160then1010
  930 ifz=87then1010
  940 ifz=28then1010
  950 ifz=47then1010
  960 pokex,b:pokex+1,b
  970 pokex+2,45:pokex+3,62
  980 ifx>y+35thenx=x+1:gosub2000:s=1
  990 x=x+1:return
 1010 fori=1to3
 1030 x=x+3:pokex,b
 1040 pokex+i,42:pokex-i,42
 1050 pokex+wd*i,42:pokex-wd*i,42
 1060 ax=ti+5
 1070 ifti<ax then 1070
 1080 pokex+i,b:pokex-i,b
 1090 pokex+wd*i,b:pokex-wd*i,b
 1100 x=x-3
 1110 next i
 1120 rem
 1130 dy=5:dx=10:q=l:bd=160
 1140 w=crt+wd*4+12:dg=0:dd=dd+1:s=1
 1150 xx=0:ifdd=5thenxx=1:return
 1160 print"{clr}":gosub420
 1170 gosub1260
 1180 gosub1320
 1210 return
 1260 print"                           "
 1270 print"  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-I}{CBM-I}{rvon} {rvof}{CBM-I}{CBM-@}{CBM-@}{CBM-@}"
 1280 print"  {CBM-*}{rvon} {rvof}      {rvon} {rvof}{SHIFT-POUND} "
 1290 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1293 z=crt+2*wd+2
 1294 ifdd<4thenforn=ddto3:pokez+n,87:nextn
 1295 r=8:gosub430
 1300 return
 1320 ifg>0thenfori=1tog:pokez3+i-1,42:nexti
 1335 q=l
 1350 ift=0thenreturn
 1360 ontgoto1420,1410,1400,1390,1380,1370
 1370 pokez1+wd+2,32
 1380 pokez1+wd+1,32
 1390 pokez1+wd,32
 1400 pokez1+2,32
 1410 pokez1+1,32
 1420 pokez1,32
 1430 return
 1440 data80,160,87,28,47,39,41
 1450 data -2,47,28,87,160,-41,39
 1460 data2,28,47,160,87,41,-39
 1470 data-80,87,160,47,28,-39,-41
 1480 data "terrible!","poor","fair"
 1490 data "good","very good","excellent"
 1520 forn=1to1000:nextn
 1540 print"{clr}{down}{down}  you have salvaged";g;"treasure";:ifg<>1thenprint"s";
 1545 print" out of
 1550 print"{down}  a possible 6, and have sacrificed"
 1560 print"{down}  the lives of";dd;"diver";:ifdd<>1thenprint"s";
 1565 print". this gives
 1570 print"{down}  you an overall score of"100*g-4*dd"which is"
 1590 p=int((100*g-4*dd+60)/132)+1
 1600 for i=1to6:reads$(i):next
 1610 print"{down}      {rvon}";s$(p)
 1615 print:print:forn=1to10:print"CCCC";:next
 1630 printcr$"{down}{down}do you want to play again";
 1650 getz$:ifz$<>""then1650
 1660 z$=""
 1670 print"? ";:gosub60000:d$=in$
 1680 ifleft$(d$,1)<>"n"then200
 1690 print"{clr}":end
 1700 print"{home}air: ";
 1710 z=int(q/8):if z>0 then print "{rvon}";left$("            ",z);
 1720 z=q-z*8:printmid$("{rvof} {rvof}{CBM-G}{rvof}{CBM-H}{rvof}{CBM-J}{rvof}{CBM-K}{rvon}{CBM-L}{rvon}{CBM-N}{rvon}{CBM-M}",2*z+1,2);
 1730 print:return
 1940 print"{down}how hard a game?
 1950 print"{down} (1=easy, 2=medium, 3=hard) ? ";
 1960 gosub60000:l=val(in$)
 1965 ifin$=""thenprint"{down}{down}let's make it medium.":l=2:forx=1to1000:next
 1970 ifl<1orl>3thenprint"{down}1, 2, or 3, please.":goto 1940
 1980 ifl<>int(l)thenprint"{down}an integer, please.":goto1940
 1990 l=120-20*l:return
 2000 pokex+1,b:pokex+2,b:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by pat persch
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}don't get eaten by the sharks
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin";
 62090 getz$:ifz$=""then62090
 62100 goto60300
   10 let j4=1
  110 let x=0
  120 let j=0
  130 let k=0
  140 x1=0
  150 let x3=0
  170 dim c(7),c$(7),w(50),d(25,25),p(50),i$(50),b(10,6),b$(50)
  180 dim e(50),f(50),x5(50),x6(50),x2(50),x4(50)
  270 data"str","dex","con","char","wis","int","gold"
  280 data"sword",10,"sword 2-h",15,"dagger",3,"mace",5
  290 data"spear",2,"bow",25,"arrows",2,"leather",15
  300 data"chainmail",30,"plate",50,"rope",1,"spikes",1
  310 data"flask oil",2,"slv.cross",25,"food",5,"mjolnir",960
  320 print"{clr}{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}richard garriott dnd1"
  325 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}dungeon 1 of 6"
  330 print
  340 print"do you need instructions";
  350 inputq$
  360 if q$="yes" goto 1730
  370 if q$="y" goto 1730
  380 rem print"old or new game (not working!)";
  390 rem input q$
  400 rem if q$="old" goto 1770
  410 rem print"dungeon (1) to (6)"
  420 rem input d
  421 print"continues reset monsters 1=yes,2=no";
  422 inputj6
  430 rem rolling characteristics
  440 print"{down}players name";
  450 input n$
  460 if n$="shavs" then print"now tell me your real name.":goto 440
  465 for m=1 to 7
  466 read c$(m)
  467 next m
  470 for m=1 to 7
  490 for n=1 to 3
  500 let r=int(rnd(1)*6+1)
  510 let c(m)=c(m)+r
  520 next n
  530 if m<>7 goto 550
  540 let c(m)=c(m)*15
  550 rem
  560 print c$(m);"=";c(m)
  570 next m
  580 print
  590 print"classification"
  600 print"which do you want to be"
  610 print"fighter,cleric,or wizard";
  620 input c$(0)
  625 if c$(0)<>"none" goto 630
  626 for m7=0 to 7
  627 let c(m7)=0
  628 next m7
  629 goto 470
  630 if c$(0)="fighter" goto 770
  640 if c$(0)="cleric" goto 810
  650 if c$(0)="wizard" goto 790
  660 goto 620
  670 print"buying weapons"
  680 print"fast or norm"
  690 input q3$
  700 print"number","item","price"
  710 for m=1to16
  720 readi$(m),p(m)
  725 if q3$="fast" goto 740
  730 print m,i$(m),p(m)
  740 next m
  745 print">17 stop"
  750 gosub 1150
  760 goto 830
  770 let c(0)=int(rnd(1)*8+1)
  780 goto 670
  790 let c(0)=int(rnd(1)*4+1)
  800 goto 670
  810 let c(0)=int(rnd(1)*6+1)
  820 goto 670
  830 rem
  850 let x=x+1
  860 input y
  870 rem
  880 if y<0 goto 1000
  885 if y>16 goto 1000
  890 if c(7)-p(y)<0 goto 970
  900 if c$(0)="cleric" goto 1290
  910 if c$(0)="wizard" goto 1350
  920 rem
  930 let c(7)=c(7)-p(y)
  940 print"gp=";c(7)
  950 letw(x)=y
  960 goto 830
  970 print"costs too much"
  980 print"try again";
  990 goto 860
 1000 print"gp=";c(7)
 1010 rem
 1020 print"equipment list? (yes/no)";
 1030 inputq$
 1040 ifq$="no" goto 1090
 1050 form=1 to x
 1060 if w(m)=0 goto 1080
 1070 print w(m),i$(w(m))
 1080 next m
 1090 print"your characteristics are:"
 1100 print c$(0)
 1101 if c(0)<>1 goto 1110
 1102 c(0)=2
 1110 print"hit points",c(0)
 1120 print
 1130 print
 1140 goto1400
 1150 data"man",1,13,26,1,1,500
 1160 data"goblin",2,13,24,1,1,600
 1170 data"troll",3,15,35,1,1,1000
 1180 data"skeleton",4,22,12,1,1,50
 1190 data"balrog",5,18,110,1,1,5000
 1200 data"ochre jelly",6,11,20,1,1,0
 1210 data"grey ooze",7,11,13,1,1,0
 1220 data"gnome",8,13,30,1,1,100
 1230 data"kobold",9,15,16,1,1,500
 1240 data"mummy",10,16,30,1,1,1000
 1250 form=1to10
 1260 readb$(m),b(m,1),b(m,2),b(m,3),b(m,4),b(m,5),b(m,6)
 1265 b(m,4)=b(m,3)
 1267 b(m,5)=b(m,6)
 1269 b(m,1)=1
 1270 nextm
 1280 return
 1290 ify=4 goto920
 1300 ify=8 goto920
 1310 ify=9 goto920
 1320 ify>10 goto920
 1330 print"you're a cleric you can't use that"
 1340 goto860
 1350 ify=3 goto920
 1360 ify=8 goto920
 1370 ify>10 goto920
 1380 print"you're a wizard you can't use that"
 1390 goto860
 1400 rem read dungeon and start game
 1401 data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 1402 forn=0to25:read d(0,n):nextn
 1403 data 1,6,0,0,0,0,0,0,1,0,1,0,1,0,1,0,1,0,1,6,2,1,1,1,6,1
 1404 forn=0to25:read d(1,n):nextn
 1405 data 1,0,1,4,1,1,1,0,1,0,1,0,4,0,1,0,1,6,1,1,0,0,1,0,0,1
 1406 forn=0to25:read d(2,n):nextn
 1407 data 1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,6,2,4,0,0,3,0,0,1
 1408 forn=0to25:read d(3,n):nextn
 1409 data 1,0,1,6,0,0,1,0,4,0,1,0,1,0,1,0,1,6,1,1,0,0,3,0,0,1
 1410 forn=0to25:read d(4,n):nextn
 1411 data 1,4,1,1,0,0,1,3,1,4,1,0,1,4,1,0,1,0,1,0,0,1,1,1,0,1
 1412 forn=0to25:read d(5,n):nextn
 1413 data 1,0,0,0,0,0,2,0,0,0,7,0,0,0,0,0,1,1,1,1,1,1,0,1,0,1
 1414 forn=0to25:read d(6,n):nextn
 1415 data 1,0,1,3,1,4,1,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,1,0,1
 1416 forn=0to25:read d(7,n):nextn
 1417 data 1,0,1,6,1,0,1,1,1,0,1,0,0,0,0,0,1,1,1,1,1,0,1,1,0,1
 1418 forn=0to25:read d(8,n):nextn
 1419 data 1,0,1,6,1,0,0,1,0,0,1,4,1,1,1,0,1,0,0,0,0,0,4,0,0,1
 1420 forn=0to25:read d(9,n):nextn
 1421 data 1,0,1,3,1,0,0,4,0,0,4,0,1,6,1,0,1,0,1,1,0,1,1,1,3,1
 1422 forn=0to25:read d(10,n):nextn
 1423 data 1,0,1,0,1,0,0,1,0,0,1,0,1,2,1,2,1,0,0,1,0,3,0,0,0,1
 1424 forn=0to25:read d(11,n):nextn
 1425 data 1,0,1,0,1,0,1,1,1,2,1,0,1,4,1,0,1,1,1,1,4,1,0,6,6,1
 1426 forn=0to25:read d(12,n):nextn
 1427 data 1,0,0,2,4,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,3,0,0,0,1
 1428 forn=0to25:read d(13,n):nextn
 1429 data 1,0,1,4,1,1,1,0,1,0,1,0,1,1,1,0,1,1,1,0,0,1,1,1,3,1
 1430 forn=0to25:read d(14,n):nextn
 1431 data 1,0,1,6,1,6,1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0,1,0,0,1
 1432 forn=0to25:read d(15,n):nextn
 1433 data 1,0,1,0,0,0,1,0,1,2,1,0,1,0,1,2,1,2,0,0,2,0,1,0,6,1
 1434 forn=0to25:read d(16,n):nextn
 1435 data 1,0,1,0,0,0,1,0,1,6,1,2,1,0,1,0,1,0,1,0,0,0,1,0,0,1
 1436 forn=0to25:read d(17,n):nextn
 1437 data 1,0,1,0,0,0,1,0,1,1,1,0,1,0,1,0,1,1,1,0,0,1,1,1,4,1
 1438 forn=0to25:read d(18,n):nextn
 1439 data 1,0,0,0,6,0,3,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,1
 1440 forn=0to25:read d(19,n):nextn
 1441 data 1,0,0,0,0,0,1,0,0,0,0,0,0,6,0,0,0,3,0,0,0,7,0,0,0,1
 1442 forn=0to25:read d(20,n):nextn
 1443 data 1,0,1,4,1,0,1,1,1,0,1,1,1,0,1,0,1,1,1,1,0,0,0,0,0,1
 1444 forn=0to25:read d(21,n):nextn
 1445 data 1,0,1,0,1,0,0,1,0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0,0,1
 1446 forn=0to25:read d(22,n):nextn
 1447 data 1,0,1,1,1,2,0,0,0,0,0,0,1,0,1,0,1,0,1,1,0,0,0,0,0,1
 1448 forn=0to25:read d(23,n):nextn
 1449 data 1,0,4,6,1,6,0,1,0,0,0,0,4,0,1,0,1,0,0,4,0,0,0,0,0,1
 1450 forn=0to25:read d(24,n):nextn
 1451 data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 1452 forn=0to25:read d(25,n):nextn
 1470 rem yea random starting location
 1480 rem  let g=int(rnd(1)*23+2)
 1490 rem  let h=int(rnd(1)*23+2)
 1500 g=22:h=22
 1510 print"welcome to dungeon#1"
 1520 print"you are at(";g;",";h;")"
 1530 print
 1540 print"commands list? (yes/no)";
 1541 inputq$
 1542 ifq$<>"yes" goto1590
 1550 print
 1560 print"1=move"
 1561 print"2=open door"
 1562 print"3=search for traps and secret doors"
 1570 print"4=switch weapon hand"
 1571 print"5=fight"
 1580 print"6=look around (small map)"
 1581 print"7=save game (not working!)"
 1582 print"8=use magic"
 1583 print"9=buy magic"
 1584 print"0=pass"
 1585 print"*10=cheating (full map - 80 col)"
 1586 print"*11=buy h.p."
 1587 print"*12=dungeon editor"
 1590 print"command=";
 1600 inputt
 1605 ift=11goto10830:rem buy hp
 1606 ift=12goto11000:rem editor
 1610 ift=1 goto2170
 1620 ift=2 goto3130
 1630 ift=3 goto3430
 1640 ift=4 goto3640
 1650 ift=5 goto3750
 1660 ift=6 goto6390
 1670 ift=7 goto1590:rem save 6610
 1680 ift=8 goto8680
 1690 ift=9 goto9980
 1700 ift=10goto10730:rem cheat map
 1705 ift=0 goto7000
 1710 print"come on";
 1720 goto1590
 1730 rem instructions
 1740 print"{down}who said you could play?{down}"
 1750 rem
 1760 goto 380
 1770 rem read out old game
 1775 printchr$(4);"open gmstr":printchr$(4);"read gmstr"
 1780 input d
 1790 input x
 1800 input j
 1810 input g
 1820 input h
 1830 input k
 1840 for m=0 to 25
 1850 for n=0 to 25
 1860 input d(m,n)
 1870 next n
 1880 next m
 1890 for m=1 to x
 1900 input w(m)
 1910 nextm
 1920 form=1to10
 1930 inputb$(m)
 1940 forn=1to6
 1950 inputb(m,n)
 1960 nextn
 1970 nextm
 1980 form=0to7
 1990 inputc$(m)
 2000 inputc(m)
 2010 nextm
 2020 inputn$
 2030 inputf1
 2040 inputf2
 2050 form=1to15
 2060 inputi$(m)
 2070 nextm
 2080 inputx3
 2090 form=1tox3
 2100 inputx4(m)
 2110 nextm
 2120 inputx1
 2130 form=1tox1
 2140 inputx2(m)
 2150 nextm
 2151 inputf2
 2152 inputf1:printchr$(4);"close gmstr"
 2160 goto1510
 2170 rem move
 2175 print"you are at";g;",";h
 2180 print"down right left or up"
 2190 inputq$
 2200 ifq$="right" goto2260
 2205 ifq$="r" goto2260
 2210 ifq$="left" goto2290
 2215 ifq$="l" goto2290
 2220 ifq$="up" goto2320
 2225 ifq$="u" goto2320
 2230 ifq$="down" goto2350
 2235 ifq$="d" goto2350
 2240 goto2180
 2250 rem
 2260 lets=0
 2270 lett=1
 2280 goto2370
 2290 lets=0
 2300 lett=-1
 2310 goto2370
 2320 lets=-1
 2330 lett=0
 2340 goto2370
 2350 lets=1
 2360 lett=0
 2370 ifd(g+s,h+t)=0 goto2430
 2380 ifd(g+s,h+t)=1 goto2480
 2390 ifd(g+s,h+t)=2 goto2550
 2400 ifd(g+s,h+t)=3 goto2990
 2401 ifd(g+s,h+t)=7 goto2424
 2402 ifd(g+s,h+t)=8 goto2426
 2410 ifd(g+s,h+t)=5 goto3060
 2411 ifd(g+s,h+t)=6 goto2413
 2412 goto2480
 2413 print"ah......gold......."
 2414 g9=int(rnd(1)*500+10)
 2415 printg9;"pieces"
 2416 c(7)=c(7)+g9
 2417 print"gp=";c(7)
 2418 d(g+s,h+t)=0
 2419 ifrnd(1)>.2 goto2430
 2420 print"poison"
 2421 letc(0)=c(0)-int(rnd(1)*4+1)
 2422 print"hp=";c(0)
 2423 goto2430
 2424 letc(1)=c(1)+1
 2425 goto2418
 2426 letc(3)=c(3)+1
 2429 goto2418
 2430 letg=g+s
 2440 leth=h+t
 2450 print"done"
 2460 goto7000
 2470 rem
 2480 print"you ran into a wall"
 2490 ifrnd(1)*12+1>9 goto2520
 2500 print"but no damage was inflicted"
 2510 goto7000
 2520 print"and loose 1 hit point"
 2530 letc(0)=c(0)-1
 2540 goto7000
 2550 print"oooops a trap and you fell in"
 2560 ifrnd(1)*3>2 goto2580
 2570 goto2600
 2580 print"and hit points loose 1"
 2590 letc(0)=c(0)-1
 2600 print"i hope you have some rope and preferably spikes"
 2610 print"let me see"
 2620 form=1tox
 2630 ifw(m)<>12 goto2660
 2640 letw(m)=0
 2650 goto2680
 2660 nextm
 2670 goto2740
 2680 form=1tox
 2690 ifw(m)<>11 goto2720
 2700 letw(m)=0
 2710 goto2760
 2720 nextm
 2730 goto2890
 2740 print"no spikes!":print"ah that's too bad cause you're dead."
 2750 end
 2760 print"good both"
 2770 print"you manage to get out easy"
 2775 goto2870
 2780 form=1tox
 2790 ifw(m)=12 goto2820
 2800 nextm
 2810 ifb9>1 goto2830
 2820 letw(m)=0
 2830 goto2870
 2840 letw(m)=0
 2850 letw(m)=0
 2860 goto2820
 2870 print"you're standing next to the edge though i'd move"
 2880 goto2170
 2890 print"no rope but at least spikes"
 2900 ifint(rnd(1)*3)+1=2 goto2960
 2910 goto2770
 2920 print"you fall halfway up"
 2930 ifint(rnd(1)*6)>c(1)/3 goto2960
 2940 print"try again"
 2950 goto2900
 2960 print"oops h.p. loose 1"
 2970 letc(0)=c(0)-1
 2980 goto2940
 2990 ifint(rnd(1)*6)+1>4 goto300
 3000 goto2480
 3010 print"you just ran into a secret door"
 3020 print"and opened it"
 3030 letg=g+s
 3040 leth=h+t
 3050 goto2450
 3060 print"you ran into the monster"
 3070 print"he shoves you back"
 3080 print
 3090 ifint(rnd(1)*2)+1=2 goto3120
 3100 print"you loose 6 hit points"
 3110 letc(0)=c(0)-6
 3120 goto7000
 3130 print"door left right up or down"
 3140 inputq$
 3150 ifq$="left" goto3200
 3155 ifq$="l" goto3200
 3160 ifq$="right" goto3230
 3165 ifq$="r" goto3230
 3170 ifq$="up" goto3260
 3175 ifq$="u" goto3260
 3180 ifq$="down" goto3290
 3185 ifq$="d" goto3290
 3190 goto3130
 3200 lets=0
 3210 lett=-1
 3220 goto3310
 3230 lets=0
 3240 lett=1
 3250 goto3310
 3260 lets=-1
 3270 lett=0
 3280 goto3310
 3290 lets=1
 3300 lett=0
 3310 ifd(g+s,h+t)=4 goto3350
 3320 ifd(g+s,h+t)=3 goto3350
 3330 print"there is not a door there"
 3340 goto1590
 3350 print"push"
 3360 ifint(rnd(1)*20)+1<c(1) goto3390
 3370 print"didn't budge"
 3380 goto7000
 3390 print"it's open"
 3400 letg=g+s
 3410 leth=h+t
 3420 goto2450
 3430 print"search......search......search......"
 3440 ifint(rnd(1)*40)<c(5)+c(6) goto3470
 3450 print"no not that you can tell"
 3460 goto7000
 3470 form=-1to1
 3480 forn=-1to1
 3490 ifd(g+m,h+n)=2 goto3550
 3500 ifd(g+m,h+n)=3 goto3590
 3510 nextn
 3520 nextm
 3530 rem
 3540 goto3450
 3550 print"yes there is a trap"
 3560 print"it is";m;" verticaly";n;" horazontaly from you"
 3570 letz=1
 3580 goto3500
 3590 print"yes a door"
 3600 print"it is at";m;" verticaly";n;" horazantaly"
 3610 letz=1
 3620 goto3510
 3630 rem
 3640 print"which weapon will you hold. (number)"
 3650 inputy
 3660 ify=0 goto3720
 3670 form=1tox
 3680 ifw(m)=y goto3720
 3690 nextm
 3700 print"sorry you don't have that one"
 3710 goto3640
 3720 print"o.k. you are now holding a ";i$(y)
 3730 letj=y
 3740 goto7000
 3750 rem fighting back
 3760 print"your weapon is";i$(j)
 3770 ifk=0 goto1590
 3780 printb$(k)
 3790 print"hp=";b(k,3)
 3800 ifj=0 goto4460
 3810 ifj=1 goto4680
 3820 ifj=2 goto4860
 3830 ifj=3 goto5040
 3840 ifj=4 goto5270
 3850 ifj>4 goto3870
 3860 goto3880
 3870 ifj<15 goto5450
 3880 print"food???....well o.k."
 3890 print"is it to hit or distract";
 3900 inputq$
 3910 ifq$="hit" goto4330
 3920 print"throw a-above,b-below,l-left,or r-right of the monster";
 3930 letz5=0
 3940 inputq$
 3950 ifq$="b" goto4010
 3960 ifq$="a" goto4040
 3970 ifq$="l" goto4070
 3980 lets=0
 3990 lett=1
 4000 goto4120
 4010 lets=-1
 4020 lett=0
 4030 goto4120
 4040 lets=1
 4050 lett=0
 4060 goto4120
 4070 lets=0
 4080 lett=-1
 4090 goto4120
 4100 ifz5=1 goto4120
 4110 ifrnd(1)>.5 goto4140
 4120 ifd(f1+s,f2+t)=0 goto4220
 4130 ifd(f1+s,f2+t)=2 goto4280
 4140 print"didn't work"
 4150 form=1tox
 4160 ifz5=q goto7000
 4170 ifw(m)=15 goto4190
 4180 nextm
 4190 letw(m)=0
 4200 letj=0
 4210 goto7000
 4220 print"monster moved back"
 4230 letd(f1,f2)=0
 4240 letf1=f1+s
 4250 letf2=f2+t
 4260 letd(f1,f2)=5
 4270 goto4150
 4280 print"good work the monster fell into a trap  and is dead"
 4290 letk1=-1
 4300 letb(k,6)=0
 4310 goto7000
 4320 goto4150
 4330 ifint(rnd(1)*20)+1=20 goto4380
 4340 ifint(rnd(1)*20)+1>b(k,2)-c(2)/3 goto4410
 4350 ifint(rnd(1)*20)+1>10-c(2)/3 goto4440
 4360 print"total miss"
 4370 goto4150
 4380 print"direct hit"
 4390 letb(k,3)=b(k,3)-int(c(1)/6)
 4400 rem
 4410 print"hit"
 4420 letb(k,3)=b(k,3)-int(c(1)/8)
 4430 goto4150
 4440 print"you hit him but not good enough"
 4450 goto4150
 4460 rem fists
 4470 print"do you realize you are bare handed"
 4480 print"do you want to make another choice";
 4490 inputq$
 4500 ifq$="no" goto4520
 4510 goto1590
 4520 print"o.k. punch bite scratch hit........"
 4530 form=-1to1
 4540 forn=-1to1
 4550 ifd(g+m,h+n)=5 goto4610
 4560 nextn
 4570 nextm
 4580 print"no good one"
 4590 goto1590
 4600 rem
 4610 ifint(rnd(1)*20)+1>b(k,2) goto4640
 4620 print"terrible no good"
 4630 goto7000
 4640 print"good a hit"
 4650 letb(k,3)=b(k,3)-int(c(1)/6)
 4660 goto1590
 4670 rem
 4680 print"swing"
 4690 gosub08410
 4700 ifr1<2 goto4730
 4710 print"he is out of range"
 4720 goto7000
 4730 ifr2=0 goto4840
 4740 ifr2=1 goto4820
 4750 ifp2=2 goto4790
 4760 print"critical hit"
 4770 letb(k,3)=b(k,3)-int(c(1)/2)
 4780 goto1590
 4790 print"good hit"
 4800 letb(k,3)=b(k,3)-int(c(1)*4/5)
 4810 goto1590
 4820 print"not good enough"
 4830 goto1590
 4840 print"missed totaly"
 4850 goto7000
 4860 print"swhng"
 4870 gosub8410
 4880 ifr1<2.1 goto4910
 4890 print"he is out of range"
 4900 goto7000
 4910 ifr2=0 goto5020
 4920 ifr2=1 goto5000
 4930 ifr2=2 goto4970
 4940 print"critical hit"
 4950 letb(k,3)=b(k,3)-c(1)
 4960 goto1590
 4970 print"hit"
 4980 letb(k,3)=b(k,3)-int(c(1)*5/7)
 4990 goto1590
 5000 print"hit but not well enough"
 5010 goto1590
 5020 print"missed totaly"
 5030 goto7000
 5040 form=1tox
 5050 ifw(m)=3 goto5090
 5060 nextm
 5070 print"you don't have a dagger"
 5080 goto7000
 5090 gosub08410
 5100 ifr1>5 goto4710
 5110 ifr2=0 goto5200
 5120 ifr2=1 goto5220
 5130 ifr2=2 goto5240
 5140 print"critical hit"
 5150 letb(k,3)=b(k,3)-int(c(1)*3/10)
 5160 ifr1<2 goto5190
 5170 letw(j)=0
 5180 letj=0
 5190 goto7000
 5200 print"missed totaly"
 5210 goto5160
 5220 print"hit but no damage"
 5230 goto5160
 5240 print"hit"
 5250 letb(k,3)=b(k,3)-int(c(1)/4)
 5260 goto5160
 5270 print"swing"
 5280 gosub08410
 5290 ifp0<2 goto4720
 5300 goto4710
 5310 ifr2=0 goto5420
 5320 ifr2=1 goto5400
 5330 ifr2=2 goto5370
 5340 print"critical hit"
 5350 letb(k,3)=b(k,3)-int(c(1)*4/9)
 5360 goto1590
 5370 print"hit"
 5380 letb(k,3)=b(k,3)-int(c(0)*5/11)
 5390 goto1590
 5400 print"hit but no damage"
 5410  goto1590
 5420 print"miss"
 5430 goto7000
 5440 rem
 5450 form=1tox
 5460 ifw(m)=j goto5500
 5470 nextm
 5480 print"no weapon found"
 5490 goto1590
 5500 gosub08410
 5510 ifj=5 goto5760
 5520 ifj=6 goto5800
 5530 ifj=7 goto5840
 5540 ifj=8 goto5880
 5550 ifj=9 goto5920
 5560 ifj=10 goto5960
 5570 ifj=11 goto6000
 5580 ifj=12 goto6040
 5590 ifj=13 goto6080
 5600 print"as a club or sight";
 5610 inputq$
 5620 ifq$="sight" goto5650
 5630 ifj=14 goto6120
 5640 goto5480
 5650 ifr1<10 goto5680
 5660 print"failed"
 5670 goto7000
 5680 print"the monster is hurt"
 5690 letr5=1/6
 5700 ifk=2 goto6200
 5710 ifk=10 goto6200
 5720 ifk=4 goto6200
 5730 goto6260
 5740 ifint(rnd(1)*0)>0 goto6260
 5750 goto6200
 5760 letr3=10
 5770 letr4=3/7
 5780 letr5=5/11
 5790 goto6160
 5800 letr3=15
 5810 letr4=3/7
 5820 letr5=5/11
 5821 forz=1to100
 5822 ifw(z)=7goto5825
 5823 nextz
 5824 goto6280
 5825 j=7
 5826 w(z)=0
 5830 goto6160
 5840 letr3=1.5
 5850 letr4=1/7
 5860 letr5=1/5
 5870 goto6160
 5880 letr3=4
 5890 letr4=1/10
 5900 letr5=1/8
 5910 goto6160
 5920 letr3=4
 5930 letr4=1/7
 5940 letr5=1/6
 5950 goto6160
 5960 letr3=3
 5970 letr4=1/8
 5980 letr6=1/5
 5990 goto6160
 6000 letr3=5
 6010 letr4=1/9
 6020 letr5=1/6
 6030 goto6160
 6040 letr3=8
 6050 letr4=1/9
 6060 letr5=1/4
 6070 goto6160
 6080 letr3=6
 6090 letr4=1/3
 6100 letr5=2/3
 6110 goto6160
 6120 letr3=1.5
 6130 letr4=1/3
 6140 letr5=1/2
 6150 goto6160
 6160 ifr1>r3 goto4710
 6170 ifr2=0 goto6280
 6180 ifr2=1 goto6260
 6190 ifr2=2 goto6230
 6200 print"critical hit"
 6210 letb(k,3)=b(k,3)-int(c(1)*r5)
 6220 goto6300
 6230 print"hit"
 6240 letb(k,3)=b(k,3)-int(c(1)*r4)
 6250 goto6300
 6260 print"hit but no damage"
 6270 goto6300
 6280 print"miss"
 6290 goto6300
 6300 ifw(j)=14 goto7000
 6310 form=1tox
 6320 ifw(m)=j goto6340
 6330 nextm
 6340 letw(m)=0
 6350 ifj<>7 goto6360
 6355 goto6370
 6360 letj=0
 6370 ifr2>0 goto1590
 6380 goto7000
 6390 rem looking
 6400 form=-5to5
 6410 forn=-5to5
 6420 ifm+g>25 goto6510
 6430 ifm+g<0 goto6510
 6440 ifh+n>25 goto6510
 6450 ifh+n<0 goto6510
 6460 ifm<>0 goto6480
 6470 ifn=0 goto6590
 6480 ifd(m+g,n+h)=2 goto 6550
 6485 ifd(m+g,n+h)=7 or d(m+g,n+h)=8 goto 6550
 6490 ifd(m+g,n+h)=3 goto 6570
 6500 print d(m+g,n+h);
 6510 next n
 6520 print
 6530 next m
 6540 goto 7000
 6550 print 0;
 6560 goto 6510
 6570 print 1;
 6580 goto 6510
 6590 print 9;
 6600 goto 6510
 6610 rem save game
 6615 print chr$(4);"open gmstr":print chr$(4);"write gmstr"
 6620 print d
 6630 print x
 6640 print j
 6650 print g
 6660 print h
 6670 print k
 6680 for m=0 to 25
 6690 for n=0 to 25
 6700 print d(m,n)
 6710 next n
 6720 next m
 6730 for m=1 to x
 6740 print w(m)
 6750 next m
 6760 for m=1 to 10
 6770 print b$(m)
 6780 for n=1 to 6
 6790 print b(m,n)
 6800 next n
 6810 next m
 6820 for m=0 to 7
 6830 print c$(m)
 6840 print c(m)
 6850 next m
 6860 print n$
 6870 print f1
 6880 for m=1 to 15
 6890 print i$(m)
 6900 next m
 6910 print x3
 6920 for m=1 to x3
 6930 print x4(m)
 6940 next m
 6950 print x1
 6960 for m=1 to x1
 6970 print x2(m)
 6971 next m
 6972 print f2
 6980 print f1:print chr$(4);"close gmstr"
 6985 goto 1590
 6990 end
 7000 if k1=-1 goto 8290
 7010 if c(0)<2 goto 8160
 7020 if k>0 goto 7160
 7030 if g<>1 goto 7110
 7040 if h<>12 goto 7110
 7050 print"so you have returned"
 7060 if c(7)<100 goto 7110
 7070 let c(7)=c(7)-100
 7080 print"want to buy more equipment"
 7090 input q$
 7100 if q$="yes" goto 7130
 7110 if rnd(1)*20>10 goto 7830
 7120 goto1590
 7130 print"your h.p. are restored 2points"
 7140 let c(0)=c(0)+2
 7150 goto 830
 7160 gosub 8410
 7170 if b(k,3)<1goto 8290
 7180 if r1<2.0 goto 7600
 7190 if p0>10 goto 1590
 7200 rem he is comming
 7210 if abs(r8)>abs(r9)goto 7260
 7220 let f5=0
 7230 if m=1 goto 7270
 7240 let f6=-(r9/abs(r9))
 7250 goto 7280
 7260 let f5=-(r8/abs(r8))
 7270 let f6=0
 7280 for q=0to8
 7290 if q=2 or q=5 goto 7320
 7300 if f1+f5<0 or f1+f5>25 or f2+f6<0 or f2+6>25 goto 7320
 7310 if d(f1+f5,f2+f6)=q goto 7340
 7320 next q
 7330 goto 7510
 7340 if q=0 goto 7430
 7345 if q=6 or q=7 or q=8 goto 7430
 7350 if q=2 goto 7530
 7360 if q=3 or q=4 goto 7380
 7370 goto 7510
 7380 rem through the door
 7390 if d(f1+2*f5,f2+2*f6)<>0 goto 7510
 7400 let f5=f5*2
 7410 let f6=f6*2
 7420 goto 7440
 7430 rem closer
 7440 let d(f1,f2)=0
 7450 let f1=f1+f5
 7460 let f2=f2+f6
 7470 let d(f1,f2)=5
 7480 gosub 8410
 7490 rem
 7500 goto 1590
 7510 rem nowhere
 7520 goto 7490
 7530 print"good work you led him into a trap"
 7540 let k1=-1
 7550 let b(k,6)=0
 7560 goto 7000
 7570 let r8=-.5*r8
 7580 let r9=-.5*r9
 7590 goto 7420
 7600 print b$(k);" - watch out!"
 7610 for m=1 to x
 7620 if w(m)=10 goto 7720
 7630 if w(m)=9 goto 7700
 7640 if w(m)=8 goto 7680
 7650 next m
 7651 a1=6+c(2)
 7652 goto 7730
 7660 let a1=8+c(2)
 7670 goto 7730
 7680 let a1=12+c(2)
 7690 goto 7730
 7700 let a1=16+c(2)
 7710 goto 7730
 7720 let a1=20+c(2)
 7730 if rnd(1)*40>a1 goto 7790
 7740 if rnd(1)*2>1 goto 7770
 7750 print"he missed"
 7760 goto 1590
 7770 print"he hit you but not good enough"
 7780 goto 7000
 7790 print"monster scores a hit"
 7800 let c(0)=c(0)-int(rnd(1)*b(k,2)+1)
 7810 print"h.p.=";c(0)
 7820 goto 7000
 7830 for z7=1 to 50
 7840 for m=1 to 10
 7850 if b(m,5)>=1 and rnd(1)>.925 goto 8000
 7860 next m
 7870 next z7
 7880 print"all monsters dead"
 7890 print"another game (yesNno)";
 7900 inputq$
 7910 ifq$="yes" goto 7930
 7920 end
 7930 rem
 7931 let jr=jr+1
 7932 for m=1 to 10
 7950 let b(m,3)=b(m,4)*j4
 7960 let b(m,6)=b(m,5)*j4
 7970 next m
 7980 let c(0)=c(0)+5
 7990 goto 1590
 8000 let k=m
 8010 m1=int(rnd(1)*7+1)
 8015 for m=-m1 to m1
 8020 for n=-m1 to m1
 8025 if abs(m)<=2 or abs(n)<=2 goto 8080
 8030 if g+m<1 goto 8080
 8040 if h+n<1 goto 8080
 8050 if g+m>25 goto 8080
 8060 if h+n>25 goto 8080
 8065 if rnd(1)>.7 goto 8080
 8070 if d(g+m,h+n)=0 goto 8110
 8080 next n
 8090 next m
 8100 goto 8010
 8110 rem
 8120 let d(g+m,h+n)=5
 8130 let f1=g+m
 8140 let f2=h+n
 8150 goto 7000
 8160 if c(0)<1 goto 8190
 8170 print"watch it h.p.=";c(0)
 8180 goto 7020
 8190 if c(0)<0 goto 8250
 8200 if c(3)<9 goto 8230
 8210 print"h.p.=0 but const. holds"
 8220  goto7020
 8230 print"sorry you're dead"
 8240 end
 8250 if c(3)<9 goto 8230
 8260 let c(3)=c(3)-2
 8270 let c(0)=c(0)+1
 8280 goto 8190
 8290 k1=0
 8300 let c(7)=c(7)+b(k,6)
 8310 let d(f1,f2)=0
 8320 let f1=0
 8330 let f2=0
 8340 print"good work you just killed a";b$(k)
 8350 print"and get";b(k,6);"gold pieces"
 8355 if j6=1 goto 8370
 8360 let b(k,5)=0
 8370 print"you have";c(7);"gold"
 8380 let b(k,6)=0
 8381 if j6<>1 goto 8390
 8382 b(k,3)=b(k,4)*b(k,1)/1
 8383 b(k,6)=b(k,5)*b(k,1)
 8390 let k=0
 8400 goto 7000
 8410 rem range and hit check
 8420 for m=-25to25
 8430 for n=-25to25
 8440 if g+m>25 goto 8490
 8450 if g+m<0 goto 8490
 8460 if h+n>25 goto 8490
 8470 if h+n<0 goto 8490
 8480 if d(g+m,h+n)=5 goto 8520
 8490 next n
 8500 next m
 8510 let r1=1000
 8520 let r8=m
 8530 let r9=n
 8540 if r1=1000 goto 8570
 8550 let r1=sqr(m*m+n*n)
 8570 if int(rnd(1)*20+1)>18 goto 8620
 8580 if rnd(1)*20>b(k,2)-c(2)/3 goto 8640
 8590 if rnd(1)*2>1.7 goto 8660
 8600 let r2=0
 8610 return
 8620 let r2=3
 8630 return
 8640 let r2=2
 8650 return
 8660 let r2=1
 8670 return
 8680 print"magic"
 8690 if j<>0 goto 8740
 8700 if c$(0)="cleric" goto 8760
 8710 if c$(0)="wizard" goto 9310
 8720 print"you can't use magic you're no ram.u."
 8730 goto 7000
 8740 print"you can't use magic with weapon in hand"
 8750 goto 7000
 8760 print"clerical spell#";
 8770 input q
 8780 for m=1 to x1
 8790 if q=x2(m) goto 8830
 8800 next m
 8810 print"you don't have that spell"
 8820 goto 7000
 8830 x3=x2(m)
 8835 x2(m)=0
 8839 if x3=1 goto 8950
 8840 if x3=2 goto 9030
 8850 if x3=3 goto 9060
 8860 let q=2
 8870 if x3=4 goto 9090
 8880 let q=3
 8890 if x3=5 goto 9200
 8900 if x3=6 goto 9240
 8910 if x3=7 goto 9280
 8920 if x3=8 goto 9090
 8930 if x3=9 goto 9720
 8940 goto 8810
 8950 if rnd(1)*3>1 goto 9000
 8960 print"done"
 8970 let x2(m)=0
 8980 let k1=-1
 8990 goto 7000
 9000 print"failed"
 9010 let x2(m)=0
 9020 goto 7000
 9030 print"done"
 9040 let b(k,3)=b(k,3)-4
 9050 goto 9010
 9060 let c(3)=c(3)+3
 9070 let x2(m)=0
 9080 goto 9010
 9090 let x2(m)=0
 9100 for m=-3 to 3
 9110 for n=-3 to 3
 9120 if g+m<0 or g+m>25 or h+n<0 or h+n>25 goto 9140
 9130 if d(g+m,h+n)=q goto 9180
 9140 next n
 9150 next m
 9160 print"no more"
 9170 goto 9010
 9180 print"there is one at";m;"lat.";n;"long."
 9190 goto 9140
 9200 print"done"
 9210 let x2(m)=0
 9220 let b(k,3)=b(k,3)-2
 9230 goto 9010
 9240 print"done"
 9250 let x2(m)=0
 9260 let b(k,3)=b(k,3)-6
 9270 goto 9010
 9280 print"done"
 9290 let c(3)=c(3)+3
 9300 goto 9010
 9310 print"spell#";
 9320 input q
 9330 for m=1 to x3
 9340 if q=x4(m) goto 9390
 9350 next m
 9360 print"do not have that one"
 9370 goto 1590
 9380 if f1-g=0 goto 9410
 9390 if x4(m)<>1 goto 9480
 9400 goto 9420
 9410 let s=0
 9420 if f2-h=0 goto 9450
 9430 print"are you above,below,right,or left of it";
 9440 goto 9470
 9450 let t=0
 9460 let z5=1
 9470 goto 3940
 9480 if x4(m)=2 goto 9660
 9490 let r=5
 9500 let q=2
 9510 if x4(m)=3 goto 9090
 9520 if x4(m)=4 goto 9800
 9530 let q=0
 9540 if x4(m)=5 goto 9860
 9550 let q=3
 9560 if x4(m)=6 goto 9950
 9570 let q=6
 9580 if x4(m)=7 goto 9950
 9590 let q=9
 9600 if x4(m)=8 goto 9950
 9610 let q=3
 9620 if x4(m)=9 goto 9090
 9630 let q=1
 9640 if x4(m)=10 goto 9860
 9650 goto 9360
 9660 if rnd(1)*3>1 goto 9690
 9670 print"failed"
 9680 goto 7000
 9690 print"done"
 9700 k1=-1
 9710 goto 7000
 9720 ifk=4 goto 9760
 9730 ifk=10 goto 9760
 9740 print"failed"
 9750 goto 7000
 9760 print"done"
 9770 goto 9390
 9780 let t=(f2-h)/abs(f2-h)
 9790 goto 4220
 9800 print"input co-ordinates";
 9810 input m,n
 9820 print"done"
 9830 let g=m
 9840 let h=n
 9850 goto 7000
 9860 print"input co-ordinates";
 9870 input m,n
 9880 if d(m,n)=0 goto 9920
 9890 if d(m,n)=1 goto 9920
 9900 print"failed"
 9910 goto 7000
 9920 let d(m,n)=q
 9930 print"done"
 9940 goto 7000
 9950 print"done"
 9960 let b(k,3)=b(k,3)-q-int(rnd(1)*11)
 9965 print"m-hp=";b(k,3)
 9970 goto 7000
 9980 if c$(0)="cleric" goto 10020
 9990 if c$(0)="wizard" goto 10360
 10000 print"you can't buy any"
 10010 goto 1590
 10020 print"do you know the choices";
 10030 input q$
 10040 if q$="yes" goto 10100
 10050 print"1-kill-500          5-mag.miss.#1-100"
 10060 print"2-mag.miss.#2-200   6-mag.miss.#3-300"
 10070 print"3-cure.light#1-200  7-cure.light#2-1000"
 10080 print"4-find.traps-200    8-find s.doors-200"
 10090 print"input# wanted - neg.num.to stop";
 10100 input q
 10110 let x5(1)=500
 10120 let x5(2)=200
 10130 let x5(3)=200
 10140 let x5(4)=200
 10150 let x5(5)=100
 10160 let x5(6)=300
 10170 let x5(7)=1000
 10180 let x5(8)=200
 10190 if q<1 goto 10290
 10200 if q>10 goto 10100
 10210 if c(7)-x5(int(q))<0 goto 10270
 10220 let c(7)=c(7)-x5(int(q))
 10230 print"it is yours"
 10240 let x1=x1+1
 10250 let x2(x1)=int(q)
 10260 goto 10100
 10270 print"costs too much"
 10280 goto 10100
 10290 print"your spells are"
 10300 for m=1 to x1
 10310 if x2(m)=0 goto 10330
 10320 print"#";x2(m)
 10330 next m
 10340 print"done"
 10350 goto 1590
 10360 print"do you know the spells";
 10370 input q$
 10380 ifq$="yes" goto 10450
 10390 print"1-push-75            6-m.m.#1-100"
 10400 print"2-kill-500           7-m.m.#2-200"
 10410 print"3-find traps-200     8-m.m.#3-300"
 10420 print"4-teleport-750       9-find s.doors-200"
 10430 print"5-change1+0-600     10-change0+1-600"
 10440 print"# of one you want neg.num.to stop";
 10450 input q
 10460 let x6(1)=75
 10470 let x6(2)=500
 10480 let x6(3)=200
 10490 let x6(4)=750
 10500 let x6(5)=600
 10510 let x6(6)=100
 10520 let x6(7)=200
 10530 let x6(8)=300
 10540 let x6(9)=200
 10550 let x6(10)=600
 10560 if q<1 goto 10660
 10570 if q>8 goto 10450
 10580 if c(7)-x6(int(q))<0 goto 10640
 10590 let c(7)=c(7)-x6(int(q))
 10600 print"it is yours"
 10610 let x3=x3+1
 10620 letx4(x3)=int(q)
 10630 goto 10450
 10640 print"costs too much"
 10650 goto 10450
 10660 print"you now have "
 10670 for m=1tox3
 10680 if x4(m)=0 goto 700
 10690 print"#";x4(m)
 10700 next m
 10710 goto 1590
 10720 rem
 10730 rem cheating - draw map
 10740 for m=0 to 25
 10750 for n=0 to 25
 10760 print d(m,n);
 10770 next n
 10780 print
 10790 next m
 10800 goto 1590
 10810 rem buy h.p.
 10820 goto 380
 10830 print"how many 200gp. each";
 10840 input q
 10850 if c(7)-200*q<0 goto 10900
 10860 let c(0)=c(0)+int(q)
 10870 let c(7)=c(7)-int(q*200)
 10880 print"ok done"
 10885 print"hp=";c(0)
 10886 for m=1to7
 10887 print c$(m);"=";c(m)
 10888 next m
 10890 goto 7000
 10900 print"no"
 10910 goto 10830
 11000 print"dng";
 11010 input d2
 11020 print"x,y,c";
 11030 input x9,y9,c9
 11035 if c9<0 goto 11060
 11040 let d(x9,y9)=c9
 11050 goto 11020
 11060 print"save"
 11061 input q
 11062 if q<>1 goto 7000
 11063 print chr$(4);"open dng"+str$(d2)
 11064 print chr$(4);"write dng"+str$(d2)
 11065 for m=0 to 25
 11070 for n=0 to 25
 11080 print d(m,n)
 11090 nextn
 11100 nextm
 11105 print chr$(4);"close dng"+str$(d2)
 11110 goto 7000
 11120 end
 14000 rem"      dungeon #1 map
 14001 rem"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 14003 rem"{CBM-+}6      {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}62{CBM-+}{CBM-+}{CBM-+}6{CBM-+}
 14005 rem"{CBM-+} {CBM-+}4{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} 4 {CBM-+} {CBM-+}6{CBM-+}{CBM-+}  {CBM-+}  {CBM-+}
 14007 rem"{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}624  3  {CBM-+}
 14009 rem"{CBM-+} {CBM-+}6  {CBM-+} 4 {CBM-+} {CBM-+} {CBM-+} {CBM-+}6{CBM-+}{CBM-+}  3  {CBM-+}
 14011 rem"{CBM-+}4{CBM-+}{CBM-+}  {CBM-+}3{CBM-+}4{CBM-+} {CBM-+}4{CBM-+} {CBM-+} {CBM-+}  {CBM-+}{CBM-+}{CBM-+} {CBM-+}
 14013 rem"{CBM-+}     2   7     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+}
 14015 rem"{CBM-+} {CBM-+}3{CBM-+}4{CBM-+}   {CBM-+}           2{CBM-+} {CBM-+}
 14017 rem"{CBM-+} {CBM-+}6{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}
 14019 rem"{CBM-+} {CBM-+}6{CBM-+}  {CBM-+}  {CBM-+}4{CBM-+}{CBM-+}{CBM-+} {CBM-+}     4  {CBM-+}
 14021 rem"{CBM-+} {CBM-+}3{CBM-+}  4  4 {CBM-+}6{CBM-+} {CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}3{CBM-+}
 14023 rem"{CBM-+} {CBM-+} {CBM-+}  {CBM-+}  {CBM-+} {CBM-+}2{CBM-+}2{CBM-+}  {CBM-+} 3   {CBM-+}
 14025 rem"{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}2{CBM-+} {CBM-+}4{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}4{CBM-+} 66{CBM-+}
 14027 rem"{CBM-+}  24        6       3   {CBM-+}
 14029 rem"{CBM-+} {CBM-+}4{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}3{CBM-+}
 14031 rem"{CBM-+} {CBM-+}6{CBM-+}6{CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+} {CBM-+}   {CBM-+}  {CBM-+}
 14033 rem"{CBM-+} {CBM-+}   {CBM-+} {CBM-+}2{CBM-+} {CBM-+} {CBM-+}2{CBM-+}2  2 {CBM-+} 6{CBM-+}
 14035 rem"{CBM-+} {CBM-+}   {CBM-+} {CBM-+}6{CBM-+}2{CBM-+} {CBM-+} {CBM-+} {CBM-+}   {CBM-+}  {CBM-+}
 14037 rem"{CBM-+} {CBM-+}   {CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}4{CBM-+}
 14039 rem"{CBM-+}   6 3          {CBM-+}       {CBM-+}
 14041 rem"{CBM-+}     {CBM-+}      6   3   7   {CBM-+}
 14043 rem"{CBM-+} {CBM-+}4{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}     {CBM-+}
 14045 rem"{CBM-+} {CBM-+} {CBM-+}  {CBM-+}    {CBM-+} {CBM-+} {CBM-+}        {CBM-+}
 14047 rem"{CBM-+} {CBM-+}{CBM-+}{CBM-+}2      {CBM-+} {CBM-+} {CBM-+} {CBM-+}{CBM-+}     {CBM-+}
 14049 rem"{CBM-+} 46{CBM-+}6 {CBM-+}    4 {CBM-+} {CBM-+}  4     {CBM-+}
 14051 rem"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 14053 rem
 14055 rem 0=floor   1=wall   2=trap
 14056 rem 3=s.door  4=door   6=gold
 14057 rem
 14058 rem 5=gnome   7=monst  8=monst
 14059 rem 9=your character
 14060 rem to escape the traps you must            have the spikes and(or) rope.
 20000 rem        .mad. 2016
    5 deffnrn(x)=int(rnd(5)*x+1)
   10 print"{clr}"
   20 print:print:print:print"  {CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B} dnieper river line {CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}"
   30 print:print"            copyright 1981"
   40 print:print"    by the avalon hill game company"
   57 tt=3
   60 dimr(22,7),g(15,6),bd(22,4),mp(5,11),ud(15,5),vp(6,5),un$(15),rr(10,2)
   61 dim pr(12,4),mn$(3),me(3,3),db(10,2),gib(10),rib(17),gl(15),cn$(5)
   62 dimob(6),an$(6),mf(8,3),st$(1),sl$(4),rn$(15)
   65 tame = 400:ep = 900+fnrn(4)*100+fnrn(2)*100
   70 fori=1to15:readrn$(i):nexti
   71 data"partisan","reg.inf.","gds.inf.","motr inf","para inf","nkvd inf"
   72 data"engineer","anti-tnk","su85's","med art.","hvy art.","t34 tank"
   73 data"kv85 tnk","aslt gun","recon"
   80 fori=1to15:readun$(i):nexti
   92 data"security","reg.inf.","s.s.inf.","pz. grd.","f/j inf.","aslt inf"
   93 data"engineer","anti-tnk","pzjaeger","med art.","hvy art.","med pnzr"
   94 data"hvy pnzr","aslt gun","recon"
  100 forj=0to11:fori=0to5:readmp(i,j):nexti:nextj
  110 data3,3,4,4,4,4,1,6,10,5,9,5,3,5,6,3,5,1,2,4,5,2,6,5,5,3,6,3,4,11,11
  111 data6,10,4,6,2,6,4,3,3,4,11,4,4,9,5,6,5,1,5,5,1,2,4,2,4,5,10,4,4,7,8,7,8
  112 data8,7,4,3,4,3,4,4
  120 fori=1to15:forj=1to5:readud(i,j):nextj:nexti
  130 data2,2,6,0,0,4,4,6,0,0,6,8,6,0,4,8,8,18,2,0,6,3,6,0,2,8,12,6,3,4,2
  131 data3,18,2,3,1,2,6,1,4,6,6,12,8,4,2,1,6,0,1,4,1,6,0,1,4,2,18,4,4,8,2,12,6
  132 data4,6,2,12,6,4,4,6,22,2,4
  140 fori=1to22:forj=1to4:readbd(i,j):nextj:nexti
  150 data2,10,3,3,2,10,3,3,2,4,3,6,1,4,3,3,2,6,6,3,1,7,6,3,1,2,3,3,1,1,3
  151 data3,1,8,9,18,1,4,6,12,2,4,3,3,1,2,3,3,1,2,18,18,1,2,18,18,2,4,18,18,3,3
  152 data18,18,4,2,9,9,3,3,9,9,1,4,3,3,2,4,3,3,2,3,6,6,2,2,3,6
  160 fori=1to6:forj=1to3:readvp(i,j):nextj:nexti
  170 data0,8,11,6,8,9,0,1,8,4,2,4,8,5,1,10,2,0
  180 fori=1to19:u1=fn rn(6):u2=fnrn(6):u3=vp(u1,3):vp(u1,3)=vp(u2,3)
  181 vp(u2,3)=u3:nexti
  190 u1=(fnrn(5)-1)*20:ifu1=0then210
  200 fori=1tou1:readu3:nexti
  210 fori=1to10:forj=1to2:readrr(i,j):nextj:nexti
  220 ifu1=80then290
  230 fori=1to(80-u1):readu3:nexti
  240 data1,5,2,6,3,3,4,4,7,1,6,3,9,1,11,1,12,1,14,1
  250 data3,4,4,3,5,2,7,1,8,2,9,2,12,3,13,3,14,3,15,2
  260 data1,2,4,4,5,4,7,2,10,2,12,2,13,1,15,4,11,2,6,3
  270 data3,3,4,5,5,3,7,1,8,2,9,2,11,2,12,3,14,2,15,2
  280 data2,5,3,2,4,2,5,2,7,3,8,2,10,3,13,3,14,2,15,1
  290 fori=1to3:readmn$(i):nexti
  300 data"mob","sta","asa"
  310 fori=1to4:readsl$(i):nexti
  320 data "lieutenant","colonel","general","field-marshal"
  400 fori=1to3:forj=1to3:readme(i,j):nextj:nexti
  410 data5,5,15,10,20,30,10,10,10
  450 fori=0to5:readcn$(i):nexti
  460 data"light","light","medium","heavy","german","soviet"
  470 fori=0to1:readst$(i):nexti
  480 data"russian strategic offensive","meeting engagement"
  500 fori=1to6:readan$(i):nexti
  510 data"rogachev","zhlobin","bobryusk","regt. hq","rata a/f","parichi"
 1000 remg.1
 1005 gosub9500:gosub31000:gosub32000
 1010 tg=int(y1+fn rn(y2)):ig=int(y3+y4*rnd(3))*tg:ifig<y0thenig=y0
 1020 fori=1toig:iffnrn(2)=1theng(i,3)=fnrn(8):goto1030
 1025 g(i,3)=8+fnrn(7)
 1030 g(i,4)=64-(dd*5)+5*fnrn(8):nexti
 1040 fori=1totg-ig:pr(i,1)=fnrn(15):pr(i,2)=fnrn(yd):nexti
 1050 print"{clr}":print:print"achtung...commander, you have been given":printig;" fine wehrmacht";
 1051 print" units to defend":print"the dnieper river line.":printtg-ig;" units from army";
 1052 print" group south are":print"in reserve.":gosub9999:gosub9999
 1053 print:print:print"here are the forces available.........":forh=1to1000:nexth
 1060 gosub9000:gosub9999:gosub30000:ifa1$="n"then1010
 1061 fori=1toig:print"unit "i" is a "un$(g(i,3)):print"unit is at "g(i,4)" % strength"
 1062 print
 1070 input"location (x,y) ";x,y:x=int(x):y=int(y)
 1072 ifx<0orx>11ory<0ory>11thenprint"invalid location ":goto1070
 1073 g(i,1)=x:g(i,2)=y
 1078 input"mode (m=mobile,s=static,a=assault) ";a1$:print:print:print
 1080 ifa1$="m"theng(i,5)=1:goto1090
 1082 ifa1$="s"theng(i,5)=2:goto1090
 1084 ifa1$="a"theng(i,5)=3:goto1090
 1086 print"{rvon}invalid mode{rvof}":goto1078
 1090 print:nexti:gosub9000:gosub9999
 1200 print"{clr}":print:print:u1=14+fnrn(11)-(dd*3):u5=0:printu1" mine factors are available in"
 1202 print"your sector to be emplaced.  they may be":print"placed at up to 8 locations."
 1210 fori=1to8:ifi>1thenprintu1" mine factors remain to be placed at"9-i"locations"
 1211 print:print"minefield # "i:input"number of mine factors ";u4:u4=int(u4)
 1212 input"location (x,y) ";u2,u3:print:x=int(x):y=int(y)
 1213 ifu2<0oru2>11oru3<0oru3>11thenprint"{rvon}invalid location{rvof}":goto1212
 1214 u1=u1-u4:ifu4=0then1220
 1215 mf(i,1)=u2:mf(i,2)=u3:mf(i,3)=u4
 1216 ifu1>0thennexti
 1220 print:print"all mine factors now placed":gosub9999
 1230 print"{clr}":u1=12-(3*dd)+fnrn(4)+fnrn(5):printu1" garrison companies have been col-"
 1231 print"lected to assist in the defense of this sector"
 1240 print:fori1=1to6:print"number of garrison co's to be assigned"
 1241 print"to the defense of "an$(i1)" ";:inputu2:print:ifu2>u1thenu2=u1
 1260 u1=u1-u2:vp(i1,5)=u2:ifu1<=0thenprint:print"all garrisons now assigned":goto2000
 1270 nexti1:print"all garrisons now assigned"
 2000 remi
 2010 u2=0:fori=1to10:u1=(.5+((y5+y6*rnd(1))*rr(i,2))):u1=int(u1):ifu1=0then2030
 2020 forj=1tou1:u2=u2+1:ifu2>22thenu2=u2-1:goto2060
 2022 ifrr(i,2)<=0then2030
 2025 r(u2,3)=rr(i,1):rr(i,2)=rr(i,2)-1:nextj
 2030 nexti:nr=u2
 2060 nr=u2:u1=0:u2=0:fori=1toig:u1=u1+g(i,1):u2=u2+ud(g(i,3),2):nexti
 2070 u3=0:u4=0:fori=1to6:u3=u3+vp(i,1)*vp(i,3):u4=u4+vp(i,2)*vp(i,3):nexti
 2080 u3=u3/33:u4=u4/33:u1=u1/ig
 2090 u5=0:fori=1tonr:u5=u5+ud(r(i,3),1):nexti
 2100 fori=1tonr:ifrnd(1)<.3thenr(i,5)=1:goto2115
 2110 r(i,5)=3
 2115 ifvp(r(i,7),2)<4andrnd(1)<.8thenr(i,5)=1
 2120 nexti
 2130 fori=1tonr:ifu1<u3andrnd(1)>.2thenr(i,1)=u1+rnd(1)*(11-u1):goto2140
 2135 ifrnd(1)>.2andu1>=u3thenr(i,1)=rnd(1)*u1
 2140 ifr(i,1)=0thenr(i,1)=fnrn(12)-1
 2150 nexti
 2160 fori=1tonr:u8=i:r(i,2)=11:gosub8000:r(i,7)=u9:r(i,4)=80+fnrn(60):nexti
 2500 u1=fnrn(3)-1:ifu1=0then2995
 2510 fori=1tou1:nr=nr+1:ifnr>22then2995
 2515 r(nr,3)=1:r(nr,1)=fnrn(12)-1:r(nr,2)=fnrn(7):r(nr,4)=80+fnrn(50)+(dd*10)
 2516 r(nr,5)=3:u8=nr:gosub8000:r(nr,7)=u9:nexti
 2995 gosub40000:tame=tame-100
 2996 print"{clr}":print:print"{rvon}stand-by for game start{rvof}":gosub9999
 3000 tame=tame+100:print"{clr}":print:print
 3002 t$=str$(tame):print"time = "t$" hours":wt=0:v1=v1+1
 3017 fori5=1toig:ifgl(i5)<>2thengl(i5)=0
 3018 nexti5:gosub10000:gosub11000:wt=1:gosub12000:gosub11000
 3019 ifnr<22thengosub9200
 3070 gosub14000
 3080 iftame >= ep or v2>(33+v1)/2thengosub17000:goto6500
 3090 goto3000
 6500 fori1=1to6:u6=vp(i1,1):u7=vp(i1,2):gosub6800
 6501 ifu9=0andvp(i1,3)<4then6510
 6502 r(i,1)=vp(i1,1)+fnrn(3)-2:r(i,2)=vp(i1,2)+fnrn(3)-2:r(i,7)=i1:goto6530
 6510 nexti1
 6520 r(i,1)=fnrn(12)-1:r(i,2)=fnrn(5):u8=i:gosub8000:r(i,7)=u9
 6530 r(i,6)=fnrn(3)-1:print"russian paratroops seen near sqr ";r(i,1)+1","r(i,2)-1
 6533 return
 6800 u9=0:fori2=1toig:ifabs(g(i2,1)-u6)>uporabs(g(i2,2)-u7)>upthen6810
 6802 u9=u9+1
 6810 nexti2:return
 8000 z0=0:u9=6:forjk=1to6:z1=1.5*abs(r(u8,1)-vp(jk,1))+abs(r(u8,2)-vp(jk,2))+1
 8005 ifvp(jk,4)=1then8020
 8010 z2=vp(jk,3)/z1:ifz2>z0thenu9=jk:z0=z2
 8020 nextjk:return
 9000 remstatus
 9005 print"{clr}":printspc(10);"{rvon}german unit status{rvof}";:print" time: "tame
 9010 print" #";tab(3);"unit";tab(10);"type";tab(18);"st";tab(25);"loc";
 9011 printtab(30);"mode";tab(35);"sta"
 9015 foru=1to40:print"C";:nextu:print
 9020 fori=1totg:ifi<=ig and gl(i)<>1 thena1$="actv":goto9030
 9021 ifi<=igthena1$="    ":goto9030
 9022 ifpr(i-ig,3)=2then a1$="comm":goto9030
 9024 a1$="resv"
 9030 ifi<=igthena2$=mn$(g(i,5)):goto9040
 9032 a2$="mob"
 9040 ifgl(i)=2thena3$="xx":goto9052
 9042 ifi<igandg(i,6)>0thena3$="ds"+str$(g(i,6)):goto9052
 9044 a3$="ok"
 9052 ifi>igthen9060
 9053 printtab(0);i;tab(01);a1$;tab(09);un$(g(i,3));tab(17);int(g(i,4));"%";
 9054 printtab(23-int((g(i,1)/10)));g(i,1);",";g(i,2);
 9055 printtab(31);a2$;tab(35)a3$
 9060 ifi>igthena5$="om-"+str$(pr((i-ig),2))
 9062 ifi<=igthen9070
 9063 printi;tab(03);a1$;tab(09);un$(pr((i-ig),1));tab(18);"??";tab(24);a5$;
 9064 printtab(31);a2$;tab(35);a3$
 9070 nexti:return
 9200 iu=0:fori4=1to10:ifrr(i4,2)>0then9220
 9210 nexti4:return
 9220 u1=fnrn(10):ifrr(u1,2)<=0then9220
 9222 rr(u1,2)=rr(u1,2)-1:ifrr(u1,2)<0thenrr(u1,2)=0
 9230 nr=nr+1:r(nr,1)=fnrn(12)-1:r(nr,2)=11:r(nr,3)=rr(u1,1):r(nr,4)=fnrn(60)+60
 9231 r(nr,5)=3:iu=1
 9250 ifr(nr,3)=5theni=nr:gosub6500
 9260 u8=nr:gosub8000:r(nr,7)=u9
 9400 ifrnd(2)>rd*.12ornr>21thenreturn
 9405 goto9200
 9410 u1=0:u3=0:ifrnd(2)>dd*.15thenreturn
 9415 print"{rvon}russian artillery barrage !{rvof}":u1=(fnrn(nr)/4)*dd
 9420 fori=1tou1:u3=fnrn(13)-1:u2=fnrn(9)-1
 9430 fori1=1toig:ifg(i1,1)=u3andg(i1,2)=u2theng(i1,6)=g(i1,6)+fnrn(3):goto9445
 9440 nexti1:nexti:return
 9445 g(i1,4)=g(i1,4)*(1-rnd(5)*.4):printi1" "un$(g(i1,3))" hit":goto9440
 9500 sc=fnrn(2)-1:ifsc=1theny0=5
 9501 ifsc=1theny1=8:y3=.3:y4=.3:y6=.3:y8=.5:y9=.5:ya=.8:yb=.7:yd=8:goto9510
 9505 y0=7:y1=10:y3=.4:y4=.4:y6=.4:y8=.8:y9=.6:ya=.95:yb=.9:yd=6
 9510 y2=5:y5=.4:y7=1:yc=4:v1=0:v2=0
 9520 return
 9800 fori1=1togs:u1=gib(i1):g(u1,2)=g(u1,2)-fnrn(2):ifg(u1,2)<0theng(u1,2)=0
 9830 nexti1:ifrnd(2)>.5thenprint"{rvon}germans retreating !{rvof}":goto9832
 9831 print"{rvon}germans falling back !!{rvof}"
 9832 return
 9900 fori2=1tors:u1=rib(i2):r(u1,2)=r(u1,2)+fnrn(2):ifr(u1,2)>11thenr(u1,2)=11
 9910 forka=1to6:ifr(u1,1)=vp(ka,1)andr(u1,2)=vp(ka,2)thenr(u1,2)=r(u1,2)+fnrn(2)
 9920 nextka:ifr(u1,2)>11thenr(u1,2)=11
 9930 nexti2:ifrnd(3)>.5thenprint"{rvon}soviets retreating !!!{rvof}":goto9932
 9931 print"{rvon}russian units in retreat{rvof}"
 9932 return
 9990 c4=int((c1)/2):c3=2*mp(c4,c2)-1:zy=c1/2-int(c1/2):ifzy<>0thenc3=c3+1:return
 9991 return
 9998 goto9990
 9999 forii=1to999:nextii:print"{rvon} {rvof}":return
 10000 gosub22000:gosub16000:gosub9410:gosub19000:fori=1tonr:u1=ud(r(i,3),3):uq=1
 10004 gosub21000:ifr(i,5)=1thenu1=u1*2
 10005 ifr(i,2)=11andr(i,3)=5thengosub6500
 10010 ifr(i,5)=2orr(i,6)>rd-1goto10500
 10020 u6=r(i,1):u7=r(i,2):up=0:gosub6800:ifu9>0goto10500
 10030 u3=r(i,1)-vp(r(i,7),1):u4=r(i,2)-vp(r(i,7),2)
 10040 ifabs(u3)>=abs(u4)thenu5=-sgn(u3):u6=0:goto10050
 10045 u5=0:u6=-sgn(u4)
 10050 c1=r(i,1)+u5:c2=r(i,2)+u6:gosub9998:uc=c3
 10051 ifud(r(i,3),3)>=12thenu7=bd(uc,4):goto10070
 10055 u7=bd(uc,3)
 10070 ifu1<u7anduq=1goto10090
 10080 ifu1<u7anduq=0goto10500
 10090 r(i,1)=r(i,1)+u5:r(i,2)=r(i,2)+u6:u1=u1-u7:uq=0
 10091 fori1=1to8:ifr(i,1)<>mf(i1,1)ormf(i1,2)<>r(i,2)ormf(i1,3)<=0then10097
 10092 print"{rvon}russians reported in minefield{rvof}"mf(i1,1)","mf(i1,2)
 10093 ifrnd(8)<mf(i1,3)*.3thenmf(i1,3)=mf(i1,3)-1:goto10095
 10094 goto10097
 10095 r(i,6)=r(i,6)+fnrn(2):print"{rvon}mines exploding!{rvof}"
 10097 nexti1
 10100 fori1=1toig:ifgl(i1)<>0then10400
 10110 c1=r(i,1):c2=r(i,2):gosub9998:uf=c3:z1=yc/bd(uf,2)
 10120 ifg(i1,5)=2thenz1=z1/2
 10130 ifr(i,5)=1thenz1=z1*3
 10140 ifsm=1andrnd(2)<.5thenprint"{rvon}smoke obscuring observation{rvof}":z1=z1/fnrn(3)
 10150 z1=z1*2/((1+sqr(((g(i1,1)-r(i,1))^2)+((g(i1,2)-r(i,2))^2)))^1.5)
 10160 z2=(rnd(2)+rnd(2))*.4:z3=z2/z1
 10170 ifz3>.8then10400
 10175 ifrnd(2)>.5thena5$=str$(i1)+" "+un$(g(i1,3))+" reports":goto10180
 10176 ifrnd(2)>.5thena5$="forward units report":goto10180
 10178 a5$="combat groups reporting"
 10180 ifz3>.4thenprinta5$:print" russian forces seen sqr "r(i,1)","r(i,2):print:goto10200
 10185 ifz3>.1thenprint" soviet ";rn$(r(i,3));" seen sqr "r(i,1)","r(i,2):print:goto10200
 10190 printa5$:print" russian ";i;rn$(r(i,3));" advancing sqr "r(i,1)","r(i,2):print
 10200 c1=r(i,1):c2=r(i,2):gosub9998:z2=sqr(bd(c3,2))
 10201 z3=sqr((r(i,1)-g(i1,1))^2+(r(i,2)-g(i1,2))^2)+1
 10210 ifud(r(i,3),3)>=12goto10240
 10215 ifud(r(i,3),2)<=0thenud(r(i,3),2)=.0001
 10220 z1=2*ud(g(i1,3),1)/(z2*sqr(z3)*(1+g(i1,6))*ud(r(i,3),2))
 10221 ifr(i,5)=1thenz1=z1*2
 10230 goto10250
 10240 z1=6*ud(g(i1,3),1)/(z2*z3*(1+g(i1,6))*ud(r(i,3),4)):ifr(i,5)=1thenz1=z1*2
 10245 ifud(g(i1,3),5)<>1andud(g(i1,3),5)<>4then10400
 10250 z1=z1*(g(i1,4)/100):u3=int(z1):ifu3<3then10254
 10251 r(i,6)=r(i,6)+fnrn(u3-1)-1:print"german forward observers directing"
 10252 print" heavy fire on russian "i" "rn$(r(i,3)):gl(i1)=1:print:goto10260
 10254 ifu3<1andrnd(2)>.4then10400
 10255 r(i,6)=r(i,6)+1:printi1" "un$(g(i1,3))" breaking up russian   "
 10256 printi" "rn$(r(i,3))" advance":print
 10260 r(i,4)=r(i,4)*((100-fnrn(6)*u3-fnrn(4)*u3)/100):ifrnd(6)<.5thengl(i1)=1
 10265 ifr(i,4)<0thenr(i,4)=0
 10400 forii=1to500:nextii:nexti1:ifabs(u5)=0andabs(u6)=0then10500
 10450 print:goto10010
 10500 forii=1to 500:nextii:print"V":nexti
 10501 return
 11000 nb=0:fori=1toig:fori1=1tonr:ifg(i,1)<>r(i1,1)org(i,2)<>r(i1,2)then11040
 11003 ifwt=1thena4$=" attacking!":goto11005
 11004 a4$=" under attack!"
 11005 g(i,0)=1:printi" "un$(g(i,3))" "a4$
 11010 ifnb=0goto11030
 11020 fori2=1tonb:ifdb(i2,1)=g(i,1)anddb(i2,2)=g(i,2)then11050
 11025 nexti2
 11030 nb=nb+1:db(nb,1)=g(i,1):db(nb,2)=g(i,2)
 11040 nexti1
 11050 nexti
 11055 print:print:gosub9999
 11060 gs=0:rs=0:ifnb=0thenreturn
 11070 fori=1tonb:gosub9999:gs=0:rs=0:fori1=1toig
 11071 ifdb(i,1)=g(i1,1)anddb(i,2)=g(i1,2)thengs=gs+1:gib(gs)=i1
 11080 nexti1
 11090 fori2=1tonr:ifdb(i,1)=r(i2,1)anddb(i,2)=r(i2,2)thenrs=rs+1:rib(rs)=i2
 11095 ifr(i2,6)<0thenr(i2,6)=0
 11100 nexti2
 11110 print"{clr}":print:print:print"{rvon}battle report{rvof}":print"time is "tame" hours":print"square "db(i,1);
 11111 print","db(i,2):print:print"german units""
 11120 fori1=1togs:printgib(i1)" "un$(g(gib(i1),3)):nexti1:print:print"russian units"
 11122 fori2=1tors:printrib(i2)" "rn$(r(rib(i2),3)):nexti2:fori1=1to3000:nexti1
 11250 print:sw=wt
 11300 z8=0:z1=.1:fori1=1togs:u1=gib(i1):z2=ud(g(u1,3),1)*wt+ud(g(u1,3),2)*(1-wt)
 11302 z2=z2*((me(g(u1,5),1)*wt)+(me(g(u1,5),2)*(1-wt)))
 11304 z2=(g(u1,4)/100)*z2/(10*(1+g(u1,6)))
 11310 z1=z1+z2:z8=z8+ud(g(u1,3),4):nexti1:print:gosub18000:z1=z1+zz
 11312 ifzz>0thenprint"{rvon}german artillery intervenes!{rvof}":print
 11320 z9=0:z3=.1:fori2=1tors:u1=rib(i2):z2=ud(r(u1,3),1)*(1-wt)+ud(r(u1,3),2)*wt
 11322 z2=z2*((me(r(u1,5),1)*(1-wt))+(me(r(u1,5),2)*wt))
 11324 z2=z2*(r(u1,4)/100)/(10*(1+r(u1,6)))
 11330 z9=z9+ud(r(u1,3),4):z3=z3+z2:nexti2
 11335 ifz8=0thenz8=1
 11337 ifz9=0thenz9=1
 11340 ifwt=1thenz4=z1/z3:za=z8/z9:goto11350
 11345 z4=z3/z1:za=z9/z8
 11350 c1=db(i,1):c2=db(i,2):gosub9998:z4=z4*2/sqr(bd(c3,2))
 11352 ifsm<>1andrnd(2)<.3 then11362
 11354 z4=z4*(1+rnd(4)):za=za*(1+rnd(3)):print"smoke hampering defenders fire"
 11362 print"german combat strength = "z1
 11364 print"soviet combat strength = "z3
 11365 print:print"german armor strength = "z8
 11366 print"soviet armor strength ="z9
 11370 u6=(fnrn(6)+fnrn(6))/2:z6=(bd(c3,2)+1)/(bd(c3,2)+4):z5=z4*z6+za*(1-z6)
 11371 ifu6>4thenprint"severe fighting has broken out !!"
 11372 print:print"{rvon}effective combat odds are "z5:print"{rvof}":forh=1to1000:nexth:print:z5=abs(z5)
 11380 fori1=1togs:u1=gib(i1):z6=3*(u6/z5)+((u6^2*fnrn(2))/3)
 11382 z7=4*z5+((u6^2*fnrn(2))/3)
 11390 g(u1,4)=g(u1,4)*(1-(wt*z6/100)-((1-wt)*z7/100)):ifg(u1,4)<0theng(u1,4)=0
 11400 ifwt=1andz5<5andrnd(3)<.6theng(u1,6)=g(u1,6)+fnrn(6-z5):goto11410
 11405 ifwt=0andz5>=1andrnd(3)<.8theng(u1,6)=g(u1,6)+(fnrn(z5)-1)
 11410 nexti1
 11420 fori2=1tors:u1=rib(i2):z6=3*(u6/z5)+((u6^2*fnrn(2))/3)
 11422 z7=4*z5+((u6^2*fnrn(2))/3)
 11430 r(u1,4)=r(u1,4)*(1-((1-wt)*(z6/100))-wt*z7/100):ifr(u1,4)<0thenr(u1,4)=0
 11440 ifwt=0andz5<5andrnd(3)<.6thenr(u1,6)=r(u1,6)+fnrn(6-z5):goto11450
 11445 ifwt=1andz5>=2andrnd(4)<.4thenr(u1,6)=r(u1,6)+fnrn(z5-1)
 11450 nexti2
 11460 ifrnd(8)>(3/(z5^2+3))then11480
 11470 ifwt=1thengosub9800:goto11710
 11472 gosub9900:goto11710
 11480 ifwt=1thengosub9900
 11482 gosub9800
 11710 nexti:gosub9999:return
 12000 print"{clr}":print:print"german movement phase":xl=0:rl=0
 12005 fori5=1toig:ifgl(i5)=1thengl(i5)=0
 12007 nexti5:ifrnd(8)>.5thengosub20000
 12010 print:print"enter cmd/st/rsv/art/obj/qu ";:inputa1$:ifa1$=chr$(13)then12010
 12020 ifa1$="st"thengosub9000:goto12010
 12021 ifa1$="qu"thenreturn
 12022 ifa1$="cmd"thengoto12040
 12024 ifa1$="rsv"thengoto12200
 12026 ifa1$="art"then12400
 12028 ifa1$="obj"then41000
 12030 print"error-improper input":print:goto12010
 12040 input"enter unit #,mode(m,s,a or n)";u1,a2$
 12042 input"direction (0-8) ";ty:gg=1:gosub32310:gosub34000
 12044 ifu1>igthenprint"invalid unit #":goto12040
 12050 ifgl(u1)=1thenprint"already moved":goto12010
 12055 ifgl(u1)=2thenprint"{rvon}unit routed....out of command control{rvof}":goto12010
 12060 ifu1=0goto12010
 12070 ifa2$="n"goto12100
 12080 ifrnd(2)>.21then12090
 12082 print"unit reports operational problems.....no change in status":gl(u1)=1
 12084 goto12100
 12090 ifa2$="m"theng(u1,5)=1
 12092 ifa2$="s"theng(u1,5)=2
 12094 ifa2$="a"theng(u1,5)=3
 12100 ifg(u1,5)=2then12010
 12102 u4=ud(g(u1,3),3):ifg(u1,5)=1thenu4=u4*2:goto12110
 12104 ifg(u1,5)=2thenu4=0
 12110 ifu2=0andu3=0thengl(u1)=1:goto12010
 12111 c1=g(u1,1)+u2:c2=g(u1,2)+u3
 12112 ifc1<0thenc1=0
 12113 ifc1>11thenc1=11
 12114 ifc2<0thenc2=0
 12115 ifc2>11thenc2=11
 12116 gosub9998:ifud(g(u1,3),3)>=12thenu6=bd(c3,4):goto12118
 12117 u6=bd(c3,3)
 12118 ifu4<u6andgg=0thengl(u1)=1:print"mvmt points exhausted":goto12010
 12119 ifgg=1thengg=0
 12120 u4=u4-u6:g(u1,1)=c1:g(u1,2)=c2:print"unit at sqr "c1","c2
 12130 u7=0:fori5=1tonr
 12132 ifr(i5,1)<>c1orr(i5,2)<>c2then12140
 12134 print"soviet "i5" "rn$(r(i5,3))" encountered":u7=1
 12140 nexti5:ifu7=1thenprint"mvmt halted":gl(u1)=1:goto12010
 12150 u8=0:fori5=1tonr:ifr(i5,6)<0thenr(i5,6)=0
 12151 ifabs(r(i5,1)-c1)>3orabs(r(i5,2)-c2)>3orrnd(3)>.3then12155
 12152 u8=1:z1=.06*(r(i5,4)/100)*ud(r(i5,3),1)/(1+r(i5,6))
 12155 ifu8<>1orrnd(3)>z1then12160
 12156 printgn$(u1)" coming under fire":uu=fnrn(2)-1:g(u1,6)=g(u1,6)+uu
 12157 ifuu>0thengl(u1)=1
 12160 nexti5:ifu8=1thenprint"russians nearby"
 12165 ifgl(u1)>0then12010
 12170 input"direction (0-8)";ty:gosub32310:gosub34000
 12171 ifu2=0andu3=0thengl(u1)=1:goto12010
 12175 goto12110
 12200 print"{clr}":print:ifrl=1thenprint"no additional reserves available now":goto12010
 12202 print:print"general manstein is on the line..."
 12204 input"which unit # do you request ";u1:ifu1>tg oru1<=0thenprint:goto12204
 12208 ifu1<=igthenprint"unit already on map":goto12010
 12209 ifpr(u1-ig,3)=1thenprint"unit already on map":goto12010
 12210 ifpr(u1-ig,3)=2thenprint"already in motion":goto12220
 12211 ifpr(u1-ig,4)<>1orrnd(7)>y8thenprint"unit unavailable":pr(u1-ig,4)=1:goto12010
 12214 pr(u1-ig,3)=2:print"unit will arrive in "pr(u1-ig,2)" hours":rl=fnrn(2)-1
 12220 goto12010
 12400 print"{clr}":ifrnd(8)>y9orxl=1thenprint"no artillery available":xl=1:goto12010
 12402 ia=fnrn(2+(nr/ig))
 12405 print:print"hq allocates "ia" fire missions ":xl=1
 12410 print:input"enter location (x,y) for arty fire";u1,u2:u1=int(u1):u2=int(u2)
 12411 u3=fnrn(3):printcn$(u3);
 12412 print" arty fire sqr "u1","u2:fori4=1tonr:ifr(i4,1)<>u1orr(i4,2)<>u2then12420
 12414 r(i4,4)=r(i4,4)*(1-.12*fnrn(u3)):r(i4,6)=r(i4,6)+fnrn(u3)-4
 12416 print"russian "i4" "rn$(r(i4,3))" hit"
 12420 nexti4:ia=ia-1:ifia=0then12010
 12425 goto12410
 14000 fori1=1toig
 14001 ifg(i1,6)>0and rnd(8)<ya and g(i1,4)>30andgl(i1)<>2theng(i1,6)=g(i1,6)-1
 14010 g(i1,0)=0:nexti1
 14013 fori1=1to12:pr(i1,4)=0:nexti1
 14015 fori2=1 to nr
 14020 if r(i2,6)>0 and rnd(4)<yb and r(i2,4)>30 then r(i2,6)=r(i2,6)-1
 14025 if r(i2,6) < 0 then r(i2,6) =0
 14030 next i2
 14050 fori1=1to12:ifpr(i1,3)=2andpr(i1,2)>0thenpr(i1,2)=pr(i1,2)-1
 14060 ifpr(i1,3)=2andpr(i1,2)=0then14065
 14063 goto14070
 14065 pr(i1,3)=1:ig=ig+1:g(ig,1)=fnrn(12)-1:g(ig,2)=0:g(ig,3)=pr(i1,1):g(ig,5)=3
 14066 g(ig,4)=fnrn(39)+60:print ig" "un$(g(ig,3))" is arriving"
 14067 print:ifi1<12thengosub37000
 14070 nexti1
 14080 fori1=1toig:ifgl(i1)<>2andrnd(3)<.02*dd*g(i1,6)thengl(i1)=2:goto14084
 14082 goto14090
 14084 printi1" "un$(g(i1,3))" has routed and is":print"falling back !"
 14086 g(i1,6)=8+fnrn(5):g(i1,2)=fnrn(3)
 14090 nexti1
 14100 forj=1to6:u1=0:fori=1tonr
 14102 ifr(i,1)=vp(j,1)andr(i,2)=vp(j,2)andvp(j,4)=0thengoto14106
 14104 goto14110
 14106 u1=1:u8=i:gosub8000:r(i,7)=u9
 14110 nexti:ifu1=0then14160
 14120 vp(j,5)=vp(j,5)-fnrn(3)
 14125 ifvp(j,5)>0thenprintan$(j)" garrison needs help":goto14060
 14130 ifvp(j,3)<8thena2$="minor":goto14140
 14135 a2$="major"
 14140 print"soviets capture a "a2$" objective.":printspc(12);an$(j);"{rvof}":vp(j,4)=1
 14141 v2=v2+vp(j,3)
 14150 fori3=1tonr:u8=i3:gosub8000:r(i3,7)=u9:nexti3
 14160 nextj
 14170 gosub9999:return
 16000 sm=0:ifrnd(8)>.3thenreturn
 16001 sm=1:print"{rvon}russian smoke barrage !{rvof}":return
 17000 print"{clr}":print:print:print"the battle is over at"tame"hours"
 17001 print:print"objective","status":print:fori=1to6
 17005 printan$(i),cn$(4+vp(i,4)):u1=vp(i,3):ifvp(i,4)=0thenv1=v1+u1
 17010 nexti:print:printcn$(5)" victory points "v2:printcn$(4)" victory points "v1:u2=4
 17015 ifv2>v1thenu2=5
 17020 printcn$(u2)" victory!":end
 18000 zz=0:i2=0:fori1=1toig:zy=sqr((db(i,1)-g(i1,1))^2+(db(i,2)-g(i1,2))^2)
 18001 ifg(i1,3)>9andg(i1,3)<12andzy<6andg(i1,6)=0andg(i1,0)=0thengoto18006
 18005 goto18020
 18006 ifg(i1,5)<>2then18005
 18010 g(i1,0)=1:print"unit "i1" "un$(g(i1,3))" awaiting fire mission"
 18011 input"assign fire (y/n) ";a1$:ifa1$="y"then18013
 18012 goto18015
 18013 zz=zz+(ud(g(i1,3),1)*(g(i1,4)/100)*1.5):goto18020
 18015 g(i1,0)=0
 18020 nexti1:return
 19000 ifrnd(8)>.04*dd*rdthenreturn
 19001 gosub42000:print:print"sturmoviks attacking "i1" "un$(g(i1,3))
 19010 u1=fnrn(3):printcn$(u1)" casualties reported"
 19011 g(i1,4)=g(i1,4)*(1-u1*rnd(4)/8):g(i1,6)=g(i1,6)+fnrn(u1):return
 20000 u1=0:forjk=1tonr:u1=u1+sgn(r(jk,6)):nextjk:print:print"recon showing russians ";
 20001 printint(u1*100/nr);" % disrupted":return
 21000 ifr(i,6)>rdthenr(i,5)=2:return
 21010 u6=r(i,1):u7=r(i,2):up=2:gosub6800:ifu9=0thenr(i,5)=1:return
 21011 r(i,5)=3:return
 22000 rd=(4/(1+((ep-tame)/100)))*((41-v1)/(v2+7)):ifrd<1thenrd=1
 22010 ifrd>4thenrd=4
 22020 return
 30000 input"do you wish to accept this order of     battle";a1$
 30010 ifa1$="y"thenreturn
 30020 tt=tt-1:iftt=0thenprint:print"this was your last choice!":a1$="y":gosub9999:return
 30025 a2$="second"
 30030 iftt=2thena2$="first"
 30040 print"this was your "a2$" choice":print"you have "tt" left":gosub9999:return
 30130 print"enter difficulty level (1,2, or 3)":fori=1to3:printi".  "sl$(i):nexti
 30131 print:input"which level ";dd
 31000 print
 31010 print"{rvon}situation...."st$(sc)"{rvof}":print
 31030 print"enter difficulty level (1,2,3 or 4)":fori=1to4:printi"- "sl$(i):nexti
 31035 print:input"which ";dd
 31040 ifdd<1ordd>4thenprint"{rvon}choose 1,2,3 or 4{rvof}":goto31030
 31060 return
 32000 ifdd>2thenreturn
 32010 ifdd=1thenu6=9
 32015 ifdd<>1thenu6=6
 32020 fori=1tou6
 32030 u1=fnrn(10)
 32040 ifrr(u1,2)>0thenrr(u1,2)=rr(u1,2)-1:goto32050
 32045 goto32030
 32050 nexti:return
 32310 u2=0:u3=0:ifty=0thenreturn
 32311 ifty<0orty>8thenprint"improper input":gosub9999:goto12010
 32312 ifty<3orty>7thenu3=1
 32313 ifty>3andty<7thenu3=-1
 32314 ifty>1andty<5thenu2=1
 32315 ifty>5andty<=8thenu2=-1
 32316 return
 34000 ifabs(u2)>1thenu2=0
 34010 ifabs(u3)>1thenu3=0
 34020 return
 37000 fori=i1to11:forj=1to3:pr(i,j)=pr(i+1,j):nextj:nexti:i1=i1-1:return
 38000 print:print"locn invalid routine":stop
 40000 fori=1to6:u1=vp(i,3)
 40010 ifu1=11thenob(1)=i
 40020 ifu1=9thenob(2)=i
 40030 ifu1=8thenob(3)=i
 40040 ifu1=4thenob(4)=i
 40050 ifu1=1thenob(5)=i
 40060 ifu1=0thenob(6)=i
 40070 nexti
 40080 fori=1tonr:z1=rnd(8)
 40090 ifz1<.35thenr(i,7)=ob(1):goto40100
 40092 ifz1<.6thenr(i,7)=ob(2):goto40100
 40094 ifz1<.8thenr(i,7)=ob(3):goto40100
 40096 ifz1<.9thenr(i,7)=ob(4):goto40100
 40097 r(i,7)=ob(5)
 40100 r(i,1)=vp(r(i,7),1)+fnrn(4)-fnrn(4)
 40110 ifr(i,1)<0thenr(i,1)=fnrn(2)-1
 40120 ifr(i,1)>11thenr(i,1)=9+fnrn(2)
 40130 nexti:return
 41000 print"{clr}":print:print"{rvon}objective status{rvof}":print:print"objective","status":print
 41010 fori=1to6:iz=0:forj=1tonr:ifr(j,1)=vp(i,1)andr(j,2)=vp(i,2)theniz=1
 41020 nextj:ifvp(i,4)=1thena2$="soviet held":goto41050
 41030 ifvp(i,4)=0andiz=0thena2$="german held":goto41050
 41040 a2$="german held/under attack"
 41050 printan$(i),a2$:nexti:goto12010
 42000 fori=1toig:ifg(i,3)>9andg(i,3)<12andg(i,6)<2andg(i,5)=2theni1=1:return
 42010 nexti:i1=fnrn(ig):return
    0 poke138,peek(143):poke59467,16:poke59466,15:poke59464,0
    1 gosub1000
   10 print"{clr}{rvon}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{rvof}";
   20 print"{rvon}{SHIFT--}                                      {SHIFT--}{rvof}";
   30 print"{rvon}{SHIFT--} U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I {SHIFT--}{rvof}";
   40 print"{rvon}{SHIFT--} {SHIFT--}                                  {SHIFT--} {SHIFT--}{rvof}";
   50 print"{rvon}{SHIFT--} {SHIFT--} U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I {SHIFT--} {SHIFT--}{rvof}";
   60 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--}                              {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
   70 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
   80 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}                          {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
   90 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  100 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}                      {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  110 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  120 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  130 print"{rvon}{SHIFT--} {$a0} {$a0} {$a0} {$a0} {SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--} {$a0} {$a0} {$a0} {$a0} {SHIFT--}{rvof}";
  140 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  150 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  160 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}                      {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  170 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  180 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}                          {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  190 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  200 print"{rvon}{SHIFT--} {SHIFT--} {SHIFT--}                              {SHIFT--} {SHIFT--} {SHIFT--}{rvof}";
  210 print"{rvon}{SHIFT--} {SHIFT--} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {SHIFT--} {SHIFT--}{rvof}";
  220 print"{rvon}{SHIFT--} {SHIFT--}                                  {SHIFT--} {SHIFT--}{rvof}";
  230 print"{rvon}{SHIFT--} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {SHIFT--}{rvof}";
  240 print"{rvon}{SHIFT--}                                      {SHIFT--}{rvof}";
  250 print"{rvon}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{home}";
  260 poke33767,203
  265 poke59490,30
  270 r=32810:r2=r:r3=160
  280 y=r+39:y2=y:y1=160:y3=160
  285 ti$="000000"
  290 d=int(rnd(1)*1000)+32768
  300 ifpeek(d)=160andrnd(1)>.8thenpoked,218
  305 poke59464,0
  310 ifl=1and(peek(r+1)=160orpeek(r+1)=218)thenr=r+1:goto380
  320 ifl=2and(peek(r+40)=160orpeek(r+40)=218)thenr=r+40:goto380
  330 ifl=3and(peek(r-1)=160orpeek(r-1)=218)thenr=r-1:goto380
  340 ifl=4and(peek(r-40)=160orpeek(r-40)=218)thenr=r-40:goto380
  350 l=l+1
  360 ifl=5thenl=1
  370 goto290
  380 ifpeek(r+1)=224andpeek(r-1)=224then460
  390 ifpeek(r+40)=224andpeek(r-40)=224then480
  400 ifpeek(r+1)=224thenr=r+2:goto290
  410 ifpeek(r-1)=224thenr=r-2:goto290
  420 ifpeek(r+40)=224thenr=r+80:goto290
  430 ifpeek(r-40)=224thenr=r-80:goto290
  440 r1=peek(r):poker,209:poker2,r3:r2=r:r3=r1:poke59464,peek(143)
  442 poke59464,255-peek(143)
  445 ifr=yorr+40=yorr-40=yorr+1=yorr-1=ythen880
  448 poke59464,0
  450 goto500
  460 x=(int(rnd(1)*2)+1)*2:ifx=4thenx=-2
  470 r=r+x:goto440
  480 x=(int(rnd(1)*2)+1)*80:ifx=160thenx=-80
  490 r=r+x:goto440
  500 ifn=1and(peek(y+40)=160orpeek(y+40)=218)theny=y+40:goto570
  510 ifn=2and(peek(y+1)=160orpeek(y+1)=218)theny=y+1:goto570
  520 ifn=3and(peek(y-40)=160orpeek(y-40)=218)theny=y-40:goto570
  530 ifn=4and(peek(y-1)=160orpeek(y-1)=218)theny=y-1:goto570
  540 n=n+1
  550 ifn=5thenn=1
  560 goto500
  570 ifpeek(152)andpeek(y+(y-y2))=160theny=y+(y-y2)
  575 y1=peek(y):pokey,215:pokey2,y3:y2=y:y3=y1
  580 ifr=yorr+40=yorr-40=yorr+1=yorr-1=ythen880
  590 ifs<>0thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}";s;"{rvof}"
  600 ifpeek(y+40)=224andpeek(y-40)=224then640
  610 ifpeek(y+1)=224andpeek(y-1)=224then700
  615 ifpeek(y+40)=224then760
  616 ifpeek(y-40)=224then790
  617 ifpeek(y+1)=224then820
  618 ifpeek(y-1)=224then850
  620 ify1=218thens=s+50:poke59464,200:y3=160:ifrnd(1)>.95thens=s+int(rnd(ti)*1000)
  630 goto290
  640 geta$:w=val(a$):ifw=0then620
  650 ifn=2andw=4theny=y-80:goto620
  660 ifn=2andw=6theny=y+80:goto620
  670 ifn=4andw=4theny=y+80:goto620
  680 ifn=4andw=6theny=y-80:goto620
  690 stop
  700 geta$:w=val(a$):ifw=0then620
  710 ifn=1andw=4theny=y+2:goto620
  720 ifn=1andw=6theny=y-2:goto620
  730 ifn=3andw=4theny=y-2:goto620
  740 ifn=3andw=6theny=y+2:goto620
  750 stop
  760 geta$:w=val(a$):ifw=0then620
  770 ify=32828andw=4theny=y+80
  775 ify=33388andw=6theny=y+80
  780 goto620
  790 geta$:w=val(a$):ifw=0then620
  800 ify=33148andw=6theny=y-80
  805 ify=33708andw=4theny=y-80
  810 goto620
  820 geta$:w=val(a$):ifw=0then620
  830 ify=33249andw=4theny=y+2
  835 ify=33278andw=6theny=y+2
  840 goto620
  850 geta$:w=val(a$):ifw=0then620
  860 ify=33257andw=6theny=y-2
  865 ify=33286andw=4theny=y-2
  870 goto620
  880 t=val(ti$)
  881 poke59464,0
  885 print"{clr}";
  900 poke59459,255:poke59459,0
  915 print"{home}{rvon}                                        ";
  920 print"{home}{rvon}score ="s"{left}            time="t
  930 ifs>10000thenprint"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}        you win a replay                ":goto950
  940 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}do you want to play again ( {CBM-C}y{CBM-V} or {CBM-C}n{CBM-V} )"
  945 poke158,0
  950 geta$:ifa$=""then950
  955 ifs>10000thena$="y"
  960 ifa$="y"thenrun
  965 poke59464,0:poke59466,254:poke59467,0
  970 end
  975 poke59468,12
 1000 poke59468,14
 1010 print"{clr}               Dodgems"
 1020 print"               {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 1030 print"{down}{down}{rght}The object of the game is to go round "
 1040 print"the track,avoiding the robot driver in"
 1050 print"his car.
 1060 print"{down}{rght}To change lanes press:-"
 1070 print"          4-To move in"
 1080 print"          6-To move out"
 1090 print"{down}{rght}To accelerate press either of the shift";
 1100 print"keys."
 1110 print"{down}{rght}When you pick up a diamond you gain 50"
 1120 print"points.Occasionally the computer will "
 1130 print"give you a mystery score."
 2970 print"{down}{down}{down}{down}{down}       {rvon}Press any key to start{rvof}"
 2980 poke158,0
 2990 geta$:ifa$=""then2990
 3000 poke59468,12:return
    0 rem keys []  &  <>
   10 a(1)=60:a(2)=1:a(3)=62:a(4)=22
   20 b(1)=-1:b(2)=-40:b(3)=1:b(4)=40
   30 c(1)=66:c(2)=67:c(3)=93:c(4)=64
   40 q=1
   45 print"opponent: robot, human";:inputk$
   46 k$=left$(k$,1)
   47 if k$<>"r" then 70
   50 print"{clr}skill of opponent?"
   52 print:print"1 - expert"
   54 print:print"2 - good"
   56 print:print"3 - average"
   58 print:print"4 - poor"
   60 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:input s
   63 if s<1 or s>4 then 50
   66 s=1.09-s/10
   70 print"{clr}speed?"
   72 print:print"1 - fast"
   74 print:print"2 - medium"
   76 print:print"3 - slow"
   78 print"{home}{rght}{rght}{rght}{rght}{rght}";:input s5
   80 s5=s5*100-100
  100 print"{clr}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  110 for x=1to22:print"{left}{CBM-+}{CBM-+}{down}{left}";:nextx
  120 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{home}";
  130 poke 33727,102:poke 33767,102
  135 print"{rght}{rght}{rght}{rght}"s(1)"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"s(2)
  137 poke 32772,102:poke 32798,102
  140 print"{home}"
  150 p1=33255:p2=33280:d1=3:e1=3:d2=1:e2=1
  160 poke p1,a(d1):poke p2,a(d2)
  200 getc$
  205 for x=1tos5:nextx
  210 if c$="<"then e2=d2-1
  215 if c$=">"then e2=d2+1
  220 e2=e2+(e2>4)*4-(e2<1)*4
  230 q2=p2+b(e2)
  240 if peek(q2)<>32 then pokep2,a(e2):v=2:goto 2000
  300 if k$="r" then 500
  310 if c$="[" then e1=d1-1
  320 if c$="]" then e1=d1+1
  330 e1=e1+(e1>4)*4-(e1<1)*4
  340 if peek(p1+b(e1))<>32 then pokep1,a(e1):v=1:goto 2000
  350 goto 600
  500 rem robot player
  510 ifpeek(p1+b(d1))=32andrnd(1)<sthen600
  520 if rnd(1)<.5 then q=-q
  530 e1=d1+q:e1=e1+(e1>4)*4-(e1<1)*4
  540 if peek(p1+b(e1))=32 then 600
  550 e1=d1-q:e1=e1+(e1>4)*4-(e1<1)*4
  560 if peek(p1+b(e1))=32 then 600
  570 if peek(p1+b(d1))=32thene1=d1:goto600
  580 v=1:poke p1,a(d1):goto 2000
  600 poke p1,c(d1)
  610 d1=e1:p1=p1+b(d1)
  620 poke p1,a(d1)
  650 poke p2,c(d2)
  660 p2=q2:d2=e2
  670 poke p2,a(d2)
  680 goto 200
 2000 rem dominos fall
 2010 s(3-v)=s(3-v)+1
 2017 fori=1to8:getc$:nexti
 2020 if v=2 then d=d2:p=p2
 2025 if v=1 then d=d1:p=p1
 2030 p=p-b(d)
 2035 rem
 2040 if peek(p)=66 then d=1
 2042 if peek(p)=67 then d=40
 2045 if peek(p)=93 then d=-1
 2047 if peek(p)=64 then d=-40
 2060 poke p,77
 2070 if p=33254orp=33280 then 100
 2075 p=p+d
 2080 goto 2040
 3000 print"{home}"s(1)"                            "s(2)
   20 dima(3,6)
   25 print:print"hi there.  what's your name";:inputn$
   51 print:print"ok, "n$". do you want the rules";:inputz$
   52 ifleft$(z$,1)="y"thengosub2000
  100 forj=1to3:fork=1to6
  110 a(j,k)=0
  120 nextk
  130 nextj
  140 a(1,1)=3:a(1,2)=2:a(1,3)=1
  190 t=0
  195 gosub600
  200 print:print"which donut would you like to move";:inputx:t=t+1
  215 forj=1to3:fork=1to6
  220 ifa(j,k)=xthen270
  230 nextk
  240 nextj
  260 print:print"there are three donuts: #1, #2, & #3,"
  261 goto200
  270 k=k+1:ifa(j,k)=0then291
  280 print:print"sorry,but you can't move that one."
  281 print:print"there's another donut on top of it."
  290 goto200
  291 k=k-1:a(j,k)=0
  300 print:print"put it on which stick";:inputj
  304 ifj>4then306
  305 ifj>0then310
  306 print:print"there is no stick"j"."
  308 goto300
  310 k=6
  320 ifa(j,k)=0then330
  325 goto 360
  330 k=k-1:ifk=0then379
  340 goto320
  360 ifx<a(j,k)then379
  370 print:print"you can't put a large donut on top of a smaller one."
  371 goto300
  379 k=k+1:a(j,k)=x
  390 gosub600
  400 j=2:gosub430
  410 j=3:gosub430
  420 goto200
  430 k=1:ifa(j,k)<>3thenreturn
  440 k=2:ifa(j,k)<>2thenreturn
  450 k=3:ifa(j,k)<>1thenreturn
  460 print:print"you won!  it took you"t"moves."
  470 if t=7thenprint:print"that's the best score possible !!":goto500
  480 ift<9thenprint:print"that's not too bad...":goto500
  490 print:print"see if you can do better."
  500 print:print"want to play again";:inputz$
  510 ifleft$(z$,1)="y"then clr:goto 100
  520 print:print"ok, "n$" thanks for playing.":goto5000
  600 print:print"     1        2        3
  601 k=5
  620 j=1:gosub1000
  625 j=2:gosub 1000
  630 j=3:gosub1000
  635 print
  640 k=k-1:ifk=0thenreturn
  650 goto620
 1000 ifa(j,k)<>0then1010
 1005 print"     :   ";:return
 1010 ifa(j,k)<>1then1020
 1015 print"    111  ";:return
 1020 ifa(j,k)<>2then1030
 1025 print"   22222 ";:return
 1030 print"  3333333";:return
 2000 print:print"{clr}there are three donuts on a stick."
 2010 print:print"donut 1 is small--------111.
 2020 print:print"donut 2 is middle size-22222.
 2030 print:print"donut 3 is big--------3333333.
 2040 print:print"you have to move all three donuts"
 2050 print:print"from one stick to another."
 2060 print:print"don't put a large donut on top of"
 2070 print:print"a smaller one.  good luck!!"
 2080 return
 5000 end
    5 poke59468,12
   10 dimd$(60):poke537,136
   15 print"{clr}":print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}door jan v. gorp":fora=1to800:next
   20 poke59468,14
   25 printtab(10)"{clr}{down}doolhof{down}{left}{left}{left}{left}{left}{left}{left}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{down}"
   30 print"jE{$a0}WORDT{$a0}ERGENS{$a0}IN{$a0}EEN{$a0}DOOLHOF{$a0}GEPLAATST"
   40 print"eN{$a0}JE{$a0}MOET{$a0}HIER{$a0}ZIEN{$a0}UIT{$a0}TE{$a0}KOMEN{down}"
   50 print"jE{$a0}KUN JEZELF{$a0}BESTUREN{$a0}MET{$a0}DE{$a0}TOETSEN :"
   60 print"{down}{down}{rght}{rght}9{rght}={rght}stoppen{up}{up}{rght}{rght}{rght}{rght}{rght}8{left}{left}{left}{down}{down}4{rght}+{rght}6{down}{down}{left}{left}{left}2{rght}{rght}{rght}{rght}{rght}{rght}{up}{up}= sturen{down}{down}{down}"
   70 print"jE{$a0}EINDPUNT{$a0}IS{$a0}EEN{$a0}WITTE{$a0}BALK  {CBM-K}{down}{left}{CBM-K}{down}{left}{CBM-K}{down}{left}{CBM-K}{down}{left}{CBM-K}{down}{left}{CBM-K}"
   80 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}dRUK{$a0}OP spatie":wait59410,4,4
   90 print"{clr}{down}{down}{down}{down}jE{$a0}KUNT{$a0}VAN{$a0}EEN{$a0}DEEL{$a0}VAN{$a0}HET{$a0}DOOLHOF,"
  100 print"{down}NAAR{$a0}DE{$a0}oORSPRONG{$a0}SPRINGEN{$a0}DOOR{$a0}OP:"
  110 print"     EEN{$a0}WIT{$a0}CIRKELTJE TE{$a0}GAAN{$a0}STAAN !!"
  120 print"{down}{down}wEL{$a0}ZIE{$a0}JE{$a0}STEEDS{$a0}MAAR{$a0}EEN{$a0}KLEIN"
  130 print"{down}GEDEELTE{$a0}VAN{$a0}HET{$a0}GEHELE{$a0}DOOLHOF"
  140 printtab(10)"{down}{down}{down}{down}{down}succes ! !"
  150 printtab(10)"{down}dRUK{$a0}OP{$a0}space"
  160 wait59410,4,4:print"{clr}"
  170 poke59468,12
  390 print"{clr}":gosub5000:v$="{up}{left}{CBM-A}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{SHIFT--}Q{SHIFT--}{down}{left}{left}{left}{CBM-Z}{SHIFT-*}{CBM-X}{up}"
  395 b=17:c=25:rem **oorsprong **
  400 print"{home}{down}"tab(22)"doolhof"
  410 printtab(22)"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{down}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{CBM-T}"
  450 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
  460 print"{rght}{rght}{rght}{CBM-N}{rght}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{rght}{CBM-H}"
  500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}";
  505 fora=1to11
  510 print"{rght}{rght}{rght}{CBM-N}{CBM-L}"mid$(d$(b+a),c,11)"{CBM-J}{CBM-H}"
  520 next
  525 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"v$
  540 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{CBM-N}{rght}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{rght}{CBM-H}"
  545 print"{rght}{rght}{rght}{rght}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  550 te=int(ts/1.5):print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(22)"tijd{rght}{rght}{rght}{rght}{rght}{rght}:"te
  560 printtab(22)"{down}stappen   :"at
  570 printtab(22)"{down}plaats  ^ :{rvon}    {left}{left}{left}{left}"b-17
  580 printtab(30)"_ :{rvon}    {left}{left}{left}{left}"c-25
 1000 geta$:ts=ts+1:ifa$=""then400
 1005 a=val(a$):at=at+1:poke525,0
 1010 onagosub1000,1100,1000,1200,1000,1300,1000,1400,3000
 1020 goto500
 1050 goto1000
 1100 ifmid$(d$(b+7),c+5,1)="{CBM-+}"then1500
 1110 ifmid$(d$(b+7),c+5,1)="{CBM-K}"then2000
 1115 ifmid$(d$(b+7),c+5,1)="Q"then390
 1120 b=b+1:v$="S"
 1130 return
 1200 ifmid$(d$(b+6),c+4,1)="{CBM-+}"then1500
 1210 ifmid$(d$(b+6),c+4,1)="{CBM-K}"then2000
 1215 ifmid$(d$(b+6),c+4,1)="Q"then390
 1220 c=c-1:v$="<"
 1230 return
 1300 ifmid$(d$(b+6),c+6,1)="{CBM-+}"then1500
 1310 ifmid$(d$(b+6),c+6,1)="{CBM-K}"then2000
 1315 ifmid$(d$(b+6),c+6,1)="Q"then390
 1320 c=c+1:v$=">"
 1330 return
 1400 ifmid$(d$(b+5),c+5,1)="{CBM-+}"then1500
 1410 ifmid$(d$(b+5),c+5,1)="{CBM-K}"then2000
 1415 ifmid$(d$(b+5),c+5,1)="Q"then390
 1420 b=b-1:v$="A"
 1430 return
 1500 forx=1to6:print"{home}"tab(22)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}dit gaat niet !{up}"
 1505 fora=1to50:next
 1510 printtab(22)"                "
 1515 nextx
 1520 goto1000
 2000 rem  ** eindpunt **
 2010 printtab(22)"{down}{down}{rvon}eindpunt{down}{left}{left}{left}{left}{left}{left}{left}{left}        {down}"
 2015 printtab(22)"wil je nog een"
 2016 printtab(22)"doolhof  ? ?{up}{up}"
 2020 geta$:ifa$=""then2015
 2025 ifa$="n"thenprint"{clr}{down}{down}{down}{down}{rght}{rght}{rght}bedankt voor het spelen ! ! !":poke537,133:stop
 2030 ifa$="y"ora$="j"then6000
 2040 goto2020
 3000 print"{clr}{down}{down}{down}wil je niet meer spelen ?"
 3010 geta$:ifa$=""then3000
 3020 ifa$="j"ora$="y"thenprint"{clr}":goto400
 3030 print"{down}{down}{down}dat is jammer !":fora=1to3500:next:ts=0:at=0:goto390
 4000 rem                            *
 4001 rem                            *
 4002 rem       doolhof i            *
 4003 rem                            *
 4004 rem                            *
 5000 d$(0)="{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}     {$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}    {CBM-+}  "
 5010 d$(1)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5020 d$(2)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5030 d$(3)="{CBM-+}{$a0}  {$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}     {CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}    {CBM-+}"
 5040 d$(4)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5050 d$(5)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5060 d$(6)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5070 d$(7)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}Q{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0} {$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5080 d$(8)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5090 d$(9)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5100 d$(10)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5110 d$(11)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5120 d$(12)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5130 d$(13)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5140 d$(14)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5150 d$(15)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5160 d$(16)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5170 d$(17)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5180 d$(18)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   "
 5190 d$(19)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     "
 5200 d$(20)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}       "
 5210 d$(21)="   {CBM-+}{CBM-+}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0} {$a0}  {$a0}"
 5220 d$(22)="{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}  {$a0}"
 5230 d$(23)="{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}V{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}  {$a0}"
 5240 d$(24)="     {CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}Q{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}  {$a0}"
 5250 d$(25)="{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}  "
 5260 d$(26)="     {CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}  {$a0}"
 5270 d$(27)="     {CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}  {$a0}"
 5280 d$(28)="{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}"
 5290 d$(29)="{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5300 d$(30)="{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-K}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-K}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5310 d$(31)="{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-K}{CBM-+}{$a0} {$a0}{$a0} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-K}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5320 d$(32)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-K}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5330 d$(33)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5340 d$(34)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0} {$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5350 d$(35)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}Q{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5360 d$(36)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+} {CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}  {CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5370 d$(37)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+} {CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}       {$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}         {CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5380 d$(38)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+} {$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5390 d$(39)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+} {CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5400 d$(40)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5410 d$(41)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5420 d$(42)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5430 d$(43)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5440 d$(44)="                                                              "
 5450 d$(45)="{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}"
 5460 d$(46)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5470 d$(47)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 5500 rem
 5501 rem
 5502 rem
 5503 rem
 5999 return
 6000 rem  ** doolhof ii **
 6005 ts=0:at=0
 6010 print"{down}{down}{down}een nieuw doolhof ? ?  (yNn)"
 6020 geta$:ifa$=""then6020
 6030 ifa$="y"then6050
 6040 goto390
 6050 print"{down}{down}{rvon}  wordt opgenomen  "
 6060 print"{down}{down}drive # ?
 6070 geta$:ifa$=""then6070
 6080 ifa$="1"then:$x,1,"doolhof 2"
 6090 ifa$="2"then:$x,2,"doolhof 2"
 6100 goto6060
    0 clr:poke59468,12
    1 rem dots copyright (c) 1978 glen fisher
    2 rem cursor #3, september, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 6 may 80
   90 pg$="dots":nm$="3":gosub62000
  100 crt=32768
  110 t=rnd(-ti)
  120 tba=0:hz=1:vt=2:hu=1:co=2
  130 rs=6:cs=6:sq=rs*cs
  140 rf=11-rs:cf=19-cs
  200 r=rs+2:c=cs+2:dimlc(r,c),vh(r,c),rt(4,4)
  210 t=rnd(-ti)
  220 fori=0to3:forj=0to3:readrt(i,j):nextj:nexti
  230 data3,4,2,6,4,5,1,7,2,1,0,8,6,7,8,9
  240 dimsv(1):sv(0)=0:sv(1)=1
  250 q$="{CBM-T}{CBM-T}{CBM-T}EDC{SHIFT-*}FR{CBM-@}{CBM-@}{CBM-@}RF{SHIFT-*}CDE":q$=q$+q$:q$=q$+q$
  260 fori=1to9:readrm(i),cm(i):nexti
  270 data1,-1,2,0,1,1,0,-2,0,0,0,2,-1,-1,-2,0,-1,1
  900 gosub7000
  910 pl=hu:sv(0)=0:sv(1)=1
  990 ifpl=huthengosub1500:goto1010
 1000 gosub5000:ifdir=tbathen2000
 1010 gosub5500:gosub5600
 1020 gosub5800:ifn=0thenpl=3-pl
 1030 ifsq>0then990
 1040 ifhq>cqthen1070
 1050 ifhq=cqthen1080
 1060 print"{home}i won, with";cq;"squares to your";hq;:goto1100
 1070 print"{home}you won, with";hq;"squares to my";cq;:goto1100
 1080 print"{home}we tied, with";hq;"squares each ";
 1100 print"{left}."
 1105 print"                                      {up}"
 1110 input"want to play again? y{left}{left}{left}";t$
 1120 ifleft$(t$,1)="y"then1200
 1130 ifleft$(t$,1)<>"n"thenprint"{up}";:goto1105
 1140 end
 1200 fori=0tors+2:forj=0tocs+2:lc(i,j)=0:vh(i,j)=0:nextj:nexti
 1210 sq=rs*cs:cq=0:hq=0
 1290 goto900
 1500 r=sv(0):c=sv(1)
 1510 gosub9000
 1520 pk$=chr$(peek(crt+40*(r+rf)+(c+cf))+128)
 1530 gett$:ift$<>""then1600
 1540 printmid$("GD",1+(cand1),1);"{left}";
 1550 printpk$;"{left}";
 1560 goto1530
 1600 ift$<"1"ort$>"9"then1700
 1610 t=val(t$):r=r+rm(t):c=c+cm(t)
 1620 ifr<0orr>2*rsorc<0orc>2*csthenr=r-rm(t):c=c-cm(t)
 1700 ift$<>chr$(13)then1800
 1710 row=int(r/2)+1:col=int(c/2)+1
 1720 v=(rand1):h=1-v:dir=hz:ifvthendir=vt
 1730 ifvh(row,col)and(vt*v+hz*h)then1530
 1740 sv(0)=r:sv(1)=c
 1750 return
 1800 ift$<>" "then1510
 1810 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 1820 end
 5000 mx=-1:dir=tba:row=col=-1
 5005 r=2*rs+1:c=0
 5010 fori=1tors
 5020 forj=1tocs+1
 5025 gosub5200
 5030 ifvh(i,j)andvtthen5070
 5040 f=rt(lc(i,j-1),lc(i,j))
 5050 iff<mxor(f=mxandrnd(1)>.5)then5070
 5060 dir=vt:mx=f:row=i:col=j
 5070 nextj
 5080 nexti
 5110 fori=1tors+1
 5120 forj=1tocs
 5125 gosub5200
 5130 ifvh(i,j)andhzthen5170
 5140 f=rt(lc(i-1,j),lc(i,j))
 5150 iff<mxor(f=mxandrnd(1)>.5)then5170
 5160 dir=hz:mx=f:row=i:col=j
 5170 nextj
 5180 nexti
 5185 gosub9000:print"                                       ";
 5190 return
 5200 gosub9000:printleft$(q$,2*cs+1);
 5210 q$=mid$(q$,2,255)+left$(q$,1)
 5220 return
 5390 :
 5400 tj=ti+dl
 5410 ifti<tjthen5410
 5420 return
 5490 :
 5500 lc(row,col)=lc(row,col)+1
 5510 ifdir<>hzthen5540
 5520 lc(row-1,col)=lc(row-1,col)+1
 5530 vh(row,col)=vh(row,col)orhz:return
 5540 lc(row,col-1)=lc(row,col-1)+1
 5550 vh(row,col)=vh(row,col)orvt:return
 5590 :
 5600 r=(row-1)*2:c=(col-1)*2
 5605 if(rand1)or(cand1)thenstop
 5610 gosub9000
 5620 t$="{down}{SHIFT--}":ifdir=hzthent$="{rght}{SHIFT-*}"
 5630 printt$;:ifpl=huthenreturn
 5640 dl=5:forqq=0to6
 5650 gosub5400:print"{left} ";
 5660 gosub5400:print"{left}";right$(t$,1);
 5670 nextqq:return
 5690 :
 5700 r=r*2-1:c=c*2-1:gosub9000
 5710 sq=sq-1
 5720 ifpl=huthenprint"W";:hq=hq+1:return
 5730 print"Q";:cq=cq+1:return
 5790 :
 5800 n=0
 5810 r=row:c=col:gosub5900
 5820 r=row-1:c=col:gosub5900
 5830 r=row:c=col-1:gosub5900
 5840 return
 5890 :
 5900 iflc(r,c)<>4orvh(r,c)and12thenreturn
 5910 vh(r,c)=vh(r,c)or12*pl:n=n+1
 5920 gosub5700:return
 5990 :
 6000 print"{clr}";
 6010 fori=1tocs:print"{CBM-R} ";:nexti:print"{CBM-S}"
 6020 print"{up}{CBM-A}{down}"
 6030 forj=2tors
 6040 fori=1tocs:print"{SHIFT-+} ";:nexti:print"{CBM-W}"
 6050 print"{up}{CBM-Q}{down}"
 6060 nextj
 6070 fori=1tocs:print"{CBM-E} ";:nexti:print"{CBM-X}"
 6080 print"{up}{CBM-Z}{home}";
 6090 return
 6900 end
 7000 print"{clr}":l$="{CBM-A} ":r$="{CBM-S} ":m$="{CBM-R} "
 7010 fori=2tors:l$=l$+"{CBM-Q} ":r$=r$+"{CBM-W} ":m$=m$+"{SHIFT-+} ":nexti
 7020 l$=l$+"{CBM-Z} ":m$=m$+"{CBM-E} ":r$=r$+"{CBM-X} "
 7030 forr=0to2*rsstep2
 7040 c=0:gosub9000:printmid$(l$,r+1,2);
 7050 forc=2to2*cs-2step2:printmid$(m$,r+1,2);:nextc
 7060 printmid$(r$,r+1,1)
 7070 nextr
 7080 return
 8990 :
 9000 print"{home}";:r=r+rf:c=c+cf
 9010 ifrthenprintleft$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",r);
 9020 ifcthenprintleft$("{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}",c);
 9030 r=r-rf:c=c-cf
 9040 return
 50000 print"{down}press {rvon}return{rvof} to continue: "
 50010 getz$:ifz$=""then50010
 50020 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #3  dots"
 62005 print"{down}copyright (c) 1978  by glen fisher
 62006 gosub60500
 62010 print"{down}plays the ancient game of 'dots'."
 62020 print"{down}{down}want directions? ";:gosub60000
 62040 ifleft$(in$,1)<>"y"then100
 62100 lp=2:gosub60200
 62110 print"play dots against the pet - you each
 62120 print"try to capture squares by completing
 62130 print"the fourth side.  naturally, you
 62140 print"try to avoid creating three-sided
 62150 print"squares, which the pet will capture.
 62160 print"{down}move the cursor (using the number
 62170 print"keys). when the cursor is where you
 62180 print"want to put it press {rvon}return{rvof}.  the pet
 62190 print"will then decide what move it should
 62210 print"make. during this time, it will dis-
 62220 print"play a wavey line so you'll know it
 62230 print"hasen't forgotten you!
 62260 gosub60200
 62270 print"the cursor is controlled by these
 62280 print"number codes:{down}
 62290 print" 4 - move left
 62300 print" 6 - move right
 62310 print
 62320 print" 8 - up
 62330 print" 2 - down
 62340 print
 62350 print" 3 - left to right diagonal, (down)
 62360 print" 9 - left to right diagonal, (up)
 62370 print" 1 - right to left diagonal, (down)
 62380 print" 7 - right to left diagonal, (up)
 62390 print"{down}press {rvon}return{rvof} to enter your move.
 62400 print"{down}to stop the game, press {rvon}space{rvof} instead
 62410 print"of entering your move.
 62430 gosub60200
   10 dima%(8,4),b%(8,4)
   20 forj=1to8
   30 fork=1to4
   40 reada%(j,k),b%(j,k)
   50 nextk:nextj
   60 data0,2,1,1,0,4,1,3
   70 data-40,4,-39,3,0,2,1,1
   80 data-40,3,-40,4,0,1,0,2
   90 data-41,4,-40,3,-1,2,0,1
  100 data-1,2,0,1,-1,4,0,3
  110 data-1,4,0,3,39,2,40,1
  120 data0,3,0,4,40,1,40,2
  130 data0,4,1,3,40,2,41,1
  140 dimpk(4)
  145 gosub3500
  150 forj=1to4:readpk(j):next
  160 data126,124,123,108
  180 print"{clr}"
  185 ifval(u2$)>3thenu2$="0"
  190 onval(u2$)+1gosub900,4000,4200,4400
  200 j=32898:d=1:z=1:p=20
  210 w=ti
  220 geta$:ifa$<>""thengosub500
  230 ifti-w<pthen220
  240 pokej,32                      
  250 j=j+a%(d,z)
  255 ifj>33767thenj=j-1000
  257 ifj<32768thenj=j+1000
  258 ifpeek(j)<>32thengoto2000
  260 z=b%(d,z)
  270 pokej,pk(z)
  280 goto210
  500 ifa$="<"thend=d+1:ifd=9thend=1
  510 ifa$=">"thend=d-1:ifd=0thend=8
  520 ifval(a$)<>0thenp=7/val(a$)
  530 return
  900 gosub3000
  910 aa=32:j=32768
  920 print"{clr}"
 1000 geta$
 1005 ifa$=""thenpokej,aa+128:pokej,aa:goto1000
 1010 ifa$="*"thenaa=42
 1020 ifa$=" "thenaa=32
 1030 ifa$="1"thenj=j+39
 1040 ifa$="2"thenj=j+40
 1050 ifa$="3"thenj=j+41
 1060 ifa$="4"thenj=j-1
 1070 ifa$="6"thenj=j+1
 1080 ifa$="7"thenj=j-41
 1090 ifa$="8"thenj=j-40
 1100 ifa$="9"thenj=j-39
 1110 pokej,aa
 1115 ifa$="r"thenreturn
 1120 goto1000
 2000 s=ti
 2010 n=peek(j-40):pokej-40,n+128
 2020 o=peek(j+40):pokej+40,o+128
 2030 o1=peek(j+1):pokej+1,o1+128
 2040 o2=peek(j-1):pokej-1,o2+128
 2050 pokej-40,n
 2060 pokej+40,o
 2070 pokej+1,o1
 2080 pokej-1,o2
 2090 ifti-s<140then2010
 2100 j=j-a%(d,z)
 2110 pokej,pk(z)
 2140 goto210
 3000 print"{clr}     dot racer instructions"
 3010 print
 3020 print"first enter race track"
 3030 print" use the number pad to control the"
 3040 print" direction of the cursur."
 3045 print" use the characters";
 3050 print" "chr$(34)" "chr$(34)" and "chr$(34);
 3060 print"*"chr$(34)" to enter the race track"
 3070 print
 3080 print"when the race track is entered touch ";
 3090 printchr$(34)"r"chr$(34)" to start the race"
 3130 print
 3140 print"press a key to start"
 3150 getu2$:ifu2$=""then3150
 3160 return
 3500 print"{clr}     dot racer instructions"
 3510 print
 3520 print"first enter race track option"
 3530 print" enter the numbers 1 thru 3 to "
 3540 print" choose a predefined race course "
 3545 print
 3550 print" enter any other character to enter"
 3560 print" your own race track."
 3570 print
 3572 print"once race track is entered to drive dot"
 3574 print" press "chr$(34)">"chr$(34)" to turn right"
 3576 print" press "chr$(34)"<"chr$(34)" to turn left"
 3577 print" for speed control press num 1 thru 9"
 3578 print
 3579 print"now enter race track option?"
 3580 getu2$:ifu2$=""then3580
 3590 return
 3900 rem  routines to make predefined
 3910 rem  race tracks
 4000 gosub8000
 4050 j=32768+40*5+5
 4060 x1=30:x2=1:gosub5000
 4070 x1=10:x2=40:gosub5000
 4080 x1=25:x2=-1:gosub5000
 4090 j=32768+40*10+29
 4100 x1=25:x2=-1:gosub5000
 4110 x1=10:x2=40:gosub5000
 4120 x1=30:x2=1:gosub5000
 4130 return
 4190 rem  secund race track routine
 4200 gosub8000
 4250 j=32768+40*5+5
 4260 x1=15:x2=40:gosub5000
 4270 x1=15:x2=-39:gosub5000
 4275 x1=15:x2=40:gosub5000
 4280 j=32768+40*5+25
 4290 x1=10:x2=1:gosub5000
 4300 j=32768+40*10+25
 4310 x1=10:x2=1:gosub5000
 4320 j=32768+40*15+25
 4330 x1=10:x2=1:gosub5000
 4340 j=32768+40*20+25
 4350 x1=10:x2=1:gosub5000
 4390 return
 4400 gosub8000
 4402 j=32768+40*16
 4404 x1=20:x2=2:gosub5000
 4406 j=32768+40*20+1
 4408 x1=20:x2=2:gosub5000
 4410 j=32768+40*4+4
 4412 x1=5:x2=1:gosub5000
 4414 x1=5:x2=40:gosub5000
 4416 x1=5:x2=1:gosub5000
 4418 j=32768+40*4+12
 4420 x1=5:x2=1:gosub5000
 4422 x1=5:x2=40:gosub5000
 4424 j=32768+40*4+20
 4426 x1=5:x2=1:gosub5000
 4428 x1=9:x2=40:gosub5000
 4430 x1=8:x2=1:gosub5000
 4432 x1=5:x2=-40:gosub5000
 4434 j=j-3
 4436 x1=5:x2=-40:gosub5000
 4438 x1=8:x2=1:gosub5000
 4440 x1=9:x2=40:gosub5000
 4442 j=32768+40*8+4
 4444 x1=5:x2=40:gosub5000
 4446 x1=17:x2=1:gosub5000
 4448 x1=5:x2=-40:gosub5000
 4498 return
 5000 j=j-x2:forl=1tox1
 5010 j=j+x2
 5020 pokej,x3
 5030 nextl
 5040 return
 8000 print"{clr}":x3=42:j=32768
 8010 x1=40:x2=1:gosub5000
 8020 x1=25:x2=40:gosub5000
 8030 x1=40:x2=-1:gosub5000
 8040 x1=25:x2=-40:gosub5000
 8050 return
    1 rem (c) 1978, isi, inc. (p)
   50 d=1:poke59468,14
   51 dimst$(3):st$(1)="{rvon}indstrls{rvof}":st$(2)="{rvon}trnsprtn{rvof}":st$(3)="{rvon}utils{rvof}
   60 dimbr$(2):br$(0)="active":br$(1)="bankrupt
  123 dimst%(12),sn$(12),op%(12),dv%(12),cp(12),cd(12),ts%(12),br%(12)
  124 dimnd%(12),td(12),hf%(12),ss%(12),ro%(12,6),af(12),in$(6),c(6),r(2)
 1000 gosub2000
 1030 gosub3000:gosub15000
 1040 ifd<=tlthen1030
 1050 print"{clr}last day results":gosub15000:fori=1to6:gosub7000:gosub15000:nexti
 1080 input"tIME{$a0}HAS{$a0}EXPIRED; sHALL{$a0}WE{$a0}QUIT";a$:ifa$="y"thenend
 1100 input"hOW{$a0}MANY{$a0}DAYS{$a0}EXTENSION";y:tl=tl+y:goto1040
 2000 in$(2)="mr.big":in$(3)="slick":in$(4)="mr.bucks":in$(5)="mr.pet
 2284 in$(6)="jose'":print"{clr}
 2300 input"hOW{$a0}MANY{$a0}PERSONS{$a0}WILL{$a0}ACT{$a0}AS{$a0}INVESTORS";a:ifa<1ora>6then2300
 2330 fori=1toa:print"nAME{$a0}OF{$a0}INVESTOR";i;:inputin$(i):nexti
 2360 input"hi{$a0}iNFLUENCE{$a0}oPT 'y or n'";a$:ifa$="y"thenh=1
 2400 x=val(right$(ti$,1)):forj=0tox:y=rnd(1):nextj:fori=1to6:c(i)=1000
 2420 onrnd(1)*3goto2460,2470
 2450 x=1:goto2480
 2460 x=5:goto2480
 2470 x=9
 2480 fors=xtox+3:ss%(s)=ss%(s)+10:ro%(s,i)=ro%(s,i)+10:nexts:nexti
 2530 fors=1to12:x=int((rnd(1)*21)+20):y=int((rnd(1)*15)+1)
 2600 op%(s)=x:cp(s)=x:dv%(s)=y:readst%(s),sn$(s):nexts
 2700 input"hOW{$a0}MANY{$a0}INVESTMENT{$a0}DAYS{$a0}DO{$a0}YOU{$a0}WANT";tl
 2900 data1,us steel,1,ibm,1,gen mtrs,1,std oil
 2908 data2,santa fe,2,amer air,2,untd air,2,greyhnd
 2922 data3,at&t,3,con ed,3,wstrn un,3,el paso
 2990 print"{clr}":gosub5000
 2998 return
 3000 fori=1to6:gosub8000:ifi=<athengosub7000
 3010 tc=0
 3035 ifi>athengosub11000
 3040 ifi<=athenprint"wHAT{$a0}IS{$a0}YOUR{$a0}TRANSACTION ";in$(i);:inputct$
 3045 gosub4000:iftc<2then3035
 3062 ifct$<>"p"thenforx=1to2000:nextx
 3065 gosub7000:gosub15000:print"{clr}":nexti
 3072 forj=1to3:x=(int(rnd(1)*13))-6:r(j-1)=x
 3078 fors=(j*4)-3toj*4:ifbr%(s)=1then3083
 3080 cd(s)=cd(s)+x+af(s):cp(s)=cp(s)+x+af(s):af(s)=af(s)*.7
 3081 ifabs(af(s))<.1thenaf(s)=0
 3082 ifcp(s)<=0thengosub8330
 3083 nexts:nextj:printtab(13);"closing":poke59411,53:poke59411,61:gosub5000
 3087 fors=1to12:cd(s)=0:nexts
 3999 d=d+1:return
 4000 ifct$="pq"thenprint"{clr}":gosub5000
 4020 ifct$="sr"thengosub6000
 4030 ifct$="ir"thengosub7000
 4035 ifct$="bp"thengosub10000
 4050 ifct$="pass"orct$="p"then4090
 4060 ifct$="buy"orct$="b"then4100
 4070 ifct$="sell"orct$="s"then4300
 4080 goto4998
 4090 tc=2:goto4998
 4100 gosub4800
 4170 ifx*cp(s)<=c(i)then4210
 4175 ifi>athen4998
 4180 print"yOU{$a0}DON'T{$a0}HAVE{$a0}ENOUGH{$a0}MONEY!! ";in$(i)
 4190 print"sTOCK{$a0}COST ";x*cp(s),"yOU{$a0}ONLY{$a0}HAVE ";c(i):goto4998
 4210 ss%(s)=ss%(s)+x:ro%(s,i)=ro%(s,i)+x:c(i)=c(i)-x*cp(s):tc=tc+1
 4241 printx;"sHARES{$a0}OF ";sn$(s);" bought AT $";cp(s),"BY ";in$(i)
 4247 y=1:gosub9000:goto4998
 4300 gosub4800:ifro%(s,i)>=xthen4400
 4380 ifi<=athenprint"yOU{$a0}ONLY{$a0}HAVE ";ro%(s,i);" SHARES!! ";in$(i)
 4390 goto4998
 4400 ss%(s)=ss%(s)-x:ro%(s,i)=ro%(s,i)-x:c(i)=c(i)+x*cp(s):tc=tc+1
 4435 ifx>0thenprintx;"sHARES{$a0}OF{$a0}";sn$(s);" sold{$a0}AT $";cp(s),"BY ";in$(i)
 4437 y=2:gosub9000:goto4998
 4800 ifi>athenreturn
 4802 print"yOU{$a0}CURRENTLY{$a0}HAVE $";c(i)
 4820 fors=1to12:print"price=$";cp(s),"select";"{rvon}";s;"{rvof}";sn$(s):nexts
 4835 print"wHAT{$a0}STOCK{$a0}WOULD{$a0}YOU{$a0}LIKE{$a0}TO ";ct$;"?"
 4840 inputs:ifs<1ors>12then4840
 4850 ifbr%(s)=1andct$<>"sr"then4840
 4860 ifct$<>"sr"theninput"hOW{$a0}MANY{$a0}SHARES";x
 4998 return
 5000 i1=i:gosub5080:printtab(9);"price quotations","day";d:print
 5020 forj=1to3:printst$(j);":","in pr$","cur pr$","chg$";r(j-1):r(j-1)=0
 5040 fori=(j*4)-3toj*4
 5050 print" ";sn$(i),op%(i),cp(i),cd(i):nexti:print:nextj:i=i1:goto5998
 5080 fors=1to12:cp(s)=(int(cp(s)*1000))/1000
 5082 w=(int(abs(cd(s)*1000)))/1000:ifcd(s)<0thenw=-w
 5086 cd(s)=w:w=(int(abs(af(s)*1000)))/1000:ifaf(s)<0thenw=-w
 5088 af(s)=w:nexts
 5998 return
 6000 gosub4800:print"{clr}"tab(9);"stock record","day";d
 6080 printsn$(s)
 6090 print"{down}sTK{$a0}tYPE",st$(st%(s))
 6100 print"sTATUS",br$(br%(s))
 6110 print"iNIT pRC";"$",op%(s)
 6120 print"cURR pRC";"$",cp(s)
 6130 print"50% bUYS",hf%(s)
 6140 print"sPLITS",ts%(s)
 6145 print"dIV%",dv%(s);"%"
 6150 print"dVDNDS",nd%(s)
 6160 print"tOT dVDS";"$",td(s)
 6162 print"tREND",
 6163 ifaf(s)>0thenprint"up
 6164 ifaf(s)<0thenprint"down
 6165 ifaf(s)=0thenprint"nc
 6166 print"sHRS{$a0}sLD",ss%(s)
 6180 print"nOTES:":ifhf%(s)>0thenprint"75% lESS CHANCE{$a0}OF{$a0}A 50% BUY"
 6190 ifts%(s)>0thenprint"75% lESS CHANCE{$a0}OF{$a0}A{$a0}STOCK{$a0}SPLIT"
 6200 ifnd%(s)>0thenprint"75% lESS{$a0}CHANCE{$a0}OF{$a0}A{$a0}DIVIDEND"
 6999 c(i)=c(i)-5:return
 7000 print"{clr}"tab(9);"investor record","day";d:print:gosub5080
 7020 print"investor number ";i:print"investor name   ";in$(i)
 7040 print"cash on hand    ";"$";c(i)
 7050 print"{down}stock","#shrs","price","val":print:x=0
 7060 fors=1to12:ifro%(s,i)<1then7998
 7080 printsn$(s),ro%(s,i),cp(s),ro%(s,i)*cp(s):x=x+(ro%(s,i)*cp(s))
 7998 nexts:print,,,x:print"net worth $";x+c(i):return
 8000 i1=i
 8010 s=(int(rnd(1)*12))+1:ifbr%(s)=1then8010
 8020 onrnd(1)*10goto8100,8200,8300,8400,8500,8600,8700,8800,8990
 8025 ifnd%(s)>0andrnd(1)<.75then8000
 8027 x=(dv%(s)/100)*cp(s):printsn$(s);" hAS DECLARED{$a0}A dividend OF";x
 8040 nd%(s)=nd%(s)+1:td(s)=td(s)+x
 8050 fori=1to6:c(i)=c(i)+ro%(s,i)*x:nexti:gosub12000:goto8990
 8100 ifhf%(s)>0andrnd(1)<.75then8000
 8110 print"opt to buy ";sn$(s);" at 50% below market EXTNDED{$a0}TO{$a0}CURRENT{$a0}HOLDERS
 8120 fori=1to6:ifro%(s,i)<1then8157
 8131 ifi>athenx=ro%(s,i):goto8140
 8135 ifi>athenx=x-1:goto8140
 8137 print"yOU{$a0}MAY{$a0}BUY{$a0}UP{$a0}TO";ro%(s,i);" SHARES ";in$(i)
 8138 print"yOU{$a0}CAN{$a0}AFFORD";int(c(i)/(cp(s)/2));";hOW{$a0}MANY{$a0}DO{$a0}YOU{$a0}WANT";:inputx
 8140 ifx>ro%(s,i)orc(i)<x*(cp(s)/2)then8135
 8150 c(i)=c(i)-x*(cp(s)/2):ss%(s)=ss%(s)+x:ro%(s,i)=ro%(s,i)+x
 8156 printx;"sHARES{$a0}OF ";sn$(s);" bought AT $";cp(s)/2,"by ";in$(i)
 8157 nexti:hf%(s)=hf%(s)+1:goto8990
 8161 hf%(s)=hf%(s)+1:goto8990
 8200 ifcp(s)<20then8010
 8210 print"stock split DECLARED{$a0}BY ";sn$(s):gosub12000
 8230 fori=1to6:ro%(s,i)=ro%(s,i)*2:nexti
 8250 cp(s)=cp(s)/2:ts%(s)=ts%(s)+1:ss%(s)=ss%(s)*2:goto8990
 8300 ifrnd(1)>.05then8000
 8320 cd(s)=-cp(s):print"aUDITORS FIND{$a0}FOUL{$a0}PLAY{$a0}IN{$a0}BOOKS{$a0}AT ";sn$(s)
 8330 cp(s)=0:br%(s)=1:printsn$(s);" hAS{$a0}DECLARED bankruptcy":goto8990
 8400 gosub8980:print"strike at ";sn$(s)
 8420 af(s)=af(s)-int(rnd(1)*5):goto8990
 8500 gosub8980:print"increased profits predicted for ";sn$(s)
 8520 af(s)=af(s)+int(rnd(1)*5):goto8990
 8600 gosub8980:print"decrease in profits predicted for ";sn$(s):goto8420
 8700 gosub8980:print"production increase at ";sn$(s):goto8520
 8800 gosub8980:print"outlook good at ";sn$(s):goto8520
 8980 print"{rvon}**news bulletin**{rvof}":return
 8990 print:forw=1to1500:nextw:i=i1:return
 9000 ifh<1thenreturn
 9030 z=(int(rnd(1)*4))/100:ifx>10thenz=(int(rnd(1)*7))/100
 9050 ifx>35thenz=(int(rnd(1)*10))/100
 9055 ifx>100thenz=(int(rnd(1)*13))/100
 9060 z=cp(s)*z:ify=2thenz=-z
 9080 cp(s)=cp(s)+z:cd(s)=cd(s)+z:ifcp(s)<=0thengosub8330
 9110 return
 10000 print"{clr}stock name{CBM-+}trnd{CBM-+}probable    {CBM-+}curr prc
 10001 print,,"50%buy=1",,,,"div=2",,,,"split=3":fors=1to12:ifbr%(s)=1then10999
 10007 printsn$(s),:ifaf(s)>0thenprint"{CBM-+}up  {CBM-+}";
 10008 ifaf(s)=0thenprint"{CBM-+}    {CBM-+}";
 10009 ifaf(s)<0thenprint"{CBM-+}down{CBM-+}";
 10010 ifhf%(s)=0thenprint"1";
 10040 ifnd%(s)=0thenprint"2";
 10050 ifts%(s)=0thenprint"3";
 10999 print,,cp(s):nexts:c(i)=c(i)-50:return
 11000 s=(int(rnd(1)*12))+1:y=int(rnd(1)*2)+1:ifbr%(s)=1then11000
 11030 ify=1thenct$="b":x=int(rnd(1)*100):return
 11040 ct$="s":x=ro%(s,i):return
 12000 fori=1to6:print:printin$(i);" HAS";ro%(s,i);"SHARES":nexti:gosub15000
 12999 return
 15000 print"hIT{$a0}ANY{$a0}KEY";:a$=""
 15001 geta$:ifa$=""then15001
 15002 print"^":return
    0 clr:poke59468,12
    1 rem plus copyright (c) 1980 by earl furman
    2 rem 1621 eureka
    3 rem modesto, ca. 95351
    4 :
    5 rem cursor #21, june/july 1980
    6 rem from the code works
    7 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 2aug80
   90 pg$="drag":nm$="21":gosub62000
  100 mx=5:dimn$(4),lm(12),tm(mx)
  120 cr$=chr$(13)
  130 b$="                                       "+chr$(20)+" "
  140 read lm(0),lm(1),lm(6),lm(7)
  150 read lm(2),lm(3),lm(8),lm(9)
  160 read lm(4),lm(5),lm(10),lm(11)
  170 read t$:pc=val(t$)/100
  210 print"{down}how many drivers are there? ";:gosub60000:n=val(in$)
  220 ifn<1thenprint"{down}i need at least one driver!":goto210
  230 ifn>4thenprint"{down}but there are only four lanes!":goto210
  300 print"{clr}"
  310 fori=1ton
  320 print"{down}{down}who's driving car #";mid$(str$(i),2);;"? ";
  330 gosub60000:n$(i)=in$
  340 nexti
  350 pd=0:ifn=1thenprint"{down}i'll drive car #2":n=2:n$(2)="pet {left}":pd=1
  360 ifpdthenforz=1to500:nextz
  400 print"{clr}{down}{down}{down}{down}{down}{down}  may the best driver win!"
  420 forz=1to500:nextz
  430 nt=0:pt=0:sm=0
  450 print"{clr}";
  470 gosub1310
  490 en=0
  510 fori=1ton
  520 gosub930
  530 ifmv>0thengosub1800
  540 ifp(i)>29thenen=1
  550 nexti
  560 ifen=0then510
  630 wn=0:t=-1
  640 forj=1ton
  650 ifp(j)=tthenwn=wn+1
  660 ifp(j)>tthenwn=1:t=p(j)
  670 nextj
  760 gosub1540
  770 ifwn>1thenprint"{up}{up}";
  780 print"************the winner";
  790 ifwn>1thenprint"s are";
  800 ifwn=1thenprint" is";
  810 print"************{up}"
  820 forq=1ton:ifp(q)<>tthen860
  830 forv=wnto4:print:nextv
  840 print"  ";:i=q:gosub1480
  850 print"{up}{up}";tab(11);" driven by {rvon}";n$(q)
  860 nextq
  870 forz=1to4000:nextz
  880 print"{down}{down}want to play again? ";:gosub60000
  890 ifleft$(in$,1)<>"n"then400
  900 print"{clr}{down}{down}":end
  930 gosub1540
  950 gosub2000
  960 forz=1to1000:nextz
  980 print"ok, ";n$(i);","
  990 print"{down}what's ";a1;op$;a2;"? ";:p=pos(0)
 1000 if pd=0 or i<>2 then 1040
 1010 gosub1670:t=ti+60*t9:z=0:x=ti+10
 1020 if x<ti then print mid$("{rvon}{rvof}",z+1,1);"{CBM-B}{left}";:z=1-z:x=x+10
 1025 if ti<t then 1020
 1030 a$=an$:print"{rvof}";an$:goto1140
 1040 a$=""
 1050 geti$:ifi$<>""then1050
 1070 t9=ti
 1080 geti$:ifi$=""then1080
 1085 ifi$=cr$thenprint:goto1130
 1090 ifi$<"0"ori$>"9"then1080
 1100 printi$;
 1110 a$=a$+i$
 1120 goto1080
 1130 t9=int((ti-t9)/60+.5)
 1140 mv=abs(a$=an$)*((5-t9)*abs(t9<5)+abs(t9>4))
 1150 ifa$<>an$then1180
 1160 ifa$=an$thenprint"{down}you took";t9;"{left} second";:ift9<>1thenprint"s";
 1170 print:goto1200
 1180 print"{up}";tab(p);"no";:iflen(a$)>2thenprintleft$(b$,len(a$)-2);
 1190 print:print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";a1;op$;a2;"= ";an$:forz=1to1000:nextz
 1200 forz=1to500:nextz
 1210 return
 1310 fori=1ton
 1320 p(i)=1
 1330 print"{home}";
 1340 forj=0to(7-n)*i-3
 1350 print"{down}";
 1360 nextj
 1380 gosub1480
 1390 print" ";
 1420 forj=1to35
 1430 printchr$(163);
 1440 nextj
 1450 print"{up}{CBM--}{down}"
 1460 nexti
 1470 return
 1480 print" {CBM-*}{rvon}";right$(str$(i),1);"{CBM-*}{rvof}{CBM-I}{CBM-I}{CBM-I}I{left}{left}{left}{left}{left}{left}{left}{left}{down}";
 1500 print" {CBM-C}W{CBM-U}{CBM-U}{CBM-U}W{CBM-V}"
 1510 return
 1540 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 1550 forh=1to9
 1560 printb$
 1570 nexth
 1580 printb$;"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
 1590 return
 1670 pt=pt+1:ifpt>mxthenpt=1
 1675 ifnt=mxthensm=sm-tm(pt)
 1680 tm(pt)=t9:sm=sm+t9:ifnt<mxthennt=nt+1
 1685 l=tm(1):h=tm(1):forz=1tont
 1690 iftm(z)<lthenl=tm(z)
 1695 iftm(z)>hthenh=tm(z)
 1700 nextz
 1705 z=h-l+2:t9=l-1+int(rnd(1)*(z+1))
 1710 ift9<1thent9=1
 1720 ift9>30thent9=30:rem max time for pet
 1730 return
 1800 print"{home}";
 1820 forj=0to(7-n)*i-3
 1830 print"{down}";
 1840 nextj
 1850 forl=1tomv
 1860 p(i)=p(i)+1
 1870 printtab(p(i)-1);
 1880 gosub1480
 1920 print"{up}{up}";
 1930 forj=1to15:nextj
 1940 nextl
 1950 return
 2000 if rnd(1)>pc then 2500
 2100 a1=lm(0)+int(rnd(1)*(lm(1)-lm(0)))
 2110 a2=lm(2)+int(rnd(1)*(lm(3)-lm(2)))
 2120 an=a1+a2:an$=mid$(str$(an),2)
 2130 ifan<lm(4)orlm(5)<an then 2100
 2140 op$="+":return
 2500 a1=lm(6)+int(rnd(1)*(lm(7)-lm(6)))
 2510 a2=lm(8)+int(rnd(1)*(lm(9)-lm(8)))
 2520 an=a1-a2:an$=mid$(str$(an),2)
 2530 ifan<lm(10)orlm(11)<an then 2500
 2540 op$="-":return
 2950 :
 2951 rem the data table controls difficulty level
 2952 :
 3000 rem   +     -
 3010 rem"{CTRL-U}{CTRL-P}{CTRL-P}{wht}{rvon} {CTRL-L}{ensh}{swlc}{wht}
 3020 data 1,9,  2,18
 3030 rem"{CTRL-L}{CTRL-O}{CTRL-W}{wht}{rvon} {CTRL-L}{ensh}{swlc}{wht}
 3040 data 1,9,  1,9
 3050 rem" {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}  {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
 3060 rem"{CTRL-A}{swlc}{home}{CTRL-W}{wht}{rvon}
 3070 data 2,18, 1,9
 3100 rem what pct. of problems addition
 3110 data 50%
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by earl furman{down}
 62020 gosub60500
 62030 print"{down}make arithmetic a real drag!
 62040 print"{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 goto60300
   10 print"{clr}"
  100 print
  102 print"                         {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{CBM-*}
  104 print"                        {rvon}{SHIFT-POUND}{$a0}{rvof} {rvon}{SHIFT-POUND}{$a0}
  106 print"                        {rvon}{$a0}{$a0}{SHIFT-POUND}{$a0}{rvof}{SHIFT-POUND}
  108 print"           {rvon}{CBM-*}{rvof} {rvon}{CBM-*}{rvof} {rvon}{CBM-*}{rvof}        {rvon}{$a0}{$a0}{CBM-G}{rvof}{SHIFT-POUND}
  110 print"          {rvon}{CBM-*}{$a0}{CBM-*}{$a0}{CBM-*}{$a0}{CBM-*}{CBM-*}{rvof}    {rvon}N{$a0}{$a0}{$a0}M
  112 print"        {rvon}N{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}M{rvof} {rvon}NN{$a0}U{SHIFT-*}I{CBM-*}
  114 print"       {rvon}N            {CBM-*}{$a0}{CBM-G}{$a0}{SHIFT--}{CBM-D}{SHIFT--}{$a0}
  116 print"      {rvon}N   {$a0}         {CBM-M}{$a0}M{$a0}J{SHIFT-*}K{$a0}{CBM-*}
  118 print"   {rvon}{CBM-*}{rvof}{$a0}{rvon}N              {CBM-M}{$a0}{$a0}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{$a0}M{$a0}{$a0}{$a0}{CBM-*}
  120 print"  {rvon}N{CBM-T}                    {rvof} {CBM-*}{rvon}{$a0}M{$a0}J{rvof}{SHIFT-POUND}
  122 print" {rvon}N                      {rvof}  {CBM-*}{rvon}{$a0}{CBM-T}{rvof}v
  124 print"{rvon}{SHIFT-POUND}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-T}M{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}
  126 print"{rvon}{SHIFT-POUND}{CBM-G}        {CBM-M}            {rvof}{SHIFT-POUND}
  128 print"{rvon}{SHIFT-POUND}{CBM-G}{$a0} {rvof}{SHIFT-POUND}{CBM-*}{rvon}    N          N{CBM-T}{CBM-*}
  130 print"I{rvon}{CBM-G}{$a0}{$a0}{rvof}II{CBM-*}{rvon}{$a0}{$a0}{$a0}{CBM-T}M{$a0}{$a0}{$a0}{$a0}{$a0}N{$a0}{$a0}{rvof}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}I         UI
  132 print"I{rvon}{CBM-G}{$a0}{$a0}{CBM-*}{rvof}II{CBM-*}{rvon}{$a0}{$a0}MMM{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}{rvon}{$a0}{$a0}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{rvof}II       U{CBM-W}{CBM-Q}
  134 print"I{CBM-*}{rvon}{$a0}{$a0}{$a0}{CBM-*}{rvof}IIII{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}IIII{CBM-*}{rvon}{$a0}{$a0}{$a0}{CBM-M}{CBM-M}{SHIFT-*}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-W}{CBM-Q}
  136 print"II{CBM-*}{rvon}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}IIIIIIIIIIII{CBM-*}{CBM-*}{CBM-*}IIII     J{CBM-W}{CBM-Q}
  138 print"III{CBM-*}{rvon} {$a0}{$a0}{$a0}{$a0}{CBM-*}{rvof}IIIINIIIIIIIIIIIII      JK
  140 print"IIIIIIII{CBM-*}{rvon}{$a0}{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}IIIIIIIIIIIIIII
  142 print"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
  144 print"IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
  150 goto230
  200 poke33112,235:poke33113,192:poke33114,243
  210 poke33233,224:poke33234,224:poke33235,95
  220 poke33273,95:poke33274,224:poke33275,223:poke33276,22
  225 return
  226 x=int(10*rnd(1)+1):ifx>6goto230
  227 forj=1tox
  228 gosub650:gosub620:gosub680
  229 nextj
  230 gosub200:gosub600:l=42:k=46:gosub300
  240 gosub600:l=32:k=32:gosub300
  250 gosub600:gosub500:gosub600
  252 x=int(10*rnd(1)+1):ifx>5goto260
  253 y=int(10*rnd(1)/3+1)
  254 forj=1toy
  255 gosub700:gosub600:gosub710:gosub620
  256 nextj
  260 goto226
  300 poke33318,l:poke33357,l:poke33358,l:poke33361,l:poke33396,l
  310 poke33400,l:poke33404,l:poke33438,l:poke33440,l:poke33444,l
  320 poke33477,l:poke33484,l:poke33485,l:poke33527,l:poke33559,l
  330 poke33567,l:poke33600,l:poke33604,l:poke33605,l:poke33644,l
  340 poke33356,k:poke33360,k:poke33439,k:poke33445,k:poke33478,k:poke33524,k
  350 poke33524,k:poke33564,k:poke33565,k:poke33606,k:poke33607,k:poke33646,k
  360 return
  500 poke33112,221:poke33113,236:poke33114,221
  510 poke33233,95:poke33234,224:poke33235,205:poke33273,32:poke33274,95
  520 poke33275,224:poke33276,224
  530 return
  600 fori=1to400:next
  610 return
  620 fori=1to200:next
  630 return
  650 poke32871,95:poke32872,223:poke32873,32:poke32874,32
  655 poke32876,32:poke32912,224:poke32913,223:poke32917,223
  660 return
  680 poke32871,32:poke32872,32:poke32873,233:poke32874,105
  685 poke32876,223:poke32912,233:poke32913,224:poke32917,32
  690 return
  700 poke33582,73:poke33618,223:poke33619,73:poke33620,73:poke33621,73
  702 poke33657,95:poke33658,224:poke33659,223:poke33698,95
  704 poke33699,224:poke33700,223:poke33701,100
  705 return
  710 poke33582,78:poke33618,224:poke33619,224:poke33620,224:poke33621,105
  712 poke33657,73:poke33658,73:poke33659,73:poke33698,73
  714 poke33699,73:poke33700,73:poke33701,73
  715 return
  800 geta$
  810 ifa$=""goto800
  820 goto9999
 9999 end
{$7a}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-D}{CTRL-V}{$61}the dragon's eye                                                                                                                                                                           ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f7}{$e7}~~~~{$00}>{CTRL-D}{$00}{$00}{$8f}{rvon}(c)1980 southern software limited{rght}{rght}{rght}{rght}{rght}{rght}{rght}robert leyland{$00}_{CTRL-D}{CTRL-A}{$00}{f6}B(53){CBM-W}{CBM-E}124{CBM-M}{gry1}52,24:{gry1}53,124:{f4}{$00}{$72}{CTRL-D}{CTRL-B}{$00}{gry1}59468,12:{f2}487{$00}{f5}{CTRL-D}{stop}{$00}{lgrn}H(d$,v{CBM-N}1){CBM-+}h);:{swuc}{$00}{CBM-F}{CTRL-D}{CTRL-D}{$00}x${CBM-R}"":ef{CBM-R}f:{lgrn}H(b$,l{CBM-N}1);:{orng}i{CBM-R}1{CBM-@}l:{lgrn}"{left}";:{$82}i:{lgrn}"{rvon} {rvof}{left}";{$00}S{CTRL-D}{wht}{$00}{CBM-K}c$:q{CBM-R}{CBM-F}(.):{f6}c${CBM-R}""{CBM-M}5{$00}{$f3}{CTRL-D}{CTRL-F}{$00}{f6}c${CBM-R}G(13){CBM-A}c${CBM-R}G(141){CBM-M}{lgrn}" ";:{swuc}{$00}{CTRL-W}{wht}{CTRL-G}{$00}{f6}(c${CBM-R}G(20){CBM-A}c${CBM-R}G(148)){CBM-P}C(x$){CBM-R}0{CBM-M}5{$00}o{wht}{dish}{$00}{f6}c${CBM-R}G(20){CBM-A}c${CBM-R}G(148){CBM-M}x${CBM-R}H(x$,C(x$){CBM-Q}1):{lgrn}" {left}{left}{rvon} {rvof}{left}";:{f2}5{$00}^{wht}{ensh}{$00}{f6}l{CBM-R}C(x$){CBM-M}5{$00}{$7e}{wht}{$0a}{$00}{f6}c${CBM-R}"{rvon}"{CBM-A}c${CBM-R}"{rvof}"{CBM-M}x${CBM-R}"":ef{CBM-R}1:{swuc}{$00}{clr}{wht}{CTRL-K}{$00}{f6}c${CBM-W}"0"{CBM-A}c${CBM-E}"z"{CBM-M}5{$00}{CBM-S}{wht}{CTRL-L}{$00}{lgrn}c$"{rvon} {rvof}{left}";:x${CBM-R}x${CBM-N}c$:{f2}5{$00}E{wht}
{$00}{sret}3:{lgrn}"you can't";:{swuc}{$00}Y{wht}{swlc}{$00}{sret}3:{lgrn}H(b$,l);:{f2}3{$00}{$0a}{CTRL-F}{CTRL-O}{$00}{gry1}0,d:{gry1}1,w:{gry1}60,{CBM-G}l(a):{gry1}61,{CBM-G}h(a):{gry1}28,{CBM-G}l(a{CBM-Q}1000){$00}${CTRL-F}{CTRL-P}{$00}{gry1}29,{CBM-G}h(a{CBM-Q}1000):{yel}892:{swuc}{$00}5{CTRL-F}{down}{$00}{orng}z{CBM-R}1{CBM-@}40:{$82}z:{swuc}{$00}f{CTRL-F}{rvon}{$00}{orng}z{CBM-R}1{CBM-@}20:{$82}z:{swuc}{$00}v{CTRL-F}{home}{$00}q{CBM-R}ti:z{CBM-R}{CBM-U}(.){$00}{$67}{CTRL-F}{del}{$00}{f6}ti{CBM-Q}q{CBM-W}180{CBM-M}20{$00}{$6d}{CTRL-F}{CTRL-U}{$00}{swuc}{$00}{CBM-+}{CTRL-F}{CTRL-V}{$00}a{CBM-R}33207{CBM-N}fp:{gry1}0,5:{gry1}1,7:{gry1}28,32:{gry1}60,{CBM-G}l(a):{gry1}61,{CBM-G}h(a):{yel}864{$00}Q{CTRL-F}{CTRL-W}{$00}{sret}30:{lgrn}H(d$,vp{CBM-N}1){CBM-+}mp)mo$(m):h{CBM-R}fp:v{CBM-R}11:{f2}3{$00}{$e4}{CTRL-F}{CTRL-X}{$00}{CBM-K}c$:{f6}c${CBM-W}{CBM-E}""{CBM-M}24{$00}{$ea}{CTRL-F}{CTRL-Y}{$00}{swuc}{$00}){CTRL-G}{CTRL-Z}{$00}a{CBM-R}32767{CBM-N}mp{CBM-N}vp{CBM-D}40:{gry1}0,d:{gry1}1,w:{gry1}28,32:{gry1}60,{CBM-G}l(a):{gry1}61,{CBM-G}h(a):{yel}864{$00}e{CTRL-G}{esc}{$00}{f6}{CBM-POUND}du{CBM-M}{lgrn}H(d$,12){CBM-+}fp)f$bd${$00}{$73}{CTRL-G}{red}{$00}{f6}du{CBM-M}{lgrn}H(d$,12){CBM-+}fp)"{down}{down}{down}{down}N{up}N{rvon}F{SHIFT-*}F{rvof}Q{down}{left}{left}{left}{left}P{rght}J{SHIFT-*}"{$00}{$84}{CTRL-G}{rght}{$00}h{CBM-R}mp:v{CBM-R}vp:{f2}3{$00}{up}{CTRL-G}{grn}{$00}{f6}aa{CBM-M}al{CBM-R}t{$00}{yel}{CTRL-G}{blu}{$00}{f6}la{CBM-R}al{CBM-M}{swuc}{$00}R{CTRL-G} {$00}la{CBM-R}al:{f6}al{CBM-M}f${CBM-R}"{rght}Q{SHIFT--}{down}{left}{SHIFT-+}{left}{left}{left}{down}{SHIFT--}{up}{left}U{down}{down}{rght}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{left}{up}{CBM-G}{up}{up}{left}":{swuc}{$00}{$fc}{CTRL-G}!{$00}f${CBM-R}"{rght}Q{down}I{down}{left}{SHIFT--}{left}{left}{left}{SHIFT--}{up}{left}U{down}{down}{rght}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{up}{left}{CBM-G}{up}{up}{left}":{swuc}{$00}{rvon}{dish}"{$00}{orng}q{CBM-R}1{CBM-@}n:r%(q){CBM-R}q:{$82}q{$00}z{dish}#{$00}{orng}q{CBM-R}1{CBM-@}n{CBM-Z}2{CBM-D}3:t1{CBM-R}{CBM-G}d(n):t2{CBM-R}{CBM-G}d(n):t3{CBM-R}r%(t1):r%(t1){CBM-R}r%(t2):r%(t2){CBM-R}t3:{$82}q:{swuc}{$00}{sret}{dish}${$00}{lgrn}"{clr}":{gry1}1,40:{gry1}0,3:{gry1}28,102:{gry1}60,127:{gry1}61,130:{yel}864:{swuc}{$00}{CBM-F}{dish}%{$00}{gry1}1,40:{gry1}0,25:{gry1}28,ch:{gry1}60,255:{gry1}61,127:{yel}864:{swuc}{$00}{$e8}{dish}&{$00}x{CBM-R}40:y{CBM-R}25:{up}{CBM-G}d(6){f2}430,437,438,439,440,442{$00}.{ensh}'{$00}sc{CBM-R}dy{CBM-D}10{CBM-N}tx{CBM-D}b{CBM-N}mk{CBM-Q}mh{CBM-D}500{CBM-N}250{CBM-D}(e{CBM-W}0){CBM-N}ar{CBM-N}tb{CBM-Q}su{CBM-D}15{CBM-N}rc{CBM-D}10{CBM-N}ag{CBM-N}gl{CBM-D}5{CBM-N}je{CBM-D}25{$00}]{ensh}({$00}sc{CBM-R}sc{CBM-N}mh{CBM-D}(200{CBM-D}(ct{CBM-R}0){CBM-Q}300{CBM-D}(cc{CBM-R}cb){CBM-D}(ct{CBM-R}0)):{swuc}{$00}{$77}{ensh}){$00}{sret}24:h{CBM-R}0:v{CBM-R}23:l{CBM-R}25:{sret}14{$00}{CBM-Z}{ensh}*{$00}{sret}3:{lgrn}"{rvon} {rvof} press any key {rvon} {rvof}";:{CBM-K}x$:q{CBM-R}{CBM-F}(.):{f6}x${CBM-R}""{CBM-M}42{$00}{CBM-J}{ensh}+{$00}{f2}14{$00}{$de}{ensh},{$00}h{CBM-R}9{CBM-N}{CBM-G}d(12){CBM-N}{CBM-G}d(12):v{CBM-R}1{CBM-N}{CBM-G}d(4){CBM-N}{CBM-G}d(4):{f2}3{$00}${$0a}-{$00}bs{CBM-R}f:cs{CBM-R}f:c${CBM-R}"":{sret}24:hd{CBM-R}f:vp{CBM-R}16{CBM-Q}d%(m):mp{CBM-R}{CBM-G}d(40{CBM-Q}w%(m){CBM-Q}5){CBM-N}4:{f6}aa{CBM-M}al{CBM-R}t{$00}2{$0a}.{$00}{f6}m{CBM-W}{CBM-R}0{CBM-M}302{$00}o{$0a}/{$00}w{CBM-R}w%(m):d{CBM-R}d%(m):{f6}u{CBM-E}b{CBM-M}u{CBM-R}b{$00}{$66}{$0a}0{$00}se{CBM-R}0:fp{CBM-R}7:di{CBM-R}f:{sret}36{$00}{CBM-G}{$0a}1{$00}h{CBM-R}16:v{CBM-R}2:{sret}3:{lgrn}"condition: 100%":v{CBM-R}1:{sret}3:{lgrn}"  monster: "mn$(m){$00}{CBM-O}{$0a}2{$00}{f6}al{CBM-M}{sret}22:{sret}29:{f2}52{$00}N{$0a}3{$00}{sret}22:{sret}29:{sret}147:{sret}29{$00}{SHIFT--}{$0a}4{$00}{f6}r{CBM-E}sm{CBM-M}r{CBM-R}sm{$00}{CTRL-B}{CTRL-K}5{$00}r{CBM-R}{CBM-J}(r):v{CBM-R}20:h{CBM-R}23:{sret}3:{lgrn}v$(2)r"{left}% "{$00}'{CTRL-K}6{$00}e{CBM-R}{CBM-J}(e):v{CBM-R}21:h{CBM-R}25:{sret}3:{lgrn}v$(1)e"{left}% "{$00}l{CTRL-K}7{$00}u{CBM-R}{CBM-J}(u):v{CBM-R}22:h{CBM-R}27:{sret}3:{lgrn}v$(3)u"{left}% "{$00}{$63}{CTRL-K}8{$00}{f6}e{CBM-W}0{CBM-M}{sret}22:{lgrn}dd$:{f2}168{$00}{$77}{CTRL-K}9{$00}{f6}c${CBM-R}"e"{CBM-A}m{CBM-R}0{CBM-M}168{$00}{f3}{CTRL-K}:{$00}{sret}22:{lgrn}f$bd${$00}{CBM-+}{CTRL-K};{$00}h{CBM-R}0:v{CBM-R}0:{sret}3:{lgrn}"arrows:"ar"{left} "{$00}E{CTRL-K}<{$00}h{CBM-R}1:v{CBM-R}1:{sret}3:{lgrn}"bolts:"tb"{left} "{$00}{$e0}{CTRL-K}={$00}v{CBM-R}2:{sret}3:{lgrn}"vials:"pn"{left} "{$00} {CTRL-L}>{$00}v{CBM-R}19:h{CBM-R}22:{sret}3:{lgrn}"direction: {rvon}"di$(di)"{rvof}";:{f6}cs{CBM-M}h{CBM-R}9:v{CBM-R}19:{sret}3:{f2}74{$00}+{CTRL-L}?{$00}lc${CBM-R}c${$00}^{CTRL-L}@{$00}{f6}bs{CBM-M}{CBM-K}c$:v{CBM-R}19:{f6}c${CBM-R}""{CBM-M}c${CBM-R}J("dpsct2",{CBM-G}d(6),1):{f2}67{$00}{$70}{CTRL-L}a{$00}{f6}B(152){CBM-R}1{CBM-M}{sret}24{$00}{CBM-Z}{CTRL-L}b{$00}v{CBM-R}19:h{CBM-R}0:bs{CBM-R}f:{sret}3:{lgrn}"{rvon} command {rvof}";:l{CBM-R}10:h{CBM-R}9:{CBM-K}c$:{f6}c${CBM-R}""{CBM-M}171{$00}B{CTRL-L}c{$00}{f6}c${CBM-W}{CBM-E}lc${CBM-M}se{CBM-R}se{CBM-N}1{$00}{$de}{CTRL-L}d{$00}qu${CBM-R}qu${CBM-N}c$:{f6}C(qu$){CBM-W}7{CBM-M}71{$00}{CTRL-O}
e{$00}qu${CBM-R}J(qu$,2):se{CBM-R}se{CBM-N}9{CBM-D}(J(qu$,1,3){CBM-R}J(qu$,4,3)){$00}l
f{$00}se{CBM-R}se{CBM-N}3{CBM-D}(c${CBM-R}lc${CBM-P}c${CBM-R}J(qu$,4,1)){CBM-N}5{CBM-D}(J(qu$,5,2){CBM-R}J(qu$,3,2)){$00}[
g{$00}{f6}se{CBM-E}5{CBM-M}se{CBM-R}5{$00}{$6c}
h{$00}{f6}se{CBM-W}{CBM-Q}9{CBM-M}se{CBM-R}{CBM-Q}9{$00}{swuc}
i{$00}l{CBM-R}10:h{CBM-R}9:{sret}14:j{CBM-R}{CBM-G}d(20){CBM-Q}bs{CBM-D}3{CBM-N}se{$00}{CBM-U}
j{$00}{f6}c${CBM-R}">"{CBM-A}c${CBM-R}"<"{CBM-M}di{CBM-R}{CBM-Q}(c${CBM-R}"<"):c{CBM-R}c{CBM-N}2:{f2}62{$00}H
k{$00}{f6}c${CBM-R}"v"{CBM-M}134{$00}{$e0}
l{$00}{f6}c${CBM-R}"d"{CBM-M}{lgrn}"duck":{f2}99{$00}{$fe}
m{$00}{f6}c${CBM-R}"r"{CBM-M}{lgrn}"ready":al{CBM-R}t:{f2}51{$00}a{swlc}n{$00}{f6}c${CBM-R}"e"{CBM-M}{lgrn}"escaping":hd{CBM-R}t:al{CBM-R}f:mo%({CBM-G}p(cc)){CBM-R}m:mc%({CBM-G}p(cc)){CBM-R}mo:{f2}94{$00}z{swlc}o{$00}{f6}c${CBM-R}"p"{CBM-M}{lgrn}"parry":{f2}96{$00}{inst}{swlc}p{$00}{f6}r{CBM-W}{CBM-R}0{CBM-M}{lgrn}"resting":r{CBM-R}{CBM-J}({CBM-L}(r{CBM-D}1.15){CBM-N}2):c${CBM-R}"":bs{CBM-R}f:al{CBM-R}f:{f2}51{$00}{CBM-Z}{swlc}q{$00}{f6}c${CBM-R}"f"{CBM-M}{lgrn}"fire":{f2}116{$00}L{swlc}r{$00}{f6}c${CBM-R}"m"{CBM-M}{lgrn}"magic bolt":{f2}125{$00}{$de}{swlc}s{$00}{f6}E(c$){CBM-W}{CBM-E}0{CBM-M}112{$00}{blu}{CTRL-O}t{$00}cs{CBM-R}f:{f6}(c${CBM-R}"s"{CBM-A}c${CBM-R}"t"{CBM-A}c${CBM-R}"c"{CBM-A}c${CBM-R}"b"{CBM-A}c${CBM-R}"l"){CBM-P}{CBM-POUND}al{CBM-M}al{CBM-R}t:cs{CBM-R}t:{f2}51{$00}9{CTRL-O}u{$00}{f6}c${CBM-R}"s"{CBM-M}{lgrn}"smash":{f2}101{$00}s{CTRL-O}v{$00}{f6}c${CBM-R}"t"{CBM-M}{lgrn}"thrust":{f2}91{$00}{$6c}{CTRL-O}w{$00}{f6}c${CBM-R}"c"{CBM-M}{lgrn}"chop":{f2}104{$00}{$7c}{CTRL-O}x{$00}{f6}c${CBM-R}"l"{CBM-M}107{$00}{pur}{CTRL-O}y{$00}{f6}c${CBM-R}"b"{CBM-M}{lgrn}"berserk":bs{CBM-R}t:{f2}64{$00}H{CTRL-O}z{$00}h{CBM-R}0:v{CBM-R}23:{sret}3:{lgrn}" {rvon}bceflmrstv{rght}<>{rght}1-9{rvof}":{f2}64{$00}{$f2}{CTRL-O}[{$00}{sret}22:{lgrn}"{rght}{rght}Q{down}{SHIFT-+}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{left}{left}J{SHIFT-*}"bd$"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{left}N{up}{CBM-G}{$00}{red}{CTRL-P}\{$00}{sret}22:{lgrn}"{rght}{rght}UQ{down}{SHIFT-+}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{left}J"bd$"{down}M{down}{left}N{left}{left}{left}{left}N{up}N{$00}5{CTRL-P}]{$00}aj{CBM-R}.9:wf{CBM-R}t%(sw):{f2}158{$00}{$61}{CTRL-P}^{$00}{f6}r{CBM-W}ms%(m){CBM-A}{CBM-L}(mp{CBM-Q}fp){CBM-W}4{CBM-M}h{CBM-R}9:v{CBM-R}21:{sret}13:c${CBM-R}""{$00}{$69}{CTRL-P}_{$00}{f2}51{$00}{clr}{CTRL-P}{$60}{$00}{sret}22:{lgrn}"{down}{rght}{rght}Q{SHIFT--}{down}{left}{SHIFT-+}{left}{left}{left}{down}{SHIFT--}{up}{left}U"bd$"{CBM-@}{down}M{left}{left}{left}{left}{left}{CBM-@}N{$00}{CBM-C}{CTRL-P}{$61}{$00}{sret}22:{lgrn}"{rght}Q{SHIFT--}{down}{left}{SHIFT-+}{left}{left}{left}{down}{SHIFT--}{up}{left}U"bd$"{down}M{down}M{left}{left}{left}{left}N{up}{CBM-G}{$00}W{CTRL-P}{$62}{$00}wf{CBM-R}a%(sw):aj{CBM-R}1.05:{f2}158{$00}{$f9}{CTRL-P}{$63}{$00}{sret}22:{lgrn}"{down}{down}{down}{down}N{up}N{rvon}F{SHIFT-*}F{rvof}Q{down}{left}{left}{left}{left}P{rght}J{SHIFT-*}"{$00}({down}{$64}{$00}du{CBM-R}t:r{CBM-R}{CBM-L}(r{CBM-D}1.1){CBM-N}5{CBM-D}bs:{sret}147:du{CBM-R}f:{sret}30:{sret}22:{f2}52{$00}n{down}{$65}{$00}{sret}22:{lgrn}"{rght}{rght}QRN{down}{left}{left}{CBM-T}{left}{left}"bd$"{down}{CBM-G}{down}{left}{left}N{left}{left}N{up}{CBM-G}{$00}{$6e}{down}{$66}{$00}{sret}22:{lgrn}"{rght}{rght}{down}Q{down}{SHIFT-+}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}"bd$"{down}{left}>>{$00}{clr}{down}{$67}{$00}aj{CBM-R}.8:wf{CBM-R}s%(sw){CBM-D}(lp{CBM-N}1):lp{CBM-R}0:{f2}158{$00}{SHIFT-*}{down}{$68}{$00}{sret}22:{lgrn}"{rght}{rght}Q{down}{left}{left}{left}{SHIFT-*}{SHIFT-+}{rght}{rght}{rght}{rght}{left}{left}{left}{left}"bd$"{down}M{down}{left}N{left}{left}{left}{left}N{up}N{$00}{$e6}{down}{$69}{$00}{sret}22:{lgrn}"{rght}{rght}Q{down}{SHIFT-+}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}"bd$"{down}M{down}M{left}{left}{left}{CBM-G}{up}{left}{CBM-G}{$00}~{down}{$6a}{$00}aj{CBM-R}.9:wf{CBM-R}c%(sw):{f2}158{$00}'{rvon}{$6b}{$00}{lgrn}"leap":{sret}22:{lgrn}"{rght}{rght}{down}Q N{down}{left}{left}V{left}{left}"bd$"{down}{left}>>{$00}={rvon}{$6c}{$00}{CBM-K}x$:{f6}x${CBM-R}""{CBM-M}x${CBM-R}"5"{$00}s{rvon}{$6d}{$00}{CBM-K}c$:{f6}c${CBM-R}""{CBM-M}c${CBM-R}"s"{$00}{f4}{rvon}{$6e}{$00}{sret}22:fp{CBM-R}fp{CBM-N}E(x$):r{CBM-R}{CBM-J}(r{CBM-Z}1.5{CBM-Q}E(x$)):lp{CBM-R}1:{f6}fp{CBM-E}32{CBM-M}fp{CBM-R}32{$00}{CBM-@}{rvon}{$6f}{$00}h{CBM-R}9:v{CBM-R}19:{sret}3:{lgrn}b7$;:{f2}85{$00}M{rvon}{$70}{$00}{sret}22:x{CBM-R}E(c$):r{CBM-R}r{CBM-Q}x:fp{CBM-R}fp{CBM-N}x{CBM-D}(di{CBM-R}1){CBM-D}2{CBM-N}x{$00}{CBM--}{rvon}{$71}{$00}{f6}fp{CBM-W}0{CBM-M}fp{CBM-R}0{$00}{$ed}{rvon}{$72}{$00}{f6}fp{CBM-E}32{CBM-M}fp{CBM-R}32{$00}{CTRL-G}{home}{$73}{$00}c{CBM-R}c{CBM-N}x:{up}x{f2}52,52,52:{f2}51{$00}{esc}{home}{$74}{$00}al{CBM-R}f:{f6}ar{CBM-W}{CBM-R}0{CBM-M}146{$00}@{home}{$75}{$00}{sret}22:{lgrn}"{down}UQI{down}{left}{CBM-W}{down}{left}K{left}{left}{left}{up}J"bd$"{down}P{left}{left}{left}{SHIFT-@}{$00}{$6b}{home}{$76}{$00}{sret}22:{lgrn}"{down}{rght}Q{rght}I{down}{left}{left}{SHIFT-*}{SHIFT-+}{SHIFT-*}{down}{left}{left}K{left}{left}{left}{left}{up}{SHIFT-*}"bd$"{down}P{left}{left}{left}{SHIFT-@}{$00}{$8f}{home}{$77}{$00}ar{CBM-R}ar{CBM-Q}1:ra{CBM-R}mp{CBM-Q}fp{CBM-N}3:aj{CBM-R}1.05:wf{CBM-R}1{$00}{CBM-S}{home}{$78}{$00}v{CBM-R}13:{f6}ra{CBM-W}4{CBM-M}ra{CBM-R}37{CBM-Q}fp:wf{CBM-R}{CBM-Q}20{$00}{$ea}{home}{$79}{$00}h{CBM-R}fp{CBM-N}6:{sret}3:{orng}i{CBM-R}1{CBM-@}ra{CBM-Q}5:{lgrn}"{left} "J("{SHIFT-*}CDE{CBM-T}EDC{SHIFT-*}FR{CBM-@}",12{CBM-D}i{CBM-Z}30{CBM-N}1,1);{$00}{$f7}{home}{$7a}{$00}{$82}i:{lgrn}"{left} "{$00}0{del}{$7b}{$00}{f6}j{CBM-N}wf{CBM-W}md%(m){CBM-M}h{CBM-R}34{CBM-N}{CBM-G}d(5):v{CBM-R}15:{sret}3:{lgrn}J(" MMM{CBM-@}",{CBM-G}d(5),1);{$00}9{del}{$7c}{$00}{f2}158{$00}{$61}{del}{$7d}{$00}al{CBM-R}f:{f6}u{CBM-W}{CBM-R}0{CBM-M}h{CBM-R}9:v{CBM-R}21:l{CBM-R}9:{sret}14:{sret}13:{f2}51{$00}{$6f}{del}{$7e}{$00}{f6}tb{CBM-R}0{CBM-M}146{$00}{gry1}{del}{$7f}{$00}tb{CBM-R}tb{CBM-Q}1:u{CBM-R}{CBM-J}(u{CBM-D}.9{CBM-Q}{CBM-G}d(9)):aj{CBM-R}.95:wf{CBM-R}7{$00}{CBM-C}{del}{$80}{$00}{sret}22:{lgrn}"{CBM-F}Q{CBM-D}{down}{left}K{left}{left}{left}J"bd$"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{up}{left}{CBM-G}{$00}{$e1}{del}{orng}{$00}ra{CBM-R}mp{CBM-Q}fp{CBM-N}3:{f6}ra{CBM-W}4{CBM-M}ra{CBM-R}37{CBM-Q}fp:wf{CBM-R}{CBM-Q}20{$00}{CTRL-G}{CTRL-U}{$82}{$00}{sret}22:{lgrn}"{rght}{rght}Q{CBM-@}{down}{left}{SHIFT-*}{CBM-V}{left}{left}{left}"bd$"{down}M{down}{left}N{left}{left}{left}N{up}{CBM-G}{$00}@{CTRL-U}{$83}{$00}{orng}i{CBM-R}fp{CBM-N}5{CBM-@}fp{CBM-N}ra:h{CBM-R}i:v{CBM-R}12:{sret}3:{lgrn}"{left} ";mb$({CBM-G}d(6));:{$82}i:{lgrn}"{left} "{$00}{$6c}{CTRL-U}{$84}{$00}{f6}j{CBM-N}wf{CBM-E}{CBM-R}md%(m){CBM-M}{sret}3:{lgrn}J("{SHIFT-+}V*{CBM-B}QWZ+",{CBM-G}d(8),1){$00}{$75}{CTRL-U}{f1}{$00}{f2}158{$00}{blk}{CTRL-U}{f3}{$00}al{CBM-R}f:{lgrn}"vial":{f6}pn{CBM-R}0{CBM-M}146{$00}{CBM-L}{CTRL-U}{f5}{$00}{sret}22:{lgrn}"UWI{down}{left}K{left}{left}{left}J"bd$"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{up}{left}{CBM-G}"{$00}{CBM--}{CTRL-U}{f7}{$00}{sret}17:{sret}22:{lgrn}"MQN{down}{left}{left}"bd$"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{up}{left}{CBM-G}"{$00}{$f1}{CTRL-U}{f2}{$00}{sret}22:{sret}147:{f6}e{CBM-W}0{CBM-M}52{$00}{$0a}{CTRL-V}{f4}{$00}i{CBM-R}{CBM-G}d(3):{f6}p%(i){CBM-R}0{CBM-M}138{$00}g{CTRL-V}{f6}{$00}p%(i){CBM-R}p%(i){CBM-Q}1:pn{CBM-R}pn{CBM-Q}1:x{CBM-R}{CBM-G}d(50){CBM-N}{CBM-G}d(25):{up}i{sret}140,142,144:{f2}51{$00}{$6b}{CTRL-V}{f8}{$00}e{CBM-R}e{CBM-N}x:{f6}e{CBM-E}hm{CBM-M}hm{CBM-R}e:{f6}hm{CBM-E}b{CBM-M}hm{CBM-R}b:e{CBM-R}b{$00}{$71}{CTRL-V}{sret}{$00}{swuc}{$00}{brn}{CTRL-V}{swuc}{$00}r{CBM-R}r{CBM-N}x:{f6}r{CBM-E}sm{CBM-M}sm{CBM-R}r:{f6}sm{CBM-E}b{CBM-M}sm{CBM-R}b:r{CBM-R}b{$00}{gry3}{CTRL-V}{$8f}{$00}{swuc}{$00}{CBM-B}{CTRL-V}{blk}{$00}u{CBM-R}u{CBM-N}x:{f6}u{CBM-E}am{CBM-M}am{CBM-R}u:{f6}am{CBM-E}b{CBM-M}am{CBM-R}b:u{CBM-R}b{$00}E{CTRL-V}{up}{$00}{swuc}{$00}{$e4}{CTRL-V}{rvof}{$00}h{CBM-R}9:v{CBM-R}21:{sret}3:{lgrn}"no more":{f2}51{$00}{$ec}{CTRL-V}{clr}{$00}{sret}26{$00}&{CTRL-W}{inst}{$00}w{CBM-R}w%(m):d{CBM-R}d%(m):na{CBM-R}{CBM-G}d(mt%(m)):{f6}mp{CBM-E}fp{CBM-M}mp{CBM-R}mp{CBM-Q}{CBM-G}d(ms%(m)){$00}t{CTRL-W}{brn}{$00}{f6}mp{CBM-W}{CBM-R}fp{CBM-M}mp{CBM-R}fp{CBM-N}{CBM-G}d(ms%(m)):{f6}mp{CBM-E}40{CBM-Q}w{CBM-M}mp{CBM-R}40{CBM-Q}w{$00}{$63}{CTRL-W}{lred}{$00}{f6}mp{CBM-W}4{CBM-M}mp{CBM-R}4{$00}{f5}{CTRL-W}{gry1}{$00}q{CBM-R}{CBM-G}d(md%(m)){CBM-Q}bs{CBM-N}{CBM-J}(mo{CBM-D}.1){CBM-N}ma%(m){$00}{CBM-POUND}{CTRL-W}{gry2}{$00}h{CBM-R}mp:v{CBM-R}vp:{sret}3:{lgrn}m$(m,1)m$(m,0){$00}D{CTRL-W}{lgrn}{$00}{sret}17:{sret}26:{lgrn}m$(m,2)m$(m,3){$00}{$ec}{CTRL-W}{lblu}{$00}{f6}du{CBM-A}(c${CBM-R}"p"{CBM-P}{CBM-G}d(2){CBM-R}2){CBM-A}{CBM-L}(mp{CBM-Q}fp){CBM-E}6{CBM-M}156{$00}){CTRL-X}{gry3}{$00}{f6}{CBM-G}d(20){CBM-N}ma%(m){CBM-N}al{CBM-E}10{CBM-N}3{CBM-D}bs{CBM-M}{yel}826:{sret}17:{yel}826:e{CBM-R}e{CBM-Q}q:{f6}e{CBM-E}hm{CBM-M}e{CBM-R}hm{$00}k{CTRL-X}{pur}{$00}{sret}26:{lgrn}mo$(m):na{CBM-R}na{CBM-Q}1:{f6}na{CBM-E}0{CBM-M}151{$00}q{CTRL-X}{left}{$00}{swuc}{$00}{$75}{CTRL-X}{yel}{$00}h{CBM-R}9:v{CBM-R}21:l{CBM-R}9:{sret}14:r{CBM-R}r{CBM-D}aj{CBM-N}wf{CBM-N}5{CBM-D}bs{$00}{CBM-W}{CTRL-X}{cyn}{$00}{f6}(c${CBM-R}"p"{CBM-A}c${CBM-R}"s"{CBM-A}c${CBM-R}"c"{CBM-A}c${CBM-R}"t"){CBM-P}{CBM-L}(mp{CBM-Q}fp){CBM-E}4{CBM-M}{lgrn}"too far":{f2}163{$00}D{CTRL-X}{$a0}{$00}{lgrn}"missed":{sret}3{$00}{$f0}{CTRL-X}{CBM-K}{$00}x{CBM-R}wf{CBM-N}{CBM-G}d(15){CBM-N}{CBM-G}d(r{CBM-Z}9{CBM-N}16{CBM-Z}(ra{CBM-Q}(ra{CBM-R}0))){CBM-Q}5{CBM-D}bs{$00}{blu}{CTRL-Y}{CBM-I}{$00}{f6}j{CBM-N}wf{CBM-E}md%(m){CBM-M}mo{CBM-R}mo{CBM-Q}x:{lgrn}"{rvon}a hit!{rvof}":{f6}mo{CBM-W}0{CBM-M}166{$00}={CTRL-Y}{CBM-T}{$00}h{CBM-R}27:v{CBM-R}2:l{CBM-R}14:{sret}14:{orng}i{CBM-R}1{CBM-@}nc{$00}{$6a}{CTRL-Y}{CBM-@}{$00}{f6}mo{CBM-Z}mm%(m){CBM-E}(nc{CBM-Q}i){CBM-Z}nc{CBM-M}{lgrn}fc$(i):i{CBM-R}nc:{$82}i:{f2}51{$00}{orng}{CTRL-Y}{CBM-G}{$00}{$82}i:{lgrn}"disabled":{f2}51{$00}{CBM-C}{CTRL-Y}{CBM-+}{$00}{sret}22:{sret}26:h{CBM-R}mp:v{CBM-R}vp:{sret}3:{lgrn}md$(m);:h{CBM-R}27:v{CBM-R}2:l{CBM-R}16:{sret}14:{lgrn}"dead{$00}{$f9}{CTRL-Y}{CBM-M}{$00}nk{CBM-R}nk{CBM-N}1:mk{CBM-R}mk{CBM-N}mm%(m):m{CBM-R}0:mo%({CBM-G}p(cc)){CBM-R}0:mc%({CBM-G}p(cc)){CBM-R}0:{f2}52{$00}{$0a}{CTRL-Z}{CBM-POUND}{$00}{sret}41:{f6}e{CBM-W}0{CBM-M}321{$00}{rght}{CTRL-Z}{SHIFT-POUND}{$00}{f6}e{CBM-W}20{CBM-M}sm{CBM-R}sm{CBM-Q}10{$00}+{CTRL-Z}{CBM-N}{$00}{sret}424:{f2}291{$00}{$63}{CTRL-Z}{CBM-Q}{$00}c{CBM-R}c{CBM-N}1:{f6}r{CBM-W}{CBM-R}0{CBM-M}h{CBM-R}9:l{CBM-R}10:{sret}14:{lgrn}"resting":r{CBM-R}{CBM-J}({CBM-L}(r{CBM-D}1.1){CBM-N}1){$00}{f7}{CTRL-Z}{CBM-D}{$00}h{CBM-R}9:v{CBM-R}21:l{CBM-R}9:{sret}14:{f6}c{CBM-W}20{CBM-Q}ms%(m){CBM-M}64{$00}{CBM-Q}{CTRL-Z}{CBM-Z}{$00}c{CBM-R}0:mf{CBM-R}mf{CBM-N}1:{sret}26:{f6}mf{CBM-R}3{CBM-M}mf{CBM-R}0:{f2}51{$00}K{CTRL-Z}{CBM-S}{$00}{lgrn}mm$(m):{sret}17:{sret}26:{lgrn}mo$(m):{f2}63{$00}{$fc}{CTRL-Z}{CBM-P}{$00}m{CBM-R}mo%({CBM-G}p(cc)):mo{CBM-R}mc%({CBM-G}p(cc)){CBM-D}1.5:{f6}ph{CBM-W}1{CBM-M}m{CBM-R}0:{swuc}{$00}9{esc}{CBM-A}{$00}{f6}m{CBM-E}0{CBM-M}mo{CBM-R}mo{CBM-N}(mo{CBM-Q}b){CBM-D}(mo{CBM-E}b):mo{CBM-R}mo{CBM-N}(mo{CBM-Q}mm%(m)){CBM-D}(mo{CBM-E}mm%(m)):{swuc}{$00}i{esc}{CBM-E}{$00}{f6}{CBM-G}d(6){CBM-W}{CBM-E}6{CBM-M}{swuc}{$00}{$7d}{esc}{CBM-R}{$00}m{CBM-R}{CBM-G}d(nm):mo%({CBM-G}p(cc)){CBM-R}m:mo{CBM-R}mm%(m):mc%({CBM-G}p(cc)){CBM-R}mo{$00}{$83}{esc}{CBM-W}{$00}{swuc}{$00}{f8}{esc}{CBM-H}{$00}{sret}621{$00}{CBM-F}{esc}{CBM-J}{$00}h{CBM-R}0:v{CBM-R}23:{sret}3:{lgrn}"which spell to cast";:l{CBM-R}2:{sret}4{$00}Z{esc}{CBM-L}{$00}s{CBM-R}E(x$):{f6}s{CBM-W}1{CBM-A}s{CBM-E}15{CBM-M}{sret}38:{f2}301{$00}{$f6}{esc}{CBM-Y}{$00}sl{CBM-R}{CBM-G}d(6):{f6}sn%(s){CBM-W}{CBM-R}0{CBM-M}181{$00}3{red}{CBM-U}{$00}gs{CBM-R}t:{sret}3:{lgrn}"{rvon}"sn$(s)"{rvof}"b$:h{CBM-R}15:y${CBM-R}"":x${CBM-R}"":sn%(s){CBM-R}sn%(s){CBM-Q}1{$00}h{red}{CBM-O}{$00}su{CBM-R}su{CBM-N}1:{sret}194:{sret}19{$00}{$66}{red}{SHIFT-@}{$00}ph{CBM-R}ph{CBM-N}{CBM-G}e(2):{f6}{CBM-G}d(9){CBM-R}1{CBM-M}lr{CBM-R}f{$00}{inst}{red}{CBM-F}{$00}{sret}242:{sret}38:h{CBM-R}25:v{CBM-R}23:{sret}3:{f6}gs{CBM-M}{lgrn}"failed";:{f2}193{$00}E{red}{CBM-C}{$00}{f6}s{CBM-R}14{CBM-M}k${CBM-R}"nothing":tf{CBM-R}f:y{CBM-R}pt%({CBM-G}p(cc),0):{f2}464{$00}{$f1}{red}{CBM-X}{$00}{f6}s{CBM-R}8{CBM-M}{lgrn}"dragon's eye";:v{CBM-R}24:h{CBM-R}h{CBM-N}({CBM-POUND}mh):{sret}3{$00}#{rght}{CBM-V}{$00}{f6}s{CBM-R}8{CBM-M}{lgrn}J(" iwa",{CBM-Q}mh{CBM-D}2{CBM-N}1,2)"s in "in$(hh);:{f2}193{$00}5{rght}{CBM-B}{$00}{lgrn}"succeeded";{$00}c{rght}{SHIFT-*}{$00}{f6}s{CBM-R}13{CBM-M}289{$00}\{rght}A{$00}{sret}19:x${CBM-R}"":k${CBM-R}"":{f2}291{$00}{$78}{rght}B{$00}df{CBM-R}{CBM-L}(cm{CBM-Q}sc%(s)):{f6}u{CBM-W}{CBM-R}0{CBM-M}{swuc}{$00}{clr}{rght}C{$00}pr{CBM-R}80{CBM-Q}df{CBM-D}20:{f6}df{CBM-R}3{CBM-M}pr{CBM-R}0{$00}{CBM-N}{rght}D{$00}{f6}{CBM-G}d(b){CBM-W}pr{CBM-N}u{CBM-Z}5{CBM-M}gs{CBM-R}f{$00}O{rght}E{$00}{f6}s{CBM-E}11{CBM-M}{up}s{CBM-Q}11{sret}202,226,240,207:{f2}199{$00}{CTRL-B}{grn}F{$00}{up}s{sret}218,239,213,202,223,231,238,206,231,219,220{$00}{swlc}{grn}G{$00}{f6}gs{CBM-M}201{$00}{blu}{grn}H{$00}u{CBM-R}u{CBM-Q}(b{CBM-Q}pr):{swuc}{$00}5{grn}I{$00}u{CBM-R}u{CBM-Q}{CBM-J}((b{CBM-Q}pr){CBM-Z}2):{swuc}{$00}^{grn}J{$00}{sret}371:i{CBM-R}0:x{CBM-R}c:c{CBM-R}{CBM-G}d(nc%(x)):{f6}x${CBM-R}""{CBM-M}202{$00}{$6d}{grn}K{$00}{f6}s{CBM-R}12{CBM-M}c{CBM-R}cl{$00}{$77}{grn}L{$00}{f6}gs{CBM-M}{swuc}{$00}{up}{grn}M{$00}tf{CBM-R}f:ct{CBM-R}x:cc{CBM-R}c:hd{CBM-R}f:{swuc}{$00}{CBM-K}{grn}N{$00}sl{CBM-R}9:hd{CBM-R}f:{swuc}{$00}Q{grn}O{$00}{sret}3:{lgrn}"forecast";:l{CBM-R}6:{sret}4:x{CBM-R}C(x$):i{CBM-R}1:{f6}x{CBM-R}0{CBM-M}207{$00}{$f5}{grn}P{$00}{f6}x${CBM-W}{CBM-E}H(we$(i),x){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}6{CBM-M}208{$00}{CTRL-F}{blu}Q{$00}y{CBM-R}i:{f6}i{CBM-R}6{CBM-M}207{$00}{blu}{blu}R{$00}h{CBM-R}h{CBM-N}9:{sret}3:{lgrn}we$(y)b7$;{$00}){blu}S{$00}{f6}gs{CBM-M}{swuc}{$00}={blu}T{$00}cm{CBM-R}{CBM-G}d(4):we{CBM-R}y:{swuc}{$00}{$73}{blu}U{$00}{sret}3:{lgrn}"which province";:l{CBM-R}2:{sret}4:c${CBM-R}x$:i{CBM-R}0:{f6}x${CBM-R}""{CBM-M}213{$00}{rvof}{blu}V{$00}{f6}c${CBM-W}{CBM-E}in$(i){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}7{CBM-M}214{$00}{CBM-T}{blu}W{$00}y{CBM-R}i:{f6}i{CBM-R}7{CBM-M}213{$00}{CBM-Z}{blu}X{$00}{f6}gs{CBM-M}{swuc}{$00}{CBM--}{blu}Y{$00}{orng}i{CBM-R}1{CBM-@}np%(y):mo%(pp%(y){CBM-N}i){CBM-R}0:{$82}i:y${CBM-R}"U{SHIFT-*}{SHIFT-*}K":{swuc}{$00}{$fb}{blu}Z{$00}{f6}{CBM-POUND}gs{CBM-M}ah{CBM-R}t:aa{CBM-R}f:al{CBM-R}f:hd{CBM-R}t:{swuc}{$00}{CTRL-Z} {SHIFT-+}{$00}{f6}{CBM-POUND}gs{CBM-M}ah{CBM-R}f:aa{CBM-R}t:al{CBM-R}t:hd{CBM-R}f:{swuc}{$00}$ {CBM--}{$00}{f6}gs{CBM-M}{swuc}{$00}5 {SHIFT--}{$00}{f6}sm{CBM-E}90{CBM-M}sm{CBM-R}90{$00}i {$de}{$00}sm{CBM-R}sm{CBM-N}10:r{CBM-R}sm:{swuc}{$00}s {CBM-*}{$00}{f6}gs{CBM-M}{swuc}{$00}{$64} {$e0}{$00}{f6}hm{CBM-E}90{CBM-M}hm{CBM-R}90{$00}{$78} {$e1}{$00}hm{CBM-R}hm{CBM-N}10:e{CBM-R}hm:{swuc}{$00}{CBM-P} {$e2}{$00}{sret}3:{lgrn}"forward or back";:l{CBM-R}1:{sret}4:{f6}x${CBM-W}{CBM-E}"f"{CBM-P}x${CBM-W}{CBM-E}"b"{CBM-M}226{$00}Q {$e3}{$00}y${CBM-R}x$:v{CBM-R}v{CBM-N}1:di{CBM-R}t:{f6}x${CBM-R}"f"{CBM-M}di{CBM-R}1{$00}{CTRL-G}!{$e4}{$00}hd{CBM-R}f:{sret}3:{lgrn}"how many days";:{sret}4:x{CBM-R}E(x$):{f6}x{CBM-R}0{CBM-A}x{CBM-E}7{CBM-M}228{$00}+!{$e5}{$00}{f6}{CBM-POUND}gs{CBM-M}dy{CBM-R}dy{CBM-N}di{CBM-D}x:tf{CBM-R}f:{f6}dy{CBM-W}1{CBM-M}dy{CBM-R}1{$00}1!{$e6}{$00}{swuc}{$00}{$66}!{$e7}{$00}{sret}3:{lgrn}"which monster";:l{CBM-R}9:{sret}4:x{CBM-R}C(x$):i{CBM-R}1:{f6}x{CBM-R}0{CBM-M}231{$00}{f8}!{$e8}{$00}{f6}x${CBM-W}{CBM-E}H(mn$(i),x){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}{CBM-R}nm{CBM-M}232{$00}{lblu}!{$e9}{$00}{f6}i{CBM-E}nm{CBM-M}231{$00}D!{$ea}{$00}h{CBM-R}h{CBM-N}14:{sret}3:y${CBM-R}mo$(i):{lgrn}mn$(i)b7$;:{f6}gs{CBM-M}{swuc}{$00}{$e0}!{$eb}{$00}{f6}s{CBM-R}9{CBM-M}ma%(i){CBM-R}{CBM-Q}3:md%(i){CBM-R}3{$00}{$fb}!{$ec}{$00}{f6}s{CBM-R}6{CBM-M}mm%(i){CBM-R}5:md%(i){CBM-R}1{$00}{CTRL-A}"{$ed}{$00}{swuc}{$00}{CTRL-W}"{$ee}{$00}{f6}{CBM-POUND}gs{CBM-M}lr{CBM-R}t:o{CBM-R}o{CBM-N}1:{swuc}{$00}1"{$ef}{$00}{f6}{CBM-POUND}gs{CBM-M}hm{CBM-R}b:sm{CBM-R}b:am{CBM-R}b:{swuc}{$00}s"{$f0}{$00}{f6}{CBM-POUND}gs{CBM-M}y${CBM-R}"Z{up}Q{down}{left}QQ{up}{left}\{down}Z":hd{CBM-R}f:{swuc}{$00}y"{$f1}{$00}{swuc}{$00}{f8}"{$f2}{$00}{sret}36:{f6}s{CBM-R}0{CBM-M}k${CBM-R}bd$:bd${CBM-R}"{rvon}v{down}{left} {rvof}":h{CBM-R}18:v{CBM-R}11:{sret}3:{lgrn}dd${$00}{CBM-O}"{$f3}{$00}t1{CBM-R}m:m{CBM-R}0:fp{CBM-R}7:{sret}22:{lgrn}"{rght}{rght}Q{down}{left}{left}{left}{CBM-D}{SHIFT-*}{rght}{SHIFT-*}{CBM-F}{left}{left}{left}"bd$;{$00}Q"{$f4}{$00}{f6}s{CBM-W}{CBM-E}0{CBM-M}{lgrn}"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{left}{up}{CBM-G}{$00}{$f2}"{$f5}{$00}{f6}s{CBM-R}0{CBM-M}{lgrn}"{CBM-G}{left}{left}{left}{CBM-M}{down}{left}{CBM-N}{rvon} {rvof}{CBM-H}{down}{left}{left}{left}{CBM-L}{rvon} {rvof}{CBM-J}{$00}{$fe}"{$f6}{$00}{f6}sl{CBM-M}{sret}41{$00}-#{$f7}{$00}{sret}22:{lgrn}"{rght}{CBM-F}Q{CBM-D}{down}{left}K{left}{left}{left}J"bd$;:{f6}s{CBM-W}{CBM-E}0{CBM-M}{lgrn}"{down}{CBM-G}{down}{left}{CBM-G}{left}{left}{CBM-G}{up}{left}{CBM-G}{$00}n#{$f8}{$00}{f6}s{CBM-R}0{CBM-M}{lgrn}"{CBM-G}{left}{left}{left}{CBM-M}{down}{left}{CBM-N}{rvon} {rvof}{CBM-H}{down}{left}{left}{left}{CBM-L}{rvon} {rvof}{CBM-J}{$00}{$7a}#{$f9}{$00}h{CBM-R}0:v{CBM-R}6:{sret}3:x{CBM-R}C(sn$(s)):{lgrn}"U"H(hb$,x{CBM-N}2)"I{$00}{CBM-Y}#{$fa}{$00}{lgrn}"{SHIFT--} "sn$(s)" {SHIFT--}"cr$"J"H(hb$,x{CBM-N}2)"K"cr$"{up}{rght}{rght}{rght}{rght}{CBM-R}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{$00}{$e5}#{$fb}{$00}{sret}22:{lgrn}"{rght}{rght}{rght}Q{CBM-@}{down}{left}{SHIFT-*}{left}{left}"bd$;:{f6}s{CBM-W}{CBM-E}0{CBM-M}{lgrn}"{down}M{down}{left}N{left}{left}{left}N{up}{CBM-G}{$00}
${$fc}{$00}{f6}s{CBM-R}0{CBM-M}bd${CBM-R}k$:{lgrn}"{CBM-G}{left}{left}{left}{CBM-M}{down}{left}{CBM-N}{rvon} {rvof}{CBM-H}{down}{left}{left}{left}{CBM-L}{rvon} {rvof}{CBM-J}{$00}:${$fd}{$00}m{CBM-R}t1:h{CBM-R}12:v{CBM-R}11:{sret}3:{up}{CBM-G}d(4){f2}254,256,258,261{$00}{$6e}${$fe}{$00}h{CBM-R}13:{orng}i{CBM-R}1{CBM-@}7:{sret}3:{lgrn}"{down}{left} {up}"mb$({CBM-G}d(6)):h{CBM-R}h{CBM-N}1:v{CBM-R}v{CBM-Q}1:{$82}i{$00}{orng}$~{$00}{sret}3:{lgrn}"{down}{left}*":{f2}265{$00}{CBM-Z}${$00}{CTRL-A}{lgrn}"N{up}N{up}N{up}N{up}N{up}N{up}N":{sret}3:{lgrn}"{down} {up}{left} {up} {up} {up} {up} {up} {up}*{$00}{CBM-L}${CTRL-A}{CTRL-A}{f2}265{$00}{$e4}${CTRL-B}{CTRL-A}{orng}i{CBM-R}1{CBM-@}7:{sret}3:{lgrn}"{rvon}{SHIFT-POUND}"H(db$,i{CBM-D}3)"{down}{left}";:{f6}i{CBM-W}4{CBM-M}{lgrn}"{rvof}";{$00}{CTRL-Y}%{stop}{CTRL-A}{lgrn}J("{CBM-T}{CBM-Y}{CBM-U}{CBM-I}{CBM-O}{CBM-P}{CBM-@}",i,1):v{CBM-R}v{CBM-Q}1:h{CBM-R}h{CBM-N}1:{$82}i:{lgrn}"{rvof}";:v{CBM-R}11:h{CBM-R}12{$00}m%{CTRL-D}{CTRL-A}{orng}i{CBM-R}1{CBM-@}7:{sret}3:{lgrn}" "H(db$,i{CBM-D}3{CBM-N}3);:h{CBM-R}h{CBM-N}1:v{CBM-R}v{CBM-Q}1:{$82}i:{f2}265{$00}{$67}%{wht}{CTRL-A}h{CBM-R}13:{orng}i{CBM-R}1{CBM-@}7:{orng}j{CBM-R}1{CBM-@}i:{sret}3{$00}{f2}%{CTRL-F}{CTRL-A}{lgrn}H(db$,{CBM-G}d(j){CBM-D}3)mb$({CBM-G}d(6));:{$82}j{$00}{CBM-+}%{CTRL-G}{CTRL-A}h{CBM-R}h{CBM-N}1:v{CBM-R}v{CBM-Q}1:{$82}i:v{CBM-R}11:h{CBM-R}13{$00}T%{dish}{CTRL-A}{orng}i{CBM-R}1{CBM-@}7:{sret}3:{lgrn}" "H(db$,i{CBM-D}3{CBM-N}4):h{CBM-R}h{CBM-N}1:v{CBM-R}v{CBM-Q}1:{$82}i{$00}{$f2}%{ensh}{CTRL-A}{sret}44:{lgrn}x$:{sret}44:{lgrn}bd$:{sret}44:{lgrn}na${$00}{CTRL-P}&{$0a}{CTRL-A}{orng}i{CBM-R}1{CBM-@}4:{sret}44:{lgrn}s$({CBM-G}e(11)):{$82}i{$00}<&{CTRL-K}{CTRL-A}v{CBM-R}4{CBM-N}{CBM-G}d(4):h{CBM-R}10{CBM-N}{CBM-G}d(10):{sret}3:{lgrn}y$:{sret}44:{lgrn}h$tt${$00}z&{CTRL-L}{CTRL-A}{orng}i{CBM-R}1{CBM-@}4:{sret}44:{lgrn}s$({CBM-G}e(11)):{$82}i{$00}{f8}&
{CTRL-A}{f6}sl{CBM-M}{orng}q{CBM-R}1{CBM-@}sl:{up}{CBM-G}d(6){sret}271,273,275,277,278,281:{$82}q{$00}{rvof}&{swlc}{CTRL-A}{swuc}{$00}{CBM-X}&{CTRL-O}{CTRL-A}ch{CBM-R}160:{sret}37:ch{CBM-R}102:{sret}37:{gry1}nz,14:ch{CBM-R}94:{sret}37{$00}{SHIFT--}&{CTRL-P}{CTRL-A}ch{CBM-R}127:{sret}37:{gry1}nz,12:ch{CBM-R}32:{f2}37{$00}{$0a}'{down}{CTRL-A}ch{CBM-R}95:{sret}37:{sret}18:{gry1}nz,14:{sret}18:{yel}826:{sret}18:{gry1}nz,12{$00}{CTRL-P}'{rvon}{CTRL-A}{swuc}{$00}>'{home}{CTRL-A}ch{CBM-R}105:{sret}37:{sret}18:{gry1}nz,14:{sret}18:{yel}826:{sret}18:{gry1}nz,12{$00}d'{del}{CTRL-A}{swuc}{$00}{$6e}'{CTRL-U}{CTRL-A}ch{CBM-R}64:{sret}37:{sret}18:ch{CBM-R}91:{sret}37:{sret}18:ch{CBM-R}93:{f2}37{$00}{up}'{CTRL-V}{CTRL-A}ch{CBM-R}b:{sret}37:ch{CBM-R}111:{sret}37:ch{CBM-R}121:{sret}37{$00}{CBM-J}'{CTRL-W}{CTRL-A}ch{CBM-R}98:{sret}37:ch{CBM-R}248:{sret}37:ch{CBM-R}247:{sret}37{$00}O'{CTRL-X}{CTRL-A}ch{CBM-R}227:{sret}37:ch{CBM-R}160:{f2}37{$00}{$fd}'{CTRL-Y}{CTRL-A}ch{CBM-R}78:{sret}37:{sret}18:ch{CBM-R}86:{sret}37:{sret}18:ch{CBM-R}77:{sret}37:{sret}18{$00}{CTRL-K}({CTRL-Z}{CTRL-A}ch{CBM-R}86:{f2}37{$00}8({esc}{CTRL-A}ch{CBM-R}102:{sret}37:h{CBM-R}14:v{CBM-R}12:{sret}3:{lgrn}"{rvon} night time {rvof}{$00}y({red}{CTRL-A}al{CBM-R}f:hd{CBM-R}f:{f6}{CBM-G}d(9){CBM-R}1{CBM-M}aa{CBM-R}f:ah{CBM-R}f{$00}{$71}({rght}{CTRL-A}hm{CBM-R}hm{CBM-N}rh:{f6}hm{CBM-E}b{CBM-M}hm{CBM-R}b{$00}{f2}({grn}{CTRL-A}sm{CBM-R}sm{CBM-N}rs:{f6}sm{CBM-E}b{CBM-M}sm{CBM-R}b{$00}{CBM-K}({blu}{CTRL-A}am{CBM-R}am{CBM-N}ru:{f6}am{CBM-E}b{CBM-M}am{CBM-R}b{$00}{CBM-Y}( {CTRL-A}{orng}j{CBM-R}1{CBM-@}6:{yel}826:{sret}17:{$82}{$00}F(!{CTRL-A}{f6}dy{CBM-E}21{CBM-M}327{$00}{$e5}("{CTRL-A}ph{CBM-R}0:cm{CBM-R}{CBM-G}d(4):we{CBM-R}{CBM-G}d(5):{sret}38{$00}{$fb}(#{CTRL-A}c{CBM-R}0:{f6}ah{CBM-M}hd{CBM-R}t:al{CBM-R}f{$00}{CTRL-D})${CTRL-A}{sret}175{$00}$)%{CTRL-A}h{CBM-R}24:v{CBM-R}24:l{CBM-R}15:{sret}14:v{CBM-R}23:{sret}14{$00}:)&{CTRL-A}v{CBM-R}22:{sret}14:{f6}m{CBM-R}0{CBM-M}297{$00}])'{CTRL-A}h{CBM-R}24:{sret}3:{lgrn}"{rvon}"mn$(m)"{rvof}";:{f6}{CBM-POUND}hd{CBM-M}45{$00}{$7a})({CTRL-A}v{CBM-R}23:{sret}3:{lgrn}"{rvon}f{rvof} to fight";{$00}{lgrn})){CTRL-A}e{CBM-R}{CBM-J}(e{CBM-N}{CBM-L}(e{CBM-D}.05)):{f6}e{CBM-E}hm{CBM-M}e{CBM-R}hm{$00}{CBM-U})*{CTRL-A}r{CBM-R}{CBM-J}(r{CBM-N}{CBM-L}(r{CBM-D}.05)):{f6}r{CBM-E}sm{CBM-M}r{CBM-R}sm{$00}W)+{CTRL-A}u{CBM-R}{CBM-J}(u{CBM-N}{CBM-L}(u{CBM-D}.05)):{f6}u{CBM-E}am{CBM-M}u{CBM-R}am{$00}{$f9}),{CTRL-A}ph{CBM-R}ph{CBM-N}1:{f6}ph{CBM-E}we{CBM-N}1{CBM-M}dy{CBM-R}dy{CBM-N}1:{f2}283{$00}{CTRL-B}*-{CTRL-A}{sret}397{$00}{$0a}*.{CTRL-A}{sret}24{$00}@*/{CTRL-A}h{CBM-R}0:v{CBM-R}24:{sret}3:{lgrn}"command {rvon} {rvof}";:{CBM-K}x$:q{CBM-R}{CBM-F}(.):{f6}x${CBM-R}""{CBM-M}392{$00}z*0{CTRL-A}l{CBM-R}9:{sret}14:h{CBM-R}24:l{CBM-R}15:{sret}14{$00}{$70}*1{CTRL-A}v{CBM-R}23:{sret}14:v{CBM-R}22:{sret}14{$00}{CBM-W}*2{CTRL-A}{gry1}sa{CBM-N}x%({CBM-G}p(cc)){CBM-Q}b{CBM-D}{CBM-J}(x%({CBM-G}p(cc)){CBM-Z}b){CBM-N}{CBM-J}(x%({CBM-G}p(cc)){CBM-Z}b{CBM-Q}1){CBM-D}40{CBM-N}1,cc{CBM-N}176{$00}{SHIFT--}*3{CTRL-A}{f6}x${CBM-R}"m"{CBM-M}h{CBM-R}0:v{CBM-R}24:{sret}370:ct{CBM-R}c:cc{CBM-R}cl:{f2}388{$00}{esc}+4{CTRL-A}{f6}(x${CBM-R}"q"{CBM-A}x${CBM-R}"p"){CBM-P}ct{CBM-W}{CBM-E}0{CBM-M}h{CBM-R}0:v{CBM-R}24:{sret}3:{lgrn}"not in fc";:{sret}19:{f2}303{$00}0+5{CTRL-A}{f6}x${CBM-R}"q"{CBM-P}ct{CBM-R}0{CBM-M}327{$00}]+6{CTRL-A}{f6}x${CBM-R}"p"{CBM-M}{sret}39:h{CBM-R}0:v{CBM-R}24:{sret}3:{lgrn}"points"sc;:{sret}19{$00}{$77}+7{CTRL-A}{f6}x${CBM-R}"p"{CBM-M}l{CBM-R}12:{sret}14:{f2}303{$00}{f3}+8{CTRL-A}{f6}x${CBM-R}"f"{CBM-M}45{$00}{lred}+9{CTRL-A}{f6}x${CBM-R}"s"{CBM-M}180{$00}{CBM-E}+:{CTRL-A}{f6}x${CBM-R}"b"{CBM-M}al{CBM-R}t:hd{CBM-R}f:{f2}291{$00}A+;{CTRL-A}{f6}x${CBM-R}"e"{CBM-M}451{$00}{CBM--}+<{CTRL-A}{f6}x${CBM-R}"c"{CBM-M}hd{CBM-R}t:al{CBM-R}f:{f2}291{$00}{$f2}+={CTRL-A}{f6}x${CBM-R}"v"{CBM-M}{sret}410:{f2}301{$00}{CTRL-B},>{CTRL-A}{f6}x${CBM-R}"r"{CBM-M}365{$00}#,?{CTRL-A}h{CBM-R}24:v{CBM-R}23:{sret}3:{lgrn}"{rvon}bcempqrsv{rvof}";{$00},,@{CTRL-A}{f2}302{$00}>,a{CTRL-A}{f6}{CBM-G}d(b){CBM-W}75{CBM-M}586{$00}{$69},b{CTRL-A}{lgrn}"{clr}"H(d$,5){CBM-+}15)"UCDEDCI":{lgrn}{CBM-+}15)"B"{CBM-+}5)"H{$00}{lgrn},c{CTRL-A}{lgrn}{CBM-+}15)"{SHIFT--} W{$a0}W {SHIFT--}":{lgrn}{CBM-+}15)"H     B":{lgrn}{CBM-+}15)"J{SHIFT--}{CBM-Q}{SHIFT-+}{CBM-W}{SHIFT--}K{$00}{SHIFT-*},d{CTRL-A}{lgrn}{CBM-+}16)"JFRFK":{lgrn}{CBM-+}12)"{down}UIFR {CBM-@}RF{SHIFT-*}CDE{CBM-T}>{$00}{$ef},e{CTRL-A}{lgrn}{CBM-+}12)"{CBM-Q} DE{CBM-T}{CBM-@}RF{SHIFT-*}CDE{CBM-T}I":{lgrn}{CBM-+}12)"JCDE{CBM-T}  {CBM-T}EDC{SHIFT-*}FK{$00}{ensh}-f{CTRL-A}{lgrn}{CBM-+}15)"{down}{down}{down}%&$#@ !":{sret}19{$00}f-g{CTRL-A}{lgrn}"{clr}U{CBM-R}K{down}{left}{left}{SHIFT--}{down}{left}J{up}hus spak{up}{left}T{down}e"h$"{down}K{up}{left}{SHIFT--}{SHIFT--}{SHIFT--}{down}{left}J{up}{up}{left}{left}{left}U{CBM-R}I{down}age :-{$00}{$7c}-h{CTRL-A}{lgrn}"{down}{down}  "G(34)G(34)G(20)"thy time is up "na$h$tt$"{down}{$00}{lblu}-i{CTRL-A}k${CBM-R}"      ...":{lgrn}k$"you ";{$00}{CBM-D}-j{CTRL-A}{f6}mh{CBM-M}{lgrn}"found";{$00}E-k{CTRL-A}{f6}{CBM-POUND}mh{CBM-M}{lgrn}"didn't find";{$00}{$eb}-l{CTRL-A}{lgrn}" the eye!{down}":{f6}{CBM-POUND}mh{CBM-M}{lgrn}"    however{down}{$00}#.m{CTRL-A}{f6}nk{CBM-M}{lgrn}k$"you killed"nk"monster"J("s ",{CBM-Q}((nk{CBM-R}1){CBM-Q}1),1){$00}n.n{CTRL-A}{lgrn}"{down}"k$"you found";:{f6}tx{CBM-A}gl{CBM-A}je{CBM-A}ag{CBM-M}{lgrn}:{f2}336{$00}{$65}.o{CTRL-A}{lgrn}" nothing ?":{f2}340{$00}{rvof}.p{CTRL-A}{f6}tx{CBM-M}{lgrn}k$tx"treasure"J("s ",{CBM-Q}((tx{CBM-R}1){CBM-Q}1),1){$00}{CBM-D}.q{CTRL-A}{f6}gl{CBM-M}{lgrn}k$gl"gold pieces{$00}F.r{CTRL-A}{f6}ag{CBM-M}{lgrn}k$ag"silver bits{$00}{SHIFT-+}.s{CTRL-A}{f6}je{CBM-M}{lgrn}k$je"jewels{$00}{CTRL-V}/t{CTRL-A}{lgrn}"{down}    ";:{f6}e{CBM-W}0{CBM-M}{lgrn}"unfortunately you were killed!";:{f2}346{$00}6/u{CTRL-A}{lgrn}"you ";:{f6}ct{CBM-R}0{CBM-M}{lgrn}"got";:{f2}343{$00}i/v{CTRL-A}{lgrn}"didn't get";{$00}{$7e}/w{CTRL-A}{lgrn}" back to fel city";:{f6}ct{CBM-R}0{CBM-P}cc{CBM-R}cb{CBM-M}{lgrn}cb{CBM-N}1"{left}";:{f2}346{$00}{sret}/x{CTRL-A}{f6}ct{CBM-W}{CBM-E}4{CBM-M}346{$00}{CBM-E}/y{CTRL-A}{lgrn}cr$"    but not to fc"cb{CBM-N}1"{left}";{$00}{$e4}/z{CTRL-A}{sret}39:{f6}sc{CBM-W}250{CBM-M}{lgrn}cr$"    i am very disappointed!";{$00}{CTRL-O}0[{CTRL-A}{f6}sc{CBM-E}3500{CBM-M}{lgrn}cr$"    i am very pleased!";{$00}{CTRL-Z}0\{CTRL-A}{lgrn}G(34){$00}:0]{CTRL-A}{lgrn}"{down}{down}{rvon}this rates you as a ";{$00}w0^{CTRL-A}{f6}sc{CBM-W}b{CBM-M}{lgrn}"terrible!";:{f2}359{$00}{$71}0_{CTRL-A}{f6}sc{CBM-W}500{CBM-M}{lgrn}"poor";:{f2}359{$00}{f8}0{$60}{CTRL-A}{f6}sc{CBM-W}1000{CBM-M}{lgrn}"fair";:{f2}359{$00}{CBM-M}0{$61}{CTRL-A}{f6}sc{CBM-W}1500{CBM-M}{lgrn}"good";:{f2}359{$00}G0{$62}{CTRL-A}{f6}sc{CBM-W}2000{CBM-M}{lgrn}"very good";:{f2}359{$00}{$ea}0{$63}{CTRL-A}{f6}sc{CBM-W}2500{CBM-M}{lgrn}"{left}n excellent";:{f2}359{$00}{wht}1{$64}{CTRL-A}{f6}sc{CBM-E}6000{CBM-M}{lgrn}"{left}n ultra ";{$00}{rght}1{$65}{CTRL-A}{f6}sc{CBM-E}3999{CBM-M}{lgrn}"grand ";{$00}<1{$66}{CTRL-A}{lgrn}"master";:{f6}sc{CBM-E}4000{CBM-M}{lgrn}:{f2}360{$00}k1{$67}{CTRL-A}{lgrn}" player{rvof}{$00}{$7c}1{$68}{CTRL-A}{lgrn}cr$"your score:"sc"another game (y/n) {rvon} {rvof}";{$00}{CBM-T}1{$69}{CTRL-A}{sret}24:na${CBM-R}"":dd${CBM-R}"":sl{CBM-R}0:x${CBM-R}"":y${CBM-R}""{$00}{CBM-L}1{$6a}{CTRL-A}{CBM-K}c$:{f6}c${CBM-R}""{CBM-M}362{$00}{$f3}1{$6b}{CTRL-A}h${CBM-R}"":s{CBM-R}0:sn$(0){CBM-R}"game":{f6}c${CBM-R}"y"{CBM-A}c${CBM-R}"{rvon}"{CBM-A}c${CBM-R}" "{CBM-A}c${CBM-R}G(13){CBM-M}{f4}{$00}%2{$6c}{CTRL-A}bd${CBM-R}"":tt${CBM-R}"":{sret}242:v{CBM-R}2:h{CBM-R}11:{sret}482:{sret}19:{CBM-K}c$:{f2}363{$00}?2{$6d}{CTRL-A}x{CBM-R}1:{f6}ph{CBM-R}1{CBM-A}ph{CBM-R}we{CBM-N}1{CBM-M}x{CBM-R}2{$00}{$61}2{$6e}{CTRL-A}e{CBM-R}{CBM-J}(e{CBM-N}x{CBM-D}{CBM-L}(e{CBM-D}.2){CBM-N}2):{f6}e{CBM-E}hm{CBM-M}e{CBM-R}hm{$00}{$83}2{$6f}{CTRL-A}u{CBM-R}{CBM-J}(u{CBM-N}x{CBM-D}{CBM-L}(u{CBM-D}.1){CBM-N}3):{f6}u{CBM-E}am{CBM-M}u{CBM-R}am{$00}{CBM-+}2{$70}{CTRL-A}r{CBM-R}{CBM-J}(r{CBM-N}x{CBM-D}{CBM-L}(r{CBM-D}.15){CBM-N}2):{f6}r{CBM-E}sm{CBM-M}r{CBM-R}sm{$00}{CBM-P}2{$71}{CTRL-A}{f2}291{$00}S2{$72}{CTRL-A}t2{CBM-R}t:{f6}r{CBM-W}{CBM-R}0{CBM-M}{sret}13:c{CBM-R}ct:cc{CBM-R}cl:{sret}19:{swuc}{$00}{CTRL-D}3{$73}{CTRL-A}c{CBM-R}ct:{sret}3:{lgrn}"move to"b7$;:l{CBM-R}3:{sret}4:{f6}x${CBM-R}""{CBM-M}cl{CBM-R}cc:{swuc}{$00}{CTRL-Z}3{$74}{CTRL-A}t2{CBM-R}f:{f6}C(x$){CBM-W}3{CBM-M}371{$00}@3{$75}{CTRL-A}in${CBM-R}H(x$,2):y{CBM-R}E(I(x$,1)):{f6}y{CBM-R}0{CBM-M}371{$00}m3{$76}{CTRL-A}cl{CBM-R}y:i{CBM-R}0{$00}{$6d}3{$77}{CTRL-A}{f6}in${CBM-W}{CBM-E}in$(i){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}7{CBM-M}375{$00}{$7a}3{$78}{CTRL-A}{f6}i{CBM-R}7{CBM-M}371{$00}{up}3{$79}{CTRL-A}c{CBM-R}i:{f6}cl{CBM-E}nc%(c){CBM-M}371{$00}{SHIFT-POUND}3{$7a}{CTRL-A}x{CBM-R}c{CBM-D}b{CBM-N}cl:i{CBM-R}1:{f6}h{CBM-E}0{CBM-M}{swuc}{$00}N3{$7b}{CTRL-A}{f6}pt%({CBM-G}p(cc),i){CBM-W}{CBM-E}x{CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}5{CBM-M}379{$00}Y3{$7c}{CTRL-A}{f6}i{CBM-W}5{CBM-M}{swuc}{$00}{$f6}3{$7d}{CTRL-A}y{CBM-R}ct{CBM-D}10{CBM-N}cc:x{CBM-R}c{CBM-D}10{CBM-N}cl:i{CBM-R}1{$00}'4{$7e}{CTRL-A}{f6}(hp%(i,0){CBM-W}{CBM-E}y){CBM-A}(hp%(i,1){CBM-W}{CBM-E}x){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}19{CBM-M}382{$00}34{$7f}{CTRL-A}{f6}i{CBM-W}19{CBM-M}{swuc}{$00}d4{$80}{CTRL-A}i{CBM-R}1:{f6}{CBM-POUND}lr{CBM-M}371{$00}{$76}4{orng}{CTRL-A}{f6}(hp%(i,0){CBM-W}{CBM-E}y){CBM-A}(hp%(i,1){CBM-W}{CBM-E}{CBM-Q}x){CBM-M}i{CBM-R}i{CBM-N}1:{f6}i{CBM-W}19{CBM-M}385{$00}{$82}4{$82}{CTRL-A}{f6}i{CBM-W}19{CBM-M}{swuc}{$00}{f6}4{$83}{CTRL-A}{f2}371{$00}{CBM-N}4{$84}{CTRL-A}{f6}t2{CBM-M}l{CBM-R}14:h{CBM-R}0:v{CBM-R}24:{sret}14:{f2}301{$00}U4{f1}{CTRL-A}t3{CBM-R}t:{f6}{CBM-POUND}t2{CBM-M}t3{CBM-R}hd{CBM-D}({CBM-G}d(2){CBM-R}2){CBM-Q}al{CBM-D}({CBM-G}d(3){CBM-R}3){$00}{$f9}4{f3}{CTRL-A}t2{CBM-R}f:ph{CBM-R}ph{CBM-N}t3:tf{CBM-R}f:r{CBM-R}{CBM-J}(r{CBM-D}.9{CBM-N}t3){$00}{del}5{f5}{CTRL-A}l{CBM-R}14:h{CBM-R}0:v{CBM-R}24:{sret}14:{f2}291{$00}t5{f7}{CTRL-A}c{CBM-R}c{CBM-N}1:h{CBM-R}x%({CBM-G}p(cc)){CBM-Q}b{CBM-D}{CBM-J}(x%({CBM-G}p(cc)){CBM-Z}b):v{CBM-R}{CBM-J}(x%({CBM-G}p(cc)){CBM-Z}b{CBM-Q}1):{sret}3{$00}{$6e}5{f2}{CTRL-A}{f6}iv{CBM-M}{lgrn}"{rvon} {rvof}";:iv{CBM-R}f:{f2}395{$00}{f6}5{f4}{CTRL-A}iv{CBM-R}t:{gry1}sa{CBM-N}v{CBM-D}40{CBM-N}h{CBM-N}1,cc{CBM-N}176{$00}{lblu}5{f6}{CTRL-A}{f6}c{CBM-E}300{CBM-M}291{$00}{CBM-T}5{f8}{CTRL-A}{f2}303{$00}O5{sret}{CTRL-A}h{CBM-R}25:v{CBM-R}2:{sret}3:{lgrn}"position: "in$(ct)cc"{left} ";{$00}{$f6}5{swuc}{CTRL-A}v{CBM-R}3:h{CBM-R}26:{sret}3:{lgrn}"move:";:h{CBM-R}31:l{CBM-R}8:{sret}14{$00}{$0a}6{$8f}{CTRL-A}{f6}al{CBM-M}hd{CBM-R}f:{lgrn}"bold{$00}"6{blk}{CTRL-A}{f6}hd{CBM-M}al{CBM-R}f:{lgrn}"cautious{$00}86{up}{CTRL-A}{f6}{CBM-POUND}al{CBM-P}{CBM-POUND}hd{CBM-M}{lgrn}"normal{$00}_6{rvof}{CTRL-A}v{CBM-R}0:h{CBM-R}23:l{CBM-R}17:{sret}14:{lgrn}"power:"cm$(cm){$00}{f1}6{clr}{CTRL-A}v{CBM-R}1:h{CBM-R}24:{sret}3:{lgrn}"weather:"b7$we$(we){$00}{left}6{inst}{CTRL-A}dt{CBM-R}ph:{f6}we{CBM-W}4{CBM-M}dt{CBM-R}ph{CBM-N}1{$00}{CBM-E}6{brn}{CTRL-A}{f6}we{CBM-R}1{CBM-P}ph{CBM-R}2{CBM-M}dt{CBM-R}4{$00}Y6{lred}{CTRL-A}v{CBM-R}0:h{CBM-R}0:{sret}3:{lgrn}"{rvon}day{rvof}"dy"{left} "t$(dt)b7$;{$00}{CTRL-O}7{gry1}{CTRL-A}v{CBM-R}1:{sret}3:{lgrn}v$(2)H(D(r){CBM-N}"%  ",6):v{CBM-R}2:{sret}3:{lgrn}v$(1)e"{left}%  "{$00}(7{gry2}{CTRL-A}v{CBM-R}3:{sret}3:{lgrn}v$(3)u"{left}%  "{$00}.7{lgrn}{CTRL-A}{swuc}{$00}x7{lblu}{CTRL-A}{f6}pn{CBM-R}0{CBM-M}h{CBM-R}0:v{CBM-R}25:{sret}3:{lgrn}"no more  ";:{sret}19:{swuc}{$00}{lred}7{gry3}{CTRL-A}{lgrn}"{clr}IU{down}{left}{left}J{CBM-W}{down}{left}{left}JK{up}ou have ";:{f6}pn{CBM-R}1{CBM-M}{lgrn}"but one vial{up}{left}T{down}":{f2}413{$00}{CBM-A}7{pur}{CTRL-A}{lgrn}"these vial{up}{left}T{down}s :-"{$00}{CBM-B}7{left}{CTRL-A}h{CBM-R}5:{orng}i{CBM-R}1{CBM-@}3{$00}{$ed}7{yel}{CTRL-A}v{CBM-R}5{CBM-N}2{CBM-D}i:{f6}p%(i){CBM-M}{sret}3:{lgrn}v$(i);:{f6}p%(i){CBM-E}1{CBM-M}{lgrn}p%(i){$00}{$f4}7{cyn}{CTRL-A}{$82}i{$00}$8{$a0}{CTRL-A}l{CBM-R}2:h{CBM-R}0:v{CBM-R}17:{sret}3:{lgrn}"which vial to imbibe";:{sret}4{$00}68{CBM-K}{CTRL-A}{f6}x${CBM-R}""{CBM-A}ef{CBM-M}423{$00}{$6a}8{CBM-I}{CTRL-A}{f6}(x${CBM-R}"h"{CBM-A}x${CBM-R}"he"){CBM-P}p%(1){CBM-E}0{CBM-M}x{CBM-R}1:i{CBM-R}e:e{CBM-R}b:hm{CBM-R}b:{f2}422{$00}{yel}8{CBM-T}{CTRL-A}{f6}(x${CBM-R}"s"{CBM-A}x${CBM-R}"st"){CBM-P}p%(2){CBM-E}0{CBM-M}x{CBM-R}2:i{CBM-R}r:r{CBM-R}b:sm{CBM-R}b:{f2}422{$00}R8{CBM-@}{CTRL-A}{f6}(x${CBM-R}"a"{CBM-A}x${CBM-R}"au"){CBM-P}p%(3){CBM-E}0{CBM-M}x{CBM-R}3:i{CBM-R}u:u{CBM-R}b:am{CBM-R}b:{f2}422{$00}{SHIFT-+}8{CBM-G}{CTRL-A}{f2}416{$00}{wht}9{CBM-+}{CTRL-A}pn{CBM-R}pn{CBM-Q}1:p%(x){CBM-R}p%(x){CBM-Q}1:h{CBM-R}21:{sret}3:{lgrn}v$(x);{$00}{swlc}9{CBM-M}{CTRL-A}{f2}424{$00}"9{CBM-POUND}{CTRL-A}x{CBM-R}40:y{CBM-R}25:p{CBM-R}200{$00}59{SHIFT-POUND}{CTRL-A}{up}{CBM-G}d(2){f2}426,427{$00}{$64}9{CBM-N}{CTRL-A}{up}{CBM-G}d(9){f2}430,434,438,440,442,444,446,448,431{$00}{clr}9{CBM-Q}{CTRL-A}{up}{CBM-G}d(9){f2}428,431,437,439,441,443,445,447,449{$00}{CBM-X}9{CBM-D}{CTRL-A}{orng}i{CBM-R}0{CBM-@}12:a{CBM-R}sa{CBM-N}(12{CBM-Q}i){CBM-D}x:d{CBM-R}2{CBM-D}i{CBM-N}1:w{CBM-R}x:{sret}15{$00}{CBM-*}9{CBM-Z}{CTRL-A}a{CBM-R}sa{CBM-N}20{CBM-Q}i:d{CBM-R}y:w{CBM-R}2{CBM-D}i{CBM-N}1:{sret}15:{$82}:{swuc}{$00}{$f4}9{CBM-S}{CTRL-A}a{CBM-R}sa:w{CBM-R}x:d{CBM-R}y:{f2}15{$00}{CTRL-Y}:{CBM-P}{CTRL-A}n{CBM-R}x:w{CBM-R}5:d{CBM-R}5:{sret}34:{orng}i{CBM-R}1{CBM-@}x:j{CBM-R}r%(i){CBM-Q}1{$00}::{CBM-A}{CTRL-A}a{CBM-R}sa{CBM-N}5{CBM-D}(j{CBM-Q}{CBM-J}(j{CBM-Z}8){CBM-D}8){CBM-N}{CBM-J}(j{CBM-Z}8){CBM-D}p{$00}f:{CBM-E}{CTRL-A}{sret}15:{$82}:{swuc}{$00}{$61}:{CBM-R}{CTRL-A}{orng}i{CBM-R}1{CBM-@}20:d{CBM-R}i{CBM-D}2:{f6}d{CBM-E}y{CBM-M}d{CBM-R}y{$00}{$84}:{CBM-W}{CTRL-A}w{CBM-R}2{CBM-D}i:a{CBM-R}sa{CBM-N}20{CBM-Q}i{CBM-N}x{CBM-D}({CBM-J}((y{CBM-Q}d){CBM-Z}2)){$00}{blk}:{CBM-H}{CTRL-A}{sret}15:{$82}:{swuc}{$00}{SHIFT-@}:{CBM-J}{CTRL-A}w{CBM-R}x:{orng}i{CBM-R}24{CBM-@}0{SHIFT-POUND}{CBM-Q}1:d{CBM-R}y{CBM-Q}i:a{CBM-R}sa{CBM-N}i{CBM-D}x:{sret}15:{$82}:{swuc}{$00}Z:{CBM-L}{CTRL-A}d{CBM-R}y:a{CBM-R}sa:{orng}i{CBM-R}1{CBM-@}x:w{CBM-R}i:{sret}15:{$82}:{swuc}{$00}{$fa}:{CBM-Y}{CTRL-A}w{CBM-R}x:a{CBM-R}sa:{orng}i{CBM-R}1{CBM-@}y:d{CBM-R}i:{sret}15:{$82}:{swuc}{$00}";{CBM-U}{CTRL-A}d{CBM-R}y:{orng}i{CBM-R}39{CBM-@}0{SHIFT-POUND}{CBM-Q}1:w{CBM-R}x{CBM-Q}i:a{CBM-R}sa{CBM-N}i:{sret}15:{$82}:{swuc}{$00}p;{CBM-O}{CTRL-A}w{CBM-R}x:{orng}i{CBM-R}0{CBM-@}12:d{CBM-R}2{CBM-D}i{CBM-N}1:a{CBM-R}sa{CBM-N}(12{CBM-Q}i){CBM-D}x:{sret}15:{$82}:{swuc}{$00}{$78};{SHIFT-@}{CTRL-A}{orng}i{CBM-R}1{CBM-@}20:d{CBM-R}y:w{CBM-R}2{CBM-D}i:a{CBM-R}sa{CBM-N}20{CBM-Q}i:{sret}15:{$82}:{swuc}{$00}{CBM-+};{CBM-F}{CTRL-A}d{CBM-R}y:{orng}i{CBM-R}1{CBM-@}20:w{CBM-R}i:a{CBM-R}sa:{sret}15:a{CBM-R}sa{CBM-N}x{CBM-Q}i:{sret}15:{$82}:{swuc}{$00}X;{CBM-C}{CTRL-A}w{CBM-R}x:{orng}i{CBM-R}1{CBM-@}13:d{CBM-R}i:a{CBM-R}sa:{sret}15:a{CBM-R}sa{CBM-N}x{CBM-D}(y{CBM-Q}i):{sret}15:{$82}:{swuc}{$00}{CTRL-F}<{CBM-X}{CTRL-A}w{CBM-R}x:{orng}i{CBM-R}1{CBM-@}5:d{CBM-R}i:{orng}j{CBM-R}0{CBM-@}4:a{CBM-R}sa{CBM-N}j{CBM-D}p:{sret}15:{$82}j,i:{swuc}{$00}4<{CBM-V}{CTRL-A}d{CBM-R}y:{orng}i{CBM-R}1{CBM-@}5:w{CBM-R}i:{orng}j{CBM-R}0{CBM-@}7:a{CBM-R}sa{CBM-N}j{CBM-D}5:{sret}15:{$82}j,i:{swuc}{$00}{$6d}<{CBM-B}{CTRL-A}d{CBM-R}5:w{CBM-R}5:{orng}i{CBM-R}0{CBM-@}39:a{CBM-R}sa{CBM-N}{CBM-J}(i{CBM-Z}8){CBM-D}p{CBM-N}5{CBM-D}(i{CBM-Q}{CBM-J}(i{CBM-Z}8){CBM-D}8):{sret}15:{$82}:{swuc}{$00}{CBM-+}<{SHIFT-*}{CTRL-A}d{CBM-R}5:w{CBM-R}5:{orng}i{CBM-R}0{CBM-@}39:a{CBM-R}sa{CBM-N}{CBM-J}(i{CBM-Z}5){CBM-D}5{CBM-N}p{CBM-D}(i{CBM-Q}{CBM-J}(i{CBM-Z}5){CBM-D}5):{sret}15:{$82}:{swuc}{$00}T<A{CTRL-A}{orng}i{CBM-R}1{CBM-@}13:w{CBM-R}x:d{CBM-R}i:a{CBM-R}sa:{sret}15:a{CBM-R}sa{CBM-N}x{CBM-D}(y{CBM-Q}i):{sret}15{$00}{$fb}<B{CTRL-A}w{CBM-R}i:d{CBM-R}y:a{CBM-R}sa:{sret}15:a{CBM-R}sa{CBM-N}x{CBM-Q}i:{sret}15:{$82}i:{swuc}{$00};=C{CTRL-A}x${CBM-R}"":h{CBM-R}0:v{CBM-R}24:{sret}3:{lgrn}"examining";:k${CBM-R}"nothing":x{CBM-R}ct{CBM-D}10{CBM-N}cc:p{CBM-R}0{$00}{$66}=D{CTRL-A}{orng}i{CBM-R}1{CBM-@}nh:{f6}(x{CBM-R}hp%(i,0)){CBM-P}(hp%(i,1){CBM-W}0){CBM-M}p{CBM-R}i{$00}{$7d}=E{CTRL-A}{$82}i:x{CBM-R}{CBM-G}d(b):{f6}lr{CBM-M}455{$00}{rvof}=F{CTRL-A}{f6}x{CBM-W}50{CBM-Q}o{CBM-D}10{CBM-Z}2{CBM-M}p{CBM-R}0{$00}{cyn}=G{CTRL-A}{f6}p{CBM-R}0{CBM-M}462{$00}{CBM-L}=H{CTRL-A}{up}{CBM-G}d(3){f2}457,458,459{$00}Q=I{CTRL-A}k${CBM-R}"hidden":u{CBM-R}u{CBM-N}1:{f2}460{$00}{$eb}=J{CTRL-A}k${CBM-R}"magic":u{CBM-R}u{CBM-Q}2:{f2}460{$00}{CTRL-F}>K{CTRL-A}k${CBM-R}"secret":u{CBM-R}u{CBM-N}1:{f2}460{$00}8>L{CTRL-A}hp%(p,1){CBM-R}{CBM-L}(hp%(p,1)):c{CBM-R}hp%(p,1):k${CBM-R}k${CBM-N}" path"{$00}{$62}>M{CTRL-A}x${CBM-R}"to "{CBM-N}in$(ct){CBM-N}D(c{CBM-Q}{CBM-J}(c{CBM-Z}10){CBM-D}10):{f2}480{$00}{$7e}>N{CTRL-A}{f6}{CBM-G}d(9){CBM-R}1{CBM-M}k${CBM-R}rn$({CBM-G}d(20)){$00}{CBM-V}>O{CTRL-A}y{CBM-R}pt%({CBM-G}p(cc),0):{f6}x{CBM-W}75{CBM-Q}o{CBM-D}10{CBM-N}lr{CBM-D}25{CBM-N}hd{CBM-D}10{CBM-Q}al{CBM-D}5{CBM-N}y{CBM-Q}2{CBM-D}y{CBM-D}(y{CBM-W}0){CBM-M}480{$00}W>P{CTRL-A}{f6}{CBM-G}p(cc){CBM-W}9{CBM-A}y{CBM-R}0{CBM-A}tf{CBM-M}480{$00}{$fe}>Q{CTRL-A}tf{CBM-R}t:x{CBM-R}0:{f6}y{CBM-E}0{CBM-M}pt%({CBM-G}p(cc),0){CBM-R}{CBM-Q}{CBM-G}e(6){$00}{CTRL-K}?R{CTRL-A}{f6}y{CBM-W}0{CBM-M}471{$00}{CTRL-X}?S{CTRL-A}{f6}y{CBM-W}4{CBM-M}470{$00}i?T{CTRL-A}{up}y{CBM-Q}3{sret}714,728,694,629,577,637,679,651,662,617{$00}{$63}?U{CTRL-A}tx{CBM-R}tx{CBM-N}1:{sret}19:{sret}424:{f2}293{$00}{clr}?V{CTRL-A}p%(y){CBM-R}p%(y){CBM-N}1:pn{CBM-R}pn{CBM-N}1:k${CBM-R}v$(y){CBM-N}" vial":{f2}480{$00}{CBM-F}?W{CTRL-A}{up}{CBM-G}d(9){sret}472,473,474,475,476,478:{f2}479{$00}{$eb}?X{CTRL-A}x{CBM-R}{CBM-G}d(98){CBM-N}1:ag{CBM-R}ag{CBM-N}x:k${CBM-R}D(x){CBM-N}" silver bits":{swuc}{$00}{CTRL-Z}@Y{CTRL-A}x{CBM-R}{CBM-G}d(49){CBM-N}1:gl{CBM-R}gl{CBM-N}x:k${CBM-R}D(x){CBM-N}" gold coins":{swuc}{$00}d@Z{CTRL-A}x{CBM-R}{CBM-G}d(5){CBM-N}1:je{CBM-R}je{CBM-N}x:k${CBM-R}D(x){CBM-N}" jewels":{swuc}{$00}{$66}@{SHIFT-+}{CTRL-A}k${CBM-R}" 5 magic bolts":tb{CBM-R}tb{CBM-N}5:{swuc}{$00}{SHIFT-POUND}@{CBM--}{CTRL-A}x{CBM-R}{CBM-G}d(6){CBM-N}1:{orng}i{CBM-R}1{CBM-@}x:j{CBM-R}{CBM-G}d(ss):sn%(j){CBM-R}sn%(j){CBM-N}1:{$82}i:x${CBM-R}D(x){CBM-N}" spells"{$00}A@{SHIFT--}{CTRL-A}k${CBM-R}" scroll with":{swuc}{$00}{$e0}@{$de}{CTRL-A}k${CBM-R}" 20 arrows":ar{CBM-R}ar{CBM-N}20:{swuc}{$00}{CTRL-B}a{CBM-*}{CTRL-A}pt%({CBM-G}p(cc),0){CBM-R}pt%({CBM-G}p(cc),0){CBM-N}1{$00}%a{$e0}{CTRL-A}h{CBM-R}24:v{CBM-R}23:{sret}3:{lgrn}k$;:v{CBM-R}24:{sret}3:{lgrn}x$;{$00}>a{$e1}{CTRL-A}x${CBM-R}"":k${CBM-R}"":{sret}19:{f2}291{$00}ma{$e2}{CTRL-A}a{CBM-R}32777:{sret}3{$00}{$82}a{$e3}{CTRL-A}{f6}s{CBM-R}0{CBM-M}{gry1}0,11:{gry1}1,30:{gry1}28,32:{gry1}60,{CBM-G}l(a):{gry1}61,{CBM-G}h(a):{yel}864{$00}{CBM-S}a{$e4}{CTRL-A}{lgrn}"{up}U{CBM-R}K{down}{left}{left}{SHIFT--}{down}{left}J{up}he ";:{f6}{CBM-POUND}mz{CBM-M}h{CBM-R}h{CBM-N}3:v{CBM-R}v{CBM-N}3:{sret}3{$00}{$e6}a{$e5}{CTRL-A}{lgrn}"{up}J{CBM-R}I{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{CBM-Z}K{up}ragon{up}{left}Y{down}'s ";:{f6}{CBM-POUND}mz{CBM-M}h{CBM-R}h{CBM-N}4:v{CBM-R}v{CBM-N}3:{sret}3{$00}{CTRL-G}b{$e6}{CTRL-A}{lgrn}"{up}U{SHIFT-*}K{down}{left}{left}{left}{CBM-Q}{SHIFT-*}{down}{left}{left}J{SHIFT-*}{up}ye":mz{CBM-R}f:{swuc}{$00}"b{$e7}{CTRL-A}{lgrn}"{clr}":s{CBM-R}1:h{CBM-R}11:v{CBM-R}3:l{CBM-R}28{$00}_b{$e8}{CTRL-A}d${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":dd${CBM-R}"{down}{down}{down}{rght}VI{down}{left}{left}{left}NQ{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT-*}F"{$00}{brn}b{$e9}{CTRL-A}{lred}{CBM-G}h(x){CBM-R}{CBM-J}(x{CBM-Z}256):{lred}{CBM-G}l(x){CBM-R}x{CBM-Q}{CBM-G}h(x){CBM-D}256:{lred}{CBM-G}e(x){CBM-R}{CBM-G}d(x){CBM-Q}1{$00}Xb{$ea}{CTRL-A}b${CBM-R}"                            ":b7${CBM-R}"       {left}{left}{left}{left}{left}{left}{left}":q{CBM-R}{CBM-F}(ti){$00}{$fa}b{$eb}{CTRL-A}{sret}482:h{CBM-R}13:v{CBM-R}13:{sret}3:{lgrn}"(c) 1981"{$00}'c{$ec}{CTRL-A}v{CBM-R}15:h{CBM-R}6:{sret}3:{lgrn}"southern software limited"{$00}jc{$ed}{CTRL-A}h{CBM-R}11:v{CBM-R}17:{sret}3:{lgrn}"distributed by"{$00}{$77}c{$ee}{CTRL-A}h{CBM-R}6:v{CBM-R}19:{sret}3:{lgrn}"automated simulations inc"{$00}{CBM-H}c{$ef}{CTRL-A}h{CBM-R}4:v{CBM-R}22:{sret}3:{lgrn}"{rvon} please insert data cassette {rvof}":v{CBM-R}24:h{CBM-R}10{$00}Qc{$f0}{CTRL-A}{sret}42:h{CBM-R}5:v{CBM-R}22:{sret}14:{lgrn}"{left} {up}";{$00}{$ec}c{$f1}{CTRL-A}{cyn}3,8,3,"dragon's data"{$00}{rvon}d{$f2}{CTRL-A}db${CBM-R}"{down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} "{$00}ed{$f3}{CTRL-A}cr${CBM-R}G(13):hb${CBM-R}"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"{$00}{up}d{$f4}{CTRL-A}b{CBM-R}100:rc{CBM-R}8:a{CBM-R}0:r{CBM-R}b:u{CBM-R}b:e{CBM-R}b:ph{CBM-R}0:dy{CBM-R}1:we{CBM-R}4:mk{CBM-R}0:tx{CBM-R}0:mh{CBM-R}0:rh{CBM-R}1:rs{CBM-R}3:ru{CBM-R}2{$00}Jd{$f5}{CTRL-A}la{CBM-R}9:t{CBM-R}{CBM-Q}1:f{CBM-R}0:tf{CBM-R}f:lr{CBM-R}f:am{CBM-R}b:hm{CBM-R}b:{lred}{CBM-G}d(x){CBM-R}{CBM-J}(x{CBM-D}{CBM-F}(.){CBM-N}1){$00}{CTRL-U}e{$f6}{CTRL-A}sm{CBM-R}b:ar{CBM-R}20:tb{CBM-R}5:su{CBM-R}0:t1{CBM-R}0:t2{CBM-R}0:t3{CBM-R}0:mp{CBM-R}0:fp{CBM-R}0:i{CBM-R}0:j{CBM-R}0:w{CBM-R}0:d{CBM-R}0:nz{CBM-R}59468{$00}*e{$f7}{CTRL-A}{lred}{CBM-G}p(x){CBM-R}pp%(ct){CBM-N}x{$00}{$63}e{$f8}{CTRL-A}{lgrn}"{clr}":v{CBM-R}5:h{CBM-R}11:{sret}482:h{CBM-R}2:v{CBM-R}20:{sret}3:{lgrn}"what is your name";{$00}{swuc}e{$f9}{CTRL-A}l{CBM-R}8:{sret}4:{lgrn}"{clr}":na${CBM-R}x$:ct{CBM-R}0:cc{CBM-R}{CBM-G}d(8):cb{CBM-R}cc{$00}Te{$fa}{CTRL-A}{f3}in$(6),pp%(6),nc%(6),di$(1),mb$(16),s$(16),p%(3),v$(3),hp%(18,1){$00}{$00}f{$fb}{CTRL-A}{f3}pt%(40,4),we$(5),fc$(25),cm$(4),x%(40){$00}ff{$fc}{CTRL-A}{f3}mo%(40),mc%(40),r%(40),sw$(4),a%(4),c%(4),s%(4),t%(4):h${CBM-R}" the "{$00}{$84}f{$fd}{CTRL-A}v$(1){CBM-R}"health":v$(2){CBM-R}"strength":v$(3){CBM-R}"aura":p%(1){CBM-R}1:pn{CBM-R}1{$00}Df{$fe}{CTRL-A}t$(1){CBM-R}"dawn":t$(2){CBM-R}"morning":t$(3){CBM-R}"noon":t$(4){CBM-R}"afternoon"{$00}{$e5}f~{CTRL-A}t$(5){CBM-R}"dusk":t$(6){CBM-R}"evening"{$00}{rvon}g{$00}{CTRL-B}{lgrn}"{clr}":{orng}i{CBM-R}1{CBM-@}8:h{CBM-R}1:v{CBM-R}3{CBM-D}i:{sret}3:{$84}3,mb$(i),s$(i){$00}-g{CTRL-A}{CTRL-B}{lgrn}i"{up} "mb$(i)"{up}"h$s$(i){$00}yg{CTRL-B}{CTRL-B}h{CBM-R}20{CBM-Q}(i{CBM-R}1):{sret}3:{lgrn}i{CBM-N}8;:{$84}3,mb$(i{CBM-N}8),s$(i{CBM-N}8){$00}{$7b}g{stop}{CTRL-B}{lgrn}"{up} "mb$(i{CBM-N}8)"{up}"h$s$(i{CBM-N}8);:{$82}i{$00}{CBM-Q}g{CTRL-D}{CTRL-B}{lgrn}"{home}"na$" choose your title";:l{CBM-R}2:{sret}4:x{CBM-R}E(x$){$00}{CBM-X}g{wht}{CTRL-B}{f6}x{CBM-W}1{CBM-A}x{CBM-E}16{CBM-M}516{$00}{$e2}g{CTRL-F}{CTRL-B}{orng}i{CBM-R}1{CBM-@}8:{f6}i{CBM-R}x{CBM-M}bd${CBM-R}mb$(i):tt${CBM-R}s$(i){$00}{CTRL-F}h{CTRL-G}{CTRL-B}{f6}i{CBM-N}8{CBM-R}x{CBM-M}bd${CBM-R}mb$(i{CBM-N}8):tt${CBM-R}s$(i{CBM-N}8){$00}{rvon}h{dish}{CTRL-B}{$82}i:{lgrn}"{clr}"{$00}5h{ensh}{CTRL-B}{$84}3,ss:{f3}sn$(ss),sc%(ss),sn%(ss){$00}uh{$0a}{CTRL-B}{orng}i{CBM-R}0{CBM-@}ss:{$84}3,sn$(i),sc%(i):{$82}i{$00}{swuc}h{CTRL-K}{CTRL-B}c{CBM-R}0:{orng}i{CBM-R}1{CBM-@}ss:x{CBM-R}{CBM-G}d(2){CBM-Q}1:sn%(i){CBM-R}x:c{CBM-R}c{CBM-N}x:{$82}i:{f6}c{CBM-W}4{CBM-A}c{CBM-E}9{CBM-M}523{$00}{CBM-+}h{CTRL-L}{CTRL-B}{orng}i{CBM-R}0{CBM-@}10:{$84}3,s$(i):{$82}i{$00}Rh
{CTRL-B}{orng}i{CBM-R}1{CBM-@}5:{$84}3,we$(i):{$82}i:{orng}i{CBM-R}1{CBM-@}6:{$84}3,mb$(i):{$82}i{$00}{ensh}i{swlc}{CTRL-B}di$(0){CBM-R}">":di$(1){CBM-R}"<":cm{CBM-R}{CBM-G}d(4):{orng}i{CBM-R}1{CBM-@}4:{$84}3,cm$(i):{$82}i{$00}9i{CTRL-O}{CTRL-B}{orng}i{CBM-R}1{CBM-@}4:{$84}3,sw$(i),t%(i),s%(i),c%(i),a%(i):{$82}i{$00}ri{CTRL-P}{CTRL-B}{orng}i{CBM-R}1{CBM-@}22:{$84}3,fc$(i):{$82}i{$00}{$6f}i{down}{CTRL-B}{orng}i{CBM-R}1{CBM-@}22:{lgrn}fc$(i);:{f6}i{CBM-W}22{CBM-M}{lgrn}{$00}{$76}i{rvon}{CTRL-B}{$82}i{$00}{CBM-R}i{home}{CTRL-B}{lgrn}"{home}"b$H(b$,15)"{home}"na$h$tt$" choose a sword";:l{CBM-R}2:{sret}4:sw{CBM-R}0{$00}Yi{del}{CTRL-B}{f6}x${CBM-R}""{CBM-A}x${CBM-R}"t"{CBM-A}x${CBM-R}"th"{CBM-A}x${CBM-R}"ts"{CBM-M}sw{CBM-R}2{$00}{$fd}i{CTRL-U}{CTRL-B}{f6}x${CBM-R}"g"{CBM-A}x${CBM-R}"gr"{CBM-A}x${CBM-R}"gs"{CBM-A}ef{CBM-M}sw{CBM-R}1{$00}{CTRL-W}j{CTRL-V}{CTRL-B}{f6}x${CBM-R}"sh"{CBM-A}x${CBM-R}"ss"{CBM-M}sw{CBM-R}3{$00}0j{CTRL-W}{CTRL-B}{f6}x${CBM-R}"s"{CBM-A}x${CBM-R}"sc"{CBM-M}sw{CBM-R}4{$00}bj{CTRL-X}{CTRL-B}{sret}24:{f6}sw{CBM-R}0{CBM-M}531{$00}{$83}j{CTRL-Y}{CTRL-B}{lgrn}"{home}  weapon chosen: "sw$(sw)" (y/n) {rvon} {rvof}"H(b$,15{CBM-Q}C(sw$(sw)));{$00}{lred}j{CTRL-Z}{CTRL-B}{CBM-K}x$:{f6}x${CBM-R}""{CBM-M}538{$00}{CBM-H}j{esc}{CTRL-B}{f6}x${CBM-R}"n"{CBM-A}x${CBM-R}"N"{CBM-A}x${CBM-R}"{rvon}"{CBM-M}531{$00}{$de}j{red}{CTRL-B}{lgrn}"{clr}":{$84}3,nh:nh{CBM-R}nh{CBM-D}2:{orng}i{CBM-R}1{CBM-@}nh{SHIFT-POUND}2:{$84}3,x,y,z{$00}{$f3}j{rght}{CTRL-B}q{CBM-R}y:{f6}{CBM-G}d(2){CBM-R}2{CBM-M}q{CBM-R}z{$00}{dish}k{grn}{CTRL-B}c{CBM-R}y:{f6}{CBM-G}d(2){CBM-R}2{CBM-M}c{CBM-R}z{$00}ak{blu}{CTRL-B}hp%(i,0){CBM-R}x:hp%(i,1){CBM-R}{CBM-Q}y:hp%(i{CBM-N}1,0){CBM-R}c:hp%(i{CBM-N}1,1){CBM-R}{CBM-Q}x:{$82}i{$00}{$66}k {CTRL-B}{$84}3,n:{f3}rn$(n):{orng}i{CBM-R}1{CBM-@}n:{$84}3,rn$(i):{$82}i{$00}{f8}k!{CTRL-B}{sret}621:sa{CBM-R}826:h{CBM-R}0:v{CBM-R}23:{sret}3:{$84}3,x$:{lgrn}x${$00}{CBM-T}k"{CTRL-B}{$84}3,x:{f6}x{CBM-W}0{CBM-M}{sret}41:{f2}548{$00}{SHIFT-@}k#{CTRL-B}{gry1}sa,x:sa{CBM-R}sa{CBM-N}1:{f2}546{$00}{$ec}k${CTRL-B}{lgrn}"{clr}{down}":{orng}x{CBM-R}1{CBM-@}22:{$84}3,fc$(x):{$82}x:{orng}x{CBM-R}1{CBM-@}22:{lgrn}fc$(x):{$82}x{$00} l%{CTRL-B}{gry1}0,25:{gry1}1,40:{gry1}28,255:{gry1}29,127:{gry1}60,23:{gry1}61,124:{yel}892{$00}?l&{CTRL-B}{$84}3,nc:{orng}i{CBM-R}1{CBM-@}nc:{$84}3,fc$(i):{$82}i{$00}{$65}l'{CTRL-B}{orng}c{CBM-R}0{CBM-@}6:{$84}3,in$(c),nc%(c),pp%(c):{$82}c{$00}{f2}l({CTRL-B}{orng}i{CBM-R}1{CBM-@}40:{orng}j{CBM-R}1{CBM-@}4:{$84}3,pt%(i,j):{$82}j,i{$00}{CBM-Q}l){CTRL-B}{orng}i{CBM-R}1{CBM-@}40:{$84}3,x,y:x%(i){CBM-R}y{CBM-D}b{CBM-N}x:{$82}i{$00}{CBM-X}l*{CTRL-B}{sret}561:sa{CBM-R}32767{$00}Rl+{CTRL-B}{$84}3,j:{orng}i{CBM-R}1{CBM-@}j:{$84}3,k{$00}{$f1}l,{CTRL-B}x{CBM-R}{CBM-G}d(32){CBM-N}8:{f6}pt%(x,0){CBM-E}0{CBM-M}556{$00}{CTRL-K}m-{CTRL-B}pt%(x,0){CBM-R}k:{f6}k{CBM-W}{CBM-E}13{CBM-M}560{$00}(m.{CTRL-B}{f6}x{CBM-E}pp%(q){CBM-M}q{CBM-R}q{CBM-N}1:{f6}q{CBM-W}7{CBM-M}558{$00}3m/{CTRL-B}hh{CBM-R}q{CBM-Q}1{$00}im0{CTRL-B}{$82}i:{$a0}3:i{CBM-R}{CBM-U}(.):{f2}290{$00}{$7d}m1{CTRL-B}{$84}3,n:{f3}mn$(n),mm$(n),ms%(n),mt%(n),md%(n),ma%(n){$00}{CBM-Q}m2{CTRL-B}{f3}w%(n),d%(n),md$(n),m$(n,3),mm%(n),mo$(n){$00}Hm3{CTRL-B}nm{CBM-R}n:{orng}m{CBM-R}1{CBM-@}nm:{$84}3,mn$(m),x{$00}{$f2}m4{CTRL-B}{$84}3,mo$(m):{f6}x{CBM-R}2{CBM-M}{$84}3,x$:mo$(m){CBM-R}mo$(m){CBM-N}x${$00}{red}n5{CTRL-B}{$84}3,mm$(m):{f6}x{CBM-R}2{CBM-M}{$84}3,x$:mm$(m){CBM-R}mm$(m){CBM-N}x${$00}rn6{CTRL-B}{$84}3,ms%(m),mt%(m),md%(m),ma%(m),mm%(m),w%(m),d%(m){$00}{$7c}n7{CTRL-B}{$84}3,md$(m):{f6}x{CBM-R}2{CBM-M}{$84}3,x$:md$(m){CBM-R}md$(m){CBM-N}x${$00}{gry3}n8{CTRL-B}{$84}3,m$(m,1):{f6}x{CBM-R}2{CBM-M}{$84}3,m$(m,0){$00}{SHIFT-@}n9{CTRL-B}{$84}3,m$(m,2):{f6}x{CBM-R}2{CBM-M}{$84}3,m$(m,3){$00}Cn:{CTRL-B}{$82}m:{swuc}{$00}{$fa}n;{CTRL-B}{lgrn}"{clr}{down} U{SHIFT-*}"hb$"{SHIFT-*}UI":{lgrn}" {SHIFT--}"{CBM-+}32)"{SHIFT--}K":{orng}i{CBM-R}1{CBM-@}16:{lgrn}" {SHIFT--}"{CBM-+}32)"{SHIFT--}{$00}{blu}o<{CTRL-B}{$82}i:{lgrn}"U{CBM-E}"hb$"{SHIFT-*}{CBM-S}{SHIFT--}":{lgrn}"J{SHIFT-*}"hb$"{SHIFT-*}JK":{swuc}{$00}vo={CTRL-B}{sret}17:{orng}q{CBM-R}1{CBM-@}3:{gry1}0,15:{gry1}1,27:a{CBM-R}32931:{gry1}28,{CBM-G}l(a):{gry1}29,{CBM-G}h(a){$00}{$82}o>{CTRL-B}a{CBM-R}32891:{gry1}60,{CBM-G}l(a):{gry1}61,{CBM-G}h(a):{yel}892:{$82}q:{sret}17{$00}{brn}o?{CTRL-B}{lgrn}H(d$,17){CBM-+}5)x${$00}{left}o@{CTRL-B}{f2}17{$00}Eoa{CTRL-B}{lgrn}"{clr}{down}{down}{down}{down}"{CBM-+}9)"I"{CBM-+}11)"U":{lgrn}{CBM-+}9)"{SHIFT--}"{CBM-+}11)"{SHIFT--}{$00}{$f0}ob{CTRL-B}{lgrn}{CBM-+}9)"{CBM-Q}"H(hb$,11)"{CBM-W}":{lgrn}{CBM-+}9)"{SHIFT--}     * UI  {SHIFT--}{$00}{CTRL-Y}pc{CTRL-B}{lgrn}{CBM-+}9)"{SHIFT--} Z     JK  {SHIFT--}":{lgrn}{CBM-+}9)"{SHIFT--}"{CBM-+}7)"W   {SHIFT--}{$00}bpd{CTRL-B}{lgrn}{CBM-+}9)"{SHIFT--}   +   .   {SHIFT--}":{lgrn}{CBM-+}9)"{SHIFT--}"{CBM-+}7)": S {SHIFT--}{$00}{$6c}pe{CTRL-B}{lgrn}{CBM-+}9)"J"H(hb$,11)"K":{lgrn}{CBM-+}6)"{down}UI"{CBM-+}10)"J{CBM-R}I{$00}{lblu}pf{CTRL-B}{lgrn}{CBM-+}6)"{CBM-Q}{CBM-W}lchemist's {CBM-Q}Kotion":{lgrn}{CBM-+}6)"KJ"{CBM-+}11)"K{$00}{CBM-E}pg{CTRL-B}{up}{CBM-G}d(3){f2}584,585,661{$00}Uph{CTRL-B}hm{CBM-R}{CBM-G}d(50):am{CBM-R}{CBM-G}d(50):sm{CBM-R}{CBM-G}d(50):{swuc}{$00}{$e7}pi{CTRL-B}rh{CBM-R}rh{CBM-N}{CBM-G}d(9):{swuc}{$00}{red}qj{CTRL-B}y{CBM-R}{CBM-G}d(7):{sret}571:x${CBM-R}"{up}IU{down}{left}{left}J{CBM-W}{down}{left}{left}JK{up}ou {up}T{down}{left}lay dead "{$00}aqk{CTRL-B}{f6}y{CBM-E}3{CBM-M}x${CBM-R}x${CBM-N}"a{up}Y{down}{left}nd rotti{up}Y{down}{left}ng"{$00}{$78}ql{CTRL-B}{sret}573:x${CBM-R}"  in t{up}T{down}{left}he ":{up}{CBM-G}d(5){f2}589,590,591,592,593{$00}{clr}qm{CTRL-B}x${CBM-R}x${CBM-N}"fie{up}T{down}{left}ld":{f2}594{$00}{CBM-Q}qn{CTRL-B}x${CBM-R}x${CBM-N}"gutter":{f2}594{$00}Fqo{CTRL-B}x${CBM-R}x${CBM-N}"ditc{up}T{down}{left}h":{f2}594{$00}{$e2}qp{CTRL-B}x${CBM-R}x${CBM-N}"bus{up}T{down}{left}hes":{f2}594{$00}{$f8}qq{CTRL-B}x${CBM-R}x${CBM-N}"cree{up}T{down}{left}k"{$00}"rr{CTRL-B}x${CBM-R}x${CBM-N}" for":{f6}y{CBM-R}1{CBM-M}x${CBM-R}x${CBM-N}" a day":{f2}597{$00}drs{CTRL-B}{f6}y{CBM-R}7{CBM-M}x${CBM-R}x${CBM-N}" a wee{up}T{down}{left}k":{f2}597{$00}[rt{CTRL-B}x${CBM-R}x${CBM-N}D(y){CBM-N}" days"{$00}{blk}ru{CTRL-B}{sret}573:x${CBM-R}"  before t{up}T{down}{left}he good magician{up}{left}Y":{sret}573{$00}{CBM-Q}rv{CTRL-B}x${CBM-R}"  found you.":{sret}573{$00}{$de}rw{CTRL-B}x${CBM-R}"{up}IU{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}KJ{up}e wil{up}T{down}{left}l atte{up}Y{down}{left}mpt":{sret}573{$00}{CTRL-D}sx{CTRL-B}x${CBM-R}"  a resurrectio{up}Y{down}{left}n...":{sret}573{$00}+sy{CTRL-B}{sret}19:sl{CBM-R}9:s{CBM-R}0:x${CBM-R}na$:y${CBM-R}"life":{sret}242{$00}=sz{CTRL-B}{f6}{CBM-G}d(9){CBM-E}rc{CBM-M}322{$00}{$6d}s[{CTRL-B}{sret}571:rc{CBM-R}rc{CBM-Q}2:{up}{CBM-G}d(6){f2}604,605,606,607,608,609{$00}{blk}s\{CTRL-B}x${CBM-R}"{up}UI{down}{left}{left}{CBM-Q}{CBM-W}{down}{left}{left}KJ{up}mazing":{f2}610{$00}{CBM-F}s]{CTRL-B}x${CBM-R}"{up}U{CBM-R}I{down}{left}{left}{left}{SHIFT--}{SHIFT--}{SHIFT--}{down}{left}{left}{left}K J{up}arvellous":{f2}610{$00}{$e5}s^{CTRL-B}x${CBM-R}"{up}I U{down}{left}{left}{left}{SHIFT--}{SHIFT--}{SHIFT--}{down}{left}{left}{left}J{CBM-E}K{up}hat luck":{f2}610{$00}{ensh}t_{CTRL-B}x${CBM-R}"{up}U{CBM-R}K{down}{left}{left}{SHIFT--}{down}{left}J{up}remendous":{f2}610{$00},t{$60}{CTRL-B}x${CBM-R}"{up}U{SHIFT-*}{down}{left}{left}{CBM-Q}{down}{left}J{SHIFT-*}{up}xcellent":{f2}610{$00}jt{$61}{CTRL-B}x${CBM-R}"{up}{CBM-A}{SHIFT-*}{down}{left}{left}{CBM-Q}{down}{left}K {up}antastic"{$00}{$6c}t{$62}{CTRL-B}x${CBM-R}x${CBM-N}" you {up}T{down}{left}live...":{sret}573{$00}{sret}t{$63}{CTRL-B}x${CBM-R}"  but your maximum":{sret}573{$00}Ht{$64}{CTRL-B}hm{CBM-R}{CBM-J}(hm{CBM-Z}2):e{CBM-R}hm:x${CBM-R}"  {up}T{down}{left}"{CBM-N}v$(1){CBM-N}" is"{CBM-N}D(hm){CBM-N}"%":{sret}573{$00}{stop}u{$65}{CTRL-B}sm{CBM-R}{CBM-J}(sm{CBM-Z}2):r{CBM-R}sm:x${CBM-R}"  and stre{up}Y{down}{left}ngth"{CBM-N}D(sm){CBM-N}"%":{sret}573{$00}8u{$66}{CTRL-B}am{CBM-R}{CBM-J}(am{CBM-Z}2):u{CBM-R}am:x${CBM-R}"  your "{CBM-N}v$(3){CBM-N}D(u){CBM-N}"%":{sret}573{$00}{$6b}u{$67}{CTRL-B}dy{CBM-R}dy{CBM-N}y:lr{CBM-R}f:aa{CBM-R}f:ah{CBM-R}f:hd{CBM-R}f:al{CBM-R}f:{sret}19:{sret}424:ph{CBM-R}0{$00}{f3}u{$68}{CTRL-B}m{CBM-R}0:mo%({CBM-G}p(cc)){CBM-R}0:{f2}290{$00}{CBM-F}u{$69}{CTRL-B}{lgrn}"{clr}{down}{down}{down}{down}{down}"{CBM-+}16)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}":{lgrn}{CBM-+}15)"NVNMVM":{lgrn}{CBM-+}14)"NVVVVVVM{$00}{$f4}u{$6a}{CTRL-B}{lgrn}{CBM-+}12)"{CBM-@}NVVNVVMVVM{CBM-@}":{lgrn}{CBM-+}13)"MVVMVVNVVN":{lgrn}{CBM-+}14)"MVVVVVVN{$00}{down}v{$6b}{CTRL-B}{lgrn}{CBM-+}15)"MVMNVN":{lgrn}{CBM-+}16)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{$00}rv{$6c}{CTRL-B}ru{CBM-R}ru{CBM-Q}2:o{CBM-R}o{CBM-N}3:h{CBM-R}8:s{CBM-R}1:mo{CBM-R}150:v{CBM-R}14:mz{CBM-R}{CBM-Q}1:m{CBM-R}8:{sret}482:mh{CBM-R}t:hd{CBM-R}f:{swuc}{$00}{$8f}v{$6d}{CTRL-B}{lgrn}"{clr}IU{down}{down}{left}{left}JK{up}{left}{left}J{CBM-W}ou have these spel{up}T{down}{left}ls:-{up}{left}["cm$(cm)"]{down}{$00}{CBM-P}v{$6e}{CTRL-B}{lgrn}"{down}{down}##{SHIFT--}name"{CBM-+}16)"{SHIFT--}qty{SHIFT--}power{$00}Sv{$6f}{CTRL-B}{lgrn}"{SHIFT-*}{SHIFT-*}{SHIFT-+}"H(hb$,20)"{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}"H(hb$,11){$00}{$e9}v{$70}{CTRL-B}{orng}i{CBM-R}1{CBM-@}ss:v{CBM-R}i{CBM-N}5:h{CBM-R}0{$00}{CTRL-O}w{$71}{CTRL-B}{f6}sn%(i){CBM-W}{CBM-R}0{CBM-M}{lgrn}"  {SHIFT--}"{CBM-+}20)"{SHIFT--}   {SHIFT--}":{f2}628{$00}0w{$72}{CTRL-B}{sret}3:{lgrn}I("  "{CBM-N}D(i),2)"{SHIFT--}"sn$(i);{$00}{$69}w{$73}{CTRL-B}{lgrn}{CBM-+}20{CBM-Q}C(sn$(i)))"{SHIFT--}"I("  "{CBM-N}D(sn%(i)),2)" {SHIFT--}"cm$(sc%(i)){$00}{$72}w{$74}{CTRL-B}{$82}i:{swuc}{$00}{lgrn}w{$75}{CTRL-B}{lgrn}"{clr}{down}{down}{down}"{CBM-+}18)"{CBM-@}L":{lgrn}{CBM-+}18)"Y{CBM-G}":{lgrn}{CBM-+}18)"H{CBM-G}{$00}{SHIFT-@}w{$76}{CTRL-B}{lgrn}{CBM-+}18)"{SHIFT--}{CBM-G}":{lgrn}{CBM-+}18)"B{CBM-G}":{lgrn}{CBM-+}18)"GT{$00}{SHIFT-+}w{$77}{CTRL-B}{lgrn}{CBM-+}18)"TG":{lgrn}{CBM-+}18)"{CBM-G}B":{lgrn}{CBM-+}18)"{CBM-G}{SHIFT--}{$00}{$fd}w{$78}{CTRL-B}{lgrn}{CBM-+}18)"{rvon}{CBM-I}{rvof}{CBM-V}":{lgrn}{CBM-+}11)"{down}UI"{CBM-+}8)"U{CBM-R}K{$00}(x{$79}{CTRL-B}{lgrn}{CBM-+}11)"JIerpent's {SHIFT--}ooth":{lgrn}{CBM-+}11)"JK"{CBM-+}9)"J{$00}{$68}x{$7a}{CTRL-B}t%(sw){CBM-R}t%(sw){CBM-N}{CBM-G}e(5):c%(sw){CBM-R}c%(sw){CBM-N}{CBM-G}e(3):s%(sw){CBM-R}s%(sw){CBM-N}{CBM-G}e(3){$00}{$80}x{$7b}{CTRL-B}a%(sw){CBM-R}a%(sw){CBM-Q}{CBM-G}e(3){$00}{inst}x{$7c}{CTRL-B}o{CBM-R}o{CBM-Q}1:rs{CBM-R}rs{CBM-N}3:{swuc}{$00}{CBM-POUND}x{$7d}{CTRL-B}{lgrn}"{clr}{down}{down}{down}"{CBM-+}16)"NPM{$00}{CBM-Y}x{$7e}{CTRL-B}{lgrn}{CBM-+}15)"YS O{$00}Fx{$7f}{CTRL-B}{lgrn}{CBM-+}15)"H  T{$00}Ux{$80}{CTRL-B}{lgrn}{CBM-+}15)"{SHIFT--} *G{$00}{$e4}x{orng}{CTRL-B}{lgrn}{CBM-+}15)"B  B{$00}{$f3}x{$82}{CTRL-B}{lgrn}{CBM-+}15)"GU {SHIFT--}{$00}{CTRL-B}y{$83}{CTRL-B}{lgrn}{CBM-+}15)"TJ H{$00}{down}y{$84}{CTRL-B}{lgrn}{CBM-+}15)"{CBM-G}  Y{$00}!y{f1}{CTRL-B}{lgrn}{CBM-+}14)"{CBM-M}  Z{CBM-M}{$00}4y{f3}{CTRL-B}{lgrn}{CBM-+}13)"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{$00}iy{f5}{CTRL-B}{lgrn}{CBM-+}9)"U{CBM-R}I"{CBM-+}10)"IU{$00}{$64}y{f7}{CTRL-B}{lgrn}{CBM-+}9)"{SHIFT--}{SHIFT--}{SHIFT--}agician's {CBM-Q}{CBM-W}at{$00}{$79}y{f2}{CTRL-B}{lgrn}{CBM-+}9)"K J"{CBM-+}10)"KJ{$00}{f5}y{f4}{CTRL-B}ru{CBM-R}ru{CBM-N}9:{swuc}{$00}{yel}y{f6}{CTRL-B}{lgrn}"{clr}{down}{down}{down}{down}{down}{down}"{CBM-+}8)"U{SHIFT-*}{SHIFT-*}I{$00}{CBM-D}y{f8}{CTRL-B}{lgrn}{CBM-+}8)"{SHIFT--}UI{SHIFT--}{$00}Ly{sret}{CTRL-B}{lgrn}{CBM-+}8)"{SHIFT--}{SHIFT--}{SHIFT--}{CBM-Z}"H(hb$,14)"C{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{$00}{$ec}y{swuc}{CTRL-B}{lgrn}{CBM-+}8)"{SHIFT--}{SHIFT--}{SHIFT--}{CBM-A}"H(hb$,14)"F{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{SHIFT-*}K{$00}{CTRL-D}z{$8f}{CTRL-B}{lgrn}{CBM-+}8)"{SHIFT--}JK{SHIFT--}"{CBM-+}16)"{CBM-A}{CBM-X}{CBM-Z}{CBM-S}{$00}{red}z{blk}{CTRL-B}{lgrn}{CBM-+}8)"J{SHIFT-*}{SHIFT-*}K"{CBM-+}16)"{CBM-W}{CBM-A}{CBM-S}{CBM-Q}{$00}+z{up}{CTRL-B}{lgrn}{CBM-+}28)"{CBM-Z}{CBM-W}{CBM-Q}{CBM-X}{$00}az{rvof}{CTRL-B}{lgrn}{CBM-+}13)"{down}UI      IU{$00}xz{clr}{CTRL-B}{lgrn}{CBM-+}13)"JIecret {CBM-Q}Key{$00}{$6d}z{inst}{CTRL-B}{lgrn}{CBM-+}13)"JK      KJ{$00}{swuc}z{brn}{CTRL-B}rh{CBM-R}rh{CBM-Q}1:lr{CBM-R}t:ru{CBM-R}ru{CBM-N}5:o{CBM-R}o{CBM-N}1:{swuc}{$00}{CBM-K}z{lred}{CTRL-B}{lgrn}"{clr}{down}"{CBM-+}17)"U{SHIFT-*}{SHIFT-*}I{$00}{CBM-A}z{gry1}{CTRL-B}{lgrn}{CBM-+}17)"J{CBM-S}{CBM-A}K{$00}Hz{gry2}{CTRL-B}{orng}i{CBM-R}1{CBM-@}3:{lgrn}{CBM-+}18)"{SHIFT--}{SHIFT--}":{$82}i{$00}{$de}z{lgrn}{CTRL-B}{lgrn}{CBM-+}11)"{up}UI"{CBM-+}12)"UI{$00}{$f9}z{lblu}{CTRL-B}{lgrn}{CBM-+}11)"{SHIFT--}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT--}{$00}{del}[{gry3}{CTRL-B}{lgrn}{CBM-+}11)"{SHIFT--}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{SHIFT--}{$00}*[{pur}{CTRL-B}{lgrn}{CBM-+}11)"JK"{CBM-+}12)"JK{up}{$00}b[{left}{CTRL-B}{orng}i{CBM-R}1{CBM-@}6:{lgrn}{CBM-+}18)"{SHIFT--}{SHIFT--}":{$82}i{$00}q[{yel}{CTRL-B}{lgrn}{CBM-+}17)"U{CBM-X}{CBM-Z}I{$00}{$60}[{cyn}{CTRL-B}{lgrn}{CBM-+}17)"J{SHIFT-*}{SHIFT-*}K{$00}{$74}[{$a0}{CTRL-B}{lgrn}{CBM-+}12)"UI"{CBM-+}6)"UI{$00}{sret}[{CBM-K}{CTRL-B}{lgrn}{CBM-+}12)"JIilver {SHIFT--} ross{$00}{CBM-K}[{CBM-I}{CTRL-B}{lgrn}{CBM-+}12)"JK"{CBM-+}6)"JK{$00}{CBM-U}[{CBM-T}{CTRL-B}{f6}ma%(2){CBM-E}0{CBM-M}ma%(2){CBM-R}0{$00}O[{CBM-@}{CTRL-B}{f6}md%(1){CBM-E}5{CBM-M}md%(1){CBM-R}5{$00}{$e6}[{CBM-G}{CTRL-B}{f6}md%(2){CBM-E}5{CBM-M}md%(2){CBM-R}5{$00}{CTRL-B}\{CBM-+}{CTRL-B}ru{CBM-R}ru{CBM-Q}2:rh{CBM-R}rh{CBM-N}7:o{CBM-R}o{CBM-N}1:{swuc}{$00}{CTRL-X}\{CBM-M}{CTRL-B}{lgrn}"{clr}{down}{down}{down}"{CBM-+}17)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{$00}*\{CBM-POUND}{CTRL-B}{lgrn}{CBM-+}16)"N{CBM-Q}{CBM-R}{SHIFT--}{CBM-A}{CBM-S}M{$00}>\{SHIFT-POUND}{CTRL-B}{lgrn}{CBM-+}15)"N {CBM-E}{CBM-W}{SHIFT--}{CBM-Z}{CBM-X} M{$00}t\{CBM-N}{CTRL-B}{lgrn}{CBM-+}14)"N  OM{SHIFT--}NP  M{$00}{$6c}\{CBM-Q}{CTRL-B}{lgrn}{CBM-+}13)"{CBM-M} X M{SHIFT-@}{SHIFT--}LN Z {CBM-G}{$00}{$84}\{CBM-D}{CTRL-B}{lgrn}{CBM-+}13)"{CBM-M}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-G}{$00}{pur}\{CBM-Z}{CTRL-B}{lgrn}{CBM-+}13)"{CBM-M} A NP{SHIFT--}OM S {CBM-G}{$00}{CBM-R}\{CBM-S}{CTRL-B}{lgrn}{CBM-+}14)"M  LN{SHIFT--}M{SHIFT-@}  N{$00}F\{CBM-P}{CTRL-B}{lgrn}{CBM-+}15)"M UI{SHIFT--} {CBM-F} N{$00}X\{CBM-A}{CTRL-B}{lgrn}{CBM-+}16)"MJK{SHIFT--}{CBM-C} N{$00}{$e8}\{CBM-E}{CTRL-B}{lgrn}{CBM-+}17)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{$00}{$f6}\{CBM-R}{CTRL-B}{lgrn}{CBM-+}14)"U{CBM-R}I{$00}{CTRL-L}]{CBM-W}{CTRL-B}{lgrn}{CBM-+}14)"{SHIFT--}{SHIFT--}{SHIFT--}edallion{$00}{CTRL-Z}]{CBM-H}{CTRL-B}{lgrn}{CBM-+}14)"K J{$00}6]{CBM-J}{CTRL-B}rc{CBM-R}rc{CBM-N}2:rs{CBM-R}rs{CBM-N}4:o{CBM-R}o{CBM-N}1:{swuc}{$00}{$80}]{CBM-L}{CTRL-B}sw{CBM-R}0:k${CBM-R}sw$(sw):t%(0){CBM-R}{CBM-G}d(8){CBM-Q}2:s%(0){CBM-R}{CBM-G}d(8){CBM-Q}2:c%(0){CBM-R}{CBM-G}d(8){CBM-Q}2:p%(0){CBM-R}{CBM-G}d(6){$00}{clr}]{CBM-Y}{CTRL-B}{lgrn}"{clr}{down}{down}{down}"{CBM-+}17)"NM{$00}{CBM-I}]{CBM-U}{CTRL-B}{lgrn}{CBM-+}16)"N  M{$00}{CBM-E}]{CBM-O}{CTRL-B}{lgrn}{CBM-+}16)"{CBM-G}ZZ{CBM-M}{$00}{SHIFT-*}]{SHIFT-@}{CTRL-B}{lgrn}{CBM-+}16)"T  Y{$00}O]{CBM-F}{CTRL-B}{lgrn}{CBM-+}16)"G  H{$00}{$de}]{CBM-C}{CTRL-B}{lgrn}{CBM-+}16)"B  {SHIFT--}{$00}{$ed}]{CBM-X}{CTRL-B}{lgrn}{CBM-+}16)"{SHIFT--}{CBM-M}{$a0}B{$00}{$fc}]{CBM-V}{CTRL-B}{lgrn}{CBM-+}16)"H{CBM-M}{$a0}G{$00}{CTRL-K}^{CBM-B}{CTRL-B}{lgrn}{CBM-+}16)"Y{CBM-M}{$a0}T{$00}{CTRL-Z}^{SHIFT-*}{CTRL-B}{lgrn}{CBM-+}16)"{CBM-M}{CBM-M}{$a0}{CBM-G}{$00}/^A{CTRL-B}{lgrn}{CBM-+}14)"N{rvon}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}{rvof}M{$00}<^B{CTRL-B}{lgrn}{CBM-+}17)"{CBM-+}{CBM-+}{$00}i^C{CTRL-B}{lgrn}{CBM-+}17)"{CBM-+}{CBM-+}{$00}v^D{CTRL-B}{lgrn}{CBM-+}17)"{CBM-+}{CBM-+}{$00}{$67}^E{CTRL-B}{lgrn}{CBM-+}16)"{CBM-C}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-V}{$00}{$7d}^F{CTRL-B}{lgrn}{CBM-+}11)"UI       UI{$00}{gry1}^G{CTRL-B}{lgrn}{CBM-+}11)"JIeeking JIword{$00}{CBM-Z}^H{CTRL-B}{lgrn}{CBM-+}11)"JK       JK{$00}{CBM-W}^I{CTRL-B}{swuc}{$00}P^J{CTRL-B}{lgrn}"{clr}{down}{down}{down}{down}{down}"{CBM-+}13)"UI      UI{$00}{$e5}^K{CTRL-B}{lgrn}{CBM-+}13)"J{CBM-Q}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-W}K{$00}{$f8}^L{CTRL-B}{lgrn}{CBM-+}14)"{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{$00}{CTRL-K}_M{CTRL-B}{lgrn}{CBM-+}14)"B{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{$00}{grn}_N{CTRL-B}{lgrn}{CBM-+}14)"GB{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}H{$00}1_O{CTRL-B}{lgrn}{CBM-+}14)"TGBB{SHIFT--}{SHIFT--}HY{$00}d_P{CTRL-B}{lgrn}{CBM-+}14)"{CBM-G}TGBHHY{CBM-M}{$00}w_Q{CTRL-B}{lgrn}{CBM-+}14)"M{CBM-G}TGHY{CBM-M}N{$00}{$68}_R{CTRL-B}{lgrn}{CBM-+}15)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{$00}{$7c}_S{CTRL-B}{lgrn}{CBM-+}9)"I U"{CBM-+}7)"UI{$00}{lgrn}_T{CTRL-B}{lgrn}{CBM-+}9)"{SHIFT--}{SHIFT--}{SHIFT--}itch's {SHIFT--} auldron{$00}{CBM-Z}_U{CTRL-B}{lgrn}{CBM-+}9)"J{CBM-E}K"{CBM-+}7)"JK{$00}U_V{CTRL-B}o{CBM-R}o{CBM-Q}1:sm{CBM-R}sm{CBM-Q}{CBM-G}d(50):{f6}sm{CBM-W}9{CBM-M}sm{CBM-R}{CBM-G}d(9){CBM-N}9{$00}{$e3}_W{CTRL-B}rs{CBM-R}rs{CBM-Q}2:{swuc}{$00}~_X{CTRL-B}hd{CBM-R}f:ah{CBM-R}f:o{CBM-R}o{CBM-Q}1:ru{CBM-R}ru{CBM-N}3{$00}{del}{$60}Y{CTRL-B}{lgrn}"{clr}{down}{down}{down}"{CBM-+}18)"U{SHIFT-*}{SHIFT-*}I{$00}#{$60}Z{CTRL-B}{lgrn}{CBM-+}18)"N{SHIFT-POUND}JK{$00}1{$60}{SHIFT-+}{CTRL-B}{lgrn}{CBM-+}17)"N{SHIFT-POUND}{CBM-G}{$00}@{$60}{CBM--}{CTRL-B}{lgrn}{CBM-+}16)"N{SHIFT-POUND}{CBM-G}{CBM-G}{$00}p{$60}{SHIFT--}{CTRL-B}{lgrn}{CBM-+}15)"N{SHIFT-POUND}{CBM-G}{CBM-G}{CBM-G}{$00}{$61}{$60}{$de}{CTRL-B}{lgrn}{CBM-+}14)"N{SHIFT-POUND}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{$00}{$73}{$60}{CBM-*}{CTRL-B}{lgrn}{CBM-+}13)"N{SHIFT-POUND}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{$00}{f3}{$60}{$e0}{CTRL-B}{lgrn}{CBM-+}12)"N{SHIFT-POUND}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{$00}{gry3}{$60}{$e1}{CTRL-B}{lgrn}{CBM-+}10)"UN{SHIFT-POUND}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-G}{$00}{CBM-R}{$60}{$e2}{CTRL-B}{lgrn}{CBM-+}10)"J{CBM-*}MLLLLLLLUI{$00}H{$60}{$e3}{CTRL-B}{lgrn}{CBM-+}11)"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$00}{CBM-*}{$60}{$e4}{CTRL-B}{lgrn}{CBM-+}7)"{down}{down}U{CBM-R}K"{CBM-+}11)"IU{$00}{$fb}{$60}{$e5}{CTRL-B}{lgrn}{CBM-+}8)"{SHIFT--}roubadour's {CBM-Q}{CBM-W}arp{$00}{swlc}{$61}{$e6}{CTRL-B}{lgrn}{CBM-+}8)"J"{CBM-+}12)"KJ{$00}{del}{$61}{$e7}{CTRL-B}{swuc}{$00}{$00}{$00}{CBM-N}{CBM-N}  100 print"{clr}"
  110 printtab(253)"{rvon}dragon island"
  140 printtab(120)"this program was originally written by  walt hutchinson ";
  145 print"in tiny basic and was   adapted for pet* by mike spencer."
  150 printtab(40)"permission is given to use and copy but not to sell.";
  155 print"copyright 1978"
  160 input"{down}{down}{down}{down}do you wish instructions";y$
  170 if left$(y$,1)="y" goto 200
  180 goto 300
  200 rem*** instructions
  210 print"{clr}";tab(87)"you are alone on  dragon island  with only your ";
  215 print"trusty spear. the dragon lives in a hill pierced with 10 caves, ";
  220 print" and it can crawl from cave to cave."
  225 printtab(47)"you must select a cave to throw  your spear into.";
  230 print"if the dragon is in that cave, your spear will kill him.";
  235 print"if he is in the next cave, he will s*n*o*r*t!"
  240 printtab(47)"before throwing your spear again you must retrieve it. ";
  245 print"if the dragon has crawled into that cave - g*o*t*c*h*a!"
  250 printtab(47)"if you do not kill the dragon by 8:00,he will sneak ";
  255 print"up on you in the dark and - g*o*t*c*h*a!"
  270 printtab(120)"when ready to play, press 'space' bar": wait 59410,4,4
  300 rem*** set variables
  310 h=5: m=15:
  320 zz=rnd(-ti)
  330 d%=10*rnd(1)+1: d=d%
  400 rem*** opening
  410 print"{clr}"
  420 printtab(215)"you are alone"
  430 printtab(48)"and dragons eat at 8:00!"
  440 for x=1 to 600 :next x
  500 rem*** throw spear
  510 print"{clr}";
  520 gosub 900
  530 input"{down}{down}which cave do you throw your spear";t
  540 if d=t goto 800
  550 if (d=1 and t=10) or (d=10 and t=1) goto 580
  560 if d-t=1 or t-d=1 goto 580
  570 printtab(135) "you missed!": goto 600
  580 printtab(135)"s*n*o*r*t!"
  600 rem*** dragon moves?
  610 s%=3*rnd(1) : s=s%-1
  620 if s=0 then a$="lurks": goto 660
  630 d=d+s: a$="crawls"
  640 if d>10 then d=1
  650 if d<1  then d=10
  660 printtab(92)"the dragon "a$
  700 rem*** get spear
  705 input"{down}{down}{down}dare you fetch your spear";b$
  710 if left$(b$,1)="n" then print"{clr}": gosub 900: goto 600
  720 if d=t goto 850
  730 printtab(54)"you made it!"
  740 for x=1 to 600:next x
  750 goto 500
  800 rem**dragon dies
  810 print"{clr}";
  820 printtab(200)"a*a*r*r*g*g*h*h y*o*u g*o*t m*e!"
  830 printtab(175) "all hail!"
  840 printtab(48) "the noble dragon-slayer"
  845 goto 895
  850 rem** dragon dines
  860 print"{clr}";
  870 printtab(214)"g*o*t*c*h*a!"
  880 printtab(41)"m*u*n*c*h! m*u*n*c*h! m*u*n*c*h!"
  895 printtab(240)""
  896 end
  900 rem*** clock sub
  910 m=m+15
  920 if m=60 then h=h+1: m=0
  930 if h=8 goto 850
  940 m$=":"+str$(m): if m=0 then m$=":00"
  950 printtab(170) "it is"h;m$" o'clock"
  960 return
    1 rem   dave howe
    2 rem   (916) 445-7926
    5 poke59468,12
   10 dimg1(5),f7(35),f8(35),f9(35)
   20 dimc5(6),c6(5),c7(5),c8(7),c9(52)
   30 m$=" "
   40 p1=32768:p2=80
   50 w=0
   60 print"{clr}";
   70 print:print:print:print:print:print"wir spielen jetzt draw poker"
   80 gosub5700
   90 print"{clr}";
  100 print"{rvon}  draw poker  {rvof}     ";
  110 printtab(27);"gewinnplan":print
  120 printtab(19);"royal flush:200 zu 1"
  130 printtab(16);"straight flush:50 zu 1"
  140 printtab(14);"vier einer sorte:30 zu 1"
  150 printtab(20);"full house:20 zu 1"
  160 printtab(25);"flush:10 zu 1"
  170 printtab(22);"straight:7 zu 1"
  180 printtab(14);"drei einer sorte:5 zu 1"
  190 printtab(21);"zwei paar:2 zu 1"
  200 gosub5400
  210 input"wieviel setzen sie? (0=ende)";d
  212 ifd>10000goto5950
  213 ifd=0thenload"start",8
  215 ifd<0goto5900
  220 p=p1+15*p2
  230 gosub 6000
  240 m$="ihre wette:"
  250 l=len(m$)
  260 p=p1+2*p2
  270 gosub6100
  280 m$="$"+str$(d)
  290 l=len(m$)
  300 p=p1+3*p2
  310 gosub6100
  315 m$="ihr gewinn":p=p1+27:gosub6100
  320 for s=1to8
  330 gosub5200
  340 p=p1+191+p2*(8-s)
  350 l=8
  360 m$="$"+str$(w1)
  370 gosub6100
  380 nexts
  390 gosub7000
  400 fory=1to5
  410 gosub7100
  420 gosub2000
  430 nexty
  440 gosub8000
  450 sx=s
  460 gosub5100
  500 m$="wollen sie diese karten halten (y/n)"
  510 p=p1+11*p2
  520 gosub6000
  530 getq$
  540 ifq$=""goto530
  550 ifq$="y"goto1500
  560 ifq$="n"goto600
  570 ifq$<"0"goto530
  580 ifq$>"5"goto530
  600 m$="welche karten halten sie? (1-5)"
  610 p=p1+11*p2
  620 gosub6000
  630 m$="correktur ihrer wahl durch taste 'c'"
  640 p=p1+12*p2
  650 gosub6000
  660 m$="wenn fertig: taste 'return'"
  670 p=p1+13*p2
  680 gosub6000
  700 fori=1to5
  710 g1(i)=0
  720 nexti
  730 p=p1+24*p2
  740 gosub6000
  750 ifq$<>"c"goto810
  800 getq$
  810 ifq$=""goto800
  820 q=asc(q$)
  830 ifq=13goto970
  840 ifq$="c"goto700
  850 ifq$<"1"goto800
  860 ifq$>"5"goto800
  900 y=val(q$)
  910 g1(y)=1
  920 p=p1+24*p2+1+8*(y-1)
  930 m$="halten"
  940 l=len(m$)
  950 gosub6100
  960 goto800
  970 p=p1+11*p2:gosub6000
  980 p=p1+12*p2:gosub6000
  990 p=p1+13*p2:gosub6000
 1000 fory=1to5
 1010 ifg1(y)=0thengosub5000
 1020 nexty
 1030 gosub8000
 1040 ifsx=sgoto1100
 1050 gosub5100
 1060 sx=s
 1100 fory=1to5
 1110 ifg1(y)=1goto1140
 1120 gosub7100
 1130 gosub2000
 1140 nexty
 1150 gosub8000
 1160 ifsx=sgoto1200
 1170 gosub5100
 1180 sx=s
 1190 gosub5100
 1200 rem
 1500 gosub5200
 1510 w=w+w1
 1520 ifw<0thenm$="ihr gesamtverlust ist $"+str$(-w)
 1530 ifw>=0thenm$="ihr gesamtgewinn ist $"+str$(w)
 1540 p=p1+11*p2
 1550 gosub6000
 1600 x=300
 1610 x=x-1
 1612 getg$
 1614 ifg$<>""goto1900
 1620 ifx>0goto1610
 1900 goto90
 2000 h=c2-7
 2020 ifh<4thenh=1
 2030 fori=1to7
 2040 c8(i)=h
 2050 nexti
 2100 onc2goto2110,2210,2200,2520,2410,2510,2500,2310,2400,2300,3000,3000,3000
 2110 c8(4)=2
 2120 goto3000
 2200 c8(4)=2
 2210 c8(2)=2:c8(6)=2
 2230 goto3000
 2300 c8(2)=2:c8(6)=2
 2310 c8(3)=3:c8(5)=3
 2320 goto2520
 2400 c8(3)=3:c8(5)=3
 2410 c8(4)=2
 2420 goto2520
 2500 c8(3)=2
 2510 c8(4)=3
 2520 c8(1)=3:c8(7)=3
 3000 a=p1+15*p2+8*(y-1)
 3010 c3=(asc(c2$)and63)+128
 3020 pokea,c3
 3030 a1=160
 3040 ifc2=10thena1=asc("0")+128
 3050 e=6
 3060 gosub4000
 3070 c4=asc(c1$)
 3072 f7(5)=c4:f7(31)=c4
 3074 f8(1)=c4:f8(35)=c4
 3076 f9(1)=c4:f9(35)=c4
 3080 fori=1to7
 3090 a=a+80
 3100 pokea,160
 3110 onc8(i)gosub4100,4200,4300,4400,4500,4600
 3120 pokea+6,160
 3130 nexti
 3140 a=a+79
 3150 ifc2=10thene=5
 3160 gosub4000
 3170 pokea+e+1,c3
 3180 ifc2=10thenpokea+7,asc("0")+128
 3190 c6(y)=c1
 3200 c7(y)=c2
 3300 return
 4000 fori=1toe
 4010 pokea+i,a1
 4020 a1=160
 4030 nexti
 4040 return
 4100 forx=1to5
 4110 pokea+x,160
 4120 nextx
 4130 return
 4200 pokea+1,160
 4210 pokea+2,160
 4220 pokea+3,c4
 4230 pokea+4,160
 4240 pokea+5,160
 4250 return
 4300 pokea+1,c4
 4310 pokea+2,160
 4320 pokea+3,160
 4330 pokea+4,160
 4340 pokea+5,c4
 4350 return
 4400 forx=1to5
 4410 x1=5*(i-1)+x
 4420 pokea+x,f7(x1)
 4430 nextx
 4440 return
 4500 forx=1to5
 4510 x1=5*(i-1)+x
 4520 pokea+x,f8(x1)
 4530 nextx
 4540 return
 4600 forx=1to5
 4610 x1=5*(i-1)+x
 4620 pokea+x,f9(x1)
 4630 nextx
 4640 return
 5000 rem clear card
 5010 a=p1+15*p2+8*(y-1)-1
 5020 fori=1to9
 5030 forx=1to7
 5040 pokea+x,32
 5050 nextx
 5060 a=a+80
 5070 nexti
 5075 c6(y)=15+2*y
 5078 c7(y)=15+2*y
 5080 return
 5100 rem highlight screen
 5108 ifsx=0goto5190
 5110 p=p1+173+p2*(8-sx)
 5120 x=0
 5130 for i=1to24
 5140 n=peek(p+i)
 5150 if(n=32)and(x=0)goto5180
 5160 x=1
 5170 pokep+i,(n+128)and255
 5180 nexti
 5190 return
 5200 onsgoto5220,5240,5260,5280,5300,5320,5340,5360
 5205 w1=-d
 5210 return
 5220 w1=2*d
 5230 return
 5240 w1=5*d
 5250 return
 5260 w1=7*d
 5270 return
 5280 w1=10*d
 5290 return
 5300 w1=20*d
 5310 return
 5320 w1=30*d
 5330 return
 5340 w1=50*d
 5350 return
 5360 w1=200*d
 5370 return
 5400 print
 5410 ifw=0thenprint
 5420 ifw<0thenprint"ihr gesamtverlust ist $";-w
 5430 ifw>0thenprint"ihr gesamtgewinn ist $";w
 5440 print:print:print
 5450 return
 5500 f$=" _{$a0}) g*5t g{$a0}{$a0}{$a0} g{$a0}{$a0}{$a0}h {$a0}{$a0}{$a0}h y64h {SHIFT-POUND}{$a0}{CBM-*} "
 5510 return
 5530 f$=" )#t {SHIFT-POUND}g 5 {$a0}{$a0}{$a0}{$a0};{$a0}{$a0}{$a0}{$a0}{$a0}<{$a0}{$a0}{$a0}{$a0} 6 h) y${SHIFT-POUND} "
 5540 return
 5560 f$=" _{$a0}{$a0}) ' &b{SHIFT-POUND}{$a0}{$a0}{$a0}{CBM-C}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-F}{$a0}{$a0}{$a0})]& % {SHIFT-POUND}{$a0}{$a0}{CBM-*} "
 5570 return
 5600 f7(x1)=f1
 5620 return
 5630 f8(x1)=f1
 5650 return
 5660 f9(x1)=f1
 5680 return
 5700 forx=1to3
 5710 forx1=1to35
 5720 onxgosub5500,5530,5560
 5730 f1=asc(mid$(f$,x1,1))
 5740 iff1<96goto5760
 5750 iff1<192thenf1=f1+64
 5760 iff1<64thenf1=f1+64
 5770 f1=(f1+128)and255
 5780 onxgosub5600,5630,5660
 5790 nextx1
 5800 nextx
 5810 return
 5900 print:print"einsatz falsch "
 5910 goto5960
 5950 print:print"einsatz zu hoch, limit ist $10,000"
 5960 x=100
 5970 x=x-1
 5980 ifx>0goto5970
 5990 goto90
 6000 l=40
 6100 a=p-1
 6110 l1=len(m$)
 6120 fori=1tol1
 6125 m1$=mid$(m$,i,1)
 6130 pokea+i,asc(m1$)and63
 6140 nexti
 6150 a=a+l1
 6160 l=l-l1
 6170 ifl<=0goto6210
 6180 fori=1tol
 6190 pokea+i,32
 6200 nexti
 6210 m$=" "
 6220 return
 7000 fori=1to52
 7010 c9(i)=0
 7030 next i
 7040 b1=0
 7050 return
 7100 ifb1=52thengosub7000
 7120 c=int(52*rnd(1))
 7130 ifc9(c+1)<>0goto7120
 7140 b1=b1+1
 7150 c9(c+1)=1
 7160 c1=int(c/13)+1
 7170 c2=c-13*(c1-1)+1
 7200 c1$=mid$("ASZX",c1,1)
 7210 c2$=mid$("a234567891bdk",c2,1)
 7230 return
 8000 s=0
 8010 s2=0
 8020 fori=1to6
 8030 c5(i)=100
 8040 nexti
 8050 fori=1to5
 8060 x=5
 8070 ifc7(i)>c5(x)goto8110
 8080 c5(x+1)=c5(x)
 8090 x=x-1
 8100 ifx>0goto8070
 8110 c5(x+1)=c7(i)
 8120 nexti
 8130 ifc5(1)=1thenc5(6)=14
 8140 s1=0
 8210 fori=1to4
 8220 ifc6(i)=c6(i+1)thens1=s1+1
 8230 nexti
 8240 ifs1=4thens=4
 8250 s1=0
 8260 fori=1to5
 8270 ifc5(i)+1=c5(i+1)thens1=s1+1
 8280 nexti
 8290 ifs1=4thens=s+s1-1
 8300 if(s=7)and(c5(5)=13)thens=s+1
 8330 s1=-1
 8340 fori=1to4
 8350 ifc5(i)=c5(i+1)thens1=s1+1
 8360 ifc5(i)=c5(i+2)thens1=s1+1
 8370 nexti
 8380 ifs1>2thens1=s1+2
 8390 ifs1>sthens=s1
 8400 return
 9000 fori=1to5
 9010 input"enter suit #, card #";c6(i),c7(i)
 9020 nexti
 9030 gosub8000
 9035 print
 9040 print"s=";s
 9044 print
 9045 print"c5","c6","c7
 9050 fori=1to6
 9060 printc5(i),c6(i),c7(i)
 9070 nexti
 9080 goto9000
    1 c=32788:g=60:ti$="000000":poke59468,12:v8=rnd(1):m2=10
    2 s$="      ":km=547:ifpeek(15)=40thenkm=151
    3 goto300
    9 ti$="000000"
   10 f=int(rnd(v8)*26):iff>26orf<7then10
   20 forj=j2tof
   25 gosub 200
   30 printtab(j);" . ";s$;"."
   32 pokec,160
   35 s$="      "+x$:forj6=1toga:next
   40 nextj
   50 print tab(j);".";s$;" ."
   60 s=int(rnd(v8)*18)
   67 iff=sors=<0ors>fthen60
   70 forj2=jtosstep-1
   75 gosub 200
   80 printtab(j2);".";s$;" ."
   82 pokec,160
   85 s$="      "+x$:forj6=1toga:next
   90 nextj2
  110 printtab(j2);" .";s$;" ."
  137 s$="      "+x$
  140 g=g-1:mi=mi+m2:sc=sc+(15-m2):goto10
  200 rem
  204 ifval(ti$)>300 then 900
  209 ifg<=-1then ga=0:goto920
  210 e=peek(km)
  220 ife=74thenc=c-o:goto240
  230 ife=65thenc=c+o:goto240
  231 ife=26then ga=70:m2=10:goto240
  232 ife=18then ga=45:m2=9:goto240
  233 ife=25then ga=20:m2=8:goto240
  234 ife=42then ga=0:m2=7:goto240
  240 c2=peek(c):ifc2=46then goto800
  290 poke c-1,58:pokec,160:poke c+1,58
  299 return
  300 print"{clr}"
  301 :s=15:f=22:j2=s:ga=70
  305 print"{down}"
  309 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}          {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  310 print"M{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}        {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}N
  320 print" {CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}M      N{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}
  330 print"  M{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}    {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}N"
  340 print"   {CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}M  N{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}
  350 print"    {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}MN{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  360 print"                  NM
  370 print"                 N  M
  380 print"                N    M
  390 print"               N      M
  400 print"              N        M
  410 print"             {rvon}driving ace!
  420     
  435 ifpeek(421)=120then 60
  436 ifpeek(8502)=120then 866
  450 print"{down}{down}              which game "
  452 print"            {rvon}1. driving ace"
  454 print"            {rvon}2  grand prix {down}{down}{down}"
  455 print:print:printtab(12)"copyright 1979
  456 printtab(11)"hanimex pty ltd.
  460 getz$:ifz$=""then460
  470 g5=val(z$):ifg5>2org5=0then 460
  500 print"{clr}{down}{down}{down}{down}{down}{down}{down}do you need instructions (y or n) ?"
  501 gety$:ify$=""goto501
  502 if y$="n"then 599
  506 poke59468,14
  510 print"{clr}iN{$a0}driving ace YOU{$a0}START{$a0}WITH{$a0}80 GALLONSOF{$a0}GAS{$a0}AND{$a0}MUST{$a0}ATTEMPT{$a0}TO";
  520 print" TRAVEL{$a0}AS{$a0}{$a0}{$a0}{$a0}MANY miles AS{$a0}POSSIBLE{$a0}BEFORE YOU RUN   OUT OF gas ";
  521 ifpeek(421)=120then 60
  522 ifpeek(8502)=120then 866
  524 print"AND time."
  525 print"     eVERY{$a0}TIME{$a0}YOU{$a0}GO INTO{$a0}THE siderail";
  530 print"YOU{$a0}WILL{$a0}BE{$a0}penalized 5 GALLONS OF gas. iN{$a0}1st gear{$a0}YOU{$a0}WILL USE A ";
  540 print"GALLON EVERY 10 miles BUT MOVE{$a0}AT{$a0}A{$a0}SLOWER{$a0}{$a0}SPEED. iN4th gear YOU ";
  550 print" WILL{$a0}GET 7  mpg AND{$a0}REALLYMOVE !!
  555 print"     ";
  560 print"steering{$a0}IS{$a0}CONTROLLED FROM{$a0}THE keyboard. tO{$a0}move left{$a0}PRESS THE 'clr'";
  565 print" key";
  570 print".tO{$a0}move right PRESS 'del'. wITH{$a0}PRACTICEYOU{$a0}SHOULD{$a0}FIND{$a0}SOME{$a0}USEFUL";
  571 print" TRICKS TO{$a0}  MAKE{$a0}{$a0}STEERING{$a0}EASIER.  sELECT gears 1  TO 4 AT ANY{$a0}TIME ";
  572 print"BY pressing THE{$a0}NUMBERS1 to 4 ON{$a0}THE numeric keypad.  yOU{$a0}CAN{$a0}{$a0}";
  573 print"MAKE THE{$a0}COURSE{$a0}MORE{$a0}CHALLENGING{$a0}BY     ADJUSTING THE under/over steer ";
  574 print"RATING.  road width/car density IS{$a0}ADJUSTABLE{$a0}ON{$a0}A{$a0}1 TO 5 SCALE  "
  580 print"{down}          {rvon}press space to continue{rvof}   ":wait 59410,4,4
  599 poke59468,14
  600 print"{clr}        under/over steer":print"{down}  UNDERSTEER < 1(NORMAL) < OVERSTEER"
  601 print"{down}input rating ( VALID{$a0}RANGE: .1 TO 5)":gosub980:o=ya
  605 ifg5=2then 620
  610 print"{clr} enter road width":print"(0) expert thin to (5) easy wide)"
  611 gosub980:dr=ya
  612 print"{clr}":forj=1todr:x$=x$+" ":next
  614 s$=s$+x$
  616 goto696
  620 print"{clr}          enter difficulty"
  625 print"             1. easy road
  627 print"               through
  629 print"        4. densely crowded road"
  640 print"{down}     ( remember select road speed )
  642 print"         with gears 1 through 4  {down}{down}{down}"
  645 getc$:ifc$=""then 645
  650 d4=val(c$):ifd4=0ord4>4then645
  696 poke59468,12
  697 ho=300+val(right$(ti$,3)):ifho>959thenho=ho-1000
  699 on g5 goto 9,1000
  700 rem*****     score  cycle    *****
  702 t5=300-val(ti$):t4=int(t5/100)
  704 ife4=1thent4=0:ti$="000000"
  705 print"time to go";t4":";60-val(right$(ti$,2));"{down}{down}{down}{down}{down}"
  706 ifen=1thenprint"{down}            {rvon}  final     ":goto720
  710 print"            {rvon}   score   "
  720 print"            {rvon}miles {rvof}";mi;tab(23);"M"
  730 print"            {rvon}gas   {rvof}";g;tab(24);"M"
  735 ifen=1thenprint"            {rvon}score {rvof}";g+sc+ga;tab(25);"M":goto750
  740 print"            {rvon}score {rvof}";sc;tab(25);"M"
  750 print"     N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M
  760 print"     {CBM-G}             {CBM-G}{CBM-V}     {CBM-G}     Q{CBM-G}
  770 print"     {CBM-G} driving ace {CBM-G}      {CBM-G}     {CBM-M}
  780 print"     M    {CBM-@}{CBM-@}{CBM-@}      L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}  {CBM-@}{CBM-@}{CBM-@} {CBM-M}
  790 print"      M{CBM-@}{CBM-@}NM{CBM-@}NM{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}NM{CBM-@}NMN
  791 er=1
  794 ifen=1thenprint"{up}";:end
  795 cr=0:g=g-5
  797 print"{down}        {rvon}press'space'to continue{rvof}       ":wait59410,4,4:print"{clr}"
  799 f=25:j2=15:return
  800 rem
  810 print"{clr}{down}{down}{rvon}            off the track               "
  820 goto 890
  866 lh=8058:pokec,120:pokec+1,60:goto700
  880 print"{clr}{down}{down}{rvon}                wipe out                "
  890 print"{down}{down}{down}"
  899 goto700
  900 print"{clr}{down}{down}{rvon}               time is up               "
  910 print"{clr}{down}{down}{rvon}":en=1
  912 e4=1
  915 goto700
  920 print"{clr}{down}{down}{rvon}            out of gas !!!              "
  930 print"{down}{down}{down}":en=1
  940 goto700
  980 gety$:ify$=""goto980
  985 ya=val(y$)
  986 ifya=0thengoto980
  990 return
 1000 rem grand prix
 1010 ti$="000000"
 1020 dr$(1)="{CBM-G}             {CBM-M}
 1030 dr$(2)="{CBM-G}{CBM-+}            {CBM-M}
 1032 dr$(3)="{CBM-G} {CBM-+}           {CBM-M}
 1040 dr$(4)="{CBM-G}  {CBM-+}      {CBM-+}   {CBM-M}
 1041 dr$(5)="{CBM-G}   {CBM-+}      {CBM-+}  {CBM-M}
 1042 dr$(6)="{CBM-G}    {CBM-+}      {CBM-+} {CBM-M}
 1043 dr$(7)="{CBM-G}     {CBM-+}      {CBM-+}{CBM-M}
 1044 dr$(8)="{CBM-G}      {CBM-+}      {CBM-M}
 1046 dr$(9)="{CBM-G}       {CBM-+}     {CBM-M}
 1048 dr$(0)="{CBM-G}        {CBM-+}    {CBM-M}
 1049 d4=d4+4
 1050 r=32788:print"{clr}"
 1190 k=rnd(4)*d4:ifk=0then1190
 1200 printtab(10);dr$(1)
 1207 ifc=1thenc=0:goto1220
 1210 ifk>3then gosub1300
 1220 gosub 1600
 1222 ifer=1thener=0:goto1050
 1225 forj=1toga:next
 1227 g2=g2+1:ifg2>20theng2=0:g=g-1:mi=mi+m2:sc=sc+(15-m2):goto1190
 1230 goto 1190
 1300 l=int(rnd(4)*10)
 1310 printtab(10);dr$(l)
 1320 c=1
 1399 return
 1600 ifval(ti$)>320 then 900
 1602 ifg<=-1then ga=0:goto920
 1609 e=peek(547)
 1610 ife=74thenr=r-o:goto1670
 1620 ife=65thenr=r+o:goto1670
 1630 ife=26then ga=70:m2=10:goto1670
 1640 ife=18then ga=45:m2=9:goto1670
 1650 ife=25then ga=20:m2=8:goto1670
 1660 ife=42then ga=0:m2=7:goto1670
 1670 r3=peek(r+40):r2=peek(r):ifr2<>32orr3<>32then goto1800
 1680 poker,160
 1699 return
 1800 r4=r3+r2:ifr4=192 thenreturn
 1890 goto 880
 9670 r3=peek(r+40):r2=peek(r):ifr2<>32orr3<>32then goto1800
    0 clr:poke59468,12
    1 rem copyright(c)1980 bob carr
    2 rem 957 e wash.
    3 rem el cajon ca
    5 rem cursor 18
    6 rem box 550 goleta ca 93017
   10 rem21mar80
   60 print"{clr}{down}{down}"tab(9)"cursor #18  dromeda!
   70 print"{down} copyright (c) 1980  by bob carr{down}
   80 fori=1to40:print"{SHIFT-*}";:next
  100 print"{down}another invasion?":print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  120 gosub230:e=59466:g=e-2:pokee+1,16:t=14:goto280
  130 pokeg,85:goto205
  140 pokee,15:pokeg,10:gosub210:ifbthenreturn
  150 gosub260:goto260
  160 pokeg,90:goto205
  170 pokeg,95:gosub205:goto260
  180 pokeg,105:goto205
  190 pokee,50:pokeg,200:gosub210:goto150
  200 pokee,15:fori=200to50step-2:pokeg,i:next
  205 pokee,51
  210 fori=1to15:next:pokeg,0:return
  220 pokee,85:pokeg,150:return
  230 fori=1to500:next
  240 fori=1to1250:next
  250 fori=1to200:next
  260 fori=1to50:next:return
  270 pokee+1,0:forx=1to30:pokee+2,194:pokee+2,12:next:pokee+1,16:return
  280 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":c$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  290 d$="RRR{rvon}O{rvof}{CBM-I}{down}{left}{left}{left}{left}{left} W EW":e$="{up}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     {up}{left}{left}{left}{left}":g$="{home}{down}{down}{down}"
  300 f$="RQR{rvon}O{rvof}{CBM-I}{down}{left}{left}{left}{left}{left} W EW":h$="{CBM-I}{rvon}P{rvof}RQR{down}{left}{left}{left}{left}{left}WE W ":i$="{left}{left}{CBM-I}{rvon}P{rvof}RRR{down}{left}{left}{left}{left}{left}WE W "
  310 print"{clr}{down} . .       . .        .    .    NPM .
  320 print"    ."spc(9)"{CBM-@}  ."spc(8)".  {$a0}{$a0}{CBM-M}{CBM-T}POL .
  330 print"   ."spc(9)"NMM  .    ."spc(7)"N{CBM-T}{CBM-T}M M
  340 print"     .    . {CBM-M}POLL  {CBM-@}{CBM-@}  {CBM-@}{CBM-@} {$a0}{$a0}. N{$a0}{$a0}  M M
  350 print"  {CBM-POUND}  {CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}N{CBM-T}{CBM-T}M MNM MNM M {CBM-@}{CBM-@}N{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-POUND}{CBM-+}
  360 print" {CBM-POUND}{CBM-+}{CBM--}NM MNM N{CBM-@}{CBM-@}{CBM-@}{CBM-@}MN{CBM-@}{CBM-@}MN{CBM-@}{CBM-@}M NM {SHIFT--}{CBM-F}{CBM-F}{CBM-F}{CBM-D}{CBM-D}{CBM-D}{SHIFT--}{CBM-+}{CBM-POUND}
  370 print"{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-@}{CBM-@}MN{CBM-@}{CBM-@}M{SHIFT--}{CBM-F}{CBM-F}{CBM-D}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}N{CBM-@}{CBM-@}M{SHIFT--}{CBM-F}{CBM-F}{CBM-F}{CBM-D}{CBM-D}{CBM-D}{CBM-+}{CBM-+}{CBM-+}
  380 print" {CBM--}{SHIFT--}{CBM-+}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-F}{CBM-D}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-D}{SHIFT--}{SHIFT--}{CBM-F}{CBM-F}{CBM-F}{CBM-D}{CBM-D}{CBM-D}{SHIFT--}{SHIFT--}{CBM--}
  390 print"  {SHIFT--}{SHIFT--}{CBM-N}{CBM-H}{SHIFT--}{SHIFT--}{CBM-N}{CBM-H}{SHIFT--}{SHIFT--}{$a0}{CBM-L}{CBM-J}{$a0}{SHIFT--}{SHIFT--}{CBM-N}{CBM-H}{SHIFT--}{SHIFT--}{CBM-N}{CBM-H}{SHIFT--}{SHIFT--}{CBM-N}{CBM-H}{SHIFT--}{SHIFT--}{$a0}{CBM-D}{CBM-L}{CBM-J}{CBM-F}{$a0}{SHIFT--}{SHIFT--}
  400 print"  {CBM-E}";:forx=1to34:print"{CBM-T}";:next:print"{CBM-E}N
  410 forx=1to37:print"{CBM-Y}";:next:print"N
  420 printtab(36)"N":printtab(35)"N":printtab(34)"N N":printtab(34)"{CBM-T}O{CBM-T}{CBM-T}
  430 printtab(35)"{CBM-G}":printtab(35)"{CBM-G}{rvon}{SHIFT-@}L":printtab(34)"N{CBM-G}{rvon}PO":printtab(33)"NN{CBM-G}
  440 printtab(32)"NN {CBM-G}{rvon}PO":printtab(31)"NN  {CBM-G}{rvon}PO":printtab(30)"NN   {CBM-G}"
  442 print:print"{home}";:gosub1020
  450 print:print"{clr}{down}{down}{down}{down}"tab(18)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(17)"N{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}M":printtab(17)"{SHIFT--}     {SHIFT--}
  456 fori=1to39:print"{CBM-T}";:next:print
  460 printtab(19)"{up}P{CBM-T}O":forx=1to5:printtab(19)"{CBM-M} {CBM-G}
  470 next:printtab(t)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  480 fori=1to7:printtab(t)"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{$a0}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}":next
  510 printtab(19)"[W]":printtab(19)"{CBM-C}{CBM-U}{CBM-V}
  520 ifc=0thengosub230:goto1410
  530 printtab(24)"{up}{up}{up}Q{CBM-F}";:gosub1520:gosub960
  540 forx=1to20:print"{left}{left}{left}\!/";:gosub170:print"{left}{left}{left}   ";:gosub140:next:c=1
  550 print"{clr}
  560 print"{home}{down}{down}{down}"tab(15)"{CBM-C}{CBM-S}"spc(6)"{CBM-A}{CBM-V}":printtab(16)"{SHIFT--}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT--}
  570 printtab(15)"{rvon}{SHIFT-POUND}{SHIFT--}      {SHIFT--}{CBM-*}{rvof}":printtab(t)"{rvon}{SHIFT-POUND}RR      RR{CBM-*}{rvof}
  580 printtab(t)"{rvon} <QM    NQ> {rvof}":printtab(t)"{rvon}{CBM-H}   M  N   {CBM-N}{rvof}
  590 printtab(t)"{rvon}    {CBM-M}PO{CBM-G}    {rvof}":printtab(t)"{CBM-*}{rvon}    MN    {rvof}{SHIFT-POUND}
  600 printtab(15)"{rvon}{CBM-G}{$a0}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-M}":printtab(15)"{CBM-*}{rvon} {CBM-*}{CBM-T}EE{CBM-T}{SHIFT-POUND} {rvof}{SHIFT-POUND}
  610 printtab(12)"{CBM-@}{CBM-@}R{rvon}{SHIFT-POUND}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-*}{rvof}R{CBM-@}{CBM-@}":printtab(11)"{rvon}{SHIFT-POUND}                {CBM-*}
  620 printtab(10)"{CBM-M}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{rvon} N {CBM-I}{rvof}{CBM-V}{CBM-C}{rvon}{CBM-I} M {rvof}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-G}"tab(51)"{CBM-G}{CBM-G}{CBM-G}{CBM-G}{CBM-*}{rvon}M{CBM-I}{CBM-I}{rvof}{CBM-V}{CBM-C}{rvon}{CBM-I}{CBM-I}{rvon}N{rvof}{SHIFT-POUND}{CBM-M}{CBM-M}{CBM-M}{CBM-M}
  630 printtab(11)"{CBM-G}{CBM-G}{CBM-G}{CBM-G} {CBM-*}{rvon}M{CBM-D}{rvof}{CBM-V}{CBM-C}{rvon}{CBM-F}N{rvof}{SHIFT-POUND} {CBM-M}{CBM-M}{CBM-M}{CBM-M}":printtab(11)   "{CBM-G}{CBM-G}{CBM-G}{CBM-G}  {CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-Y}  {CBM-M}{CBM-M}{CBM-M}{CBM-M}
  640 printtab(10)"NNNN"spc(12)"MMMM
  650 ifcthenforx=1to10:print"{rvon}    ";:next:gosub240:gosub270
  660 gosub240
  664 ifcthenprint:print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(15)"{rvon}_{SHIFT-*}{rvof}{down}{down}{down}{down}{rvon}M{rght}{rght}{rght}{rght}N{left}{left}{left}{left}{left}{left}{down}  {rght}{rght}  "
  670 ifcthengosub240:c=0:a=1:goto560
  680 gosub270:ifathenpokee+1,0:end
  690 print"{clr}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  700 print"{SHIFT--}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{SHIFT--}"spc(9)"{CBM-A}{CBM-S}{CBM-A}O{CBM-T}{CBM-T}{CBM-T}P{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{CBM-S}
  708 k$="{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  710 print"{SHIFT--}{SHIFT--}"spc(9)"{SHIFT--}{SHIFT--}"spc(9)"{SHIFT--}{CBM-T}{CBM-T}";k$;"{SHIFT--}
  720 print"{SHIFT--}{SHIFT--}"spc(9)"{SHIFT--}{SHIFT--}"spc(9)"{SHIFT--}O";k$;"P{SHIFT--}
  730 print"{SHIFT--}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{SHIFT--}    {CBM-A}    {SHIFT--}{CBM-G}{CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}{CBM-M}{SHIFT--}
  740 ifd=1thenprinttab(18)"{up}{rvon} {rvof}
  750 print"{SHIFT--}....  W W{$a0}{$a0}{SHIFT--}   {rvon}{SHIFT-POUND}{CBM-*}{rvof}{CBM-X}   {SHIFT--}{CBM-G}{SHIFT--}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-K}{CBM-M}{SHIFT--}
  756 j$="    {SHIFT--}{CBM-G}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{CBM-M}{SHIFT--}
  760 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}";j$
  770 printk$;"{CBM-T}{CBM-T} {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} ";j$
  780 printtab(13)"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}"spc(6)"{SHIFT--}{CBM-T}{CBM-T}";k$;"{SHIFT--}
  790 printtab(12)"N{CBM-*}{SHIFT-POUND}"spc(7)"{SHIFT--}O";k$;"P{SHIFT--}
  800 print"  {CBM-R}{CBM-R}"spc(7)"{rvon}{SHIFT-POUND}{CBM-*}{rvof} {CBM-G}"spc(7)"{SHIFT--}{CBM-G} {CBM-A}{CBM-S}{CBM-A}{CBM-S}{CBM-A}{CBM-S}    {CBM-M}{SHIFT--}
  810 print"  {SHIFT--}{SHIFT--}"spc(7)"{rvon}{CBM-F}{rvof}{SHIFT-POUND}{CBM-G}{CBM-G}"spc(7)"{SHIFT--}{CBM-G} {SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}   {CBM-M}P{SHIFT--}
  820 print"  {SHIFT--}{SHIFT--}"spc(6)"Q  {CBM-G}{CBM-G}"spc(7)"{SHIFT--}{CBM-G}{CBM-A}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-S} {CBM-M}P{rvon} {rvof}{SHIFT--}
  830 ifd=1thenprinttab(8)"{up}{CBM-POUND}{CBM-+}{rvon}Q{rvof}{CBM--}
  840 print" UKJI    P{CBM-T}O {CBM-G}L"spc(7)"{SHIFT--}{CBM-G}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--} {CBM-M}{rvon} {rvof}{CBM-M}{SHIFT--}
  850 print" {CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-W}     M{CBM-T}{CBM-T}UIM"spc(6)"{SHIFT--}{CBM-G}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--} {CBM-M}{CBM-M}{CBM-M}{SHIFT--}
  860 print" J{SHIFT-*}{SHIFT-*}K     N  JK M     {SHIFT--}{CBM-G}{SHIFT--}JKJKJK{SHIFT--} {CBM-M}{CBM-M}{CBM-M}{SHIFT--}
  870 print"O";:forx=1to37:print"{CBM-T}";:next:print"P
  880 print"{CBM-T}OPP";:forx=1to31:print"{CBM-T}";:next:print"OOP{CBM-T}
  890 print" {CBM-G}{CBM-M}{CBM-M}"spc(t)"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"spc(7)"{CBM-G}{CBM-G}{CBM-M}
  900 print" {CBM-G}{CBM-M}{CBM-M}"spc(t)"J{CBM-R}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{CBM-R}K"spc(7)"{CBM-G}{CBM-G}{CBM-M}
  910 fori=1to2:print" {CBM-G}{CBM-M}{CBM-M}"spc(15)"{SHIFT--}{SHIFT--}    {SHIFT--}{SHIFT--}"spc(8)"{CBM-G}{CBM-G}{CBM-M}":next
  930 print" L{SHIFT-@}N"spc(15)"{SHIFT--}{SHIFT--}    {SHIFT--}{SHIFT--}"spc(8)"ML{SHIFT-@}":printtab(19)"{CBM-Z}{CBM-X}    {CBM-Z}{CBM-X}
  940 ifbthen1700
  950 gosub1610:c=1:goto450
  960 print"{clr}{down}{down}{down}{down}{down}{down}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"spc(17)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  970 forx=1to8:printtab(11)"{CBM-G}"spc(15)"{CBM-M}":next
  980 printtab(11)"M"spc(15)"N":printtab(12)"M"spc(13)"N"
  990 printtab(13)"M"spc(11)"N":printtab(t)"M"spc(9)"N"
 1000 printtab(15)"M"spc(7)"N":printtab(16)"M  Q  N
 1010 printtab(17)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{left}{up}{up}";:return
 1020 printtab(39);:forx=1to28:print" {left}{left}.{left}";:gosub130:gosub250
 1030 next:forx=1to4:print" {down}{left}{left}{CBM-F}{left}";:gosub160:gosub150:next
 1040 forx=1to2:print" {down}Q{left}";:gosub170:next:forx=1to2:print"M{down}Q{left}";:gosub170:next
 1050 print"{SHIFT--}{down}Q{left}";:gosub170:print" {down}Q{left}";:gosub170:print"{CBM-T}{down}Q{left}";:gosub170
 1060 print"{CBM-Y}{down}Q{left}";:gosub170:forx=1to2:print" {down}Q{left}";:gosub170:next:forx=1to5
 1070 print" {down}{left}{left}Q{left}";:gosub180:next:print"{up}thud!{left}{left}{left}{left}{left}";:gosub270:print"     ":gosub230:gosub230
 1078 print:printb$tab(34)"{down}{down}{down}{down}{down}{down}{down}{CBM-F}{left}";
 1080 gosub140:forx=1to2:print" {down}{left}{left}{CBM-F}{left}";:gosub140:next
 1090 gosub230:forx=1to7:print" {left}{left}{CBM-F}{left}";:gosub140:gosub150:next:gosub230:print
 1100 printb$tab(34)"{down}{down}{down}{down}{down}{down}{down}{CBM-F}{left}";:gosub140:forx=1to2:print" {down}{left}{left}{CBM-F}{left}";:gosub140:next
 1110 gosub150:forx=1to6:print" {left}{left}{CBM-F}{left}";:gosub140:gosub250:next:print
 1120 gosub230:printb$"{rght}{rght}{rght}{rght}{CBM-C}{left}";:gosub140:print"{CBM-T}{down}{CBM-C}{left}";:gosub140:print"{CBM-Y}{down}{CBM-C}{left}";:gosub140
 1130 gosub240:forx=1to6:print" {down}{CBM-C}{left}";:gosub140:next:print" {CBM-C}":gosub140:gosub230
 1140 gosub240:printb$tab(22)"{CBM-C}{left}";:gosub140:print"{CBM-T}{down}{left}{left}{CBM-C}{left}";:gosub140
 1144 print"{CBM-Y}{down}{left}{left}{CBM-C}{left}";
 1150 forx=1to7:print" {down}{left}{left}{CBM-C}{left}";:gosub140:next:gosub240
 1160 print:printc$tab(23)"{rght}";:forx=1to7:print"{CBM-F}{CBM-F} {left}{left}{left}{left}";:gosub140:next:gosub230
 1170 print:printb$tab(13)"{CBM-V}{left}";:gosub140:print"{CBM-T}{down}{left}{left}{CBM-V}{left}";:gosub140:print"{CBM-Y}{down}{left}{left}{CBM-V}{left}";
 1180 forx=1to5:print" {down}{left}{left}{CBM-V}{left}";:gosub140:next:gosub240
 1190 forx=1to2:print" {down}{CBM-V}{left}";:gosub140:next:print" {CBM-F}{left}";:gosub140:print" {CBM-F}";
 1200 gosub140:print"{rght}{rght}{up} {down}{CBM-V}{left}";:gosub140:print" {CBM-F}{left}";:gosub140:print" {down}{CBM-V}{left}";:gosub140
 1210 forx=1to3:print" {left}{left}{CBM-V}{left}";:gosub140:next:gosub240:print"{up}{rght}{rght}{rght}{rght}{CBM-F}{CBM-F} {left}{left}{left}{left}";:forx=1to3
 1220 print"{CBM-F}{CBM-F} {left}{left}{left}{left}";:gosub140:next:gosub230:print"{left}{left}J{left}{left}{left}{left}{left}{up}click!";:gosub160
 1230 gosub250:print"{left}{left}{left}{left}{left}{left}      ":gosub240:gosub270:gosub240
 1240 printc$"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:forx=1to10:print"{CBM-F} {down}{rght}{CBM-V} {up}{left}{left}{left}{left}{left}{left}";:b=1:gosub140:next
 1250 print"  {down}{rght}{CBM-V} {left}{left}{left}";:gosub140:print"{CBM-V} {left}{left}";:gosub140:print" "
 1260 printtab(t)"{up}{up}{up}{CBM-B}{CBM-D}{down}{left}{left}{left}   {up}{left}{left}";:gosub140:forx=1to3:print"  {left}{left}{left}{up}{CBM-B}{CBM-D}{left}{left}";:gosub140
 1270 next:forx=1to11:print"{left}{CBM-B}{CBM-D} {left}{left}{left}";:gosub140:next:print"{CBM-D} ";:gosub140:print"{left}{left}  "
 1278 gosub230:gosub240:b=0:printb$"{down}{down}{CBM-I}{down}{left}W{up}{left}";
 1280 gosub190:print"{rvon}O{rvof}{CBM-I}{down}{left}{left}EW{up}{left}{left}";:gosub190
 1290 print"R{rvon}O{rvof}{CBM-I}{down}{left}{left}{left}EEW{up}{left}{left}{left}";:gosub190:print"RR{rvon}O{rvof}{CBM-I}{down}{left}{left}{left}{left} EEW{up}{left}{left}{left}{left}";:gosub190
 1300 printd$;:gosub190:forx=1to17:printe$;d$;:gosub190:next:gosub230
 1310 print"{left}{left}{left}{CBM-F}{left}{left}{left}{left}";:gosub140:print"{CBM-D}{left}";:gosub140:gosub230:forx=1to6
 1320 print" {rght}{rght} {left}{left}{left}{left}{left}{down}{CBM-D}{rght}{rght}{CBM-F}{left}{left}{left}{left}";:gosub140:next:print"{rght} {up}{left}{left}{left}{left}{left}";
 1330 gosub190:print"      {down}{left}{left}{left}";:gosub240:forx=1to5:print"    {left}{left}{left}{up}{CBM-D}Q{CBM-F}{left}{left}{left}";:gosub140
 1340 next:gosub240:print"  {up}{left}{left}{CBM-D}Q{left}";:gosub140:print" {up}{rght}Q{down}{left}{left}{left}{left}{CBM-C}{left}";:gosub140
 1350 print" {down}{rght}";:gosub140:forx=1to2:print" {CBM-F}{left}";:gosub140:next
 1360 print" {up}{CBM-F}{left}";:gosub140:print"{CBM-C}{left}";:gosub140:print"E";:gosub140:gosub230
 1370 forx=1tot:printe$;f$;:gosub190:next:printe$;f$;"{left}N";:gosub190:printe$;
 1380 print"RQR{rvon}O{rvof}N{down}{left}{left}{left}{left}W{rght}N{rght}";:gosub190:printe$;
 1390 print"RQRN{down}{left}{left}{left}WN{rght}{rght}";:gosub190:printe$;"RQN{down}{left}{left}N{rght}{rght}{rght}";:gosub190
 1400 printe$;"RN{down}{left}{left}N";:gosub190:print"{up}{left} N":return
 1410 printg$"{down}{down}R{left}";:gosub190:print"QR{down}{left}{left}W{up}{left}";:gosub190
 1420 print"RQR{down}{left}{left}{left} W{up}{left}{left}";:gosub190:print"{rvon}P{rvof}RQR{down}{left}{left}{left}{left}E W{up}{left}{left}{left}";:gosub190:printh$;
 1430 gosub190:forx=1to12:printe$;h$;:gosub190:next:gosub230:print"{left}{left}{left}{CBM-F}{rght}";:gosub140
 1440 print"{CBM-D}{up}{left}{left}";:gosub140:gosub240:print"R{down}{left}{left}";:gosub140
 1450 print" {rght}{CBM-F}{left}";:gosub140:print" {down}{rght}{rght}{rght}";:gosub140:gosub230:gosub240
 1460 forx=1to13:print"{SHIFT--}{left}{down}{rvon} {rvof}{left}";:gosub160:gosub170:gosub140:next:gosub230
 1470 print"{rvon} {rvof}{CBM-F}{left}";:gosub140:forx=1to2:print"{CBM-@}{CBM-D}Q{CBM-F}{left}{left}{left}";:gosub140:next
 1480 gosub230:forx=1to2:print"{CBM-@}{left}{left}{CBM-F}{left}";:gosub140:next:print"L{left}{left}";:gosub140
 1490 forx=1to13:print" {left}{up}{rvon} {rvof}{left}";:gosub160:gosub170:gosub140:next:print"{CBM-T}{left}";
 1500 gosub230:print"{left}{left}{left}{left}{up}{CBM-F}{left}";:gosub140:print" {left}{left}{left}{CBM-F}{left}";:gosub140
 1510 print" {rght}{rght}";:gosub140:gosub230:forx=1to12:printe$;i$;:gosub190:next:goto690
 1520 print"{left}{left}{left}{CBM-F}Q{CBM-POUND}{left}{left}{left}{left}";:gosub200:print"{CBM-F}{CBM-@}Q{CBM-+}{CBM-+}{left}{left}{left}{left}{left}{left}";:gosub200:print
 1540 gosub200:printb$tab(20)"{up}{up}{up}";:forx=1to13:print"{SHIFT--}{left}{down}{rvon} {rvof}{left}";:gosub200:next
 1550 print"{rght}{CBM-@}{left}{left}";:gosub200:forx=1to7:print" {left}{up}{rvon} {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{left}{left}{left}{left}{up}";
 1560 gosub200:next:forx=1to6:print" {left}{up}{rvon} {rvof}{down}{left}{CBM-+}{left}{up}";:gosub200:next:b=1
 1570 print"{CBM-+}{up}{rght}{rght}{CBM-Z}";:forx=1to13:print" {CBM-F}{left}";:gosub140:next:print" ":printtab(19);
 1580 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:forx=1to5:print"[{rvon}W{rvof}]{left}{left}{left}";:gosub200
 1590 print"   {left}{left}{left}";:gosub170:next:gosub220:print"{left}{left}{down}{rvon}       "
 1600 forx=1to99:printtab(12)"{up}{up}{rvon}                 ":next:pokeg,0:return
 1610 print"{up}{up}":forx=1to17:print" {rvon} {rvof}{left}";:gosub140:next:gosub230:b=1
 1620 forx=1to5:print" {left}{up}{rvon} {rvof}{left}";:next:print" {rvon} {rvof}{left}";:gosub140
 1630 print"U{rvon} {rvof}{left}";:gosub140:print"{SHIFT-*}{rvon} {rvof}{left}";:gosub140:gosub230
 1640 print"{SHIFT-*}{left}{up}{rvon} {rvof}{left}";:forx=1to2:print"{CBM-T}{left}{up}{rvon} {rvof}{left}";:next:gosub140
 1650 print" {left}{left}{rvon} {rvof}{left}";:gosub140:gosub230:forx=1to11:print" {left}{up}{rvon} {rvof}{left}";:next
 1660 gosub140:print" {left}{left}{rvon} {rvof}":gosub140:fori=1to4000:next:print"{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}";
 1670 print"click!{down}{left}J{up}{left}{left}{left}{left}{left}{left}";:gosub160:gosub250:print"      ":printg$tab(17);
 1680 gosub240:gosub270:forx=1to20:print"M!N{left}{left}{left}";:gosub140
 1690 print"   {left}{left}{left}";:gosub140:next:d=1:goto550
 1700 gosub270:forx=1to6:print"{home}":print"{down}{down}{rght}{rght}{rght}";:print"       {left}{left}{left}{left}{left}{left}{left}";:gosub200
 1710 print"{rvon}danger!{rvof}":gosub200:next:printtab(18)" {rvon} {rvof}{left}";:gosub140:forx=1to11
 1720 print" {left}{down}{rvon} {rvof}{left}";:ifx=7orx=9orx=10thenprintspc(30)"{up}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rght}{rght}{rght}{rght}{rght}{rght}";
 1730 ifx=8thenprintspc(31)"{up}{rvon}Q{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{rght}{rght}{rght}{rght}";
 1740 next:gosub140:print" {rvon} {rvof}{left}";:gosub140:print" {left}{down}{rvon} {rvof}{left}";:forx=1to2
 1750 print"{CBM-T}{left}{down}{rvon} {rvof}{left}";:next:gosub140:print"{SHIFT-*}{left}{left}{rvon} {rvof}{left}";:gosub140:print"{SHIFT-*}{left}{left}{rvon} {rvof}{left}";:gosub140
 1760 print"U{left}{left}{rvon} {rvof}{left}";:gosub140:forx=1to5:print" {left}{down}{rvon} {rvof}{left}";:next:gosub140
 1770 forx=1to17:print" {left}{left}{rvon} {rvof}{left}";:gosub140:next:c=1:goto450
    0 clr:pg$="drone!":nm$="29":goto62000
    1 " randall lockwood
    2 " 90 dyke rd
    3 " seatauket ny 11733
    4 "
    5 " cursor #29, feb 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 2-17-82 tz
  140 goto200
  150 forz=1to2500:next:return
  160 printz$;:forq2=1to6:printc$:next:return
  170 print"{rvon}press a key to proceed"
  180 geta$:ifa$=""then180
  190 return
  200 deffnr(x)=int(rnd(1)*x+1):k=32768:s=59464:pokes+3,16:pokes+2,55:pokes,0
  210 w$="drone":dimmc(7):fori=1to7:readmc(i):next:data2,4,5,1,2,3,2
  220 z$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":c$="                                       "
  230 u$=" units"
  240 y$="missile":fori=1to6:readpf(i):next:data.3,.3,.8,.5,0,.75
  250 print"{clr}{down}{down}{down}game level (1-9)? ";
  260 gosub60000:a$=in$:gl=val(a$)
  262 ifa$=""thenprint"{down}i'll assume 2":forz2=1to1000:next:gl=2:goto270
  265 ifgl<1orgl>9then250
  270 print"{clr}{down}{down}";spc(8)"{rvon} $$ costs of "w$;"s $$ {down}{down}"
  280 print" 1. photo    2 "u$:print" 2. tv       4 "u$:print" 3. hero     5 "u$
  290 print" 4. decoy    1 "u$:print" 5. chaff    2 "u$:print" 6. cruise   3 "u$
  320 print" 7. abm      2 "u$
  350 fa=150+(10-gl)*30:printz$;c$
  360 gosub160:printz$;"you have";fa;"units of funding."
  370 printz$;"{down}";c$:printz$;:print"{down}what type of drone? ";:gosub60000:t$=in$
  375 ift$=""thenprintz$c$"{up} please type a number":goto370
  380 print"how many? ";:gosub60000:n$=in$
  390 ift$<>"i"then410
  400 gosub2060
  410 ift$<>"e"then430
  420 fori=1to7:na(i)=0:next:goto350
  430 n=val(n$):t=val(t$):ifn=0ort=0ort>7then360
  435 ifna(t)+n<0then465
  440 ifn*mc(t)<=fathen470
  450 gosub160:printz$;"{rvon}insufficient funds":gosub150
  460 gosub160:goto360
  465 gosub160:printz$;"sorry, that's not possible.":gosub150:gosub160:goto360
  470 na(t)=na(t)+n:fa=fa-n*mc(t)
  480 iffa>0thenprintz$;c$:goto360
  490 print"{clr}"
  500 fori=32770to32804:pokei,91:next
  505 fori=crt+wd*1+2tocrt+wd*14+2stepwd:pokei,91:pokei+34,91
  510 next:fori=crt+wd*15+2tocrt+wd*15+36:pokei,91:next
  515 pokecrt+wd*15+19,90:pokecrt+wd*16+19,90
  520 dime(5+gl),m(5+gl):fori=1to5+gl
  530 r=fnr(14):c=fnr(33)+3:l=wd*r+c:p=k+l
  540 ifpeek(p)<>32then530
  550 e(i)=p:m(i)=fnr(30):pokep,96:nexti
  560 gosub160:printz$;spc(7)"{rvon}enemy bases deployed!!!":gosub150
  570 de=0:gosub160:printz$c$c$z$w$" type to launch? ";
  575 gosub60000:d$=in$
  577 ifd$="q"thenprint"{clr}":end
  580 ifd$<>"l"then640
  590 printz$"{down}{down}1-photo  2-tv  3-hero 4-decoy  5-chaff"
  600 print"6-cruise  7-defensive":print:print"press a key
  620 geta$:ifa$=""then620
  630 goto570
  640 ifd$<>"i"then660
  650 gosub2060:gosub160:goto570
  660 ifd$="n"then900
  670 d=val(d$):ifd<1ord>7then570
  680 ifna(d)=0thengosub160:printz$"{down}{down}no type";d;w$"s available":gosub150:goto570
  690 na(d)=na(d)-1:ondgoto700,700,700,780,870,700,890
  700 gosub2100
  710 gosub160:printz$;"enter program for "w$" ";
  720 gosub60000:p$=in$
  730 ifp$="c"thengosub2500:goto710
  735 ifp$="0"thenna(4)=n1:na(5)=n2:n1=0:n2=0:na(d)=na(d)+1:goto570
  740 gosub2190:ifer=1then700
  750 gosub1520:gosub160:printz$w$" launched"
  760 fori=1to5:pokecrt+15*wd+19,218:forz=1to50:next:pokecrt+15*wd+19,90
  765 forz=1to50:next:next
  770 goto1650
  780 gosub160:printz$"how many more decoys,"na(4)"left"
  790 gosub60000:a$=in$:de=val(a$)
  800 gosub160:printz$;"enter program for  "w$"? ";
  810 gosub60000:p$=in$
  820 ifp$="c"thengosub2500:goto800
  830 gosub2190:ifer=1then800
  840 gosub160:printz$w$" launched"
  850 fori=1to5:pokecrt+15*wd+19,218:forz=1to50:next:pokecrt+15*wd+19,218
  855 forz=1to50:next:next
  860 goto1650
  870 gosub160:printz$"chaff drones are used with photo,tv
  880 print"or cruise drones":gosub150:gosub160:goto570
  890 gosub160:printz$"{down}{down}no incoming "y$:gosub150:goto570
  900 rem enemy move
  910 h=h-1:ifh<0thenh=0
  920 mm=0:fori=1togl+5:mm=mm+m(i):next:ifmm=0then2380
  930 na=0:fori=1to7:ifna(i)>0thenna=1
  940 next:ifna=1then990
  950 gosub160:printz$;
  960 print"you have no offensive or defensive arms."
  970 print"then enemy has"mm"missiles left."
  980 print"    {rvon}    you lose!!!!":forq1=1to6:gosub1550:next:poke59467,0:end
  990 ifsr=0then1010
 1000 ifsr>fnr(3)then1160
 1010 gosub160:printz$;"{rvon}enemy recon drone detected":ifrnd(1)<.45then1030
 1020 print"it is not over sensitive areas":goto1490
 1030 printz$"{down}..... {rvon}approaching command post!":gosub150
 1040 ifna(7)=0thenprint"no "y$"s available to intercept":gosub150:printz$c$c$:t2=4:goto1100
 1050 gosub160:printz$c$c$z$"abm's to fire,";na(7);"left? ";
 1060 gosub60000:x$=in$:t1=val(x$):ift1>na(7)thennm$="abm's":gosub2650:goto1050
 1070 ift1thenforz=1tot1:gosub1520:next
 1080 na(7)=na(7)-t1:printt1;y$"s launched":gosub150:gosub160
 1090 t2=int(fnr(4)/(t1+.1))+1:ift2>4thent2=4
 1100 ont2goto1110,1120,1140,1150
 1110 printz$w$" destroyed!":goto1490
 1120 printz$w$" destroyed...":ifrnd(1)>.3thenprint"but pictures were sent":sr=sr+1
 1130 goto1490
 1140 printz$w$" damaged..pictures were sent":sr=sr+.5:goto1490
 1150 printz$c$c$c$z$w$" transmitted images":sr=sr+1:goto1490
 1160 mm=0:fori=1togl+5:ifm(i)>mmthenab=i:mm=m(i)
 1170 nexti:ifmm=0then2380:rem win
 1180 mf=fnr(m(ab)):m(ab)=m(ab)-mf
 1190 x=peek(e(ab)):ifx=96thenpokee(ab),215
 1200 gosub160:printz$"{rvon}***incoming "y$"s***"
 1210 gosub2420
 1220 x2=fnr(mf+5):print"radar indicates"x2"images.":gosub150
 1230 ifna(7)<1thenprint"no defensive "y$"s!!!!":gosub150:goto1280
 1240 print"how many abm's to fire"na(7)"left? ";
 1250 gosub60000:x$=in$:dm=val(x$):ifdm>na(7)thennm$="abm's":gosub2650:printz$;:goto1240
 1260 ifdmthenforz=1todm:gosub1520:next
 1270 na(7)=na(7)-dm
 1280 x=int(mf+sr-1.5*dm-h):ifx<=0theny=0:goto1360
 1290 ifx>mfthenx=fnr(mf)
 1295 ifx>x2thenx=fnr(mf):goto1295
 1300 gosub160:printz$;x;y$"s getting through!!":gosub150
 1310 ifna(7)=0then1370
 1320 print"how many more abm's to fire"na(7)"left? ";
 1330 gosub60000:x$=in$:dm=val(x$):ifdm>na(7)thennm$="abm's":gosub2650:printz$;:goto1320
 1340 ifdmthenforz=1todm:gosub1520:next
 1350 na(7)=na(7)-dm:y=x-dm-h-fnr(3):ify<0theny=0
 1360 ify=0thengosub160:printz$"all "y$"s destroyed..":goto1490
 1370 gosub160:printz$;y;y$"s approaching target":gosub150
 1380 x=1+int(y/fnr(4)):ifx>3thenx=3
 1390 onxgoto1400,1410,1450
 1400 gosub160:printz$y$"s veered off course":goto1490
 1410 gosub1530:gosub160:printz$y$"s hit nearby":gosub150:fori=1to7:
 1420 ifna(i)>0thenna(i)=na(i)-1
 1430 next
 1440 print"some loss of "w$"s":goto1490
 1450 gosub160:gosub1550:gosub1530:printz$"{rvon}****** direct hit ******"
 1460 fori=1to7:ifna(i)>0thenna(i)=na(i)-fnr(na(i))
 1470 next
 1480 print"  heavy losses"
 1490 gosub150
 1500 goto570
 1510 rem sfx
 1520 pokes,55:forq=1to35:next:forq=1to20:pokes,q*12:next:pokes,0:return
 1530 forq=1to8:pokes,250:pokes,175:pokes,150:pokes,225:pokes,100:next:pokes,0
 1540 return
 1550 pokes+2,85:forq=50to100step2:pokes,q:forz=1to15:nextz:nextq:pokes,0
 1560 pokes+2,55:return
 1570 rem determine exposed site
 1580 fork=1to5+gl:ife(k)<>tthen1630
 1590 m=int(m(k)/10)+1:m1=176+m
 1600 ifd=2andrnd(1)>.5thenpoket,m1:ift=pdthenx1=m1:goto1640
 1610 ifd=1thenpt=pt+1:p1(pt)=t:p2(pt)=m1:goto1640
 1620 forz=1to25:next:goto1640
 1630 nextk
 1640 return
 1650 rem move drone
 1660 f=fnr(100)+125
 1670 pt=0:pd=crt+wd*15+19:dt=0:fori=1tol1-1step2:a$=mid$(p$,i,1):b$=mid$(p$,i+1,1)
 1680 b=val(b$):ifa$="n"thenc=-wd
 1690 ifa$="s"thenc=wd
 1700 ifa$="e"thenc=1
 1710 ifa$="w"thenc=-1
 1720 forj=1tob:dt=dt+1:ifdt>45then1920
 1730 pd=pd+c:ifpeek(pd)=91orpeek(pd)=90then1930
 1740 ifa$<>"n"anda$<>"s"then1830
 1750 x1=peek(pd):pokepd,81
 1760 x=peek(pd-1):ifx<>96andx<>215then1780
 1770 t=pd-1:gosub1570:v=0:gosub2280:ifv=2thenpokepd,x1:goto900
 1780 ifx1<>96andx1<>215then1800
 1790 t=pd:gosub1570:v=0:gosub2280:ifv=2thenpoket,x1:goto900
 1800 x=peek(pd+1):ifx<>96andx<>215then1990
 1810 t=pd+1:gosub1570:v=0:gosub2280:ifv=2thenpokepd,x1:goto900
 1820 goto1990
 1830 ifa$<>"e"anda$<>"w"then63999
 1840 x1=peek(pd):pokepd,81
 1850 x=peek(pd-wd):ifx<>96andx<>215then1870
 1860 t=pd-wd:gosub1570:v=0:gosub2280:ifv=2thenpokepd,x1:goto900
 1870 ifx1<>96andx1<>215then1890
 1880 t=pd:gosub1570:v=0:gosub2280:ifv=2thenpoket,x1:goto900
 1890 x=peek(pd+wd):ifx<>96andx<>215then1990
 1900 t=pd+wd:gosub1570:v=0:gosub2280:ifv=2thenpokepd,x1:goto900
 1910 goto1990
 1920 gosub1550:gosub160:printz$"out of fuel":gosub150:goto900
 1930 ifpeek(pd)<>90ord<>1then1980
 1940 gosub160:printz$"photo drone retrieved-":gosub150
 1950 ifpt=0thenprint"no new bases revealed":gosub150:goto900
 1960 fork=1topt:pokep1(k),p2(k):next:gosub160:printz$"bases revealed":gosub150
 1970 goto900
 1980 gosub160:printz$w$" has gone out of control range":gosub150:goto900
 1990 pokepd,x1:pokes,f:forz=1to25:next:pokes,0:nextj:nexti
 2000 ifnot(d=6andpeek(pd)<>32)then2050
 2010 ifm(k)<fnr(9*(h+ch+de+2))then2030
 2020 gosub1550:printz$"{rvon}missiles shot down":m(k)=fnr(m(k)):gosub150:goto2050
 2030 t=pd:gosub1570:m(k)=0:gosub1550:gosub1530:forq1=1to10:pokepd,86
 2040 forz=1to25:next:pokepd,214:forz=1to25:next:next
 2050 goto900
 2060 gosub160:printz$"inventory-",:fori=1to7:print"type";i;na(i),:next
 2070 print"{down}press a key"
 2080 geta$:ifa$=""then2080
 2090 return
 2100 ifer=1thenna(4)=na(4)+(deor0)
 2105 gosub160:ifna(4)<1then2140
 2110 printz$;na(4)"decoys available"
 2115 print"how many to accompany drone ? ";
 2117 gosub60000:x$=in$:de=val(x$)
 2118 ifde>na(4)thennm$="decoys":gosub2650:goto2110
 2066 de=val(x$):n1=na(4):na(4)=na(4)-de:gosub160
 2140 ifer=1thenna(5)=na(5)+(chor0)
 2145 ifna(5)<1then2180
 2150 printz$"chaff drones to go along-";na(5);"left? ";
 2160 gosub60000:x$=in$:ch=val(x$)
 2165 ifch>na(5)thennm$="chaff drones":gosub2650:goto2150
 2170 n2=na(5):na(5)=na(5)-ch
 2180 return
 2190 gosub160:printz$"checking program-";
 2200 er=0:l1=len(p$):fori=1tol1-1step2:a$=mid$(p$,i,1):b$=mid$(p$,i+1,1)
 2210 ifa$="n"ora$="s"ora$="e"ora$="w"then2230
 2220 er=1:goto2250
 2230 b=val(b$):ifb<1orb>9thener=1:goto2250
 2240 nexti
 2250 ifer=1thenprint" {rvon}program invalid":gosub1530
 2260 ifer=0thenprint" program valid":pokes,150:forz=1to50:next:pokes,0
 2270 gosub150:return
 2280 ifm(k)<1then2370
 2290 ifrnd(1)>pf(d)then2370
 2300 gosub160:printz$"{rvon}enemy firing":mf=fnr(m(k)):m(k)=m(k)-mf
 2310 forq1=1tomf:gosub1520:nextq1
 2320 v=int((mf-h-de)/(fnr(ch)+1)):ifv<1thenv=1
 2330 ifv>2thenv=2
 2340 ifv=1thenprint"missiles ineffective":gosub150:goto2360
 2350 ifv=2thengosub1530:print"{rvon}missiles eliminated drones!!":gosub150
 2360 ifd=3thenh=6
 2370 return
 2380 gosub160:printz$"  the enemy has no more missiles"
 2390 fori=1to10:printz$"{down}{down}             you win":pokes,110:forz=1to200:next
 2400 printz$"{down}{down}             {rvon}you win":pokes,175:forz=1to200:next:next
 2410 poke59467,0:end
 2420 x=e(ab)-32768:r1=int(x/wd)+1:c1=x-wd*(r1-1)+1
 2430 ifr1=15andc1=20then2490
 2440 ifr1<15thenr1=r1+1:goto2470
 2450 ifc1>20thenc1=c1-1:goto2470
 2460 ifc1<20thenc1=c1+1
 2470 t1=(32768+wd*(r1-1)+c1-1):t2=peek(t1):poket1,90:pokes,75:forz=1to50:next
 2480 poket1,t2:pokes,0:goto2430
 2490 return
 2500 rem coordinates
 2510 gosub160:ud=0:rl=0:og=90:ol=crt+wd*15+19:pokeol,160:y1=0:y2=0
 2520 geta$:ifa$=""then2520
 2530 ifa$=cr$then2640
 2540 ifa$="8"andud<14thennl=ol-wd:ud=ud+1:goto2590
 2550 ifa$="2"andud>1thennl=ol+wd:ud=ud-1:goto2590
 2560 ifa$="4"andrl<=16andrl>-16   thennl=ol-1:rl=rl-1:goto2590
 2570 ifa$="6"andrl<16 thennl=ol+1:rl=rl+1:goto2590
 2580 goto2520
 2590 pokeol,og:pokes,220:pokes,170:pokes,0:og=peek(nl):pokenl,160:ol=nl
 2600 pokeol,og:og=peek(nl):pokenl,160:ol=nl
 2610 u$="n"+str$(ud):ifrl<0thenu$=u$+" w"+str$(abs(rl))
 2620 ifrl>0thenu$=u$+" e"+str$(rl)
 2630 printz$c$:printz$u$:goto2520
 2640 pokeol,og:return
 2650 gosub160:printz$;"sorry, you don't have"val(x$);nm$"."
 2660 gosub150:gosub160:printz$;:nm$="":return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz1$:ifz1$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z1$):zl=len(in$):if(zand127)<32orz=34orz=45thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz1$=chr$((z+128)and255)
 60090 ifzl>25then60010
 60100 in$=in$+z1$:printz1$;zd$;z1$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz1$=chr$(-20*(zl>1)):forz=2tozl:printz1$;:nextz:goto60000
 60140 goto60010
 60200 lp=13:ifpn=0then60250
 60205 print"{up}";:gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240ady.
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1982   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto140
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 ifwd=80thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(39)chr$(143);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12:gosub60400
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by randall lockwood
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}fly a pilotless airplane (requires 16k)
 62040 print"{down}{down}{down}want directions? ";:gosub60000:ifleft$(in$,1)<>"y"then60300
 62500 gosub60200:print"  you will purchase and control an
 62510 print"{down}army of remotely controlled drones. all
 62520 print"{down}drone types in this game actually exist.
 62530 print"{down}  you must discover the location of all
 62540 print"{down}the enemy missile bases and destroy
 62550 print"{down}them or exhaust their supplies before
 62560 print"{down}your own command post is wiped out.{down}{down}":gosub60200
 62570 print"  drones enter enemy territory at 'Z'."
 62580 print"{down}you program your drones by entering a
 62590 print"{down}direction (n-s-e-w) and a distance (1-9)":gosub60200
 62600 print"  your drones can travel 45 units before
 62610 print"running out of fuel. you can combine
 62620 print"{down}directions in any way as long as the
 62630 print"{down}command reads:":print"{down}direction distance direction distance..."
 62640 print"e.g. a valid command to explore the
 62650 print"{down}sw corner and return would be:":print"{down}     n2w9w6n2e9e6s5{down}"
 62660 gosub60200
 62670 print"  to help you program the drones you
 62680 print"{down}may enter 'c' instead of a program.
 62690 print"{down}this will display a '{rvon} {rvof}' at the entry
 62700 print"{down}point. you can use this to count off
 62710 print"{down}the distance to a target by moving it
 62720 print"{down}with the keypad and reading the coord-
 62730 print"{down}dinates. remember that 'n14' would be
 62740 print"{down}programed as n9n5. press {rvon}return{rvof} to
 62750 print"{down}get back to programming the drone.{down}":gosub60200
 62760 print"  here is a description of the drones
 62770 print"{down}{down}{rvon}photo drone{rvof}- this will reveal the
 62780 print"{down}location of every base it passes over
 62790 print"{down}or near. the approximate number of
 62800 print"{down}missiles spotted will be shown, divided
 62810 print"{down}by 10. this information is not revealed
 62820 print"{down}unless your program returns the drone
 62830 print"{down}to the starting point 'Z'.{down}{down}":gosub60200
 62840 print"  {rvon}tv drone{rvof}- this will immediately reveal
 62850 print"the location of bases about 50% of
 62860 print"{down}the time the drone passes over or near
 62870 print"{down}them. it need not be retrieved. you
 62880 print"{down}will need to use tv drones to explore
 62890 print"{down}the more distant parts of enemy land.{down}":gosub60200
 62900 print" {rvon}hero drone{rvof}- once missiles are fired
 62910 print"{down}at this drone from an unrevealed site
 62920 print"{down}the drone sends information about the
 62930 print"{down}frequencies used to control enemy abm's
 62940 print"{down}thus all your drones fired during the
 62950 print"{down}next 5 turns have a better chance of
 62960 print"{down}evading enemy fire.{down}{down}":gosub60200
 62970 print"  {rvon}decoy{rvof}- these are cheap missiles
 62980 print"{down}electronically enhanced to look like
 62990 print"{down}cruise missiles and draw enemy fire.
 63000 print"{down}it is a good idea to send a few  deoys
 63010 print"{down}along with every drone or missile.{down}{down}":gosub60200
 63020 print"{rvon}chaff drones{rvof}- these can accompany
 63030 print"{down}photo, tv or cruise missiles. they can
 63040 print"{down}release radar-confusing foil and thus
 63050 print"{down}will reduce the effectiveness of abm's."
 63060 print:print:gosub60200
 63070 print"  {rvon}cruise missiles{rvof}- these are your
 63080 print"{down}offensive weapons. they must be guided
 63090 print"{down}directly to the target. if they are
 63100 print"{down}not intercepted, they destroy all
 63110 print"{down}missiles at an enemy base.{down}{down}":gosub60200
 63120 print" {rvon}abm{rvof}- these are defensive anti-ballistic
 63130 print"missiles. they are used to intercept
 63140 print"{down}enemy photo drones and incoming cruise
 63150 print"{down}missiles. it is wise to try to wipe out
 63160 print"{down}enemy photo drones in the early stage
 63170 print"{down}of the game since cruise missiles do
 63180 print"{down}not begin to come in until the
 63190 print"{down}enemy has gotten a few pictures of your
 63200 print"{down}command post. however, you will need to
 63210 print"{down}save abm's to combat the inevitable":gosub60200
 63220 print"{down}missile bombardments!!{down}"
 63230 print"  when missiles are launched from a
 63240 print"{down}previously unrevealed base- it is
 63250 print"{down}shown as {rvon}W{rvof}."
 63260 print"{down}  if you do not wish to launch any
 63270 print"{down}drones or missiles- enter 'n' for
 63280 print"{down}your choice. 'i' will give you an
 63290 print"{down}inventory of available drones.
 63300 print"{down}'l' will list the types of drones.{down}":gosub60200
 63310 print"{down}  when initially purchasing drones
 63320 print"{down}you can enter 'e,e' to erase all your
 63330 print"{down}purchases and start over. {rvon}good luck{down}":gosub60200
 63340 return
    0 clr:pg$="duel!":nm$="27":goto62000
    1 "juergen schroeder
    2 "1000 berlin 65
    3 "west germany
    4 "
    5 "cursor #27, august 1981
    6 "copyright(c)1981 the code works
    7 "box 550, goleta, ca 93116
    8 "
   10 " as of 22aug81 1:30pm bs
  100 dimf$(7,7),a(2),b(2),n$(1)
  101 printchr$(142)
  105 fori=1to32:tb$=tb$+"{rght}":next
  110 dataa,b,c,d,e,f,g,q,12021
  115 gosub880
  120 t=59464:gosub1320
  125 forit=0to7:foris=0to7:f$(it,is)="":nextis,it
  130 b$="   {down}{left}{left}{left}   {down}{left}{left}{left}   ":m$="O P{left}{left}{left}{down}   {left}{left}{left}{down}L {SHIFT-@}"
  135 dn$(0)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":dn$(1)="{home}{down}{down}{down}{down}"
  140 print"{clr}{rvon}{SHIFT-POUND}  a   b   c   d   e   f   g  {CBM-*}"
  150 print"{rvon} {rvof}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvon} "
  160 b1$="{rvon} {rvof}{SHIFT--}":b2$="{SHIFT--}{rvon} ":fori=1to7:forj=1to3
  170 ifj=1or(j=3andi=7)thenprintb1$;tb$;"{left}{left}{left}{left}{left}"b2$
  180 ifj=2thena$=right$(str$(i),1):print"{rvon}"a$"{rvof}{SHIFT--}"tb$"{left}{left}{left}{left}{left}{SHIFT--}{rvon}"a$
  190 ifi=7then210
  200 ifj=3thenprintb1$;:fork=1to6:print"   .";:next:print"   "b2$
  210 nextj:nexti:print"{rvon} {rvof}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvon} "
  220 print"{CBM-*}{rvon}  a   b   c   d   e   f   g  {rvof}{SHIFT-POUND}{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  230 printtb$"{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT--}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{SHIFT--}{down}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT--}{rvof}{CBM-K}duel{rvon}{CBM-K}{SHIFT--}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
  240 print"{SHIFT--}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{SHIFT--}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}":fori=1to8:reada$:next:readx$
  245 forl=0to1:printdn$(l)"{up}{up}"tb$n$(l):next
  250 data51,12,26,26,12,51,56,15,21,21,15,56
  260 fori=1to7:ifi=4thenf$(i,7)="sk":next
  270 reada$:f$(i,7)="s"+left$(a$,1)+"4"+right$(a$,1):next
  280 fori=1to7:ifi=4thenf$(i,1)="wk":next
  290 reada$:f$(i,1)="w"+left$(a$,1)+"3"+right$(a$,1):next
  300 y2=7:forx2=1to7:gosub950:next
  310 y2=1:forx2=1to7:gosub950:next
  320 b1$="   {down}{left}{left}{left}   {down}{left}{left}{left}   "
  330 forl=1to0step-1
  334 printdn$(1-l)tb$;"{up}{up}"n$(1-l)
  335 printdn$(l)tb$;"{up}{up}{rvon}"n$(l)
  336 printdn$(1-l)tb$"{down}{down}       "
  337 printdn$(1-l)tb$"       "
  340 gosub1320:poket,25:n=15:gosub1270:n=2:gosub1270:poket,32:n=15:gosub1270
  345 poket+3,0
  350 ifl=0thena1$="w":k1$="wk":goto370
  360 a1$="s":k1$="sk"
  370 printdn$(l)tb$":    {left}{left}{left}{left}";
  379 getin$:ifin$<>""then379
  380 er=0:chk=2:gosub60000:p$=in$:print
  390 restore:fori=1to8:reade$:ifleft$(p$,1)=e$then415
  395 next
  400 restore:fori=1to8:reade$:ifmid$(p$,2,1)=e$then410
  405 next:goto370
  410 x=i:y=8-val(left$(p$,1)):gosub1300:ifbdthen370
  412 goto430
  415 ifi=8thenprint"{clr}":poket+3,0:end
  420 x=i:y=8-val(mid$(p$,2,1)):gosub1300:ifbdthen370
  430 f$=f$(x,y):f3$=f$:ifmid$(f$(x,y),2,1)="k"theno=1:er=1:goto450
  440 o=val(mid$(f$,2,1))
  450 x1=x:y1=y:ra=0:ri=0:fori=1too
  455 printdn$(l)tb$;"{left}{down}{down}";o+1-i;"left"
  460 getr$:ifr$=""thengosub1110:goto460
  470 ifr$=" "thengosub1230:printdn$(l)tb$"{down}{down}       ":goto370
  480 m=val(r$):forj=1to9step2
  490 ifm=5thengosub1230:goto450
  500 if(m=0orm=j)andj<>5thengosub1260:goto460
  510 next
  520 if(m=4andri=6)or(m=8andri=2)or(m=2andri=8)or(m=6andri=4)thengosub1260:goto460
  530 if(m=8andy1=7)or(m=2andy1=1)or(m=4andx1=1)or(m=6andx1=7)thengosub1260:goto460
  540 y3=y1:x3=x1:ifm=8theny3=y3+1
  550 ifm=2theny3=y3-1
  560 ifm=4thenx3=x3-1
  570 ifm=6thenx3=x3+1
  580 f1$=f$(x3,y3)
  590 ifleft$(f1$,1)=a1$or(f1$<>""andi<>o)thengosub1260:goto460
  600 ifri<>mandra+1>1thengosub1260:goto460
  610 f4$=f1$
  620 ifi=1thenri=m
  630 ifri<>mthenra=ra+1:ri=m
  640 y2=y1:x2=x1:f$(x2,y2)="":pm=(i=1):gosub950:y1=y3:x1=x3
  645 ifi=1thengosub1170:printm$
  650 ifer=1theny2=y1:x2=x1:f$(x1,y1)=k1$:gosub950:goto735
  660 fori1=0to2:b(i1)=val(mid$(f3$,i1+2,1)):next
  670 b=7-val(mid$(f3$,2,1))
  680 ifm=8thenb(0)=b(1):b(1)=b
  690 ifm=2theng=b(0):b(0)=7-b(1):b(1)=g
  700 ifm=4thenb(0)=b(2):b(2)=b
  710 ifm=6theng=b(0):b(0)=7-b(2):b(2)=g
  720 f3$=a1$+right$(str$(b(0)*100+b(1)*10+b(2)),3):y2=y1:x2=x1
  730 f$(x1,y1)=f3$:gosub950:nexti
  735 printdn$(l)tb$;"{left}{down}{down} 0 left":p$=""
  740 ifp$=""thengetp$
  745 ifp$="5"thengosub1230:goto450
  750 ifp$=" "thengosub1230:printdn$(l)tb$"{down}{down}       ":goto370
  760 ifp$<>chr$(13)thenp$="":gosub1110:goto740
  765 x2=x:y2=y:gosub950
  770 ifl=0andx1=4andy1=7andf$(x1,y1)=k1$then830
  780 ifl=1andx1=4andy1=1andf$(x1,y1)=k1$then830
  790 forx=1to7:fory=1to7
  800 ifl=0andf$(x,y)="sk"then860
  810 ifl=1andf$(x,y)="wk"then860
  820 nexty:nextx
  830 printdn$(l)"{down}{down}"tb$"winner! "
  840 gosub1320:fori=1to10:poket,30:forj=1to30:next:poket,40:forj=1to30:next:next
  845 poket+3,0
  850 getin$:ifin$<>""then850
  851 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tb$"        {left}{left}{left}{left}{left}{left}{left}{left}{down}{down}{down}        {left}{left}{left}{left}{left}{left}{left}{left}{down}        "
  852 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tb$"another {left}{left}{left}{left}{left}{left}{left}{left}{down}game?   {left}{left}";:chk=1:gosub60000
  854 ifleft$(in$,1)<>"n"thenrestore:goto120
  855 print"{clr}":end
  860 nextl:goto330
  880 print"{clr}{down}{down}please enter your name:
  890 print"{down}   player 1: ";:chk=8:gosub60000
  895 n$(1)=in$:print:ifin$=""orin$=" "thenn$(1)="player 1"
  900 print"   player 2: ";:chk=8:gosub60000
  905 n$(0)=in$:ifin$=""orin$=" "thenn$(0)="player 2"
  910 ifn$(0)=n$(1)thenprint"{down}{down}you both have the same name?{down}":goto890
  940 return
  950 f2$=f$(x2,y2):gosub1170
  960 iff2$=""andpmthenprintm$:pm=0:return
  965 iff2$=""andx2=4and(y2=1ory2=7)thenprint" * {down}{left}{left}{left}***{down}{left}{left}{left} * ":return
  970 iff2$=""thenprintb1$:return
  980 iff2$="wk"thenprint"{rvon} X {down}{left}{left}{left}XXX{down}{left}{left}{left} X ":return
  990 iff2$="sk"thenprint"OXP{down}{left}{left}{left}XXX{down}{left}{left}{left}LX{SHIFT-@}":return
 1000 ifleft$(f2$,1)="w"thenfa$="{rvon}   {down}{down}{left}{left}{left}   {left}{left}{up}{up}":goto1020
 1010 fa$="O{rght}P{down}{down}{left}{left}{left}L{rght}{SHIFT-@}{left}{left}{up}{up}"
 1020 printfa$;:fori1=2to4:a(i1-2)=val(mid$(f2$,i1,1)):next
 1030 fori1=1to5:ifleft$(f2$,1)="w"andi1=3thenprint"{rvof}";
 1040 ifleft$(f2$,1)="s"andi1=3thenprint"{rvon}";
 1050 ifleft$(f2$,1)="w"andi1=4thenprint"{rvon}";
 1060 ifleft$(f2$,1)="s"andi1=4thenprint"{rvof}";
 1070 ifi1<3thenprintright$(str$(7-a(val(mid$(x$,i1,1)))),1);:goto1090
 1080 printright$(str$(a(val(mid$(x$,i1,1)))),1);
 1090 ifi1=1ori1=4thenprint"{left}{left}{down}";
 1100 next:print:return
 1110 y2=y1:x2=x1:gosub1170
 1120 ifa1$="w"then1150
 1130 print"{rvon} {rght} {down}{down}{left}{left}{left} {rght} {up}{up}{left}{left}{left}";:gosub1200
 1140 print"{rvof}O{rght}P{down}{down}{left}{left}{left}L{rght}{SHIFT-@}":gosub1200:return
 1150 print"{rvof}O{rght}P{down}{down}{left}{left}{left}L{rght}{SHIFT-@}{up}{up}{left}{left}{left}";:gosub1200
 1160 print"{rvon} {rght} {down}{down}{left}{left}{left} {rght} ":gosub1200:return
 1170 printdn$(0)"{down}{down}"
 1180 ov$=left$(tb$,x2*4-2):printov$;
 1190 fori1=1toy2:print"{up}{up}{up}";:next
 1195 return
 1200 e=ti+15
 1210 ifti>ethenreturn
 1215 ifp$=""thengetp$:ifp$<>""thenreturn
 1220 goto1210
 1230 ifx2=xandy2=ythenreturn
 1240 y2=y1:x2=x1:f$(x1,y1)=f4$:gosub950
 1250 y2=y:x2=x:f$(x,y)=f$:f3$=f$:gosub950:y1=y:x1=x:return
 1260 n=20:gosub1320:poket,100
 1270 e=ti
 1280 ifti<n+ethen1280
 1290 poket,0:return
 1300 bd=0:ifx>7orx<1ory<1ory>7thenbd=1:goto1310
 1305 ifleft$(f$(x,y),1)<>a1$thengosub1260:bd=1
 1310 return
 1320 poke59467,16:poke59466,15:poke59464,0:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>chkthen60010
 60100 in$=in$+z$:printz$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by juergen schroeder"
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}two-person strategy game
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 getin$:ifin$=""then62090
 62100 goto60300
   10 rem**bob chappell**
   20 gosub2000
   30 sa=32:sr=42
   40 f0=40:mf=-40:i1=1:m1=-1
  100 j=103:j1=101:print"{clr}          {rvon}duel":n1=32850:n2=33650:n3=35
  105 forn4=1to5:gosub110:n1=n1+82:n2=n2-78:n3=n3-4:next:goto120
  110 forn=n1ton2step40:poken,j:poken+n3,j1:next:return
  120 n1=32851:n2=32884:j=99
  130 forn4=1to6:gosub140:n1=n1+82:n2=n2+78:ifn4=5thenj=160
  135 next:goto150
  140 forn=n1ton2:poken,j:next:return
  150 n1=33651:n2=33684:j=100
  160 forn4=1to5:gosub140:n1=n1-78:n2=n2-82:next
  162 n3=32891:forn=1to10:gosub164:n3=n3+80:next:sc=lv*10:goto170
  164 forn1=1tolv
  166 n2=int(35*rnd(1)+n3):ifpeek(n2)<>32then166
  168 poken2,42:next:return
  170 n1=32933:n2=640:n3=29:j=32
  180 forn4=1to4:gosub190:n1=n1+82:n2=n2-160:n3=n3-4:next:goto200
  190 ifpeek(n1)=42thensc=sc-1
  191 ifpeek(n1+n3)=42thensc=sc-1
  192 poken1,j:poken1+n3,j
  193 ifpeek(n1+n2)=42thensc=sc-1
  194 ifpeek(n1+n2+n3)=42thensc=sc-1
  195 poken1+n2,j:poken1+n2+n3,j:return
  200 d1=1:c1=219:la=32891:pa=32:l1=la
  205 ifpeek(la)=42thensc=sc-1
  207 pokela,c1:t1=2
  210 d2=1:c2=209:lb=33611:pb=32:pc=32:l2=lb
  211 ifpeek(lb)=srthensc=sc-1
  213 pokelb,c2
  214 forn=1to2000:next
  215 ifz9=1thenl2=l2+d2:goto232
  220 l1=l1+d1:l2=l2+d2
  221 ifpeek(l1)=c2thengosub800:goto860
  222 ifpeek(l1)=srthensc=sc-i1
  223 pokela,pa:pokel1,c1
  226 ifsc=0thenforn=1to200:next:l1=l2:gosub800:qq=qq+1:goto870
  232 ifpeek(l2)=c1thengosub800:goto860
  234 ifpeek(l2)=srthenpc=sr:goto240
  236 pc=sa
  240 pokelb,pb:pokel2,c2:lb=l2:pb=pc
  242 ifz9=1thenz9=0:goto315
  250 z9=1:la=l1
  260 gosub1000:ontgoto400,500,700
  270 ifpeek(l1+d1)=saorpeek(l1+d1)=srorpeek(l1+d1)=c2then315
  275 ift1=i1goto285
  280 ifd1=i1thend1=f0:goto270
  281 ifd1=f0thend1=m1:goto270
  282 ifd1=m1thend1=mf:goto270
  284 d1=i1:goto270
  285 ifd1=m1thend1=f0:goto270
  286 ifd1=i1thend1=mf:goto270
  287 ifd1=f0thend1=i1:goto270
  288 d1=m1:goto270
  315 ift3=2then600
  317 ift3=0then325
  319 z8=z8+1:ifz8>12thenz8=0:t3=0
  320 goto330
  325 ifrnd(ti)>.98thent3=1:gosub900
  330 ifpeek(l2+d2)=saorpeek(l2+d2)=c1orpeek(l2+d2)=srthen215
  340 ifd2=i1thend2=mf:goto330
  345 ifd2=f0thend2=i1:goto330
  350 ifd2=m1thend2=f0:goto330
  355 d2=m1:goto330
  400 rem**left**
  405 ifd1<>i1then410
  407 if(peek(l1-f0)=saorpeek(l1-f0)=sr)thend1=mf:goto440
  408 goto270
  410 ifd1<>f0then420
  412 if(peek(l1+i1)=saorpeek(l1+i1)=sr)thend1=i1:goto440
  414 goto270
  420 ifd1<>m1then430
  422 if(peek(l1+f0)=saorpeek(l1+f0)=sr)thend1=f0:goto440
  424 goto270
  430 if(peek(l1-i1)=saorpeek(l1-i1)=sr)thend1=m1:goto440
  438 goto270
  440 t=0:goto315
  500 rem**right**
  505 ifd1<>i1then510
  507 if(peek(l1+f0)=saorpeek(l1+f0)=sr)thend1=f0:goto540
  508 goto270
  510 ifd1<>f0then520
  512 if(peek(l1-i1)=saorpeek(l1-i1)=sr)thend1=m1:goto540
  514 goto270
  520 ifd1<>m1then530
  522 if(peek(l1-f0)=saorpeek(l1-f0)=sr)thend1=mf:goto540
  524 goto270
  530 if(peek(l1+i1)=saorpeek(l1-i1)=sr)thend1=i1:goto540
  535 goto270
  540 t=0:goto315
  600 rem**c2left**
  605 ifd2<>i1then610
  607 if(peek(l2-f0)=saorpeek(l2-f0)=sr)thend2=mf:goto640
  609 goto330
  610 ifd2<>f0then620
  612 if(peek(l2+i1)=saorpeek(l2+i1)=sr)thend2=i1:goto640
  614 goto330
  620 ifd2<>m1then630
  622 if(peek(l2+f0)=saorpeek(l2+f0)=sr)thend2=f0:goto640
  624 goto330
  630 if(peek(l2-i1)=saorpeek(l2-i1)=sr)thend2=m1:goto640
  638 goto330
  640 t3=0:goto215
  700 rem**back**
  705 ifd1<>i1then710
  707 ifpeek(l1-i1)=sathend1=m1:goto740
  709 goto270
  710 ifd1<>f0then720
  712 ifpeek(l1-f0)=sathend1=mf:goto740
  714 goto270
  720 ifd1<>m1then730
  722 ifpeek(l1+i1)=sathend1=i1:goto740
  724 goto270
  730 ifpeek(l1+f0)=sathend1=f0:goto740
  738 goto270
  740 t=0:goto315
  800 forn=1to10
  805 pokel1,127:pokel1-1,127:pokel1+1,127:pokel1-40,127:pokel1+40,127
  810 pokel1-41,127:pokel1+41,127:pokel1-39,127:pokel1+39,127:forn1=1to20:next
  820 pokel1,102:pokel1-1,45:pokel1+1,45:pokel1-40,66:pokel1+40,66
  830 pokel1-41,77:pokel1+41,77:pokel1-39,78:pokel1+39,78
  840 forn1=1to20:next
  850 next:forn=1to100:next:return
  860 zz=zz+1:ifzz<3thengoto30
  865 print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}you won ";qq;" out of the 3 duels{down}{down}"
  868 ifqq<=1thenprint"{down}{down}pretty lousy driving, eh?!":goto890
  870 ifqq=2thenprint"{down}{down}not bad! could be better though!":goto890
  872 print"{down}{down}i suppose you think you're good!"
  890 forn=1to100:geta$:next:end
  900 ifd2=i1thend2=m1:return
  910 ifd2=m1thend2=i1:return
  920 ifd2=f0thend2=mf:return
  930 d2=f0:return
 1000 forn=1to2
 1010 geta$:ifa$="1"thent=1:t1=1:n=2:goto1050
 1020 ifa$="3"thent=3:n=2:goto1045
 1030 ifa$="2"thent=2:t1=2:n=2:goto1050
 1040 next:return
 1045 ift1=1thent1=2:goto1050
 1047 t1=1
 1050 ift3<>1thent3=2
 1060 next:return
 2000 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}duel":print"{down}this is a deadly contest between
 2010 print"{down}your car {rvon}{SHIFT-+}{rvof} and a mysterious truck {rvon}Q{rvof}.
 2020 print"{down}the driver of the truck,although a
 2030 print"{down}complete stranger,is bent on killing you
 2040 print"by ramming his truck into your car.
 2045 print"{down}the truck is faster than your car.
 2050 print"{down}{down}your only hope is to drive over all the"
 2052 print"{down}points marked *, so enraging him by your"
 2053 print"cat and mouse tactics that he skids off"
 2054 print"{down}the road and explodes!
 2055 print"{down}{rvon}press space to continue"
 2058 geta$:ifa$<>" "then2058
 2060 print"{clr}your car controls are:-
 2065 print"{down}1 turn left at the next intersection.
 2067 print"{down}2 turn right at the next intersection.
 2069 print"{down}3 reverse immediately.
 2070 print"{down}{down}after executing your last order,the
 2072 print"{down}car will continue to run in a straight
 2074 print"{down}line for as far as it can,finally"
 2076 print"{down}turning left or right,according to your
 2078 print"{down}last order.
 2080 print"{down}this sequence is repeated until another"
 2082 print"{down}order is received.
 2084 print"{down}{rvon}press space to continue.
 2086 geta$:ifa$<>" "then2086
 2090 print"{clr}{down}{down}{down}{down}there are 3 levels of play,level 3 being":print"{down}the hardest.
 2100 print"{down}{down}{down}{down}{down}{down}{down}which level do you want? ";
 2110 geta$:ifa$=""then2110
 2115 lv=int(val(a$)):iflv<1orlv>3then2090
 2118 printa$:print"{down}{down}you have 3 chances to win!"
 2120 iflv=1thenlv=5
 2130 iflv=2thenlv=7
 2140 iflv=3thenlv=9
 2150 print"{down}{down}{down}{rvon}the duel begins":forn=1to2000:next:return
    3 rem(c)1979,isi(p)
    5 data413,1023,1783,32767,2047,4315,15327,1023,5119,18303,1279,3071,5055,16449
   10 data8448,12416,12288,16928,16452,24577,,10240,256,767,11519,21248,35,21004,18
   15 data17984,16657,20480,28690,136,2049,1919,28543,12416,64,1300,40,163,20640,406
   20 data24653,24064,64,1967,3583,8704,20496,12321,30848,28764,10242,12320,,20496
   25 data512,1535,1151,129,28682,4128,21568,12288,16705,25122,128,4096,33,2558,3039
   30 data32,80,293,2574,81,16,40,3399,4,,895,3007,64,1156,,33,928,128,65,24,,,2047
   35 data3071,,3,2640,,128,1110,16,2752,42,2305,1787,1015,,516,277,258,313,,,35,276
   40 data1034,1279,1662,129,,1600,128,256,8,577,,1568,64,1983,4095,3583,3071,2559
   45 dimm%(11,11):l%=1:data879,1791,4095,1407,1533,1015,3071,2683:q=550:x%=6:y%=6
   50 forx=0to11:fory=0to11:readm%(x,y):next:next:input"{clr}name";n$:poke59468,14
   55 forx=1topeek(514):s%=rnd(1)*9+1:next:a%=s%+1:w%=s%:t%=rnd(1)*6:ift%>3goto55
   60 h=0:v%=rnd(1)*19*(l%+1):c=0:n%=l%*3:p%=v%:f=0:ifp%<(l%*11)goto60
   65 gosub390
   70 print"{home}{down}{down}"tab(21)"{rvon}WHICH WAY?":ifo%and1thenv%=v%-1
   75 gosub240:ifh=9goto60
   80 gosub370:print"{home}{down}{down}"tab(20):gosub910:gosub465:ifs%=99goto55
   85 ifu%>11thenu%=10
   90 gosub650:ifo%and2thenifrnd(1)>.9theno%=o%-2
   95 ifv%<0thenprint"{clr}{rvon}"n$" DIED FROM LOW POWER!":poke59468,12:gosub920
  100 if(o%and132)=132theno%=o%and8059
  105 ifm<>5andu%=11andrnd(1)>.9andf=0thenprint"{home}{rvon}THE HOLY GRAIL!":o%=o%or2048
  110 d=0:y=6:gosub730:g=g+g%:goto70
  115 gosub900
  120 forx=3to10:r=r+(o%and(2^x)):next:r=r-(o%and2)*u%-h+i
  125 ifj%=3andi=0theno%=o%and7943:c=c+1:ifc>1theno%=o%or4096
  130 ifg>(s%+10)*1000*l%thenr=0
  135 ifh>0andrnd(1)>.5thenh=0:goto155
  140 ifu%-l%>0andrnd(1)<.8goto150
  145 if(10-j%)*u%<(s%+a%+w%+r)/4+l%*(e%/99)thene%=e%+(10-j%)*(u%+1):r=0:return
  150 ifrnd(1)*10<j%thenr=1:v%=v%-(l%*2+l%-u%):e%=e%+l%+10-j%:return
  155 v%=v%-(10-j%)*(u%+1):r=2:e%=e%+l%:o%=o%and4351:return
  160 g=0
  165 r=4:g%=0:ifrnd(1)*10>a%-g/(1000*l%)or(o%and2)orj%<1goto175
  170 print"{rvon}YOU'RE QUICK!":return
  175 print"{rvon}TOO SLOW!":gosub385
  180 forx=0toq:next:print"{rvon}GOTTA FIGHT!":forx=0toq:next:goto115
  185 d=0:y=6:gosub730:d=6:y=2:gosub730
  190 b=6:gosub350:print"{rvon}";:ifj%<0goto220
  195 ifn%<1and(o%and512)=0thenprint"NO MAGICS!":goto220
  200 n%=n%-1:r=0:e%=e%+2*l%:ifrnd(1)*10>(m%(c%-1,j%)and28672)/4096+w%/5goto220
  205 r=0:printmid$("SQUISH!ZZZAP!!K-BLAM!K-POOF!MASTER!ZZZZ!!",(c%-1)*7+1,7):return
  210 o%=o%and255:n%=0:g=0:ifrnd(1)>.5andj%>0thenprint"{rvon}{home}YOU WERE SPARED!":r=4:return
  215 print"{home}He Didn't Like {rvon}QUITTERS!":v=v-l%*l%:gosub900
  220 gosub385:print"{rvon}DIDN'T WORK!":forx=0toq:next:gosub385
  225 print"{rvon}YOU HAVE TO FIGHT!":forx=0toq:next:goto115
  230 print"{down}{up}{rvon}You Hit A Wall!":gosub385
  235 print"{down}{up}";:gosub905
  240 l=0:b=9:gosub350:m=c%:k=int((c%-1)/3-1)
  245 onmgosub275,270,280,275,270,280,275,270,280
  250 if(m%(x%-k,y%+l)and(2^u%))and(o%and256)=0goto230
  255 ifm<>5andrnd(1)>.98thenprint"{rvon}OOPS! A PIT!":v%=v%-u%*3:u%=u%+1
  260 x%=x%-k:y%=y%+l:ifx%>10orx%<1ory%>10ory%<1thengosub285
  265 print:ifm<>5thengosub415
  270 return
  275 l=-1:return
  280 l=1:return
  285 j%=-1:gosub650
  290 d=3:y=1:gosub730
  295 b=3:gosub350
  300 onc%goto345,310
  305 u%=u%-2
  310 n%=n%+1:u%=u%+1:ifu%>-1thenx%=2+rnd(1)*6:y%=2+rnd(1)*8:return
  315 print"{clr}{rvon}Made It Out!{home}{down}Try Again?
  320 ifo%and2048thenprint"{rvon}";n$;" GOT THE GRAIL OUT!!":a$="n":goto335
  325 u%=0:geta$:ifa$="y"ora$="n"goto335
  330 goto325
  335 x%=6:ifa$="n"thenpoke59468,12:end
  340 i=0:y%=6:u%=0:l%=l%+g/(1999*l%)+e%/(99*l%):o%=o%and248:e%=0:g=0:h=9:return
  345 x%=x%+k:y%=y%-l:return
  350 geta$:geta$
  355 geta$:ifval(a$)>borval(a$)=0goto355
  360 gosub385
  365 c%=val(a$):return
  370 gosub385:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(17):gosub910
  375 r=int(rnd(1)*100):ifr<19orm=5orrnd(1)<.2or(o%and256)=256thenreturn
  380 g%=r*(u%+1):gosub385:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(17)g%"IN GOLD!":return
  385 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);:return
  390 print"{clr}{down}{down}"n$" the ";mid$("Man   HobbitDwarf Elf",t%*6+1,6):print"Strgth:"s%+10
  395 print"Agil  :"a%+10:print"Wisdom:"w%+10:print"Ex Lvl:"l%:print"Gold  :"g:print"Exper :"e%
  400 print"Magics:"n%:print"Bg Pwr:"p%:print"Power :"v%"{down}":forx=0to12
  405 if(o%and(2^x))thengosub805
  410 next:ifi>0thenprint"{rvon}RUST PROOF!
  415 gosub385
  420 print"{down}{down}{down}{down} ";:ifo%and4thenprint"{up}{up}Unknown Level{down}":goto430
  425 print"{up}{up}Level"u%+1"{down}
  430 printtab(21)"{rvon}";:forx=-2to2:fory=-2to2
  435 ifx%<2andx=-2or(o%and2)orx%<1andx=-1orx%>10andx=1goto450
  440 ify%<2andy=-2ory%>9andy=2ory=1andy%=11ory%=0andy=-1orx%>9andx=2goto450
  445 ifm%(x%+x,y%+y)and(2^u%)thenprint"{SHIFT-+}";:goto455
  450 print" ";
  455 ifx=0andy=0thenprint"{left}o";
  460 next:print:printtab(21)"{rvon}";:next:print:return
  465 ifrnd(1)<.9orm=5thenreturn
  470 forx=9topeek(514):k%=rnd(1)*10:next:z=1:ifrnd(1)>.5thenz=0
  475 d=0:y=6:gosub730
  480 j%=-1:d=4:y=z+4:gosub730
  485 gosub650:ifr=2orr=4thenreturn
  490 gosub900
  495 d=4:y=z+4:gosub730:gosub385
  500 b=4:gosub350:ifzgoto550
  505 r=0:onc%goto515,510,625,790
  510 r=(u%+1)*5
  515 ifk%>1andk%<8theno%=o%or(2^k%):ifk%=2thenu%=u%+2
  520 ifk%=8thenprint"IT'S EMPTY!":return
  525 ifk%=1theno%=o%or2:x=1:goto800
  530 print"{rvon}";:x=k%:ifk%=0ork%=9goto540
  535 goto800
  540 ifk%=0thenv%=v%-(l%+u%)*9-r:print"{rvon} AN EXPLOSION! ":goto725
  545 ifk%=9thenprint"LOTS OF GOLD!":g=g+(u%+2)*999*(u%+1):return
  550 gosub900:onc%goto555,565,625,790
  555 ifk%<4ork%>5goto585
  560 o%=o%or(2^(k%+4))
  565 print"{up}";:x=k%+4:ifk%<4ork%>5goto585
  570 ifk%=4thenn%=n%+4*l%:o%=o%and7943:g=0
  575 gosub800:ifc%=2goto485
  580 return
  585 gosub385:ifk%=1thenprint"Love Potion!":h=1:return
  590 print"{rvon}";:ifk%=0thenprint"{clr}{rvon}POISON!":v%=-1:forx=0toq:next:return
  595 ifk%=2thenx=0:o%=o%or1:goto800
  600 ifk%=8thenprint"Polymorph":s%=99:return
  605 ifk%=7thenprint"BRILLANCE!":w%=w%+1:return
  610 ifk%=6theni=1:print"RUST PROOF!":return
  615 ifk%=3theno%=o%or1024:x=10:goto800
  620 print"Strength!":s%=s%+rnd(1)*6:a%=a%+1:o%=o%and8184:return
  625 gosub385:ifn%<1and(o%and512)=0thenprint"{rvon}NO MAGICS!":goto485
  630 n%=n%-1:ifrnd(1)*10>w%thenprint"{rvon}YOU FAILED!":goto485
  635 print"Seems ";:ifk%<4andrnd(1)<.9thenprint"DANGEROUS!":goto485
  640 ifrnd(1)<.2thenprint"{left}{left}{left}{left}{left}{left}Can't Tell!":goto485
  645 print"SAFE!":goto485
  650 gosub900:if(o%and2048)=0and(rnd(1)<.4andj%<>-1)thenreturn
  655 j%=rnd(1)*10:d=0:y=6:gosub730
  660 ifo%and4thenprint"{home}{rvon}UNKNOWN LVL ";:goto680
  665 ifo%and2048andf=0thenc%=1:print"{home}{rvon}SMAUG THE DRAGON":j%=-2:f=1:v%=v%-99:goto700
  670 ifo%and2thenprint"{home}{rvon}YOU'RE BEING CHEWED ON!":goto700
  675 print"{home}{rvon}";
  680 ifj%<5goto695
  685 printmid$("ROCK TROLLBLK WIZARDEVIL MAN  RINGWRAITHDEMON",(j%-5)*10+1,10)
  690 goto700
  695 printmid$("  DEATH    VAMPIRE    DRAGON  RUST MNSTRBALROG",j%*10+1,10)
  700 d=5:y=3:gosub730:b=5:gosub350
  705 r=0:x=0:onc%gosub120,165,185,160,210
  710 iff=1andr>1andr<4thenf=0
  715 forx=0toq:next:gosub385
  720 print"{rvon}"mid$("YOU WON!!!BARELY WONYOU LOST",r*10+1,10)
  725 forx=0toq:next:goto390
  730 print"{home}{down}":printtab(21);
  735 forx=0to6:printtab(18);:ifx>0andx<=dthenprintstr$(x)".";
  740 ifx>dtheny=6
  745 onygosub795,755,765,775,785,910
  750 next:print:return
  755 ifx<3thenprintmid$("MAGIC SPELLSEye Of Newt Mind Blast",x*12+1,12):return
  760 printmid$("FireballDispell Charm   Sleep",(x-3)*8+1,8):return
  765 onx+1gosub840,845,850,875,855,915
  770 return
  775 onx+1gosub860,865,870,875,880
  780 return
  785 onx+1gosub885,890,895,875,880
  790 return
  795 printmid$("A STAIRWAY!Back Away  Down       Up",x*11+1,11):return
  800 gosub385
  805 print"{rvon}";:ifx<4goto825
  810 ifx<8goto830
  815 ifx<11goto835
  820 printmid$("HOLY GRAIL!NO SWORD!",(x-11)*11+1,11):return
  825 printmid$("DEGENERATIONYOU'RE BLIND A CURSE!!  A SHIELD!",x*12+1,12):return
  830 printmid$("ARMOR SUIT MAGIC MACE CUBE OF PWRLUCKY RING",(x-4)*11+1,11):return
  835 printmid$(" ASTRAL FORM SPELL STORINGMONSTER CNTRL",(x-8)*13+1,13):return
  840 print"MONSTER OPTIONS":return
  845 print"Fight":return
  850 print"Evade":return
  855 print"Run(&drop gold)":return
  860 print"CHEST OPTIONS":return
  865 print"Open":return
  870 print"Carefully Open":return
  875 print"Magic{$a0}Spell":return
  880 print"Leave It":return
  885 print"POTION OPTIONS":return
  890 print"Quaff It":return
  895 print"Sip It":return
  900 gosub385
  905 fory=0toq:next
  910 print"                  ":return
  915 print"Give Up":return
  920 ifo%and256thenprint"{rvon}YOU WERE REVIVED!":poke59468,14:forx=0toq:next:goto340
    3 rem(c)1979,isi(p)
    5 data413,1023,1783,32767,2047,4315,15327,1023,5119,18303,1279,3071,5055,16449
   10 data8448,12416,12288,16928,16452,24577,,10240,256,767,11519,21248,35,21004,18
   15 data17984,16657,20480,28690,136,2049,1919,28543,12416,64,1300,40,163,20640,406
   20 data24653,24064,64,1967,3583,8704,20496,12321,30848,28764,10242,12320,,20496
   25 data512,1535,1151,129,28682,4128,21568,12288,16705,25122,128,4096,33,2558,3039
   30 data32,80,293,2574,81,16,40,3399,4,,895,3007,64,1156,,33,928,128,65,24,,,2047
   35 data3071,,3,2640,,128,1110,16,2752,42,2305,1787,1015,,516,277,258,313,,,35,276
   40 data1034,1279,1662,129,,1600,128,256,8,577,,1568,64,1983,4095,3583,3071,2559
   45 dimm%(11,11):l%=1:data879,1791,4095,1407,1533,1015,3071,2683:q=550:x%=6:y%=6
   50 forx=0to11:fory=0to11:readm%(x,y):next:next:input"{clr}name";n$:poke59468,14
   55 forx=1topeek(514):s%=rnd(1)*9+1:next:a%=s%+1:w%=s%:t%=rnd(1)*6:ift%>3goto55
   60 h=0:v%=rnd(1)*19*(l%+1):c=0:n%=l%*3:p%=v%:f=0:ifp%<(l%*11)goto60
   65 gosub390
   70 print"{home}{down}{down}"tab(21)"{rvon}which way?":ifo%and1thenv%=v%-1
   75 gosub240:ifh=9goto60
   80 gosub370:print"{home}{down}{down}"tab(20):gosub910:gosub465:ifs%=99goto55
   85 ifu%>11thenu%=10
   90 gosub650:ifo%and2thenifrnd(1)>.9theno%=o%-2
   95 ifv%<0thenprint"{clr}{rvon}"n$" died from low power!":poke59468,12:gosub920
  100 if(o%and132)=132theno%=o%and8059
  105 ifm<>5andu%=11andrnd(1)>.9andf=0thenprint"{home}{rvon}the holy grail!":o%=o%or2048
  110 d=0:y=6:gosub730:g=g+g%:goto70
  115 gosub900
  120 forx=3to10:r=r+(o%and(2^x)):next:r=r-(o%and2)*u%-h+i
  125 ifj%=3andi=0theno%=o%and7943:c=c+1:ifc>1theno%=o%or4096
  130 ifg>(s%+10)*1000*l%thenr=0
  135 ifh>0andrnd(1)>.5thenh=0:goto155
  140 ifu%-l%>0andrnd(1)<.8goto150
  145 if(10-j%)*u%<(s%+a%+w%+r)/4+l%*(e%/99)thene%=e%+(10-j%)*(u%+1):r=0:return
  150 ifrnd(1)*10<j%thenr=1:v%=v%-(l%*2+l%-u%):e%=e%+l%+10-j%:return
  155 v%=v%-(10-j%)*(u%+1):r=2:e%=e%+l%:o%=o%and4351:return
  160 g=0
  165 r=4:g%=0:ifrnd(1)*10>a%-g/(1000*l%)or(o%and2)orj%<1goto175
  170 print"{rvon}you're quick!":return
  175 print"{rvon}too slow!":gosub385
  180 forx=0toq:next:print"{rvon}gotta fight!":forx=0toq:next:goto115
  185 d=0:y=6:gosub730:d=6:y=2:gosub730
  190 b=6:gosub350:print"{rvon}";:ifj%<0goto220
  195 ifn%<1and(o%and512)=0thenprint"no magics!":goto220
  200 n%=n%-1:r=0:e%=e%+2*l%:ifrnd(1)*10>(m%(c%-1,j%)and28672)/4096+w%/5goto220
  205 r=0:printmid$("squish!zzzap!!k-blam!k-poof!master!zzzz!!",(c%-1)*7+1,7):return
  210 o%=o%and255:n%=0:g=0:ifrnd(1)>.5andj%>0thenprint"{rvon}{home}you were spared!":r=4:return
  215 print"{home}hE dIDN'T lIKE {rvon}quitters!":v=v-l%*l%:gosub900
  220 gosub385:print"{rvon}didn't work!":forx=0toq:next:gosub385
  225 print"{rvon}you have to fight!":forx=0toq:next:goto115
  230 print"{down}{up}{rvon}yOU hIT a wALL!":gosub385
  235 print"{down}{up}";:gosub905
  240 l=0:b=9:gosub350:m=c%:k=int((c%-1)/3-1)
  245 onmgosub275,270,280,275,270,280,275,270,280
  250 if(m%(x%-k,y%+l)and(2^u%))and(o%and256)=0goto230
  255 ifm<>5andrnd(1)>.98thenprint"{rvon}oops! a pit!":v%=v%-u%*3:u%=u%+1
  260 x%=x%-k:y%=y%+l:ifx%>10orx%<1ory%>10ory%<1thengosub285
  265 print:ifm<>5thengosub415
  270 return
  275 l=-1:return
  280 l=1:return
  285 j%=-1:gosub650
  290 d=3:y=1:gosub730
  295 b=3:gosub350
  300 onc%goto345,310
  305 u%=u%-2
  310 n%=n%+1:u%=u%+1:ifu%>-1thenx%=2+rnd(1)*6:y%=2+rnd(1)*8:return
  315 print"{clr}{rvon}mADE iT oUT!{home}{down}tRY aGAIN?
  320 ifo%and2048thenprint"{rvon}";n$;" got the grail out!!":a$="n":goto335
  325 u%=0:geta$:ifa$="y"ora$="n"goto335
  330 goto325
  335 x%=6:ifa$="n"thenpoke59468,12:end
  340 i=0:y%=6:u%=0:l%=l%+g/(1999*l%)+e%/(99*l%):o%=o%and248:e%=0:g=0:h=9:return
  345 x%=x%+k:y%=y%-l:return
  350 geta$:geta$
  355 geta$:ifval(a$)>borval(a$)=0goto355
  360 gosub385
  365 c%=val(a$):return
  370 gosub385:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(17):gosub910
  375 r=int(rnd(1)*100):ifr<19orm=5orrnd(1)<.2or(o%and256)=256thenreturn
  380 g%=r*(u%+1):gosub385:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(17)g%"in gold!":return
  385 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);:return
  390 print"{clr}{down}{down}"n$" THE ";mid$("mAN   hOBBITdWARF eLF",t%*6+1,6):print"sTRGTH:"s%+10
  395 print"aGIL  :"a%+10:print"wISDOM:"w%+10:print"eX lVL:"l%:print"gOLD  :"g:print"eXPER :"e%
  400 print"mAGICS:"n%:print"bG pWR:"p%:print"pOWER :"v%"{down}":forx=0to12
  405 if(o%and(2^x))thengosub805
  410 next:ifi>0thenprint"{rvon}rust proof!
  415 gosub385
  420 print"{down}{down}{down}{down} ";:ifo%and4thenprint"{up}{up}uNKNOWN lEVEL{down}":goto430
  425 print"{up}{up}lEVEL"u%+1"{down}
  430 printtab(21)"{rvon}";:forx=-2to2:fory=-2to2
  435 ifx%<2andx=-2or(o%and2)orx%<1andx=-1orx%>10andx=1goto450
  440 ify%<2andy=-2ory%>9andy=2ory=1andy%=11ory%=0andy=-1orx%>9andx=2goto450
  445 ifm%(x%+x,y%+y)and(2^u%)thenprint"{SHIFT-+}";:goto455
  450 print" ";
  455 ifx=0andy=0thenprint"{left}O";
  460 next:print:printtab(21)"{rvon}";:next:print:return
  465 ifrnd(1)<.9orm=5thenreturn
  470 forx=9topeek(514):k%=rnd(1)*10:next:z=1:ifrnd(1)>.5thenz=0
  475 d=0:y=6:gosub730
  480 j%=-1:d=4:y=z+4:gosub730
  485 gosub650:ifr=2orr=4thenreturn
  490 gosub900
  495 d=4:y=z+4:gosub730:gosub385
  500 b=4:gosub350:ifzgoto550
  505 r=0:onc%goto515,510,625,790
  510 r=(u%+1)*5
  515 ifk%>1andk%<8theno%=o%or(2^k%):ifk%=2thenu%=u%+2
  520 ifk%=8thenprint"it's empty!":return
  525 ifk%=1theno%=o%or2:x=1:goto800
  530 print"{rvon}";:x=k%:ifk%=0ork%=9goto540
  535 goto800
  540 ifk%=0thenv%=v%-(l%+u%)*9-r:print"{rvon} an explosion! ":goto725
  545 ifk%=9thenprint"lots of gold!":g=g+(u%+2)*999*(u%+1):return
  550 gosub900:onc%goto555,565,625,790
  555 ifk%<4ork%>5goto585
  560 o%=o%or(2^(k%+4))
  565 print"{up}";:x=k%+4:ifk%<4ork%>5goto585
  570 ifk%=4thenn%=n%+4*l%:o%=o%and7943:g=0
  575 gosub800:ifc%=2goto485
  580 return
  585 gosub385:ifk%=1thenprint"lOVE pOTION!":h=1:return
  590 print"{rvon}";:ifk%=0thenprint"{clr}{rvon}poison!":v%=-1:forx=0toq:next:return
  595 ifk%=2thenx=0:o%=o%or1:goto800
  600 ifk%=8thenprint"pOLYMORPH":s%=99:return
  605 ifk%=7thenprint"brillance!":w%=w%+1:return
  610 ifk%=6theni=1:print"rust proof!":return
  615 ifk%=3theno%=o%or1024:x=10:goto800
  620 print"sTRENGTH!":s%=s%+rnd(1)*6:a%=a%+1:o%=o%and8184:return
  625 gosub385:ifn%<1and(o%and512)=0thenprint"{rvon}no magics!":goto485
  630 n%=n%-1:ifrnd(1)*10>w%thenprint"{rvon}you failed!":goto485
  635 print"sEEMS ";:ifk%<4andrnd(1)<.9thenprint"dangerous!":goto485
  640 ifrnd(1)<.2thenprint"{left}{left}{left}{left}{left}{left}cAN'T tELL!":goto485
  645 print"safe!":goto485
  650 gosub900:if(o%and2048)=0and(rnd(1)<.4andj%<>-1)thenreturn
  655 j%=rnd(1)*10:d=0:y=6:gosub730
  660 ifo%and4thenprint"{home}{rvon}unknown lvl ";:goto680
  665 ifo%and2048andf=0thenc%=1:print"{home}{rvon}smaug the dragon":j%=-2:f=1:v%=v%-99:goto700
  670 ifo%and2thenprint"{home}{rvon}you're being chewed on!":goto700
  675 print"{home}{rvon}";
  680 ifj%<5goto695
  685 printmid$("rock trollblk wizardevil man  ringwraithdemon",(j%-5)*10+1,10)
  690 goto700
  695 printmid$("  death    vampire    dragon  rust mnstrbalrog",j%*10+1,10)
  700 d=5:y=3:gosub730:b=5:gosub350
  705 r=0:x=0:onc%gosub120,165,185,160,210
  710 iff=1andr>1andr<4thenf=0
  715 forx=0toq:next:gosub385
  720 print"{rvon}"mid$("you won!!!barely wonyou lost",r*10+1,10)
  725 forx=0toq:next:goto390
  730 print"{home}{down}":printtab(21);
  735 forx=0to6:printtab(18);:ifx>0andx<=dthenprintstr$(x)".";
  740 ifx>dtheny=6
  745 onygosub795,755,765,775,785,910
  750 next:print:return
  755 ifx<3thenprintmid$("magic spellseYE oF nEWT mIND bLAST",x*12+1,12):return
  760 printmid$("fIREBALLdISPELL cHARM   sLEEP",(x-3)*8+1,8):return
  765 onx+1gosub840,845,850,875,855,915
  770 return
  775 onx+1gosub860,865,870,875,880
  780 return
  785 onx+1gosub885,890,895,875,880
  790 return
  795 printmid$("a stairway!bACK aWAY  dOWN       uP",x*11+1,11):return
  800 gosub385
  805 print"{rvon}";:ifx<4goto825
  810 ifx<8goto830
  815 ifx<11goto835
  820 printmid$("holy grail!no sword!",(x-11)*11+1,11):return
  825 printmid$("degenerationyou're blind a curse!!  a shield!",x*12+1,12):return
  830 printmid$("armor suit magic mace cube of pwrlucky ring",(x-4)*11+1,11):return
  835 printmid$(" astral form spell storingmonster cntrl",(x-8)*13+1,13):return
  840 print"monster options":return
  845 print"fIGHT":return
  850 print"eVADE":return
  855 print"rUN(&DROP GOLD)":return
  860 print"chest options":return
  865 print"oPEN":return
  870 print"cAREFULLY oPEN":return
  875 print"mAGIC{$a0}sPELL":return
  880 print"lEAVE iT":return
  885 print"potion options":return
  890 print"qUAFF iT":return
  895 print"sIP iT":return
  900 gosub385
  905 fory=0toq:next
  910 print"                  ":return
  915 print"gIVE uP":return
  920 ifo%and256thenprint"{rvon}you were revived!":poke59468,14:forx=0toq:next:goto340
    0 clr:poke59468,12
    1 rem dungeon copyright (c) 1979 brian sawyer
    2 rem 1310 dover hill road
    3 rem santa barbara, ca. 93103
    4 :
    5 rem cursor #15, nov/dec 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 12/29/79
   90 pg$="dungeon":nm$="15":gosub62000
  100 rs=23:cs=40:sz=rs*cs:bl=(25-rs)*40:rs=rs-1:cs=cs-1
  130 rem trick: dg$() strings go at end of memory!
  140 dimdg$(24):e$="                                        "
  150 fori=0to24:dg$(i)=e$+"":nexti
  160 er$="{home}{down}                                       {home}{down}"
  170 e2$="{home}                                       {home}"
  180 print"{clr}setting up..."
  190 ts=peek(qm)+256*peek(qm+1)-sz:ax=32768
  200 fori=ts+40tots+sz-41:pokei,32:nexti
  210 hp=50:mg=0:ex=0:px=0:hg=0:z=0:fg=0:k1=0:e=0:s=0:w=160:et=160
  220 ti$="000000":tm=ti+3600
  230 gosub380
  240 ts=ts-bl
  250 l=int(rnd(1)*sz+ts):ifpeek(l)<>160then250
  260 tm=0:gosub1410:l=l+ax-ts:w=peek(l):gosub600:pokel,209:w=160
  270 pokeqk,0:pokeqp,255:gosub1240
  280 hp=hp-.15-2*sx:ifhp<0then1190
  290 q=val(mid$("808182404142000102",a*2-1,2))-41
  300 if(peek(l+q)=32)and(sx<>1)then270
  310 ifpeek(l+q)=127then270
  320 pokel,w:l=l+q:w=peek(l):pokel,209:gosub600:pokel,209
  330 ifw=135thengosub1200
  340 ifw>=214andw<=219thengosub1000
  350 ife>0thens=s+1
  360 ifs>1thengosub830
  370 goto270
  380 printint((tm-ti)/60);"{left}  {up}"
  400 w=int(rnd(1)*9+2):l=int(rnd(1)*9+2)
  410 r0=int(rnd(1)*(rs-l-1))+1:c0=int(rnd(1)*(cs-w-1))+1:p=ts+40*r0+c0
  420 ifp+40*l+w>=ts+szthen530
  430 forn=0tol+1:forn1=0tow+1:ifpeek(p+(n*40)+n1)<>32then530
  440 nextn1,n
  450 forn=1tol:forn1=1tow:pokep+(n*40)+n1,160:nextn1,n
  460 forn=p+42+(l*40)tots+999step40
  470 ifpeek(n)=160thenforn1=p+42tonstep40:poken1,160:next:poken1-80,102:goto490
  480 nextn
  490 forn=p+81+wtop+121+w:if(n-ts)/40=int((n-ts)/40)then520
  500 ifpeek(n)=160thenforn1=p+81ton-1:poken1,160:next:poken1-1,102:goto520
  510 next
  520 s=int(rnd(1)*l)+1:s1=int(rnd(1)*w+1):pokep+s1+s*40,int(rnd(1)*6+214)
  530 ifti<tmthen380
  540 forn=1to11
  550 u=int(rnd(1)*sz)+ts:ifpeek(u)<>160then550
  560 pokeu,135:hg=hg+1:next
  570 forr0=0tors:pokets+40*r0,127:pokets+40*r0+cs,127:nextr0
  580 forc0=0tocs:pokets+c0,127:pokets+c0+40*rs,127:nextc0
  590 return
  600 k=-40:j=3:m=40:r=3:gn=0
  610 ifsm=1thenk=-80:j=5:m=80:r=4:sm=0
  620 o=l-32767-r
  630 ifo+32811>33768thenm=0
  640 forn=-40to40step40:forn1=1to3:ifn=0andn1=2then820
  650 y=o+n+n1:v=peek(y+ts):pokey+ax,v
  660 ifv<135orv=160then820
  670 v=v-128:ifv<>7then710
  680 k1=1+k1+int((mg+1)*(rnd(1)))
  690 gn=gn+1:ifgn>fgthengosub1410:print"gold is near!":gosub1430:fg=hg+1
  700 goto820
  710 v1=v+128:s=0:pokey+ts,160
  720 ifv=86thene$="spider":i=3
  730 ifv=87thene$="grue":i=7
  740 ifv=88thene$="dragon":i=1
  750 ifv=89thene$="snake":i=2
  760 ifv=90thene$="nuibus":i=9
  770 ifv=91thene$="wyvern":i=5
  780 i=int(rnd(1)*hp+(px/i)+hp/4)
  790 ife>0thenpokets+e,qq
  800 qq=v+128:e=y
  810 gosub1410:print"a "e$;" with";i;"points is near.":gosub1430:cc=i
  820 nextn1:nextn:fg=gn:return
  830 o1=0:a=0:e1=e+ax:ifabs(e1+40-l)<abs(e1-l)thena=40
  840 ifabs(e1-40-l)<abs(e1-l)thena=-40
  850 if(peek(e+a+ts)=209)or(peek(e+a+ts)>128)theno1=o1+a
  860 ifabs(e1-1-l)<abs(e1-l)thena=-1
  870 ifabs(e1+1-l)<abs(e1-l)thena=1
  880 if(peek(e+o1+a+ts)=209)or(peek(e+o1+a+ts)>128)theno1=o1+a
  890 a=o1:ife1+a=lthen960
  900 ife1+a<lthen940
  910 ifa=41thena=39
  920 ifa=-39thena=-41
  930 goto960
  940 ifa=31thena=41
  950 ifa=-41thena=-39
  960 ifpeek(e+a+ts)<128thenpokee1,v1:return
  970 pokee1,et:e=e+a:et=peek(e+ax):pokee+ax,v1:ife+ax=lthenet=160:gosub1000
  980 return
  990 qq=v+128:e=y
 1000 gosub1410:print"{rvon}an attack!!!":gosub1430:pw=hp+ex
 1010 h1=rnd(1)*cc/2+cc/4:ch=rnd(1)*pw/2+pw/4:cc=int(cc-ch):hp=int(hp-h1)
 1020 ifhp<1then1190
 1030 if(cc/(hp+1)<2)then1090
 1040 gosub1410:print"the "e$" will leave..":gosub1430
 1050 gosub1410:print"if you give it half your gold.":gosub1430
 1060 gosub1410:print"will you consent to this (y or n) ";
 1070 gosub1500
 1080 ifl$="y"thenmg=mg-mg/2:w=160:e=0:s=0:pokel,209:return
 1090 ifcc>1then1160
 1100 gosub1410:w=160:s=0:e=0:pokel,209:print"the "e$" is dead!":gosub1430
 1110 ex=ex+i:z=z+1
 1120 ifex<px*2then1180
 1130 px=ex:hp=hp*3
 1140 gosub1410:print"your hit pts. have been raised.":gosub1430
 1150 goto1180
 1160 gosub1410:print"the "e$" has"cc"hit points":gosub1430
 1170 gosub1340
 1180 return
 1190 gosub1410:print"you're dead!":gosub1430:goto1350
 1200 mg=mg+k1:gosub1410:print"you found"k1"gold pieces!":gosub1430
 1210 pokel-ax+ts,160:w=160
 1220 hg=hg-1:ifhg>0thenreturn
 1230 goto1350
 1240 ifiu=0thengosub1430
 1250 gosub1340
 1260 ifiuthenifti>tmthengosub1410:print"you may move."
 1270 getl$:ifl$=""then1260
 1280 a=asc(l$):sx=abs(a>127):a=aand127
 1290 ifa=asc("5")thenhp=hp+1+sqr(ex/hp)
 1300 ifa>48anda<58thena=a-48:tm=0:gosub1410:return
 1310 ifl$="s"thensm=1:hp=hp-2
 1320 ifl$="q"then1350
 1330 goto1250
 1340 printe2$;"hit pts.";int(hp+.5);"{left}  exp.";ex;"{left}  gold";mg;"   ":return
 1350 gosub1410:printe2$;"gold:";mg;" exp:";ex;" killed";z;"beasts"
 1360 forn=bltosz-1+bl:a=peek(ts+n):pokeax+n,a:next
 1375 getl$:ifl$<>""then1375
 1380 gosub1410:print"want to play again";
 1390 gosub1500:ifl$<>"n"then180
 1400 tm=0:gosub1410:print"{up}";:end
 1410 ifiuthenifti<tmthen1410
 1420 printer$;:iu=0:return
 1430 tm=ti+3*60:iu=1:return
 1440 ifpeek(32768)=0thenstop
 1450 return
 1500 zt=0:zc=1
 1510 getl$:ifl$<>""then1550
 1520 ifti>ztthenprintmid$("? ",zc,1);"{left}";:zt=ti+30:zc=3-zc
 1530 goto1510
 1550 print"? ";l$:return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:qm=134:qp=515:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:qm=52:qp=151
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by brian sawyer{down}
 62020 gosub60500
 62030 print"{down}search for gold in the ancient ruins
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 gett$:ift$=""then62090
 62100 goto60300
   10 rem eliza         jim butterfield rewrite
   15 rem from insulter*bob chappel*27/6/81
   20 j=rnd(0):deffna(j)=int(20*rnd(1)+1):gosub450
   30 l$=h$:b$="":print"{down}>";
   40 geth$:ifh$=""goto40
   50 v=asc(h$):if(v=1orv=20)andb$=""goto40
   60 ifv=13thenprint"{down}":goto110
   70 printh$;:ifv=20thenb$=left$(b$,len(b$)-1):goto40
   90 ifv<>39andv<>63thenb$=b$+h$
  100 goto40
  110 h$=b$+" ":l=len(h$):ifti$<"000300"goto130
  120 print"thank heavens, your time is up;{down}":k=39:ti$="000000":goto240
  130 rem
  135 ifl>60thenk=42:goto240
  140 ifh$=l$thenk=43:goto240
  150 rem**split into words**
  160 x=0:z=1:forj=1tol
  170 ifmid$(h$,j,1)=" "thengosub8000:z=j+1
  180 next:gosub9000
  230 rem**select reply**
  240 z=l(k)+int(t(k)*rnd(0)):ifz=z1then240
  250 rem**conjugate**
  260 z1=z:r$=r$(z):ifright$(r$,1)<>"*"thenr$=r$+" ":goto350
  270 j$=" ":iff>xgoto330
  280 forj1=ftox:t$=t$(j1)
  290 forj=1tobstep2:ift$=d$(j)thent$=c$(j+1):goto315
  300 ift$=d$(j+1)thent$=c$(j):j=b
  310 nextj
  315 ifj1=xandt$="i"thent$="me"
  320 j$=j$+t$+" ":nextj1
  330 r$=left$(r$,len(r$)-1)+j$
  350 ifk=26ork=27ork=39ork=40orfna(j)<16goto380
  380 x=0:z=1:forj=1tolen(r$)
  390 ifmid$(r$,j,1)=" "thenx=x+1:t$(x)=mid$(r$,z,j-z+1):z=j+1
  400 next:b$="":forj=1tox:iflen(b$)>l9thenprintb$:b$=""
  410 b$=b$+t$(j):next:printb$;"{left}."
  420 ifz1=127orz1=128thenh$=""
  430 goto30
  440 rem**initialize**
  450 print"{clr}{swuc}":print"{left}";:l9=pos(0)-5:print:poke59468,12
  460 a=40:b=16:c=142:d=43:e=30
  465 dimk$(a),c$(b),d$(b),r$(c),l(d),t(d),t$(e),u$(e)
  480 forj=1toa:readk$(j):next
  490 forj=1tob:readc$(j),d$(j):next
  500 forj=1toc:readr$(j):next
  510 forj=1tod:readl(j),t(j):next:ti$="000000"
  530 print"{home}{down}{down}{down}let's talk.  what would you like to tell me";"?":goto420
  540 rem**keywords**
  550 dataim,iam,icant,iwont,idont,wanta,wantto,ifeel,cani,canti,canyou
  560 datadontyou,areyou,who,how,what,where,when,why,youare,youre,your,you,my
  570 datasorry,cat,no,hate,love,think,dream,friend,money,if,never
  580 datacomputer,food,shutup,goodbye,bye
  590 rem**conjugations**
  600 datai,i,you,you,i'm,im,you're,youre,my,my,your,your,am,am,are,are
  605 datawas,was,were,were,i've,ive,you've,youve,myself,myself
  610 datayourself,yourself,me,me,you,you
  620 rem**replies**
  630 datais it important that you're*
  640 datais it unusual that you are*
  650 datawhy do you think you are*,are you often not*
  660 datahow do you feel about being*
  670 datasometimes we can't have all we want
  680 datai wonder if you really want to*
  690 datawhat would you do if you could*,does it worry you that you can't*
  700 datado you feel that you should*,perhaps you can't*
  710 dataperhaps it's better not to*,so you won't; does it matter
  720 datais that why you've come to me for help
  730 datawhy don't you*,might others think you don't know how to*
  740 dataperhaps that's not important,do others*
  750 datawould it matter to you if you did*
  760 datahow would you feel having a*,what would you do with a*
  770 datais there a reason you should have a*
  780 datado you really need to*
  790 dataright now?,why do you want to*
  800 datado you sometimes like feeling*
  810 datahow long have you felt that way,is that a good feeling
  820 datawhy do you feel*,can other people*
  830 dataperhaps you should think it over before you*
  840 dataperhaps you can*,do you think you are unable to*
  850 datathink about it.  it's not important whether i can*
  860 dataperhaps.  why do you ask,how about you?  can you*
  870 datawould it be interesting if i*,what - me*,how about you .. don't you*
  880 datawhy do you ask if i am*,don't worry about me.  are you*
  890 datais it really important whether i am*
  900 datai can't say.  what do you think,do you have any opinions?
  910 datawhat answer would you like to hear,are you always so curious
  920 datawhy do you ask,you are curious about many things .. right?
  930 dataexplain why you asked that,i can't answer - can you
  940 dataperhaps you would like me to be*
  950 datawhy do you say i am*,how would you feel if i really were*
  960 dataperhaps you wish you were*
  970 datalet's talk about you,i'd rather talk about you than me
  980 dataare you talking about me or computers in general
  990 datacome on.  talk about humans
 1000 datayou may be subconsciously talking about yourself
 1010 datawhy this interest in my*,what about your own*
 1020 datais it important to know about my*
 1030 datatell me about your*,"is it important, your*",why do  you think your*
 1040 datano problem,why be sorry,don't worry .. be happy
 1050 datado you apologize a lot,that's all right - cheer up
 1060 datado cats like you,you like cats?,tell me more about cats
 1070 datado cats frighten you,a cat can be a friend,do you like animals
 1080 datayou sound very certain,that's a little negative
 1090 datayou are being negative,is that all
 1100 dataand why not,is the answer always no
 1110 datado you really detest*,hate is a powerful emotion
 1120 datado you suppose that some love*
 1130 datayou love*,what else do you think about*
 1140 dataor is it just infatuation
 1150 datawhy do you think*,do many people think*
 1160 datado you spend a lot of time thinking,pehaps that's just your opinion
 1170 dataare dreams important to you,do you seem a dreamy person
 1180 datai hope your dreams are happy
 1190 datado you have recurring dreams
 1200 dataare dreams more interesting than life
 1210 datahow important are your friends,do you have plenty of friends
 1220 dataare your friends truly dependable
 1230 data"friends are important, aren't they"
 1240 datado you really need money,are your friends impressed by money
 1250 data"easy come, easy go?",what do you really need money for
 1260 dataare you rich .. money-wise or otherwise
 1270 datado you dream of when*,..or is that just an excuse
 1280 data"what, never?",not ever?
 1290 datanever is a long long time
 1300 dataperhaps someday...
 1310 datado computers worry you,garbage in - garbage out
 1320 datacomputers don't think - but you do,computers don't obsolete humans
 1330 datayou don't need a computer for everything,you like computers
 1340 data do you eat to live - or live to eat, we all enjoy food
 1350 datado you have a favorite food?,food is good for you
 1360 dataman's best friend,are you afraid of dogs
 1370 datawhat breed do you like best,do you love pets
 1380 data"thanks for chatting.  next person, please.
 1390 data"it's been nice talking to you.  goodbye.  next person, please
 1400 datahmmmm.,why do you say that,very interesting
 1410 datatell me more,continue
 1420 datago on,please explain that
 1430 data"say, do you worry a lot?",perhaps you can say that another way
 1440 datathat's too complicated for me.  use shorter sentences
 1450 dataplease be brief!
 1460 datadon't repeat yourself .. you're not a parrot
 1470 datayou said that before,say something!
 1480 rem**pointers to replies**
 1490 data1,5,1,5,6,4,10,5,15,5,20,3,23,3,26,4,30,2,32,2,34,3,37,3,40,3,43,8
 1500 data43,8,43,8,43,8,43,8,43,8,51,4,51,4,60,4,55,5,63,3,66,5
 1510 data71,6,77,6,83,3,86,3,89,4,93,5,98,4,102,5,107,2,109,4,113,6
 1520 data119,4,123,4,127,2,127,2,129,9,138,2,140,2
 8000 ifj<=zthenreturn
 8010 t$=mid$(h$,z,j-z):forj1=len(t$)to1step-1:k=asc(mid$(t$,j1))
 8020 ifk<65ork>90ork=83thennextj1
 8030 ifj1=0thenreturn
 8040 x=x+1:t$(x)=t$:u$(x)=left$(t$,j1):t$(x+1)=""
 8050 return
 9000 rem**find keyword**
 9010 fork=1toa:k$=k$(k):forj=1tox:t$=u$(j)
 9020 ifk$=t$+t$(j+1)thenf=j+2:goto9050
 9030 ifk$=t$thenf=j+1:goto9050
 9040 nextj,k
 9050 return
    0 clr:pg$="emaze!":nm$="27":goto62000
    1 "teece jurgensen
    2 "1229 diana
    3 "santa barbara, ca 93103
    4 "
    5 "cursor #27 august 1981
    6 "copyright(c)1981 the code works
    7 "box 550, goleta, ca 93116
    8 "
   10 " as of 22aug81 12:40 bs
  100 g(1)=wd-1:g(2)=wd:g(3)=wd+1:g(4)=-1:g(6)=1:g(7)=-wd-1:g(8)=-wd:g(9)=-wd+1
  110 poke59467,16:poke59466,15:sn=59464:pokesn,0:p=32768+wd+1
  120 ifd=0thengosub 650
  130 m$="":fori=1to80:m$=m$+"{rght}":nexti:print"{clr}"
  140 forx=1to100+d*70*wd/40:poke32768+int(rnd(1)*2000),102:next
  150 forx=1towd-1:poke32768+x,230:next
  160 forx=wd-1towd*25-1stepwd:poke32768+x,230:next
  170 forx=wd-1to1step-1:poke32768+x+wd*24,230:next
  180 forx=wd*24to0step-wd:poke32768+x,230:next
  190 print"{home}"left$(m$,wd/8)"{rvon}game #"mid$(str$(sr+1),2)
  210 poke32768+wd*25-2,90:tl$="000200":ifwd=80thentl$="000300"
  220 poke32768+wd*24-2,32:poke32768+wd*24-3,32:poke32768+wd*23-2,32
  230 poke32768+wd*23-3,32:pokep+wd,32:pokep+wd*2,32:poke32768+wd*22-3,102
  240 gosub400:bg=26:ifwd=80thenbg=59:poke894,19:poke895,12:goto260
  250 poke894,12:poke895,12
  260 ti$="000000":p1=0:getin$:ifin$<>""then260
  270 getin$:g=val(in$):ifg>0thenp1=g(g)
  280 print"{home}"mid$(m$,1,20*wd/40)"{left}{left}{rvon}";mid$(ti$,4,1);":";mid$(ti$,5,2)
  290 ifin$="q"then800
  300 ifpeek(p+p1)=90thenit$=ti$:goto990
  310 ifp1<>0andpeek(p+p1)<>32thenpokesn,100:p1=be*p1:ifpeek(p+p1)<>32thenp1=0
  320 pokep,32:p=p+p1:pokep,42:pokesn,0
  330 ifti$>=tl$then710
  340 a=int(rnd(1)*bg+1)
  350 b=int(rnd(1)*11+2)
  360 poke892,a:poke893,b
  370 e=e+1:ife=4-dorp1=0thene=0:sys(826)
  380 ifp1=0then270
  390 forloop=1to10*(3-d):next:goto270
  400 b=826
  410 reada:ifa<>999thenpokeb,a:b=b+1:goto410
  420 a=crt-1:b=896
  430 fori=0to24
  440 h=int(a/256):pokeb,a-256*h:pokeb+25,h
  450 b=b+1:a=a+wd:nexti
  460 ifpeek(50000)<>0thenpoke852,169:poke853,0:poke854,234
  470 return
  480 data173,125,3,24,109,127,3,170,189,127,3,24,109,124,3,141,0,0,189
  490 data152,3,105,0,141,1,0,173,64,232,41,32,208,249,172,126,3,177,0,73,70
  500 data145,0,136,208,247,202,236,125,3,208,213,96,999
  510 print"novice":return
  520 print"beginner":return
  530 print"trainee":return
  540 print"fair":return
  550 print"average":return
  560 print"good":return
  570 print"great":return
  580 print"excellent":return
  590 print"tremendous":return
  600 print"magnificent":return
  610 print"incredible":return
  620 print"did you cheat?":return
  650 print"{clr}":d=2
  660 print"{down}{down}{down}bounce option? ";:gosub60000:in$=left$(in$,1)
  662 ifin$=""thenprint:print"i'll assume 'no'":be=0:goto669
  665 ifin$<>"y"andin$<>"n"thenprint:print"be serious!":goto660
  666 be=-1:ifin$="n"thenbe=0:goto669
  669 gosub690:print"{clr}":return
  680 print"be serious!":gosub690:goto630
  690 forx=1to1000:next:return
  710 poke892,1:poke893,1:poke894,wd-2:poke895,23
  720 poke864,169:poke865,32:sys826
  730 poke864,73:poke865,70:poke894,10:poke895,10
  740 fori=0to255step5:pokesn,i:next
  750 print"{home}{down}"left$(m$,wd/2-5)"{rvon}time's up!{rvof}"
  760 it$=tl$
  770 pokesn,0
  780 forx=1to2500:next
  790 goto 840
  800 print"{home}{down}"left$(m$,wd/2-4)"{rvon}quitter!{rvof}"
  810 forco=1to2000:next:print"{clr}"
  815 getin$:ifin$<>""then815
  820 ifsr=0thenprint"{clr}":goto1250
  830 goto1070
  840 i=val(mid$(it$,4,1))*60+val(mid$(it$,5)):so=so+i
  850 sr=sr+1
  860 ifval(it$)<val(hs$)orhs$=""thenhs$=it$
  880 it$=mid$(it$,4,1)+":"+mid$(it$,5)
  890 print"{clr}{down}       time: ";it$
  900 in$=mid$(hs$,4,1)+":"+mid$(hs$,5)
  910 print"{down}  best time: ";in$
  920 print"{down}your rating: ";
  930 on13-i/(wd+40)*8gosub510,520,530,540,550,560,570,580,590,600,610,620
  940 getin$:ifin$<>""then940
  950 print"{down}{down}{down}want to play again? ";:gosub60000
  960 if left$(in$,1)<>"n"thenrestore:goto100
  970 poke59467,0:poke59466,0
  980 goto1070
  990 poke892,1:poke893,1:poke894,wd-2:poke895,23
 1000 fori=1to19:sys826:pokesn,rnd(1)*100+i*8:nexti
 1010 fori=250to10step-4:pokesn,i:next
 1020 poke864,169:poke865,32:sys826
 1030 poke864,73:poke865,70:poke894,10:poke895,10
 1050 pokesn,0:forco=1to1000:nextco
 1060 goto840
 1070 a$="in"+str$(sr):ifin$="q"thena$=a$+" (complete)"
 1080 a$=a$+" game":ifsr>1thena$=a$+"s"
 1090 print"{clr}{down}";a$:fori=1tolen(a$):print"{CBM-T}";:next
 1100 print
 1110 in$=mid$(hs$,4,1)+":"+mid$(hs$,5)
 1120 print"you're best";:ifsr=1thenprint" (and only)";
 1130 print" time was ";in$
 1140 print:so=int(so/sr)
 1150 so$=mid$(str$(int(so/60)),2)+":"+mid$(str$(so-int(so/60)*60),2)
 1160 iflen(so$)>3then1190
 1170 x=so-int(so/60)*60:ifx=0thenso$=so$+"0":goto1190
 1180 so$=left$(so$,len(so$)-1):so$=so$+"0"+mid$(str$(x),2,1)
 1190 print"you averaged ";so$
 1200 print
 1210 print"over-all rating ";
 1220 i=so:print"{rvon}";
 1230 on13-i/(wd+40)*8gosub510,520,530,540,550,560,570,580,590,600,610,620
 1240 print
 1250 poke59467,0:poke59466,0
 1260 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by teece jurgensen
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}"
 62020 gosub60500
 62030 print"{down}scamper through an electronic maze
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto60300
   10 remenergecics
   20 dimr1(11),r2(11),c1(11),c2(11),p(11,20)
   30 dims(11),x(11),o(11),v(11,20),n$(11),i(11,20)
   40 dimd(20),e(20),ev(20)
  100 forj=0to11
  110 readn$(j),r1(j),r2(j),c1(j),c2(j),p(j,0)
  120 read s(j),x(j),o(j),v(j,0)
  130 nextj
  140 datacoal,60000,6000,500,250,129
  145 data0,50,29,400
  150 dataoil,4500,1400,200,150,124
  155 data0,100,29,400
  160 datagas,5000,2600,180,130,75
  165 data0,30,29,250
  170 datafission,5000,2000,300,100,13
  175 data0,40,26,175
  180 datafusion,50000,10000,350,150,0
  185 data320000,35,25,100
  190 datahydro,1000000,1000000,20,10,2
  195 data0,50,24,40
  200 datawind,1000000,1000000,100,50,0
  205 data3200,50,22,30
  210 datatidal,1000000,1000000,100,50,0
  215 data2700,50,22,35
  220 datas/earth,1000000,1000000,60,30,0
  225 data2200,60,20,25
  230 datas/space,1000000,1000000,1000,200,0
  235 data33000,100,10,80
  240 datag/thermal,50000,5000,40,20,0
  245 data800,70,21,25
  250 databiofuel,1000000,1000000,200,100,0
  255 data3500,50,25,35
  300 forj=0to20:d(j)=1980+j*5:nextj
  310 nn=1:e(0)=355:ev(k)=31
  500 gosub2000
  510 gosub2500
  520 gosub3000
  530 gosub4000
  535 print"{clr}all government shares are now sold back
  537 print"to open up options  for private investors"
  538 gosub10000
  540 k=k+1:ifk=20thengosub15038:ifz9then2000
  545 e(k)=e(k-1)+int((rnd(1)*8-rnd(1)*3)*2)
  560 goto500
  999 end
 2000 rem investment display
 2002 print"{clr}{rvon}current {rvof}         values per 10% share
 2003 print"{rvon}capacity{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 2005 d=k-2:ifd<0thend=0
 2006 print"{rvon}in mtce.{rvof}";
 2007 n=0:forl=dtok:printtab(19+n*6)"{rvon}"d(l);:n=n+1:nextl:print"{home}{down}{down}{down}"
 2008 forj=0to11:a$="     "+str$(p(j,k))
 2010 print"{rvon}"right$(a$,5);"{rvof}";tab(9)n$(j);
 2015 n=0:forl=dtok:b$="{rght}{rght}{rght}{rght}{rght}"+str$(v(j,l)):b$=right$(b$,5)
 2017 printtab(19+n*6)b$;:n=n+1:nextl:print
 2020 nextj
 2022 print"{down}{rvon}"e(k)"mtce{rvof} are required in"d(k)"
 2024 print"{down}energy is worth "ev(k)"(m) per mtce.
 2025 ifev(k)<30thenprint"which is low."
 2027 ifev(k)>35thenprint"which is high."
 2028 gosub10000
 2029 ifz9thenend
 2030 return
 2500 rem input invest ment
 2505 print"{clr}":forj=0to11
 2510 print"{down}% of investment for "n$(j)"
 2515 ifv(j,k)=0thenprint"{rvon}does not apply. it is shut down.":gosub10000:goto2560
 2520 input"(0-100){rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";a$
 2525 ifval(a$)=0thenprinttab(12)"{up}0":print
 2530 a=val(a$):ifa<0ora>100thenprint"{rvon}dummy between 0-100{rvof}":goto2520
 2540 ifa/10<>int(a/10)thenprint"{rvon}a multiple of ten please...{rvof}":goto2520
 2550 i(j,k)=a:gosub10100
 2560 nextj
 2570 print"{down}{down}{rvon}ok. if every one has paid their money,"
 2580 gosub10000:return
 3000 rem initial energy calc
 3002 forj=1to5:nextj
 3005 j=0:d=1:c=0:x=1:print"{clr}ok..."
 3010 print"{down}i'm calculating how much energy"
 3020 print"australia will be generating in"d(k)
 3025 print"and examing the government wishes
 3027 print"to do some investing of its own...
 3100 ep=0:forj=0to11
 3110 o=int(p(j,k)*i(j,k)/100)
 3130 ep=ep+o:nextj:gosub10100
 3135 print"{down}current energy needs:"e(k)"mtce"
 3137 print"{down}we will be producing:"ep"mtce"
 3138 gosub10000
 3140 ifep=>e(k)then3300
 3150 rem energy deficit
 3160 x=x+.04:ife(k)>ep*xthen3170
 3161 ifx>1.4thengosub15000:ifz9then2000
 3162 rem acceptable deficit
 3164 print"{down}there is an energy deficit so the gov."
 3165 print"announces energy conservation plans."
 3166 print"energy prices rise from"ev(k)"to
 3168 ev(k+1)=int(ev(k)*e(k)/ep):ifev(k)=ev(k+1)thenev(k+1)=ev(k+1)+1
 3169 goto3500
 3170 print"{down}to prevent a deficit, the government"
 3175 print"might make some investments..."
 3180 c=int(rnd(1)*d*3)
 3190 ifi(c,k)<100andp(c,k)>0then3230
 3195 ifp(c,k)=0then3210
 3210 c=c+1:ifc>11thenc=0:d=0:goto3250
 3220 goto3190
 3230 ifr2(c)/p(c,k)<1then3250
 3232 print"{down}{rvon}the government takes up all remaining
 3234 print"{rvon}shares in "n$(c)"."
 3235 i(c,k)=100
 3245 d=d+1:ifd>4thend=1
 3250 goto3100
 3300 ifep>e(k)*1.05then3400
 3310 rem mild surplus
 3320 print"{down}the value of energy remains unchanged at";
 3325 ev(k+1)=ev(k)
 3330 goto3500
 3400 print"{down}there is an energy surplus which will
 3410 print"reduce the energy prices from "ev(k)"to"
 3420 ev(k+1)=int(ev(k)*e(k)/ep)
 3425 ifev(k)=ev(k+1)thenev(k+1)=ev(k+1)-1
 3500 printev(k+1)"million dollars per mtce"
 3510 gosub10000
 3520 return
 4000 rem energy calc source by source
 4005 gosub10300
 4010 forj=0to11:ex=0:d=0:l=0:e=0:c=0:p=0
 4015 ifv(j,k)=0thenprint"{clr}{rvon}"n$(j) "is no longer in production":goto4600
 4016 gosub6000
 4020 reml: total money invested
 4030 l=i(j,k)*v(j,k)/10
 4040 remc:total running cost
 4050 c=o(j)*p(j,k)
 4052 ifp(j,k)=0then4500
 4055 ex=l-c
 4060 ifc<=lthen4100
 4065 rem not enough to maintain running cost for one year
 4070 print"owing to lack of money ,"d(k)"output of
 4074 z=int(l/o(j))
 4075 ifz=0thenprintn$(j)" ends. {rvon}financial disaster !":p(j,k)=z:goto4160
 4076 printn$(j)" has fallen from"p(j,k)"mtce
 4078 print"to "z"mtce.";
 4079 ifz*2<p(j,k)thenprint"{rvon}...very bad news!":gosub10200:goto4090
 4080 ifz*1.2<p(j,k)thenprint"{rvon}...not good"
 4090 print:p(j,k)=z:p(j,k+1)=int(z/1.5)
 4100 print"{down}after five years............"
 4102 print"{down}total money invested.....(m)"l
 4103 p=int(ex/x(j)/2.5)
 4105 e=int(ev(k+1)*p(j,k)*5)
 4106 ifex<=9then4110
 4107 print"{down}(of which ,"ex"(m) will be used"
 4108 print"to boost efficency and capacity.)
 4110 print"{down}total sales..............(m)"e
 4115 c=c*5:d=e+l-c
 4120 print"{down}total running costs......(m)"c
 4135 print"{down}therefore gross profit...(m)"d
 4150 ifd=>0then4200
 4160 ifp(j,k)=0then4186
 4162 print"{down}{rvon}there is no confidence in the future
 4165 print"{rvon}of"n$(j)" and share prices fall from
 4170 v(j,k+1)=int((v(j,k)*10+d/2)/10)
 4175 ifv(j,k+1)<v(j,k)/2thenv(j,k+1)=int(v(j,k)/2)
 4180 print"{rvon}"v(j,k)"to "v(j,k+1)" million dollars"
 4185 ifp(j,k)>0then4190
 4186 v(j,k+1)=int(v(j,k)/2):print"{down}{rvon}you may invest again later but
 4187 print"{rvon}"n$(j)" has gone into liquidation.
 4188 print"{down}{rvon}all current investors please remove all"
 4189 print"{rvon}shares from the board. you have lost    all your money"
 4190 goto4600
 4200 gosub10000
 4210 gosub10100:printn$(j),d(k)"-"d(k+1)
 4215 o=d-(i(j,k)*v(j,k)/10)
 4220 print"{down}after paying back all investments we
 4225 print"are left with a profit of.....(m)"o
 4227 ifo<0then4240
 4228 ifp(j,k)>c2(j)*.75then4230
 4229 xx=0:print"{down}most of which goes on further capacity.":xx=1:goto4240
 4230 print"{down}half of which goes to share holders and
 4235 print"half to further devlopment & capacity"
 4240 r=p(j,k)*5:r2(j)=r2(j)-r:r1(j)=r1(j)-r:ifr2(j)<r*2then4260
 4250 ifr2(j)>100000thenprint"{down}unlimited reserves of "n$(j):goto4300
 4255 print"{down}economical reserves of "n$(j)" will
 4256 print"last for another "int(r2(j)/p(j,k))"years"
 4257 print"& known reserves for "int(r1(j)/p(j,k))"years"
 4258 print"at current consumption per year.
 4259 goto4300
 4260 print"{down}it is getting more and more expensive
 4265 print"to obtain "n$(j)"."
 4270 print"{down}operating costs are spiraling upwards.."
 4275 o(j)=int(o(j)*(1+rnd(1)/5))
 4280 print"it now costs "o(j)"per mtce."
 4281 ifp>0andrnd(1)>.6thenprint"{down}money is required for new technology.":p=0
 4282 ifp=0then4300
 4284 z=int(r1(j)*rnd(1)):ifz>2000thenz=2000
 4285 r2(j)=r2(j)+z:ifr2(j)<rthenprint"{down}production cut back to preserve stocks"
 4286 ifr2(j)<rthenp(j,k+1)=int(p(j,k)/1.3):gosub10000:goto4310
 4287 ifr1(j)<r*1.5then10500
 4288 ifr1(j)<r*3thenprint"{down}{rvon}warning!{rvof} "n$(j)"will run out soon"
 4290 print"{down}but there have been new discoveries...":goto4255
 4300 gosub10000
 4305 p(j,k+1)=int((xx*o/2+o)/2/x(j))+p(j,k)+p
 4310 print"{clr}yearly capacity in mtce for "n$(j)
 4320 gosub10100
 4330 d=k-1:ifd<0thend=0
 4340 n=0:forl=dtok+1:printtab(10+n*6)"{rvon}"d(l);:n=n+1:nextl:print"{home}{down}{down}{down}"
 4350 n=0:forl=dtok+1
 4360 printtab(10+n*6)p(j,l);:n=n+1:nextl:print
 4364 ifp(j,k+1)<c1(j)then4373
 4365 print"{down}{rvon}the "n$(j)" industry is too large and ":p(j,k+1)=int(p(j,k+1)/2)
 4366 print"{rvon}exceeds the maximun practical capacity."
 4367 print"{rvon}half of the plants have to be shut"
 4368 print"{rvon}down and capacity is cut right back."
 4369 print"{rvon}shares have been unrealistcally high "
 4370 print"{rvon}for years and are therefore cut back.":v(j,k+1)=int(v(j,k)*rnd(1))
 4371 ifv(j,k+1)<v(j,k)/2thenv(j,k+1)=int(v(j,k)/2)
 4372 print"{down}{rvon}new capacity="p(j,k+1)"mtce.":goto4410
 4373 ifp(j,k+1)<c2(j)then4400
 4375 print"{down}{rvon}your operating near the upper limits
 4380 print"{rvon}of practical capacity for "n$(j)"!"
 4382 gosub6400
 4385 ifrnd(1)>.3then4400
 4387 print"{rvon}{down}lack of suitable devlopment area and
 4390 print"{rvon}unpopularity have increased your running";
 4391 z=int(o(j)*(1+rnd(1)/4))
 4392 print"{rvon}costs from"o(j)"to"z
 4394 o(j)=z
 4400 v(j,k+1)=v(j,k)+int((o-xx*o/2)/20)
 4410 print"{down}old interest value per 10% shares="v(j,k)
 4420 print"{down}{rvon}new interest value per 10% shares="v(j,k+1)
 4460 goto4600
 4500 print"{down}"n$(j)" is not in production yet.
 4515 ifi(j,k)=0thenv(j,k+1)=v(j,k):goto4600
 4520 print"{down}however investment is being used in
 4530 print"new research and it is estimated that"
 4540 en=v(j,k)/2*i(j,k):s(j)=s(j)-en
 4545 v(j,k+1)=v(j,k)
 4550 ifs(j)<=0thenp(j,k+1)=1:print"its viable now!":nd=2:gosub10400:goto4600
 4555 r=int(s(j)/v(j,k)/5)+d(k)
 4560 print"useful energy will be being produced
 4600 gosub10000:nextj:return
 6000 rem news
 6010 print"{clr}"n$(j),d(k)"-"d(k+1)
 6020 gosub10100
 6100 ifp(j,k)=0andrnd(1)>.75then6150
 6110 goto6400
 6150 print"{down}the government is taking an interst in
 6160 print"this possible energy source and has
 6165 r=int(rnd(1)*10+1)*10
 6167 ifr+i(j,k)>100then6200
 6170 print"just bought up "r"shares"
 6180 i(j,k)=i(j,k)+r
 6190 goto6400
 6200 print"just financed an important scientific
 6210 print"break through. {rvon}it really could work!"
 6220 s(j)=s(j)/(1+rnd(1)*2):nd=6:gosub10400
 6400 ifj<3orj>4then6500
 6405 rem nuclear
 6410 ifrnd(1)<j/4.2then6500
 6420 print"{down}{rvon}owing to a nuclear accident, the cost "
 6425 print"{rvon}of settling insurance claims and sfely"
 6430 print"{rvon}disposing of radioactive waste has
 6435 print"{rvon}has increased cost from"o(j)"mtce
 6437 o(j)=o(j)+int(rnd(1)*nn*2+1)
 6440 print"{rvon}to"o(j)"mtce. *** accident no. "nn"
 6445 print"{rvon}{down}the more accidents you have, the higher
 6450 nn=nn+1:print"{rvon}the rise will become...
 6460 gosub10000
 6500 rem
 6999 return
 10000 geta$:ifa$<>""then10000
 10005 print"{down}{rvon}press any key to continue{rvof}"
 10010 geta$:ifa$=""then10010
 10020 return
 10100 print"DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD":return
 10200 rem enormous fall off
 10220 print"{down}redundancies affect your running cost
 10225 x=int(o(j)*(1+rnd(1)/3)):ifo(j)thenx=x+2
 10230 print"from"o(j)"million dollars to"x
 10235 o(j)=x:return
 10300 rem inflationary wage claims
 10310 ifev(k+1)=ev(k)thenreturn
 10320 print"{clr}owing to the rise in energy prices"
 10330 print"there are price rises in most energy
 10340 print"running costs...."
 10345 printtab(13)"{down}{rvon}"d(k);tab(18)d(k+1)
 10350 forj=0to11
 10360 printn$(j);
 10370 printtab(15)o(j);
 10380 o(j)=int(o(j)*(1+rnd(1)/10))
 10385 printtab(20)o(j):nextj
 10390 gosub10000:return
 10400 rem new discovery boost shares
 10410 v(j,k+1)=int(v(j,k)*(1+rnd(1)/nd*3))+1
 10420 print"{down}this news may push up share prices !"
 10430 return
 10500 rem source runs out
 10510 print"{down}{rvon}there are no more supplies of "n$(j)
 10520 print"{down}accordingly the industry has shut down.
 10530 v(j,k+1)=0:p(j,k+1)=0:r1(j)=0:r2(j)=0
 10540 goto4187
 15000 print"{down}{down}ZZZZZZZZZZZZZZZZZZZ
 15010 print"{down}the shortage of energy has caused the
 15020 print"frame work of australian society to      break"
 15030 print"apart. disaster and revolution !
 15035 print"{down}there is nothing i can do about it !
 15038 print"{down}you kept australia going until"d(k)"."
 15040 print"{down}{down}{down}{rvon}end of game. thank you for playing."
 15050 print"{down}i shall display the final share values
 15060 print"so you can see who came out of it best."
 15070 gosub10000
 15080 z9=1:return
    0 clr:pg$="enigma":nm$="23":goto62000
    1 " alex breed
    2 " 1185 boylston st. #27
    3 " boston, ma 02215
    4 "
    5 " cursor #23, dec 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 9dec80
  100 ct=50:dim ct$(ct),x%(5,26)
  110 data4,16,15,19,8,3,25,6,13,1,7,26,20,10,12,9,14,17,22,2,24,23,21,5,18,11
  120 data1,23,9,24,25,2,7,18,26,4,13,15,20,17,10,8,5,3,14,22,16,12,21,11,6,19
  130 data1,8,2,20,3,14,4,19,5,26,6,17,7,22,9,16,10,23,11,21,12,25,13,15,18,24
  140 data1,3,2,5,4,18,6,16,7,26,8,19,9,11,10,24,12,15,13,22,14,23,17,20,21,25
  150 data1,6,2,22,3,12,4,11,5,20,7,16,8,24,9,13,10,17,14,25,15,26,18,23,19,21
  160 x=rnd(-ti)
  170 restore
  180 forw=1to5
  190 fork=1to13:readx,y
  200 x%(w,x)=y:x%(w,y)=x
  210 nextk:nextw
  220 pr$="should i set up the machine":df$="n":gosub840
  230 ifleft$(in$,1)="y"thengosub740:goto420
  240 t$="abcde"
  250 fork=1to3
  260 print "{down}which wheel in slot"k"(";t$;")? ";:gosub60000
  270 iflen(in$)<>1thenprint"{down}one letter, please.":goto260
  280 ifin$<"a"orin$>"e"thenprint"{down}a letter from 'a' to 'e', please.":goto 260
  290 t=asc(in$)-64:if mid$(t$,t,1)=" "then
  300 ifmid$(t$,t,1)=" "thenprint"{down}wheel ";in$;" is already taken.":goto260
  310 u$="":ift>1thenu$=u$+left$(t$,t-1)
  320 t$=u$+" "+mid$(t$,t+1)
  330 w$(k)=in$:w(k)=t
  340 nextk
  350 fork=1to3
  360 print"{down}setting for wheel"k"(a-z)? ";
  370 gosub60000:iflen(in$)<>1thenprint"{down}one letter, please.":goto 360
  380 t=asc(in$)-64
  390 if t<1 or t>26 then print"{down}a letter{left}{left}{left}{left}{left}{left}{down}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}, please!":goto 360
  400 s(k)=t:s$(k)=in$
  410 next k
  420 print"{down}here{$a0}are the wheels and settings:"
  430 print"{down}(you'll need 'em to decode the message)
  440 gosub820
  450 fork=1to3:s(k)=asc(s$(k))-64:nextk
  460 print"{down}please enter your message.
  470 print"{down}enter a blank line when done.
  480 for i=0 to ct
  490 print"? ";
  500 gosub60000:if in$="" then n=i-1:goto 550
  510 ct$(i)=in$
  520 next i
  530 print"{down}that's all i can handle... sorry.
  540 n=ct
  550 ifn<0then710
  560 k=0:g=0
  570 print"{down}the encryption follows...{down}"
  580 fori=0ton:ct$=ct$(i)
  590 forj=1tolen(ct$)
  600 f=asc(mid$(ct$,j,1))-64
  610 iff<1orf>26then680
  620 forw=-2to2:l=3-abs(w):gosub870:nextw:rem l=1,2,3,2,1
  630 printchr$(f+64);
  640 k=k+1:ifk>4thenprint" ";:k=0:g=g+1:ifg>5thenprint:g=0
  650 s(1)=s(1)+1:ifs(1)<27then680
  660 s(1)=1:s(2)=s(2)+1:ifs(2)<27then680
  670 s(2)=1:s(3)=s(3)+1:ifs(3)<27then680
  675 s(3)=1
  680 nextj:nexti
  690 goto700
  700 ifk>0thenforj=1to5-k:printchr$(26*rnd(1)+65);:next
  705 if g>0 or k>0 then print
  710 pr$="another message":df$="y":gosub840:ifin$="n"thenprint"{clr}{down}{down}":end
  720 pr$="same machine setup":df$="y":gosub840:ifin$="y"then450
  730 goto 220
  740 t$="abcde":fork=1to3
  750 t=int(rnd(1)*len(t$))+1
  760 w$(k)=mid$(t$,t,1):w(k)=asc(w$(k))-64
  770 u$="":ift>1thenu$=left$(t$,t-1)
  780 t$=u$+mid$(t$,t+1)
  790 s(k)=int(rnd(1)*26)+1:s$(k)=chr$(s(k)+64)
  800 nextk:return
  810 s$(k)=chr$(s(k)+64):nextk:goto420
  820 print"{down}slot","wheel","setting":print"EEEE","EEEEE","EEEEEEE"
  830 fork=1to3:printk,w$(k),s$(k):next:return
  840 print"{down}";pr$;"? ";:gosub60000:in$=left$(in$,1):if in$=""then in$=df$
  850 ifin$="y"orin$="n"thenreturn
  860 print"{down}please answer 'yes' or 'no'.":goto 840
  870 f=f-s(l)+1:iff<1then f=f+26
  880 f=x%(w(l),f)
  890 f=f+s(l)-1:iff>26thenf=f-26
  900 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by alex breed
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}your very own encryption machine
 62040 print"{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:cr$=chr$(13):goto100
    1 printchr$(142)
    2 gosub50000:gosub45000
    3 print"{clr}":clr
    4 gosub10000
    5 z1$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
    6 z2$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
    7 z3$="                                       "
    8 print"{clr}"
    9 dl$="{clr}"
   10 dimd%(5),k1%(7),k2%(7),k3%(7),s%(7,7),q%(7,7),d$(5),da$(5),j(29)
   20 q$="{SHIFT-+}ekb*":da$(2)="  M{SHIFT--}N1.5":da$(3)=" 5CeC1":da$(4)="  N{SHIFT--}M"
   30 cu=19:da$(5)=" 6 7 8":da$(1)=" 4 3 2":d$(0)="antrieb":d$(3)="laser  "
   40 d$(1)="kurzdistancesensoren":d$(2)="umkreissensoren"
   70 d$(4)="torpedos":d$(5)="galaktische karte"
   75 print"{down}{down}{down}{down}{down}{down}{rvon}enterprice ist bereit zum einsatz   !
  100 deffnd(n)=sqr((k1%(i)-s1)^2+(k2%(i)-s2)^2)^.4
  110 gosub610:gosub450:q1=x:q2=y:x=8:y=1:x1=.2075:y1=6.28:x2=3.28:y2=1.8:a=.96
  120 c=100:w=10:s9=400:t9=3540+int(rnd(1)*40):goto140
  130 k=k+(n<x2)+(n<y2)+(n<.28)+(n<.08)+(n<.03)+(n<.01):k9=k9-k:goto160
  140 t0=3520:t=t0:e0=int(rnd(1)*1500+3000):e=e0:p0=int(rnd(1)*3+7):pc=p0
  145 fori=0to7
  150 forj=0to7:k=0:n=rnd(1):ifn<x1thenn=n*64:k=(n<y1)-y:goto130
  160 b=(rnd(1)>a):b9=b9-b:q%(i,j)=k*c+b*w-int(rnd(1)*x+y):next j,i
  170 ifk9>(t9-t0)thent9=t0+k9
  180 ifb9>0then210
  190 gosub450:q%(x,y)=q%(x,y)-10:b9=1
  210 print"{down}ziel: zerstoeren sie";k9;"klingonische    raumer in";t9-t0;"jahren"
  220 print:print"anzahl der basisraumer:";b9:gosub605:k0=k9
  230 a=0:ifq1<0orq1>7orq2<0orq2>7thenn=0:s=0:k=0:goto250
  240 n=abs(q%(q1,q2)):q%(q1,q2)=n:s=n-int(n/10)*10:k=int(n/100)
  250 b=int(n/10-k*10):gosub450:s1=x:s2=y
  260 fori=0to7:forj=0to7:s%(i,j)=1:next j,i:s%(s1,s2)=2
  270 fori=0to7:k3%(i)=0:x=8:ifi>=kgoto280
  272 gosub460:s%(x,y)=3:k3%(i)=rnd(ti)*400+200:ifrnd(1)<0.05thenk3%(i)=1200
  280 k1%(i)=x:k2%(i)=y:next:i=s
  290 ifb>0thengosub460:s%(x,y)=4
  300 ifi>0thengosub460:s%(x,y)=5:i=i-1:goto300
  310 gosub550:ifd%(1)>0thengosub480:i=1:goto620
  370 gosub7000:gosub4000:gosub3000
  375 ifa=0thengosub480:gosub4000
  380 goto650
  450 x=int(rnd(1)*8):y=int(rnd(1)*8):return
  460 gosub450:ifs%(x,y)>1then460
  470 return
  480 ifk<1thenreturn
  490 ifc$="angedockd"thengosub8000:print"basis unterstuetzt enterprise":return
  500 fori=0to7:ifk3%(i)<=0thennext:return
  510 h=k3%(i)*1.2*rnd(1):h=1+int(h/fnd(0)):e=e-h
  520 gosub8000:print"treffer von";h;"aus";k1%(i)+1;"-";k2%(i)+1;:next:return
  550 fori=s1-1tos1+1:forj=s2-1tos2+1
  560 ifi<0ori>7orj<0orj>7then580
  570 ifs%(i,j)<>4then580
  572 c$="angedockd":forn=0to5:ifd%(n)>0thengosub8000:print"enterprise reparierd":n=5
  574 nextn:e=e0:pc=p0:gosub610:i=s1+1:j=s2+1:nextj,i:return
  580 nextj,i:ifk>0thenc$="rot":return
  590 ife<e0*.2thenc$="gelb":return
  600 c$="gruen":return
  605 print"ok?";
  608 gete$:ife$=""then 608
  609 print "{rvon} {rvof}";:return
  610 forn=0to5:d%(n)=0:next:return
  620 gosub3000:printd$(i);"defekt";
  630 gosub8000:printd%(i);"jahre reparaturzeit":ifa=1thenreturn
  650 gosub8000:print"kommando?";:gosub608:gosub2900
  660 ifa<1ora>6then680
  670 onagoto710,310,1250,1140,690,1300
  680 cu=25
  681 for j=0to5:gosub8000
  682 print"{rvon}";left$(d$(j),1);"{rvof}=";d$(j)
  683 for i=1to200:nexti
  684 nextj:goto650
  690 ifd%(4)>0thenprint"meteoritenstaub in den rampen";:i=4:goto630
  700 n=15:ifpc<1thenprint"torprdos verbraucht":goto650
  710 cu=19:forj=1to5:gosub8000:printda$(j):next:print"{up}{up}";
  720 printtab(12)"kurs (1-8.9)";
  730 inputc:ifc<1orc>8.9then650
  740 ifa=5thenpc=pc-1:goto900
  750 printtab(12);:input"entfernung (0-12)";w:ifw<=0orw>12then650
  755 gosub32400
  760 ifw<=.2ord%(0)<=0then780
  770 gosub8000:printd$(0);"defkt , max ist .2";:i=0
  775 gosub630:forj=0to800:nextj:goto710
  780 ifrnd(1)>.33then870
  800 x=int(rnd(1)*6):ifrnd(1)>.7then830
  810 d%(x)=d%(x)+int(6-rnd(1)*5):gosub8000:gosub32500:print "{rvon}raumbeben: ";
  820 printd$(x);"zerstoert{rvof}":i=x:gosub630:d%(x)=d%(x)+1:goto870
  830 fori=xto5:ifd%(i)>0then860
  850 next:fori=0tox:ifd%(i)>0 then860
  855 next:goto870
  860 d%(i)=1:gosub8000:print"{rvon}*scotty nahm den grossen hammer*{rvof}"
  870 fori=0to5:ifd%(i)=0then890
  880 d%(i)=d%(i)-1:ifd%(i)<=0thend%(i)=0:gosub8000:printd$(i);" sind klar"
  890 next:n=int(w*8):e=e-3*n:t=t+1:s%(s1,s2)=1
  900 y1=s1+.5:x1=s2+.5:ift>t9then1370
  910 y=(c-1)*.785398:x=cos(y):y=-sin(y)
  915 e$="e":y4=s1:x4=s2
  918 ifa=5thene$="Q":x4=8
  920 fori=1ton:y1=y1+y:x1=x1+x:y2=int(y1):x2=int(x1)
  930 ifx2<0orx2>7ory2<0ory2>7theni=n:next:goto1110
  950 ifs%(y2,x2)=1thengosub2000:next:goto1060
  960 i=n:next:ifa=5thengosub2000:y3=y2:x3=x2:gosub2500:gosub6000
  970 gosub3000:ifa=1thenprint"blockierd durch ";
  975 ons%(y2,x2)-3goto1040,1020
  980 print"klingon";:ifa=1then1050
  990 fori=0to7:ify2<>k1%(i)then1010
 1000 ifx2=k2%(i)thenk3%(i)=0
 1010 next:k=k-1:k9=k9-1:goto1070
 1020 print"stern";:ifa=5thens=s-1:goto1070
 1030 goto1050
 1040 print"basisraumer";:ifa=5thenb=2:goto1070
 1050 print" in sektor";y2+1;"-";x2+1:y2=int(y1-y):x2=int(x1-x)
 1060 s1=y2:s2=x2:s%(s1,s2)=2:goto1090
 1070 gosub31300:print" zerstoert!";:ifb=2thenb=0:print"..hervorragend!";
 1080 print:s%(y2,x2)=1:q%(q1,q2)=k*100+b*10+s:ifk9<1then1400
 1090 gosub550
 1100 gosub480:gosub4000:goto650
 1110 ifa<>5then1120
 1113 y3=y4:x3=x4:gosub2500:print"{SHIFT-+}{left}";
 1115 gosub3000:gosub31300:print"daneben !":goto1090
 1120 q1=int(q1+w*y+(s1+.5)/8):q2=int(q2+w*x+(s2+.5)/8)
 1130 q1=q1-(q1<0)+(q1>7):q2=q2-(q2<0)+(q2>7):goto230
 1140 i=3:ifd%(i)>0then620
 1150 gosub3000:input"{down}{down}{down}{down}laser fertig.energieeinheiten";x:ifx<=0then650
 1160 ifx>ethenprint"sie haben nur";e:goto1150
 1165 gosub23000
 1170 e=e-x:fori=0to7:ifk3%(i)<=0then1230
 1180 h=int(x):k3%(i)=k3%(i)-h:gosub8000
 1185 if k3%(i)<0thenh=h+k3%(i)
 1190 print"treffer"h"auf k von"k1%(i)+1"-"k2%(i)+1",";
 1200 ifk3%(i)>0thenprintk3%(i);"angeschlagen";:i=7:next:goto1235
 1210 gosub31300:print"{rvon}*zerstoert*{rvof}";:y3=k1%(i):x3=k2%(i):gosub2500:gosub6000
 1220 k=k-1:k9=k9-1:s%(k1%(i),k2%(i))=1:q%(q1,q2)=q%(q1,q2)-100:x=x-h
 1230 next i
 1235 ifk9<1then1400
 1240 goto1090
 1250 gosub3000:cu=24:i=2:ifd%(i)>0then620
 1260 gosub32300:print d$(i);" fuer quadrant";q1+1;"-";q2+1
 1270 fori=q1-1toq1+1:forj=q2-1toq2+1:print"  ";
 1280 ifi<0ori>7orj<0orj>7thenprint"***";:goto1350
 1290 q%(i,j)=abs(q%(i,j)):goto1340
 1300 i=5:ifd%(i)>0then620
 1310 gosub31900
 1311 print"{home}"tab(45)"zusammenfassende sternenkarte fuer":printtab(45)" sternzeit";t
 1312 printtab(39)"  quadrant";q1+1;"-";q2+1:print
 1313 di=39
 1315 printtab(39)"    1   2   3   4   5   6   7   8{down}"
 1320 fori=0to7:printtab(39)i+1;:forj=0to7
 1330 ifq%(i,j)<0thenprinttab(39)"***";:goto1350
 1340 e$=str$(q%(i,j)):e$="00"+mid$(e$,2)
 1345 if i=q1andj=q2 thenprinttab(di)"{rvon}";right$(e$,3);"{rvof}";:goto1350
 1347 print right$(e$,3);
 1348 di=0
 1350 print" ";:next:print"      ":next:ifa<>3thengoto1355
 1352 fori=0to1800:next:gosub480:gosub4000:goto650
 1355 gosub605:gosub480:fori=0to400:next:dl$="{home}":printdl$:gosub3000:goto310
 1360 fori=1to2500:next:print"{clr}{down}{down}{down}sternzeit ";t:print:fori=0to1800:nexti
 1365 return
 1370 gosub1360:print "danke fuer ihre glanzleistung.die"
 1380 print"menschheit wird ihnen die";k9;"klingonen-"
 1385 print"raumer nicht vergessen.":print
 1390 print"sie sind degradiert,zum kuechenjungen !":print:k0=0:goto1420
 1400 gosub1360:print" sie haben die menschheit gerettet !":print
 1410 print"hiermit sind sie zum admiralbefoerdert!":gosub51000:print
 1415 print"sie schlugen";k0-k9;" klingonen in"t-t0;"jahren":print
 1420 print"leistung =";int(1000*(k0-k9)/(t-t0)):print
 1430 input"nochmal ?";e$:ifleft$(e$,1)="j"then3
 1435 end
 2000 y3=y2:x3=x2:gosub2500:printe$
 2050 ifx2=x4andy2=y4thenreturn
 2100 y3=y4:x3=x4:ifx4<8thengosub2500:print"{SHIFT-+}"
 2200 y4=y2:x4=x2:return
 2500 printleft$(z1$,y3*2+3);left$(z2$,x3*2+2);
 2600 return
 2900 forx3=1to6:ife$=left$(d$(x3-1),1)then 2980
 2920 next:printe$:a=7:goto2990
 2980 print"{rvon}";d$(x3-1):a=x3:fori=1to400:next
 2990 cu=19:gosub8000:return
 3000 forx3=1to6:gosub8000:next:return
 4000 ife<=0goto1370
 4005 print"{home}{down}"left$(z2$,20)"jahre=   {left}{left}{left}"t9-t
 4050 printtab(20)"zustand "c$" ":ifc$="rot"thengosub23100
 4055 ifc$="gelb"thengosub26500
 4100 printtab(20)"quadrant="q1+1"-"q2+1
 4200 printtab(20)"energie=     {left}{left}{left}{left}{left}"int(e):printtab(20)d$(4)"="pc
 4250 printtab(20)"klingonen=   {left}{left}{left}";k9
 4300 return
 6000 restore:forx3=1to7:read e$:print e$;:fory3=1to60:nexty3:nextx3:return
 6400 data"+{left}","{rvon} {rvof}{left}","V{left}"," {left}","{up}{left}U{rght}I{down}{down}{left}{left}{left}J{rght}K{up}{left}{left}","{up}{left} {rght} {down}{down}{left}{left}{left} {rght} {up}{left}{left}","{SHIFT-+}{left}"
 7000 gosub32100:printdl$"{CBM-A}{SHIFT-*}1{SHIFT-*}2{SHIFT-*}3{SHIFT-*}4{SHIFT-*}5{SHIFT-*}6{SHIFT-*}7{SHIFT-*}8{SHIFT-*}{CBM-S}":print"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--} {SHIFT--} {SHIFT--}"
 7100 fori=0to7:print"{left}";i+1;"{left}{SHIFT-*}";:forj=0to7:printmid$(q$,s%(i,j),1);"{SHIFT-*}";:next
 7200 print"{CBM-W} "
 7300 print"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}":next:print"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}":return
 8000 cu=cu+1:ifcu>24thencu=20
 8100 printleft$(z1$,cu);z3$:printleft$(z1$,cu);:return
 10000 print"brauchen sie eine spielanleitung?
 10010 geta$:ifa$=""then10010
 10020 ifa$="n"thenreturn
 11000 print"{clr}{down}{down}{down}{down}{down}{down}{down}":print"enterprice ist ein computerstrategie-
 11010 print"spiel,bei dem sie versuchen sollen,
 11020 print"feindliche klingonische raumschiffe zu
 11030 print"vernichten.
 11035 geta$:ifa$=""then11035
 11040 print"{clr}":print"um die klingonen zu suchen stehen ihnen
 11050 print"zwei sensoren zur verfuegung.
 11060 print:print"  1 : kurzdistancesensor
 11070 print:print"dieses bild haben sie immer auf dem
 11080 print"schirm.es zeigt ihnen den quadranten,in
 11090 print"dem sie sich befinden.
 11100 print:print"  2 : umkreissensoren
 11110 print:print"damit erhalten sie die zahlenkombination
 11120 print"der umliegenden quadranten.
 11130 geta$:ifa$=""then11130
 11200 print"{clr}":print"diese zahlenkombination wird auch bei
 11210 print"der galaktischen karte benutzt.
 11220 print:print"die karte kann aber nur die kombination
 11230 print"anzeigen,die der umkreissensor aufge-
 11240 print"zeigt hat,oder von den sektoren,in denen
 11250 print"die enterprice bereits war.
 11260 geta$:ifa$=""then11260
 11300 print"{clr}":print"es wird ihnen folgender code gezeigt:
 11310 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}***
 11320 print"{down}{down}{down}{down}steht fuer unbekanntes gebiet
 11330 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}215
 11340 print"{down}{down}{down}{down}steht fuer bekanntes gebiet.
 11345 geta$:ifa$=""then11345
 11350 print"{clr}":print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}215":print"{down}{down}im einzelnen haben die zahlen folgende
 11360 print"bedeutung:
 11370 print"{down}{down}erste ziffer = feindliche klingonen
 11390 print"{down}mittlere ziffer = basisraumer
 11400 print"{down}dritte ziffer = sterne in diesem sektor
 11410 print"{down}{down}die ziffer selbst gibt die jeweilige
 11420 print"anzahl der objekte an.
 11430 geta$:ifa$=""then11430
 19999 return
 23000 rem ** these are laser gun type sounds **
 23005 poke59467,16:poke59466,15
 23010 forn=1to15:fornn=30to255step10  :poke59464,nn:next:next
 23020 poke59467,0:return
 23100 rem        ** this is a siren **
 23105 poke59467,16:poke59466,15
 23110 forn=1to4:fornn=250to80step-2:poke59464,nn:next
 23120 fornn=80to250step 2:poke59464,nn:next:next
 23130 poke59467,0:return
 26500 rem
 26505 poke59467,16:poke59466,15
 26510 poke59466,9
 26515 forl=1to10
 26520 forr=250to180step-1
 26530 poke59464,r
 26540 next:next
 26550 poke59467,0:return
 31300 rem
 31305 poke59467,16:poke59466,15
 31310 poke59466,85
 31320 forr=50to150:poke59464,r:forx=1to30:next:next
 31330 poke59466,1:poke59464,255:forx=1to400:next
 31370 poke59467,0:return
 31900 rem
 31910 poke59467,16:poke59466,15
 31920 forl=1to30:poke59464,10+100*rnd(1)
 31930 fori=1to6:next:next:poke59467,0:return
 32100 rem
 32101 p=59464
 32105 poke59467,16:poke59466,15
 32110 poke59466,9
 32120 forl=1to50:pokep,238:pokep,251:next:poke59467,0:return
 32300 rem
 32301 p=59464
 32310 poke59467,16:poke59466,15
 32320 forl=1to200:pokep,150:pokep,200:pokep,255:next:poke59467,0:return
 32400 rem
 32401 p=59464
 32405 poke59467,16:poke59466,15
 32410 poke59466,29
 32430 forl=160to0step-.3:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next
 32490 next:poke59467,0:return
 32500 rem
 32501 p=59464
 32505 poke59467,16:poke59466,15
 32510 poke59466,3
 32520 forl=200to235step.7:pokep,l:pokep,l+5:pokep,l+20:forz=1to20:next:next
 32521 forl=1to100:poke59467,0:poke59466,16:poke59467,16:poke59466,3:next
 32590 poke59467,0:return
 45000 rem  **the starship enterprise**
 45005 i=0:n1=ti
 45010 p1=int(rnd(1)*37):d=1:s$=". "
 45020 p2=int(rnd(1)*37)
 45030 p3=int(rnd(1)*37)
 45040 p=int(rnd(1)*37)
 45050 p$="M{down}M{down}M{down}M{down}M{down}M{down}M{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left} {down} {down} {down} {down} {down} {down} {down} "
 45060 print"{clr}{down}{down}{down}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"spc(12)"U{SHIFT-*}I"
 45070 print" {rvon}    ncc-1701   {rvof}           {rvon}{SHIFT-POUND}   {CBM-*}{rvof}      "
 45080 print"  {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}   {CBM-I}{CBM-I}{CBM-I}{rvof}  {CBM-*}{rvon}  Q   QQ QQQ QQ  Q {rvof}{SHIFT-POUND}"
 45090 printspc(10)"{rvon}   "spc(11)"{SHIFT-POUND} {rvof}{SHIFT-POUND}{CBM-*}{rvon}   {rvof}{SHIFT-POUND}"
 45100 printspc(10)"{rvon}   "spc(10)"{SHIFT-POUND} {rvof}{SHIFT-POUND}"
 45110 printspc(10)"{rvon}   "spc(9)"{SHIFT-POUND} {rvof}{SHIFT-POUND}"
 45120 printspc(10)"{rvon}   "spc(8)"{SHIFT-POUND} {rvof}{SHIFT-POUND}"
 45130 printspc(10)"{rvon}   {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}  {rvof}{SHIFT-POUND}"
 45140 print"    {CBM-*}{rvon}                   {CBM-*}"
 45150 print"      {CBM-*}{rvon}         ncc-1701 {rvof}("
 45160 printspc(9)"{CBM-*}{rvon}              {rvof}{SHIFT-POUND}"
 45190 a$(0)=" ":a$(1)="{CBM-D}":b$(0)="{CBM-M}":b$(1)="{CBM-N}":b$(2)="{CBM-L}":b$(3)="{rvon}{CBM-K}{rvof}":b$(4)="{rvon}{CBM-J}{rvof}"
 45200 b$(5)="{rvon}{CBM-H}{rvof}":b$(6)="{rvon}{CBM-G}{rvof}":b$(7)="{rvon} {rvof}":b$(8)=" "
 45205 gosub26500
 45210 a=ti:b=ti
 45220 print"{home}{down}{down}{down}{down}"spc(19)a$(i+1)spc(17)a$(i+1)
 45230 ifti-a>30theni=noti:a=ti
 45240 print"{home}{down}{down}{down}{down}"b$(j)
 45250 j=j+1.5:b=ti
 45260 ifj>8thenj=j-8
 45270 print"{home}"tab(p2)s$:p2=p2-d:ifp2<dthenp2=37:print"{up}  "
 45280 print"{down}"tab(p1)s$:p1=p1-d:ifp1<dthenp1=37:print"{up}  "
 45290 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(p3)s$:p3=p3-d:ifp3<dthenp3=37:print"{up}  "
 45300 print"{down}{down}{down}{down}{down}"tab(p)s$:p=p-d:ifp<dthenp=37:print"{up}  "
 45310 if(ti-dd)>(rnd(1)*100+45)thenprint"{home}{down}{down}{down}{down}{down}{down}{down}"spc(30)p$:dd=ti
 45340 if(ti-n1)<1800then45220
 45355 gosub23000
 45360 return
 50000 printtab(20)"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}r a u m s c h i f f
 50010 printtab(20)"{down}{down}{down}{rght}{rght}{rght}{rght}e  n  t  e  r  p  r  i  c  e
 50015 gosub32400
 50020 fori=1to300:next
 50030 return
 51000 rem    dimj(29)
 51001 j(1)=117:j(2)=117:j(3)=104:j(4)=93:j(5)=117:j(6)=93:j(7)=104:j(8)=157
 51002 j(9)=117:j(10)=117:j(11)=104:j(12)=93:j(13)=117:j(14)=125:j(15)=157
 51003 j(16)=117:j(17)=117:j(18)=104:j(19)=93:j(20)=87:j(21)=93:j(22)=104
 51004 j(23)=117:j(24)=125:j(25)=157:j(26)=140:j(27)=125:j(28)=117:j(29)=117
 51015 p=60:p1=1:l=4
 51020 fori=1to29
 51025 t=ti
 51030 poke59467,16
 51050 poke59464,j(i)
 51055 poke59466,15
 51060 ifi=13ori=28ori=29thenl=2
 51065 ifti-t<p/lthen51065
 51070 poke59467,0
 51075 l=4
 51077 t=ti
 51078 ifti-t<p1then51078
 51080 next
 51500 return
    0 goto100
    1 rem epidemic
    2 :
    3 rem andy gamble, aug80
    4 rem columbia college,    1619 w10 ave                    vancouver bc v6j 2a2
    5 rem simulated progress of epidemic - user supplies parameters
    6 :
    7 rem pet 8k
    8 :
    9 rem modified by cue
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca  94063      (415) 363-5472{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use only and    {SHIFT--}
   24 rem"{SHIFT--} are not to be sold.         {SHIFT--}
   25 rem"{SHIFT--} copyright 1983    cue inc.  {SHIFT--}
   26 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   30 rem"{CBM-I}{CBM-I}{CBM-I}input routine
   31 deffnz(z)=peek(196)+256*peek(197)+peek(198):poke158,0:zz$="":poke167,0
   32 getz$:ifz$=""orz$="{clr}"orz$="{home}"orz$="{down}"orz$="{up}"orz$="{rght}"orz$="{left}"orz$="{inst}"then32
   33 ifz$=chr$(13)thenpoke167,1:pokefnz(z),32:z$=zz$:print:goto37
   34 if(zz$=""andz$=chr$(20))then31
   35 ifzcandlen(zz$)>zc-1thengosub38:goto31
   36 zz$=zz$+z$:zz$=left$(zz$,len(zz$)+(chr$(20)=z$)*2):printz$;:goto32
   37 zc=0:return
   38 forzx=1tozc:printchr$(20);:next:return
   40 rem"{CBM-I}{CBM-I}{CBM-I}get routine
   41 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$=""then41
   42 ifzc$<>""thenforzx=1tolen(zc$):zf=zf+zx*-(z$=mid$(zc$,zx,1)):next:ifzf=0then41
   43 zc$="":zf=0:return
   50 rem"{CBM-I}{CBM-I}{CBM-I}continue routine1
   51 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}Press {rvon}RETURN{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} to continue ";
   55 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0)
   58 ifz$<>chr$(13)then55
   59 return
   60 rem"{CBM-I}{CBM-I}{CBM-I}continue routine2
   61 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}press {rvon}return{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} to continue ";
   62 goto55
  100 rem
  120 i=rnd(-rnd(0)):poke59468,12
  130 rem    poke59458,62:rem speed poke
  140 t$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  150 qp=515:qa=126:ifpeek(50000)thenqp=151:qa=44
  160 ig=160:vi=215:co=209:gi=170
  170 rem********variables***************
  180 rem np=# of people,ni=# of infected         im=# of immune
  190 rem ct=days for contagious,ig=islan         d graphic,pp=pos of people
  200 rem nd=# of days,vi=not yet infecte         d
  210 rem co=contagious,pg=people graphic
  220 rem gi=graphic immune,mv=move,dc=da         ys of contagion left
  230 rem********************************
  235 print"{clr}":poke59468,14
  240 printtab(15)"{rvon}EPIDEMIC{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}"
  250 print"{down}{down}Do you want instructions?{rght} (Y/N) ";:zc$="yn":gosub40:q$=z$
  260 ifq$<>"y"then460
  265 print"{clr}{down}This program simulates the day-by-day"
  266 print"{down}progression of an epidemic which has "
  270 print"{down}broken out on a small island.  The"
  280 print"{down}disease is not fatal, and once"
  290 print"{down}contracted provides immunity for life."
  295 gosub50
  300 print"{clr}You are allowed to choose certain "
  310 print"{down}initial conditions:":print"{down}{down}     The island population."
  320 print"     {down}The number originally infected."
  330 print"     {down}The number of days for which the"
  335 printtab(5)"disease is contagious (contagion"
  340 printtab(5)"time) - this is also the duration"
  350 printtab(5)"of the disease."
  360 print"{down}The islanders will move about randomly,"
  370 print"{down}infecting others if contagious."
  380 print"{down}Those who are immune will not be":print"{down}infected.":gosub50
  400 print"{clr}{down}{down}This will continue until the disease has"
  410 print"run its course (until there are no more"
  420 print"{down}infected persons).  You will then be"
  430 print"{down}given a day-by-day bar graph of the"
  440 print"{down}history of the epidemic, up to a maximum":print"of 50 days."
  450 gosub50
  460 print"{clr}";:poke59468,14
  461 print"{clr}{down}How many islanders? (up to 100) ";:zc=3:gosub30:np=val(z$)
  470 ifnp>100then460
  480 print"{down}How many infected at start?     {left}{left}{left}{left}";:zc=3:gosub30:ni=val(z$)
  490 ifni>npthenprint"{up}{up}";:goto480
  500 print"{down}Contagion time? (days) ";:zc=2:gosub30:ct=val(z$)
  510 restore
  520 printchr$(147):poke59468,12:fori=1to18:readil,ir
  530 forj=iltoir:pokej,ig:next:next
  540 data32902,32911,32940,32955
  550 data32978,32996,33015,33040,33050,33083,33090,33123,33130,33162
  560 data33171,33203,33213,33244,33254,33285,33297,33325
  570 data33337,33362,33376,33398,33417,33437,33459,33475,33501,33515
  580 data33544,33556,33585,33592
  590 print"{home}{rvon}W{rvof}=uninfected  {rvon}Q{rvof}=contagious  {rvon}*{rvof}=immune"
  600 rem garbage collection for arrays
  610 pokeqa+2,peek(qa):pokeqa+3,peek(qa+1):z9=fre(0)
  620 dimpp(np),pg(np),dc(np),ni(50),im(50)
  630 fori=1tonp:pg(i)=vi:next
  640 fori=1toni:pg(i)=co:next
  650 fori=1tonp:dc(i)=0:next
  660 fori=1toni:dc(i)=ct:next
  670 fori=1tonp
  680 pp(i)=int(690*rnd(1)+32901):ifpeek(pp(i))<>igthen680
  690 pokepp(i),pg(i):next
  700 nd=0
  710 im=0:print"{home}{down}"tab(7)np-ni-im;tab(20)ni;tab(30)im
  720 print"{home}{down}{down}{down}day";nd
  730 nd=nd+1:ni=0:im=0
  740 fori=1tonp
  750 rem new contagious from last time
  760 if(peek(pp(i))=co)and(pg(i)=vi)thendc(i)=ct
  770 pg(i)=peek(pp(i))
  780 onint(9*rnd(1)+1)gosub1140,1150,1160,1170,1180,1190,1200,1210,1220
  790 rem infecting?
  800 ifpg(i)=cothengosub1300
  810 rem infected?
  820 ifpg(i)=vithengosub1400
  830 rem one day less
  840 ifpg(i)=cothendc(i)=dc(i)-1
  850 rem end contagion
  860 ifdc(i)<0thenpg(i)=gi:pokepp(i),gi
  870 ifpeek(pp(i))=cothenni=ni+1
  880 ifpeek(pp(i))=githenim=im+1
  890 next
  900 ifnd<=50thenni(nd)=ni:im(nd)=im
  910 print"{home}{down}"tab(7)np-ni-im"{left}  ";tab(20)ni"{left}  ";tab(30)im"{left}  "
  920 ifni>0then720
  930 printt$;:gosub60
  935 print"{clr}{down}hold {rvon}space{rvof}{up}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} bar down to scroll graph"
  940 print"{down}{down}day     infection{down}"
  950 fornd=1to50
  960 ifpeek(151)=255then960
  970 printnd;tab(8);
  980 printnp-ni(nd)-im(nd);ni(nd);im(nd):print
  990 ifnp-ni(nd)-im(nd)=0then1010
 1000 fori=1tonp-ni(nd)-im(nd):print"{rvon}W";:next
 1010 ifni(nd)=0then1030
 1020 fori=1toni(nd):print"{rvon}Q";:next
 1030 ifim(nd)=0then1050
 1040 fori=1toim(nd):print"{rvon}*";:next
 1050 print
 1060 ifni(nd)=0then1080
 1070 print:nextnd
 1080 print"{down}like to see the graph again?  (y/n) ";:zc$="yn":gosub40:q$=z$
 1090 print"{clr}":ifq$="y"then935
 1100 print"{down}do you want another try? (y/n) ";:zc$="yn":gosub40:q$=z$
 1110 ifq$="y"then460
 1120 print"{clr}";:end
 1130 rem move s/r's
 1140 mv=39:gosub1240:return
 1150 mv=40:gosub1240:return
 1160 mv=41:gosub1240:return
 1170 mv=-1:gosub1240:return
 1180 mv=0:gosub1240:return
 1190 mv=1:gosub1240:return
 1200 mv=-41:gosub1240:return
 1210 mv=-40:gosub1240:return
 1220 mv=-39:gosub1240:return
 1230 rem make move
 1240 ifpeek(pp(i)+mv)<>igthenreturn
 1250 pg(i)=peek(pp(i))
 1260 pokepp(i),ig
 1270 pp(i)=pp(i)+mv
 1280 pokepp(i),pg(i):return
 1290 rem infecting others
 1300 ifpeek(pp(i)-41)=vithenpokepp(i)-41,co
 1310 ifpeek(pp(i)-40)=vithenpokepp(i)-40,co
 1320 ifpeek(pp(i)-39)=vithenpokepp(i)-39,co
 1330 ifpeek(pp(i)- 1)=vithenpokepp(i)- 1,co
 1340 ifpeek(pp(i)+ 1)=vithenpokepp(i)+ 1,co
 1350 ifpeek(pp(i)+39)=vithenpokepp(i)+39,co
 1360 ifpeek(pp(i)+40)=vithenpokepp(i)+40,co
 1370 ifpeek(pp(i)+41)=vithenpokepp(i)+41,co
 1380 return
 1390 rem infection from others
 1400 ifpeek(pp(i)-41)=cothenpokepp(i),co
 1410 ifpeek(pp(i)-40)=cothenpokepp(i),co
 1420 ifpeek(pp(i)-39)=cothenpokepp(i),co
 1430 ifpeek(pp(i)- 1)=cothenpokepp(i),co
 1440 ifpeek(pp(i)+ 1)=cothenpokepp(i),co
 1450 ifpeek(pp(i)+39)=cothenpokepp(i),co
 1460 ifpeek(pp(i)+40)=cothenpokepp(i),co
 1470 ifpeek(pp(i)+41)=cothenpokepp(i),co
 1480 return
 1490 print"    {rvon}press any key to continue"
 1500 getq$:ifq$=""then1500
 1510 return
    0 clr:poke59468,12
    1 rem equip copyright(c)1980 glen fisher
    5 rem cursor #20,may,1980
    6 rem box 550,goleta,ca.93017
   10 rem as of 7 jun 80
   90 pg$="equip":nm$="20":gosub62000
  100 fd=1:dr$="0:":mn=150:mi=12
  200 of=4:ch$="":fc=0
  210 readt$:ift$<>""thench$=ch$+left$(t$,1):goto210
  260 readt$,t:ift$<>""thenfc=fc+1:goto260
  300 hf=fc-1:dimdt$(mi-1,hf),fl$(hf),fp(hf),it$(hf)
  310 restore:fori=0tolen(ch$):readt$:nexti
  320 fori=0tohf:readfl$(i),fp(i):nexti
  500 print"today's date? ";:gosub60000:td$=in$
 1000 fi$="noname":ct$="":dc$=td$:ci=0:sv=0:goto2000
 1800 gosub50300
 1900 fori=1to1600:nexti
 1950 ifof$<>""thenfi$=of$:ct$=oc$:dc$=od$:sv=abs(sv)
 2000 ifsvthendc$=td$
 2010 print"{clr}file: "fi$:print"{down}last changed: "dc$
 2030 print"{down}contains: "ct$:print"{down}has"ci"item";:ifci<>1thenprint"s";
 2100 restore:t=2:print"{down}{down}":fori=1tolen(ch$):readt$
 2110 printtab(t)"{up}{CBM-@}{down}{left}{rvon}"left$(t$,1)"{rvof}"mid$(t$,2);
 2120 t=t+20:ift>40thent=2:print:print
 2130 nexti
 2200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                       "
 2210 print"{up}choice? ";:gosub60000:z$=left$(in$,1)
 2220 fori=1tolen(ch$):ifz$=mid$(ch$,i,1)then2300
 2230 nexti:goto2200
 2300 ifz$<>pc$thensv=abs(sv)
 2350 pc$=z$:onigoto4000,5000,9000,10000,8000,11000,6000,3000,7000
 2400 print"{down}choice"i"isn't there.":goto1900
 2410 print"{down}out of memory!":goto1900
 2500 print"{down}file hasn't been saved. ":print"this is your {rvon}only{rvof} warning.
 2510 sv=-abs(sv):goto1900
 3000 ifsv>0then2500
 3010 print"{clr}":end
 4000 ifsv>0then2500
 4010 print"{clr}":of$=fi$:oc$=ct$:od$=dc$
 4020 print"{down}name of new file? ";:gosub60000:fi$=in$:ifin$=""then1950
 4040 iffd<=2then4100
 4050 dr=-1:gosub50100:gosub50300:iferthen4100
 4070 print"{down}name already there
 4080 pr$="{down}want to use it anyway? ":gosub51000:ifin$="n"then4020
 4100 print"{down}what will it contain? ";:gosub60000:ct$=in$:ifct$=""then1950
 4200 dc$=td$:ci=0:sv=0:of$="":goto2000
 5000 print"{clr}
 5100 ifci=mithenprint"{down}{rvon}only";mi;"items allowed{rvof}":goto1900
 5110 iffre(0)<mnthen2410
 5200 print"{down}item"ci+1"{left}:{down}
 5210 fori=0tohf:printfl$(i)": ";:gosub60000:ifin$=""andi=0then2000
 5240 it$(i)=in$:nexti:ifci<1theni=0:goto5700
 5310 fori=ci-1to0step-1:ifdt$(i,0)<=it$(0)theni=i+1:goto5700
 5330 forj=0tohf:dt$(i+1,j)=dt$(i,j):nextj:print".";:nexti:i=0
 5700 forj=0tohf:dt$(i,j)=it$(j):nextj:print:sv=1:ci=ci+1:goto5100
 6000 ifci=0thenprint"{down}nothing to list.":goto1900
 6010 i=0:pg=23:wd=40:open1,3
 6100 print"{clr}";:gosub41000:printtab(8)"{rvon}press return for more.
 6140 gosub52000:ifz$=cr$andi<cithen6100
 6150 close1:goto2000
 7000 ifci=0thenprint"{down}nothing to print.":goto1900
 7010 i=0:pg=60:wd=80:open1,4
 7020 print"adjust paper, and press {rvon}return{rvof}":gosub52000
 7100 gosub41000:ifln<pg+6thenfort=ln+1topg+6:print#1:nextt
 7120 ifi<cithen7100
 7130 close1:goto2000
 8000 iffd<=2then8200
 8110 t$=left$(fi$,12)+".old"
 8120 open15,8,15:print#15,"s"dr$t$:print#15,"r"dr$t$"="fi$:close15
 8200 dr=1:gosub50100
 8210 print#1,"*equip*"cr$;:gosub50000:print#1,ct$cr$;:gosub50000
 8220 print#1,dc$cr$;:gosub50000:print#1,ci;cr$fc;cr$;:gosub50000
 8240 fori=0toci-1:print".";:forj=0tohf:print#1,dt$(i,j)cr$;:nextj:nexti
 8270 gosub50300:sv=0:goto2000
 9000 ifsv>0then2500
 9010 of$=fi$:oc$=ct$:od$=dc$:print"{clr}
 9020 print"{down}name of file? ";:gosub60000:fi$=in$:ifin$=""then1950
 9040 dr=0:gosub50100:iferthen9020
 9060 gosub9500:ifin$<>"*equip*"thenprint"{down}i didn't make that file!":goto1800
 9100 gosub9500:ct$=in$:ifstthen9400
 9110 gosub9500:dc$=in$:ifstthen9400
 9120 gosub9500:ni=val(in$):ifstthen9400
 9125 ifni>mithenprint"{down}file has too many items.":goto1800
 9130 gosub9500:ifstthen9400
 9140 iffc<>val(in$)thenprint"{down}wrong number of fields in file.":goto1800
 9200 ci=ni:sv=0:of$="":fori=0toci-1:print".";:forj=0tohf:ifstthen9300
 9240 gosub9500:dt$(i,j)=in$:nextj:nexti:gosub50300:goto2000
 9300 print"{down}"ci-i"items were lost somehow.!:ci=i:goto1800
 9400 print"{down}file too short!":goto1800
 9500 in$=""
 9510 get#1,z$:ifz$<>cr$andst=0thenin$=in$+z$:goto9510
 9520 return
 10000 print"{clr}
 10010 print"{down}delete which item? ";:gosub60000:ifin$=""then2000
 10030 t=val(in$)-1:ift<0ort>=cithenprint"{down}no such item.":goto10010
 10060 print"{down}{down}item"t+1":{down}":forj=0tohf:printfl$(j)": "dt$(t,j):nextj
 10080 pr$="{down}delete it? ":gosub51000:ifin$="n"then2000
 10100 ift=ci-1then10200
 10110 fori=t+1toci-1:print".";:forj=0tohf:dt$(i-1,j)=dt$(i,j):nextj:nexti
 10200 ci=ci-1:sv=1:forj=0tohf:dt$(ci,j)="":nextj:goto2000
 11000 print"{clr}
 11010 iffre(0)<mnthen2410
 11020 print"{down}change which item? ";:gosub60000:ifin$=""then2000
 11030 t=val(in$)-1:ift<0ort>=cithenprint"{down}no such item.":goto11020
 11100 print"{down}{down}item"t+1":{down}":forj=0tohf:it$(j)=dt$(t,j):printfl$(j)": "it$(j)
 11120 printfl$(j)": ";:gosub60000:ifin$<>""thenit$(j)=in$:sv=1
 11140 nextj
 11200 ift<1then11300
 11210 ifdt$(t-1,0)<=it$(0)then11300
 11220 forj=0tohf:dt$(t,j)=dt$(t-1,j):nextj:print".";:t=t-1:goto11200
 11300 ift>=ci-1then11400
 11310 ifit$(0)<dt$(t+1,0)then11400
 11320 forj=0tohf:dt$(t,j)=dt$(t+1,j):nextj:print".";:t=t+1:goto11300
 11400 forj=0tohf:dt$(t,j)=it$(j):nextj:goto2000
 40000 t=1:p=0:forj=0tohf:iffp(j)<pthent=t+1
 40030 p=abs(fp(j))+len(it$(j))
 40040 ifp>=wdthent=t+1:p=p-wd:goto40040
 40060 nextj:ifln+t>pgthent=0:return
 40200 p=0:forj=0tohf:iffp(j)<0thengosub40900
 40210 c=abs(fp(j))+of-1:gosub40700:it$=it$(j):gosub40600:nextj
 40250 gosub40900:return
 40600 ifp+len(it$)<wdthen40650
 40620 gosub40800:print#1,left$(it$,wd-p);:it$=mid$(it$,wd-p+1)
 40640 p=wd:gosub40900:goto40600
 40650 ifit$<>""thengosub40800:print#1,it$;
 40670 p=p+len(it$):return
 40700 ifp>=cthengosub40900
 40705 ifc>=wdthengosub40900:c=c-wd+of:goto40705
 40710 gosub40800:t=c-p:ift>0thenprint#1,spc(t);
 40720 p=c:return
 40800 ifp>=ofthenreturn
 40810 ifit>=0thenprint#1,right$("  "+str$(it),of-1)" ";
 40820 ifit<0thenprint#1,spc(of);
 40830 it=-1:p=of:return
 40900 ifp<wdthengosub40800:print#1
 40910 ln=ln+1:p=0:return
 41000 ln=0:it=-1:forj=0tohf:it$(j)=fl$(j):nextj:gosub40000
 41020 ifi>=cithenreturn
 41030 forj=0tohf:it$(j)=dt$(i,j):nextj
 41040 it=i+1:gosub40000:ifttheni=i+1:goto41020
 41050 return
 49010 datacreate new file,add item,read old file,delete item,save file
 49060 datamodify item,list on screen,quit,print on printer
 49490 data
 49500 datadescription,1,serial no.,-4,purchased,17,price,30
 49590 data,0
 50000 ifti-z9<20orfd>2then50090
 50010 iffd=1thenpoke59411,53:forz=1to60:next:poke59411,61
 50020 iffd=2thenzz=peek(59456):poke59456,zzand239:forz=1to60:next:poke59456,zz
 50090 z9=ti:return
 50100 iffd>2then50200
 50110 print"{down}please rewind tape"fd"{left},":print"and then press {rvon}return
 50130 gosub52000:pokeqb,122:pokeqb+1,2:iffd=2thenpokeqb,58:pokeqb+1,3
 50150 open1,fd,dr,fi$:zp=ti:return
 50200 fl$=dr$+fi$:open15,8,15:ifdr=1thenprint#15,"s"fl$
 50210 fl$=fl$+",s,"+mid$("rrw",dr+2,1):open1,8,2,fl$
 50230 input#15,er,er$,tk,sc:ifer=0or(dr<0ander=62)thener$="":return
 50240 ifer=62then50280
 50250 close1:print"{down}"er;er$tk;sc:print"{down}fix problem and type 'cont'.":end
 50270 goto50210
 50280 print"{down}can't open "fi$" on drive "left$(fl$,1)
 50300 close1:close15:return
 51000 printpr$;:gosub60000:ifin$=""thenin$="n":return
 51010 in$=left$(in$,1):ifin$="y"orin$="n"thenreturn
 51020 print"please answer {rvon}y{rvof} or {rvon}n{rvof}":goto51000
 52000 getz$:ifz$=""then52000
 52010 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1)"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$zd$z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}"tab(9)"cursor #"nm$"  "pg$
 62010 print"{down} copyright (c) 1980  by glen fisher{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}materialism with dignity
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 gosub52000
 62100 print"{clr}":clr:cr$=chr$(13)
 62110 qb=243:ifpeek(50000)<>0thenqb=214
 62120 goto100
{$fa}{stop}{$00}{CBM-+}{$60}{$e0}{wht}{$60}{$00}{$ef}{CTRL-D}{$00}{$00}{$00}::::{$8f}{rvon}{CTRL-A}!0?{CTRL-A}{CTRL-B}{rvon}{rvon}{CTRL-B}:{CTRL-B}{rvon}{rvon}{CTRL-B}:{CTRL-B}{rvon}{rvon}{CTRL-B}{$80}:{rvon}{CTRL-B}{$82}{CTRL-B}{rvon}:{rvon}{CTRL-B}{$82}{CTRL-B}{rvon}:{rvon}{$80}::{CTRL-B}{CTRL-B}{CTRL-B}:::{CTRL-B}{CTRL-B}{CTRL-B}:::{$80}{rvon}:{CTRL-B}{$82}{$82}{CTRL-B}::{CTRL-B}{$82}{$82}{CTRL-B}:{rvon}{$80}{CBM-I}{CTRL-F}{CBM-X}{$0a}{CTRL-D}{left}{$f3}{stop}JP{$f7}{SHIFT-POUND}{clr} R~{SHIFT-POUND}<{sret}{down}{$e8}{SHIFT-POUND}{CTRL-L}{sret}l{$e8}{$60}{CBM-I}{$80}{swuc}i{wht}{$e8}{swuc}{CBM-O}{CTRL-D}{swuc}{grn}{wht}{SHIFT-POUND}{clr} R~ {$fb}{stop}{CBM-A}{down}{CBM-C}{$f4}{stop}{CBM-X}{$f5}{stop}{left}{$f4}{stop}{$e8}{$e0}{CTRL-D}{blk}{$f5}{f7}P{$70}{CBM-I}{CTRL-B}{SHIFT-POUND}{red}{sret}{CBM-U}{CTRL-D}{CBM-G}{CTRL-O}{$0a}{f1}x{SHIFT-POUND}{cyn}{$0a}{dish}{CTRL-X}{$6d}{pur}{CTRL-D}{CBM-POUND}{CBM-G}{CTRL-O}{$6d}{pur}{CTRL-D}({$65}x{f8}{pur}{CTRL-D}{f1}{CTRL-O}){blk}P{wht}{SHIFT-POUND}{$66}{sret}d{orng}{$ee}{CBM-U}{CTRL-D}P{stop}{$ee}{CBM-O}{CTRL-D}{CBM-Z}{CBM-U}{CTRL-D}IdPMJ{CTRL-P}J0{$6d}{CBM-G}{CBM-M}{$ea}P{CTRL-X}{sret}h{$e8}{sret}j{$e8}{SHIFT-POUND}{$ef}-k{$e8}{sret}k{$e8}{SHIFT-POUND}u{$a0}{$e4}{f1}{blk}{$ea}{$84}{up}{$ea}lu{$e4}{$00}{SHIFT-+}{wht}{CTRL-A}{$00}{$00}::::{yel}1101:{$8f}{SHIFT-POUND}{CTRL-Z}{sret}{rght}{wht}{f8}{CTRL-U}{wht}{SHIFT-*}{down}P{wht}{$a0}~H{$84}^{$a0}{$66}{CBM-I}{CTRL-F}{CBM-Z}.{CTRL-D}{$0a}{$f0}!{blk}{stop}{f8}j{$83}{$ee}{rght}{wht}P{stop}{$ee}{grn}{wht}{$0a}P{$f0}JP{$e7}{$ee}{CTRL-U}{wht}{CBM-Z}{rght}{wht}{CTRL-X}{$69}{CTRL-D}{sret}{rght}{wht}PW{SHIFT-POUND}{$ec}{sret}h{wht}{CBM-I}{down}{$a0}{CTRL-G}{CBM-O}{swuc}{wht}{lgrn}{inst}{$83}{f7}{CTRL-P}{$f7}{CBM-Z}h{wht}{CTRL-X}{$69}({sret}h{wht}{blk}{stop}{$ee}i{wht}JP{$e4}{CBM-I}{$67}{swuc}I{$80}JJ{swuc}{lred}{$83}{CBM-I}#{SHIFT-POUND}{$64}{left}{CBM-I}{$80}{SHIFT-POUND}{$66}{left}J{$80}{left}{$72}{$83}{SHIFT-POUND}{$63}{left}{lblu}{$83}J{CTRL-P}{$eb}{SHIFT-POUND}{$60}{sret}{CBM-K}{$80}{sret}F{$80}{sret}{lgrn}{$83}{sret}{CBM-V}{$83}{$60} {$66}{$65}  {$67}{$66} {$a0}{CTRL-A}{f7}{$84}{CTRL-P}{CBM-G}{CBM-Q}{CTRL-X}{$65}{CBM-Z}{dish}{CTRL-X}{$69}W{f1}{CBM-Q}{gry2}{$65}{CBM-D}({$69}~{f1}{CBM-D}{CBM-E}{CBM-Q}I P{CTRL-D}{$e6}{CTRL-P}P{$e3}{f1}{CBM-Z}{$60}{SHIFT-POUND}N{$a0}{CTRL-D}{$78}{f1}{blk}{$ea}{$84}{up}{$ea}x{SHIFT-POUND}{CTRL-P}
k{$e8}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}){CTRL-P}{sret}h{$e8}{$60}{$00}U{CTRL-F}{CTRL-B}{$00}{$00}::::{yel}1621:{sret}10000:{yel}1529:{$80}:{SHIFT-POUND}{$68}{CBM-I}{CTRL-D}{f1}{CTRL-A}{f3}{CTRL-B}{CBM-G}{$8f}{$ea}8*{sret}{pur}{CTRL-D}{SHIFT-POUND}{CTRL-A}{f1}v{f3}w{$a0}{stop}{CBM-E}vI'{CBM-A}
{f7}{f7}{CBM-E}v{$f0}{rght}{CBM-N}{f7}{CBM-E}vl{CTRL-K}{CTRL-F}{$a0}{CTRL-A}{f7}{gry2}{up}vH{up}v{CBM-G}v{CTRL-X}{$69}{CTRL-B}{f1}*{f7}{gry2}{$65}w{f1}+{CBM-I}4{swuc}{down}{$e8}{CBM-I}{CTRL-K}{CBM-X}Y{CTRL-F} R~{SHIFT-POUND}
{left}{$6e}{CTRL-B}JP{$f2}{SHIFT-POUND}{home}lW{CTRL-G}{$60}{SHIFT-POUND}{$e1}{sret}{up}{orng}{sret}{yel}{orng}{sret}{CBM-POUND}{orng}{sret}{CBM-Q}{orng}{sret}F{orng}{sret}{$e1}{orng}{sret}{$eb}{orng}{sret}{$ee}{orng}{sret}{$f8}{orng}{sret}{$fb}{orng}{sret} {$82}{sret}#{$82}{SHIFT-POUND}{$61}{sret}{gry2}{orng}{sret}{CBM-G}{orng}{sret}{CBM-P}{orng}{sret}{CBM-R}{orng}{sret}{$f5}{orng}{sret}{CTRL-B}{$82}{sret}{rght}{$82}{SHIFT-POUND}{$e4}{$a0}{CTRL-F}{f1}v{$84}w{$a0}{$ed}{f7}{CBM-E}v{f1}u{f7}{CBM-E}v{f1}t{f7}{CBM-E}v{CBM-N}{$e8}{$f0}{$ef}i{$80}{up}t{f7}P{$f3}m~{stop}{$f0}{gry3}{SHIFT-POUND}{$80}{f1}{$8f}{$ea}m{CBM-S}{CTRL-F}{sret}{CBM-S}{CTRL-F}${$8f}{$ea}p{$fb}{$a0}*{CBM-Z}@{$e8}**0{$f9}{CTRL-P}H{$00}R{CTRL-G}{stop}{$00}{$00}Ur{down}4{down}3{down}2{down}{down}{clr}{$e0}{$82}{lgrn}{$a0}{$a0}{blk}{CBM-S}{$a0}{$8f}{CBM-M}{$84}{$8f}{swuc}{$8f}{lred}{orng}{swuc}{$e0}*{$83}~{$83}{$8f}{blk}{lgrn}{rvof}{f2}{f5}{f7}{inst}{$a0}{CBM-POUND}{$83}{SHIFT-POUND}{$a0}{CBM-E}{CBM-O}{CBM-Y}{CBM-O}{$ed}{$82}~{sret}{orng}{$84}{f2}{clr}{$8f}{swuc}{CBM-D}{$a0}{gry1}{f2}{clr}{$83}{$8f}{swuc}{clr}{f2}{swuc}{$a0}{CBM-J}{CBM-W}{CBM-Y}{CBM-A}{CBM-E}{left}{$83}~{blk}{CBM-S}{$a0}{$8f}{CBM-S}{$a0}{$82}{$8f}{gry2}{$a0}{CBM-E}{CBM-L}{CBM-U}{CBM-W}_{$83}~{f3}{orng}{swuc}{inst}{orng}{clr}{lgrn}{$a0}{f5}{orng}{sret}{f1}{clr}{$a0}{clr}{$8f}{f3}{inst}{gry1}{orng}{rvof}{f1}"{$83}~{f3}{rvof}{$8f}{sret}{$a0}{inst}{f7}{f1}{$a0}{$84}{f1}{orng}{inst}{f7}{$a0}{blk}{f8}{orng}{swuc}{f1}{inst}{CTRL-Y}{$82}~{$7c}{$e2}{$e2}{$e2}{CBM-I}{orng}~{$61}{$e2}{$e2}{$e2}{$fb}{$a0}{$a0}{$e2}{$e2}{$e2}{$7e}{$a0}{$a0}{$61}{$e2}{$e2}{$e2}{$fb}{$7a}{orng}~{$6c}{$62}{$62}{$7b}{$a0}{$a0}{$61}{$62}{$62}{$62}{$fe}{$a0}{$a0}{$6c}{$62}{$62}{$fe}){orng}~{$61}{$62}{$62}{$62}{$a0}{$a0}{$a0}{$62}{$62}{$62}{$7b}{CTRL-A}{orng}~{$61}{$62}{$62}{$62}{$fe}{$a0}{$a0}{$6c}{$62}{$62}{$62}{$a0}{$a0}{$61}{$62}{$62}{$62}{$fe}{$a0}{$a0}{$6c}{$62}{$62}{$7b}{$a0}{$a0}{$61}{$62}{$62}{$62}{$e1}{$a0}{$a0}{$6c}{$62}{$62}{$62}{CBM-T}{$80}{$00}+{dish}{CTRL-D}{$00}{$00} R~{SHIFT-POUND}{CTRL-D}{f1}{yel}{$ea}{$60}{$a0}>{f7}{f7}{f7}{gry2}{SHIFT-*}{CBM-K}{CBM-A}{CTRL-V}{SHIFT-*}<{CBM-A}{CTRL-O}){$80}{$a0}{CBM-C}{CBM-I}{CTRL-A}JP{stop}lS{CTRL-D}{swuc}{$f3}{CTRL-G}{sret}h{$e8}{f8}{$e1}{CTRL-G}lN{CTRL-D}{SHIFT-POUND}{$ef}{sret}{$e1}{CTRL-G}-k{$e8}{sret}k{$e8}{CBM-Z}/{dish}I{yel}P{down}{SHIFT-POUND}{$e0}{$a0}{CTRL-G} {CBM-B}{wht}{SHIFT-POUND}+{sret}j{$e8}{SHIFT-POUND}{ensh}{sret}{$f3}{CTRL-G}{$60}{$00}h{dish}2{$00}{yel}1467:{$8f} - turns sound on{$00}{$76}{dish}{$64}{$00}ne{CBM-R}40:rf{CBM-R}10:mi{CBM-R}10:fm{CBM-R}1:rp{CBM-R}.15:ar{CBM-R}100:nr{CBM-R}5{$00}C{dish},{CTRL-A}{f3}xm%(ne),ym%(ne),ml%(ne{CBM-N}1),d(11),vv%(4),v%(4),hh%(4),h%(4),dr(2),b%(2,2){$00}{$f0}{dish}{blk}{CTRL-A}rm{CBM-R}nr:sh{CBM-R}1:s${CBM-R}"                        "{$00}{CTRL-X}{ensh}{$f4}{CTRL-A}{orng}i{CBM-R}1{CBM-@}4:{f5}vv%(i),v%(i),hh%(i),h%(i):{$82}{$00}f{ensh}{$fe}{CTRL-A}{$83}8,12,34,4,16,4,10,28,16,4,10,4,16,4,34,4{$00}z{ensh}{dish}{CTRL-B}{orng}i{CBM-R}0{CBM-@}11:{f5}d(i):{$82}{$00}{clr}{ensh}{rvon}{CTRL-B}{$83}33330,32988,33365,33668,-1,-40,1,40,117,120,118,121{$00}{CBM-V}{ensh}{f4}{CTRL-B}{orng}i{CBM-R}1{CBM-@}9:{f5}dx%(i):{$82}:{$83}-1,0,1,-1,0,1,-1,0,1{$00}{$e9}{ensh}{lgrn}{CTRL-B}{orng}i{CBM-R}1{CBM-@}9:{f5}dy%(i):{$82}:{$83}-1,-1,-1,0,0,0,1,1,1{$00}{esc}{$0a}{CBM-POUND}{CTRL-B}{orng}i{CBM-R}1{CBM-@}9:{f5}dl%(i):{$82}:{$83}39,40,41,-1,0,1,-41,-40,-39{$00}[{$0a} {stop}{lred}{CBM-G}rx(x){CBM-R}xh{CBM-Q}xm%(x):{lred}{CBM-G}ry(x){CBM-R}yh{CBM-Q}ym%(x):{lred}{CBM-G}r(x){CBM-R}{CBM-L}({CBM-G}rx(x){CBM-Z}{CBM-G}ry(x)){$00}{sret}{$0a}>{stop}{lred}{CBM-G}lh(x){CBM-R}33767{CBM-Q}40{CBM-D}yh{CBM-N}xh:{lred}{CBM-G}fh(x){CBM-R}33767{CBM-Q}40{CBM-D}hy{CBM-N}hx{$00}L{$0a}\{stop}{lred}{CBM-G}ml(x){CBM-R}33767{CBM-Q}40{CBM-D}ym%(x){CBM-N}xm%(x):{lred}{CBM-G}mt(x){CBM-R}66{CBM-N}{CBM-H}(ml%(x){CBM-Q}1.5){CBM-D}24{$00}{$ec}{$0a}{$70}{stop}{orng}j{CBM-R}1{CBM-@}3:{orng}i{CBM-R}1{CBM-@}9:{f5}b1%(i,j):{$82}:{$82}{$00}'{CTRL-K}{$71}{stop}{$83}78,93,77,64,42,64,77,93,78,81,81,81,81,42,81,81,81,81{$00}o{CTRL-K}{$72}{stop}{$83}95,160,105,160,160,160,233,160,223{$00}{orng}{CTRL-K}{$7a}{stop}{orng}i{CBM-R}0{CBM-@}2:{orng}j{CBM-R}0{CBM-@}2:{f5}b%(i,j):{$82}:{$82}:{$83}1,4,7,2,0,8,3,6,9{$00}{f6}{CTRL-K}{gry2}{stop}{sret}8000{$00}{$a0}{CTRL-K}{$e8}{stop}tt{CBM-R}600:qm{CBM-R}0:qn{CBM-R}3{$00}X{CTRL-K}{$ed}{stop}{sret}6900:{lgrn}"{home}{down}{down}status report: proceed through door"sh{CBM-N}1{$00}{$f9}{CTRL-K}{$f7}{stop}{gry1}158,0:{sret}1850:{orng}i{CBM-R}1{CBM-@}25:{$82}:{sret}1850{$00}:{CTRL-L}{$78}{wht}{lgrn}"{home}{down}{down}{down}r ="rf"{left}  m ="mi"{left}  f ="fm"{left}  {home}{down}{down}{down}"{CBM-+}27)"armor:"ar"{left}  {home}{$00}x{CTRL-L}{f8}{wht}j{CBM-R}0:s{CBM-R}0:tx{CBM-R}ti:{f6}qm{CBM-R}qn{CBM-M}1800{$00}{lgrn}{CTRL-L}{$e6}{wht}{lgrn}"{home}"{CBM-+}17)"{rvon}??????{down}{left}{left}{left}{left}{left}{left}??????":{CBM-K}dr$:dr{CBM-R}E(dr$):{f6}ti{CBM-Q}tx{CBM-E}tt{CBM-M}1800{$00}{CBM-Z}{CTRL-L}{$f0}{wht}{f6}dr{CBM-R}5{CBM-M}s{CBM-R}1:{f2}1510{$00}{CBM-V}{CTRL-L}{$f2}{wht}{f6}dr${CBM-R}"="{CBM-M}s{CBM-R}2{$00}O{CTRL-L}{$f3}{wht}{f6}dr${CBM-R}"_"{CBM-M}s{CBM-R}3{$00}{wht}
{$f4}{wht}{f6}dr${CBM-R}"!"{CBM-M}{f6}fm{CBM-E}0{CBM-P}qn{CBM-W}9{CBM-M}qn{CBM-R}10:fm{CBM-R}fm{CBM-Q}1:{lgrn}"{home} {rvon}fast-time!{$00}{del}
{$f8}{wht}{f6}dr{CBM-R}0{CBM-M}1510{$00}l
L{CTRL-F}tt{CBM-R}tt{CBM-Q}ti{CBM-N}tx:{lgrn}"{home}"{CBM-+}17)"      {home}{down}"s$:{f6}s{CBM-R}1{CBM-M}qm{CBM-R}qm{CBM-N}1:{sret}3000{$00}{$6e}
Q{CTRL-F}{f6}s{CBM-R}0{CBM-M}qm{CBM-R}qm{CBM-N}1:{sret}2000:{f6}qm{CBM-W}0{CBM-M}1000{$00}{yel}
V{CTRL-F}{f6}s{CBM-R}3{CBM-M}{f6}mi{CBM-E}0{CBM-M}qm{CBM-R}qm{CBM-N}1:mi{CBM-R}mi{CBM-Q}1:{sret}3000:{f6}qm{CBM-W}0{CBM-M}1000{$00}O
{SHIFT-+}{CTRL-F}{f6}s{CBM-R}2{CBM-M}{f6}rf{CBM-E}0{CBM-M}qm{CBM-R}qm{CBM-N}1:{sret}3000:{sret}3000:{sret}3000:rf{CBM-R}rf{CBM-Q}1{$00}Y
{$e0}{CTRL-F}{f2}1400{$00}{rght}{swlc}{dish}{CTRL-G}{lgrn}"{home}"s$"{home}{down}"s$:{sret}6900:s{CBM-R}0:{orng}j{CBM-R}1{CBM-@}nm:ms{CBM-R}0:{up}ml%(j){sret}4000,4000,4200,4000{$00}/{swlc}0{CTRL-G}{$82}j:ms{CBM-R}0:{f2}1000{$00}r{swlc}:{CTRL-G}{gry1}59464,12:{orng}i{CBM-R}1{CBM-@}20:{$82}:{gry1}59464,0:{swuc}{$00}{lred}{swlc}P{CTRL-G}dx{CBM-R}dx%(dr):dy{CBM-R}dy%(dr):dl{CBM-R}dl%(dr):hx{CBM-R}xh{CBM-N}dx:hy{CBM-R}yh{CBM-N}dy:hf{CBM-R}B({CBM-G}fh(0)){$00}{CBM-J}{swlc}{$e9}{CTRL-G}{f6}hf{CBM-R}hd{CBM-M}{sret}6400:{sret}8000:qm{CBM-R}{CBM-Q}1:{swuc}{$00}K{swlc}{$ee}{CTRL-G}{f6}hf{CBM-W}{CBM-E}32{CBM-P}hf{CBM-W}{CBM-E}144{CBM-M}{swuc}{$00}{$f7}{swlc}{CTRL-B}{dish}{gry1}{CBM-G}fh(0),81:{gry1}{CBM-G}lh(0),32:xh{CBM-R}hx:yh{CBM-R}hy:{sret}6400{$00}4{CTRL-O}{CTRL-G}{dish}{f6}hf{CBM-R}144{CBM-M}{lgrn}"{home}{down}{down}"{CBM-+}15)"the princess is rescued!":{orng}pr{CBM-R}1{CBM-@}700:{$82}{$00}:{CTRL-O}{CTRL-V}{dish}{swuc}{$00}s{CTRL-O}{CBM-U}{CTRL-K}kk{CBM-R}0:{f6}s{CBM-W}{CBM-E}0{CBM-M}li{CBM-R}{CBM-G}lh(0){$00}{f7}{CTRL-O}B{CTRL-K}dx{CBM-R}dx%(dr):dy{CBM-R}dy%(dr):dl{CBM-R}dl%(dr):{f6}ms{CBM-R}1{CBM-M}li{CBM-R}{CBM-G}ml(j){$00}{CBM-U}{CTRL-O}L{CTRL-K}{gry1}171,li{CBM-Q}32768{CBM-P}255:{gry1}172,{CBM-J}(li{CBM-Z}256):{gry1}173,dl{CBM-N}41{$00}T{CTRL-O}V{CTRL-K}{yel}1430:l{CBM-R}B(16):hh{CBM-R}B(173){$00}{$fd}{CTRL-O}{red}{CTRL-L}{f6}ms{CBM-R}1{CBM-M}{f6}(hh{CBM-R}42{CBM-A}hh{CBM-R}90){CBM-P}l{CBM-W}8{CBM-P}{CBM-POUND}ml%(j){CBM-R}3{CBM-M}{swuc}{$00}0{CTRL-P}{grn}{CTRL-L}{f6}ms{CBM-R}1{CBM-M}{f6}{CBM-G}mt(j){CBM-R}42{CBM-P}3{CBM-D}(l{CBM-N}1){CBM-W}{CBM-L}({CBM-G}rx(j)){CBM-N}{CBM-L}({CBM-G}ry(j)){CBM-M}{swuc}{$00}{$67}{CTRL-P} {CTRL-L}dt{CBM-R}b1%(dr,1):{gry1}59466,85:{f6}(ms{CBM-R}1{CBM-P}{CBM-G}mt(j){CBM-R}90){CBM-A}s{CBM-R}3{CBM-M}dt{CBM-R}81{$00}{inst}{CTRL-P}!{CTRL-L}{orng}i{CBM-R}1{CBM-@}l:{gry1}li{CBM-N}i{CBM-D}dl,dt:{gry1}59464,40{CBM-N}80{CBM-D}(i{CBM-P}1):{$82}i{$00}B{CTRL-P}#{CTRL-L}{gry1}li{CBM-N}(l{CBM-N}1){CBM-D}dl,160:{gry1}59464,0:{gry1}59466,15:{sret}3300{$00}Y{CTRL-P}6{CTRL-L}{f6}hh{CBM-R}42{CBM-A}hh{CBM-R}90{CBM-M}{sret}7000{$00}{$ef}{CTRL-P}7{CTRL-L}{f6}hh{CBM-R}81{CBM-P}dt{CBM-R}81{CBM-M}3200{$00}5{down}8{CTRL-L}{f6}hh{CBM-R}81{CBM-M}ar{CBM-R}ar{CBM-Q}{CBM-J}(1{CBM-N}50{CBM-D}{CBM-F}(1)):{lgrn}"{home}{down}{down}{down}"{CBM-+}27)"{rvon}armor{rvof}:";ar"{left} ":{f6}ar{CBM-W}0{CBM-M}3200{$00}\{down}:{CTRL-L}{orng}i{CBM-R}1{CBM-@}l:{gry1}li{CBM-N}i{CBM-D}dl,32:{$82}i:{f6}hh{CBM-R}42{CBM-M}{sret}7300{$00}{$7e}{down}j{CTRL-L}{f6}hh{CBM-R}90{CBM-P}kk{CBM-R}1{CBM-M}{sret}3300:{sret}3300:hh{CBM-R}32{$00}{lred}{down}k{CTRL-L}{f6}dt{CBM-R}81{CBM-P}hh{CBM-R}102{CBM-M}hh{CBM-R}32{$00}{CBM-D}{down}n{CTRL-L}{gry1}li{CBM-N}(l{CBM-N}1){CBM-D}dl,hh:{swuc}{$00}{$de}{down}{$80}{CTRL-L}{gry1}59466,127:{orng}j{CBM-R}1{CBM-@}13:{orng}i{CBM-R}7{CBM-D}j{CBM-@}25{CBM-N}7{CBM-D}j:{gry1}59464,i:{$82}:{$82}{$00}{ensh}{rvon}{f1}{CTRL-L}{lgrn}"{home}{down}{down}"{CBM-+}15)"{rvon}you have been killed!{rvof}   {home}{$00}4{rvon}{f4}{CTRL-L}{orng}i{CBM-R}117{CBM-@}238:{gry1}59464,i:{$82}:{orng}i{CBM-R}1{CBM-@}24:{gry1}59464,0{$00}{$6a}{rvon}{$8f}{CTRL-L}{orng}j{CBM-R}1{CBM-@}10{CBM-D}F(J("_{wht}{CTRL-A}{CTRL-X}{CTRL-A}{CTRL-A}/{CTRL-A}{CTRL-A}{CTRL-P}{CTRL-A}{CTRL-A}{down}{CTRL-A}{CTRL-A}/{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}={wht}{stop}",i,1)){CBM-Q}10:{$82}{$00}{cyn}{rvon}{inst}{CTRL-L}{gry1}59464,96{CBM-N}2{CBM-D}F(J("33{CTRL-Z}3{CTRL-Z}{CTRL-K}3{CTRL-Z}{CTRL-K}3{CTRL-Z}{CTRL-K}3{CTRL-Z}{CTRL-K}{CTRL-Z}{CTRL-K}{CTRL-A}{CTRL-K}{CTRL-Z}333{CTRL-Z}",i,1)){$00}Y{rvon}{lgrn}{CTRL-L}{orng}j{CBM-R}1{CBM-@}100{CBM-D}F(J("{CTRL-L}{stop}&{CTRL-L}{stop}&{CTRL-L}{stop}{swlc}{CTRL-L}{stop}{swlc}{CTRL-L}{stop}'{CTRL-L}{stop}{red}{swlc}{swlc}({CTRL-P}{wht}>",i,1)):{$82}:{$82}:{$80}:{f4}{$00}{CTRL-X}{home}{$e4}{CTRL-L}ee{CBM-R}li{CBM-N}(l{CBM-N}1){CBM-D}dl:{orng}i{CBM-R}1{CBM-@}9:a(i){CBM-R}B(ee{CBM-N}dl%(i)):{$82}:du{CBM-R}1:{f6}dt{CBM-R}81{CBM-M}du{CBM-R}2{$00}:{home}{$e9}{CTRL-L}et{CBM-R}1:{f6}(hh{CBM-R}90{CBM-P}kk{CBM-R}1){CBM-A}dt{CBM-R}81{CBM-M}et{CBM-R}3{$00}{$79}{home}{$ee}{CTRL-L}{orng}i{CBM-R}1{CBM-@}9:{gry1}ee{CBM-N}dl%(i),b1%(i,et):{gry1}59464,24{CBM-N}5{CBM-D}i{CBM-D}du:{$82}:{f6}et{CBM-R}3{CBM-M}{sret}3400{$00}{CBM-D}{home}{$f8}{CTRL-L}{gry1}59464,0:{orng}i{CBM-R}1{CBM-@}20:{$82}i:{orng}i{CBM-R}1{CBM-@}9:{gry1}ee{CBM-N}dl%(i),a(i):{$82}:{swuc}{$00}{$e5}{home}h
{orng}ji{CBM-R}1{CBM-@}4:{gry1}59464,39:{orng}i{CBM-R}1{CBM-@}5:{$82}i:{gry1}59464,109:{orng}i{CBM-R}1{CBM-@}5:{$82}i:{$82}:{swuc}{$00}~{home}{$a0}{CTRL-O}{sret}5000:{f6}t{CBM-R}1{CBM-M}ms{CBM-R}1:{sret}3000{$00}{CTRL-O}{del}{CBM-G}{CTRL-O}{f6}ml%(j){CBM-R}4{CBM-M}{swuc}{$00}/{del}{CBM-N}{CTRL-O}{sret}6000:{sret}6000:{f6}ml%(j){CBM-R}2{CBM-M}{sret}6000{$00}5{del}{CBM-H}{CTRL-O}{swuc}{$00}[{del}{$68}{CTRL-P}{orng}ii{CBM-R}1{CBM-@}3:dr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}8{CBM-N}1):{f6}dr{CBM-R}5{CBM-M}dr{CBM-R}9{$00}{$6e}{del}{$72}{CTRL-P}ms{CBM-R}1:{sret}3000:{$82}ii{$00}{inst}{del}{$7c}{CTRL-P}{orng}ii{CBM-R}1{CBM-@}3:rr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}8{CBM-N}1):{f6}rr{CBM-R}5{CBM-M}rr{CBM-R}9{$00}{CBM-@}{del}{f3}{CTRL-P}{sret}6300:{$82}ii:{swuc}{$00}{SHIFT-*}{del}{f7}{home}t{CBM-R}1:ms{CBM-R}1:{f6}{CBM-G}ry(j){CBM-R}0{CBM-M}5700{$00}{$e1}{del}{$ec}{home}{f6}{CBM-G}r(j){CBM-W}.4{CBM-M}dr{CBM-R}5{CBM-N}3{CBM-D}{CBM-H}({CBM-G}ry(j)):{swuc}{$00}~{del}{$00}{del}{f6}{CBM-G}r(j){CBM-E}.45{CBM-P}{CBM-G}r(j){CBM-W}2.1{CBM-M}5600{$00}{home}{CTRL-U}{del}{del}{f6}{CBM-G}r(j){CBM-E}3.2{CBM-M}5700{$00}{rght}{CTRL-U}{CTRL-W}{del}t{CBM-R}0:{swuc}{$00}b{CTRL-U}{$e0}{CTRL-U}dr{CBM-R}b%({CBM-H}({CBM-G}rx(j)){CBM-N}1,{CBM-H}({CBM-G}ry(j)){CBM-N}1):{swuc}{$00}w{CTRL-U}d{CTRL-V}dr{CBM-R}5{CBM-N}{CBM-H}({CBM-G}rx(j)):{swuc}{$00}{$7e}{CTRL-U}{$70}{CTRL-W}oo{CBM-R}0:b1{CBM-R}{CBM-H}({CBM-G}rx(j)){CBM-N}1:b2{CBM-R}{CBM-H}({CBM-G}ry(j)){CBM-N}1{$00}{CBM-A}{CTRL-U}{$f2}{CTRL-W}dr(0){CBM-R}b%(b1,b2):dr(1){CBM-R}b%(b1,1):dr(2){CBM-R}b%(1,b2){$00}A{CTRL-U}{$fc}{CTRL-W}p1{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}3){$00}{$f7}{CTRL-U}{CTRL-F}{CTRL-X}{orng}i{CBM-R}1{CBM-@}3:p1{CBM-R}p1{CBM-N}1{CBM-Q}3{CBM-D}{CBM-J}((p1{CBM-N}1){CBM-Z}3):rr{CBM-R}dr(p1):{f6}rr{CBM-R}0{CBM-M}6165{$00}{ensh}{CTRL-V}{CTRL-K}{CTRL-X}{sret}6300:{f6}ok{CBM-R}1{CBM-M}{swuc}{$00}{CTRL-P}{CTRL-V}{CTRL-U}{CTRL-X}{$82}i{$00}6{CTRL-V}.{CTRL-X}oo{CBM-R}oo{CBM-N}1:rr{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}9{CBM-N}1):{f6}rr{CBM-R}5{CBM-M}6190{$00}m{CTRL-V}8{CTRL-X}{sret}6300:{f6}ok{CBM-R}1{CBM-A}oo{CBM-E}5{CBM-M}{swuc}{$00}w{CTRL-V}b{CTRL-X}{f2}6190{$00}{$79}{CTRL-V}{pur}{CTRL-X}{f6}B({CBM-G}ml(j){CBM-N}dl%(rr)){CBM-W}{CBM-E}32{CBM-M}ok{CBM-R}0:{swuc}{$00}{CBM-N}{CTRL-V}{SHIFT-@}{CTRL-X}ok{CBM-R}1:{gry1}{CBM-G}ml(j){CBM-N}dl%(rr),{CBM-G}mt(j):{gry1}{CBM-G}ml(j),32:{sret}6400{$00}{CBM--}{CTRL-V}D{CTRL-X}xm%(j){CBM-R}xm%(j){CBM-N}dx%(rr):ym%(j){CBM-R}ym%(j){CBM-N}dy%(rr):{swuc}{$00}{rvon}{CTRL-W}{$00}{CTRL-Y}{gry1}59464,220:{orng}i{CBM-R}1{CBM-@}5:{$82}:{gry1}59464,80:{orng}i{CBM-R}1{CBM-@}5:{$82}:{gry1}59464,0:{swuc}{$00}%{CTRL-W}{$f4}{CTRL-Z}{lgrn}"{home}{down}{down}"{CBM-+}15)s$:{swuc}{$00}{$68}{CTRL-W}x{esc}kk{CBM-R}0:gg{CBM-R}33767{CBM-Q}li{CBM-Q}(l{CBM-N}1){CBM-D}dl:kx{CBM-R}{CBM-Q}gg{CBM-N}40{CBM-D}({CBM-J}(gg{CBM-Z}40){CBM-N}1):ky{CBM-R}{CBM-J}(gg{CBM-Z}40){CBM-N}1{$00}{$8f}{CTRL-W}{$62}{esc}{orng}i{CBM-R}1{CBM-@}nm:{f6}kx{CBM-R}xm%(i){CBM-M}{f6}ky{CBM-R}ym%(i){CBM-M}7070{$00}{brn}{CTRL-W}{$76}{esc}{$82}{$00}{CBM-Y}{CTRL-W}{yel}{esc}{up}ml%(i){sret}7500,7600,7550,7550:{swuc}{$00}N{CTRL-W}{$84}{red}{gry1}59464,70:{orng}i{CBM-R}24{CBM-@}37{$00}{dish}{CTRL-X}{swuc}{red}{gry1}li{CBM-N}(l{CBM-N}1){CBM-D}dl,35{CBM-N}3.5{CBM-D}(2{CBM-P}i):{gry1}59464,i:{$82}:{gry1}59464,0:hh{CBM-R}32:{swuc}{$00}.{CTRL-X}l{rght}ml%(i){CBM-R}0:xm%(i){CBM-R}0:ym%(i){CBM-R}0:kk{CBM-R}1:{swuc}{$00}g{CTRL-X}{$7e}{rght}{f6}{CBM-F}(1){CBM-E}.7{CBM-A}dt{CBM-R}81{CBM-M}{sret}7500{$00}m{CTRL-X}{f7}{rght}{swuc}{$00}{$6e}{CTRL-X}{CBM-A}{rght}ml{CBM-R}{CBM-F}(1):{f6}ml{CBM-E}.9{CBM-A}dt{CBM-R}81{CBM-M}{sret}7500:{swuc}{$00}{$7b}{CTRL-X}{SHIFT-@}{rght}{f6}ml{CBM-W}.7{CBM-M}{swuc}{$00}{gry2}{CTRL-X}{del}{grn}ml%(i){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}2){CBM-N}3:{sret}6900{$00}N{CTRL-X}{grn}{grn}{f6}ml%(i){CBM-R}3{CBM-M}{lgrn}"{home}{down}{down}"{CBM-+}15)"{rvon}control computer damaged":{swuc}{$00}{$f2}{CTRL-X}({grn}{lgrn}"{home}{down}{down}"{CBM-+}15)"{rvon}treads blown off":{swuc}{$00}~{CTRL-X}@{blu}{f6}rm{CBM-M}8100{$00}b{CTRL-Y}j{blu}{gry1}59466,63:{lgrn}"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}  you have reached the escape hatch!{down}{down}{down}{down}{$00}{$73}{CTRL-Y}t{blu}j{CBM-R}150:{orng}i{CBM-R}1{CBM-@}37:{gry1}59464,0:{gry1}143,127{CBM-Q}j{CBM-Z}3:{rvof}143,128{$00}{CBM-Q}{CTRL-Y}^{blu}j{CBM-R}F(J("2{CTRL-B}{CTRL-B}{ensh}{ensh}2{CTRL-B}{CTRL-B}{ensh}{ensh}{dish}{CTRL-B}{CTRL-B}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-A}{CTRL-A}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-G}{dish}{ensh}{$0a}{CTRL-K}{CTRL-L}{swlc}{CTRL-P}{rvon}&",i,1)){$00}{$ea}{CTRL-Y}{$68}{blu}{gry1}59464,2{CBM-D}F(J(",,,,,,,,,,,;;;;;gggggygygg;g;;,;,;,;,",i,1)){$00}-{CTRL-Z}{$72}{blu}{gry1}143,128{CBM-Q}j:{rvof}143,128:{$82}:{f6}pr{CBM-M}{lgrn}"     you have saved the princess,{down}{$00}{$62}{CTRL-Z}{$7c}{blu}{f6}pr{CBM-M}{lgrn}{CBM-+}6)"and she is very{down}{left}{left}{left}{left}EEEE{up} grateful!{down}{down}{down}{down}{$00}{$77}{CTRL-Z}{f3}{blu}{rvof}143,128,128:{$80}:{f4}{$00}{CBM-M}{CTRL-Z}{CBM-@}{blu}nm{CBM-R}{CBM-J}(ne{CBM-Z}2):{gry1}59409,52:{f6}{CBM-Y}(40960{CBM-N}rm{CBM-D}{CBM-F}(1)){CBM-M}8120{$00}{$e0}{CTRL-Z}{CBM-S}{blu}{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"{CBM-+}19)"O{CBM-T}P{down}{left}{left}{left}{CBM-G}{rvon}p{rvof}{CBM-M}{down}{left}{left}{left}L{rght}{SHIFT-@}":{f6}nr{CBM-E}2{CBM-M}nm{CBM-R}ne{$00}{grn}{esc}{CBM-U}{blu}rm{CBM-R}rm{CBM-Q}1:{orng}i{CBM-R}0{CBM-@}3:{gry1}d(i),d(i{CBM-N}8):{gry1}d(i){CBM-N}d(i{CBM-N}4),49{CBM-N}i:{$82}:sh{CBM-R}sh{CBM-N}2{CBM-P}3{$00}^{esc}B{blu}yh{CBM-R}{CBM-J}((33807{CBM-Q}d(sh){CBM-N}d(sh{CBM-N}4)){CBM-Z}40):xh{CBM-R}d(sh){CBM-Q}d(sh{CBM-N}4){CBM-Q}33767{CBM-N}40{CBM-D}yh{$00}{$83}{esc}L{blu}{gry1}{CBM-G}lh(0),81:i{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}3):{f6}i{CBM-R}sh{CBM-M}i{CBM-R}3{$00}I{esc}{$e0}{blu}sh{CBM-R}i:hd{CBM-R}d(sh{CBM-N}8):i{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4{CBM-N}1):hh{CBM-R}hh%(i):h{CBM-R}h%(i):vv{CBM-R}vv%(i):v{CBM-R}v%(i){$00}{$e6}{esc}{$f4}{blu}{orng}i{CBM-R}1{CBM-@}nm:ml%(i){CBM-R}{CBM-F}(1){CBM-N}1{CBM-N}rp{$00} {red}{$fe}{blu}xm%(i){CBM-R}{CBM-F}(1){CBM-D}hh{CBM-N}h:ym%(i){CBM-R}{CBM-F}(1){CBM-D}vv{CBM-N}v:{f6}B({CBM-G}ml(i)){CBM-W}{CBM-E}32{CBM-M}8190{$00}x{red}{dish} {gry1}{CBM-G}ml(i),{CBM-G}mt(i):{$82}:{lgrn}"{home}"{CBM-+}27)"section"nr{CBM-Q}rm:{gry1}59409,60:{swuc}{$00}{gry1}{red}{CTRL-P}'{orng}i{CBM-R}1{CBM-@}5000:{$82}:{gry1}59468,14:{lgrn}"{clr}"{CBM-+}28)"{rvon}7{rvof}{down}\{down}\{SHIFT--}{left}{up}{SHIFT--}{left}{up}{rvon}8{rght}{rght}9{rvof}{down}{left}{left}/{down}{left}{left}/{$00}{$e4}{red}{CTRL-Z}'{lgrn}"To MOVE: press direction    {rvon}4{rvof}{SHIFT-*}{SHIFT-*}{CBM-+}{SHIFT-*}{SHIFT-*}{rvon}6{down}{left}{left}{left}{left}{left}{left}{left}{down}{down}1{up}{rvof}/{up}/{SHIFT--}\{down}\{down}{rvon}3{left}{left}{left}{left}2{rvof}{left}{up}{SHIFT--}{$00}%{rght}$'{lgrn}"{down}{down}To fire LASER GUN:"{CBM-+}27)"press {rvon}5{rvof} followed by direction.{$00}{$65}{rght}.'{lgrn}"{down}{down}For RAPID FIRE:"{CBM-+}30)"press {rvon}={rvof} followed by direction.{down}{down}{$00}{CBM-Z}{rght}8'{lgrn}"To fire ANTI-ROBOT MISSILE:"{CBM-+}18)"press {rvon}_{rvof} followed by direction.{$00}{CBM--}{rght}b'{lgrn}"{down}{down}Up to 3 actions per turn.  Once in the{$00}{CTRL-K}{grn}l'{lgrn}"game you may press {rvon}!{rvof} for FAST-TIME and{$00}8{grn}v'{lgrn}"take up to 10 actions that turn."{CBM-+}14);{$00}{$6c}{grn}{$60}'{orng}i{CBM-R}1{CBM-@}26:{lgrn}"{CBM-@}";:{$82}:{lgrn}{CBM-+}15)"(press any key to begin){home}{$00}{CBM-Y}{grn}{$6a}'{gry1}158,0:{rvof}158,1:{gry1}59468,12:{lgrn}"{clr}{down}{down}{down}{down}you have blasted your way out of tight{down}{$00}{wht}{blu}{$f8}*{lgrn}"spots from one end of the galaxy to{down}":{lgrn}"the other, but this could be ";{$00}9{blu}{CTRL-B}+{lgrn}"the end{down}":{lgrn}"of the line! ";:{orng}i{CBM-R}1{CBM-@}3000:{$82}:{yel}2054{$00}{$6a}{blu}{CTRL-L}+{orng}i{CBM-R}1{CBM-@}2000:{$82}:{lgrn}"{down}{down}{down}{rvon}the alarm!{down}{down}{down}":{orng}i{CBM-R}1{CBM-@}1200:{$82}{$00}{CBM-@}{blu}{CTRL-V}+{lgrn}"they are searching the space station{down}":{lgrn}"for you!";{$00}P{blu} +{orng}i{CBM-R}1{CBM-@}1400:{$82}:{lgrn}"   you have to move fast!{$00}{$e7}{blu}4+{f6}B(59467){CBM-P}16{CBM-M}11060{$00}{$ed}{blu}>+{swuc}{$00}{$00}{$00}{$64}    0 clr:poke59468,12
    1 rem est copyright (c) 1978 glen fisher
    2 rem cursor #2, april, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
    5 rem
   10 rem as of 8 may 80
   90 pg$="est":nm$="2":gosub62000
  100 deffnr(x)=int(x*10+.5)/10
  110 poke59468,12
  200 print:print"{down}do you want to estimate length? ";:gosub60000:l0$=in$
  201 ty=1
  202 ifleft$(l0$,1)<>"n"thengoto400
  208 ty=2:print:print"{down}well, how about area? ";:gosub60000:l0$=in$
  210 ifleft$(l0$,1)<>"n"thengoto400
  215 ty=0
  220 ifty<>1andty<>2then200
  400 readc$:nc=len(c$):dimc$(nc)
  410 fori=1tonc
  420 t$=mid$(c$,i,1)
  430 t$=t$+t$+t$:t$=t$+t$+t$:t$=left$(t$+t$+t$+t$+t$,40)
  440 c$(i)=t$
  450 nexti
  460 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  470 hc=15.8/39:remhc=14/34
  475 vc=11.4/23:remvc=14/31
  480 data"QW{CBM-+}*+Z~"
  490 goto520
  500 print"{down}try again? ";:gosub60000:t$=in$
  510 ifleft$(t$,1)="n"then50000
  520 tr=tr+1:ontygoto2000,1000
 1000 hs=int(rnd(1)*39)+1
 1001 ifhs<7then1000
 1006 vs=int(rnd(1)*20)+1
 1007 ifvs<7then1006
 1010 r=int(rnd(1)*(24-vs)):c=int(rnd(1)*(39-hs))
 1020 c$=c$(int(rnd(1)*nc)+1)
 1030 gosub9000
 1040 print:input"how many square centimeters";es
 1050 hs=hs*hc:vs=vs*vc
 1057 vs=fnr(vs):hs=fnr(hs)
 1060 lo=fnr((hs-01.00)*(vs-1.00))
 1070 hi=fnr((hs+1.00)*(vs+1.00))
 1080 as=int((hs*vs)+.5)
 1090 ifes=asthenr$="{down}!!!right!!!":goto1120
 1100 ifes<lowores>hithenr$="{down}no...":w=w+1:goto1120
 1110 r$="{down}good guess!"
 1120 printr$;"  the area is";as;"sq. cm."
 1130 goto500
 2000 ifrnd(1)<.5thengoto2005
 2001 vs=1:hs=int(rnd(1)*39)+1:as=hs*hc
 2002 ifhs<7then2001
 2003 goto2020
 2005 hs=1:vs=int(rnd(1)*20)+1
 2006 ifvs<7then2005
 2010 as=vs*vc
 2020 r=int(rnd(1)*(24-vs)):c=int(rnd(1)*(39-hs))
 2030 c$=c$(int(rnd(1)*nc)+1)
 2040 gosub9000
 2050 print:input"how many centimeters long";es
 2055 as=fnr(as)
 2060 ifes=asthenr$="!!!right!!!":goto2090
 2070 ifes<as-1.25ores>as+1.25thenr$="{down}...no...":w=w+1:goto2090
 2080 r$="{down}close guess!"
 2090 printr$;" it was about";as;"cm. long."
 2100 goto500
 9000 print:print"{clr}";:ifr>0thenprintleft$(dn$,r);
 9010 fori=1tovs
 9020 printtab(c);"{rvon}";left$(c$,hs)
 9030 nexti
 9040 return
 10000 end
 50000 p=(tr-w)/tr:pct=int(p*1000+.5)/10
 50020 print"{clr}{down}{down}{down}{down}after";tr;"tries, your score is";tr-w
 50030 print"{down}you guessed";pct;"% correct."
 50100 print"{down}{down}{down}thanks for playing.{down}{down}"
 50500 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #2  est
 62010 print"{down}copyright (c) 1978  by glen fisher
 62020 gosub60500
 62030 print"{down}guess the length or area"
 62040 print"{down}{down}want directions? ";:gosub60000
 62050 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62110 print"this game will help you estimate area"
 62120 print"and length in metric units of measure-"
 62130 print"ment.  dont't try to give the exact"
 62140 print"length or area - just make a good guess."
 62150 gosub60200
    0 clr:poke59468,12
    1 rem everest copyright (c) 1979 brian sawyer
    2 rem 1310 dover hill rd.
    3 rem santa barbara, ca 93103
    4 :
    5 rem cursor #15, november, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 5 dec 79
   90 pg$="everest":nm$="15":gosub62000
  100 gn=1:o=1:r$="{rvof}{home}                                       "
  120 rem
  150 print"{clr}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}wind{rvof}{left}{down}{down}{left}{left}{SHIFT--}{down}{left}{left}M{SHIFT--}N{down}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}V{SHIFT-*}{SHIFT-*}{down}{left}{left}{left}{left}N{SHIFT--}M{down}{left}{left}{SHIFT--}"
  160 ti$="000008"
  170 m$="808182404242000102"
  180 p=33708:p1=48:c=90
  190 print"{home}{down}{down}              NM
  200 print"             N99M
  210 print"            N8998M
  220 print"           N998798M
  230 print"          {CBM-M}79986878M{CBM-@}
  240 print"          N9989587699M
  250 print"         N897987989798M{CBM-@}
  260 print"        N789999799996779M      /\  /\
  270 print"       N56998768889997769M    /  \/  \
  280 print"     {CBM-@}N5976899768889898799M  /    \
  290 print"   {$a0}N6556989895454889896567MN      \
  300 print"   N886898989643889877676586M       \
  310 print"  N44786999699999987655453247MNM
  320 print"MN434399999999898998996656498887M
  330 print"323456769987997898932539999999678M
  340 print"6784556999942111234588698764456846M
  350 print"54634888989388768999861111199987569M
  360 print"456457789898654424998912119999875689M
  370 print"7654578988887865432499966742698767977M
  380 print"54232425676888342114111624626985759774M
  390 print"453564646876465414674754642454654899995M
  400 print"{up}2355645467899876543212345678999534887931";
  410 print"{up}0000000000000000000000000000000000000000";
  420 print"{home}{down}{rvon}temp.{down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     "
  430 print"{down}{rvon} alt.  {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       ":pokep,90
  440 print"{down}{rvon}str.{down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  450 b=0:a=int(rnd(10)*1000)+32768
  460 ifpeek(a)<48orpeek(a)>58orpeek(a+1)<48orpeek(a+1)>58then450
  470 ifpeek(a+40)<48orpeek(a+40)>58orpeek(a+41)<48orpeek(a+41)>58then450
  480 ifpeek(a+42)<48orpeek(a+42)>58orpeek(a+2)<48orpeek(a+2)>58then450
  490 ifabs(a-v)<4or(abs(a-v)>37andabs(a-v)<45)or(abs(a-v)>77andabs(a-v)<84)then450
  500 pokea,peek(a)+128:pokea+1,peek(a+1)+128:pokea+40,peek(a+40)+128
  510 pokea+41,peek(a+41)+128:pokea+2,peek(a+2)+128:pokea+42,peek(a+42)+128
  520 forjj=1too*1000:next
  530 getg$:g=val(g$):ifg=0thenp2=0:goto560
  540 pokep,p1:p2=val(mid$(m$,g*2-1,2))-41:ifpeek(p+p2)>47andpeek(p+p2)<58thenp=p+p2
  550 p1=peek(p):pokep,90:c=c-int((p1-48)/3):rem decrement strength accord dngr.
  560 goto1400
  570 f=int((p-32768)/40)-45+int(rnd(10)*5-2):print"{home}{down}{down}{rght}{rvon}"f
  580 x=0:e=e+1:ife/2=int(e/2)thenx=1
  590 h=int(((33717-p)*12500)/855)+16500:print"{down}{down}{down}{rvon}"h:ifc<0thenc=0
  600 print"{down}{down}{down}{rvon}"int(c);:ifc<10thenprint"{rvon}{left} "
  610 ifp=aorp=a+1orp=a+40orp=a+41orp=a+42orp=a+2thengosub1310
  620 d=peek(a):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  630 pokea,d
  640 d=peek(a+1):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  650 pokea+1,d
  660 d=peek(a+40):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  670 pokea+40,d
  680 d=peek(a+41):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  690 pokea+41,d
  700 d=peek(a+42):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  710 pokea+42,d
  720 d=peek(a+2):d=d-128:gosub1490:ifd<57andd>47thend=d+x
  730 pokea+2,d
  740 ifval(ti$)/11<>int(val(ti$)/11)then780
  750 mn=int(rnd(10)*9+1)
  760 w=val(mid$(m$,mn*2-1,2))-41
  770 gosub980
  780 a=a+w:ifpeek(a+1)>57orpeek(a+1)<48then450
  790 goto490
  800 forty=1to3:rem freq of aval.
  810 v=int(rnd(10)*800+32768)
  820 ifpeek(v)<>57orpeek(v+1)<>57then840
  830 goto850
  840 next:goto570
  850 t=peek(v):t1=peek(v+1):pokev,170:pokev+1,170:ifp2=0then880
  860 ift=90thent=p1:gosub1380
  870 ift1=90thent1=p1:gosub1380
  880 o=0:goto570
  890 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}avalanche!!!"
  900 print"{home}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}avalanche!!!"
  910 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}avalanche!!!"
  920 pokev,t-s:pokev+1,t1-s
  930 s=1:v=v+40:if(peek(v)>57)or(peek(v)<50)thens=0
  940 ifv>33647thenprintr$:o=1:goto570
  950 if(peek(v+1)>57)or(peek(v+1)<50)thens=0
  960 ifp=v-40orp=v-39thenprintr$:gosub1380
  970 goto850
  980 poke32768+j,32
  990 ifw=1thenj=232
 1000 ifw=-1thenj=226
 1010 ifw=40thenj=349
 1020 ifw=39thenj=307
 1030 ifw=41thenj=311
 1040 ifw=-41thenj=147
 1050 ifw=-40thenj=109
 1060 ifw=-39thenj=151
 1070 poke32768+j,81
 1080 return
 1090 printr$"{home}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}out of energy!"
 1100 forjj=1to2100:next
 1110 printr$"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you're dead!"
 1120 goto1160
 1130 printr$"{home}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}you have reached the summit!"
 1140 forjj=1to2100:next
 1150 print"{home}{rght}{rght}{rght}{rght}{rght}you've conquered mt. everest!"
 1160 tm=ti+350
 1165 ifti<tmthen1165
 1170 c=int(c/7)+int((h-17000)/100):a$="rotten":c=c-7:ifc>20thena$="poor"
 1180 ifc>40thena$="...fair..."
 1190 ifc>60thena$="good":ifc>80thena$="great":ifc>100thena$="excellent!"
 1200 print"{clr}{down}{down}{down}{down}{down}score:"abs(c)chr$(13)"{down}your climbing was "a$
 1210 getg$:ifg$<>""then1210
 1220 ifgn>1thenprint"{down}average score for  "gn"games:"int((gc+c)/gn)
 1230 print"{down}{down}want to try again? ";:gosub60000:ifleft$(in$,1)="n"then1240
 1235 gn=gn+1:gc=gc+c:goto120
 1240 end
 1250 rem fall
 1260 pokep,p1:p=p+40:p1=peek(p):ifp>33767then1300
 1270 ifp1=32then1100
 1280 ifp1<50thenpokep,90:return
 1290 pokep,90:forn=1to100:next:goto1260
 1300 printr$:goto1100
 1310 printr$"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you're caught in a blizzard!"
 1320 forjj=1to2100:next:printr$
 1330 c=c-15:ifc<1then1390
 1340 pokep,218:ifa1=0then1370
 1350 ift=90thent=91
 1360 pokep,90:ift1=90thent1=91
 1370 a1=0:return
 1380 printr$"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you were hit by the avalanche!":a1=1:goto1320
 1390 printr$"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you froze to death!":goto1160
 1400 ifp<32910then1130
 1410 ifc<1thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}0":goto1090
 1420 getg$:ifg$<>""then1420
 1430 ifp2=0thenc=c-.25:goto1470:remtime penalty
 1440 ifp>33688then1460
 1450 c=c+int(f/30):c=c-int((h-15000)/3150):rem temp and altitude
 1460 ifint(rnd(10)*7)+(p1-48)=14thengosub1250
 1470 ifo=0then890
 1480 goto800
 1490 ifd<0thend=d+128
 1500 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60240 gett$:ift$=""then60240
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:goto100
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by brian sawyer{down}
 62020 gosub60500
 62030 print"{down}become a mountaineer!
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin: ";:gosub60000
 62090 goto60300
  100 dimr$(3,3,3),r%(6),t$(3),m%(5),m$(5),f$(7),g$(7),c$(7),b$(3),b%(3),z$(20)
  110 dims$(3),w$(3)
  120 data w0rough,01carved,02stone,$3square
  130 data \1decorated,03childs," 1misty",l0damp
  140 data \1decorated,00mossy,&3pink,l1grey
  150 data x3poster,02dark,81gloomy,(2round
  160 data e1armored,p0ice,53peacock,$0octagonal
  170 data x2crystal,&3tumble down,l0slimy,h1magnificent
  180 data t3tilted,",0treacle",y1humped,$2whispering
  190 data j0echoing,x1medical," 2lace",h3glass
  200 data t2vast,%2vast,d0hermit's,d1boulder-strewn
  210 data h2vast,h0sloping,l1narrow,l2silken
  220 data t0littered,01vaulted,":2smoky",(3frog
  230 data y1musty,02rich,03glittering," 0bone-strewn"
  240 data p3tattered,40jewelled,00jewelled," 2torture"
  250 data e0silver,x1splendid,02doctor's,$3waiting
  260 data \1flickering,02music,03bear,",0eerie"
  270 data x2bird," 3tiny",p0foul-smelling,(1moldy
  280 forl=0to3:forj=0to3:fork=0to3:readr$(j,k,l):nextk,j,l
  290 data cave,hall,chamber,room
  300 forj=0to3:readt$(j):nextj
  310 data -16,16,4,-4,1,-1
  320 data up,down,north,south,east,west
  330 forx=0to5:readm%(x):nextx:forx=0to5:readm$(x):nextx
  340 data /01mean,dwarf,#41nasty,gnome,942vicious,vampire
  350 data 244fearsome,ogre,g00huge,wumpus
  360 data m13gibbering,orc,_25massive,manticore,q40monstrous,dragon
  370 forx=0to7:readf$(x):readg$(x):nextx
  380 data #1silver coins,+1doubloons,32dollars,>2sovereigns
  390 data n3pieces of eight,g4byzantine coins,r6gold pieces,^9treasure coins
  400 forx=0to7:readc$(x):nextx
  401 data " daylight filters down from above",",travel posters cover the walls"
  402 data 0rusted suits of armor line the walls,'water drips from above
  403 data 5the stairs are broken and dangerous,9the going gets sticky
  404 data ebroken stairs hang out of reach above,<something belches...
  405 data 1rubble chokes a downward tunnel,1it's cold...,6..watch your step
  406 data jsign - folding stairs/one way only,zan empty bear cage is here
  407 data ki hear croaking..,osome bones look recent,q*no smoking*
  408 data ra massive treasure chest stands open,\exotic birds flit overhead
  409 data sincome tax forms are strewn about,sghostly screams are heard
  410 data da clogged tunnel lies below
  411 forj=0to20:readz$(j):nextj
  419 data %doll,=bottle of ointment,fring,[sword
  420 forx=0to3:readb$(x):nextx
  430 data ",a poster says 'travel",";a voice says 'sleep"
  440 data ba scrawled note says 'battle,va diploma reads 'healing
  450 x=rnd(-ti):forx=0to3:reads$(x):w$(x)="x"
  460 forj=1tox+2:z$=chr$(rnd(1)*15+65):w$(x)=w$(x)+z$:nextj,x
  470 v=20
  480 ifv<15thenv=15:print"vitality restored to";v
  490 j=0:k=0:l=-1:d$=">":r$="you are above ground over a cave":goto520
  500 d$=left$(r$,1):t=val(mid$(r$,2,1)):h$=t$(t)
  510 r$="you are in a "+mid$(r$,3)+" "+h$
  520 printr$:a=j*4+k+l*16
  530 r=-1:d=asc(d$):d1=1:forx=0to5:if(dandd1)>0thengosub1320
  540 d1=d1*2:nextx:a1=a+32:ifr=0andr%(0)+m2=0thenprint"==dead end=="
  545 forx=0to20:ifasc(z$(x))=a1thenprintmid$(z$(x),2)
  546 nextx
  550 forx=0to3:ifasc(s$(x))=a1goto570
  560 nextx:goto580
  570 ifx<>3orb%(1)=1thenprintmid$(s$(x),2);" spell word is {rvon}";w$(x);"{rvof}'"
  580 b1=0:forx=0to3:ifasc(b$(x))=a1goto600
  590 nextx:goto620
  600 b$=mid$(b$(x),2):b1=1:b2=x
  610 print"there is a ";b$;" here."
  620 c1=0:forx=0to7:ifasc(c$(x))=a1goto640
  630 nextx:goto660
  640 c1=val(mid$(c$(x),2,1))*100:c$=mid$(c$(x),3):print"there are";c1;c$;" here"
  650 c2=x
  660 g$="":forx=0to7:ifasc(f$(x))=a1goto680
  670 nextx:goto710
  680 g$=g$(x):print"a ";mid$(f$(x),4);" ";g$;" bars your way!"
  690 g1=val(mid$(f$(x),2,1)):g2=val(mid$(f$(x),3,1))*100:ifg2=0theng2=1e9
  700 g3=(x+1)*int(x/3+1):g5=x
  710 rem
  720 input"move  {CBM-B}{left}{left}{left}";y$:z$=left$(y$,1)
  730 j1=0:k1=0:l1=0
  740 ifz$="d"thenl1=1
  750 ifz$="u"thenl1=-1
  760 ifz$="n"thenj1=1
  770 ifz$="s"thenj1=-1
  780 ifz$="e"thenk1=1
  790 ifz$="w"thenk1=-1
  800 m1=k1+4*j1+16*l1:ifm1=0goto880
  810 forx=0tor:ifm1=r%(x)goto830
  820 nextx:print"you can't go that way":goto720
  830 ifg$<>""andm1+m2<>0thenprint"the ";g$;" won't let you by!":goto720
  840 m9=m9+1:m2=m1:j=j+j1:k=k+k1:l=l+l1
  850 ifl=-1andj+k=0goto480
  860 ifl=-1goto1440
  870 r$=r$(j,k,l):goto500
  880 ifz$="f"orz$="b"goto1120
  890 ifz$="t"goto1030
  900 ifz$="x"goto930
  910 print"{rvon}n{rvof}orth {rvon}s{rvof}outh  {rvon}e{rvof}ast {rvon}w{rvof}est  {rvon}u{rvof}p {rvon}d{rvof}own  {rvon}f{rvof}ight  {rvon}b{rvof}argain {rvon}t{rvof}ake"
  920 goto720
  930 forx=0to3:ify$=w$(x)goto960
  940 nextx
  950 print"?? nothing happens ??":goto720
  960 ifl=3andx=2goto950
  970 ifx=0thenj=3:k=3:m2=3:goto850
  980 ifx>0andx<3andg$=""goto950
  990 s$(x)="~":w$(x)="~"
 1000 ifx=1thenprint"the ";g$;" falls asleep.":g$="":goto720
 1010 ifx=2thenprint"the ";g$;" vanishes!":g$="":f$(g5)="~":goto720
 1020 v=20:print"vitality restored to";v:goto720
 1030 ifb1+c1=0thenprint"?? nothing here ??":goto720
 1040 ifg$<>""thenprint"the ";g$;" won't let you have it!":goto720
 1050 ifb1=0goto1110
 1060 b%(b2)=1:b1=0:b$(b2)="~"+mid$(b$(b2),2)
 1070 print"you now have:";:z=c$(l*2)=c$(l*2+1):forx=0to3:ifb%(x)=0goto1090
 1080 print:print"..";mid$(b$(x),2);
 1090 next x:ifzthenprint:print"** all treasure";:ift9<8thenprint" in level";l+1;
 1100 print:print"..";v1;" coins.":goto720
 1110 e=e+1:v1=v1+c1:c1=0:c$(c2)="~":t9=t9+1:goto1070
 1120 ifg$=""thenprint"?? nobody here ??":goto720
 1130 ifz$="b"goto1210
 1140 print"the ";g$;" ";:g4=5:ifg3<=5theng4=g3:goto1170
 1150 print"is wounded";
 1160 goto1180
 1170 print"is overcome";:g$="":f$(g5)="~":e=e+1
 1180 v=v-g4*10/(10+e+8*b%(3)+5*b%(2)):ifv<=0thenprint"-but you're killed!":goto1480
 1190 print":your vitality is reduced to";int(v)
 1200 g3=g3-g4:goto720
 1210 ifg2>v1goto1240
 1220 print"the ";g$;" wants";g2;"coins: ok";:inputz$:ifasc(z$)=78goto1240
 1230 v1=v1-g2:goto1290
 1240 ifg1>3goto1310
 1250 ifb%(g1)=0goto1310
 1260 print"the ";g$;" will take the ";mid$(b$(g1),2);": ok";:inputz$
 1270 ifasc(z$)=78goto1310
 1280 b%(g1)=0
 1290 print"it's a deal!  the ";g$;" is gone."
 1300 e=e+1:g$="":f$(g5)="~":goto1070
 1310 print"no deal...":goto720
 1320 r=r+1:m=m%(x):r%(r)=m:m$=m$(x)
 1330 x$="you may go":ifl<0goto1430
 1340 a1=a+m:ifa1<0goto1430
 1350 l1=int(a1/16):a1=a1-l1*16:j1=int(a1/4):k1=a1-j1*4
 1360 t1=val(mid$(r$(j1,k1,l1),2,1))
 1370 ift=t1thenx$="the "+h$+" continues":goto1430
 1380 ift<>3andt1<>3goto1410
 1390 x$="a doorway opens":ifabs(m)>15thenx$="a stairway leads"
 1400 goto1430
 1410 ift=0ort1=0thenx$="a tunnel goes":goto1430
 1420 x$="a passage leads"
 1430 printx$;" ";m$:return
 1440 print"you have left the cave area."
 1450 print"with";v1;"coins"
 1460 forx=0to7:ifleft$(c$(x),1)<>"~"thenprint"you missed the ";mid$(c$(x),3)
 1470 nextx
 1480 print"your score=";int(v1*24/m9+v*2)
  100 dimr$(3,3,3),r%(6),t$(3),m%(5),m$(5),f$(7),g$(7),c$(7),b$(3),b%(3),z$(20)
  110 dims$(3),w$(3)
  120 data w0rough,01carved,02stone,$3square
  130 data \1decorated,03childs," 1misty",l0damp
  140 data \1decorated,00mossy,&3pink,l1grey
  150 data x3poster,02dark,81gloomy,(2round
  160 data e1armored,p0ice,53peacock,$0octagonal
  170 data x2crystal,&3tumble down,l0slimy,h1magnificent
  180 data t3tilted,",0treacle",y1humped,$2whispering
  190 data j0echoing,x1medical," 2lace",h3glass
  200 data t2vast,%2vast,d0hermit's,d1boulder-strewn
  210 data h2vast,h0sloping,l1narrow,l2silken
  220 data t0littered,01vaulted,":2smoky",(3frog
  230 data y1musty,02rich,03glittering," 0bone-strewn"
  240 data p3tattered,40jewelled,00jewelled," 2torture"
  250 data e0silver,x1splendid,02doctor's,$3waiting
  260 data \1flickering,02music,03bear,",0eerie"
  270 data x2bird," 3tiny",p0foul-smelling,(1moldy
  280 forl=0to3:forj=0to3:fork=0to3:readr$(j,k,l):nextk,j,l
  290 data cave,hall,chamber,room
  300 forj=0to3:readt$(j):nextj
  310 data -16,16,4,-4,1,-1
  320 data up,down,north,south,east,west
  330 forx=0to5:readm%(x):nextx:forx=0to5:readm$(x):nextx
  340 data /01mean,dwarf,#41nasty,gnome,942vicious,vampire
  350 data 244fearsome,ogre,g00huge,wumpus
  360 data m13gibbering,orc,_25massive,manticore,q40monstrous,dragon
  370 forx=0to7:readf$(x):readg$(x):nextx
  380 data #1silver coins,+1doubloons,32dollars,>2sovereigns
  390 data n3pieces of eight,g4byzantine coins,r6gold pieces,^9treasure coins
  400 forx=0to7:readc$(x):nextx
  401 data " daylight filters down from above",",travel posters cover the walls"
  402 data 0rusted suits of armor line the walls,'water drips from above
  403 data 5the stairs are broken and dangerous,9the going gets sticky
  404 data ebroken stairs hang out of reach above,<something belches...
  405 data 1rubble chokes a downward tunnel,1it's cold...,6..watch your step
  406 data jsign - folding stairs/one way only,zan empty bear cage is here
  407 data ki hear croaking..,osome bones look recent,q*no smoking*
  408 data ra massive treasure chest stands open,\exotic birds flit overhead
  409 data sincome tax forms are strewn about,sghostly screams are heard
  410 data da clogged tunnel lies below
  411 forj=0to20:readz$(j):nextj
  419 data %doll,=bottle of ointment,fring,[sword
  420 forx=0to3:readb$(x):nextx
  430 data ",a poster says 'travel",";a voice says 'sleep"
  440 data ba scrawled note says 'battle,va diploma reads 'healing
  450 x=rnd(-ti):forx=0to3:reads$(x):w$(x)="x"
  460 forj=1tox+2:z$=chr$(rnd(1)*15+65):w$(x)=w$(x)+z$:nextj,x
  470 v=20
  480 ifv<15thenv=15:print"vitality restored to";v
  490 j=0:k=0:l=-1:d$=">":r$="you are above ground over a cave":goto520
  500 d$=left$(r$,1):t=val(mid$(r$,2,1)):h$=t$(t)
  510 r$="you are in a "+mid$(r$,3)+" "+h$
  520 printr$:a=j*4+k+l*16
  530 r=-1:d=asc(d$):d1=1:forx=0to5:if(dandd1)>0thengosub1320
  540 d1=d1*2:nextx:a1=a+32:ifr=0andr%(0)+m2=0thenprint"==dead end=="
  545 forx=0to20:ifasc(z$(x))=a1thenprintmid$(z$(x),2)
  546 nextx
  550 forx=0to3:ifasc(s$(x))=a1goto570
  560 nextx:goto580
  570 ifx<>3orb%(1)=1thenprintmid$(s$(x),2);" spell word is {rvon}";w$(x);"{rvof}'"
  580 b1=0:forx=0to3:ifasc(b$(x))=a1goto600
  590 nextx:goto620
  600 b$=mid$(b$(x),2):b1=1:b2=x
  610 print"there is a ";b$;" here."
  620 c1=0:forx=0to7:ifasc(c$(x))=a1goto640
  630 nextx:goto660
  640 c1=val(mid$(c$(x),2,1))*100:c$=mid$(c$(x),3):print"there are";c1;c$;" here"
  650 c2=x
  660 g$="":forx=0to7:ifasc(f$(x))=a1goto680
  670 nextx:goto710
  680 g$=g$(x):print"a ";mid$(f$(x),4);" ";g$;" bars your way!"
  690 g1=val(mid$(f$(x),2,1)):g2=val(mid$(f$(x),3,1))*100:ifg2=0theng2=1e9
  700 g3=(x+1)*int(x/3+1):g5=x
  710 rem
  720 input"move  {CBM-B}{left}{left}{left}";y$:z$=left$(y$,1)
  730 j1=0:k1=0:l1=0
  740 ifz$="d"thenl1=1
  750 ifz$="u"thenl1=-1
  760 ifz$="n"thenj1=1
  770 ifz$="s"thenj1=-1
  780 ifz$="e"thenk1=1
  790 ifz$="w"thenk1=-1
  800 m1=k1+4*j1+16*l1:ifm1=0goto880
  810 forx=0tor:ifm1=r%(x)goto830
  820 nextx:print"you can't go that way":goto720
  830 ifg$<>""andm1+m2<>0thenprint"the ";g$;" won't let you by!":goto720
  840 m9=m9+1:m2=m1:j=j+j1:k=k+k1:l=l+l1
  850 ifl=-1andj+k=0goto480
  860 ifl=-1goto1440
  870 r$=r$(j,k,l):goto500
  880 ifz$="f"orz$="b"goto1120
  890 ifz$="t"goto1030
  900 ifz$="x"goto930
  910 print"{rvon}n{rvof}orth {rvon}s{rvof}outh  {rvon}e{rvof}ast {rvon}w{rvof}est  {rvon}u{rvof}p {rvon}d{rvof}own  {rvon}f{rvof}ight  {rvon}b{rvof}argain {rvon}t{rvof}ake"
  920 goto720
  930 forx=0to3:ify$=w$(x)goto960
  940 nextx
  950 print"?? nothing happens ??":goto720
  960 ifl=3andx=2goto950
  970 ifx=0thenj=3:k=3:m2=3:goto850
  980 ifx>0andx<3andg$=""goto950
  990 s$(x)="~":w$(x)="~"
 1000 ifx=1thenprint"the ";g$;" falls asleep.":g$="":goto720
 1010 ifx=2thenprint"the ";g$;" vanishes!":g$="":f$(g5)="~":goto720
 1020 v=20:print"vitality restored to";v:goto720
 1030 ifb1+c1=0thenprint"?? nothing here ??":goto720
 1040 ifg$<>""thenprint"the ";g$;" won't let you have it!":goto720
 1050 ifb1=0goto1110
 1060 b%(b2)=1:b1=0:b$(b2)="~"+mid$(b$(b2),2)
 1070 print"you now have:";:z=c$(l*2)=c$(l*2+1):forx=0to3:ifb%(x)=0goto1090
 1080 print:print"..";mid$(b$(x),2);
 1090 next x:ifzthenprint:print"** all treasure";:ift9<8thenprint" in level";l+1;
 1100 print:print"..";v1;" coins.":goto720
 1110 e=e+1:v1=v1+c1:c1=0:c$(c2)="~":t9=t9+1:goto1070
 1120 ifg$=""thenprint"?? nobody here ??":goto720
 1130 ifz$="b"goto1210
 1140 print"the ";g$;" ";:g4=5:ifg3<=5theng4=g3:goto1170
 1150 print"is wounded";
 1160 goto1180
 1170 print"is overcome";:g$="":f$(g5)="~":e=e+1
 1180 v=v-g4*10/(10+e+8*b%(3)+5*b%(2)):ifv<=0thenprint"-but you're killed!":goto1480
 1190 print":your vitality is reduced to";int(v)
 1200 g3=g3-g4:goto720
 1210 ifg2>v1goto1240
 1220 print"the ";g$;" wants";g2;"coins: ok";:inputz$:ifasc(z$)=78goto1240
 1230 v1=v1-g2:goto1290
 1240 ifg1>3goto1310
 1250 ifb%(g1)=0goto1310
 1260 print"the ";g$;" will take the ";mid$(b$(g1),2);": ok";:inputz$
 1270 ifasc(z$)=78goto1310
 1280 b%(g1)=0
 1290 print"it's a deal!  the ";g$;" is gone."
 1300 e=e+1:g$="":f$(g5)="~":goto1070
 1310 print"no deal...":goto720
 1320 r=r+1:m=m%(x):r%(r)=m:m$=m$(x)
 1330 x$="you may go":ifl<0goto1430
 1340 a1=a+m:ifa1<0goto1430
 1350 l1=int(a1/16):a1=a1-l1*16:j1=int(a1/4):k1=a1-j1*4
 1360 t1=val(mid$(r$(j1,k1,l1),2,1))
 1370 ift=t1thenx$="the "+h$+" continues":goto1430
 1380 ift<>3andt1<>3goto1410
 1390 x$="a doorway opens":ifabs(m)>15thenx$="a stairway leads"
 1400 goto1430
 1410 ift=0ort1=0thenx$="a tunnel goes":goto1430
 1420 x$="a passage leads"
 1430 printx$;" ";m$:return
 1440 print"you have left the cave area."
 1450 print"with";v1;"coins"
 1460 forx=0to7:ifleft$(c$(x),1)<>"~"thenprint"you missed the ";mid$(c$(x),3)
 1470 nextx
 1480 print"your score=";int(v1*24/m9+v*2)
    0 clr:poke59468,12
    1 rem face copyright (c) 1978 glen fisher
    2 rem cursor #5, november, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 7 mar 80
   90 gosub62000
  100 deffnr(x)=int(rnd(1)*x)+1
  110 cr$=chr$(13)
 1000 readan:dima$(an),ah(an),aw(an):fori=1toan:readah(i),aw(i),a$(i):nexti
 1010 readbn:dim b$(bn),bh(bn),bw(bn):fori=1tobn:readbh(i),bw(i),b$(i):nexti
 1020 readcn:dim c$(cn),ch(cn),cw(cn):fori=1tocn:readch(i),cw(i),c$(i):nexti
 1030 readdn:dim d$(dn),dh(dn),dw(dn):fori=1todn:readdh(i),dw(i),d$(i):nexti
 1040 readen:dim e$(en),eh(en),ew(en):for i=1toen:readeh(i),ew(i),e$(i):nexti
 1050 dimnn(5):nn(1)=an:nn(2)=bn:nn(3)=cn:nn(4)=dn:nn(5)=en
 1060 nn=0:fori=1to5:ifnn(i)>nnthennn=nn(i)
 1070 nexti
 1080 dimsv(nn)
 1500 print"{clr}{down}{down}{down}{down}here's what's available:"
 1510 print"{down} 1) random faces"
 1520 print"{down} 2) a 'rogue's gallery'"
 1530 print"{down} 3) do-it-yourself"
 1540 print"{down} 4) i'm done!"
 1600 print:n=4:gosub9000:ift=0thent=4
 1610 print"{clr}";:ontgoto2000,3000,4000,8000
 1800 goto3000
 1900 print"{clr}"
 2000 gosub10000:gosub11000:gosub12000
 2010 row=fnr(24-ht)-1:col=fnr(39-wd)
 2020 gosub14000
 2030 gett$:ift$=cr$then1500
 2040 goto2000
 3000 print"{clr}"
 3010 forrw=0to20step8
 3020 :forcol=0to35step7
 3030 ::gosub10000:gosub11000:gosub12000
 3040 ::row=rw:gosub14000
 3050 ::gett$:ift$=cr$then1500
 3060 nextcol:nextrw
 3070 gett$:ift$=""then3070
 3080 ift$=cr$then1500
 3090 goto3000
 4000 ch$="{clr}{down}{down}your choice of ":eo=-1
 4010 j=1:printch$;"eyebrows is{down}"
 4020 fori=1toan
 4025 ifeo>=0and(aw(i)and1)<>eoandaw(i)<>0then4040
 4030 :printj;"{left}: ";a$(i);"{down}":sv(j)=i:j=j+1
 4040 nexti
 4050 n=j-1:gosub9000:ift=0then1500
 4060 at=sv(t)
 4070 ifeo<0andaw(at)>0theneo=aw(at)and1
 4110 j=1:printch$;"eyes is{down}"
 4120 fori=1tobn
 4125 ifeo>=0and(bw(i)and1)<>eoandbw(i)<>0then4140
 4130 :printj;"{left}: ";b$(i);"{down}":sv(j)=i:j=j+1
 4140 nexti
 4150 n=j-1:gosub9000:ift=0then1500
 4160 bt=sv(t)
 4170 ifeo<0andbw(bt)>0theneo=bw(bt)and1
 4210 j=1:printch$;"noses is{down}"
 4220 fori=1tocn
 4225 ifeo>=0and(cw(i)and1)<>eoandcw(i)<>0then4240
 4230 :printj;"{left}: ";c$(i);"{down}":sv(j)=i:j=j+1
 4240 nexti
 4250 n=j-1:gosub9000:ift=0then1500
 4260 ct=sv(t)
 4270 ifeo<0andcw(ct)>0theneo=cw(ct)and1
 4310 j=1:print ch$;"mouths is{down}"
 4320 fori=1todn
 4325 ifeo>=0and(dw(i)and1)<>eoanddw(i)<>0then4340
 4330 :printj;"{left}: ";d$(i);"{down}":sv(j)=i:j=j+1
 4340 nexti
 4350 n=j-1:gosub9000:ift=0then1500
 4360 dt=sv(t)
 4370 ifeo<0anddw(dt)>0theneo=dw(dt)and1
 5000 print"{clr}":gosub12000:row=(24-ht)/2:col=(39-wd)/2:gosub14000
 5010 gett$:ift$=""then5010
 5020 ift$=cr$then1500
 5030 goto4000
 8000 print"{down}{down}{down}i hope you enjoyed yourself.{down}"
 8010 end
 9000 cs$="choice":is$="is":ifn<>1thencs$=cs$+"s":is$="are"
 9005 print "type the number of your choice: ";:gosub60000
 9010 ifin$=""thent=0:return
 9020 fori=1tolen(in$)
 9030 :t$=mid$(in$,i,1)
 9040 :ift$<"0"ort$>"9"thenprint"no ";t$;"'s, please.":goto9005
 9050 nexti:t=val(in$)
 9060 ift>nthen print"but there ";is$;" only";n;cs$;"!":goto9005
 9070 ift<1thenprint"don't be ridiculous!":goto9005
 9080 return
 9999 end
 10000 rem
 10010 t=fnr(5):n=fnr(nn(t))
 10020 ontgosub10100,10110,10120,10130,10140:ifn=0then10010
 10030 eo=nand1:return
 10100 n=aw(n):return
 10110 n=bw(n):return
 10120 n=cw(n):return
 10130 n=dw(n):return
 10140 n=ew(n):return
 11000 rem choose features
 11010 at=fnr(an):if (aw(at)and1)<>eo and aw(at)<>0 then 11010
 11020 bt=fnr(bn):if (bw(bt)and1)<>eo and bw(bt)<>0 then 11020
 11030 ct=fnr(cn):if (cw(ct)and1)<>eo and cw(ct)<>0 then 11030
 11040 dt=fnr(dn):if (dw(dt)and1)<>eo and dw(dt)<>0 then 11040
 11050 et=fnr(en):if (ew(et)and1)<>eo and ew(et)<>0 then 11050
 11060 return
 12000 rem size face
 12010 ht=0:wd=0
 12020 ht=ht+ah(at):ifwd<aw(at)thenwd=aw(at)
 12030 ht=ht+bh(bt):ifwd<bw(bt)thenwd=bw(bt)
 12040 ht=ht+ch(ct):ifwd<cw(ct)thenwd=cw(ct)
 12050 ht=ht+dh(dt):ifwd<dw(dt)thenwd=dw(dt)
 12060 ht=ht+eh(et):ifwd<ew(et)then wd=ew(et)
 12070 return
 14000 rem
 14010 vt$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 14020 t$=a$(at):w=wd-aw(at):h=ah(at):gosub14500
 14030 t$=b$(bt):w=wd-bw(bt):h=bh(bt):gosub14500
 14040 t$=c$(ct):w=wd-cw(ct):h=ch(ct):gosub14500
 14050 t$=d$(dt):w=wd-dw(dt):h=dh(dt):gosub14500
 14060 t$=e$(et):w=wd-ew(et):h=eh(et):gosub14500
 14070 return
 14500 printleft$(vt$,row+1);tab(col+w/2);t$:row=row+h:return
 20000 rem  eyebrows
 20010 data5
 20020 data0,0,""
 20030 data1,3,"J K"
 20040 data1,4,"U{SHIFT-*}{SHIFT-*}I"
 20050 data1,3,"M N"
 20060 data1,4,"O  P"
 21000 rem  eyes
 21010 data 8
 21020 data1,2,"ZZ"
 21022 data1,2,"@@"
 21024 data1,3,"* *"
 21026 data1,3,"Q Q"
 21030 data1,3,"W W"
 21040 data1,2,"{CBM-V}{CBM-C}"
 21050 data1,3,"{SHIFT-*} {SHIFT-*}"
 21060 data2,4,"UIUI{left}{left}{left}{left}{down}JKJK"
 22000 rem  noses
 22010 data8
 22020 data1,1,"^"
 22022 data1,1,"x"
 22030 data1,2,"UI"
 22040 data1,1,"Z"
 22050 data1,2,"{rvon}{SHIFT-POUND}{CBM-*}"
 22060 data1,2,"{rvon}{CBM-F}{CBM-D}"
 22070 data2,4," KJ{left}{left}{left}{down}(..)"
 22080 data1,1,"{CBM-POUND}"
 23000 rem  mouths
 23010 data7
 23020 data1,2,"{SHIFT-*}{SHIFT-*}"
 23022 data1,1,"S"
 23030 data1,3,"{CBM-Z}{SHIFT-*}{CBM-X}"
 23040 data1,3,"J{SHIFT-*}I"
 23050 data1,4,"{down}{CBM-T}{CBM-T}{up}{left}{CBM-D}{down}{CBM-T}{CBM-T}"
 23060 data2,3,"{CBM-A}{SHIFT-*}{CBM-S}{left}{left}{left}{down}J{SHIFT-*}K"
 23070 data2,2,"UI{left}{left}{down}JK"
 24000 rem who knows?
 24010 data1
 24020 data0,0,""
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #5  face"
 62010 print"{down}copyright (c) 1978  by glen fisher
 62011 gosub 60500
 62020 print"{down}you (and your pet) draw funny faces!
 62025 cr$=chr$(13)
 62030 print"{down}{down}press return to begin: ";:gosub60000
 62040 print"{clr}":return
   10 rem adaped from m. erlewine 1978
   11 rem   original for pet by matrix
   12 rem   some mods by jim butterfield
   20 dim c%(255)
   21 x$="4567rtyufghjvbnm"
   22 for j=1 to 16
   24 c=asc(mid$(x$,j)):c%(c)=j
   26 next j
   50 ov$="         "
   51 ey$="{home}{down}{down}{down}{down}{down}{down}{down}"
   52 ns$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   53 mt$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   60 print"N{clr}";
   61 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
   62 print"by";"{rvon}SmatrixS{rvof}"
   63 a=ti
   64 if(ti-a)<200then 64
  100 print"{clr}";
  103 fori=1to22
  104 print"         ";"{rvon}                      {rvof}"
  105 nexti
  107 print"{home}{down}{down}";
  108 printov$;"{rvon}       SfacesS{rvof}"
  109 print:print
  111 printov$"{rvon}  a pre-school game {rvof}"
  114 print ov$"{rvon} using the number pad:":print
  115 print ov$"{rvon}      4  5  6  7{rvof}"
  116 print ov$"{rvon}      r  t  y  u{rvof}"
  117 print ov$"{rvon}      f  g  h  j{rvof}"
  118 print ov$"{rvon}      v  b  m  m{rvof}"
  119 print:print
  121 print ov$"{rvon}     give it a go!{rvof}"
  122 goto490
  400 gosub500
  402 x=c%(asc(a$))
  420 if x>0 then on x gosub 2109,2120,900,1550,2100,2150,700,1100
  430 if x>8 then on x-8 gosub 2090,2140,1000,1200,2010,2030,2040,2070
  490 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  499 goto400
  500 print"{rvon} {left}{rvof}";:fori=c1to150:next
  502 fori=c1to25:print"{rvof} {left}";:geta$
  504 ifa$<>""thenreturn
  506 next:goto500
  700 printey$;
  701 print ov$"{rvon}  {rvof}";"{SHIFT-POUND}       {CBM-*}{SHIFT-POUND}       {CBM-*}";"{rvon}  {rvof}"
  702 print ov$"{rvon} {rvof}";"{SHIFT-POUND}   ";"{rvon}{SHIFT-POUND}   {CBM-*}{rvof}";"  ";"{rvon}{SHIFT-POUND}   {CBM-*}{rvof}";"   {CBM-*}";"{rvon} {rvof}"
  704 print ov$"{CBM-G}    ";"{rvon} (Q) {rvof}";"  ";"{rvon} (Q) {rvof}";"    {CBM-M}"
  705 print ov$"{rvon} {CBM-*}{rvof}";"   {CBM-*}";"{rvon}   {rvof}";"{SHIFT-POUND}  {CBM-*}";"{rvon}   {rvof}";"{SHIFT-POUND}   ";"{rvon}{SHIFT-POUND} {rvof}"
  706 print ov$"{rvon}  {CBM-*}{rvof}";"       ";"{rvon}{SHIFT-POUND}{CBM-*}{rvof}";"       ";"{rvon}{SHIFT-POUND}  {rvof}"
  780 return
  900 print"{home}                                  "
  902 print"                                  "
  903 print ov$ "{rvon}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{rvof}      "
  904 print ov$"{rvon}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{rvof}       "
  905 print ov$"{rvon}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{rvof}       "
  906 print ov$"{rvon}                      {rvof}       "
  907 print ov$"{rvon}                      {rvof}       "
  915 return
 1000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1010 print"         {rvon}                      {rvof}"
 1011 print"         {rvon}                      {rvof}"
 1012 print"         {rvon}        UK  JI        {rvof}"
 1013 print"         {rvon}        J{SHIFT-*}IU{SHIFT-*}K        {rvof}"
 1014 print"         {rvon}          JK          {rvof}"
 1015 return
 1100 print"{home}{down}{down}{down}{down}{down}{down}"
 1105 print"         {rvon}                      "
 1106 print"         {rvon}     {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}     "
 1110 print"         {rvon}       U{SHIFT-*}I  U{SHIFT-*}I       {rvof}"
 1112 print"         {rvon}       {CBM-Q}{CBM-I}{CBM-W}  {CBM-Q}{CBM-I}{CBM-W}       {rvof}"
 1113 print"         {rvon}       J{rvof}{CBM-I}{rvon}K  J{rvof}{CBM-I}{rvon}K     {rvof}"
 1114 rem print"         {rvon}                      "
 1120 return
 1200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1210 print"         {rvon}         N  M         "
 1211 print"         {rvon}         (  )         "
 1212 print"         {rvon}        U    I        "
 1213 print"         {rvon}        JI  UK        "
 1214 print"         {rvon}         J{SHIFT-*}{SHIFT-*}K         "
 1215 return
 1500 -
 1550 print"{home}";
 1551 print"        N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M     "
 1552 print"       N    {rvon}{SHIFT-POUND}   {CBM-*}{rvof}      {rvon}{SHIFT-POUND}   {CBM-*}{rvof}    M  "
 1553 print"       {CBM-G}   {rvon}{SHIFT-POUND}     {CBM-*}{rvof}    {rvon}{SHIFT-POUND}     {CBM-*}{rvof}{$a0}  {CBM-M}   "
 1554 print"       {CBM-G}  {rvon}{SHIFT-POUND}       {CBM-*}{rvof}  {rvon}{SHIFT-POUND}       {CBM-*}{rvof}  {CBM-M}  "
 1555 print"       {CBM-G} {rvon}{SHIFT-POUND}         {CBM-*}{rvof}{rvon}{SHIFT-POUND}         {CBM-*}{rvof} {CBM-M}     "
 1556 print"       M {rvon}                      {rvof} N   "
 1557 print"        M{rvon}                      {rvof}N    "
 1558 return
 2010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2014 print"         {CBM-*}";"{rvon}                    {rvof}";"{SHIFT-POUND}  "
 2015 print"          {CBM-*}";"{rvon}  {CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}  {rvof}";"{SHIFT-POUND}   "
 2016 print"           ";"{rvon}( {SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+} ){rvof}";"  "
 2017 print"           ";"{rvon}  {CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}  {rvof}";"  "
 2018 print"           {CBM-*}";"{rvon}                {rvof}";"{SHIFT-POUND}  "
 2020 return
 2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2034 print"         {CBM-*}";"{rvon}                    {rvof}";"{SHIFT-POUND}  "
 2035 print"          {CBM-*}";"{rvon}    {CBM-@}{CBM-@}{CBM-@}{rvof}";"{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}";"{rvon}{CBM-@}{CBM-@}{CBM-@}{$a0} {$a0}{$a0}{rvof}";"{SHIFT-POUND}  "
 2036 print"           {CBM-*}";"{rvon}     {rvof}";"{rvon}{CBM-*}{rvof}";"    ";"{rvon}{SHIFT-POUND}{rvof}";"{rvon}     {rvof}";"{SHIFT-POUND}     "
 2037 print"            {CBM-*}";"{rvon}              {rvof}";"{SHIFT-POUND}{$a0}    "
 2038 print"             {CBM-*}";"{rvon}            {rvof}";"{SHIFT-POUND}     "
 2039 return
 2040 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2050 print"         ";"{rvon}          {SHIFT--}{SHIFT--}          {rvof}"
 2052 print"         ";"{rvon}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {rvof}"
 2054 print"         ";"{rvon}                      {rvof}"
 2055 print"         ";"{rvon}      M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N      {rvof}"
 2056 print"         ";"{rvon}                      {rvof}"
 2062 return
 2070 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2074 print"         ";"{rvon}  U       {SHIFT--}{SHIFT--}       I  {rvof}"
 2076 print"         ";"{rvon}   M      {SHIFT--}{SHIFT--}      N   {rvof}"
 2078 print"         ";"{rvon}    M     {SHIFT--}{SHIFT--}     N    {rvof}"
 2079 print"         ";"{rvon}     M          N     {rvof}"
 2080 print"         {CBM-*}";"{rvon}     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {rvof}";"{SHIFT-POUND} "
 2081 return
 2090 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2092 print"         ";"{rvon}            M        {rvof}"
 2094 print"         ";"{rvon}             M       {rvof}"
 2096 print"         ";"{rvon}              M      {rvof}"
 2097 print"         ";"{rvon}          {CBM-G}    M     {rvof}"
 2098 print"         ";"{rvon}          {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {rvof}"
 2099 return
 2100 print"{home}{down}{down}{down}{down}{down}{down}{down}";
 2101 print"         ";"{rvon}                      {rvof}"
 2102 print"         ";"{rvon}    U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I  U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I    {rvof}"
 2103 print"         ";"{rvon}    {SHIFT--}  W {SHIFT--}  {SHIFT--}{$a0}W  {SHIFT--}    {rvof}"
 2104 print"         ";"{rvon}    J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K  J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K   {$a0}{rvof}"
 2105 print"         ";"{rvon}                      {rvof}"
 2106 return
 2109 print"{home}";
 2110 print"       ";"{rvon}{SHIFT-POUND}{SHIFT--}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{CBM-*}{rvof}"
 2111 print"       ";"{rvon}{SHIFT--}{SHIFT--}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}{SHIFT--}{rvof}"
 2112 print"       ";"{rvon}{SHIFT--}{SHIFT--}JIJIJIJIJIJIJIJIJIJIJI{SHIFT--}{SHIFT--}{rvof}"
 2113 print"       ";"{rvon}{SHIFT--}{SHIFT--}UKUKUKUKUKUKUKUKUKUKUK{SHIFT--}{SHIFT--}{rvof}"
 2114 print"       ";"{rvon}{SHIFT--}{SHIFT--}W W W W W W W W W W W {SHIFT--}{SHIFT--}{rvof}    "
 2115 print"       ";"{rvon}{SHIFT--}{SHIFT--}                      {SHIFT--}{SHIFT--}{rvof}"
 2116 print"       ";"{rvon}WW                      WW{rvof}"
 2119 return
 2120 print"{home}";
 2122 print"            ";"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}";"         "
 2124 print"            ";"{rvon}                {rvof}";"         "
 2126 print"            ";"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}";"         "
 2127 print"            ";"{rvon}                {rvof}";"         "
 2128 print "    {rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}"
 2129 print"         ";"{rvon}{SHIFT-POUND}                    {CBM-*}{rvof}   "
 2130 print"         ";"{rvon}  NNNNNNNN   MMMMMMMM {rvof}";"  "
 2131 return
 2140 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2142 print"         ";"{rvon}          {CBM-M}{CBM-G}          {rvof}"
 2144 print"         ";"{rvon}          {CBM-M}{CBM-G}          {rvof}"
 2146 print"         ";"{rvon}          {CBM-M}{CBM-G}          {rvof}"
 2147 print"         ";"{rvon}          {CBM-M}{CBM-G}          {rvof}"
 2148 print"         ";"{rvon}         {CBM-T}  {CBM-T}         {rvof}"
 2149 return
 2150 print"{home}{down}{down}{down}{down}{down}{down}{down}";
 2152 print"         ";"{rvon}     O{CBM-T}{CBM-T}P    O{CBM-T}{CBM-T}P     {rvof}"
 2154 print"         ";"{rvon}     {CBM-G}  {CBM-M}    {CBM-G}  {CBM-M}     {rvof}"
 2155 print"         ";"{rvon}     {CBM-G}  {CBM-M}    {CBM-G}  {CBM-M}     {rvof}"
 2156 print"         ";"{rvon}     {CBM-G}{rvof}";"  ";"{rvon}{CBM-M}    {CBM-G}{rvof}";"  ";"{rvon}{CBM-M}     {rvof}"
 2157 print"         ";"{rvon}     L{rvof}";"  ";"{rvon}{SHIFT-@}    L{rvof}";"  ";"{rvon}{SHIFT-@}     {rvof}"
 2159 return
  100 print"prime factors of an integer"
  110 print"         jim butterfield"
  120 print"up to 19 digits.."
  130 print"large numbers take time!"
  140 if peek(44)<>8 then stop
  200 sys 2304
  100 rem** fantastic voyage **
  110 rem** by greg hopkins  **
  120 data77,66,78,67,43,67,78,66,77:goto580
  130 forx=1to9:poke32768+int(rnd(0)*240+25),35
  140 poke32768+int(rnd(0)*240+25),43
  150 poke33528+int(rnd(0)*240),35
  160 poke33528+int(rnd(0)*240),43:next
  170 poke4397,172:sys4112
  180 p8=peek(178):p7=peek(177)
  190 sys4794:ifpeek(185)=0then320
  200 p=p8*256+p7:poke177,p7:poke178,p8
  210 poke59467,16:poke59466,16
  220 forx=0to8:reada:pokep+x+int(x/3)*37,a:next
  230 forx=0to255:poke59464,x:next
  240 poke59464,150
  250 forx=0to8:pokep+x+int(x/3)*37,32:next:restore
  260 poke59467,0
  270 d=d+1:print"{home}you just lost shield:"d
  280 forx=1to800:next:ifd=3then310
  290 print"{home}                         "
  300 poke4397,172:sys4120:goto180
  310 sys4794
  320 c=peek(185):g=peek(186)
  330 ifc=0then430
  340 forx=1to10:geta$:next
  350 print"{clr}{rvon}your mission has failed !"
  360 print"{down}because of your incompetence the patient
  370 print"will die of cancer.
  380 print"{down}{down}{down}you score only"9-c"points"
  390 print"if it's any consolation, you died just"
  400 print"in time to avoid being demoted to "
  410 print"lavatory attendant."
  420 end
  430 s=1000-300*d-15*(9-g)
  440 print"{clr}{rvon}congratulations !!!"
  450 print"{down}you cured the cancer and the patient may";
  460 print"recover,
  470 print"you lost"d"shields,"
  480 print"and you killed"9-g"antibodies by mistake."
  490 print"so you score"s"points"
  500 forx=1to10:geta$:next
  510 ifd<>3then550
  520 print"{down}{down}you didn't die in vain, but in the most"
  530 print"noble way possible - in saving another
  540 print"man's life.":end
  550 input"{down}will you help to save another life";a$
  560 ifleft$(a$,1)="y"thenrun
  570 print"{down}goodbye...":end
  580 print"{clr}         fantastic voyage"
  590 print"         {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  600 print"{down}   your patient is dying of cancer."
  610 print"your task is, having been shrunk to"
  620 print"infinitesimal size, to combat on a"
  630 print"mono-cellular basis the antigen cells
  640 print"represented by the #'s on your screen.
  650 print"all these cells must be destroyed if
  660 print"the patient is to survive."
  670 print"   your task is made more difficult by
  680 print"the presence of antibodies in the"
  690 print"bloodstream. not only do you have to"
  700 print"avoid destroying them (if you do it "
  710 print"will make the patient more susceptible"
  720 print"to infection) but also if they hit you"
  730 print"they can destroy your ship. your ship"
  740 print"has been provided with three shields"
  750 print"to prevent this eventuality but after"
  760 print"they're gone the patients blood-pressure";
  770 print"will crush your ship (and you in it).
  780 print"antibodies look like this  '+' "
  790 print"p.s. cancer collisions kill you too!
  800 ifpeek(4112)<>169then1020
  810 print"            press a key"
  820 geta$:ifa$=""then820
  825 goto940
  830 print"{clr}        {rvon}ship's controls"
  840 print"{down}{down}{down}   turn left  -   '!' key"
  850 print"{down}{down}   turn right -   '#' key"
  860 print"{down}{down}   fire       -   'home' key
  870 print"{down}{down}   move       -   'left/right' key
  890 print"{down}{down}{down}{down}{down}do tou want continual motion"
  900 input"(press move key to stop) ";m$
  910 poke4153,208
  920 ifleft$(m$,1)="y"thenpoke4153,16
  930 print"{clr}                       ":goto130
  940 print"{clr}"spc(14)"remember:"
  950 printspc(7)"{down}{down}{down}{down}your ship        =  Q*
  960 printspc(7)"{down}{down}{down}{down}a cancer cell    =  #
  970 printspc(7)"{down}{down}{down}{down}an antibody      =  +
  980 print"{down}{down}{down}turn on your soundbox if you have one."
  990 print"{down}{down}{down}            press a key"
 1000 geta$:ifa$=""then1000
 1010 goto830
 1020 forj=1to9:readk:next
 1030 forj=4112to4959:readk:pokej,k:next
 1040 restore:goto810
 1050 rem*** data statements ***
 1060 rem*** for machine code program ***
 1070 data169,129,133,178,169
 1080 data203,133,177,160,41,169,81,145,177,200
 1090 data169,42,145,177,162,3,234,234,234,234
 1100 data234,169,0,141,16,232,173,18,232,141
 1110 data89,19,73,255,41,128,208,117,173,94
 1120 data19,77,89,19,45,94,19,141,95,19
 1130 data173,89,19,41,1,208,34,173,89,19
 1140 data41,2,208,59,32,240,248,173,95,19
 1150 data41,64,240,3,76,64,17,173,89,19
 1160 data141,94,19,76,16,17,170,170,170,170
 1170 data170,188,80,19,169,32,145,177,232,224
 1180 data8,208,2,162,0,188,80,19,169,42
 1190 data145,177,76,78,16,170,170,170,170,170
 1200 data170,170,170,188,80,19,169,32,145,177
 1210 data202,224,255,208,2,162,7,188,80,19
 1220 data169,42,145,177,76,88,16,170,170,170
 1230 data170,170,170,170,170,160,41,169,32,145
 1240 data177,188,80,19,140,88,19,145,177,169
 1250 data4,141,90,19,141,91,19,32,208,16
 1260 data76,59,16,170,170,170,170,24,216,165
 1270 data177,109,88,19,133,177,165,178,105,0
 1280 data133,178,24,216,165,177,233,40,133,177
 1290 data165,178,233,0,133,178,201,132,208,4
 1300 data169,128,133,178,201,127,208,4,169,131
 1310 data133,178,169,81,160,41,145,177,169,42
 1320 data188,80,19,145,177,96,170,170,170,170
 1330 data170,142,92,19,140,93,19,162,0,160
 1340 data0,200,192,2,208,251,232,224,2,208
 1350 data244,234,234,234,169,0,168,32,0,18
 1360 data96,93,19,174,92,19,76,42,16,170
 1370 data170,170,170,170,170,170,170,170,170,169
 1380 data0,141,100,19,24,188,80,19,152,101
 1390 data177,133,177,165,178,105,0,133,178,56
 1400 data165,177,233,41,133,177,165,178,233,0
 1410 data133,178,177,177,201,32,240,5,169,11
 1420 data141,100,19,76,192,17,173,100,19,201
 1430 data12,240,10,169,90,145,177,76,69,17
 1440 data234,234,234,76,164,17,56,165,177,253
 1450 data80,19,133,177,165,178,233,0,133,178
 1460 data24,165,177,105,41,133,177,165,178,105
 1470 data0,133,178,177,177,201,90,208,7,169
 1480 data32,145,177,76,131,17,169,0,141,75
 1490 data232,76,98,16,170,170,170,170,170,170
 1500 data170,170,170,170,170,170,170,238,100,19
 1510 data165,178,201,127,208,5,169,12,141,100
 1520 data19,169,16,141,75,232,169,32,141,74
 1530 data232,169,104,141,72,232,142,92,19,140
 1540 data93,19,162,0,160,0,200,192,37,208
 1550 data251,232,224,37,208,244,174,92,19,172
 1560 data93,19,76,111,17,170,170,170,170,170
 1570 data170,169,128,133,186,169,0,133,185,141
 1580 data99,19,177,185,201,35,240,63,201,43
 1590 data240,62,230,185,208,242,230,186,165,186
 1600 data201,132,208,234,169,128,133,186,169,0
 1610 data133,185,177,185,201,36,208,4,169,35
 1620 data145,185,201,44,208,4,169,43,145,185
 1630 data230,185,208,234,230,186,165,186,201,132
 1640 data208,226,173,99,19,208,3,76,172,18
 1650 data96,238,99,19,141,98,19,32,0,19
 1660 data24,165,185,109,96,19,133,179,165,186
 1670 data105,0,133,180,56,165,179,233,41,133
 1680 data179,165,180,233,0,133,180,201,132,208
 1690 data4,169,128,133,180,201,128,16,4,169
 1700 data131,133,180,169,32,145,185,238,98,19
 1710 data177,179,201,81,240,31,201,42,240,27
 1720 data201,32,208,8,173,98,19,145,179,76
 1730 data11,18,206,98,19,76,103,18,234,234
 1740 data234,234,234,169,254,133,185,169,96,141
 1750 data45,17,96,170,170,170,170,169,128,133
 1760 data178,169,0,133,177,168,133,185,133,186
 1770 data177,177,201,35,208,2,230,185,201,36
 1780 data240,27,234,234,201,43,208,2,230,186
 1790 data201,44,208,2,230,186,230,177,208,226
 1800 data230,178,165,178,201,132,208,218,96,169
 1810 data35,145,177,76,205,18,170,170,170,170
 1820 data170,170,170,170,170,170,170,169,41,141
 1830 data96,19,234,234,234,169,40,141,97,19
 1840 data32,32,19,169,1,141,97,19,234,234
 1850 data234,32,32,19,96,234,234,234,234,32
 1860 data127,223,165,138,201,255,16,11,24,173
 1870 data96,19,109,97,19,141,96,19,96,201
 1880 data255,16,1,96,56,173,96,19,237,97
 1890 data19,141,96,19,96,170,170,170,170,170
 1900 data170,170,170,170,170,170,170,0,1,2
 1910 data42,82,81,80,40,82,127,4,4,4
 1920 data82,127,0
    1 poke59468,12:poke537,136:print"{clr}john conway's game of  {CBM-+}   {CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}"
    2 printspc(23)"{CBM-+}   {CBM-+} {CBM-+}   {CBM-+}":printspc(23)"{CBM-+}   {CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+}":printspc(23)"{CBM-+}   {CBM-+} {CBM-+}   {CBM-+}"
    3 printspc(23)"{CBM-+}{CBM-+}{CBM-+} {CBM-+} {CBM-+}   {CBM-+}{CBM-+}{CBM-+}":print"rules:":print"if a live cell is surrounded by"
    4 print"two or three live cells in the present  generation it will remain live"
    5 print"in the next generation.":print"{down}{rght}{rght}{rght}{rght}{rght}if an empty cell is surrounded in
    6 print" the present generation by three neighbours a cell will be born";
    7 print" in the next generation.":print"{down}{rght}{rght}{rght}{rght}{rght}if a cell has <2 neighbouring";
    8 print" live cells it dies of loneliness and will not be present in the next"
    9 print" generation.":print"{down}{rght}{rght}{rght}{rght}{rght}if a cell has four or more neighbours it ";
   10 print"will die from overcrowding in the next generation. {rvon}press any key to cont."
   11 getpk$:ifpk$=""then11
   12 print"{clr}{down}{down}a live cell is shown by 'Q'"
   13 print"a dead cell is shown by ' '"
   14 print"to start a game design a pattern of":print" Q on the screen"
   15 print"and then type {rvon}sys6400{rvof} and press return":print"eg":printspc(15)"Q"
   16 printspc(15)"QQQ":printspc(14)"Q QQ{down} sys6400
   17 print"press return to start game or any key to see instructions again"
   19 getpk$:ifpk$=""thenpoke548,1:goto19
   20 poke548,1:ifpk$=chr$(13)then22
   21 goto1
   22 print"please wait"
  100 readl
  110 reada$:c=len(a$):ifa$="*"then210
  120 ifc<1orc>2then200
  130 a=asc(a$)-48:b=asc(right$(a$,1))-48
  140 n=b+7*(b>9)-(c=2)*(16*(a+7*(a>9)))
  150 ifn<0orn>255then200
  160 poke59409,52:pokel,n:poke59409,60:l=l+1:goto110
  200 print"byte "l" =["a$"] ???"
  210 print"the game starts now.":print"clear the screen and enter pattern"
  220 print"followed by {rvon}sys6400{rvof}":fori=1to4000:next:print"{clr}":poke537,133:end
  300 data6400
  310 data20,30,19,20,8a,19,20,e6,19,20,00,1a,a9,34,8d,11,e8
  320 data20,70,19,a9,3c,8d,11,e8,a9,ff,cd,12,e8,f0,e6,4c,8b,c3,aa,68,28,4c,8b,c3
  330 dataea,ea,ea,ea,ea,ea,ea,a2,19,bd,3a,19,95,1f,ca,d0,f8,60,00,80,00,15,00
  340 data80,00,1b,00,1b,d7,28,01,fe,d8,d6,29,27,00,e8,83,00,15,00,00
  350 dataea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea,ea
  360 dataea,ea,ea,ea,ea,20,a6,19,b1,26,d0,06,a9,20,91,20,d0,04,a9,51,91,20,20
  370 databd,19,f0,ed,20,a6,19,60,20,a6,19,b1,20,c9,51,f0,06,a9,00,91,26,f0
  380 data04,a9,01,91,26,20,bd,19,f0,eb,20,a6,19,60,a9,00,aa,a8,85,20,85,26,85
  390 data39,a5,25,85,21,a5,29,85,27,a5,36,85,3a,60,e6,26,e6,20,e6,39,e8,e4
  400 data33,f0,0c,e0,00,d0,0e,e6,27,e6,21,e6,3a,d0,06,a5,34,c5,21,f0,03,a9,00
  410 data60,a9,01,60,ea,ea,ea,ea,ea,ea,20,a6,19,b1,26,d0,06,a9,20,91,39,d0
  420 data04,a9,51,91,39,20,bd,19,f0,ed,20,a6,19,60,20,a6,19,20,2f,1a,b1,39,c9
  430 data51,f0,0c,a5,32,c9,03,d0,14,a9,01,91,26,d0,0e,a5,32,c9,03,f0,08,c9,02
  440 dataf0,04,a9,00,91,26,20,bd,19,f0,d8,20,a6,19,60,98,48,8a,48,a0,00,84,32
  450 dataa2,08,b5,29,10,15,49,ff,85,37,38,a5,39,e5,37,85,22,a5,3a,85,23,b0,11
  460 datac6,23,d0,0d,18,65,39,85,22,a5,3a,85,23,90,02,e6,23,b1,22,c9,51,d0,02
  470 datae6,32,ca,d0,cf,68,aa,68,a8,60,*
    0 clr:poke59468,12
    1 rem fball copyright (c) 1979 mark pelczarski
    2 rem cursor #7, february 1979
    3 rembox 550, goleta, ca. 93017
    4 :
   10 rem as of 1 apr 80
   90 pg$="fball":nm$="7":gosub62000
  100 dimtm$(1),tm(1)
  110 print"man{$a0}vs. (1) machine, or (2) man? ";
  120 gosub4700:pl=tt
  130 print"{down}length of quarter (4 min. is normal)? ";
  140 gosub4700:tq=tt
  150 input"{down}{down}what is the home team's name";w$:tm$(0)=w$
  160 input"{down}visiting team's name";x$:tm$(1)=x$
  170 print"{clr}"
  260 x=50:gosub2999
  300 print"coin toss: type 'h' or 't'
  304 q=1:x9=32:y9=7:gosub4100:print"qtr ";q;"{home}{down}"
  310 gosub4650
  315 gosub4999
  320 ifrnd(1)>.5then380
  360 printx$;" won the toss.":tw=1:goto382
  380 printw$;" won the toss.":tw=0
  382 ti$="000000":s=0:print"the opening kickoff!
  384 gosub2550:gosub4999
  386 iftw=1then1820
  390 x=23+(-1)^int(rnd(1)*2+1)*int(rnd(1)^3*23)
  395 printw$;"' ball on their own";x
  400 p=1:x1=x:d=1:goto1960
  450 gosub3100
  455 t=0:pl$="offense":gosub3500:o=tt:ifth=1then580
  468 de=0
  469 ifpl=1then480
  470 gosub4999
  471 t=1:pl$="defense":gosub3500:de=tt:ifth=1then580
  480 ifs=1thens=0:ti$=t$
  500 gosub4999:r=rnd(1)
  570 ifde=othenr=.94*r
  575 goto760
  580 rem
  590 th=0
  600 iftw=1then390
  610 goto1820
  760 r1=rnd(1):f=0
  800 onogoto980,980,1100,1250,860,860
  860 rem
  870 y=int(r*30+30)
  880 ifo=6then2710
  890 ifd=4then910
  900 y=int(y*1.3)
  910 print"punt good for ";y;" yards
  920 ifd<4then960
  930 y1=int(r1^2*20)
  940 print"run back of ";y1;" yards
  950 y=y-y1
  960 f=-1:gosub2550:ifth=1then580
  970 goto1420
  980 rem
  990 print"running play ";:ifo=2then1050
 1000 y=int(24*(r-.5)^3+3)
 1010 ifr1<.05then1070
 1020 goto1310
 1050 y=int(20*r-5)
 1060 ifr1>.07then1310
 1070 f=-1
 1080 print"fumble after ";:goto1310
 1100 rem
 1105 y=int(160*(r1-.5)^3+7.5)
 1110 ifr<.05then1160
 1120 ifr<.15then1220
 1130 ifr<.55then1190
 1140 print"pass complete. ";:goto1310
 1160 print"pass intercepted!!":f=-1
 1170 gosub2550:ifth=1then580
 1180 goto1420
 1190 print"pass incomplete. ";
 1200 y=0:goto1310
 1220 print"quarterback sacked. ";
 1230 y=-int(10*r1):goto1310
 1250 rem
 1260 y=int(160*(r1-.5)^3+30)
 1270 ifr1<.1then1160
 1280 ifr1<.25then1220
 1290 ifr1<.7then1190
 1300 goto1140
 1310 rem
 1320 x2=x+p*y
 1330 ifx2>=100then1500
 1340 ifx2<=0then2100
 1350 ify<0then1390
 1360 ify=0then1410
 1370 print"gain of ";y:goto1420
 1390 print"loss of ";-y:goto1420
 1410 print"no gain"
 1420 x=x+p*y
 1430 ifx<=0then2100
 1440 ifx>50then1470
 1450 print"ball on ";w$;"'";x;:goto1680
 1470 ifx>=100then1500
 1480 print"ball on ";x$;"'";100-x;:goto1680
 1500 ifp<0then1580
 1510 iff<0then1560
 1520 gosub3200:p=-1:gosub2630
 1530 ifth=1then580
 1550 goto1820
 1560 print"{home}{down}{down}touchback for ";x$
 1561 gosub2550:ifth=1then580
 1562 x=80:goto1830
 1580 iff<0then1650
 1590 print"safety":gosub2540:ifth=1then580
 1600 x=40+(-1)^int(rnd(1)*2+1)*int(rnd(1)^3*10)
 1610 printw$"' ball on their own";x
 1620 p=1:goto1850
 1650 gosub3200
 1660 gosub2630:ifth=1then580
 1670 goto1820
 1680 d=d+1
 1690 iff>=0then1780
 1700 ifp>0then1750
 1720 printw$;"' ball":p=1:goto1850
 1750 printx$;"' ball":goto1840
 1780 ifp*(x-x1)>=10then1850
 1790 ifd<5then1960
 1800 ifp<0then1720
 1810 goto1750
 1820 x=77+(-1)^int(rnd(1)*2+1)*int(rnd(1)^3*23)
 1830 printx$;"' ball on their own";100-x
 1840 p=-1
 1850 d=1
 1860 print"first and 10"
 1870 ifp<0then1910
 1880 ifx<90then1940
 1890 x1=90:goto2070
 1910 ifx>10then1940
 1920 x1=10:goto2070
 1940 x1=x:goto2070
 1960 ondgoto2000,2020,2040,2060
 2000 print"first and";10+p*(x1-x):goto2070
 2020 print"second and";10+p*(x1-x):goto2070
 2040 print"third and";10+p*(x1-x):goto2070
 2060 print"fourth and";10+p*(x1-x)
 2070 ifp>0then450
 2090 goto2280
 2100 iff<0then2220
 2110 ifp>0then2160
 2120 gosub3200:p=1:gosub2630
 2130 ifth=1then580
 2150 goto390
 2160 print"safety!!":gosub2540
 2170 ifth=1then580
 2180 x=60+(-1)^int(rnd(1)*2+1)*int(rnd(1)^3*10)
 2185 printx$"' ball on their own";100-x
 2190 p=-1:goto1850
 2220 ifp>0then2250
 2230 print"{home}{down}{down}touchback for the ";w$
 2235 gosub2550:ifth=1then580
 2240 x=20:goto395
 2250 gosub3200
 2260 gosub2630:ifth=1then580
 2270 goto390
 2280 p=-1:gosub3100:ifpl=1then2290
 2281 t=1:pl$="offense":gosub3500:o=tt:ifth=1then580
 2289 gosub4999:goto2520
 2290 ifq<4ors(1)>s(3)then2299
 2291 iftq*100-val(ti$)>100then2299
 2293 ifx>35then2490
 2294 ifs(3)-s(1)>3then2440
 2295 ifval(right$(ti$,2))<50andd<4then2300
 2296 o=6:goto2520
 2299 ifd>1then2350
 2300 ifrnd(1)>.333then2330
 2310 o=3:goto2520
 2330 o=1:goto2520
 2350 ifd<4then2420
 2360 ifx<=35then2390
 2370 o=5:goto2520
 2390 ifx1-x>7then2300
 2400 o=6:goto2520
 2420 ifx1-x>5then2300
 2430 ifx>x1then2490
 2440 ifrnd(1)>.5then2470
 2450 o=2:goto2520
 2470 o=4:goto2520
 2490 ifrnd(1)>.25then2470
 2500 o=2
 2520 t=0:pl$="defense":gosub3500:de=tt:ifth=1then580
 2521 goto480
 2530 rem keep score
 2540 s(2-p)=s(2-p)+2
 2550 print"<press any key>"
 2560 y9=7:x9=8:gosub4100:printw$;s(3);" ";x$;s(1);"{home}";
 2570 geta$:gosub6000:ifa$=""then2570
 2580 gosub4999
 2620 return
 2630 ifrnd(1)>.8then2670
 2640 print"kick is good"
 2650 s(2-p)=s(2-p)+7:goto2550
 2670 gosub3300
 2680 s(2-p)=s(2-p)+6:goto2550
 2710 rem field goal
 2720 print"place kick":f=-1
 2740 ifr>.15then2770
 2750 print"kick is blocked!!!"
 2755 gosub2550
 2760 onp+2goto2910,2910,2810
 2770 ifp<0then2880
 2780 ifx+y>=110then2840
 2800 gosub3300:gosub2550
 2810 ifx>80thenx=80
 2820 goto1830
 2840 print"field goal!"
 2850 s(3)=s(3)+3:gosub2550:goto1820
 2880 ifx-y<=-10then2920
 2900 gosub3300:gosub2550
 2910 ifx<20thenx=20
 2915 goto395
 2920 print"field goal!"
 2930 s(1)=s(1)+3:gosub2550:goto390
 2999 as=asc("{SHIFT-*}")-128
 3000 foryp=0to14step14
 3010 forxp=2to38
 3030 gosub4000
 3040 nextxp
 3050 nextyp
 3055 as=asc("{SHIFT--}")-128
 3060 forxp=2to38step3
 3070 foryp=1to13
 3072 gosub4000
 3074 nextyp
 3076 nextxp
 3080 foryp=3to11step8
 3082 forxp=5to35
 3084 gosub4000
 3086 nextxp
 3088 nextyp
 3090 y9=23:x9=8:gosub4100
 3092 print"1{rght}{rght}2{rght}{rght}3{rght}{rght}4{rght}{rght}5{rght}{rght}4{rght}{rght}3{rght}{rght}2{rght}{rght}1",
 3094 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{rght}{rght}0{home}";
 3100 rem
 3102 yp=7:xp=xq:as=asc(" "):gosub4000
 3104 yp=15:gosub4000
 3105 ifd<>1then3108
 3106 xp=xr:gosub4000:xp=xs:gosub4000
 3107 xr=int(.3*x)+5:xs=xr+p*3
 3108 as=asc("{SHIFT--}")-128
 3109 xp=xr:gosub4000:xp=xs:gosub4000
 3118 yp=7
 3119 forxp=2to38step3
 3120 gosub4000
 3130 nextxp
 3150 xp=int(.3*x)+5
 3160 as=asc("Z")-128
 3170 gosub4000
 3175 yp=15:as=asc(right$(str$(d),1))+128:gosub4000
 3180 xq=xp
 3190 return
 3200 print"touchdown!":return
 3300 print"kick is off to the side - no good!":return
 3500 printtm$(t);"' ";pl$;"?   ";
 3510 geta$:gosub6000:ifth=1thenreturn
 3520 ifa$=""then3510
 3530 tt=asc(a$)-48:iftt<1ortt>7then3510
 3540 iftt<>7thenreturn
 3550 iftm(t)=3thengosub4500:goto3500
 3560 tm(t)=tm(t)+1:s=1:t$=ti$:goto3510
 4000 poke33728+xp-40*yp,as
 4010 return
 4100 print"{home}";
 4110 fori=1tox9:print"{rght}";:nexti
 4120 fori=1toy9:print"{down}";:nexti
 4130 return
 4500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}  {rvon}no timeouts left"
 4505 fori=1to500:nexti
 4520 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}                  {home}";
 4530 return
 4600 gettt$:gosub6000:iftt$=""then4600
 4610 return
 4650 printtab(10);"(press any key)";
 4660 tt=s:s=1:t$=ti$:gosub4600:ti$=t$:s=tt:return
 4700 s=1:gosub4600:iftt$<"1"ortt$>"9"then4700
 4710 tt=asc(tt$)-48:printtt$:return
 4999 print"{home}";
 5000 fori=1to5
 5010 print"                                        "
 5020 nexti
 5025 print"{home}";
 5030 return
 6000 rem timing
 6005 ifs=1thenreturn
 6010 ts$=ti$:ifval(ts$)<tq*100then6100
 6012 ifq=4then6300
 6015 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}end of quarter{home}{rvof}";
 6020 q=q+1:y9=7:x9=36:gosub4100:printq
 6021 ifq<>3then6030
 6022 gosub4999
 6023 th=1:print"the second half kickoff!!!"
 6024 print"<press any key>":nh=0:nv=0
 6030 geta$:ifa$=""then6030
 6040 ts$="000000":ti$=ts$
 6080 ifq=3thengosub4999
 6100 tm=tq-1-val(mid$(ts$,4,1))
 6110 ts=59-val(right$(ts$,2))
 6115 ts$=str$(ts):ifts<10thents$=" 0"+right$(ts$,1)
 6120 print"{home}{down}{down}{down}{down}{down}{down}{down}";str$(tm);":";ts$;"{home}";
 6200 return
 6300 gosub4999:print"end of game"
 6310 print"another game? ":s=1:gosub4600:iftt$="n"thenend
 6320 clr:print"{clr}":goto100
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #7  fball"
 62002 print"{down}copyright (c) 1979  by mark pelczarski"
 62004 gosub 60500
 62010 print"{down}your personal football stadium
 62100 print"{down}{down}offensive plays: 1-run, 2-sweep,
 62110 print" 3-screen pass, 4-long pass, 5-punt
 62120 print" 6-field goal attempt, 7-timeout
 62140 print"{down}defensive plays: 1-hold, 2-normal
 62150 print" 3-blitz, 4-intercept, 5-punt return
 62160 print" 6-block kick, 7-timeout
 62180 print"{down}each side has three timeouts per half.
 62190 print"after a timeout is called, restart the
 62200 print"clock by calling your play.
 62230 print"{down}{down}press{$a0}{rvon}return{rvof} to begin:
 62240 gett$:ift$=""then62240
 62250 print"{clr}";:return
    0 clr:poke59468,12
    1 rem ferry copyright (c) 1979 john matarella
    2 rem 7950 covington ave.
    3 rem glen burnie, md 21061
    4 :
    5 rem cursor #13, september, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of sept 24 79
   90 pg$="ferry":nm$="13":gosub62000
  100 cl=59468:ms=2
  110 deffnr(x)=int(rnd(1)*x+1)
  120 r=5:ns=5
  130 sd=0:print"{down}{down}want sound? ";:gosub60000
  150 ifleft$(in$,1)="y"thensd=16
  310 print"{down}how hard (1=easy, 9=hard) ? ";:gosub60000
  320 ifin$=""thenin$=str$(r)
  330 r=val(in$):ifr<1orr>9goto310
  335 sf=(r-1)/8*(ms-1)+1
  340 td=0:w=0:yy=0:l=0:t=0:tl=0
  350 p=32768+r*80
  360 ss=p
  370 print"{clr}
  380 fori=1to24:printtab(fnr(37)+1);".{up}":printtab(fnr(37)+1);".":nexti
  400 t=t+1:cc=0
  405 poke59467,sd:poke59464,0:poke59466,15
  420 cc=cc+1
  430 pokep,62
  440 op=p
  450 a=peek(qp)
  455 xy=15:xx=255:ifa=41ora=42thenxx=128+ss-p:xy=9:ifa=42thenxy=5
  460 poke59464,xx:poke59466,xy
  465 ifa=41thenp=p+1
  466 ifa=42thenp=p-1
  480 ifp>=ss+39then710
  490 ifp<ssthenp=ss
  500 pokeop,32
  520 printtab(fnr(37)+1);".{up}":printtab(fnr(37)+1);"."
  530 ifpeek(p)<>46then420
  570 l(t)=p-ss
  575 print"{home}";tab(25);"you blew it!":printtab(25);"ship #";t
  580 pokecl,12
  590 poke59467,sd:poke59466,15
  600 fori=50to250step3
  610 pokep,42
  620 poke59464,i
  630 pokep,62
  640 nexti
  670 goto730
  710 pokeop,32:xx=0
  715 print"{home}";tab(25);"success!":printtab(25);"ship #";t
  720 pokeql,24
  725 w=w+1:l(t)=40
  730 poke59466,0:poke59467,0
  735 ifpeek(qp)<>255then735
  740 pokep,32
  745 gett$:ift$<>""then745
  750 d=((p-ss)^2)/cc:td=td+d:gosub1300:print"{home}score:";yy
  755 d=td:gosub1300:print"total so far:";yy
  760 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}press any key to ";
  765 ift=nsthenprint"see summary.
  770 ift<nsthenprint"launch next ship.
  775 gett$:ift$=""then775
  780 ift<nsthenp=ss:goto350
  800 print"{clr}{down}you were given";t;"ships to pilot to
  805 print"the asteroid base. ";w;"ships survived.
  810 d=td:gosub1300
  815 ifw=0andsd>0thengosub900
  830 print"{down}{down}your score=";yy
  835 ifyy>hythenhy=yy
  837 print"{down}{down}highest score= ";hy
  850 gett$:ift$<>""then850
  860 print
  870 print"do you want to play again? ";
  875 gosub60000
  885 ifleft$(in$,1)<>"n"goto310
  890 end
  900 restore:a=20
  905 print"{down}we shall now honor those computers that
  906 print"gave their lives for the training of
  907 print"this (ahem...) pilot.
  910 poke59467,16:poke59464,0:poke59466,104
  920 readc,t,z
  930 t=t*a:z=z*a
  940 poke59464,c:fori=1tot:nexti
  950 poke59464,0:fori=1toz:nexti
  960 ifz>0then920
  970 poke59466,0:poke59467,0:return
 1200 data237,10,1,237,5,1,177,20,5,237,10,1,177,5,1,140,20,5
 1210 data237,10,1,177,5,1,140,15,2,237,10,1,177,5,1,140,15,2
 1220 data237,10,1,177,5,1,140,25,5,177,10,1,140,5,1,118,25,1
 1230 data140,20,1,177,15,1,237,25,1,237,20,1,237,10,1,177,25,0
 1300 yy=int((d*sf)/(39*ms*ns)*1000):return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by john matarella{down}
 62020 gosub60500
 62030 print"{down}carry supplies to the asteroid outpost
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=3:gosub60200
 62110 print"far out in the asteroids, a small group
 62120 print"{down}of people have set up a mining company.
 62130 print"{down}like most other people, they need to eat
 62140 print"occasionally.  you have been given the
 62150 print"{down}responsibility of delivering needed
 62160 print"{down}supplies to the base out in the aster-
 62170 print"{down}oids.
 62180 gosub60200
 62190 print"since piloting through the asteroid belt
 62200 print"is hazardous, and there are too few
 62210 print"{down}people involved to allow any risk to
 62220 print"{down}life, remote control ships{up}{left}{CBM-T}{CBM-T}{CBM-T}{left}{left}{down} are used.
 62230 print"{down}{down}your task is to navigate the supply
 62240 print"{down}ships through the asteroids to the base.
 62250 print"there are five ships, and they fly one-
 62260 print"{down}at-a-time (the easier to control them).
 62270 gosub60200
 62280 print"your screen will show you the path of a
 62290 print"{down}ship, and the asteroids that it passes.
 62300 print"{down}to move the ship forward (right), press
 62310 print"{down}the {rvon}6{rvof}{left}{up}{CBM-@}{down} key, and to move it back (left)
 62320 print"{down}press the {rvon}4{rvof}{left}{up}{CBM-@}{down} key.
 62330 print"{down}{down}you will be awarded a rating depending
 62340 print"{down}on how quickly you get the supplies
 62350 print"{down}through, and how few ships you destroy.
 62360 printtab(14);"{down}{down}good luck!
 62370 gosub60200
    0 clr:poke59468,12
    1 rem fifteen copyright (c) 1979 david platton
    4 :
    5 rem cursor #15, november, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 17-dec-79 11:00 pm
   90 pg$="fifteen":nm$="15":gosub62000
  100 dima(16),b(16):tb=8
  120 print"{clr}{down}{down}"tab(tb)"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  130 fori=1to4:forj=1to3:printtab(tb);"{SHIFT--}    {SHIFT--}    {SHIFT--}    {SHIFT--}    {SHIFT--}":nextj
  140 ifi<4thenprinttab(tb);"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  150 nexti:printtab(tb);"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
  160 fori=1to16:a(i)=i:nexti
  170 fori=15to2step-1:j=rnd(1)*i+1:t=a(j):a(j)=a(i):a(i)=t:nexti
  180 fori=1to16:b(i)=a(i):ifb(i)=16thenbs=i
  190 nexti
  200 c=0:fori=1to16
  210 ifa(i)<>ithent=a(i):a(i)=a(t):a(t)=t:c=c+1:goto210
  220 nexti
  230 if(cand1)=0then270
  240 i=int(rnd(1)*16)+1:ifb(i)=16then240
  250 j=int(rnd(1)*16)+1:ifb(j)=16ori=jthen240
  260 t=b(i):b(i)=b(j):b(j)=t
  270 print"{home}":print"{down}{down}{down}";
  280 fori=1to16step4:forj=0to3:printtab(tb+j*5+2);
  290 ifb(i+j)<16thenprintright$(str$(b(i+j)),2);
  300 nextj:n=0:print"{down}{down}{down}":nexti:pokeql,22:print"{up}"tab(13)n;"moves"
  310 getz$:ifz$=""then310
  320 ifz$<"2"orz$>"8"then310
  330 ifval(z$)and1then310
  340 onval(z$)/2goto410,390,370,350
  350 t=bs+4:ift>16then310
  360 goto420
  370 t=bs-1:if(3andt)=0then310
  380 goto420
  390 t=bs+1:if(3andbs)=0then310
  400 goto420
  410 t=bs-4:ift<1then310
  420 b(bs)=b(t):b(t)=16
  430 i=int((bs-1)/4):j=bs-i*4
  440 pokeql,i*4+5:print"{up}"tab(tb+j*5-3)right$(str$(b(bs)),2)
  450 i=int((t-1)/4):j=t-i*4
  460 pokeql,i*4+5:print"{up}"tab(tb+j*5-3)"  "
  470 bs=t:n=n+1:pokeql,22:print"{up}"tab(13)str$(n);" move";:ifn>1thenprint"s";
  475 print" ":ifbs<16then310
  480 fori=1to16:ifb(i)<>ithen310
  490 nexti:pokeql,21:print"{up}"tab(14)"solved in{down}{down}"
  600 print"do you want to play again? ";:gosub60000:ifleft$(in$,1)<>"n"then120
  700 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 ql=245:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 ql=216
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by david platton{down}
 62020 gosub60500
 62030 print"{down}the fifteen puzzle
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 gett$:ift$=""then62050
 62060 goto60300
  100 rem***fighter pilot***
  110 gosub740
  120 print"{clr}"
  130 t=ti:sc=0:s=0
  140 fori=1to25:poke32788+40*i,66:next
  150 fori=1to40:poke33287+i,64:poke32768+i,160:next
  160 c=33308
  170 pokec,87
  180 a=32868
  190 b1=peek(a-2):b2=peek(a-1):b3=peek(a):b4=peek(a+1):b5=peek(a+2)
  195 b6=peek(a-40)
  200 rem***checks screen***
  210 pokea-2,70:pokea-1,70:pokea,90:pokea+1,70:pokea+2,70:pokea-40,93
  220 rem***puts in enemy plane***
  230 forn=1to50:next
  240 print"{rvon}{home}fuel";30-int((ti-t)/60)/10;" ";tab(17)"score";sc;tab(30)"shots";s
  250 print"{rvon}{home}";tab(11);"gals"
  260 getx$:ifval(x$)<>0then410
  270 rem***checks aim***
  280 ifpeek(152)=1thenb7=peek(c):pokec,42:fori=1to10:next:pokec,b7:s=s+1
  290 ifpeek(152)=1andpeek(c)<>87thengosub520
  300 ifs>249thenprint"out of ammunition run like hell for home":goto680
  310 if(ti-t)/60>300thenprint"you're out of fuel,break off":goto680
  320 rem***checks for fire***
  330 n=-41+int(rnd(1)*3)+int(rnd(1)*3)*40
  340 rem***enemy avoiding action***
  350 pokea-2,b1:pokea-1,b2:pokea,b3:pokea+1,b4:pokea+2,b5:pokea-40,b6
  360 a=a+n+aim
  370 ifa<32811thena=a+80
  380 ifa>33724thena=a-80
  390 rem***calc new enemy position***
  400 goto190
  410 ifval(x$)=1thenaim=-39
  420 ifval(x$)=2thenaim=-40
  430 ifval(x$)=3thenaim=-41
  440 ifval(x$)=4thenaim=1
  450 ifval(x$)=5thenaim=0
  460 ifval(x$)=6thenaim=-1
  470 ifval(x$)=7thenaim=41
  480 ifval(x$)=8thenaim=40
  490 ifval(x$)=9thenaim=39
  500 goto290
  510 rem***aim correction***
  520 ifpeek(c)=70orpeek(c)=93thenii=2
  530 ifpeek(c)=90thenii=5
  540 sc=sc+ii
  550 fori=1toii
  560 pokec-39,42:pokec-41,42:pokec+41,42:pokec+39,42
  570 ifsc>49then640
  580 forj=1to25:nextj
  590 pokec-39,32:pokec-41,32:pokec+41,32:pokec+39,32
  600 forj=1to10:nextj
  610 next
  620 return
  630 rem***hit subroutine***
  640 t1=int((ti-t)/60)
  650 print"{home}";tab(17)"{rvon}score";sc
  660 print"enemy plane destroyed in";t1;"seconds"
  670 print"using";s;"rounds of ammunition"
  680 print"toplay again press {rvon} space {rvof}"
  690 print"to stop press {rvon} 0 {rvof}"
  700 gety$:ify$="0"thenstop
  710 ify$=" "then120
  720 goto700
  730 rem***final display***
  740 print"{clr}{up}{up}";tab(7)"{rvon}{CBM-D}{CBM-I}{CBM-I}{rvof} {CBM-K} {rvon}{CBM-D}{CBM-I}{CBM-I}{rvof} {CBM-K} {rvon} {rvof} {rvon}{CBM-F}{CBM-I}{rvof} {rvon}{CBM-D}{CBM-I}{rvof} {rvon}{CBM-D}{CBM-I}{rvof}{CBM-K}
  750 printtab(7)"{rvon}{CBM-D}{CBM-I}{rvof}{CBM-V} {CBM-K} {CBM-K} {CBM-I} {rvon}{CBM-D}{CBM-I}{CBM-F}{rvof} {CBM-L}  {rvon}{CBM-D}{CBM-I}{rvof} {rvon}{CBM-D}{CBM-F}{rvof}{CBM-V}
  760 printtab(7)"{CBM-K}   {CBM-K} {rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-V}{rvof} {CBM-K} {rvon} {rvof} {CBM-L}  {rvon}{CBM-C}{rvof}{CBM-I} {CBM-K} {CBM-B}
  770 print:print
  780 printtab(11)"{rvon}{CBM-D}{CBM-I}{CBM-F}{rvof} {CBM-K} {CBM-K}   {rvon}{CBM-D}{CBM-I}{CBM-F}{rvof} {rvon}{CBM-F}{CBM-I}{CBM-I}{rvof}"
  790 printtab(11)"{rvon}{CBM-D}{CBM-I}{CBM-I}{rvof} {CBM-K} {CBM-K}   {CBM-K} {rvon}{CBM-K}{rvof}  {CBM-K}"
  800 printtab(11)"{CBM-K}   {CBM-K} {rvon}{CBM-C}{rvof}{CBM-I}{CBM-I} {rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-V}{rvof}  {CBM-K}"
  810 print:print
  820 xx$="you are the pilot of a spitfire":gosub1110
  830 xx$="ahead of you is an m.e.109":gosub1110
  840 xx$="he is taking avoiding action,and you":gosub1110
  850 xx$="must try to shoot him down":gosub1110
  860 xx$="your guns are fired by pressing the":gosub1110
  870 xx$=" {rvon} shift {rvof} key":gosub1110
  880 print:xx$="you can change your aim using the":gosub1110
  890 xx$="numeric keypad as follows":gosub1110
  900 print:print:xx$=" press {rvon} space {rvof} to continue":gosub1110
  910 gety$:ify$=" "then930
  920 goto910
  930 print"{clr}{up}{up}":xx$="the top row of numbers make your plane":gosub1110
  940 xx$="climb":gosub1110
  950 xx$="the bottom row make you plane dive":gosub1110
  960 xx$="the left row turn you to the left":gosub1110
  970 xx$="the right row to the right":gosub1110
  980 xx$=" the {rvon} 5 {rvof} key centralises your controls":gosub1110
  990 print:xx$="7 8 9":gosub1110
 1000 print:xx$="4 5 6":gosub1110
 1010 print:xx$="1 2 3":gosub1110
 1020 print:xx$="you cannot alter course whislt firing":gosub1110
 1030 xx$="your guns":gosub1110
 1040 print:xx$="the object of the game is to score":gosub1110
 1050 xx$="50 points":gosub1110
 1060 print:xx$="a hit on the wing or tail scores 2":gosub1110
 1070 xx$="a fuselage hit scores 5":gosub1110
 1080 print:xx$=" press {rvon} space {rvof} to start the game":gosub1110
 1090 gety$:ify$=" "thenreturn
 1100 goto1090
 1110 printtab((40-len(xx$))/2);xx$:return
    5 rem zone x  by bill finzer
   10 rem     october, 1978
   11 poke 59468,12
   12 print"{clr}{down}{down}{down}{down}"
   16 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   18 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   20 print"     {CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+}
   22 print"    {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   24 print"   {CBM-+}{CBM-+}{CBM-+}     {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}
   26 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   28 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   30 print"
   32 print"         V       VV
   34 print"        VVV     VVV
   36 print"         VVV   VVV
   38 print"          VVV VVV
   40 print"           VVVVV
   42 print"            VVV
   44 print"           VVVVV
   46 print"          VVV VVV
   48 print"         VVV   VVV
   50 print"         VV     VV
   60 print
  200 rem main calling routine
  210 gosub 500: rem initialize
  220 gosub 1000 : rem instructions
  230 gosub 1500 : rem draw grid
  240 gosub 1700 : rem draw guess chart
  250 gosub 2000:  rem hide lines and                       color regions
  260 gosub 2500 : rem input guess and                      display clue
  270 gosub 3000 : rem a win! display                      and fill out grid
  280 if a$="n" then end
  290 gosub 500
  300 goto 230
  500 rem initialize
  510 p=rnd(-ti)
  520 moves = 1
  530 l=4 : rem line# -1 for input
  540 return
 1000 rem instructions
 1010 print"what is your name? ";
 1020 gosub 5500: n$=b$
 1030 print:print"well "n$" do you want instructions?";
 1040 gosub 5000
 1050 if a$="n" then 1490
 1060 print"{clr}";tab(10)"zone x instructions{down}"
 1070 gosub 1500 : rem draw grid
 1080 print"{home}{down}i'm going to draw
 1090 print"two lines on this grid.
 1100 print:print"you are to find where
 1110 print"the two lines cross.
 1120 print:print"to help you, i've
 1130 print"colored the 4 regions
 1140 print"created by the lines
 1150 print" {CBM-+} , {rvon}W{rvof} , {rvon}V{rvof} , and {rvon}{SHIFT-+}{rvof}"
 1170 print"you guess a point":print "on the grid by
 1180 print"telling me its":print "coordinates (how far
 1190 print"over and how far up)":print"and i'll tell you
 1200 print"what color region":print"it is in.
 1210 print:print" {rvon} {rvof} means the point is on the line
 1220 print:print"press any key to go on."
 1225 poke 158,0
 1330 gosub 5000
 1490 return
 1500 rem draw grid
 1501 print"{clr}"
 1502 t=20
 1510 printtab(t)" 15*...............
 1520 printtab(t)"   {SHIFT-+}...............
 1530 printtab(t)"   {SHIFT-+}...............
 1540 printtab(t)"   {SHIFT-+}...............
 1560 printtab(t)"   {SHIFT-+}...............
 1570 printtab(t)" 10*...............
 1580 printtab(t)"   {SHIFT-+}...............
 1590 printtab(t)"   {SHIFT-+}...............
 1600 printtab(t)"   {SHIFT-+}...............
 1610 printtab(t)"   {SHIFT-+}...............
 1620 printtab(t)"  5*...............
 1630 printtab(t)"   {SHIFT-+}...............
 1640 printtab(t)"   {SHIFT-+}...............
 1650 printtab(t)"   {SHIFT-+}...............
 1660 printtab(t)"   {SHIFT-+}...............
 1670 printtab(t)"  0*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*
 1680 printtab(t)"   0    5    10  15
 1690 return
 1700 rem draw guess chart
 1710 print"{home}     zonex
 1720 print"{down}"n$"'s
 1730 print"guess  B clue
 1740 print" x,y   B
 1750 for i=1 to 18
 1760 print"       B
 1770 next i
 1780 return
 2000 rem hide lines and color regions
 2010 px=int(rnd(1)*12)+3:rem intersection
 2020 py=int(rnd(1)*12)+3:
 2030 lx=int(rnd(1)*15)+1:rem lines
 2040 ly=int(rnd(1)*15)+1
 2050 rem color the regions
 2060 r1=int(rnd(1)*4)+1
 2070 r2=int(rnd(1)*4)+1:if r2=r1 then 2070
 2080 r3=int(rnd(1)*4)+1
 2090 if r3=r2 or r3=r1 then 2080
 2100 r4=int(rnd(1)*4)+1
 2110 if r4=r1 or r4=r2 or r4=r3 then 2100
 2120 c$(r1)="{rvon}W{rvon}"
 2130 c$(r2)="{rvon}V{rvof}"
 2140 c$(r3)="{rvon}{SHIFT-+}{rvof}"
 2150 c$(r4)="{CBM-+}"
 2160 c$(5)="{rvon} {rvof}"
 2170 x1=px:y1=py:x2=lx:y2=0
 2175 gosub 7000:t1=theta
 2180 x2=0:y2=ly
 2190 gosub 7000:t2=theta
 2195 if int((t2+~)*1000)=int(t1*1000)        then 2000
 2200 return
 2500 rem input guess and display clues
 2510 if l>20 then l=4
 2520 poke 216,l:print
 2525 print"       "tab(9)"      ":print"{up}";
 2530 moves = moves +1
 2540 l=l+1
 2542 gosub 5500
 2544 i1=0
 2546 for i=1 to 10
 2548 if mid$(b$,i,1)="," then i1=i
 2550 next i
 2551 if i1=0 thenprint"illegal":print"move":l=l+2:goto 2540
 2552 x=val(left$(b$,i1))
 2554 y=val(right$(b$,len(b$)-i1))
 2560 ifx<0ory<0 or x>15 or y>15 thenprint"illegal":print"move":l=l+2:goto 2540
 2570 rem find region
 2580 if x=px and y=py then 2790 :rem           got it!
 2590 gosub 2800 locate region
 2600 print"{up}"tab(9)c$(r)
 2610 gosub 6500: printc$(r):rem print clue       on graph
 2620 goto 2510
 2790 return
 2800 rem isolate which region
 2810 x1=x:y1=y
 2820 x2=lx:y2=0
 2830 gosub 7000:ax=theta
 2835 if theta=-100 then r=5: goto 2990
 2840 x2=0:y2=ly
 2850 gosub 7000:ay=theta
 2855 if theta=-100 then r=5: goto 2990
 2870 if ax=t1 or ay=t2 then r=5:goto         2990
 2880 if ax<t1 and ay<t2 then r=1:goto         2990
 2890 if ax<t1 and ay>t2 then r=2:goto         2990
 2900 if ax>t1 and ay>t2 then r=3:goto         2990
 2910 if ax>t1 and ay<t2 then r=4:goto         2990
 2990 return
 3000 rem display for win
 3002 for i= 1 to 4
 3004 poke59409,52
 3005 t9=ti
 3006 if ti<t9+30 then 3006
 3007 poke59409,60
 3008 next i
 3010 print"{up}"tab(9)"you got it!"
 3015 printtab(9)"in"moves-1"moves!"
 3050 for x=0 to 15
 3060 for y=0 to 15
 3070 gosub 2800
 3080 gosub 6500:printc$(r)
 3090 next y
 3100 next x
 3110 x=px:y=py
 3120 gosub 6500
 3122 for i= 1 to 10
 3124 print"{rvon} {rvof}{left}";
 3125 t9=ti
 3126 if ti<t9+30 then 3126
 3127 print" {left}";:if ti<t9+60  then 3127
 3128 next i
 3129 print"{rvon} {rvof}"
 3130 poke216,l+1:print
 3140 print"play again "n$"?";
 3150 gosub 5000
 3160 return
 5000 rem get a single character
 5010 t=ti
 5012 ifti<t+30thenprint"{CBM-+}{left}";:goto5020
 5014 ifti<t+60thenprint" {left}";:goto5020
 5016 t=ti
 5020 get a$: if a$=""then 5012
 5030 print" {left}";
 5040 return
 5500 rem build up a string. don't accept     empty string
 5510 b$=""
 5520 gosub 5000  :rem get character
 5530 if b$="" and a$=chr$(13) then 5520
 5540 printa$;
 5550 if a$=chr$(13)then 5580
 5560 b$=b$+a$
 5570 goto 5520
 5580 return
 6500 rem move cursor to x,y on grid
 6510 if 16-y<0 then print"{home}";: goto 6530
 6520 poke 216, 15-y: print
 6530 printtab(x+23);
 6540 return
 7000 rem find angle theta frompoint 2            to point 1
 7010 if x1=x2 and y1=y2 then theta=-100:       goto 7490
 7020 if x1=x2 and y1<y2 then theta=-~/2:       goto 7490
 7030 if x1=x2 and y1>y2 then theta= ~/2:       goto 7490
 7040 if y1=y2 and x1>x2 then theta= 0  :       goto 7490
 7050 if y1=y2 and x1<x2 then theta= ~  :       goto 7490
 7060 theta = atn((y1-y2)/(x1-x2))
 7070 if x1<x2 and y1>y2 then theta=           theta+~
 7080 if x1<x2 and y1<y2 then theta=           theta-~
 7490 return
    0 clr:poke59468,12
    1 rem finance copyright (c) 1979 t.m. wagner
    6 rem 68 overbrook drive
    7 rem princeton,n.j. 08540
   10 :
   12 rem cursor #10, may 1979
   15 rem box 550, goleta, ca 93017
   20 :
   30 rem as of june 2, 1979
   90 pg$="finance":nm$="10":gosub62000
  100 cr$=chr$(13)
  107 deffnz(v9)=int(v9*100+.5)/100
  110 print"{clr}{down}{down}options available are:
  130 print"{down}1: savings & compound interest
  140 print"{down}2: monthly mortgage payments
  150 print"{down}3: print mortgage data & tables
  160 print"{down}4: monthly pension payments
  165 print"{down}{down}{down}0: exit
  180 print"{down}which option? ";
  190 gosub60000:op=val(in$):ifin$=""thenprint"{up}{up}";:goto180
  195 ifop<0then199
  196 ifop>4then199
  197 ifop=int(op)then200
  199 print"{up}                                 {up}{up}":goto180
  200 onop+1goto1999,300,500,600,800
  201 goto100
  300 print"{clr}{down}savings & compound interest
  301 forss=1to27:print"E";:nextss
  302 print:print"{down}computes the final sum of savings,
  303 print"using monthly compounded interest
  304 print"when given a fixed principal at the
  306 print"very beginning and a monthly savings
  308 print"with an annual interest rate
  350 rem e=pr*q^n+pt*q(q^n-1)/i
  360 print"{down}enter starting principal in dollars.
  370 print"(can be zero) ? ";
  380 gosub60000:pr=val(in$)
  390 print"{down}enter monthly savings in dollars? ";
  400 gosub60000:pt=val(in$)
  410 print"{down}enter annual percentage rate? ";
  420 gosub60000:pa=val(in$)
  425 ifpa<>0then430
  426 print"can't be zero":goto410
  430 print"{down}enter number of months amount is saved? ";
  440 gosub60000:n=val(in$)
  450 i=pa/1200:q=1+i:qn=q^n
  460 e=pr*qn+pt*q*(qn-1)/i
  472 z=pr:gosub2000:print"{clr}{down}{down}{down}for a startiig amount of $";z$
  474 z=pt:gosub2000:print"a monthly savings of $";z$
  476 print"an annual percentage rate of";pa;"{left}%"
  478 print"the final sum after ";n"months is:
  480 z=e:gosub2000:print"{down}{down}$";z$
  484 print"{down}{down}again? ";:gosub60000
  486 ifleft$(in$,1)="y"then300
  488 goto100
  495 rem annuity formula
  497 rema=pr*q^n*i(q^n-1)
  500 print"{clr}{down}monthly mortgage payments
  501 forss=1to25:print"E";:nextss
  502 print:print"{down}enter mortgage or debt? ";
  505 gosub60000:pr=val(in$)
  510 print"{down}enter annual percentage rate? ";
  515 gosub60000:pa=val(in$)
  516 ifpa<>0then520
  517 print"can't be zero":goto510
  520 print"{down}enter number of months (terms)? ";
  525 gosub60000:n=val(in$)
  526 ifn<>0 then530
  527 print"can't be zero":goto520
  530 i=pa/1200:q=1+i:qn=q^n
  540 a=pr*qn*i/(qn-1):print"{clr}"
  545 z=pr:gosub2000:print"for a mortgage (debt) of $";z$
  550 print"a percentage rate of";pa;"{left}%"
  560 print"and";n"months
  565 z=a:gosub2000:print"{down}the monthly payment is $";z$
  575 print"{down}{down}again? " ;:gosub60000
  577 ifleft$(in$,2)="y"then500
  579 goto100
  600 print"{clr}{down}print mortgage data"
  601 forss=1to19:print"E";:nextss
  610 rem i=b*pa/1200 :rem equity=pm-i
  615 print:print"{down}enter mortgage (debt)? ";
  620 gosub60000:pr=val(in$)
  625 print"{down}enter monthly payment? ";
  630 gosub60000:pm=val(in$)
  635 print"{down}enter annual percentage rate? ";
  640 gosub60000:pa=val(in$)
  645 print"{down}number of months to be printed? ";
  647 gosub60000:n=val(in$)
  650 print"{down}enter number of month when              mortgage started";
  651 print" jan=1, dec=12, month=? ";
  652 gosub60000:aa=val(in$)
  655 hd$="{clr}{down}term    interest     equity    balance{down}":gosub790
  660 i=pa/1200:q=1+i:qn=q^n
  665 pn=0:an=0:py=0:ab=13-aa:ps=0:px=1:lp=99999
  675 pi=pr*i:pb=pm-pi
  680 ifpb<=0thengoto692
  685 ifpb>0thengoto696
  690 goto615
  692 print"{down}it'll never be paid off!":print"increase the monthly payment.
  694 goto625
  696 pr=pr-pb
  700 pn=pn+1:an=an+1:ps=ps+pi
  702 printan;tab(5)
  705 z=pi:gosub2000:printz0$;:z=pb:gosub2000:printz0$;:z=pr:gosub2000:printz0$
  709 pc=pr-pm:ifpc<=0goto725
  710 k=int(pn/ab):s=pn/ab:ac=0:sk=s-k
  715 ifsk<>0thengoto745
  725 z=ps:gosub2000:print"{down}interest this year = $";z$
  730 py=py+ps
  732 p5=fnz(py)
  735 z=py:gosub2000:print"{down}total interest so far = $";z$
  738 ifan<nandpc>0thengosub780
  740 ps=0:pn=0:ab=12
  742 ifpc<=0goto762
  745 ifan<ngoto675
  750 ifsk=0then765
  755 ac=ac+1:onacgoto725,765
  762 z=pb:gosub2000:print"{down}after";an;"months, last payment= $";z$
  765 print"{down}again? ";:gosub60000
  767 ifin$="y"then600
  768 ifleft$(in$,1)="y"then600
  769 goto100
  780 print"{down}press {rvon}return{rvof} for next year
  785 getqq$:ifqq$=""then785
  790 printhd$:return
  800 print"{clr}{down}monthly pension payments"
  801 forss=1to24:print"E";:nextss
  805 rempension payments
  810 rema=pr/((q^(n-1)-1)/(q^(n-1)*i)+1)
  815 print:print"{down}enter pension value (lump sum)":print"in dollars? ";
  820 gosub60000:pr=val(in$)
  825 print"{down}enter annual percentage rate? ";
  830 gosub60000:pa=val(in$)
  831 ifpa<>0 then835
  832 print"can't be zero":goto825
  835 print"{down}enter number of months lump sum         should last? ";
  840 gosub60000:n=val(in$)
  841 ifn<>0 then 845
  842 print"can't be zero":goto835
  845 i=pa/1200:q=1+i:qn=q^(n-1)
  850 d=(qn-1)/(qn*i)+1:pm=pr/d
  860 z=pr:gosub2000:print"{clr}{down}a lump sum of $";z$;" invested"
  865 z=pm:gosub2000:print"{down}with";pa;"{left}% provides $";z$;" per month"
  870 print"{down}for";n;"months until exhaustion"
  875 print"{down}{down}want to see a table? ";
  880 gosub60000:ad$=in$
  885 ifleft$(ad$,1)="y"goto900
  890 print"{down}again? ";:gosub60000
  895 ifleft$(in$,1)="y"goto800
  899 goto100
  900 print"{down}{down}do you want the payment that was"
  920 print"calculated above? ";
  921 gosub60000
  925 ifleft$(in$,1)="y"then942
  935 print"{down}{down}enter your monthly pension payment? ";
  937 gosub60000:pm=val(in$)
  938 print"{down}enter number of month when pension":print"started? ";
  939 print"(jan=1, dec=12) month?";
  940 gosub60000:aa=val(in$)
  941 goto945
  942 aa=1
  945 pc=pr-pm
  948 ifpc<=0goto955
  950 goto965
  955 print"{down}you'll never have that much!":print"decrease monthly payment."
  960 goto935
  965 pn=0:an=0:py=0:ab=13-aa:ps=0:pt=0:px=1:pl=999999
  970 hd$="{clr}{down}{down}term    interest    pension    balance{down}":gosub790
  975 pr=pr-pm
  980 pi=pr*i:pt=pr+pi
  985 pn=pn+1:an=an+1:ps=ps+pi
  990 printan;tab(5);
 1000 z=pi:gosub2000:printz0$;:z=pr:gosub2000:printz0$;:z=pt:gosub2000:printz0$
 1009 pc=pt-pm:if pc<=0 goto 1025
 1010 pr=pt
 1011 k=int(pn/ab):s=pn/ab:ac=0:sk=s-k
 1015 ifsk<>0thengoto1057
 1025 z=ps:gosub2000:print"{down}interest this year = $";z$
 1030 py=py+ps
 1040 z=py:gosub2000:print"{down}total interest so far = $";z$
 1045 ifan<nandpc>0thengosub780
 1050 ps=0:pn=0:ab=12
 1055 ifpc<0goto1072
 1057 ifan<ngoto975
 1060 ifsk=0then1080
 1065 ac=ac+1
 1070 onacgoto1025,1080
 1072 pz=pt:p6=fnz(pz)
 1075 z=pt:gosub2000:print"{down}after";an;"months, last payment= $";z$
 1080 print"{down}again? ";:gosub60000
 1082 ifleft$(in$,1)="y"then800
 1084 goto100
 1999 end
 2000 z$=mid$(str$(int(z*100+.5)),2):
 2010 iflen(z$)<3thenz$=right$("00"+z$,3)
 2020 z$=left$(z$,len(z$)-2)+"."+right$(z$,2)
 2025 ifz<0thenz$="-"+z$
 2030 z0$=right$("        "+z$,11)
 2040 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}";tab(8);"cursor #";nm$;tab(22);pg$
 62005 printtab(0);"{down}copyright (c) 1979";tab(22);"by t.m. wagner
 62007 fori=1to10:print"DDDD";:next
 62010 print"{down}{down}this program computes:
 62011 print"{down}   compound interest for savings
 62012 print"{down}   monthly mortgage or car payments
 62014 print"{down}   mortgage tables
 62016 print"{down}   pension payments
 62017 print"{down}{down}{rvon}warning{rvof}: we believe that this program
 62018 print"produces correct results. however, no
 62019 print"guarantee is made as to accuracy.
 62025 print"{down}{down}hit {rvon}return{rvof} to begin"
 62030 gett$:ift$=""then62030
 62040 print"{clr}":clr:goto100
   90 rem mortrate     nov 89
  100 print "{clr}{swlc}Financial Calculations"
  110 print "              Jim Butterfield"
  111 print
  112 print "Note .. in this program, you select"
  113 print " the options you want with the cursor"
  114 print " keys (up/down)..."
  115 print "You'll see the ** signal move from"
  116 print " one option to another..."
  117 print "When you have selected the one you"
  118 print " want, press RETURN..."
  119 print
  120 dim p$(3),p(3),t$(6),v(6)
  130 data "Month","Quarter","Semi-Annual","Year"
  140 for j=0 to 3:read p$(j):next j
  150 data 12,4,2,1
  160 for j=0 to 3:read p(j):next j
  170 data "..set Calculation","Principal","Interest rate"
  180 data "Payment Amount","Number of payments"
  190 data "Balance","Quit!"
  200 for j=0 to 6:read t$(j):next j
  210 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  220 s$="                              "
  223 print"Press any key to start..."
  226 for j=1 to 1e9:get x$:if x$="" then next j
  230 print "{clr}{swlc}"
  240 print "Financial calculations"
  250 print "       Jim Butterfield"
  260 print "PART 1"
  270 print
  280 print left$(v$,6);"Payments:
  290 for j=0 to 3
  300 print left$(v$,j+8);"  ";p$(j);"ly"
  310 next j
  320 print v$;"Select using <cursor up/down>
  330 print "Press <RETURN> when selected."
  340 p0=0:print left$(v$,p0+8);"**"
  400 p1=p0:get k$:if k$=""  goto 400
  410 if k$="{up}" and p0>0 then p0=p0-1
  420 if k$="{down}" and p0<3 then p0=p0+1
  430 if k$=chr$(13) goto 460
  440 print left$(v$,p1+8);"  ":print left$(v$,p0+8);"**"
  450 goto 400
  460 p9=p0
  470 print left$(v$,13);"Compounded:"
  480 for j=0 to 3
  490 print left$(v$,j+15);"  ";p$(j);"ly"
  500 next j
  510 p0=p9:print left$(v$,p0+15);"**"
  600 p1=p0:get k$:if k$=""  goto 600
  610 if k$="{up}" and p0>0 then p0=p0-1
  620 if k$="{down}" and p0<3 then p0=p0+1
  630 if k$=chr$(13) goto 680
  640 print left$(v$,p1+15);"  ";tab(20);"  "
  650 if p0>=p9 then print left$(v$,p0+15);"**"
  660 if p0<p9 then print left$(v$,p0+15);"&&";tab(20);"!!"
  670 goto 600
  680 print "{clr}"
  690 print p$(p9);"ly payments, compounded ";p$(p0);"ly."
  700 v(4)=1:c0=3:v0=1
  710 print left$(v$,12);"Values:"
  720 for j=0 to 6
  730 print left$(v$,j+14);"  ";t$(j)
  740 next j
  750 rem set calculation type
  760 print left$(v$,0+14);"  "
  770 print left$(v$,4);"Calculate:"
  780 for j=1 to 6
  790 print left$(v$,j+4);"  ";t$(j);"  "
  800 next j
  810 print left$(v$,c0+4);"**"
  820 print v$;"Select value to be calculated"
  900 c1=c0:get k$:if k$=""  goto 900
  910 if k$="{up}" and c0>1 then c0=c0-1
  920 if k$="{down}" and c0<6 then c0=c0+1
  930 if k$=chr$(13) goto 960
  940 print left$(v$,c1+4);"  ":print left$(v$,c0+4);"**"
  950 goto 900
  960 for j=1 to 6
  970 if j<>c0 then print left$(v$,j+4);"  (";t$(j);")"
  980 next j
  990 print v$;s$
 1000 if c0=6 then end
 1010 gosub 2000
 1020 print v$;"Select which value to enter"
 1030 if c0=v0 then v0=1:if c0=v0 then v0=3
 1040 print left$(v$,v0+14);"**"
 1050 x$=chr$(13)
 1100 get k$:if k$="" goto 1100
 1110 v1=v0:if k$>="0" and k$<="9" goto 1200
 1120 if k$="{up}" then v0=v0-1
 1130 if k$="{up}" and v0=c0 then v0=v0-1
 1140 if k$="{down}" then v0=v0+1
 1150 if k$="{down}" and v0=c0 then v0=v0+1
 1160 if v0<0 or v0>6 then v0=v1
 1170 if k$=chr$(13) goto 1200
 1180 print left$(v$,v1+14);"  ":print left$(v$,v0+14);"**"
 1190 goto 1100
 1200 if v0=0 goto 750
 1210 if v0=6 then end
 1220 print v$;"Enter value                   "
 1230 gosub 4000
 1240 if x$<>chr$(13) then k$=x$:goto 1110
 1250 goto 1100
 2000 for j=1 to 5
 2010 gosub 3000
 2020 next j
 2030 return
 3000 print left$(v$,j+14);"{rght}{rght}";t$(j);
 3010 if j<>c0 and j>0 then print ": ";
 3020 if j=c0 then print "=";
 3030 print tab(23);
 3040 v=v(j):if v<0 then v=-v:print"-";
 3050 d=(j=1 or j=3 or j=5)
 3060 if d then v=int(v*100+.5):print "$";
 3070 for k=1 to 20:print " ";chr$(20);:next k
 3080 if j=2 then print v*100;"%":goto 3180
 3090 f=1:s=1
 3100 if v>=f then f=f*10:s=s+1:goto 3100
 3110 if s>1 then s=s-1:f=f/10
 3120 if d and s<3 then s=3
 3130 c=int(v/f):v=v-c*f:print chr$(c+48);
 3140 if d and s=3 then print ".";
 3150 if d and (s=6 or s=9) then print ",";
 3160 s=s-1:f=f/10
 3170 if s>0 goto 3130
 3180 return
 4000 rem input value to element v0
 4010 print left$(v$,v0+14);tab(23);
 4020 v=v(v0)
 4030 d=(v0=1 or v0=3 or v0=5)
 4040 if d then print "$";
 4050 for k=1 to 20:print " ";chr$(20);:next k
 4060 w$=""
 4070 if k$>="0" and k$<="9" then x$=k$:goto 4180
 4080 print "{CBM-@}{left}";
 4090 get x$:if x$="" goto 4090
 4100 if x$>="0" and x$<="9" goto 4180
 4110 if x$="." and d goto 4180
 4120 if x$="." and v0=2 goto 4180
 4130 if x$=chr$(13) or x$="{up}" or x$="{down}" goto 4210
 4140 if x$<>chr$(20) or w$="" goto 4090
 4150 print x$;
 4160 w$=left$(w$,len(w$)-1)
 4170 goto 4080
 4180 w$=w$+x$
 4190 print x$;
 4200 goto 4080
 4210 v1=val(w$)
 4220 if v1<0 or w$="" then v1=v
 4230 if v0=4 and v1=0 then v1=v
 4240 if v0<>2  goto 4290
 4250 v1=v1/100
 4260 i0=v1/p(p0)+1     : rem compund interest unit
 4270 if p0<>p9 then i0=i0^(p(p0)/p(p9))
 4280 i=i0-1
 4290 v(v0)=v1
 4300 j=v0:gosub 3000
 4310 print left$(v$,c0+14);tab(23);"              ";
 4320 on c0 gosub 5000,6000,7000,8000,9000
 4330 b(5)=b9
 4340 v(c0)=v:j=c0:gosub 3000
 4350 b9=b(5)
 4360 if c0<>5 and v0<>5 then gosub 9000:v(5)=v:j=5:gosub 3000
 4370 if x$=chr$(13) then x$="{down}"
 4380 return
 5000 rem find principal
 5010 n=v(4):i1=i0^n:v=v(5)+v(3)*n:if i=0 goto 5040
 5020 if i>0 then v=v(5)/i1+v(3)*(i1-1)/i1/i
 5030 v=int(v*100+.999)/100
 5040 return
 6000 rem find interest rate
 6010 n=v(4):i8=0:i9=1
 6020 v=0:v9=v(5)+v(3)*n-v(1):if v9<0 goto 6140
 6030 v=(i8+i9)/2:v1=1+v:v2=v1^n:if abs(i9-i8)<.000005 goto 6070
 6040 v9=v(5)/v2+v(3)*(v2-1)/v2/v-v(1)
 6050 if v9<0 then i9=v:goto 6030
 6060 i8=v:goto 6030
 6070 i=v:i0=i+1
 6080 v9=i0:if p0<>p9 then v9=i0^(p(p9)/p(p0))
 6090 v1=(v9-1)*p(p0)
 6100 v=int(v1*8000+.5)/8000
 6110 i0=v/p(p0)+1     : rem compund interest unit
 6120 if p0<>p9 then i0=i0^(p(p0)/p(p9))
 6130 i=i0-1
 6140 return
 7000 rem find payment amount
 7010 n=v(4):i1=i0^n
 7020 v=(v(1)-v(5))/n
 7030 if i>0 then v=(v(1)-v(5)/i1)*i*i1/(i1-1)
 7040 v=int(v*100+.999)/100
 7050 return
 8000 rem find number of payments
 8010 v=1:if v(3)=0 goto 8060
 8020 v=(v(1)-v(5))/v(3):if i=0 goto 8050
 8030 x=(i*v(5)-v(3))/(i*v(1)-v(3))
 8040 v=int(log(x)/log(i0)+.5)
 8050 if v<1 then v=1
 8060 return
 9000 rem find balance
 9010 n=v(4):i1=i0^n
 9020 v=v(1)-v(3)*n
 9030 if i>0 then v=(v(1)-v(3)*(i1-1)/i1/i)*i1
 9040 v=int(v*100+.5)/100
 9050 return
    0 clr:poke59468,12
    1 rem fire! copyright (c) 1980 brian sawyer
    2 rem 1310 dover hill rd
    3 rem santa barbara, ca 93103
    4 :
    5 rem cursor #16, jan 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 8 80
   90 pg$="fire!":nm$="16":gosub62000
  100 z=0:p=rnd(-ti):readlo,hi
  110 fori=lotohi:readx:pokei,x:nexti
  120 h$="{rght}{rght} {up}  {left}{left}{down}{CBM-@}{CBM-@} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  130 h$=h$+"      EO {down}{left}{left}{left}{left}{left}{left}{left}{left}"
  140 h$=h$+" x{CBM-POUND}{CBM-@}{CBM-@}NM {down}{left}{left}{left}{left}{left}{left}{left}{left}"
  150 h$=h$+"  M{CBM-@} {CBM-@}N {down}{left}{left}{left}{left}{left}{left}"
  160 h$=h$+" {CBM-E}{CBM-T}{CBM-E} "
  170 print"{clr}{down}{down}{down}want sound? ";:sd=0:gosub60000:ifleft$(in$,1)="y"thensd=16
  180 p=33293:e=29:v=3:ti$="000000":wt=1500:bp=p:cp=p:wl$="{left}{left}{left}{up}{rvon} ":d$="4"
  190 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}"
  200 print" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}   {CBM-@}{CBM-@}{CBM-@}t{CBM-@}t{CBM-@}
  210 print"{CBM-M}\ {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}M  {CBM-M}M{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}M {CBM-M}M  {SHIFT--} {SHIFT--} M
  220 print"{CBM-M}\\{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}M {CBM-M} M{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-M} M      M
  230 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}M O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-M}{CBM--} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
  240 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}M{CBM-G}{CBM-G} O{CBM-G} O{CBM-G}{CBM-M}P{CBM-M}{CBM-M} {CBM--}{CBM-G}{CBM-+} {CBM-+} {CBM-+}{CBM-M}
  250 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}  {CBM-G} {CBM-T}  {CBM-T}  {CBM-T}{CBM-M}{CBM-M}  {CBM-G}     {CBM-M}
  260 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}{CBM-M}M{CBM-G} O{CBM-G} O{CBM-G}{CBM-M}P{CBM-M}{CBM-M}{CBM--} {CBM-G}{CBM-+} {CBM-+} {CBM-+}{CBM-M}
  270 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}MM{CBM-G} {CBM-T}  {CBM-T}  {CBM-T}{CBM-M}{CBM-M} {CBM--}{CBM-G}     {CBM-M}
  280 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}M{CBM-G}{CBM-G} O{CBM-G} O{CBM-G}{CBM-M}P{CBM-M}{CBM-M}  {CBM-G}{CBM-+} {CBM-+} {CBM-+}{CBM-M}
  290 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}  {CBM-G} {CBM-T}  {CBM-T}  {CBM-T}{CBM-M}{CBM-M}{CBM--} {CBM-G}     {CBM-M}
  300 print"{CBM-M}\\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {CBM-M}{CBM-M}M{CBM-G} O{CBM-G} O{CBM-G}{CBM-M}P{CBM-M}{CBM-M} {CBM--}{CBM-G}{CBM-+} {CBM-+} {CBM-+}{CBM-M}
  310 print" M\O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P\ MM{CBM-G} {CBM-T}  {CBM-T}  {CBM-T}{CBM-M} M {CBM-G}  {CBM-@}  {CBM-M}
  320 print"  MO{CBM-T}{CBM-T}{CBM-T}OO{CBM-T}{CBM-T}{CBM-T}{CBM-G}\ ML{CBM-@}{CBM-@}{CBM-@}{CBM-@}OL{CBM-@}{CBM-@}{SHIFT-@}{$a0}\ML{CBM-@}{SHIFT-@}{CBM-+}L{CBM-@}{SHIFT-@}
  330 print"   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}        EEE
  340 print"   ----------    ----------  --------
  350 pokep,233:fc=1
  360 rem
  370 iffc=0then1000
  380 ifti>10800then1060
  390 ifp=33218orp=33177thenp=p+6:g=10:goto650
  400 ifp=33223orp=33182thenp=p-7:goto650
  410 ifg=10theng=2:goto650
  420 g=int(rnd(1)*3-1):ifg<>0then450
  430 ifrnd(1)>.5theng=-40:goto450
  440 ifrnd(1)>.5theng=40
  450 ifp<33168orp>33633then470
  460 ifpeek(p+g)<>32andpeek(p+g+1)<>32then500
  470 rem
  480 ifpeek(bp)>160thenp=bp:goto500
  490 ifpeek(cp)>160thenp=cp
  500 cp=p:p=p+g
  510 gosub970
  520 ifi=6ande<34thene=e+1
  530 ifi=4ande>1thene=e-1
  540 ifi=2andv<4thenv=v+1
  550 ifi=8andv>2thenv=v-1
  560 print"{home}"tab(e)left$("{down}{down}{down}{down}{down}",v)h$;wl$;:ifi=8thenprint"{down}{down}{left}{left}{rvof}   ";
  570 print:ifnot(e=29andv=4)then630
  580 rem
  590 ifwt>=1500then610
  600 wt=1500:wl$="{left}{left}{left}{up}{rvon} "
  610 forz=1to300:next:gosub970
  620 d$="4"
  630 p9=p-32768:v1=int(p9/40):h5=p9-v1*40:ifh5<3orh5>23thenp=p-g
  640 ifpeek(p)=0thenp=p-g
  650 f=int(rnd(1)*10):iff<>5thenf=0
  660 z=peek(p):ifz<>fthenpokep,233:ifz<160thenfc=fc+1
  670 z=peek(p+1):ifz<>fthenpokep+1,223:ifz<160thenfc=fc+1
  680 z=peek(p+40):ifz<>fthenpokep+40,206:ifz<160thenfc=fc+1
  690 z=peek(p+41):ifz<>fthenpokep+41,205:ifz<160thenfc=fc+1
  700 gosub970
  710 d1$=d$:getd$:ifd$=""thend$=d1$
  720 ifd$<>"5"theni=val(d$):goto360
  730 d$=d1$
  740 rem
  750 ifwt>0then810
  760 poke59467,sd:ifsdthenpoke59466,15:poke59464,0
  770 poke59464,50:poke59464,0
  780 poke59464,50:poke59464,0
  790 poke59464,50:poke59464,0
  800 poke59467,0:poke59466,0:goto360
  810 wt=wt-50
  820 poke59467,sd:ifsdthenpoke59466,15:poke59464,0
  830 wl$="{left}{left}{left}{up}"+mid$("{rvof} {rvof}{CBM-@}{rvof}{CBM-P}{rvof}{CBM-O}{rvof}{CBM-I}{rvon}{CBM-U}{rvon}{CBM-Y}{rvon}{CBM-T}{rvon} ",1+int(wt/1501*9)*2,2)
  840 s1=v*40:pokes1+32930+e,22
  850 poke59464,81
  860 forw=s1+32970+eto33767step40
  870 ifpeek(w)=32thenpokew,93:pokew,32
  880 ifpeek(w+40)<>32then900
  890 next
  900 poke59467,0:poke59466,0:poke59464,0
  910 ifpeek(w)>160then940
  920 w=w+40:ifw>33767then360
  930 goto900
  940 ifint(rnd(1)*5+1)=3thenpokew,0:fc=fc-1:goto360
  950 pokew,0:fc=fc-1:ifpeek(w+40)>160thenpokew+40,0:fc=fc-1
  960 goto360
  970 print"{home}";tab(6);"{rvof}time "mid$(ti$,4,1)":"right$(ti$,2)spc(8);"water:"wt"{left} "
  980 sys826:return
  990 rem
 1000 tm$=ti$
 1010 getd$:ifd$<>""then1010
 1020 forn=1to3000:next
 1030 print"{clr}  you put the fire out in ";mid$(tm$,4,1);":";right$(tm$,2);"!"
 1040 xt=xt+1:goto1070
 1050 forn=1to3000:next
 1060 print"{clr}  you failed to put out the fire!"
 1070 xn=xn+1:print"{down}{rght}{rght}you have put out"xt"out of"xn"fires."
 1080 print"{down}{down}{rght}{rght}want to play again? ";:gosub60000:ifleft$(in$,1)<>"n"then180
 1090 poke59464,0:poke59466,0:poke59467,0
 1100 end
 1110 data826,916
 1120 data160,255,132,1,160,132,132,2,160,0,169,0,162,0,177,1
 1130 data201,223,240,3,76,88,3,169,233,145,1,76,127,3,201,233
 1140 data240,3,76,102,3,169,223,145,1,76,127,3,201,205,240,3
 1150 data76,116,3,169,206,145,1,76,127,3,201,206,240,3,76,127
 1160 data3,169,205,145,1,198,1,240,3,76,72,3,198,2,169,255
 1170 data133,1,232,224,4,240,3,76,72,3,96
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by brian sawyer{down}
 62020 gosub60500
 62030 print"{down}the one-person fire department
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 gett$:ift$=""then62090
 62100 goto60300
    5 clr
   10 z$=chr$(.)
   20 reads$:ifs$="end"thenend
   25 t$="ff"+s$
   26 print"{down}{down}target filename is "t$
   30 rem input"target filename";t$
   40 open8,8,8,s$:open9,8,1,t$
   50 a$=z$+chr$(96):print#9,a$;
   60 get#8,a$:s=st
   70 print#9,chr$(asc(a$+z$));:ifsthen90
   80 goto60
   90 close8:close9
  100 goto10
  101 data "patrol.60"
  102 data "sub.60"
  103 data "arach.60"
  190 data end
    5 clr
   10 z$=chr$(.)
   20 reads$:ifs$="end"thenend
   25 t$="ff"+s$
   26 print"{down}{down}target filename is "t$
   30 rem input"target filename";t$
   40 open8,8,8,s$:open9,8,1,t$
   50 a$=z$+chr$(160):print#9,a$;
   60 get#8,a$:s=st
   70 print#9,chr$(asc(a$+z$));:ifsthen90
   80 goto60
   90 close8:close9
  100 goto10
  101 data "patrol.60"
  102 data "sub.60"
  190 data end
    0 clr:pg$="flags":nm$="28":goto62000
    1 " george huang
    2 " 80 sprain valley
    3 " scarsdale ny 10583
    4 "
    5 " cursor #28 nov 1981
    6 " copyright(c)1981 the code works
    7 " box 550,goleta,ca 93116
    8 "
   10 "18nov81
  100 pr=crt+wd*21+11
  105 dimfa(14,12),fc%(14,12),fl(14)
  106 dimlf(26),rf(26)
  170 fort=1to14:readz:fl(t)=z-1:nextt
  180 print"{home}{CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}
  185 print"          setting up"
  190 print"{CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}{up}{up}"
  195 z=3
  200 fori=1to14:forj=0tofl(i)
  210 reada,b,fc%(i,j)
  220 fa(i,j)=crt+a*wd+b
  230 z=z+1:ifz>8thenz=1:print" ";
  240 printmid$("{CBM-G}TGB{SHIFT--}HY{CBM-M}",z,1);"{left}";
  250 nextj,i
  340 fort=0to26:readlf(t),rf(t):next
  430 print"{clr}":print"how long between letters? ";:gosub60000
  435 ifin$=""thenin$="30"
  440 ifval(in$)=0then430
  450 le=60*val(in$)
  460 print:print"do you want visible words? ";:gosub60000:a$=in$
  480 ifa$="y"ora$=""thencc=0:goto500
  490 cc=1
  500 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
  590 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  595 gosub900:print"{up}{up}"
  600 print"input text: ";
  605 fort3=1tog1:pokepr+t3,32:nextt3
  610 gosub60000:ifcc=1thengosub1550
  620 q=0
  635 ifin$=""thenprint"{up}";:goto600
  640 ifin$="q"thenend
  650 g1=len(in$):forbc=1tog1:g2=asc(mid$(in$,bc,1))
  655 ifccthen700
  660 q=q+1:pokepr+q,peek(pr+q)+128
  670 ifpeek(pr+q-1)<>32thenpokepr+q-1,peek(pr+q-1)-128
  700 ifg2=32theng2=0:goto735
  720 ifg2>64andg2<91theng2=g2-64:goto735
  730 goto810
  735 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(18);" {rght}{rght} {down}{left}{left}{left}{left} {rght}{rght} "
  740 fg=lf(g2):fc=fg:gosub1200
  760 fg=rf(g2):fc=fg:gosub1200
  780 gosub830
  810 gosub900
  820 nextbc:print"{up}{up}":goto600
  830 foras=1tole:next:return
  900 print"{home}{down}{down}{down}{down}{down}{down}"
  910 printtab(13)"              "
  915 printtab(13)"              "
  920 printtab(13)"              "
  925 printtab(13)"              "
  930 printtab(13)"      UI      "
  935 printtab(13)"      JK      "
  940 printtab(13)"     {rvon}{SHIFT-POUND}{rvof}OP{rvon}{CBM-*}{rvof}     "
  945 printtab(13)"     {rvon} {rvof}{CBM-G}{CBM-M}{rvon} {rvof}     "
  950 printtab(13)"     {rvon} {rvof}{CBM-G}{CBM-M}{rvon} {rvof}     "
  955 printtab(13)"      {rvon}PO{rvof}      "
  960 printtab(13)"      {rvon}{CBM-M}{CBM-G}{rvof}      "
  965 printtab(13)"      {rvon}{CBM-M}{CBM-G}{rvof}      "
  970 printtab(13)"     {CBM-I}{rvon}{CBM-M}{CBM-G}{rvof}{CBM-I}     "
  975 printtab(13)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  980 print
  990 return
 1000 read a,c,b
 1010 a=crt+a*wd+c
 1020 z=z+1:ifz>8thenz=1:print" ";
 1030 printmid$("{CBM-G}TGB{SHIFT--}HY{CBM-M}",z,1);"{left}";
 1040 return
 1200 fort=0tofl(fg)
 1210 pokefa(fg,t),fc%(fg,t)
 1220 nextt:return
 1550 fort3=1tolen(in$):pokepr+t3,32:nextt3:return
 1560 gosub1200:gosub1290:gosub830:return
 1900 data8,12,10,13,10,10,13,10,12,8,13,11,11,13
 2000 data14,18,160,15,18,160
 2005 data16,18,76,17,18,223,17,19,32
 2010 data18,18,160,18,19,223,19,19,208
 2020 data13,18,233,14,17,233,14,18,105,15,16,78
 2025 data15,17,105,16,15,233,17,14,233,17,15,160
 2030 data18,15,78,19,14,78,19,13,103,18,13,103
 2040 data13,18,160,13,17,160,13,16,160,13,15,79
 2045 data13,14,105,13,13,160,14,13,105,15,13,99
 2050 data15,14,99,14,15,101
 2060 data13,18,95,12,18,223,12,17,95,11,17,223
 2065 data11,16,95,10,15,77,9,14,223,8,13,223
 2070 data9,13,160,10,13,77,10,14,103,11,14,77
 2075 data11,15,101
 2080 data13,18,95,12,18,160,11,18,160,10,18,79
 2085 data10,19,99,9,18,105,8,18,160,8,19,105
 2090 data8,20,101,9,20,101
 2100 data13,21,105,12,21,160,11,21,160,10,21,80
 2105 data10,20,99,9,21,95,8,20,95,8,21,160
 2110 data8,19,103,9,19,103
 2120 data13,21,105,12,21,233,12,22,105,11,22,233
 2125 data11,23,105,10,24,78,9,25,233,8,26,233
 2130 data9,26,160,10,26,78,11,25,78,11,24,103
 2135 data10,25,101
 2140 data13,21,160,13,22,160,13,23,160,13,24,80
 2145 data13,25,95,14,24,103,13,26,160,14,26,95
 2150 data15,25,99,15,26,99
 2160 data13,21,223,14,21,95,14,22,223,15,22,95
 2165 data15,23,77,16,24,223,17,24,160,17,25,223
 2170 data18,24,77,18,26,101,19,25,77,19,26,101
 2180 data14,21,160,15,21,160,16,21,122
 2185 data17,21,233,17,20,32,18,20,233,18,21,160,19,20,207
 2190 data14,18,95,14,19,223,15,18,103
 2195 data15,19,95,15,20,223,16,21,77,17,22,223
 2200 data18,22,160,18,23,223,19,24,101,20,24,101
 2205 data20,23,77,19,22,77
 2210 data13,18,233,14,18,95,14,19,160,14,20,160
 2215 data14,21,80,14,22,95,14,23,160,15,23,95
 2220 data16,23,99,16,22,99,15,21,103
 2230 data13,21,223,14,21,105,14,20,160,14,19,160
 2235 data14,18,79,14,17,105,14,16,160,15,16,105
 2240 data16,16,99,16,17,99,15,18,101
 2250 data14,21,105,14,20,233,15,21,101,15,20,105
 2255 data15,19,233,16,18,78,17,17,233,18,16,233
 2260 data18,17,160,19,17,78,20,16,78,20,15,103
 2265 data19,15,103
 2300 data1,10,2,10,3,10,4,10,5,10,1,7
 2310 data1,8,1,9,3,14,4,14,5,8,2,6
 2320 data2,7,2,8,2,9,4,13,3,6,3,7
 2330 data3,8,3,9,4,6,4,7,5,9,12,7
 2340 data11,7,4,8,11,8
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>26then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by george huang
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}practice semaphore signalling
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin ";
 62090 getr$:ifr$=""then62090
 62095 goto60300
    0 clr:poke59468,12
    1 rem flash copyright (c) 1978 glen fisher
    2 rem cursor #3, september, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 remas of 6 may 80
   90 pg$="flash":nm$="3":gosub62000
  100 fd%=1:rem tape drive
  120 print
  410 cr$=chr$(13)
  500 gosub8000:fl=-1
  510 dimrn(n):fori=1ton:rn(i)=i:nexti
  520 print"{clr}{down}{down}{down}these flash cards deal with:{down}":printtl$
  540 print"{down}there are";n;"cards in the set."
  600 print"{down}do you want to test:"
  610 print"{down}   1) ";s$(0,0)
  620 print"or 2) ";s$(0,1)
  630 print"{down}enter '1' or '2'";:gosub60000
  640 lett$=in$:ift$="1"ort$="2"thens=val(t$)-1:goto1000
  650 goto630
 1000 m=n
 1010 print"{clr}"
 1500 t=int(rnd(1)*m+1)
 1510 i=rn(t):rn(t)=rn(m):rn(m)=i:m=m-1
 1520 prints$(i,s);"? ";
 1530 tm=ti
 1540 sy=1
 1550 fl=0:gosub60000:ifin$=""then2000
 1560 ifin$=s$(i,1-s)thenprint"right!":goto2010
 1570 print"no. ";
 2000 print"the answer is ";s$(i,1-s);"."
 2010 print"{down}":ifm>0then1500
 2100 print"{down}that's all";n;"pairs. want to run"
 2110 input"through them again? y{left}{left}{left}";t$
 2120 ifleft$(t$,1)="y"then1000
 2130 ifleft$(t$,1)="n"then3000
 2140 print"please answer yes or no."
 2150 input"want to run through them again? y{left}{left}{left}";t$:goto2120
 3000 print"{down}would you like to try ";s$(0,1-s);" instead of ";s$(0,s);
 3010 input"? y{left}{left}{left}";t$
 3020 ifleft$(t$,1)="y"thens=1-s:goto1000
 3030 ifleft$(t$,1)="n"then5000
 3040 print"please answer yes or no."
 3050 goto3000
 5000 print"{down}{down}i hope that this was of help."
 5010 end
 8000 print"{clr}{down}what's the name of the file? ";:fl=0:gosub60000
 8010 open1,fd%,0,in$
 8020 input#1,n
 8030 input#1,t$:gosub8900:tl$=s$
 8100 m=0:dims$(n,1)
 8110 input#1,t$,u$
 8120 ift$=chr$(225)thenclosefd%:print:return
 8130 print".";
 8200 gosub8900:s$(m,0)=s$
 8210 t$=u$:gosub8900:s$(m,1)=s$
 8220 m=m+1:goto8110
 8890 :
 8900 s$=""
 8910 fori=1tolen(t$)
 8920 c$=mid$(t$,i,1):ifasc(c$)>95andasc(c$)<128thenc$=chr$(asc(c$)-65)
 8930 s$=s$+c$
 8940 nexti
 8950 return
 8999 end
 9010 geti$:ifi$<>""then9080
 9080 cd=asc(i$):if(cdand127)<32thenprint" {left}";:goto9110
 9095 ifcd=34thenprinti$;chr$(20);
 9100 in$=in$+i$:printi$;:nc=nc+1:goto9010
 9110 ifcd=13thenin$=mid$(in$,2):printcr$;:return
 9120 ifcd=20andnc>1thennc=nc-1:in$=left$(in$,nc):print"{left}";:goto9010
 9130 ifcd=141theni$=chr$(-20*(nc>1)):forcd=2tonc:printi$;:nextcd:goto9000
 9140 goto9010
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #3  flash"
 62005 print"{down}copyright (c) 1978  by glen fisher":gosub60500
 62010 print"{down}improve your store of facts
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 ifleft$(in$,1)<>"y"then100
 62100 lp=2:gosub60200
 62150 print"this program reads tapes created by the
 62160 print"cards program (also{$a0}in this issue).
 62170 print"to use flash, insert the tape that has
 62180 print"the flash card file on it. if you don't
 62190 print"remember the file name, press{$a0}{rvon}return{rvof}
 62200 print"and the pet will find the next file on
 62210 print"the tape.
 62220 print"{down}you can 'drill' yourself two ways:
 62230 print"{down}1. the pet shows one side of the card,
 62240 print"   you type the answer, then it checks
 62250 print"   your answer against what is on the
 62260 print"   other side of the card.
 62310 gosub60200
 62320 print"{down}2. you can let the pet ask questions
 62330 print"   then you answer{$a0}'in your head'.
 62340 print"   when you press{$a0}{rvon}return{rvof}, the correct
 62350 print"   answer will be shown.
 62360 print"{down}each time through, the cards are shown
 62370 print"in a different order.
 62380 print"{down}study hard! (but have fun, too...)
 62390 gosub60200
{$7a}{CTRL-B}{CTRL-A}{$fd}{stop}{$00} flash attack{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$f7}{$e7}{$00}{$00}{left}Z{$00}({CTRL-D}{$00}{$00}{$8f}"{del}{del}{del}{del}{del}{del}{del}flash attack not listable{$00}{$61}{CTRL-D}{del}{$00}{gry1}1121,120:{gry1}1122,4:{$8f}"{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{$00}{$00}{$00}{grn}{$00}{gry1}1064,102:{gry1}1065,10{$00}{CBM-Q}{CTRL-D}({$00}{f6}B(1022){CBM-W}{CBM-E}157{CBM-A}B(1023){CBM-W}{CBM-E}218{CBM-M}{yel}64824{CBM-Q}103{CBM-D}B(50003){$00}N{CTRL-D}2{$00}{lgrn}"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}flash attack{$00}{$f3}{CTRL-D}7{$00}{lgrn}"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}copyright (c) 1980 by{$00}"{wht}<{$00}{lgrn}"{down}{rght}{rght}timothy stryker and kenneth wasserman{$00}k{wht}f{$00}{lgrn}"{down}{down}{down}{down}{rght}{rght}do you want instructions?{left}";{$00}{$83}{wht}{$64}{$00}{f6}B(50218){CBM-M}{gry1}42,20:{gry1}43,12:{gry1}44,20:{gry1}45,12:{gry1}46,20:{gry1}47,12{$00}{cyn}{wht}{$6e}{$00}{f6}B(50218){CBM-M}{gry1}52,60:{gry1}53,12{$00}W{wht}{$78}{$00}{f6}B(50218){CBM-R}0{CBM-M}{gry1}124,20:{gry1}125,12:{gry1}126,20:{gry1}127,12:{gry1}128,20{$00}~{wht}{$82}{$00}{f6}B(50218){CBM-R}0{CBM-M}{gry1}129,12:{gry1}134,60:{gry1}135,12{$00}{CTRL-V}{CTRL-F}{f8}{$00}{f1}a$:a{CBM-R}H(a$,1){CBM-W}{CBM-E}"n"{$00};{CTRL-F}{lred}{$00}{f6}a{CBM-M}{lgrn}"{clr}{down}flash attack instructions{$00}^{CTRL-F}{$a0}{$00}{f6}a{CBM-M}{lgrn}"{down}{down}{rght}{rght}{rvon}m{rvof}ine.... place mine{$00}{$7f}{CTRL-F}{CBM-N}{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}w{rvof}all.... build wall{$00}{CBM-I}{CTRL-F}{CBM-H}{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}]{rvof}....... arm base gun{$00}C{CTRL-F}{CBM-V}{$00}{f6}a{CBM-M}{lgrn}"(space)... arm tank gun{$00}{$e3}{CTRL-F}H{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}i{rvof}cbm.... fire icbm{$00}{CTRL-V}{CTRL-G}R{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}a{rvof}ngle... enter icbm angle entry mode"{$00}i{CTRL-G}{CBM--}{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}r{rvof}ange... enter icbm range entry mode"{$00}{$6e}{CTRL-G}{$e6}{$00}{f6}a{CBM-M}{lgrn}"{rght}{rght}{rvon}_{rvof}....... terminate game{$00}{gry2}{CTRL-G}{$eb}{$00}{f6}a{CBM-M}{lgrn}"{rght}(home)... restore tank at base"{$00}K{CTRL-G}{$f0}{$00}{f6}a{CBM-M}{lgrn}"{down}7 8 9 digits are used       0    angles"{$00}~{CTRL-G}{$fa}{$00}{f6}a{CBM-M}{lgrn}"{rght}M{SHIFT--}N  to indicate dir-      {SHIFT--}    entered";{$00}3{dish}{CTRL-D}{CTRL-A}{f6}a{CBM-M}{lgrn}"4{SHIFT-*}5{SHIFT-*}6 ection of move-   270{SHIFT-*}*{SHIFT-*}90 in deg.";{$00}{$67}{dish}{swlc}{CTRL-A}{f6}a{CBM-M}{lgrn}"{rght}N{SHIFT--}M  ment of tank,         {SHIFT--}    clkwise";{$00}{gry3}{dish}{CTRL-X}{CTRL-A}{f6}a{CBM-M}{lgrn}"1 2 3 or gun firing        180   frm top";{$00}G{dish}{$f4}{CTRL-A}{lgrn}"{down}{rght}{rght}play standard two-machine game?{left}";{$00}{$fd}{dish}{$fe}{CTRL-A}a{CBM-R}B(50004):{f6}a{CBM-M}{gry1}6936,46:{gry1}6942,144:{gry1}6943,0:{gry1}7027,46{$00}2{ensh}{dish}{CTRL-B}{f6}a{CBM-M}{gry1}6947,145:{gry1}6948,0:{gry1}7034,145:{gry1}7035,0:{gry1}6856,143{$00}{$69}{ensh}{rvon}{CTRL-B}{f6}a{CBM-M}{gry1}6857,0:{gry1}6577,216:{gry1}6580,198:{gry1}6380,128:{gry1}6381,143{$00}{lred}{ensh}{red}{CTRL-B}{f6}a{CBM-M}{gry1}4750,128:{gry1}4751,143:{gry1}7029,144:{gry1}7030,0{$00}{CBM-D}{ensh}x{CTRL-B}{f1}a$:a{CBM-R}H(a$,1){CBM-R}"n"{$00}{$e4}{ensh}{$62}{CTRL-B}{f6}a{CBM-M}{gry1}6583,218:{gry1}6584,224:{gry1}3189,218:{gry1}6590,212:{gry1}6591,63{$00}{esc}{$0a}{$6c}{CTRL-B}{f6}a{CBM-M}{gry1}6592,209:{gry1}6593,153:{gry1}6594,200:{gry1}6595,228:{gry1}6596,0{$00}={$0a}{$76}{CTRL-B}{f6}a{CBM-M}{gry1}6600,11:{gry1}6610,51:{gry1}6611,52{$00}\{$0a}{CBM-R}{CTRL-B}{gry1}8189,96:{gry1}8190,66:{gry1}8191,12{$00}{$66}{$0a}{CBM-C}{CTRL-B}{yel}7038{$00}{$00}{$00}{stop}{blk}{CTRL-A}{f6}r{CBM-W}128{CBM-M}s{CBM-R}r:{f2}700{$00}{inst}{CTRL-G}{lblu}{CTRL-A}{f6}r{CBM-W}16384{CBM-M}x{CBM-R}{CBM-J}(r{CBM-Z}d):s{CBM-R}r{CBM-Q}d{CBM-D}x:{sret}700:s{CBM-R}x{CBM-N}128:{f2}700{$00}B{CTRL-G}{CBM-@}{CTRL-A}x{CBM-R}{CBM-J}(r{CBM-Z}d):s{CBM-R}r{CBM-Q}d{CBM-D}x:{sret}700:s8{CBM-A}x{CBM-E}57{CBM-M}s{CBM-R}0:{swuc}{$00};{$0a}{SHIFT-*}{stop}r{CBM-R}r{CBM-N}(x{CBM-Q}48){CBM-D}w:x{CBM-R}B(b{CBM-Q}1):{f6}x{CBM-E}47{CBM-P}x{CBM-W}58{CBM-M}b{CBM-R}b{CBM-Q}1:w{CBM-R}w{CBM-D}10:{f2}960{$00}v{$0a}E{stop}{f6}x{CBM-R}171{CBM-M}r{CBM-R}65536{CBM-Q}r:b{CBM-R}b{CBM-Q}1{$00}\{$0a}J{stop}{swuc}{$00}{sret}{$0a}{$e7}{stop}{blk}DG{lgrn}B{gry1}@!{CBM-K}{CBM-N}{CBM-Q}{CBM-D}{CBM-Z}\{CBM-E}{CBM-R}{CBM-W}{CBM-P}{CBM-A}{CBM-POUND}{CBM-F}%${CBM-S};#_{pur}{yel}{orng}{$82}~{swuc}&{f2}{f1}{f6}".{CBM-M}{$80}:[]{$00}{CBM-H}{$0a}{$e8}{stop},700@{f6}{blk}{$80}"{clr}{down}{down}{down}{rght}{rght}{rght}just a moment.i{$00}{f4}{$7f}{$80}{$00}{$00}pe>{$00}{CTRL-A}{$00}{CTRL-K}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}bt{CBM-W}{f6}_bt{$80} flash attack    flash attack    flash attack    flash attack    flash attack    flash attack    flash attack    {f8}{wht}{gry1}__1,{$82}{CBM-C}F{f8}j{$e4}{SHIFT-*}{CTRL-W}{$e5}...tnemom a tsuj{rght}{rght}{rght}{down}{down}{down}{clr}C{lblu}{CBM-U}{CBM--}{gry3}{CTRL-Z}{CBM--}{$e6}{$e8}oD{CTRL-P}Q{f8}{$76}{$e4}{swuc}/{$e2}{f8}a{$82}{$e2}{SHIFT--} {CBM-*}E{$de}{del}TM{CTRL-Y}I{CTRL-A}{SHIFT--}{$80}H{$82}{$e2}{f8}aJJTM{$82}{$e2}I{CTRL-F}TM{$00}{SHIFT--}Y{CBM-*}(KI{stop}TM{CTRL-A}IY{stop}IU{stop}J{SHIFT--}xX{CBM-*}IE{$de}Z{$de}Z{$de}{CTRL-O}TM{del}I{$00}{SHIFT--}{$82}{$e2}{f8}aJTM{$82}{$e2}I{CTRL-D}{$82}{$7c}E{CTRL-D}{$82}{$7d}E{del}TM{CTRL-D}I{$00}{SHIFT--}T{CTRL-A}Q{f8}{$f8}{$e4}{CTRL-A}{$82}{$7c}DY{$0a}TMN{f8}{$ef}{$e4}J{$82}{$7c}E{CTRL-A}UJ{f8}{$f5}{$e2}I{$82}{$7c}E{CTRL-A}I{sret}{del}{$e2}{CTRL-A}{$82}{$7d}DY{$0a}TMN{sret}{swlc}{$e4}J{$82}{$7d}E(UJ{sret}{del}{$e2}I{$82}{$7d}E(IY{$82}{$e2}N{sret}{grn}{$e4}Z{$82}{$e2}Y{f8}aP{sret}({$e4}Z{f8}a{$66}XE{$de}Z{$de}{$82}{$e2}'I{$82}{$e2}{SHIFT--}{$66}{CBM-*}E{$de}{f8}a'{f8}aJ{SHIFT--}{$66}{CBM-*}E{$de}({$82}{$e2}{f8}aJL{CTRL-A}{SHIFT--}{$66}{CBM-*}(K{$82}{$e2}I{CTRL-A}XJ{$66}UEE{$de}{lgrn}{CBM--}{$e1}Y{$82}{CBM-D}E{lgrn}{$e2}{$e1}Y{$82}{CBM-Z}E{lgrn}{CBM--}{$e1}{lgrn}{$e2}{$e1}XX{wht}WJYKU{CTRL-F}WJYKI{$65}N{sret}{f7}{$e4}ZZ{sret}{$6a}{$e2}{$82}{CBM-Z}{CTRL-B}IE{$82}{CBM-D}{CTRL-B}IEZZ{CTRL-A}{$00}{SHIFT--}{CBM-*}{CBM-*}IY{$82}{CBM-Z}ID(KX{$82}{CBM-D}IDI{$82}{$e2}I{$7b}UJU2IG{$de}{CTRL-A}{$00}{SHIFT--}{CBM-*}{CBM-*}I2IF{$7b}IzXE{$80}{$e0}({stop}WJE{$80}{$e0}{CTRL-A}{stop}WJE{$80}{$e0}X{CTRL-A}IE{$80}{$e0}X(IEZ{$de}{$80}{CBM-*}{$80}{SHIFT--}{SHIFT--}{CBM-*}D{lgrn}{CBM-Y}{$e1}{$de}{f8}a{$82}{$e2}{SHIFT--}{CBM-*}D{lgrn}{CBM-Y}{$e1}{$de}2Y{CTRL-B}ID{lgrn}{CBM-Y}{$e1}Y{stop}ID{lgrn}{CBM-Y}{$e1}YD{lgrn}{CBM-Y}{$e1}{CTRL-A}ID{lgrn}{CBM-Y}{$e1}{$82}{CBM-D}{CTRL-B}ID{lgrn}{CBM-Y}{$e1}{$82}{CBM-Z}{CTRL-B}ID{lgrn}{CBM-Y}{$e1}{$82}{CBM-D}D{lgrn}{CBM-Y}{$e1}{$82}{CBM-Z}D{lgrn}{CBM-Y}{$e1}{$00}{$82}{CBM-A}E{swuc}{$61}{$e2}{$80}{CBM-*}{$80}{SHIFT--}{SHIFT--}{lgrn}{CBM-V}{$e1}{CBM-*}E{$de}{f8}a{$82}{$e2}{SHIFT--}{lgrn}{CBM-V}{$e1}{CBM-*}E{$de}2{stop}I2{SHIFT--}{lgrn}{CBM-V}{$e1}{CBM-*}E{$de}{$82}{CBM-D}{stop}I{$82}{CBM-D}{SHIFT--}{lgrn}{CBM-V}{$e1}{CBM-*}E{$de}{CTRL-B}{$82}{CBM-A}E{CTRL-A}{$e5}{clr}C{lblu}l{$82}{CBM-L}G{CTRL-G}{CTRL-G}{$e6}{$80}/{lgrn}{$f0}{$e1}{CTRL-G}{CTRL-G}{$e6}{$80}@{lgrn}{$f0}{$e1}{lblu}\{$82}{CBM-L}G{CTRL-A}{wht}{$e6}{orng}{gry1}{lgrn}{$f0}{$e1}{CTRL-B}{CTRL-A}{$e6}{orng}{pur}{lgrn}{$f0}{$e1}{CTRL-B}{CTRL-A}{$e6}{$82}{del}{lgrn}{$f0}{$e1}{stop}{CTRL-A}{$e6}{$82}{CBM-S}{lgrn}{$f0}{$e1}{stop}{CTRL-A}{$e6}{$83}n{lgrn}{$f0}{$e1}{CTRL-A}{stop}{$e6}{$82}{SHIFT--}{lgrn}{$f0}{$e1}{CTRL-A}{dish}{$e6}{$82}f{lgrn}{$f0}{$e1}{CTRL-B}{ensh}{$e6}{$82}j{lgrn}{$f0}{$e1}{wht}{CTRL-B}{$e6}{$82}{$f0}{lgrn}{$f0}{$e1}{stop}{CTRL-A}{$e6}{$82}q{lgrn}{$f0}{$e1}{CTRL-B}{CTRL-A}{$e6}{orng}{CBM-W}{lgrn}{$f0}{$e1}{CTRL-B}{CTRL-A}{$e6}{orng};{lgrn}{$f0}{$e1}{down}{CTRL-B}{lgrn}{CBM-S}{$e1}+{$e5}0.1v h{left}{down}s{left}{left}{left}{left}{left}{left}{down}kcatta{left}{down}l{left}{down}f{left}{left}{left}{left}{left}{left}{down}{down}2 hcam{up}C{CTRL-O}{$82}{$7e}E{CTRL-F}{CTRL-K}{lgrn}{CBM-S}{$e1}{swlc}{$e5}s{left}{down}k{left}{down}n{left}{down}a{left}{down}t{up}C{CTRL-K}{CTRL-K}{lgrn}{CBM-S}{$e1}{CTRL-G}{$e5}y{left}{down}{down}{down}x{up}C{CTRL-F}{del}{lgrn}{CBM-S}{$e1}{CTRL-F}{$e5}elgna{up}C{CTRL-F}{CTRL-X}{lgrn}{CBM-S}{$e1}{CTRL-F}{$e5}egnar{up}C{CTRL-L}{rvon}{lgrn}{CBM-S}{$e1}{swlc}{$e5}s{left}{down}m{left}{down}b{left}{down}c{left}{down}i{up}C{CTRL-X}
{lgrn}{CBM-S}{$e1}{$0a}{$e5}noitidnoc{up}C{CTRL-Y}{CTRL-P}{lgrn}{CBM-S}{$e1}{swlc}{$e5}s{left}{down}e{left}{down}n{left}{down}i{left}{down}m{up}C{grn}{CTRL-P}{lgrn}{CBM-S}{$e1}{down}{$e5}s{left}{down}l{left}{down}l{left}{down}e{left}{down}h{left}{down}s{up}C!{CTRL-V}{lgrn}{CBM-S}{$e1}{CTRL-F}{$e5}sllaw{up}C"{down}{lgrn}{CBM-S}{$e1}{CTRL-D}{$e5}sag{up}C#{CTRL-D}{lgrn}{CBM-S}{$e1}{CTRL-B}{$e5}f{up}C{CTRL-D}{CTRL-D}{lgrn}{CBM-S}{$e1}{CTRL-B}{$e5}f{up}C"{dish}{lgrn}{CBM-S}{$e1}{CTRL-G}{$e5}y{left}{down}{down}{down}x{up}C{CTRL-A}{wht}{$e6}{orng}{SHIFT-*}{lred}{$71}{$e1}{CTRL-A}{stop}{$e6}{$83}{CTRL-F}{lred}{$71}{$e1}{$00}{$82}{f7}XX{CTRL-B}IGG{$00}{$82}{f8}XX{CTRL-B}IGG{gry1}8{$e1}{gry1}b{$e1}{dish}{CTRL-K}{lgrn}{CBM-S}{$e1}{CTRL-B}{$e5}W{up}C{$82}{CBM-D}DYA{CTRL-B}
{CTRL-K}{gry1}{CBM-+}{$e1}{$82}{CBM-E}E{$82}{CBM-Z}DYA{CTRL-B}
{swlc}{gry1}{CBM-+}{$e1}{$82}{CBM-R}E{stop}{$82}{$84}XX{CTRL-B}IGG{wht}{$82}{CBM-@}XX{CTRL-B}IGG{$00}{brn}{$fe}{$e1}{CTRL-B}{brn}{$fe}{$e1}{CTRL-F}{$82}{CBM-H}E{stop}{$82}{CBM-J}E"{lblu}AE{rvof}{CBM-P}{CBM--}{$82}{CBM-A}D{blk}{$6e}{$e4}{lgrn}{CBM-V}{$e1}{blk}{$73}{$e2}HY{lgrn}{CBM-Y}{$e1}Y{rvof}h{$e4}Y O{blk}{$84}{$e4}{CTRL-A}{gry1}l{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}]ZO{blk}{inst}{$e4}{CTRL-B}{gry1}l{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}mZO{blk}N{$e4}{$00}{gry1}l{$e1}{$82}{inst}{$82}{CBM-A}DIYF{blk}G{$e4}{$82}{CBM-A}D{blk}{CBM-L}{$e4}{$60}{blk}{CBM-Y}{$e2}+{$82}{CBM-POUND}{$82}{CBM-A}DIE{CTRL-A}XFJUG{blk}H{$e2}Z{gry1}{stop}{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}wZO{blk}~{$e4}{$00}{gry1}l{$e1}{$82}{gry2}{$82}{CBM-A}DIYF{blk}{$f8}{$e4}{$80}{$a0}{$82}{CBM-POUND}{$82}{CBM-A}DIE{CTRL-A}XFJUG{blk}{$f9}{$e2}Z{lred}D{$e1}{rvof}h{$e2}Y/PX:NQ{up}{$8f}{$e4}{$82}{$7e}{$82}{CBM-A}DIDY{stop}Q{stop}W0PQ{up}{$75}{$e4}{CTRL-B}Q{up}${$e4}{$00}{up}%{$e2}{CTRL-D}Y{$82}{$82}E{up}{$6b}{$e4}{$82}{blk}{$82}{CBM-A}DIYF{$82}{$a0}{$82}{CBM-A}DIF{$00}PQ6{$82}{CBM-A}DIF2{$82}{CBM-A}DIFOSQ{up}{$67}{$e4}{CTRL-A}XFJUG{CTRL-A}{$82}{CBM-J}E{inst}{CTRL-A}{$e1}{stop}{$82}{CBM-J}E{lred}{$e0}{$e1}{up}{$68}{$e2}Z{up}{$6e}{$e2}{inst}{CTRL-A}{$e1}{$00}{gry1}l{$e1}{up}{f8}{$e2}{CTRL-L}Q{up}{$80}{$e4}{clr}{CBM-E}{$e1}{up}{f8}{$e2}Y0P{up}{f8}{$e4}{inst}f{$e1}{lred}{f5}{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}{home}ZO6{$82}{CBM-A}DIF2{$82}{CBM-A}DIFOQ{up}{CBM-P}{$e4}{$82}{CBM-A}D{brn}{$fe}{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}_ZO{up}H{$e4}{dish}{$e5}deppots{up}{gry2}\{$e2}{rvof}h{$e2}Y{CTRL-A}{$e5}aZO{up}{$e3}{$e4}{CTRL-D}{gry1}l{$e1}{$00}{$82}{f7}{$82}{CBM-A}DIG{gry1}8{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}rZO{up}{$fe}{$e4}{dish}{gry1}l{$e1}{$00}{$82}{f8}{$82}{CBM-A}DIG{gry1}b{$e1}{rvof}h{$e2}Y{CTRL-A}{$e5}iZO{rvof}){$e4}{$00}{gry1}l{$e1}{$82}{$84}{$82}{CBM-A}DIYF{rvof}%{$e4}{CTRL-A}XFJUG{rvof}{CBM-O}{$e1}{gry1}{home}{$e1}{rvof}&{$e2}Z{rvof}h{$e2}Y{CTRL-A}{$e5}{rvof}ZO{rvof}d{$e4}{$e6}{$7f}{$84}6{$82}{CBM-A}DI XF{$7b}IEG{rvof}h{$e2}{$00}{gry1}l{$e1}Z{$82}{CBM-A}D{rvof}s{$e4}{$00}{rvof}t{$e2}{CTRL-B}{$82}{CBM-A}E{$82}{CBM-@}F{$00}O{rvof}{f3}{$e4}{$82}{CBM-@}{CTRL-B}IF{$00}O{rvof}{f3}{$e4}{$82}{$84}F{$00}O{$82}{$84}{CTRL-B}IF{$00}OQ{rvof}{f3}{$e4}{dish}{$e5} evila {up}{gry2}\{$e2}{$82}{$a0}D{CTRL-B}N{rvof}{CBM-D}{$e4}{$82}{CTRL-B}D@QY{$82}{CBM-U}DOS{rvof}{CBM-Q}{$e4}Y{$82}{CBM-U}E*{lblu}AE{gry2}{$e1}{$e1}"{lblu}AEZ{blk}_{$e2}{$68}{CBM-POUND}{$68}{CBM-I}{$fe}{lblu}h{gry2}h{$60}{CTRL-P}{$e6}{$e8}kE{down}{$e6}{$e8}jEp@XLY{CTRL-A}{SHIFT--}{stop}{stop}WL{$e6}{$e8}hEY2L{CTRL-A}{SHIFT--}YZ{$de}U{CTRL-A}IU{$de}UY{$82}{CBM-C}N{rvof}{$ec}{$e4}UZ{rvof}D{$e2}ZZ{$00}{$e6}{$e8}kE{$82}{f7}{$82}{CBM-A}DIFY{orng}{swlc}P{clr}{CTRL-L}{$e4}{orng}{$68}XJU{orng}{swlc}J{clr}2{$e2}Y{$80}{CBM-H}P{clr}{grn}{$e4}Y{$80}{CBM-H}JU{orng}{swlc}J{clr}2{$e2}YzP{clr}/{$e4}Y{$80}{CBM-H}JUzUJ{clr}2{$e2}zXJ{clr}{$73}{$e1}(KU{clr}{$73}{$e1}I2{$82}{CBM-A}DIF{$7b}IIY{$82}{$e2}(INX({f8}aJPR{clr}w{$e4}Z{$e0}{dish}{$00}{SHIFT--}{brn}Z{CBM-*}{CBM-*}IIFXIT{$82}{CBM-H}E{inst}{$e3}{$e1}{$de}Z{CTRL-F}{$82}{CBM-H}E{inst}T{$e2}{clr}{f3}{$e1}{wht}UL{$82}{f8}{$82}{CBM-A}DIFK{$80}HUL{$e0}{$80}{left}K{ensh}ULY{$0a}ULYYK{$80}{lred}ULXK(UL{$0a}XL{stop}WK{$80}{$fa}UL{stop}VKpUL{stop}VIJ{$e0}Y0UJ{$82}{$7e}{$82}{CBM-A}DID{CTRL-D}Q{clr}{$e2}{$e4}{$82}{f7}{$82}{CBM-A}DIF{$0a}KIY#P{clr}U{$e4}{$00}{gry1}l{$e1}{$82}{f7}{$82}{CBM-A}DIG{gry1}8{$e1}{inst}{$00}{$e2}{$82}{f8}{$82}{CBM-A}DIF{$0a}KIY{swlc}P{clr}{$f6}{$e4}{$00}{gry1}l{$e1}{$82}{f8}{$82}{CBM-A}DIG{gry1}b{$e1}{$e0}{gry2}{rvon}{$e1}2{$82}{$82}DI{$82}{CBM-A}DIF{$7b}I{$82}{$82}D{$00}O{inst}({$e4}{gry2}vF{$00}O{gry2}xF{$00}OR{inst}({$e4}XI{stop}{CTRL-A}{SHIFT--}XIYDY OX+ORU{$60}OR{inst}a{$e4}{$de}{inst}b{$e2}{SHIFT-+}{inst}Q{$e1}{$e0}{$82}{pur}{$82}{CBM-A}DIF{$82}{$a0}{$82}{CBM-A}DIF{$00}PQ{inst}P{$e4}{gry2}{rvon}{$e1}Y6{$82}{CBM-A}DIF{$7b}IIYDY+OX{$60}OR{inst}{gry1}{$e4}ZX{gry1}H{$e1}Z{$7f}{$82}{CBM-H}E{CTRL-B}{$82}{CBM-J}E{inst}Q{$e1}{stop}{$82}{CBM-J}E{CTRL-F}{$82}{CBM-H}E {$82}{CBM-POUND}{$82}{CBM-A}DIG{inst}P{$e2}Y{$66}OX{$80}{$a0}ORX{$80}{$e0}ORXzORS{$82}{$a0}{$82}{CBM-A}DIF{CTRL-A}PT{CTRL-A}QRQ{inst}B{$e4}ZZ{gry1}H{$e1}{inst}D{$e2}ZZ{$82}{pur}{$82}{CBM-A}DI{CTRL-A}XFJUG{$e0}{inst}{$e3}{$e1}*{lblu}AE{gry2}{$e1}{$e1}{gry1}#{$e1}"{lblu}AE{$e0}{CTRL-P}{$e6}{$e8}kE{CTRL-O}{$e6}{$e8}jE{grn}{$82}{CBM-W}E{stop}{$00}{SHIFT--}{brn}{CBM-S}{$e1}{$de}{$00}{$e6}{$e8}kEYDY{$66}O{brn}{ensh}{$e4}{$66}{brn}{$0a}{$e2} {stop}WEYzO{brn}{$71}{$e4}X6F{$7b}IO{brn} {$e4}{$00}{brn}!{$e2}{CTRL-B}{$82}{CBM-J}DX{$82}{$a0}IFJY{stop}W{$82}{$a0}IG{CTRL-A}N{brn}{$64}{$e4}{CTRL-A}X{$82}{CBM-@}IFJY{stop}W{$82}{CBM-@}IG{$00}P{brn}q{$e4}Y{brn}{$fe}{$e1}z{brn}{$61}{$e2}{$00}X"{CTRL-D}IIG{CTRL-G}{CTRL-G}{$e6}{$80}{$69}{lred}{$71}{$e1} {brn}{$65}{$e2}zX6IF{$7b}IEZZ{brn}{CBM-D}{$e2}{$80}{$e0}O{brn}{CBM-D}{$e4}2F{$7b}IJY{$e6}~XOX{$e6}~~ORX{CTRL-A}ORX(OR{brn}{cyn}{$e4}{dish}{$e5}tcnufed{up}{brn}{SHIFT-POUND}{$e2}{dish}{$e5}emerpus{up}{gry2}\{$e2}Z{$e0}{dish}{$00}{SHIFT--}Y{brn}Z{CBM-*}{CBM-*}IIFIYD{brn}{$ec}{CBM-*}{CBM-*}IIYF{CTRL-D}WEEZ{$82}{CBM-W}DY{$e6}{$e8}hE{$82}{CBM-H}DI{$82}{CBM-W}E{$de}{$e0}{$00}{$00}{CTRL-A}{$00}~~({$00}X~'{$00}Y~){$00}W~*{$00}@{$00}@{$00}]{$00}]{$00}n{$00}n{$00}m{$00}m{$00}{rvon}X{$82}{blk}IG{dish}X{$82}{inst}IG{$0a}X{$82}{gry2}IG{$80}HX{$82}{pur}IG{stop}X{$82}{$a0}IG X{$82}{CBM-POUND}IE2XIFX6IGY{$00}O{lred}{$69}{$e4}{$82}{CBM-E}D{$82}{CBM-D}E{$82}{CBM-R}D{$82}{CBM-Z}E{CTRL-A}{dish}{$e6}{$82}{$6f}{lred}{$71}{$e1}{CTRL-B}{ensh}{$e6}{$82}{$73}{lred}{$71}{$e1}{wht}{CTRL-B}{$e6}{$83}{CTRL-Y}{lred}{$71}{$e1}{$82}{CBM-A}D{$00}{$82}{CBM-A}E{$00}{gry1}l{$e1}{$82}{CBM-A}E{gry2}{$e1}{$e1}{lred}{f5}{$e1}{$00}X{$82}{$7e}IGZ{$e0}X{CTRL-A}{SHIFT--}Y{CTRL-D}W{CTRL-A}{SHIFT--}qXE{CTRL-A}I{$de}Z(I{$de}ZZZ{$e0}"{CTRL-O}{lgrn}{CBM-S}{$e1}{$82}{CBM-D}DA{CTRL-B}{gry1}{CBM-W}{$e1}Z{wht}{$e5}{left}{left}{up}{up}{up}Z{$82}{CBM-Z}DA{CTRL-B}{gry1}{CBM-W}{$e1}Z{wht}{$e5}{left}{up}{up}{up}{up}Z{$82}{pur}DA{stop}{gry1}{CBM-W}{$e1}Z{$80}{up}{rvon}*{lblu}AEC"{lblu}AE{$e0}{$82}{CBM-A}D{lred}K{$e4}{$e0}{$82}{gry2}DY{CTRL-D}P{lred}Z{$e4}*J{home}{lred}{SHIFT--}{$e2}%J{del}{gry1}/{$e2}{$82}{blk}DY{rvon}O{$82}{CBM-A}DR{lred}{$ef}{$e4}Z{$e0}Y{dish}P{lred}{$fc}{$e4}{esc}U J{gry1}{$00}{$e2}{red}U{CTRL-W}J{gry1}/{$e2}{$82}{CBM-A}D{gry1}{$0a}{$e4}{$e0}{CTRL-W}{$82}{inst}D{CTRL-V}J{gry1}/{$e2}{$82}{CBM-A}D{gry1}{CTRL-Z}{$e4}{$e0}{swlc}{$82}{$84}D{CTRL-U}J{gry1}/{$e2}{dish}{$82}{CBM-@}DY{$00}O{$00}JI{CTRL-P}J{lgrn}{CBM-S}{$e1}{CTRL-B}{$e5}W{up}C{$e0}{$82}{f7}FA{stop}{CTRL-G}{rvon}{gry1}{CBM-+}{$e2}{$82}{f8}FA{stop}{CTRL-G}{CTRL-V}{gry1}{CBM-+}{$e2}{$82}{CBM-A}DY{gry1}z{$e4}{$82}{$7e}IE{gry1}{left}{$e2}{$82}{$7e}IDXXXR{stop}V{stop}VQSQ{CTRL-A}{stop}{$00}{SHIFT--}XXQ{gry1}{brn}{$e4}{CBM-*}{CBM-*}I{gry1}{yel}IYDU{CTRL-A}ID{lgrn}{CBM-S}{$e1}{stop}WXQ{gry1}{blk}{$e4}{CTRL-B}{$e5}Q{up}{gry1}{inst}{$e2}{CTRL-B}{$e5}W{up}CYI{$de}ZZ{$82}{$7e}E{$e0}#{wht}{CTRL-D}{wht}{wht}{rvon}{wht}{CTRL-V}{lgrn}{CBM-S}{$e1}{gry1}{CBM-W}{$e1}{CTRL-A}I{$80}{up}UC{$e0}XUJY{$00}P{gry1}F{$e4}{CTRL-A}{SHIFT--} U{CTRL-A}I{$de}{gry1}G{$e2}Z{$e0}{$82}{CBM-POUND}{$82}{CBM-A}DID6{$82}{CBM-A}DIF{$7b}IE6{$82}{CBM-A}DIFXIY6{$82}{CBM-A}DIG{$7b}IYD{$82}{CBM-POUND}{$82}{CBM-A}DIEzUE{$82}{CBM-D}{$82}{CBM-A}DIYD{gry2}vFIUE{$82}{CBM-Z}{$82}{CBM-A}DIYD{gry2}xFIUE{$e0}{$00}{gry2}xG{$00}{gry2}zGY6P{gry2}/{$e4}{$e6}~~{gry2}xG{$e6}~X{gry2}zG{gry2}={$e2}Y4N{gry2}={$e4}{CTRL-A}{gry2}xG({gry2}zG{stop}UMY{gry2}k{$e4}{$e6}~{$fe}I{gry2}m{$e2}Z{CTRL-A}Y{gry2}vG{gry2}zFI{$e0}YYYYYY{gry3}{$71}{CBM--}*{lblu}AE{stop}{$82}{$a0}E{gry2}{$e1}{$e1}{CTRL-Y}{CTRL-K}{lgrn}{CBM-S}{$e1}C{$00}{CTRL-V}{lgrn}{CBM-S}{$e1}{CTRL-A}{$e5}{down}C{$e3}({$82}{$e2}{f8}aJL{$00}{SHIFT--}{$82}{$e2}{CBM-*}(KI'{$00}{SHIFT--}Y{CBM-*}IDY{$60}O{gry2}{gry2}{$e4}Z*{CBM-*}{$e6}{$83}{SHIFT-*}IE{$de}ZH{gry2}{CBM-Z}{$e4}H{$00}O{gry2}{CBM-Z}{$e4}{gry2}{CBM-@}{$e2}{CTRL-A}{$e5}{down}C{$de}
{CTRL-A}C{CTRL-L}{$e5} ?niaga yalpC{$e3}ZY{CTRL-A}{$e5}yZO{gry2}U{$e4}{gry3}{$7e}{CBM--}{gry2}{$de}{$e2}{CTRL-A}{$e5}nZO{gry2}{$de}{$e4}{SHIFT-*}{gry2}{CBM-R}{$e2}{CTRL-X}{$0a}{lgrn}{CBM-S}{$e1}{$82}{$a0}FY{CTRL-A}P{$82}{CTRL-B}D@QR{lgrn}{$61}{$e4}{CTRL-X}{$e5} {SHIFT--}{left}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT--}{left}{down}{CBM-S}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-A}{up}CY{CTRL-A}N{lgrn}!{$e4}Z{wht}{$e5}ysuol{lgrn}h{$e2}Y{CTRL-A}O{lgrn}2{$e4}Z{wht}{$e5} der {lgrn}h{$e2}{CTRL-B}O{lgrn}a{$e4}{wht}{$e5}rebma{lgrn}h{$e2}{wht}{$e5}neergC{home}{$e5}{CBM-X}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-Z}{left}{left}{left}{left}{left}{left}{left}{left}{down} {lgrn}{CBM-D}{$e2}{CTRL-Y}{$e5} {CBM-K}{rvon}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-K}{left}{down}{CBM-F}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-D}{up}C{CTRL-A}O{lgrn}{f8}{$e4}{wht}{$e5} der {lgrn}{clr}{$e2}{wht}{$e5}ysuolC{CTRL-V}{$e5}{CBM-V}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-C}{rvof}{left}{left}{left}{left}{left}{left}{left}{left}{down} C{$e0}{CTRL-A}I{$80}{$f5}E{$80}{$e2}E{$e0}{$80}{CBM-H}E{lblu}{$6c}{CBM--}{$e0}{lblu}{rvof}{CBM--}{$80}{CBM-H}D{$e0}{lgrn}O{$e2}{CTRL-L}TM{lgrn}PID{$e0}21'67698m]{home}{$00}$TM{CTRL-B}I{$e0}{stop}({$82}{$e2}{f8}aJLJTM{CTRL-B}I{$e0}{$00}{lblu}f{$e1}XEY{CTRL-D}W{CTRL-A}{SHIFT--}{CTRL-A}I{CTRL-B}{lblu}f{$e1}XE{$de}{CTRL-A}I{CTRL-D}{lblu}f{$e1}XE{stop}W{CTRL-A}{SHIFT--}(I{CTRL-F}{lblu}f{$e1}XE{$de}ZX{CTRL-A}{SHIFT--}(I{dish}{lblu}f{$e1}XE{$de}(I{$0a}{lblu}f{$e1}XE{stop}W{CTRL-A}{SHIFT--}{CTRL-A}I{CTRL-L}{lblu}f{$e1}XE{$de}{CTRL-A}I{swlc}{lblu}f{$e1}UEZZ{$e0}{$82}{CBM-L}FIF{$e0}{$ec}{$00}{$e2}{$00}{$fb}{$00}{$e1}{$00}{$61}{$00}{$fc}{$00}{$62}{$00}{$fe}{$00}{$70}{$00}@{$00}{$6e}{$00}]{$00}]{$00}{$6d}{$00}@{$00}{$7d}{$00}{CBM-G}{CBM-H}{ensh}{$f0}){CBM-B}{sret}o{$e8}{CBM-G}{CBM-H}jjjj{ensh}P,o{$e8}0{$fb}{sret}o{$e8},o{$e8}{CTRL-P}{$fb}0, {$67}{stop}l{$78}R,o{$e8}{$70}{$fb}{CBM-Z}o{$e8}){CTRL-O}{f1}{CBM-H}{SHIFT-POUND}{$7f}{sret}o{$e8}{SHIFT-POUND} ,o{$e8}P{$fb}{CBM-Z}o{$e8}{$0a}{$0a}{$0a}{$0a}{wht}{CBM-H}{CBM-POUND}{f1}{CBM-H}{SHIFT-POUND}{$00}{CBM-I}~{swuc}o{$e8}{swuc}c{$e8}{$60}*{CBM-I}{CTRL-D}{f4}jjm{CTRL-B}{CTRL-B}j{CBM-A}f{f4}{CTRL-X}{$6d}A{CTRL-Z}{sret}V{CTRL-Z}$"{CTRL-P}:{$69}{CTRL-P}{sret}{$f1}{CTRL-Z}{$69}{CTRL-P}{sret}{swlc}{esc}{$69}{CTRL-P}{sret}{$f3}{CTRL-Z}{$a0}{$00}{SHIFT-POUND}{CTRL-G}{f1}%{f1}#{CBM-E}2{up}rHF#P{$f7}F%{$f0}{dish}{gry2}{$69}!{CBM-POUND}{SHIFT-POUND}{CTRL-G}P{$e9}V{esc}P{$0a}{$a0}{$00}{SHIFT-POUND}w{up}b{SHIFT-POUND}{CTRL-B}{brn}{esc}JJ{CTRL-P}{CBM-Z}l{f1}{$e6}{$78}{SHIFT-POUND}B{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{CTRL-Z}{sret}{CTRL-Z}{CTRL-B}{CBM-I}?{CBM-X}1{esc}{brn}{CTRL-Z}J{CTRL-P}{$f8}x{$60}~{CTRL-B}~{CTRL-B}~{CTRL-B}~{CTRL-B}~${$00}$~${$00}${$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-F}{$00}{$e0}{CTRL-A}{$e6}{CTRL-A}L{$80}V{$80}{$e0}{$80}{$ea}{$80}*{CBM-K},{orng}*{CBM-K}{$7c}{orng}q{$80}[{$80}{$65}{$80}{$6f}{$80}x{$80}{$63}{$80}{$69}{$80}s{orng}{$78}{SHIFT-POUND}{f1}{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{$e6}{sret}{CTRL-Z}{CTRL-B}x{$60} {$eb}{blu}{f1}{$6f}{CBM-Z}~{blu}{f1}{$70}X{CBM-I}{$fe}{lblu}{CBM-Z}d{$e8}{$f0}{$fb}{f1}{SHIFT--}{f1}{CBM-*}{SHIFT-POUND}^{f1}{$6d}{SHIFT-POUND}{CTRL-A}{f1}{$6c}{f1}{$6e}{$e6}{$6f}P{CTRL-B}{$e6}{$70}{CBM-Z}{stop}{CTRL-B}I{CTRL-D}{$ea}{$ea}{SHIFT-@}{CTRL-P}%{$a0}{$00}{CBM-E}{$6f}0{dish}{CBM-N}{gry2}h{f4}hl{cyn}{esc}{$0a}0{swlc}jh{$e6}{$6f}P{CTRL-B}{$e6}{$70}{CBM-E}{$6f}hl{cyn}{esc}{sret}R{esc}{$6c}${blu}{SHIFT-POUND}p R~{SHIFT-POUND}! R~{CBM-I}{$fe}{lblu}{$6c}{$fc}~{$e6}{$6f}P{CTRL-B}{$e6}{$70}{CBM-E}{$6f}lA{esc}{$68}{CBM-POUND}{$68}{CBM-N}{$68}P{CTRL-K}{$68}P{CBM-+}{$84}{$6f}{f3}{$70}l{CBM-G}{esc}{$68}{$68}l{cyn}{esc}{$84}{$71}{$68}{f1}{$69}{$68}{f1}{$6a}{$68}{CBM-POUND}{$68}{CTRL-P}{home}i~{brn}_{gry2}i~{brn}^{$f6}^P{CTRL-B}{$f6}_F{$71}P{wht}{brn}_{gry2}{brn}^{SHIFT-@}{CTRL-P}{CBM-M}{CBM-G}{$6a}h{CBM-G}{$69}h{$a0}{$00}{$60}{CBM-+}{$6d}{CBM-X}{stop}{CTRL-A}h{CBM-X}{CTRL-D}{CTRL-A}hl{cyn}{esc}{gry2}h {$e4}~hl{cyn}{esc}{$68}{f1}{CTRL-A}{$68}{f1}{CTRL-B} {$00}{$00}l{cyn}{esc}{$84}{$66}{CBM-I}{$00} {wht}{red}{$66}{$71}{blk}{CTRL-D}{SHIFT-POUND}-{f1}{$66}{CBM-I}{wht}{f3}{$60}{$a0}{down}{SHIFT-POUND}{$00}{f1}{$61}{CTRL-X}{blk}{CTRL-K}&{$61}8{CBM-G}{$61}{$e9}{$0a}0{CTRL-B}{f1}{$61}&^&_{f7}P{$ee}{CBM-G}{$61}{$f0}{CTRL-B}{f3}{$60}{brn}{$66}JPZ{CBM-I}{CTRL-F}{CTRL-X}{SHIFT-POUND}{$00}hH{CBM-J}{$65}{$69}0hJ{$e4}{$60}P{$f1}{SHIFT-POUND}{$00}h{CBM-G}{$66}{$f0}{wht}Hh{SHIFT-POUND}{$00}h{gry2}hl{cyn}{esc}{CBM-G}{$6f}{up}{$6d}F{$6d}{CBM-G}{$70}{up}{$6d}F{$6d}{$68}{f1}{$6f}{$68}{f1}{$70}l{CBM-G}{esc}{$e6}{$6d}{CBM-E}{$6d}{f1}{$70}{$e6}{$6d}{CBM-E}{$6d}{f1}{$6f}l{cyn}{esc}8{$68}{$fd}{stop}{CTRL-A}{$68}{$fd}{CTRL-D}{CTRL-A}{$70}{CTRL-D}0&{CTRL-P}({CTRL-P}"0$8{$68}{f1}^{$68}{f1}_{CBM-X}{stop}{CTRL-A}{$e5}^{CBM-X}{CTRL-D}{CTRL-A}{$e5}_l{$e0}{red}{$68}{SHIFT--}{stop}{CTRL-A}P{ensh}{$68}{SHIFT--}{CTRL-D}{CTRL-A}P{CTRL-D}{f7}P{CTRL-A}{$68}{gry2}{left}{stop}{CTRL-A}{left}{CTRL-D}{CTRL-A}l{cyn}{esc}{CBM-I}{stop}{$68}h){CTRL-O}{brn}^{$68}jjjjJ{brn}^J{CTRL-P}{$ef}{CBM-I}{stop}{gry2}h{CBM-J}^I{$0a}{blk}{CTRL-B}{$69}{CTRL-F}{$69}0hJ{CTRL-P}{$f0}{gry2}h{SHIFT-POUND}{CTRL-D}hl{cyn}{esc}{CBM-I}{$00} {wht}{red}{CBM-I}{CTRL-B} {CTRL-G}{red}{$84}{$62}{$84}{$63}f_P{dish}{$66}^P{CTRL-F}{$a0}{CTRL-A}P{CTRL-B}{$66}^{blk}
{CTRL-X}{CBM-G}{$62}{$65}{$60}{f1}{$62}{CBM-G}{$63}{$65}{$61}{f1}{$63}{CTRL-F}{$60}&{$61}{f7}P{CBM--}{$66}{$71}{blk}{rvon}{SHIFT-POUND}~e{$62}{f1}{$62}{SHIFT-POUND}~e{$63}{f1}{$63}{$e6}{$62}P{CTRL-B}{$e6}{$63}{CBM-G}{$63}h{CBM-G}{$62}hl{cyn}{esc}{$84}^{$84}_{$a0}{down}P{CTRL-P}&^&_8{CBM-G}^{$e5}{$60}{CBM-N}{CBM-G}_{$e5}{$61}{CTRL-P}{stop}{CTRL-X}{blk}{wht}{f1}_{f3}^8&{$62}&{$63}{f7}P{$e1}{$60}{CBM-I}{CTRL-D} {wht}{red}{CBM-I}{CTRL-B} {CTRL-G}{red} {lred}{rght}{CBM-G}_h{CBM-G}^hl{cyn}{esc}{CBM-I}{CTRL-D} {wht}{red}{CBM-I}{CTRL-B} {CTRL-G}{red} {lred}{rght}l{$77}{rght}{CBM-G}{SHIFT--}je{SHIFT--}j{blk}{CTRL-F}{CBM-G}{CBM-*}{ensh}@P{CTRL-D}{CBM-G}{CBM-*})?j{f1}{CBM-*}{$66}{$de}{$66}{SHIFT--}{CBM-G}{SHIFT--}h{CBM-G}{$de}hl{cyn}{esc}{$e8}{$e8}{$68}{$0a}{CBM-POUND}{$68}{$f0}{CTRL-B}{$a0}{CTRL-D}{f3}{$6b}{f7}0{rght}{CBM-E}{$6b}hH{CBM-E}{$6b}h{SHIFT-*}{CTRL-B}{$f0}{CTRL-K}{f7}{f7}{CBM-E}{$6b}HH{up}{$6b}{f7}P{$f1}{$68}{up}{$6b}{f7}{$68}{up}{$6b}l{cyn}{esc}{CBM-G}{$70}h{CBM-G}{$6f}h{CBM-I}{CTRL-F}{$68}{up}{$6d}F{$6d}JP{$f8}l{cyn}{esc}{CBM-+}{$6d}{$fe}{CTRL-D}{CTRL-A}P{stop}{$fe}{stop}{CTRL-A}{CBM-X}{CTRL-B}{CTRL-A}8{$fd}{CTRL-D}{CTRL-A}{CBM-X}{CTRL-A}{CTRL-A}{$fd}{stop}{CTRL-A}{$70}{CTRL-O}0{CTRL-O}{CBM-X}{CTRL-F}{CTRL-A}{f1}{$6f}{CBM-X}{wht}{CTRL-A}{f1}{$70}l{cyn}{esc}0{$f1}{f4}{CTRL-X}{$69}{CTRL-F}{f1}{$6d}l{cyn}{esc}{$68}{$f0}{home}{CBM-N}{f1}^{$e6}{$6f}P{CTRL-B}{$e6}{$70}{CBM-E}{$6f}h{gry2}hJP{$f2}{CBM-G}^hl{cyn}{esc}{$68}{CBM-POUND}{$f0}{dish}{$68}{$68} R~{f7}P{$f8}{$68}l{cyn}{esc}{$68}{f1}{CTRL-A}{$68}{f1}{CTRL-B}H{CBM-E}{CTRL-A}h{f7}{CBM-E}{CTRL-A}hl{cyn}{esc}{$68}{f1}{CTRL-A}{$68}{f1}{CTRL-B}{gry2}h{CBM-E}{CTRL-A}hl{cyn}{esc}{$68}{f1}{CTRL-A}{$68}{f1}{CTRL-B}{$68}{up}{CTRL-A}{$68}H{up}{CTRL-A}l{cyn}{esc}{$68}{f1}{CTRL-A}{$68}{f1}{CTRL-B}{$68}{up}{CTRL-A}{$68}l{cyn}{esc}{$68}{CTRL-X}{$7d}{stop}{CTRL-A}{left}{stop}{CTRL-A}{$68}{$7d}{CTRL-D}{CTRL-A}{left}{CTRL-D}{CTRL-A}l{cyn}{esc}{$68}8{$fd}{stop}{CTRL-A}{left}{stop}{CTRL-A}{$68}{$fd}{CTRL-D}{CTRL-A}{left}{CTRL-D}{CTRL-A}l{cyn}{esc}{$68}{rght}{stop}{CTRL-A}{left}{stop}{CTRL-A}{$68}{rght}{CTRL-D}{CTRL-A}{left}{CTRL-D}{CTRL-A}l{cyn}{esc}{$68}i~h{CBM-X}{CTRL-B}{CTRL-A}i~{left}{CTRL-B}{CTRL-A}l{cyn}{esc}{$68}={stop}{CTRL-A}{left}{stop}{CTRL-A}{$68}={CTRL-D}{CTRL-A}{left}{CTRL-D}{CTRL-A}l{cyn}{esc}{$68}{$0a}{CBM-POUND}{$68}{SHIFT-@}P{CTRL-F}{$a0}{CTRL-D}P{CTRL-B}{$a0}{CTRL-B}{f3}{$6b}{CBM-E}{$6b}h{f7}{CBM-E}{$6b}hl{cyn}{esc}{CBM-I}{$00} O~I
{$f0}{$0a}{brn}{$0a}{$e8}{$e0}?P{$f2}lT{esc}{f3}^J0{CTRL-G}{gry2}h{CBM-J}{$0a}hP{$f6}{gry2}h{CBM-G}^hl{cyn}{esc}{SHIFT-POUND}{CTRL-F}{CTRL-X}{$65}{$6d}{f1}{$6d}l{cyn}{esc}{$de}{esc}x{red}{CTRL-X}{rght}{brn}{grn}{CBM-L}{grn}T{grn}{CBM-G}{grn}D{grn}c{red}{$e1}{grn}{$f3}{grn}e{rght}T{rght}{CBM-V}{rght}{$ea}{red}{$fe}{red}W{red}%{blu}{wht}{blu}{CTRL-V}{blu}{$e4}{rght}{swlc}{grn}{CTRL-F}{grn}6{blu}={blu}a{blu}{$00}{red}{$76}{blu}l{red}5{grn}h{grn}6{red}H{red}{CBM-W}{red}{CBM-B}{red}o{blu}{$ef}{esc}{$7b}{grn}{$e4}{esc}$$$$$$$$$$$$$$$$$$$$$$$$$$$$${CBM-Z}{$63}C{$f0}{$0a}{SHIFT-POUND}{$fc}{sret}{orng}{blu}{SHIFT-POUND}Q{sret}{$80}{blu}{CBM-Z}{$fe}{blu}{$60}b{CTRL-L}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}    0 clr:poke59468,12
    1 rem flight copyright (c) 1979 ken morley
    2 rem 6440 dumfries st
    3 rem vancouver, bc canada
    4 :
    5 rem cursor #12, july, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 28 may 80
   90 pg$="flight!":nm$="12":gosub62000
  100 rem
  110 gosub50000
  120 dims$(7)
  131 s$(1)="           .      {rght}{rght}{rght}{rght}            .   "
  132 s$(0)="  .               {rght}{rght}{rght}{rght}.              ."
  133 s$(2)="           .      {rght}{rght}{rght}{rght}     .       .  "
  134 s$(3)="                 .{rght}{rght}{rght}{rght}                "
  135 s$(4)="                  {rght}{rght}{rght}{rght}        .       "
  136 s$(5)="     .         .  {rght}{rght}{rght}{rght}                "
  137 s$(6)="        .         {rght}{rght}{rght}{rght}       .        "
  138 s$(7)=".                 {rght}{rght}{rght}{rght}                "
  150 goto4003
  200 gosub50000:print:fori=1to25:poke32768+rnd(1)*1000,46:next:forj=1to40
  210 s1=33348:s2=33230:s3=33267:s0=59464
  220 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvof}"tab(20)"NM{left}{left}{down}{rvon}{CBM-@}{CBM-@}{left}{left}{down}L{SHIFT-@}{left}{left}{down}{rvof}{CBM-C}{CBM-V}";:gosub8010
  230 ifj>22thenpokes3,78:pokes3+3,77:pokes0,95+4*j:pokes0,0
  240 pokes0,75+4*j:pokes0,0
  250 t=(j+1)/3:ift=int(t)thenpokes1,103:pokes1+1,101:pokes1,32:pokes1+1,32
  260 fori=1to(.685*j)^2+250:nexti:ifj=40then400
  300 print"{left}{left}  {left}{left}{up}  {left}{left}{up}  {left}{left}{up}  {left}{left}";
  310 ifj=38thenpokes3,82:pokes3+3,64:goto330
  320 ifj>22thenpokes3,32:pokes3+3,32
  330 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{up}{up}{up}"
  340 ifj=22thenpokes2-3,77:pokes2,78:pokes2-3,100:pokes2,100
  350 ifj=22thenpokes2-3,32:pokes2,32:pokes3,78:pokes3+3,77
  360 ifj<25thenpoke33728+rnd(1)*40,46:ifj=21thenpoke33738,81
  370 ifj>24thenreadj$:printj$
  400 nextj:fori=1to3000:nexti
  420 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(21)" {left}{up}{CBM-@}";:y=15
  425 gosub2000:print"{left}N";:gosub2000:print"{left}{CBM-G}";
  430 gosub2000:print"{left} {left}{left}M";:gosub2000:print"{left}{CBM-@}";
  500 gosub2000:fori=1to1500:next:y=7:forj=1to2
  510 print"{down}*";:gosub2000:print"{left} *";:gosub2000:print"{left}{SHIFT-*}{left}{down}*";:gosub2000
  520 print"{left} {down}*";:gosub2000:print"{left} {down}*";:gosub2000:print"{left} *";:gosub2000:ifj=2then585
  570 print"{left} *";:print"{left}{left}{left}{left}{left}{left}{up}{up}{up}{up}";
  585 y=5
  590 nextj:fori=1to1000:next:print"{left} {left}{left}{down}*";:gosub2000:print"{left} {left}{left}{down}*";:gosub2000:forj=1to19:print"{left} {left}{left}*";
  650 gosub2000:nextj:fori=1to1000:next:print"{left}{left}{CBM-Q}";:gosub2000:print"{left}{up}{SHIFT--}";:gosub2000:print"{left}{up}{rvon}{CBM-K}{rvof}X{CBM-K}{down}{down}{left}{left}{left}";
  660 gosub1600:gosub8020:gosub9000:gosub8010
  710 print"{SHIFT--}{rght}";:gosub1600:forj=1to19:print"{left} *";:gosub2000:next:gosub1600
  750 y=7
  790 print"{up}{up}{rght}{rght} {rght}*";:gosub2000:print"{left} {left}{down}*";:gosub1600:print"{CBM-W}{left}{down}{CBM-T}{up}{up}{left}";:gosub2000:print"{SHIFT--}{left}{up}";:gosub2000
  840 print"{SHIFT--}{left}{up}";:gosub2000:print"{down}{rght}{rvon}18{rvof}{down}{down}{left}{left}{left}";:gosub1600:print"{SHIFT--}{left}";:gosub2000:forj=1to6:print"{left} {left}{left}*";
  900 gosub2000:next
  910 gosub1600:print"{left}{rvon}*{left}";:gosub2000:print"{rvof}* .";
  920 forj=1to4:print"{left} .";:gosub2000
  970 nextj:print"{left} {rght}/{up}clunk!{left}{left}{left}{left}{left}{left}{left}{down}";:y=20:gosub2000:fori=1to200:next
  980 print" {up}      {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:goto3000
 1500 gosub8010:poke59464,255:fori=1toq/5:poke59466,iand167:next
 1510 q=q-20:gosub8020:return
 1600 fori=1to600:next:return
 2000 poke59464,y:poke59464,0:fori=1to100:next:return
 3000 gosub1600:print"{down} *";:gosub2000:print"{left} {up}*";:forj=1to2:gosub2000:print"{left} {left}{left}{up}*";:gosub2000
 3045 print"{left} {left}{left}{up}*";:gosub2000:print"{left} {left}{up}*";:gosub2000:print"{left}{SHIFT-*}{left}{left}*";:gosub2000:print"{left} ";:ifj=2then3100
 3050 y=5
 3077 gosub1600:print"{down}{down}{down}{down}{down}{rght} {up}*";:gosub2000:print"{left} {left}{up}*";
 3100 nextj:fori=1to1500:next:y=15
 3110 print"{left}{left}{up}M";:gosub2000:print"{left} {CBM-G}";:gosub2000
 3120 print"{left}N";:gosub2000:print"{left}{CBM-@}";
 3180 gosub2000:print"{left} {left}{down}M";:gosub2000
 3185 fori=1to3000:next:f=500:forj=1to3
 3190 pokes2-3,28:pokes2,47
 3200 pokes2-3,32:pokes2,32:fori=1tof:next
 3210 f=f-200:nextj:print"{left}{left}{down}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}  {up}{rvof}{left}{left}NM";:q=300
 3220 z$="{left}{left}{down}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM"
 3225 gosub1500
 3230 print"{left}{left}{down}{down}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";
 3235 gosub1500
 3250 forj=1to8
 3255 printz$;
 3260 gosub1500
 3270 nextj
 3280 print"{left}{left}{down}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{rvof}";
 3285 gosub1500
 3295 print"{left}{left}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}";
 3300 gosub1500
 3310 print"{left}{left}{down}  {left}{left}{up}{CBM-M}{CBM-G}";
 3315 gosub1500
 3320 print"{left}{left}  "
 3400 tm=ti+60
 3410 ifti<tmthen3410
 3500 gosub50000:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"{rvon}         "
 3501 printtab(15);"{rvon} the end ":printtab(15);"{rvon}         "
 3520 tm=ti+300
 3530 ifti<tmthen3530
 3540 print"{clr}{down}{down}":end
 4000 gosub8020:gosub50000:end
 4003 gosub8010:poke59466,1
 4005 z=1000
 4010 gosub50000:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 4020 a$=" {CBM-M}{CBM-G} {left}{left}{left}{left}{up}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}{left}{left}{left}{left}{up}{rvon} L{SHIFT-@} {left}{left}{left}{left}{up}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{up}..{left}{left}{up}{CBM-T}{CBM-T}{left}{left}{up}EE{rvof}{left}{left}{up}NM"
 4030 fori=1to7:reada(i):next:data48,43,38,32,23,13,4
 4040 b$="{home}{down}{down}{down}{down}{down}{down}"
 4101 printtab(18);"     OM
 4102 printtab(18);"    NOV{CBM-G}
 4103 printtab(18);"   N OV{CBM-G}
 4104 printtab(18);"  O{CBM-T}{CBM-T}OV{CBM-G}
 4105 printtab(18);" NM  OV{CBM-G}
 4106 printtab(18);" {rvon}EE{rvof}  OV{CBM-G}{CBM-H}
 4107 printtab(18);" {rvon}{CBM-T}{CBM-T}{rvof}  OV{CBM-G}{CBM-H}
 4108 printtab(18);" {rvon}..{rvof}  OV{CBM-G}{CBM-H}
 4109 printtab(18);"{rvon}{SHIFT-POUND}OP{CBM-*}{rvof} OV{CBM-G}{CBM-H}
 4110 printtab(18);"{rvon} L{SHIFT-@} {rvof} OV{CBM-G}{CBM-H}
 4111 printtab(18);"{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*} OV{CBM-G}{CBM-H}
 4112 fori=1to40:print"{rvon}{CBM-POUND}";:next:fori=1to79:print"{CBM-+}";:next
 4113 poke33767,230
 4114 fori=1to20
 4115 r=int(rnd(1)*1000+1)
 4116 ifpeek(32767+r)<>32then4115
 4117 poke32767+r,46
 4118 next
 4119 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}   {left}{left}{left}{down}   {left}{left}{left}{down}   {up}{up}
 4120 forz=9to0step-1
 4121 gosub8010:poke59464,255:print"{rvon}{up}";z:tm=ti+60:gosub8020
 4122 ifti<tmthen4122
 4123 nextz
 4124 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(20);
 4125 rem
 4126 print"{rvof}N";
 4127 gosub5000
 4128 print"{left}{CBM-M}";
 4129 gosub5000
 4130 print"{left} {up}{CBM-M}{left}{down}{CBM-M}";
 4131 gosub5000
 4132 print"{left} {left}{up} {up}Y{left}{down}{SHIFT--}{left}{down}G";
 4133 gosub5000
 4134 print"{left}{up}{up}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}";
 4140 forj=1to15:ss=262-7*j
 4150 gosub6000
 4200 print"{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left} {CBM-M}{CBM-G} {left}{left}{left}{left}{up}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}{left}{left}{left}{left}{up}{rvon} L{SHIFT-@} {left}{left}{left}{left}{up}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{up}..{left}{left}{up}{CBM-T}{CBM-T}{left}{left}{up}EE{left}{left}{up}{rvof}NM{rght}{rght}{up}";
 4206 z=z*.8
 4210 next:poke59464,0
 4215 fork=7to1step-1
 4217 gosub6000
 4220 printleft$(b$,k)"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"left$(a$,a(8-k))
 4225 nextk
 4230 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4240 forj=1to22
 4242 gosub6000
 4245 print"  {left}{left}{up}";
 4247 nextj
 4250 fori=1to1000:next
 4260 sp$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":gosub50000
 4270 printsp$a$;
 4317 forj=1to20
 4320 gosub8000
 4329 poke33467,103:poke33468,101:poke59464,255:poke59464,0
 4330 fori=1to50:next
 4340 poke33467,32:poke33468,32:poke59464,255:poke59464,0
 4360 next
 4370 poke33427,32:poke33428,32
 4375 forj=1to3
 4380 fork=1tornd(1)*1300+1:nextk
 4390 poke33226,47:poke33229,28
 4400 fori=1to200:next
 4410 poke33226,32:poke33229,32
 4420 nextj:printsp$;a$;
 4430 c$="{rvon}  {left}{left}{left}{down}{rvof} {rvon}..{rvof} {rvon}{left}{left}{left}{left}{down}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{left}{down} L{SHIFT-@} {left}{left}{left}{left}{down}{rvof}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}"
 4435 fori=1to4:readc(i):next:data33,24,14,3
 4437 d$="{left}{left}{left}{up}{up}{up}"
 4440 print"{left}{left}{down}{rvon}{CBM-@}{CBM-@}{left}{left}{down}L{SHIFT-@}{left}{left}{down}"c$;
 4445 z=100:ss=255:gosub6000
 4450 print"{left}{left}{left}{up}{up}{up}{up}{rvof}{CBM-C}{CBM-V}{left}{left}{down}"c$;
 4452 gosub6000
 4455 forj=1to7
 4460 print"{left}{left}{left}{up}{up}{up}{up}{rvof}  {left}{left}{down}"c$;
 4465 ifj=1thenpoke33307,103:poke33308,101
 4470 gosub6000
 4480 nextj
 4490 print"{left}{left}{left}{up}{up}{up}{up}";
 4500 forj=1to4
 4510 print"{rvof}  {left}{left}{down}"left$(c$,c(j))left$(d$,7-j);
 4515 gosub6000
 4520 nextj
 4530 print"{rvof}   {up}{up}{up}";
 4540 forj=1to55:gosub8000
 4550 poke33347,103:poke33348,101:poke59464,255:poke59464,0
 4560 fori=1to50:next
 4570 poke33347,32:poke33348,32:poke59464,255:poke59464,0
 4590 next:gosub50000
 4605 gosub7000
 4610 goto200
 5000 gosub8010:fori=1to100:next:poke59464,10:gosub8020:return
 6000 gosub8010:w=59464:w1=59466
 6010 fori=1toz/9:pokew,0:pokew,ss/(1+2*(iand1)):pokew1,iand15:next
 6020 pokew1,15:pokew,0:return
 7000 poke59409,52:fori=1to1500:next:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:poke59409,60
 7010 print"           three days later..."
 7020 fori=1to2000:next
 7030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 7040 fori=1to40:print" ";:next
 7050 return
 7206 ln=187
 8000 print"{home}";:s1=s1+1:fors=s1+7tos1step-1:prints$(sand7)"{down}{down}":next:return
 8010 poke59467,16:poke59466,15:poke59464,0:return
 8020 poke59464,0:poke59466,0:poke59467,0:return
 8030 gosub8010:poke59464,nt:gosub8020:return
 8500 data"{down}{down}{CBM-@}{CBM-@}RF{SHIFT-*}{SHIFT-*}CDC{SHIFT-*}F{SHIFT-*}D{CBM-T}EDC{SHIFT-*}FR{CBM-@}F{SHIFT-*}CDDC{SHIFT-*}CDC{SHIFT-*}F{SHIFT-*}C{SHIFT-*}CC{SHIFT-*}{up}"
 8510 data"{down}"
 8520 data"{down}{down}{SHIFT-*}CDC{SHIFT-*}FRF{SHIFT-*}C{SHIFT-*}FRFR{CBM-@}         {SHIFT-*}CE{CBM-T}DE{CBM-T}E{SHIFT-*}R{up}{left}{left}{left}{CBM-@}R{SHIFT-*}CD{up}"
 8530 data"{down}{down}               {CBM-@}R                  {CBM-T}EDC{up}"
 8540 data"{down}{down}          FRFCE{up}"
 8550 data"{down}{down}{up}"
 8560 data"{down}{down}{up}"
 8570 data"{down}{down}{up}"
 8580 data"{down}{down}                   {CBM-T}D{SHIFT-*}RF{SHIFT-*}CCDEDC{SHIFT-*}FR{CBM-@}{up}"
 8590 data""
 8600 data""
 8610 data"{down}{CBM-@}RF{SHIFT-*}CDE{CBM-T}D{SHIFT-*}R{CBM-@}RFCE{CBM-T}EDC{SHIFT-*}FR{CBM-@}
 8620 data"{down}            EDC{SHIFT-*}FR{CBM-@}{CBM-@}
 8630 data""
 8640 data""
 9000 w=59464:gosub8010:poke59466,161
 9010 fori=1to37:reada:pokew,a:reada:forj=1toa*12.5:next:next:gosub8020:return
 9100 data187,20,157,12,0,0,157,5,236,24,210,8,187,8,177,8,157,8
 9110 data140,8,210,28,187,20,177,12,0,0,177,5,157,24,140,8,125,8,0,0
 9120 data125,8,140,8,0,0,140,8,157,24,0,4,157,20,118,12,0,0,118,5
 9130 data140,8,177,8,187,8,210,8,157,24,250,24,236,40,0,0
 50000 print"{clr}";:return
 50010 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by ken morley{down}
 62020 gosub60500
 62030 print"{down}the canadians make it to the moon
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 gett$:ift$=""then62090
 62100 clr:goto100
    1 rem *** flight simulator                        jerry panofsky
    2 rem                                         *** pet user group
    3 rem     software exchange                       po box 371
    4 rem     montgomeryville, pa 18936       rem
    5 c$="                                      ":g=1:f=1100
    6 m$(1)="you ran out of fuel":m$(2)="you ran the plane into the ground"
    7 m$(3)="your speed was structurelly too fast":m$(4)="not enough lift on takeoff
    8 forx=1to5:readl(x),w(x):next:data32899,32,32904,32,33094,32,33294,32,33494,32
    9 m$(5)="not enough oxygen up here"
   10 print"{clr}type '1' if you need instructions"
   20 geta$:ifa$=""then20
   30 ifa$="1"then800
   35 goto900
  300 ms=150:i=0:alt=0
  310 input"throttle (0/100%)";a:a=abs(int(a)):a=.01*a:ifa>1thenprint"{up}"c$"{up}":goto310
  312 gosub1650:g=2:goto1100
  315 input"elevator  (-100/100%)";b:ifb>100orb<-100thenprint"{up}"c$"{up}":goto315
  316 gosub1600:b=-.01*b
  317 gosub700:print"{up}"c$:printc$:printc$:printc$
  320 s=int(a*ms+.7*b*s+i):ifb>.1theni=i+.05
  323 ifs>200theny=3:goto3000
  325 vs=int(100*s/4*(-b)):alt=int(alt+vs/300):ifa<.3thenalt=alt-1:vs=vs-105
  326 ifalt<0theny=2:goto3000
  327 f=f-(vs/100+s)/250
  328 fu=int(f/100):iffu=0theny=1:goto3000
  329 ifalt>2100theny=5:goto3000
  330 he=c+he:mh=int(he/20):ifhe>360thenhe=0
  335 ifhe<0thenhe=360
  337 iffu<>ofthengosub1360
  340 ifmh<>omhthengosub1450
  345 ifvs<>ovsthengosub1300
  350 ifs<>osthengosub1200
  355 ifalt<>oaltthengosub1400
  400 gosub700:t=0:print"change (a,t,e,l)":geta$:ifa$=""then320
  420 ifa$="a"then500
  430 ifa$="e"then600
  440 ifa$="t"then650
  445 ifa$="l"then2000
  450 goto320
  500 gosub700
  520 input"ailerons (-100/100%)";c:ifc<-100orc>100thenprint"{up}"c$"{up}":goto620
  525 gosub1700:c=.01*c:goto317
  600 gosub700
  620 input"elevator (-100/100%)";b:ifb<-100orb>100thenprint"{up}"c$"{up}":goto620
  625 gosub1600:b=-.01*b:goto317
  650 gosub700
  660 input"throttle (0/100%)";a:a=abs(int(a)):ifa>100thenprint"{up}"c$"{up}":goto660
  665 a=.01*a:gosub1650:goto317
  700 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
  800 print"{clr}the controls respond similar to those":print"in a small airplane."
  805 print:print"the throttle controls air speed"
  810 print:print"the ailerons controls turns or heading"
  820 print:print"the elevator controls up,down movement"
  825 print:print"to modify the controls, input t,a,e
  830 print"for throttle-ailerons-elevator
  835 print"respectively.
  840 print:print"the object is: take-off, make at least
  845 print"a 360 degree turn and then land...
  847 print"when you think your aircraft is safe":print"to land, type 'l'":print
  850 printtab(15)"good.luck"
  860 print"{down}{down}hit any key to continue"
  870 geta$:ifa$=""then870
  900 print"{clr} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"tab(15)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  910 print"{CBM-M}{rvon}  f u e l  {rvof}{CBM-G}" tab(15)"{CBM-M}{rvon}     air   speed      {rvof}{CBM-G}"
  920 print"{CBM-M}{rvon}e   1/2   f{rvof}{CBM-G}"tab(15)"{CBM-M}{rvon}0   50   100  150  200{rvof}{CBM-G}"
  930 print"{CBM-M}     {SHIFT--}    Q{CBM-G}"tab(15)"{CBM-M}Q    {CBM-G}    {SHIFT--}    {SHIFT--}    {SHIFT--} {CBM-G}"
  940 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"tab(15)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  950 printtab(5)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  960 printtab(5)"{CBM-M}{rvon}    a l t i t u d e    {rvof}{CBM-G}"
  970 printtab(5)"{CBM-M}{rvon}0   500  1000 1500 2000{rvof}{CBM-G}"
  980 printtab(5)"{CBM-M}Q    {SHIFT--}     {CBM-G}    {CBM-G}   {CBM-M}  {CBM-G}"
  990 printtab(5)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1010 printtab(5)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1020 printtab(5)"{CBM-M}{rvon}   h e a d i n g   {rvof}{CBM-G}"
 1030 printtab(5)"{CBM-M}{rvon}0  90  180  270 360{rvof}{CBM-G}"
 1040 printtab(5)"{CBM-M}Q  {CBM-M}    {SHIFT--}    {SHIFT--}     {CBM-G}"
 1050 printtab(5)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1055 printtab(5)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1060 printtab(5)"{CBM-M}{rvon}     vertical   speed     {rvof}{CBM-G}"
 1070 printtab(5)"{CBM-M}{rvon}0    5   10   15   20   25{rvof}{CBM-G}"
 1080 printtab(5)"{CBM-M}Q    {SHIFT--}    {CBM-G}   {CBM-M}    {CBM-M}    {CBM-M} {CBM-G}"
 1090 printtab(5)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1100 t=1:gosub700:print"for take-off ":onggoto300,315
 1200 pokel(2),w(2):l(2)=int(s/10+32907):w(2)=peek(l(2)):pokel(2),81:os=s:return
 1300 pokel(5),w(5):l(5)=int((abs(vs/100)+33494)):w(5)=peek(l(5)):pokel(5),81
 1310 ovs=vs:gosub700
 1320 ifvs=0thenprint"{up}{up}{up}{up}{up}     "
 1330 ifvs<0thenprint"{up}{up}{up}{up}{up}down"
 1340 ifvs>0thenprint"{up}{up}{up}{up}{up} up "
 1350 return
 1360 pokel(1),w(1):l(1)=32899-11+fu:w(1)=peek(l(1)):pokel(1),81
 1370 of=fu:return
 1400 pokel(3),w(3):l(3)=int(alt/100+33094):w(3)=peek(l(3)):pokel(3),81
 1410 oalt=alt:return
 1450 pokel(4),w(4):l(4)=mh+33294:w(4)=peek(l(4))
 1455 ifl(4)>=33294thenpokel(4),81
 1460 omh=mh:return
 1600 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(26)"elevator          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"b"%":gosub700:return
 1650 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(26)"trottle          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"a/.01"%":gosub700
 1660 return
 1700 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(26)"ailerons          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"c"%":gosub700:return
 2000 print"{clr}you have attempted to land at a":print"speed of"s"mph"
 2010 print"and an altitude of"alt"feet":print"with a"he"degree heading."
 2020 print"{down}your speed was";:ifs<10thenprint" excellent":goto2060
 2030 ifs<20thenprint" good":goto2060
 2040 ifs<30thenprint" acceptable":goto2060
 2050 print" poor"
 2060 print"{down}your altitude was";:ifalt<10thenprint" excellent":goto2100
 2070 ifalt<30thenprint" good":goto2100
 2080 ifalt<60thenprint" acceptable":goto2100
 2090 print" poor"
 2100 print"{down}you ";
 2120 ifhe<5orhe>355thenprint"were on the runway":goto2200
 2150 print"were not on the runway"
 2200 print"{down}{down}care to fly again(1=yes)"
 2210 geta$:ifa$=""then2210
 2220 ifa$="1"thenrestore:goto5
 2500 end
 3000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}c r a s h":ift=1theny=4
 3010 printm$(y):goto2200
   60 dimk(12),r$(26),s$(14),t$(9)
   70 dimc$(11),d$(18),e$(19),f$(21),g$(14)
   80 dimh$(16),i$(14),j$(20),k$(20),l$(20)
   90 dimm$(15),n$(21),o$(32),p$(14),q$(12)
  100 p2=~:p3=3.28:p4=57.28
  110 p5=1609:p6=.5148:g=9.8
  120 print"{clr}{rght}{rght}{rght}{rght}{rght}***** {rvon}flight simulator{rvof} *****"
  130 print"{down}this program simulates flying, landing"
  140 print"{down}           and take-off."
  150 gosub5160
  160 print"{down}     do you wish to fly or take-off"
  170 print"type 1 to fly or 0 for take-off";
  180 t9=0
  190 t4=0:v=0:s1=0
  200 inputz
  210 ifz=1thengoto240
  220 ifz=0thengoto500
  230 ifz<>1thengoto160
  240 gosub750
  250 rem***flight char input***
  260 gosub930
  270 rem***inital flight conditions***
  280 gosub650
  290 rem***stall speed calc.***
  300 gosub1180
  310 rem***calc of constants***
  320 ifx3<0thenx3=0
  330 gosub1810
  340 rem***cockpit display***
  350 gosub2950
  360 rem***control tower***
  370 goto3520
  380 rem***touchdown test***
  390 ifx3=0thengoto4150
  400 rem***runway maneuvers***
  410 gosub3180
  420 rem***pilot input***
  430 gosub2390
  440 rem***engine temp***
  450 ift1>=16/p4thengosub2580
  460 gosub1420
  470 rem***new velocity calc***
  480 goto320
  490 rem******************************
  500 rem***take-off executive***
  510 gosub4450:gosub750
  520 rem***flight char. input***
  530 gosub650
  540 rem***stall speed calc.***
  550 gosub1180
  560 rem***calc of constants***
  570 print
  580 print"ready for take-off"
  590 gosub4500
  600 rem***take-off routine***
  610 ifl<m*gthengoto590
  620 print"you are in the air!"
  630 goto320
  640 rem*******************************
  650 rem***stall speed calc.***
  660 remf=flaps
  670 rem v1=max speed
  680 rem t2=glide angle
  690 rem n1=thrust ratio
  700 rem v2=stall speed
  710 v2=v1*sin(t2)/(2*n1)
  720 v2=v2*(1+.3*abs(sin(b)))
  730 v2=v2*sqr(1.5/(1+f/2)):return
  740 rem******************************
  750 rem***flight char.***
  760 print"input the following"
  770 print"mass(tons):-";:inputm
  780 print"fuel (tons):-";:inputf9
  790 print"thrust fraction :-";:inputn1
  800 n1=1.25*n1
  810 print"maximum speed (knots) :-";
  820 inputv1
  830 print"glide angle (degrees) :-";
  840 inputt2:t2=abs(t2)
  850 print"time incr. (sec):-";:inputt3
  860 m=m*907:v1=v1*p6:t2=t2/p4
  870 f9=f9*907
  880 m9=m:m=m9+f9
  890 print:print
  900 print"ready for flight"
  910 print:return
  920 rem*******************************
  930 rem***init. flight conditions ***
  940 rem x1,x2 and x3 are positions **
  950 rem s1,s2 and s3 are velocities *
  960 rem init. vel is 3/4 max ***
  970 rem init. altitude is 7 miles
  980 x1=50.032/sqr(2):x2=-x1:x3=7
  990 s1=.75*v1/sqr(2)
 1000 x1=x1*p5:x2=x2*p5:x3=x3*p5
 1010 s2=-s1:v=.75*v1:s3=0
 1020 rem b=bank angle
 1030 rem d3=climb angle
 1040 rem g1=landing gear
 1050 rem n3=thrust
 1060 f=0:t1=0:n3=.3:b=0:t9=280:f1=0
 1070 r9=-10
 1080 rem t1=angle of attack
 1090 n2=0:d3=0:g1=0:return
 1100 rem******************************
 1110 rem***stall penalaty ***
 1120 rem***loss of lift ***
 1130 forj=1to6
 1140 l=l*v/v2
 1150 nextj
 1160 return
 1170 rem******************************
 1180 rem calc. of constants
 1190 rem g=gravitational acceleration
 1200 rem c1=frictional drag coef.
 1210 c1=n1*m*g/v1
 1220 rem c2=induced drag coef.
 1230 c2=c1*(v2^3)/((m*g*cos(t2))^2)
 1240 rem c3=lift coef.
 1250 c3=m*g*cos(t2)
 1260 c3=c3/((v2*v2*(1+5*16/p4)))
 1270 c3=1.5*c3
 1280 return
 1290 rem******************************
 1300 rem lift and drag calc.
 1310 rem l=lift d=drag
 1320 p1=exp(-x3/7000)
 1330 ifv=0thenv=.0000001
 1340 l=c3*(1+f/2)*(1+5*t1)*v*v
 1350 l=l*p1*(1-1/(1+(v-v2)*(v-v2)))
 1360 ifv<v2thengosub1110
 1370 rem landing gear added to drag
 1380 d=c2*l*l/(p1*v*v)+c1*v*(1+.6*g1)*p1
 1390 gosub650
 1400 return
 1410 rem******************************
 1420 rem new velocity calc.
 1430 rem four point integration
 1440 t3=t3/4
 1450 i=0
 1460 i=i+1
 1470 gosub1300:gosub1670:gosub1730
 1480 z=n1*n3*m*g*cos(t1)*p1
 1490 z=z-m*g*sin(d3)-d
 1500 y=l*sin(b)/cos(d3)
 1510 w=t3/(m*v)
 1520 s1=s1+w*(z*s1-y*s2)
 1530 s2=s2+w*(z*s2+y*s1)
 1540 s3=v*sin(d3)
 1550 v=sqr(s1*s1+s2*s2+s3*s3)
 1560 x1=x1+s1*t3:x2=x2+s2*t3
 1570 x3=x3+s3*t3
 1580 ifx3<0theni=4
 1590 ifi<4thengoto1460
 1600 t3=t3*4
 1610 rem***wind effects ***
 1620 gosub5070
 1630 x1=x1+s4*t3
 1640 x2=x2+s5*t3
 1650 return
 1660 rem*****************************
 1670 rem nose angle calc.
 1680 rem t1= nose angle rel to flight
 1690 rem t1= angle of attack also
 1700 ifabs(t1)>16/p4thengosub2580
 1710 return
 1720 rem******************************
 1730 rem climb angle calc.
 1740 t7=n1*n3*g*sin(t1)/v
 1750 t7=t7-g*cos(d3)/v+l*cos(b)/(m*v)
 1760 d3=d3+t3*t7
 1770 ifd3>p2thend3=d3-p2
 1780 ifd3<-p2thend3=d3+p2
 1790 return
 1800 rem******************************
 1810 rem cockpit display
 1820 print"{clr}"
 1830 print"altitude.:-";tab(16)int(x3*p3);" feet"
 1840 print"air speed :-";tab(16)int(v/p6);" knots"
 1850 gosub650
 1860 rem stall speed calc.
 1870 ifv>=v2*1.05thengoto1910
 1880 print"{up}";tab(26);"{rvon}stall warning"
 1910 print"stall speed :-";tab(16)int(v2/p6);" knots"
 1940 print"engine temp:-";tab(16)int(t9);" deg (f)"
 1950 gosub2320
 1960 print"fuel :-";tab(16)int(2.2*f9);" lbs"
 1970 print"flaps :-";tab(16)int(100*f1)/100;" degrees"
 1990 print"trim :-";tab(16)int(r9*100)/100;" degrees"
 2010 print"thrust :-";tab(16)int(100*n3)/100
 2020 print"bank angle :-";tab(16)int(b*572.8)/10;" degrees"
 2040 print"angle of attack ";int(t1*p4*10)/10;" degrees"
 2080 print"horizon :-";tab(16)int(10*(d3+t1)*p4)/10;" degrees"
 2100 print"heading off east :-";
 2110 m1=s1:m2=-s2
 2120 gosub2720
 2130 gosub2230
 2140 print"landing gear :-";tab(16)
 2150 ifg1=0thenprint" up"
 2160 ifg1=1thenprint" down"
 2170 t4=t4+t3
 2180 print"flight time :-";tab(16)int(10*t4/6)/100;" min."
 2200 gosub4970
 2210 gosub2630:return
 2220 rem****************************
 2230 rem dive speed test
 2240 ifv<1.2*v1thenreturn
 2250 print:printo$
 2260 prints$:printo$:print
 2270 ifv<1.4*v1thenreturn
 2280 print:printt$:printf$
 2290 printc$:printd$
 2300 goto5830
 2310 rem*****************************
 2320 rem fuel consumption subr.
 2330 f9=f9-t3*(n3*2)*(n3*2)*m9/200000
 2340 iff9<0thenf9=0
 2350 iff9=0thent=0
 2360 m=m9+f9
 2370 return
 2380 rem*****************************
 2390 rem engine temp
 2400 fori=1to8:k(i)=k(i+1):nexti
 2410 k(9)=n3:t9=0:fori=2to9
 2420 t9=t9+k(i)*(i-1)*3.2:nexti
 2430 t9=t9+340
 2440 t9=t9*(1+p1)/2:ift9<75thent9=75
 2450 ift9<430thengoto2500
 2460 ift9>=450thengosub2520
 2470 ift9<450thenprint"{down}** engine **"
 2480 ift9<450thenprint"**** hot ****"
 2490 rem
 2500 return
 2510 rem*****************************
 2520 rem engine warning
 2530 print
 2540 print"**** engine overheat ****"
 2550 print"         power off":print
 2560 n3=0:return
 2570 rem*****************************
 2580 rem attack angle pass critical
 2590 forj=1to4
 2600 l=l*16/(p4*t1)
 2610 nexti:return
 2620 rem*****************************
 2630 rem landing gear warning
 2640 ifg1=1thenreturn
 2650 ifx3>30thenreturn
 2660 print:print
 2670 ifd3>0thenreturn
 2680 print"*** warning ***"
 2690 print"landing with gear up"
 2700 return
 2710 rem******************************
 2720 rem inverse tangent
 2730 rem
 2740 rem
 2750 rem
 2760 rem
 2770 l4=(.0000001)^3
 2780 ifabs(m2)<l4thenm2=2*l4
 2790 ifabs(m1)<l4thenm1=2*l4
 2800 x=m2/m1
 2810 ifabs(x+1)<l4thenx=l4-1
 2820 ifx<0thenx=-x
 2830 x=(x-1)/(x+1):l1=.995354
 2840 l2=-.288679:l3=.079331
 2850 u2=~/4+l1*x+l2*(x^3)+l3*(x^5)
 2860 ifm1>0thengoto2900
 2870 ifm2>0thenu2=p2-u2
 2880 ifm2<0thenu2=p2+u2
 2890 goto2920
 2900 ifm2>0thenu2=u2
 2910 ifm2<0thenu2=2*p2-u2
 2920 printint(u2*572.8+.5)/10;" deg."
 2930 return
 2940 rem******************************
 2950 rem control tower
 2990 r=sqr(x1*x1+x2*x2)
 3000 print"range:-";tab(16)int(r/16.1)/100;" miles"
 3020 p$="descent rate :-"
 3030 q$="rate of climb:-"
 3040 ifs3<0thenprintp$;tab(16);
 3050 ifs3>=0thenprintq$;tab(16);
 3060 printint(abs(s3)*p3)*60;" feet/min"
 3070 m2=-x2:m1=-x1
 3080 print"a.d.f. :-";tab(16);:gosub2720
 3100 print"wind direction :-";tab(16);
 3110 m1=s4:m2=-s5
 3120 gosub2720
 3130 print"wind speed :-";tab(16)int(sqr((s4^2)+(s5^2))/p6);" knots"
 3160 return
 3170 rem******************************
 3180 rem cockpit control
 3190 print:print
 3200 print"{rvon}cockpit control{rvof}";
 3210 inputb$
 3220 rem c=continue
 3230 ifb$<>"c"theninputy1
 3240 ifb$="c"thenreturn
 3250 rem t= throttle or thrust
 3260 ifb$="t"thenn3=y1
 3270 ifn3>1thenprintm$
 3280 ifn3>1thenn3=1
 3290 rem b= bank angle
 3300 ifb$="b"thenb=y1
 3310 ifabs(b)>=360thenprintr$
 3320 ifabs(b)>=360thengoto3300
 3330 ifb$="b"thenb=b/p4
 3340 rem e= elevators
 3350 ifb$="e"thent1=(y1/p4)*(v/v1)
 3360 rem s = seconds
 3370 ifb$="s"thent3=y1
 3380 rem f=flaps
 3390 ifb$="f"thenf1=y1
 3400 iff1<0thengoto3210
 3410 iff1>45thenf1=45*abs(f1)/f1
 3420 rem r=trim
 3430 ifb$="r"thenr9=y1
 3440 ifabs(r9)>10thenr9=10*abs(r9)/r9
 3450 f=(f1+3*r9)/75
 3460 rem g=landing gear
 3470 ifb$="g"theng1=y1
 3480 ifg1>0theng1=1
 3490 ifg1<=0theng1=0
 3500 print:print:goto3210
 3510 rem*****************************
 3520 rem touchdown
 3530 ifx3>0thengoto390
 3540 x3=0
 3550 ifg1=1thengoto3610
 3560 print
 3570 printc$
 3580 print"{rvon}landed with gear up!{rvof}"
 3590 printd$
 3600 goto5830
 3610 ifabs(x2)<4thengoto3650
 3620 print:printc$
 3630 printe$:printd$:goto5830
 3640 printd$:goto5830
 3650 ifx1<0thengoto3620
 3660 ifx1>2*5280/3.28thengoto3620
 3670 if(d3+t1)*p4>0thengoto3870
 3680 if(d3+t1)*p4>-6thengoto3740
 3690 print:printo$
 3700 printc$
 3710 printf$
 3720 printd$
 3730 goto5830
 3740 print:printo$:print
 3750 print"nose wheel hit first"
 3760 print
 3770 d3=-d3/2
 3780 s3=d3*v/2
 3790 v=.9*v
 3800 x3=s3*t3
 3810 print"*** {rvon}bounce{rvof} ***"
 3820 print:print"altitude :-";
 3830 printint(x3*p3);" feet"
 3840 print"climb angle :-";int(10*d3*p4)/10;
 3850 print" deg."
 3860 goto410
 3870 ifabs(s2)>3thengoto3620
 3880 print
 3890 print"****************************"
 3900 print"   ***** touch down *****"
 3910 print
 3920 ifs3>-.5thenprintg$
 3930 ifs3>-.5thengoto4010
 3940 ifs3>-1.5thenprinth$
 3950 ifs3>-1.5thengoto4010
 3960 ifs3>-10thenprinti$
 3970 ifs3>-10thengoto4010
 3980 print
 3990 printc$:printi$:printf$
 4000 printd$
 4010 print:print
 4020 rem runway bounce test
 4030 ifs3>-1.5thengoto4130
 4040 print"*** bounce ***"
 4050 s3=.5*abs(s3)
 4060 d3=s3/v
 4070 x3=s3*t3
 4080 print:print"altitude :-";
 4090 printint(x3*p3);" feet"
 4100 print"climb angle :-";int(10*d3*p4)/10;
 4110 print"deg."
 4120 goto410
 4130 goto390
 4140 rem******************************
 4150 rem runway maneuvers
 4160 r2=10560-p3*x1
 4170 ifr2>0thengoto4220
 4180 print:printc$:printn$
 4190 ifs1<10thenprintl$
 4200 ifs1>10thenprintd$
 4210 ifs1>10thengoto5830
 4220 print"runway speed :-";
 4230 printint(s1/p6);" knots"
 4240 printint(r2);k$
 4250 print"thrust:-";:inputn3
 4260 ifabs(n3)>1thenprintm$
 4270 ifabs(n3)>1thengoto4250
 4280 ifn3>0thengoto590
 4290 rem switch to take off routine
 4300 n3=n3/2
 4310 rem fuel calc.
 4320 gosub2320
 4330 gosub1300
 4340 s1=s1+(n3*n1*g-abs(d/m))*t3
 4350 v=abs(s1)
 4360 x1=x1+s1*t3
 4370 print"lift (%) :-";
 4380 gosub1300
 4390 printint(100*l/(m*g))
 4400 ifl>m*gthengoto620
 4410 ifabs(s1)>1/3.28thengoto4160
 4420 print"landing complete"
 4430 printint(r2);k$:goto5830
 4440 rem*****************************
 4450 rem take off initalization
 4460 x1=0:x2=0:x3=0:s1=0:s2=0:s3=0
 4470 f=0:g1=1:n3=0:d3=0:n2=0:r9=-10
 4480 t9=300:t1=0:return
 4490 rem****************************
 4500 rem take off routine
 4510 print"thrust:-";:inputn3
 4520 ifabs(n3)>1thenprintm$
 4530 ifabs(n3)>1thengoto4510
 4540 rem fuel calc.
 4550 gosub2320
 4560 rem engine temp calc.
 4570 gosub2390
 4580 print"flaps :-";:inputf1
 4590 iff1<0thengoto4580
 4600 ifabs(f1)>45thenf1=45*abs(f1)/f1
 4610 f=(f1+3*r9)/75
 4620 print"elevator degrees :-";:inputt1
 4630 ifabs(t1)>45thengoto4620
 4640 t1=t1/p4:t1=(v/v1)*t1
 4650 print:printo$
 4660 print"horizon:-";int(t1*p4*10)/10
 4670 rem four point intergration
 4680 t3=t3/4
 4690 fori=1to4
 4700 gosub1300
 4710 s1=s1+(n3*n1*g-d/m)*t3
 4720 v=s1:x1=x1+s1*t3
 4730 nexti:t3=t3*4
 4740 print"runway speed :-";
 4750 printint(s1/p6);" knots"
 4760 gosub650
 4770 print"stall speed :-";
 4780 printint(v2/p6);" knots"
 4790 rem lift and drag calc.
 4800 gosub650
 4810 print"lift (%):-";
 4820 printint(100*l/(m*g))
 4830 r2=10560-p3*x1
 4840 ifr2>0thengoto4870
 4850 print:printc$:printn$
 4860 printd$:gosub5830
 4870 printint(r2),k$:t4=t4+t3
 4880 print"flight time :-";int(t4);
 4890 print"seconds"
 4900 printo$:print
 4910 ifl<m*g then return
 4920 print
 4930 print"*** {rvon}lift off{rvof} ***"
 4940 d3=.1*v/v1:x3=d3*v
 4950 s3=t3*(l-m*g)/m
 4960 return
 4970 rem****************************
 4980 rem ice storm
 4990 ifrnd(abs(v/v1)/2)>.01thenreturn
 5000 m9=2.0*m9
 5010 print:print
 5020 print"**** {rvon}danger{rvof} ****
 5030 print"{rght}{rght} sleet storm  "
 5040 print"wings icing up!!!"
 5050 return
 5060 rem****************************
 5070 rem wind effects
 5080 b9=abs((v/v1)/3)
 5090 c9=abs((v/v1)/4)
 5100 b9=rnd(b9):c9=rnd(c9)
 5110 ifb9>.1thenreturn
 5120 s4=(4*(b9-.05)*v+s4)/2
 5130 ifc9>.1thenreturn
 5140 s5=(4*(c9-.05)*v+s5)/2:return
 5150 rem*******************************
 5160 rem message list
 5170 c$="*** {rvon}crash{rvof} ***"
 5180 d$="*** {rvon}no survivors{rvof} ***"
 5190 e$="*** {rvon}missed runway{rvof} ***"
 5200 f$="*** {rvon}loss of controll{rvof} ***"
 5210 g$="touchdown soft"
 5220 h$="touchdown medium"
 5230 i$="touchdown hard"
 5240 k$=" feet of runway left"
 5250 n$="ran of end of runway"
 5260 l$="damage to plane only"
 5270 m$="max. thrust = 1"
 5280 o$="**************************************"
 5290 r$="max. roll is 360 degrees"
 5300 s$="dangerous dive"
 5310 t$="lost wing"
 5320 print:printo$:print
 5330 print"      *** {rvon}basic instructions{rvof} ***"
 5340 print"{down}do you wish instructions (y/n)";
 5350 inputb$
 5360 ifb$="n"thenreturn
 5370 print:print
 5380 print"there are two initial flight conditions"
 5390 print"one starts the plane 50 miles from the"
 5400 print"airport at an altitude of seven miles."
 5410 print"the other starts on the runway.   the"
 5420 print"flight characteristics of the plane"
 5430 print"are defined by the user. they are :-"
 5440 print"{down}{rght}mass of the plane"
 5450 print"{down}{rght}thrust as a fraction of plane weight"
 5460 print"{down}{rght}max. level flight speed"
 5470 print"{down}{rght}glide angle at stall"
 5480 print"{down}{rght}elevator coef. (nose)
 5490 print"{down}{rght}time increment"
 5500 print"{down}{rght}{rght}{rght}{rght}{rght}{rvon}press any key to continue{rvof}"
 5510 geta$:ifa$=""then5510
 5540 print"{clr}there are two message sets. one is a"
 5550 print"cockpit display, which is self -"
 5560 print"explanatory. the other is a control -"
 5570 print"tower message giving range descent rate"
 5580 print"and position relative to the runway."
 5590 print"the flight control functions are :-"
 5600 print"{down}{rvon}c{rvof}= continue with same"
 5610 print"{down}{rvon}t{rvof}= fraction of max thrust"
 5620 print"{down}{rvon}b{rvof}= bank angle in degrees"
 5630 print"{down}{rvon}e{rvof}= elevator (degrees)"
 5640 print"{down}{rvon}f{rvof}= flaps (0 to 45 deg.)"
 5650 print"{down}{rvon}r{rvof}= trim (degrees)"
 5660 print"{down}{rvon}g{rvof}= landing gear (0 up/1 down)"
 5670 print"{down}{rvon}s{rvof}= new time increment"
 5680 print"{down}{rght}{rght}{rght}{rght}{rvon}press any key to continue"
 5690 geta$:ifa$=""then5690
 5710 print"{clr}it is suggested that the takeoff option"
 5720 print"be first chosen for experience. a good"
 5730 print"starting time increment is three secs."
 5740 print"a reasonable starting plane would be"
 5750 print"one ton, fuel .3 tons, thrust of .3, a"
 5760 print"max speed of 180 knots and a glide "
 5770 print"angle of 11 degrees."
 5780 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}good luck!{rvof}"
 5790 print"{down}{down}{rght}{rght}{rght}{rght}press any key to continue"
 5800 geta$:ifa$=""then5800
 5810 return
 5820 rem*****************************
 5830 rem final status
 5840 print
 5850 print"final flight status":print
 5860 print"time of flight :-";
 5870 printint(10*t4/6)/100;" min."
 5880 print"fuel left :-";int(f9*2.2);
 5890 print" lbs."
 5900 print"final speed :-";int(v/p6);
 5910 print" knots"
 5920 print"final horizon :-";
 5930 printint((d3+t1)*p4);" deg."
 5940 print"try again (y or n)";
 5950 inputb$:ifb$<>"n"thengoto160
 5960 print"goodbye. come again soon."
 5970 end
    0 clr:poke59468,12:pk=12
    1 rem flip copyright (c) 1979 glen fisher
    2 rem cursor #9, april, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of feb 20 80
   90 pg$="flip":nm$="9":gosub 62000
  100 print"{down}now loading..."
  105 read l,h
  110 for i=l to h:read x:poke i,x
  120 next i
  130 print"{down}flip is now stored.  load the program
  140 print"you want to flip, and type
  150 printtab(10);"{down}sys(826){down}
  160 end
 1000 data 826,965
 1010 data 169,4,133,87,169,1,133,86,160,0,177,86,133,88,200,177
 1020 data 86,133,89,5,88,208,1,96,200,200,200,177,86,201,58,240
 1030 data 249,201,32,240,245,201,143,240,88,201,153,240,16,201,152,240
 1040 data 12,201,133,240,8,201,132,240,4,201,131,208,40,200,177,86
 1050 data 240,63,201,58,240,212,201,34,208,243,200,177,86,240,50,201
 1060 data 34,240,234,170,41,127,201,64,144,240,201,91,176,236,138,73
 1070 data 128,145,86,208,229,200,177,86,240,23,201,58,240,172,201,167
 1080 data 240,168,201,34,208,239,200,177,86,240,6,201,34,208,247,240
 1090 data 228,165,88,133,86,165,89,133,87,76,66,3
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #9  flip"
 62002 print"{down}copyright (c) 1979  by glen fisher
 62004 gosub 60500
 62010 print"{down}swap upper and lower case"
 62020 print"{down}{down}want directions?";:gosub60000
 62030 ifleft$(in$,1)="y" then 62100
 62040 print"{clr}";:poke59468,pk:clr:goto100
 62100 lp=3:gosub60200
 62105 gosub 60500
 62110 print"flip reverses upper and lower case
 62120 print"{down}in print, input, and data statements
 62130 print"{down}(but only between quotes). this is
 62140 print"{down}necessary because the new-style pets
 62150 print"{down}have lower case unshifted when in
 62160 print"{down}lower-case mode. old style pets have
 62170 print"{down}lower case shifted.
 62175 gosub 60500
 62176 gosub 60200
 62177 gosub 60500
 62180 print"to use flip, run this program, which
 62190 print"{down}stores a machine-language program. then
 62200 print"{down}load the program you want to flip, and
 62210 print"{down}type{down}     sys(826)
 62220 print"{down}{down}the program will then be flipped, and
 62230 print"{down}you may do whatever you like with it.
 62242 print"{down}if you do not want data statements{$a0}
 62244 print"{down}flipped, then type: poke 884,255
 62246 print"{down}before using flip.
 62247 gosub 60500
 62248 gosub 60200
 62249 gosub 60500
 62250 print"the flip program will stay available
 62260 print"{down}until the pet is turned off, or the
 62270 print"{down}second cassette buffer is used, or
 62280 print"{down}another machine language program is
 62290 print"{down}loaded.
 62295 gosub 60500
 62300 gosub60200
  100 rem segelflug geaendert v.peter goger
  110 dimz%(7),y%(10),w%(9),fr(41)
  120 poke59468,12
  130 goto1320
  140 print"{clr}"
  150 print"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
  160 print"{SHIFT--}0   10{SHIFT--}"
  170 print"{SHIFT--}      {SHIFT--}"
  180 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K                     U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
  190 print"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I                       {SHIFT--}  m {SHIFT--}
  200 print"{SHIFT--}m/s {SHIFT--}                       {SHIFT--} 120{SHIFT--}
  210 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  220 print"{SHIFT--}+4  {SHIFT--}                       {SHIFT--} 100{SHIFT--}
  230 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  240 print"{SHIFT--}+2  {SHIFT--}                       {SHIFT--}  80{SHIFT--}
  250 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  260 print"{SHIFT--} 0  {SHIFT--}  CCC CCC   {CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-@}{CBM-@}{CBM-@}{CBM-@}  {SHIFT--}  60{SHIFT--}
  270 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  280 print"{SHIFT--}-2  {SHIFT--}                       {SHIFT--}  40{SHIFT--}
  290 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  300 print"{SHIFT--}-4  {SHIFT--}                       {SHIFT--}  20{SHIFT--}
  310 print"{SHIFT--}    {SHIFT--}                       {SHIFT--}    {SHIFT--}
  320 print"{SHIFT--}-6  {SHIFT--}                       {SHIFT--}   0{SHIFT--}
  330 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K                       J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  340 print"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I
  350 print"{SHIFT--}                                 {SHIFT--}
  360 print"{SHIFT--}  60  70  80  90 100 110 120 km/h{SHIFT--}
  370 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  380 return
  390 print"{down}'return'";
  400 getz$:ifz$<>chr$(13)goto400
  410 return
  420 data95,41,40,92,38,39,37,36,35,34,33
  430 data99,69,68,67,64,70,82,100
  440 data48,49,50,51,52,53,54,55,56,57
  450 az=32800:bz=az:dz=az:ez=az:fz=az
  460 gz=az
  470 fori=0to10:ready%(i):nexti
  480 forj=0to7:readz%(j)      :nextj
  490 fori=0to9:readw%(i):nexti
  500 x1=rnd(2):x2=rnd(3):x3=rnd(4)
  510 h=50+x1*60:e=800+x2*h*2:fl=0
  520 v=80+x3*(120-h):k=0:f=0:o=ti:fc=0
  530 getc$:ifc$=""thenc$=" "
  540 c%=asc(c$)
  550 fori=0to10:ifc%=y%(i)thenfc=i-5
  560 next
  570 forj=0to9:ifc%=w%(j)thenk=j
  580 next
  590 d=(ti-o)/(60*a%):o=ti
  600 fl=fl/100+fc*4
  610 v=v*(1-.01*fl-.04*k):ifv>80thens=(v-80)/80
  620 ifv<=80thens=(v-80)/15
  630 s=-(s*s+.7)*(1-fl*.01+k*.25)
  640 e=e-d*(v/3.6)
  650 h=h+d*s
  660 l=-(h*v)/(s*3.6)
  670 a=(l-e)*sin(atn(h/l))
  680 f=sin(fl*~/180)
  690 ife<-150goto1130
  700 pokeaz,32:i=117:k1=int(k/2)
  710 k2=k/2:ifk2>k1theni=118
  720 j=32889+k1:az=j:pokej,i
  730 pokebz,32:i=120:k1=int(abs(s)/2)
  740 k2=abs(s/2):ifk2>k1+.5theni=121
  750 k1=-k1*sgn(s):ifk1<-3goto790
  760 ifk1>4goto800
  770 j=33291+k1*40:bz=j
  780 pokej,i:goto810
  790 bz=32972:pokebz,209:goto810
  800 bz=33492:pokebz,209
  810 pokedz,32:i=121:ifh<0goto1090
  820 k1=int(h/10)+.5:k2=h/10
  830 ifk2>k1theni=120
  840 j=33478-int(k1)*40:dz=j
  850 pokej,i
  860 pokeez,32:i=117:k1=int(v/2.5)-22
  870 k2=v/2.5-22:ifv<55goto910
  880 ifv>130goto920
  890 j=33610+k1:ez=j:ifk2>k1theni=118
  900 pokej,i:goto930
  910 ez=33610:pokeez,209:goto930
  920 ez=33641:pokeez,209
  930 pokefz,32:i=43:iff>1theni=209
  940 iff<-.7theni=209
  950 iff<-.7thenf=-.7
  960 iff>1thenf=0
  970 goto1000
  980 j=32808+k1*40:fz=j:pokej,h
  990 j1=-sgn(f*10-10)
 1000 k1=-int(f*10-11)
 1010 j=32819+k1*40:fz=j:pokej,i
 1020 a=a+56:ifa>136thena=136
 1030 pokegz,32
 1040 ifa<0thena=0
 1050 k2=int(a):k3=int(a/8):k2=k2-k3*8
 1060 i=z%(k2):j=33510-k3*40:gz=j
 1070 pokej,i:ee=int(e/25)+5:ifee<41andee>=0thenfr(ee)=h
 1080 goto530
 1090 ifs<-1.5goto1130
 1100 ife>0goto1130
 1110 ifv>90goto1130
 1120 print"{clr}glatt gelandet.":gosub2200:goto1280
 1130 print"{clr}"
 1140 ifh<0goto1230
 1150 print"geschwindigkeit:"v;"km/h"
 1160 print"hoehe          :"h;"m"
 1170 print"steigen        :"s;"m/s"
 1180 print"entfernung zum "
 1190 print"aufsetzpunkt   :"e;"m"
 1200 print"voraussichtlicher"
 1210 print"kontakt mit der"
 1220 print"erdoberflaeche :"l;"m":gosub2200:goto1270
 1230 print"geschwindigkeit      :";v;"km/h"
 1240 print"entfernung zum "
 1250 print"aufsetzpunkt   :";int(e);"m"
 1260 print"sinken vor aufprall  :";-s;"m/s":gosub2200
 1270 print"trotzdem ";
 1280 print"noch ein versuch";:inputa$
 1290 restore
 1300 b$=left$(a$,1):ifb$="j"goto2170
 1310 print"{clr}":print"{down}{down}alles gute ! tschuess !":end
 1320 print"{clr}flugzeuglandung (simulation)"
 1330 print"============================"
 1340 print"{down}ein flugzeug befindet sich etwa":print"1000 m vor der landebahn in "
 1350 print"etwa 80 m hoehe.":print"es soll auf den ersten 150 m der "
 1360 print"landebahn mit weniger als 90 km/h"
 1370 print"und weniger als 1.5 m/s sinken
 1380 print"gelandet werden.":print"{down}{down}{down}bei erscheinen von 'return' auf dem"
 1390 print"bildschirm bitte 'return'-taste":print"druecken."
 1400 print"instrumente bekannt ";
 1410 inputa$:b$=left$(a$,1):ifb$="j"goto2170
 1420 gosub140
 1430 print"{home}"
 1440 fori=0to3:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}                               ":next
 1450 fori=0to18:print"                                       ":next
 1460 print"{home}{down}{down}{down}{down}{down}"
 1470 print"dieses instrument zeigt die stellung"
 1480 print"der landeklappen (0-9) an. sie"
 1490 print"kann waehrend des fluges ueber die"
 1500 print"numerische tastatur veraendert"
 1510 print"werden."
 1520 print"eingefahrene (0) landeklappen haben"
 1530 print"keinen einfluss auf das flugverhalten."
 1540 print"ausgefahrene (1-9) landeklappen"
 1550 print"vergroessern das sinken und verringern"
 1560 print"die geschwindigkeit."
 1570 print"die 'return'-taste wird dabei"
 1580 print"n i c h t  betaetigt."
 1590 gosub390
 1600 gosub140
 1610 print"{home}":fori=0to3:print"                                       ":next
 1620 fori=0to14:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}                                ":next
 1630 fori=0to3:print"                                       ":next
 1640 print"{home}das variometer zeigt das steigen"
 1650 print"oder sinken des flugzeuges an."
 1660 gosub390
 1670 gosub140:print"{home}"
 1680 fori=0to18:print"                             ":next
 1690 fori=0to3:print"                                       ":next
 1700 print"{home}der hoehenmesser zeigt die hoehe"
 1710 print"ueber dem platz in metern an."
 1720 gosub390
 1730 gosub140:print"{home}"
 1740 fori=0to18:print"                                       ":next
 1750 print"{home}der fahrtmesser gibt die "
 1760 print"eigengeschwindigkeit des flugzeuges"
 1770 print"in km/h an. das geringste sinken des"
 1780 print"flugzeuges liegt bei 80 km/h."
 1790 print"60km/h sollten nicht unterschritten"
 1800 print"werden."
 1810 gosub390
 1820 gosub140:print"{home}"
 1830 fori=0to18:print"        {rght}{rght}{rght}{rght}{rght}{rght}{rght}                        ":next
 1840 fori=0to3:print"                                       ":next
 1850 print"{home}der fluglageanzeiger."
 1860 print"ein kreuz"
 1870 print"zwischen den beiden linien gibt an,"
 1880 print"ob sich die nase des flugzeuges"
 1890 print"unterhalb oder oberhalb der"
 1900 print"waagerechten ( des horizontes )"
 1910 print"befindet. die fluglage wird mit der"
 1920 print"oberen reihe der alpha-tastatur"
 1930 print"beeinflusst."
 1940 print"{down}{down}{down}{down}{down}{down}es bedeuten:":print
 1950 print"!  ";chr$(34);"  #  $  %     '     &  \  (  )  _"
 1960 print"nase nach oben          nase nach unten"
 1970 print"weniger fahrt           mehr fahrt"
 1980 print"weniger sinken          mehr sinken"
 1990 print"die 'return'-taste wird dabei"
 2000 print"n i c h t  betaetigt."
 2010 gosub390
 2020 gosub140:print"{home}"
 2030 fori=0to18:print"                 {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}          ":next
 2040 fori=0to3:print"                                       ":next
 2050 print"{home}die beiden linien geben die"
 2060 print"vorderkante der landebahn an."
 2070 print"der zwischen ihnen angezeigte strich"
 2080 print"gibt den bei diesen flugdaten "
 2090 print"berechneten aufsetzpunkt an."
 2100 print
 2110 print"die landung ist in ordnung, wenn"
 2120 print"das flugzeug die landebahn 150 meter"
 2130 print"nach beginn derselben mit hoechstens"
 2140 print"90 km/h und hoechstens 1.5 m/s"
 2150 print"sinken beruehrt."
 2160 gosub390
 2170 print"{clr}":input"zeitfaktor (1=echtzeit)";a%:a%=abs(a%):ifa%=0goto2170
 2180 gosub140
 2190 goto420
 2200 gosub390
 2210 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}flugprotokoll"
 2220 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 2230 form=1to40
 2240 iffr(m)<=0goto2310
 2250 k2=int(fr(m))
 2260 k3=int(fr(m)/8)
 2270 k2=k2-k3*8
 2280 n=z%(7-k2)
 2290 j=33608-m-k3*40
 2300 pokej,n
 2310 nextm
 2320 fl=0:k=0:f=0
 2330 fori=0to41:fr(i)=0:nexti
 2340 return
  100 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  110 print"      programma international inc.
  120 print"{down}{down}{down}{down}{down}                {rvon}football"
  130 print"{down}       (c) 1979 / ira rothstein"
  140 fori=1to5000:nexti
  150 s9=2
  160 gosub3240
  170 print" length of game(hhmmss)"
  180 ti$="000000"
  190 inputz$
  200 printchr$(147)
  210 p=60*rnd(ti)
  220 p=int(p)
  230 ifp<25then210
  240 print"name of 1st team"
  250 inputa$
  260 print" your opponent's team?"
  270 inputb$
  280 print"player#1 will receive the kickoff"
  290 print"does the receiver wish to run"
  300 print"the kick back"
  310 inputans$
  320 ifans$="no "theny2=y3=20:ifans$="no"then430
  330 ifans$="no"then430
  340 po=int(12*rnd(ti))
  350 ifpo=6thens9=s9+1:ifpo=6then1560
  360 jk=int(4*rnd(ti))
  370 yd=int(15*rnd(ti))
  380 d=1:s9=s9+1:y=0
  390 ifjk=3thenyd=yd*-1
  400 print"the ball is on the "20+yd
  410 y2=20+yd:y3=20+yd
  420 goto490
  430 print"the ball is on the 20"
  440 s9=s9+1
  450 y2=20
  460 y3=20
  470 d=1
  480 y=0
  490 rem
  500 print"here is off. playbook"
  510 print"1=short pass"
  520 print"2=long pass"
  530 print"3=off tackle"
  540 print"4=reverse"
  550 print"5=field goal"
  560 print"6=punt"
  570 print"7=sweep"
  580 print"8=time left"
  590 print"9=status"
  600 print"your play?"
  610 pn=ti
  620 getira$:ifira$=""then620
  630 ifval(ira$)=0then3260
  640 z=val(ira$)
  650 ifti>pn+1000then3300
  660 printchr$(147)
  670 ifz=6orz=5then1540
  680 ifz=9then3540
  690 ifz=8then3130
  700 ifz<0orz>9orz=0then3260
  710 print"input def.play"
  720 print"1=blitz"
  730 print"2=3-4"
  740 print"3=4-3"
  750 print"4=prevent"
  760 print"5=stack"
  770 print"6=time left"
  780 print"7=status"
  790 print"input reply"
  800 ifti$>=z$then2260
  810 pn=ti
  820 getro$:ifro$=""then820
  830 w=val(ro$)
  840 ifti>pn+1000then3340
  850 ifw=6then3120
  860 ifw=7then3560
  870 ifw<0orw>7orw=0then3280
  880 ifw=1andz=2then1520
  890 ifw=2andz=1then1460
  900 ifw=3andz=3orw=3andz=7then1480
  910 ifw=4andz=4then1480
  920 ifw=5andz=7then1460
  930 ifw=5andz=2then1500
  940 ifw=1andz=1then2300
  950 ifw=1andz=4then1500
  960 ifw=1andz=3then1520
  970 ifw=1andz=7then1500
  980 ifw=2andz=2then2500
  990 ifw=2andz=3then1480
 1000 ifw=2andz=4then1460
 1010 ifw=2andz=7then1480
 1020 ifw=3andz=1then1440
 1030 ifw=3andz=2then1480
 1040 ifw=3andz=4then1460
 1050 ifw=4andz=2then2380
 1060 ifw=4andz=3then1440
 1070 ifw=4andz=1then2300
 1080 ifw=5andz=4then1500
 1090 ifw=4andz=7then1440
 1100 ifw=5andz=1then1500
 1110 ifw=5andz=2then1500
 1120 ifw=5andz=3then1460
 1130 rem
 1140 ify<10then1280
 1150 gosub2540:print"1st down"
 1160 forp=1to1800:next:d=1:printchr$(147)
 1170 y=0
 1180 goto1370
 1190 y=y+l
 1200 ifs9/2-int(s9/2)=0then1230
 1210 y2=y2+l
 1220 goto1240
 1230 y2=y2+l
 1240 d=d+1
 1250 ify2=100ory2>100then1560
 1260 ify2=0ory2<0then3390
 1270 goto1140
 1280 l5=10-y
 1290 ifd=5then2090
 1300 ifti>pn+1000then1320
 1310 gosub2540
 1320 :fori=1to1599:next:printchr$(147)
 1330 printd "down and "l5
 1340 ifl>0thenprint"a gain of "l " yards"
 1350 ifl<0thenprint"a loss of " l-l-l"yards"
 1360 ifl=0thenprint"no gain"
 1370 ify2<50then1410
 1380 y3=y2
 1390 y3=100-y2
 1400 goto1420
 1410 y3=y2
 1420 print"the ball is on the "y3
 1430 goto490
 1440 l=15*rnd(ti):l=int(l)
 1450 goto1190
 1460 t5=11*rnd(ti):l=-(int(t5))
 1470 goto1190
 1480 l=9*rnd(ti):l=int(l)
 1490 goto1190
 1500 l=26*rnd(ti):l=int(l)
 1510 goto1190
 1520 l=5*rnd(ti):l=-(int(l))
 1530 goto1190
 1540 goto1710
 1550 goto1710
 1560 printchr$(147):forj=1to10
 1570 print"touchdown!"
 1580 nextj
 1590 z5=s9/2
 1600 z6=int(z5)
 1610 z7=z5-z6
 1620 ifz7>0then1660
 1630 s1=s1+7
 1640 print"the score is "a$;s" and "b$;s1
 1650 goto1690
 1660 s=s+7
 1670 print"the score is "a$;s" and "b$;s1
 1680 goto290
 1690 goto290
 1700 print"the score is "a$;s "and "b$;s1
 1710 rem
 1720 ifz=5then1900
 1730 p=int(55*rnd(ti)):ifp<25then1730
 1740 y2=y2+p
 1750 ify2>100thenprint"out of endzone"
 1760 ify2>100theny2=20
 1770 y3=y2
 1780 ify2<50then1800
 1790 y3=100-y2:y2=100-y2
 1800 q2=s9/2
 1810 q3=int(q2)
 1820 q4=q2-q3
 1830 ifq4=0then1870
 1840 printb$" has the ball on the "y3
 1850 s9=s9+1
 1860 goto470
 1870 printa$" has the ball on the "y3
 1880 s9=s9+1
 1890 goto470
 1900 rem f  g
 1910 p1=p+y2
 1920 ifp1=100orp1>100then2010
 1930 print"its no good"
 1940 y2=100-y2
 1950 ify2<50then1970
 1960 y3=100-y2
 1970 q2=s9/2
 1980 q3=int(q2)
 1990 q4=q2-q3
 2000 goto2110
 2010 print"its good"
 2020 if(s9/2)-int(s9/2)<>0then2060
 2030 s1=s1+3
 2040 print"the score is "a$;s "and"b$;s1
 2050 goto290
 2060 s=s+3
 2070 print"the score is "a$;s  "and "b$;s1
 2080 goto290
 2090 rem
 2100 ifd=5then2140
 2110 ify2<50then2140
 2120 y3=100-y2
 2130 goto2160
 2140 y2=100-y2
 2150 ify2>50then2120
 2160 q2=s9/2
 2170 q3=int(q2)
 2180 q4=q2-q3
 2190 ifq4=0then2230
 2200 printb$"has the ball on the "y3
 2210 s9=s9+1
 2220 goto470
 2230 printa$"has the ball on the "y3
 2240 s9=s9+1
 2250 goto470
 2260 print"bang!!! then gun ends the game "
 2270 print"final score:"
 2280 printa$;s" and "b$;s1
 2290 end
 2300 rem
 2310 r3=4*rnd(ti)
 2320 r3=int(r3)
 2330 ifr3>1andr3<5then1440
 2340 print"blocked"
 2350 l=0
 2360 d=d+1
 2370 goto1280
 2380 h%=3*rnd(ti):ifh%=2then2300
 2390 y2=y3=20
 2400 printchr$(147)
 2410 print"the bomb is intercepted in the enzone"
 2420 q2=s9/2:q4=q2-(int(q2))
 2430 ifq4=0then2470
 2440 printb$" have the ball on the 20"
 2450 s9=s9+1
 2460 goto450
 2470 printa$" have the ball on the 20"
 2480 s9=s9+1
 2490 goto450
 2500 rem
 2510 l=0
 2520 d=d+1
 2530 goto1130
 2540 printchr$(147)
 2550 gosub2750
 2560 poke33572,86:poke33582,86:poke33584,86
 2570 poke33586,86:poke33588,86:poke33590,86
 2580 poke33600,86:poke33666,86:poke33744,86
 2590 poke33748,86:poke33659,86
 2600 fortk=1to200:next:po=33626:pokepo,46
 2610 forik=1to300:next:pokepo,32
 2620 pokepo+40,102
 2630 ifz=1orz=2then2890
 2640 kj=33748:forki=1to100:next:pokekj,32
 2650 pokekj+1,86:pokekj+1,32
 2660 pokekj+2,86:pokepo+40,86
 2670 pokepo+82,46:forcc=1to95:next:pokepo+82,32:pokepo+124,102
 2680 po=po+124:foroy=1to200:next:pokepo,32:pokepo-39,102:fordy=1to100:next
 2690 pokepo-39,32 :fora=1to100:next:pokepo-78,102:pokepo-78,32:po=po-40
 2700 po=po+2
 2710 forkc=1tol :po=po-40:pokepo,102
 2720 forph=1to150:next
 2730 pokepo,32:nextkc:pokepo-40,86
 2740 return
 2750 jz=33492:pokejz,215:poke33520,215
 2760 pokejz-195,215:poke33520-205,215
 2770 ifw=2orw=4then2830
 2780 pokejz+11,215:pokejz+13,215:pokejz+15,215:pokejz+17,215
 2790 ifw=5then2820
 2800 pokejz-106,215:pokejz-109,215:pokejz-103,215
 2810 return
 2820 pokejz+18,215:pokejz+10,215:pokejz+14,215:return
 2830 pokejz+11,215:pokejz+14,215:pokejz+17,215
 2840 jz=jz+40
 2850 ifw=4thenjz=jz-40
 2860 pokejz-148,215:pokejz-151,215
 2870 pokejz-145,215:pokejz-142,215
 2880 return
 2890 pokepo+40,32:pokepo+80,102
 2900 fork=1to30:next:pokepo+8,32
 2910 pokepo+120,102
 2920 pokepo+80 ,32
 2930 poke33600,32:poke33600-39,86
 2940 poke33561,32:poke33521,86
 2950 ifl<0thenprint"sacked":ifl<0then3100
 2960 qp=33521:forpc=1to9:pokeqp,32
 2970 qp=qp-40:pokeqp,86:foriz=1to30:next
 2980 nextpc
 2990 pokepo+120,86:pokepo+81,46
 3000 po=po+81
 3010 forpq=1to14
 3020 fori=1to50:next
 3030 ifpo=33590then3050
 3040 pokepo,32
 3050 po=po-39
 3060 ifpo=33590then3090
 3070 pokepo,46
 3080 ifl=0thenprint"incomplete":ifl=0then3100
 3090 nextpq:pokepo,102
 3100 return
 3110 goto710
 3120 printchr$(19)
 3130 printchr$(147):ifti$>z$then2260
 3140 forzx=1to75
 3150 l$=left$(ti$,2)
 3160 r$=right$(ti$,2)
 3170 ifti$>z$then2260
 3180 m$=mid$(ti$,3,2)
 3190 printl$":"m$":"r$
 3200 printchr$(19)
 3210 nextzx
 3220 ifz=8then500
 3230 goto710
 3240 printchr$(147):forkl=1to5:print:nextkl
 3250 return
 3260 print"play not found"
 3270 goto500
 3280 print"play not found"
 3290 goto710
 3300 print"penalty"
 3310 print"too much time"
 3320 l=-5:d=d+-1
 3330 goto1190
 3340 print"there is a flag on the field"
 3350 forth=1to500:nextth
 3360 print"its too much time"
 3370 l=5
 3380 goto1190
 3390 print"hes caught in the endzone"
 3400 fortu=1to999:nexttu
 3410 print"he's tackled its a safety"
 3420 ji%=s9/2
 3430 ol=s9/2
 3440 nm=ol-ji%
 3450 ifnm=0then3500
 3460 s1=s1+2
 3470 printb$" will receive the kickoff"
 3480 print"the score is "a$;s" and "b$;s1
 3490 goto1690
 3500 s=s+2
 3510 printa$" will receive the kickoff"
 3520 print"the score is "a$;s" and "b$;s1
 3530 goto1690
 3540 print"the score is "a$;s" and "b$;s1
 3550 goto500
 3560 print"the score is "a$;s" and "b$;s1
 3570 goto710
 1000 rem-------main program-----
 1010 max=500:ms=80:dim s%(max),sa%(ms)
 1020 gosub 1200:rem init
 1030 gosub 1400:rem instruc
 1040 poke158,0:print"{down}cHOOSE a OR b: ";:gosub 8000
 1050 if a$<>"a" and a$<>"b" then 1040
 1060 on asc(a$)-64 gosub 2000,3000:rem simulation, game
 1070 print"{down}sTART{$a0}OVER (y OR{$a0}n)? ";:gosub8000:printa$
 1080 if a$<>"n"then 1030
 1090 print"{down}{rvon}iT'S{$a0}BEEN{$a0}NICE{$a0}WORKING{$a0}WITH{$a0}YOU!!"
 1100 end
 1200 rem----init--------
 1210 ct=1:cs=10:cwp=2:rem costs
 1220 def fnp(x)=rnd(1)^2:rem proportion
 1230 x=rnd(-ti)
 1240 poke 59468,14
 1250 d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1260 c$="{CBM-+}"
 1390 return
 1400 rem-----instruc--------
 1410 print"{clr}       {rvon}welcome to the forest"
 1420 print"{down}yOU{$a0}ARE{$a0}A{$a0}FOREST{$a0}RANGER{$a0}TRYING{$a0}TO{$a0}FIND
 1430 print"OUT{$a0}WHAT{$a0}PERCENTAGE{$a0}OF{$a0}TREES{$a0}IN{$a0}
 1440 print"DIFFERENT{$a0}FORESTS{$a0}ARE{$a0}DISEASED.
 1450 print"{down}iN{$a0}THIS{$a0}SIMULATION{$a0}YOU{$a0}WILL{$a0}LEARN{$a0}ABOUT
 1460 print"THE{$a0}EFFECTS{$a0}OF{$a0}DIFFERENT{$a0}SIZED{$a0}SAMPLES.
 1470 print"{down}tHERE{$a0}ARE{$a0}TWO{$a0}MODES:
 1480 print"{down}  a) sIMULATION{$a0}MODE - eXPLORE{$a0}DIF-
 1490 print"     FERENT{$a0}SAMPLE{$a0}& FOREST{$a0}SIZES;
 1500 print"{down}  b) gAME{$a0}MODE - tRY{$a0}TO{$a0}MINIMIZE{$a0}THE{$a0}
 1510 print"     COST{$a0}OF{$a0}GETTING{$a0}AN{$a0}ACCURATE{$a0}
 1520 print"     ESTIMATE.
 1590 return
 2000 rem-----simulation------
 2010 print"{clr}       {rvon}sIMULATION{$a0}mODE
 2020 print"{down}hOW{$a0}MANY{$a0}TREES{$a0}DO{$a0}YOU{$a0}WANT{$a0}IN{$a0}YOUR{$a0}
 2030 print"FOREST (<="max")? ";
 2035 gosub 8400
 2040 pop=int(val(b$)):ifpo<1orpop>maxthen print"bETWEEN 1 AND"max"PLEASE":goto2035
 2045 f$="f"
 2050 print"{down}dO{$a0}YOU{$a0}WANT{$a0}TO{$a0}SET{$a0}THE{$a0}PERCENTAGE{$a0}OF    DISEASED{$a0}TREES (y OR{$a0}n)? ";
 2060 gosub8000:printa$:ifa$<>"y" and a$<>"n" then goto2060
 2070 if a$="n" then pr=fnp(0):goto2100
 2075 : f$="t"
 2080 : print"ok, wHAT{$a0}PERCENTAGE                     (BETWEEN 0 AND 100)? ";
 2085 : gosub8400:pr=val(b$)/100
 2090 : if pr<0 or pr>1 then print"mUST{$a0}BE{$a0}BETWEEN 0 AND{$a0}100: ";:goto2085
 2100 print"{down}hOW MANY{$a0}TREES{$a0}IN{$a0}A{$a0}SAMPLE (BETWEEN 1   AND"pop")? :";
 2110 gosub8400:ss=int(val(b$))
 2120 if ss<1 or ss>pop then print"mUST{$a0}BE{$a0}BETWEEN 1 AND"pop": ";:goto 2110
 2130 print"{down}hOW{$a0}MANY{$a0}SAMPLES{$a0}TO{$a0}TAKE (1-"ms"): ";
 2140 gosub8400:ns=int(val(b$))
 2150 if ns<1 or ns>ms then print"mUST{$a0}BE{$a0}BETWEEN 1 AND"ms": ";:goto2140
 2160 gosub 4200:rem do run
 2165 poke158,0
 2167 x=0:y=24:gosub8800
 2168 iff$="f"then gosub 5000
 2170 print"{rvon}aNOTHER{$a0}ROUND (y OR{$a0}n): ";:gosub8000:printa$
 2180 if a$<>"n" then goto2000
 2190 return
 3000 rem------game------
 3010 gosub3200:rem game instruc
 3020 as=0:pr=fnp(0):samp=1:rem spent & prop
 3025 seed=rnd(1):t=rnd(-seed):rem set generator for later reuse
 3030 print"{down}hOW{$a0}MANY{$a0}TREES{$a0}IN{$a0}SAMPLE{$a0}#"samp"{left}? ";
 3040 gosub8400:ss=val(b$)
 3050 ifss<1 or ss>pop thenprint"mUST{$a0}BE{$a0}BETWEEN 1 AND"pop": ";:goto3040
 3060 gosub4000:rem choose sample
 3070 print"{down}tHAT{$a0}COST{$a0}YOU"cs+ct*ss"DOLLARS.
 3080 as=as+cs+ct*ss:samp=samp+1
 3090 print"sO{$a0}FAR{$a0}YOU{$a0}HAVE{$a0}SPENT"as"DOLLARS.
 3100 print"tHERE{$a0}WERE{rvon}"nd"{rvof}DISEASED{$a0}OUT{$a0}OF{rvon}"ss"{rvof}{left}.
 3110 print"aNOTHER{$a0}SAMPLE (y OR{$a0}n)? ";
 3120 gosub8000:ifa$<>"y"and a$<>"n"then3120
 3130 printa$:ifa$="y"then3030
 3140 gosub3400:rem guess&rank
 3150 print"{down}aNOTHER{$a0}GAME (y OR{$a0}n)? ";
 3160 gosub8000:ifa$<>"y"anda$<>"n"then3160
 3170 printa$:ifa$="y"then3000
 3180 return
 3200 rem----game instruc-----
 3210 print"{clr}        {rvon}forest game"
 3220 pop=int(rnd(1)*5+1)*100
 3230 print"{down}yOUR{$a0}FOREST{$a0}HAS {rvon}"pop"TREES.
 3240 print"{down}cHECKING{$a0}A{$a0}TREE{$a0}TAKES{$a0}TIME, SO{$a0}YOU{$a0}WILL
 3250 print"BE{$a0}CHARGED {rvon}"ct"DOLLAR{rvof}{$a0}PER{$a0}TREE.
 3260 print"{down}sETTING{$a0}UP{$a0}EACH{$a0}SAMPLE{$a0}TAKES{$a0}MUCH{$a0}EXTRA
 3270 print"TIME--A{$a0}COST{$a0}OF {rvon}"cs"DOLLARS{rvof} PER{$a0}SAMPLE.
 3280 print"{down}tHE{$a0}ACCURACY{$a0}OF{$a0}YOUR{$a0}FINAL{$a0}ESTIMATE{$a0}HAS
 3290 print"FINANCIAL{$a0}IMPLICATIONS. yOU{$a0}WILL{$a0}BE
 3300 print"CHARGED {rvon}"cw"DOLLARS{rvof}{$a0}PER{$a0}WRONG{$a0}
 3310 print"PERCENTAGE{$a0}POINT SQUARED.
 3320 print"{down}{rvon}tRY{$a0}TO{$a0}GET{$a0}AS{$a0}LOW{$a0}A{$a0}SCORE{$a0}AS{$a0}POSSIBLE!
 3390 return
 3400 rem---guess & rank-----
 3410 print"{down}wHAT{$a0}IS{$a0}YOUR{$a0}ESTIMATE{$a0}OF{$a0}THE{$a0}PERCENTAGE OF{$a0}DISEASED{$a0}TREES? ";
 3430 c$="%":gosub8400:gp=int(val(b$)+.49):p1=int(pr*100+.5):c$="{CBM-+}"
 3440 print"{down}tHE{$a0}TRUE{$a0}PERCENTAGE{$a0}WAS {rvon}"p1"{left}{rvof}%.
 3450 wr=abs(p1-gp)
 3460 if wr=0 then print"{rvon}eXACTLY{$a0}RIGHT!":goto3500
 3470 : print"yOU ARE{$a0}WRONG{$a0}BY{$a0}{rvon}"wr"{rvof}PERCENTAGE
 3490 : print"POINTS{$a0}WHICH{$a0}COSTS{$a0}YOU"cw*wr^2"DOLLARS.
 3495 : as=as+cw*wr^2
 3500 print"{down}yOUR{$a0}EXPERIMENT{$a0}COST {rvon}"as"DOLLARS."
 3520 gosub6000:rem comparison
 3590 return
 4000 rem-----choose sample---
 4010 nd=0:chosen=0
 4020 for i=1 to pop:s%(i)=0:nexti
 4030 item=int(rnd(1)*pop+1)
 4040 :   if s%(item)then 4030
 4050 : chosen=chosen+1:s%(item)=1
 4060 : if item<=pop*pr then nd=nd+1
 4070 : if chosen<ss then 4030
 4090 return
 4200 rem------ns samples----
 4210 gosub5200:rem heading
 4230 for samp=1 to ns
 4240 : gosub4000:rem choose sample
 4245 : sa%(samp)=nd
 4250 : gosub4800:rem print sample
 4260 next samp
 4270 x=0:y=24:gosub8800
 4275 poke158,0
 4280 print"{rvon}pRESS{$a0}ANY{$a0}KEY{$a0}FOR{$a0}SORTING: ";:gosub8000
 4290 gosub5200:rem heading
 4295 gosub4600:rem sort
 4390 return
 4600 rem------sort sa%-------
 4610 for sa=1 to ns-1
 4620 : for j=ns to sa+1 step -1
 4630 :   if sa%(j)<sa%(j-1) then t=sa%(j):sa%(j)=sa%(j-1):sa%(j-1)=t
 4650 : next
 4660 : gosub4800
 4670 next
 4680 sa=ns:gosub4800
 4690 return
 4800 rem----print samp------
 4810 col=(samp-1)/20
 4820 if col<>int(col) then 4900
 4830 : col=int(col)
 4840 : print"{home}{down}{down}"tab(col*10)"smp # trs";:ifcol<3 thenprint"{SHIFT--}";
 4850 : print:printtab(col*10)" #  dissd";:if col<3 thenprint"{SHIFT--}"
 4900 col=int(col):x=col*10:y=samp-20*col+3
 4910 gosub8800
 4920 printsamp;sa%(samp);
 4930 if col<3 then printtab((col+1)*10-1)"{SHIFT--}"
 4990 return
 5000 rem-----estimate %----
 5010 print"{rvon}eSTIMATE{$a0}THE{$a0}% DISEASED: ";
 5020 c$="%":gosub8400:gp=int(val(b$)+.49):pr=int(pr*100+.5):c$="{CBM-+}"
 5030 wr=gp-pr
 5040 if wr=0 then print"{rvon}eXACTLY{$a0}RIGHT!"
 5050 if wr<>0 then print"{rvon}aCTUALLY{$a0}IT{$a0}WAS"pr"{left}%."
 5060 return
 5200 rem----table heading----
 5210 print"{clr}pop="po": sampsize="ss": # samps="ns
 5215 if f$="t"thenprint"{rvon}"int(pr*100+.5)"{left}% DISEASED."
 5230 return
 6000 rem-----comparison---
 6010 print"{down}{rvon}lET ME SEE HOW{$a0}i{$a0}WOULD DO ..."
 6020 ss=200*sqr(cw/15/ct):rem best sample size
 6030 t=rnd(-seed):rem reset generator
 6040 gosub4000:rem choose sample
 6050 pet=int(nd/ss*100+.5)
 6060 ps=int(cs+ss*ct+cw*(pet-p1)^2+.5)
 6070 print"i WOULD{$a0}HAVE{$a0}GUESSED"pet"{left}%,
 6080 print"  AT{$a0}A{$a0}COST{$a0}OF $"ps"{left}.
 6090 if as<ps then print"{down}{rvon}yOU{$a0}DID{$a0}BETTER{$a0}THAN{$a0}i!
 6190 return
 8000 rem-single char--
 8010 t=ti
 8020 if ti<t+30 then printc$"{left}";:goto 8050
 8030 if ti<t+60 then print" {left}";:goto 8050
 8040 t=ti
 8050 get a$:if a$="" then 8020
 8060 print" {left}";:return
 8200 rem-get string--
 8220 gosub 8000:a=asc(a$)
 8240 ifb$=""and a=20 then 8220
 8250 if b$="" and a=13 then return
 8260 if a=13 then printa$;:return
 8270 if a=20 and len(b$)<2 then printa$;:b$="":goto 8220
 8280 if a=20 then printa$;:b$=left$(b$,len(b$)-1):goto 8220
 8290 if a<32 or (a>127 and a<161) then 8220
 8315 if len(b$)=38 then print
 8320 printa$;:b$=b$+a$
 8340 goto 8220
 8400 rem-non-empty str-
 8410 b$="":poke 158,0
 8420 gosub 8200
 8430 if b$="" then 8420
 8440 return
 8800 rem-to x,y-
 8810 print"{up}":print"{home}";
 8820 ifx=0andy=0then return
 8830 ifx=0thenprintleft$(d$,y);:return
 8840 ify=0thenprinttab(x);:return
 8850 printleft$(d$,y)tab(x);
 8860 return
    0 clr:poke59468,12
    1 rem frog! copyright (c) 1980 bob carr
    2 rem 957 e washington
    3 rem el cajon calif 92020
    4 :
    5 rem cursor #19 apr 80
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 28 apr 80
   90 pg$="frog!":nm$="19":gosub62000
  100 :
  110 f=42:ifpeek(50000)thenpoke59458,peek(59458)or32
  120 goto1500
  140 p=0:c=9:m=33310:k=m:l=m:i=9:j=9:poke59467,16:poke59466,11:q=59464:pokeq,0
  150 y=0:cc=32910:dd=33470:ee=33270:ff=33070:g=33598
  170 print"{clr}O";:forz=1to38:print"{CBM-T}";:next:o=500+e:x=32807:pokex,80:pokex+1,101
  180 forz=1to16:x=x+40:pokex+1,101:pokex,103:next
  190 forz=1to4:x=x+40:pokex,103:next
  200 a$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  210 c$="{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  220 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(35)"{SHIFT--}
  230 printtab(33)"{SHIFT--} {rvon} {rvof}":r$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
  240 printtab(33)"{rvon} {rvof} {rvon} {rvof} {SHIFT--}"
  250 printtab(33)"{rvon} {rvof} {rvon} {rvof} {rvon} {rvof}"
  260 printtab(33)"{rvon} {rvof} {rvon} {rvof} {rvon} {rvof}"
  270 print"{CBM-G}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"spc(19)"{rvon} {rvof} {SHIFT--} {rvon} {rvof}"
  280 print"V{CBM-T}"spc(11)"NL"spc(18)"{SHIFT--} {SHIFT--} {rvon} {rvof}"
  290 print"{SHIFT-*}OPEOPM{CBM-R}OEDO{CBM-T}{CBM-G}{CBM-G}L"spc(17)"{SHIFT--} {SHIFT--} {SHIFT--}
  300 print"{CBM-G}{CBM-G}{CBM-M} {CBM-G}{CBM-M} {SHIFT--}{CBM-G}  {CBM-G} {CBM-G}{CBM-M}{CBM-M}";r$;
  310 print"{CBM-G}{CBM-G}  {CBM-G}{CBM-M} {SHIFT--}   {CBM-G} {CBM-G}{CBM-M}{CBM-M}";r$;
  320 print"{CBM-POUND}{CBM-POUND}  {CBM-G}{CBM-M}     {CBM-G}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}";r$;
  330 print"{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}level"t"{rvof}{left}{CBM-+}{CBM-+}{left}{left}{left}{left}{CBM-+}";:poke33767,102
  340 ifh=1thenpoke33355,f:poke33430,f:poke33519,f
  350 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}           "
  360 print"{rght}           "
  370 print"{rght}           "
  380 print"{rght}           "
  390 print"{rght}    {CBM-@}{CBM-P}{CBM-O}{CBM-P}   "
  400 print"{rght}   {rvon}{SHIFT-POUND}  (q{CBM-*}{rvof} "
  410 print"{rght}  {rvon}{SHIFT-POUND}    ' U
  420 print"{rght} {rvon}{SHIFT-POUND}{CBM-@}{CBM-@}{CBM-@}{CBM-@} ) {rvof}{SHIFT-POUND}
  430 print"{rght}{rvon}{SHIFT-POUND}N  , M {rvof}{SHIFT-POUND}
  440 print"{rght}{rvon}NN{CBM-T}{CBM-T}  N{CBM-N}
  450 print"{rght}{CBM-*}{rvon}{CBM-G}('{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}
  460 print"{rght}{rght}{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-*}{rvon}MMM{CBM-*}
  470 printspc(9)"{CBM-Y}{CBM-U}{home}"
  480 o=o-(y+e):ifo<0theno=0
  490 ifh=1then1420
  500 pokeq,6:pokeq,0:o=o-1-e/15
  510 print"{home}{down}{rght}"int(o)+1"{left} calories ";tab(29)p;" bugs":ifo<0then1230
  518 fori=40*tto240:next
  520 getd$:ifd=1andd$=""then1740
  530 ifd$=""thenpokem,32:goto750
  534 ifd$="q"then1230
  540 y=val(d$):ify<1then520
  550 ify=1ory=4ory=7thenx=6:goto580
  560 ify=2ory=5ory=8thenx=12:goto580
  570 ify=3ory=6ory=9thenx=18
  580 ify>6then660
  590 ify>3then630
  600 printa$;:fora=1tox:print"{SHIFT-*}I{left}";:pokeq,a*4
  610 b=a:aa=33340+a:ifpeek(aa)=fthengosub1160:a=x
  620 next:forx=1tob:print"{left}K {left}{left}";:next:print" ":pokeq,0:goto690
  630 gosub840:printb$;:fora=1tox:print"{SHIFT-*}I{left}";:pokeq,a*4
  640 b=a:aa=33180+a:ifpeek(aa)=fthengosub1160:a=x
  650 next:forx=1tob:print"{left}K {left}{left}";:next:print" ":pokeq,0:goto690
  660 gosub840:gosub1000:printc$;:fora=1tox:print"{SHIFT-*}I{left}";:pokeq,a*4
  670 b=a:aa=33020+a:ifpeek(aa)=fthengosub1160:a=x
  680 next:forx=1tob:print"{left}K {left}{left}";:next:print" ":pokeq,0:gosub840
  690 ifaa=kthenk=ee:goto720
  700 ifaa=lthenl=ee-40:goto720
  710 ifaa=mthenm=ee-80
  720 y=x:ifd=1theny=y/3
  730 ifz=95thenz=0:o=o+(y+e)
  740 goto350
  750 pokel,32:n=rnd(1):pokeq,8:pokeq,0:pokek,32:pokem,32
  760 ifn<.1126thenm=m+1:k=k-41:l=l+40:c=c-1:i=i-1:pokeq,11:pokeq,0:goto800
  770 ifn<.2253thenm=m-1:k=k-1:l=l-1:c=c-1:i=i-1:j=j-1:pokeq,7:pokeq,0:goto800
  780 ifn<.5379thenm=m+40:k=k-39:l=l-40:i=i+1:pokeq,9:pokeq,0:goto800
  790 m=m-40:k=k+1:l=l+41:i=i+1:j=j+1
  800 ifm<ccorm>ddorc<1orc>17thenc=9:m=ee
  810 pokem,f:ifl<ccorl>ddorj<1orj>17thenj=9:l=ee
  820 pokel,f:ifk<ccork>ddori<1ori>17theni=9:k=ee
  822 ifm=lorm=korl=kthen750
  824 pokel,f:pokek,f:pokem,f:goto500
  840 print"{home}{down}{down}{down}{down}{rght}           "
  850 print"{rght}           "
  860 print"{rght}           "
  870 print"{rght}           "
  880 print"{rght}    {CBM-@}{CBM-P}{CBM-O}{CBM-P}   "
  890 print"{rght}   {rvon}{SHIFT-POUND}  (q{CBM-*}{rvof} "
  900 print"{rght}  {rvon}{SHIFT-POUND}    ' U{rvof}"
  910 print"{rght} {rvon}{SHIFT-POUND}     ) {rvof}{SHIFT-POUND}"
  920 print"{rght}{rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND} "
  930 print"{rght}{rvon}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M {rvof}  "
  940 print"{rght}{CBM-*}{rvon}    , ){CBM-*}{rvof} "
  950 print"{rght}  {CBM-Y}{CBM-U}{rvon}N {rvof}{SHIFT-POUND} {CBM-*}{rvon}P{rvof}"
  960 print"{rght}   {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}    "
  970 print"{rght}  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}     "
  980 print"{rght}  {rvon}('{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvof}
  990 print"{rght}{rght}{rght}{CBM-U}{CBM-U}{CBM-U}{CBM-*}{rvon}MMM{CBM-*}{rvof}":return
 1000 print"{home}{down}{down}{down}{down}"spc(5)"{CBM-@}{CBM-P}{CBM-O}{CBM-P}
 1010 print"{rght}   {rvon}{SHIFT-POUND}  (q{CBM-*}{rvof}"
 1020 print"{rght}  {rvon}{SHIFT-POUND}    ' U{rvof}"
 1030 print"{rght} {rvon}{SHIFT-POUND}     ) {rvof}{SHIFT-POUND}"
 1040 print"{rght}{rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND} "
 1050 print"{rght}{rvon} {CBM-T}{CBM-T}M    {rvof}  "
 1060 print"{rght}{CBM-*}{rvon}   M, ){CBM-*}{rvof} "
 1070 print"{rght} {CBM-*}{rvon}  ({rvof}{SHIFT-POUND}  {CBM-*}{rvon}P
 1080 print"{rght}  {CBM-*}{rvon}  {CBM-*}{rvof}    "
 1090 print"{rght}   {CBM-*}{rvon}  {CBM-*}{rvof}   "
 1100 print"{rght}    {CBM-*}{rvon} ){rvof}   "
 1110 print"{rght}    {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}   "
 1120 print"{rght}   {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}    "
 1130 print"{rght}  {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}     "
 1140 print"{rght}  {rvon}('{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvof}
 1150 print"{rght}{rght}{rght}{CBM-U}{CBM-U}{CBM-U}{CBM-*}{rvon}MMM{CBM-*}{rvof}":return
 1160 ifpeek(aa-40)=42thenp=p+1:o=o+40
 1170 ifpeek(aa+40)=42thenp=p+1:o=o+40
 1180 ifpeek(aa+1)=42thenp=p+1:o=o+40
 1190 p=p+1:pokeaa,160:pokeaa-40,160:pokeaa+40,160:pokeaa-1,160
 1200 pokeaa+1,160:pokeaa-40,32:pokeaa+40,32:pokeaa-1,32
 1210 pokeaa+1,32:pokeaa,32:g=33596:o=o+40:e=e+.3
 1220 forz=200to100step-5:pokeq,z:next:pokeq,0:return
 1230 forz=150to250step.2:pokeq,z:next:pokeq,0:pokek,32:pokel,32:pokem,32
 1240 print"{home}{down}"tab(37)"  "
 1250 print"{up}{rght}you caught"p"{left} bugs!
 1270 ifp<40then1310
 1280 print"{down}{rght}he flies, he leaps tall buildings,"
 1290 print"{rght}his tongue is magic - it's":printtab(9)"{rvon}suuupperfrog!!":goto1860
 1310 ifp>30thenprint"{down}{rght}  bullroarer, king of the pond!!":goto1360
 1320 ifp>25thenprint"{down}{rght}  a bullfrog, well fed!!":goto1360
 1330 ifp>15thenprint"{down}{rght}  a tree frog.":goto1360
 1340 ifp>10thenprint"{down}{rght}  a tadpole.":goto1360
 1350 print"{down}{rght}  you ought to eat vegetables!
 1360 getd$:ifd$<>""then1360
 1370 print"{down}{rght}play again? ";:gosub60000
 1390 ifleft$(in$,1)<>"n"then1500
 1400 poke59458,peek(59458)and223:poke59464,0:poke59466,0:poke59467,0:end
 1500 d=0:print"{up}{rght}do you want three bugs? ";:gosub60000
 1510 :
 1520 ifleft$(in$,1)<>"y"thend=1
 1540 goto1820
 1740 o=o+.3:pokeq,7:pokeq,0:pokeg,32:s=rnd(1):ifs<.5theng=g-2
 1750 g=g+1:ifs<.25theng=g-78
 1760 ifg<32840andd=1theng=33598:goto500
 1770 ifg<ffthen1810
 1780 ifg<eethen1800
 1790 g=g-42:pokeg,f:pokeq,6:pokeq,0:goto500
 1800 g=g-40:pokeg,f:pokeq,8:pokeq,0:goto500
 1810 g=g-41:pokeg,f:goto500
 1820 print"{up}{rght}please enter skill level (0 thru 9) ";
 1830 pokeq,0:gosub60000
 1840 t=val(in$):e=(t*2)-4
 1850 goto140
 1860 forz=1to5:poke59466,15:forx=20to120:pokeq,x:next:forx=50to130:pokeq,x:next
 1870 forx=200to100step-.5:pokeq,x:next:next:pokeq,0:goto1360
 1880 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;
 60110 ifz=13thenin$=mid$(in$,2):print:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}frog! - cursor #19  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by bob carr{down}
 62020 gosub60500
 62030 print"{down}back to nature
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"froggy needs bugs to live.  you control
 62120 print"{down}his tongue CCCCCC> {rvon}short{rvof} {rvon}medium{rvof} {rvon}long
 62130 print"{down}and height C> {rvon}high{rvof}   {rvon}7{rvof}     {rvon}8{rvof}     {rvon}9
 62140 print"{down}with the      {rvon}middle{rvof} {rvon}4{rvof}     {rvon}5{rvof}     {rvon}6
 62150 print"{down}number pad.   {rvon}low{rvof}    {rvon}1{rvof}     {rvon}2{rvof}     {rvon}3
 62160 print"{down}the longer he has to reach, the more
 62170 print"{down}energy he uses.  higher skill levels
 62180 print"{down}make the bug faster and the frog
 62190 print"{down}expends energy faster.
 62200 gosub60200
   10 sys(1039)
   10 data 2,2,3,3,4,5,8,10
   15 dim a(81),b(8),c(8),d(8),h(8)
   30 print "{clr}wait"
   50 for i=i to peek(514): z=rnd(1): next
   65 print"{clr}"
   70 fori=1 to 81: a(i)=0: next
   75 for i=1 to 9: a(i)=9: a(i+72)=9: next
   80 fori=10 to 64 step 9:a(i)=9: a(i+8)=9:      next
   85 let w=0: for i=1to8: read d(i):next
   90 a(31)=1: a(32)=2: a(33)=3: a(40)=4
   95 a(42)=5: a(49)=6: a(50)=7: a(51)=8
  100 h(1)=31: h(2)=32: h(3)=33: h(4)=40
  105 : h(5)=42: h(6)=49: h(7)=50: h(8)=51
  110 print"how many players";
  115 input p: p=int(p): if p<=0 then 405lisr
  120 if p<=8 then 135
  125 print"no more than 8 players": gosub 265      : goto 110
  135 print"       frog no.    odds"
  140 for i=1 to 8
  145 printtab(11);i;"------";d(i);"to 1"
  150 next: print:for i=1 to p
  155 print"player no. "; i;"your turn"
  160 print"which frog do you want to bet on";
  165 input b(i):if b(i)>8 then 185
  170 print"how much is your bet";
  175 input c(i):next:
  180 gosub 195: goto 230
  185 print"there are only 8 frogs": goto       155
  190 print :return
  195 print"{clr}{up}{up}{up}": x=1
  200 for i=x to x+8
  205 :if a(i)=0 then print"   ";:goto 220
  210 :if a(i)=9 then print" + ";: goto220
  215 :print a(i);
  220 next: print: print: x=x+9: if x>=81           then return
  225 goto200
  230 if w=1 then 325
  235 for i=1 to 8
  240 :gosub 270
  245 :if a(h(i)+x)=9 then 315
  250 :if a(h(i)+x)<>0 then 240
  255 :a(h(i)+x)=i: a(h(i))=0: h(i)=h(i)+x
  260 next: goto 180
  265 k=2^2: return
  270 x=int(8*rnd(1))+1
  275 if x=1 then x=-9: return
  280 if x=2 then x=-8: return
  285 if x=3 then x=-1: return
  290 if x=4 then x=1: return
  295 if x=5 then x=8: return
  300 if x=6 then x=9: return
  305 if x=7 then x=10: return
  310 x=-10: return
  315 j=i: w=1: a(h(i)+x)=i: a(h(i))=0
  320 h(i)=h(i)+x: goto 180
  325 gosub 265:
  330 print"frog no.";j;"won--paid ";d(j);"to 1"
  335 print: print"player":print
  340 for i=1 to p: print"no."i;: if b(i)=j then 350
  345 print"you lost "; c(i);"dollars": goto355
  350 print"you won ";c(i)*d(j);"dollars"
  355 next
  360 print: input "another race";a$
  365 if a$="y" then restore: goto 65
  370 if a$="n" then 400
  375 goto 360
  400 print "{clr}bye for now"
  405 print "{clr}bye for now"
  999 end
   10 printchr$(142)
   20 input"{home}{home}{clr}hoeveel geld wilt u spenderen ";m:t=m*4:gosub21:goto25
   21 print"{clr} {rvon} * lucky sevens * {rvof}"spc(16)"{rvon}tegoed :{rvof}"t" "
   22 print"{home}"spc(59)" {rvon} * lucky sevens * {rvof}":return
   23 print "{home}"spc(35)"{rvon}tegoed :{rvof}"t"{left} ":return
   25 print"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
   26 print"{up}"spc(40)"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
   27 a1$="{rvon}          {rvof}":a2$=a1$:a3$=a1$:a4$=a1$
   28 gosub2000:gosub2010:gosub2020:gosub2030:print"{home}":poke224,3:gosub1300
   30 input"{home}sla een getal aan ";g
   31 print"{home}                                                   ":poke224,5:goto35
   32 print"{home}":poke224,3:input"{home}sla opnieuw een getal aan        ";g
   33 print"{up}                                          ":print"{home}":poke224,3:goto42
   35 ifg<0org>9goto30
   42 ift=0goto20
   44 t=t-1:poke224,0:gosub23:poke224,5
   50 gosub10000:goto60
   51 a(1)=int(rnd(1)*9+1):return
   52 a(2)=int(rnd(1)*9+1):return
   53 a(3)=int(rnd(1)*9+1):return
   54 a(4)=int(rnd(1)*9+1):return
   60 ifa(1)=1thengosub501
   65 ifa(1)=2thengosub511
   70 ifa(1)=3thengosub521
   75 ifa(1)=4thengosub531
   80 ifa(1)=5thengosub541
   85 ifa(1)=6thengosub551
   90 ifa(1)=7thengosub561
   95 ifa(1)=8thengosub571
  100 ifa(1)=9thengosub581
  105 ifa(2)=1thengosub503
  110 ifa(2)=2thengosub513
  115 ifa(2)=3thengosub523
  120 ifa(2)=4thengosub533
  125 ifa(2)=5thengosub543
  130 ifa(2)=6thengosub553
  135 ifa(2)=7thengosub563
  140 ifa(2)=8thengosub573
  145 ifa(2)=9thengosub583
  150 ifa(3)=1thengosub505
  155 ifa(3)=2thengosub515
  160 ifa(3)=3thengosub525
  165 ifa(3)=4thengosub535
  170 ifa(3)=5thengosub545
  175 ifa(3)=6thengosub555
  180 ifa(3)=7thengosub565
  185 ifa(3)=8thengosub575
  190 ifa(3)=9thengosub585
  195 ifa(4)=1thengosub507
  200 ifa(4)=2thengosub517
  205 ifa(4)=3thengosub527
  210 ifa(4)=4thengosub537
  215 ifa(4)=5thengosub547
  220 ifa(4)=6thengosub557
  225 ifa(4)=7thengosub567
  230 ifa(4)=8thengosub577
  235 ifa(4)=9thengosub587
  250 goto600
  501 a1$="{rvon}          {rvof}":b1$="{rvon}    {rvof}  {rvon}    {rvof}":c1$="{rvon}   {rvof}   {rvon}    {rvof}":d1$=b1$:e1$=b1$
  502 f1$=b1$:g1$=b1$:h1$=b1$:i1$="{rvon}   {rvof}    {rvon}   {rvof}":j1$=a1$:return
  503 a2$="{rvon}          {rvof}":b2$="{rvon}    {rvof}  {rvon}    {rvof}":c2$="{rvon}   {rvof}   {rvon}    {rvof}":d2$=b2$:e2$=b2$
  504 f2$=b2$:g2$=b2$:h2$=b2$:i2$="{rvon}   {rvof}    {rvon}   {rvof}":j2$=a2$:return
  505 a3$="{rvon}          {rvof}":b3$="{rvon}    {rvof}  {rvon}    {rvof}":c3$="{rvon}   {rvof}   {rvon}    {rvof}":d3$=b3$:e3$=b3$
  506 f3$=b3$:g3$=b3$:h3$=b3$:i3$="{rvon}   {rvof}    {rvon}   {rvof}":j3$=a3$:return
  507 a4$="{rvon}          {rvof}":b4$="{rvon}    {rvof}  {rvon}    {rvof}":c4$="{rvon}   {rvof}   {rvon}    {rvof}":d4$=b4$:e4$=b4$
  508 f4$=b4$:g4$=b4$:h4$=b4$:i4$="{rvon}   {rvof}    {rvon}   {rvof}":j4$=a4$:return
  511 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}       {rvof} {rvon}  {rvof}":d1$=c1$
  512 e1$=c1$:f1$=b1$:g1$="{rvon}  {rvof} {rvon}       {rvof}":h1$=g1$:i1$=b1$:j1$=a1$:return
  513 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}       {rvof} {rvon}  {rvof}":d2$=c2$
  514 e2$=c2$:f2$=b2$:g2$="{rvon}  {rvof} {rvon}       {rvof}":h2$=g2$:i2$=b2$:j2$=a2$:return
  515 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}       {rvof} {rvon}  {rvof}":d3$=c3$
  516 e3$=c3$:f3$=b3$:g3$="{rvon}  {rvof} {rvon}       {rvof}":h3$=g3$:i3$=b3$:j3$=a3$:return
  517 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}       {rvof} {rvon}  {rvof}":d4$=c4$
  518 e4$=c4$:f4$=b4$:g4$="{rvon}  {rvof} {rvon}       {rvof}":h4$=g4$:i4$=b4$:j4$=a4$:return
  521 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}       {rvof} {rvon}  {rvof}":d1$=c1$
  522 e1$=c1$:f1$="{rvon}    {rvof}    {rvon}  {rvof}":g1$=c1$:h1$=c1$:i1$=b1$:j1$=a1$:return
  523 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}       {rvof} {rvon}  {rvof}":d2$=c2$
  524 e2$=c2$:f2$="{rvon}    {rvof}    {rvon}  {rvof}":g2$=c2$:h2$=c2$:i2$=b2$:j2$=a2$:return
  525 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}       {rvof} {rvon}  {rvof}":d3$=c3$
  526 e3$=c3$:f3$="{rvon}    {rvof}    {rvon}  {rvof}":g3$=c3$:h3$=c3$:i3$=b3$:j3$=a3$:return
  527 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}       {rvof} {rvon}  {rvof}":d4$=c4$
  528 e4$=c4$:f4$="{rvon}    {rvof}    {rvon}  {rvof}":g4$=c4$:h4$=c4$:i4$=b4$:j4$=a4$:return
  531 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof} {rvon}   {rvof} {rvon}   {rvof}":c1$=b1$:d1$=b1$:e1$=b1$
  532 f1$="{rvon}  {rvof}      {rvon}  {rvof}":g1$="{rvon}      {rvof} {rvon}   {rvof}":h1$=g1$:i1$=g1$:j1$=a1$:return
  533 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof} {rvon}   {rvof} {rvon}   {rvof}":c2$=b2$:d2$=b2$:e2$=b2$
  534 f2$="{rvon}  {rvof}      {rvon}  {rvof}":g2$="{rvon}      {rvof} {rvon}   {rvof}":h2$=g2$:i2$=g2$:j2$=a2$:return
  535 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof} {rvon}   {rvof} {rvon}   {rvof}":c3$=b3$:d3$=b3$:e3$=b3$
  536 f3$="{rvon}  {rvof}      {rvon}  {rvof}":g3$="{rvon}      {rvof} {rvon}   {rvof}":h3$=g3$:i3$=g3$:j3$=a3$:return
  537 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof} {rvon}   {rvof} {rvon}   {rvof}":c4$=b4$:d4$=b4$:e4$=b4$
  538 f4$="{rvon}  {rvof}      {rvon}  {rvof}":g4$="{rvon}      {rvof} {rvon}   {rvof}":h4$=g4$:i4$=g4$:j4$=a4$:return
  541 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}  {rvof} {rvon}       {rvof}":d1$=c1$
  542 e1$=b1$:f1$="{rvon}       {rvof} {rvon}  {rvof}":g1$=f1$:h1$=f1$:i1$=b1$:j1$=a1$     :return
  543 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}  {rvof} {rvon}       {rvof}":d2$=c2$
  544 e2$=b2$:f2$="{rvon}       {rvof} {rvon}  {rvof}":g2$=f2$:h2$=f2$:i2$=b2$:j2$=a2$:return
  545 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}  {rvof} {rvon}       {rvof}":d3$=c3$
  546 e3$=b3$:f3$="{rvon}       {rvof} {rvon}  {rvof}":g3$=f3$:h3$=f3$:i3$=b3$:j3$=a3$:return
  547 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}  {rvof} {rvon}       {rvof}":d4$=c4$
  548 e4$=b4$:f4$="{rvon}       {rvof} {rvon}  {rvof}":g4$=f4$:h4$=f4$:i4$=b4$:j4$=a4$:return
  551 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}  {rvof} {rvon}       {rvof}":d1$=c1$
  552 e1$=b1$:f1$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":g1$=f1$:h1$=f1$:i1$=b1$:j1$=a1$:return
  553 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}  {rvof} {rvon}       {rvof}":d2$=c2$
  554 e2$=b2$:f2$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":g2$=f2$:h2$=f2$:i2$=b2$:j2$=a2$:return
  555 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}  {rvof} {rvon}       {rvof}":d3$=c3$
  556 e3$=b3$:f3$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":g3$=f3$:h3$=f3$:i3$=b3$:j3$=a3$:return
  557 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}  {rvof} {rvon}       {rvof}":d4$=c4$
  558 e4$=b4$:f4$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":g4$=f4$:h4$=f4$:i4$=b4$:j4$=a4$:return
  561 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}     {rvon}   {rvof}":c1$="{rvon}      {rvof} {rvon}   {rvof}":d1$=c1$
  562 e1$=c1$:f1$="{rvon}     {rvof}   {rvon}  {rvof}":g1$=c1$:h1$=c1$:i1$=c1$:j1$=a1$:return
  563 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}     {rvon}   {rvof}":c2$="{rvon}      {rvof} {rvon}   {rvof}":d2$=c2$
  564 e2$=c2$:f2$="{rvon}     {rvof}   {rvon}  {rvof}":g2$=c2$:h2$=c2$:i2$=c2$:j2$=a2$:return
  565 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}     {rvon}   {rvof}":c3$="{rvon}      {rvof} {rvon}   {rvof}":d3$=c3$
  566 e3$=c3$:f3$="{rvon}     {rvof}   {rvon}  {rvof}":g3$=c3$:h3$=c3$:i3$=c3$:j3$=a3$:return
  567 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}     {rvon}   {rvof}":c4$="{rvon}      {rvof} {rvon}   {rvof}":d4$=c4$
  568 e4$=c4$:f4$="{rvon}     {rvof}   {rvon}  {rvof}":g4$=c4$:h4$=c4$:i4$=c4$:j4$=a4$:return
  571 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d1$=c1$
  572 e1$=b1$:f1$=c1$:g1$=c1$:h1$=c1$:i1$=b1$:j1$=a1$:return
  573 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d2$=c2$
  574 e2$=b2$:f2$=c2$:g2$=c2$:h2$=c2$:i2$=b2$:j2$=a2$:return
  575 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d3$=c3$
  576 e3$=b3$:f3$=c3$:g3$=c3$:h3$=c3$:i3$=b3$:j3$=a3$:return
  577 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d4$=c4$
  578 e4$=b4$:f4$=c4$:g4$=c4$:h4$=c4$:i4$=b4$:j4$=a4$:return
  581 a1$="{rvon}          {rvof}":b1$="{rvon}  {rvof}      {rvon}  {rvof}":c1$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d1$=c1$
  582 e1$=b1$:f1$="{rvon}       {rvof} {rvon}  {rvof}":g1$=f1$:h1$=f1$:i1$=b1$:j1$=a1$:return
  583 a2$="{rvon}          {rvof}":b2$="{rvon}  {rvof}      {rvon}  {rvof}":c2$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d2$=c2$
  584 e2$=b2$:f2$="{rvon}       {rvof} {rvon}  {rvof}":g2$=f2$:h2$=f2$:i2$=b2$:j2$=a2$:return
  585 a3$="{rvon}          {rvof}":b3$="{rvon}  {rvof}      {rvon}  {rvof}":c3$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d3$=c3$
  586 e3$=b3$:f3$="{rvon}       {rvof} {rvon}  {rvof}":g3$=f3$:h3$=f3$:i3$=b3$:j3$=a3$:return
  587 a4$="{rvon}          {rvof}":b4$="{rvon}  {rvof}      {rvon}  {rvof}":c4$="{rvon}  {rvof} {rvon}    {rvof} {rvon}  {rvof}":d4$=c4$
  588 e4$=b4$:f4$="{rvon}       {rvof} {rvon}  {rvof}":g4$=f4$:h4$=f4$:i4$=b4$:j4$=a4$:return
  600 print"{home}":poke224,5:poke226,5:print"{home}";a1$
  601 printb1$
  602 printc1$
  603 printd1$
  604 printe1$
  605 printf1$
  606 printg1$
  607 printh1$
  608 printi1$
  609 printj1$:fori=1to500:next:poke226,25
  610 print"{home}";a2$
  611 printb2$
  612 printc2$
  613 printd2$
  614 printe2$
  615 printf2$
  616 printg2$
  617 printh2$
  618 printi2$
  619 printj2$:fori=1to500:next:poke226,45
  620 print"{home}";a3$
  621 printb3$
  622 printc3$
  623 printd3$
  624 printe3$
  625 printf3$
  626 printg3$
  627 printh3$
  628 printi3$
  629 printj3$:fori=1to500:next:poke226,65
  630 print"{home}";a4$
  631 printb4$
  632 printc4$
  633 printd4$
  634 printe4$
  635 printf4$
  636 printg4$
  637 printh4$
  638 printi4$
  639 printj4$:fori=1to100:next:poke226,0
  640 gosub700:ifw=0goto644
  641 print"{home}":poke224,3 :gosub1500:print"{home}u heeft "w" vrije spelen gewonnen "
  642 fori=1to1500:next:print"{home}"
  643 t=t+w:poke224,0:gosub23:poke224,5:gosub9000:goto650
  644 ifv1=1orv2=1orv3=1orv4=1thengosub9000:goto650
  645 gosub1200:print"{home}                                                      "
  646 print"{home}"spc(40)"                                             "
  650 ift=0goto20
  651 fori=1to 500:next:poke224,5:gosub1900:goto32
  700 ifa(1)=7anda(2)=7anda(3)=7anda(4)=7thenw=40:return
  701 ifa(1)=1anda(2)=1anda(3)=1anda(4)=1thenw=20:return
  702 ifa(1)=2anda(2)=2anda(3)=2anda(4)=2thenw=20:return
  703 ifa(1)=3anda(2)=3anda(3)=3anda(4)=3thenw=20:return
  704 ifa(1)=4anda(2)=4anda(3)=4anda(4)=4thenw=20:return
  705 ifa(1)=5anda(2)=5anda(3)=5anda(4)=5thenw=20:return
  706 ifa(1)=6anda(2)=6anda(3)=6anda(4)=6thenw=20:return
  708 ifa(1)=8anda(2)=8anda(3)=8anda(4)=8thenw=20:return
  709 ifa(1)=9anda(2)=9anda(3)=9anda(4)=9thenw=20:return
  710 ifa(1)=7anda(2)=7anda(3)=7thenw=15:return
  711 ifa(1)=1anda(2)=1anda(3)=1thenw=10:return
  712 ifa(1)=2anda(2)=2anda(3)=2thenw=10:return
  713 ifa(1)=3anda(2)=3anda(3)=3thenw=10:return
  714 ifa(1)=4anda(2)=4anda(3)=4thenw=10:return
  715 ifa(1)=5anda(2)=5anda(3)=5thenw=10:return
  716 ifa(1)=6anda(2)=6anda(3)=6thenw=10:return
  718 ifa(1)=8anda(2)=8anda(3)=8thenw=10:return
  719 ifa(1)=9anda(2)=9anda(3)=9thenw=10:return
  720 ifa(4)=7anda(2)=7anda(3)=7thenw=15:return
  721 ifa(4)=1anda(2)=1anda(3)=1thenw=10:return
  722 ifa(4)=2anda(2)=2anda(3)=2thenw=10:return
  723 ifa(4)=3anda(2)=3anda(3)=3thenw=10:return
  724 ifa(4)=4anda(2)=4anda(3)=4thenw=10:return
  725 ifa(4)=5anda(2)=5anda(3)=5thenw=10:return
  726 ifa(4)=6anda(2)=6anda(3)=6thenw=10:return
  728 ifa(4)=8anda(2)=8anda(3)=8thenw=10:return
  729 ifa(4)=9anda(2)=9anda(3)=9thenw=10:return
  730 ifa(2)=7anda(3)=7thenw=6:return
  731 ifa(1)=7anda(2)=7thenw=4:return
  732 ifa(3)=7anda(4)=7thenw=4:return
  733 ifa(1)=7thenw=2:return
  734 ifa(4)=7thenw=2:return
  810 w=0:    return
 1200 print"{home}":poke224,3:input"{home}vasthouden - ja=1, nee=0";q1
 1210 ifq1=0thenreturn
 1220 gosub1290:input"{home}     {rvon} nr 1: {rvof}";v1
 1230 gosub1290:input"{home}                         {rvon} nr 2: {rvof}";v2
 1240 gosub1290:input"{home}                                             {rvon} nr 3: {rvof}";v3
 1245 gosub1290
 1250 print"{home}":poke226,65:input"{home}{rvon} nr 4: {rvof}";v4
 1260 poke226,0
 1290 print"{home}                                                    "
 1291 print"{home}"spc(40)"                                       ":return
 1300 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
 1310 print"{up}"spc(40)"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
 1320 print"   {rvon}     7-7-7-7=40   {rvof}B 1-1-1-1=20 B 5-5-5-5=20 B *-1-1-1-*=10 B"
 1330 print"{up}"spc(63)" *-5-5-5-*=10 "
 1335 print"                     B            B            B              B"
 1340 print"   {rvon}   *-7-7-7-*=15   {rvof}B 2-2-2-2=20 B 6-6-6-6=20 B *-2-2-2-*=10 B"
 1350 print"{up}"spc(63)" *-6-6-6-*=10 "
 1355 print"                     B            B            B              B"
 1360 print"   {rvon} 7-7-*-*-7-7= 4   {rvof}B 3-3-3-3=20 B 8-8-8-8=20 B *-3-3-3-*=10 B"
 1370 print"{up}"spc(63)" *-8-8-8-*=10 "
 1375 print"                     B            B            B              B"
 1380 print"   {rvon}   7-*-*-*-7= 2   {rvof}B 4-4-4-4=20 B 9-9-9-9=20 B *-4-4-4-*=10 B"
 1390 print"{up}"spc(63)" *-9-9-9-*=10"
 1450 print"{home}":poke225,15
 1499 return
 1500 b=0
 1505 ifw<5goto1525
 1510 ifw>5andw<=10thengoto1600
 1520 ifw>10thengoto1700
 1525 printchr$(7)
 1530 b=b+1
 1540 ifb<3goto1525
 1550 return
 1600 printchr$(7)
 1610 b=b+1
 1620 ifb<5goto1600
 1630 return
 1700 printchr$(7)
 1710 b=b+1
 1720 ifb<8goto1700
 1730 return
 1900 ifv1=0thengosub2000
 1910 ifv2=0thengosub2010
 1920 ifv3=0thengosub2020
 1930 ifv4=0thengosub2030
 1940 return
 2000 print"{home}":poke224,5:poke226,5:print"{home}";a1$
 2001 printa1$
 2002 printa1$
 2003 printa1$
 2004 printa1$
 2005 printa1$
 2006 printa1$
 2007 printa1$
 2008 printa1$
 2009 printa1$:poke226,0:return
 2010 poke226,25:poke224,5:print"{home}";a2$
 2011 printa2$
 2012 printa2$
 2013 printa2$
 2014 printa2$
 2015 printa2$
 2016 printa2$
 2017 printa2$
 2018 printa2$
 2019 printa2$:poke226,0:return
 2020 poke226,45:poke224,5:print"{home}";a3$
 2021 printa3$
 2022 printa3$
 2023 printa3$
 2024 printa3$
 2025 printa3$
 2026 printa3$
 2027 printa3$
 2028 printa3$
 2029 printa3$:poke226,0:return
 2030 poke226,65:poke224,5:print"{home}";a4$
 2031 printa4$
 2032 printa4$
 2033 printa4$
 2034 printa4$
 2035 printa4$
 2036 printa4$
 2037 printa4$
 2038 printa4$
 2039 printa4$:poke226,0:return
 9000 v1=0:v2=0:v3=0:v4=0:return
 10000 ifv1=1andv2=1andv3=1goto11000
 10010 ifv2=1andv3=1andv4=1goto11010
 10020 ifv1=1andv2=1andv4=1goto11020
 10030 ifv1=1andv3=1andv4=1goto11030
 10040 ifv1=1andv2=1goto11040
 10050 ifv1=1andv3=1goto11050
 10060 ifv1=1andv4=1goto11060
 10070 ifv2=1andv3=1goto11070
 10080 ifv2=1andv4=1goto11080
 10090 ifv3=1andv4=1goto11090
 10100 ifv1=1goto11100
 10110 ifv2=1goto11110
 10120 ifv3=1goto11120
 10130 ifv4=1goto11130
 10999 gosub51:gosub52:gosub53:gosub54:return
 11000 gosub54:return
 11010 gosub51:return
 11020 gosub53:return
 11030 gosub52:return
 11040 gosub53:gosub54:return
 11050 gosub52:gosub54:return
 11060 gosub52:gosub53:return
 11070 gosub51:gosub54:return
 11080 gosub51:gosub53:return
 11090 gosub51:gosub52:return
 11100 gosub52:gosub53:gosub54:return
 11110 gosub51:gosub53:gosub54:return
 11120 gosub51:gosub52:gosub54:return
 11130 gosub51:gosub52:gosub53:return
    1 rem "qubic"
    2 rem copyright 1978 by m.spencer,santa cruz,ca
    3 rem permission to copy for personal   use only is given to members of p.u.g.
    4 rem p.u.g. - pet users group
    5 rem
  100 print"{clr}":printtab(255)"{rvon}qubic{rvof}"
  300 clr:dima(64),b(76),c(152),d(16,2),e(152):zp=0:zz=rnd(-ti)
  330 v$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  350 er$="                                      ":p1$="pet moves to "
  370 forx=1to64:c(x)=x:nextx
  375 forx=65to152:readc(x):nextx
  380 forx=1to152:reade(x):nextx
  400 gosub2015
  600 rem*input
  610 print"{home}"+left$(v$,21)+er$+"{up}"
  620 input"your move   {CBM-@}{left}{left}{left}";i$
  621 if i$="{CBM-@}" thenprint"{up}{up}":goto 620
  623 f1=0:printer$
  625 i1$=left$(i$,1):i1=val(i1$)
  630 i2$=mid$(i$,2,1):i2=val(i2$)
  635 i3$=right$(i$,1):i3=val(i3$)
  640 iflen(i$)<>3ori1<1ori1>4ori2<1ori2>4ori3<1ori3>4thenf1=1
  643 print"{home}"+left$(v$,22)+er$+"{up}"
  645 iff1=1then printtab(10)"input error - retype":goto600
  650 m=16*i1+4*i2+i3-20
  655 ifa(m)>.9thenprinttab(10)"cube occupied - retype":goto600
  670 goto1400
  700 rem*win?
  710 forx=0to37:k=4*x:b(x)=a(c(k+1))+a(c(k+2))+ a(c(k+3))+a(c(k+4))
  715 b(38+x)=a(e(k+1))+a(e(k+2))+a(e(k+3))+a(e(k+4)):nextx
  720 j=0:forx=0to75:ifb(x)=4thenn=x:g=1:goto1800
  730 ifb(x)=15orb(x)=3then j=j+1:d(j,1)=x:d(j,2)=b(x)
  740 nextx
  760 ifj=0goto1000
  820 forx=1toj:ifd(x,2)=15then g=2:n=d(x,1):goto3000
  830 nextx
  840 n=d(1,1):goto3000
 1000 rem*move?
 1020 f=0:forx=0to75:ifb(x)=2orb(x)=10thenf=1:n=x:goto3100
 1030 nextx:iff>0goto1200
 1060 forx=0to75:ifb(x)=1orb(x)=5thenf=2:n=x:goto3100
 1070 nextx:iff>0goto1200
 1090 g=3:goto 1800
 1200 rem*
 1210 h=0:h1=0:forx=1to64:ifa(x)>.9goto1280
 1230 ifx=1orx=4orx=13orx=16orx=49orx=52orx=61orx=64then a(x)=a(x)+.05
 1250 ifa(x)>d(1,2)thenh=1:d(1,1)=x:d(1,2)=a(x):goto1280
 1260 ifa(x)=d(1,2)thenh=h+1:d(h,1)=x:d(h,2)=a(x)
 1270 ifh>15thenh=15
 1280 nextx:m=d(1,1):ifh>1thenr%=h*rnd(1)+1:m=d(r%,1)
 1400 rem*move
 1410 p=1:p$="  {rvon}x{rvof} ":ifzp=1thenp=5:p$="  {rvon}o{rvof} "
 1430 zp=1-zp:a(m)=p:gosub3200
 1440 m1$="{home}":m2$=left$(v$,m2)
 1450 ifm1>1then m1$=left$(v$,5*(m1-1))
 1520 print"{home}"+m1$+m2$tab(6*(m3-1)+m2+1)p$
 1540 if p=5then print"{home}"+left$(v$,22)+er$+"{up}":printtab(19)p1$+mp$
 1550 ifg>0goto1800
 1560 ifzp=1goto700
 1570 forx=1to64:a(x)=int(a(x)):nextx
 1580 forx=1to16:d(x,1)=0:d(x,2)=0:nextx
 1590 goto600
 1800 rem*end game
 1810 onggoto1820,1830,1840
 1820 gosub3300:print"{home}"+left$(v$,21)+"you win  "+w1$+w2$+w3$+w4$:end
 1830 gosub3300:print"{home}"+left$(v$,21)+"pet* wins  "+w1$+w2$+w3$+w4$:end
 1840 print"{home}"+left$(v$,21)+"neither of us can win":end
 2015 print"{clr}"
 2020 print" M 111 M 112 M 113 M 114 M
 2021 print"  M 121 M 122 M 123 M 124 M
 2022 print"   M 131 M 132 M 133 M 134 M"
 2023 print"    M 141 M 142 M 143 M 144 M"
 2024 print"     ========================"
 2025 print" M 211 M 212 M 213 M 214 M
 2026 print"  M 221 M 222 M 223 M 224 M
 2027 print"   M 231 M 232 M 233 M 234 M
 2028 print"    M 241 M 242 M 243 M 244 M"
 2029 print"     ========================"
 2030 print" M 311 M 312 M 313 M 314 M
 2031 print"  M 321 M 322 M 323 M 324 M
 2032 print"   M 331 M 332 M 333 M 334 M"
 2033 print"    M 341 M 342 M 343 M 344 M"
 2034 print"     ========================"
 2035 print" M 411 M 412 M 413 M 414 M
 2036 print"  M 421 M 422 M 423 M 424 M
 2037 print"   M 431 M 432 M 433 M 434 M
 2038 print"    M 441 M 442 M 443 M 444 M"
 2039 print"     ========================"
 2040 return
 3000 rem*which cube in path
 3010 fory=1to4:gosub3400:ifa(n1)<1 then m=n1
 3020 nexty:goto1400
 3100 rem* val. a(x)
 3120 fory=1to4:gosub3400:ifa(n1)<1then a(n1)=a(n1)+.1
 3140 nexty:onf goto1030,1070
 3200 rem*mp$
 3210 m1%=(m+15)/16:m1=m1%:m2%=(m+19-m1*16)/4:m2=m2%:m3=m+20-m1*16-m2*4
 3240 mp$=str$(m1)+str$(m2)+str$(m3):return
 3300 rem*path
 3310 fory=1to4:gosub3400:m=n1:gosub3200
 3330 w$(y)=mp$+",":next y
 3340 w1$=w$(1):w2$=w$(2):w3$=w$(3):w4$=w$(4):return
 3400 rem*c() or e()?
 3410 ifn>37then n1=e(4*(n-38)+y)
 3420 ifn<38then n1=c(4*n+y)
 3430 return
 3540 data 1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
 3550 data 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62
 3560 data 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63
 3570 data 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64
 3580 data 1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,61
 3590 data 2,6,10,14,18,22,26,30,34,38,42,46,50,54,58,62
 3600 data 3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,63
 3610 data 4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64
 3620 data 1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,64
 3630 data 13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52
 3640 data 1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64
 3650 data 49,37,25,13,50,38,26,14,51,39,27,15,52,40,28,16
 3660 data 1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,64
 3670 data 49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16
 3680 data 1,22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
   90 rem
  100 dimy(81),yz(80),yv(80),n(8),w(8)
  110 deffnh(i)=i*xx+xa:deffnv(i)=int(i*10000+.5)/10000
  120 deffnw(i)=int(i*10000000+.5)/10000000
  130 sq$="{down}mit {rvon}b{rvof} berechnete funktion"
  140 s1$="{home}{down}{down}{down}{down}{down}{down}":s3$="{rght}{rght}{rght}{rght}{rght}":l$="n"
  150 s$="{home}                                        {home}"
  160 fori=0to8:w(i)=1.01e-9:n(i)=1.01e-9:next
  200 print"{clr}"
 1000 rem
 1010 gosub10000
 1100 ongegosub1999,11000,14000,12000,13000,17000,22000
 1110 ifm=0org=67then1000
 1200 gosub16000
 1300 gosub15000
 1400 goto1000
 1999 print"{clr}"s1$:end
 10000 rem
 10010 print"{rvon}"s$"{rvof}"b$" "l$" {rvon}  b  e  v  ";
 10020 ifm=0thenprint"m";:goto10100
 10030 print"d  i  f  c  ";
 10100 getg$:ifg$=""then10100
 10310 g=asc(g$)
 10320 ge=0:ifm>0then10350
 10330 ifg=77andl=0thenl=1:l$="l":goto10999
 10340 ifg=77andl=1thenl=0:l$="n":goto10999
 10350 ifg=66thenge=2:b$="b"
 10355 ifg=69thenge=1
 10360 ifg=68thenge=4:b$="d"
 10370 ifg=73thenge=5:b$="i"
 10380 ifg=70andm>0thenge=7:b$="b"
 10390 ifg=86thenge=3
 10395 ifg=67thenge=6
 10400 ifm=0andge>3orge=0thenb$="":goto10100
 10410 goto10999
 10999 return
 11000 rem
 11010 m=m+1:c=0:print"{clr}"s1$
 11030 input"xa,xe";xa,xe
 11040 xx=(xe-xa)/79
 11050 ifxx<0thenprint"{down}{rvon}negatives intervall{rvof}{down}":goto11030
 11060 print"{clr}"s1$s3$"berechnung der werte":i=0
 11100 forx=xa-xxtoxe+xx+.1*xxstepxx
 11110 ifi>81then11130
 11115 ifl=1andi=0then11125
 11120 gosub30000:y(i)=y:ifl=1andi=1theny(0)=y(1)
 11125 i=i+1:next
 11130 rem
 11140 a1=80:a2=81:ax=80:ay=1e38:an=0:am=0:a9=0
 11200 fori=1to80:yz(i-1)=y(i)
 11210 iffnh(i-1)<=0thenam=1
 11220 ifax>fnh(i)thenax=fnh(i):a1=i
 11230 iffnh(a1)<0thenax=80
 11240 ify(i)<0thenan=1
 11250 ify(i)=0thena9=i:am=1:an=1
 11260 ifay>y(i)andy(i)>0thenay=y(i):a2=i
 11270 ify(a2)<0thenay=80
 11300 next
 11310 a2=a2-1:ifa9>0thena2=a9-1
 11320 a8=a2:a7=an
 11999 return
 12000 rem
 12010 print"{clr}"s1$"ich {rvon}differenziere{rvof} die":printsq$
 12090 yv(0)=fnw((y(2)-y(0))/(2*xx))
 12100 fori=1to80
 12140 yv(i)=(y(i+1)-y(i-1))/(2*xx)
 12150 ifabs(yv(i)-yv(i-1))<1e-7thenyv(i)=yv(i-1)
 12190 yz(i-1)=yv(i)
 12200 next:gosub21000
 12999 return
 13000 rem
 13010 print"{clr}"s1$"ich {rvon}integriere{rvof} die":printsq$:ys=0
 13100 fori=1to80
 13110 yi=(y(i-1)+4*y(i)+y(i+1))*xx/3
 13120 ys=ys+yi:yv(i)=ys
 13130 yz(i-1)=ys
 13140 next:gosub21000
 13999 return
 14000 rem
 14010 print"{clr}{rvon}zeile 30000-30009 :{rvof}"
 14020 list30000-30009
 15000 rem
 15010 print"{clr}":a4=int(yz(a2))
 15020 ifa4/2=int(a4/2)thenty=100:goto15040
 15030 ty=64
 15040 ifa1/2=int(a1/2)thentz=101:goto15060
 15050 tz=93
 15060 a3=24-int(a4/2)
 15200 forj=1to25
 15210 ifam=0ora1=80then15240
 15220 ta=j*40+int(a1/2)+32768:poketa,tz
 15240 tb=j*40+32768
 15250 ifa3=janda2<80andan>0thenfori=0to39:pokei+tb,ty:next
 15260 next
 15500 fori=0to79:poke1,i:poke2,yz(i):sys972:next
 15999 return
 16000 rem
 16010 yy=0:yn=0:yk=yz(0):yg=yz(0)
 16030 fori=0to79
 16040 ifyz(i)>ygthenyg=yz(i)
 16050 ifyz(i)<ykthenyk=yz(i)
 16060 next
 16100 yy=(yg-yk)/47:ifyy=0then16200
 16110 fori=0to79:yz(i)=(yz(i)-yk)/yy+.5:next:goto16999
 16200 fori=0to79:yz(i)=yz(i)-yk:next
 16999 return
 17000 rem
 17010 cx=0:cy=0:c=0:prints$
 17020 poke1,cx:poke2,cy:sys994:ifpeek(0)<>0thenpoke1,cx:poke2,cy:sys972
 17100 getc$:ifc$=""then17115
 17110 c=asc(c$)
 17115 ifc=67theng$="c":goto17900
 17120 ifc=46thengosub20000
 17125 ifc=48thengosub19000
 17130 ifc=45thenvs=0:gosub23000
 17134 ifc=61thenvs=3:gosub23000
 17135 ifc=43thenvs=6:gosub23000
 17137 ifc=19thenfori=0to2:n(i)=1.01e-9:w(i)=1.01e-9:next:vn=0
 17138 ifc=17thenfori=3to5:n(i)=1.01e-9:w(i)=1.01e-9:next:ve=0
 17139 ifc=29thenfori=6to8:n(i)=1.01e-9:w(i)=1.01e-9:next:vw=0
 17150 ifc=42thengosub18000
 17157 ifc=78andz=2thenvs=0:v=vn:v$="":gosub27000:vn=v+1
 17158 ifc=69andz=2thenvs=3:v=ve:v$="'":gosub27000:ve=v+1
 17159 ifc=87andz=2thenvs=6:v=vw:v$="''":gosub27000:vw=v+1
 17160 ifc>57orc<48thenc=c1
 17170 poke1,cx:poke2,cy:sys955
 17180 ifc=53thenforj=0to20:next
 17190 ifpeek(0)<>0thenpoke1,cx:poke2,cy:sys972
 17200 ifc=49thencx=cx-1:cy=cy-1
 17210 ifc=50thency=cy-1
 17220 ifc=51thencx=cx+1:cy=cy-1
 17230 ifc=54thencx=cx+1
 17240 ifc=57thencx=cx+1:cy=cy+1
 17250 ifc=56thency=cy+1
 17260 ifc=55thencx=cx-1:cy=cy+1
 17270 ifc=52thencx=cx-1
 17280 ifcx>79thencx=79
 17285 ifcy>47thency=47
 17290 ifcx<0thencx=0
 17295 ifcy<0thency=0
 17300 poke1,cx:poke2,cy:sys994:poke1,cx:poke2,cy:sys972:c1=c:goto17100
 17900 ifpeek(0)=0thenpoke1,cx:poke2,cy:sys955
 17999 return
 18000 rem
 18010 z1=0:ifz=2thenz=0
 18040 ifz=1thenw2=cx:z=2:c=53
 18050 ifz=0thenw1=cx:z=1
 18060 ifw1=w2thenprints$"{rvon}gleiches wertepaar{rvof}":z=0:goto18999
 18200 prints$"{rvon}w"z"{rvof}"fnh(cx)"/"y(cx+1)
 18999 return
 19000 rem
 19010 prints$"{rvon}"b$"{rvof}"l$"{CBM-+}";
 19020 cc=int(cy*79/47)
 19030 ifpeek(0)=0thenprint"x="fnh(cx):goto19070
 19040 print"{rvon}x={rvof}"fnh(cx);
 19050 ifb$<>"b"thenprint"{rvon}yv={rvof}"yv(cx+1):goto19070
 19060 print"{rvon}y={rvof}"y(cx+1)
 19070 c=53
 19999 return
 20000 rem
 20010 prints$;:gz=fnv(yg):kz=fnv(yk):az=fnv(xa):ez=fnv(xe)
 20060 print"{rvon}"b$"{rvof}"l$"{rvon}{CBM-+}xa{rvof}"az"{rvon}xe{rvof}"ez"{rvon}yk{rvof}"kz"{rvon}yg{rvof}"gz
 20070 return
 21000 rem
 21010 a2=81:ay=1e38:an=0:a9=0:fori=1to80
 21020 ifyv(i)<0thenan=1
 21030 ifyv(i)=0thena9=i
 21040 ifay>yv(i)andyv(i)>0thenay=yv(i):a2=i
 21050 next:a2=a2-1:ifa9>0thena2=a9-1
 21099 return
 22000 rem
 22010 print"{clr}"s1$"ich {rvon}zeichne{rvof} die":printsq$
 22020 fori=1to80:yz(i-1)=y(i):next:a2=a8:an=a7
 22999 return
 23000 rem
 23001 j=1
 23002 fori=vstovs+2
 23005 prints$"{rvon}{left}"j"{left}.{rvof}";
 23010 ifvs=0thenprint"{rvon}y=0 {rvof}";
 23012 ifvs=3thenprint"{rvon}y'=0 {rvof}";
 23014 ifvs=6thenprint"{rvon}y''=0 {rvof}";
 23030 ifn(i)=1.01e-9thenprint"leer":goto23070
 23040 print"bei x={rvon}"fnw(n(i))"{rvof}";:ifvs>0thenprint"{rvof}y={rvon}"fnw(w(i))"{rvof}"
 23050 ifj=3then23070
 23060 getw$:ifw$=""then23060
 23070 j=j+1:next
 23999 return
 24000 rem
 24010 xm=x1:h=.1*xx:ifh=0thenh=.1
 24020 gosub26000
 24030 y1=(yo-yu)/(2*h)
 24040 xm=x2
 24050 gosub26000
 24060 y2=(yo-yu)/(2*h)
 24070 return
 24100 xm=x3:gosub26000:y=(yo-yu)/(2*h)
 24999 return
 25000 rem
 25010 xm=x1:h=.1*xx:ifh=0thenh=.1
 25020 gosub26000
 25030 y1=(yu-2*ym+yo)/h^2
 25040 xm=x2
 25050 gosub26000
 25060 y2=(yu-2*ym+yo)/h^2
 25070 return
 25100 xm=x3:gosub26000:y=(yu-2*ym+yo)/h^2
 25999 return
 26000 rem
 26030 xu=xm-h:xo=xm+h
 26040 x=xm:gosub30000:ym=y:x=xu:gosub30000:yu=y:x=xo:gosub30000:yo=y
 26999 return
 27000 rem
 27005 y1=y(w1+1):y2=y(w2+1):x1=fnh(w1):x2=fnh(w2):xn=0:y=10:z1=1
 27007 os=395*xx+xe:us=-395*xx+xa
 27010 prints$
 27020 ifc=87thengosub25000
 27030 ifc=69thengosub24000
 27040 hw=y2-y1:ifhw=0thenhw=1e-30
 27050 x3=x1-((x2-x1)/hw*y1)
 27055 ifx3>osorx3<usthengoto27900
 27060 ifc=87thengosub25100
 27080 ifc=69thengosub24100
 27090 ifabs(y)>1e-8then27110
 27100 x=x3:gosub30000
 27105 prints$"{rvon}y"v$"=0 bei x= {rvof}"fnw(x3);:ifv$<>""thenprint"{rvon}y= {rvof}"fnw(y);
 27106 goto27970
 27110 xn=x3:x=x3:ifc=78thengosub30000
 27120 ify>0theny1=y:x1=x3:goto27140
 27130 y2=y:x2=x3
 27140 z1=z1+1:ifz1>15then27900
 27150 goto27040
 27900 prints$"{rvon}keine nullstelle bei y"v$"{rvof}";:v=v-1:goto27990
 27970 ifv>2thenprint"{rvon}!sp.{rvof}":goto27990
 27980 n(vs+v)=x3:w(vs+v)=y
 27990 c=53:z=0
 27999 return
 30000 y=sin(x)
 30010 ifl=1theny=log(y)
 30999 return
    0 rem                                                          pet-plot-lader
    1 data20,7b,6c,62,7e,61,7f,fc,7c,ff,e1,fe,e2,ec,fb,a0,a5,01,30,0c,c9,50
    2 data10,08,a5,02,30,04,c9,32,30,03,a9,00,60,a9,87,85,58,a9,80,85,57,a5
    3 data01,aa,f0,14,ca,f0,16,18,a5,57,69,01,85,57,a5,58,69,00,85,58,ca,4c
    4 data68,03,a9,01,4c,85,03,a9,02,85,59,a5,02,aa,f0,18,ca,f0,11,38,a5,57
    5 datae9,50,85,57,a5,58,e9,00,85,58,ca,4c,8a,03,06,59,06,59,a0,0f,ad,40
    6 datae8,29,20,d0,f9,a1,57,d9,3a,03,f0,04,88,10,f8,c8,a9,ff,60,20,4a,03
    7 dataf0,21,a5,59,49,ff,85,59,98,25,59,4c,d4,03,20,5d,03,f0,10,98,05,59
    8 dataa8,ad,40,e8,29,20,d0,f9,b9,3a,03,81,57,60,20,4a,03,f0,03,98,25,59
    9 data85,00,60
   10 restore:fora=826 to 1004
   11 read i$:f=asc(i$):if f>57then f=f-7
   12 i=(f-48)*16:f=asc(right$(i$,1)):iff>57thenf=f-7
   13 i=i+f-48:pokea,i:next
   90 rem                                                        vereinbarungsteil
  100 dimy(161),yz(160),yv(160),n(17),w(17)
  110 deffnh(i)=i*xx+xa:deffnv(i)=int(i*10000+.5)/10000
  120 deffnw(i)=int(i*10000000+.5)/10000000
  130 sq$="{down}mit {rvon}b{rvof} berechnete funktion"
  140 s1$="{home}{down}{down}{down}{down}{down}{down}":s3$="{rght}{rght}{rght}{rght}{rght}":l$="n"
  150 s$="{home}                                        {home}"
  160 fori=0to17:w(i)=1.01e-9:n(i)=1.01e-9:next
  200 print"{clr}"
 1000 rem                                                          hauptprogramm
 1010 gosub10000
 1100 ongegosub1999,11000,14000,12000,13000,17000,22000
 1110 ifm=0org=67then1000
 1200 gosub16000
 1300 gosub15000
 1400 goto1000
 1999 print"{clr}"s1$:end
 10000 rem                                               wahl der ausfuerungsart
 10010 print"{rvon}"s$"{rvof}"b$" "l$" {rvon}  b  e  v  ";
 10020 ifm=0thenprint"m";:goto10100
 10030 print"d  i  f  c  ";
 10100 getg$:ifg$=""then10100
 10310 g=asc(g$)
 10320 ge=0:ifm>0then10350
 10330 ifg=77andl=0thenl=1:l$="l":goto10999
 10340 ifg=77andl=1thenl=0:l$="n":goto10999
 10350 ifg=66thenge=2:b$="b"
 10355 ifg=69thenge=1
 10360 ifg=68thenge=4:b$="d"
 10370 ifg=73thenge=5:b$="i"
 10380 ifg=70andm>0thenge=7:b$="b"
 10390 ifg=86thenge=3
 10395 ifg=67thenge=6
 10400 ifm=0andge>3orge=0thenb$="":goto10100
 10410 goto10999
 10999 return
 11000 rem                                          berechnung der grundfunktion
 11010 m=m+1:c=0:print"{clr}"s1$
 11030 input"xa,xe";xa,xe
 11040 xx=(xe-xa)/159
 11050 ifxx<0thenprint"{down}{rvon}negatives intervall{rvof}{down}":goto11030
 11060 print"{clr}"s1$s3$"berechnung der werte":i=0
 11100 forx=xa-xxtoxe+xx+.1*xxstepxx
 11110 ifi>161then11130
 11115 ifl=1andi=0then11125
 11120 gosub30000:y(i)=y:ifl=1andi=1theny(0)=y(1)
 11125 i=i+1:next
 11130 rem                                                           achsenkreuz
 11140 a1=160:a2=161:ax=160:ay=1e38:an=0:am=0:a9=0
 11200 fori=1to160:yz(i-1)=y(i)
 11210 iffnh(i-1)<=0thenam=1
 11220 ifax>fnh(i)thenax=fnh(i):a1=i
 11230 iffnh(a1)<0thenax=160
 11240 ify(i)<0thenan=1
 11250 ify(i)=0thena9=i:am=1:an=1
 11260 ifay>y(i)andy(i)>0thenay=y(i):a2=i
 11270 ify(a2)<0thenay=160
 11300 next
 11310 a2=a2-1:ifa9>0thena2=a9-1
 11320 a8=a2:a7=an
 11999 return
 12000 rem                                           differenzieren der funktion
 12010 print"{clr}"s1$"ich {rvon}differenziere{rvof} die":printsq$
 12090 yv(0)=fnw((y(2)-y(0))/(2*xx))
 12100 fori=1to160
 12140 yv(i)=(y(i+1)-y(i-1))/(2*xx)
 12150 ifabs(yv(i)-yv(i-1))<1e-7thenyv(i)=yv(i-1)
 12190 yz(i-1)=yv(i)
 12200 next:gosub21000
 12999 return
 13000 rem                                              integrieren der funktion
 13010 print"{clr}"s1$"ich {rvon}integriere{rvof} die":printsq$:ys=0
 13100 fori=1to160
 13110 yi=((y(i-1)+4*y(i)+y(i+1))*xx/3)/2
 13120 ys=ys+yi:yv(i)=ys
 13130 yz(i-1)=ys
 13140 next:gosub21000
 13999 return
 14000 rem                                               veraendern der funktion
 14010 print"{clr}{rvon}zeile 30000-30009 :{rvof}"
 14020 list30000-30009
 15000 rem                           zeichnen der funktion und des achsenkreuzes
 15010 print"{clr}":a4=int(yz(a2))
 15020 ifa4/2=int(a4/2)thenty=100:goto15040
 15030 ty=64
 15040 ifa1/2=int(a1/2)thentz=101:goto15060
 15050 tz=93
 15060 a3=24-int(a4/2)
 15200 forj=1to25
 15210 ifam=0ora1=160then15240
 15220 ta=j*80+int(a1/2)+32768:poketa,tz
 15240 tb=j*80+32768
 15250 ifa3=janda2<160andan>0thenfori=0to79:pokei+tb,ty:next
 15260 next
 15500 fori=1to159:poke1,i:poke2,yz(i):sys972:next
 15999 return
 16000 rem                     normierung der y-werte auf die bildschrirmgroesse
 16010 yy=0:yn=0:yk=yz(0):yg=yz(0)
 16030 fori=0to159
 16040 ifyz(i)>ygthenyg=yz(i)
 16050 ifyz(i)<ykthenyk=yz(i)
 16060 next
 16100 yy=(yg-yk)/47:ifyy=0then16200
 16110 fori=0to159:yz(i)=(yz(i)-yk)/yy+.5:next:goto16999
 16200 fori=0to159:yz(i)=yz(i)-yk:next
 16999 return
 17000 rem                                     wahl der anwendungsmoeglichkeiten
 17010 cx=0:cy=0:c=0:prints$
 17020 poke1,cx:poke2,cy:sys994:ifpeek(0)<>0thenpoke1,cx:poke2,cy:sys972
 17100 getc$:ifc$=""then17115
 17110 c=asc(c$)
 17115 ifc=67theng$="c":goto17900
 17120 ifc=46thengosub20000
 17125 ifc=48thengosub19000
 17130 ifc=45thenvs=0:gosub23000
 17134 ifc=61thenvs=3:gosub23000
 17135 ifc=43thenvs=6:gosub23000
 17137 ifc=19thenfori=0to5:n(i)=1.01e-9:w(i)=1.01e-9:next:vn=0
 17138 ifc=17thenfori=6to11:n(i)=1.01e-9:w(i)=1.01e-9:next:ve=0
 17139 ifc=29thenfori=12to17:n(i)=1.01e-9:w(i)=1.01e-9:next:vw=0
 17150 ifc=42thengosub18000
 17157 ifc=78andz=2thenvs=0:v=vn:v$="":gosub27000:vn=v+1
 17158 ifc=69andz=2thenvs=6:v=ve:v$="'":gosub27000:ve=v+1
 17159 ifc=87andz=2thenvs=12:v=vw:v$="''":gosub27000:vw=v+1
 17160 ifc>57orc<48thenc=c1
 17170 poke1,cx:poke2,cy:sys955
 17180 ifc=53thenforj=0to20:next
 17190 ifpeek(0)<>0thenpoke1,cx:poke2,cy:sys972
 17200 ifc=49thencx=cx-1:cy=cy-1
 17210 ifc=50thency=cy-1
 17220 ifc=51thencx=cx+1:cy=cy-1
 17230 ifc=54thencx=cx+1
 17240 ifc=57thencx=cx+1:cy=cy+1
 17250 ifc=56thency=cy+1
 17260 ifc=55thencx=cx-1:cy=cy+1
 17270 ifc=52thencx=cx-1
 17280 ifcx>159thencx=159
 17285 ifcy>47thency=47
 17290 ifcx<0thencx=0
 17295 ifcy<0thency=0
 17300 poke1,cx:poke2,cy:sys994:poke1,cx:poke2,cy:sys972:c1=c:goto17100
 17900 ifpeek(0)=0thenpoke1,cx:poke2,cy:sys955
 17999 return
 18000 rem                                                eingabe der wertepaare
 18010 z1=0:ifz=2thenz=0
 18040 ifz=1thenw2=cx:z=2:c=53
 18050 ifz=0thenw1=cx:z=1
 18060 ifw1=w2thenprints$"{rvon}gleiches wertepaar{rvof}":z=0:goto18999
 18200 prints$"{rvon}w"z"{rvof}"fnh(cx)"/"y(cx+1)
 18999 return
 19000 rem                                                     eingabe der werte
 19010 prints$"{rvon}"b$"{rvof}"l$"{CBM-+}";
 19020 cc=int(cy*79/47)
 19030 rem ifpeek(0)=0thenprint"x="fnh(cx):goto19070
 19040 print"{rvon}x={rvof}"fnh(cx);
 19050 ifb$<>"b"thenprint"{rvon}yv={rvof}"yv(cx+1):goto19070
 19060 print"{rvon}y={rvof}"y(cx+1)
 19070 c=53
 19999 return
 20000 rem  angabe der intervallgrenzen und des kleinsten und groessten y-wertes
 20010 prints$;:gz=fnv(yg):kz=fnv(yk):az=fnv(xa):ez=fnv(xe)
 20060 print"{rvon}"b$"{rvof}"l$"{rvon}{CBM-+}xa{rvof}"az"{rvon}xe{rvof}"ez"{rvon}yk{rvof}"kz"{rvon}yg{rvof}"gz
 20070 return
 21000 rem      berechnung der lage des achsenkreuzes (y-achse) bei diff und int
 21010 a2=81:ay=1e38:an=0:a9=0:fori=1to160
 21020 ifyv(i)<0thenan=1
 21030 ifyv(i)=0thena9=i
 21040 ifay>yv(i)andyv(i)>0thenay=yv(i):a2=i
 21050 next:a2=a2-1:ifa9>0thena2=a9-1
 21099 return
 22000 rem                                            zeichnen der grundfunktion
 22010 print"{clr}"s1$"ich {rvon}zeichne{rvof} die":printsq$
 22020 fori=1to160:yz(i-1)=y(i):next:a2=a8:an=a7
 22999 return
 23000 rem                    angabe der nullstellen,extremwerte und wendepunkte
 23001 j=1
 23002 fori=vstovs+2
 23005 prints$"{rvon}{left}"j"{left}.{rvof}";
 23010 ifvs=0thenprint"{rvon}y=0 {rvof}";
 23012 ifvs=6thenprint"{rvon}y'=0 {rvof}";
 23014 ifvs=12thenprint"{rvon}y''=0 {rvof}";
 23030 ifn(i)=1.01e-9thenprint"leer":goto23070
 23040 print"bei x={rvon}"fnw(n(i))"{rvof}";:ifvs>0thenprint"{rvof}y={rvon}"fnw(w(i))"{rvof}"
 23050 ifj=3then23070
 23060 getw$:ifw$=""then23060
 23070 j=j+1:next
 23999 return
 24000 rem                                            berechnung der extremwerte
 24010 xm=x1:h=.1*xx:ifh=0thenh=.1
 24020 gosub26000
 24030 y1=(yo-yu)/(2*h)
 24040 xm=x2
 24050 gosub26000
 24060 y2=(yo-yu)/(2*h)
 24070 return
 24100 xm=x3:gosub26000:y=(yo-yu)/(2*h)
 24999 return
 25000 rem                                            berechnung der wendepunkte
 25010 xm=x1:h=.1*xx:ifh=0thenh=.1
 25020 gosub26000
 25030 y1=(yu-2*ym+yo)/h^2
 25040 xm=x2
 25050 gosub26000
 25060 y2=(yu-2*ym+yo)/h^2
 25070 return
 25100 xm=x3:gosub26000:y=(yu-2*ym+yo)/h^2
 25999 return
 26000 rem         berechnung der hilfsgroessen fuer wendepunkte und extremwerte
 26030 xu=xm-h:xo=xm+h
 26040 x=xm:gosub30000:ym=y:x=xu:gosub30000:yu=y:x=xo:gosub30000:yo=y
 26999 return
 27000 rem          methode zur eingrenzung der nullstellen (berechnung von y=0)
 27005 y1=y(w1+1):y2=y(w2+1):x1=fnh(w1):x2=fnh(w2):xn=0:y=10:z1=1
 27007 os=395*xx+xe:us=-395*xx+xa
 27010 prints$
 27020 ifc=87thengosub25000
 27030 ifc=69thengosub24000
 27040 hw=y2-y1:ifhw=0thenhw=1e-30
 27050 x3=x1-((x2-x1)/hw*y1)
 27055 ifx3>osorx3<usthengoto27900
 27060 ifc=87thengosub25100
 27080 ifc=69thengosub24100
 27090 ifabs(y)>1e-8then27110
 27100 x=x3:gosub30000
 27105 prints$"{rvon}y"v$"=0 bei x= {rvof}"fnw(x3);:ifv$<>""thenprint"{rvon}y= {rvof}"fnw(y);
 27106 goto27970
 27110 xn=x3:x=x3:ifc=78thengosub30000
 27120 ify>0theny1=y:x1=x3:goto27140
 27130 y2=y:x2=x3
 27140 z1=z1+1:ifz1>15then27900
 27150 goto27040
 27900 prints$"{rvon}keine nullstelle bei y"v$"{rvof}";:v=v-1:goto27990
 27970 ifv>2thenprint"{rvon}!sp.{rvof}":goto27990
 27980 n(vs+v)=x3:w(vs+v)=y
 27990 c=53:z=0
 27999 return
 30000 rem                                                              funktion
 30001 y=sin(x)
 30010 ifl=1theny=log(y)
 30999 return
    1 dimf(4)
    2 print"{clr}"
    3 printtab( 8)"french fur trader"
    4 print:input"your name";na$
    5 iflen(na$)<=13then14
    6 print:print"your name's too long. i'll call you"
    7 print"pierre."
    8 na$="pierre"
   14 print:input"do you want directions(y/n)";dn$
   15 ifdn$>="y"thengosub1089
   16 i%=int(201*rnd(1)+500)
  100 f=int(11*rnd(2)+15):ifi%<0then108
  101 print:printna$;",you have $";i%"in savings"
  102 print"and";10*f;"furs you trapped during the     winter.
  103 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}(press any key to continue.)"
  104 gosub3004
  107 goto261
  108 printna$;",you are in debt "
  109 print"for $";abs(i%);"!"
  110 print"but you have";10*f;"furs you trapped duringthe winter."
  111 goto103
  261 e1=int((.15*rnd(1)+.95)*10+.5)/10
  262 b1=int((.25*rnd(1)+1.00)*10+.5)/10
  300 print"{clr}":print
  301 print"your";10*f;"furs are distributed among the
  302 print"following kinds of pelts:"
  303 print"mink,beaver,ermine,and fox."
  310 gosub1430
  315 restore
  330 forj=1to4
  332 readb$
  333 print
  335 print"how many ";b$;" pelts do you have";
  338 inputf(j)
  340 f(0)=f(1)+f(2)+f(3)+f(4)
  342 iff(0)=10*f then1100
  344 iff(0)>10*f then500
  348 nextj
  349 iff<10*fthen400
  350 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}(press space bar to go on.)"
  400 print
  402 print"that only adds up to";f(0);"."
  403 print"you have";10*f;"furs!"
  404 goto503
  500 print
  501 print"you may not have";f(0);"furs!"
  502 print"do not try to cheat. i can add."
  503 print"press any key to start again."
  504 gosub3004
  506 goto300
  508 print
  511 print"do you want to trade furs next year?"
  512 inputb$
  513 ifb$>="y"then100
  514 ifi%<0then516
  515 print"you ended with $";i%;"altogether!":end
  516 printna$;",you ended up in "
  517 print"debtor's prison!"
  518 print"you owe $";abs(i%);"!!"
  519 stop
 1088 end
 1089 rem*sub*directions*********
 1090 print:print"{clr}the year is 1776."
 1091 print"you are the leader of a french fur      trading expedition leaving the"
 1092 print"lake ontario area to sell furs and get  supplies for the next year.
 1094 print"you have a choice of three forts at     which you may trade.
 1095 print"the cost of supplies and the amount you receive for your furs will"
 1097 print"depend on the fort that you choose."
 1099 return
 1100 gosub3000:print"do you want to trade at fort 1, fort 2, or fort 3?"
 1101 print:print"fort 1 is fort hochelaga (montreal) "
 1102 print"under the protection of the french army.":print
 1103 print"fort 2 is fort stadacona (quebec) under"
 1104 print"the protection of the french army."
 1105 print"however, you must make a portage and    cross the lachine rapids."
 1106 print
 1107 print"fort 3 is fort new york (new amsterdam) and is under dutch control."
 1108 print"you must cross through iroquois land."
 1109 print
 1110 print"type 1,2,or 3.";
 1111 inputb
 1112 ifb=1then1120
 1113 ifb=2then1135
 1114 ifb=3then1147
 1116 goto1110
 1120 print"{clr}":print"you have chosen the easiest route."
 1121 print"however, the fort is far from any"
 1122 print"seaport.  the value you receive for"
 1123 print"your furs will be low and the cost"
 1124 print"of supplies higher than at forts"
 1125 print"stadacona or new york."
 1126 gosub 1400
 1129 if b$>="y"  then 1110
 1130 goto1160
 1135 print"{clr}":print"you have chosen a hard route;  it is,"
 1136 print"in comparison, harder than the route"
 1137 print"to hochelaga but easier than the route"
 1138 print"to new york.  you will receive an"
 1139 print"average value for your furs and the "
 1140 print"cost of your supplies will be average."
 1141 gosub 1400
 1144 if b$>="y"  then 1110
 1145 goto 1198
 1147 print"{clr}":print"you have chosen the most difficult"
 1148 print"route.  at fort new york you will get"
 1149 print"the highest value for your furs."
 1150 print"the cost of your supplies will be lower"
 1151 print"than at all the other forts."
 1152 gosub 1400
 1155 if b$>="y"then 1110
 1156 goto 1250
 1160 let i%=i%-160
 1169 print
 1174 let m1=int((.2*rnd(1)+.70)*10+.5)/10
 1175 let e1=int((.2*rnd(1)+.65)*10+.5)/10
 1176 let b1=int((.2*rnd(1)+.75)*10+.5)/10
 1177 let d1=int((.2*rnd(1)+.80)*10+.5)/10
 1180 print"supplies at fort hochelaga cost $150.00"
 1181 print"your travel expenses to hochelaga were"
 1182 print"$10.00."
 1190 goto 1410
 1198 let i%=i%-140
 1201 print
 1205 let m1=int((.3*rnd(1)+.85)*10+.5)/10
 1206 let e11int((.15*rnd(1)+.80)*10+.5)/10
 1207 let b1=int((.2*rnd(1)+.90)*10+.5)/10
 1209 let p=int(10*rnd(1))+1
 1210 if p<=2 then 1216
 1212 if p<=6 then 1224
 1213 if p<=8 then 1226
 1215 if p<=10 then 1235
 1218 print"your beaver were too heavy to carry"
 1219 print"across the portage.  you had to leave"
 1220 print"the pelts but found them stolen when"
 1221 print"you returned."
 1222 gosub 1244
 1223 goto 1414
 1224 print"you arrived safely at fort stadacona."
 1225 goto 1239
 1226 gosub 1430
 1230 print"your canoe upset in the lachine rapids."
 1231 print"you lost all your furs!"
 1244 print"supplies at fort stadacona cost $125."
 1246 print"your travel expenses to stadacona were  $15."
 1248 return
 1250 let i%=i%-105
 1254 print
 1260 let m1=int((.15*rnd(1)+1.05)*10+.5)/10
 1263 let d1=int((.25*rnd(1)+1.10)*10+.5)/10
 1400 print"your beaver sold for $";b1*f(2)
 1412 print"your fox sold for $";f1*f(4)
 1416 print"your ermine sold for $";e1*f(3)
 1417 print"your mink sold for $";int(m1+.5)*f(1)
 1418 let i%=m1*f(1)+b1*f(2)+e1*f(3)+d1*f(4)+i%
 1420 print
 1422 print"you now have $";i%;"including your"
 1423 print"previous savings."
 1425 goto 508
 1430 forj=1to4
 1432 f(j)=0
 1434 nextj
 1436 return
 2000 datamink,beaver,ermine,fox
 2046 end
 3000 rem*sub*wait*****
 3002 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}(press any key to go on.)"
 3004 gettu$:iftu$=""then3004
 3005 print"{clr}"
 3006 return
 49344 let f(2)=0
 1218 print"your beaver were too heavy to carry"
 1219 print"across the portage.  you had to leave"
 1220 print"the pelts but found them stolen when"
 1221 print"you returned."
 1222 gosub 1244
 1223 goto 1414
 1224 print"you arrived safely at fort stadacona."
 1225 goto 1239
 1226 gosub 1430
 1230 print"your canoe upset in the lachine rapids."
 1231 print"you lost all your furs!"
 1232 gosub 1244
 1233 goto 1418
 1235 let f(4)=0
 1237 print"your fox pelts were not cured properly."
 54998 {CTRL-D}"no one will buy them!"
 1239 gosub 1244
 1240 goto 1410
 1244 print"supplies at fort stadacona cost $125."
 1246 print"your travel expenses to stadacona were  $15."
 1248 return
 1250 let i%=i%-105
 1254 print
 1260 let m1=int((.15*rnd(1)+1.05)*10+.5)/10
 1263 let d1=int((.25*rnd(1)+1.10)*10+.5)/10
 1270 let p=int(10*rnd(1))+1
 1271 if p<=2 then 1281
 1272 if p<=6 then 1291
 1273 if p<=8 then 1295
 1274 if p<=10 then 1306
 1281 gosub1430:print"you were attacked by a party of"
 1282 print"iroquois.  all people in your trading"
 1283 print"group were killed except you!"
 1285 goto1302
 1291 print"you were lucky.  you arrived safely"
 1292 print"at fort new york."
 1293 goto 1311
 1295 gosub 1430
 1300 print"you narrowly escaped an iroquois"
 1301 print"raiding party."
 1302 print"however, you had to leave all your "
 1303 print"furs behind."
 1304 gosub 1320
 1305 goto 1418
 1306 let b1=(b1/2)
 1307 let m1=(m1/2)
 1308 print"your mink and beaver were damaged on"
 1309 print"your trip.  you receive only half the"
 1310 print"current price for these furs."
 1311 gosub 1320
 1312 goto 1410
 1320 print"supplies at new york cost $80.00"
 1321 print"your travel expenses were $25.00"
 1322 return
 1400 print:print"do you want to trade at another fort?"
 1402 print"(answer yes or no)"
 1403 input b$
 1404 return
 1410 print
 1412 print"your beaver sold for $";int(b1+.5)*f(2)
 1414 print"your fox sold for $";int(d1)*f(4)
 1416 print"your ermine sold for $";e1*f(3)
 1417 print"your mink sold for $";int(m1+.5)*f(1)
 1418 let i%=m1*f(1)+b1*f(2)+e1*f(3)+d1*f(4)+i%
 1420 print
 1422 print"you now have $";i%;"including your"
 1423 print"previous savings."
 1425 goto 508
 1430 forj=1to4
 1432 f(j)=0
 1434 nextj
 1436 return
 2000 datamink,beaver,ermine,fox
 2046 end
 3000 rem*sub*wait*****
 3002 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}(press any key to go on.)"
 3004 gettu$:iftu$=""then3004
 3005 print"{clr}"
 3006 return
    0 clr:pg$="g-word":nm$="24":goto62000
    1 " james wildermuth
    2 " 7856 camino tranquilo
    3 " san diego, california 92122
    4 "
    5 " cursor #24 february 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 81 feb 3
  100 guesslimit=20:nw=0
  101 xq=rnd(-ti):dimg$(guesslimit)
  110 fori=1to39:bl$=bl$+" ":nexti:d7$="{down}{down}{down}{down}"
  115 readt$:ift$<>"*****"thennw=nw+1:goto115
  120 y=0:aa=1
  130 print"{clr}{down}{down}"d7$;spc(7);"abcdefghijklmnopqrstuvwxyz"
  140 xq=int(nw*(rnd(1)))+1:restore:forj=1toxq:readmi$:nextj
  150 sw$="":forn=1to5:sw$=sw$+chr$(asc(mid$(mi$,n,1))-1):nextn
  160 na$=sw$
  170 forn=1toguesslimit
  180 ifn=guesslimitthenprint"{home}{down}{down}{down}{down}this is your last guess!"
  190 print"{home}"tab(24);"guess #";n:print"{down}"bl$"{home}{down}{down}what is your guess? ";:
  200 gosub60000:print:ifin$="^"thenprint"{down}{down}":gosub640:goto190
  210 ifin$<>"?"andin$<>""thengosub520:onagoto250,190
  220 print"want to quit? ";:gosub60000
  230 ifleft$(in$,1)="y"then310
  240 gosub510:goto190
  250 ifin$=sw$thenprint"        you guessed it!!!{rvof}":gosub780:y=1:goto310
  260 rl=0:forj=1to5:lt$=mid$(in$,j,1):fork=1to5:iflt$=mid$(sw$,k,1)thenrl=rl+1
  270 nextk,j:r$=str$(rl):g$(n)=in$+"-"+r$:print"{home}{down}{down}";tab(25);"-"r$
  280 print"{home}{down}{down}{down}{down}"d7$:forj=1ton:printg$(j),:nextj:print"{home}{down}{down}{down}{down}{down}{down}"
  290 gosub640
  300 next n
  310 print"{clr}{down}{down}{down}{down}the word was: ";sw$
  330 ify=1thenprint"{down}you found the word in";n;"guesses":print
  340 print"{down}{down}want to play again? ";:gosub60000ady.
  350 ifleft$(in$,1)="n"then370
  360 goto120
  370 end
  380 dataxbufs,dszqu,befqu,bolmf,cjhpu,cmb[f,cphjf,divso,efcju,efdbz,gfjho
  390 datagmpdl,hbnvu,bowjm,ibtuf,ipstf,jnqmz,jodvt,kfslz,kpjou,lfudi,[fcsb
  400 datazbdiu,xsjtu,xpstf,wjsvt,wbqps,vtbhf,vmusb,uxfbl,usbdf,ubsez,txbui
  410 datatvqfs,tvbwf,sfqmz,spvtu,rvjmu,rvbdl,qvshf,rvjdl,pqujd,pdfbo,opsui
  420 dataojdif,nptfz,njufs,mpvtf,mjlfo,lovsm,gjhiu,qmfbu,qpjou,npofz,sfbez
  430 databyjpn,dbcjo,difbu,dibtf,nvtlz,mbtfs,dspxo,ijsfe,tdbnq,ubdlz,zfbso
  440 datayzmfn,xjudi,qipof,[pobm,xspoh,gpdvt
  470 data xerox
  490 data*****
  510 print"{home}{down}{down}":printbl$:printbl$"{home}{down}{down}":return
  520 a=1:l=len(in$):ifl=5goto550
  530 print"5 letters, please":gosub780:gosub510
  540 a=2:goto630
  550 forj=1to5:lt$=mid$(in$,j,1):fork=1to5:ifk<>jtheniflt$=mid$(in$,k,1)thena=2
  560 nextk,j:ifa=1then590
  570 print"no duplicate letters, please"
  580 gosub780:gosub510:goto630
  590 fork=1to5:ca=asc(mid$(in$,k,1)):ifca>64andca<91then610
  600 a=2
  610 nextk:ifa=1then630
  620 print"only letters, please":gosub780:gosub510
  630 return
  640 print" {up}":printtab(aa+6)"^{left}";
  650 getmi$:ifmi$=""then650
  660 ifmi$<"a"ormi$>"z"then690
  670 aa=asc(mi$)-64
  680 goto640
  690 ifmi$=" "ormi$=chr$(20)thenprint"{up} {left}{down}";
  700 ifmi$="4"ormi$="{left}"thenifaa>1thenaa=aa-1:goto640
  710 ifmi$="6"ormi$="{rght}"thenifaa<26thenaa=aa+1:goto640
  720 ifmi$=chr$(148)ormi$=chr$(146)thenprint"{up}"chr$(aa+64);"{left}{down}";
  730 ifmi$="{clr}"thenprint" {up}{up}":printtab(7)"abcdefghijklmnopqrstuvwxyz":goto640
  740 ifmi$=chr$(18)thenprint"{up}{rvon}"chr$(aa+64)"{rvof}{left}{down}";
  750 ifmi$<>chr$(146)then760
  760 ifmi$=chr$(13)thenprint" ":return
  770 goto650
  780 fortt=1to2000:next:return
  790 ln=440:print"{clr}"
  800 fort=1to5
  810 println;"data";:forn=1to11
  820 reada$:fory=1to5
  830 printchr$(asc(mid$(a$,y,1))-1);:next:print",";:nextn:print"{left} "
  840 ln=ln+10: print:nextt
  850 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1981   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by jim wildermuth
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}guess the secret word
 62080 print"{down}{down}press {rvon}return{rvof} to continue";
 62090 gett$:ift$=""then62090
 62100 goto60300
   10 rem ***** glueckspielautomat *****
   20 rem         goldene  7 & 8
   30 rem
   40 rem (c)  copyright  26. juni 1979
   50 rem      friedhelm kuech &
   60 rem      software-club 2001
   70 rem      5000 koeln 90
   90 rem
  100 print"{clr}           GOLDENE  7 & 8"
  110 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  120 poke59468,14
  130 print" Dieses Spiel simuliert einen Gluecks-  spielautomaten."
  140 print"Sinn des Spiels ist es, 3 gleiche"
  150 print"Betraege auf den 3 Walzen zu erzielen.{down}"
  160 print"Dazu kann die linke Walze{$a0}{rvon}gestartet{rvof},"
  170 print"die beiden anderen {rvon}gestoppt{rvof} werden."
  180 print"Dazu bitte irgendeine Taste ausser"
  190 print"'STOP' druecken! Ein Spiel kostet{$a0}.20 DM"
  200 print"Dreimal{$a0}'7' oder '8' ergibt"
  210 print"{down}            10 SUPERSPIELE"
  215 print"            {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  220 print"mit erhoehter Gewinnauszahlung: jedes"
  230 print"Symbol mit einem oder mehreren Sternen"
  240 print"auf der mittleren Walze ergibt einen"
  250 print"Gewinn von{$a0}{$a0}2,00 DM."
  260 print"{down}Sind Sie fertig? Dann druecken Sie      jetzt auf die{$a0}'SPACE'-Taste!
  270 geta$:ifa$<>" "then270
  999 poke59468,12:print"{clr}"
 1000 input"halt!! ohne geld spiele ich nicht mit.  ihr einsatz (min. .2 dm)";h
 1050 ifh<.2thenprint"{home}":goto1000
 1100 print"{clr}"
 1200 print"{home}"
 1300 w1$="{rght}{rght}{rght}{rght}":wc$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":t1$="{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":t2$="{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 1400 t3$="{SHIFT--}":wd$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":wh$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
 1500 tw$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":tx$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1600 ty$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":tz$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":x=0
 1700 wr$="{left}{left}{left}{left}{left}{left}{left}{left}{down}":wz$="{down}{down}":ww$="{rght}":wm$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":wf$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
 1800 we$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}":an$="{down}{down}":wb$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":wa$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1900 rem
 2000 rem ***** titelbild *****
 2100 rem
 2200 print"{home}{down}{down}{down}"tab(3)t1$;tab(27)t1$
 2300 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 2400 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 2500 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 2600 printtab(3)t3$tab(12)t3$"{CBM-B}"tab(15)t1$" {rvon}{CBM-B}{rvof}"tab(27)t3$tab(36)t3$
 2700 printtab(3)t3$tab(12)t3$"{CBM-B}{CBM-B}"tab(15)t3$tab(24)t3$"{rvon}{CBM-B}{CBM-B}{rvof}"tab(27)t3$tab(36)t3$
 2800 printtab(3)t3$tab(12)t3$" {CBM-B}"tab(15)t3$tab(24)t3$"{rvon}{CBM-B}{rvof}"tab(27)t3$tab(36)t3$
 2900 printtab(3)t3$;tab(12)t3$;tab(15)t3$;tab(24)t3$;tab(27)t3$;tab(36)t3$
 3000 printtab(3)t2$;tab(15)t3$;tab(24)t3$;tab(27)t2$
 3100 printtab(3)t1$;tab(15)t3$;tab(24)t3$;tab(27)t1$
 3200 printtab(3)t3$tab(12)t3$" {rvon}{CBM-B}{rvof}"tab(15)t3$tab(24)t3$"{CBM-B}"tab(27)t3$tab(36)t3$
 3300 printtab(3)t3$tab(12)t3$"{rvon}{CBM-B}{CBM-B}{rvof}"tab(15)t3$tab(24)t3$"{CBM-B}{CBM-B}"tab(27)t3$tab(36)t3$
 3400 printtab(3)t3$;tab(12)t3$"{rvon}{CBM-B}{rvof}"tab(15)t2$" {CBM-B}"tab(27)t3$;tab(36)t3$
 3500 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 3600 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 3700 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 3800 printtab(3)t3$;tab(12)t3$;tab(27)t3$;tab(36)t3$
 3900 printtab(3)t2$;tab(27)t2$
 4000 print"{down}{down}{down}"tab(13)"goldene  7 & 8{home}"
 4100 printan$
 4200 printw1$;:gosub19000
 4300 printwz$;:gosub19000
 4400 printwm$;wb$;:gosub19000
 4500 printwb$;wf$;:gosub19000
 4600 printwz$;:gosub19000
 4700 rem
 4800 rem ***** linke walze *****
 4900 rem
 5000 forn=1to4000:next
 5100 print"{home}";an$;an$;w1$;
 5200 a=rnd(1)*17.79
 5300 gosub9700
 5400 b1=a:b2=b1+8:ifb1>=7thenb2=15-b1
 5500 a=b2
 5600 printwz$;:gosub9700
 5700 b2=a
 5800 ifx<>0then6300
 5900 print"{down}{down}{rght}{rght}{rvon}start{rvof}{left}{left}{left}{left}{left}{left}{left}{up}{up}";
 6000 fori=1to400
 6100 geta$:ifa$<>""thenprint"{home}":x=1:goto4100
 6200 next
 6300 print"{down}{down}       {left}{left}{left}{left}{left}{left}{left}{up}{up}";
 6400 rem
 6500 rem ***** rechte walze *****
 6600 rem
 6700 printwd$;wc$;
 6800 forn=1to600:next
 6900 print"{up}{up}{rght}{rght}{rvon}stop{rvof}{left}{left}{left}{left}{left}{left}{down}{down}";
 7000 forn=1to300:geta$:a=rnd(1)*17.79
 7100 ifa$<>""then7300
 7200 next
 7300 print"{up}{up}      {left}{left}{left}{left}{left}{left}{down}{down}";
 7500 gosub9700
 7600 b4=a:b5=b4+8:ifb4>=7thenb5=15-b4
 7700 a=b5
 7800 printwz$;:gosub9700
 7900 b5=a
 8000 rem
 8100 rem ***** mittlere walze *****
 8200 rem
 8300 printwh$;wm$;:forn=1to600:next
 8400 print"{up}{up}{rght}{rght}{rvon}stop{rvof}{left}{left}{left}{left}{left}{left}{down}{down}";
 8500 forn=1to300:geta$:a=rnd(1)*19.49
 8600 ifa$<>""then8800
 8700 nextn
 8800 print"{up}{up}      {left}{left}{left}{left}{left}{left}{down}{down}";
 9000 gosub9700
 9100 b3=a
 9200 gosub19800:rem ** auswertung **
 9250 forn=0to2500:next
 9300 goto1200
 9400 rem
 9500 rem ***** auswertung rnd-zahlen **
 9600 rem
 9700 ifa<5thengosub15000:a=0:return
 9800 ifa<8thengosub14200:a=5:return
 9900 ifa<12thengosub15800:a=8:return
 10000 ifa<13thengosub16600:a=10:return
 10100 ifa<15thengosub18200:a=11:return
 10200 ifa<16.8thengosub17400:a=12:return
 10300 ifa<17.3thengosub11000:a=13:return
 10400 ifa<17.8thengosub11800:a=14:return
 10500 ifa<18.9thengosub12600:a=16:return
 10600 ifa<19.5thengosub13400:a=18:return
 10700 rem
 10800 rem  ******     bilder   *******
 10900 rem
 11000 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 11100 print"{CBM-+}{CBM-+}    {CBM-+}{CBM-+}";wr$;
 11200 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}";wr$;
 11300 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}";wr$;
 11400 print"{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 11500 print"{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 11600 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 11700 return
 11800 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 11900 print"{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}";wr$;
 12000 print"{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}";wr$;
 12100 print"{CBM-+}{CBM-+}{CBM-+}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}";wr$;
 12200 print"{CBM-+}{CBM-+} {CBM-+}{CBM-+} {CBM-+}{CBM-+}";wr$;
 12300 print"{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}";wr$;
 12400 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 12500 return
 12600 print"{rvon}        {rvof}";wr$;
 12700 print"{rvon}joker   {rvof}";wr$;
 12800 print"{rvon} joker  {rvof}";wr$;
 12900 print"{rvon}   joker{rvof}";wr$;
 13000 print"{rvon} joker  {rvof}";wr$;
 13100 print"{rvon}joker   {rvof}";wr$;
 13200 print"{rvon}        {rvof}";wr$;
 13300 return
 13400 print"{rvof}   {rvon}{SHIFT-POUND} {rvof}   ";wr$;
 13500 print" {rvon}{SHIFT-POUND} {rvof} {rvon} {rvof} {rvon} {CBM-*}{rvof}";wr$;
 13600 print" {rvon}       {rvof}";wr$;
 13700 print" {rvon} apple {rvof}";wr$;
 13800 print" {CBM-*}{rvon}     {rvof}{SHIFT-POUND}";wr$;
 13900 print"  {CBM-*}{rvon}   {rvof}{SHIFT-POUND} ";wr$;
 14000 print"        ";wr$;
 14100 return
 14200 print"{rvon}        {rvof}";wr$;
 14300 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 14400 print"{rvon}        {rvof}";wr$;
 14500 print"{rvon}  0,60  {rvof}";wr$;
 14600 print"{rvon} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvof}";wr$;
 14700 print"{rvon}        {rvof}";wr$;
 14800 print"{rvon}        {rvof}";wr$;
 14900 return
 15000 print"{rvon}        {rvof}";wr$;
 15100 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 15200 print"{rvon}        {rvof}";wr$;
 15300 print"{rvon}  0,40  {rvof}";wr$;
 15400 print"{rvon} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvof}";wr$;
 15500 print"{rvon}   **   {rvof}";wr$;
 15600 print"{rvon}        {rvof}";wr$;
 15700 return
 15800 print"{rvon}        {rvof}";wr$;
 15900 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 16000 print"{rvon}        {rvof}";wr$;
 16100 print"{rvon}  0,80  {rvof}";wr$;
 16200 print"{rvon} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvof}";wr$;
 16300 print"{rvon}        {rvof}";wr$;
 16400 print"{rvon}        {rvof}";wr$;
 16500 return
 16600 print"{rvon}        {rvof}";wr$;
 16700 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 16800 print"{rvon}        {rvof}";wr$;
 16900 print"{rvon}  1,40  {rvof}";wr$;
 17000 print"{rvon} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvof}";wr$;
 17100 print"{rvon} ****** {rvof}";wr$;
 17200 print"{rvon}        {rvof}";wr$;
 17300 return
 17400 print"{rvon}        {rvof}";wr$;
 17500 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 17600 print"{rvon} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {rvof}";wr$;
 17700 print"{rvon} {SHIFT--}2,00{SHIFT--} {rvof}";wr$;
 17800 print"{rvon} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {rvof}";wr$;
 17900 print"{rvon}********{rvof}";wr$;
 18000 print"{rvon}        {rvof}";wr$;
 18100 return
 18200 print"{rvon}        {rvof}";wr$;
 18300 print"{rvon} {SHIFT-*}{SHIFT-*}dm{SHIFT-*}{SHIFT-*} {rvof}";wr$;
 18400 print"{rvon}        {rvof}";wr$;
 18500 print"{rvon}  1,80  {rvof}";wr$;
 18600 print"{rvon} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvof}";wr$;
 18700 print"{rvon}********{rvof}";wr$;
 18800 print"{rvon}        {rvof}";wr$;
 18900 return
 19000 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19100 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19200 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19300 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19400 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19500 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19600 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";wr$;
 19700 return
 19800 rem
 19900 rem ***  a u s w e r t u n g ***
 20000 rem
 20100 if(b1=b3orb2=b3)and(b4=b3orb5=b3)theng=b3:goto20900
 20200 ifb3=18thenprint"freispiel":goto22100
 20300 ifb3=16then20500
 20400 g=0:goto21600
 20500 rem *** gewinn-berechnung ***
 20600 if(b1=b4orb1=b5)theng=b1
 20700 if(b2=b4orb2=b5)theng=b2
 20800 ifb1>b2theng=b1
 20900 ifg=0theng=40
 21000 ifg=5theng=60
 21100 ifg=8theng=80
 21200 ifg=10theng=140
 21300 ifg=11theng=180
 21400 ifg=12theng=200
 21500 if(g=13org=14)thens=s+12:gosub35000:gosub22200
 21600 ifs>0thengosub22200
 21610 ifg>0thengosub30000:rem  ton
 21700 print"{home}                                       "
 21800 h=(g-20)/100+h:h=int(10*h+.1)/10
 21900 ifh<=0thengosub36000:goto1000
 22000 print"{home}   kredit:";:ifh=int(h)thenprinth"{left}.00 dm    ";:goto22020
 22010 printh"{left}0 dm    ";
 22020 ifs>0thenprint"{rvon}"s" superspiele{rvof}"
 22100 return
 22200 rem     superspiele
 22300 s=s-1
 22400 if(b3=0orb3=10orb3=11orb3=12orb3=16)theng=200
 22500 fori=0to5
 22600 poke59409,52:forn=0to80:nextn
 22700 poke59409,60:forn=0to80:nextn
 22800 next
 22900 return
 30000 rem  tonteil
 30010 poke59467,16:poke59466,10:rem cb2  ausgang vorbereiten
 30020 poke59464,80:forn=1to800:next
 30030 poke59464,150:forn=1to800:next
 30040 poke59467,0:poke59466,0:rem cb2     ausgang schliessen
 30050 return
 35000 rem ton fuer superserie
 35010 poke59467,16:poke59466,10
 35020 fori=255to0step-1:poke59464,i:next
 35030 fori=255to0step-1:poke59464,i:next
 35040 poke59467,0:poke59466,0:rem cb2     ausgang schliessen
 35050 return
 36000 rem  ton fuer kredit=0
 36010 poke59467,16:poke59466,10
 36020 poke59464,255:forn=1to2000:next
 36040 poke59467,0:poke59466,0:rem cb2     ausgang schliessen
 36050 return
   10 rem spiel 999
   20 z$(1)=" {rvon}{SHIFT-POUND} {rvof} {down}{left}{left}{left}{left}  {rvon} {rvof} {down}{left}{left}{left}{left}  {rvon} {rvof} {down}{left}{left}{left}{left}  {rvon} {rvof} {down}{left}{left}{left}{left}  {rvon} {rvof} "
   30 z$(0)="{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
   40 z$(2)="{rvon}{SHIFT-POUND}  {CBM-*}{rvof}{down}{left}{left}{left}{left}   {rvon} {rvof}{down}{left}{left}{left}{left}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon} {rvof}   {down}{left}{left}{left}{left}{rvon}    {rvof}"
   50 z$(3)="{rvon}{SHIFT-POUND}  {CBM-*}{rvof}{down}{left}{left}{left}{left}   {rvon} {rvof}{down}{left}{left}{left}{left} {rvon}  {rvof} {down}{left}{left}{left}{left}   {rvon} {rvof}{down}{left}{left}{left}{left}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
   60 z$(4)="{rvon} {rvof} {rvon} {rvof} {down}{left}{left}{left}{left}{rvon} {rvof} {rvon} {rvof} {down}{left}{left}{left}{left}{rvon}    {down}{left}{left}{left}{left}{rvof}  {rvon} {rvof} {down}{left}{left}{left}{left}  {rvon} {rvof} "
   61 k$(10)="das ist aber ein ausserst mieses ergeb- nis"
   62 k$(9)="du musst noch viel ueben!!"
   63 k$(8)="na, vielleicht klappt es beim naechsten mal besser!"
   64 k$(7)="hast du dich wirklich richtig ange-     strengt ?"
   65 k$(6)="man kann hier auch bessere punktzahlen  erreichen!"
   66 k$(5)="weltmeister bist du damit nicht geworden"
   67 k$(4)="gar nicht mal schlecht!!"
   68 k$(3)="das ist ja schon fast gut!"
   69 k$(2)="prima gemacht (glueck gehabt!)"
   70 z$(5)="{rvon}    {down}{left}{left}{left}{left} {rvof}   {down}{left}{left}{left}{left}{rvon}   {CBM-*}{down}{left}{left}{left}{left}{rvof}   {rvon} {rvof}{down}{left}{left}{left}{left}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
   71 k$(1)="glueckwunsch! ausgesprochen gut."
   72 k$(0)="damit bist du wirklich weltmeister!! ichgratuliere!!"
   80 z$(6)="{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {rvof}   {down}{left}{left}{left}{left}{rvon}   {CBM-*}{down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
   90 z$(7)="{rvon}    {down}{left}{left}{left}{left}{rvof}  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {down}{left}{left}{left}{left} {rvon} {rvof}  {down}{left}{left}{left}{left} {rvon} {rvof}  "
  100 z$(8)="{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left}{rvof} {rvon}  {rvof} {down}{left}{left}{left}{left}{rvon} {rvof}  {rvon} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
  101 w$(1)="     {down}{down}{left}{left}{left}Q{rght}{rght}{down}{down}{left}{left}{left}{left}{left}     "
  102 w$(2)="Q    {down}{down}{left}{left}{left} {rght}{rght}{down}{down}{left}{left}{left}{left}{left}    Q"
  103 w$(3)="Q    {down}{down}{left}{left}{left}Q{rght}{rght}{down}{down}{left}{left}{left}{left}{left}    Q"
  104 w$(4)="Q   Q{down}{down}{left}{left}{left} {rght}{rght}{down}{down}{left}{left}{left}{left}{left}Q   Q"
  105 w$(5)="Q   Q{down}{down}{left}{left}{left}Q{rght}{rght}{down}{down}{left}{left}{left}{left}{left}Q   Q"
  106 w$(6)="Q Q Q{down}{down}{left}{left}{left} {rght}{rght}{down}{down}{left}{left}{left}{left}{left}Q Q Q"
  110 z$(9)="{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {rvof}  {rvon} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}   {down}{left}{left}{left}{left}{rvof}   {rvon} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
  115 z$(10)="    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    "
  120 print"{clr}{down}{down}"
  130 print" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  140 print"{CBM-M}M      M"
  150 print"{CBM-M} M      M"
  160 print"{CBM-M}  O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  170 print"{CBM-M}  {CBM-G}     {CBM-M}"
  180 print"{CBM-M}  {CBM-G}     {CBM-M}"
  190 print"{CBM-M}  {CBM-G}     {CBM-M}"
  200 print"{CBM-M}  {CBM-G}     {CBM-M}"
  210 print" M {CBM-G}     {CBM-M}"
  220 print"  ML{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  230 su=0:forz=0to7:w=1+int(rnd(1)*6)
  240 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}";w$(w);:print"{rght}{rght}{rght}{rght}";
  250 fori=2to4:s$=mid$(str$(su),i,1):ifs$=""thens=10:goto260
  255 s=val(s$)
  260 print"{rght}{up}{up}{up}{up}{rght}";z$(s);:nexti
  270 print"{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}";z;"{left}. wurf {rvof}"
  280 geta:ifa<1ora>3then280
  290 su=su+int(w*(10^(3-a))+.1):ifsu>999then300
  292 nextz
  294 goto320
  300 print"{down}{down}{rvon}du machtest einen fehler!!"
  310 print"{rvon}es sind nun bereits";su;"{left} punkte!!":goto450
  320 print"du hast";su;"punkte!"
  330 fk=4:sp=0:fori=2to4:sp=sp+fk*(9-val(mid$(str$(su),i,1))):fk=fk/2:nexti
  340 print"{rvon}{down}{down}das macht";sp;"{left} strafpunkte{rvof}"
  350 ifsp>30then450
  360 k=int(sp/2.8):printk$(k)
  450 print"{down}noch ein spiel?? (j/n)"
  460 geta$:ifa$=""then460
  470 ifa$="n"thenend
  480 ifa$="j"then120
  490 goto460
:{stop}{CBM-I}{$00}{CBM-X}{$78}{$80}I{grn}P{$0a}{SHIFT-POUND} {left}{$78}{$80}{SHIFT-POUND}{grn}{left}p{$80}{CBM-X}{$78}{orng}I{grn}P{$0a}{SHIFT-POUND} {left}{$78}{orng}{SHIFT-POUND}{grn}{left}p{orng}{CBM-X}{$78}{$82}I{grn}P
{SHIFT-POUND} {left}{$78}{$82}{SHIFT-POUND}{grn}{left}p{$82}{swuc}h{$e8}{$e8}PG{CBM-I}({SHIFT-POUND} {left}{$77}{$80}JP{$fa}{SHIFT-POUND}{$00}{$ea}{$ea}{$ea}{SHIFT-POUND}{$00}{sret}c{$e8}{CBM-Z}X{down}I
P{$0a}  {down}l{lblu}{stop}{$00}{$00}{$00}{$00}{CBM-I}{$00}{CBM-X}{$78}{$80}IbP{$0a}{SHIFT-POUND} {left}{$78}{$80}{SHIFT-POUND}b{left}{$a0}{$80}{CBM-X}{$78}{orng}IbP{$0a}{SHIFT-POUND} {left}{$78}{orng}{SHIFT-POUND}b{left}{$a0}{orng}{CBM-X}{$78}{$82}IbP
{SHIFT-POUND} {left}{$78}{$82}{SHIFT-POUND}b{left}{$a0}{$82}{swuc}h{$e8}JPG{CBM-I}({SHIFT-POUND} {left}{$77}{$83}JP{$fa}{SHIFT-POUND}{$00}{sret}h{$e8} {$a0}{del} {$00}{CTRL-K} {$f8}{ensh}l{$00}{CTRL-V}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f7}{$e7}~{$00}~{$00}{$00}{CTRL-K}{CTRL-D}{$0a}{$00}{yel}2048{$00}{$00}{$00}${$00}{lgrn}"{clr}"{$00}({CTRL-D}{grn}{$00}{f6}B(4568){CBM-R}13{CBM-M}100{$00}a{CTRL-D}{blu}{$00}x{CBM-R}6467{CBM-N}{CBM-J}({CBM-F}(ti){CBM-D}13){CBM-D}3{$00}w{CTRL-D} {$00}r{CBM-R}B(x){CBM-N}B(x{CBM-N}1){CBM-D}256{$00}{$70}{CTRL-D}#{$00}{f6}B(r{CBM-N}41){CBM-R}90{CBM-M}{gry1}r{CBM-N}81,66{$00}{$83}{CTRL-D}%{$00}{f6}B(6409){CBM-R}1{CBM-M}200{$00}{f6}{CTRL-D}({$00}{f2}30{$00}{brn}{CTRL-D}{$64}{$00}{yel}4944{$00}{CBM-M}{CTRL-D}{$6e}{$00}{lgrn}"{home}you won!!"{$00}F{CTRL-D}{$78}{$00}{lgrn}"press space to go again"{$00}Y{CTRL-D}{$82}{$00}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}130{$00}{$e7}{CTRL-D}{f8}{$00}{f6}a${CBM-R}" "{CBM-M}{f4}{$00}{$ed}{CTRL-D}{lred}{$00}{$80}{$00}{$f7}{CTRL-D}H{$00}{yel}4944{$00}{$0a}{wht}R{$00}{lgrn}"{home}you lost!!"{$00}{home}{wht}{CBM--}{$00}{f2}120{$00}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N} {$00}{del}{CBM-G}{gry1}I{CTRL-D}P{$fa} p{home}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}'{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}Q{$0a}i{swlc}{sret}Q{$0a}{$ee}P{ensh}{$ee}P{ensh}{$ee}P{ensh}{CBM-Z}P{ensh}I*0{CTRL-B}{SHIFT-POUND}{stop}{sret}P{ensh}{CBM-S}P{$0a}{$f0}{CTRL-A}{$60}{CBM-G}{lgrn}I{CTRL-F}{$f0}{CTRL-A}{$60}{CBM-Z}P{ensh}{sret}P{$0a}{$60}c{CTRL-Y}{CBM-X}d{CTRL-Y}I{$83}P{CTRL-L}{CBM-X}{SHIFT--}{CTRL-P}{left}c{CTRL-Y}{CBM-X}{$de}{CTRL-P}{left}d{CTRL-Y}{CBM-X}d{CTRL-Y}{f1}{CTRL-B}{CBM-X}c{CTRL-Y}{CTRL-X}{$69}q{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{$a0}{$00}{SHIFT-POUND}b{up}{CTRL-A}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{stop}'{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-S}P{$0a}{CBM-X}{CTRL-U}{CTRL-Y}P{CTRL-A}{$60}{CBM-X}c{CTRL-Y}{$6d}Q{$0a}{blk}{stop}{$fe}d{CTRL-Y}{left}c{CTRL-Y}{CBM-X}d{CTRL-Y}I{$83}0{down}{CBM-X}{SHIFT--}{CTRL-P}{left}c{CTRL-Y}{CBM-X}{$de}{CTRL-P}{left}d{CTRL-Y}{SHIFT-POUND}{$00}{sret}P{$0a}{CBM-X}d{CTRL-Y}{f1}{CTRL-B}{CBM-X}c{CTRL-Y}{CTRL-X}{$69}q{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{SHIFT-POUND}b{$a0}{$00}{up}{CTRL-A}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}P{$0a}{$f0}{CTRL-A}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$0a}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}*{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ee}p{CTRL-L}{$ee}p{CTRL-L}{$ee}p{CTRL-L}{CBM-Z}{$83}{rvon}E{lgrn}0{CTRL-A}{$60}l{$fa}{CTRL-K}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}b{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}'{CBM-X}{home}{CTRL-Y}{f1}{CTRL-A}{CBM-X}{del}{CTRL-Y}{f1}{CTRL-B}{CBM-C}{CTRL-U}{CTRL-Y}P{stop}lD{CTRL-P}{SHIFT-POUND} {$a0}{$00}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A}{$a0}){up}{CTRL-A}{CBM-X}c{CTRL-Y}{f1}{CTRL-A}{CBM-X}d{CTRL-Y}{f1}{CTRL-B}{CBM-C}e{CTRL-Y}P{stop}lD{CTRL-P}{f7}{$f0}!{f7}{$f0}{CTRL-O}{SHIFT-POUND}_{$a0}{$00}{up}{CTRL-A}{$a0}{CTRL-B}{SHIFT-POUND}{$69}{up}{CTRL-A}l{$66}{CTRL-P}{SHIFT-POUND}{$7f}{$a0}{$00}{up}{CTRL-A}{$a0}{CTRL-B}{SHIFT-POUND}~{up}{CTRL-A}l{$66}{CTRL-P}{SHIFT-POUND}m{$a0}{$00}{up}{CTRL-A}{$a0}{CTRL-B}{SHIFT-POUND}n{up}{CTRL-A}{SHIFT-POUND}{$68}{$a0}{CTRL-A}{up}{CTRL-A}{SHIFT-POUND}z{$a0}){up}{CTRL-A}{CBM-X}c{CTRL-Y}{left}{home}{CTRL-Y}{CBM-X}d{CTRL-Y}{left}{del}{CTRL-Y}{$a0}p{CBM-E}{CTRL-A}I{grn}{$f0}{home}{$a0}q{CBM-E}{CTRL-A}I{grn}{$f0}{CTRL-K}{$a0}r{CBM-E}{CTRL-A}I{grn}{$f0}{stop}lD{CTRL-P}{SHIFT-POUND} {$a0}{$00}{up}{CTRL-A}{$a0}{CTRL-A}{up}{CTRL-A}{$a0}{CTRL-B}{up}{CTRL-A}{$a0}){up}{CTRL-A}{$a0}p{up}{CTRL-A}{$a0}q{up}{CTRL-A}{$a0}r{up}{CTRL-A} {$00}{rvon}{SHIFT-POUND}{$00}{left}{CTRL-U}{CTRL-Y}{SHIFT-POUND}{$80}{sret}c{$e8}JJJ{$f0}{stop}l{CTRL-B}{CTRL-P}l.{$e6}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}S{$80}{stop}{$e1}{$80}{stop}({orng}{CTRL-A},{orng}{CTRL-A}e{orng}{CTRL-B}_{orng}{CTRL-B}{lblu}{orng}{CTRL-A}{CBM-I}{orng}{stop}{CBM-N}{orng}{CTRL-A}{$ef}{orng}{CTRL-B}{$f5}{orng}{CTRL-B}{$6a}{$82}{CTRL-A}Z{$80}{CTRL-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}$$$$$$$$$$$$$$$${CBM-I}3{CBM-X}{CBM-*}{CTRL-P}{left}{CTRL-U}{CTRL-Y}{left}e{CTRL-Y}JP{$f4}{SHIFT-POUND}{$00}{sret}X{down}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}$$$$$$$$x{$00}{sret}j{$60}{$00}{$00}r{$00}{blk}{CTRL-A}({$00}{$00}a{$80}{CTRL-A}~{blu}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{f1}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}&{$80}{CBM-Z}{f1}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}%{$80}{CBM-Z}{$84}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}${$80}{CBM-Z}{$84}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}#{$80}{CBM-Z}{$83}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}"{$80}{CBM-Z}{$83}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}!{$80}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-X}{CTRL-U}{CTRL-Y}{$f8}{CTRL-X}{$6d}{$82}{rvon}{sret}{$82}{rvon}{blk}{down}{SHIFT-POUND}{CTRL-A}{CTRL-X}{$6d}{orng}{rvon}{sret}{orng}{rvon}{blk}{CTRL-F}{$6d}{$80}{rvon}{sret}{$80}{rvon}X{$ee}X{down}{CBM-Z}{$82}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}{swlc}{$80}{CBM-Z}{$82}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}
{$80}{CBM-Z}{orng}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}{CTRL-L}{$80}{CBM-Z}{orng}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}{CTRL-K}{$80}{CBM-Z}{$80}{rvon}){CTRL-O}{CTRL-X}{$69}0{sret}{$0a}{$80}{CBM-Z}{$80}{rvon}){$f0}jjjj{CTRL-X}{$69}0{sret}{ensh}{$80}l{f5}{rvon}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-N}8{CBM-Z}{$80}{rvon}M{$83}{rvon}{blk}{CTRL-V}P{CTRL-W}{CBM-Z}{orng}{rvon}M{$84}{rvon}{blk}{CTRL-L}P
{CBM-Z}{$82}{rvon}M{f1}{rvon}{blk}{CTRL-B}P{stop}l{$70}{down}{CBM-Z}{$80}{rvon}{sret}{$83}{rvon}{CBM-Z}{orng}{rvon}{sret}{$84}{rvon}{CBM-Z}{$82}{rvon}{sret}{f1}{rvon}l{$70}{down}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}b{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}h{$e8}{$78}{SHIFT-POUND}{stop}{f1}{up}{SHIFT-POUND}:{f1}{blk}x{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}  {down}{SHIFT-POUND}{$00}{sret}X{down}{sret}{ensh}{CTRL-Y}{SHIFT-POUND}{home}{sret}{stop}{$80}{SHIFT-POUND}{stop}{sret}{CTRL-D}{$80}{SHIFT-POUND}{CTRL-O}{sret}{wht}{$80}{SHIFT-POUND}{rvon}{sret}{CTRL-F}{$80}{SHIFT-POUND}{wht}{sret}{CTRL-G}{$80}{SHIFT-POUND}{stop}{sret}{$f8}{CTRL-W}l{$80}{home}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$78}{SHIFT-POUND}.{f1}{blk}{SHIFT-POUND}{$e6}{f1}{up}x{SHIFT-POUND}{$fe}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}k{$e8}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{dish}{sret}{CTRL-V}{$80}{SHIFT-POUND}{ensh}{sret}{CTRL-W}{$80}{SHIFT-POUND}{CTRL-G}{sret}{CTRL-X}{$80}{SHIFT-POUND}{dish}{sret}{CTRL-Y}{$80}{SHIFT-POUND}{home}{sret}{esc}{$80}{SHIFT-POUND}{stop}{sret}{red}{$80}{SHIFT-POUND}{CTRL-O}{sret}{rght}{$80}{SHIFT-POUND}{rvon}{sret}{grn}{$80}{SHIFT-POUND}{wht}{sret}{blu}{$80}{SHIFT-POUND}0{sret}{swlc}{$80}{sret}
{$80}{sret}{CTRL-L}{$80}{sret}{CTRL-K}{$80}{sret}{$0a}{$80}{sret}{ensh}{$80}l{$70}{down}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N} ){$e2} {$00}{home}{CBM-I}{$00}{swuc}h{$e8} {$e0}{CTRL-W}{$e8}P{$f7}{swuc}h{$e8} {$e0}{CTRL-W}JP{$f7}{SHIFT-POUND}{$00}{sret}@{del}{sret}{$80}{rvon}{sret}{orng}{rvon}{sret}{$82}{rvon}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{stop}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$ee}@{del}{$ee}@{del}{$ee}@{del}{CBM-S}@{del}{CBM-X}{CTRL-U}{CTRL-Y}{$f0}{CTRL-W}{CBM-X}{del}{CTRL-Y}{f1}{CTRL-B}{CBM-X}{home}{CTRL-Y}{CTRL-X}{$69}q{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{SHIFT-POUND}b{$a0}{$00}{up}{CTRL-A}{CBM-Z}@{del}I)0{wht}{SHIFT-POUND}{$00}{sret}@{del}{$60}{$69}q{blk}{CTRL-B}{$e6}{CTRL-B}{$a0}{$00}{SHIFT-POUND}b{up}{CTRL-A}{$60}{CBM-A}S{$60}{CBM-A}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$f8}{del}{CTRL-X}{$69}p{sret}{$f8}{del}P{wht}{$ea}lp{del}{CBM-N}{CBM-Z}{$80}{rvon}P{CTRL-A}{$60}lp{del}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{blk}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}{$00}{CTRL-Y}{swuc}{CTRL-A}{CTRL-Y}{f8}{CTRL-B}{CTRL-Y}{CBM-S}{CTRL-D}{CTRL-Y}{CBM-Z}{gry2}{$00}{$6a}{blk}{$6d}{CBM-Z}{wht}{CTRL-Y}P{$0a}{SHIFT-POUND}{grn}{left}j{$83}{SHIFT-POUND}{CTRL-A}{sret}{wht}{CTRL-Y}*{CBM-Z}{gry1}{$00}{$ea}{$ea}I)P{wht}{$e0}${$f0}{CTRL-A}{$e8}I*P{wht}{$e0}{$00}{$f0}{CTRL-A}Jl{$00}{CTRL-W}{SHIFT-POUND} {left}{$71}{$83}{SHIFT-POUND}]{left}{$72}{$83}{SHIFT-POUND} {left}{$73}{$83}{left}{gry2}{$83}{SHIFT-POUND}{$6c}{left}{lgrn}{$83}{SHIFT-POUND}{$e8}{left}{lblu}{$83}{SHIFT-POUND}{$7b}{left}{gry3}{$83}{SHIFT-POUND} {left}{pur}{$83}{left}{SHIFT-*}{$83}{SHIFT-POUND}{$e2}{left}A{$83}{SHIFT-POUND} {left}B{$83}{SHIFT-POUND}{$e2}{left}C{$83}{SHIFT-POUND} {left}D{$83}{swuc}{CTRL-D}{CTRL-Y}l{blk}{CTRL-V}{SHIFT-POUND}{$00}{sret}{wht}{CTRL-Y}l!{CTRL-V}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$e9}{$80}I P{wht}{SHIFT-POUND}.{sret}{$e9}{$80}{CBM-Z}{$e9}{orng}I P{wht}{SHIFT-POUND}.{sret}{$e9}{orng}{CBM-Z}{$e9}{$82}I P{wht}{SHIFT-POUND}.{sret}{$e9}{$82}{CBM-Z}{$f9}{$82}I P{wht}{SHIFT-POUND}.{sret}{$f9}{$82}{CBM-Z}{wht}{orng}I P{wht}{SHIFT-POUND}.{sret}{wht}{orng}{CBM-Z}{f4}{$82}I P{wht}{SHIFT-POUND}.{sret}{f4}{$82}{CBM-Z}X{orng}I P{wht}{SHIFT-POUND}.{sret}X{orng}{CBM-Z}K{$80}I P{wht}{SHIFT-POUND}.{sret}K{$80}l{$00}{CTRL-P}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-X}i{$83}IbP{stop}l@{CTRL-W}{CBM-X}j{$83}IbP{stop}l@{CTRL-W}{CBM-X}k{$83}IbP{stop}l@{CTRL-W}{CBM-X}h{$83}IbP{stop}l@{CTRL-W}{CBM-X}l{$83}IbP{stop}l@{CTRL-W}l<{CTRL-V}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{$00}{sret}c{$e8}{SHIFT-POUND}{$80}{sret}c{$e8}{SHIFT-POUND}{CTRL-A}{sret}{ensh}{CTRL-Y}{SHIFT-POUND}{$00}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}m{left}{$71}{$83}{SHIFT-POUND}]{left}{$72}{$83}{SHIFT-POUND}n{left}{$73}{$83}{$ea}{$ea}{$ea}{SHIFT-POUND}@{left}{lgrn}{$83}{SHIFT-POUND}*{left}{lblu}{$83}{SHIFT-POUND}@{left}{gry3}{$83}{SHIFT-POUND} {left}{pur}{$83}{left}{SHIFT-*}{$83}{SHIFT-POUND}n{left}A{$83}{SHIFT-POUND}]{left}B{$83}{SHIFT-POUND}m{left}C{$83}{SHIFT-POUND} {left}D{$83}{CBM-I}~{$a0}~{f7}P{$fd}JP{$fa}{CBM-I}{CBM-*}{left}{dish}{$83}JP{$fa}N{$f8}{CTRL-W}{$f0}{stop}l.{$e6} p{home}{CBM-G}{gry1}I{CTRL-F}P{$fa} {$00}{CTRL-X}{CBM-I}{$00}{swuc}h{$e8} {$e0}{CTRL-W}{$e8}P{$f7}{swuc}h{$e8} {$e0}{CTRL-W}JP{$f7} ){$e2} {$00}{home}l.{$e6}{CBM-N}{CBM-N}{CBM-N}{$a0}0{f7}P{$fd}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{stop}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}{$80}{rvon}{sret}{orng}{rvon}{sret}{$82}{rvon}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}b{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}'{stop}{$00}{CBM-N}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-L}{$82}{stop}{$e1}{$80}{stop}({orng}{CTRL-A},{orng}{CTRL-A}e{orng}{CTRL-B}_{orng}{CTRL-B}{lblu}{orng}{CTRL-A}{CBM-I}{orng}{stop}{CBM-N}{orng}{CTRL-A}{$ef}{orng}{CTRL-B}{$f5}{orng}{CTRL-B}{$6a}{$82}{CTRL-A}Z{$80}{CTRL-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-L}{$82}{stop}{$e1}{$80}{stop}({orng}{CTRL-A},{orng}{CTRL-A}e{orng}{CTRL-B}_{orng}{CTRL-B}{lblu}{orng}{CTRL-A}{CBM-I}{orng}{stop}{CBM-N}{orng}{CTRL-A}{$ef}{orng}{CTRL-B}{$f5}{orng}{CTRL-B}{$6a}{$82}{CTRL-A}Z{$80}{CTRL-B}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}$$${CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}%{CBM-N}{CBM-Z}{$84}{CBM-N}){CTRL-O}{CBM-N}{$69}0{CBM-N}${$80}{CBM-N}{$84}{rvon}{CBM-N}{$f0}jj{CBM-N}j{CTRL-X}{CBM-N}0{sret}{CBM-N}{$80}{CBM-Z}{CBM-N}{rvon}){CBM-N}{CTRL-X}{$69}{CBM-N}{sret}"{CBM-N}{CBM-Z}{$83}{CBM-N}){$f0}{CBM-N}jj{CBM-N}{CTRL-X}{$69}0{sret}!{$80}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}t{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{home}{down}{down}{$7a}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-D}{$00} super galaxian  l                                                                                                                                                                          1{CTRL-W}P){CBM-Z}{CTRL-V}{CTRL-B}P{ensh}{CBM-Z}{CTRL-X}{CTRL-B}{sret}h{$e8}lO{stop}I{CTRL-B}P{ensh}{CBM-Z}{CTRL-Y}{CTRL-B}{sret}h{$e8}lO{stop}I{CTRL-A}P%{SHIFT-POUND}{$00}{sret}{CTRL-V}{CTRL-B}{SHIFT-POUND}{CTRL-A}{sret}j{$e8}{CBM-D}1{CTRL-W}{CBM-O}{blu}{CTRL-W}{sret}h{$e8}H{SHIFT-*}{down}{blk}{CTRL-G}{SHIFT-POUND}3{sret}j{$e8}{$a0}{$00}{f8}1{CTRL-W}lO{stop}I{stop}Pi{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND}{$78}{sret}{CTRL-Z}{CTRL-B}{SHIFT-POUND}{CTRL-F}{sret}2{CTRL-W}{SHIFT-POUND}{$00}{sret}{CTRL-V}{CTRL-B}{CBM-Z}{CTRL-Z}{CTRL-B}{CTRL-X}{$6d}2{CTRL-W}{sret}{CTRL-Z}{CTRL-B}I{CBM--}{blk}{home}{CBM-Z}2{CTRL-W}I{CTRL-F}P{CTRL-Z}{SHIFT-POUND}{$fc}{sret}2{CTRL-W}{SHIFT-POUND}{$eb}{sret}{CTRL-Z}{CTRL-B}P{swlc}Ip{CBM-A}{$0a}{SHIFT-POUND}{$00}{sret}2{CTRL-W}{SHIFT-POUND}3{sret}j{$e8}{CBM-Z}{CTRL-Z}{CTRL-B}{sret}h{$e8}l{SHIFT--}{CTRL-W}{SHIFT-POUND}{wht}{sret}j{$e8}{SHIFT-POUND}4{sret}{$7c}{CTRL-D}{SHIFT-POUND}{CTRL-W}{sret}{$7d}{CTRL-D}{SHIFT-POUND}{$00}{sret}0{CTRL-W}{sret}{CTRL-X}{CTRL-B}{SHIFT-POUND}p{sret}1{CTRL-W}{SHIFT-POUND}{$fc}{sret}2{CTRL-W}{SHIFT-POUND}{CTRL-D}{sret}3{CTRL-W}{$60}0{$f7}{$e7}{stop}{CTRL-D}{$00}{$80}{$00}
{CTRL-D}{$0a}{$00}{yel}(1039){$00}{$00}{$00}{CBM-Z}{$fc}~{f1}{inst}{CBM-Z}{$fd}~{f1}{brn}{CBM-Z}{$8f}{CTRL-B}Il{$f0}{stop}{$6c}{$fc}~{CBM-I}~{lblu}X{$78}{SHIFT-POUND}{orng}{sret}L{CTRL-Y}{SHIFT-POUND}{CTRL-U}{sret}M{CTRL-Y}x {CBM-C}{CTRL-Y} {$7a}{wht} {$6d}{CTRL-X}{CBM-I}o{CBM-X}{$f8}{CTRL-D}{left}{$00}{$80}J{CTRL-P}{$f7}{SHIFT-POUND}{$00}{sret}{$e1}{stop}{sret}{CBM-*}{stop}{sret}O{stop}{sret}P{stop}{sret}Q{stop}{sret}R{stop}{sret}{SHIFT--}{stop}{sret}{$de}{stop}{sret}*{stop}{sret}G{stop}{SHIFT-POUND}{CTRL-A}{sret}K{stop}{SHIFT-POUND}~{sret}J{stop}{SHIFT-POUND}{stop}{sret}{$e0}{stop}{sret}H{stop}{sret}I{stop} {$e9}{wht}{SHIFT-POUND}{$00}{sret}k{$e8}{CBM-I}'{CBM-X}{$f8}{CTRL-D}{left}{$00}{$80}J{CTRL-P}{$f7}{CBM-I}{CBM-N}{CBM-X}{$83}{CTRL-B}{left}{$6e}{CTRL-V}JP{$f7}{CBM-I}p{CBM-X}{$00}{CTRL-Z}{left}{$00}{$80}{$e8}P{$f7}{CBM-X}{$00}{esc}{left}{$00}{orng}{CBM-X}{$00}{red}{left}{$00}{$82}{CBM-X}{$00}{rght}{left}{$00}{$83}{$e8}P{$eb} {$e4}~I1P{CTRL-G}{SHIFT-POUND}{$00}{sret}T{stop}{$f0}{ensh}I2P{$ee}{SHIFT-POUND}{CTRL-A}{sret}T{stop}{$78} {$6d}{CTRL-X} {$e9}{wht}{SHIFT-POUND}k{sret}L{CTRL-Y}{SHIFT-POUND}{CTRL-Y}{sret}M{CTRL-Y}x{SHIFT-POUND}{swlc}{sret}l{$e8}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{ensh}{sret}j{$e8} n{wht}l{$f5}{CTRL-D}       1 {CTRL-U}{CTRL-P}   {dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht}   2 {CTRL-U}{CTRL-P}                  00       5000       00          {$6d}{CTRL-X}l{$65}{wht}{CBM-I}{CTRL-K}{CBM-X} {wht}{left}({$80}J{CTRL-P}{$f7}{CBM-I}{CTRL-K}{CBM-X}9{wht}{left}a{$80}J{CTRL-P}{$f7}{$60} {$7a}{wht}{CBM-I}~{lblu}X{SHIFT-POUND}{orng}{sret}L{CTRL-Y}{SHIFT-POUND}{CTRL-U}{sret}M{CTRL-Y}xlg{CTRL-D}{SHIFT-POUND}~{sret}c{$e8}{SHIFT-POUND}{$00}{f1}{CTRL-A}{SHIFT-POUND}{grn}{f1}{CTRL-B}{CBM-I}{$00} {$de}{wht}{CBM-G}{CTRL-A}{CTRL-X}{$69}{dish}{f1}{CTRL-A}{blk}{CTRL-B}{$e6}{CTRL-B}{$e8}{$e0}@P{$ed}{$60}hjjjj{ensh}{SHIFT-*}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{$68}){CTRL-O}{ensh}{$80}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}jj{ensh}@{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}{$0a}{$0a}{$0a}){CTRL-X}{sret}o{$e8}{gry2}
o{$e8}{ensh} {sret}o{$e8}{SHIFT-POUND}{$00}{sret}o{$e8}{$60}{$a0}{CTRL-G}{CBM-E}{CTRL-A} {left}{wht}{f7}{CTRL-P}{$f8}{$60}{SHIFT-POUND}{$00}{$a0}5{lgrn}{$84}{CTRL-B}{f7}{CTRL-P}{$fa}{$a0}{CTRL-G}{SHIFT-POUND}~{CBM-V}{CTRL-B}{CTRL-F}{left}{$84}{CTRL-B}{f7}{CTRL-P}{$f7}0{CTRL-X}{$00}{CTRL-A}{dish}{ensh}{$0a}{home}34{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{CTRL-B}{CBM-I}{ensh}{CBM-X}{$0a}{CTRL-F}{left}{SHIFT-@}{CTRL-B}{left}D{CTRL-B}{left}N{CTRL-B}{left}X{CTRL-B}{left}{$e2}{CTRL-B}J{CTRL-P}{$eb}{CBM-I}{stop}{CBM-X}
{CTRL-F}{left}{$ec}{CTRL-B}J{CTRL-P}{$f7}{$a0}{ensh}{CBM-Z}{del}{CTRL-F}{lgrn}{$f0}{CTRL-B}{CBM-Z}{CTRL-U}{CTRL-F}{lgrn}{$fa}{CTRL-B}{CBM-Z}{CTRL-V}{CTRL-F}{lgrn}{CTRL-D}{stop}{CBM-Z}{CTRL-W}{CTRL-F}{lgrn}{swlc}{stop}{CBM-Z}{CTRL-X}{CTRL-F}{lgrn}{CTRL-X}{stop}{f7}{CTRL-P}{CBM-*}{$a0}{stop}{CBM-Z}{CTRL-Y}{CTRL-F}{lgrn}"{stop}{f7}{CTRL-P}{$fa}{CBM-S}*{stop}{$f0}d{CBM-C}{CBM-A}{CTRL-F}{SHIFT-POUND}{$00}{lgrn}{$84}{CTRL-B}JP{$f5}{$f0}7{$00}{$00}{wht}{wht}{wht}{wht}{wht}{wht}{$00}{$00}{$00}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{$00}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{stop}{CTRL-U} 034{SHIFT-POUND}{grn}{sret}{$7a}{CTRL-B}{sret}{$7c}{CTRL-B}{SHIFT-POUND}H{sret}{$82}{CTRL-B}{CBM-I}{CTRL-A}{swuc}{$80}{CTRL-B}J{swuc}&{stop}{swuc},{stop}{swuc}-{stop}{swuc}W{stop}{swuc}{$7d}{CTRL-B}{SHIFT-POUND}{$83}{f1}Q{f1}{$fe}{SHIFT-POUND}{$00}{sret}Z{stop}{sret}S{stop}{sret}){stop}{sret}'{stop}{sret}2{stop}{sret}A{stop}{sret}E{stop}{CBM-S}G{stop}{$fe}J{stop}{CBM-C}J{stop}{SHIFT-*}{CTRL-P}{blk}{CTRL-B}{$a0}{CTRL-O}{CBM-O}J{CTRL-G}{sret}U{stop}{CBM-O}{$63}{CTRL-G}{sret}({stop}{CBM-I}{home}{gry2}jj{CBM-POUND}{CBM-I}{home}{CBM-O}C{CTRL-G}{sret}"{CTRL-G}{CBM-O}G{CTRL-G}{sret}#{CTRL-G}{CBM-X}{$73}{CTRL-G}{lgrn}[{swlc}J{CTRL-P}{$f7}{CBM-Z}{$7c}{CTRL-B}j{CTRL-X}{$69}l{f1}P8{$e9}({f1}{$fd}{SHIFT-POUND}{$fa}{sret}0{stop}{sret}F{stop}{SHIFT-POUND}{$00}{sret}1{stop}{CBM-Z}*{stop}{CTRL-X}{$69}.{sret}+{stop}{SHIFT-POUND}{$00}{sret}*{stop}{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}z{dish}{up}PJ{CTRL-P}{$f5}l{$fa}{home}{$00}{CTRL-B}{stop}{CTRL-D}{CTRL-D}{wht}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-G}{CTRL-G}{dish}{ensh}{ensh}{$0a}(({grn}{CTRL-Z}{CTRL-X}{CTRL-Z}{red}(2{CTRL-X}{CTRL-X}{CTRL-X}{down}{CTRL-G}#({del}&H(({CTRL-W}"{CTRL-X}{down}$&{CTRL-Z}{CTRL-Y}  {CTRL-X}{CTRL-O}{CTRL-G}{del}({CTRL-Z}{rvon}{$64}{del}{esc}{CTRL-X}{CTRL-U}{CTRL-V}{CTRL-G}{CTRL-X}{del}{red}{del}{ensh}{del}*{rvon}{dish}{$0a}#{rvon}{home}f{dish}{CTRL-Y}{CTRL-X}{CTRL-Z}{CTRL-Z}{down}{down}{CTRL-O}{rvon}{CTRL-F}{ensh}{grn}{del}{dish}{dish}{CTRL-G}{rvon}{dish}{ensh}<{rvon}{$73}{f5}{gry3}{CBM-P}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-D}{wht}{CTRL-F}{CTRL-F}{CTRL-G}{CTRL-G}{dish}{dish}{dish}{ensh}{ensh}{ensh}{$0a}{$0a}{$0a}N{$7a}{CTRL-B}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{stop}{sret}{$7a}{CTRL-B}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}M{rvon}{$e8}P{$f8}{sret}{$7b}{CTRL-B},{$7b}{CTRL-B}{CTRL-P}{CTRL-D}p{swlc}{$70}{del}{CBM-Z}{$7c}{CTRL-B}I8{$f0}
{$ee}{$7c}{CTRL-B}P{dish}{CBM-Z}{$7c}{CTRL-B}{$f0}{stop}N{$7c}{CTRL-B}{CBM-I}{stop}{SHIFT-POUND}{$61}{CBM-C}{$62}{dish}QP{blk}{stop}l{$79}{CTRL-W}J{$e0}{CTRL-A}P{$f1}{CBM-I}{stop}{SHIFT-POUND} {CBM-C}{$62}{dish}{up}PJ{CTRL-P}{$f8}{CBM-Z}{$7c}{CTRL-B}j{dish}{CTRL-X}{$69}l{f1}P{CBM-I}{stop}({CBM-A}
{CBM-C}{$62}{dish}{CBM-X}z{dish}{up}PJ{CTRL-P}{$f5}0{CTRL-Y}{CBM-C}{$62}{dish}{CBM-X}^{dish}{up}PJ{CTRL-P}{$f5}0{CTRL-L}{$62}{$63}{$64}{$65}{$66}{$67}{$68}{$69}{$00}{CTRL-A}(){CBM-Z}{$7d}{CTRL-B}{$f0}{CTRL-A}{$60}{CBM-Z}{$7b}{CTRL-B}{CBM-S}{SHIFT-+}{stop}{$f0}{CTRL-G}){CTRL-A}{sret}{SHIFT-+}{stop}{$f0}*{SHIFT-POUND} {$a0}{$00}{up}{$fd}{CBM-Z}{$7b}{CTRL-B}){CTRL-A}{sret}{SHIFT-+}{stop}{CBM-Z}{$7c}{CTRL-B}{CTRL-X}{$69}{ensh}{sret}{$7e}{CTRL-B}j{dish}{CTRL-X}{$69} {f1}{$fd}({SHIFT-POUND}{$00}*{$0a}{CBM-N}{CBM-X}1{$0a}{up}{$fd}{$60}{$a0}{$00}{SHIFT-POUND} {up}{$fd}{CBM-Z}{$7c}{CTRL-B}{CTRL-X}{$69}{ensh}{sret}{$7e}{CTRL-B}{CBM-I}&{swuc}{$7f}{CTRL-B}{CTRL-X}{$69} {f1}{$fd}{SHIFT-POUND}{CTRL-A}{sret}{$7d}{CTRL-B}{$60}{CBM-Z}{$7d}{CTRL-B}P{CTRL-A}{$60}N{$80}{CTRL-B}P{$fa}{SHIFT-POUND}{CTRL-A}{sret}{$80}{CTRL-B}{SHIFT-POUND} {$a0}{$00}{up}{$fd}N{$7f}{CTRL-B}03{CBM-Z}{$7f}{CTRL-B}j{CBM-N}{CBM-Z}{$7e}{CTRL-B}j{CTRL-X}{$7d}{f7}{CTRL-K}{f1}{$fd}{CBM-X}{left}{CTRL-K}{$69}{$00}{f1}{$fe}{CBM-E}{$fd}Id{blk}{CTRL-D}I{$62}{blk}{blu}{CBM-Z}{$7f}{CTRL-B}i~j{CBM-Z}{$7e}{CTRL-B}){CTRL-A}*{CBM-N}{CBM-X}1{$0a}{up}{$fd}{$60}{SHIFT-POUND}{$00}{sret}{$7d}{CTRL-B}{SHIFT-POUND}{$83}{f1}{$fe}l{f2}{dish}{CBM-Z}{$7e}{CTRL-B}j{CBM-A}{swlc}{CBM-I}{CTRL-L}{CBM-E}{$fd}{SHIFT--}@{ensh}{$f0}RJ{CTRL-P}{$f8}0({CBM-I}{CTRL-L}{CBM-E}{$fd}{SHIFT--}m{ensh}{$f0}DJ{CTRL-P}{$f8}0{CTRL-Z}fiknrsuvx[\_{$60}eikmqruxz[\^_Ip{CBM-A}x{CBM-I}1{CBM-Z}{$7f}{CTRL-B}j{sret}{orng}{CTRL-B}{CBM-X}{$84}{CTRL-B}I~{$f0}){CBM-Z}{orng}{CTRL-B}{SHIFT--}{$f0}{CTRL-B}P!{CBM-C}{SHIFT-@}{CTRL-B}L{$7e}{CTRL-B}{$f0}2{CBM-X}{$84}{CTRL-B}){$7f}I{CTRL-B}{$f0}{rght}I{stop}{$f0}{CTRL-Y}HL{$7e}{CTRL-B}{$f0}{blu}HL{$7e}{CTRL-B}{$f0}{CTRL-Y}J{CTRL-P}M{$a0}{$00} ~{dish}{SHIFT-POUND}{CTRL-A}lh{$0a}{CBM-Z}{$7e}{CTRL-B}j{CBM-A}{stop}HP{$e5}{f7}P{$e2}lJ{rvon}l{$f8}{rvon}{CBM-I}{stop}{CBM-Z}{$7f}{CTRL-B}j{sret}{orng}{CTRL-B}{CBM-X}{CBM-L}{CTRL-B}I~{$f0}){CBM-Z}{orng}{CTRL-B}{SHIFT--}"{stop}P!{CBM-C}{$ec}{CTRL-B}L{$7e}{CTRL-B}{$f0}{SHIFT--}{CBM-X}{CBM-L}{CTRL-B}){$7f}I{CTRL-B}{$f0}{esc}I{stop}{$f0},HL{$7e}{CTRL-B}{$f0}JHL{$7e}{CTRL-B}{$f0}DJ{CTRL-P}M ~{dish}{SHIFT-POUND}{CTRL-A} h{$0a}{CBM-Z}{$7e}{CTRL-B}j{CBM-A}#{f7}L{$7e}{CTRL-B}{$f0}{CBM-Z}HHL{$7e}{CTRL-B}{$f0}{CBM-+}P{$e0}{CBM-Z}{$7e}{CTRL-B}j{CBM-A}{$eb}HL{$7e}{CTRL-B}{$f0}{gry2}HL{$7e}{CTRL-B}{$f0}{rvof}PL{f7}L{$7e}{CTRL-B}{$f0}{f4}{f7}L{$7e}{CTRL-B}{$f0}{$84}P{CBM-V}bc@aN{$82}{CTRL-B}{$f0}{CTRL-A}{$60}{CBM-Z}Z{stop}i{CTRL-A}{sret}Z{stop}{SHIFT-POUND}{$00}{sret}{CBM--}{stop}{CBM-Z}&{stop}P{$69}{SHIFT-POUND}{CTRL-L}{sret}{$82}{CTRL-B}{CBM-I}{$00}{swuc}{$83}{CTRL-B}{CBM-S}{$83}{CTRL-B}{CBM-X}{$84}{CTRL-B}06{SHIFT-POUND}{CTRL-A}{sret}{CBM--}{stop}{CBM-X}{SHIFT-@}{CTRL-B}0fIm{CBM-A}  {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-Z}Z{stop}P{stop}{$de}{SHIFT-@}{CTRL-B}{CBM-X}{SHIFT-@}{CTRL-B}0/Il{CBM-A}{ensh} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}l{brn}{$0a}{CBM-Z}Z{stop}P{stop}{$de}{SHIFT-@}{CTRL-B}{$ee}{$83}{CTRL-B}{CBM-Z}{$83}{CTRL-B}I6P{CBM-U}{CBM-Z}Z{stop}P{dish}{CBM-Z}{CBM--}{stop}{$f0}{stop}N){stop}l{$75}{CTRL-L}{SHIFT-POUND}{CTRL-A}{sret}&{stop}PW{SHIFT-POUND}{CTRL-L}{sret}{$82}{CTRL-B}{CBM-I}5{swuc}{$83}{CTRL-B}{CBM-S}{$83}{CTRL-B}{CBM-X}{$84}{CTRL-B}06{SHIFT-POUND}{CTRL-A}{sret}{CBM--}{stop}{CBM-X}{SHIFT-@}{CTRL-B}0$Im{CBM-A}= {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-Z}Z{stop}P{stop}{$fe}{SHIFT-@}{CTRL-B}{CBM-X}{SHIFT-@}{CTRL-B}0
Im{CBM-A}& {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}l{$fe}{$0a}{CBM-Z}Z{stop}P{stop}{$fe}{SHIFT-@}{CTRL-B}N{$83}{CTRL-B}{CTRL-P}{CBM-X}{CBM-Z}Z{stop}P{dish}{CBM-Z}{CBM--}{stop}{$f0}{stop}{$ee}){stop}l{clr}{CTRL-L}{SHIFT-POUND}{$00}{sret}&{stop}{$f0}{CBM--}{CBM-C}{$f0}{CTRL-B}{CBM-X}{SHIFT-@}{CTRL-B}j{dish}{CTRL-X}{$79}{f7}{CTRL-K}{f1}R{CBM-O}{left}{CTRL-K}{$69}{$00}{f1}S({CBM-A}{grn}{CBM-X}{$84}{CTRL-B}){$80}{sret}.{stop}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-POUND}{CBM-O}j{CTRL-K}
.{stop}{left}{$84}{CTRL-B}{$60}{$00}{$00}{CTRL-B}{stop}{CTRL-D}{CTRL-D}{CBM-X}{$84}{CTRL-B}){$80}{sret}.{stop}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-POUND}{CBM-O}{$82}{CTRL-K}
.{stop}{left}{$84}{CTRL-B}{$e0}2{CBM-A}{$de}{CBM-X}{$84}{CTRL-B}0Y{CBM-O}{$82}{CTRL-K}I{CTRL-A}PR{f4}j{CBM-A}N{$e6}RP{CTRL-B}{$e6}S{$60}{CTRL-A}{CTRL-A}{CTRL-B}{stop}{wht}{wht}p{$78}{$a0}H{$f0}{CTRL-X}@{$68}{blk}{CBM-U}{$e0}{dish}0x{$80}{CBM-POUND}P{$f8} h{$70}{$80}{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$e0}2{CBM-A}{CTRL-U}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-N}{SHIFT-POUND} {CBM-C}?{CTRL-L}{up}R{$a0}{$00}{up}R{CBM-S}{$83}{CTRL-B}{$60}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-N}{CBM-G}R8{$fd}e{CTRL-L}{f1}R{CBM-G}S{$e9}{$00}{f1}S{SHIFT-POUND} {CBM-C}]{CTRL-L}{up}R{CBM-C}w{CTRL-L}{up}R{$a0}{$00}{up}R{CBM-S}{$83}{CTRL-B}{$60}{$e0}2{CBM-A}{CTRL-Y}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-N}{CBM-X}q{CTRL-L}{CBM-C}?{CTRL-L}{up}R{$a0}{$00}{CBM-X}k{CTRL-L}{up}R{CBM-S}{$83}{CTRL-B}{$60}{CBM-X}{$84}{CTRL-B}){$7f}{CBM-N}{CBM-G}R8{$fd}e{CTRL-L}{f1}R{CBM-G}S{$e9}{$00}{f1}S{CBM-X}{$6f}{CTRL-L}{CBM-C}]{CTRL-L}{up}R{CBM-X}{$69}{CTRL-L}{CBM-C}w{CTRL-L}{up}R{CBM-X}{$63}{CTRL-L}{$a0}{$00}{up}R{CBM-S}{$83}{CTRL-B}{$60}{CTRL-A}{CTRL-A}(({CTRL-A}{CTRL-A}{$00}{$00}{CTRL-A}{$00}('dfhjlnegikmo{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}('())()(psvy\_qtwz]{$60}rux[^{$61}{CBM-I}{wht}{CBM-C}{CBM-E}{CTRL-L}{CBM-O}{CBM-@}{$80}Id{$f0}{CTRL-D}IpP{dish}{SHIFT-POUND}{CTRL-A}{sret}&{stop}l{CBM-Y}{CTRL-L}J{CTRL-P}{$e7}l{CBM-Y}{CTRL-L}{CBM-I}{wht}{CBM-C}{CBM-E}{CTRL-L}{CBM-O}{SHIFT-*}{$80}Ig{$f0}{CTRL-D}ItP{dish}{SHIFT-POUND}{$00}{sret}&{stop}l{CBM-Y}{CTRL-L}J{CTRL-P}{$e7}l{CBM-Y}{CTRL-L}{$00}p{$78}{$a0}H{$f0}{CBM-Z}Z{stop}P{CTRL-F}{CBM-Z}&{stop}{sret}-{stop}{$60}N0{stop}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{$00}{sret}1{stop}{CBM-S}'{stop}{CBM-X}[{swlc}{sret}0{stop}{$ee}'{stop}{CBM-Z}'{stop}I{del}P{wht}{SHIFT-POUND}{$00}{sret}'{stop}{$a0}5{CBM-V}{$6f}{swlc}{CBM-X}{$84}{CTRL-B}0{del}{CBM-X}{SHIFT-@}{CTRL-B}I{rvon}{blk}
I>{CBM-A}{ensh}{$e0}2{blk}{ensh}{CBM-Z}A{stop}{$f0}{CTRL-D}{f7}{CTRL-P}{$e1}{$60}{gry2}{CBM-D}2{stop}{$f0}{home}L({stop}{blk}{CTRL-A}{$60}h{f4}Y={stop}P{CTRL-B}{$68}{$60}{f7}P{$f6}{$68}{$ee}2{stop}{CBM-D}2{stop}h{f4}{lgrn}={stop}{$68}{lgrn}3{stop}{CBM-X}{$f0}{CTRL-B}{lgrn}g{stop}{CBM-Z}{$7c}{CTRL-B}{CTRL-X}{$69}{ensh}8{$fd}{SHIFT-@}{CTRL-B}0{swlc}{CBM-I}{$00}I{del}{blk}{del}{$e8}I({blk}{CTRL-O}{$e8}P{CTRL-L}{CBM-I}{wht}I{$ec}{CBM-A}{CTRL-F}JIX{CBM-A}{CTRL-A}J{f4}{lgrn}q{stop}{CBM-O}={stop}{f8}/{stop}I2{CBM-A}{stop}l;{swlc}{$e9}2{CBM-N}{CBM-X}{CBM-G}{swlc}{sret}{$65}{stop}{CBM-X}{SHIFT-POUND}{swlc}{sret}{$66}{stop}{CBM-X}{CBM-Z}{swlc}{sret}{$67}{stop}{$a0}{$00}{f8}B{stop}{CBM-S}{$65}{stop}{CBM-X}{$84}{CTRL-B}0
{CBM-X}{$f0}{CTRL-B}I{CTRL-D}P{CTRL-F}{swuc}C{stop}{$ee}B{stop}H{CBM-V}{$65}{stop}{CBM-X}{$84}{CTRL-B}0{CTRL-U}{CBM-X}{$f0}{CTRL-B}I{CTRL-D}P{swlc}{f4}{CBM-S}B{stop}{left}C{stop}{$ee}B{stop}{$e0}{CTRL-A}{$f0}{CTRL-Z}H{CBM-V}{$65}{stop}{CBM-X}{$84}{CTRL-B}0{down}{CBM-X}{$f0}{CTRL-B}I{CTRL-D}P{$0a}{f4}{CBM-S}B{stop}{left}C{stop}{$ee}B{stop}{CBM-D}2{stop} ;{swlc}{SHIFT-POUND}{CTRL-A}{sret}A{stop}{CBM-S}B{stop}P{CTRL-A}{$60}{swuc}{$65}{stop}{CBM-D}2{stop}{CBM-S}{$65}{stop}P{CTRL-A}{$60}H{$ee}2{stop}{CBM-X}B{stop}{lgrn}={stop}{CBM-S}/{stop}{SHIFT-POUND}{$00}{lgrn}[{stop}{CBM-X}3{stop}{lgrn}3{stop}{CBM-X}q{stop}{lgrn}q{stop}{CBM-V}={stop}{swuc}{$83}{CTRL-B} {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-D}2{stop}{CBM-X}{$f0}{CTRL-B}{lgrn}g{stop}{CBM-X}{$84}{CTRL-B}{ensh}{$80}{left}{$84}{CTRL-B} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}{CBM-D}2{stop}N{$65}{stop}l{$eb}
{SHIFT-POUND}{$00}{lgrn}[{stop}{CBM-V}={stop}{swuc}{$83}{CTRL-B} {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-X}{$84}{CTRL-B}{ensh}{$80}{left}{$84}{CTRL-B} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}{$60}({CTRL-B}{$f0}#{CBM-Z}{left}{CTRL-B}I{CTRL-F}{blk}{red}I{ensh}{$f0}{CTRL-B}{CBM-A}{CTRL-V}{CBM-Z}{CBM-D}{CTRL-B},-"#{CTRL-X}{CTRL-Y}{swlc}{CTRL-O}{CTRL-D}{wht}+.!${CTRL-W}{CTRL-Z}
{CTRL-P}{stop}{CTRL-F}34*/ %{CTRL-V}{esc}{CTRL-L}{down}{CTRL-B}{CTRL-G}25)0{blu}&{CTRL-U}{red}{CTRL-K}{rvon}{CTRL-A}{dish}(1{grn}'{del}{rght}{$0a}{home}{$00}{ensh}{CTRL-B}{stop}{CTRL-F}{CTRL-G}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-D}{wht}{CTRL-D}{wht}NM{stop}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{ensh}{sret}M{stop}{CBM-D}2{stop}{$f0}{$f5}{f8}{$68}{stop}{CBM-D}{$68}{stop}{CBM-V}[{stop}{$e0}{wht}{CBM-A}{$69}{CBM-V}={stop}{swuc}{$83}{CTRL-B} {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-D}{$68}{stop}{CBM-O}3{stop}j{CBM-A}*{CBM-O}[{stop}{CBM-V}={stop}{CBM-POUND}{CTRL-X}{CBM-X}{SHIFT-@}{CTRL-B}{$79}{$74}{CTRL-P}{left}{SHIFT-@}{CTRL-B}{CTRL-X}{CBM-X}{$f0}{CTRL-B}{$79}{$79}{CTRL-P}{left}{$f0}{CTRL-B}{CBM-O}{$7e}{CTRL-P}{left}{$84}{CTRL-B} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}l{CBM-A}{CTRL-O}{CBM-O}[{stop}{CBM-V}={stop}{CBM-POUND}{CTRL-X}{CBM-X}{SHIFT-@}{CTRL-B}{$79}{$83}{CTRL-P}{left}{SHIFT-@}{CTRL-B}{CTRL-X}{CBM-X}{$f0}{CTRL-B}{$79}{f7}{CTRL-P}{left}{$f0}{CTRL-B}{CBM-O}{sret}{CTRL-P}{left}{$84}{CTRL-B} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}l{CBM-A}{CTRL-O}{CBM-V}={stop}{swuc}{$83}{CTRL-B} {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{CBM-D}{$68}{stop}{CBM-V}q{stop}{$e0}{$0a}P{CTRL-D}{SHIFT-POUND}{$00}{$f0}{home}{CBM-X}{CBM-L}{rvon}{f1}{$fb}{CBM-X}{SHIFT-*}{rvon}{f1}{$fc}{CBM-O}[{stop}8{$e9}{wht}{CBM-POUND}{CBM-E}{$fb}{CTRL-X}{CBM-D}{$68}{stop}{CBM-V}={stop}{$7d}{SHIFT-@}{CTRL-B}{left}{SHIFT-@}{CTRL-B}Il{blk}{CTRL-G}{SHIFT-POUND}&{left}{SHIFT-@}{CTRL-B}Pe{$fe}{$f0}{CTRL-B}{CBM-O}q{stop}I{$0a}P{CTRL-Z}{CBM-D}{$68}{stop}{CBM-X}{$f0}{CTRL-B}Yg{stop}P{CTRL-O} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}{CBM-D}{$68}{stop} {CBM-B}{down}l{CBM-L}{CTRL-O}{CBM-D}{$68}{stop}{CBM-X}{$f0}{CTRL-B}I{CTRL-U}{$f0}{CTRL-W} {CTRL-Z}{CTRL-K} {$f3}{CTRL-K}{CBM-S}{$68}{stop}{$fe}[{stop}N{$68}{stop}{$f0}{stop}lD{swlc}l{rvof}{CTRL-P}{CBM-Z}S{stop}{$f0}{red}{SHIFT-POUND}{$00}{left}{$f0}{CTRL-B}{SHIFT-POUND}{wht}{lgrn}[{stop}{CBM-O}q{stop}{$79}={stop}){CTRL-G}{CBM-N}{CBM-X}6{CTRL-P}{lgrn}q{stop}lc{CTRL-O}{$e0}2{blk}.{CBM-Z}B{stop}P)N+{stop}{$ee}*{stop}{CBM-Z}*{stop}I{stop}{CBM-A}{CTRL-V}{CBM-Z}+{stop}P{CTRL-F} {$6d}{CTRL-X}l{$e9}{wht}{SHIFT-POUND}~{left}{$84}{CTRL-B} {CBM-B}{down}l{CBM-L}{CTRL-O}{$ee}+{stop}N*{stop}{CBM-C}>{CTRL-P}{CBM-O}{$0a}{CTRL-F}{CTRL-X}{$6d}){stop}{left}{SHIFT-@}{CTRL-B}{SHIFT-POUND}{$00}{left}{$f0}{CTRL-B}{CBM-D}{$68}{stop}{SHIFT-POUND}{$0a}{lgrn}q{stop}{SHIFT-POUND}{$00}{left}{$84}{CTRL-B}lc{CTRL-O}{CTRL-F}{dish}{CTRL-G}{ensh}{dish}{ensh}{CTRL-A}{CTRL-D}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{stop}{CTRL-D}{wht}{CTRL-F}~~{$fe}~~~~{$00}{CTRL-A}{CTRL-A}{$80}{$83}{$83}{f1}{f1}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}~~{$00}{CTRL-A}{CTRL-A}{$80}{$82}{$82}{f1}{f1}{CBM-D}2{stop}P{CTRL-A}{$60}{CBM-Z}1{stop}P{$fa}{CBM-V}={stop}{CBM-X}{$f0}{CTRL-B}I{$0a}{$f0}{$0a}I{CTRL-L}{$f0}{CTRL-F}I{swlc}{$f0}{CTRL-B}Px{CBM-Z}{$7c}{CTRL-B}{$69}{ensh}8{$fd}{SHIFT-@}{CTRL-B}0{swlc}{CBM-I}{$00}I{$0a}{CBM-A}{del}{$e8}I{wht}{CBM-A}{CTRL-O}{$e8}P{CTRL-L}{CBM-I}{stop}I{$f6}{blk}{CTRL-F}{$e8}I{$fb}{blk}{CTRL-A}{$e8}{f4}{CBM-S}E{stop}{$e0}{CTRL-U}P{CTRL-A}{$60}{$e8}{$ee}E{stop}{left}{CBM-Q}{stop}{f8}/{stop}{CBM-V}={stop}{CBM-X}{SHIFT-@}{CTRL-B}{CTRL-X}{$69}{CTRL-A}{CBM-D}E{stop}{lgrn}{$69}{stop}{CBM-X}{$f0}{CTRL-B}{$0a}{$69}{stop}{lgrn}{$7f}{stop}{SHIFT-POUND}{$00}{lgrn}{brn}{stop}{CBM-D}/{stop}{f7}P{up}{$60}{CBM-X}{$7f}{stop}j{CBM-POUND}{CBM-X}{$69}{stop}j{dish}{CTRL-X}{$79}{f7}{CTRL-K}{f1}{CTRL-A}{CBM-O}{left}{CTRL-K}{$69}{$00}{f1}{CTRL-B}{CBM-X}{$7f}{stop}){CTRL-A}(*{CBM-POUND}{CBM-O}8{down}{$a0}{$00}{$60} 
{down}{up}{CTRL-A}{$60}cab@ 
{down}{SHIFT-POUND} {up}{CTRL-A}{$60}NF{stop}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{stop}{sret}F{stop}{CBM-S}E{stop}{$f0}{$f5} <{down}{$fe}{$7f}{stop}{$fe}{brn}{stop}{CBM-X}{brn}{stop}{CBM-C}{CBM-Q}{stop}Y{swuc}{down}P{CTRL-X}{SHIFT-POUND}{$00}{left}{brn}{stop}{SHIFT-*}{CTRL-B}{CBM-A}{wht}{$fe}{$69}{stop}P{stop}{$de}{$69}{stop}{CBM-X}{$69}{stop}Ip{CBM-A}{del}{CBM-X}{$7f}{stop}I*{CBM-A}
 2{down}JPG{$60}{stop}{wht}{ensh}{stop}{wht}{ensh}{swuc}/{stop}{$ec}E{stop}P{dish}NE{stop}{CBM-S}/{stop}P{$e6}{CBM-X}{$6a}{stop}{left}{$69}{stop}{CBM-X}{$80}{stop}{left}{$7f}{stop}{CBM-X}{CBM-D}{stop}{left}{CBM-Q}{stop}{CBM-X}{lred}{stop}{left}{brn}{stop}{$e8}PX{CBM-O}={stop}I2{blk}{wht}{SHIFT-POUND}{$00}{sret}A{stop}L2{stop}P{CTRL-D}N2{stop}{$60}{CBM-O}>{stop}{lgrn}={stop}{CBM-O}4{stop}{lgrn}3{stop}{CBM-O}h{stop}{lgrn}g{stop}{CBM-O}r{stop}{lgrn}q{stop}{CBM-O}\{stop}{lgrn}[{stop}HPV{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-A}{CTRL-A}{$00}{$00}{$00}~~{$fe}{$fe}{$fe}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{stop}{CTRL-D}{stop}{stop}{CTRL-B}{CTRL-A}{$00}{$00}~~{$fe}{$fd}{$fd}{$fc}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{wht}{CTRL-D}{stop}{CTRL-B}{CTRL-A}{$00}~{$fe}{$fd}{$fc}{$fb}{$fa}{$00}{$00}{$00}~~{$fe}{$fe}{$fe}{$fe}~~{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{CTRL-B}{$00}~~{$fe}{$fe}{$fd}{$fc}{$fd}{$fd}{$fe}~{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{stop}{stop}{CTRL-D}{$00}~{$fe}{$fd}{$fc}{$fb}{$fa}{$fb}{$fc}{$fd}{$fe}~{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{$00}{CTRL-A}{CTRL-A}{$00}~{$00}{CTRL-A}{CTRL-B}{CTRL-B}{stop}{CTRL-D}{stop}{CTRL-B}{CTRL-A}{$00}~{$fe}{$fd}{$fd}{$fc}{$00}~~{$00}{CTRL-A}{$00}~{$fe}{$fe}{$fd}{$fc}{$fd}{$fe}~{$00}{CTRL-A}{CTRL-B}{stop}{stop}{CTRL-D}{$00}{CTRL-B}{CTRL-B}{$00}{$fe}{$00}{CTRL-A}{CTRL-B}{CTRL-D}{CTRL-F}{dish}{CTRL-F}{CTRL-D}{CTRL-B}{CTRL-A}{$00}~{$fe}{$fc}{$fa}{$00}{$fe}{$fe}{$00}{CTRL-B}{$00}~{$fe}{$fc}{$fa}{$f8}{$fa}{$fc}{$fe}{$fe}{$00}{CTRL-A}{CTRL-B}{CTRL-D}{CTRL-F}{$f5}{dish}{esc}.at{$66}{$7a}{swuc}{CBM-I}{down}{rvon}{rvon}{rvon}{rvon}{rvon}{rvon}{rvon}{rvon}{rvon}{CBM-Z}G{stop}{$0a}{sret}.{stop}{CBM-X}{$7c}{CTRL-F}{CBM-C}{$84}{CTRL-B}{CTRL-P}{wht}{$f8}{CTRL-X}{$7d}{$7c}{CTRL-F}{CBM-D}.{stop}{$f8}{CTRL-X}{$79}O{stop}{lgrn}O{stop}{SHIFT-POUND}{$00}{$79}P{stop}{lgrn}P{stop}X{swuc}{$83}{CTRL-B}li{home}{f4}{CTRL-X}{$69}2{sret}{$83}{CTRL-B}{CBM-Z}G{stop}{$0a}{sret}.{stop}{CBM-X}{CBM-L}{CTRL-B}0{CTRL-D}{SHIFT-POUND}{CTRL-F}P&{CBM-S}B{stop}{CBM-X}{CBM-S}{CTRL-F}{$e0}{CTRL-B}P{CTRL-Z}J{CBM-C}C{stop}{CBM-O}{$84}{CTRL-B}I~P{CTRL-O}J{CBM-C}C{stop}{CBM-O}{$84}{CTRL-B}I~P{CTRL-F}{SHIFT-POUND}{$80}P{CTRL-B}{SHIFT-POUND}0{CBM-D}.{stop}{$f8}{CTRL-X}{$79}O{stop}{lgrn}O{stop}{SHIFT-POUND}{$00}{$79}P{stop}{lgrn}P{stop}X{SHIFT-POUND}{$00}{sret}{$7d}{CTRL-B}{SHIFT-POUND}{$83}{f1}{$fe}{CBM-Z}W{stop}{$f0}{CTRL-F} {blu}{CTRL-X}l{$62}{home}{SHIFT-POUND}{CTRL-D}{sret}W{stop}{CBM-S}{$83}{CTRL-B} {CTRL-Z}{CTRL-K} {CBM-R}{CTRL-K}{$a0}{$00}{SHIFT-POUND}{$6e}{up}RH{SHIFT-POUND}{$6f}{up}R{CBM-G}R{sret}X{stop}{CBM-G}S{sret}Y{stop}{f4}{CBM-D}2{stop}{$f0} Y={stop}{$f0}{wht}{f7}P{$f8}{$f0}{stop} {CBM-B}{down}{$e0}2{blk}{CTRL-O}{SHIFT-POUND}~{sret}0{stop}{SHIFT-POUND}{$00}{sret}A{stop}{SHIFT-POUND}{CTRL-A}{sret}1{stop}{SHIFT-POUND}~{left}{$84}{CTRL-B}l{f8}{del}N{$e2}{stop}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{del}{sret}{$e2}{stop}{CBM-S}G{stop}P{grn}{CBM-Z}{$0a}{$80}I P{CTRL-L}{CBM-I}{$0a}{CBM-X}{$f8}{CTRL-D}{left}{$00}{$80}J{CTRL-P}{$f7}{$60}{CBM-I}{$0a}{SHIFT-POUND} {left}{$00}{$80}J{CTRL-P}{$fa}{$60}{CBM-Z}{grn}{$80}I P{CTRL-L}{CBM-I}{$0a}{CBM-X}{down}{wht}{left}{CTRL-Y}{$80}J{CTRL-P}{$f7}{$60}{CBM-I}{$0a}{SHIFT-POUND} {left}{CTRL-Y}{$80}J{CTRL-P}{$fa}{$60}{SHIFT-POUND} {CBM-I}o{left}{gry2}{$83}J{CTRL-P}{$fa}{CBM-D}G{stop}{CBM-V}H{stop}{swuc}/{stop}N/{stop}{$f0}#{CBM-Z}/{stop}{$0a}{CBM-N}{$a0}{$62}{gry2}{left}{pur}{$83}{$e8}H{gry2}{left}{pur}{$83}{f4}{CTRL-X}{$69}'{CBM-N}H{gry2}{left}{pur}{$83}H{$e8}{gry2}{left}{pur}{$83}PX{CBM-S}G{stop}{CBM-X}J{stop}{sret}/{stop}{SHIFT-POUND}#{sret}L{stop}{CBM-Z}/{stop}P{CTRL-A}{$60}I{$0a}{CBM-A}{CTRL-X}NL{stop}{CBM-S}L{stop}{$a0}{$6a}{gry2}{left}{pur}{$83}H{f4}{CTRL-X}{$69}({CBM-N}{gry2}{left}{pur}{$83}P!NL{stop}{CBM-Z}/{stop}8{$e9}{ensh}{sret}/{stop}{$a0}{$6d}{CBM-S}L{stop}{gry2}{left}{pur}{$83}{f7}NL{stop}J{gry2}{left}{pur}{$83}{f7}PTN/{stop}lc{del}{CBM-Z}G{stop}{CBM-I}{$00}{swuc}/{stop}{swuc}N{stop}{$0a}{CBM-N}{$e8}{CBM-X}O{stop}){$f0}jjjj{ensh}0I0{$f0}{stop}{sret}N{stop}P{CTRL-G}{CBM-D}N{stop}P{CTRL-B}{SHIFT-POUND} {CBM-D}/{stop}{$e0}{CTRL-B}{CBM-A}{wht}{lgrn}.{$80}{blk}{stop}{lgrn}b{$80}{$ee}/{stop}{CBM-X}O{stop}){CTRL-O}{ensh}0I0{$f0}{stop}{sret}N{stop}I0P{CTRL-G}{CBM-D}N{stop}P{CTRL-B}{SHIFT-POUND} {CBM-D}/{stop}{$e0}{CTRL-B}{CBM-A}{wht}{lgrn}.{$80}{blk}{stop}{lgrn}b{$80}{$ee}/{stop}J{CBM-X}O{stop}){$f0}jjjj{ensh}0I0{$f0}{stop}{sret}N{stop}P{CTRL-G}{CBM-D}N{stop}P{CTRL-B}{SHIFT-POUND} {CBM-D}/{stop}{$e0}{CTRL-B}{CBM-A}{wht}{lgrn}.{$80}{blk}{stop}{lgrn}b{$80}{$ee}/{stop}{CBM-X}O{stop}){CTRL-O}{CTRL-X}{$69}0{CBM-D}/{stop}{$e0}{CTRL-B}{CBM-A}{wht}{lgrn}.{$80}{blk}{stop}{lgrn}b{$80}{$a0}{$00}{CBM-O}.{$80}{CBM-S}G{stop}{$f0}{stop}{CBM-O}b{$80}Y9{$80}{blk}{red}{$f0}{CTRL-B}{CBM-A}{wht}H{SHIFT-*}{CTRL-D}P{$e7}{$a0}{stop}{CBM-O}.{$80}{CBM-S}G{stop}{$f0}{stop}{CBM-O}b{$80}{lgrn}9{$80}{f7}{CTRL-P}{$ef}{$60} Z{CTRL-G} {$fd}{CTRL-W} d{down} C{CTRL-L} {CBM-E}{swlc} D{dish} 5{$0a} {f7}{CTRL-X} {CBM-S}{home}{CBM-Z}{$fe}~I{esc}P{stop}l1{$e6}l{f7}{$e6} {CBM-W}{CTRL-U} {$fd}{CTRL-W} d{down} {CBM-E}{swlc} D{dish} 5{$0a} {f7}{CTRL-X} {CBM-S}{home}{CBM-Z}{$7d}{CTRL-B}PV{$a0}{$00}{SHIFT-POUND} {up}{$fd}PNN{$7a}{CTRL-B}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{$00}{sret}S{stop}{CBM-Z}{$7d}{CTRL-B}{$f0}{CTRL-F}{$a0}{$00}{SHIFT-POUND} {up}{$fd}{SHIFT-POUND}-{sret}{$7a}{CTRL-B}{$ee}V{stop}{CBM-Z}V{stop}I{CTRL-A}{$f0}{rvon}I{CTRL-B}{$f0}{swlc}I{stop}{$f0}{CTRL-X}I{CTRL-D}{$f0}"I{wht}{$f0},P8{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}{CTRL-Y}{CTRL-W}{up}PJ{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}{rght}{CTRL-W}{up}PJ{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}!{CTRL-W}{up}PJ{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}%{CTRL-W}{up}PJ{CTRL-P}{$f5}{$60}{CBM-I}{stop}{SHIFT-POUND} {CBM-C}{$62}{dish}{up}PJ{CTRL-P}{$f8}{CBM-S}G{stop}{$de}H{stop}P{stop}l){CTRL-W} {$fa}{home}{CBM-S}T{stop}{$f0}{grn}{CBM-Z}G{stop}i{CTRL-A}{sret}G{stop} {$6d}{CTRL-X}{CBM-I}{CBM-N}{CBM-X}{$83}{CTRL-B}{CBM-POUND}{CBM-X}{$6e}{CTRL-V}{left}{$83}{CTRL-B}{gry2}{left}{$6e}{CTRL-V}JP{$ef} {up}{CTRL-W}{SHIFT-POUND}{CTRL-U}{sret}M{CTRL-Y}{SHIFT-POUND}{$66}{sret}L{CTRL-Y}l{$f1}{CTRL-W}~~{$00}{$00}{$00}{$00}{$00}{$00}~~~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~~{$00}{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{rvon}{CTRL-W}{CTRL-Z}{blu}"'*/27{blu}"'*{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{CTRL-D}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-G}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{$00}{$00}{$00}{$00}.{$00}{$00}{$6e}{$6f}{$70}{$71}{$72}{$73}{$74}{$75}{$76}{$77}{$78}{$79}{$7a}{$7b}{$7c}{$7d}{CBM-I}{dish}{CBM-X}{$69}{CTRL-W})?{left}{CTRL-W}{$82}J{CTRL-P}{$f5}{CBM-S}T{stop}P{ensh} r{CTRL-W} L{CTRL-W}lh{wht} r{CTRL-W} L{CTRL-W}{SHIFT-POUND}{$00}{sret}T{stop}la{CTRL-V}{CBM-Z}G{stop}{CTRL-X}{$69}1{sret}{$78}{CTRL-W}{CBM-I}{CTRL-F}{CBM-X}{$72}{CTRL-W})?{left}@{$82}J{CTRL-P}{$f5}{$60}game overplayer1{SHIFT-POUND}{swuc}{sret}L{CTRL-Y}{SHIFT-POUND}{CTRL-U}{sret}M{CTRL-Y}{SHIFT-POUND}{$00}{sret}V{stop}{sret}S{stop}{SHIFT-POUND}{CTRL-A}{sret}1{stop}{$60}{SHIFT-POUND}{grn}{sret}{$82}{CTRL-B}{sret}{$7c}{CTRL-B}{SHIFT-POUND}{$64}{sret}{$7a}{CTRL-B}{sret}0{stop}{SHIFT-POUND}{CTRL-A}{sret}{$80}{CTRL-B}{SHIFT-POUND}{$00}{sret}{$7d}{CTRL-B}{sret}1{stop}{CBM-Z}{$7c}{CTRL-B}j{CTRL-X}{$69}l{f1}P8{$e9}({f1}{$fd}{CBM-I}{stop}{CBM-C}{$62}{dish}{CBM-X}z{dish}{up}PJ{CTRL-P}{$f5}l{$fa}{home}{SHIFT-POUND}{$00}{sret}k{$e8}{sret}.{stop}{sret}/{stop}{SHIFT-POUND}{wht}{sret}{$65}{stop}N.{stop}P{$fb}N/{stop}P{$f6}N{$65}{stop}P{$f1}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{$60}{CBM-I}({CBM-X}{$f8}{CTRL-D}{left}{$00}{$80}J{CTRL-P}{$f7}{$60}{CBM-Z}W{stop}{$f0}{red}NW{stop}I{CTRL-A}{$f0}{CTRL-V}{$a0}{$00}{CBM-Z}X{stop}{f1}R{CBM-Z}Y{stop}{f1}S{SHIFT-POUND}{$70}{up}R{SHIFT-POUND}{$71}H{up}R{$60}{$a0}{$00}{CBM-Z}X{stop}{f1}R{CBM-Z}Y{stop}{f1}S{SHIFT-POUND} {up}RH{up}R{CBM-S}G{stop}{CBM-X}{SHIFT--}{stop}P{CTRL-U}{f4}{$0a}{CBM-N}{CBM-X}P{stop}I{wht}{blk}{CTRL-K}{CBM-S}G{stop}{$fe}H{stop}{SHIFT-POUND}{CTRL-A}{left}{SHIFT--}{stop}N+{stop}P{CTRL-F} {$6d}{CTRL-X}l{$e9}{wht}{CBM-Z}+{stop}MU{stop}{CBM-A}{wht}{SHIFT-POUND}{CTRL-A}{sret}S{stop} {$fa}{home}l{f8}{del}{$a0}{$00}{SHIFT-POUND}{$80}{f1}S{SHIFT-POUND}p{f1}R{SHIFT-POUND} {up}R{$e6}RP{$fa}{$e6}S{CBM-+}S{$e0}{$84}P{$f2}{$60}{CBM-S}W{stop}{$f0}{CTRL-O}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{CBM-X}{gry2}{CTRL-X}{sret}h{$e8}{$60}{f1}{$6e}{$82}{CBM-D}2{stop}{$f0}z{CBM-S}S{stop}{$f0}{$0a}{CBM-V}[{stop}{$e0}{wht}{blk}{stop}l3{CTRL-Y}{CBM-V}[{stop}{$e0}{del}{CBM-A}d{SHIFT-POUND}L{sret}j{$e8}{CBM-X}Q{CTRL-X}{CBM-POUND}{CBM-Z}M{stop}jj{blk}{stop}{gry2}P{stop}{CBM-X}{$e6}{CTRL-X}{sret}h{$e8}{$60}<>acegiklnopqrstuvvww<>adfhjlmoqrstuvwxyzz{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{CBM-Z}{$82}{CTRL-B}{CBM-S}Z{stop}{$f0}{stop}{CTRL-X}{$69}{CTRL-L}{CBM-N}{$e0}{CTRL-Y}{blk}{CTRL-B}{CBM-I}{CTRL-Y}{CBM-X}{CTRL-Y}{CTRL-Y}{sret}h{$e8}{$60}~{$fd}{$fb}{$f9}{$f7}{$f5}{$f3}{$f1}{$ef}{$ed}{$eb}{$e9}{$e7}{$e5}{$e3}{$e1}{CBM-*}{SHIFT--}{SHIFT-+}YWUSQO{$00}{CBM-Z}M{stop}{$a0}L{f8}j{$e8}jj{blk}{CTRL-F}{SHIFT-POUND}{$64}{sret}h{$e8}{$60}{SHIFT-POUND}{$78}{sret}h{$e8}{$60}N{$e0}{stop}P+{CBM-S}{$e1}{stop}{CBM-X}{orng}{CTRL-Y}{sret}h{$e8}{SHIFT-POUND}{CTRL-D}{CBM-S}{$e1}{stop}{$e0}/{blk}{CTRL-B}{SHIFT-POUND}{CTRL-B}{sret}{$e0}{stop}{$ee}{$e1}{stop}{CBM-Z}{$e1}{stop}I;P{$0a}{SHIFT-POUND}{CTRL-U}{sret}M{CTRL-Y}{SHIFT-POUND}{$66}{sret}L{CTRL-Y} 5{$0a}l{orng}{CTRL-U}{CBM-M}{$7c}{CBM-M}{$7c}{$63}{$7c}{$63}{$7c}{$63}s{$63}s==={$00}{$00}{CBM-M}{$7c}{CBM-M}{$7c}{$63}{$7c}{$63}{$7c}{$63}s{$63}s==={$00}{$00}{$63}{$6d}{$69}{$6e}{$69}{$6e}{$69}{$6e}{$69}{$6e}{$69}{$6e}{$69}sokhdasokhda{SHIFT-POUND}{CTRL-Y}{f1}{up}{sret}{CTRL-Z}{CTRL-B}{SHIFT-POUND}K{f1}{blk}{sret}{CTRL-Y}{CTRL-B}{$60}l{orng}{CTRL-U}illibifnifegennogsymnosnoccntcouerrnoememnomlisnol                                                                                                                                     {clr}{brn}{blk}{f1}{rvof}{$a0}{f5}{orng}{f8}{orng}{gry2}{f2}{orng}{swuc}                                                                                             ************* {ensh}{swlc}{home}{del}{rvon}{CTRL-U}{stop}{del}{ensh}{CTRL-O}{swlc}{home} *************                                                                                   {CTRL-P}{rvon}{wht}{home}{home} '4' {del}{CTRL-O} 
{CTRL-O}{CTRL-V}{wht} {CTRL-G}{CTRL-A}{CTRL-L}{CTRL-A}{CTRL-X}{ensh}{CTRL-P} {CTRL-L}{wht}{CTRL-F}{del},                                                       '6' {del}{CTRL-O} 
{CTRL-O}{CTRL-V}{wht} {CTRL-G}{CTRL-A}{CTRL-L}{CTRL-A}{CTRL-X}{ensh}{CTRL-P} {rvon}{ensh}{CTRL-G}{dish}{del}.                                                {CTRL-P}{rvon}{wht}{home}{home} '{CTRL-A}' {del}{CTRL-O} {CTRL-F}{ensh}{rvon}{wht}.                                                                                                                                                                                    <<< {CTRL-P}{CTRL-U}{home}{dish} '1' {CTRL-O}{rvon} '2' {CTRL-P}{CTRL-L}{CTRL-A}{CTRL-Y}{wht}{rvon}{home} {CTRL-B}{CTRL-U}{del}{del}{CTRL-O}{swlc} >>>                                                                                                                                                                                                             ({stop}){stop}{CTRL-O}{CTRL-P}{CTRL-Y}{rvon}{ensh}{CTRL-G}{dish}{del} {dish}{CTRL-A}{CTRL-L}. {CTRL-L}{CTRL-A}{CTRL-B}{CTRL-O}{rvon}{CTRL-A}{del}{CTRL-O}{rvon}{CTRL-Y}        {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{$00}{$00}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}@@@@@@@@{$00}{$00}{$00}{$00}{CTRL-B}{CTRL-B}'={CTRL-G}{blu}90{$80}{$80}H{$78}{SHIFT-*}{$f0}8{CTRL-X}{CTRL-A}{home}{grn}{stop}{blu}{red}{dish}{$00}@{$e4}{CBM-C}{$e0}{$fc}{pur}{dish}{$00}L{$e8}{$68}<7{$7c}7<{$68}{$e8}L{$00}{$00}{$00}{$00}{$00}3{CTRL-W}{CTRL-V}<{$ec}>{$ec}<{CTRL-V}{CTRL-W}3{$00}{$00}{$00}{$00}{$00}{SHIFT-*}{$e4}{$7f}{blu}{$f5}{cyn}{$0a}{$0a}{$60}{$e0}{SHIFT-*}{$00}{$e0} {$00}{$00}{CTRL-F}{CTRL-G}{stop}{$00}{CTRL-G}{CTRL-D}{$00}{$00}{stop}'{$fe}{$f8}{CBM-P}{$f9}pp{CTRL-D}{swlc}{cyn}~~~{$75}5{$00}{$00} {$e0}{$e0}{$e0}{SHIFT-*}{$80}{CTRL-U}{CTRL-D}{CTRL-D}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-D}{CTRL-G}{CTRL-G}{CTRL-G}{stop}{CTRL-A} {$70}{$f9}~~~{CBM-S}{CBM-D}{CBM-POUND}  {$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-O}{$00}{CTRL-A}{$00}{$7c}{$f8}{$fc}>~>{$fc}{$f8}{$7c}{$00}{$00}{$00}{$00}{$00}{$00}{$00}>{blu}?{$7c}~{$7c}?{$00}{$00}{$00}{$80}{$00}{$f0}{$00}{$80}{blu}>{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-D}{CTRL-D}{CTRL-U}5{$75}~~~{cyn}{swlc}{CTRL-D}{$80}{SHIFT-*}{$e0}{$e0}{$e0} {$00}{$00}{$00}{$00}{$00}{$00}{$00}  {CBM-POUND}{CTRL-A}{stop}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-D}{$00}{$00}{CBM-D}{CBM-S}~~~{$f9}{$70} {CTRL-G}{CTRL-O}{blu}{blu}{rvon}gg{$e7}{$00}{$80}{SHIFT-*}{SHIFT-*}@{CTRL-P}{CTRL-P}8{$ef}~~~{$f7}{$e5}{$e0}@{CBM-U}{$f8}{$f8}{$f8}{$78}88{CTRL-P}{$00}{CTRL-A}{stop}{stop}{CTRL-B}{dish}{dish}{red}{$e0}{$f0}{$f8}{$f8}h{$e2}{$e2}{$e7}{rght}{blu}{blu}{blu}{grn}{red}{red}{dish}{$f7}~~~{$ef}{CBM-M}{CTRL-G}{CTRL-B}{$00}{$00}{$00}{$00}{SHIFT-*}{$f0}{$fc}~~{$fc}{$f0}{SHIFT-*}{$80}{$80}{$80}{$80}{SHIFT-*}{$f0}{$fc}~QUUQ{$00}{$00}{$00}{$00}{SHIFT-*}{$f0}{$f0}{SHIFT-*}{$00}{$00}@???{red}{stop}{$00}{$00}{$78}{$ec}{f8}\{CBM--}X{$fd}{CTRL-F}{esc}=>{grn}{$00}{$00}{$68}{CBM--}{CBM-C}{CBM-C}{pur}{$82}{$80}{$00}{$80}@1={blu}{blu}{CTRL-O}?{CTRL-A}{$82}{f8}{CBM-C}{$f8}{$f8}{$f0}{$fe}{$7f}{CTRL-O}{blu}{blu}=1a{$80}{$fc}{$f0}{$f8}{$f8}{CBM-C}{f8}{CTRL-B}{CTRL-A}{$00}{$00}{$00}{stop}{blu}{$7f}{$7f}{CTRL-O}{$00}{$00}{$00}{SHIFT-*}{$f8}{$fe}{$fe}{$f0}{CTRL-A}{CTRL-A}{CTRL-O}{home}{CTRL-A}{CTRL-A}{stop}{CTRL-O}{$80}{$80}{$f0}H{$80}{$80}{SHIFT-*}{$f0}{CTRL-A}{stop}{CTRL-A}{CTRL-A}{esc}{$7f}~{$7f}{$80}{SHIFT-*}{$80}{$80}X{$fe}~{$fe}{blu}9{CTRL-A}{CTRL-A}{ensh}{CTRL-G}{stop}{CTRL-G}{$f8}{pur}{$80}{$80}{blk}{$e0}{SHIFT-*}{$e0}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}   90 print"{clr}{gry3}":poke53280,6:poke53281,0
  100 sp$="                                       "
  110 vtb$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  120 goto2110
  130 rem
  140 rn=rn+1:geta$:ifa$=""then140
  150 ky=asc(a$)
  160 rn=rnd(1)*(-997.3/(rn+.1)):return
  170 return
  180 return
  190 rem
  200 return
  210 return
  220 rem
  230 return
  240 print"{rvon}try again{rvof}       ";
  260 print"{rvof}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}                ";
  270 return
  280 gosub320:return
  290 return
  300 rem
  310 return
  320 rem
  330 return
  340 printleft$(vtb$,25)tab(8)"{rvon}hit any key to continue.{up}";
  350 gosub130:print"{rvof}":printsp$"{home}":return
  360 return
  370 gosub220:gosub130
  380 ifky=133thenv=-10:goto490
  390 ifky=13thenv=0:goto420
  400 v=-1:in$=chr$(ky):fori=1town:ifin$=mid$(sn$,i,1)thenv=i
  410 next
  420 return
  430 v=0:gosub220
  440 gosub130
  445 for n=1 to 100:next
  450 ifky=133thenv=-10:goto490
  460 ifky=13then490
  470 ifky<48orky>57thenv=-1:goto490
  480 v=v*10+ky-48:goto440
  490 return
  500 print:w=1
  510 ifwc%(w)=pthen550
  520 w=w+1:ifw<=wnthen510
  530 printleft$(vtb$,av%)mid$(na$,p*6+1,6)" controls no worlds."sp$
  540 gosub340:goto730
  550 printleft$(vtb$,av%)sp$sp$sp$;
  560 printleft$(vtb$,av%)p$mid$(na$,p*6+1,6)" from world:":gosub370
  570 ifv=-10thengosub1420:fortme=1to300:next:onfl+1goto500,730
  580 ifv=0then730
  590 ifv<0orv>wnthen620
  600 ifwc%(v)=pthen630
  610 print:print"{rvon}{up}{up}you don't control that world.{rvof}";
  620 gosub240:printsp$;:fortme=1to300:next:goto550
  630 wr=v:print" to world:";
  640 gosub370
  650 ifv=-10thengosub1420:onfl+1goto500,730
  660 ifv<1orv>wnthen620
  670 wd=v:print"number of ships:{up}";:gosub430
  680 print:ifv=-10thengosub1420:onfl+1goto500,730
  690 print"{up}";:ifv<1then620
  700 ifv>ws%(wr)thenprint"{rvon}{up}you don't have that many ships there.   {rvof}";:goto620
  710 fm=v:gosub740
  720 iff<=50then550
  730 return
  740 f=1
  750 iffc%(f)<>0then780
  760 ws%(wr)=ws%(wr)-fm:fc%(f)=p:fd%(f)=wd:fs%(f)=fm
  770 ft%(f)=t+(sqr((wx%(wr)-wx%(wd))^2+(wy%(wr)-wy%(wd))^2)+.99)/3:goto820
  780 f=f+1:iff<=50then750
  790 print"{clr}this fleet order cancelled."spc(14)"ion storm prevents further ";
  800 print"release of   ships this year.":p%(0)=pn
  810 print:gosub210:gosub340
  820 return
  830 w=fd%(f):de=ws%(w):ak=fs%(f):g1=sqr(rnd(1)*.8+rnd(1)*.2):g2=sqr(1-g1^2)
  840 ak$=mid$(na$,fc%(f)*6+1,6):de$=mid$(na$,wc%(w)*6+1,6)
  850 print"{clr}";:forn=1to6:printtab(6)"{rvon} "tab(31)" ":next:printtab(6)"{rvon}";
  860 printleft$(sp$,26)"{rvof}{home}{down}";
  870 printtab(8)"subspace communication":printtab(15)"world "mid$(sn$,w,1)
  880 gosub210:print:ifwc%(w)<>fc%(f)then910
  890 printtab(12)"reinforcement"left$(vtb$,16)p$"{rvon}"ak$"{rvof} has sent "ak"ships
  900 print"{down}to reinforce his world.":ws%(w)=ak+de:goto1240
  910 printtab(10)"attempted invasion":print"{down}{down}{rvon}"tab(5)"attacker";
  920 printtab(25)"defender{rvof}":print"{down}   "p$tab(23)p$
  930 print"{down}        "ak$tab(28)de$:gosub290
  940 print"{down}initial force:"ak;tab(20)"initial force:"de
  950 print"{down}gunnery factor:"int(g2*100)tab(20)"gunnery factor:"int(g1*100)
  960 print"{down}  ships left: "ak;tab(22)"ships left: "de:ifde<>0then990
  970 printleft$(vtb$,23)"{rvon}attacker wins{rvof} without a fight.
  980 ws%(w)=ak:wc%(w)=fc%(f):goto1240
  990 printleft$(vtb$,21)left$(sp$,24)"defender fires":i=0
 1000 i=i+1:printleft$(vtb$,19)spc(19)"  {down}{left}{left}{CBM-D}{CBM-F}{down}{left}{left}{CBM-C}{CBM-V}{down}{left}{left}  ";:gosub180
 1010 print"{up}{up}{left}{left}  {down}{left}{left}  "
 1020 ifrnd(p)>g1*sqr(ak/(ak+de))then1100
 1030 printleft$(vtb$,19)spc(18)"{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {CBM-D}{CBM-F} {down}{left}{left}{left}{left} {CBM-C}{CBM-V} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}":gosub190
 1040 printleft$(vtb$,19)spc(18)"    {down}{left}{left}{left}{left} {CBM-D}{CBM-F} {down}{left}{left}{left}{left} {CBM-C}{CBM-V} {down}{left}{left}{left}{left}    ":ak=ak-1
 1050 printleft$(vtb$,18)spc(14)"  {left}{left}"str$(ak)"  ":printleft$(vtb$,19);
 1060 printspc(19)"  {down}{left}{left}  "
 1070 ifak<>0then1100
 1080 printleft$(vtb$,21)"   {rvon}defenders{rvof} fight off the aggressors!
 1090 ws%(w)=de:goto1240
 1100 ifi<dethen1000
 1110 printleft$(vtb$,21)" attacker fires"left$(sp$,24):i=0
 1120 i=i+1:printleft$(vtb$,19)spc(19)"  {down}{left}{left}{CBM-D}{CBM-F}{down}{left}{left}{CBM-C}{CBM-V}{down}{left}{left}  ";:gosub170
 1130 print"{up}{up}{left}{left}  {down}{left}{left}  "
 1140 ifrnd(p)>g2*sqr(de/(ak+de))then1220
 1150 printleft$(vtb$,19)spc(18)"{rvon}{SHIFT-POUND}  {CBM-*}{down}{left}{left}{left}{left} {CBM-D}{CBM-F} {down}{left}{left}{left}{left} {CBM-C}{CBM-V} {down}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}":gosub190
 1160 printleft$(vtb$,19)spc(18)"    {down}{left}{left}{left}{left} {CBM-D}{CBM-F} {down}{left}{left}{left}{left} {CBM-C}{CBM-V} {down}{left}{left}{left}{left}    ":de=de-1
 1170 printleft$(vtb$,18)spc(34)"  {left}{left}"str$(de)"  ":printleft$(vtb$,19);
 1180 printspc(19)"  {down}{left}{left}  "
 1190 ifde<>0then1220
 1200 printleft$(vtb$,21)"       {rvon}attackers{rvof} are victorious!":ws%(w)=ak
 1210 wc%(w)=fc%(f):goto1240
 1220 ifi<akthen1120
 1230 goto990
 1240 fc%(f)=0:print:gosub340:return
 1250 forw=1town:ifab=0andwc%(w)=0then1270
 1260 ws%(w)=ws%(w)+wi%(w)
 1270 next:return
 1280 forf=1to50
 1290 iffc%(f)=0then1310
 1300 ifft%(f)=tthengosub830
 1310 next:return
 1320 print"{clr}"tab(11)"results for year";t
 1330 print"{rvon}wrld ctrl prod shps  wrld ctrl prod shs{rvof}"
 1340 forw=1toint(wn/2+.5)
 1350 print" "mid$(sn$,w,1)spc(2)mid$(na$,wc%(w)*6+1,6);:gosub360
 1360 ifwc%(w)>0thenprinttab(10)wi%(w);tab(14)w2%(w);
 1370 print:next
 1380 print:printleft$(vtb$,2):forw=int(wn/2+1.5)town
 1390 printspc(20)"{rvon} {rvof} "mid$(sn$,w,1)tab(25)mid$(na$,wc%(w)*6+1,6);:gosub360
 1400 ifwc%(w)>0thenprinttab(31)wi%(w)tab(34)str$(w2%(w));
 1410 print:next:return
 1420 print"{clr}{down}{down}
 1430 print"{down}g= go back to regular turn
 1440 print"{down}m= starmap":print"{down}t= time/distance calculator
 1470 print"{down}s= save current game
 1480 print"{down}q= quit (you drop out of the game)
 1490 print"{down}e= end the game (for everybody)
 1500 print"{down}c= change number of turns in the game
 1510 gosub130:print:in$=chr$(ky)
 1520 ifin$="g"thent=t-1:gosub1320:t=t+1:goto1810
 1530 ifin$="m"thengosub3760:goto1630
 1540 ifin$="t"then4230:goto1420
 1570 ifin$="s"thenprint"the game will be saved at the end of    this turn.
 1580 ifin$="s"thensf=1:goto1630
 1590 ifin$="q"thengosub1640:goto1420
 1600 ifin$="e"thenfl=0:gosub1700:onfl+1goto1420,1810
 1610 ifin$="c"thengosub1760:goto1420
 1620 print"{clr}i did't get that.":gosub240:print:print:goto1430
 1630 gosub340:goto1420
 1640 gosub1740:ifin$<>"y"then1690
 1650 forf=1to50:iffc%(f)=pthenfc%(f)=0
 1660 next
 1670 forw=1town:ifwc%(w)=pthenwc%(w)=0
 1680 next
 1690 return
 1700 gosub1740:ifin$<>"y"then1730
 1710 fl=1:p%(0)=pn:t=tn
 1720 forf=1to50:fc%(f)=0:next
 1730 return
 1740 print"{down}are you sure?";:gosub130:in$=chr$(ky):print
 1750 return
 1760 print"{clr}"left$(vtb$,9)"{down}this is now game year "t:print
 1770 print"there are "tn" years in the game.":print
 1780 print"how many years do you want in the game"
 1785 input"now";v
 1790 ift>vorv>100thengosub240:goto1760
 1800 tn=v
 1810 return
 1820 printleft$(vtb$,av%)"{rvon}the game is over.{rvof}";:gosub210:print" hit return";
 1830 print" for final  game statistics. hit <f1> to continue  the game. ";
 1840 gosub130:ifky=133thent=tn:gosub1320:goto2100
 1850 ifky=13thenn=0:print"{clr}";:goto1870
 1860 gosub240:goto1820
 1870 forp=1topn:v=0
 1880 forw=1town:ifwc%(w)=pthenv=v+10
 1885 ifwc%(w)=pthenv=v+ws%(w)
 1890 next:ifwc%(p)=pthenv=v+100
 1900 printleft$(vtb$,(20-pn)/2+p)p$mid$(na$,p*6+1,6)" has "v" points."
 1910 ifv>nthenn=v
 1920 next:print
 1930 ifpn=1then2020
 1940 ifpn>10thenprint"{home}":gosub340:print"{clr}goodbye"
 1950 forp=1topn:v=0
 1960 forw=1town:ifwc%(w)=pthenv=v+1
 1970 next
 1980 ifv=nthenprint"congratulations to {rvon}"p$mid$(na$,p*6+1,6)"!{rvof}"
 1990 next
 2000 gosub280
 2010 goto2040
 2020 ifv=wnthenprint"congratulations!":gosub210:goto2040
 2030 print"better luck next time.
 2040 print:print"{down}hit <return> to end it all";:gosub130:print:print
 2050 fori=1to36:printmid$("this is central control signing off.",i,1);
 2060 gosub300:nexti
 2070 fori=1to2000:nexti
 2080 gosub300
 2090 sys64738
 2100 return
 2110 gosub3150
 2120 gosub3180
 2130 gosub3260
 2140 gosub3930
 2150 gosub3320
 2160 print"{clr}"left$(vtb$,10)"do you want to return to an old game(o) ";
 2170 print"or start a new(n) one ?":gosub220:gosub130:print
 2180 ifky=78then2490
 2190 if(ky<>79)then2220
 2200 print"load from disk(d) or tape(t)?":gosub220:gosub130:print
 2210 if(ky=68)or(ky=84)then2230
 2220 gosub240:goto2160
 2230 input"enter the device number ";dn%
 2235 input"name of the old game";og$
 2240 if((dn%=8)and(ky=68))or((dn%=1)and(ky=84))then2280
 2250 print"{down}are you sure? ";
 2260 getky$:ifky$=""then2260
 2270 ifky$="n"then2160
 2280 ifky=84then2360
 2290 print:input"enter the drive number ";dr$
 2300 if(val(dr$)>1)or(val(dr$)<0)then2250
 2310 print"{down}press the 'return' key when the disk is in the drive";
 2320 getky$:ifky$=""then2320
 2330 print:print"{down}loading old game from disk.
 2340 open1,dn%,15:print#1,"i"+dr$:close1:dr$=dr$+":"
 2350 open1,dn%,4,dr$+og$+",seq,read":goto2400
 2360 print:print"insert the tape containing the old game into the recorder,";
 2370 print" rewind it and press  the 'play' button - then hit <return>.
 2380 gosub130:print"{down}now reading tape.
 2390 open1,dn%,0,og$
 2400 input#1,n,v,i,w,f,p,de,ak,g1,g2,pn,wn,ky,rn,t,tn,ab,fm,wd,wr,di,ti%,sf
 2410 input#1,p$,in$,na$,sn$,ak$,de$
 2420 forind=1to40:input#1,ws%(ind),wc%(ind),wx%(ind),wy%(ind),wi%(ind)
 2430 input#1,w2%(ind)
 2440 next
 2450 forind=1to50:input#1,fs%(ind),fd%(ind),fc%(ind),ft%(ind):next
 2460 forind=1to20:input#1,p%(ind):next
 2470 close1:av%=(24+wn/2)/2+1
 2480 w=fre(o):t=t-1:gosub1320:t=t+1:goto2610
 2490 gosub3390
 2500 gosub4060
 2510 gosub3660
 2520 gosub3760
 2530 print"new setup? ";:gosub220:gosub130
 2540 ifky=89thenprint"yes":print"wait while i rearrange the stars";:goto2510
 2550 ifky=78thenprint"no":print"now wait while i set up the game.";:goto2570
 2560 gosub240:printleft$(vtb$,23)sp$left$(vtb$,23);:goto2530
 2570 gosub3860
 2580 gosub4070
 2590 gosub1320
 2600 t=1
 2610 forp=0topn:p%(p)=0:next
 2620 p=int(pn*rnd(pn)+1):ifp%(p)=1then2620
 2630 p%(p)=1:p%(0)=p%(0)+1
 2640 gosub500
 2650 ifp%(0)<pnthen2620
 2660 print"{home}"
 2670 gosub1250
 2680 gosub1280
 2690 forw=1town:w2%(w)=ws%(w):next
 2700 gosub1320
 2710 t=t+1
 2720 ifsf=0then3110
 2730 print"{clr}"left$(vtb$,9)"save game on disk(d) or tape(t)?";:gosub220
 2740 gosub130
 2750 if(ky=68)or(ky=84)then2770
 2760 gosub240:goto2730
 2770 print:input"{down}enter the device number ";dn%:c$=chr$(13)
 2775 input"name of game";og$
 2790 if((dn%=8)and(ky=68))or((dn%=1)and(ky=84))then2830
 2800 print"are you sure ?";
 2810 getky$:ifky$=""then2810
 2820 if ky$="n"then2730
 2830 ifky=68then2880
 2840 sf=0:print"{down}insert a new tape (not the game tape)   into the tape rec";
 2850 print"order, rewind it and   press <play and record> - then hit
 2860 print"<return>.":gosub130
 2870 print"{down}game being saved on tape.":open1,dn%,1,og$:goto2950
 2880 input"{down}enter the drive number ";dr$
 2890 if(val(dr$)>1)or(val(dr$)<0)then2800
 2900 print"{down}press the 'return' key when the disk is in the drive"
 2910 getky$:ifky$=""then2910
 2920 sf=0:print"{down}saving latest game on disk.
 2940 open1,dn%,4,"@"+dr$+":"+og$+",seq,write"
 2950 print#1,n;c$v;c$i;c$w;c$f;c$p;c$de;c$;
 2960 print#1,ak;c$g1;c$g2;c$pn;c$wn;c$ky;c$rn;c$t;c$tn;c$ab;c$fm;c$;
 2970 print#1,wd;c$wr;c$di;c$ti%c$sf;c$p$c$in$c$na$c$sn$c$ak$c$de$c$;
 2980 forind=1to40
 2990 print#1,ws%(ind)c$;wc%(ind)c$;wx%(ind)c$;wy%(ind)c$;wi%(ind)c$;w2%(ind)c$;
 3000 next
 3010 forind=1to50
 3020 print#1,fs%(ind)c$;fd%(ind)c$;fc%(ind)c$;ft%(ind)c$;:next
 3030 forind=1to20:print#1,p%(ind)c$;:next
 3040 close1
 3050 print"{down}game saved.
 3060 ift=tnthenprint"{clr}":goto1820
 3070 print"{down}do you want to continue the game? ";:gosub220:gosub130
 3080 ifky=89thenprint"yes":gosub1320:goto3110
 3090 ifky=78thenprint"no":print"{clr}":goto1870
 3100 print"{clr}":gosub240:printleft$(vtb$,10):goto3070
 3110 ift<=tnthen2610
 3120 gosub1820
 3130 ift=tnthen2610
 3140 end
 3150 print"{clr}"left$(vtb$,12)
 3160 printtab(10);"microcomputer games, inc.
 3161 print"   a division of the avalon hill game co
 3162 print" "
 3163 print" "
 3164 print"                 presents"
 3165 fortq=0to2500:next
 3170 return
 3180 n=0:v=0:i=0:w=0:f=0:p=0:de=0:ak=0:g1=0:g2=0:pn=0:wn=0:ky=0:rn=0
 3190 t=0:tn=0:ab=0:fm=0:wd=0:wr=0:di=0:ti%=0:sf=0
 3200 p$="fleet admiral "
 3210 in$="      "
 3220 na$="comm  "
 3230 sn$="abcdefghijklmnopqrstuvwxyz*#$%&+<=>?()@^"
 3240 ak$="      ":de$="      "
 3250 return
 3260 dimws%(40),wc%(40),wx%(40),wy%(40),wi%(40),w2%(40)
 3270 dimfs%(50),fd%(50),fc%(50),ft%(50)
 3280 dimp%(20)
 3290 forf=1to50:fc%(f)=0:next
 3300 forw=1to40:wc%(w)=0:wi%(w)=0:ws%(w)=0:next
 3310 return
 3320 gosub210:print"{clr}"left$(vtb$,13)tab(13);
 3330 fori=1to14:print"{rvon}"mid$("g a l a x y !",i,1);:gosub170:nexti:print
 3335 fortq=0to2500:next
 3340 printleft$(vtb$,18);"copyright 1981 avalon hill game company."
 3350 print"all rights reserved.  computer program"
 3351 print"    and visual display copyrighted.":print
 3358 fortq=1to3500:next
 3360 gosub290
 3370 fori=1to10:gosub180:nexti
 3380 gosub280:return
 3390 poke198,0:print"{clr}"left$(vtb$,8):input"how many players (1-20)";pn
 3400 ifpn<1orpn>20thengosub240:print"{clr}":goto3390
 3410 pn=int(pn):print
 3420 input"how many worlds (5-40)";wn
 3430 ifwn>pnthen3460
 3440 print"{clr}"left$(vtb$,10)"you must have more stars than players.
 3450 print"(this isn't basketball.)":print:gosub240:goto3390
 3460 ifwn>40thenprintwn"is too many stars.":gosub240:goto3390
 3470 wn=int(wn):av%=(24+wn/2)/2+1:print
 3480 print"how many years (turns) in the game"
 3485 input"(1-100)";tn
 3490 iftn<1ortn>100thengosub240:print"{clr}":printleft$(vtb$,11);:goto3480
 3500 tn=int(tn):print
 3510 print"do you want the neutral worlds to build defensive ships?";:gosub130
 3520 ifky=89thenab=1:print"yes":goto3550
 3530 ifky=78thenab=0:print"no":goto3550
 3540 print:print:gosub240:print"{clr}"left$(vtb$,12);:goto3510
 3550 forp=1topn
 3560 print"{clr}"left$(vtb$,11)p$p" will begin the game in";
 3570 print"control of world:("mid$(sn$,p,1)")
 3580 in$=""
 3590 print"what name will this fleet admiral use   (1 to 6 characters)"
 3595 inputin$
 3600 iflen(in$)<1orlen(in$)>6thengosub240:print"{clr}":goto3560
 3610 in$=in$+"      ":in$=left$(in$,6)
 3620 na$=na$+in$
 3630 next
 3640 print"{clr}"left$(vtb$,13)"please wait while i create the universe.";
 3650 return
 3660 wx%(1)=1+int(rnd(pn)*19)
 3670 wy%(1)=1+int(rnd(pn)*20)
 3680 forw=2town
 3690 wx%(w)=1+int(rnd(pn)*19)
 3700 wy%(w)=1+int(rnd(pn)*20)
 3710 i=1
 3720 if(wx%(w)=wx%(i))and(wy%(w)=wy%(i))then3690
 3730 i=i+1:ifi<wthen3720
 3740 next
 3750 return
 3760 print"{clr}*************** star map **************":print"{home}{down}";
 3770 fori=1to20:print": : : : : : : : : : : : : : : : : : : :":next
 3780 forw=1town
 3790 printleft$(vtb$,wy%(w)+1)spc(wx%(w)*2);
 3800 ifwc%(w)=pthenprint"{rvon}"mid$(sn$,w,1):gosub360:goto3830
 3810 ifwc%(w)=0thenprint"{rvof}"mid$(sn$,w,1):gosub360:goto3830
 3820 print"{rvof}"mid$(sn$,w,1)"{CBM-V}":gosub360
 3830 print:next
 3840 printleft$(vtb$,23);
 3850 return
 3860 forp=1topn:wi%(p)=10:next
 3870 forw=1+pntown
 3880 ifrnd(w)<.25then3910
 3890 wi%(w)=wi%(w)+1
 3900 ifrnd(w)<.67then3890
 3910 next
 3920 return
 3930 restore
 4050 return
 4060 forp=1topn:wc%(p)=p:next:return
 4070 forp=1topn:ws%(p)=12*wn-15*pn
 4080 fori=1topn
 4090 ws%(p)=ws%(p)+300/(sqr((wx%(p)-wx%(i))^2+(wy%(p)-wy%(i))^2)+6):next
 4100 forw=pn+1town
 4110 ws%(p)=ws%(p)-100/(sqr((wx%(p)-wx%(w))^2+(wy%(p)-wy%(w))^2)+3):next
 4120 ifws%(p)<50thenws%(p)=50
 4130 next
 4140 ifpn=1thenw2%(1)=ws%(1):goto4170
 4150 forp=1topn:ws%(0)=ws%(0)+ws%(p):next
 4160 forp=1topn:ws%(p)=ws%(p)*pn*100/ws%(0):w2%(p)=ws%(p):next
 4170 forw=1+pntown
 4180 ws%(w)=ws%(w)+(wi%(w)+2.2)*rnd(w)
 4190 ifrnd(w)<.67then4180
 4200 w2%(w)=ws%(w)
 4210 next
 4220 return
 4230 print"{clr}"
 4240 printtab(8)"{down}time/distance calculator
 4250 printtab(10)"{down}hit <return> to quit.
 4260 printleft$(vtb$,13)sp$sp$sp$left$(vtb$,13)"  from world: ";
 4270 gosub370
 4280 ifv=0then1420
 4290 ifv<1orv>wnthengosub240:goto4260
 4300 wr=v:print"to world: ";:gosub370
 4310 ifv<1orv>wnthengosub240:goto4260
 4320 print:wd=v:di=sqr((wx%(wr)-wx%(wd))^2+(wy%(wr)-wy%(wd))^2):ti%=(di+.99)/3
 4330 di=int(di*100)/100
 4340 print"{down}       distance:       {left}{left}{left}{left}{left}{left}{left}"di" light years    "
 4350 print"    travel time: "ti%" years"
 4360 print"   current turn: "t:print"turn of arrival:    {left}{left}{left}"t+ti%:goto4260
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}          {rvon}galaxy games{down}":printspc(9)"by peter ruetz
    2 print"{down}copyright 1978 commodore business       machines inc. all rights reserved
    3 rem galaxy games: #g1012  v05/06/78
    5 fori=1to1500:next
   10 bz=10000:wz=10000:dimpl$(9),pl%(5,2),pl(5,2)
   12 gosub50000:print"{down}{down}how many players (1 to 5)? ";:gosub60000:iff=0orf>5then12
   14 printf$:pl=f:fori=1topl:print"{down}name of player"i"? ";:gosub63000:pl$(i)=left$(w$,9)
   16 nexti:goto11000
   30 h=0:gosub50000:restore
   31 getf$:iff$<>""then31
   32 print"{home}{down}{down}{down}{down}{down}skill level (1=beginner to 9=expert)? ";:gosub60000:t6=f
   34 iff<1then32
   36 gosub50000:print"{down}{down}there are two types of controls:{down}"
   38 print"{rvon}type 1{rvof} uses the number keys to alter"
   40 print"       the direction of the ship{down}
   42 printspc(10)"M    {SHIFT--}    N":printspc(11)"7   8   9{down}
   43 printspc(10)"{SHIFT-*}4       6{SHIFT-*}{down}":printspc(11)"1   2   3":printspc(10)"N    {SHIFT--}    \{down}
   44 print"{rvon}type 2{rvof} uses the < and > keys to rotate"
   45 print"       the direction of the ship's
   46 print"       travel.  this is more difficult
   48 print"{down}which type of control (1 or 2)? ";:gosub60000
   49 t5=val(f$):ift5<>1andt5<>2then36
   50 gosub50000:print"{down}{down}there are two possible games:{down}{down}"
   51 print"{rvon}game 1{rvof} requires you to shoot several"
   52 print"       stationary targets marked by a {rvon}+{down}{down}"
   53 print"{rvon}game 2{rvof} requires you to shootdown a ship
   54 print"       piloted by a robot gone random
   55 print"{down}which do you want to play (1 or 2)? ";:gosub60000:n5=1:iff=1thenn5=2
   56 print"{left}"f"{down}{down}":iff<>1andf<>2then50
   57 forx=1to8:readb(x):next:data190,238,158,240,188,237,150,253
   58 forz=1to8:reada(z):nextz
   59 data62,110,30,112,60,109,22,125
   60 forx=1to8:readc(x),d(x):nextx
   70 data1,0,1,1,0,1,-1,1,-1,0,-1,-1,0,-1,1,-1
   71 forx=1to9:readg(x),h(x):next
   72 data-1,-1,0,-1,1,-1,-1,0,0,0,1,0,-1,1,0,1,1,1
   75 forx=1to9:readj(x):next
   80 data6,7,8,5,0,1,4,3,2
   85 dd=8
   90 print"do you want instructions (y or n)? ";:gosub 60000:iff$="y"thengosub55000
  100 forx=1to4:readtt:t(x)=tt:t(x+4)=tt:next:data64,78,66,77
  101 print"{clr}"
  150 f=9      :t=9 :de=1
  200 forw=1to5+2.5*t6:x=int(rnd(1)*38+1):y=int(rnd(1)*22+2)
  300 l=32768+40*y+x
  400 ifw>4thenpokel,46
  450 ifn5=2then500
  455 ifw<>1then600
  460 de=int(rnd(1)*8+1):xe=x:ye=y:le=l
  470 pokel,b(de):goto600
  500 ifw>1andw<5thenpokel,171
  600 ifw=5thenpokel,81
  700 nextw:tz=ti
  800 ift5=1thendd=6:pokel,a(j(dd)):yy=h(dd):xx=g(dd):goto1050
  900 d=int(rnd(1)*8+1):pokel,a(d)
 1050 if h>0then1250
 1100 forzz=1to850:next
 1250 print"{home}torps:     ";:ift5<>1thenprint"fuel";
 1275 print:poke32774,t+48:ift5<>1thenpoke32784,f+48
 1300 getd$
 1400 ift5=1andd$<="9"andd$>="1"andd$<>"5"thendd=val(d$):xx=g(dd):yy=h(dd)
 1402 ifd$=" "andt>0thent2=8:poke32768+6,t+47:goto5100
 1403 ifn5=1then33000
 1500 ifti>aa+120andt5=1thenx=x+xx:y=y-yy:d=j(dd):goto2675
 1550 ift5=1then2675
 1900 iff>0andd$=">"thend=d-1:f=f-.2:poke32768+16,f+48:ifd=0thend=8
 2000 iff>0andd$="<"thend=d+1:f=f-.2:poke32768+16,f+48:ifd=9thend=1
 2100 iff<=0then10100
 2650 ifti>aa+120thenx=x+c(d):y=y-d(d)
 2675 ifx>-1andx<40andy>0andy<25then3600
 2685 ifx>-1andx<40andy>0andy<25then3600
 2700 ifx<0then x=39
 2800 ifx>39thenx=0
 2900 ify<1theny=24
 3000 ify>24theny=1
 3600 pokel,32
 4000 l=32768+40*y+x
 4050 ifpeek(l)<>32then 5600
 4100 pokel,a(d):goto1300
 4200 forq=1to2*t2
 4250 ifq=3thenpoke59459,0
 4300 x1=x1+c(d1):y1=y1-d(d1)
 4400 ifx1=-1thenx1=39
 4500 ifx1=40thenx1=0
 4600 ify1=0theny1=24
 4700 ify1=25theny1=1
 4725 ifq>1thenpokej,asc(" ")
 4750 j=32768+40*y1+x1
 4800 ifpeek(j)<>asc(" ")then5200
 4900 pokej,t(d1):nextq
 5000 pokej,asc(" ")
 5050 goto1500
 5100 t=t-1:x1=x:y1=y:d1=d:goto4200
 5200 ifpeek(j)=171thenh=h+1
 5205 ifpeek(j)<>b(de)then5225
 5210 k=1:l1=le:goto6000
 5211 h=h+1:poke32794,h+48:pokej,asc(" "):ifh=1then5300
 5212 xe=int(rnd(1)*40):ye=int(rnd(1)*24+1)
 5213 le=32768+40*ye+xe
 5214 pokele,b(de):goto1300
 5225 ifpeek(j)=asc(".")then1500
 5227 ifpeek(j)=171thenk2=1
 5250 pokej,asc(" "):l1=j:goto6000
 5300 if(h>=1andn5=1)or(h>=3andn5=2)then10000
 5320 goto1900
 5500 fore=1to1500:nexte:goto10100
 5600 ifpeek(l)<>81thenl1=l:goto6000
 5700 f=9:t=9:poke32774,57:ift5<>1thenpoke32784,57
 5800 aa=ti
 5900 x=x+c(d):y=y-d(d):a1=t1+25:goto4000
 6000 ifl1=lorpeek(j)=b(de)thenpokel1,asc(" ")
 6002 ifle=l1ork2=1thenpoke59459,128
 6005 ifl1=lthenpoke59459,32
 6100 fora=1to3:forb=1to8
 6200 if peek(l1-a*(40*d(b)+c(b)))=32thenpokel1-a*(40*d(b)+c(b)),asc(":")
 6300 nextb,a:ifl1=lthenpoke59459,0:goto5500
 6350 poke59459,0
 6355 fora=1to300:next
 6400 fora=1to3:forb=1to8
 6500 ifpeek(l1-a*(40*d(b)+c(b)))<>asc(":")then6800
 6600 pokel1-a*(40*d(b)+c(b)),asc(" ")
 6800 nextb,a:ifk=1thenk=0:goto5211
 6850 goto5300
 6900 goto1900
 10000 tz=int((ti-tz+30)/60):m$="won
 10010 pl%(pn,1)=pl%(pn,1)+1:pl(pn,1)=pl(pn,1)+tz:goto11000
 10100 tz=int((ti-tz+30)/60):m$="lost
 10110 pl%(pn,2)=pl%(pn,2)+1:pl(pn,2)=pl(pn,2)+tz:goto11000
 11000 gosub50000:print"{down}{down}{rvon}  player        wins         losses    "
 11002 print"{rvon}               no   avg     no   avg   "
 11004 print"{rvon}                    time         time  "
 11006 print"{rvon}DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
 11008 deffna(x)=.1*int(10*x)
 11010 fori=1topl:printi;pl$(i)tab(15)pl%(i,1)tab(20);
 11012 x=0:ifpl%(i,1)>0thenx=fna(pl(i,1)/pl%(i,1))
 11014 printxtab(28)pl%(i,2);
 11016 x=0:ifpl%(i,2)>0thenx=fna(pl(i,2)/pl%(i,2))
 11018 printtab(33)x:nexti:printx$
 11020 iflen(m$)thenprint"{down}{down}"pl$(pn)", you {rvon}"m$"{rvof} that game":print"in"tz"seconds
 11030 print"{down}{down}{down}which player is next (1 -"pl"{left})? ";
 11032 gosub60000:iff=0orf>plthen11032
 11040 pn=f:goto30
 13600 ifpeek(32768+40*(ye-d(de))+(xe+c(de)))<>32thende=de+1:ifde=9thende=1
 13630 xe=xe+c(de):ye=ye-d(de)
 13700 ifxe=-1thenxe=39
 13800 ifxe=40thenxe=0
 13900 ifye=0thenye=24
 14000 ifye=25thenye=1
 14050 ifpeek(32768+40*ye+xe)<>32thenl1=le:goto6000
 14100 return
 14500 nextq
 33000 ifrnd(1)>.9thende=de-1:ifde=0thende=8
 33100 ifrnd(1)>.9thende=de+1:ifde=9thende=1
 33150 ifrnd(1)<.925then33200
 33175 t2=4:x1=xe:y1=ye:d1=de:goto4200
 33200 pokele,asc(" "):gosub13600
 33300 le=32768+40*ye+xe
 33750 pokele,b(de):goto1500
 50000 print"{clr}             {rvon}galaxy game":print"{down}      a space battle simulation"
 50001 return
 55000 gosub50000:ifn5=2then56000
 55010 print"{down}{down}you have to shoot down the ship
 55020 print"flown by the random robot ({rvon}^{rvof})
 55090 gosub59200:ont5gosub59000,59100
 55100 return
 56000 print"{down}{down}you have to hit the three":print"stationary targets {rvon}+{rvof}"
 56010 gosub59200:ont5gosub59000,59100
 56020 return
 59000 gosub50000:print"{down}{down}control your ship's course by
 59030 printspc(9)"{down}{CBM-A}     ^     {CBM-S}"
 59032 printspc(10)"M    {SHIFT--}    N":printspc(11)"7   8   9{down}
 59034 printspc(9)"<{SHIFT-*}4       6{SHIFT-*}>{down}":printspc(11)"1   2   3"
 59036 printspc(10)"N    {SHIFT--}    M":printspc(9)"{CBM-Z}     v     {CBM-X}":goto59190
 59100 gosub50000:print"{down}{down}control your ship's course with < and >
 59120 print"{down}each time a < or > key is pressed
 59130 print"the course is rotated 45 degrees
 59132 print"counter-{$a0}or clockwise respectively
 59150 print"{down}{down}watch your fuel: run out and you lose!
 59190 print"{down}to fire a torpedo press the {rvon}space{rvof} key":gosub60100:return
 59200 print"{down}your ship is one of: ^ {CBM-S} > {CBM-X} v {CBM-Z} < {CBM-A}
 59230 print"{down}if you hit a star (.) you will be
 59240 print"destroyed.  dock with a starbase (Q)
 59250 print"to replenish torps and fuel":gosub60100:return
 60000 f0$="{CBM-+}":f1$=" "
 60010 printf0$"{left}";:foriz=1to100:getf$:iff$=""thennext:f$=f1$:f1$=f0$:f0$=f$:goto60010
 60020 f=val(f$):iz=100:next:return
 60100 print"{down}{down}    press return to continue ... ";:gosub60000:return
 63000 w$="":
 63010 gosub60000:iff$=chr$(13)thenprint" ":return
 63020 if"a"<=f$andf$<="z"thenprintf$;:w$=w$+f$
 63030 iff$<>"{del}"orlen(w$)=0then63010
 63040 printf$;:iflen(w$)=1then63000
 63042 w$=left$(w$,len(w$)-1):goto63010
 63999 end:rem"end of galaxy games
    0 clr:poke59468,12:pk=12
    1 rem lines 580-1450,5000-5900,10000-10570,62100-65000 (c) 1979 glen fisher
    2 rem lines 100-579,1500-4999,5900-9999 (c) 1979 david malmberg
    3 rem cursor #9, april, 1979
    4 rem box 550, goleta, ca. 93017
    5 :
   10 rem as of dec 22 79
   50 rem tt controls the game difficulty
   90 pg$="gammon":nm$="9":gosub62000
  100 dimb(27),d(4),da$(3),di$(6),us(4),p(24),pr(6),m$(5)
  105 z=rnd(-ti)
  110 bk$="                                       "
  120 m$(1)="hit your blot at ":m$(2)="covered my blot at ":m$(3)="moved to "
  130 m$(5)="moved blot to safety at ":m$(4)="can't make move"
  140 m$(0)="bearing off from ":fr$=" from "
  150 a$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":da$(1)="Q":da$(2)=" ":da$(3)="W":er$=a$+"{down}"
  160 aa$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":al$="xwvutsrqponmlkjihgfedcba"
  200 fori=1to12:readp(i):next
  210 data.31,.33,.39,.42,.42,.47,.17,.17,.14,.08,.06,.08
  220 fori=0to6:readpr(i):next
  230 data0,.03,.11,.25,.44,.69,1
  240 e$="U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{left}{down}{SHIFT--}{left}{down}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{left}{left}{left}{left}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{left}{left}{left}{left}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}"
  250 di$(0)="   {down}{left}{left}{left}   {down}{left}{left}{left}   "
  260 di$(1)="   {down}{left}{left}{left} Q {down}{left}{left}{left}   "
  270 di$(2)="Q  {down}{left}{left}{left}   {down}{left}{left}{left}  Q"
  280 di$(3)="Q  {down}{left}{left}{left} Q {down}{left}{left}{left}  Q"
  290 di$(4)="Q Q{down}{left}{left}{left}   {down}{left}{left}{left}Q Q"
  300 di$(5)="Q Q{down}{left}{left}{left} Q {down}{left}{left}{left}Q Q"
  310 di$(6)="QQQ{down}{left}{left}{left}   {down}{left}{left}{left}QQQ"
  320 cm=24:f=6:s=0:hm=24:hb=0:cb=0:xc=0:xh=0:tt=.5
  330 print"{clr}":a=tt:ifrnd(1)<.5thenf=1
  400 gosub5000:gosub5400
  410 d(1)=int(rnd(1)*6+1):d(2)=int(rnd(1)*6+1):ifd(1)=d(2)then410
  430 np=1:gosub5600
  440 printaa$;"{down}your":print"roll"
  450 printa$;:ifd(2)>d(1)thennp=-1:print"you";
  460 ifd(2)<d(1)thennp=1:print"i";
  470 print" go first!"
  480 forl=1to4000:next:tu=2:goto550
  500 d(1)=0:d(2)=0:gosub5600
  510 tu=2:d(1)=int(rnd(1)*6+1):d(2)=int(rnd(1)*6+1):d(3)=d(1)+d(2)
  520 ifd(1)=d(2)thend(3)=d(1):d(4)=d(1):tu=4
  550 gosub5600:gosub5500
  560 mv=0:y=0:fori=1totu:y=y+d(i):us(i)=0:next:ifnp=1then1500
  570 xh=xh+y:in$=""
  580 i=1:goto595
  590 in$="":forj=1to1000:nextj
  595 iflen(in$)>2thenin$=mid$(in$,2):goto605
  600 gosub5500:print"move";i;"? ";:gosub60000:print:printer$;:ifin$=""then1000
  605 iflen(in$)>1then630
  610 ifin$>="a"andin$<="f"thenin$="*"+in$
  615 ifin$>="s"andin$<="x"thenin$=in$+"-"
  620 iflen(in$)>1then630
  625 print"bad move.":goto590
  630 iflen(in$)>3then625
  640 ifmid$(in$,2,1)=","thenin$=left$(in$,1)+mid$(in$,3):goto640
  645 f$=left$(in$,1)
  650 iff$>="a"andf$<="x"thenfm=89-asc(f$):goto660
  655 fm=25:iff$<>"*"andf$<>"-"then625
  660 t$=mid$(in$,2,1)
  665 ift$="*"ort$="-"thentm=0:goto680
  670 ift$<"a"ort$>"x"then625
  675 tm=89-asc(t$):n=0:m=fm-tm:k=1:l=0
  680 iffm=25andb(25)=0thenprint"you have no men on the bar.":goto590
  685 iffm<tmthenprint"wrong direction.":goto590
  687 ifb(25)<0andfm<>25thenprint"you have men on the bar.":goto590
  690 ifb(fm)>=0thenprint"you have no men on ";f$;".":goto590
  692 iftm=0then900
  695 l=0:forj=1totu:ifus(j)thenk=k+1:goto710
  700 l=l+1:n=n+d(j):ifn=mthen715
  705 ifd(j)=mthenk=j:l=1:goto715
  710 nextj:print"you can't move";m;"{left}.":goto590
  715 ifb(tm)>1thenprint"point ";t$;" is blocked.":goto590
  720 ifl=1thengosub10000:us(k)=1:goto1400
  721 if b(25)<-1 then print"you have men on the bar.":goto 590
  725 iftu=4then800
  730 ifb(fm-d(1))<=1thenm=1:goto745
  735 ifb(fm-d(2))<=1thenm=2:goto745
  740 print"the path is blocked.":goto590
  745 n=tm:tm=fm-d(m):gosub10000:fm=tm:tm=n::gosub10000:i=i+1
  750 goto1400
  800 forn=1tol
  810 ifb(fm-d(1)*n)>1then740
  820 nextn
  830 forn=ktoj
  840 tm=fm-d(n):us(n)=1:gosub10000
  850 i=i+1:fm=tm:nextn
  860 i=i-1:goto1400
  866 nextk
  900 tm=26:forj=1totu:ifus(j)=0andfm=d(j)thengosub10000:us(j)=1:goto1400
  905 nextj
  910 forj=7to25:ifb(j)<0thenprint"you can't bear off now.":goto590
  912 nextj
  915 iffm=6then935
  920 forj=6tofm+1step-1
  925 ifb(j)<0thenprint"you can't bear off from ";f$;".":goto590
  930 nextj
  935 k=0:d(k)=0:forj=1totu:ifus(j)=0andd(j)>fmandd(j)>d(k)thenk=j
  940 nextj
  945 ifk=0thenprint"you can't move";fm;"{left}.":goto590
  950 print"assuming use of";d(k);"{left}.":us(k)=1
  955 gosub10000:goto1400
 1000 ifb(25)>=0then1050
 1010 forj=1to6
 1020 ifj=d(tu)andus(tu)=0andb(25-j)<2then1390
 1030 ifj=d(tu-1)andus(tu-1)=0andb(25-j)<2then1390
 1040 nextj:goto1410
 1050 forj=24to2step-1
 1060 ifb(j)>=0then1090
 1070 ifj-d(tu-1)>0thenifus(tu-1)=0andb(j-d(tu-1))<2then1390
 1080 ifj-d(tu)>0thenifus(tu)=0andb(j-d(tu))<2then1390
 1090 nextj
 1095 forj=24to7step-1:ifb(j)<0then1410
 1096 nextj
 1100 ifus(tu)=0andb(d(tu))<0then1390
 1110 ifus(tu-1)=0andb(d(tu-1))<0then1390
 1120 ifus(tu)thend=d(tu-1):goto1130
 1125 d=d(tu):ifus(tu-1)=0andd<d(tu-1)thend=d(tu-1)
 1130 ifd=6then1390
 1140 forj=6tod+1:ifb(j)<0then1390
 1150 nextj:goto1410
 1390 print"you can too move!":goto590
 1400 i=i+1:ifi<=tuthen595
 1410 np=1:goto9000
 1500 mo=0:b9=0
 1510 xc=xc+y
 1520 k=0
 1530 k=k+1:ifb(0)=0ork>tuthen1600
 1540 ifb(d(k))<>-1then1530
 1550 us(k)=1:mo=mo+1
 1560 fm=0:tm=d(k):gosub10000
 1565 print"off bar and hit blot at ";mid$(al$,tm,1)
 1570 goto1530
 1600 k=0
 1610 k=k+1:ifb(0)=0ork>tuthen1670
 1620 ifb(d(k))<0orus(k)>0then1610
 1630 us(k)=1:mo=mo+1
 1640 fm=0:tm=d(k):gosub10000
 1650 print"off bar to ";mid$(al$,tm,1)
 1660 goto1610
 1670 ifb(0)=0andmo<tuthen1700
 1680 ifmo<tuthenprint"can't get off bar"
 1690 goto4000
 1700 ifcm>6then2020
 1720 forj=1totu:l=25-d(j):ifb(l)<1then1800
 1740 fm=l:tm=27:gosub10000:printm$(0);mid$(al$,l,1):mo=mo+1:goto1990
 1800 k=6
 1805 y=25-k:ifb(l-k)<1orb(y)<-1then1820
 1807 ifb(y)=-1thenb(y)=0
 1810 fm=l-k:tm=y:gosub10000
 1815 printm$(3);mid$(al$,y,1);fr$;mid$(al$,fm,1):goto1990
 1820 ifk>1thenk=k-1:goto1805
 1900 k=1
 1905 ifl+k>24then1925
 1910 ifb(l+k)<1then1925
 1918 mo=mo+1:fm=l+k:tm=27:gosub10000
 1920 printm$(0);mid$(al$,fm,1);" with roll of";d(j):goto1990
 1925 ifk<6thenk=k+1:goto1905
 1990 ifb(27)=15then9000
 1992 iftu=mothen4000
 1995 nextj
 1999 goto4000
 2020 iftu=mothen4000
 2035 iftu-mo<2then2200
 2040 ifhb=0then2200
 2050 j=1
 2060 ifb(j)<>-1then2180
 2061 j1=j-d(1):j2=j-d(2):ifj1<1orj2<1then2180
 2064 ifd(1)=d(2)andb(j1)=1then2180
 2065 ifb(j1)<1orb(j2)<1then2180
 2070 iftu=4then2080
 2071 ifj1>18andb(j1)=2then2180
 2072 ifj2>18andb(j2)=2then2180
 2080 mv=mv-1:tm=j:fm=j1:gosub10000:fm=j2:gosub10000
 2088 printm$(1);mid$(al$,j,1);fr$;
 2090 printmid$(al$,j1,1);" and ";mid$(al$,j2,1):mo=mo+2:hb=hb-1
 2100 iftu=4thenus(3)=1:us(4)=1
 2170 goto2020
 2180 ifj<24thenj=j+1:goto2060
 2200 try=0:y=1
 2210 ifus(y)=1then3500
 2220 gosub8220
 2601 ify<>1ormo<>0ortu=4orbm=4then2609
 2602 s1=bs:f1=fm:m1=bm:y=2:gosub8220
 2603 s2=bs:f2=fm:m2=bm:y=3:g=1:gosub8220
 2604 g=0:ifbs>s1+s2theny=tm:tm=fm+d(y):goto2609
 2605 ifs2>s1thenfm=f2:y=2:tm=f2+d(y):bm=m2:goto2609
 2606 fm=f1:y=1:tm=f1+d(y):bm=m1
 2609 ifbm<>4then3000
 2610 iff<>1thenf=1:goto2220
 2612 iftry<tu+4then3500
 2613 forj=1to18:ifb(j)>0orb9thenprintm$(4);:goto4000
 2614 nextj:b9=1:goto1720
 2615 goto3500
 3000 ifbm=1thenhb=hb-1
 3010 mo=mo+1:us(y)=1:ifhm<24-cmthenbm=3:a=0
 3015 gosub10000
 3020 printm$(bm);mid$(al$,tm,1);fr$;mid$(al$,fm,1)
 3030 ifmo=tuthen4000
 3500 y=y+1:ify>tutheny=1
 3510 goto2210
 4000 np=-1:printaa$;"{down}press":print"{rvon}return":print"to roll"
 4110 getx$:ifx$=""then4110
 4120 gosub5500
 4130 goto9000
 4501 printm$(mn);mid$(al$,tm,1);
 5000 print"{clr}";:h=8:l$="{rvon} {rvof} ":m$="{rvon}   {rvof} ":r$="{rvon} {rvof}"
 5012 printtab(8);"{rvon}  a b c d e f  *  g h i j k l  ":x$="{SHIFT--}   "
 5013 fori=1toh
 5014 printtab(8);l$;x$;x$;x$;m$;x$;x$;x$;r$
 5015 nexti
 5017 fori=1to2:printtab(8);"{rvon} {rvof}             {rvon}   {rvof}             {rvon} {rvof}":nexti
 5020 x$="  {SHIFT--} ":fori=1toh
 5021 printtab(8);l$;x$;x$;x$;m$;x$;x$;x$;r$
 5022 nexti
 5050 printtab(8);"{rvon}  x w v u t s     r q p o n m  "
 5100 return
 5300 printright$(" "+str$(13-i),2);"{CBM-+}";tab(21);"{CBM-+}";mid$(str$(i+12),2):return
 5400 fori=0to25:b(i)=0:nexti:b(26)=-15:b(27)=15
 5410 b(1)=2:b(6)=-5:b(8)=-3:b(12)=5
 5420 b(13)=-5:b(17)=3:b(19)=5:b(24)=-2
 5430 fori=1to24:n=b(i):tm=i:fm=27+(n<0)
 5440 b(i)=0:ifn<>0thenforj=1toabs(n):gosub10000:nextj
 5470 nexti
 5500 printaa$;
 5510 forl=1to6:print"        ":nextl
 5550 printa$;:forl=1to4:printbk$:next:printa$;
 5560 return
 5600 print"{home}";mid$("your my ",3+np+np,4):print"roll"
 5610 print"{down}";e$;di$(d(1));"{down}{down}{down}{left}{left}{left}{left}";e$;di$(d(2))
 5620 return
 6000 pp=0:j6=24:ifk<13thenj6=k+12
 6005 fori=ktoj6:ifb(i)<0thenpp=pp+p(i-k)
 6010 nexti:ifk>14thenpp=pp+p(25-k)*2
 6030 return
 7000 ms=3:cs=0
 7010 q4=8*pr(bh)*(1+pr(bh))
 7020 q5=8*pr(bc)*(1+pr(bc))
 7025 k=p5:gosub6000:cz=pp*(p5+q4)*a
 7030 k=p5+rl:gosub6000:pz=pp
 7040 cw=pz*(p5+rl+q4)*a
 7060 ifb(p5)=2thencs=cs-cz
 7070 ifb(p5)=1andb(k)>0thencs=cs+cz:ms=5
 7080 ifb(k)=-1thencs=cs+25-k+q5:ms=1:ifk>18thencs=cs-4
 7090 ifb(k)<>1then7100
 7091 cs=cs+cw:ifb(p5)>2thenms=2
 7092 goto7300
 7100 sm=0:j=20:nn=k+r1:ifnn<20thenj=nn
 7110 fori=ktoj:ifb(i)=-1thensm=sm+p(i-k)*(25-i)
 7120 nexti:cs=cs-cw+(1-pz)*sm
 7300 return
 8220 bs=-999:bm=4:fm=0:tm=0:try=try+1
 8230 forl=24to1step-1:ifb(l)<1then8600
 8240 rl=d(y):r=l+rl:ifr>24then8600
 8245 ifr<fandb(r)<>-1then8600
 8250 ifb(r)<-1then8600
 8255 ifg<>1then8270
 8256 q=0:l1=l+d(1):l2=l+d(2):ifb(l1)>-2thenq=1
 8257 ifb(l2)>-2thenq=2
 8258 ifq=0then8600
 8270 p5=l:gosub7000
 8271 ifg<>1then8279
 8272 ms=3:ifb(l1)=-1thenq=1:cs=cs+25-l1:ms=1
 8273 ifb(l2)=-1thenq=2:cs=cs+25-l2:ms=1
 8275 k=q
 8279 ifcs<bsthen8600
 8280 bs=cs:fm=l:tm=k:bm=ms
 8600 nextl:return
 9000 ifb(26)=-15thenx$="you":x=cp:goto9500
 9010 ifb(27)=15thenx$="i":x=hp:goto9500
 9020 hm=0:cm=0:jm=0:hp=0:cp=0:hb=0:cb=0:bc=0:bh=0
 9030 fori=0to25
 9040 ifb(i)<0thenhp=hp-b(i)*i:hm=i
 9050 ifb(i)>0thencp=cp+b(i)*(25-i):jm=25-i
 9060 ifjm>cmthencm=jm
 9070 ifb(i)=-1thenhb=hb+1
 9080 ifb(i)=+1thencb=cb+1
 9090 ifi<7andb(i)<-1thenbh=bh+1
 9100 ifi>18andb(i)>1thenbc=bc+1
 9110 next
 9120 xx=cp:ifhp<xxthenxx=hp
 9130 y=(cp-hp)/xx:ify>.2thens=1:f=6:a=.1
 9140 ify<-.1thens=0:f=1:a=tt
 9150 ifs=1andhm<6thenf=hm
 9160 goto500
 9500 gosub5550:printa$;x$;" won by";x;"points."
 9510 print"total points rolled";xh;"Q";xc;"W":print"want to play again? ";
 9520 gosub60000:ifleft$(in$,1)="y"then320
 9530 end
 10000 pt=fm:gosub10500:p=sgn(b(fm)):gosub10500:b(fm)=b(fm)-p
 10004 iffm=25orfm=0thenprint"{rvon} ":goto10010
 10005 iffm<26thenprintmid$("{$a0}{SHIFT--}",2+((1andpt)=1orabs(b(pt))>8),1)
 10010 ifb(tm)<>-pthen10020
 10015 pt=-25*(p>0):b(pt)=b(pt)-p:gosub10500:print"{rvon}";da$(2+p):b(tm)=0
 10020 b(tm)=b(tm)+p:pt=tm:iftm<26thengosub10500:printda$(2+p)
 10025 printa$;"{up}{up}";left$("{rvof}{down}{down}{down}{down}{down}",mv+2):mv=mv+1
 10030 return
 10500 ifpt>25thenreturn
 10505 ifpt=0orpt=25then10550
 10510 vt=abs(b(pt)):ifpt<13thenvt=19-vt
 10520 tb=abs(12.5-pt)*2+1:iftb>12thentb=tb+4
 10525 tb=30-tb
 10530 goto10570
 10550 vt=-b(pt):ifvt<0thenvt=19+vt
 10560 tb=15
 10570 print"{home}":printleft$("{rvof}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",vt);tab(tb+8);:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #9  gammon"
 62002 print"{down}copyright (c) 1979  by david malmberg
 62004 gosub 60500
 62010 print"{down}the game of backgammon"
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 ifleft$(in$,1)="y"then62100
 62040 print"{clr}";:poke59468,pk:clr:goto100
 62100 lp=7:gosub60200
 62105 gosub 60500
 62110 print"what follows is a brief description of
 62120 print"backgammon. the full set of rules is
 62130 print"too complex to give here, but can be
 62140 print"found in any book on the game.
 62150 print"{down}backgammon is basically a race game,
 62160 print"where you try to get all your pieces
 62170 print"off the board before your opponet gets
 62180 print"his off. there are two complications:
 62190 print"the two of you are going in opposite
 62200 print"directions; and pieces may be forced to
 62210 print"start the trip all over again.
 62220 print"{down}the backgammon board has 24 'points',
 62230 print"on which the pieces move, and a 'bar',
 62240 print"where pieces wait to get on the board
 62250 print"after having been sent back to the
 62260 print"beginning.
 62265 gosub 60500
 62270 gosub60200
 62275 gosub 60500
 62280 print"on your turn, you roll the dice, and
 62290 print"move your pieces according to what
 62300 print"comes up. each die counts separately
 62305 print"(doubles count as four separate dice);
 62310 print"a piece can't move more than six points
 62320 print"with a single die. however, it may be
 62330 print"moved more than once in a single turn.
 62340 print"for example, if 5,2 is rolled, either
 62350 print"two pieces can be moved (one 5, and the
 62360 print"other 2), or one piece may be moved 7,
 62370 print"first 5 then 2, or first 2 then 5. note
 62380 print"that it does not move all 7 at once!
 62390 print"{down}for the move to be made, the piece must
 62400 print"be able to land on the point it can
 62410 print"reach. if the point is occupied by two
 62420 print"or more of your opponent's pieces, your
 62430 print"piece cannot land there. if it has any
 62435 gosub 60500
 62436 gosub60200
 62437 gosub 60500
 62440 print"of your pieces, or is empty, your piece
 62450 print"can land there.
 62470 print"if your opponent has a 'blot' (a lone
 62480 print"piece) on the point, your piece can
 62490 print"land there, and your opponent's piece
 62500 print"is sent to the bar to start the trip
 62510 print"again.
 62520 print"{down}if you have any pieces on the bar, you
 62530 print"can't move anything until you get all
 62540 print"of them off the bar. to remove a piece
 62550 print"from the bar, you move it to one of the
 62560 print"six points on your opponent's 'inner
 62570 print"table'. those six points are numbered 1
 62580 print"to 6, counting from the side of the
 62590 print"board. the only points you can move
 62600 print"onto are those whose numbers appear on
 62605 gosub 60500
 62606 gosub 60200
 62607 gosub 60500
 62610 print"the dice. all the rules on moving also
 62620 print"apply to entering pieces from the bar.
 62640 print"{down}when you have all your pieces in your
 62650 print"inner table, you can start 'bearing
 62660 print"them off', or removing them from the
 62670 print"board permanently. this is exactly like
 62680 print"moving to imaginary points beyond the
 62690 print"end of the board, with one difference:
 62700 print"if you roll a number, and have nothing
 62710 print"on that point or higher, you can bear
 62720 print"off from the highest point you do have
 62730 print"pieces on. for example, if you have
 62740 print"the 1, 2, and 4 points occupied, and
 62750 print"one die is a 5, you can bear off from
 62760 print"the 4 point instead.
 62765 gosub 60500
 62766 gosub 60200
 62767 gosub 60500
 62770 print"the winner of the game is whichever
 62780 print"player manages to bear off all his/her
 62790 print"pieces first.
 62810 print"{down}in this program, the points are let-
 62820 print"tered from a to x, with you moving from
 62830 print"a to x, and the pet from x to a. your
 62840 print"pieces come off the bar onto points a
 62850 print"(with 1) through f (with 6). the pet's
 62860 print"pieces come onto x (with 1) through s
 62870 print"(with 6). the bar is indicated by a
 62880 print"move from '*', and bearing off by a
 62890 print"move to '-'.
 62900 print"{down}to enter your move, type the letter of
 62910 print"the point the move starts at, followed
 62920 print"by the letter of the point the move
 62930 print"ends on. the move may be more than 6
 62940 print"points long; if it is, the pet will
 62945 gosub 60500
 62946 gosub 60200
 62947 gosub 60500
 62950 print"choose stoppong points on the way. to
 62960 print"choose your own stopping points, type
 62970 print"a string of letters, as cgh (move from
 62980 print"c to g, and then from g to h).
 63000 print"{down}to bring a piece off the bar, type '*',
 63010 print"followed by the letter of the point to
 63020 print"come onto, as *c. to bear off, move
 63030 print"to '-', as t-. note that the pet can't
 63040 print"figure out stopping points when bearing
 63050 print"off, so the move bearing off must be
 63060 print"a single die's move; to bear off from t
 63070 print"with a roll of 4,1, you would have to
 63080 print"type tu- or tx-; t- won't be accepted.
 63090 print"{down}if you have pieces on the bar, and you
 63100 print"type only a single letter, the pet will
 63110 print"assume you want to come off the bar to
 63120 print"there. similarly, if you have no pieces
 63125 gosub 60500
 63126 gosub 60200
 63127 gosub 60500
 63130 print"on the bar, and type a single letter
 63140 print"from s to x, the pet will assume you
 63150 print"want to bear off from there.
 63170 print"note that these assumptions are made
 63180 print"only{$a0}when just one single letter is
 63190 print"typed; if you want to move from r to x
 63200 print"and then bear off, you must type rx-,
 63210 print"and not just rx, since two or more
 63220 print"letters are assumed to tell both ends
 63230 print"of the move.
 63240 print"{down}finally, if you can't make any move at
 63250 print"all, just press {rvon}return{rvof}.
 63255 gosub 60500
 63260 gosub60200
    1 rem* ganzenschieten d.w. engelfriet *
    2 rem**** laatste update:30-9-1980 ****
    3 rem*3063 as rotterdam-tel:010-332530*
    4 rem**********************************
    5 print"{clr}":gosub24
    6 n=826:fora=0to7:poken,1:poke(n+8),39:poke(n+24),0:poke(n+16),3:n=n+1:next:n=634:poke697,4
    7 p=4:gosub23:n=762:poke825,160:p=175:gosub23
    8 n=698:fort=0to63:a=b:b=c:c=d:d=e:e=f:f=g
    9 g=1+int(rnd(1)*8)
   10 ifg=aorg=borg=corg=dorg=eorg=fgoto9
   11 poke(n+t),g:nextt
   12 print"   voor start: druk op de '{rvon}0{rvof}' toets!"
   13 print"{down}   voor stop:  druk op de '{rvon}e{rvof}' toets!"
   14 fora=0to9:getb$:nexta
   15 geta$:ifa$="0"then18
   16 ifa$="e"thenprint"{home}";:end
   17 goto15
   18 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(18);"M{SHIFT--}N"
   19 printtab(6);"000 ganzen   {CBM-+}":printtab(18)"{CBM-+} {CBM-+}":printtab(6)"000 kogels {CBM-+}   {CBM-+} score 000";
   20 sys(2271):sc=100*peek(33757)+10*peek(33758)+peek(33759)-5328
   21 ifhs<scthenhs=sc
   22 print"{clr}"tab(8)"{down}{down}{down}{down}{down}{down}{down}{down}{down}hoogste score is";hs:fori=1to2500:next:gosub24:goto6
   23 fort=0to62:poke(n+t),(1+int(rnd(1)*p)):next:return
   24 print"{clr}"tab(11)"{rvon}ganzen-schieten{rvof}":printtab(12)"{down}dwe-produktie"
   25 print"{down}probeer met het onderaan opgestelde ka- {down}non, zoveel mogelijk ganzen te";
   26 print" raken.":print"{down}doe dat met de toetsen: {down}{CBM-A}{down}M {SHIFT--}{up}{left}^  {CBM-S}{down}{left}{left}N":printtab(25)"{rvon}1{rvof} {rvon}2{rvof} {rvon}3{rvof}"
   27 print"{down}{rght}{rght}{rvon}1{rvof} = naar links.     {rvon}3{rvof} = naar rechts.{down}"
   28 printtab(10)"{rvon}2{rvof} = recht omhoog."
   29 print"{down}   {rvon}u krijgt 200 ganzen en 200 kogels{rvof}"
   30 printtab(8)"{down}12 seconden geduld aub!":printtab(8)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":return
    0 clr:poke59468,12
    1 rem gauss! copyright (c) 1979 glen fisher
    4 :
    5 rem cursor #12, july, 1979
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of aug 11 1979
   90 pg$="gauss!":nm$="12":gosub62000
  100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}just a moment{rvof}
  102 c=28:ud=0:rn=0:sc=0:mx=0:rt=0
  105 o=0:p=0
  110 crt=32768:dy=5184000
  115 ct=59467:tn=59466:pc=59464
  120 iv=216:sd=0
  130 pd$="   {rvof}"
  150 dimn(25),p$(25),gr$(48),pc$(100),nt(25)
  160 bl=81
  200 fori=2to24:readnt(i):nexti
  205 data64,68,72,76,81,85,91,96,102,108,114,121,128,136
  210 data144,152,161,171,181,192,203,215,228,242
  250 n(2)=100
  260 fori=4to24step2:n=0
  270 forj=2toi-2step2
  280 t=n(j)/2:n(j)=n+t:n=t
  290 nextj:n(i)=n:nexti
  295 print"{clr}
  300 fori=2to24step2:n=n(i):gosub5200:p$(i)=mid$(n$,2):n(i)=0:nexti
  310 forn=1to6
  320 l$=mid$("     ",n):r$=left$("{rvon}     ",n):i=n*8-8
  330 forj=1to8:gr$(i+j)=l$+mid$("{rvof}{CBM-M}{rvof}{CBM-N}{rvof}{CBM-L}{rvon}{CBM-K}{rvon}{CBM-J}{rvon}{CBM-H}{rvon}{CBM-G}{rvon} ",j+j-1,2)+r$:nextj
  340 nextn
  350 gr$(0)="      "
  500 mx=0
  900 print"{home}";
  950 printtab(c);"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{left}{down}{SHIFT--}
 1000 fori=1to5:gosub5000:gosub5100:nexti
 1005 print"{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1010 i=6:gosub5000
 1015 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}"
 1020 fori=5to1step-1:gosub5100:gosub5000:nexti
 1030 printtab(c);"      {SHIFT--}":printtab(c);"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{home}"
 1100 ti$="000000"
 1200 print"{home}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1205 print"{SHIFT--}   {SHIFT--}        {SHIFT--}
 1210 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 1215 print"{SHIFT--}            {SHIFT--}
 1220 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
 1900 tm=ti
 2000 ifexthenprint"{home}{down}{down}{down}":end
 2005 ifti<tmthen2005
 2010 tm=tm+iv:t$=ti$:iftm>=dythentm=tm-dy:nd=nd+1
 2015 print"{home}{down}{rght}";right$(" "+str$(nd),3);
 2020 print"{rght}";left$(t$,2);":";mid$(t$,3,2);":";right$(t$,2)
 2030 b=b+1:print"{home}{down}{down}{down}{rght}ball";b
 2040 p=12*40+crt:ud=0:rt=1
 2050 r=13:o=32
 2100 pokep,o
 2110 p=p+ud+rt:r=r+rc:ud=0:rc=0
 2120 o=peek(p):pokep,bl
 2130 ifo=32then2200
 2135 nt=nt(r):gosub2900
 2140 ifo<>64thenpokep,o:goto2500
 2150 ud=40:rc=1:ifrnd(1)>.5thenud=-40:rc=-1
 2200 gosub2910
 2210 goto2100
 2220 fori=1todl:next
 2500 er=0:n(r)=n(r)+1
 2510 ifn(r)>mxthenmx=n(r):sc=48/mx:rn=mx/(mx+1)
 2520 gett$:ift$=""then2590
 2525 ift$=cr$thenex=1:t$=ty$
 2530 ift$="+"thensd=16:goto2590
 2540 ift$="-"thensd=0:goto2590
 2550 ift$<>ty$thener=1:ty$=t$
 2590 ifty$="%"then2700
 2600 ifer=0then2640
 2610 fori=2to24step2
 2620 n$=right$("   "+str$(n(i)),5):ifn(i)=0thenn$="     "
 2625 pokeql,i:print"{up}";tab(c+7);n$;"{home}"
 2630 nexti:goto2650
 2640 pokeql,r:print"{up}";tab(c+7);right$("   "+str$(n(r)),5);"{home}"
 2650 fori=2to24step2
 2660 pokeql,i:print"{up}";tab(c);gr$(n(i)*sc+rn);"{home}"
 2670 nexti
 2680 goto2800
 2700 ifer=0then2750
 2710 fori=2to24step2
 2720 pokeql,i:print"{up}";tab(c+7);p$(i);"{home}"
 2730 nexti
 2750 fori=2to24step2
 2760 n=n(i)/b*100:gosub5200
 2770 pokeql,i:print"{up}";tab(c);n$;"{home}"
 2780 nexti
 2800 gosub2910:goto2000
 2900 pokect,sd:poketn,15:pokepc,nt:return
 2910 pokepc,0:poketn,0:pokect,0:return
 2999 print"{home}":end
 5000 printtab(30-4*i);
 5010 ifi>1thenforj=2toi:print"{SHIFT-*}   ";:nextj
 5020 print"{SHIFT-*}";
 5030 printtab(c);"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 5040 return
 5100 printtab(28-4*i);
 5110 ifi>1thenforj=2toi:print"{SHIFT-*}   ";:nextj
 5120 print"{SHIFT-*}";
 5130 printtab(c);"      {SHIFT--}"
 5140 return
 5200 n=int(n*100+.5):ifn=0thenn$="      ":return
 5210 n$=mid$(str$(n),2):ifn<10thenn$="0"+n$
 5220 ifn<100thenn$="0"+n$
 5230 n$=right$(pd$+n$,6):n$=left$(n$,4)+"."+right$(n$,2):return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by glen fisher{down}
 62020 gosub60500
 62030 print"{down}binomial distribution demonstration
 62080 print"{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=4:gosub60200
 62110 print"{down}gauss!, (with all due respect to pascal,
 62120 print"bernoulli, tartaglia, cardano, and the
 62130 print"{down}ancient chinese mathematicians),
 62140 print"{down}is a graphic demonstration of the binom-
 62150 print"ial distribution. before your very eyes
 62160 print"{down}a steel ball bearing will drop down into
 62170 print"one of twelve bins. (actually, it is
 62180 print"{down}shot from a high-pressure gun in a zero-
 62190 print"gravity environment.){down}
 62200 gosub60200
 62210 print"{down}as the balls accumulate in the various
 62220 print"{down}bins, a self-scaling bar graph is dis-
 62230 print"{down}played, as well as the count for each
 62240 print"{down}bin. you may control two options:
 62250 print"          {down}sound{down}{left}{left}{left}{left}{left}EEEEE{up} {rvon}on{rvof} press '+'
 62260 print"          {down}     {rvon}off{rvof} press '-'
 62270 print"    {down}percentages{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}EEEEEEEEEEE{up} {rvon}on{rvof} press '%'
 62280 print"{down}               {rvon}off{rvof} press 'space'
 62290 print"{down}(please be sure sound is {rvon}off{rvof} when you
 62300 print"{down}decide to stop the program.)
 62310 gosub60200
 62320 print"{down}when the percentage option is {rvon}on{rvof},you
 62330 print"{down}will see the actual percentages for
 62340 print"{down}each bin on the left, and the expected
 62350 print"{down}percentages on the right. after the pro-
 62360 print"gram runs several hours, the percentages
 62370 print"will be very close to the expected
 62380 print"{down}results. (the random numbers produced by
 62390 print"the 'old' pet roms are less than random
 62400 print"{down}as this program clearly shows...)
 62410 gosub60200
 62420 print"{down}in the upper-left corner of your screen
 62430 print"{down}the elapsed time is shown in days, hours
 62440 print"minutes and seconds. each hour, about
 62450 print"{down}1000 balls are ejected. so, if you want
 62460 print"{down}to simulate gauss! by flipping coins,
 62470 print"{down}you need to flip 11,000 coins per hour.
 62480 print"{down}now you know why you bought your pet!
 62490 print"EEE
 62495 print"{down}you can stop gauss! by pressing {rvon}return{rvof}.
 62550 gosub60200
    0 clr:poke59468,12
    1 rem gbooka copyright (c) 1980 hal carey
    2 rem 9002 berclair rd
    3 rem huntsville al 35802
    4 :
    5 rem cursor #19 april 1980
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 29 apr 80 9pm
   90 pg$="gbooka":nm$="19":gosub62000
  100 fd%=1:rem i/o unit
  190 ns=40:na=15
  200 dims$(ns),w(na),a$(na),g%(ns,na)
  250 print"{clr}{rvon}e{rvof}  modify existing namelist
  260 print"{down}{rvon}n{rvof}  write new namelist
  270 getg$:ifg$=""goto270
  280 ifg$="e"goto530
  290 ifg$="n"goto305
  300 goto270
  305 print"{clr}{down}{down}name of this class? ";:gosub1070:c$=in$:a$(1)="-"
  310 print"{clr}write new names:
  314 print"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}
  315 print"{rvon} smith john {rvof}   use space not comma!
  316 print"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}       {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  320 print"{down}press {rvon}return{rvof} after last entry.{down}
  330 ts=ts+1:ifts>nsthenprint"can't take any more students.":goto360
  335 printts": ";:gosub1070:ifin$=""then360
  340 s$(ts)=in$
  350 fora=1tota:g%(ts,a)=-1:nexta:goto330
  360 ts=ts-1
  370 gosub980:ml=0
  380 print"{clr}"c$"{down}{down}":ifts<1then430
  390 fors=1tots
  400 prints;s$(s):i=len(s$(s)):ifi>mlthenml=i
  410 fori=1to500:next
  420 next
  430 print"{down}{rvon}o{rvof}  if ok.
  440 print"{down}{rvon}c{rvof}  change or add a name
  445 print"{down}{rvon}d{rvof}  delete a name
  450 getg$:ifg$=""goto450
  460 ifg$="o"goto670
  465 ifg$="d"then1300
  470 ifg$="c"goto490
  480 goto450
  490 print"{down}student # ({rvon}return{rvof} if new) ? ";
  493 gosub1070:s=val(in$):ifin$=""thens=ts+1
  495 ifin$=""andts=nsthenprint"no room for more.":goto370
  497 ifs<1thenprint"{down}no such student number.":fori=1to1500:nexti:goto370
  500 if s<=ts thenprint"{down}old name: ";s$(s)
  505 ifs>tsthents=ts+1:s=ts:fora=1tota:g%(s,a)=-1:next
  510 print"{down}new name is ? ";:gosub1070:s$(s)=in$
  520 goto370
  530 :
  550 f$="grades"
  560 dr=0:gosub1800
  580 input#1,c$
  590 input#1,ts
  600 input#1,ta
  605 print:printts;" students,";ta;" assignments":fori=1to200:nexti
  610 fors=1tots:input#1,s$(s):next
  620 fora=1tota:input#1,a$(a):next
  630 fora=1tota:input#1,w(a):next
  640 fora=1tota:fors=1tots:input#1,g%(s,a):next:next
  650 gosub2000
  660 goto370
  670 print"{clr}{rvon}p{rvof}  to print hardcopy.
  680 print"{down}{rvon}s{rvof}  to save this list.
  685 print"{down}{rvon}a{rvof}  to abandon any changes.
  690 getg$:ifg$=""goto690
  700 ifg$="p"goto730
  705 ifg$="a"thenprint"{clr}":goto960
  710 ifg$="s"goto820
  720 goto690
  730 print"{clr}put in paper.
  740 print"{down}hit  p  when ready to print namelist.
  745 t$=".":fori=1toml:t$=t$+".":nexti
  750 getg$:ifg$=""goto750
  760 open4,4
  770 print#4,c$:print#4
  780 fors=1tots
  785 ifs<10thenprint#4," ";
  790 print#4,str$(s);" ";left$(s$(s)+t$,ml+1)
  800 next
  810 close4:goto430
  820 :
  840 f$="grades"
  850 dr=1:gosub1800:r$=cr$
  860 print#1,c$r$;:gosub1200
  870 print#1,ts;r$;:gosub1200
  880 print#1,ta;r$;:gosub1200
  890 fors=1tots:print#1,s$(s)r$;:gosub1200:next
  900 fora=1tota:print#1,a$(a)r$;:gosub1200:next
  910 fora=1tota:print#1,w(a)r$;:gosub1200:next
  920 fora=1tota:fors=1tots:print#1,g%(s,a)r$;:gosub1200:next:next
  930 gosub2000
  940 print"{clr}{down}{down}{down}
  960 end
  980 ifts<2thenreturn
  982 print"{down}{rvon}sorting...
  985 fors=2tots:s$=s$(s):j=s-1
  990 fora=1tota:g%(0,a)=g%(s,a):nexta
 1000 ifs$>=s$(j)then1050
 1010 j1=j+1:s$(j1)=s$(j)
 1020 fora=1tota:g%(j1,a)=g%(j,a):next
 1040 j=j-1:goto1000
 1050 j1=j+1:s$(j1)=s$
 1060 fora=1tota:g%(j1,a)=g%(0,a):nexta:nexts:return
 1070 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 1080 getz$:ifz$<>""then1105
 1090 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1100 goto1080
 1105 ifz$=","thenz$=" "
 1110 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto1150
 1120 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 1130 ifzl>254then1080
 1140 in$=in$+z$:printz$;zd$;z$;
 1150 ifz=13thenin$=mid$(in$,2):printcr$;:return
 1160 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto1080
 1170 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1070
 1180 goto1080
 1200 ifti-z9<20orfd%=8then1290
 1210 iffd%=2then1260
 1220 poke59411,53
 1230 forz9=1to60:next
 1240 poke59411,61
 1250 goto1290
 1260 poke59456,peek(59456)and239
 1270 forz9=1to60:next
 1280 poke59456,peek(59456)or16
 1290 z9=ti:return
 1300 ifts<1thenprint"{down}no students":goto1700
 1310 print"{down}student # to delete? ";:gosub1070:ifin$=""then370
 1320 s=val(in$):ifs<1ors>tsthenprint"{down}nosuch student.":goto1700
 1330 s$(s)=s$(ts):fora=1tota:g%(s,a)=g%(ts,a):nexta
 1340 ts=ts-1:goto370
 1700 fordl=1to1500:nextdl:goto370
 1800 iffd%=8then1900
 1810 print"{down}rewind tape"fd%"and press {rvon}return
 1820 getz$:ifz$=""then1820
 1830 pokeqb,122:pokeqb+1,2
 1835 iffd%=2thenpokeqb,58:pokeqb+1,3
 1840 open1,fd%,dr,f$
 1850 z9=ti
 1860 return
 1900 f$="0:"+f$:open15,8,15:ifdr=1thenprint#15,"s";f$
 1910 f$=f$+",s,"+mid$("rw",dr+1,1):open1,8,2,f$
 1920 input#15,er,er$,tk,sc
 1930 ifer=0thener$="":return
 1940 print"{down}"er;er$;tk;sc:close1
 1950 print"{down}fix problem and type 'cont'.":end
 1960 goto1910
 2000 close1:iffd%=8thenclose15
 2010 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 cr$=chr$(13)
 60410 qb=214:ifpeek(50000)=0thenqb=243
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by hal carey{down}
 62020 gosub60500
 62030 print"{down}enter and modify names in gradebook
 62090 print"{down}press {rvon}return{rvof} to begin";
 62100 gett$:ift$=""then62100
 62110 goto60300
    0 clr:poke59468,12
    1 rem gbookb copyright (c) 1980 hal carey
    2 rem 9002 berclair road
    3 rem huntsville al 95802
    4 :
    5 rem cursor #19 april 80
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 29 apr 80 9:15pm
   90 gosub62000
  100 fd%=1:rem i/o unit
  190 ns=40:na=15
  210 dima$(na),w(na),s$(ns),g%(ns,na),b$(5)
  220 b$(1)=" 90":b$(2)=" 80":b$(3)=" 70":b$(4)=" 65":as$="assignment"
  270 e$="{up}":fori=1to40:e$=e$+" ":next
  320 f$="grades"
  330 dr=0:gosub1800
  340 c$="0":ts=0:ta=0:ml=0
  360 input#1,c$
  370 input#1,ts
  380 input#1,ta
  390 fors=1tots:input#1,s$(s):n=len(s$(s)):ifn>mlthenml=n
  395 nexts
  400 fora=1tota:input#1,a$(a):next
  410 fora=1tota:input#1,w(a):next
  430 fora=1tota:fors=1tots:input#1,g%(s,a)
  440 nexts,a
  450 gosub2000
  455 ml=ml+1:ifml<22thenml=22
  460 hy$=".":fori=1toml:hy$=hy$+".":nexti
  470 print"{clr}{down}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print"{rvon}gbookb{down}{down}
  485 printc$
  487 print:printts"students,"ta;as$;"s
  490 print"{down}{rvon}c{rvof}  change a grade
  500 print"{down}{rvon}e{rvof}  exit, dropping changes
  505 print "   since last {rvon}s{rvof}ave
  510 print"{down}{rvon}g{rvof}  enter list of grades
  520 print"{down}{rvon}s{rvof}  save
  530 print"{down}{rvon}p{rvof}  print hardcopy
  540 print"{down}{down}{down}choice? ";:gosub60000:g$=left$(in$,1)
  550 fori=1to5:ifg$=mid$("cegsp",i,1)goto570
  560 next:goto470
  570 onigoto590,950,660,850,1070
  590 print"{clr}change grade for ";as$;" # ";:gosub60000:a=val(in$)
  595 ifa<1ora>tathenprint"{down}no such ";as$:goto655
  600 printe$;as$;a;a$(a)
  610 print"{down}student # ";:gosub60000:s=val(in$)
  615 ifs<1ors>tsthenprint"{down}no such student":goto655
  620 printe$"student"s;s$(s)
  625 t=g%(s,a):print"{down}grade was ";:ift>=0thenprintt
  626 ift<0thenprint"*"
  630 print"{down}change grade to: ";:gosub60000:ifin$=""then625
  635 ifin$="*"theng%(s,a)=-1:goto470
  640 n=val(in$):ifn<0thenprint"{rvon}<0??":goto625
  645 ifn>100thenprint"{rvon}>100??":goto625
  650 g%(s,a)=n:goto470
  655 gosub1680:goto470
  660 ifta=nathenprint"no room":fori=1to500:nexti:goto470
  670 ta=ta+1:a=ta
  680 print"{clr}grade inputs for ";as$;" #"ta
  690 print"{down}{down}4-letter name of "as$": ";:gosub60000:g$=in$
  700 a$(a)=right$("    "+left$(g$,4),4)
  710 print"{down}{down}weight of "as$": ";:gosub60000:w(a)=val(in$)
  720 print"{clr}"as$" #"ta" "a$(a)", weight:"w(a)"{down}{down}"
  730 print"{down}(type * for incomplete "as$;"){down}
  740 print" #   name              grade
  750 fors=1tots
  760 prints;left$(s$(s)+hy$,ml);
  770 gosub60000:g$=in$:ifin$=""then760
  780 ifg$="*"theng%(s,a)=-1:goto810
  790 g=val(g$):ifg>100thenprint"{rvon}>100??":goto760
  795 ifg<0thenprint"{rvon}<0??":goto760
  800 g%(s,a)=g
  810 next
  820 goto470
  850 f$="grades"
  860 dr=1:gosub1800:r$=cr$
  870 print#1,c$r$;:gosub1700
  880 print#1,ts;r$;:gosub1700
  890 print#1,ta;r$;:gosub1700
  900 fors=1tots:print#1,s$(s)r$;:gosub1700:next
  910 fora=1tota:print#1,a$(a)r$;:gosub1700:next
  920 fora=1tota:print#1,w(a)r$;:gosub1700:next
  930 fora=1tota:fors=1tots:print#1,g%(s,a)r$;:gosub1700:next:next
  940 gosub2000:goto470
  950 print"{clr}{down}{down}{down}":end
 1070 print"{clr}turn on printer.
 1080 print"{down}{down}insert paper to top of guide.
 1090 print"{down}what is today's date? ";:gosub60000:d$=in$
 1100 print"{clr}just a minute...
 1110 fors=1tots:n=0:d=0
 1120 fora=1tota
 1130 ifg%(s,a)>=0thenn=n+g%(s,a)*w(a):d=d+w(a)
 1140 nexta
 1150 g%(s,0)=0:ifdtheng%(s,0)=n/d+.5
 1160 nexts
 1170 fora=1tota:n=0:d=0
 1180 fors=1tots:ifg%(s,a)>=0thenn=n+g%(s,a):d=d+1
 1190 nexts
 1200 g%(0,a)=0:ifdtheng%(0,a)=n/d
 1210 nexta
 1230 open4,4
 1240 print#4:print#4:print#4
 1250 print#4,c$
 1260 print#4,d$:print#4
 1270 p$="     "+as$:p$="   "+left$(p$+hy$,ml)+" "
 1280 fora=1tota:p$=p$+" "+str$(a)+"  ":next
 1290 p$=p$+"average   #"
 1300 print#4,p$
 1310 p$=""
 1320 fora=1tota:p$=p$+left$(a$(a)+"      ",5) :next
 1330 p$=p$+"         inc"
 1340 print#4,spc(ml+4);p$
 1350 p$="     weight ":p$="   "+left$(p$+hy$,ml)+" "
 1360 fora=1tota:p$=p$+right$("  "+str$(w(a)),3)+"  ":next
 1370 print#4,p$
 1380 print#4
 1390 fors=1tots:n=0
 1400 :p$=right$(str$(s),2)+" "+left$(s$(s)+hy$,ml)+" "
 1410 fora=1tota
 1420 ifg%(s,a)<0thenp$=p$+"  *  ":n=n+1:goto1440
 1430 p$=p$+right$("   "+str$(g%(s,a)),3)+"  "
 1440 nexta
 1450 x$=right$("   "+str$(g%(s,0)),3)
 1460 p$=p$+"  "+x$+" "
 1470 i=1
 1480 ifx$<b$(i)theni=i+1:goto1480
 1490 p$=p$+" "+mid$("abcdf&",i,1)
 1500 ifnthenp$=p$+" "+str$(n)
 1510 print#4,p$
 1520 nexts
 1530 print#4
 1540 p$=as$+" average ":print#4,"   ";left$(p$+hy$,ml);
 1550 fora=1tota
 1560 print#4,right$("    "+str$(g%(0,a)),4);" ";
 1570 nexta
 1590 fori=1to7:print#4:next
 1600 close4
 1610 goto470
 1650 fors=2tots:s$=s$(s):j=s-1
 1660 ifs$<s$(j)thens$(j+1)=s$(j):j=j-1:goto1660
 1670 s$(j+1)=s$:next:return
 1680 fordl=1to1500:nextdl:return
 1690 ifzz<=peek(qc)goto1720
 1700 ifti-z9<20orfd%=8then1790
 1710 iffd%=2then1760
 1720 poke59411,53
 1730 forzz=1to60:next
 1740 poke59411,61
 1750 goto1790
 1760 poke59456,peek(59456)and239
 1770 forzz=1to60:next
 1780 poke59456,peek(59456)or16
 1790 z9=ti:return
 1800 iffd%=8then1900
 1810 print"{down}rewind tape"fd%"and press {rvon}return
 1820 getz$:ifz$=""then1820
 1830 pokeqb,122:pokeqb+1,2
 1835 iffd%=2thenpokeqb,58:pokeqb+1,3
 1840 open1,fd%,dr,f$
 1850 zp=ti:return
 1900 f$="0:"+f$:open15,8,15:ifdr=1thenprint#15,"s";f$
 1910 f$=f$+",s,"+mid$("rw",dr+1,1):open1,8,2,f$
 1920 input#15,er,er$,tk,sc
 1930 ifer=0thener$="":return
 1940 print"{down}"er;er$;tk;sc:close1
 1950 print"{down}fix problem and type 'cont'.":end
 1960 goto1910
 2000 close1:iffd%=8thenclose15
 2010 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 cr$=chr$(13)
 60410 qb=214:qc=187:ifpeek(50000)=0thenqb=243:qc=625
 60420 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #19  gbookb
 62010 print"{down} copyright (c) 1980  by hal carey{down}
 62020 gosub60500
 62030 print"{down}enter and modify grades
 62040 print"{down}press {rvon}return{rvof} to begin";
 62050 gett$:ift$=""then62050
 62060 goto60300
  100 rem german game
  110 rem apc september 1982
  130 poke53,31:b=826:p=7937
  140 readx:ifx<0then160
  150 pokep,x:p=p+1:goto140
  160 rem
  500 rem set up strings
  520 b$="                "
  530 c$="{rvon}{SHIFT-POUND}{CBM-*}{rvof}{down}{left}{left}{CBM-*}{SHIFT-POUND}"
  540 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  550 h$="{rvon}{CBM-V}{CBM-C}{down}{left}{left}{CBM-F}{CBM-D}"
  560 n$="UI{down}{left}{left}JK"
  570 v$="{SHIFT--}  {SHIFT--}  {SHIFT--}  {SHIFT--}  {SHIFT--}  {SHIFT--}  {SHIFT--}"
  580 z$="  {down}{left}{left}  "
  600 forp=btob+175
  610 pokep,9:next
  620 p=-1:gosub8000
 1000 rem
 1010 rem main loop
 1030 print"{clr}{down}{down} do you want to start (y/n)";
 1040 input"{rght}{rght}{CBM-I}{left}{left}{left}";a$
 1050 ifa$<>"y"anda$<>"n"then1030
 1060 c=-(a$="n")
 1140 gosub5000
 1150 fori=2to7:forj=2to8
 1160 pokeb+i+16*j,0
 1170 nextj,i
 1200 x1=5:y1=2:x=x1:y=y1
 1210 p=1:a$=c$
 1220 gosub7700
 1230 x2=4:y2=8:x=x2:y=y2
 1240 p=2:a$=h$
 1250 gosub7700
 1260 ifcthen3000
 1270 rem
 2000 rem human move
 2020 gosub7200
 2030 print"{rvon}it's your move"
 2040 gosub7300
 2100 ifabs(x-x2)<=1andabs(y-y2)<=1then2170
 2110 gosub7500
 2120 print"{rvon}you are trying "
 2130 print"{down}{rght}{rght}{rvon}to move too far"
 2140 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}try again"
 2150 gosub7600:goto2000
 2170 ifpeek(b+x+16*y)=0then2240
 2180 gosub7500
 2190 print"{rvon}that square is"
 2200 print"{down}{rght}{rght}{rvon}already occupied"
 2210 print"{down}{down}{down}{rght}{rght}{rght}{rvon}try another"
 2220 gosub7600:goto2000
 2240 rem it's ok
 2250 x3=x:y3=y:x=x2:y=y2
 2260 p=0:a$=z$
 2270 gosub7700
 2280 x2=x3:y2=y3:x=x2:y=y2
 2290 p=2:a$=h$
 2300 gosub7700
 2310 gosub7200
 2320 print"{rvon}now place a"
 2330 print"{rght}{rght}{rvon}neutral piece"
 2340 gosub7300
 2350 ifpeek(b+x+16*y)=0then2420
 2360 gosub7500
 2370 print"{rvon}you can't move"
 2380 print"{down}{rght}{rght}{rvon}there - it's"
 2390 print"{down}{rght}{rght}{rvon}already taken"
 2400 gosub7600:goto2310
 2420 rem
 2430 p=9:a$=n$
 2440 gosub7700
 2450 c=c+1
 2460 rem
 3000 rem
 3010 rem
 3020 gosub7200:ma=0:k=0
 3030 print"{rvon}its my turn -"
 3040 print"{down}{rght}{rght}{rvon}let me see..."
 3045 ifc<2thengosub7100:goto3150
 3050 fori=x1-1tox1+1:forj=y1-1toy1+1
 3060 ifpeek(b+i+16*j)=0thengosub6000
 3080 nextj,i
 3085 ifmathen3150
 3090 ifkthengosub7000:goto3150
 3100 gosub7600:gosub7200
 3110 print"{rvon}i can't move"
 3120 print"{down}{rght}{rght}{rght}{rght}{rvon}you win"
 3125 print"{down}{rght}{rght}{rght}{rvon}in";c;"moves"
 3130 gosub7600:gosub7600
 3140 goto4500
 3150 rem
 3160 gosub7200
 3170 print"{rvon}i will move to"
 3180 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}";chr$(x3+63);y3-1
 3190 x=x1:y=y1
 3200 p=0:a$=z$
 3210 gosub7700
 3220 x1=x3:y1=y3:x=x1:y=y1
 3230 p=1:a$=c$
 3240 gosub7700:gosub7600
 3250 gosub7200
 3260 print"{rvon}i will place a"
 3270 print"{down}{rght}{rght}{rvon}piece at :"
 3280 x=x4:y=y4
 3290 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}";chr$(x+63);y-1
 3300 p=9:a$=n$
 3310 gosub7700:gosub7600
 3320 fori=x2-1tox2+1:forj=y2-1toy2+1
 3330 ifpeek(b+i+16*j)=0thenc=c+1:goto2000
 3340 nextj,i
 3350 rem
 3360 gosub7200
 3370 print"{rvon}you can't move"
 3380 print"{down}{rght}{rght}{rght}{rght}{rght}{rvon}i win !!"
 3385 print"{down}{rght}{rght}{rght}{rvon}in";c;"moves"
 3390 rem
 4000 rem
 4010 gosub7600:gosub7600
 4020 print"{clr}{down}{down}i was obviously too good for you!!"
 4030 print"{down}{down}do you want revenge (y/n)?";
 4040 goto4530
 4500 rem
 4510 print"{clr}{down}{down}amazingly,you won - but i wasn't trying"
 4520 print"{down}can i have another chance(y/n)?";
 4530 geta$:ifa$="y"then1000
 4550 ifa$<>"n"then4530
 4555 print"{rvon}what a lousy cunt you are garry"
 4600 print"{down}{down}":end
 4700 rem
 5000 rem
 5020 print"{clr}"spc(21)"a  b  c  d  e  f"
 5030 print"{down} the german game    {CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-S}"
 5040 fori=1to6
 5050 printspc(20)v$
 5060 printspc(17)i;v$
 5070 printspc(20)"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}"
 5080 next
 5090 printspc(20)v$
 5100 printspc(17)i;v$
 5110 printspc(20)"{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-X}"
 5120 printleft$(d$,17);"   my piece:"
 5130 printd$;" your piece:"
 5140 a$=c$:a=14:d=16:gosub7800
 5150 a$=h$:d=22:gosub7800
 5160 return
 5990 rem
 6000 rem
 6020 pokeb+i+16*j,1
 6025 pokeb+x1+16*y1,0
 6030 fork=x2-2tox2+2:forl=y2-2toy2+2
 6040 ifpeek(b+k+16*l)then6300
 6050 pokeb+k+16*l,9
 6060 x=i:y=j:gosub7920
 6070 e=m+1
 6075 x=x2:y=y2:gosub7920
 6080 e=e/(m+1)
 6090 ife<mathen6200
 6100 ma=e:x3=i:y3=j:x4=k:y4=l
 6200 pokeb+k+16*l,0
 6300 nextl,k
 6310 pokeb+i+16*j,0
 6315 pokeb+x1+16*y1,1
 6320 return
 6330 rem
 6500 rem
 7000 rem
 7020 forx3=x1-1tox1+1:fory3=y1-1toy1+1
 7030 ifpeek(b+x3+16*y3)=0then7050
 7040 nexty3,x3
 7050 forx4=2to7:fory4=2to8
 7060 ifpeek(b+x4+16*y4)=0then7080
 7070 nexty4,x4
 7080 return
 7100 rem
 7120 x3=x1-2+int(3*rnd(1)+1):y3=y1+1
 7130 ifpeek(b+x3+16*y3)then7120
 7140 x4=int(4*rnd(1)+3)
 7150 y4=int(2*rnd(1)+5)
 7160 ifpeek(b+x4+16*y4)then7140
 7170 gosub7600
 7180 return
 7200 rem
 7220 print"{home}{down}{down}{down}{down}"
 7230 fori=1to9
 7240 print" {rvon}";b$
 7250 next
 7260 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}";
 7270 return
 7300 rem
 7320 print"{down}{rght}{rght}{rght}{rght}{rght}{rvon}letter ";
 7330 mi=65:ma=70:gosub7400
 7340 x=t-63
 7350 print"{down}{rght}{rght}{rght}{rght}{rght}{rvon}number ";
 7360 mi=49:ma=55:gosub7400
 7370 y=t-47
 7380 return
 7400 fori=0to9:geta$:next
 7410 print"{rvon}*{left}";
 7420 fori=0to220:next
 7430 geta$:ifa$=""then7450
 7435 t=asc(a$)
 7440 ift>=miandt<=mathen7480
 7450 print"{rvon} {left}";
 7460 fori=0to220:next
 7470 t=rnd(1):goto7410
 7480 print"{rvon}";a$
 7490 return
 7500 rem
 7520 print"{down}{rght}{rvon}**illegal move**"
 7530 gosub7600:gosub7200
 7540 return
 7600 rem
 7620 fori=0to2000:next
 7630 return
 7700 rem
 7720 a=3*x+16:d=3*y-3
 7800 rem
 7820 printleft$(d$,d+1);spc(a-1)a$
 7830 ifp<0thenreturn
 7840 pokeb+x+16*y,p
 7850 return
 7900 rem
 7920 poke35,x:poke36,y:poke37,0
 7930 sys7937
 7940 m=peek(37)
 7950 return
 8000 rem
 8020 print"{clr}         the german game{down}"
 8030 print"this is a new board game for two players"
 8040 print"each player (you and i) has one piece{down}"
 8050 print"and the object of the game is to prevent"
 8060 print"the opponent from moving. the play{down}"
 8070 print"consists of alternate turns and you may{down}"
 8080 print"choose who starts.to move,first place{down}"
 8090 print"your piece   on any adlacent empty cell"
 8100 print"and then play a neutral piece   any-{down}"
 8110 print"where on the board.i will play likewise{down}"
 8120 print"and the winner is the last to move."
 8130 a=12:d=13:a$=h$:gosub7800
 8140 a=31:d=15:a$=n$:gosub7800
 8150 print"{down}{down}{down}":gosub8700
 8160 print"{clr}remember that the object is to trap my{down}"
 8170 print"piece   (and that i will try to do the{down}"
 8180 print"same to you).{down}"
 8190 print"note that i do not insist on you press-{down}"
 8200 print"ing {rvon} return {rvof} when you enter your move{down}"
 8210 print"of course you may do so if you wish but{down}"
 8220 print"i will probably ignore you. let's go..."
 8230 a=7:d=1:a$=c$:gosub7800
 8240 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":gosub8700
 8600 return
 8700 print"{down}     press {rvon} space {rvof} to continue"
 8710 geta$:ifa$<>" "then8710
 8720 return
 9000 rem
 9010 data169,42,141,30,31,162,48,165,36,10,10,10,10,24,101,35,125,70,31
 9020 data168,185,58,3,208,22,230,37,202,224,42,240,21,152,24,125,70,31
 9030 data168,185,58,3,208,240,230,37,208,234,202,202,202,202,202,202,232
 9040 data202,208,1,96,173,30,31,56,233,6,141,30,31,76,8,31
 9050 data1,1,240,240,15,239,0,31,1,1,239,240,16,16,1,1,239,241,0,242
 9060 data16,16,239,255,0,238,16,16,241,1,1,1,16,16,239,15,0,223,1,1
 9070 data15,16,255,255,16,16,241,17,-1
    0 clr:poke59468,12
    1 rem godzilla copyright(c)1980 r lockwood
    2 rem 90 dyke rd
    3 rem setauket ny 11733
    4 :
    5 rem cursor #19 apr 80
    6 rem box 550, goleta, ca 93017
    8 :
   10 rem 28 apr 80 8:15pm
  100 :
  110 z=rnd(-ti):goto140
  118 prints$"{rvon}too far
  120 forz=1to1500:next:return
  130 printc$s$"{rvon}can't":gosub120:return
  140 g$="godzilla":s=59464:pokes,0:pokes+3,16:pokes+2,51:ifrrthen190
  150 print"{clr}{down}"tab(9)"cursor #19  "g$"!
  152 print"{down} copyright (c) 1980  by r. lockwood
  160 fori=1to20:print"{SHIFT-*}{SHIFT-*}";:next:print:print"{down}save tokyo!"
  170 print"{down}{down}press {rvon}return{rvof} to begin"
  180 geta$:ifa$=""then180
  190 dimp(4,4),n(4,4),t(4,4),u%(4,4),s%(4,4),w%(4,4)
  200 print"{clr}":s$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":k%=2500:k=1e7
  205 c$=s$+"                {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}                "
  210 b$="         {left}{left}{left}{left}{left}{left}{left}{left}{left}":df$="{down}{rght}{rght}{rght}{CBM-B}{left}{left}{left}
  220 fori=0to2:n(i,3)=k:next:n(3,0)=k:n(3,1)=k/1.5
  230 n(3,2)=k:n(3,3)=k/.4:n(4,0)=k:n(4,1)=k
  240 fora=0to4:forb=0to4:readp(a,b):p(a,b)=p(a,b)+32808:next:next
  250 data83,87,92,97,102,283,287,291,256,301,483,487,492,456,501,683,687,691
  260 data655,701,844,806,851,856,861
  270 fora=0to4:forb=0to4:readu%(a,b):next:next
  280 data0,0,0,1,0,0,0,0,1,0,0,0,0,1,0,1,1,1,1,0,1,1,0,0,0
  290 fora=0to4:forb=0to4:ifu%(a,b)=0then310
  300 w%(a,b)=rnd(1)*100:t(a,b)=int(n(a,b)/80):goto320
  310 s%(a,b)=rnd(1)*6+1:t(a,b)=s%(a,b)*350
  320 next:next:m%=10:gosub400
  330 x=int(rnd(1)*5):y=int(rnd(1)*5):gosub570:goto370
  340 gd=gd-15:print"{home}{down}{down}":printspc(23)g$" at:"x;y:pokepg,g%:pg=p(x,y)
  350 g%=peek(pg):pokepg,135:fori=1to7:pokepg,7:pokes,200:forz=1to70:next
  360 pokepg,135:pokes,80:forz=1to90:next:next:pokes,0:return
  370 gosub340:gosub570:gosub650:gosub510:goto370
  400 print"{clr} ";:fora=0to4:printa"  ";:next
  410 print:fori=0to3:print"{down}{down}"chr$(48+i)"{down}{down}":next:print"{down}{down}4{home}{down}{down}"
  420 fori=1to20:readz,z$:printspc(z)z$:next:return
  430 data17,"{rvon} {CBM-*}",17,"{rvon}  ",17,"{rvon}    {rvof}{CBM-J}",16,"{rvon}{SHIFT-POUND}    {rvof}{CBM-*}",15,"{rvon}{SHIFT-POUND}{rvof}{CBM-U}{CBM-U}{CBM-*}{SHIFT-POUND}",15,"{CBM-*}{rvon}{CBM-*}{down}
  440 data16,"{rvon} {CBM-*}",16,"{rvon}  ",16,"{rvon}  ",15,"{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}",14,"{rvon}{SHIFT-POUND}  ",13,"{rvon}{SHIFT-POUND}   "
  470 data11,"{rvon}     {rvof}{SHIFT-POUND}",11,"{rvon}    t",6,"{rvon}{SHIFT-POUND}         ",4,"{rvon}{CBM-*}  {rvof}{SHIFT-POUND}{CBM-U}{rvon}  {rvof}{CBM-U}{CBM-U}{CBM-U}{SHIFT-POUND}"
  490 data7,"{rvon}{SHIFT-POUND}{rvof} {rvon} {rvof}{SHIFT-POUND}",3,"{rvon}  {rvof} {rvon}{SHIFT-POUND}",4,"{rvon} ",4,"{SHIFT-POUND}"
  510 iftk>2e7then2020
  520 ifgd>=k%then1800
  530 x1=x:x=x+2-(int(rnd(1)*3+1)):ifx>4orx<0thenx=x1:goto530
  540 y1=y:y=y+2-(int(rnd(1)*3+1)):ify>4ory<0theny=y1:goto540
  550 ifx=3andy=3thengosub1940
  560 gosub1830:return
  570 print"{home}{down}{down}{down}{down}":printspc(23)"info for:"x;y
  580 ifn(x,y)<1thenn(x,y)=0
  590 print:printspc(23)"pop.:";b$int(n(x,y))
  600 ift(x,y)<0thent(x,y)=0
  610 printspc(23)"troops:"b$t(x,y)
  620 printspc(23)"ships:"b$s%(x,y)
  630 printspc(23)"planes:"b$w%(x,y):return
  638 printc$s$"how many
  640 prints$df$;:inputr$:r=val(r$):ab=r$="{CBM-B}":return
  650 ifn(3,3)<1000then1980
  660 iftk>2e7then2020
  670 printc$s$"command":gosub640
  680 ifabthenprint"{up}{up}":goto670
  690 ifr$="i"then1480
  700 ifr$="tm"then780
  710 ifr$="sm"then890
  720 ifr$="ta"then990
  730 ifr$="m"then1120
  740 ifr$="ar"then1240
  750 ifr$="sa"then1360
  760 ifr$="ab"then1500
  765 ifr$="q"then2040
  770 gosub130:goto650
  780 gosub638:tm=r:ifabthen650
  790 printc$s$"from to
  800 gosub640:ifabthen650
  810 gosub1630:ife<>0then790
  820 ifu%(s1,s2)=0then790
  830 iftm>t(s1,s2)then780
  840 ifu%(s3,s4)<>1then790
  860 ifabs(s1-s3)+abs(s2-s4)>3thengosub118:goto790
  880 t(s1,s2)=t(s1,s2)-tm:t(s3,s4)=t(s3,s4)+tm:return
  890 printc$s$"from to":gosub640:ifabthen650
  895 gosub1630:ife=1then890
  900 ifs%(s1,s2)<1then890
  920 ifu%(s3,s4)<>0then890
  940 ifabs(s1-s3)+abs(s2-s4)>3thengosub118:goto890
  960 s%(s1,s2)=s%(s1,s2)-1:s%(s3,s4)=s%(s3,s4)+1
  970 d%=int(t(s1,s2)/(s%(s1,s2)+1))
  980 t(s1,s2)=t(s1,s2)-d%:t(s3,s4)=t(s3,s4)+d%:return
  990 ifu%(x,y)<>1thengosub130:goto650
 1010 ift(x,y)<1thengosub130:goto650
 1030 gosub638:ta=r:n%=ta/9999:ifta=0orabthen650
 1050 ifta>t(x,y)thengosub130:goto1030
 1070 gosub2000
 1080 sk=int(ta*rnd(1)):t(x,y)=t(x,y)-sk:tk=tk+sk
 1090 printc$s$t(x,y)" left":gosub120
 1100 z%=1+int(ta/8000)+int(rnd(1)*3):ifz%>7thenz%=7
 1110 gosub1770:return
 1120 ifm%<1thenprints$"{rvon}no missiles":gosub120:goto650
 1130 m%=m%-1:pokes,50:forz=1to99:next:pokes,0:printc$s$"launched":gosub120
 1140 gosub2000:nk=int(n(x,y)*rnd(1)):tk=tk+nk:n(x,y)=n(x,y)-nk
 1150 sk=int(t(x,y)*rnd(1)):o%=sk/350
 1160 t(x,y)=t(x,y)-sk:tk=tk+sk
 1170 printc$s$"casualties":prints$"{down}"nk+sk:gosub120
 1180 ifu%(x,y)=1ors%(x,y)=0then1230
 1190 ift(x,y)/s%(x,y)>200then1230
 1200 ifs%(x,y)<0thens%(x,y)=0
 1205 ifo%>s%(x,y)theno%=s%(x,y)
 1210 s%(x,y)=s%(x,y)-o%
 1220 printc$s$o%" ship(s) sunk":gosub120
 1230 z%=rnd(1)*9+1:gosub1770:return
 1240 printc$s$"from":gosub640:ifabthen650
 1245 gosub1630:ife=1then1240
 1250 ifw%(s1,s2)=0thengosub130:goto1240
 1270 ifabs(x-s1)+abs(y-s2)>=7thengosub118:goto1240
 1290 gosub638:np%=r:n%=np%:ifnp%=0orabthen650
 1320 ifnp%>w%(s1,s2)thenprints$"{rvon}too many":gosub120:goto1290
 1330 gosub2000:z%=np%*rnd(1)/3+1:ifz%>9thenz%=9
 1340 c%=np%*rnd(1):printc$s$c%" planes":prints$"{down}destroyed":gosub120
 1350 gosub1770:w%(s1,s2)=w%(s1,s2)-c%:goto510
 1360 ifu%(x,y)<>0thengosub130:goto650
 1380 n%=s%(x,y)*20:ifn%<1thenprints$"{rvon}no ships":gosub120:goto650
 1400 ift(x,y)/s%(x,y)>100then1420
 1410 prints$"{rvon}too few sailors":gosub120:goto670
 1420 gosub2000:z%=s%(x,y)+int(rnd(1)*4):ifz%>7thenz%=7
 1430 gosub1770:sk=int(rnd(1)*t(x,y))
 1435 o%=int(sk/300):ifo%>s%(x,y)theno%=s%(x,y)
 1440 s%(x,y)=s%(x,y)-o%
 1450 ifs%(x,y)=0thensk=t(x,y):t(x,y)=0
 1460 tk=tk+sk:t(x,y)=t(x,y)-sk:printc$s$sk" killed
 1470 prints$"{down}"o%" ship(s) sunk":gosub120:return
 1480 printc$s$"coord":gosub640:ifabthen650
 1485 gosub1630:ife=1then1480
 1490 x1=x:y1=y:x=s1:y=s2:gosub570:x=x1:y=y1:goto650
 1500 ifh=0then1520
 1510 printc$s$"{rvon}already used":gosub120:return
 1520 h=1:gosub2000:fora=x-1tox+1:forb=y-1toy+1
 1530 ifa<0then1610
 1540 ifb<0then1600
 1550 ifb>4then1610
 1560 ifa>4then1620
 1570 pokep(a,b),86:t(a,b)=0:nk=int(20*rnd(1)*n(a,b))
 1580 ifnk>n(a,b)thennk=n(a,b)
 1590 n(a,b)=n(a,b)-nk:tk=tk+nk
 1600 nextb
 1610 nexta
 1620 g%=86:gd=gd+int(800+rnd(1)*1500):return
 1630 e=0:gosub2100:ifethenreturn
 1635 s1=val(left$(r$,1)):s2=val(mid$(r$,2,1))
 1640 s3=val(mid$(r$,3,1)):s4=val(right$(r$,1))
 1650 ifs1<0ors1>4ors2<0ors2>4then1690
 1660 iflen(r$)<3thenreturn
 1670 ifs3<0ors3>4ors4<0ors4>4then1690
 1680 return
 1690 gosub130:e=1:return
 1710 print"no";:dg=5:return
 1720 print"little";:dg=20:return
 1730 print"some";:dg=100:return
 1740 print"major";:dg=150:return
 1750 print"severe";:dg=300:return
 1760 print"grave";:dg=400:return
 1770 printc$s$;:onz%gosub1710,1710,1720,1730,1730,1740,1750,1750,1760
 1780 print" damage to":prints$"{down}"g$:gosub120
 1790 gd=gd+dg:ifgd<k%thenreturn
 1800 printc$s$"{rvon}"g$" is dead{rvof}":gosub120
 1810 printc$s$"he killed":prints$"{down}"int(tk):gosub120:gosub120:goto2040
 1830 ifdg<200ordg>=400then1930
 1840 gosub340:gosub570:printc$s$g$" on":prints$"{down}rampage":gosub120
 1850 ifu%(x,y)=1then1900
 1860 ifs%(x,y)<1then1930
 1870 sk=int((rnd(1)*t(x,y))/s%(x,y))
 1880 t(x,y)=t(x,y)-sk:tk=tk+sk:s%(x,y)=s%(x,y)-1
 1890 printc$s$"ship sunk":prints$"{down}killing "sk:gosub120:goto1930
 1900 nk=int(n(x,y)*rnd(1)):sk=int(t(x,y)*rnd(1))
 1910 printc$s$nk+sk" killed":gosub120:tk=tk+nk+sk
 1920 n(x,y)=n(x,y)-nk:t(x,y)=t(x,y)-sk
 1930 return
 1940 gosub340:printc$s$g$" is":prints$"{down}in tokyo!":gosub120
 1950 nk=int(n(3,3)*rnd(1)/3):sk=int(t(3,3)*rnd(1))
 1960 n(3,3)=n(3,3)-nk:t(3,3)=t(3,3)-sk:tk=tk+sk+nk
 1970 ifn(3,3)<1e4thenprintc$s$"{rvon}tokyo destroyed!":gosub120:goto2020
 1990 printc$s$nk+sk:prints$"{down}killed":gosub120:return
 2000 po=p(x,y):fori=1to10+n%:pokepo,214:pokes,150:pokes,0:pokepo,86:pokes,75
 2010 n%=0:pokes,0:next:pokepo,135:return
 2020 printc$s$int(tk):prints$"{down}have died":gosub120
 2030 printc$s$g$" wins!!":gosub120
 2040 printc$s$"play again?":prints$df$;:inputa$
 2060 ifleft$(a$,1)<>"n"thenclr:rr=1:goto100
 2070 pokes+3,0:pokes+2,0:pokes,0:end
 2100 ifr$=""thene=1:return
 2110 forz=1tolen(r$):z$=mid$(r$,z,1):ifz$<"0"orz$>"9"thene=1:return
 2120 nextz:return
    1 print "{rvon}                 golf                 {rvof}"
    2 print : print : print
    4 print "welcome to the commodore country club."
    5 print "an 18 hole championship layout."
    6 print "the commentator will explain the game" : print "as you play."
    8 print "see you at the 19'th hole...."
    9 print : print : dim l(10)
   10 g1=18
   20 g2=0
   30 g3=0
   40 a=0
   50 n=.8
   60 s2=0
   70 f=1
   80 print "what is your handicap";
   90 input h
  100 if h>30 then 470
  110 if h<0 then 470
  120 print "difficulties at golf include:"
  130 print "0  =    hook"
  131 print "1  =    poor distance"
  132 print "4  =    trap shots"
  133 print "5  =    putting"
  140 print "which one (only one) is your worst";
  150 input t
  160 if t>5 then 120
  170 s1=0
  230 l(0)=0
  240 j=0
  245 q=0
  250 s2=s2+1
  260 k=0
  270 if f=1 then 310
  290 print "your score on hole";f-1;"was";s1
  291 goto 1750
  292 if s1>p+2 then 297
  293 if s1=p then 299
  294 if s1=p-1 then 301
  295 if s1=p-2 then 303
  296 goto 310
  297 print "keep your head down."
  298 goto 310
  299 print "a par!  nnice going."
  300 goto 310
  301 print "a birdie!"
  302 goto 310
  303 if p=3 then 306
  304 print "a great big eagle!!"
  305 goto 310
  306 print "a hole in one!!!"
  310 if f=19 then 1710
  315 s1=0
  320 print : if s1=0 then 1590
  330 if l(0)<1 then 1150
  340 x=0
  350 if l(0)>5 then 1190
  360 print "shot went";d1;"yards.  it's";d2;"yards from the cup."
  362 print "the ball is";int(o);"yards off line----" : print "             in the ";
  380 gosub 400
  390 goto 620
  400 if l(x)=1 then 480
  410 if l(x)=2 then 500
  420 if l(x)=3 then 520
  430 if l(x)=4 then 540
  440 if l(x)=5 then 560
  450 if l(x)=6 then 580
  460 print "out of bounds"
  465 goto 1690
  470 print "pga rules handicap = 0 to 30"
  472 goto 80
  480 print "fairway"
  490 goto 1690
  500 print "rough"
  510 goto 1690
  520 print "trees"
  530 goto 1690
  540 print "adjacent fairway"
  550 goto 1690
  560 print "trap"
  570 goto 1690
  580 print "water"
  590 goto 1690
  620 if a=1 then 629
  621 print "selection of clubs"
  622 print "yardage desired         suggested clubs"
  623 print "200 to 280 yards            1 to 4"
  624 print "100 to 200 yards           19 to 13"
  625 print "  0 to 100 yards           29 to 23"
  626 a=1
  629 print "what club do you choose";
  630 input c
  635 print : if c<1 then 690
  637 if c>29 then 690
  640 if c>4 then 710
  650 if l(0)<=5 then 740
  660 if c=14 then 740
  665 if c=23 then 740
  670 goto 690
  680 s1=s1-1
  690 print "that club is not in the bag silly."
  693 print
  700 goto 620
  710 if c<12 then 690
  720 c=c-6
  730 goto 650
  740 s1=s1+1
  741 w=1
  742 if c>13 then 960
  746 if int(f/3)=f/3 then 952
  752 if c<4 then 756
  754 goto 760
  756 if l(0)=2 then 862
  760 if s1>7 then 867
  771 d1=int(((30-h)*2.5+187-((30-h)*.25+15)*c/2)+25*rnd(1))
  780 d1=int(d1*w)
  800 if t=2 then 1170
  830 o=(rnd(1)/.8)*(2*h+16)*abs(tan(d1*.0035))
  840 d2=int(sqr(o^2+abs(d-d1)^2))
  850 if d-d1<0 then 870
  860 goto 890
  862 print "you dubbed it."
  864 d1=35
  866 goto 830
  867 if d<200 then 1300
  868 goto 770
  870 if d2<20 then 890
  880 print "too much club.  you're past the hole."
  890 b=d
  900 d=d2
  910 if d2>27 then 1020
  920 if d2>20 then 1100
  930 if d2>.5 then 1120
  940 l(0)=9
  950 goto 1470
  952 if s2+q+(10*(f-1)/18)<(f-1)*(72+((h+1)/.85))/18 then 956
  954 goto 752
  956 q=q+1
  957 if s1/2<>int(s1/2) then 1011
  958 goto 862
  960 print "you may now gauge your distance by"
  961 print "percent of full swing (1% to 100%)";
  970 input w : w=w/100
  980 print : if w>1 then 680
  985 if l(0)=5 then 1280
  990 if c=14 then 760
 1000 c=c-10
 1010 goto 760
 1011 if d<95 then 862
 1012 print "the ball hit a tree and bounced into"
 1013 print "the rough";d-75;"yards from the hole."
 1014 d=d-75
 1018 goto 620
 1020 if o<30 then 1150
 1022 if j>0 then 1150
 1030 if t>0 then 1070
 1035 s9=(s2+1)/15
 1036 if int(s9)=s9 then 1075
 1040 print "you hooked- ";
 1050 l(0)=l(2)
 1055 if o>45 then 1092
 1060 goto 320
 1070 s9=(s2+1)/15
 1071 if int(s9)=s9 then 1040
 1075 print "you sliced- ";
 1080 l(0)=l(1)
 1090 goto 1055
 1092 print "badly."
 1094 goto 320
 1100 l(0)=5
 1110 goto 320
 1120 l(0)=8
 1130 d2=int(d2*3)
 1140 goto 1380
 1150 l(0)=1
 1160 goto 320
 1170 d1=int(.85*d1)
 1180 goto 830
 1190 if l(0)>6 then 1260
 1200 print "your shot went into water."
 1210 s1=s1+1
 1220 print "penalty stroke assessed." : print "hit from previous location."
 1230 j=j+1
 1240 l(0)=1
 1242 d=b
 1250 goto 620
 1260 print "your shot went out of bounds."
 1270 goto 1210
 1280 if t=3 then 1320
 1300 d2=1+(3*int((80/(40-h))*rnd(1)))
 1310 goto 1380
 1320 if rnd(1)>n then 1360
 1330 n=n*.2
 1340 print "you dubbed, you're still in the trap."
 1350 goto 620
 1360 n=.8
 1370 goto 1300
 1380 print "on green";d2;"feet from the pin."
 1381 print "choose your putt distance potency number"
 1382 print "from 1 to 13";
 1400 input i
 1410 s1=s1+1
 1420 if s1+1-p>(h*.072)+2 then 1470
 1425 if k>2 then 1470
 1428 k=k+1
 1430 if t=4 then 1530
 1440 d2=d2-i*(4+2*rnd(1))+1.5
 1450 if d2<-2 then 1560
 1460 if d2>2 then 1500
 1470 print "you holed it!" : print
 1480 f=f+1
 1490 goto 230
 1500 print "putt short."
 1505 d2=int(d2)
 1510 goto 1380
 1530 d2=d2-i*(4+1*rnd(1))+1
 1550 goto 1450
 1560 print "passed by the cup."
 1570 d2=-d2
 1580 goto 1505
 1590 read d,p,l(1),l(2) : print
 1600 print "you are at the tee of hole";f : print "distance";d;"yards,  par";p
 1605 g3=g3+p
 1620 print "on your right is ";
 1630 x=1
 1640 gosub 400
 1650 print "on your left is ";
 1660 x=2
 1670 gosub 400
 1680 goto 620
 1690 return
 1700 data 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2
 1702 data 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4
 1704 data 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2
 1706 data 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2
 1708 data 180,3,6,2,550,5,6,6
 1710 print
 1750 g2=g2+s1
 1760 print "total par for";f-1;"holes is";g3 : print "  your total is";g2
 1761 if g1=f-1 then 1770
 1765 goto 292
 1770 end
    0 clr:poke59468,12
    1 rem program copyright (c) 1979 david malmberg
    2 rem 43064 via moroga
    3 rem fremont, ca. 94538
    4 :
    5 rem cursor #15, nov/dec 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of jan 2 1980
   90 pg$="gomoku":nm$="15":gosub62000
  100 fh=rnd(-ti)
  110 fori=1to8:readx:poke751+i,x:nexti
  120 data1,39,40,41,129,167,168,169
  130 open 4,4
  140 fh=1.0:dim d(8),v(14,14),dr(9),dc(9)
  150 mv$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  160 wh$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}"
  170 fori=1to8:readd(i):next
  180 data-40,-39,1,41,40,39,-1,-41
  190 for i=1 to 9:read dr(i),dc(i):next i
  200 data 1,-1, 1,0, 1,1, 0,-1, 0,0, 0,1, -1,-1, -1,0, -1,1
  210 h=81:c=87:np$="c":m=0:w=0
  220 poke750,c:poke751,h
  230 in$="n":print"{clr}{down}{down}do you want to move first";:gosub1490:print
  240 ifleft$(in$,1)="y"thennp$="h"
  250 in$="w":print"{down}do you want white or black";:gosub1490:print
  260 ifin$="b"thenh=87:c=81:poke750,c:poke751,h
  270 in$="2":print"{down}what type of game should i play:"
  280 print"  1: cautious"
  290 print"  2: balanced"
  300 print"  3: aggressive  ";
  310 gosub1490:print:x=val(left$(in$,1))
  320 ifx>3orx<1thenprint:print"1,2, or 3 only  ";:goto310
  330 fc=.6+.2*x
  340 cr=8:cc=7:mt=14*14
  350 fori=1to14
  360 forj=1to14
  370 v(i,j)=0
  380 nextj
  390 nexti
  400 nn=11
  410 print"{clr}             {rvon}cursor  gomoku"
  420 printtab(nn+2)"{down}abcdefghijklmn"
  430 printtab(nn)"{down}1 {CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}"
  440 fori=2to13
  450 printtab(nn-1)right$(str$(i),2);" {CBM-Q}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-W}"
  460 nexti
  470 printtab(nn-1)"14 {CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}"
  480 printtab(nn+3);"{down}my move:"
  490 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}";chr$(128+h);" = you{down}{down}":printchr$(128+c);" = me"
  500 rem human's move
  510 ifnp$<>"h"then570
  520 printwh$;"{rvon}you":print"{down}{down}{rght}{rght}{rght}{rght}{rvof}me"
  530 t=h:gosub1620
  540 m=m+1:v(i,j)=-1e30:mt=mt-1
  550 ifw=hthen1390
  560 ifmt=0then1380
  570 rem pet's move
  580 printwh$;"you":print"{down}{down}{rght}{rght}{rght}{rght}{rvon}me"
  590 ifm=0theni=7:j=8:goto680
  600 qm=c:gosub840
  610 mx=-1e15
  620 formi=1to14
  630 formj=1to14
  640 ifv(mi,mj)<mxthen660
  645 ifv(mi,mj)=mxandrnd(1)>.2then660
  650 l=32889+40*mi+mj:gosub1290:ifn3>1then660
  655 mx=v(mi,mj):i=mi:j=mj
  660 nextmj
  670 nextmi
  680 b$="":ifi<10thenb$=" "
  690 printmv$tab(nn+12);b$;chr$(j+64)mid$(str$(i),2)
  700 cr=i:cc=j
  710 cl=j+nn+2:r=i+4
  720 l=32767+40*(r-1)+cl
  730 p=peek(l)
  740 fork=1to6:pokel,p:tt=ti
  750 ifti<tt+15then750
  760 pokel,c:tt=ti
  770 ifti<tt+15then770
  780 nextk
  790 t=c:gosub1290:mt=mt-1
  800 ifw=cthen1390
  810 ifmt=0then1380
  820 qm=h:gosub840
  830 v(i,j)=-1e30:goto520
  840 ii=i:jj=j:poke791,qm
  850 forin=-1to1
  860 forjn=-1to1
  870 ifin=0andjn=0thennextjn
  880 forkn=1to4
  890 i=ii+kn*in:j=jj+kn*jn
  900 ifi<1ori>14thenkn=4:goto1240
  910 ifj<1orj>14thenkn=4:goto1240
  920 cl=j+nn+2:r=i+4
  930 l=32767+40*(r-1)+cl
  940 p=peek(l):ifp=corp=hthen1240
  950 pokel,p+128
  960 v(i,j)=0
  970 lh=int(l/256):ll=l-lh*256
  980 poke762,ll:poke763,lh
  990 pokel,p
 1000 sys(05292)
 1010 zp=peek(773):ifzp=0then1080
 1020 forx3=1tozp
 1030 nc=peek(774+x3):nh=peek(782+x3):f=fh
 1040 ifnh=0thennh=nc:f=fc
 1050 v(i,j)=v(i,j)+f*nh*nh
 1060 nextx3
 1070 ne=peek(793):ifne<>0thenv(i,j)=v(i,j)-ne*ne
 1080 nh=0:ifpeek(792)=0then1240
 1090 forx3=1to4
 1100 nt=0:z=d(x3)
 1110 t=peek(l+z)
 1120 ift<>peek(l-z)then1220
 1130 ift=hort=cthen1150
 1140 goto1220
 1150 z=d(x3):gosub1550:ifpeek(l)<>tthennt=nt-1
 1160 ifnt>4thennt=0:goto1220
 1170 ifnt<4then1200
 1180 ift=cthennt=2
 1190 nt=nt+11:goto1220
 1200 if(n1=horn1=c)andn1=n2thennt=0
 1210 ifnt=3and(n1<>handn1<>c)and(n2<>handn2<>c)thennt=8
 1220 nh=nh+nt:nextx3
 1230 ifnh>0thenv(i,j)=fh*nh*nh+v(i,j)
 1240 nextkn
 1250 nextjn
 1260 nextin
 1270 i=ii:j=jj
 1280 return
 1290 n3=0
 1300 for x3=1 to 4
 1310 z=d(x3)
 1320 gosub1550
 1330 ifnt=3thenifn1<>candn1<>32andn2<>candn2<>32thenn3=n3+1
 1340 ifnt=5thenw=t:goto1360
 1350 nextx3
 1360 ifnt=5andw=hthenfh=fh*1.1
 1370 return
 1380 printmv$"{down}{down}stalemate - ";:goto1420
 1390 ifnp$="c"andw=cthenm=m+1
 1400 ifw=hthenprintmv$"{down}{down}you won in"m" moves - ";
 1410 ifw=cthenprintmv$"{down}{down}i won in"m" moves - ";
 1420 ifm<10thenprint"good game!"
 1430 ifm>9andm<20thenprint"close game!"
 1440 ifm>19andm<30thenprint"great game!"
 1450 ifm>29thenprint"fantastic game!"
 1460 print"{down}do you want to play again";:gosub1490
 1470 ifleft$(in$,1)="y"then210
 1480 end
 1490 zc=1:zt=0
 1500 getz$:ifz$<>""then1530
 1510 ifti>=ztthenprintmid$("? ",zc,1);"{left}";:zt=ti+30:zc=3-zc
 1520 goto 1500
 1530 ifz$<>chr$(13)thenin$=z$
 1540 print"? ";in$;:return
 1550 nt=1:ln=l+z
 1560 ifpeek(ln)=tthennt=nt+1:ln=ln+z:goto1560
 1570 n1=peek(ln)
 1580 ln=l-z
 1590 ifpeek(ln)=tthennt=nt+1:ln=ln-z:goto1590
 1600 n2=peek(ln)
 1610 return
 1620 l=32889+40*cr+cc+nn
 1630 p=peek(l):fs=t:iffs=pthenfs=128+fs
 1640 poke l,fs:fz=p:zt=ti+30
 1650 getf$:iff$<>""then1690
 1660 ifti<ztthen1650
 1670 z=fz:fz=peek(l):pokel,z
 1680 zt=ti+30:goto1650
 1690 iff$=chr$(13)then1780
 1700 iff$<"1"orf$>"9"then1650
 1710 z=asc(f$)-48:poke l,p
 1720 cr=cr+dr(z):cc=cc+dc(z)
 1730 ifcr>14thencr=1
 1740 ifcr<1thencr=14
 1750 ifcc>14thencc=1
 1760 ifcc<1thencc=14
 1770 goto1620
 1780 ifp=corp=hthen1650
 1790 gosub1290
 1800 ifn3>1then1650
 1810 pokel,t:i=cr:j=cc:return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by david malmberg{down}
 62020 gosub60500
 62030 print"{down}get five in a row
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:goto100
   10 dimpo$(12,20)
   11 br=0:rv=.7
   12 fr$=""
   13 dimmo(52)
   14 ifw=0thengosub30000
   15 z1$="C":z2$="B":z3$="C":z4$="B"
   16 am=99
   17 gosub20000
   19 l$="{left}{left}":d$="{rght}{rght}":g$="{up}{up}":n$="{down}{down}"
   20 fori=0to11:forj=0to19
   30 sl=int(rnd(8)*6):ifsl=0orsl=6then30
   40 ifsl=1thenpo$(i,j)="A"
   50 ifsl=2orsl=3thenpo$(i,j)="+"
   60 ifsl>3thenpo$(i,j)=" "
   70 nextj:nexti
   71 ifpo$(0,0)="A"thenpo$(0,0)="+"
   72 ifpo$(11,19)="A"thenpo$(11,19)="+"
   73 forhi=1to12:po$(hi,20)=" ":next
   74 forhi=1to20:po$(12,hi)=" ":next
   75 ifpo$(0,19)="A"thenpo$(0,19)="+"
   76 fort=0to11:forr=0to19
   77 ifpo$(t,r)="A"thenbr=br+1
   78 next:next
   80 print"{clr}";:print
   90 fori=0to11
  100 forj=0to19
  110 printpo$(i,j);" ";
  120 nextj
  125 ifi=11then140
  130 print
  140 nexti
  150 s=int(rnd(51)*5):ifs=0ors=5then150
  152 a$="0"
  155 po=0
  160 forii=0to11
  165 forjj=0to19
  170 ifpo$(ii,jj)=" "then200
  180 nextjj:nextii
  190 rem po$(int(rnd(4)*8+1),int(rnd(5)*18+1))=" ":goto160
  200 mo(po+1)=10*jj+ii
  205 po=po+1
  210 ifpo<50then180
  220 mj=int(rnd(4)*po)
  230 mj=mo(mj)
  240 gj=int(mj/10):gi=mj-gj*10
  247 ifgi<2orgi>10then220
  249 ifgj<2orgj>18then220
  250 print"{home}";
  260 fori=1togi
  270 print"{down}":next
  280 printtab(gj*2);
  290 uf=0:gosub2000
  310 b$=a$:geta$:ifa$=""thena$=b$
  311 ifbr=0then3500
  312 ifam<0then4000
  313 ifb$<>a$then5000
  314 am=int(am*10-1)/10
  320 ifa$="6"then500
  330 ifa$="8"then540
  340 ifa$="4"then580
  350 ifa$="2"then620
  360 ifa$="5"thenam=am-rv:goto660
  380 ifa$="0"thenprint"{home} {rvon}targets=";br;"{left} {rght}{rvof}       {rvon}time=";am;"{rvof}  ":goto250
  499 goto5000
  500 ifs=1 andpo$(gi,gj+1)=" "andgj<18thenuf=1:gosub2000:gosub2000:gj=gj+1
  510 ifs<>1thenuf=0:a$="0":s=1:gosub2000
  530 goto310
  540 ifs=2andpo$(gi-1,gj)=" "andgi>1 thenuf=1:gosub2000:gosub2000:gi=gi-1
  550 ifs<>2thenuf=0:a$="0":s=2:gosub2000
  570 goto310
  580 ifs=3andpo$(gi,gj-1)=" "andgj>1 thenuf=1:gosub2000:gosub2000:gj=gj-1
  590 ifs<>3thenuf=0:a$="0":s=3:gosub2000
  610 goto310
  620 ifs=4andpo$(gi+1,gj)=" "andgi<11thenuf=1:gosub2000:gosub2000:gi=gi+1
  630 ifs<>4thenuf=0:a$="0":s=4:gosub2000
  650 goto310
  660 rem shoot it out
  670 onsgoto800,930,1060,1200
  800 ifpo$(gi,gj+1)="+"thenprint"{rght}{rght} {left}{left}{left}";:po$(gi,gj+1)=" ":goto310
  805 x=gj+1:y=gi
  810 ifpo$(gi,gj+1)="A"thenprint"{rght}{rght} {left}{left}{left}";:po$(gi,gj+1)=" ":goto3000
  820 forj=1to18-gj
  830 ifpo$(gi,gj+j)<>" "then845
  840 next
  845 print"{rght}{rght}C";
  850 forp=1toj*2-2
  860 print"{left} ";z1$;
  870 next
  880 ifpo$(gi,gj+j)="A"thenpo$(gi,gj+j)=" ":x=gj+j:y=gi:goto 2500
  890 print"{left}@";:po$(gi,gj+j)=" ":print"{left} ";
  900 forp=1toj*2+1:print"{left}";:next
  920 goto310
  930 ifpo$(gi-1,gj)="+"thenprint"{up}{up} {down}{down}{left}";:po$(gi-1,gj)=" ":goto310
  935 x=gj:y=gi-1
  940 ifpo$(gi-1,gj)="A"thenprint"{up}{up} {down}{down}{left}";:po$(gi-1,gj)=" ":goto3000
  945 ifgi=1then310
  950 forj=1togi-1
  960 ifpo$(gi-j,gj)<>" "then980
  970 next
  980 print"{up}{up}B";
  990 forp=1toj*2-2
 1000 print"{left} {up}{left}";z2$;
 1010 next
 1020 ifpo$(gi-j,gj)="A"thenpo$(gi-j,gj)=" ":x=gj:y=gi-j:goto2500
 1030 print"{left}@";:po$(gi-j,gj)=" ":print"{left} ";
 1035 print"{left}";
 1040 forp=1toj*2:print"{down}";:next
 1050 goto310
 1060 ifpo$(gi,gj-1)="+"thenprint"{left}{left} {rght}";:po$(gi,gj-1)=" ":goto310
 1065 x=gj-1:y=gi
 1070 ifpo$(gi,gj-1)="A"thenprint"{left}{left} {rght}";:po$(gi,gj-1)=" ":goto3000
 1075 ifgj=1then310
 1080 forj=1togj-1
 1090 ifpo$(gi,gj-j)<>" "then1110
 1100 next
 1110 print"{left}{left}C";
 1120 forp=1toj*2-2
 1130 print"{left} {left}{left}";z3$;
 1140 next
 1150 ifpo$(gi,gj-j)="A"thenpo$(gi,gj-j)=" ":x=gj-j:y=gi:goto2500
 1160 print"{left}@";:po$(gi,gj-j)=" ":print"{left} ";
 1170 forp=1toj*2-1:print"{rght}";:next
 1190 goto310
 1200 ifpo$(gi+1,gj)="+"thenprint"{down}{down} {up}{up}{left}";:po$(gi+1,gj)=" ":goto310
 1205 x=gj:y=gi+1
 1210 ifpo$(gi+1,gj)="A"thenprint"{down}{down} {up}{up}{left}";:po$(gi+1,gj)=" ":goto3000
 1215 ifgi>9then310
 1220 forj=1to10-gi
 1230 ifpo$(gi+j,gj)<>" "then1240
 1233 next
 1240 print"{down}{down}B";
 1250 forp=1toj*2-2
 1260 print"{left} {down}{left}";z4$;
 1270 next
 1280 ifpo$(gi+j,gj)="A"thenpo$(gi+j,gj)=" ":x=gj:y=gi+j:goto2500
 1290 print"{left}@";:po$(gi+j,gj)=" ":print"{left} ";
 1300 print"{left}";
 1310 forp=1toj*2:print"{up}";:next
 1320 goto310
 1999 goto9998
 2000 rem sub za risanje griveta
 2010 rem s=smjer; uf=sa ili bez
 2020 onsgosub2040,2080,2120,2160
 2030 return
 2040 ifuf=0then2060
 2050 print"{left}{up} {down}{left} {down}{left} {up}{rght}";
 2060 print"{left}{up}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {down}{left}{left}{left}QQC{down}{left}{left}{left}{CBM-*}{rvon}{CBM-*}{rvof} {left}{left}{up}";
 2070 return
 2080 ifuf=0then2100
 2090 print"{down}{left}   {left}{left}{up}{up}";
 2100 print"{up}{left} B {down}{left}{left}{left}{rvon}{CBM-*}{rvof}Q{rvon}{SHIFT-POUND}{rvof}{down}{left}{left}{left}{CBM-*}Q{SHIFT-POUND}{up}{left}{left}";
 2110 return
 2120 ifuf=0then2140
 2130 print"{rght}{up} {down}{left} {down}{left} {left}{left}{left}{up}";
 2140 print"{left}{up} {CBM-*}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}CQQ{down}{left}{left}{left} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{up}";
 2150 return
 2160 ifuf=0then2180
 2170 print"{up}{left}   {left}{left}{down}{down}";
 2180 print"{left}{up}{rvon}{SHIFT-POUND}{rvof}Q{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{SHIFT-POUND}Q{CBM-*}{down}{left}{left}{left} B {left}{left}{up}";
 2190 return
 2500 rem *sub pogodjene bombe*
 2501 goto2540
 2505 print"{left}";
 2510 print"{left}{up}MBN{down}{left}{left}{left}C*C{down}{left}{left}{left}NBM{up}{left}{left}";
 2520 print"{left}{up}   {down}{left}{left}{left}   {down}{left}{left}{left}   {up}{left}{left}";
 2525 print" ";
 2527 br=br-1
 2530 return
 2540 gosub2505
 2550 fork=-1to1:forl=-1to1
 2560 ifgi=y+kandgj=x+lthen3000
 2565 ify+k<0orx+l<0then2580
 2570 ifpo$(y+k,x+l)="A"then2600
 2580 next:next
 2585 goto5000
 2600 rem*ima atna okolo*
 2601 fr$=""
 2605 po$(y+k,x+l)=" "
 2610 ifk<>0thenonsgn(k+1)+1gosub2800,2900
 2620 ifl<>0thenonsgn(l+1)+1gosub2650,2700
 2630 gosub2505
 2635 printfr$;
 2640 goto2580
 2650 printl$;:fr$=fr$+d$:return
 2700 printd$;:fr$=fr$+l$:return
 2800 printg$;:fr$=fr$+n$:return
 2900 printn$;:fr$=fr$+g$:return
 3000 rem*grivet se je riknuo*
 3010 fors=1to4:gosub2000:next
 3020 print"{left}{up}UvI{down}{left}{left}{left}>W<{down}{left}{left}{left}JaK{left}{left}{up}";
 3030 print"{up}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {left}{left}{up}";
 3035 am=am-5
 3037 br=br-1
 3040 goto150
 3500 rem pobjeda
 3510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 3515 print"        ";
 3520 print"{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon}{SHIFT-POUND}  {rvof} {rvon}   {rvof} {rvon}   {rvof} {rvon}  {CBM-*}{rvof} {rvon} {rvof} {rvon} {rvof}"
 3525 print"        ";
 3530 print"{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}    {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof} {rvon} {CBM-U}{rvof}{SHIFT-POUND}  {rvon} {rvof}"
 3535 print"{up}        ";
 3540 print" {rvon} {rvof}  {rvon} {rvof} {CBM-*}{rvon}  {rvof}  {rvon} {rvof}  {rvon}   {rvof} {rvon} {rvof} {rvon}{CBM-*}{rvof}  {rvon} {rvof}"
 3545 fort=1to1500:tr=23:next
 3550 clr:w=1:goto10
 4000 print"{clr}"
 4001 forpu=1to5
 4005 print"       ";
 4010 print"{rvon}  {CBM-*}{rvof} {rvon}   {rvof} {rvon}   {rvof} {rvon}   {rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}   {rvof}"
 4015 print"       ";
 4020 print"{rvon} {rvof} {rvon} {rvof} {rvon} {rvof}C  {rvon} {rvof}C  {rvon} {rvof}C  {rvon} {rvof}{CBM-@}{rvon} {rvof}  {rvon} {rvof} "
 4025 print"       ";
 4030 print"{rvon}  {rvof}{SHIFT-POUND} {rvon}   {rvof} {rvon} {rvof}   {rvon}   {rvof} {rvon} {rvof} {rvon} {rvof}  {rvon} {rvof} "
 4037 fort=1to500:next
 4038 print:print: next:end
 5000 print"{home} {rvon}targets=";br;"{left} {rght}{rvof}       {rvon}time=";am;"{rvof}  ":goto250
 9998 print"{home}";
 9999 end
 10000 fort=1to128
 10001 print"{home}";t;
 10005 poke32788,t
 10009 fork=1to500:next
 10010 next
 10020 stop
 20000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 20010 print"            {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"
 20020 print"            QQC"
 20030 print"            {CBM-*}{rvon}{CBM-*}{rvof} remlin ..."
 20040 return
 30000 print"{clr}instructions?"
 30010 geto$:ifo$=""then30010
 30020 ifo$<>"y"thenreturn
 30025 print"{clr}{rvon}at the end of a game type{rvof}'run'{rvon}to{rvof}
 30026 print"{rvon} start another game.
 30030 print"{down}you have to destroy all spades (A)
 30040 print"on the screen in only 100 seconds."
 30050 print"your gremlin tank commands are:"
 30060 print:print"               up"
 30070 print"               {rvon}8{rvof}"
 30080 print"         left {rvon}4{rvof} {rvon}6{rvof} right"
 30090 print"               {rvon}2{rvof}"
 30100 print"              down"
 30110 print:print"key {rvon}5{rvof} fires the gun.
 30120 print"the first key directs the tank,"
 30130 print"the second key moves it until some"
 30140 print"other key is pressed."
 30150 print"if you fire at 'A' at point-blanc"
 30160 print"range, the explosion will destroy "
 30170 print"your gremlin tank, and you will wait"
 30180 print"five seconds for a new one. "
 30185 print"{down}are you ready?
 30190 geto$:ifo$=""then30190
 30200 return
    2 rem    gribbet  by bill finzer
    4 rem        october,1978
    6 w=3600
  200 gosub 1000:rem instructions
  210 gosub 500 : rem initialize
  220 gosub 1500 : rem the chase
  230 gosub 3000: rem the win
  240 print"{clr}that took you"t1"seconds!"
  245 print"{down}and the gribbet was moving once every
  246 print"  "int(w/60*100)/100"seconds.{down}"
  250 print"want to try to catch another look at      him?"
  255 poke 158,0
  260 get a$:if a$="" then 260
  270 if a$="n" then end
  272 print"{down}ok, but i think the gribbet may move    faster this time.
  274 t=ti
  276 if ti<t+200 then 276
  280 goto 210
  500 rem initialize
  502 w=w/2
  505 x=rnd(-ti)
  510 x=int(rnd(  1)*37)+1
  520 y=int(rnd(  1)*23)+1
  530 dx=int(rnd(1)*3)-1
  540 dy=int(rnd(1)*3)-1
  550 px=19:py=11
  600 rem draw frame
  610 s$="***************************************"
  620 print"{clr}"s$
  630 for i= 1 to 23
  640 print"*"tab(38)"*"
  650 next i
  660 prints$;
  670 gosub 800 : rem move cursor
  700 return
  800 rem move cursor
  810 poke 216,py-1:print
  820 printtab(px);
  830 return
 1000 rem instructions
 1010 print"{clr}        {rvon}{CTRL-G}{rvon}{ensh}{CTRL-B}{CTRL-B}{wht}{del}{rvof}
 1020 print"{down}the gribbet is a little invisible
 1030 print"beast brought from the planet yowl
 1040 print"during the filming of close encounters.
 1050 print"{down}the gribbet lives inside t.v. screens
 1060 print"like mine.  i have one inside of me      (though not every pet does).
 1070 print"{down}you can get a look at my gribbet if
 1080 print"you can catch him!
 1090 print"{down}{down}my gribbet moves around, but very
 1100 print"slowly. he moves in a straight line     unless you are within 1 cell
 1110 print"of him. then he might change directions!
 1120 print"so be {rvon}quick{rvof} once you get close!
 1130 print"{down}press any key to go on."
 1140 get a$:if a$="" then 1140
 1145 print"{clr}"
 1150 print"{down}{down}since i know where the gribbet is,
 1160 print"i'll give you clues by blinking your
 1170 print"cursor faster when you are close and
 1180 print"slower when you are far.
 1190 print"{down}{down}you can move your cursor by pressing the number keys as shown.
 1200 printtab(10)"M  B  N
 1210 printtab(10)" 7 8 9
 1220 printtab(10)"C4 5 6C
 1230 printtab(10)" 1 2 3
 1240 printtab(10)"N  B  M
 1250 print"{down}press each key once for each move
 1260 print"{down}press any key to start the game
 1270 get a$:if a$="" then 1270
 1280 return
 1500 rem the chase
 1505 gosub 800:print"Q{left}";
 1510 t1=ti : t2=ti : t3 =ti
 1520 r=(px-x)*(px-x)+(py-y)*(py-y)
 1530 if ti>t3+r +1 then gosub 2000:             rem blink cursor
 1535 if x=px and y=py then return:           rem got the gribbet
 1540 if ti>t2+w then gosub 2500:goto 1520    : rem move gribbet
 1560 get a$
 1570 if a$="" then 1530
 1580 a=val(a$)
 1590 ona goto 1710,1720,1730,1740,1530,1760,1770,1780,1790,1530
 1710 px=px-1:py=py+1:goto 1800
 1720 py=py+1:goto 1800
 1730 px=px+1:py=py+1:goto 1800
 1740 px=px-1:        goto 1800
 1760 px=px+1:        goto 1800
 1770 px=px-1:py=py-1:goto 1800
 1780 py=py-1:goto 1800
 1790 px=px+1:py=py-1:goto 1800
 1800 print" ";
 1805 if px=38 then px=37
 1810 if px=0 then px=1
 1820 if py=0 then py=1
 1830 if py=24 then py=23
 1840 gosub 800
 1845 if c=1 then print"Q{left}";
 1847 if c=0 then print"{rvon}Q{rvof}{left}";
 1850 goto 1520
 2000 rem blink cursor
 2010 if c=1 then print"{rvon}Q{rvof}{left}";:c=0:goto 2030
 2020 if c=0 then print"Q{left}";:c=1
 2030 t3=ti
 2040 return
 2500 rem move gribbet
 2510 if r>2 then 2540
 2520 dx=int(rnd(1)*3)-1
 2530 dy=int(rnd(1)*3)-1
 2540 x=x+dx
 2550 y=y+dy
 2560 if x=0 then x=1:dx=1:goto 2600
 2570 if x=38 then x=37:dx=-1:goto 2600
 2580 if y=0 then y=1:dy=1:goto 2600
 2590 if y=24 then y=23:dy=-1
 2600 t2=ti
 2610 return
 3000 rem got the gribbet
 3005 rem first blink screen
 3010 t1=int((ti-t1)/60*100)/100
 3020 for i= 1 to 3
 3030 poke 59409,52:t=ti
 3040 if ti<t+30 then 3040
 3050 poke 59409,60
 3060 if ti<t=60 then 3060
 3070 next i
 3080 rem now blink 'i got it!'
 3090 for i= 1 to 3
 3100 print"{home}{rvon}i think you got it!!":t=ti
 3110 if ti<t+30 then 3110
 3120 print"{home}if think you got it!!"
 3130 if ti<t+60 then 3130
 3140 next i
 3150 print"{down}{down}the gribbet is coming into view now      for a brief moment.  watch!
 3160 if ti<t+200 then 3160
 3200 printtab(10)"     {rvon}{SHIFT-POUND}   {CBM-*}{rvof}
 3210 printtab(10)"    {rvon}{SHIFT-POUND}     {CBM-*}{rvof}
 3220 printtab(10)"   {rvon}{SHIFT-POUND}  {CBM-+}{CBM-+}{CBM-+}  {CBM-*}{rvof}
 3230 printtab(10)"  {rvon}{SHIFT-POUND}   {CBM-+}{CBM-+}{CBM-+}   {CBM-*}{rvof}
 3240 printtab(10)"{CBM-I}{CBM-@}{rvon}   N   M   {rvof}{CBM-@}{CBM-I}
 3250 printtab(10)"{CBM-U}{CBM-T}{rvon}  N  Q  M  {rvof}{CBM-T}{CBM-U}
 3260 printtab(10)"  {rvon} N W   W M {rvof}
 3270 printtab(10)"  {rvon}N    W    M{rvof}
 3280 printtab(10)"  {SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}
 3290 printtab(10)"{down}hi! i'm a gribbet"
 3300 printtab(8)"you won't see me for long!
 3310 if ti<t+500 then 3310
 3320 return
  100 rem program by jim butterfield
  110 rem    towers architecture by john stout
  120 i=rnd(-ti)
  130 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 poke59468,12:deffnr(x)=int(rnd(1)*x)+1
  150 print"{clr}{swuc}{down}     grungy towers"
  160 print"{down}a murder has been ";
  170 z$="committed at the towers.  your job,  superintendent, ":gosub 4000
  180 z$="is to find the murderer.{down} ":gosub 4000
  190 z$="check the alibis closely: the killer is sure to give ":gosub 4000
  200 z$="himself away.{down}":gosub 3900
  210 z$="hint: nobody ever suspects the real murderer.":gosub 3900
  230 z$="playing hint:  name any room or person using ":gosub 4000
  240 z$="three or more letters, e.g., 'liv' for living room.{down}":gosub 3900
  270 dimm$(25),r$(25),k$(4),y$(6)
  271 dims(12),n$(12),c$(12),a$(12),b$(12),r%(12)
  272 dimw(12),x(12)
  280 data shot with a antique pistol,stabbed with an oriental dagger
  290 data strangled by a silken sash,clubbed with a brass candlestick
  300 data mangled by a fallen chandelier,smothered with an ermine pillow
  310 fori=1to6:ready$(i):nexti:y%=fnr(6)
  320 data superintendent,inspector,sergeant,constable
  330 fori=1to4:readk$(i):nexti:k%=1
  340 fori=1to25:readr$(i):next
  350 datahall,living room,kitchen,dining room,billiard room,downstairs lav
  360 databathroom,master bedroom,nursery
  370 dataservant's quarters
  380 dataconservatory,terrace,stables,attics,laundry,library,music room,study
  390 databoiler room,pantry,scullery
  400 datafirst bedroom,second bedroom,third bedroom,fourth bedroom
  410 fori=1to25:m$(i)="":next
  420 i=1
  430 j=fnr(24)+1:ifm$(j)=""thengosub3000:i=j:goto430
  460 fori=1to25:ifm$(i)<>""thennexti:goto500
  470 j=fnr(25):ifm$(j)=""goto470
  480 gosub3000:goto460
  500 fori=1to12:readn$(i),c$(i),a$(i),b$(i)
  510 nexti
  520 fori=1to25:iflen(m$(i))>1goto560
  530 forj=i+1to25:iflen(m$(j))>1goto550
  540 gosub3000
  550 nextj
  560 nexti
  562 print"press any key to start."
  563 getz$:ifz$=""goto563
  566 print"{clr}":gosub2000
  570 data fungus,butler,"sir, i'm afraid i know nothing.",most regrettable.
  580 data mrs ramsbottom,cook,"don't know a thing, dearie.","isn't it awful?"
  590 data bloggs,gardener,"well,guv,it  beats me.","it's a rum go"
  600 data fifi,maid,"eet ees so surpriseeng!","how you say, scary.."
  610 data cholmondely,colonel,"by jove!  awkward business, this.","bother!"
  620 data lady throckmorton,dowager,"dear me..","it's very bad mannered"
  630 datarags,chauffeur,"don't know nothing, sir:","makes you think, don't it?"
  640 data agatha fforbes-smythe,debutante,goodness!,"isn't it just awful?"
  650 data tinsel,actress,"don't know a thing, darling.","how dramatic, though!"
  660 data madame blinsky,countess,"i see nodink, my dear.",is very sinister
  670 data frank n stone,doctor,"bad business, this.","don't like it at all"
  680 data piggy fanshaw,twit,"i say, exciting, what?","jolly bad show, old man"
  700 r%=fnr(24)+1
  710 fori=1to12:w%=fnr(25)
  720 x%=fnr(25):ifx%=r%goto720
  730 w(i)=w%:x(i)=x%:nexti
  740 gosub2000:m%=fnr(12):x(m%)=0:x=r%
  750 g%=fnr(3):ong%goto780,810
  760 fori=1to11:x=x(i):forj=i+1to12:ifx=x(j)goto810
  770 nextj,i:g%=1
  780 z%=1:x=fnr(25):fori=1to12:ifx(i)=xgoto810
  790 nexti
  800 z%=fnr(12):ifm%=z%goto800
  810 x(m%)=-x:gosub2000:fori=1to12
  820 s(i)=fnr(12):nexti
  830 gosub2080:r=1:print"{clr}"
  840 print "you are ";:x=r:gosub 3500:z$=r$:gosub 3900
  850 print:fori=1to12:ifw(i)<>rgoto1020
  860 z$=n$(i)+",the "+c$(i)+", is here.  ":gosub 4000
  870 z$="the "+c$(i)+" says:":gosub 4000
  875 z$="'"+a$(i)+"  ":if r%(i)>0 then z$="'i already told you:  "
  880 r%(i)=1:gosub4000:z$="i was ":
  882 x=abs(x(i)):gosub 3400:z$=z$+r$
  890 z$=z$+"at the time ":gosub4000
  900 ifi=m%andz%=0goto960
  910 z$="":w$="with the ":forj=1to12:ifi=jgoto930
  920 if x<>x(j) goto 930
  921 if z$<>"" then z$=z$+" ":gosub 4000:w$="and the "
  922 z$=w$+c$(j)
  930 nextj
  940 if z$<>"" then z$=z$+".  ":gosub 4000:goto 970
  950 ifi=m%andz%>0thenz$=w$+c$(z%)+".  ":gosub4000:goto970
  960 z$="by myself.  ":gosub4000
  970 s%=s(i):ifs%=m%thenz$="maybe it was suicide. ":gosub4000:goto1010
  990 ifabs(x(s%))=xthenz$="i dunno who could have done it.  ":gosub4000:goto1010
 1000 z$="i suspect the ":gosub4000:z$=c$(s%)+".  ":gosub4000
 1010 z$=b$(i):gosub4000:print".'":print:forj=1to2e3:next
 1020 nexti
 1030 ifr%<>rgoto1070
 1040 z$="there is a dead body here "+y$(y%)+".":gosub 3900
 1060 z$="the body says: nothing":gosub 3900:print
 1070 m$=m$(r)
 1080 print"you may {rvon} accuse {rvof}, ";
 1085 z$="or proceed to:":gosub 3900
 1090 fori=1tolen(m$):j=asc(mid$(m$,i))-64:printr$(j):nexti
 1100 print
 1110 input"your move  {CBM-B}{left}{left}{left}";x$
 1120 if len(x$)<3goto1080
 1130 x$=left$(x$,3):ifx$="acc"goto1170
 1140 fori=1tolen(m$):j=asc(mid$(m$,i))-64
 1150 ifleft$(r$(j),3)=x$thenr=j:goto840
 1160 nexti:goto1080
 1170 print"very well, ";k$(k%):print" you accuse the...";
 1180 inputa$:iflen(a$)<3goto1080
 1190 a$=left$(a$,3):fori=1to12:ifa$<>left$(c$(i),3)thennexti:goto1080
 1200 ifi=m%goto1250
 1210 print"bungler!  it's not the ";c$(i);"!"
 1220 k%=k%+1:ifk%>4goto1270
 1230 print"you are demoted to ";k$(k%);"!"
 1240 print"go back and try to get the right one!":goto1080
 1250 print"{rvon} right! {rvof}  another criminal speedily"
 1260 print"brought to justice!"
 1270 print:print "  solution:"
 1280 print "the ";c$(m%);" ";
 1290 if r%(m%)=0 then z$="would have ":gosub 4000
 1300 if g%=2 then z$="admitted being in the murder room!":goto 1390
 1310 z$="claimed to be ":gosub 4000
 1320 x=abs(x(m%)):gosub 3500:z$=r$:gosub4000
 1330 w$="with the ":if z%=0 then w$="alone.  but the "
 1340 f=0:for j=1 to 12:if m%=j goto 1360
 1350 ifx=x(j)thenz$=w$:gosub4000:z$=c$(j)+" ":gosub4000:w$="and the ":f=1
 1360 nextj:if f=0 and z%>0 then f=1:z$=w$:gosub4000:z$=c$(z%):gosub4000
 1370 if f=1 then z$=" ... who won't back up this alibi."
 1380 if z%=0 then z$="were there..."
 1390 gosub 4000
 1400 print:end
 2000 n=int((rnd(1)*30))
 2010 l=fnr(6)*2
 2020 print"{home}";left$(dn$,l)
 2030 gosub3010
 2040 fori=l+9to20
 2050 ifi>15andi<19thenprinttab(n+1)"{CBM-+}{SHIFT-+}{SHIFT-+}{CBM-+}{CBM-G}":goto2070
 2060 printtab(n+1)"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}"
 2070 next:return
 2080 forj=0to15+rnd(1)*8:gosub2000:nextj
 2090 print"{home}"dn$;left$(dn$,6)
 2100 printtab(n+1)"{SHIFT-POUND} {CBM-*}"
 2110 fori1=1to4:printtab(n+1)"{CBM-G}W{CBM-M}":next
 2120 print"{down}{down}welcome to grungy towers"
 2130 print"hit any key to start"
 2140 getc$:ifc$=""then2140
 2150 return
 3000 m$(j)=m$(j)+chr$(i+64):m$(i)=m$(i)+chr$(j+64):return
 3010 printtab(n+2)"{CBM-M}{CBM-V}"
 3020 printtab(n+2)"{rvon}{SHIFT-POUND}{CBM-*}"
 3030 printtab(n+1)"{rvon}{SHIFT-POUND}  {CBM-*}"
 3040 printtab(n)"{CBM-C}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{CBM-V}"
 3050 printtab(n+1)"{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-G}"
 3060 printtab(n+1)"{CBM-B}{SHIFT-POUND}{CBM-*}{CBM-B}{CBM-G}"
 3070 printtab(n+1)"{CBM-B}{CBM-G}{CBM-M}{CBM-B}{CBM-G}"
 3080 printtab(n+1)"{CBM-B}L{SHIFT-@}{CBM-B}{CBM-G}"
 3090 printtab(n+1)"{CBM-B}{rvon}{CBM-F}{CBM-F}{rvof}{CBM-B}{CBM-G}"
 3100 return
 3400 if x=r then r$="here ":return
 3500 r$="in the "+r$(x)
 3510 if x=12 then r$="on the "+r$(x)
 3520 r$=r$+" ":return
 3900 gosub 4000:print:return
 4000 z=39-pos(0):iflen(z$)<=zthenprintz$;:return
 4010 ifz<2thenprint:goto4000
 4020 forz1=zto1step-1:ifmid$(z$,z1,1)<>" "thennextz1
 4030 ifz1=0thenprint:goto4000
 4040 printleft$(z$,z1)
 4050 z1=z1+1:if z1>len(z$) then return
 4060 if mid$(z$,z1,1)=" " goto 4050
 4070 z$=mid$(z$,z1):goto 4000
  100 rem program by jim butterfield
  110 rem    towers architecture by john stout
  120 i=rnd(-ti)
  130 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 poke59468,12:deffnr(x)=int(rnd(1)*x)+1
  150 print"{clr}{swuc}{down}     grungy towers"
  160 print"{down}a murder has been ";
  170 z$="committed at the towers.  your job,  superintendent, ":gosub 4000
  180 z$="is to find the murderer.{down} ":gosub 4000
  190 z$="check the alibis closely: the killer is sure to give ":gosub 4000
  200 z$="himself away.{down}":gosub 3900
  210 z$="hint: nobody ever suspects the real murderer.":gosub 3900
  230 z$="playing hint:  name any room or person using ":gosub 4000
  240 z$="three or more letters, e.g., 'liv' for living room.{down}":gosub 3900
  270 dimm$(25),r$(25),k$(4),y$(6)
  271 dims(12),n$(12),c$(12),a$(12),b$(12),r%(12)
  272 dimw(12),x(12)
  280 data shot with a antique pistol,stabbed with an oriental dagger
  290 data strangled by a silken sash,clubbed with a brass candlestick
  300 data mangled by a fallen chandelier,smothered with an ermine pillow
  310 fori=1to6:ready$(i):nexti:y%=fnr(6)
  320 data superintendent,inspector,sergeant,constable
  330 fori=1to4:readk$(i):nexti:k%=1
  340 fori=1to25:readr$(i):next
  350 datahall,living room,kitchen,dining room,billiard room,downstairs lav
  360 databathroom,master bedroom,nursery
  370 dataservant's quarters
  380 dataconservatory,terrace,stables,attics,laundry,library,music room,study
  390 databoiler room,pantry,scullery
  400 datafirst bedroom,second bedroom,third bedroom,fourth bedroom
  410 fori=1to25:m$(i)="":next
  420 i=1
  430 j=fnr(24)+1:ifm$(j)=""thengosub3000:i=j:goto430
  460 fori=1to25:ifm$(i)<>""thennexti:goto500
  470 j=fnr(25):ifm$(j)=""goto470
  480 gosub3000:goto460
  500 fori=1to12:readn$(i),c$(i),a$(i),b$(i)
  510 nexti
  520 fori=1to25:iflen(m$(i))>1goto560
  530 forj=i+1to25:iflen(m$(j))>1goto550
  540 gosub3000
  550 nextj
  560 nexti
  562 print"press any key to start."
  563 getz$:ifz$=""goto563
  566 print"{clr}":gosub2000
  570 data fungus,butler,"sir, i'm afraid i know nothing.",most regrettable.
  580 data mrs ramsbottom,cook,"don't know a thing, dearie.","isn't it awful?"
  590 data bloggs,gardener,"well,guv,it  beats me.","it's a rum go"
  600 data fifi,maid,"eet ees so surpriseeng!","how you say, scary.."
  610 data cholmondely,colonel,"by jove!  awkward business, this.","bother!"
  620 data lady throckmorton,dowager,"dear me..","it's very bad mannered"
  630 datarags,chauffeur,"don't know nothing, sir:","makes you think, don't it?"
  640 data agatha fforbes-smythe,debutante,goodness!,"isn't it just awful?"
  650 data tinsel,actress,"don't know a thing, darling.","how dramatic, though!"
  660 data madame blinsky,countess,"i see nodink, my dear.",is very sinister
  670 data frank n stone,doctor,"bad business, this.","don't like it at all"
  680 data piggy fanshaw,twit,"i say, exciting, what?","jolly bad show, old man"
  700 r%=fnr(24)+1
  710 fori=1to12:w%=fnr(25)
  720 x%=fnr(25):ifx%=r%goto720
  730 w(i)=w%:x(i)=x%:nexti
  740 gosub2000:m%=fnr(12):x(m%)=0:x=r%
  750 g%=fnr(3):ong%goto780,810
  760 fori=1to11:x=x(i):forj=i+1to12:ifx=x(j)goto810
  770 nextj,i:g%=1
  780 z%=1:x=fnr(25):fori=1to12:ifx(i)=xgoto810
  790 nexti
  800 z%=fnr(12):ifm%=z%goto800
  810 x(m%)=-x:gosub2000:fori=1to12
  820 s(i)=fnr(12):nexti
  830 gosub2080:r=1:print"{clr}"
  840 print "you are ";:x=r:gosub 3500:z$=r$:gosub 3900
  850 print:fori=1to12:ifw(i)<>rgoto1020
  860 z$=n$(i)+",the "+c$(i)+", is here.  ":gosub 4000
  870 z$="the "+c$(i)+" says:":gosub 4000
  875 z$="'"+a$(i)+"  ":if r%(i)>0 then z$="'i already told you:  "
  880 r%(i)=1:gosub4000:z$="i was ":
  882 x=abs(x(i)):gosub 3400:z$=z$+r$
  890 z$=z$+"at the time ":gosub4000
  900 ifi=m%andz%=0goto960
  910 z$="":w$="with the ":forj=1to12:ifi=jgoto930
  920 if x<>x(j) goto 930
  921 if z$<>"" then z$=z$+" ":gosub 4000:w$="and the "
  922 z$=w$+c$(j)
  930 nextj
  940 if z$<>"" then z$=z$+".  ":gosub 4000:goto 970
  950 ifi=m%andz%>0thenz$=w$+c$(z%)+".  ":gosub4000:goto970
  960 z$="by myself.  ":gosub4000
  970 s%=s(i):ifs%=m%thenz$="maybe it was suicide. ":gosub4000:goto1010
  990 ifabs(x(s%))=xthenz$="i dunno who could have done it.  ":gosub4000:goto1010
 1000 z$="i suspect the ":gosub4000:z$=c$(s%)+".  ":gosub4000
 1010 z$=b$(i):gosub4000:print".'":print:forj=1to2e3:next
 1020 nexti
 1030 ifr%<>rgoto1070
 1040 z$="there is a dead body here "+y$(y%)+".":gosub 3900
 1060 z$="the body says: nothing":gosub 3900:print
 1070 m$=m$(r)
 1080 print"you may {rvon} accuse {rvof}, ";
 1085 z$="or proceed to:":gosub 3900
 1090 fori=1tolen(m$):j=asc(mid$(m$,i))-64:printr$(j):nexti
 1100 print
 1110 input"your move  {CBM-B}{left}{left}{left}";x$
 1120 if len(x$)<3goto1080
 1130 x$=left$(x$,3):ifx$="acc"goto1170
 1140 fori=1tolen(m$):j=asc(mid$(m$,i))-64
 1150 ifleft$(r$(j),3)=x$thenr=j:goto840
 1160 nexti:goto1080
 1170 print"very well, ";k$(k%):print" you accuse the...";
 1180 inputa$:iflen(a$)<3goto1080
 1190 a$=left$(a$,3):fori=1to12:ifa$<>left$(c$(i),3)thennexti:goto1080
 1200 ifi=m%goto1250
 1210 print"bungler!  it's not the ";c$(i);"!"
 1220 k%=k%+1:ifk%>4goto1270
 1230 print"you are demoted to ";k$(k%);"!"
 1240 print"go back and try to get the right one!":goto1080
 1250 print"{rvon} right! {rvof}  another criminal speedily"
 1260 print"brought to justice!"
 1270 print:print "  solution:"
 1280 print "the ";c$(m%);" ";
 1290 if r%(m%)=0 then z$="would have ":gosub 4000
 1300 if g%=2 then z$="admitted being in the murder room!":goto 1390
 1310 z$="claimed to be ":gosub 4000
 1320 x=abs(x(m%)):gosub 3500:z$=r$:gosub4000
 1330 w$="with the ":if z%=0 then w$="alone.  but the "
 1340 f=0:for j=1 to 12:if m%=j goto 1360
 1350 ifx=x(j)thenz$=w$:gosub4000:z$=c$(j)+" ":gosub4000:w$="and the ":f=1
 1360 nextj:if f=0 and z%>0 then f=1:z$=w$:gosub4000:z$=c$(z%):gosub4000
 1370 if f=1 then z$=" ... who won't back up this alibi."
 1380 if z%=0 then z$="were there..."
 1390 gosub 4000
 1400 print:end
 2000 n=int((rnd(1)*30))
 2010 l=fnr(6)*2
 2020 print"{home}";left$(dn$,l)
 2030 gosub3010
 2040 fori=l+9to20
 2050 ifi>15andi<19thenprinttab(n+1)"{CBM-+}{SHIFT-+}{SHIFT-+}{CBM-+}{CBM-G}":goto2070
 2060 printtab(n+1)"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}"
 2070 next:return
 2080 forj=0to15+rnd(1)*8:gosub2000:nextj
 2090 print"{home}"dn$;left$(dn$,6)
 2100 printtab(n+1)"{SHIFT-POUND} {CBM-*}"
 2110 fori1=1to4:printtab(n+1)"{CBM-G}W{CBM-M}":next
 2120 print"{down}{down}welcome to grungy towers"
 2130 print"hit any key to start"
 2140 getc$:ifc$=""then2140
 2150 return
 3000 m$(j)=m$(j)+chr$(i+64):m$(i)=m$(i)+chr$(j+64):return
 3010 printtab(n+2)"{CBM-M}{CBM-V}"
 3020 printtab(n+2)"{rvon}{SHIFT-POUND}{CBM-*}"
 3030 printtab(n+1)"{rvon}{SHIFT-POUND}  {CBM-*}"
 3040 printtab(n)"{CBM-C}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{CBM-V}"
 3050 printtab(n+1)"{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-G}"
 3060 printtab(n+1)"{CBM-B}{SHIFT-POUND}{CBM-*}{CBM-B}{CBM-G}"
 3070 printtab(n+1)"{CBM-B}{CBM-G}{CBM-M}{CBM-B}{CBM-G}"
 3080 printtab(n+1)"{CBM-B}L{SHIFT-@}{CBM-B}{CBM-G}"
 3090 printtab(n+1)"{CBM-B}{rvon}{CBM-F}{CBM-F}{rvof}{CBM-B}{CBM-G}"
 3100 return
 3400 if x=r then r$="here ":return
 3500 r$="in the "+r$(x)
 3510 if x=12 then r$="on the "+r$(x)
 3520 r$=r$+" ":return
 3900 gosub 4000:print:return
 4000 z=39-pos(0):iflen(z$)<=zthenprintz$;:return
 4010 ifz<2thenprint:goto4000
 4020 forz1=zto1step-1:ifmid$(z$,z1,1)<>" "thennextz1
 4030 ifz1=0thenprint:goto4000
 4040 printleft$(z$,z1)
 4050 z1=z1+1:if z1>len(z$) then return
 4060 if mid$(z$,z1,1)=" " goto 4050
 4070 z$=mid$(z$,z1):goto 4000
    0 poke59468,12
    1 rem guess copyright (c) 1978 glen fisher
    2 rem cursor #2, august, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 7 may 80
   90 pg$="guess":nm$="2":gosub62000
  100 mg=1e36
  102 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down} "
  103 ga=ga+1:g=0
  105 forn=0to99
  110 gosub1100
  120 nextn
  130 ol=0:oh=99
  140 num=int(rnd(1)*100)
  150 sp$="                                        "
  200 dl=150:ifoh=olthen450
  201 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";sp$
  202 printsp$:print"{down}";sp$
  203 input"{up}{up}{up}{up}{up}{up}{up}enter low number";lo:g=g+1
  205 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                        "
  207 forq=1to200:nextq
  210 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}enter high number";hi
  220 iflo>hithent=lo:lo=hi:hi=t
  230 ifnum<lothen300
  240 ifnum>hithen400
  250 ifhi<ohthenforn=ohtohi+1step-1:gosub1200:nextn:oh=hi
  260 iflo>olthenforn=oltolo-1:gosub1200:nextn:ol=lo
  270 iflo=hithen500
  280 t$="{down}my number is between yours.":gosub1300:goto200
  300 iflo<=ohthenforn=ohtolostep-1:gosub1200:nextn:oh=lo-1
  310 t$="{down}my number is less than yours.":gosub1300:goto200
  400 ifhi>=olthenforn=oltohi:gosub1200:nextn:ol=hi+1
  410 t$="{down}my number is greater than yours.":gosub1300:goto200
  450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  460 print"as you can see, my number was";num
  470 goto510
  500 t$="{down}you guessed my number!!":dl=0:gosub1300
  510 n=num:gosub1000
  520 print"{SHIFT--}{left}{up}{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}{left}{down}{SHIFT--}{left}{down}{CBM-X}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{CBM-Z}"
  530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}it took you only";g;"guesses.":gt=gt+g
  540 ifg<mgthenmg=g
  560 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}do you want to play again? ";:gosub60000:pa$=in$
  570 ifleft$(pa$,1)<>"y"thengoto800
  580 forp=1to200:nextp
  590 goto102
  800 foru=1to300:nextu
  900 print"{clr}{down}{down}{down}{down}thanks for playing.{down}{down}"
  910 print"in";ga;"games, you made a total of";gt
  920 print"guesses, with an average of";gt/ga;"guesses"
  930 print"per game."
  940 print"{down}at your best, you took only";mg;"guesses.{down}{down}"
  995 end
 1000 r=int(n/10):c=n-r*10
 1010 print"{home}";left$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",r+1);
 1030 printtab(3*c+3);
 1040 return
 1100 gosub1000:ifn<10thenprint" ";
 1110 printn
 1120 return
 1200 gosub1000:print"{rght}{CBM-+}{CBM-+}":return
 1300 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";t$;
 1310 printleft$("                                        ",40-len(t$))
 1320 t=ti+dl
 1330 ifti<tthen1330
 1340 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #2  guess
 62010 print"{down}copyright (c) 1978  by glen fisher":gosub60500
 62020 print"{down}try to guess the pet's secret number
 62030 print"{down}{down}want directions? ";:gosub60000
 62040 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62130 print"the pet picks a number from 0 to 99"
 62140 print"which you try to 'trap'. you enter"
 62150 print"a low number, then a high number"
 62160 print"which you think will 'trap' the pet's
 62170 print"secret number.
 62180 print"{down}the computer gives you hints by
 62190 print"blanking out numbers outside the range
 62200 print"of numbers that trap the secret
 62210 print"number.
 62220 print"{down}if you want to try to guess the number,
 62230 print"type the number you want to guess as
 62240 print"your low and high number.
 62245 gosub60200
    5 poke59468,14
   10 print"{clr}             Guessing game"
   20 print"             {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
   30 print"{down}  By D.J.Wylie"
   40 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}    Press a key to start:-"
   50 geta$:ifa$=""then50
   60 print"{clr}"
   70 print"I will think of a number between 1 and  1000,you must guess what it is
   80 a=int(rnd(ti)*1000)+1
   90 print
  100 print"Type your guess"
  110 inputb
  120 c=c+1
  130 ifa=bthen200
  140 ifa<bthen170
  150 print"No,too small"
  160 goto180
  170 print"No too large"
  180 print:print"Try again"
  190 goto100
  200 print"{clr}You got it!!"
  210 print
  220 ifc=1thenprint"Only one try!:Sheer fluke!!":goto300
  230 print"You took "c" tries:"
  240 ifc<5thenprint"very good!":goto300
  260 ifc<10thenprint"average.":goto300
  280 ifc<14thenprint"not very good.":goto300
  285 print"pathetic aren't you!!!"
  290 print
  300 print"Press {CBM-C}{rvon}RETURN{rvof}{CBM-V}to go again:"
  310 forn=1to20:getz$:next
  315 geta$:ifa$=""then315
  320 ifa$=chr$(13)thenclr:print"{clr}":goto80
  330 print"{clr}good bye!!"
  340 poke59468,12
  350 end
   10 print"{clr}{home}"
   11 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}guess it"
   12 forg=1to1000:nextg
   15 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}do you wish instructions ?";
   20 geta$:ifa$=""then20
   25 printa$
   30 if"y"=a$then1000
   31 print"{clr}{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card 1"
   36 b=0
   40 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   41 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G} 8  9 10 11 12 13 14 15{CBM-M}"
   42 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   43 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}24 25 26 27 28 29 30 31{CBM-M}"
   44 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   45 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}40 41 42 43 44 45 46 47{CBM-M}"
   46 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   47 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}56 57 58 59 60 61 62 63{CBM-M}"
   48 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   49 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
   50 getb$:ifb$=""then50
   53 if"y"=b$thenb=8
   54 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card"2"
   55 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   56 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}16 17 18 19 20 21 22 23{CBM-M}"
   57 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   58 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}24 25 26 27 28 29 30 31{CBM-M}"
   59 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   60 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}48 49 50 51 52 53 54 55{CBM-M}"
   61 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   62 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}56 57 58 59 60 61 62 63{CBM-M}"
   63 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   64 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
   65 getc$:ifc$=""then65
   67 if"y"=c$thenb=b+16
   68 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card 3"
   69 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   70 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G} 2  3  6  7 10 11 14 15{CBM-M}"
   71 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   72 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}18 19 22 23 26 27 30 31{CBM-M}"
   73 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   74 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}34 35 38 39 42 43 46 47{CBM-M}"
   75 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   76 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}50 51 54 55 58 59 62 63{CBM-M}"
   77 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   78 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
   79 getd$:ifd$=""then79
   80 if"y"=d$thenb=b+2
   81 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card 4"
   82 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   83 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G} 4  5  6  7 12 13 14 15{CBM-M}"
   84 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   85 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}20 21 22 23 28 29 30 31{CBM-M}"
   86 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   87 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}36 37 38 39 44 45 46 47{CBM-M}"
   88 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   89 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}52 53 54 55 60 61 62 63{CBM-M}"
   90 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
   91 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
   92 gete$:ife$=""then92
   93 if"y"=e$thenb=b+4
   94 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card 5"
   95 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
   96 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}32 33 34 35 36 37 38 39{CBM-M}"
   97 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
   98 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}40 41 42 43 44 45 46 47{CBM-M}"
   99 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
  100 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}48 49 50 51 52 53 54 55{CBM-M}"
  101 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
  102 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}56 57 58 59 60 61 62 63{CBM-M}"
  104 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  105 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
  106 getf$:iff$=""then106
  107 if"y"=f$thenb=b+32
  108 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}card 6"
  109 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  110 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G} 1  3  5  7  9 11 13 15{CBM-M}"
  111 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
  112 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}17 19 21 23 25 27 29 31{CBM-M}"
  113 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
  114 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}33 35 37 39 41 43 45 47{CBM-M}"
  115 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}                       {CBM-M}"
  116 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}49 51 53 55 57 59 61 63{CBM-M}"
  117 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  118 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}is the number on this card ?";
  119 getg$:ifg$=""then119
  120 if"y"=g$thenb=b+1
  130 print"{clr}this is the number you are thinking of."
  135 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";b
  136 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}do you wish to try again ?";
  140 geth$:ifh$=""then140
  150 if"y"=h$thengoto31
  151 print"{clr}{home}"
  155 end
 1000 print"{clr}{home}{down}{down}this game is played with 6 cards & 32 numbers on each of them.
 1001 print"the numbers range from 1 to 63 and you  are to think of a number"
 1002 print"and the computer is going to guess it."
 1003 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}please press the letter 'r' to begin.";
 1004 getx$:ifx$=""then1004
 1005 if"r"=x$then31
   10 print"{clr}"
   30 gosub 9000
   40 print"want instructions (y or n)";
   50 inputq$
   60 ifq$="n"then90
   70 print
   80 gosub1000
   90 p=0
  100 print"want gunner's grid (y or n)";
  110 inputq$
  120 if q$="n"then200
  130 gosub2000
  140 goto200
  150 print"no they're not!"
  200 print"type two players names"
  210 print"gunner #1";;
  220 inputp1$
  230 print"gunner #2";;
  240 inputp2$
  250 print"names ok";
  260 inputq$
  270 ifq$="n"then200
  271 ifp1$<"a"then150
  272 ifp2$<"a"then150
  273 ifp1$=p2$then150
  280 gosub3000
  290 print"#"p" gets the first shot"
  300 print "round #"s
  320 ifp=1 then360
  330 printp2$;
  340 p=1
  350 gosub4000
  352 s=s+1
  354 ifq$="y"then100
  356 goto300
  360 printp1$;
  370 p=2
  380 gosub5000
  385 ifq$="y"then100
  390 goto320
 1000 print"two players shoot from a tank at"
 1010 print"each other over a hill."
 1020 print"(they can't see each other.)"
 1030 print"i'll act as spotter for both."
 1040 print"input is a row colomn value"
 1050 print"like this:"
 1060 print"   aim(r,c)?  3,4"
 1070 print"r nor c may be over 10 or less than 1."
 1090 print
 1100 return
 2000 printtab(9) "colomns"
 2020 printtab(3)"1 2 3 4 5 6 7 8 9 10"
 2050 print
 2060 a$="* * * * * * * * * *"
 2070 fori=1to3
 2080 printtab(3)a$;i
 2090 nexti
 2100 print"r  "a$" 4"
 2110 print"o  "a$" 5"
 2120 print"w  "a$" 6"
 2130 print"s  "a$" 7"
 2140 fori=1to3
 2150 printtab(3) a$; i+7
 2160 nexti
 2170 print
 2180 return
 3000 p1=int(100*rnd(1))
 3020 p2=int(100*rnd(1))
 3040 ifp<>0then 3060
 3050 p=1
 3060 s=1
 3070 q$="x"
 3080 return
 3500 print" aim (r,c)";
 3502 c=0
 3504 r=0
 3506 inputc,r
 3510 ifc<1then3560
 3520 ifc>10then3560
 3530 ifr<1then3560
 3540 ifr>10then3560
 3542 c=c-1
 3544 r=r-1
 3550 return
 3560 print"illeagle..."
 3570 goto3500
 4000 gosub3500
 4010 if c*10+r=p2then8000
 4020 t=p2
 4030 gosub6000
 4040 gosub7000
 4050 return
 5000 gosub3500
 5010 ifc*10+r=p1then8090
 5020 t=p1
 5030 gosub6000
 5040 gosub7000
 5050 return
 6000 x=int(t/10)
 6010 y=t-int(x*10)
 6020 return
 7000 print"missed:  ";
 7010 ifc=<xthen7030
 7020 print"low ";
 7030 ifc=>xthen7050
 7040 print"high  ";
 7050 if r=<ythen7070
 7060 print"right ";
 7070 ifr=>ythen7090
 7080 print"left";
 7090 print
 7100 return
 8000 printp1$;"is hit"
 8010 printp2$;"is the best gunner"
 8030 print
 8040 print"another game(y or n)";
 8050 inputq$
 8060 ifq$="y"then7100
 8070 print"the end"
 8080 end
 8090 printp2$;"is hit"
 8100 printp1$;"is the best gunner"
 8110 goto8040
 9000 z=rnd(1)
 9010 return
    7 goto70
    8 print"{home}";spc(p1);spc(p2);spc(p3);p$;:return
   15 print"   W{CBM-J}{CBM-L}X{CBM-J} ":print"     {CBM-J} {CBM-L}":print"        {CBM-L}T":return
   16 print"   W{CBM-J}{rvon}{SHIFT--}{rvof}X{rvon}{SHIFT--}{rvof} ":print"        ":print"        {CBM-L}\":return
   17 print"   W{CBM-J}{CBM-L}X{CBM-J} ":print"     {CBM-J} {CBM-L}":print"        {CBM-L}T":return
   18 print"   W{CBM-J}   ":print"     {rvon}{SHIFT--}{rvof}X{rvon}{SHIFT--}{rvof}":print"        Y{CBM-J}":return
   19 print"   W{CBM-J}{CBM-K} {CBM-L}":print"     {CBM-L}X{CBM-J} ":print"       /{CBM-J} ":return
   20 print"   W{CBM-J} {rvon}{SHIFT--}{rvof} ":print"     {CBM-L}X{CBM-J} ":print"      {CBM-Q}{CBM-J} ":return
   21 print"   W ":print"    {CBM-J}{CBM-L}X{CBM-J} ":print"      {CBM-Z}{CBM-J}":return
   22 print:print"     ":print"    {CBM-L} {CBM-Q}{CBM-J}":return
   23 print:print:print"     {CBM-L}{CBM-A}{CBM-J}":return
   24 print:print:print"     {CBM-L}{CBM-E}{CBM-J}":return
   26 print:print:print"      {rvon}{SHIFT--}{rvof} ":return
   28 print:print:print"     {CBM-L}{CBM-A}{CBM-J}":return
   29 print:print:print"    {CBM-L} {CBM-L}M":return
   30 print:print"    {CBM-J}":print"       {CBM-L}M":return
   31 print"   W{CBM-J} {rvon}{SHIFT--}{rvof}":print"     ":print"        {CBM-L}T":return
   32 print"   W{CBM-J}{CBM-J} {CBM-L}":print:print:return
   33 print"   W{CBM-J}   ":print"     {rvon}{SHIFT--}{rvof}X{rvon}{SHIFT--}{rvof}":return
   34 print:print"     {rvon}{SHIFT--}{rvof}*":return
   40 tf=11:p4=32768:b=(a^2)/50
   43 pokep4,po:poke32768,32
   44 px=1+int(1.1^tf):ifpx>36thena=a*1.5:return
   46 h=a*tf-b*tf^2:py=int((18-h)*px/12):ifpy>24thena=a*1.2:return
   47 p4=32768+4+px+40*(py-1):ifp4<32768thentf=tf+1:goto44
   48 ifh>0then60
   49 ifh<-1thentf=tf-.3:goto44
   50 pokep4,42
   51 fori=1topy/3:forj=0to2:pokep4-(40+j)*i,46:pokep4-(40-j)*i,46:nextj,i
   52 fori=1topy/3:forj=0to2:pokep4-(40+j)*i,32:pokep4-(40-j)*i,32:nextj,i
   54 pokep4,61
   56 ifpy>16thenl$(1)="boom":return
   58 ifrnd(1)>(1+tk)/hcthena=a*.6:return
   59 return
   60 po=peek(p4):pokep4,46
   62 fori=1to100:next:tf=tf+2:goto43
   70 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}the guns of fort defiance"
   71 print:print"    an  historical  adventure  game"
   72 print:print"copyright-1981-avalon hill game company"
   74 fori=1to4999:next
   80 p$=chr$(34):print"{clr}situation..."
   81 print" fort defiance is a half-built stockade,blocking the path of an inva";
   82 print"ding army inthe war of 1812. your gun is located on the eastern, inc";
   83 print"omplete side of the fort the invaders heavily outnumber you and your";
   84 print" skill will determine whether they  overrun the fort in the next attack."
   85 print" fortunately, the attackers will have tocross over 500 yards of open";
   86 print" ground and you have plenty of ammunition--includingsome of shrapnel";
   87 print"'s new ";p$;"spherical case";p$;" shot--with which to stop them."
   88 print" the enemy may attack with his infantry,cavalry or artillery.  howev";
   89 print"er, the paththrough the woods to reach your side of the fort is nar";
   90 print"row and will limit them  to attacking with one company, troop or howitz";
   91 print"er at a time.":gosub102:print"{clr}";:ifp$="p"then105
   92 print"{$a0} from your position in the watchtower, you see another attack start";
   93 print"ing! you    shout down a warning to your men at the gun below...":print:print
   94 print" as your men go through the sequence of loading the gun for each ";
   95 print"shot, you will have to give them the appropriate orders":print:print" first,";
   96 print" select the {rvon}projectile{rvof} by holdingdown the-":print"    {rvon}b{rvof}-key for {rvon}b{rvof}all,"
   97 print"    {rvon}c{rvof}-key for {rvon}c{rvof}annister,":print"    {rvon}d{rvof}-key for {rvon}d{rvof}ouble cannister,"
   98 print"    {rvon}h{rvof}-key for s{rvon}h{rvof}ell, or":print"    {rvon}p{rvof}-key for s{rvon}p{rvof}herical case"
   99 print"when your orders have been heard, the ? will be replaced by your ";
  100 print"selection":gosub102:ifp$="p"then105
  101 goto151
  102 print:input"(for briefing enter b/to play, enter p)";p$:return
  105 print"{clr}":dimq$(10),l$(2),r$(2),m$(2),gp(5)
  111 print"{clr}":input"handicap (try 25 on your first game)";hc
  112 ifhc<1orhc>64thenprint"(must be 1-64)":goto111
  115 vr=4*rnd(-ti):qn=1:fo=1:tk=0:qb=22+2*int(11*rnd(1)):qp=int(20*rnd(1))
  116 qc=1+int(9*rnd(1)):qh=0:ifrnd(1)>.66thenqh=qb/2:qb=0
  117 ifhc>35theninput"want to play without spherical case(yes or no)";l$(0)
  118 ifl$(0)<>"yes"then121
  119 qb=qb+qp:ifqh>0thenqh=qh+qp:qb=0
  120 qp=0
  121 q$(1)="{up}{up}{up}load ":q$(3)="{up}{up}fuse ":q$(7)="{up}elevation ":q$(9)="deflection "
  122 q$(2)="{up}{up}{up}ball   ":q$(4)="{up}{up}shell{$a0} ":q$(6)="{up}sp.case":q$(8)="cann.  "
  125 o$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}":print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"+o$+"{rght}{rght}{rght}a a a"+o$+"a a a"
  126 printo$+"{rght}{rght}ahahah"+o$+"hahaha"
  127 printo$+"{rght}ahhhhhh"+o$+"hhhhhha"
  128 printo$+"ahh  "+o$+o$+" hha"
  129 printo$+"hh   "+o$+o$+"  hh"
  130 printo$+"h"+o$+o$+o$+"h"
  135 mo$="{down}{down}{down}{down}{down}{down}{down}":mo$="{home}{down}{down}"+mo$+mo$+mo$:o$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}":fori=1to10
  141 printmo$;:ifi=2*int(i/2)thenprinto$;
  144 printq$(i);:nexti:mo$="{home}{down}"+mo$+mo$:gosub345
  146 onint(1+rnd(1)*sqr(hc))goto1000,1100,1000,1200,1300,1800,1900,1900
  151 print"{clr}":print"{up} next, if you are firing spherical case or shell, you will have to";
  152 print" set the {rvon}fuse{rvof}.fuses come in seven lengths, {rvon}a{rvof}(shortest)to {rvon}g{rvof}(longest";
  153 print").  press the corresponding key.":print:print" then, the {rvon}elevation{rvof} ";
  154 print"of the gun is set, by means of a 'quoin' (wedge) similarly graduate";
  155 print"d from {rvon}a{rvof} (lowest) to {rvon}g{rvof} (highest elevation). ":print:print
  156 print" when the elevation has been set, a '+' will appear on the horizon, ";
  157 print"indicating  which way the gun is pointed. to adjust the {rvon}deflection{rvof} ";
  158 print"left or right, tap the {rvon}<{rvof} or {rvon}>{rvof} keys. the gun is heavy and once it"
  159 print"is traversing rapidly, it will be hard  to stop. with each shot the";
  160 print" recoil will throw off the deflection and elevation, which will ";
  161 print"usually have to be reset.":print:gosub102:ifp$="p"then105
  162 goto80
  345 p$="{rvof}{left}{left}{left}{left}{left}{down}":printmo$;p$;"{up}{up}{up}";qb;"{left} ";:printmo$;p$;"{up}{up}";qh;"{left} ";
  346 printmo$;p$;"{up}";qp;"{left} ";:printmo$;p$;qc;"{left} ";:return
  500 printo$;"      ":printo$;"G     "
  501 printo$;"5      "
  502 printo$;"{CBM-V}  {CBM-@}  "
  503 printo$;"3{CBM-L}RhR{CBM-J}2  "
  504 printo$;"4{CBM-L}PuO{CBM-J}1  "
  505 printo$;"  {CBM-M}{CBM-@}{CBM-G}  6 "
  506 printo$;"  {CBM-M}{CBM-@}{CBM-G} {CBM-Q}{CBM-+}{CBM-W}"
  507 printo$;"       v"
  508 fo=3
  509 return
  510 printo$;"H ":printo$;"H "
  511 printo$;"5 "
  512 printo$;"3  {CBM-@}  2  "
  513 printo$;"4{CBM-L}RhR{CBM-J}1  "
  514 printo$;" {CBM-L}PuO{CBM-J}   "
  518 fo=4
  519 return
  520 printo$;" ":printo$;"M"
  522 printo$;"5M {CBM-@}"
  523 printo$;"3{CBM-L}RhR{CBM-J}2"
  524 printo$;"4{CBM-L}PuO{CBM-J}1"
  525 printo$;"  {CBM-M}{CBM-@}{CBM-G} "
  526 printo$;"  {CBM-M}{CBM-@}{CBM-G}"
  527 printo$;"     "
  528 fo=5
  529 return
  530 print:printo$;" M"
  531 printo$;" 5M{CBM-@}"
  532 printo$;"{CBM-V}{CBM-L}RhR{CBM-J}{$a0}"
  533 printo$;"3{CBM-L}PuO{CBM-J}2"
  534 printo$;" 4{CBM-M}{CBM-@}{CBM-G}1"
  538 fo=6
  539 return
  540 printo$;"   {SHIFT--}":printo$;"   {SHIFT--}"
  541 printo$;"  5{CBM-W}"
  542 printo$;""
  543 printo$;" {CBM-L}4uO{CBM-J} "
  544 printo$;" 3{CBM-M}{CBM-@}12"
  548 fo=7
  549 return
  550 printo$;"    ":printo$;"    "
  551 printo$;"  5{CBM-W}"
  552 print
  553 print
  554 printo$;"  312  6"
  555 printo$;"  {CBM-M}{CBM-@}{CBM-G}   "
  558 fo=8
  559 return
  560 printo$;"   {SHIFT--}":printo$;"   {SHIFT--}"
  561 printo$;"  5{CBM-W}"
  562 printo$;"{CBM-V}{CBM-L}RhR{CBM-J}{$a0}6"
  563 print
  564 printo$;"  312   "
  568 fo=9
  569 return
  570 printo$;"    ":printo$;"  {CBM-A}{CBM-W}"
  571 printo$;"  5  6 "
  572 printo$;"{CBM-V}{CBM-L}RhR{CBM-J}  "
  578 fo=10
  579 return
  580 printo$;"   {SHIFT--}":printo$;"  {CBM-A}{CBM-W}"
  581 printo$;"  5{CBM-A}6 "
  588 fo=11
  589 return
  590 printo$;"    ":printo$;"   {SHIFT--}"
  591 printo$;"  5{CBM-W}"
  592 print
  593 print
  594 printo$;"  {CBM-M}{CBM-@}{CBM-G}"
  595 printo$;"  312"
  598 lc=lc-1:iflc<1thenfo=12:return
  599 fo=10:return
  600 printo$;"    ":printo$;"  {CBM-A}{CBM-W}"
  601 printo$;"  5{CBM-@} 6 "
  602 printo$;"{CBM-V}{CBM-L}RhR{CBM-J}"
  603 print
  604 print
  605 printo$;"  3{CBM-@}"
  606 printo$;"   1"
  608 fo=13
  609 return
  610 print:printo$;"  / "
  611 printo$;" N5{CBM-@}  "
  612 print
  613 printo$;" {CBM-L}PuO{CBM-J} 6"
  614 printo$;" 4{CBM-M}"
  618 fo=14
  619 return
  620 print:printo$;" N "
  621 printo$;"N5 "
  622 print
  623 printo$;" {CBM-L}PuO{CBM-J}{$a0} "
  624 printo$;" 3{CBM-M}{CBM-@}{CBM-G}2"
  625 printo$;"4 {CBM-M}{CBM-@}{CBM-G}  6"
  626 printo$;"     1"
  628 fo=15
  629 return
  630 printo$;"G":printo$;"G "
  631 printo$;"5 "
  632 print
  633 print
  634 printo$;"3 {CBM-M}{CBM-@}{CBM-G}{$a0}2"
  635 printo$;"4 {CBM-M}{CBM-@}{CBM-G} 1"
  636 printo$;"      "
  638 fo=16
  639 return
  640 printo$;"  {CBM-POUND}{CBM-+}{CBM-POUND}":printo$;"G{CBM-+}{$a0}b {CBM-+}"
  641 printo$;"{CBM-+} {CBM-+}o{CBM-+} {CBM-+}"
  642 printo$;"{CBM-V}{CBM-+} o {CBM-+}"
  643 printo$;"  {CBM-+}m{CBM-+} "
  644 printo$;"3{CBM-L}RhR{CBM-J}"
  645 printo$;"4{CBM-L}PuO{CBM-J}"
  646 printo$;"  {CBM-M}{CBM-@}{CBM-G}"
  647 printo$;"  {CBM-M}{CBM-@}{CBM-G}"
  648 fo=fo+1
  649 return
  650 printo$;" {CBM-B}   {CBM-B}":printo$;"G{CBM-F}{CBM-B} {CBM-B}{CBM-D}"
  651 printo$;"5{CBM-D}{CBM-C} {CBM-V}{CBM-D}{CBM-C}"
  652 printo$;"{CBM-V}{CBM-B}{CBM-C} {CBM-V}{CBM-B}"
  653 printo$;"  {CBM-F}{CBM-@}{CBM-D}"
  658 fo=fo+1
  659 return
  660 printo$;"      ":printo$;"G     "
  661 printo$;"5      "
  662 printo$;"{CBM-V}     "
  663 printo$;"   {CBM-@} "
  668 fo=fo+1
  669 return
  670 print:print
  671 print
  672 print
  673 printo$;"3  {CBM-@}  2"
  674 printo$;"4{CBM-L}RhR{CBM-J}1"
  675 printo$;" {CBM-L}PuO{CBM-J} 6"
  676 printo$;"  {CBM-M}{CBM-@}{CBM-G} {CBM-Q}{CBM-+}{CBM-W}"
  677 printo$;"  {CBM-M}{CBM-@}{CBM-G}  v"
  678 fo=2
  679 return
  899 stop
  950 e=d/5
 1000 ta=1:fori=0to2:l$(i)="":r$(i)="":m$(i)="":next:rem****infantry attack****
 1001 fori=1to40:m$(0)=m$(0)+" ":nexti
 1002 fori=1to40:m$(1)=m$(1)+"%":nexti
 1003 fori=1to40:r$(1)=r$(1)+"G":nexti
 1004 fori=1to40:l$(1)=l$(1)+"H":nexti
 1005 m$(2)="~":fori=1to39:m$(2)=m$(2)+"N":nexti
 1008 forir=1to12:rn=40*ir
 1009 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}{up}{up}";m$(0);
 1010 fori=1to100/ir
 1011 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}{up}";m$(2);
 1012 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}";m$(1);
 1013 print"{home}";:forii=0toir:print"{down}";:nextii:printr$(1);
 1015 gosub2000
 1021 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}{up}";m$(2);
 1022 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}";m$(1);
 1023 print"{home}";:forii=0toir:print"{down}";:nextii:printl$(1);
 1025 gosub2000
 1030 nexti,ir
 1040 rem*****attack overruns gun*****
 1045 gosub9500
 1050 hc=int((hc*2+1)/3):print"{clr}your gunners run away!"
 1052 print"your new handicap is";int(hc)
 1054 input"want to play again";o$
 1055 ifo$="no"thenstop
 1060 run111
 1100 ta=2:fori=0to2:l$(i)="":r$(i)="":m$(i)="":next:rem****cavalry attack****
 1101 fori=1to40:m$(0)=m$(0)+" ":next:fori=1to12
 1102 r$(0)=r$(0)+"{CBM-M}{CBM-D}"
 1103 r$(1)=r$(1)+"Q>"
 1104 r$(2)=r$(2)+"{CBM-+}{CBM--}"
 1105 l$(0)=l$(0)+"{CBM-B}{CBM-V}"
 1106 l$(1)=l$(1)+"{CBM-V}{CBM-K}"
 1107 l$(2)=l$(2)+"{CBM-K}{CBM-V}":next
 1150 forir=1to12:rn=40*ir
 1155 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}{up}{up}{up}";m$(0);
 1160 fori=1to36/ir:foric=0to2
 1161 print"{home}";:forii=0toir:print"{down}";:nextii:print"{up}{up}{up}";
 1162 printspc(14);r$(0);"  ";
 1164 printspc(15);r$(1):printspc(15);r$(2):printspc(15);l$(ic);
 1165 gosub2000
 1190 nextic,i,ir
 1195 goto1045
 1200 ta=3:rem****lt how atk****
 1210 rn=40:g$="{down}":goto1340
 1300 ta=4:rem****hv how atk****
 1310 rn=1:g$="{up}"
 1340 ff=1:a=1.0+rnd(1)+(25+hc)/hc:tk=0:qp=int(64/hc)+qp
 1345 l$(0)="%":fori=1to39:l$(0)=l$(0)+"%":next
 1349 rem*1350-1699 animates enemy gun*
 1350 xo=ta-2:l$(0)="%"+left$(l$(0),39)
 1355 print"{home}";g$;
 1360 onffgosub15,16,17,18,19,20,21,22,23,24,26,28,29,30,31,32,33,34,40
 1370 gosub2000
 1372 ifff=11andxo>1thenff=10:xo=xo-1:goto1355
 1373 ifff=19thenff=1:goto1350
 1375 ifrnd(1)>(1+tk)/hcthenff=ff+1
 1385 goto1355
 1800 ta=5:goto1210:rem lt how sptd atk
 1900 ta=6:goto1340:rem hv how sptd atk
 2000 gosub345:q$(5)=" ":ifqn>9thengosub3000:return
 2002 printmo$;q$(qn);"          ";:nq=qn:gosub4000:printmo$;q$(nq);q$(5);
 2005 iftk>hcthenontagoto8000,8000,8200,8200,8200,8200
 2006 ifl$(1)="boom"then1045
 2010 return
 3000 o$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 3001 onfogosub670,500,510,520,530,540,550,560,570,580,590,600,610,620,630,5000
 3009 print"{home}":return
 4000 q$(5)="{rvon}?{rvof}":get pe$
 4020 on(qn+1)/2goto4100,4200,4400,4400,4600
 4100 lc=2:q$(5)="{rvon}projectile{rvof}"
 4110 ifpe$="b"andqb>0thenop$="b":qn=7:q$(5)="ball      ":gosub3000:return
 4120 ifpe$="c"andqc>0thenop$="c":qn=9:q$(5)="cannister ":gosub3000:return
 4130 ifpe$="d"andqc>1thenop$="d":qn=9:q$(5)="d'ble can.":gosub3000:lc=3:return
 4140 ifpe$="h"andqh>0thenop$="h":qn=3:q$(5)="shell     ":gosub3000:return
 4150 ifpe$="p"andqp>0thenop$="p":qn=3:q$(5)="sp.case   ":gosub3000:return
 4160 goto4300
 4200 ifpe$=""then4300:rem fuse?
 4210 fl=asc(pe$)-64:iffl<1orfl>7then4300
 4220 fl=fl+rnd(1):gosub3000:q$(5)=pe$:qn=7:return
 4300 iffo<qn+4thengosub3000:return
 4310 return
 4400 ifpe$=""then4300:rem elevation?
 4410 ae=asc(pe$)-64:ifae<1orae>7then4300
 4420 ae=ae+rnd(1):gosub3000:q$(5)=pe$:qn=9:return
 4600 print"{home}";spc(20+ad);" ";
 4605 ifpe$=""thentv=tv/2:goto4635
 4610 ifasc(pe$)=32thenqn=10:goto4300
 4615 ifasc(pe$)=60thentv=tv-1
 4620 ifasc(pe$)=62thentv=tv+1
 4625 ad=ad+tv
 4630 ifad<-19thenad=-19:tv=0
 4635 ifad>18thenad=18:tv=0
 4640 print"{home}";spc(20+ad);"+";:goto4300
 5000 sk=0:fo=1:qn=1:y=0:yo=0:vo=4+(ae+vr+rnd(1))/2:dv=1
 5001 ifop$="b"thenqb=qb-1
 5002 ifop$="p"thenqp=qp-1
 5003 ifop$="h"thenqh=qh-1:vo=vo+2.5:dv=2
 5004 ifop$="c"thenqc=qc-1:vo=7.1+vr+rnd(1)/3:dv=3
 5005 ifop$="d"thenqc=qc-2:vo=5.1+vr+rnd(1)/5:dv=3
 5006 v=vo:pp=698
 5007 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":onfogosub640,650,660
 5008 gosub6000:ifv>0andpp>0then5007
 5043 print"{home}";spc(20+ad);" ";
 5045 ad=ad-(ad+7)*rnd(1):fo=1:return
 6000 ifv>0andy>0thenp$=" ":gosub8
 6001 ifv=0thenreturn
 6005 y=y+v:v=v-dv:pp=int(698+sk-(39.8-ad/16)*int(y/2)):ifpp<1thenreturn
 6006 onpp/256goto6008,6009
 6007 p1=0:p2=0:p3=pp-1:goto6010
 6008 p1=0:p2=255:p3=pp-256:goto6010
 6009 p1=255:p2=255:p3=pp-511
 6010 if(op$<>"d"andop$<>"c")orpp>rn+40then6015
 6012 ko=pp-rn:ifko<1thenpp=pp+40:goto6006
 6013 gosub7000:rem cannister hit
 6015 ifv>0thenp$=".":gosub8:return
 6016 sk=sk-rnd(1):ifad<20thensk=sk+1
 6017 ifpp>rnandpp<rn+80thenko=pp-rn:gosub7000
 6020 fl=fl-1:p$="{left}---":gosub8:ifvo*5*rnd(1)<dvthenvo=0
 6025 vo=vo/(dv+1):v=vo:return
 7000 br=0:b$=" ":ifko>40thenko=ko-40
 7006 ifop$="p"andfl<ae-1thenp$="@":gosub8:vo=0:forii=1to100:next:return
 7007 ifop$="h"andfl<aethenp$="@":gosub8:vo=0:forii=1to100:next:return
 7008 ifop$="p"andabs(fl-ae+1)<1thenb$="     ":br=2:p$="*"
 7009 ifop$="h"andabs(fl-ae)<1thenb$="   ":br=1:p$="*"
 7010 ifop$="d"thenb$="     ":br=2:p$="{left}{left}:::::"
 7011 ifop$="c"thenb$="   ":br=1:p$="{left}:::"
 7012 ko=int(ko):ifko>40thenko=ko-40
 7013 if(ta=2andko<14)or(ta>2andko>10)thenreturn
 7014 ifko-br<2thenko=br+2
 7016 gosub8:ifbr=0andta>2andabs(ko-6.5)<rnd(1)*.6thentk=200
 7018 ifbr=1andta>2andabs(ko-4.5)<rnd(1)*.7thentk=300
 7020 ontagoto7030,7200,7300,7300,7300,7300
 7030 forj=0to2
 7031 r$(j)=left$(r$(j),ko-br-1)+b$+mid$(r$(j),ko+br+1)
 7035 ifj<>2thenm$(j)=left$(m$(j),ko-br-1)+b$+mid$(m$(j),ko+br+1)
 7043 l$(j)=left$(l$(j),ko-br-1)+b$+mid$(l$(j),ko+br+1)
 7054 nextj
 7100 m$(2)=" ":ifmid$(m$(1),1,1)="%"thenm$(2)="~"
 7125 tk=0:forj=1to39:ifmid$(m$(1),j,1)="%"thenm$(2)=m$(2)+"N":goto7135
 7126 tk=tk+1
 7130 ifmid$(m$(1),j+1,1)="%"thenm$(2)=m$(2)+"~":goto7135
 7132 m$(2)=m$(2)+" "
 7135 nextj:goto7900
 7200 ii=2*int(1.5+br/2):forj=0to2
 7210 l$(j)=right$(l$(j),24-ii)+left$(m$(0),ii)
 7220 r$(j)=right$(r$(j),24-ii)+left$(m$(0),ii):next
 7225 tk=0:forj=1to23step2:ifmid$(r$(2),j,1)=" "thentk=tk+3
 7230 next:goto7900
 7300 l$(0)=left$(l$(0),ko-br-1)+b$+mid$(l$(0),ko+br+1)
 7310 iftk>50thenreturn
 7325 tk=0:forj=1to40:ifmid$(l$(0),j,1)=" "thentk=tk+1:next
 7340 next
 7900 vo=0:ifta>2andrnd(1)<(tk-4)/hcthentk=100
 7928 ifta=2andop$="h"andhc*rnd(1)<5*brthentk=100
 7929 ifta<3andtk*rnd(1)>hc-ta*tkthentk=100
 7930 return
 8000 rem enemy runs away**************
 8020 fori=irto1step-3:forj=0to40
 8030 n=32768+40*i+j
 8040 ifi>3thenpoke(n-160),peek(n-40)
 8045 poke(n-40),32
 8050 ifi>2thenpoke(n-120),peek(n)
 8055 poke(n),32
 8060 ifi>1thenpoke(n-80),peek(n+40)
 8065 poke(n+40),32:next:next
 8100 print"{home}";"you stopped the attack at";int(960/ir);"yd":hc=int(21/ir+2*hc/3)
 8110 goto1052
 8200 if ta>4 then tk=0:goto 146
 8205 print"{home}";g$:iftk<300then8235
 8210 print"   *":fori=1to100:next:print"{home}";g$;"  {CBM-+}*{CBM-+}":print"{CBM-*}{CBM-+} {CBM-+}{SHIFT-POUND}"
 8213 fori=1to100:next:print"{home}";g$;"{CBM-+}{CBM-+}  {CBM-+}{CBM-+}":print"{CBM-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-POUND}":print" {CBM-*}{CBM-+}{CBM-+}{SHIFT-POUND}"
 8215 print"{home}";g$;"{CBM-F}{CBM-V}{CBM-F}{CBM-B}{CBM-C}{CBM-D}{CBM-V}{CBM-F}":print"{CBM-C}{CBM-F}{CBM-V}{CBM-F}{CBM-V}{CBM-F}{CBM-B}":print"{CBM-D}{CBM-B}{CBM-V}{CBM-B}{CBM-V}{CBM-F}{CBM-V}"
 8230 print"{down}{down}{down}shell explodes enemy caisson!"
 8235 iftk<200then8290
 8240 print"{home}";g$;"   W /X\ ":print"        ":print"       {CBM-I}\ ":fori=1to200:next
 8250 print"{home}";g$;"   W o{CBM-Y}o ":print:print"       {CBM-L}Y ":fori=1to200:next
 8260 print"{home}";g$;"   W \+/ ":print:print"        {CBM-I}/":fori=1to200:next
 8270 print"{home}";g$;"   W o:{CBM-P} ":print:print"        {CBM-L}{CBM-@}":fori=1to200:next
 8280 print"{home}";g$;"   W {CBM-P}.{CBM-P} ":print:print"         {CBM-O}":fori=1to200:next
 8285 iftk=200thenprint"{down}{down}{down}direct hit on enemy howitzer!"
 8290 hc=(2*hc+64)/3
 8295 print"{down}{down}{down}enemy gunners run away!":goto1052
 9500 fori=0to5:gp(i)=32800:next
 9502 i=0:forj=0to320step40:fork=0to7:n=33743-j+k:pp=peek(n)
 9505 ifpp>48andpp<55thengp(i)=n:i=i+1
 9510 nextk,j
 9600 forj=1to10:fori=0to5
 9601 ifgp(i)>33767then9640
 9602 n=gp(i):pp=peek(n):poken,32:ifn>33687then9640
 9615 ifpeek(n+80)=32thenpoke(n+80),pp:gp(i)=n+80:goto9640
 9620 ifpeek(n+81)=32thenpoke(n+81),pp:gp(i)=n+81:goto9640
 9625 ifpeek(n+79)=32thenpoke(n+79),pp:gp(i)=n+79:goto9640
 9630 ifpeek(n+1)=32thenpoke(n+1),pp:gp(i)=n+1:goto9640
 9635 ifpeek(n-1)=32thenpoke(n-1),pp:gp(i)=n-1:goto9640
 9640 nexti,j
 9700 fori=640to320step-160
 9702 forj=360toistep40:fork=0to6:n=33743-j+k:pp=peek(n)
 9705 poken,32:poken+80,pp:nextk,j,i
 9745 print"{home}":return
    0 goto5700:rem        pet pilot 2/19/78:  copyright 1978 by ppeninsula school  :
   10 "r: hammurabi -- pet pilot version
   20 "r: copyright 1978 peninsula school
   40 "c: po%=100:im%=5:de%=0:bu%=2800:ra%=200:yi%=3:ha%=3000:ac%=1000:j%=1
   70 "t: hAMMURABI ...
   80 "t: yOU ARE{$a0}GOVERNOR{$a0}OF{$a0}THE{$a0}ANCIENT ^
   85 "t: CITY{$a0}OF sUMERIA. yOUR{$a0}PEOPLE{$a0}GROW{$a0}GRAIN{$a0}FOR{$a0}FOOD, SEED,{$a0}AND{$a0}TRADE.  ^
   90 "t: tO RESIGN{$a0}AS{$a0}GOVERNOR, SELL ^
  100 "t: ALL{$a0}YOUR{$a0}LAND{$a0}OR{$a0}PRESS stop.
  120 "t:
  135 "*start
  140 "t: hAMMURABI, i BEG{$a0}TO{$a0}REPORT{$a0}^
  150 "t: THAT{$a0}LAST{$a0}YEAR de% PEOPLE{$a0}^
  160 "t: STARVED, AND{$a0}im% PEOPLE{$a0}CAME ^
  170 "t: TO{$a0}THE{$a0}CITY. ^
  180 "u: *plague
  184 "t: tHE{$a0}POPULATION{$a0}IS{$a0}NOW po%.
  190 "t:
  200 "t: wE{$a0}HARVESTED{$a0}ha% BUSHELS{$a0}AT ^
  210 "t: yi% BUSHELS{$a0}PER{$a0}ACRE.  rATS ^
  220 "t: DESTROYED{$a0}ra% BUSHELS, ^
  230 "t: LEAVING bu% BUSHELS{$a0}IN{$a0}THE{$a0}^
  240 "t: STOREHOUSES.
  250 "t:
  260 "c: co%=17+6*rnd(1)
  270 "t:tHE{$a0}CITY{$a0}OWNS{$a0}ac% ACRES{$a0}OF{$a0}^
  280 "t: LAND. lAND{$a0}IS{$a0}WORTH ^
  290 "t: co% BUSHELS{$a0}PER{$a0}ACRE.
  300 "t:
  320 "t: hAMMURABI...
  322 "*buy
  324 "t:
  330 "t: hOW{$a0}MANY{$a0}ACRES{$a0}OF{$a0}LAND{$a0}DO{$a0}YOU ^
  340 "t: WISH{$a0}TO{$a0}BUY? ^
  350 "u: *pos
  360 "j(i%=0): *sell
  370 "c: j%=i%*co%
  380 "j(j%<=bu%): *c1
  390 "u: *err
  400 "j: *buy
  410 "*c1
  420 "c: bu%=bu%-j%: ac%=ac%+i%
  430 "t: aS YOU{$a0}DESIRE, hAMMURABI.
  435 "j: *food
  440 "*sell
  450 "t: hOW MANY{$a0}ACRES{$a0}DO{$a0}YOU{$a0}WISH TO{$a0}SELL? ^
  460 "u: *pos
  470 "j(i%=0): *food
  480 "j(i%<ac%): *c2
  490 "e(i%=ac%):
  500 "u: *err
  510 "j: *sell
  520 "*c2
  530 "c: ac%=ac%-i%: bu%=bu%+co%*i%
  540 "*food
  550 "t: hOW{$a0}MANY{$a0}BUSHELS{$a0}SHALL{$a0}WE{$a0}^
  560 "t: DISTRIBUTE AS{$a0}FOOD? ^
  570 "u: *pos
  580 "j(i%<=bu%): *c3
  590 "u: *err
  600 "j: *food
  610 "*c3
  620 "c: bu%=bu%-i%: de%=po%-i%/20: im%=0
  630 "c(de%<0): im%=-de%/2: de%=0
  640 "*plant
  645 "t: iT{$a0}TAKES{$a0}1/2 BUSHEL{$a0}TO{$a0}PLANT{$a0}1 ACRE. ^
  650 "t: hOW{$a0}MANY{$a0}ACRES{$a0}SHALL WE{$a0}PLANT? ^
  660 "u: *pos
  670 "j(i%>ac%): *next
  680 "c: j%=i%/2
  690 "j(j%<=bu%): *next1
  700 "*next
  710 "u: *err
  720 "j: *plant
  730 "*next1
  740 "u(i%>10*po%): *limit
  746 "j(i%>10*po%): *plant
  750 "c: bu%=bu%-j%: yi%=5*rnd(1)+2: ha%=yi%*i%: ra%=(bu%+ha%)*.07*rnd(1)
  760 "c(ha%=0): yi%=0
  770 "t:
  780 "t: *** one year passes ***
  800 "c: bu%=bu%-ra%+ha%: j%=10*rnd(1): im%=im%+(7-yi%)*bu%/600+1
  815 "c(im%=1): im%=2
  820 "c(im%>50): im%=50
  830 "c: po%=po%+im%-de%
  845 "h:
  847 "j: *start
  850 "*err
  860 "t:
  870 "t: hAMMURABI, THINK{$a0}AGAIN -- YOU ^
  880 "t: HAVE{$a0}ONLY po% PEOPLE, ac% ^
  890 "t: ACRES, AND{$a0}bu% BUSHELS{$a0}IN STOREHOUSES.
  910 "t:
  920 "e:
  930 "*plague
  940 "e(j%>0):
  950 "c: po%=po%-po%/2
  960 "t: pLAGUE{$a0}KILLED{$a0}HALF{$a0}THE{$a0}PEOPLE. ^
  970 "e:
  972 "*limit
  974 "t: aLAS, OUR{$a0}po% PEOPLE CAN PLANT AT{$a0}MOST{$a0}10 ACRES{$a0}EACH. ^
  976 "e:
  978 "*pos
  980 "a: i%
  982 "e(i%>=0):
  984 "t: nO{$a0}NEGATIVE{$a0}NUMBERS, PLEASE. hOW{$a0}MANY? ^
  986 "j: *pos
 1000 rem  *** the pilot interpreter ***
 1300 ifzg=0goto1330
 1310 forzk=z1tozg:ifpeek(zi+zk)<>peek(za+zk)thenreturn
 1320 next
 1330 y=-1:n=0:zi=zh:return
 1340 zc$=zc$+za$:if(asc(za$)andzn)<>z3thenreturn
 1350 ifpos(z1)+len(zc$)>z8thenprint
 1360 printzc$;:zc$="":return
 5100 zc$="":zh=peek(zb)=94:zb=zb+zh:ifza>zbgoto5117
 5102 forzk=zatozb:zt=peek(zk)
 5105 za$=chr$(zt):gosub1340:ifzt<z8andzt>z4thengosub5135
 5115 next:gosub1350
 5117 ifnotzhthenprint
 5120 goto5790
 5125 forzf=zd-z1toz1step-z1:zi=asc(mid$(zc$,zf,z1)):ifzi<z5orzi>zythenreturn
 5130 next:return
 5135 zd=len(zc$):gosub5125:zc=zf+z1:ifzc=zdthenreturn
 5140 zg$="zb$=":ifzt<>36thenzg$="zj=
 5145 gosub5570:zg$=mid$(zc$,zc):gosub5565:gosub5590
 5150 zc$=mid$(zc$,z1,zf):onzt-34gosub5165,5185,5160
 5155 iflen(zb$)thenforzf=z1tolen(zb$):za$=mid$(zb$,zf,z1):gosub1340:next
 5157 return
 5160 zb$=str$(zj):goto5180
 5165 zg=int(abs(zj)):ifzg>1e8goto5160
 5170 zb$=str$(zg*sgn(zj))+"."+right$(str$(int((abs(zj)+1-zg)*100+.5)),2)
 5180 ifasc(zb$)=z3thenzb$=mid$(zb$,z2)
 5185 return
 5200 y=0:n=-1:zc=zu+1:ifpeek(za-1)=z3thenza=za-1
 5205 zj=zb+z1:forzk=zatozb:ifpeek(zk)=zsthenzj=zk:zk=zb
 5210 next:zg=zj-za-z1:zh=zu+peek(zu)-zg:ifzh<zcgoto5230
 5215 zt=peek(za):forzi=zctozh:ifzt=peek(zi)thengosub1300
 5220 next:ifygoto5790
 5230 za=zj+z1:ifzj>zbgoto5790
 5235 goto5205
 5300 za$="":zi=zu+z1
 5305 getzb$:ifzb$=""thenprint"{CBM-+}{left}";:goto5305
 5310 zk=asc(zb$):zj=zkand127:ifzj<z3goto5315
 5311 ifzj>=z5andzj<=zythenzb$=chr$((zk+128)and255)
 5312 zi=zi+1:pokezi,zj:za$=za$+zb$:printzb$;:ifzi<1022goto5305
 5313 print:print"that's enough, thanks!":getzb$:getzb$:getzb$:goto5330
 5315 ifzk=13andza$<>""goto5330
 5320 ifzk<>20orza$=""goto5305
 5325 zi=zi-1:za$=mid$(za$,1,zi-zu-1):printzb$;:goto5305
 5330 zi=zi+z1:pokezi,z3:pokezu,zi-zu:printzs$
 5332 ifpeek(za)=z3thenza=za+z1:goto5332
 5334 ifza>zbgoto5790
 5335 zh=peek(zb):gosub5585:ifzh=36thenzg$="=za$":goto5370
 5340 forzi=z2tolen(za$)+1:zg=peek(zu+zi)
 5345 ifzg<43orzg>57orzg=47orzg=44thenzi=zz
 5350 next:zg$="=zg":ifzi>zzgoto5380
 5355 zg=val(za$):ifzh=37andzg<>int(zg)goto5380
 5370 gosub5570:gosub5590:goto5790
 5380 print"tYPE A "mid$("WHOLE ",1,-6*(zh=37))"NUMBER WITHOUT COMMAS.
 5390 gosub5595:goto5300
 5400 zr(zr)=zq:zr=zr+z1
 5410 zk=0:za=za-(peek(za)=42)
 5415 zq=zl%(zk):zc=zq+6:zk=zk+z1:ifzq=0thenze$="nO{$a0}SUCH{$a0}LABEL":goto5900
 5420 ifpeek(zc-1)<>42thenzc=zc+1:goto5420
 5425 forzi=0tozb-za:ifpeek(za+zi)<>peek(zc+zi)thenzi=zz
 5430 next:ifzi>zzgoto5415
 5435 goto5790
 5440 zr=zr-1:ifzr>=0thenzq=zr(zr):goto5790
 5450 zl=0:print"{down}gOODBYE.{down}{down}":end
 5500 zc=za:zd=zb:gosub5580:gosub5590:goto5790
 5533 zi=usr(zi)
 5550 gosub5570:goto5590
 5560 zg$="zf=":gosub5570:gosub5580:goto5590
 5565 zj=len(zg$):zg$=left$(zg$,z1-(zj>z2))+mid$(zg$,zj,-(zt>35))
 5570 zj=len(zg$):forzi=z1tozj:pokeze+zi,asc(mid$(zg$,zi,z1)):next:ze=ze+zj
 5575 return
 5580 forzi=0tozd-zc:zg=peek(zc+zi):pokeze+z1+zi,zg:next:ze=ze+zd-zc+z1:return
 5585 zc=za:zd=zc-(zb>za+z1):gosub5580:ifzh<>35thenze=ze+z1:pokeze,zh
 5587 return
 5590 zg$=":goto5595":gosub5570:forzi=z1to4:pokeze+zi,0:next
 5593 zi=usr(zi)
 5595 ze=9:return
 5600 print"pRESS return TO{$a0}GO{$a0}ON";
 5605 print"{CBM-+}{left}";:getzb$:ifzb$=""goto5605
 5610 print:print"{clr}";:goto5790
 5700 zi=0:zt=0:zk=0:z1=1:z3=32:z4=34
 5705 za$="":zb$="":zc$="":zd$="":zg$="
 5710 zn=127:z8=38:z2=2:za=0:zb=0:zs$=" "
 5715 z5=65:zy=91:zs=44:z6=256:z7=37:z9=9:z0=10:zv=58
 5720 zc=0:zd=0:zq=0:zz=9999:zx=41:zu=860:zo=1025:zw=999:pokezu+z1,z3
 5725 deffnzp(l)=peek(l+z1)*z6+peek(l):poke59468,14:ifzgoto6010
 5730 zj=0:zh=0:zg=0:zf=0
 5735 ze=9:forzi=0to10:poke829+zi,104:next:poke840,162:poke841,9:poke842,160
 5740 poke843,0:poke844,76:poke845,151:poke846,195:poke847,100:poke1,61:poke2,3
 5750 print:print"{clr}";:y=-1:zq=fnzp(zo):zt=zo:zk=0:dimzl%(25)
 5760 zt=fnzp(zt):zc=zt+5:iffnzp(zt+z2)>zwgoto5790
 5765 ifpeek(zc)=z3thenzc=zc+z1:goto5765
 5770 ifpeek(zc)=42thenzl%(zk)=zt:zk=zk+1:ifzk>25thenze$="lABELS>25":goto5900
 5780 goto5760
 5790 zp=zq:za$="":zb$=za$:zc$=za$:zd$=za$:zg$=za$
 5800 zc=fnzp(zp+z2):zq=fnzp(zp):ifzc>zwgoto5450
 5810 zl=zc:zb=zq-z2:zc=zq:ifpeek(zp+4)<>34thenze$="nEED QUOTE":goto5900
 5815 forzi=zp+5tozb:ifpeek(zi)>z4thenzc=zi:zi=zb
 5820 next:ifzc=zqgoto5790
 5825 zk=peek(zc):za=zc:zc=zc+z1:ifzk=42goto5790
 5830 forzi=zctozb:ifpeek(zi)=zvthenzd=zi-z1:zi=zb:za=zd+z2-(peek(zd+z2)=z3)
 5835 next:ifza<zcthenze$="mISSING{$a0}COLON OR{$a0}COMMAND":goto5900
 5840 ifzc>zdgoto5880
 5850 gosub5560:ifzf=0goto5790
 5880 zj=0:zb$="tmaujecfhr":forzi=1toz0:ifasc(mid$(zb$,zi,1))=zkthenzj=zi:zi=z0
 5885 next:onzjgoto5100,5200,5300,5400,5410,5440,5500,5600,5610,5790
 5890 ze$="uNKNOWN COMMAND "+chr$(zk)
 5900 print"**pilot error: ":printze$
 5910 ifzl=0thenend
 5920 ze$="list"+str$(zl)+chr$(13)
 5930 zj=len(ze$):forzi=1tozj:poke526+zi,asc(mid$(ze$,zi,1)):next:poke525,zj:end
 6000 z=5:goto0
 6010 a=zo:n=10
 6020 a=fnzp(a):m=fnzp(a+2):ifm>zwthenend
 6030 i%=n/z6:pokea+3,i%:pokea+2,n-z6*i%:n=n+z:goto6020
   10 print tab(10);"hamurabi"
   30 print : print
   80 print "try your hand at governing ancient"
   81 print "sumeria for a ten-year term of office."
   95 d1=0 : p1=0
  100 z=0 : p=95 : s=2800 : h=3000 : e=h-s
  110 y=3 : a=h/y : i=5 : q=1
  210 d=0 : print
  215 print : print : print "hamurabi: i beg to report to you," : print :z=z+1
  217 print "in year";z;",";d;"people starved," : print i;"came into the city,"
  218 p=p+i
  227 if q>0 then 230
  228 p=int(p/2)
  229 print "a horrible plague has struck!" : print "half the people died!"
  230 print "population is now";p
  232 print "the city now owns";a;"acres of land."
  235 print "you harvested";y;"bushels of" : print "wheat per acre."
  250 print "rats ate";e;"bushels."
  260 print "you now have";s;"bushels in store." : print
  270 if z=11 then 740
  310 c=int(10*rnd(1)) : y=c+17
  312 print "land is trading at";y;"bushels per acre."
  320 print "how many acres do you wish to buy";
  321 input q : if q<0 then 850
  322 if y*q<=s then 330
  323 gosub 710
  324 goto 320
  330 if q=0 then 340
  331 a=a+q : s=s-y*q : c=0
  334 goto 400
  340 print "how many acres do you wish to sell";
  341 input q : if q<0 then 850
  342 if q<a then 350
  343 gosub 720
  344 goto 340
  350 a=a-q : s=s+y*q : c=0
  400 print
  410 print "how many bushels do you wish to" : print "feed your people";
  411 input q
  412 if q<0 then 850
  420 if q<s then 430
  421 gosub 710
  422 goto 410
  430 s=s-q : c=1 : print
  440 print "how many acres do you wish to" : print "plant with seed";
  441 input d : if d=0 then 511
  442 if d<0 then 850
  445 if d<=a then 450
  446 gosub 720
  447 goto 440
  450 if int(d/2)<=s then 455
  452 gosub 710
  453 goto 440
  455 if d<10*p then 510
  460 print "but you only have";p;"people to tend the fields!  now then,"
  470 goto 440
  510 s=s-int(d/2)
  511 gosub 800
  515 y=c : h=d*y : e=0
  521 gosub 800
  522 if int(c/2)<>c/2 then 530
  525 e=int(s/c)
  530 s=s-e+h
  531 gosub 800
  533 i=int(c*(20*a+s)/p/100+1)
  540 c=int(q/20)
  542 q=int(10*(2*rnd(1)-.3))
  550 if p<c then 210
  552 d=p-c : if d>.45*p then560
  553 p1=((z-1)*p1+d*100/p)/z
  555 p=c : d1=d1+d : goto 215
  560 print : print "you starved";d;"people in one year!!!"
  565 print : print "due to this extreme mismanagement you" : print "have not only been"
  566 print "impeached and thrown out of office, but you have also been declared"
  567 print tab(10);"'national fink!!!'" : goto 990
  710 print "hamurabi: think again, o mighty master. you have only"
  711 print s;"bushels of grain.  now then,"
  712 return
  720 print : print "hamurabi: think again. you only have" : print a;"acres. now then," : print
  730 return
  740 print "do you want to know how well you"
  741 print "performed during your reign";
  745 input n$
  748 if n$="yes" then print "ok" : goto 860
  750 goto 995
  800 c=int(rnd(1)*5)+1
  801 return
  850 print : print "hamurabi: i cannot due what you wish."
  855 print "get yourself another servant, asshole!!!"
  857 goto 990
  860 print : print "in your ten-year reign" : print p1;"percent of the population"
  862 print "starved per year on the average."
  863 print "i.e. a total of";d1;"people died." : l=a/p
  870 print : print "you started with 10 acres per person"
  871 print "and ended with";l;"acres per person."
  875 print
  880 if p1>33 then 565
  885 if l<7 then 565
  890 if p1>10 then 940
  892 if l<9 then 940
  895 if p1>3 then 960
  896 if l<10 then 960
  900 print "a fantastic performance!!! charlemange, disraeli, and jefferson"
  905 print "could not have done better!!!" : goto 990
  940 print "your heavy-handed performance smacks of nero, hitler, and ivan iv!!!"
  945 print "the people (remaining) find you" : print "an unpleasant ruler, and,"
  950 print "frankly, hate your guts!!!" : goto 990
  960 print "your performance could have been" : print "somewhat better, but"
  965 print "really wasn't too bad at all. ";int(p*.8*rnd(1));"people"
  970 print "would dearly like to see you" : print "assassinated, but we all have our"
  975 print "trivial problems."
  990 print : for n=1 to 10 : print chr$(7); : next n
  995 print "so long for now." : print
  999 end
   40 poke 59468,14
   50 print"{clr}{down}{down}{down}{down}           {SHIFT--} {SHIFT--}"
   60 print"           {CBM-Q}{SHIFT-*}{CBM-W}"
   70 print"           {SHIFT--} {SHIFT--}AMMURABI"
   80 print"{down}{down}Try your hand at governing ancient"
   90 print"Sumeria for a 10 year term of office."
  100 for i=1 to 3000:next i
  110 z=0:p=95:s=2800:h=3000:e=h-s
  120 y=3:a=h/y:i=5:q=1
  210 d=0
  215 print"{clr}{down}{down}Hammurabi: I beg to report to you-{down}":z=z+1
  217 print"In year";z;"{left},";d;"people starved."
  218 print tab(10);i;"came to the city."
  219 p=p+i
  227 if q>0 then 230
  228 p=int(p/2)
  229 print"{down}A horrible plague struck!Half the peopledied."
  230 print"Population is now";p
  232 print"{down}The city now owns";a;"acres."
  235 print"You harvested";y;"bushels per acre."
  250 if e>0 then print"{down}Rats ate";e;"bushels."
  260 print"You now have";s;"bushels in store."
  270 if z=11 then 860
  310 c=int(10*rnd(1)):y=c+17
  312 print"{down}Land is trading at";y;"bushels per acre."
  320 print"How many acres do you wish to buy";
  321 input q:if q<0 then 850
  322 if y*q<=s then 330
  323 gosub 710
  324 goto 320
  330 if q=0 then 340
  331 a=a+q:s=s-y*q:c=0
  334 goto 410
  340 print"How many acres do you wish to sell";
  341 input q:if q<0 then 850
  342 if q<a then 350
  343 gosub 720
  344 goto 340
  350 a=a-q:s=s+y*q:c=0
  410 print"{down}How many bushels do you wish to feed to your people";
  411 input q
  412 if q<0 then 850
  420 if q<=s then 430
  421 gosub 710
  422 goto 410
  430 s=s-q:c=1
  440 print"{down}How many acres do you wish to plant withseed";
  441 input d:print:if d=0 then 511
  442 if d<0 then 850
  445 if d<=a then 450
  446 gosub 720
  447 goto 440
  450 if int(d/2)<=s then 455
  452 gosub 710
  453 goto440
  455 if d<=10*p then 510
  460 print"But you only have";p;"people to tend"
  465 print"the fields. Now then,"
  470 goto 440
  510 s=s-int(d/2)
  511 gosub 800
  515 y=c:h=d*y:e=0
  521 gosub 800
  522 if int(c/2)<>c/2 then 530
  525 e=int(s/c)
  530 s=s-e+h
  531 gosub 800
  533 i=int(c*(20*a+s)/p/100+1)
  540 c=int(q/20)
  542 q=int(10*(2*rnd(1)-.3))
  550 if p<c then 210
  552 d=p-c:if d>.45*p then 560
  553 p1=((z-1)*p1+d*100/p)/z
  555 p=c:d1=d1+d:goto 215
  560 print"{down}You starved";d;"people in one year!"
  565 print"Due to this extreme mismanagement you   have not only been impeached and"
  566 print"thrown out of office but you have been  declared national Fink!!!!!"
  567 goto 990
  710 print"Hamurabi: think again. You have only"
  711 print s;"bushels of grain. Now then,"
  718 return
  720 print"Hamurabi: think again. You have only"
  725 printa;"acres of land. Now then,"
  730 return
  800 c=int(rnd(1)*5)+1
  801 return
  850 print"{down}Hamurabi: I cannot do as you wish."
  855 print"Get yourself another steward!!!!!"
  857 goto 990
  860 print"{down}Press return to continue"
  861 p1=int(p1*10+.5)/10
  862 get z$:if z$="" then 862
  863 print"{clr}In your 10 year term of office";p1;"%"
  864 print"of the population starved per year on   the average,ie. a total of";
  865 printd1:print"people died!!":l=a/p
  870 print"{down}You started with 10 acres per person"
  875 print"and ended with";int(l*10+.5)/10;"acres per person.{down}"
  880 if p1>33 then 565
  885 if l<7 then 565
  890 if p1>10 then 940
  892 if l<9 then 940
  895 if p1>3 then 960
  896 if l<10 then 960
  900 print"{down}A fantastic performance!!! Charlmagne,  Disraeli, and Jefferson combined"
  905 print"could not have done better!":goto 990
  940 print"{down}Your heavy-handed performance smacks of Nero and Ivan IV. The people who"
  945 print"are left find you an unpleasant ruler   and frankly, hate your guts!!"
  950 goto 990
  960 print"{down}Your performance could have been"
  962 print"somewhat better, but really wasn't too  bad at all.";int(p*.8*rnd(1));
  965 print"people would":print"dearly like to see you assassinated but"
  970 print"we all have our trivial problems."
  990 print"{down}{down}{down}press return when you have finished."
  992 get z$:if z$="" then 992
  994 poke 59468,12
  996 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}so long for now"
  999 end
 7280 print"{up}                                        "
    5 print"{clr}"
   10 gosub9000
   20 print"{clr}"
   25 print"type your guess"
   26 print
   30 fora=1toint(rnd(a)*52)
   40 reada$
   50 nexta
   60 fora=1tolen(a$)
   70 a$(a)=mid$(a$,a,1)
   80 nexta
   90 fora=1tolen(a$)
  100 b$(a)="-":printb$(a);
  200 nexta
  210 print
  250 getb$:ifb$=""then250
  255 print"{up}";
  260 fora=1tolen(a$)
  270 ifb$=a$(a)thenb$(a)=a$(a):a$(a)="-":n=n+1:xe=1
  275 ifn=len(a$)then4000
  280 printb$(a);
  290 nexta
  291 print
  292 ifxe<>1thengosub2000
  293 xe=0
  300 goto250
 1000 dataelephant,blackboard,commodore,electron,camel,orchestra,noodle,purple
 1010 datalampshade,table,barber,riddle,courage,revolt,context,lecturn,coupon
 1020 datafragile,terrier,broken,super,great,terrific,wonderful,extinct,python
 1030 datacircus,flying,moth,butterfly,tobacco,conflict,vowel,keyboard,bush
 1040 dataflamingo,lymph,numeral,respect,verify,dread,drop,iodine,fodder,bulge
 1050 datadollar,pink,orange,lemon,beetle,hymn
 2000 t=t+1
 2005 ontgoto2010,2020,2025,2040,2050,2060,2065,2070,2080,2090
 2010 for g=1to7
 2011 poke33515+g,119
 2012 next
 2015 ift<2then3000
 2020 forg=0to7               
 2021 poke((17-g)*40+32768)+30,106
 2022 next
 2025 ift<3then3000
 2030 forg=1to3:pokeg+33158,100:next
 2035 ift<4then3000
 2040 poke33199,78            
 2045 ift<5then3000
 2050 poke33202,101
 2055 ift<6then3000
 2060 poke33241,85:poke33242,73:poke33281,74:poke33282,75
 2062 ift<7then3000
 2065 poke33321,103:poke33322,101:poke33361,103:poke33362,101
 2067 ift<8then3000
 2070 poke33321,80:poke33322,79
 2075 ift<9then3000
 2080 poke33401,78
 2085 ift<10then3000
 2090 poke33402,77
 2100 print
 2110 print"you are hanged!!"
 2120 print"the word was "a$" !!!"
 2125 gosub10000
 2130 goto4020
 3000 return
 4000 printb$(a)
 4005 print
 4010 print"you got it !!"
 4020 print
 4030 gosub6000
 4032 print
 4035 print"type{CBM-C}1{CBM-V}to run again."
 4040 geta$:ifa$=""then4040
 4050 ifa$="1"thenclr:goto20
 4055 poke59466,254:poke59467,0:poke59464,0
 4060 end
 5030 goto4000
 6000 print"you made "t" mistakes!";
 6010 ift=1thenprint"{left}{left} "
 6015 print
 6020 ift=0thenprint"excellent!!"
 6030 ift>0andt<4thenprint"good"
 6040 ift>3andt<7thenprint"average"
 6050 ift>6andt<9thenprint"poor!"
 6060 ift=9thenprint"phew!!!"
 6070 ift=10then print"try again."   
 6999 print
 7000 return
 9000 print"          ****hangman****"
 9010 print"              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 9020 print"{down}{down} this is the popular game of hangman"
 9030 print"{down}{down}the computer thinks of a word,and"
 9040 print"{down} you have to guess what it is."
 9050 print" {down}{down}press 1 letter at a time."
 9130 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start:-"
 9140 geta$:ifa$=""then9140
 9150 return
 9160 end
 10000 restore:formt=1to51:reada$:next
 10005 poke59467,16:poke59466,16
 10010 reada,b:ifa=0andb=0thenpoke59466,254:poke59467,0:return
 10020 poke59464,a
 10030 fory=0tobstep2:next
 10040 goto10010
 10100 data210,500,0,100,210,500,0,100,210,100,0,50,210,500,0,50
 10110 data175,300,0,100
 10120 data186,100,0,50,186,200,0,50
 10130 data210,200,0,100,210,300,0,100
 10140 data225,100,0,50,210,500,0,100
 20000 data0,0
    1 rem   hangman1               july1980
    2 rem   hangman with 5 word categories                          (good graphics)
    3 rem   word data located at line 1051          grouped/20 words per category
    4 rem
    5 rem   8k pet  if lines 1-25 and lines         63333+ are removed*****3.0 roms
    7 rem   author unknown (cue library)            adapted by harriet hungate
    8 rem
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use & may not be{SHIFT--}
   24 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   27 dim hm$(8),td$(6,4),pr$(17),c$(25)
   28 print"{clr}{down}{down}{down}{down}"tab(13)"*************"
   29 printtab(13)"*"tab(25)"*"
   30 printtab(13)"*  HANGMAN  *"
   31 printtab(13)"*"tab(25)"*"
   32 printtab(13)"*"tab(25)"*"
   33 printtab(13)"*************"
   34 poke 59468,14:print"{rght}{rght}{rght}{down}{rght}{rght}{rght}{down}{down}{down}{down}{down} Do you need instructions?";
   35 get c$:if c$="" then 35
   37 if c$<>"y" then 110
   40 print"{clr}{down}Your best friend has been arrested and  charged with arson, tre";
   45 print"ason, armed rob- bery and public drunkeness  ... PLUS ...murder,";
   50 print" mayhem, ignorance and ugliness."
   55 print"{down}However, the judge, being a benevolent  sort, will let your friend";
   60 print" plea-bargain the charges down to ugliness, provided  he/she has{$a0}";
   65 print"one friend.  GUESS{$a0}WHO??"
   70 print"{down}To save your friend's life, you must    guess the secret word/";
   75 print"words.  Each time uou guess a CORRECT letter, you have a  chance ";
   80 print"to guess the word/words, with no penalty for a wrong guess."
   85 print"{down}But BEWARE!!!!  Each time you guess an  INCORRECT";
   90 print" letter, your friend advances  one step closer to"
   95 print tab(10);"{down}!!!!  DOOM  !!!!
  100 print"   {down}{CBM-B}{CBM-B}{CBM-B} Type anything to continue {rvon}{CBM-B}{CBM-B}{CBM-B}{rvof}"
  105 getc$:if c$="" then 105
  110 print"{clr}{down}{down}{down}{down}{down}{down}What is your first name?";:gosub950:nm$=left$(c$,9)
  111 print"{clr}   okay,"+nm$+"
  112 print"{down}When you guess a correct letter,you"
  113 print"{down}will be asked if you would like to try"
  114 print"{down}to guess the entire word.Type either "
  115 print"{down}yes or no according to your wishes"
  116 print"{down}and follow the instructions accordingly."
  117 print"{down}{down}{down}{rvon}type anything to continue...."
  118 getc$:if c$="" then 118
  120 for i=1 to 8:read hm$(i):next
  125 for i=1 to 6: for j=1 to 4
  130 read td$(i,j):next:next
  135 a$="{down}{left}{left}{left}{left}":b$="{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  150 poke59468,14:print"{clr}{down}Choose one of the following categories:{down}{down}"
  155 ct$(1)="computers":ct$(2)="sports":ct$(3)="cars":ct$(4)="nations"
  160 ct$(5)="pot pourri"
  165 for a=1 to 5:printa;"{left}. ";ct$(a):next
  170 print"{down}{down}    Your choice, "+nm$+" ";:gosub950:c=val(c$)
  171 if c>=1 and c<6 then 175
  172 print"Please type the appropriate number,"+nm$:forz=1to999:next:goto 150
  175 print " {down}{down}{down}{down}{down}   Let me think of a word...":tt=ti
  185 for i=0 to (c-1)*20+int(rnd(1)*20)
  190 read wd$:next
  200 if ti-tt<120 then 200
  205 lm$="":pr$="":lg$=""
  210 fori=1 to len(wd$)
  215 if mid$(wd$,i,1)=" " then pr$(i)=" ":pr$=pr$+" ":goto 225
  220 pr$(i)="-":pr$=pr$+"-"
  225 next:poke59468,12
  227 mn$=left$(nm$,1)
  228 if asc(mn$)>95 thennm$=chr$(asc(mn$)-128)+mid$(nm$,2)
  230 vp=17:hp=0:m=0:print"{clr}";
  235 for i=1 to 16:print"{down}";:next
  240 for i=1to8:print:printhm$(i);:next
  245 for i=1 to 7
  250 print"{rvon} {up}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {up}{left}";:next:print"{rvof}";
  255 print"{rvon} {up}{left}  {rvof}EEEE{rvon} {rvof}"
  260 print"{home}";tab(34);"{rvon}{CBM-I}  {rvof}{down}{left}{left}{CBM-M}{CBM-G}{down}{left}{left}UI{down}{left}{left}JK{up}{up}{up}{rvon}{CBM-I}{CBM-I} ";
  265 for i=1 to 23:print"{left}{rvon} {rvof}{down}";:next
  270 print"{left}{rvon} {rvof}";:poke 33767,160
  275 print"{home}secret word: ";ct$(c);"{up}
  280 for i=1 to 8 :print"{down}" :next
  285 printtab(18);"{down}letters missed"
  290 printtab(18);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  295 print"{home}{down}{down}{down}{down}";pr$
  300 for i=1 to 17:print"{down}";:next
  305 printtab(16);lm$
  310 print"{home}{down}{down}{down}{down}{down}{down}guess a letter           {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:gosub950:g$=c$+" "
  315 if mid$(g$,2,1)=" " goto 350
  320 print"{up}{up}{up}{up}"
  325 for i=1 to 20
  330 if i/2=int(i/2)then print"{rvon}";
  335 print"only one letter, ";nm$;"{up}"
  340 for j=1 to 50:next
  345 next i:goto 310
  350 g$=left$(g$,1)
  355 if g$>="a" and g$<="z" goto 385
  360 print"{up}{up}{up}{up}":for i=1 to 20
  365 if i/2=int(i/2)then print"{rvon}";
  370 print"that's not a letter!!{up}"
  375 for j=1 to 50:next
  380 next i:goto 310
  385 for i=1 to len(lg$)
  390 if g$=mid$(lg$,i,1) goto 400
  395 next i:goto 430
  400 print"{up}{up}{up}{up}"
  405 for i=1 to 20
  410 if i/2=int(i/2) then print"{rvon}";
  415 print"that letter was tried!!{up}"
  420 for j=1 to 50:next
  425 next i:goto 310
  430 print"{up}{up}                   "
  435 f=0:for i=1 to len(wd$)
  440 if g$=mid$(wd$,i,1) then pr$(i)=g$:f=1
  445 next
  450 if f=0 goto 650
  455 lg$=lg$+g$:pr$=""
  460 for i=1 to len(wd$)
  465 pr$=pr$+pr$(i):next
  470 print"{home}{down}{down}{down}{down}";pr$
  475 print"                    {up}"
  480 for i=1 to 20
  485 if i/2=int(i/2) then print"{rvon}";
  490 print"very good,"+nm$+"!{up}"
  495 for j=1 to 50:next:next
  500 if pr$=wd$ goto 565
  505 print"{home}{down}{down}{down}{down}{down}{down}try for the word?   {left}{left}";
  510 gosub950
  512 if left$(c$,1)<>"y" then 310
  515 print"{home}{down}{down}{down}{down}{down}{down}guess the word(s)   "
  520 gosub 950:g$=left$(c$,len(wd$))
  525 if g$=wd$ goto 565
  530 print"{home}{down}{down}{down}{down}{down}{down}                   {up}"
  535 for i=1 to 20
  540 if i/2=int(i/2) then print"{rvon}";
  545 print"sorry,"+nm$+"{up}"
  550 for j=1 to 50:next:next
  555 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}                "
  560 goto 310
  565 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  570 for i=1 to 10
  575 print"Z Z Z Z Z Z "+b$;
  580 print"           Z"+b$;
  585 print"Z you won!  "+b$;
  590 print"           Z"+b$;
  600 print"Z Z Z Z Z Z "+b$;
  605 print"{up}{up}{up}{up}{up}";
  610 print" Z Z Z Z Z Z"+b$;
  615 print"Z           "+b$;
  620 print"  {rvon}you won!{rvof} Z"+b$;
  625 print"Z           "+b$;
  630 print" Z Z Z Z Z Z"+b$;
  635 print"{up}{up}{up}{up}{up}";:next
  640 print:print"{down}{down}{down}{down}{down}{down}care for another chance to kill a friend"+nm$+"?"
  645 goto 925
  650 print"{home}{down}{down}{down}{down}{down}{down}                    {up}"
  655 for i=1 to 20
  660 if i/2=int(i/2)then print"{rvon}";
  665 print"you blew it "+nm$+"!{up}"
  670 for j=1 to 50:next:next
  675 lg$=lg$+g$:lm$=lm$+g$
  680 print"{home}":for i=1 to 10:print"{down}":next
  685 printtab(18)+lm$:m=m+1
  690 if m=9 goto 800
  695 for i=1 to 2:vp=vp-1:print"{home}";
  700 for j=2 to vp:print"{down}";:next
  705 if vp=1 then print"{up}";
  710 printspc(hp+1)+"{left}";
  715 for j=1 to 8
  720 print"{down}"+hm$(j)+"{left}{left}{left}{left}";
  725 next j:print"{down}    ";:next i
  730 for i=1 to 4:hp=hp+1:print"{home}";
  735 for j=2 to vp:print"{down}";:next
  740 if vp=1 thenprint"{up}";
  745 printspc(hp)+"{left}";
  750 for j=1 to 8
  755 print"{down} "+hm$(j)+"{left}{left}{left}{left}{left}";:next:next
  760 if m<8 goto 310
  765 print"{home}";spc(hp);
  770 for i=1 to 8
  775 print"{down}  "+hm$(i)+"{left}{left}{left}{left}{left}{left}";:next
  780 goto 310
  800 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}";spc(34);
  805 for i=1 to 6:for j=1 to 4
  810 printtd$(i,j)+a$;:next
  815 print"{up}{up}{up}{up}";:next
  820 print"{home}{down}{down}";spc(34);
  825 for i=1 to 16:print"{down} {CBM-N}{CBM-H} ";
  830 for j=3 to 8
  835 print a$+hm$(j);:next
  840 print"{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}";:next
  850 for i=1 to 1000:next
  860 print"{up}{rvon}{SHIFT-POUND}  {CBM-*}"+a$;
  865 print"{rvon}{CBM-G}r {CBM-M}"+a$;
  870 print"{rvon}{CBM-H}i{SHIFT-+}{CBM-N}"+a$;
  875 print"{rvon}{CBM-J}p{SHIFT--}{CBM-L}"+a$;
  880 print"{rvon}{CBM-K} {SHIFT--}{rvof}{CBM-K}"+a$;
  885 print"{CBM-N}{rvon}  {rvof}{CBM-H}"+a$;
  890 print"{CBM-M}{rvon}  {rvof}{CBM-G}"+a$;
  895 print"{CBM-M}{rvon}  {rvof}{CBM-G}";
  900 for i=1 to 3000:next
  905 print"{clr}{down}{down}{down}{down}{down}{down}the secret word was:"
  910 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}"+wd$
  915 print"{down}{down}{down}{down}better luck next time, ";nm$;"!!!"
  920 print"{down}{down}{down}{down}care to waste another friend? ";
  925 restore
  930 for i=1 to 32:read wd$:next
  935 get c$:if c$="" then 935
  937 if c$="y" then 150
  940 print"{clr}{down}{down}thanks for playing!!!!":end
  950 c$="":rem  input subroutine
  952 print"{CBM-+}{left}";:c$=""
  955 get c1$:if c1$="" then 955
  960 if asc(c1$)<>13 then 975
  965 if c$="" then 955
  970 print" ":return
  975 if asc(c1$)<>20 then 990
  980 if c$="" then 955
  982 c1=len(c$):if c1=1 then c$="":goto986
  984 c$=left$(c$,c1-1)
  986 print"{left}{CBM-+} {left}{left}";:goto955
  990 printc1$+"{CBM-+}{left}";:c$=c$+c1$:goto 955
 1000 data" UI "," JK "
 1005 data"{rvon}{SHIFT-POUND}  {CBM-*}{rvof}"
 1010 data"{rvon}{CBM-N}  {CBM-H}{rvof}"
 1015 data"{rvon}{CBM-N}  {CBM-H}{rvof}"
 1020 data" {rvon}{CBM-M}{CBM-G}{rvof} "
 1025 data" {rvon}{CBM-M}{CBM-G}{rvof} "
 1030 data"{CBM-D}{rvon}{CBM-M}{CBM-G}{rvof}{CBM-F}"
 1035 data"ECF{CBM-@}"
 1040 data"    ","    ","    "
 1045 data"E   "," E  ","  E ","   E","M   "," M  ","  M ","{CBM-G}   "," {CBM-G}  "
 1046 data"  {CBM-G} ","   {CBM-G}","{CBM-G}   ","G   ","{SHIFT--}   ","Y   ","{CBM-G}   ","{CBM-G}   ","{CBM-G}   ","{CBM-G}   "
 1050 data"{CBM-G}   "
 1051 rem"                                         {CBM-+}{CBM-+}{CBM-+}word data for category 1{CBM-+}{CBM-+}
 1055 data cpu,chip,ram,core,memory,"data",terminal,"floppy disc",cycles,loop
 1060 data increment,input,logic,octal,subroutine,hexadecimal,subscript
 1065 data output,peripheral,byte
 1066 rem"                                         {CBM-+}{CBM-+}{CBM-+}word data for category 2{CBM-+}{CBM-+}
 1070 data baseball,football,basketball,soccer,rugby,hockey,skiing,"water polo"
 1075 data volleyball,boxing,"tiddley winks",chess,"jai alai",swimming,track
 1079 rem"                                         {CBM-+}{CBM-+}{CBM-+}word data for category 3{CBM-+}{CBM-+}
 1080 data "auto racing",fencing,archery,cycling,"mountain climbing"
 1085 data porsche,toyota,volkswagen,lincoln,pantera,lotus,triumph,chevrolet
 1090 data dodge,bmw,edsel,datsun,convertible,cadillac,capri,"dune buggy"
 1095 data mustang,jalopy,ferrari,rambler
 1999 rem"                                         {CBM-+}{CBM-+}{CBM-+}word data for category 4{CBM-+}{CBM-+}
 2000 data thailand,america,france,spain,england,germany,russia,italy,greece
 2010 data egypt,rhodesia,chile,china,japan,india,canada,mexico,uganda
 2020 data yugoslavia,guam
 2024 rem"                                         {CBM-+}{CBM-+}{CBM-+}word data for category 5{CBM-+}{CBM-+}
 2025 data pizza,tension,magistrate,"talk show",scientist,mahogany,thing,fault
 2030 data dangerous,ewes,sylph,quaint,lug,bye,maiden,laugh,sphinx
 2035 data erroneously,example,quinine
 2500 end
    1 rem  hangman2                july1980
    2 rem  good ol' hangman
    3 rem
    4 rem  8k pet (without lines 1-25                        and lines 60000+)
    5 rem
    7 rem  by raymond toy
    8 rem
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use & may not be{SHIFT--}
   24 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   30 print"{clr}":poke59468,12
   31 dima$(20),b$(20),j$(60),c(150)
   32 printtab(14)"hang man":print"{down}   do you want instructions (y/n)?"
   33 gety$:ify$="y"then600
   34 ify$="n"then36
   35 goto33
   36 rem***initialize variables, select            word
   37 restore:print"{clr}":readn
   38 u=u+1
   39 r0=100*(ti/100-int(ti/100)):ifr0>100then39
   40 forr1=1tor0:r=int(rnd(1)*n):nextr1:ifr>nthen40
   41 ifu=1then45
   42 forx=1tou-1
   43 ifc(x)=rthen40
   44 nextx
   45 c(u)=r
   46 forx=1to20:a$(x)="":b$(x)="":j$(x)="":nextx
   47 i$="":k$="":j=0:q=0:w=0:y=0:z=0
   48 forx=1tor
   49 reada$
   50 nextx
   60 l=len(a$)
   65 print"my word is: ";:forx=1tol:print"{CBM-@} ";:nextx
   70 forx=1tol
   75 a$(x)=mid$(a$,x,1)
   80 nextx
   90 print"{home}{down}{down}{down}your guesses: ";
   91 geti$:ifi$=""then91
   92 j=j+1
   93 ifj=1then99
   94 forj1=1toj-1
   95 ifj$(j1)<>i$then98
   96 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}letter repeated{rvof}":forx=1to500:nextx
   97 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}               ":goto91
   98 nextj1
   99 j$(j)=i$
  100 q=q+2:print"{home}{down}{down}{down}"spc(12+q)i$;
  109 forx=1tol
  110 ifa$(x)<>i$then120
  112 b$(x)=a$(x):y=y+1
  114 k$="#"
  120 nextx
  125 ifk$="#"then140
  130 w=w+1:print"{home}"
  131 print"{down}{down}{down}{down}"
  132 onwgosub210,290,297,299,310,310,310,340,350,350,375
  134 print"{home}"
  135 goto91
  140 print"{home}{down}"spc(12);
  142 forx=1tol
  145 ifb$(x)<>""then152
  148 print"{CBM-@} ";
  150 goto155
  152 printb$(x);" ";
  155 nextx
  157 print
  158 k$=""
  160 ify<>lthen91
  162 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}another  {down}{left}{left}{left}{left}{left}{left}{left}word (y/n)?"
  165 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}you've got it!{rvof}";
  170 forx=1to500:nextx
  171 gety$:ify$="y"then36
  172 ify$="n"then500
  173 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}               ":forx=1to500:nextx:goto165
  200 rem***pictorials
  210 printtab(10)"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
  220 printtab(10)"{CBM-K}      {SHIFT--}"
  230 printtab(10)"{CBM-K}      {SHIFT--}"
  240 printtab(10)"{CBM-K}      :"
  250 printtab(10)"{CBM-K}      W"
  260 printtab(10)"{CBM-K}"
  270 printtab(10)"{CBM-K}"
  280 printtab(10)"{CBM-K}"
  285 return
  290 print"{down}{down}{down}{down}{down}{down}{down}":printtab(10)"{rvon} {rvof}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  292 printtab(10)"{CBM-K}"
  293 printtab(10)"{CBM-K}"
  294 printtab(10)"{CBM-K}"
  295 printtab(10)"{CBM-K}"
  296 printtab(9)"{rvon}{SHIFT-POUND}{rvof}{CBM-K}":return
  297 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      {rvon}     hangman     {rvof}":return
  299 rem
  300 print"{down}{down}{down}":printspc(14)"   Q"
  305 ifw<>11thenreturn
  310 print"{down}{down}{down}{down}":printspc(14)"  N";
  315 ifw=5thenreturn
  320 print"B";
  325 ifw=6thenreturn
  330 print"M"
  335 ifw<>11thenreturn
  340 print"{down}{down}{down}{down}{down}":printspc(14)"   B "
  345 ifw<>11thenreturn
  350 print"{down}{down}{down}{down}{down}{down}":printspc(14)"  N ";
  355 ifw=9thenreturn
  360 print"M"
  365 ifw<>11thenreturn
  370 end
  375 print"{down}{down}{down}{down}";
  380 printtab(15)"  :  "
  390 printtab(15)"  :  "
  395 printtab(15)"  Q  "
  400 printtab(15)" NBM "
  405 printtab(15)"  B  "
  410 printtab(15)" N M "
  415 ifz=999then428
  420 z=999
  422 print"{up}{up}{up}{up}{up}"
  425 goto380
  428 print"{home}":forx=1to39:print" ";:nextx
  430 print"{home}{down}my word is: ";"{rvon}"a$"{rvof}"
  449 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}another  {down}{left}{left}{left}{left}{left}{left}{left}word (y/n)?"
  450 print"{home}"tab(24)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}you lose!{rvof}";:forx=1to500:nextx
  451 gety$:ify$="y"then36
  452 ify$="n"then500
  458 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}         ":forx=1to500:nextx:goto450
  460 forx=1to1000:nextx
  500 rem
  515 print"{clr}"
  520 end
  600 rem***instructions
  602 print"{clr}"
  605 printtab(14)"hang man{down}"
  615 print"this is the traditional word guessing"
  620 print"{down}game of 'hang man'.  you are allowed"
  625 print"{down}10 incorrect guesses;  on the 11th"
  630 print"{down}error, you will be hanged.  the computer"
  635 print"will indicate the number of letters"
  640 print"{down}in the unknown word by printing out the"
  645 print"{down}appropriate number of spaces:":print
  650 print"{down}            {CBM-@} {CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}":print
  656 gosub1000
  658 getc$:ifc$=""then658
  659 print"{clr}"
  705 print"{down}to enter your guesses, press the"
  710 print"{down}appropriate alphabetic keys. "
  715 print"{down}do not press the {rvon}return{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} key."
  725 print"{down}{down}{down}{down}{down}{rvon}warning{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}  there is no reprieve for"
  730 print"         your mistakes!"
  731 print"{down}{down}{down}{down}{down}":gosub1000
  735 getc$:ifc$=""then735
  740 print"{clr}":goto36
 1000 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print"{rvon}press any key to continue":return
 8000 rem***indicate # of words on next             line
 8010 data215
 9000 rem***words available
 9010 data help,computer,quay,plausible,facile,tumult,flexible,turpitude
 9020 data mentality,aerosol,fluid,tangential,introductory,angstrom,corollary
 9030 data government,systematic,adamant,personification,environment,yeast
 9040 data amendment,congratulatory,torsion,dwarf,jugular,peripheral,beast
 9050 data paraphernalia,elongated,tempestuous,guarantee,designate,qualify
 9060 data pentameter,culpable,plaintiff,soothe,sanction,fascinate,exemplify
 9070 data sculpture,etch,alumni,renown,certificate,buoyant
 9080 data feisty,umbilical,erudite
 9090 data placebo,ameliorate,emulate,exigency,evoke,exemplary,euphoric
 9100 data quintessence,jeopardy,luscious,mahogany,phantom,pharynx,vagary
 9110 data whistle,zenith,xenon,yeoman,waxen,rudiment,ritual,resonate,psychosis
 9120 data prelude,porcupine,pomegranate,pneumatic,pisces,pewter,peony
 9130 data pedagogue,paltry,paramecium,papyrus,osmosis,oscillate,origami
 9140 data opulent,omelette,onerous,ocelot,oblique,obelisk,nuisance,noxious
 9150 data nocturnal,neolithic,nihilism,neutral,nemesis,mystique,mythological
 9160 data precocious,predatory,mosaic,mosque,metamorphosis,vermin,modulus
 9170 data metaphor,moccasin,misanthrope,merchandise,medieval,mayonnaise
 9180 data maladroit,magnolia,microcosm,lyricism,lymph,ludicrous,lozenge,locust
 9190 data logarithm,palindrome,linguistics,limerick,licorice,lemur,lapse
 9200 data laminate,kiwi,kinetic,supplicant,fez,kazoo,catharsis,incantations
 9210 data katydid,khaki,juvenile,kangaroo,eradicate,iodine,iridescent,intrigue
 9220 data intransigent,satiate,sobriety,infrared,egalitarian,equinox,infuse
 9230 data ingot,iguana,impetuous,idle,hypotenuse,equilateral,hygiene,hyena
 9240 data hyacinth,hypnotic,famished,hue,asylum,horizontal,hoist,histogram
 9250 data hindrance,hieroglyphics,hexagon,helix,harlequin,halogen,gypsum
 9260 data gopher,clique,chortle,goblet,gnaw,pneumatic,aggrandizement,agnostic
 9270 data geodesic,geriatric,ghoulish,frustrum,fulcrum,isosceles,fabricate
 9280 data forensic,focus,fluent,volatile,fanaticism,exuberant,proximity
 9290 data dromedary,platypus,dinosaur,demonic,delicatessen,incumbent,decanter
 9300 data cushion,brethren,bombast,demagoguery,serif,akimbo,nomenclature
 9310 data absolute,apocalypse,abdomen    
    1 rem  hangman3      september 1980
    2 rem
    3 rem  donated to cue by b.godfrey
    4 rem  from toronto pet users group
    5 rem
    6 rem  hangman game with 14o words and         5 difficulty levels
    7 rem
    8 rem  words can be changed in data            statements 700-799
    9 rem
   10 rem  pet   8k
   11 rem
   12 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}         {SHIFT--}{$a0}      san mateo county     {$a0}{SHIFT--}
   13 rem"{SHIFT--}     office of education     {SHIFT--}         {SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}         {SHIFT--}          softswap           {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}         {SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}333 main street, redwood city{SHIFT--}         {SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   17 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}         {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   18 rem"{SHIFT--} programs may be copied for  {SHIFT--}         {SHIFT--} educational use & may not be{SHIFT--}
   19 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}         {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   29 print"{clr}":dimc$(20)
   30 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(10);"{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}"
   31 for u=1to200:next u
   32 print"{up}";tab(10);"h"
   33 for u=1to200:next u
   34 print"{up}";tab(12);"a"
   35 for u=1to200:next u
   36 print"{up}";tab(14);"n"
   37 for u=1to200:next u
   38 print"{up}";tab(16);"g"
   39 for u=1to200:next u
   40 print"{up}";tab(18);"m"
   41 for u=1to200:next u
   42 print"{up}";tab(20);"a"
   43 for u=1to200:next u
   44 print"{up}";tab(22);"n"
   45 for u=1to1000:next u
   46 for u=1to23
   47 print
   48 if u>12thenfor uu=1to50:nextuu
   49 next u
   50 print"{home}"
   51 print tab(10);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   53 print "{down}";tab(10);"instructions"
   54 print "{down}                         {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
   55 print "when the computer prints {rvon}guess a letter{rvof}"
   56 print "{down}type in a letter that you think is in"
   57 print "{down}the word represented by the dashes. you"
   58 print "{down}win if you fill in the word before your"
   59 print "{down}man is hanged. you lose if the man is"
   60 print "{down}hanged."
   61 print "{down}{rght}{rght}{rght}{rght}{rght}enter word set desired (1-5)"
   63 print"{down}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
   64 print"{rvon}do not press return{rvof}"
   65 get ws$
   67 if ws$ >"0" and ws$ <"6"goto 70
   69 goto 65
   70 let ws = (val(ws$)-1)*20
   75 for wt = 1 to ws
   80 read v$
   85 next wt
   90 print "{clr}{down}enter difficulty factor (1-5)"
   91 print"{down}{down}{rght}{rght}{rght}{CBM-R} 1  easiest":print"{rght}{rght}{rght}{SHIFT--}":print"{rght}{rght}{rght}{CBM-Q} 2":print"   {SHIFT--}"
   92 print"{rght}{rght}{rght}{CBM-Q} 3":print"{rght}{rght}{rght}{SHIFT--}":print"{rght}{rght}{rght}{CBM-Q} 4":print"   {SHIFT--}":print"   {CBM-E} 5 hardest"
   95 get io$:io=val(io$):ifio<1orio>5then95
   97 for ws=1 to 20:readc$(ws):nextws
   98 for gp = 1 to 20
   99 let rn = int(rnd(1)*20)+1
  100 if c$(rn)="0"goto 99
  101 let a$=c$(rn):c$(rn)="0"
  104 print "{clr}"
  105 let vi = 0
  106 for it = 1 to io
  107 gosub 1000
  108 next it
  110 let a = len(a$)
  145 let am=0
  151 let e=0:mm=0:fi=0
  160 for i=1to a
  170 let b$(i)=mid$(a$,i,1)
  180 next i
  200 for i=1to a
  210 print"{home}{down}{down}{down}{down}";tab((2*i)+16);"{CBM-@}"
  220 next i
  230 print"{home}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}used letters:  ";
  235 for ul = 1 to ( 9-io)
  240 print "{CBM-@} ";
  245 next ul
  250 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  "
  251 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}guess a letter{rvof}  "
  255 let v=0
  260 get z$
  265 if z$="" goto 250
  280 for i=1to a
  290 if z$<>b$(i)goto 350
  295 if z$=" " goto 350
  300 remprint "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}correct guess     "
  310 print"{home}{down}{down}{down}{down}";tab((2*i)+16);b$(i)
  314 if b$(i)=" "goto 350
  316 let b$(i)=" "
  320 let mm=mm+1
  330 if mm=a  goto500
  340 let v=1
  345 goto 350
  350 next i
  360 if v=1 goto362
  361 goto 370
  362 fork=1to1000:nextk
  363 goto250
  370 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}incorrect guess"
  371 forqq=1to1000:next
  372 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}               "
  375 lete=e+1
  380 print"{home}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(((e-1)*2)+16);z$
  385 gosub 1000
  390 if e= ( 9-io) goto 600
  395 for i=1to1000:nexti
  400 goto 250
  500 print"{home}{rght}{down}{down}{down}{down}{down}{down}{down}* you win! *"
  501 print "{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}new difficulty factor (n/y)?"
  502 get q$
  505 if q$ = "y" goto 890
  509 if q$ = "n" then goto 511
  510 goto 502
  511 next gp
  512 goto 95
  600 print"{home}{rght}{down}{down}{down}{down}{down}{down}{down}* you hang *"
  601 print
  602 print "{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}the word was ";a$
  606 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}new difficulty factor (n/y)?"
  607 get q$
  608 if q$ = "y" goto 890
  609 if q$ = "n" then goto 511
  610 goto 607
  700 data next,interest,lynx,language,asylum,freeze,limit,school,ridicule
  707 data computer,comment,topic,weird,boring,useful,press,forget,simple
  710 data ready,question,repeat,extend,society,invention
  712 data water,brake,safety,worship
  713 data plane,science,battery
  714 data obscure,suffice,prism,visual,facetious,improve,contrary,study,realm
  715 data fraud,clerk,justify,christen,thumb,thimble,clarity,algebra,phase
  716 data thistle,library,branch,draft,gnat,spouse,answer,whale,exclaim
  717 data split,shale,crawl,tramp,commit,verify,slight,anchor,pneumatic,crutch
  730 data traffic,right,corner,impact
  731 data surface,write,power,guide
  732 data permit,excite,valley,cheque
  733 data merge,route,damage,canoe
  734 data weather,sailing,pavement
  749 data theatre,console,journal
  750 data nucleus,horizon,trigger
  751 data stock,structure,binary
  752 data bouquet,electric,novelty
  753 data engine,select,pencil,threat
  754 data overthrow,believe,symphony
  768 data quality,shuffle,cellophane
  769 data memory,become,switch,keyboard
  770 data feature,passive,display,socket,bridge,platinum,thermal,hobby,special
  772 data manual,close,destroy,priority,scope
  789 data shine,solid,entertain,mobile,assemble,skill,deliver,racquet,object
  791 data handle,complete
  792 data biorhythm,defaulter
  800 rem *** finished! ***
  890 print "{down}{rght}{rght}{rght}{rght}enter difficulty factor (1-5):"
  891 goto90
  892 get io
  893 if io < 1 or io > 5 goto 892
  900 next gp
  901 goto 95
 1000 rem *** draw victim ***
 1010 let vi = vi + 1
 1020 on vi goto 1100,1150,1200,1250,1300,1350,1400,1450,1500
 1100 print "{home}{down}{rght}{rght}{rght}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1105 print "{rght}{rght}{rght}{SHIFT--}"
 1106 print "{rght}{rght}{rght}{SHIFT--}"
 1107 print "{rght}{rght}{rght}{SHIFT--}"
 1108 print "{rght}{rght}{rght}{SHIFT--}"
 1109 print "{rght}{rght}{rght}{SHIFT--}"
 1110 print "{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1115 print "{SHIFT--}            {SHIFT--}
 1120 print "{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
 1130 goto 1600
 1150 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}W"
 1155 goto 1600
 1200 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{SHIFT-+}"
 1210 goto 1600
 1250 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{SHIFT-*}"
 1260 goto 1600
 1300 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{SHIFT-*}"
 1310 goto 1600
 1350 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{SHIFT--}"
 1360 goto 1600
 1400 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{CBM-E}"
 1410 goto 1600
 1450 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{CBM-A}{down}{left}{CBM-X}"
 1460 goto 1600
 1500 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{CBM-S}{down}{left}{CBM-Z}"
 1600 return
    1 rem hangman4         1978
    2 rem
    3 rem traditional hangman game
    4 rem
    5 rem 8k pet
    6 rem
    7 rem copyright harry j saal
    8 rem distributed by c.u.e. with
    9 rem author's permission
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use & may not be{SHIFT--}
   24 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   32 dim le(26)
   33 rem find no of words
   34 no=0
   35 read wd$:if wd$<>"**end**" then no=no+1:goto 35
   36 x=rnd(-ti):rem randomize
   37 print"{clr}{down}{down}{down}{down}{rvon}do not press{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}":print"{rvon}   return   {rvof}"
   38 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}hangman{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{home}{down}{down}{down}{down}{down}";
   39 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-S}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{CBM-A}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{left}{left}{down}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}";
   40 restore
   50 mm$="{up}                                     {down}"
   70 ms$="":er=0:for i=1 to 26:le(i)=1:nexti
   80 wh=int(1+rnd(1)*no)
   90 for i=1 to wh:read wd$:next i:ln=len(wd$)
  100 an$="":sw=1
  110 for i=1 to ln:l=asc(mid$(wd$,i,1))-64
  120 if le(l)=1 and er<>10 then an$=an$+"{rvof}.":sw=0: goto140
  130 an$=an$+"{rvon}"+chr$(l+64)
  140 next i
  142 if sw=1 and er<>10 then ms$="you got it!!!!!         "
  143 if er<>10 then 145
  144 for sw=1 to 3:for er=0 to 10:gosub 1000:next:next
  145 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  146 printan$;"{rvof}{down}{down}"
  150 bl$="{up}{up}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{down}{rvon}letters{down}{left}{left}{left}{left}{left}{left}{left}left   {rvof}: "
  160 for i=1 to 26:if le(i)=0 then bl$=bl$+" ":goto 180
  170 bl$=bl$+chr$(i+64)
  180 next i:printbl$:print:printms$:forqq=1to1500:next:printmm$
  190 if er<10 and sw=0 then 200
  195 print"press return to begin again";
  196 getc$:if c$="" then 196
  198 goto 37
  200 print"guess?";
  210 getc$: if c$="" then 210
  220 l=asc(c$)-64
  230 if l<1 or l>26 then ms$="only guess letters!    ":goto 145
  240 if le(l)=0 then ms$="you used that already":goto 145
  245 le(l)=0
  250 for q=1 to ln:if l<>asc(mid$(wd$,q,1))-64 then 255
  252 ms$="good!!!                   ":goto100
  255 next q
  260 er=er+1:gosub 1000
  270 if er=10 then ms$="sorry. he's {rvon}dead{rvof}!!   ":goto 100
  280 ms$="no, there are no "+c$+"'s ":goto 145
 1000 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1002 if sw<>0 then printleft$("{down}{down}{down}",sw);
 1005 on er goto 1010,1020,1030,1040,1050,1060,1070,1080,1090,1100
 1006 print"{up}  {SHIFT--}";spc(4-sw);right$("noo",sw);:return
 1010 print"  W ";:return
 1020 print"{down}  {CBM-+}{left}{down}{CBM-+}";:return
 1030 print"{down} U";:return
 1040 print"{down}{rght}{rght}{rght}I";:return
 1050 print"{down}{down} *";:return
 1060 print"{down}{down}{rght}{rght}{rght}*";:return
 1070 print"{down}{down}{down} N";:return
 1080 print"{down}{down}{down}{rght}{rght}{rght}M ";:return
 1090 print"{down}{down}{down}{down}{CBM-M}{left}{down}{CBM-C}";:return
 1100 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{CBM-G}{left}{down}{CBM-V}";:return
 2000 data mailbox,zebra,people,zipper
 2001 data mittens,mouse,animal,money
 2002 data monkey,feather,turtle,football
 2003 data garage,turkey,tomato,wagon,seesaw
 2004 data bicycle,geese,baseball,rooster
 2005 data doorway,kangaroo,paintbox
 2006 data sidewalk,jacket,peanut,horse
 2007 data mountain,nurse,witch,ruler
 2008 data spider,needle,clown,basket
 2009 data tiger,dress,puppy,hippo
 2010 data downtown,shadow,triangle
 2011 data president,world,valley,history
 2012 data spirit,feeling,peace,dream
 2013 data danger,party,country,tractor
 2014 data record,kitchen,hamster,point
 2015 data jewelry,village,tennis,golden
 2016 data sunday,second,dollar,teacher
 2017 data guess,borrow,write,computer
 2018 data change,correct,supply,slow
 2019 data cause,board,tiger,fairy
 2020 data state,cover,track,special
 2021 data sound,develop,money,reader
 2022 data idea,magazine,thanks,stove
 2023 data school,humor,english,confuse
 2024 data enough,machine,practice,friend
 2025 data elbow,belly,brain,worker,lawyer,student,doctor,farmer,policeman
 2026 data fireman,cowboy,ranch,field
 2027 data california,america,globe
 3000 data **end**
    0 clr:poke59468,12
    1 rem hanoi copyright (c) 1978 glen fisher
    2 rem cursor #5, november 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 04 apr 80
   90 gosub62000
  100 t$="{rvof} {rvof}{CBM-@}{rvof}{CBM-P}{rvof}{CBM-O}{rvof}{CBM-I}{rvon}{CBM-U}{rvon}{CBM-Y}{rvon}{CBM-T}"
  105 b$="{rvon}{CBM-@}{rvon}{CBM-P}{rvon}{CBM-O}{rvon}{CBM-I}{rvof}{CBM-U}{rvof}{CBM-Y}{rvof}{CBM-T}{rvof} "
  110 dimtp$(8),t$(8),bt$(8),b$(8)      
  120 fori=1to8
  130 c$=mid$(t$,2*i,1):c$=c$+c$+c$:c$=c$+c$+c$:c$=left$(c$+c$,14)
  140 tp$(i)=mid$(t$,2*i-1,1)+c$
  150 c$=mid$(b$,2*i,1):c$=c$+c$+c$:c$=c$+c$+c$:c$=left$(c$+c$,14)
  160 bt$(i)=mid$(b$,2*i-1,1)+c$
  170 nexti
  200 l$="{rvon} {rvon}{CBM-H}{rvon}{CBM-K}{rvof}{CBM-N}{rvof} "
  210 r$="{rvof} {rvof}{CBM-H}{rvof}{CBM-K}{rvon}{CBM-N}{rvon} "
  220 dimlf$(5),rt$(5)
  230 fori=1to5:lf$(i)=mid$(l$,2*i-1,2):rt$(i)=mid$(r$,2*i-1,2):nexti
  300 cr$=chr$(13)
  500 print:print"{clr}{down}how many disks (up to 7) ? ";:gosub 60000
  510 ifin$=""then500
  520 fori=1tolen(in$)
  530 :t$=mid$(in$,i,1):ift$>="0"andt$<="9"then550
  540 print"no ";t$;"'s please.":goto500
  550 nexti
  560 n=val(in$):ifn>7thenprint"i can't handle more than 7.":goto500
  570 ifn<2thenprint"don't be ridiculous!":goto500
  900 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  910 rt$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1000 fori=1to3:forj=0to7:p(i,j)=0:nextj:nexti
 1100 print"{clr}";dn$;"{rvon}";:p(1,0)=n
 1110 fori=1to3:print"                                        ";:nexti
 1120 printdn$;"{down}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}#1{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}#2{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}#3"
 1150 printdn$;left$("{up}{up}{up}{up}{up}{up}{up}",n);
 1160 fori=1ton
 1170 printleft$("{rvof}"+rt$,7-i+1);left$("{rvon}L"+bt$(1),2*i+1);"{SHIFT-@}"
 1180 p(1,n-i+1)=i*2
 1190 nexti
 1800 mv=0
 1900 tm=ti+60
 1910 ifti<tmthen1910
 1950 gosub8000
 2000 pr$="{down}from which pile? ":gosub5000:ifin$=""then1950
 2010 f=val(in$)
 2020 ifp(f,0)<1thenprint"that pile is empty.":goto1900
 2050 pr$="to which pile? ":gosub5000:ifin$=""then1950
 2060 t=val(in$)
 2070 iff=tthenprint"that move does nothing.":goto1900
 2080 ifp(t,0)=0then2100
 2090 ifp(f,p(f,0))>p(t,p(t,0))thenprint"it won't fit.":goto1900
 2100 fc=p(f,0):fw=p(f,fc):tc=p(t,0):tw=p(t,tc):mv=mv+1
 2110 x=1+13*(f-1)+7-fw/2
 2120 print dn$;left$("{up}{up}{up}{up}{up}{up}{up}{up}{up}",fc+1);left$("{rvof}"+rt$+rt$+rt$,x);
 2125 lf$=left$("{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}",fw+1)
 2130 fori=1to 8:t$(i)=left$(tp$(i),1+fw):b$(i)=left$(bt$(i),1+fw):nexti
 2135 ht=0:j=1:iff>tthenj=-1
 2140 fori=ftotstepj
 2145 ifp(i,0)>htthenht=p(i,0)
 2150 nexti
 2155 ifht=p(t,0)thenht=ht+1:goto2165
 2160 ifabs(f-t)>1thenifht=p(2,0)thenht=ht+1
 2165 fori=fctoht
 2170 :for j=1to8
 2175 :printt$(j);lf$;b$(j);lf$;"{up}{up}";
 2180 :nextj
 2185 :print"{up}";
 2190 nexti
 2195 print"{down}";
 2200 l$=left$("{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}",1+fw):r$=left$(rt$,fw-1)
 2201 print"{rvon}";left$("                ",fw);"{rvof}";left$("{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}",fw);
 2205 iff>tthen2250
 2210 fori=f*13tot*13-1
 2215 :forj=1to5
 2220 printlf$(j);r$;rt$(j);l$;
 2225 nextj
 2226 print"{rght}";
 2230 nexti
 2235 goto2300
 2250 fori=t*13tof*13-1
 2255 print"{left}";
 2260 :forj=5to1step-1
 2265 ::printlf$(j);r$;rt$(j);l$;
 2270 :nextj
 2275 nexti
 2300 fori=ht-1totcstep-1
 2310 :forj=8to1step-1
 2320 :printt$(j);lf$;b$(j);lf$;"{up}{up}";
 2330 :nextj
 2340 :print"{down}";
 2350 nexti
 2410 printleft$("{rvon}L"+bt$(1),fw+1);"{SHIFT-@}"
 2500 p(t,0)=p(t,0)+1
 2510 p(t,p(t,0))=p(f,p(f,0))
 2520 p(f,0)=p(f,0)-1
 2600 ifp(2,0)<>nandp(3,0)<>nthen1900
 2700 gosub8000
 2710 print"{down}{down}{down}        {CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
 2720 print"        {rvon}{CBM-K}you did it!!{rvof}{CBM-K}"
 2730 print"        {CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 2740 print"{down}it took you";mv;left$("moves",5+(mv=1));" to do it."
 2750 t=2^n-1:print"{down}the shortest possible solution"
 2760 print"needs";t;left$("moves",5+(t=1));"."
 2770 print"{down}play again? ";:gosub60000
 2780 ifleft$(in$,1)="n"thenend
 2790 clr:goto100
 2800 end
 5000 printpr$;
 5010 gosub60000:ifin$=""thenreturn
 5015 ifleft$(in$,1)="q"thenend
 5016 iflen(in$)>1then5030
 5020 ifin$>="1"andin$<="3"thenreturn
 5030 print"there's no such pile."
 5040 fori=1to500:nexti
 5050 print"{up}                     "
 5060 print"{up}{up}";pr$;left$("                                        ",len(in$))
 5070 print"{up}";:goto5000
 8000 print"{home}";
 8010 fori=1to4:print"                                       ":nexti
 8020 print"{home}";
 8030 return
 9000 print"{home}"
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0thengoto60250
 60205 gosub60500
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1978    page";pn;"{down}"
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto 100
 60430 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 pg$="hanoi":lp=1:cr$=chr$(13)
 62020 print"{clr}{down}{down}";tab(9);"cursor #5  hanoi"
 62021 print"{down}copyright (c) 1978  by glen fisher
 62022 gosub 60500
 62025 print"{down}animated towers of hanoi puzzle
 62030 print"{down}{down}want directions? ";:gosub60000
 62040 ifleft$(in$,1)="y"thengoto62060
 62050 print"{clr}{down}{down}{down}":return
 62060 gosub60200
 62070 print"the object of this puzzle is to move
 62080 print"a pile of disks. however, a larger disk
 62090 print"may never be placed on top of a smaller
 62100 lp=1:print"disk.
 62110 print"{down}the pet will ask you how many disks
 62120 print"you wish to work with. (beginners:
 62130 print"try{$a0}3 or 4...). it will then draw
 62140 print"a picture of the disks, and ask:
 62150 print"'from which pile?'. enter the number
 62160 print"of the pile from which you want to
 62170 print"take the top disk. then, you enter
 62180 print"the number of the pile where you
 62190 print"want to place that disk.
 62200 print"{down}remember - you always move one disk
 62210 print"at a time! (the pet won't let you make
 62220 print"illegal moves).
 62230 gosub60200
   10 sys1037
    0 poke59468,14
    1 print"{clr}";tab(15);"HARTENJAGEN"
    2 printtab(15);"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
    3 print"Hartenjagen is een kaartspel,waarbij het";
    4 print"de bedoeling is om eerst zo min mogelijk";
    5 print"punten te halen,en later,zodra iemand 75";
    6 print"of meer punten heeft,zo veel mogelijk"
    7 print"punten te halen.Punten worden gehaald"
    8 print"met de volgende kaarten:"
    9 print"-  Ruiten 10     :10 pnt"
   10 print"-  Schoppen vrouw:5 pnt"
   11 print"-  Klaver boer   :2 pnt"
   12 print"-  Alle harten   :1 pnt"
   13 print"{down}Het spel wordt gespeeld door vier"
   14 print"personen,waarvan de computer voor drie"
   15 print"spelers speelt.Extra regels voor de"
   16 print"puntentelling zijn:"
   17 print"- Bij een pit(alle punten),krijgen de"
   18 print"tegenstanders 30 punten."
   19 print"- De rest van de slagen kan men opvragen";
   20 print"door 'rest' in te typen.Dit kan alleen"
   21 print"bij omhoog gaan,een pit telt dan niet."
   22 print"- De stand kan men opvragen met 'stand'.";
   23 print"- Men moet precies op 0 uitkomen."
   24 print"{rvon}Druk een toets";
   25 geta$:e=rnd(1):ifa$=""then25
   26 dimk%(52),k2$(13)
   27 forn=1to52:rem verdeling kaarten
   28 p=int(rnd(1)*4+1)
   29 ifp(p)=13then28
   30 p(p)=p(p)+1
   31 k%(n)=p
   32 next
   33 restore
   34 forn=1to4:readk1$(n):next
   35 forn=1to13:readk2$(n):next
   36 data"X","Z","S","A"
   37 data"2 ","3 ","4 ","5 ","6 ","7 ","8 ","9 ","10","b ","v ","h ","a "
   38 q=int(rnd(1)*4+1):rem q geeft aan wie er uit moet komen
   39 forn=1to13:rem loop voor 13 kaarten
   40 poke59468,12
   41 print"{clr}u heeft de volgende kaarten"
   42 print"{down}{down}{down}{down}{down}{down}{down}{down}"
   43 y=0
   44 fori=1to52
   45 ifk%(i)<>1then59
   46 p=int((i+12)/13+0.01)
   47 print"{up}{up}{up}{up}{up}{up}{up}{up}";
   48 printtab(y);"O{CBM-T}P"
   49 printtab(y);"{CBM-G}"k1$(p)"{CBM-M}"
   50 printtab(y);"{CBM-G}{$a0}{CBM-M}"
   51 p=int((i/13-int((i-1)/13))*13+.01)
   52 printtab(y);"{CBM-G}"left$(k2$(p),1)"{CBM-M}"
   53 printtab(y);"{CBM-G}"right$(k2$(p),1)"{CBM-M}"
   54 printtab(y);"{CBM-G}{$a0}{CBM-M}"
   55 p=int((i+12)/13+0.01)
   56 printtab(y);"{CBM-G}";k1$(p);"{CBM-M}"
   57 printtab(y);"L{CBM-@}{SHIFT-@}"
   58 y=y+3
   59 next
   60 print"{down}{down}"
   61 k1=0
   62 print"{up}speler"q"moet uit"
   63 b=q
   64 ifq>1then102
   65 input"speler 1 speelt";a$
   66 ifa$<>"rest"then73
   67 ifterug=1thenprint"niet toegestaan":goto65
   68 fori=1to4
   69 apr=apr+p1%(i)
   70 next
   71 p1%(1)=p1%(1)+30-apr
   72 goto244
   73 ifa$<>"stand"then79
   74 print
   75 fori=1to4:print"speler";i,:next
   76 fori=1to4:print"   ";p%(i),:next
   77 print
   78 goto65
   79 fori=1to4
   80 ifleft$(a$,1)=k1$(i)then83
   81 next
   82 goto65
   83 x=(i-1)*13
   84 k2=i
   85 iflen(a$)=2thena$=a$+" "
   86 fori=1to13
   87 ifright$(a$,2)=k2$(i)then90
   88 next
   89 goto65
   90 x=x+i
   91 ifk%(x)<>1then65
   92 ifk1=0thenk1=k2
   93 ifk2=k1then97
   94 fori=(k1-1)*13+1tok1*13
   95 ifk%(i)=1then65
   96 next
   97 gosub203
   98 b=2
   99 k3(1)=x
  100 k%(x)=0
  101 ifq=2then210
  102 ifterug=1then172
  103 t1=1:ifb<>qthen112
  104 fori=t1to52step13
  105 ifk%(i)=bthenifn<13thenifh9=0then109
  106 ifk%(i)=bthen141
  107 next:t1=t1+1:ifh9=0thenift1<13then104
  108 ifh9=1andt1<14then104
  109 ifi=22ori=50ori=10then107
  110 ifi>52ort1>12thenh9=1:goto103
  111 goto106
  112 ifb=q-1orb-3=qthen117
  113 ifint((g/13-int(g/13))*13+.01)=1then127
  114 fori=g-1to(k1-1)*13+1step-1
  115 ifk%(i)=bthen144
  116 nexti:goto127
  117 ifz>0then121
  118 fori=k1*13tok1*13-12step-1
  119 ifk%(i)=bandi<>10andi<>22andi<>50then144
  120 next:goto127
  121 fori=g-1to(k1-1)*13+1step-1
  122 ifk%(i)=bthen144
  123 next
  124 fori=k1*13togstep-1
  125 ifk%(i)=bthen144
  126 next
  127 fori=(k1-1)*13+1tok1*13
  128 ifk%(i)=bthen130
  129 next:goto132
  130 gosub158
  131 goto144
  132 ifk%(22)=btheni=22:goto141
  133 ifk%(50)=btheni=50:goto141
  134 ifk%(10)=btheni=10:goto141
  135 fori=39to23step-1:ifk%(i)=bthen141
  136 next
  137 fori=52to40step-1:ifk%(i)=bthen141
  138 next
  139 fori=23to1step-1:ifk%(i)=bthen141
  140 next
  141 ifb=qthenk1=int((i+12)/13+.01)
  142 goto144
  143 gosub158
  144 print"speler"b"speelt  ";
  145 p=int((i+12)/13+0.01)
  146 printk1$(p);
  147 p=int((i/13-int((i-1)/13))*13+.01)
  148 printk2$(p)
  149 k3(b)=i
  150 k%(i)=0
  151 x=i
  152 gosub203
  153 b=b+1
  154 ifb=5thenb=1
  155 ifb=qthen210
  156 ifb=1then65
  157 goto102
  158 ifi<>22then163
  159 forv=23to26
  160 ifk%(v)=btheni=v:goto162
  161 next
  162 return
  163 ifi<>50then167
  164 ifk%(51)=btheni=51:goto166
  165 ifk%(52)=btheni=52
  166 return
  167 ifi<>10thenreturn
  168 forv=11to13
  169 ifk%(v)=btheni=v:goto171
  170 next
  171 return
  172 ifp%(b)-p1%(b)<=0then103
  173 ifb<>qthen185
  174 fort1=1to4
  175 fori=t1*13to(t1-1)*13+1step-1
  176 ifk%(i)>0andk%(i)<>bthen179
  177 ifk%(i)=bthen141
  178 nexti
  179 nextt1
  180 fort1=1to13
  181 fori=t1to52step13
  182 ifk%(i)=bthen141
  183 next
  184 nextt1
  185 ifz=0then190
  186 fori=k1*13tog+1step-1
  187 ifk%(i)=bthen144
  188 next
  189 ifz=0then197
  190 fori=(k1-1)*13+1tog-1
  191 ifk%(i)=bthengosub158:goto144
  192 next
  193 ifz>0ork1*13=gthen197
  194 h8=1:fori=g+1tok1*13
  195 ifk%(i)=bthengosub158:goto144
  196 next
  197 fort1=1to13
  198 fori=t1to52step13
  199 ifi=10ori=22ori=50thenifh9=0thenifk%(i)=bthenh9=1:goto201
  200 ifk%(i)=bthen144
  201 next:next
  202 goto197
  203 ifx=22thenz=z+10
  204 ifx=50thenz=z+5
  205 ifx=10thenz=z+2
  206 ifx>26thenifx<40thenz=z+1
  207 ifx<(k1-1)*13orx>k1*13then209
  208 ifx>gtheng=x
  209 return
  210 fori=1to4
  211 ifk3(i)<(k1-1)*13ork3(i)>k1*13thenk3(i)=0
  212 nexti
  213 g=0
  214 fori=1to4
  215 ifk3(i)>gtheng=k3(i)
  216 next
  217 fori=1to4
  218 ifk3(i)=gthen220
  219 next
  220 print"slag voor"i
  221 g=0
  222 p1%(i)=p1%(i)+z
  223 z=0
  224 q=i
  225 k1=0
  226 k2=0
  227 fori=1to4:k3(i)=0:next
  228 h9=0
  229 print"{down}stand"
  230 fori=1to4:print"speler"i,:next
  231 fori=1to4:print"  ";p1%(i),:next
  232 print"{down}{rvon}druk een toets"
  233 geta$:ifa$=""then233
  234 fori=ito13:next
  235 nextn
  236 forn=1to4:ifp1%(n)=30then265
  237 next
  238 ifterug=0then244
  239 forn=1to4
  240 p%(n)=abs(p%(n)-p1%(n))
  241 ifp%(n)<1theneind=1
  242 next
  243 goto249
  244 forn=1to4
  245 p%(n)=p%(n)+p1%(n)
  246 ifterug=0andp%(n)>75thenmessage=1
  247 ifp%(n)>75thenterug=1
  248 next
  249 print"{clr}totaalstand"
  250 print
  251 forn=1to4
  252 print"speler"n,
  253 next
  254 forn=1to4
  255 print"  ";p%(n),
  256 next:print:ifmessage=1thenprint"{rvon}we gaan terug,dus nu punten halen{rvof}"
  257 ifeind=1then271
  258 print"{rvon}druk een toets"
  259 geta$
  260 ifa$=""then259
  261 forn=1to4:p(n)=0:p1%(n)=0:next
  262 apr=0
  263 message=0
  264 goto27
  265 fori=1to4
  266 ifi=nthen269
  267 p%(i)=p%(i)+30
  268 ifp%(i)>75thenifterug=0thenmessage=1:terug=1
  269 next
  270 goto249
  271 print"{clr}**********************************"
  272 print"**********************************"
  273 print"***                            ***"
  274 print"***         einde spel         ***"
  275 print"***                            ***"
  276 print"***         eindstand          ***"
  277 print"***                            ***"
  278 forn=1to4
  279 p1%(n)=1
  280 fori=1to4
  281 ifp%(n)>p%(i)thenp1%(n)=p1%(n)+1
  282 ifn>ithenifp%(n)=p%(i)thenp1%(n)=p1%(n)+1
  283 next:next
  284 forn=1to4
  285 print"*** "n"{left}]  speler";
  286 fori=1to4
  287 ifp1%(i)=nthen289
  288 next
  289 printi;" ";p%(i);"punten";tab(31);"***"
  290 ifn=1thene=i
  291 nextn
  292 print"***                            ***"
  293 print"***    winnaar is speler"e;tab(31);"***"
  294 print"***                            ***"
  295 ife=1thenprint"***       gefeliciteerd !!     ***"
  296 ife=1thenprint"***";tab(31);"***"
  297 print"**********************************"
  298 print"**********************************"
  299 end
    0 clr:poke59468,12
    1 rem hawaii! copyright (c) 1979 ken mprley
    2 rem 6440 dumfries st.
    3 rem vancouver, b c  canada
    4 :
    5 rem cursor #15, nov/dec 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 12/29/79
   90 pg$="hawaii!":nm$="15":gosub62000
  100 goto160
  110 print"{clr}":pokespd,peek(spd)or32:gosub960
  120 b$="{rvon} {rvon}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-T}"
  130 forj=31to0step-8:fori=1toj:print"{rvon} ";:next:printb$:next:printright$(b$,9)
  140 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(17)t$;:return
  150 fork=1toxx:next:return
  160 spd=59458
  170 t$="{rvon}{SHIFT-POUND}  {CBM-*}{rvof}  {rvon}{SHIFT-POUND} {CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  180 t$=t$+"{rvon}{SHIFT-POUND} N{CBM-T}M{CBM-*}{SHIFT-POUND}N{CBM-T}M{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  190 t$=t$+"{rvon}{SHIFT-POUND}NNNMMMNNMMM{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  200 t$=t$+"{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}N{CBM-T}QQQ{CBM-T}M{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  210 t$=t$+"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}NQM{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  220 t$=t$+"{rvof}  {SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}V{CBM-*}{CBM-*} {CBM-*}{left}{left}{left}{left}{left}{down}V{left}{down}V{left}{down}V{left}{down}V{left}{down}V{left}{down}V"
  230 print"{clr}":gosub960
  240 a$="          ":b$="{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}":e$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  250 printe$;"{down}{rvon}";:z$="                                       "
  260 fori=1to7:printz$;" ";:next:printz$;"{left}{inst} {home}"
  270 print"{home}"
  280 printe$"{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}{CBM-@}{left}{down}N"
  290 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}                   {rvon}{SHIFT-POUND}"
  300 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}EEEEEEEEEEEEEEEEEEE{left}{left}{left}{left}{left}{left}{left}{up}{up}{rvof}";:fori=1to14:print"{left}{up}{CBM-K}";:next:print"{left}{up}{CBM-J}{down}";
  310 print"{left}{left}{down}N{left}{left}{down}";
  320 fori=1to10:print"N"left$(a$,i)left$(b$,i+3);:next:print"{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}";
  330 print"{up}{up}{up}{up}{up}{up}{rght}{rvon}{CBM-*}{left}{down}{CBM-G}{CBM-*}{left}{left}{down}{CBM-H} {CBM-*}{left}{left}{left}{down}{CBM-K}  {CBM-*}{left}{left}{left}{left}{down}{rvof}{CBM-N}{rvon}   {CBM-*}{left}{left}{left}{left}{left}{down}{rvof}{CBM-M}{rvon}    {CBM-*}{left}{left}{left}{left}{left}{down}     {CBM-*}{left}{left}{left}{left}{left}{left}";
  340 print"{down}{rvof}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-P}{CBM-@}{CBM-*}"
  350 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}L{left}{up}{CBM-H}{left}{up}{CBM-J}{rvof}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}**     {left}{left}{left}{left}{left}";
  360 fori=1to1000:nexti
  450 printe$"{up}"tab(13);
  460 fori=1to5:print" *{left}";:xx=150:gosub150:next:xx=2000:gosub150:print" {up}*{left}";
  470 xx=150:gosub150:fori=1to13:print"{CBM-K}{left}{up}*{left}";:gosub150:next:print"{CBM-J}{left}{up}*{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  480 xx=3000:gosub150:print"land ahoy!-{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:xx=1500:gosub150:print"           "
  490 fori=1to1500:next
  500 printe$"{down}"tab(28):print"{SHIFT-POUND}           {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}N{CBM-T}
  510 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}N{CBM-T}{CBM-T}      {up}{left}{left}{left}{left}{left}{left}N     {left}{left}{left}{left}{left}{up}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
  520 print"{left}{left}{left}{left}{up}";:gosub1010
  530 xx=300:gosub150
  540 print"{home}"tab(19)" {left}{down}*";:xx=50:gosub150:print"{left}{CBM-J}{left}{down}*";:fori=1to14:gosub150:print"{left}{CBM-K}{left}{down}*";
  550 next:gosub150:print"{left}{CBM-T}{left}{down}*";:gosub150:print"{left} {left}{down}{rvon}*";:gosub150:print"{left}E{left}{down}*";:gosub150:print"{left} {left}{down}*";:gosub150:xx=100
  560 print"{left}.";:gosub150:print"{left}v";:gosub150:print"{left}{left}M N";:gosub150:print"{left}{left}{left}   {left}{left}";:xx=1500:gosub150
  570 printe$"{down}{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to17:xx=50:gosub150:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
  580 printe$"{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to18:gosub150:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
  590 printe$"{down}{down}{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to18:xx=50:gosub150:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
  600 xx=1000:gosub150:print"{left}{left}{left}{up}{rvon}.{left}";:gosub150:print"*";
  610 xx=500:gosub150:fori=1to4:print"{rvof}{left}*";:xx=100:gosub150:print"{rvon}{left}*";:gosub150:next
  620 fori=1to9:xx=20:gosub150:print"{left} {left}{left}+";:gosub150:print"{left} {left}{left}*";:next:gosub150:print"{left} "
  630 xx=250:gosub150:xx=30
  640 printtab(22)"{up}{rvon} {left}{left}{left}{rvof}{SHIFT-POUND}";:gosub150:fori=1to20:gosub150:print"{left}{rvon} {left}{left}{rvof}{SHIFT-POUND}{up}{rght}{rvon} {left}{left}{rvof}{SHIFT-POUND}{down}{down}{rvon} {left}{left}{rvof}{SHIFT-POUND}{up}{left}";:next
  650 print"{rvon}{left} {up} {left}{down}{down} ";:xx=1000:gosub150:print"{left}{left}*";:fori=1to39:xx=30:gosub150
  660 print"{left} *";:next:print"{left} ":print"{up}{CBM-*}";:gosub150:print"{left}{rvon} {rvof}{CBM-*}{left}{left}{up}{CBM-*}{left}{down}{down}{CBM-*}";
  670 fori=1to38:gosub150:print"{rvon}{up} {rvof}{CBM-*}{left}{left}{left}{up}{rvon} {rvof}{CBM-*}{left}{left}{down}{down}{rvon} {rvof}{CBM-*}";:next
  680 gosub150:print"{up}{rvon} {left}{left}{up} {rvof}{CBM-*}{left}{left}{down}{down}{rvon} {rvof}{CBM-*}";:gosub150:print"{left}{rvon} {left}{up}{up} "
  690 print"{rvon}{up}{up}{up}{left}*";:fori=1to20:xx=30:gosub150:print"{left} {left}{left}*";:next
  700 gosub150:print"{left} {left}{left}{up}*";:gosub150:print"{left}E{left}{left}{up}{rvof}*";:gosub150:print"{left} {left}{left}{up}*";:gosub150
  710 print"{left}{CBM-T}{left}{left}{up}*";:xx=1000:gosub150:xx=150:print"{left}{left}{left}{left} *";:gosub150:print"{left} *";
  720 gosub150:print"{left} ";:gosub150:print"{rght}*";:gosub150:print"{left} *";
  730 gosub150:print"{left} *";:gosub150:print"{left} ";
  740 gosub150:print"{rght}*";:gosub150:print"{left} {left}{left}{left}{left}{left}{left} *";:gosub150:print"{left} *";:gosub150
  750 print"{left} *";:gosub150:print"{left} ";
  760 gosub150:print"{rght}*";:gosub150:print"{left} {rght}{rght}{rght}{rght}{rght}{rght}{rght}";:xx=500:gosub150:print"*";
  770 xx=1000:gosub150:print"{left}{CBM-@}{up}*";:xx=150:gosub150:print"{left} {down}*{left}{left}{left}";:gosub150:print"*";
  780 gosub150:print"{rght} {up}*";:gosub150:print"{left} *";:gosub150:print"{left}{left}{left}{left}{left}{down}{CBM-@}{up}*";:gosub150
  790 print"{left} {down}*";:gosub150:print"{up}{rght} *";:gosub150:print"{left}{left}{left}{left}{down} {up}*";:gosub150:print"{left} *";:gosub150
  800 xx=2000:gosub150
  810 fori=1to2:print" {up}*";:xx=150:gosub150:print"{left} {up}*";:gosub150:print"{left} *";:gosub150
  820 print"{left}{CBM-M}*";:gosub150:print"{left}V*";:gosub150:print"{left} *";:gosub150:print"{left} ";
  830 ifi=1thenprint"{left}{left}{left}{left}{left}{left}{left}{left}{down}{down} *{left}";:gosub150
  840 next:xx=2000:gosub150
  850 gosub110:print"{left}{left}{left}{left}{left}{left}{left}{left}{down}M{down}O{CBM-T}M{down}{rght}N{CBM-T}P{up}N":pokespd,peek(spd)and223:gosub150
  860 gosub970:gosub150:print"{left} {up}*";:gosub150:print"{left} *";:gosub150:print"{left} *":gosub970:gosub150
  870 print"{left} {left}{up}*";:gosub150:print"{left} {left}{left}{up}*";:gosub150:print"{left} {left}{left}*";:gosub150:print"{left} {left}{left}*";
  880 print"{rght}{rght}{rght}{rght}{rght}{up}{up}{up}{up}{up}{up}{up}{up}";:forj=1to3:xx=2000:gosub150:gosub980:next:gosub990
  890 print"{left} {left}{left}{down}MQ";:gosub150
  900 print"{left}{left} ";:xx=2000:gosub150:print"  {left}{left}{left}{left}{down}{CBM-T}M{down}{CBM-T}{left}{up}QN";:gosub150:print"{left} {left}{down}{CBM-T}{left}{left}{up}{CBM-P}Q";
  910 xx=150:fori=1to3:gosub150:print"{left} Q";:next:xx=4000:gosub150:print"{left}{left}{left}{left}{left}*";:xx=1500
  920 gosub150:print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{left}";:gosub980:print"{rvon} {left}{down}Q{left}";:xx=50:gosub150:gosub990
  930 print"{left} {left}{down}Q";:gosub150:print"{left} {left}{down}QN";:gosub150:print"{left} ";
  940 xx=2500:gosub150:xx=100:print:fori=1to4:print" {left}{left}S{left}";:gosub150:next:xx=1500:gosub150:print
  950 printspc(16)"{up}{up}{up}{up}{up}{CBM-P}{left}{down}{CBM-X}":xx=3000:gosub150:goto1030
  960 fori=1to15:printtab(rnd(1)*39)".":next:return
  970 print"*";:fori=1to18:xx=100:gosub150:print"{left} *";:next:return
  980 fori=1to4:print"{rvof}Q{left}";:xx=50:gosub150:print"{rvon}Q{left}";:gosub150:next:return
  990 print"{rvon} {rvof}{left}{down}Q";:fori=1to7:xx=50:gosub150:print"{left}V{left}{down}Q";:next:gosub150
 1000 return
 1010 fori=1to6:print"{CBM-M}V{left}{left}{up}";:next:print"{left}{left}{left}{SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}V{CBM-*}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{up}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}NQM{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}N{CBM-T}QQQ";
 1020 print"{CBM-T}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND}NNNMMMNN{left}{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND} N{CBM-T}M{CBM-*}{SHIFT-POUND}N{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND}  {CBM-*}{rvof}  {rvon}{SHIFT-POUND}":return
 1030 a$="{rvof}{SHIFT-POUND}   {CBM-*}{left}{left}{left}{left}{left}{down} {rvon}{SHIFT-POUND}{SHIFT-POUND}{CBM-*}{rvof} {left}{left}{left}{left}{left}{down} {rvon}{CBM-T}.{CBM-T}{rvof} {left}{left}{left}{left}{left}{down} {CBM-*}{rvon}={rvof}{SHIFT-POUND} {left}{left}{left}{left}{left}{left}{down}{SHIFT-POUND}  {rvon}{CBM-T}{rvof}  {CBM-*}{left}{left}{left}{left}{left}{left}{left}{down}"
 1040 a$=a$+"  {rvon}{SHIFT-POUND} {CBM-*}{CBM-*}{rvof} {left}{left}{left}{left}{left}{left}{left}{down}N{CBM-*}{rvon}   {rvof}{SHIFT-POUND}M{left}{left}{left}{left}{left}{left}{left}{down}  {CBM-*}{rvon}B{rvof}{SHIFT-POUND}  "
 1050 a$=a$+"{left}{left}{left}{left}{left}{left}{left}{down}{rvon}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{CBM-T}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}{CBM-M}  {CBM-M}{CBM-M}{left}{left}{left}{left}{left}{left}{down}"
 1060 a$=a$+"NN . MM{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}{rvof}{SHIFT-POUND}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{CBM-*}{rvon}{CBM-G}{left}{left}{left}{left}{left}{left}{left}{left}{down}{rvof}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{left}{left}{left}{left}{left}{left}{left}{down}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{left}{left}{left}{left}{left}{left}{left}{down}"
 1070 print"{clr}"
 1080 fori=0to17step17:print"{home}{down}{down}{down}":gosub1210:print"{home}{down}{down}{down}{down}{down}{down}{down}"spc(15/17*i+10)a$:next
 1090 poke33107,160:poke33186,160:poke33346,160:poke33386,160:poke33427,160:poke33467,160
 1100 pokespd,peek(spd)and223
 1110 fori=1to1000:next
 1120 poke59467,16:poke59466,51
 1130 fori=75to35step-1:poke59464,i:next
 1140 poke59464,0:fori=1to100:next
 1150 fori=75to50step-1:poke59464,i:next
 1160 fori=50to98:poke59464,i:next
 1170 poke59467,0
 1180 fori=0to15step15:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(11+i)"{rvon}{CBM-C}.{CBM-V}{left}{left}{down}Q":next
 1190 fori=1to1500:next:gosub110:print"{left}{left}{left}{left}{left}{left}{left}{left}{down}M*{left}{down}O{CBM-T}M{down}{rght}{CBM-T}MQ{left}{down}{CBM-T}{CBM-T}{up}  Q"
 1200 pokespd,peek(spd)and223:print"{left}{left}{left}{left}S";:goto1390
 1210 printspc(9+i)"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}
 1220 printspc(6+i)"{CBM-I}{rvon}        {CBM-C}{rvof}{CBM-F}
 1230 printspc(4+i)"{CBM-D}{rvon}            {CBM-C}
 1240 printtab(3+i)"{rvon}{CBM-V}               {rvof}{CBM-F}
 1250 printtab(2+i)"{CBM-D}{rvon}                {CBM-C}
 1260 printtab(2+i)"{rvon}                  {rvof}{CBM-K}
 1270 printtab(1+i)"{rvon}{CBM-K}                   "
 1280 printtab(1+i)"{rvon}                    {rvof}{CBM-K}
 1290 printtab(1+i)"{rvon}                    {rvof}{CBM-K}
 1300 printtab(1+i)"{rvon}DCCDDE{CBM-T}{CBM-T}     {CBM-T}{CBM-T}EDCCD{rvof}{CBM-K}
 1310 printtab(1+i)"{rvon}{CBM-F}                   {rvof}{CBM-V}
 1320 printtab(1+i)"{CBM-C}{rvon}                  {CBM-D}
 1330 printtab(2+i)"{rvon}{CBM-F}                 {rvof}{CBM-V}
 1340 printtab(3+i)"{rvon}                {rvof}{CBM-K}
 1350 printtab(3+i)"{CBM-C}{rvon}{CBM-F}             {CBM-I}"
 1360 printtab(5+i)"{rvon}{CBM-I}          {CBM-D}{rvof}{CBM-V}"
 1370 printtab(7+i)"{rvon}{CBM-I}{CBM-I}    {CBM-D}{CBM-I}{rvof}{CBM-V}"
 1380 return
 1390 xx=1000:gosub150:clr:spd=59458:fori=1to3:print"{left} S";
 1400 xx=150:gosub150:next:print"{left} ";:xx=1000:gosub150
 1410 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}{up}{up} *";
 1420 xx=40:fori=1to2:gosub150:print"{left} *";:next:print"{left} {down}*";:fori=1to20:gosub150:print"{left} *";:next:print"{left} "
 1430 xx=1000:gosub150:printtab(21)"{up}*{left}{up}Q";:gosub150:print"{left}{down}{rvon}*";:xx=100:gosub150:print"{left}{rvof}*{left}{up} Q";
 1440 gosub150:print"{left} {down}Q";:gosub150:print"{left} Q{rght}";:fori=1to4:gosub150:print"{left} Q";:next:print
 1450 xx=30:printtab(21)"{up} *";:gosub150:print"{left} {down}*";:fori=1to16:gosub150:print"{left} *";:next:print"{left} {left}{down}";
 1460 xx=3000:gosub150
 1470 fori=1to39:print"{left}*";:xx=15:gosub150:print"{left} {left}";:next:xx=500:gosub150:xx=20
 1480 print"{left}{up}{up}";:fori=1to21:print"{left}*";:gosub150:print"{left} {left}";:next
 1490 print"{left}{up}*";:gosub150:print"{left} {left}{left}*";:gosub150:print"{left} {left}{left}*";:gosub150:print"{left} {left}{left}{up}*";:gosub150:print"{left}{CBM-T}{left}{left}{up}{rvon}*";
 1500 xx=150
 1510 gosub150:print"{left} {left}{left}{up}*";:gosub150:print"{left} {left}{left}*";:gosub150:print"{left} {left}{left}{down}*";:gosub150:print"{left} {left}.";:gosub150:print"{left}v";
 1520 gosub150:print"{left}{left}M N";:gosub150:print"{left}{left}{left}   ";
 1530 e$="{home}{down}{left}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1540 fori=1to7
 1550 r=int(rnd(1)*7):ife(r)=-1then1550
 1560 e(r)=-1:printleft$(e$,20+r);:forj=1toint(rnd(1)*10+1):print"{rvof}{left} {left}{left}S";:xx=40:gosub150:nextj,i
 1570 xx=5000:gosub150:print"{clr}"
 1580 end
 60300 print"{clr}":clr:goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by ken morley{down}
 62020 gosub60500
 62030 print"{down}visit this island paradise
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 gett$:ift$=""then62090
 62100 goto60300
    5 rem heart's desire
   10 rem a chase game by bill finzer
   15 rem november,1978
  190 dim r(40,2)
  195 mr=4:nob=15:rem # robots & obstacles
  200 rem main calling routine
  210 gosub 500:rem initialize
  220 gosub 1000:rem instructions
  230 gosub 6000:rem display numbers
  235 gosub 1500:rem draw board
  240 gosub 2000:rem move player
  250 if over$="y" then 4000:rem player        hit by robot
  260 if over$="S" then 4500:rem player        has caught heart's desire
  265 if over$="o" then 5000:rem player hit      obstacle
  270 gosub 2500:rem move robots
  275 if over$="y" then 4000
  280 gosub 3000:rem move heart
  285 if over$="S" then 4500:rem player        has caught heart's desire
  290 goto 240
  500 rem initialize
  510 t=rnd(-ti)
  530 nr=mr
  540 def fnp(x)=peek(32768+40*y+x)
  550 over$="n"
  560 return
  800 rem move cursor
  810 poke 216,y-1:print
  820 printtab(x);
  830 return
 1000 rem instructions
 1005 print"{clr}";
 1010 poke 59468,14
 1020 print"yOU{$a0}HAVE{$a0}A{$a0}CHANCE{$a0}TO{$a0}REACH{$a0}THE{$a0}OBJECT
 1030 print"OF{$a0}YOUR{$a0}HEART'S{$a0}DESIRE{$a0}IN{$a0}THIS{$a0}GAME!
 1040 print"{down}sIMPLY{$a0}CATCH{$a0}THE{$a0}HEART.
 1050 print"{down}bUT WATCH{$a0}OUT{$a0}BECAUSE{$a0}THE{$a0}MEAN{$a0}AND
 1060 print"NASTY{$a0}ROBOTS{$a0}MIGHT{$a0}GET{$a0}YOU!
 1070 print"{down}yOU{$a0}CAN{$a0}USE THE{$a0}NUMBER{$a0}KEYS TO MOVE
 1080 print"AROUND.  hOLD{$a0}THEM{$a0}DOWN{$a0}AS{$a0}LONG{$a0}AS{$a0}YOU
 1090 print"WANT{$a0}TO{$a0}KEEP{$a0}MOVING."
 1100 print"{down}hERE{$a0}IS{$a0}HOW{$a0}THE{$a0}NUMBER{$a0}KEYS{$a0}MOVE{$a0}YOU:
 1110 print"     \  {SHIFT--}  /
 1120 print"      7 8 9
 1130 print"     {SHIFT-*}4 5 6{SHIFT-*}
 1140 print"      1 2 3
 1150 print"     /  {SHIFT--}  \
 1200 print"{down}gOOD{$a0}LUCK!
 1205 print"yOU{$a0}ARE{$a0}THE{$a0}OPEN{$a0}HEART{$a0}AND{$a0}THE{$a0}OBJECT
 1207 print"OF{$a0}YOUR{$a0}DESIRE{$a0}IS{$a0}THE{$a0}WHITE{$a0}HEART."
 1210 print"{down}pRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}START.
 1230 get a$: if a$="" then 1230
 1235 poke 59468,12
 1240 return
 1500 rem draw board
 1510 rem frame
 1520 print"{clr}{rvon}                                       "
 1530 for i=1 to 23
 1540 print"{rvon} "tab(38)"{rvon} "
 1550 next i
 1560 print"{rvon}                                       ";
 1570 rem obstacles
 1580 for i= 1 to nob
 1590 x=int(rnd(1)*37)+1
 1600 y=int(rnd(1)*23)+1
 1610 gosub 800 :print"{rvon} "
 1620 next i
 1630 rem ----player-------
 1635 x=int(rnd(1)*37)+1
 1640 y=int(rnd(1)*23)+1
 1642 px=x:py=y
 1644 if fnp(x)<>32 then 1635
 1650 gosub 800: print"{rvon}S{left}";
 1655 for i= 1 to 5
 1660 print"{rvon}S{rvof}{left}";:t=ti
 1665 if ti<t+15 then 1665
 1670 print"S{left}";:if ti<t+30 then 1670
 1680 next i
 1690 rem ----heart------
 1700 x=int(rnd(1)*37)+1
 1710 y=int(rnd(1)*23)+1
 1720 if fnp(x)<>32 then 1700
 1730 hx=x:hy=y
 1740 gosub 800: print"S"
 1750 rem ----robots-----
 1760 for i= 1 to nr
 1770 x=int(rnd(1)*37)+1
 1775 y=int(rnd(1)*23)+1
 1777 if fnp(x)<>32 then 1770
 1780 r(i,1)=x:r(i,2)=y
 1785 gosub 800 :print"A"
 1790 next i
 1791 x=px:y=py:gosub 800:rem--flash           player again------
 1792 for i=1 to 5
 1794 print"S{left}";:t=ti
 1796 if ti<t+15 then 1796
 1797 print"{rvon}S{rvof}{left}";:if ti<t+30 then 1797
 1798 next i
 1800 return
 2000 rem-----accept player's move-----
 2010 p1=px: p2=py
 2020 x=px: y=py
 2030 gosub 800:print" " :rem erase current       marker
 2040 d=peek(151): rem look at held key
 2050 if d=255 then 2150 : rem none
 2060 if d=26 then p1=px-1:p2=py+1:goto        2150
 2070 if d=18 then         p2=py+1:goto        2150
 2080 if d=25 then p1=px+1:p2=py+1:goto        2150
 2090 if d=42 then p1=px-1        :goto        2150
 2095 if d=41 then p1=px+1        :goto        2150
 2100 if d=58 then p1=px-1:p2=py-1:goto        2150
 2105 if d=50 then         p2=py-1:goto        2150
 2110 if d=57 then p1=px+1:p2=py-1:goto        2150
 2150 x=p1:y=p2
 2160 p=fnp(x):rem what is there?
 2170 if p=32 or p=211 then 2200
 2180 if p=160 then x=px:y=py: over$="o":      goto 2490:rem hit obstacle
 2190 if p=65 then over$="y" : goto 2490
 2195 if p=83 then over$="S" : goto 2490
 2200 px=p1: py=p2
 2400 gosub 800:print"{rvon}S{rvof}"
 2490 return
 2500 rem-----move robots-----
 2505 if nr<1 then 2910
 2510 for i=1 to nr
 2520 x=r(i,1):y=r(i,2):gosub 800:print" "
 2530 if px>x then x=x+1
 2540 if px<x then x=x-1
 2550 if py>y then y=y+1
 2560 if py<y then y=y-1
 2570 if fnp(x)<>160 then 2700
 2580 rem ----destroyed  robot------
 2590 nr=nr-1
 2600 for j=i to nr
 2610 r(j,1)=r(j+1,1):r(j,2)=r(j+1,2)
 2620 next j
 2630 gosub 800
 2640 for k=1 to 10
 2650 print"V{left}";:print"W{left}";:print"{rvon}V{left}";:print"W{rvof}{left}";:next k
 2660 print"{rvon} "
 2670 goto 2900
 2700 if fnp(x)=83 then 2900 rem can't         move robot into heart
 2705 if fnp(x)=211 then over$="y":goto       2910: rem robot caught player
 2710 r(i,1)=x:r(i,2)=y
 2720 gosub 800:print"A"
 2900 next i
 2910 return
 3000 rem-----move heart's desire----
 3010 x=hx:y=hy:gosub 800:print" "
 3020 if px>x then x=x-1
 3030 if px<x then x=x+1
 3040 if py>y then y=y-1
 3050 if py<y then y=y+1
 3060 if fnp(x)=160 or fnp(x)=65 or           fnp(x)=224 then gosub 3300
 3065 if fnp(x)=211 then over$="S"
 3070 hx=x:hy=y
 3080 gosub 800 : print"S"
 3090 return
 3300 rem----move heart away from obst--
 3310 x=x+int(rnd(1)*5)-2
 3320 y=y+int(rnd(1)*5)-2
 3330 if fnp(x)=160 or fnp(x)=65 or            fnp(x)=224 then x=hx:y=hy
 3335 if x<1 or y<1 or x>38 or y>23 then       x=hx:y=hy
 3340 return
 4000 rem-----a loss!--------
 4005 r$="{up}{up}{up}{left}{left}N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{CBM-G}{CBM-D} {CBM-F}{CBM-M}{down}{left}{left}{left}{left}{left}{CBM-G}{CBM-@}{CBM-@}{CBM-@}{CBM-M}{down}{left}{left}{left}{left}{left}{CBM-G}{CBM-G}S{CBM-M}{CBM-M}{down}{left}{left}{left}{left}{left}M{CBM-T}{CBM-T}{CBM-T}N{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{up}{up}{left}{left}"
 4010 gosub 800
 4020 for j=1 to 20
 4025 printr$;
 4030 print"{rvon}";r$;"{rvof}";
 4040 next j
 4050 poke 158,0
 4060 print"{home}{down}{rvon}a mean and nasty robot caught you!
 4070 print"{down}{rvon}want to play again? (y or n){rvof} ";
 4090 get a$: if a$="" then 4090
 4100 if a$="n" then print"{clr}";:end
 4110 mr=mr-1:if mr=0 then mr=1
 4120 nob=nob+10
 4125 gosub 500
 4130 goto 230
 4500 rem-----a win!------
 4510 h$="{up}{up}{left}S S{down}{left}{left}{left}{left}SSSSS{down}{left}{left}{left}{left}SSS{down}{left}{left}S{up}{left}"
 4520 gosub 800
 4530 for i= 1 to 10
 4540 print"{rvof}";h$;
 4550 print"{rvon}";h$;
 4560 next i
 4570 print"{home}{down}  {rvon}you have won your heart's desire!
 4580 print"{down}  {rvon}want to play again? (y or n){rvof} ";
 4590 poke 158,0
 4600 get a$:if a$="" then 4600
 4610 if a$="n" then print"{clr}";:end
 4630 mr=mr+5:nob=nob-2
 4635 gosub 500
 4640 goto 230
 5000 rem-----player hit obstacle-----
 5010 c$="{left}{left}{left}crash!!{left}{left}{left}{left}"
 5020 for i=1 to 20
 5025 x=px:y=py:gosub 800
 5030 printc$;
 5040 print"{rvon}";c$;"{rvof}";
 5050 next i
 5060 print"{home}{down}{rvon} you hit an obstacle!
 5070 print"{down}{rvon}  want to try again? (y or n){rvof} ";
 5080 poke 158,0
 5090 get a$: if a$="" then 5090
 5100 if a$="n" then print"{clr}";:end
 5110 nob=nob-3
 5120 mr=mr-1:if mr=0 then mr=1
 5130 gosub500
 5140 goto 230
 6000 rem-----display numberof robots                 and obstacles----------
 6010 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(8)"{down}this time there are
 6020 print"{down}"tab(10)"{rvon}"mr"{left} robots
 6030 printtab(12)"{rvon}and"nob"{left} obstacles!{rvof}"
 6035 if mr>40 then mr=40:print"{down}"tab(7)"and that's as many robotsas i have."
 6040 t=ti
 6050 if ti<t+360 then 6050
 6060 return
    1 print"{clr}routine loading, please wait.
   10 ad=690
   20 readb:ifb<0then100
   30 pokead,b:ad=ad+1:goto20
  100 print"routine loaded"
  110 forj=1to500:next
  115 geta$:ifa$>""then115
  120 print"{clr}would you like to go for a spin?"
  130 print:print"just press the number keys
  140 print:print"to drive your car......
  150 print
  160 print"    7 8 9
  170 print"     O^P
  180 print"    4<5>6
  190 print"     Lv{SHIFT-@}
  200 print"    1 2 3
  210 print
  212 print"your goal is the S spot
  214 print"good luck.....
  216 print
  220 print"press any key to begin.
  230 geta$:ifa$=""then230
  235 poke59467,16:poke59466,51
  240 pk=515:if peek(50003)thenpk=151
  250 print"{clr}";
  260 forj=1to20+15*rnd(1)
  261 poke59464,int(255*rnd(1)+1):poke59464,0
  262 w=32768+1000*rnd(1)
  263 fork=1to10+15*rnd(1)
  264 on1+4*rnd(1)goto265,266,267,268
  265 w=w+1:goto269
  266 w=w-1:goto269
  267 w=w+40:goto269
  268 w=w-40:goto269
  269 ifw<32767orw>33767then262
  270 pokew,81:nextk,j
  275 poke32768+1000*rnd(1),83
  280 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Z{left}";
  290 u=863:d=905:r=793:l=827:c=33267
  300 rem look for move
  305 t=ti
  310 z=peek(pk):ifz=255then310
  320 ifz=34then310
  330 print"+{left}";
  340 ifz=50thensysd:goto500
  350 ifz=18thensysu:goto500
  360 ifz=41thensysl:goto500
  370 ifz=42thensysr:goto500
  380 ifz=58thensysd:sysr:goto500
  390 ifz=57thensysd:sysl:goto500
  400 ifz=26thensysu:sysr:goto500
  410 ifz=25thensysu:sysl:goto500
  420 print"Z{left}";:goto310
  490 rem check for collission
  500 q=peek(c):poke59464,12:poke59464,144:poke59464,0
  502 ifq=32then420
  503 ifq=43then420
  505 ifq=83then530
  510 ifq=81then540
  515 goto420
  520 rem collision found
  530 print"{rvon}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}got there in"int((ti-t)/60)"{left} seconds."
  535 fora=1to200:poke59464,200:poke59464,255:next:poke59467,0:goto115
  540 print"Q{left}";
  550 on1+4*rnd(1)goto560,570,580,590
  560 sysu:goto595
  570 sysd:goto595
  580 sysr:goto595
  590 sysl:goto595
  595 poke59464,50:poke59464,0
  600 ifrnd(1)>.3then550
  610 forj=1to500:nextj
  620 goto500
 1000 data 255,127,0,128,39,128,136
 1010 data 2,151,131,191,131,162,11
 1020 data 181,10,157,122,2,202,16
 1030 data 248,162,11,189,178,2,149
 1040 data 10,202,16,248,96,162,11
 1050 data 189,122,2,149,10,202,16
 1060 data 248,96,216,24,165,10,105
 1070 data 40,133,10,144,2,230,11
 1080 data 24,165,12,105,40,133,12
 1090 data 144,2,230,13,24,165,14
 1100 data 105,40,133,14,144,2,230
 1110 data 15,96,216,56,165,18,233
 1120 data 40,133,18,176,2,198,19
 1130 data 56,165,20,233,40,133,20
 1140 data 176,2,198,21,96,32,190
 1150 data 2,162,25,32,43,3,32
 1160 data 222,2,202,208,247,32,211
 1170 data 2,96,160,39,177,12,72
 1180 data 177,10,145,12,136,208,249
 1190 data 104,145,12,96,32,190,2
 1200 data 162,25,32,77,3,32,222
 1210 data 2,202,208,247,32,211,2
 1220 data 96,160,1,177,10,72,177
 1230 data 12,145,10,200,192,40,208
 1240 data 247,104,145,10,96,32,190
 1250 data 2,162,24,160,40,177,10
 1260 data 145,16,136,208,249,160,40
 1270 data 177,14,145,10,136,208,249
 1280 data 32,222,2,202,208,241,160
 1290 data 40,177,16,145,10,136,208
 1300 data 249,32,211,2,96,32,190
 1310 data 2,162,24,160,40,177,20
 1320 data 145,16,136,208,249,160,40
 1330 data 177,18,145,20,136,208,249
 1340 data 32,1,3,202,208,241,160
 1350 data 40,177,16,145,20,136,208
 1360 data 249,32,211,2,96
 1370 data -1
   10 print:print"{clr}guten tag"
   20 print:print"ich werde jetzt eine probe meiner"
   30 print"hellseherischen faehigkeiten geben"
   40 print:print"bitte denken sie sich eine"
   50 print"positive zahl!"
   60 fori=1to5000:nexti
   70 print:print"multiplizieren sie diese zahl nun mit 9!"
   80 fori=1to10000:nexti
   90 print:print"sind sie fertig? geben sie ja ein!"
  100 inputj$:ifj$<>"ja"then90
  110 print:print"addieren sie jetzt ihr lebensalter"
  120 print"zu der zahl"
  130 fori=1to10000:nexti
  140 print"wie lautet ihre zahl"
  150 inputz
  160 gosub2000
  170 ifz>=10then160
  180 print:print:print"sie sind endweder"
  190 print:print"     ";z
  200 fori=1to10
  210 print"oder";z+i*9:nexti
  220 print:print"jahre alt"
  230 print:print"auf wiedersehen"
  999 end
 2000 z$=str$(z)
 2010 l=len(z$)
 2020 z=0
 2030 fork=1tol
 2040 z=z+val(mid$(z$,k,1))
 2050 nextk
 2060 return
    4 rem     *****    hex loader   *****
    1 :
    2 :
    7 rem"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}##**  put data in  **##{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
    8 :
    9 input"{clr}start location";b
   10 reada$
   20 ifa$="**"thenend
   30 a1=asc(left$(a$,1))-48
   40 a2=asc(right$(a$,1))-48
   50 ifa1>9thena1=a1-7
   60 ifa2>9thena2=a2-7
   70 a=(a1*16)+a2
   80 pokeb,a
   81 print;b,a
   85 b=b+1
   90 goto10
 63999 data**
    1 print"{clr}{down}{down}{down}{down}{down}{rvon} hexpawn {rvof}":rem***version 2.0   8-17-78   dave wilson***
    2 print"from 101 basic computer games"
    3 print"submitted by tim onasko":print"modified by dave wilson"
    4 print"{down}available from pet cassette exchange"
    5 print"1929 northport dr, room 6"
    6 print"madison, wi  53704"
    7 for xx=1to3000:nextxx:print"{clr}"
    9 print"{clr}"
   10 dimb(19,9),m(19,4),s(9),p$(3)
   15 w=0:l=0
   20 def fnr(x)=-3*(x=1)-(x=3)-4*(x=6)-6*(x=4)-7*(x=9)-9*(x=7)+fns(x)
   25 deffns(x)=-x*(x=2 or x=5 or x=8)
   30 deffnm(y)=y-int(y/10)*10
   35 p$="W{SHIFT-+}Q"
   40 fori=1to19:forj=1to9:readb(i,j):nextj:nexti
   45 fori=1to19:forj=1to4:readm(i,j):nextj:nexti
   50 fori=1to150:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}hexapawn{rvof}{left}{left}{left}{left}{left}{left}{left}{left}        ":nexti
   60 print"do you need instructions (y or n)?"
   65 get an$:if an$="" goto 65
   70 if an$="y" then  gosub 2000:rem**instructions**
   75 print"{clr}"
  100 x=0:y=0
  110 s(4)=0:s(5)=0:s(6)=0
  112 s(1)=-1:s(2)=-1:s(3)=-1
  113 s(7)=1:s(8)=1:s(9)=1
  115 gosub1000
  116 print"your move?";
  117 getm1$:ifm1$=""goto117
  118 m1=val(m1$):print m1;
  119 getm2$:if m2$="" goto 119
  120 m2=val(m2$):print m2
  121 ifm1<4 then m1=m1+6:goto 123
  122 ifm1>6 then m1=m1-6
  123 ifm2<4 then m2=m2+6:goto 126
  124 ifm2>6 then m2=m2-6
  126 ifm1=0 then9998
  127 ifm1=int(m1)andm2=int(m2)andm1>0andm1<10andm2>0andm2<10then130
  128 print"illegal coordinates."
  129 goto116
  130 ifs(m1)=1then150
  140 print"illegal move":goto116
  150 ifs(m2)=1then140
  160 ifm2-m1<>-3ands(m2)<>-1then140
  170 ifm2>m1then140
  180 ifm2-m1=-3and(s(m2)<>0)then140
  185 ifm2-m2<-4then140
  186 ifm1=7andm2=3then140
  190 s(m1)=0
  200 s(m2)=1
  205 gosub1000
  210 ifs(1)=1ors(2)=1ors(3)=1then820
  220 fori=1to9
  221 ifs(i)=-1then230
  222 nexti
  223 goto820
  230 fori=1to9
  240 ifs(i)<>-1then330
  250 ifs(i+3)=0then350
  260 iffnr(i)=ithen320
  270 ifi>3then300
  280 ifs(5)=1then350
  290 goto330
  300 ifs(8)=1then350
  310 goto330
  320 ifs(i+2)=1 ors(i+4)=1then350
  330 nexti
  340 goto820
  350 fori=1to19
  360 forj=1to3
  370 fork=3to1step-1
  380 t((j-1)*3+k)=b(i,(j-1)*3+4-k)
  390 nextk
  400 nextj
  410 forj=1to9
  420 ifs(j)<>b(i,j)then460
  430 nextj
  440 r=0
  450 goto540
  460 forj=1to9
  470 ifs(j)<>t(j)then510
  480 nextj
  490 r=1
  500 goto540
  510 nexti
  511 remember the termination of this loop is impossible
  512 print"illegal board pattern"
  530 stop
  540 x=i
  550 fori=1to4
  560 ifm(x,i)<>0then600
  570 nexti
  580 print"i resign"
  590 goto820
  600 y=int(rnd(1)*4+1)
  601 ifm(x,y)=0then600
  610 ifr<>0then630
  620 print" here is my move"
  622 s(int(m(x,y)/10))=0
  623 s(fnm(m(x,y)))=-1
  624 goto640
  630 print"here is my move"
  632 s(fnr(int(m(x,y)/10)))=0
  633 s(fnr(fnm(m(x,y))))=-1
  640 gosub1000
  641 ifs(7)=-1ors(8)=-1ors(9)=-1then870
  650 fori=1to9
  660 ifs(i)=1then690
  670 nexti
  680 goto870
  690 fori=1to9
  700 ifs(i)<>1then790
  710 ifs(i-3)=0then116
  720 iffnr(i)=ithen780
  730 ifi<7then760
  740 ifs(5)=-1then116
  750 goto790
  760 ifs(2)=-1then116
  770 goto790
  780 ifs(i-2)=-1ors(i-4)=-1then116
  790 nexti
  800 print"you can't move, so ";
  810 goto870
  820 print"you win!"
  830 m(x,y)=0
  840 l=l+1
  850 print"{rvon}pet:  ";w;"you:   ";l;"  out of";l+w
  851 print
  855 print"{down}{down}{down}{down}"
  860 goto100
  870 print"i win.."
  880 w=w+1
  890 goto850
  900 data-1,-1,-1,1,0,0,0,1,1,-1,-1,-1,0,1,0,1,0,1
  905 data-1,0,-1,-1,1,0,0,0,1,0,-1,-1,1,-1,0,0,0,1
  910 data-1,0,-1,1,1,0,0,1,0,-1,-1,0,1,0,1,0,0,1
  915 data0,-1,-1,0,-1,1,1,0,0,0,-1,-1,-1,1,1,1,0,0
  920 data-1,0,-1,-1,0,1,0,1,0,0,-1,-1,0,1,0,0,0,1
  925 data0,-1,-1,0,1,0,1,0,0,-1,0,-1,1,0,0,0,0,1
  930 data0,0,-1,-1,-1,1,0,0,0,-1,0,0,1,1,1,0,0,0
  935 data0,-1,0,-1,1,1,0,0,0,-1,0,0,-1,-1,1,0,0,0
  940 data0,0,-1,-1,1,0,0,0,0,0,-1,0,1,-1,0,0,0,0
  945 data-1,0,0,-1,1,0,0,0,0
  950 data24,25,36,0,14,15,36,0,15,35,36,47,36,58,59,0
  955 data15,35,36,0,24,25,26,0,26,57,58,0
  960 data26,35,0,0,47,48,0,0,35,36,0,0,35,36,0,0
  965 data36,0,0,0,47,58,0,0,15,0,0,0
  970 data26,47,0,0,47,58,0,0,35,36,47,0,28,58,0,0,15,47,0,0
 1000 print"{down}"
 1005 printtab(08);"{CBM-A}{SHIFT-*}{CBM-R}{CBM-R}{CBM-R}{SHIFT-*}{CBM-S}
 1006 printtab(08);"{CBM-Q}{SHIFT-*}   {SHIFT-*}{CBM-W}
 1007 printtab(08);"{CBM-Q}{SHIFT-*}   {SHIFT-*}{CBM-W}
 1008 printtab(08);"{CBM-Q}{SHIFT-*}   {SHIFT-*}{CBM-W}
 1009 printtab(08);"{CBM-Z}{SHIFT-*}{CBM-E}{CBM-E}{CBM-E}{SHIFT-*}{CBM-X}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1010 fori=1to3
 1020 forj=1to3
 1030 printtab(10);mid$(p$,s((i-1)*3+j)+2,1);
 1040 nextj
 1050 print
 1060 nexti
 1070 print
 1075 print"{down}"
 1080 return
 2000 rem**instructions**
 2010 print"{clr}"
 2020 print "your pawns are Q ; mine (pet's) are W."
 2025 print"{down}"
 2030 print "{down}use the number pad to show your move."
 2040 print"{down}give the position you move from; ";
 2050 print "then   the position you want to move to."
 2052 print"{down}{down}"
 2055 print "{down}you may move straight ahead if the space is empty,or diagonal to ";
 2060 print"capture a pawn."
 2065 print "{down}to win:move a pawn to the other side, or block all my moves."
 2067 print"{down}"
 2070 print"{down}hit any key when ready to play"
 2075 get a$:if a$="" goto 2075
 2099 return
 9998 print"come back and play again..."
    0 clr:poke59468,12
    1 rem hi-res basic code copyright (c) 1980 glen fisher
    2 rem hi-res machine code copyright(c) 1980 dave dixon
    3 rem 5976 highbury st.
    4 rem vancouver b.c. canada v6n 1z1
    5 :
    6 rem cursor #18, march, 1980
    7 rem box 550, goleta, ca. 93017
    8 rem lines 61000-65000 (c) 1980 cursor magazine
    9 :
   10 rem as of whenever
   90 pg$="hi-res":nm$="18":gosub62000
  100 dimrw(40),cl(9):mr=40:mc=10
  200 ml=3828:i=ml
  210 forn=0to39
  220 ifpeek(i)<>162theni=i+1:goto220
  230 rw(n)=i+1:i=i+50:nextn
  240 fori=0to9:cl(i)=2*i
  250 ifi>2thencl(i)=5*i
  260 nexti
  300 ifqv=2thenml=ml+27
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}h position [+step] length char
  410 print"{down}{rght}{rght}v position [+step] length char
  420 print"{down}{rght}{rght}p position char
  430 print"{down}{rght}{rght}f char
  440 print"{down}{rght}{rght}s position char
  450 print"{down}{rght}{rght}q
  460 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}don't type the brackets.
  470 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}char may be [rvs]char
  500 sysml
 1000 print"{home}{down}{down}{down}{down}{down}                                       {up}":print">";
 1010 gosub60000
 1020 fori=0to4:a$(i)="":nexti
 1030 fori=0to4
 1040 ifin$<>""thenifasc(in$)=32thenin$=mid$(in$,2):goto1040
 1050 ifin$=""then1200
 1060 forj=1tolen(in$)
 1070 ifmid$(in$,j,1)=" "then1090
 1080 nextj:a$(i)=in$:goto1200
 1090 a$(i)=left$(in$,j-1):in$=mid$(in$,j)
 1100 nexti
 1200 c$="hvsfpq?":a$=left$(a$(0),1):a=1
 1210 fori=1tolen(c$)
 1220 ifmid$(c$,i,1)=a$then1240
 1230 nexti:goto1000
 1240 onigoto2100,2200,2300,2400,2500,2600,2700
 2100 gosub8000:gosub8100:gosub8200:gosub9000
 2105 ifl<1ors<1then1000
 2110 fori=1tol
 2120 ifr>=mrthen1000
 2130 ifc>=mcthenc=c-mc:r=r+1:goto2120
 2140 pokerw(r)+cl(c),ch:c=c+s
 2150 nexti
 2160 goto1000
 2200 gosub8000:gosub8100:gosub8200:gosub9000
 2205 ifl<1ors<1then1000
 2210 fori=1tol
 2220 ifc>=mcthen1000
 2230 ifr>=mrthenr=r-mr:c=c+1:goto2220
 2240 pokerw(r)+cl(c),ch:r=r+s
 2250 nexti
 2260 goto1000
 2300 gosub8000:gosub9000
 2310 fori=0to7:j=r+i
 2320 ifj>=mrthen1000
 2330 pokerw(j)+cl(0),ch
 2340 forc=1to8:pokerw(j)+cl(c),32
 2350 ifc=i+1thenpokerw(j)+cl(c),ch
 2360 nextc
 2370 nexti
 2380 goto1000
 2400 gosub9000
 2410 forr=0tomr-1
 2420 forc=0tomc-1
 2430 pokerw(r)+cl(c),ch
 2440 nextc:nextr
 2450 goto1000
 2500 gosub8000
 2510 gosub9000
 2515 ifp<0then1000
 2520 pokerw(r)+cl(c),ch
 2530 goto1000
 2600 sysml
 2610 print"{clr}":end
 8000 p=val(a$(a)):a=a+1:gosub9100
 8005 ifr<0orr>=mrorc<0orc>=mcthenp=-1
 8010 return
 8100 ifleft$(a$(a),1)<>"+"thens=1:return
 8110 s=val(a$(a)):a=a+1
 8130 return
 8200 l=val(a$(a)):a=a+1:return
 8210 t=int(l/10):l=l-10*t:ifl>8thenl=8
 8220 l=9*t+l:return
 9000 a$=a$(a)+" ":t=asc(a$):ift=18thent=asc(mid$(a$,2))
 9010 ch=tand63:ift>127thench=ch+64
 9020 ifasc(a$)=18thench=ch+128
 9030 return
 9100 r=int(p/10):c=p-10*r:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60090 ifzl>254then60010
 60100 in$=in$+z$:printchr$(z);zd$;chr$(z);"{rvof}";
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 ifz=18thenprint"{rvon}";:z=z+64:goto60090
 60150 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qv=2:cr$=chr$(13)
 60410 ifpeek(50000)=0thenqv=1
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by  dave dixon
 62020 printtab(21);"and glen fisher"
 62025 gosub60500
 62030 print"{down}high resolution pet graphics
 62050 print"{down}{down}{down}press {rvon}return{rvof} to begin."
 62060 gett$:ift$=""then62060
 62070 goto60300
    1 rem *** von m.haldmaier***
   15 printchr$(142)  "{clr}"
   20 print"{down}{down}{down}{down}{down}"tab(21)"* * * {rvon}h i n t e r h a l t{rvof} * * *"
   30 print"{down}{down}{down}{down}{down}"tab(30)"anleitung {rvon}j{rvof}/{rvon}n{rvof}"
   32 poke59467,16:poke59466,15:t=59464
   33 poket,0:fori=255to0step-1:poket,i:next
   40 geta$:ifa$=""then40
   50 ifa$="j"thengosub320
   60 bp=32768:zl=80:zz=25:print"{clr}"
   70 fori=bptobp+zl-1:pokei,160:pokei+zl*24,160:next
   80 fori=bp+zltobp+zl*24 stepzl:pokei,160:pokei+zl-1,160:next
   90 s=20:z=13
  100 forq=1tozl*3  :i=int(rnd(1)*zl*zz):pokebp+i,160:next
  110 pokebp+z*zl+s,42
  120 geta$:ifa$=""then120
  130 ifa$="8"thenz1=z-1:s1=s:goto180
  140 ifa$="2"thenz1=z+1:s1=s:goto180
  150 ifa$="4"thens1=s-1:z1=z:goto180
  160 ifa$="6"thens1=s+1:z1=z:goto180
  170 goto120
  175 p=bp+z1*zl+s1:ifpeek(p)=160then430
  180 p=bp+z1*zl+s1:ifpeek(p)=160then430
  190 pokep,42:pokebp+z*zl+s,32:z=z1:s=s1:a=a+1
  195 fori=1to10:poket,80:next:poket,0
  200 i=int(rnd(1)*4)+1
  210 ifi=1thenm=z-1:g=s
  220 ifi=2thenm=z:g=s+1
  230 ifi=3thenm=z+1:g=s
  240 ifi=4thenm=z:g=s-1
  250 f=bp+m*zl+g:ifpeek(f)=160then200
  260 pokef,160:goto120
  270 print"{clr}{down}{down}{down}{down}{down}{down}{down}"tab(10)"sie haben " a "zuege geschaft":ifa>bthenb=a
  275 printtab(10)"{down}{down}bestes ergebnis{rvon}"b"{rvof}"
  280 print"{down}{down}{down}{down}{down}"tab(10)"neues spiel ?"
  290 geta$:ifa$=""then290
  300 ifa$="j"thena=0:goto60
  310 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(15)"danke fuers mitspielen !":end
  320 rem anleitung
  330 print"{clr}{down}{down}sie muessen bei diesem spiel verhindern dass ihr stein
  340 print"eingeschlossen wird."
  350 print"{down}{down}stossen sie an den rand oder die dunklen steine
  360 print"haben sie verloren.
  370 print"{down}{down}der computer setzt nach ihrem zug an irgendeine seite
  380 print"neben ihren stein ,und versucht sie damit einzusperren.
  390 print"{down}{down}sie koennen mit den tasten 2/4/8/6 ihren stein ziehen.
  400 print"{down}{down}{down}{down}{down}{down}"tab(10)"{rvon}bitte taste druecken !{rvof}"
  410 geta$:ifa$=""then410
  420 print"{clr}": return
  430 fori=1to255       :poket,i:next
  440 fori=250to0 step-1:poket,i:next:poket,0:goto270
   40 print"{clr}{gry2}":poke59468,14:nm$="{gry2}"
   50 x=rnd(-ti):deffna(x)=int(x*rnd(1)+1)
   60 gosub2710:gd=0:gn=0:lk=0:cy=0:bb=0:cr=1:pl=1:lm=28:lf=27:lc=0:tx=0:sx=0
   70 mc=0:gn$=" {orng} ON "+nm$:gf$=" {orng} OFF "+nm$:gs$=gf$:goto110
   80 y=-9:forj=1tott:ifnn=t(j,2)theny=t(j,1):k=j:j=tt
   90 nextj:return
  100 cr=e(cr,nn)
  110 print"{clr}We're ";r$(cr)
  120 k=0:a$="":forj=1tott:ift(j,1)<>crthen160
  130 ifk=0thenk=1:print"{down}Look,fellas,that seems to be":a$=t$(j):goto160
  140 iflen(a$)+len(t$(j))+3>39thenprint"{down}"a$:a$=t$(j):goto160
  150 a$=a$+"   "+t$(j)
  160 nextj:ifa$<>""thenprint"{down}"a$
  170 ift(28,1)=-1andcr<>44andcr<>45andcr<>12andcr<>13andcr<>14then190
  180 goto200
  190 printm$(60):goto250
  200 k=0:print"{down}We might go:   ";
  210 forj=1to6:ife(cr,j)<1then240
  220 ifk=1thenprint",";
  230 print"{red}"n$(j)nm$;:k=1
  240 nextj:print
  250 gosub2330:ifk=5thenprint"{down}Well done! We've finished":goto4960
  260 ifgn=1thentx=tx+1
  270 iftx>100thenprintm$(63):gn=0:t(4,1)=0:tx=0:cy=cy-1
  280 ifcr=43thensx=sx+1
  290 ifsx>5thenprintm$(57):goto4960
  300 ifcr=43goto540
  310 ifgd=1thenprintm$(54):goto330
  320 goto340
  330 cr=43:sx=0:gd=0:forj=1to7000:next:goto110
  340 ifcr=41andt(15,1)=-1andt(7,1)=0ande(41,3)=0then1730
  350 ifcr=46andt(30,1)=crand(t(27,1)=crort(27,1))=-1goto370
  360 goto380
  370 printm$(62):t(30,1)=0:t(27,1)=0:goto410
  380 ifcr=29andlc=1thenprintm$(51):goto410
  390 ifcr=29and(t(1,1)=-1ort(1,1)=29)thenlc=1:printm$(51)
  400 ifcr=29andlc=0thenprintm$(50)
  410 ift(15,1)=crandt(8,1)=crthent$(15)=m$(59):printm$(58):t(8,1)=0:goto480
  420 ift(15,1)=-1andt(8,1)<>0goto440
  430 goto480
  440 ifcr=27orcr=39then480
  450 iflf=27thenlf=39:goto470
  460 lf=27
  470 t(15,1)=lf:cy=cy-1:printm$(4)
  480 ift(16,1)=-1andt(17,1)<>-1andcr<>28andcr<>48andfna(2)<>1goto500
  490 goto530
  500 printm$(3):iflm=28thenlm=48:goto520
  510 lm=28
  520 t(16,1)=lm:cy=cy-1
  530 ifcr>33andfna(7)=1thenprintm$(53):gd=1
  540 input"{down}What shall we do{blk}{rght}{rght}{rght}*{left}{left}{left}";a$:printnm$:gosub550:goto730
  550 v$="":n$="":vb=0:nn=0
  560 forj=1tolen(a$):ifmid$(a$,j,1)<>" "thenv$=v$+mid$(a$,j,1):goto580
  570 j=len(a$)
  580 nextj:ifv$="s"orv$="d"thenvb=0:n$=v$:goto630
  590 forj=1totv:ifleft$(v$(j),len(v$))=v$thenvb=j:j=tv
  600 nextj:ifvb=0thenn$=v$:goto630
  610 iflen(a$)=len(v$)thenreturn
  620 n$=right$(a$,len(a$)-1-len(v$))
  630 forj=1totn:ifleft$(n$(j),len(n$))=n$thennn=j:j=tn
  640 nextj:ifnn=12thennn=11
  650 ifnn=14thennn=13
  660 ifnn=46thennn=10
  670 ifnn=17thennn=16
  680 ifnn=21thennn=20
  690 ifnn=23thennn=22
  700 ifnn=30thennn=29
  710 ifnn=49thennn=38
  720 return
  730 ifvb>0then770
  740 ifnn>0andnn<7then870
  750 printm$(36):goto250
  760 printm$(37):printchr$(98);v$;" ";n$;chr$(98):goto250
  770 ifvb=4orvb=11or(vb>13andvb<22)goto810
  780 ifvb=24then840
  790 ifnn<>0then810
  800 print"I didn't hear you - ";v$;" what?":goto250
  810 k=vb:ifvb>13thenk=k-13:goto830
  820 onkgoto870,980,980,1100,1180,1360,1420,1510,1760,1830,1870,1940,1980
  830 onkgoto2150,2010,2150,2150,2320,2290,2400,2510,2620,2700
  840 input"Are you sure you want to quit{rght}{rght}{rght}*{left}{left}{left}";a$
  850 ifleft$(a$,1)="y"thenprint"{down}"m$(12);". Let's break for{down}":printt$(7)".":end
  860 goto540
  870 ifgd=1then250
  880 ifnn>6then900
  890 ife(cr,nn)<>0then910
  900 printm$(38):goto250
  910 ifcr=33and(nn=2ornn=3)andt(26,1)=33thenprintm$(1):goto250
  920 ifcr=33andnn=3andlk=0thenprintm$(5):goto250
  930 ifcr=36andnn=2andlk=0thenprintm$(5):goto250
  940 ifcr=25andnn>1andt(14,1)=25thenprintm$(2):goto250
  950 ifcr=38and(nn=2ornn=3)andt(22,1)=38andbb=0thenprintm$(6):goto250
  960 ifcr=46andnn>4andt(30,1)=46thenprintm$(61):goto250
  970 goto100
  980 ifnn<7goto760
  990 ifnn<13ornn>41goto1410
 1000 ifcy>3thenprintm$(7):goto250
 1010 gosub80:ify=-1thenprintm$(8):goto250
 1020 ifcr<>ythenprintm$(9):goto250
 1030 ifcr=25andt(14,1)=25thenprintm$(2):goto250
 1040 ifcr=24andt(11,1)=0thent(11,1)=24:goto1090
 1050 ifcr=7andnn=39andmc=0thenprintm$(64):goto250
 1060 ifcr=25andt(14,1)=25thenprintm$(2):goto250
 1070 ifcr=20andnn=28andt(6,1)<>20thenprintm$(30):goto250
 1080 ifcr=21andnn=29andt(25,1)<>crthenprintm$(30):goto250
 1090 t(k,1)=-1:printm$(12):cy=cy+1:goto250
 1100 ifnn=16ornn=24ornn=36ornn=37goto1190
 1110 ifnn<>22andnn<>23goto1130
 1120 if(cr=7andt(2,1)=7)ort(2,1)=-1thenprintm$(22):goto250
 1130 ifnn<13goto110
 1140 ifnn=35and(t(4,1)=-1ort(4,1)=cr)thenprintm$(35);gs$:goto250
 1150 ifnn=25and(t(1,1)=-1ort(1,1)=cr)thenprintm$(52):goto250
 1160 gosub80:ify=-1ory=crthenprintm$(23):goto250
 1170 printm$(9):goto250
 1180 ifnn<>16andnn<>24andnn<>36andnn<>37then750
 1190 ifnn=37and(t(24,1)=-1ort(24,1)=cr)thenprintm$(14):goto250
 1200 gosub80:ify<>-1andcr=ythenprintm$(11):goto250
 1210 ify<>-1thenprintm$(9):goto250
 1220 ifnn=16andcr=36andpl=1then1300
 1230 ifnn=16andcr=36andpl=2thenprint"{clr}":goto1320
 1240 ifnn=16andcr=25andt(14,1)=25then1330
 1250 ifnn=16thenprintm$(39):goto250
 1260 ifnn=24thenprintm$(13):goto250
 1270 ifnn=37thenprintm$(14):goto250
 1280 ifnn=36thenprintm$(55):goto250
 1290 printm$(15):goto250
 1300 printm$(20)
 1310 printm$(40):pl=2:e(33,6)=37:goto250
 1320 printm$(21):pl=1:e(33,6)=32:goto250
 1330 t(14,1)=0:printm$(41)
 1340 goto250
 1350 forj=1to2000:next:goto250
 1360 ifcr=15andnn=42andfna(3)=1thenprintm$(16):printm$(17):goto330
 1370 ifcr=15andnn=42then1460
 1380 ifnn<9then750
 1390 gosub80:ify=-1then1410
 1400 ify<>crthenprintm$(9):goto250
 1410 printm$(18):goto250
 1420 ifcr<>15ornn<9then1380
 1430 ifnn<>42goto1390
 1440 ift(2,1)=15andpl=1then1470
 1450 ift(2,1)=15andpl=3then1490
 1460 printm$(19):goto250
 1470 printm$(20)
 1480 printm$(42):pl=3:e(8,6)=16:goto250
 1490 printm$(21):pl=1:e(8,6)=6:goto250
 1500 printm$(21):pl=1:e(33,6)=32:goto250
 1510 ifnn<13then1410
 1520 gosub80:ify<>-1thenprintm$(11):goto250
 1530 t(k,1)=cr:printm$(12):cy=cy-1
 1540 ifk=18thent$(k)="5 Scrabble-tiles spelling PANIC"
 1550 ifk=4thengn=0:gs$=gf$:goto250
 1560 ifk=5andcr=38andt(22,1)=38andbb=0then1580
 1570 goto1590
 1580 printm$(43):bb=1:t$(22)="a snoring "+right$(t$(22),25):t(5,1)=0:goto250
 1590 ifk=12andt(13,1)=0thent(13,1)=cr:goto250
 1600 ifk=29andcr=7andmc=0thenprintm$(65):mc=1:t(29,1)=0:goto250
 1610 ifk=27andcr<>7thenprintm$(66):mc=0:t(27,1)=7
 1620 ifk=6andcr=20thent(k,1)=0:printm$(31);t$(7):t(7,1)=-1:goto1660
 1630 ifk=25andcr=21andt(8,1)=crgoto1650
 1640 goto1670
 1650 t(k,1)=cr:printm$(31);t$(8):t(8,1)=-1:r$(21)=left$(r$(21),25):goto1660
 1660 cy=cy+1:goto250
 1670 ifk=25andcr=23goto1690
 1680 goto1710
 1690 ift(29,1)=0thent(k,1)=42:printm$(67);t$(29):t(29,1)=-1:goto250
 1700 ift(29,1)<>0thent(k,1)=42:printm$(68):goto250
 1710 ifk=7andcr=41then1730
 1720 goto250
 1730 ift(15,1)=-1thenprintm$(29):r$(41)=left$(r$(41),9):e(41,3)=42:goto1750
 1740 printm$(28)
 1750 t(7,1)=0:goto250
 1760 ifnn=16ornn=24ornn=37then1200
 1770 ifnn=36goto900
 1780 ifnn<>43then760
 1790 ifcr<>33andcr<>36thenprintm$(9):goto250
 1800 iflk=1thenprintm$(24):goto250
 1810 iflk=0andt(13,1)<>-1thenprintm$(26):goto250
 1820 lk=1:printm$(27):goto250
 1830 ifnn<>43then760
 1840 ifcr<>33andcr<>36thenprintm$(9):goto250
 1850 iflk=0thenprintm$(25):goto250
 1860 lk=0:printm$(12):goto250
 1870 a$="":print"{clr}We're carrying:{down}
 1880 forj=1tott:ift(j,1)<>-1then1910
 1890 iflen(a$)+len(t$(j))+2>39thenprinta$:a$="{blk}"+t$(j)+"  ":goto1910
 1900 a$=a$+"{blk}"+t$(j)+"  "
 1910 nextj:ifa$=""thenprint"{orng}nothing"+nm$
 1920 ifa$<>""thenprinta$nm$
 1930 goto250
 1940 ifnn<>35goto1410
 1950 ift(4,1)=-1thenprintm$(32):gn=1:gs$=gn$:goto250
 1960 ift(4,1)<>crthenprintm$(9):goto250
 1970 printm$(11):goto250
 1980 ifnn<>35goto750
 1990 ift(4,1)=-1thenprintm$(33):gn=0:gs$=gf$:goto250
 2000 goto1960
 2010 ifcr=15thenprinth$(1):j=1:goto2140
 2020 ifcr=20thenprinth$(2):j=2:goto2140
 2030 ifcr=25thenprinth$(3):j=3:goto2140
 2040 ifcr=27thenprinth$(4):j=4:goto2140
 2050 ifcr=33thenprinth$(5):j=5:goto2140
 2060 ifcr=41thenprinth$(6):j=6:goto2140
 2070 ifcr=28thenprinth$(9):j=9:goto2140
 2080 ifcr=23thenprinth$(10):j=10:goto2140
 2090 ifcr=43andt(23,1)=-1thenprinth$(12):j=12:goto2140
 2100 ift(5,1)=-1ort(7,1)=-1ort(8,1)=-1ort(29,1)=-1goto2130
 2110 iffna(2)=1thenprinth$(7):goto250
 2120 printh$(11):goto250
 2130 printh$(8):j=8
 2140 h$(j)=h$(13):goto250
 2150 ifn$=""thenprintm$(45):goto250
 2160 ifnn=0then760
 2170 ift(4,1)=-1goto2200
 2180 ifvb=14thenprintm$(10)"{down}"
 2190 printm$(44):goto250
 2200 ifgd=1thenprintm$(47):gd=0:goto250
 2210 gosub80:ify=-1andnn=35thenprintm$(19):goto250
 2220 ify=-1thenprintm$(46):goto250
 2230 ifnn<9ornn>41thengoto760
 2240 ify<>crthenprintm$(9):goto250
 2250 ifgn=0thenprintm$(19):goto250
 2260 ifcr=33thenprintm$(47):t(26,1)=0:goto250
 2270 ifnn=9ornn=10thenprintm$(48):goto250
 2280 printm$(49):printt$(k):t(k,1)=0:goto250
 2290 ifcr=43andt(23,1)=-1ort(23,1)=43then2310
 2300 printm$(19):goto250
 2310 printm$(34):cr=fna(42):forj=1to4000:next:goto110
 2320 gosub2330:goto2390
 2330 k=0:ift(10,1)=5thenk=k+1
 2340 ift(11,1)=5thenk=k+1
 2350 ift(15,1)=5thenk=k+1
 2360 ift(16,1)=5thenk=k+1
 2370 ift(23,1)=5thenk=k+1
 2380 return
 2390 print"We've scored";k*20;"out of 100":goto250
 2400 input"{clr}Do you wish to save data (y/n){rght}{rght}{rght}*{left}{left}{left}";a$
 2410 ifleft$(a$,1)<>"y"then250
 2420 input"{down}What is the file to be called{rght}{rght}{rght}*{left}{left}{left}";a$
 2430 open1,1,1,a$
 2440 forj=1tott:fork=1to2:print#1,t(j,k):nextk,j
 2450 forj=1totr:fork=1to6:print#1,e(j,k):nextk,j:print#1,bb:print#1,mc
 2460 print#1,gd:print#1,gn:print#1,lk:print#1,cy:print#1,cr:print#1,lf
 2470 print#1,lc:print#1,lm:print#1,sx:print#1,tx:print#1,r$(41):print#1,gs$
 2480 forj=1toth:print#1,h$(j):next
 2490 print#1,r$(21):print#1,t$(15):print#1,t$(22)
 2500 print#1,t$(18):close1:goto250
 2510 input"{clr}Do you wish to load data (y/n){rght}{rght}{rght}*{left}{left}{left}";a$
 2520 ifleft$(a$,1)<>"y"then250
 2530 input"{down}What is the file called{rght}{rght}{rght}*{left}{left}{left}";a$
 2540 open1,1,0,a$
 2550 forj=1tott:fork=1to2:input#1,t(j,k):nextk,j
 2560 forj=1totr:fork=1to6:input#1,e(j,k):nextk,j:input#1,bb:input#1,mc
 2570 input#1,gd:input#1,gn:input#1,lk:input#1,cy:input#1,cr:input#1,lf
 2580 input#1,lc:input#1,lm:input#1,sx:input#1,tx:input#1,r$(41):input#1,gs$
 2590 forj=1toth:input#1,h$(j):next
 2600 input#1,r$(21):input#1,t$(15):input#1,t$(22)
 2610 input#1,t$(18):close1:goto110
 2620 ifnn<>26andnn<>28andnn<>29andnn<>40then750
 2630 gosub80:ify=-1andk<>29thenprintm$(56):goto2670
 2640 ify=-1thenprintm$(39):t(29,1)=0:goto250
 2650 ify=crthenprintm$(11):goto250
 2660 printm$(9):goto250
 2670 ifk=5thent(5,1)=0:goto250
 2680 ifk=7thent(7,1)=0:goto250
 2690 t(8,1)=0:goto250
 2700 print"OK, ";n$;". Did I pronounce it right?":goto250
 2710 print"Hi there,guys,I'm Eddie,your lovable    computer companion.
 2720 print"{down}This Adventure is called
 2730 print"{orng} The Hitch Hikers Guide To The Galaxy "nm$
 2740 print"(by kind permission of
 2750 print"{orng} Douglas Adams and Pan Books)."nm$
 2760 print"{down}I was programmed by some stardolt named
 2770 print"Bob Chappell and am being marketed by   {orng} SUPERSOFT."nm$
 2780 print"{down}I'm not sure exactly what our mission is
 2790 print"{up}but I think we have to explore,collect
 2800 print"and store certain objects - big deal!
 2810 print"{down}I understand orders of 1 or 2 words like
 2820 print"{up}go east,inventory,up,open door,look,save
 2830 print"{up} - I even recognise abbreviated words.
 2840 tv=24:tn=49:tr=50:tt=30:th=13:tm=68
 2850 dimv$(tv),n$(tn),r$(tr),t$(tt),t(tt,2),e(tr,6),h$(th),m$(tm)
 2860 forj=1totv:readv$(j):next
 2870 forj=1totn:readn$(j):next
 2880 forj=1totr:fork=1to6:reade(j,k):nextk,j
 2890 datago,get,take,look,read,pull,push,drop,open,close,inventory,on,off,kill
 2900 datahelp,fire,shoot,score,panic,save,load,consume,say,quit
 2910 datanorth,east,west,south,up,down,ship,cruiser,beast,suntiger,vogon
 2920 datacaptain,marvin,robot,dispenser,book,poetry,towel,duck,petunias,bowl
 2930 datadrive,engine,set,device,steak,cheque,blaster,chocolate,liqueur,keys
 2940 datastabiliser,scrabble,fish,gun,guide,poster,coin,mouse,tea,glasses
 2950 datalever,door,arkleseizure,barman,tiger,panic,elephant,dollar
 2960 data2,0,0,3,0,0,5,6,0,1,0,0,1,7,0,4,0,0,3,7,32,0,0,0,0,6,0,2,0,0
 2970 data0,0,5,2,8,0,0,0,3,0,0,0,9,0,0,0,0,6,10,10,9,8,0,0,0,11,9,9,15,0
 2980 data12,12,10,12,0,0,13,14,12,12,14,14,13,12,15,12,12,14,12,12,12,14,12,12
 2990 data0,13,0,0,0,10,17,18,19,0,8,0,0,20,0,16,0,0,19,21,16,25,0,0,23,16,22
 3000 data18,0,0,0,23,17,0,0,0,0,0,18,0,0,0,0,19,0,0,0,0,0,0,20,19,0,24,0,0,0
 3010 data0,23,0,18,28,26,29,0,0,0,25,0,0,27,30,0,0,0,0,0,26,0,0,25,0,0,0,25,0
 3020 data0,0,0,0,0,0,0,0,26,0,32,0,0,0,0,0,0,4,0,31,33,0,0,34,36,0,0,32,35,0
 3030 data33,0,0,0,0,0,0,34,0,0,0,33,0,0,0,0,38,0,0,0,33,0,0,39,40,37,0,0,0,0
 3040 data38,0,0,0,0,38,0,41,0,0,40,0,0,0,0,0,46,41,44,45,0,0,43,43,43,43,43,43
 3050 data45,44,45,42,44,44,45,44,44,44,45,45,0,0,0,42,47,49,0,48,0,0,0,46
 3060 data0,0,47,0,0,0,0,0,0,50,46,0,49,0,0,0,0,0
 3070 r$(1)="in a quiet English village
 3080 r$(2)="in the High Street":r$(3)=r$(2)
 3090 r$(4)="in a side lane
 3100 r$(5)="in the public bar of the          "
 3110 r$(5)=r$(5)+"Five Artefacts Inn.
 3120 r$(6)="on the village green
 3130 r$(7)="at the local rubbish tip
 3140 r$(8)="in the Heart of Gold's airlock
 3150 r$(9)="in a long corridor
 3160 r$(10)="in a chamber with a spiral        staircase
 3170 r$(11)="in the Heart of Gold storeroom
 3180 r$(12)="in the Total Perspective Vortex
 3190 r$(13)=r$(12):r$(14)="disoriented in the Vortex
 3200 r$(15)="in the Control Room
 3210 r$(15)=r$(15)+chr$(13)+"On the control panel is a silver lever  which says
 3220 r$(15)=r$(15)+" {orng} DO NOT PULL "+nm$
 3230 r$(16)="at the Betelgeuse spacedrome
 3240 r$(17)="on an undulating walkway
 3250 r$(18)=r$(17):r$(19)=r$(17)
 3260 r$(20)="at Milliways,the Restaurant at    the End of the Universe.
 3270 r$(20)=r$(20)+chr$(13)+"The barman is grinning at us
 3280 r$(21)="in Slim's Throat Emporium. The    barman is scowling at us
 3290 r$(22)="in the Bistro Illegal. A purple   "
 3300 r$(22)=r$(22)+"fountain babbles in the corner
 3310 r$(23)="in the Evildrome Boozerama.       There's an escalator "
 3320 r$(23)=r$(23)+"by the bar
 3330 r$(24)="in a Galactic Sweato-Steam        Treatment Parlour
 3340 r$(25)="in the Maximeglon Museum of       Diseased Imaginings
 3350 r$(26)="in a Vertical People Transporter
 3360 r$(27)="by the Pools of Asgard
 3370 r$(28)="in the Bide-a-Megayear Rest Home  for Manically Depressed Robots
 3380 r$(29)="in the Great Computer Hall.       Here are"+chr$(13)
 3390 r$(29)=r$(29)+"the Googleplex Starthinker,             "
 3400 r$(29)=r$(29)+"the Great Hyperbolic Neutroniser,       "
 3410 r$(29)=r$(29)+"the Milliard Gargantubrain              "
 3420 r$(29)=r$(29)+"and Deep Thought
 3430 r$(30)="at the Pre-2500 Leisure           Exhibition
 3440 r$(31)="in the local library
 3450 r$(32)="in a smelly farmyard
 3460 r$(33)="in the Vogon ship hatchway.A door is in the west wall
 3470 r$(34)="in a passageway
 3480 r$(35)="in the Vogon Interrogation Room
 3490 r$(36)="in the Vogon Navigation Room.     A piece of graffiti reads
 3500 r$(36)=r$(36)+chr$(13)+"{orng}{down} Ode To A Lump Of {grn}Green{orng} Putty I Found   "
 3510 r$(36)=r$(36)+"{down} In My Armpit One Morning "
 3520 r$(36)=r$(36)+chr$(13)+"{down}There's a door in the east wall
 3530 r$(37)="on Kakrafoon
 3540 r$(38)="on Life Boulevard
 3550 r$(39)="at Megadodo Publications HQ.      A swimming pool is here.
 3560 r$(40)="at the head offices of the        "
 3570 r$(40)=r$(40)+"Sirius Cybernetics Corporation
 3580 r$(41)="in a hall. A {grn}Great Green          "
 3590 r$(41)=r$(41)+"Arkleseizure"+nm$+" is sitting by the west wall
 3600 r$(42)="in an Aldabran mint
 3610 r$(43)="floating out in space
 3620 r$(44)="in the hall of a million mirrors
 3630 r$(45)=r$(44)
 3640 r$(46)="in the Galactic Hyperspace Councilroom
 3650 r$(47)="in a laboratory
 3660 r$(48)="in a broom cupboard
 3670 r$(49)="in the Council kitchens
 3680 r$(50)="in a tiny larder
 3690 t$(1)="a strange looking device":t(1,1)=39:t(1,2)=25
 3700 t$(2)="{brn}a rusty car engine"+nm$:t(2,1)=7:t(2,2)=22
 3710 t$(3)="{orng}The Heart Of Gold"+nm$+" space ship"
 3720 t(3,1)=6:t(3,2)=7
 3730 t$(4)="a Kil-O-Zap Energy Gun":t(4,1)=11:t(4,2)=35
 3740 t$(5)="an Arcturian MegaDonkey steak":t(5,1)=11:t(5,2)=26
 3750 t$(6)="a cheque signed by {red}Zaphod Beeblebrox"+nm$:t(6,1)=13:t(6,2)=27
 3760 t$(7)="a {pur}Pan Galactic Gargle Blaster"+nm$:t(7,1)=20:t(7,2)=28
 3770 t$(8)="{brn}an Aldebaran Liqueur chocolate"+nm$:t(8,1)=21:t(8,2)=29
 3780 t$(9)="a Nutri-Matic Drinks Dispenser":t(9,1)=23:t(9,2)=15
 3790 t$(10)="a towel":t(10,1)=24:t(10,2)=18:t$(11)="{orng}a rubber duck"+nm$
 3800 t(11,1)=0:t(11,2)=19
 3810 t$(12)="a bowl of petunias":t(12,1)=5:t(12,2)=20
 3820 t$(13)="a bunch of keys":t(13,1)=0:t(13,2)=31
 3830 t$(14)="an Algolian {orng}Sun"+nm$+"tiger":t(14,1)=25:t(14,2)=10
 3840 t$(15)="a Babel fish":t(15,1)=27:t(15,2)=34
 3850 t$(16)="Marvin the Paranoid Android":t(16,1)=28:t(16,2)=13
 3860 t$(17)="a robot stabiliser":t(17,1)=50:t(17,2)=32
 3870 t$(18)="5 Scrabble-tiles":t(18,1)=30:t(18,2)=33
 3880 t$(19)="a set of Encyclopaedia Galactica":t(19,1)=31:t(19,2)=24
 3890 t$(20)="a Vogon Battle Cruiser":t(20,1)=32:t(20,2)=8
 3900 t$(21)="a fat book of Vogon poetry":t(21,1)=35:t(21,2)=16
 3910 t$(22)="a Ravenous Bugblatter Beast of Traal":t(22,1)=38:t(22,2)=9
 3920 t$(23)="{red}The Hitch Hikers Guide to the Galaxy"+nm$:t(23,1)=45:t(23,2)=36
 3930 t$(24)="a poster":t(24,1)=5:t(24,2)=37
 3940 t$(25)="{orng}an Altairian 42 dollar coin"+nm$:t(25,1)=40:t(25,2)=38
 3950 t$(26)="a {grn}Vogon captain"+nm$:t(26,1)=33:t(26,2)=11
 3960 t$(27)="a {wht}white"+nm$+" mouse":t(27,1)=7:t(27,2)=39
 3970 t$(28)="a pair of {pur}Peril Sensitive Sunglasses"+nm$:t(28,1)=30:t(28,2)=41
 3980 t$(29)="some {orng}cheese-flavoured tea"+nm$:t(29,1)=0:t(29,2)=40
 3990 t$(30)="a Magrathean elephant":t(30,1)=46:t(30,2)=48
 4000 h$(1)="This is an improbable situation
 4010 h$(2)="Zaphod - where art thou?
 4020 h$(3)="Tyger,Tyger,burning bright!
 4030 h$(4)="They don't like ants eggs
 4040 h$(5)="Falling half-hardy annuals
 4050 h$(6)="Computerspeak
 4060 h$(7)="This is no time for {blk}Beatles hits,guys"+nm$
 4070 h$(8)="Consumer goods?
 4080 h$(9)="My! He's very unstable
 4090 h$(10)="Is it a slot machine?
 4100 h$(11)="I'm as puzzled as you are!
 4110 h$(12)="Say,what did the {red}HHGG"+nm$+" tell us?
 4120 h$(13)="Gee,guys,I wish I could!
 4130 m$(1)="Oh-oh....nasty {grn}Vogon"+nm$+" won't let us
 4140 m$(2)="I don't think so. Look at those molars!
 4150 m$(3)="{down}Marvin mutters {orng} Brain the size of a     "
 4160 m$(3)=m$(3)+"planet but life's still depressing "+nm$+"and  shambles off
 4170 m$(4)="{down}What the...! The Babel fish vanished!
 4180 m$(5)="Sorry,guys. The door's locked
 4190 m$(6)="The Bugblatter Beast looks too hungry!
 4200 m$(7)="We're not Arcturian Megadonkeys,fellas!
 4210 m$(8)="We already have it
 4220 m$(9)="I don't see one here,gang
 4230 m$(10)="With bare hands? No way!!
 4240 m$(11)="We don't have it
 4250 m$(12)="Roger,guys
 4260 m$(13)="Sub-section 9585qx sub-para 2783a says  "
 4270 m$(13)=m$(13)+"{orng} Vulcanised aquatic bipeds - see Baths"+nm$
 4280 m$(14)="It says {orng} Artefacts left here are at the  owner's risk."+nm$
 4290 m$(15)="{orng} Babel fish like galaxy whisky"+nm$
 4300 m$(16)="{clr}The Heart of Gold will explode in    {down}   precisely 2.17 seconds
 4310 m$(16)=m$(16)+chr$(13)+"{down}{down}{down}Thanks for playing,guys!
 4320 m$(17)="{down}{down}{down}{down}When you walk through a storm,keep......
 4330 m$(18)="Far out,gang,but it won't help us!
 4340 m$(19)="Good thinking,guys,nothing happened!
 4350 m$(20)="{clr}Hey! We're moving! Don't look now but
 4360 m$(21)="We're on our way back to Earth,guys!
 4370 m$(22)="There's a tiny inscription which says   "
 4380 m$(22)=m$(22)+"{down}{orng}Improbability Drive - Made in Hong Kong"+nm$
 4390 m$(23)="Seems pretty ordinary to me
 4400 m$(24)="Tut,tut,guys,it's already open
 4410 m$(25)="Impossible.It's already closed
 4420 m$(26)="It won't budge
 4430 m$(27)="The door says"+chr$(13)
 4440 m$(27)=m$(27)+"{down}{orng} Thank's for opening me.Have a nice day!"+nm$
 4450 m$(28)="{down}The Arkleseizure drinks the Blaster and "
 4460 m$(28)=m$(28)+"says {orng} G@f$%bv T$#*/)_!"+nm$
 4470 m$(29)="{down}The Arkleseizure says {orng} Go west!"+nm$+" and     "
 4480 m$(29)=m$(29)+"lumbers away revealing a west exit
 4490 m$(30)="Barman won't permit it
 4500 m$(31)="{down}Barman says {orng} That'll do nicely! "+nm$+"and     gives us "
 4510 m$(32)="Gun is on":m$(33)="Gun is off
 4520 m$(34)="{clr}{down}We're heading straight for a {blk}Black Hole!"+nm$
 4530 m$(35)="It's set to
 4540 m$(36)="{lblu}Sounds fun,but my programmer was too    "
 4550 m$(36)=m$(36)+"dumb even for Sirius Cybernetics!"+nm$
 4560 m$(37)="Great idea,guys! Pity my dumb programmer
 4570 m$(37)=m$(37)+"forgot to teach me how to react to
 4580 m$(38)="Sorry,guys! No can do!
 4590 m$(39)="Uggghhhh! It's terrible!
 4600 m$(40)="I think we're on our way to Kakrafoon...
 4610 m$(41)="The Suntiger screamed,covered his three ears and ran off
 4620 m$(42)="I think we're on our way to Betelgeuse..
 4630 m$(43)="{down}Bugblatter Beast wolfs steak and falls  asleep
 4640 m$(44)="It would help if we had a weapon!
 4650 m$(45)="Myself? You? I can't read minds,guys!
 4660 m$(46)="Dangerous! It's too close to us!
 4670 m$(47)="Varrrrooommmppphhh! One Vogon less!
 4680 m$(48)="Varoooommmphh!!
 4690 m$(49)="Whoooommmmppphhhhh! We just vapourised
 4700 m$(50)="{down}Shame the neutrons here are unwrangled
 4710 m$(51)="{down}Deep Thought rumbles and booms out      "
 4720 m$(51)=m$(51)+"{orng}Arkleseizures are heavy drinkers"+nm$
 4730 m$(52)="An inscription says
 4740 m$(52)=m$(52)+chr$(13)+"{down}{orng}Hyperbolic Omni-cognate Neutron Wrangler"+nm$
 4750 m$(53)="{down}Whoops! A Vogon just came round the     corner and spotted us!
 4760 m$(54)="{down}The Vogon is firing his 30-Megahurt     "
 4770 m$(54)=m$(54)+"Definit-Kil Photrazon Cannon...................
 4780 m$(54)=m$(54)+"We're blasted into space!!
 4790 m$(55)="It says {orng} DON'T PANIC "+nm$
 4800 m$(56)="Burp! That was delicious!
 4810 m$(57)="{down}Sorry,guys,we just ran out of oxygen!{down}{down}"
 4820 m$(58)="{down}The Babel fish eats the chocolate and   starts singing!
 4830 m$(59)="An intoxicated Babel fish
 4840 m$(60)="{down}Gollee,isn't it gloomy
 4850 m$(61)="We can't get past this fat elephant
 4860 m$(62)="{down}Mouse squeals in terror and exits left  {down}pursued by elephant!
 4870 m$(63)="{down}Gun just exploded into fragments!
 4880 m$(64)="Mouse says"+chr$(13)+   "{down}{orng} Dry up,Earthling,I'm going nowhere!"+nm$
 4890 m$(65)="{down}Mouse takes a bath in the tea,drinks it and sighs contentedly
 4900 m$(66)="{down}Mouse scampers off
 4910 m$(67)="{down}Dispenser says {orng} Share and enjoy "+nm$+"and     gives us "
 4920 m$(68)="{down}Dispenser says {orng} Thanks for the money "+nm$
 4930 input"{down}{down}{rvon} O.K.gang,shall we begin {rght}{rght}{rght}*{left}{left}{left}";a$
 4940 ifleft$(a$,1)<>"y"thena$="y":goto850
 4950 return
 4960 input"{down}{down}Play again";a$
 4970 ifleft$(a$,1)="y"thenrun
    0 clr:poke59468,12:pk=12
    1 rem hi calc copyright (c) 1979 glen fisher
    7 :
    8 rem cursor #11, june, 1979
    9 :
   10 rem as of july 5, 1979
   90 gosub62000
  100 qv=1:qm=134:ifpeek(50000)thenqm=52:qv=2
  200 pr=40:ifpeek(qm+1)>=64thenpr=228
  210 ifpr>127andqv=1thenpr=127
  220 pl=5:mx=1000
  250 dima%(pr+pr+1),e%(pr+1)
  260 gosub1700
 1000 gosub35000
 1010 gosub29000
 1100 print"{down}.,+,-,*,/,= ? ";:gosub60000:print
 1110 iflen(in$)<>1then1100
 1120 fori=1to7:ifin$=mid$(".+-*/=?",i,1)then1200
 1130 nexti:goto1100
 1200 op=i:ifop=1thenprint"how many decimal places?"
 1201 ifop=7thengosub1700:goto1100
 1205 gosub35000
 1210 onopgosub1500,6000,5000,7000,8000,1300
 1220 ifop<>1thenprint"  =":gosub36000
 1230 goto1100
 1300 fori=1toel:a%(i)=e%(i):nexti
 1310 as=es:ai=ei:af=ef:al=el
 1320 return
 1500 n=pl:ifel=0thenpl=0:goto1560
 1520 ifef>0thenprint"use integers, please.":return
 1530 ifei>2thenprint"can't keep that many places.":return
 1540 t=es*e%(1):ifei=2thent=t+mx*e%(2)
 1545 t=t/3:pl=int(t)
 1550 ifpl<>tthenpl=pl+1:print"adjusting to";:t=pl*3:gosub1590
 1560 print"was";:t=n*3:gosub1590:return
 1590 printleft$(" -",2+(t>=0));mid$(str$(t),2);" places.":return
 1700 print"{down} functions:
 1710 print"{down}.  set carried decimal places
 1720 print"{down}=  start new calculation
 1730 print"{down}+,-,*,/
 1740 print"{down}   add,subtract,multiply,divide
 1745 print"{down}?  prints this message
 1750 print"{down}#? means 'type a number'
 1760 print"{down}precision is";pr*3;"digits."
 1770 print"carrying at most";3*pl;"decimal places."
 5000 es=-es
 6000 ifai+ef>prandel>0thenn=pr-ai:gosub28500
 6010 ifei+af>prandal>0thenn=pr-ei:gosub28000
 6013 ifal=0thengosub29000
 6016 ifel=0then6110
 6020 ifaf>efthenn=af:gosub27100
 6030 ifef>afthenn=ef:gosub27000
 6040 ifai>eithenn=ai:gosub27600
 6050 ifei>aithenn=ei:gosub27500
 6060 c=0:ifas<>esthen6200
 6070 fori=1toal:s=a%(i)+e%(i)+c
 6080 c=0:ifs>=mxthenc=1:s=s-mx
 6090 a%(i)=s:nexti
 6100 ifc>0thenal=al+1:ai=ai+1:a%(al)=c
 6110 gosub28100:n=pr-ai:gosub28000:return
 6200 ifa%(al)<e%(el)thengosub29000
 6210 fori=1toal:d=a%(i)-e%(i)-b
 6220 b=0:ifd<0thend=d+mx:b=1
 6230 a%(i)=d:nexti
 6240 c=0:goto6100
 7000 ifal=0orel=0thenal=0:ai=0:af=0:return
 7100 fori=alto1step-1:a%(i+el)=a%(i):nexti
 7110 fori=1toel:a%(i)=0:nexti
 7120 fori=1toal:m=a%(i+el):c=0
 7125 printmid$("{rvon}*",1+(iand1));"{rvof}{left}";
 7130 forj=1toel:t=i+j-1
 7140 s=a%(t)+e%(j)*m+c:c=int(s/mx):s=s-mx*c
 7150 a%(t)=s:nextj
 7160 a%(i+el)=c:nexti
 7170 al=al+el:af=af+ef:ai=ai+ei:as=as*es
 7180 gosub28100:n=pr-ai:gosub28000
 7190 return
 8000 ifel=0thenprint"division by zero not allowed!":return
 8010 ifal=0thenreturn
 8020 ifel=1andei=1ande%(1)=1then8450
 8030 ifel=1thenn=ef+1:gosub27100
 8040 n=pl+ef:ifpl>prthenn=pr+el-ai
 8045 n=n+1:gosub27000
 8050 v0=el+1:v1=el:v2=el-1
 8100 d=int(mx/(e%(v1)+1)):c=0:ifd=1then8140
 8120 fori=1toel:s=e%(i)*d+c:c=int(s/mx):e%(i)=s-mx*c:nexti
 8125 ifc<>0thenstop
 8130 fori=1toal:s=a%(i)*d+c:c=int(s/mx):a%(i)=s-mx*c:nexti
 8140 al=al+1:ai=ai+1:a%(al)=c
 8200 forj=altov0step-1
 8205 printmid$("{rvon}/",1+(jand1));"{rvof}{left}";
 8210 qt=mx-1:t=a%(j)*mx+a%(j-1)
 8220 ifa%(j)<>e%(v1)thenqt=int(t/e%(v1))
 8230 ifqt*e%(v2)>(t-qt*e%(v1))*mx+a%(j-2)thenqt=qt-1:goto8230
 8240 z=1:c=0:fori=elto1step-1
 8250 s=a%(j-i)-qt*e%(v0-i)+c
 8260 c=int(s/mx):s=s-c*mx
 8265 z=zand(s=0)
 8270 a%(j-i)=s:nexti
 8275 ifzandc=0then8400
 8280 a%(j)=a%(j)-c:ifa%(j)>=0then8330
 8290 c=0:fori=elto1step-1
 8300 s=a%(j-i)+qt*e%(v0-i)+c
 8310 c=int(s/mx):s=s-c*mx
 8320 a%(j-i)=s:nexti:qt=qt-1
 8330 a%(j)=qt
 8340 nextj:j=v0-1
 8400 fori=1toj:a%(i)=0:nexti
 8410 ai=ai-ei:af=af+ei:as=as*es
 8450 gosub28100:n=pl:z=pr-ai:ifn>zthenn=z
 8470 gosub28000:return
 27000 ifaf>=nthenreturn
 27010 dl=n-af:ifal>0thenforz=alto1step-1:a%(z+dl)=a%(z):nextz
 27020 forz=1todl:a%(z)=0:nextz
 27030 al=al+dl:af=af+dl
 27040 ifal=0thenaf=ef:ai=-af
 27050 return
 27100 ifef>=nthenreturn
 27110 dl=n-ef:ifel>0thenforz=elto1step-1:e%(z+dl)=e%(z):nextz
 27120 forz=1todl:e%(z)=0:nextz
 27130 el=el+dl:ef=ef+dl
 27140 ifel=0thenef=af:ei=-ef
 27150 return
 27500 ifai>=nthenreturn
 27510 dl=n-ai:forz=al+1toal+dl:a%(z)=0:nextz
 27520 al=al+dl:ai=ai+dl:return
 27600 ifei>=nthenreturn
 27610 dl=n-ei:forz=el+1toel+dl:e%(z)=0:nextz
 27620 el=el+dl:ei=ei+dl:return
 28000 ifaf<=nthenreturn
 28005 print"{rvon}rounding!"
 28010 if-ai>nthenaf=-ai:al=0:goto28100
 28020 c=0:dl=af-n:ifa%(dl)>=mx/2thenc=1
 28030 ifdl>=althen28070
 28040 forz=dl+1toal
 28050 s=a%(z)+c:c=0:ifs>=mxthenc=1:s=s-mx
 28060 a%(z-dl)=s:nextz
 28070 ifc>0thenal=al+1:ai=ai+1:a%(al-dl)=c
 28080 al=al-dl:af=af-dl
 28100 ifal>0anda%(al)=0thenai=ai-1:al=al-1:goto28100
 28110 dl=0
 28120 dl=dl+1:ifa%(dl)=0anddl<=althen28120
 28140 dl=dl-1:ifdl<alanddl>0thenforz=dl+1toal:a%(z-dl)=a%(z):nextz
 28150 af=af-dl:al=al-dl:return
 28500 gosub29000:gosub28000:gosub29000
 28520 return
 28600 gosub29000:gosub28100:gosub29000:return
 29000 t=al:ift<elthent=el
 29010 forz=1tot:t=a%(z):a%(z)=e%(z):e%(z)=t:nextz
 29020 t=al:al=el:el=t::t=ai:ai=ei:ei=t::t=af:af=ef:ef=t::t=as:as=es:es=t
 29030 return
 33000 ift>len(in$)thene=-1:return
 33010 z$=mid$(in$,t,1):t=t+1
 33020 ifz$<"0"orz$>"9"then33000
 33050 e$=e$+z$:iflen(e$)<3then33000
 33060 e=val(e$):return
 34000 t=0:dp$=".":fori=1tolen(in$)
 34010 z$=mid$(in$,i,1):ifz$>="0"andz$<="9"thent=t+1:goto34040
 34020 ifz$=dp$thendp=t:dp$="":t=0:goto34040
 34030 ifz$<>","thenprint"no ";z$;"'s, please":dp=-1:return
 34040 nexti:ifdp$<>""thendp=t
 34050 return
 35000 print"{down}#?";:el=0
 35010 nn=1:gosub60000:nn=0:ifin$=""then35010
 35020 print:es=1:ifleft$(in$,1)="-"thenes=-1:in$=mid$(in$,2)
 35030 gosub34000:ifdp<0then35000
 35035 n=pr+1:el=n:ei=int((dp+2)/3):ef=el-ei
 35060 t=1:e$=mid$("00",dp-ei*3+3)
 35070 gosub33000:ife<0then35100
 35080 e$="":ife=0andn=elthenei=ei-1:ef=ef+1:goto35070
 35090 e%(n)=e:n=n-1:ifn>0then35070
 35100 e$=left$(e$+"000",3):e%(n)=val(e$):n=n-1
 35110 dl=n:ifdl<=0then35130
 35120 el=el-dl:ef=ef-dl:fori=1toel:e%(i)=e%(i+dl):nexti
 35130 gosub29000:gosub28100:n=pr-ai:ifal>0thengosub28000
 35140 gosub29000
 35150 return
 36000 ifal=0thenprint"   0":return
 36010 t=al:printmid$("-  ",2+as,1);
 36020 ifai<1thenprint"  0";:goto36100
 36030 zz=-af:ifzz<0thenzz=0
 36040 printright$(" "+str$(a%(t)),3);:t=t-1
 36050 ifzz<ai-1thenforz=zz+1toai-1:n=a%(t):t=t-1:gosub36200:print",";n$;:nextz
 36060 ifzz>0thenforz=1tozz:print",000";:nextz
 36100 ifaf<1then36150
 36110 print".";:zz=-ai:ifzz<0thenzz=0
 36120 ifzz>0thenforz=1tozz:print"000 ";:nextz
 36130 ifzz<af-1thenforz=zz+1toaf-1:n=a%(t):t=t-1:gosub36200:printn$;" ";:nextz
 36140 n=a%(t):gosub36200:gosub36300:print;n$;
 36150 print:return
 36200 n$=mid$(str$(n),2):iflen(n$)<3thenn$=right$("00"+n$,3)
 36205 ifn<0thenn$="-"+n$
 36210 iflen(n$)>3thenn$="{CBM-L}{rvon}"+mid$(n$,1,len(n$)-3)+"{rvof}{CBM-J}"+right$(n$,3)
 36220 return
 36300 ifn$<>"0"andright$(n$,1)="0"thenn$=left$(n$,len(n$)-1):goto36300
 36310 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 ifnnand(z$<"0"orz$>"9")andz$<>","andz$<>"."andz$<>"-"then60020
 60090 ifzl>252then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:print:return
 62000 pg$="hi calc":nm$="11"
 62010 print"{clr}";tab(9);"cursor #11   ";pg$
 62020 print"{down} copyright (c) 1979   by glen fisher{down}
 62025 gosub60500
 62030 print"{down}a high precision calculator
 62040 print"{down}{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:goto100
    0 clr:poke59468,12
    1 rem hangman copyright (c) 1978 glen fisher
    2 rem cursor #5, november 1978
    3 rem box 550, goleta, ca. 93017
   10 rem as of 7 apr 80
   90 pg$="hman":gosub62000
  100 print
 1000 wc=0
 1010 readt$:ift$<>""thenwc=wc+1:goto1010
 1020 print"{down}how many wrong guesses should i allow":print "you? ";
 1030 gosub60000:ifin$=""thenlim=1e2:goto1500
 1040 fori=1tolen(in$):t$=mid$(in$,i,1):ift$>="0"andt$<="9"then1060
 1050 print"no ";t$;"'s, please.":goto1020
 1060 nexti
 1070 lim=val(in$)
 1080 iflim<1thenprint"nobody can be that good!":goto1020
 1500 t=int(rnd(1)*wc)+1:restore:fori=1 tot:readw$:nexti
 1510 ln=len(w$):lc=ln:bl$=mid$(" ",2-(ln and 1))
 1520 wr=0:print
 2000 print:print"{clr}";tab(14);"{CBM-W}the";bl$;" word{CBM-Q}"
 2010 ind=(39-ln*3)/2:printtab(ind);
 2020 fori=1toln
 2030 print"{CBM-A}{SHIFT-*}{CBM-S}{left}{left}{left}{down}{SHIFT--}?{SHIFT--}{left}{left}{left}{down}{CBM-Z}{SHIFT-*}{CBM-X}{up}{up}";
 2040 nexti:print
 2050 print"{down}{down}{down}{down} 0 wrong: "
 2060 print"{down}    left: abcdefghijklmnopqrstuvwxyz"
 2070 print"{down}    used:"
 3000 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}   guess: ";
 3005 printleft$("                                        ",len(l$)+1)
 3006 print"{up}   guess: ";:gosub60000:l$=in$
 3010 iflen(l$)>1then4000
 3012 ifin$=""then4010
 3015 ifl$<"a"orl$>"z"then3000
 3016 ifpeek(32768+8*40+9+asc(l$)-64)=32 then3000
 3020 m=0:print:print"{home}{down}";tab(ind);
 3030 fori=1toln
 3040 ifmid$(w$,i,1)<>l$thenprint"{rght}{rght}{rght}";:goto3060
 3050 print"{CBM-D}{CBM-I}{CBM-F}{left}{left}{left}{down}{rvon}{CBM-K}";l$;"{rvof}{CBM-K}{left}{left}{left}{down}{CBM-C}{rvon}{CBM-I}{rvof}{CBM-V}{up}{up}";:m=m+1:lc=lc-1
 3060 nexti:print
 3080 ifm>0then3100
 3090 wr=wr+1:print:print"{home}{down}{down}{down}{down}{down}{down}";right$(str$(wr),2);tab(wr+9);l$
 3100 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}";tab(9+asc(l$)-64);" {left}{down}{down}";l$
 3110 iflc=0then5000
 3120 ifwr<limthen3000
 3130 print:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you're hung!";bl$;" the word is"
 3140 goto4010
 4000 ifw$<>l$then3000
 4010 print:print"{home}{down}";tab(ind);
 4020 for i=1 to ln
 4030 :print "{CBM-D}{CBM-I}{CBM-F}{left}{left}{left}{down}{rvon}{CBM-K}";mid$(w$,i,1);"{rvof}{CBM-K}{left}{left}{left}{down}{CBM-C}{rvon}{CBM-I}{rvof}{CBM-V}{up}{up}";
 4040 nexti
 5000 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}again? ";
 5010 gosub60000:in$=left$(in$,1)
 5020 ifin$="y"orin$=""then1500
 5030 end
 9997 goto1500
 9998 print:print
 9999 end
 30000 rem
 30010 datamatrimonial,magistrate,loudspeaker,quiescent,quinine,kidney,dirty
 30020 datasynthesizer,personal,computer,gum,sin,for,cry,lug,bye,fly,ugly
 30030 dataeach,from,with,work,talk,self,pizza,thing,feign,fiend,elbow,fault
 30040 databudget,spirit,quaint,maiden,escort,pickax,example,tension,replica
 30050 datasleeper,triangle,kangaroo,mahogany,sergeant,sequence,moustache
 30060 datadangerous,scientist,different,erroneously,absence,accrual,alter
 30070 dataadvantageous,analysis,anxious,apologize,apostrophe,ascertain
 30080 databelieve,bookkeeping,bankruptcy,calendar,campaign,cite,concede,concur
 30090 dataconscientious,crystallize,exaggeration,exhaust,exhibit,facsimile
 30100 dataflexible,fluorescent,grippe,hardware,software,firmware,incandescent
 30110 dataitinerary,linoleum,ligature,manuscript,mediocre,miscellaneous
 30120 datanucleus,obsolescent,overwhelm,oxidize,pamphlet,parentheses
 30130 dataimpertinent,preliminary,privilege,questionnaire,rectify,statute
 30140 datasurmise,technical,testimonial,unparalleled,vendor,ventilator
 30150 datavisible,watermark,wharf,yardstick,zealous
 39000 data""
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0thengoto60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1978    page";pn;"{down}"
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto 100
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 nm$="5":lp=1
 62010 print"{clr}{down}{down}";tab(9);"cursor #5  hman"
 62011 print"{down}copyright (c) 1978  by glen fisher":gosub 60500
 62015 print"{down}a word guessing game
 62020 print"{down}{down}want directions? ";:gosub60000
 62025 ifleft$(in$,1)="y"thengoto62030
 62027 print"{clr}":return
 62030 gosub60200
 62035 gosub 60500
 62040 print"how good is your vocabulary? how well
 62050 print"can you spell?
 62060 print"{down}first,{$a0}choose how many mistakes
 62070 print"you are to be allowed. if you
 62075 print"are a beginner, just press{$a0}return,
 62076 print"and there won't be a limit!
 62080 print"{down}the program then displays as many
 62090 print"empty squares as there are letters
 62100 print"in the word. it keeps track of which
 62110 print"letters you have used, and shows you
 62120 print"where correct letters appear.
 62130 print"{down}at any time, you can type in the
 62140 print"entire word if you think you know it.
 62145 print"if you want to know what the word is,
 62147 print"just press return.
 62150 gosub 60500:gosub60200
   10 rem
   20 rem
   30 rem
   40 rem
   50 rem maschienenprogramm screen rev.
   60 rem
   70 forx=900to937:readp:pokex,p:next
   80 data162,0,189,0,128,73,128,157,0,128,189,0,129,73,128,157,0,129,189,0,130
   90 data73,128,157,0,130,189,0,131,73,128,157,0,131,232,208,221,96
  100 poke 59467,16:poke59466,15:poke59464,0
  110 print"{clr}":j=0
  120 forx=32768to32807:pokex,127:next
  130 forx=33728to33767:pokex,127:next
  140 forx=32768to33728step40:pokex,127:next
  150 forx=32807to33767step40:pokex,127:next
  160 a$="Hockenheimrennen":f=1
  170 poke59468,14
  180 au=33667
  190 b$="{rvon}Hockenheimrennen{rvof}"
  200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$:poke59464,150
  210 ga=1
  220 ga=ga+1:ifga<4then220
  230 f=f+1:iff=30then310
  240 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"b$:poke59464,250
  250 gb=1
  260 ti$="000000"
  270 gb=gb+1:ifgb<4then270
  280 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}Copyright{rvof}"
  290 print"{down}{rght}{rght}Peter Sparlinek"
  300 goto200
  310 print"{clr}":poke59464,0
  320 forx=32768to32807:pokex,58:next
  330 forx=33728to33767:pokex,58:next
  340 forx=32768to33767step40:pokex,58:next
  350 forx=32807to33767step40:pokex,58:next
  360 forx=32769to33729step40:pokex,58:next
  370 forx=32806to33766step40:pokex,58:next
  380 input"{home}{down}{down}{down}{down}{rght}{rght}Wie heissen Sie   {rght}{rght}{rght}";n$
  390 print"{home}{down}{down}{down}{down}{down}::               "
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}Brauchen Sie die Spielanleitung?":getop$
  410 ifop$=""then400
  420 print"{down}{down}{rght}{rght}Haben Sie einen {rvon}Lautsprecher{rvof}"
  430 print"{down}{rght}{rght}angeschlossen?"
  440 geto$:ifo$=""then440
  450 ifo$<>"j"ando$<>"n"then440
  460 print"{down}{down}{down}{rght}{rght}Schwierigkeitsgrad (1-5) ?"
  470 getc$:ifc$=""then470
  480 ifc$="1"thenld=9000:goto550
  490 ifc$="2"thenld=7000:goto550
  500 ifc$="3"thenld=5000:goto550
  510 ifc$="4"thenld=3000:goto550
  520 ifc$="5"thenld=1000:goto550
  530 ifld=0then470
  540 goto470
  550 ifop$="n"then1070
  560 print"{clr}":fors=32768to32807step1:pokes,99:next
  570 fors=33728to33768:pokes,100:next
  580 fors=32768to33728step40:pokes,23:next
  590 fors=32807to33768step40:pokes,23:next
  600 :
  610 :
  620 rem erklaerung
  630 :
  640 :
  650 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-B}{CBM-B}{CBM-B}{rvof} Rennregeln {CBM-B}{CBM-B}{CBM-B}"
  660 print"{down}{down}w  Sie  sind bei diesem Rennen"
  670 print"w  ein Rennfahrer.Sie ligen in der"
  680 print"w  Weltrangliste an 2.Stelle."
  690 print"w  Kommen Sie {rvon}heil{rvof}"
  700 print"w  durchs Ziel,so gewinnen Sie den"
  710 print"w  {rvon}Worldcup der Rennwagenfahrer{rvof}."
  720 print:print"w  Sie muessen {rvon}10{rvof} Runden fahren."
  730 print:print:print:print:print:print:print
  740 print"w  (druecken Sie irgend eine Taste)"
  750 getav$:ifav$=""then750
  760 print"{clr}{down}{down}         ### {rvon}Steuerung{rvof} ###
  770 print"{down}{down}{down}          7     8     9"
  780 print"{down}           \    {SHIFT--}    /"
  790 print
  800 print"         4-     *     -6
  810 print:print"           /    {SHIFT--}    \"
  820 print:print"          1     2     3"
  830 print:print:print:print"  Sie steuern mit den oben angegebenen"
  840 print"  Zahlen.Die Striche geben jeweils"
  850 print"  die Aenderung der Fahrtrichtung an."
  860 print:print"       (Weiter mit 'Shift')":wait152,1
  870 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}           >>> {rvon}Beschleunigung{rvof} <<<"
  880 print"{down}{down}{rght}Sie koennen ihr auto durch "
  890 print"{rght}Druecken der Taste {rvon}G{rvof} beschleunigen,"
  900 print"{rght}aber {rvon}Achtung{rvof} :"
  910 print"{rght}Sie duerfen nicht mit mehr als 270 km/h"
  920 print"{rght}in die Kurve gehen!!!"
  930 print:print:print:print"     (Weiter mit 'Space')":wait59410,4,4
  940 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}     {rght}[[[ {rvon}Bremsen{rvof} ]]]"
  950 print:print"{down}Das wichtigste Teil in Auto"
  960 print"nach der Hupe."
  970 print"{down}Sie koennen Bremsen,wenn"
  980 print"{rght}Sie die Taste {rvon}B{rvof} druecken."
  990 print"{rght}{rvon}Aber{rvof} nicht in der Kurve bremsen,"
 1000 print"{rght}wenn Sie {rvon}ueber{rvof} 70km/h haben."
 1010 print:print" ))) {rvof}Schleudergefahr{rvof} ((("
 1020 print:print:print:print:print"Wenn sie alles kapiert haben"
 1030 print"und das Spiel starten soll,dann"
 1040 print"druecken sie auf {rvon}S{rvof} !!!"
 1050 print"{down}Versuchen sie moeglichst schnell zu fah-ren!"
 1060 gets$:ifs$<>"s"then1060
 1070 poke59468,12
 1080 print"{clr}":rem alle pokes geloescht    63 sys(56222)
 1090 :
 1100 :
 1110 rem fahrbahn
 1120 :
 1130 :
 1140 poke59468,12
 1150 reada:ifa=0then 1280
 1160 readb
 1170 forx=atob:pokex,160:next
 1180 goto 1150
 1190 data32821,32843,32860,32884,32899,32925
 1200 data32938,32966,32971,32980,33002,33006
 1210 data33010,33019,33042,33045,33049,33058
 1220 data33081,33084,33108,33123,33147,33162
 1230 data33186,33201,33226,33230,33267,33271
 1240 data33308,33323,33349,33364,33390,33405
 1250 data33609,33640,33650,33681,33691
 1260 data33725,33761,33764,33595,33599,33556,33558
 1270 data33684,33686,33682,33683,0
 1280 readc:readd:ifc=0then1330
 1290 forx=ctodstep40:pokex,160:next
 1300 goto1280
 1310 data33089,33569,33090,33570,33091,33571,33092,33572
 1320 data33444,33644,33445,33645,33446,33646,33443,33643,0,0
 1330 readz:ifz=0then1370
 1340 pokez,32:goto1330
 1350 data33637,33676,33677,33678,33715,33716
 1360 data33717,33718,33719,0
 1370 forx=33625to33705step40:pokex,102:next
 1380 rz=1:g=20:ti$="000000"
 1390 forx=33294to33306:pokex,102:next
 1400 forx=33534to33546:pokex,102:next
 1410 forx=33334to33494step40:pokex,102:next
 1420 forx=33346to33506step40:pokex,102:next
 1430 rem
 1440 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(7)"km/h):"g
 1450 print"{down}"tab(7)"runden:"j
 1460 print"{down}"tab(7)"zeit:{rght}{rght}m{rght}{rght}j"
 1470 getm$:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(12)mid$(ti$,3,2)"m"right$(ti$,2)"s"
 1480 :
 1490 rem
 1500 :
 1510 ifm$=""then gosub 1710
 1520 ifm$="1"thengosub3550:gosub1790
 1530 ifm$="2"thengosub3550:gosub1800
 1540 ifm$="3"thengosub3550:gosub1810
 1550 ifm$="4"thengosub3550:gosub1820
 1560 ifm$="6"thengosub3550:gosub1830
 1570 ifm$="8"thengosub3550:gosub1840
 1580 ifm$="9"thengosub3550:gosub1850
 1590 ifm$="7"thengosub3550:gosub1860
 1600 ifm$="g"thengosub3560:gosub1870
 1610 ifm$="b"thengosub3570:gosub2560
 1620 :
 1630 rem  controlle
 1640 rem verlasse strecke
 1650 :
 1660 ifpeek(au-1)=102then3280
 1670 ifpeek(au+rz)<>160andpeek(au+rz)><102then1940
 1680 ifpeek(au+1)=102then2840
 1690 gosub3240
 1700 goto1470
 1710 ifg=0then return
 1720 pokeau,160:au=au+rz:pokeau,209
 1730 mv=int(ld/g)
 1740 forx=0tomv:next
 1750 return
 1760 :
 1770 rem richtungs aenderung
 1780 :
 1790 rz=39:gosub1710:return
 1800 rz=40:gosub1710:return
 1810 rz=41:gosub1710:return
 1820 rz=-1:gosub1710:return
 1830 rz=1:gosub1710:return
 1840 rz=-40:gosub1710:return
 1850 rz=-39:gosub1710:return
 1860 rz=-41:gosub1710:return
 1870 g=g+20:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(12)"     {rght}{rght}{rght}{rght}{rght}"g" {rght}"
 1880 gosub1710
 1890 ifg<270thenreturn
 1900 ifrz=39orrz=-39then1960
 1910 ifrz=41orrz=-41then1960
 1920 ifg<400thenreturn
 1930 goto2780
 1940 pokeau,32:au=au+rz:pokeau,209:forpt=0to300:next
 1950 fort=0to14:sys900:foru=0to100:nextu,t
 1960 k=int(rnd(ti)*5):ifk=othenk$="+ t o t +":z=1
 1970 ifk=1thenk$="+ t o t +"
 1980 ifk=2thenk$="schwerverletzt"
 1990 ifk=3thenk$="verschmort"
 2000 ifk=4thenk$="unverletzt"
 2010 ifk=5thenk$="leicht verletzt"
 2020 poke59468,14:print"{clr}Ihr Wagen kommt von der "
 2030 ue=int(rnd(ti)*20)
 2040 print:print"Strecke ab und ueberschlaegt"
 2050 print:print"sich "ue" mal!"
 2060 print:print"Sie sind:"
 2070 print:printk$:f=1
 2080 f=f+1:iff<2then2080
 2090 ifk$><"+ t o t +"then 2500
 2100 f=f+1:iff>200then2120
 2110 goto2100
 2120 poke59468,12:print"{clr}{down}"
 2121 print"         {CBM-@}{CBM-@}{CBM-@} "
 2122 print"        N  N{CBM-G}"
 2130 print"        {rvon}{CBM-A}{SHIFT-*}{CBM-S}{rvof} {CBM-G}"
 2140 print"        {rvon}{SHIFT--}X{SHIFT--}{rvof} L{CBM-@}{CBM-@}{CBM-@}"
 2150 print"    N{CBM-T}{CBM-T}{CBM-T}{rvon}{SHIFT--} {SHIFT--}{rvof}N   N{CBM-G}"
 2160 print"    {rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}r{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof} {CBM-G}"
 2170 print"    {rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}N "
 2180 print"        {rvon}{SHIFT--}i{SHIFT--}{rvof} {CBM-G}"
 2190 print"        {rvon}{SHIFT--}{$a0}{SHIFT--}{rvof} {CBM-G}"
 2200 print"        {rvon}{SHIFT--}p{SHIFT--}{rvof} {CBM-G}"
 2210 print"        {rvon}{SHIFT--} {SHIFT--}{rvof} {CBM-G}"
 2220 print"        {rvon}{SHIFT--}X{SHIFT--}{rvof} {CBM-G}"
 2230 print"        {rvon}{SHIFT--}{$a0}{SHIFT--}{rvof} {CBM-G}"
 2240 print"        {rvon}{SHIFT--}{$a0}{SHIFT--}{rvof} {CBM-G}"
 2250 print"        {rvon}{CBM-Z}{SHIFT-*}{CBM-X}{rvof}N "
 2260 print:print"  hier ruht "n$
 2270 r=rnd(ti)*5:r=int(r*100)/100:ifr<3then2270
 2280 print:print"er hatte "r" promille!"
 2290 k=59464:s=211
 2300 :
 2310 rem peekethovens 5te
 2320 :
 2330 pokek,140:gosub2460:pokek,140:gosub2460:pokek,140:gosub2460
 2340 pokek,177:gosub2480:pokek,157:gosub2460:pokek,157:gosub2460
 2350 pokek,157:gosub2460:pokek,188:gosub2480:pokek,188:gosub2460
 2360 pokek,188:gosub2460:pokek,188:gosub2460:pokek,140:gosub2480
 2370 pokek,140:gosub2460:pokek,140:gosub2460:pokek,140:gosub2460:pokek,211
 2380 fori=0to200:next
 2390 pokek,s:w=s
 2400 fors=wto254:pokek,s:fortt=1to50:nexttt,s
 2410 pokek,0:goto2550
 2420 sa=255
 2430 ifs<255then pokek,s
 2440 s=s+1:ifs<=1then2550
 2450 goto2430
 2460 forx=0to200:next:gosub2470:return
 2470 poke59464,0:forx=0to75:next:return
 2480 forx=0to350:next:gosub2490:return
 2490 poke59464,0:fortx=0to400:next:return
 2500 ff=1
 2510 poke59464,117:forx=0to200:next
 2520 poke59464,88:forx=0to200:next:ff=ff+1
 2530 ifff>=6then2550
 2540 goto2510
 2550 goto3150
 2560 b=20
 2570 ifg<70then2600
 2580 ifrz=39orrz=-39then2630
 2590 ifrz=41orrz=-41then2630
 2600 ifg=0thenreturn
 2610 gosub1710
 2620 g=g-b:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(12)"     {rght}{rght}{rght}{rght}{rght}"g" {rght}":return
 2630 poke59468,14:print"{clr}Da Sie in der Kurve"
 2640 k=int(rnd(ti)*5):ifk=othenk$="+ t o t +":z=1
 2650 ifk=1thenk$="+ t o t +"
 2660 ifk=2thenk$="Invalide"
 2670 ifk=3thenk$="Krueppel"
 2680 ifk=4thenk$="unverletzt"
 2690 ifk=5thenk$="Gehirnamputierter"
 2700 print:print"gebremst haben,kommen"
 2710 print:print"Sie ins schleudern,prallen"
 2720 print:print"gegen die Leitplanke und"
 2730 print:print"der Wagen faengt Feuer.":z=4
 2740 print:print"Aber sie haben Glueck."
 2750 print:print"Sie sind (nur)" k$
 2760 ifk$="+ t o t +"then 2090
 2770 end
 2780 poke59468,14:print"{clr}{down}{down}{rght}{rght}{rvon}Getriebe kaputt{rvof}"
 2790 print"{rght}{rght}{down}{down}Leider haben Sie durch ihren "
 2800 print"{down}{down}{rght}{rght}Defekt den Weltmeistertitel"
 2810 print"{down}{rght}{rght}verloren"
 2820 print"{down}{down}{down}{down}{rght}{rght}Wenn Sie nochmal fahren wollen"
 2830 print"{down}{rght}{rght}muessen Sie {rvon}RUN{rvof} eingeben!!!":end
 2840 j=j+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(14)""j:ifj>10then2860
 2850 goto3210
 2860 poke59468,12:xu=1:print"{clr}{down}{down}{down}{down}"
 2870 print"             {CBM-@}{rvon}     {rvof}{CBM-@}"
 2880 print"            / {rvon}world{rvof} \"
 2890 print"            {CBM-G} {rvon}     {rvof} {CBM-M}"
 2900 print"            \ {rvon} cup {rvof} /"
 2910 print"             {CBM-T} {rvon}   {rvof}"
 2920 print"                {rvon} {rvof} "
 2930 print"                {rvon} {rvof} "
 2940 print"               {rvon}   {rvof} "
 2950 print"              {rvon}     {rvof}"
 2960 print"      {down}{down}der world-cup sieger heisst:"
 2970 print"{rvon}";n$
 2980 rl=int(rnd(ti)*9)+1
 2990 ifrl<5then3010
 3000 ifrl>=5then3060
 3010 poke59464,237:gosub2460:poke59464,188:gosub2460
 3020 poke59464,157:gosub2460:poke59464,117:gosub2480
 3030 xu=xu+1:ifxu=3thenpoke59467,0:goto3150
 3040 goto 3010
 3050 ifo$="n"then3090
 3060 ifo$="j"then3080
 3070 poke59468,14
 3080 ab=1:print"{down}{down}{down}{rght}{rght}{rght}(Ich bringe ihnen ein staendchen)"
 3090 aa=int(rnd(ti)*254)+1
 3100 poke59464,aa
 3110 ab=ab+1:ifab=50then3150
 3120 f=1
 3130 f=f+1:iff<10then3130
 3140 goto3090
 3150 poke59468,14:print"{clr}{down}{down}Wollen Sie nochmal?(Y/N)"
 3160 getja$:ifja$="j"thenpoke59490,30:run
 3170 ifja$="n"then3190
 3180 goto3160
 3190 print"{clr}{down}Leben Sie wohl "n$:poke59490,30:poke59467,0:end
 3200 forl=0to60000
 3210 pokeau,160:au=au+2:pokeau,209:goto1470
 3220 rem p.sparlinek (idee)
 3230 rem a.heinrich (ausfuehrung)
 3240 ifg<270thenreturn
 3250 ifrz<>-1andrz<>1then1920
 3260 ifg>400then2780
 3270 return
 3280 print"{clr}"
 3290 poke59468,14
 3300 dd$="{rvon}Schummler{rvof}"
 3310 q$="Schummler"
 3320 f=1
 3330 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(10)dd$:f=f+1:iff=50then3350
 3340 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(10)g$:goto3330
 3350 print"{clr}{down}{down}Fahren sie eigentlich auch auf Teerstrassen rueckwaerts???!"
 3360 print"{down}{down}Bei Autorennen wird {rvon}VORWAERTS{rvof} gefahren!!"
 3370 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} O.K.?"
 3380 print"{down}{down}Programm"
 3390 print"{down}{down}         mit"
 3400 print"{down}{down}             {rvon} R u n {rvof}"
 3410 print"{down}{down}                      starten"
 3420 lu=188:
 3430 poke59464,lu
 3440 lu=lu-1:iflu<=132then3460
 3450 goto3430
 3460 lx=132
 3470 poke59464,lx
 3480 lx=lx+1:iflx>=188then3500
 3490 goto3470
 3500 h=h+1:ifh<=4then3420
 3510 poke59467,0:print"{clr}":end
 3520 :
 3530 rem piepsen
 3540 :
 3550 poke59464,211:forx=1to5:next:poke59464,0:return
 3560 poke59464,140:forx=1to5:next:poke59464,0:return
 3570 poke59464,255:forx=1to5:next:poke59464,0:return
    3 rem horserace c s.erlewine 1979
    4 gosub 1800
    5 fori=634to667:reada:pokei,a:nexti
    6 fori=670to897:reada:pokei,a:nexti
    7 fori=910to930:reada:pokei,a:nexti
   10 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   11 cl$="                                "
   20 r=rnd(-ti)
   42 fori=1to6:readhn$(i):nexti
   50 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}how many players?"
   53 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   maximum:6   "
   55 get g$:ifg$=""then 55
   58 if val(g$)<1 or val(g$)>6then 55
   60 p=val(g$)
   63 print"{clr}{down}{down}{down}{down}"
   65 fori=1top
   70 print"{down}player #"i"{left}'s name";
   75 input nm$(i)
   80 next i
   90 fori=1to6:bl(i)=100:nexti
   93 print:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof}"
   95 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT--} each of you now has $100 {SHIFT--}{rvof}"
   96 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT--}   to go to the track.    {SHIFT--}{rvof}"
   97 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
   98 fori=1to 3000:nexti
  100 forh=1to6:od(h)=int(rnd(1)*15)+2:nexth
  110 print"{clr}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof}"
  111 print"{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT--}{rvof} #      horse         odds  {rvon}{SHIFT--}{rvof}"
  112 print"{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{rvof}"
  113 fori=1to6
  114 print"{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}"i"{rvon}{SHIFT--}{rvof}               {rvon}{SHIFT--}{rvof}        {rvon}{SHIFT--}{rvof}"
  115 print"{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{rvof}"
  116 nexti
  120 fori=1to6
  123 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  125 forj=1toi:print"{down}{down}";:nextj
  126 printhn$(i)
  128 nexti
  130 fori=1to6
  133 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  134 forj=1toi:print"{down}{down}";:nextj
  135 printod(i)"- 1";
  136 nexti
  150 fori=1top
  151 printdn$;cl$:printcl$:printcl$
  153 printdn$cl$dn$"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"nm$(i)"{rvof}";
  155 print" your bet? ";
  156 gosub1600:bt(i)=val(in$)
  157 if bt(i)<1thenprintdn$cl$;:goto153
  158 if bl(i)<1andbt(i)>25thenprintdn$"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}credit limit=$25{rvof}":goto153
  159 ifbl(i)<1andbt(i)<=25then162
  160 if bt(i)>bl(i)thenprintdn$"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you only have: $"bl(i)"{rvof}":goto153
  162 printdn$"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}on horse #? ";
  163 gosub1600:bh(i)=val(in$)
  164 if bh(i)<1orbh(i)>6thenprintdn$"{down}{down}"cl$:goto162
  165 nexti
  300 print"{clr}";:gosub 800
  305 print"{home}{down}";
  310 i=1
  315 print"{rght}{rght}{rght}{rght}{rvon}"nm$(i)" on #"bh(i);
  316 i=i+1:ifi=p+1goto350
  320 printtab(20)"{rvon}"nm$(i)" on #"bh(i)
  322 i=i+1:ifi=p+1goto350
  325 goto315
  350 goto 1000
  500 gosub800
  505 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}first place:"fp
  506 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}second place:"sp
  507 print"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}third place:"tp
  510 fori=1to3000:nexti
  519 getg$:ifg$<>""then519
  520 print"{home}{down}{down}{down}{down}{down}{down}";
  525 print"{home}{down}{down}{down}{down}{down}                                        ";
  526 print"                     ":sys910
  530 sys910:fori=1top
  532 w(i)=-bt(i)
  535 if bh(i)=fp thenw(i)=bt(i)*od(fp)
  538 bl(i)=bl(i)+w(i)
  540 next i
  545 print"{home}{down}{down}{down}{down}{down}{down}{down}";
  550 for i=1top
  554 print
  555 print"{rvon}{rght}{rght}{rght}"nm$(i);"{rvof}";
  557 ifw(i)>0 then print" wins";
  558 ifw(i)<0 then print" loses ";
  560 printw(i)" new balance:"bl(i)
  565 nexti
  580 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press any key{rvof}";
  600 getg$:ifg$=""then600
  700 goto 100
  800 print"{rvof}{home} {CBM-B}{CBM-B}{rvon}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{CBM-C}{rvof}{CBM-B}{CBM-B}"
  801 fori=1to3
  802 print" {CBM-B}{CBM-B}{rvon}                                  {rvof}{CBM-B}{CBM-B}"
  803 nexti
  804 print" {CBM-B}{CBM-B}{rvon}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{rvof}{CBM-B}{CBM-B}"
  805 return
 1000 rem *** run ***
 1010 fori=662to667:pokei,0:nexti
 1020 fori=1to6:gn(i)=0:nexti
 1030 poke701,1:poke752,1:poke818,0
 1032 bx=0:tx=0:fs=0:h=0
 1065 sys(670)
 1100 fori=1to 83
 1110 lg=1-lg
 1111 iflg=1thenpoke648,77:poke649,78
 1112 iflg=0thenpoke648,78:poke649,77
 1120 h=h+1:ifh=7thenh=1
 1125 ed=0:gosub1500
 1129 bx=bx+1:ifbx=5then bx=1
 1130 poke 701,bx
 1135 tx=tx+1:iftx=17 thentx=1
 1140 poke 752,tx
 1142 ifi>80 then fs=fs+1:poke818,fs
 1144 ifi>80 thenfp=abs(i-83):poke790,fp
 1150 sys(670)
 1160 nexti
 1245 gosub 1400:ifwn=1then1300
 1250 lg=1-lg
 1252 iflg=1thenpoke648,77:poke649,78
 1253 iflg=0thenpoke648,78:poke649,77
 1255 poke701,bx:poke752,tx
 1259 ed=1
 1261 h=1:gosub1500
 1262 h=2:gosub1500
 1263 h=3:gosub1500
 1264 h=4:gosub1500
 1265 h=5:gosub1500
 1266 h=6:gosub1500
 1270 sys(670)
 1280 goto 1245
 1300 fp=0:sp=0:tp=0:f=0:s=0:t=0
 1305 fori=1to6:p(i)=gn(i):nexti
 1310 fori=1to5:forj=i+1to6
 1320 ifp(i)>p(j)then1340
 1330 z=p(i):p(i)=p(j):p(j)=z
 1340 nextj:nexti
 1345 fori=1to6
 1346 ifgn(i)=p(1)thenf=f+1:f(f)=i
 1347 ifgn(i)=p(2)thens=s+1:s(s)=i
 1348 ifgn(i)=p(3)thent=t+1:t(t)=i
 1349 nexti
 1350 fori=1tof
 1351 x=(rnd(1)*f)+1
 1352 if fp=0thenfp=f(x):goto1357
 1353 if sp=0andf(x)<>fpthensp=f(x):goto1357
 1354 if sp=0then 1351
 1355 if f(x)=fp or f(x)=sp then 1351
 1356 if tp=0 then tp=f(x):goto1399
 1357 nexti
 1359 if sp<>0 then 1369
 1360 fori=1tos
 1361 x=(rnd(1)*s)+1
 1362 if sp=0thensp=s(x):goto1367
 1363 if tp=0ands(x)<>spthentp=s(x):goto1399
 1364 if sp=0then 1361
 1367 nexti
 1369 iftp<>0then 1399
 1370 x=(rnd(1)*t)+1
 1372 ift(x)=spthen1370
 1375 tp=t(x)
 1399 goto 500
 1400 rem win chk
 1405 wn=0
 1410 for j=1to6
 1415 ifgn(j)=>33then wn=1
 1420 next j
 1430 return
 1500 rem gain
 1510 rem forh=1to6
 1525 x=int(rnd(1)*100)+1
 1530 g=int(100/od(h)+.5)
 1535 ifx<=gthengn=2
 1540 ifx>gthen gn=1
 1545 ifed=1then gn=gn+1
 1546 lk=int(rnd(1)*8):iflk=7thengn=gn+1
 1547 if od(h)>6 and int(rnd(7)*6)=3thengn=gn+1
 1550 ifgn(h)=>33thengn=0
 1555 gn(h)=gn(h)+gn
 1560 poke 661+h,gn(h)
 1565 rem next h
 1570 return
 1600 in$=""
 1605 bl=18-bl:printchr$(bl);" {rvof}{left}";:t=ti
 1610 getg$:ifg$=""andti-t<25then1610
 1615 ifg$=""then1605
 1620 ifasc(g$)=20andlen(in$)=1thenprint"{left} {left}";:goto1600
 1625 ifasc(g$)=20andin$<>""thenin$=left$(in$,len(in$)-1)
 1628 ifasc(g$)=13then print"{rvof} ":return
 1630 printg$;
 1632 in$=in$+g$
 1640 goto 1605
 1800 rem title
 1805 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1810 print"               {rvon}{SHIFT-POUND}{rvof}M    N{rvon}{CBM-*}{rvof}
 1811 print"              {rvon}{SHIFT-POUND}{rvof} {rvon} {rvof}M  N{rvon} {rvof} {rvon}{CBM-*}{rvof}"
 1812 print"              M{rvon} {rvof} {SHIFT-POUND}MN{CBM-*} {rvon} {rvof}N
 1813 print"               M{SHIFT-POUND} NM {CBM-*}N
 1820 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof}"
 1821 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT--}horserace!{SHIFT--}{rvof}"
 1822 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
 1850 return
 2000 end
 10000 rem 634-667
 10001 data 3,4,40,41,42,43,80,82,233,223,233,160,48,105,77,78
 10002 data 240,104,224,88,208,72,128,129,129,130,130,131,0,0,0,0,0,0
 10005 rem 670-893
 10006 data 169,52,141,17,232,32,186,2,32,221,2,173,50,3,240,3,32,21,3
 10007 data 32,60,3,169,60,141,17,232,96
 10008 data 160,0,162,0,224,4,240,10,169,160,153,200,128,153,192,131
 10009 data 208,10,162,0,169,215,153,200,128,153,192,131,232,200,192,40
 10010 data 208,226,96
 10011 data 169,240,133,88,169,128,133,89,169,40,133,90,169,0,133,87,160,0
 10012 data 162,0,224,16,240,6,169,32,145,88,208,6,162,0,169,93,145,88,232,200
 10013 data 192,40,208,234,230,87,169,18,197,87,240,5,32,117,3,208,217,96
 10014 data 169,0,133,90,169,21,133,88,169,129,133,89,32,117,3,169,40,133,90
 10015 data 162,18,160,0,169,127,145,88,200,192,0,208,247,32,117,3,202
 10016 data 208,239,96
 10017 data 162,0,189,138,2,133,88,189,144,2,133,89,189,150,2,133,90,32,117,3
 10018 data 142,134,2,24,169,49,109,134,2,141,134,2
 10019 data 138,72,162,0,188,122,2,189,130,2,145
 10020 data 88,232,224,8,208,243,104,170,232,224,6,208,202,96
 10021 data 216,165,90,24,101,88,133,88,144,2,230,89,96
 10022 data160,0,132,32,162,129,169,32,134,33,145,32,200,208
 10024 data251,232,224,132,208,244,96
 10100 data "man o' war",assault,whirlaway,secretariat,citation,seabiscuit
    0 print"{clr}            hunter                                  {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
    1 print"6 moves you right,4 left,8 up and 2 down"
    2 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}press a key to start"
    3 geta$:ifa$=""then3
    5 b=32808
    6 ti$="000000"
   10 print"{clr}"
   11 d=int(rnd(ti)*900)+32808
   12 g=peek(d)
   13 poked,102
   14 poke158,0
   20 geta$:poke151,255
   30 ifa$="8"thena=-40
   40 ifa$="2"thena=+40
   45 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"ti$
   50 ifa$="6"thena=+1
   60 ifa$="4"thena=-1
   65 ifa$=""thena=0
   70 ifa+b>33767ora+b<32808then20
   80 b=b+a
   85 pokeb,32:pokeb,224
   90 c=c+1
   95 ifb=dthen140
  100 ifc/30<>int(c/30)then20
  105 poked,g
  110 d=int(rnd(ti)*900)+32808
  115 g=peek(d)
  120 poked,102
  130 goto20
  140 print"{home}you did it after "ti$
  150 fore=1to520:geta$:next:run
    1 rem"originated by stephen lee"
    5 print"{clr}{down}{down}{down}{down}{down}{down}{down}
   10 printtab(16)"hurkle."
   15 print:print
   20 printtab(13)"copyright 1979"
   30 printtab(12)"hanimex pty ltd."
   50 forq=1to2000:next
  110 n=5
  120 g=10
  210 print"{home}{clr}{down}{down}"
  220 print"a hurkle is hiding on a"g"by"g"grid.
  230 print"homebase on the grid is point 0,0"
  240 print"any gridpoint is defined as x,y"
  250 print:print"you get "n"tries to guess the grid point where the hurkle is hiding"
  265 print:print"i will tell you the approx position"
  270 print"to go look for the hurkle, after each   try."
  275 print:print:print
  280 print"press any key when ready to start."
  281 gety$:ify$=""goto281
  282 goto1000
  285 r=rnd(1)
  286 a=int(g*r)
  287 r=rnd(1)
  300 b=int(g*r)
  310 for k=1 to n
  320 print"{rvon}guess #";k;"{rvof}";
  330 gety$:ify$=""goto330
  332 x=val(y$)
  335 printx;",";
  336 gety$:ify$=""goto336
  337 y=val(y$)
  339 printy
  340 if abs(x-a)+abs(y-b)=0 then 500
  350 goto 1100
  360 gosub 610
  380 next k
  410 rem
  420 print"        sorry, that's";n;"guesses."
  430 print"        the hurkle is at";a;",";b
  440 rem
  450 goto 524
  460 print
  470 goto 285
  500 rem
  510 print
  520 print"you found him in ";k;"guesses!"
  524 print"do you want another go (y or n)"
  525 getz$:ifz$=""goto525
  526 if z$="y" goto 1000
  528 print"{clr}":end
  530 for i=1 to 10:printchr$(7):next i:print
  540 goto 440
  610 printtab(25)"go  ";
  620 if y=b then 670
  630 if y<b then 660
  640 print"south";
  650 goto 670
  660 print"north";
  670 if x=a then 720
  680 if x<athen 710
  690 print"west";
  700 goto 720
  710 print"east";
  720 print
  730 return
 1000 print"{clr}     find the hurkle......{down}{down}"
 1010 print"9 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1011 print"8 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1012 print"7 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1013 print"6 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}     north"
 1014 print"5 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1015 print"4 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}  west  +  east"
 1016 print"3 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1017 print"2 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}     south"
 1020 print"1 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1021 print"0 O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}O{CBM-T}{CBM-G}"
 1022 print"  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1023 print"   0 1 2 3 4 5 6 7 8 9"
 1024 print
 1030 goto 285
 1100 print"{home}"
 1110 if y=9 then print"{down}":goto 1150
 1111 if y=8 then print"{down}{down}":goto 1150
 1112 if y=7 then print"{down}{down}{down}":goto 1150
 1113 if y=6 then print"{down}{down}{down}{down}":goto 1150
 1114 if y=5 then print"{down}{down}{down}{down}{down}":goto 1150
 1115 if y=4 then print"{down}{down}{down}{down}{down}{down}":goto 1150
 1116 if y=3 then print"{down}{down}{down}{down}{down}{down}{down}":goto 1150
 1117 if y=2 then print"{down}{down}{down}{down}{down}{down}{down}{down}":goto 1150
 1118 if y=1 then print"{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto 1150
 1120 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1150 if x=0 goto 1200
 1151 if x=1 then print"{rght}{rght}";:goto 1200
 1152 if x=2 then print"{rght}{rght}{rght}{rght}";:goto 1200
 1153 if x=3 then print"{rght}{rght}{rght}{rght}{rght}{rght}";:goto 1200
 1154 if x=4 then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto 1200
 1155 if x=5 then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto 1200
 1156 if x=6 then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto 1200
 1157 if x=7 then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto 1200
 1158 if x=8 then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto1200
 1159 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1200 print"{rght}{rght}{CBM-+}{CBM-+}"
 1212 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1220 if k=2 thenprint"{down}{up}":goto 360
 1221 if k=3 then print"{down}":goto 360
 1222 if k=4 then print"{down}{down}":goto 360
 1223 if k=5 then print"{down}{down}{down}":goto 360
 1250 goto 360
 2000 end
   10 print"{clr}{down}{down}";tab(15);"{rvon}hurkle"
   15 print"{down}{down}{down}  a hurkle is hiding on the grid."
   18 print"{down}your task is to find him!{down}"
   20 print"{down}you start at point 0,0 on the grid."
   25 print"{down}each turn, you tell me what point you"
   30 print"{down}want to go to, and i'll tell you what"
   35 print"{down}general direction you should go."
   40 input"{down}{down}{down}ready";r$
   45 print"{clr}":a=int(10*rnd(5)):b=int(10*rnd(5)):if a=0 and b=0 goto 45
   50 printtab(13);"north":printtab(5);
   55 printtab(6);"0 1 2 3 4 5 6 7 8 9"
   60 printtab(5);"9{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}9"
   65 for i=8 to 5 step -1
   67 i$=str$(i):i$=mid$(i$,2,1)
   70 printtab(6);"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}"
   75 printtab(5);i$;"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}";i$
   80 next i
   85 print"west  {SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}  east"
   90 for i=4 to 1 step -1
   92 i$=str$(i):i$=mid$(i$,2,1)
   95 printtab(5);i$;"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}";i$
  100 printtab(6);"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}"
  105 next i
  110 printtab(5);"0Q{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}0"
  115 printtab(6);"0 1 2 3 4 5 6 7 8 9"
  120 printtab(13);"south"
  122 l1=33614:c1=109
  125 print"{home}{down}{down}";tab(28);"where do you"
  130 print tab(28);"want to move"
  135 print tab(28);"to";
  140 input y,x
  145 l2=(32814+80*(10-y)+2*x)
  150 c2=peek(l2)
  155 poke l1,c1
  160 l1=l2:c1=c2
  165 poke l2,81:g=g+1
  170 if x=a and y=b goto 230
  175 print"{home}{down}{down}{down}{down}{down}{down}";tab(32);"   {down}{down}{left}{left}{left}{left}{left}{left}{left}            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}go ";
  180 if y=b goto 200
  185 if y<b goto 195
  190 print"{rvon}south";:goto 200
  195 print"{rvon}north";
  200 if x=a goto 220
  205 if x<a goto 215
  210 print"{rvon}west":goto 125
  215 print"{rvon}east":goto 125
  220 print:goto 125
  225 rem***win***
  230 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(28);"you found"
  235 printtab(28);"the hurkle"
  240 printtab(28);"in";g;"moves!"
  241 for i=1 to 20:poke l2,102
  242 poke l2,87:for j=1 to 50:next j
  243 poke l2,81:for j=1 to 50:next j
  244 next i
  245 print"{down}";tab(28);"again";
  250 input y$:if left$(y$,1)="n" goto 260
  255 g=0:goto 45
  260 end
   30 print"{clr}{down}auteur t.v.nuland boekel nl                    tel. 04922-1365
   50 poke59468,14:input"{down}SPEELDUUR (1-15) ";a:print"{clr}","{down}{down}{down}{rvon} H{$a0}Y{$a0}P{$a0}E{$a0}R{$a0}T{$a0}R{$a0}E{$a0}K "
  100 open1,0:l%=(rnd(ti)+1)*a+2:l0=l%:k%=(rnd(ti)*3+9)*a:b%=rnd(ti)*3+5
  110 da=int((rnd(ti)*3e3+2e4)*a+4e4):e%=(rnd(ti)*2e2+5e2)*a+3e3:e0=e%
  125 sp=826:bp=900:fori=sptobp+64:pokei,0:next:fori=1to350
  130 b=rnd(ti)*64+sp:c=peek(b):d=10*(c/10-int(c/10)):ifd>8goto130
  140 pokeb,c+1:next:fori=1tok%
  150 b=rnd(ti)*64+sp:c=peek(b):d=100*(c/100-int(c/100)):ifd>69goto150
  160 pokeb,c+10:next:fori=1tob%
  170 b=rnd(ti)*64+bp:c=peek(b):ifc>199goto170
  180 pokeb,c+100:next:dima%(6),b%(6),c%(10),d%(6),e%(6):k1=int(rnd(ti)*8)
  190 k2=int(rnd(ti)*8):fori=1to10:c%(i)=999:next:ap=634
  195 b$="                                ":d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":e$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}
  200 s1=rnd(ti)*8:s2=rnd(ti)*8:gosub1000:ti$="000000
  210 ifvg<1thengosub1400:gosub1800:gosub2000:gosub3200:gosub3400:goto210
  220 gosub1200:printd$e$b$d$e$"COMMANDO{$a0}(0-6,x): {CBM-+}":geta$:ifa$=""goto220
  230 vg=1:printd$spc(25)a$:gosub3600:a=val(a$):ifc%(a)<0thengosub3000:goto220
  232 ifa$="x"thenprinte$"{down}TOT{$a0}ZIENS, ZWAKKELING...":end
  235 s1=int(s1)+.5:s2=int(s2)+.5:ona+1gosub240,300,300,400,500,600,700:goto210
  240 printe$"{down}{rvon} SEKTIES OP DE{$a0}enterprise: ":printe$"1 SEKTOR  MOTOR  6 COMPUTER
  255 printe$"2 KWADRANTMOTOR{$a0}{$a0}7 SEKTOR SCHERM
  260 printe$"3 LASAR{$a0}{$a0} VUREN  8 KWADR. SCHERM
  270 printe$"4 ENERGIE{$a0}VUREN{$a0} 9 KL.BA. SCHERM
  280 printe$"5 SCHADE STATUS 10 STATUS SCHERM":return
  300 printe$"{down}KOERS (0-360): ";:input#1,a$:print:c=val(a$):printe$;
  330 print"AFSTAND (0-12): ";:input#1,a$:b=val(a$):print:ifb<=0orb>12thenreturn
  340 vg=0:e=k1:f=k2:ifa=2thenb=b*8:gosub3800
  350 g=cos(c*~/180):d=sin(c*~/180):forc=1tob:e0=e0-29:pokeap+s1+int(s2)*8,32
  355 s1=s1+g:s2=s2+d:da=da-45:ifs1>=8thens1=s1-8:k1=k1+1:ifk1>7thenk1=7:s1=7
  360 ifs2>=8thens2=s2-8:k2=k2+1:ifk2>7thenk2=7:s2=7
  365 ifs1<0thens1=s1+8:k1=k1-1:ifk1<0thenk1=0:s1=0
  370 ifs2<0thens2=s2+8:k2=k2-1:ifk2<0thenk2=0:s2=0
  372 ife<>k1orf<>k2thengosub1200:gosub4600:next:goto1600
  375 j=ap+s1+int(s2)*8:ifpeek(j)=32goto380
  376 gosub3600:printe$"{down}{rvon} MOTOREN{$a0}GESTOPT! ":a=int(rnd(ti)*999+999):e0=e0-a
  377 s1=s1-g:s2=s2-d:pokeap+s1+int(s2)*8,163:goto3230
  380 pokej,163:gosub1200:gosub1400:next:goto4400
  400 ifl0<1thenprinte$"{down}{rvon} GEEN{$a0}LASARS{$a0}MEER AANWEZIG! ":return
  405 printe$"{down}KOERS (0-360): ";:input#1,a$:print:b=val(a$):e=s1:f=s2:b=b*~/180
  410 c=cos(b):d=sin(b):g=1/abs(c+1e-30):ifabs(d)>abs(c)theng=1/abs(d+1e-30)
  415 c=c*g:d=d*g:g=0:printe$"LASAR{$a0}IS AFGEVUURD...":printe$;:j=163:l0=l0-1:vg=0
  420 pokeap+e+int(f)*8,j:e=e+c:f=f+d:ife>=8orf>=8ore<0orf<0goto480
  425 printint(e)"{left}"int(f)"{left}{left}{left},{rght}{rght}";:g=g+1:ifg>5theng=0:print:printe$;
  430 a=ap+e+int(f)*8:j=peek(a):ifj=32thenpokea,46:gosub1400:goto420
  440 pokea,24:b=sp+k1+k2*8:c=peek(b):g=bp+k1+k2*8:i=peek(g)
  450 a$="STERBASIS":ifj=0thenpokeg,i-9
  455 ifj=38thenpokeg,i-99:b%=b%-1
  457 ifj=36thena$="KLINGON":ac=ac-1:pokeb,c-10:pokeg,i+1:k%=k%-1:gosub4000
  460 ifj=24thena$="WRAK":pokeg,i-1:pokea,32
  465 ifj=42thena$="STER":pokeb,c-1:pokea,32
  470 print:printe$"{down}{rvon} "a$" IS VERNIETIGD! ":return
  480 print:printe$"{down}{rvon} LASAR{$a0}HEEFT{$a0}ZIJN DOEL GEMIST! ":return
  500 ifac<0thenprinte$"{down}{rvon} GEEN{$a0}KLINGONS{$a0}AANWEZIG! ":return
  505 printe$"{down}AANTAL{$a0}ENERGIE{$a0}VUREN: ";:input#1,a$:print:ifval(a$)<1thenreturn
  510 a=val(a$):ifa>e0thenprinte$"{down}{rvon} TE{$a0}WEINIG{$a0}ENERGIE{$a0}AANWEZIG! ":return
  520 vg=0:e0=e0-a:b=0:fori=0toak:ife%(i)<1goto540
  525 e%(i)=e%(i)-a/d%(i)*9-25:ife%(i)>0goto540
  530 e%(i)=0:c=sp+k1+k2*8:d=peek(c):pokec,d-10:pokeap+a%(i)+b%(i)*8,24
  535 b=b+1:c=bp+k1+k2*8:d=peek(c):pokec,d+1
  540 next:printe$"{down}{rvon} AANTAL{$a0}KLINGONS BESCHADIGD:"ac-b+1"{left} "
  550 printe$"{rvon} AANTAL{$a0}KLINGONS VERNIETIGD:"b"{left} ":k%=k%-b:ac=ac-b:return
  600 printe$"{down}SEKTIES{$a0}BESCHADIGD:":printe$"{rvon}";
  605 fori=1to10:ifc%(i)<999thenprinti"{left} ";
  610 next:printd$e$"{rvof}{down}{down}{down}{down}BUITEN{$a0}BEDRIJF ZIJN:":printe$"{rvon}";
  615 fori=1to10:ifc%(i)<0thenprinti"{left} ";
  620 next:printd$e$"{rvof}{down}{down}{down}{down}{down}{down}{down}REPAREREN SEKTIE (0-10): ";:input#1,a$:print
  625 a=val(a$):ifa=0thenreturn
  630 vg=0:forc=c%(a)to999step99:da=da-240:gosub1200:next:c%(a)=999:return
  700 printe$"{down}1. SEKTOR  {$a0}BEREKENING":printe$"2. KWADRANT{$a0}BEREKENING{down}
  710 printe$"COMPUTERCOMMANDO (1-2): {CBM-+}{left}{left}";:gosub4200:print:ifa<1ora>2thenreturn
  720 b=a:printe$"GEEF{$a0}DE{$a0}COORDINATEN: {CBM-+}{left}{left}";:gosub4200:c=a:print", {CBM-+}{left}{left}";
  730 gosub4200:d=a:print:i=int(s1):j=int(s2):ifb=2theni=k1:j=k2
  740 f=int(atn((d-j)/(c-i+1e-9))*180/~):ifc<ithenf=180+f
  745 e=int(10*sqr((c-i)^2+(d-j)^2)+.6)/10:iff<0thenf=f+360
  750 printe$"KOERS"f"{left}; AFSTAND"e:return
 1000 print"{clr}KWADRANT...","CONDITIE...":print"SEKTOR.....","LASARS.....
 1030 print"ENERGIE....","STERBASES..":print"DATA.......","KLINGONS...
 1050 print" {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1060 fori=7to0step-1:a$=mid$(str$(i),2):printa$"{SHIFT--}"spc(8)"{SHIFT--}"a$"{SHIFT--}"spc(24)"{SHIFT--}"a$
 1070 next:print" {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
 1080 print"  01234567   ";:fori=0to7:printi;:next:print
 1090 print"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":fori=1to8:print"{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}
 1110 next:print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{home}":goto1600
 1200 ifc%(10)<0thena$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":gosub2800:vl=0:goto1230
 1201 ifvl=0thenvl=1:a$="{rvon}        ":gosub2800
 1204 a$="GROEN ":ifac>-1thena$=">ROOD<
 1205 print"{home}{rvon}"spc(11)k1","k2;tab(32)a$
 1207 printspc(11)"{rvon}"int(s1)","int(s2);tab(32)l0"{left} "
 1210 printspc(11)"{rvon}"e0"{left}  "tab(32)b%:printspc(11)"{rvon}"da-ti"{left} "tab(32)k%"{left} "
 1230 ifk%<1thengosub3600:fori=1to5:printe$"{rvon} OPDRACHT{$a0}VOLBRACHT!!! ":next:end
 1240 ifda-ti>-3ande0>0thenreturn
 1245 a$="ENERGIE":ife0>0thena$="DATA
 1250 gosub3600:fori=1to5:printe$"{rvon} HELAAS,{$a0}GEEN "a$" MEER... ":next:end
 1400 fori=7to0step-1:fork=0to7:a=peek(ap+k+i*8):ifc%(7)<0thena=102
 1420 poke32970+k+(7-i)*40,a:next:next:return
 1600 fori=aptoap+64:pokei,32:next:pokeap+s1+int(s2)*8,163
 1610 a=peek(sp+k1+k2*8):ak=int(10*(a/100-int(a/100))-.91):ac=ak:ifak<0goto1635
 1617 fori=0toak:e%(i)=200
 1620 a%(i)=rnd(ti)*8:b%(i)=rnd(ti)*8:b=ap+a%(i)+b%(i)*8:ifpeek(b)<>32goto1620
 1630 pokeb,36:next:gosub4400
 1635 c=10*(a/10-int(a/10)):ifc<1goto1651
 1637 fori=1toc+.09
 1640 b=ap+rnd(ti)*64:ifpeek(b)<>32goto1640
 1650 pokeb,42:next
 1651 fori=-1to1:forj=-1to1:c=k1+i:d=k2+j:ifc<0orc>7ord<0ord>7goto1653
 1652 a=c+d*8:b=peek(sp+a):ifb<100thenpokesp+a,b+100
 1653 next:next
 1659 a=peek(bp+k1+k2*8):ifa<100goto1680
 1660 b1=int(rnd(ti)*8):b2=int(rnd(ti)*8):b=ap+b1+b2*8:ifpeek(b)<>32goto1660
 1670 pokeb,38:ab=1:goto1710
 1680 ab=0:ifa<10goto1710
 1690 b=ap+rnd(ti)*64:ifpeek(b)<>32goto1690
 1700 pokeb,0
 1710 c=10*(a/10-int(a/10)):ifc<1thenreturn
 1715 fori=1toc+.5
 1720 b=ap+rnd(ti)*64:ifpeek(b)<>32goto1720
 1730 pokeb,24:next:return
 1800 print"{home}{down}{down}{down}{down}":fori=7to0step-1
 1810 printspc(13);:forj=0to7:c$="   ":a$="":a=peek(sp+j+i*8):ifa<100goto1830
 1820 c$=mid$(str$(a),3):a$=" ":ifpeek(bp+j+i*8)>99thena$="{CBM-D}"
 1825 ifi=k2andj=k1thenc$="{rvon}"+c$+"{rvof}
 1830 ifc%(8)<0thena$="":c$="{CBM-+}{CBM-+}{CBM-+}
 1840 printa$c$;:next:print:next:return
 2000 printd$;:ifc%(9)<0thenfori=1to8:print"{rght}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":next:return
 2005 fori=1to8:print"{rght}     ":next:printd$;:ifab>0thenprint"{rght}&"b1"{left}"b2"{left}{left}{left},
 2030 fori=0toak:ife%(i)>0thenprint"{rght}$"a%(i)"{left}"b%(i)"{left}{left}{left},
 2040 next:return
 2800 print"{home}";:fori=1to4:printspc(11)a$spc(12)a$:next:return
 3000 printe$"{down}{rvon} SEKTIE"a"{left} IS BUITEN{$a0}BEDRIJF! ":return
 3200 ifac<0orvg<0thenvg=1:return
 3210 vg=1:a=0:fori=0toak:b=e%(i)/d%(i)*9:a=a+b+rnd(ti)*25:e%(i)=e%(i)-b:next
 3220 a=int(a):gosub3600:printe$"{down}DE{$a0}enterprise WORDT{$a0}DOOR
 3225 e0=e0-a:printe$"KLINGON ENERGIE{$a0}GETROFFEN...
 3230 printe$"{down}SCHILDEN{$a0}VERLIEZEN"a"ENERGIE.":ifrnd(ti)*a<25thenreturn
 3240 b=int(rnd(ti)*10+1):c%(b)=c%(b)-rnd(ti)*a*8-99
 3250 printe$"{rvon} SEKTIE"b"{left} IS BESCHADIGD! ":ifc%(b)>=0thenreturn
 3260 printe$"{rvon} EN{$a0}NU{$a0}BUITEN{$a0}BEDRIJF!!! ":vg=-1:return
 3400 ifab<1or(int(s1)-b1)^2+(int(s2)-b2)^2>1.1thenreturn
 3410 vg=-1:ab=0:b%=b%-1:gosub3600:printe$"{down}{rvon} DE{$a0}enterprise IS{$a0}GEDOKT. "
 3420 fori=1to10:c%(i)=999:next:printe$"{down}REPARATIES{$a0}WORDEN{$a0}UITGEVOERD,
 3425 printe$"ENERGIE{$a0}EN{$a0}LASARS{$a0}BIJGEVULD.
 3430 a=3*(l%-l0):forl0=1tol%:e0=int(e%/(l%-l0+1)):da=da-a-9:gosub1200:next
 3440 e0=e%:l0=l%:a=bp+k1+k2*8:pokea,peek(a)-90:pokeap+b1+b2*8,0:return
 3600 printd$:fork=1to7:printe$b$:next:printd$:return
 3800 fori=1to15:a=int(rnd(ti)*10+1):d=c%(a):ifd>998thennext:return
 3810 c%(a)=c%(a)+rnd(ti)*b*65+99:printe$"{down}SEKTIE"a"{left} WORDT{$a0}GEREPAREERD...{down}
 3820 ifc%(a)>998thenprinte$"{rvon} EN{$a0}IS{$a0}WEER{$a0}ONBESCHADIGD! ":c%(a)=999:return
 3830 ifd<0andc%(a)>=0thenprinte$"{rvon} EN{$a0}IS{$a0}WEER{$a0}IN{$a0}BEDRIJF! "
 3840 return
 4000 fori=0toak:ifa%(i)=int(e)andb%(i)=int(f)thene%(i)=0
 4010 next:return
 4200 geta$:a=val(a$):ifa$=""ora>7goto4200
 4210 printa;:return
 4400 fori=0toak:ife%(i)>0thend%(i)=sqr((s1-.5-a%(i))^2+(s2-.5-b%(i))^2)*6+9
 4410 next:return
 4600 ifc%(8)<0thenreturn
 4610 pokek,a:k=33262+k1*3-k2*40:a=peek(k):pokek,163:return
   90 poke59459,0:rem**turn on to listen
   92 k2=59471
  100 k=32768:w1=118:w3=87:w4=113:w9=32:n=500:d=8:w5=117:w6=120:w7=121:x1=233
  110 x2=105:x3=95:x4=223:d1=8:sp=500:sq=sp
  116 forj=1to9:readr(j):next
  118 forj=1to9:readl(j):next
  119 data 2,3,6,1,5,9,4,7,8, 4,1,2,7,5,3,8,9,6
  120 print"{clr}{down}         {rvon}ian's speed race.{rvof}":forj=1to1800:next
  121 goto5000
  122 print"{clr}{down}{down} how will you steer?":print"  with the keyboard (k), or wheel (w)"
  123 get a$:if a$="w"then126
  124 if a$="k"then127
  125 goto123
  126 k2=59471:r6=191:l6=127:goto950
  127 print:print"{down}to steer right, press 'k', left, 's'":forj=1to1800:next
  128 k2=151:r6=37:l6=40:goto950
  130 input"{down}{down}which track";j2
  138 print"{down}{down}{down}{down}     here we go!!!!!"
  140 for j=1to1900:nextj
  145 print"{clr}"
  150 on j2gosub 1000,1100,1200,1300,1400,1500,1520,1560
  190 t6=ti
  200 gosub 800
  210 d=d1
  220 if peek(k2)=255 then sp=sq:goto228
  222 if peek(k2)=r6 then sp=380:goto234
  224 if peek(k2)=l6 then sp=380:goto232
  228 d1=d:goto240
  232 d1=r(d):goto240
  234 d1=l(d):goto240
  240 on d1goto 250,260,270,280,290,300,310,320,330
  245 goto220
  250 n2=n+39:goto400
  260 n2=n+40:goto400
  270 n2=n+41:goto400
  280 n2=n-1:goto400
  290 n2=n:goto400
  300 n2=n+1:goto400
  310 n2=n-41:goto400
  320 n2=n-40:goto400
  330 n2=n-39:goto400
  400 ifn2<0thenn2=n2+1000
  403 ifn2>999thenn2=n2-1000
  405 gosub850
  410 if peek(k+n2)<>32 then goto900
  420 n=n2
  430 gosub800
  432 get a$:if a$=""then 435
  433 if val(a$)=0 then435
  434 j=9-val(a$):sp=8*j*j:sq=sp
  435 forj=1tosp :next
  440 goto210
  800 on d1 goto 830,820,832,822,873,822,832,820,830
  820 pokek+n-41,w1:pokek+n-39,w5:pokek+n,w3:pokek+n+39,w1:pokek+n+41,w5:return
  822 pokek+n-41,w7:pokek+n-39,w7:pokek+n,w3:pokek+n+39,w6:pokek+n+41,w6:return
  830 pokek+n-40,x1:pokek+n-1,x1:pokek+n+1,x2:pokek+n+40,x2:pokek+n,w3:return
  832 pokek+n-40,x4:pokek+n-1,x3:pokek+n+1,x4:pokek+n+40,x3:pokek+n,w3:return
  850 pokek+n,w9
  870 on d goto 872,871,872,871,873,871,872,871,872
  871 pokek+n-39,w9:pokek+n-41,w9:pokek+n+39,w9:pokek+n+41,w9:return
  872 pokek+n-40,w9:pokek+n+1,w9:pokek+n-1,w9:pokek+n+40,w9
  873 return
  900 t7=int((ti-t6)/6)/10
  905 j=k+n:pokej,160:pokej-41,102:pokej-40,218:pokej-39,102:pokej-1,218
  910 pokej+1,218:pokej+39,102:pokej+40,218:pokej+41,102
  920 forj=1to12
  924 print"{home}{down}{rght}"t7
  926 forj2=1to90:next
  928 print"{home}{down}{rght}       "
  929 forj2=1to90:next
  930 nextj
  940 get a$:if a$="" then940
  945 if a$="c"then955
  950 print"{clr}":n=910:d=4:d1=4:sp=500:sq=sp:goto130
  955 n=910:d=4:d1=4:sp=500:sq=sp:goto190
 1000 rem ** tracks
 1010 forj=kto(k+39):pokej,120:next
 1020 forj=k+39tok+1000 step40:pokej,118:next
 1030 forj=k+1000 tok+960 step-1:pokej,121:next
 1040 forj=k+960 to k+1 step-40:pokej,117:next
 1050 for j=k+807 tok+832:pokej,102:next
 1060 forj=k+207 tok+832 step40:pokej,102:next
 1070 forj=k+232 tok+832 step40:pokej,102:next
 1080 forj=k+20 to k+620 step40:pokej,102:next
 1090 return
 1100 forj=k+39tok+1000step40:pokej,102:next
 1110 forj=k+960tok+1000:pokej,102:next
 1120 forj=k+13tok+492step40:pokej,102:next
 1130 forj=k+493tok+506:pokej,102:next
 1140 forj=k+246tok+725step40:pokej,102:next
 1150 forj=k+726tok+753:pokej,102:next
 1160 forj=k+259tok+272:pokej,102:next
 1170 forj=k+273tok+775step40:pokej,102:next
 1180 return
 1200 forj=20to220step40:pokek+j,102:next
 1210 forj=210to690step40:pokek+j,102:next
 1220 forj=230to710step40:pokek+j,102:next
 1230 forj=450to470:pokek+j,102:next
 1240 forj=700to980step40:pokek+j,102:next
 1250 return
 1300 forj=180to220step40:pokek+j,102:next
 1310 forj=210to690step40:pokek+j,102:next
 1320 forj=230to710step40:pokek+j,102:next
 1330 forj=450to470:pokek+j,102:next
 1340 forj=700to740step40:pokek+j,102:next
 1350 return
 1400 forj=20to220step40:pokek+j,102:next
 1410 forj=210to690step40:pokek+j,102:next
 1420 forj=230to710step40:pokek+j,102:next
 1440 forj=700to980step40:pokek+j,102:next
 1450 return
 1500 pokek+210,102:pokek+230,102:pokek+690,102:pokek+710,102:return
 1520 forj=208to232:pokek+j,209:next
 1530 forj=447to473:pokek+j,218:next
 1540 forj=688to712:pokek+j,209:next
 1550 return
 1560 forj=20to220step40:pokek+j,209:next
 1570 forj=780to980step40:pokek+j,209:next
 1580 forj=480to491:pokek+j,209:next
 1590 forj=509to519:pokek+j,209:next
 1592 forj=207to213:pokek+j,102:next
 1594 forj=227to233:pokek+j,102:next
 1596 forj=767to773:pokek+j,102:next
 1598 forj=787to793:pokek+j,102:next
 1600 forj=254to764step41:pokek+j,218:next
 1610 forj=266to762step39:pokek+j,218:next
 1620 return
 5000 print"{down}{down}    written by michael bonnycastle
 5010 print"  for ian bonnycastle on his eighth
 5020 print"  birthday - september 27,1979.
 5030 print"{down}    steer the car with a steering wheel
 5040 print"  connected to the parallel users port
 5050 print"  and change gears from low (1) to"
 5060 print"  high(9) by touching the number keys."
 5070 print"  if the car runs over an obstacle "
 5080 print"  with its wheels, it will be erased
 5090 print"  but if the driver wipes out, you "
 5100 print"  will crash.  then the time, in sec-"
 5110 print"  onds since starting will appear in
 5120 print"  the top right corner.  to start with"
 5130 print"  a new track, press the space bar, to"
 5140 print"  continue on the same track, press c."
 5145 print"  there are eight different tracks."
 5150 print"            {rvon} good luck!! {rvof}"
 5160 print"                       {down}(press any key)";
 5170 geta$:ifa$=""then5170
 5180 goto122
   90 pp$="                                                                "
  100 print"{clr}"spc(16)"imphex":printspc(15)"EEEEEEEE"
  105 printspc(8)"{down}a new version of hexapawn"
  110 rem
  130 print"{down}{down}instructions ('y' or  'n') ":geti$:ifi$=""thenprint"{up}{up}{up}{up}":goto130
  135 ifi$="y"then1310
  140 ifi$<>"n"thenprint"{up}{up}{up}{up}":goto130
  145 print"{down}     {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  150 print"{down}i can be programmed to select my moves
  155 print"{down}in a 'random' or sequential manner.if
  160 print"{down}you choose 'sequential' my response to a
  165 print"given situation will always be the same.
  170 print"which do you wish me to use:
  175 print"{down}('r' or 's') ":getm$:ifm$<>"r"andm$<>"s"thenprint"{up}{up}{up}":goto175
  176 print"{clr}"
  210 c=-1:h=1:cw=0:hw=0:dimbd(4,3),bm(3,3,15),p(3,3)
  220 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":e$="                                       "
  230 bp$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}":bd$="{down}{down}{down}{down}{down}{down}":bl$="{rght}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  240 x6=0:print"{clr}do you want first move(y or n)"
  241 geta$:ifa$=""then241
  242 ifa$="y"thenx6=1
  245 c$=" UI {down}{left}{left}{left}{left} JK {left}{left}{left}{left}{down}UIUI{left}{left}{left}{left}{down}JKJK{rght}{rght}{up}{up}{up}":h$="{rvon}"+c$+"{rvof}"
  330 fory=1to3:forx=1to3:bd(x,1)=h:bd(x,2)=0:bd(x,3)=c:nextx,y
  335 tu=h:f1=0:f2=0
  340 gosub1010
  380 printbp$c$c$c$bd$bd$bl$h$h$h$
  400 printd$e$d$
  405 ifx6=0thenx6=1:goto600
  410 print"your move           {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:open1,0:input#1,bb$,ll$:close1:hi=val(bb$)
  420 hf=val(ll$):ifhi<1orhi>9orhf<1orhf>9thenprintd$"not in this game!":goto410
  425 deffnc(x)=x+10-(x>3)*7-(x>6)*7
  430 yi=int(fnc(hi)/10):xi=fnc(hi)-yi*10:yf=int(fnc(hf)/10):xf=fnc(hf)-yf*10
  440 ifbd(xi,yi)<>1orabs(xf-xi)>1oryf-yi<>1then500
  450 if(xi=xfandbd(xf,yf)<>0)or(abs(xf-xi)=1andbd(xf,yf)<>-1)then500
  455 print"{home}{down}{down}{down}":forj=0to7:print"               ":nextj
  470 gosub1120
  480 ifyf=3then920
  485 bd(xi,yi)=0:bd(xf,yf)=1
  490 goto600
  500 printd$e$d$"illegal move!   ":f1=f1+1:iff1<>4then410
  510 print"{home}{down}{down}{down}{down}how many times":print"{down}do i have to ":print"{down}tell you?
  515 print"{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}":print"{rvon}{CBM-K}illegal move{rvof}{CBM-K}"
  520 print"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}":goto400
  600 printd$e$:tu=c:ford=1to500:nextd
  605 ifm$="r"then750
  610 foryi=3to2step-1:forxi=1to3:ifbd(xi,yi)<>-1then740
  620 forw=1to3:ifbd(xi+2-w,yi-1)<>abs(2-w)then730
  630 si=bd(xi,yi):sf=bd(xi+2-w,yi-1):bd(xi,yi)=0:bd(xi+2-w,yi-1)=-1
  640 forl=0tohw:forj=1to3:fork=1to3
  643 ifbd(j,k)<>bm(j,k,l)then670
  650 nextk,j
  660 bd(xi,yi)=si:bd(xi+2-w,yi-1)=sf:goto730
  670 nextl
  671 gosub1120
  673 fory=1to3:forx=1to3:bm(x,y,hw)=bd(x,y):nextx,y
  687 ifyi=2then910
  688 foryt=1to3:forxt=1to3:ifbd(xt,yt)<>1then720
  700 forwt=-1to1:ifbd(xt+wt,yt+1)=-abs(wt)thentu=h:goto400
  710 nextwt
  720 nextxt,yt:goto910
  730 nextw
  740 nextxi,yi:goto920
  745 end
  750 fory=2to3:forx=1to3:p(x,y)=0:nextx,y:n1=0
  755 n2=0:yi=int(2*rnd(ti)+2):xi=int(3*rnd(ti)+1)
  760 ifp(xi,yi)=1then755
  765 ifbd(xi,yi)<>-1then855
  770 forw=1to3:m(w)=0:nextw
  775 w=int(3*rnd(ti)+1)
  780 ifm(w)=1then775
  785 ifbd(xi+2-w,yi-1)<>abs(2-w)then850
  790 si=bd(xi,yi):sf=bd(xi+2-w,yi-1):bd(xi,yi)=0:bd(xi+2-w,yi-1)=-1
  795 forl=0tohw:forj=1to3:fork=1to3
  800 ifbd(j,k)<>bm(j,k,l)then815
  805 nextk,j
  810 bd(xi,yi)=si:bd(xi+2-w,yi-1)=sf:goto850
  815 nextl:gosub1120
  820 fory=1to3:forx=1to3:bm(x,y,hw)=bd(x,y):nextx,y
  825 ifyi=2then910
  830 foryt=1to3:forxt=1to3:ifbd(xt,yt)<>1then840
  835 forwt=-1to1:ifbd(xt+wt,yt+1)=-abs(wt)thentu=h:goto400
  836 nextwt
  840 nextxt,yt:goto910
  850 m(w)=1:n2=n2+1:ifn2<3then775
  855 p(xi,yi)=1:n1=n1+1:ifn1<6then755
  860 goto920
  910 printd$"i win!"pp$:cw=cw+1:f3=1:goto930
  920 printd$+"you win!"pp$:hw=hw+1:f3=0
  930 ford=1to1000:next
  935 print"{home}{down}{down}{down}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}":print"{rvon}    score    ":print"{rvon}EEEEEEEEEEEEE
  940 print"{rvon} computer:   ":print"{rvon}             ":print"{rvon}    human:   "
  950 print"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}":print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}"cw:print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}"hw
  970 ifcw>hwthenf2=1
  975 iff2=0andcw=1andhw>5thenford=1to500:next:print"{down}i needed that!":f2=1
  980 printd$"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}another game ('y' or 'n')";:getg$:ifg$=""then980
  981 ifg$="y"then240
  990 ifg$<>"n"then980
  995 printd$e$d$"sour grapes!   so turn me off!{up}{up}{up}{up}{up}{up}";:end
 1010 print"{clr}"spc(17)"{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}
 1020 forj=1to3:printspc(17)"{rvon}{CBM-K}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof}{CBM-K}
 1030 fork=1to4:printspc(17)"{rvon}{CBM-K}{SHIFT--}    {SHIFT--}{SHIFT--}    {SHIFT--}{SHIFT--}  {$a0}{$a0}{SHIFT--}{rvof}{CBM-K}":nextk
 1040 printspc(17)"{rvon}{CBM-K}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}{CBM-K}":nextj
 1050 printspc(17)"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}
 1080 iff3=1then1095
 1090 ifhw>0thenprint"{home}{down}{down}{down}{down}i have learned
 1091 ifhw=1thenprint"{down}a bad move.
 1092 ifhw=2thenprint"{down}another one!
 1093 ifhw>2thenprint"{down}"hw"bad moves.
 1094 ifhw>5thenprint"{down}the hard way
 1095 return
 1120 be$="{rvon}    {left}{left}{left}{left}{down}    {left}{left}{left}{left}{down}    {left}{left}{left}{left}{down}    {rght}{rght}{up}{up}{up}{rvof}"
 1130 bu$="{up}{up}{up}{up}{up}{up}":h$="{rvon}"+c$+"{rvof}"
 1140 iftu=hthenw=xi-xf+2
 1150 iftu=cthenbu$=bd$:h$=c$
 1160 printbp$;:foryd=3to1step-1:forxd=1to3
 1165 ::ifxd<>xioryd<>yithenprint"{rght}{rght}{rght}{rght}{rght}{rght}";:goto1250
 1170 ::printbe$bu$mid$(bl$,w,w^2+w)h$:goto1260
 1250 nextxd:printbd$bl$;:nextyd
 1260 return
 1310 print"{clr}{down}hexpawn is played with chess pawns on"
 1320 print"{down}a 3 V 3 board. your pawns are white"
 1330 print"{down}to enter a move,type the number of the"
 1340 print"{down}square you  wish to move from,a comma,"
 1350 print"{down}and the number of the square you wish"
 1360 print"to move to,for example:'2,5'.the squares"
 1370 print"are numbered like the keyboard:":printspc(16)"{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
 1375 printspc(16)"{rvon}{CBM-K}7 8 9{rvof}{CBM-K}":printspc(16)"{rvon}{CBM-K}     {rvof}{CBM-K}
 1380 printspc(16)"{rvon}{CBM-K}4 5 6{rvof}{CBM-K}":printspc(16)"{rvon}{CBM-K}     {rvof}{CBM-K}
 1385 printspc(16)"{rvon}{CBM-K}1 2 3{rvof}{CBM-K}":printspc(16)"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 1390 printspc(7)"press 'space'to contiue"
 1395 geta$:ifa$<>" "then1395
 1400 print"{clr}to win,move one of your pieces to the
 1410 print"{down}opponent's side of the board first,"
 1420 print"{down}capture all of the opponent's pieces or"
 1430 print"block him from making any move."
 1440 print"{down}{down}the computer starts a series of games
 1450 print"{down}knowing only how to move and how to"
 1460 print"{down}recognise a win.it has no initial"
 1470 print"{down}strategy,but it keeps a record of all"
 1480 print"{down}bad moves and improves its strategy"
 1490 print"{down}until it becomes invincible."
 1500 printspc(7)"{down}{down}press space to start game."
 1510 geta$:ifa$<>" "then1510
 1520 print"{clr}":goto150
    0 rem 276 indian poker
    1 rem
   90 gosub62000
  100 deffnr(i)=int(rnd(ti)*i)+1
  110 wad=200:ante=10:limit=25
  120 t=rnd(-ti)
  240 dimn$(7),k(3),m%(4),w%(4),b(4),s%(4),v%(4)
  250 eye=33125
  270 d$="{home}{down}{down}{down}{down}{down}{down}":d2$=d$+"{down}{down}{down}{down}{down}{down}{down}{down}{down}":x$=d2$+"{down}{down}{down}{down}{down}{down}"
  290 e$="                               "
  300 dimp(4),l1(7),l2(7),l3(7)
  310 fori=1to7:readn$(i),l1(i),l2(i),l3(i):next
  320 datajack,14,10,9,edna,14,9,8,burt,14,9,7,kirk,13,8,5,lucy,14,8,4,fred,13,8,4
  322 datadu,0,0,0
  350 rk$="23456789Vbdka"
  370 p(4)=7:p(1)=fnr(6)
  380 p(2)=fnr(6):ifp(2)=p(1)then380
  400 p(3)=fnr(6):ifp(3)=p(1)orp(3)=p(2)then400
  420 print"{clr}":fori=1to3:pl=p(i):printd$spc(11*i-4);:gosub1025:nexti
  460 printd2$"   {rvon}{SHIFT-POUND}";:fori=1to16:print"{CBM-T}{CBM-T}";:next:print"{CBM-*}"
  470 print"  {rvon}{SHIFT-POUND}";:fori=1to17:print"  ";:next:print"{CBM-*}"
  480 print" {rvon}eins ";:fori=1to16:print"  ";:next:print"{CBM-*}"
  490 print"{rvon}{SHIFT-POUND}";:fori=1to19:print"  ";:next:print"{CBM-*}"
  500 print"{up}L";:fori=1to19:print"{CBM-@}{CBM-@}";:next:print"{SHIFT-@}"
  510 print"{rvon}"d2$spc(7)n$(p(1))spc(7)n$(p(2))spc(7)n$(p(3))
  520 fb=int(rnd(ti)*3+-1)
  525 fori=1to4:m%(i)=wad:next:gosub1580
  530 printx$e$:print"{up}{rvon}starteinsatz $"ante:gosub1260:printx$e$
  540 forp=1to4:ifm%(p)<antethen1860
  545 nextp
  550 fori=1to4:b(i)=-1:q=q+ante:m%(i)=m%(i)-ante:next:gosub1580
  560 s%(1)=fnr(4):v%(1)=fnr(13)
  570 fori=2to4
  575 s%(i)=fnr(4):v%(i)=fnr(13)
  580 forj=1toi-1:ifs%(i)=s%(j)andv%(i)=v%(j)then575
  590 nextj:nexti
  600 fori=1to3:print"{home}"tab(11*i-3);:gosub2000:nexti
  730 pb=1:f=0:b=0:cl=0
  740 fb=fb+1:iffb>4thenfb=fb-4
  750 p=fb
  760 p=p+1:ifp>4thenp=p-4
  775 ob=b(p):ifob=0then900
  780 ifp=4thengosub1270:goto850
  785 ifm%(p)<=0thenb(p)=0:gosub2500:goto850
  790 ifob<0thengosub2200:goto850
  800 gosub2100
  850 ifb(p)=bandb>0thencl=cl+1
  860 ifb(p)>bthencl=1
  865 ifb(p)=0thenf=f+1
  870 ifob<0thenob=0
  880 ifb(p)>0thenq=q+b(p)-ob:m%(p)=m%(p)-b(p)+ob
  885 ifb<b(p)thenb=b(p)
  890 gosub1580:gosub1260
  900 iff+cl<4then760
  970 printx$e$:pb=0
  980 printd2$"{down}{down}{down}{down}{down}{down}deine karte"tab(24)"{up}{up}{up}{rvon}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}";:i=4:gosub2000:gosub1260
  990 gosub1260:printd2$"{down}{down}{down}{down}{down}{down}"e$
 1000 printd2$"{down}{down}{down}"tab(24)"{rvon}   {rvof}{down}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}    "
 1010 print"{home}";:fori=1to6:printe$"   ":next:printx$e$
 1020 gosub1670:gosub1260:goto530
 1025 onplgoto1030,1050,1070,1090,1110,1130
 1030 print"{rvon}{SHIFT-POUND}==={CBM-*}{down}{left}{left}{left}{left}{left}=   ={down}{left}{left}{left}{left}{left}={CBM-Y} {CBM-Y}={down}{left}{left}{left}{left}{left}{left}< {CBM-C}H{CBM-C} >{down}{left}{left}{left}{left}{left}{left}  {CBM-T}  {down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}(-){rvof}{SHIFT-POUND}";
 1040 print"{down}{left}{left}{left}{left}{rvon} {SHIFT-*} {down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-+}{CBM-+}{CBM-*}Q{SHIFT-POUND}{CBM-+}{CBM-+}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+} Z {CBM-+}{CBM-+}{CBM-+}":return
 1050 print"@@@@@{down}{left}{left}{left}{left}{left}{left}@@{rvon}   {rvof}@@{down}{left}{left}{left}{left}{left}{left}{left}@{rvon} {CBM-Y} {CBM-Y} {rvof}@{down}{left}{left}{left}{left}{left}{left}{left}{rvon}( {CBM-C} {CBM-C} ){down}{left}{left}{left}{left}{left}{left}{left}*  v  *";
 1060 print"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} S {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}XX{CBM-@}{CBM-@}{CBM-@}XX{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}XXXXXXXXX":return
 1070 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M}{rvon}{SHIFT-POUND}{SHIFT-POUND} {CBM-*}{CBM-*}{rvof}{CBM-G}{rvon}{down}{left}{left}{left}{left}{left}{left} D D {down}{left}{left}{left}{left}{left}{left}[ {CBM-C}{SHIFT--}{CBM-C} ]{down}{left}{left}{left}{left}{left}{left} K{CBM-E}J {down}{left}{left}{left}{left}{left}";
 1080 print"( - ){down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}MJ{SHIFT-*}KN{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}M M N N{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}  MN{CBM-T}MN  ":return
 1090 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M}{SHIFT--}{rvon}   {rvof}{SHIFT--}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-M}{rvon}{SHIFT-POUND}F R{CBM-*}{rvof}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{rvon}( {CBM-C}{SHIFT--}{CBM-C} ){down}{left}{left}{left}{left}{left}{left}  {CBM-E}  ";
 1100 print"{down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {SHIFT-*} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{rvof}N{CBM-T}{CBM-T}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-G}   {SHIFT--}   {CBM-M}":return
 1110 print"N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{left}{CBM-M} {rvon}   {rvof}{CBM-M}{down}{left}{left}{left}{left}{left}{left}N{rvon}{SHIFT-POUND}{CBM-U} {CBM-U}{CBM-*}{rvof}M{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-M} {rvon} {CBM-C}B{CBM-C} {rvof}{CBM-M}{down}{left}{left}{left}{left}{left}{left}{left}M{rvon}  ";
 1120 print"{CBM-E}  {rvof}N{down}{left}{left}{left}{left}{left}{left}{CBM-*}{rvon}J{SHIFT-*}K{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{rvon}M{CBM-@}N{down}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}..NSM..{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}...{CBM-G}W{CBM-M}...":return
 1130 print"{rvon}{SHIFT-POUND}='={CBM-*}{down}{left}{left}{left}{left}{left}{CBM-+} F {CBM-+}{down}{left}{left}{left}{left}{left}{left}( {CBM-U}{SHIFT--}{CBM-U} ){down}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {CBM-C}W{CBM-C} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{rvon} N{SHIFT-*}M ";
 1140 print"{down}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}JRK{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND}M{CBM-@}N{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} MN.MN {CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}    .    ":return
 1150 return
 1160 ifrnd(1)>.04thenreturn
 1170 e1=e1+1:ife1=4thene1=1
 1180 e=fnr(8):ife=1theneg=251:goto1240
 1200 ife=2theneg=254:goto1240
 1210 ife=3theneg=236:goto1240
 1220 ife=4theneg=173:goto1240
 1230 eg=252
 1240 e=eye+11*e1:pokee,eg:pokee+2,eg:return
 1260 forz=1to90:gosub1160:next:return
 1270 printx$e$:print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}dein einsatz? ";
 1280 gosub60000:b(4)=val(in$)
 1290 ifin$=""andb<=0then1270
 1295 ifin$=""thenb(4)=b:printb;
 1300 ifb(4)=0thenreturn
 1310 print"{up}
 1330 ifb(4)<bthenprinte$:print"{up}der einsatz ist"b:gosub1260:goto1270
 1340 ifb(4)-b>limitthen:printe$:print"{up}erhoe limit $"limit:gosub1260:goto1270
 1350 ifb(4)>m%(4)thenprinte$:print"{up}soviel hast du nicht!":gosub1260:goto1270
 1420 return
 1580 printx$"{down}{down}du hast: $    {left}{left}{left}{left}"m%(4)
 1590 printd2$;"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}"e$;"{up}
 1600 print"{rght}{rght}{rvon}hat"tab(6)"$"m%(1)tab(17)"$"m%(2)tab(29)"$"m%(3)
 1610 print"{rght}{rght}{rght}{rght}{rght}{rvon}";e$;"{up}
 1620 forj=1to3
 1630 ifb(j)>=0andpb>0thenprinttab(11*j-4)"{rvon}$"b(j);
 1640 nextj
 1650 print:printtab(13)"{rvon}topf:      {left}{left}{left}{left}{left}{left}$"q:return
 1670 fori=1to4:w%(i)=0:next
 1680 fori=1to4:forj=1to4:ifj=ithen1710
 1690 ifb(i)<=0then1720
 1700 ifv%(i)>=v%(j)orb(j)=0thenw%(i)=w%(i)+1
 1710 nextj
 1720 nexti
 1730 printx$"gewinner: ";:nw=0:fori=1to4
 1750 ifw%(i)<3then1790
 1760 nw=nw+1:ifnw>1thenprint" und ";
 1780 printn$(p(i));
 1790 next:w=int(q/nw)
 1810 print" $"w:j=int(q/nw)
 1820 fori=1to4:ifw%(i)=3thenm%(i)=m%(i)+j:q=q-j
 1830 next:gosub1260:gosub1580
 1840 fo=0:forp=1to4:ifm%(p)<=0then1860
 1850 next:return
 1860 ifp=4thenprintx$;e$:printx$"{rvon}du bist draussen!!":gosub1260:goto1890
 1870 printx$;e$:printx$;n$(p(p));" ist draussen!!":gosub1260:printx$;e$
 1880 gosub1260
 1890 i=1:for j=2 to 4:if m%(j)>m%(i) then i=j
 1895 next j:print"{home}{down}{down}der gewinner: ";n$(p(i));" mit $";m%(i);"{left}.
 1900 printx$;e$:printx$"nochmal? ";:gosub60000
 1910 ifleft$(in$,1)<>"n"thenprint"{clr}":clr:goto100
 1920 print"{clr}{down}{down}{down}{down}":end
 1930 printx$"{down}{down}du hast: $    {left}{left}{left}{left}"m%(4):return
 2000 v$=mid$(rk$,v%(i),1):ifv%(i)=9thenv$="10"
 2010 printleft$("{rvon}"+v$+"  ",4)"{down}{left}{left}{left}   {down}{left}{left}{left} ";
 2020 printmid$("SAZX",s%(i),1);" {down}{left}{left}{left}   {down}{left}{left}{left}";right$("  "+v$,3)
 2030 return
 2100 ifb<=m%(p)+b(p)andb<=3*k(p)*b(p)thenb(p)=b:goto2500
 2110 b(p)=0:goto2500
 2200 f1=0:f2=0:f3=0:fori=1to4:ifi=pthen2250
 2220 ifv%(i)>=l1(p(p))thenf1=1
 2230 ifv%(i)>l2(p(p))thenf2=1
 2240 ifv%(i)<l3(p(p))thenf3=f3+1
 2250 nexti
 2260 iff1=1thenb(p)=0:fo=1:goto2330
 2270 iff1=0andfo=1thenk(p)=3:goto2310
 2280 iff2=1thenk(p)=.5:goto2310
 2290 iff3=3thenk(p)=2:goto2310
 2300 k(p)=1
 2310 k=k(p):b(p)=int(2*k*(5+rnd(1)))
 2320 ifb(p)>m%(p)thenb(p)=m%(p)
 2325 ifb(p)-b>limitthenb(p)=b+limit
 2330 ifb<=0then2500
 2340 ifb(p)<b/3orb>m%(p)thenb(p)=0:goto2500
 2350 ifb(p)<1.8*bthenb(p)=b:goto2500
 2370 ifb(p)>b+m%(p)thenb(p)=b+m%(p)
 2500 ifb(p)>m%(p)thenb(p)=m%(p)
 2505 printx$e$x$n$(p(p));
 2510 ifb(p)>bandb>0thenprint" erhoeht auf ";b(p):return
 2520 ifb(p)=0thenprint" steigt aus!":return
 2530 ifob>0andb(p)>obthenprint" haelt mit.":return
 2540 print" setzt $";b(p):return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60025 gosub1160
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,14:print"{clr}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print"{rvon} indian poker "
 62010 print"{down}dU SPIELST{$a0}GEGEN{$a0}3 ANDERE sPIELER (dIESE
 62012 print"{up}UEBERNIMMT{$a0}DER pet). jEDER sPIELER ER-
 62014 print"HAELT{$a0}EINE{$a0}EINZELNE{$a0}kARTE, WELCHE ER
 62016 print"HOCHHAELT, SO DASS ALLE (NUR{$a0}ER SELBER
 62018 print"NICHT!) SIE{$a0}SEHEN{$a0}KANN.
 62020 print"{down}jEDER{$a0}HAT{$a0}$ 200 sTARTKAPITAL, AM aNFANG
 62022 print"JEDER rUNDE ZAHLEN{$a0}ALLE $ 10 IN{$a0}DEN
 62024 print"tOPF, DANN WIRD{$a0}REIHUM{$a0}DER eINSATZ{$a0}IN
 62026 print"DEN tOPF GEZAHLT. dU KANNST ENTWEDER
 62028 print"DEN eINSATZ{$a0}DES{$a0}VORHERIGEN sPIELERS
 62030 print"HALTEN (DRUECKE{$a0}EINFACH {rvon}return{rvof}), ER-
 62032 print"HOEHEN (MAXIMAL{$a0}UM $ 25), ODER AUSSTEI-
 62034 print"GEN (DURCH{$a0}eINGABE{$a0}VON '0').
 62036 print"{down}nACH{$a0}ALLEN eINSAETZEN GEWINNT DERJENIGE
 62038 print"MIT{$a0}DER{$a0}HOECHSTEN{$a0}kARTE (WENN{$a0}ER{$a0}NICHT
 62040 print"AUSGESTIEGEN{$a0}IST!). aSS IST{$a0}DIE
 62042 print"HOECHSTWERTIGE{$a0}kARTE.
 62044 print"dAS{$a0}sPIEL{$a0}ENDET, WENN{$a0}EIN sPIELER KEIN  gELD MEHR{$a0}HAT.
 62046 printtab(30)"<{rvon}return{rvof}>";
 62050 getz$:ifz$=""then62050
 62100 print"{clr}":clr:poke59468,12:goto100
   10 rem*insulter*bob chappel*27/6/81
   20 j=rnd(0):deffna(j)=int(20*rnd(1)+1):gosub450
   30 l$=h$:b$="":print"{down}>";
   40 geth$:ifh$=""goto40
   50 v=asc(h$):if(v=1orv=20)andb$=""goto40
   60 ifv=13thenprint"{down}":goto110
   70 printh$;:ifv=20thenb$=left$(b$,len(b$)-1):goto40
   90 ifv<>39andv<>63thenb$=b$+h$
  100 goto40
  110 h$=b$+" ":l=len(h$):ifti$<"000300"goto130
  120 print"thank heavens, your time is up;{down}":k=39:ti$="000000":goto240
  130 rem
  135 ifl>60thenk=42:goto240
  140 ifh$=l$thenk=43:goto240
  150 rem**split into words**
  160 x=0:z=1:forj=1tol
  170 ifmid$(h$,j,1)=" "thengosub8000:z=j+1
  180 next:gosub9000
  230 rem**select reply**
  240 z=l(k)+int(t(k)*rnd(0)):ifz=z1then240
  250 rem**conjugate**
  260 z1=z:r$=r$(z):ifright$(r$,1)<>"*"thenr$=r$+" ":goto350
  270 j$=" ":iff>xgoto330
  280 forj1=ftox:t$=t$(j1)
  290 forj=1tobstep2:ift$=d$(j)thent$=c$(j+1):goto315
  300 ift$=d$(j+1)thent$=c$(j):j=b
  310 nextj
  315 ifj1=xandt$="i"thent$="me"
  320 j$=j$+t$+" ":nextj1
  330 r$=left$(r$,len(r$)-1)+j$
  350 ifk=26ork=27ork=39ork=40orfna(j)<16goto380
  360 iffna(j)<18thenr$="you "+ia$(fna(j))+" "+in$(fna(j))+","+r$:goto380
  370 r$=r$+", you "+ia$(fna(j))+" "+in$(fna(j))+" "
  380 x=0:z=1:forj=1tolen(r$)
  390 ifmid$(r$,j,1)=" "thenx=x+1:t$(x)=mid$(r$,z,j-z+1):z=j+1
  400 next:b$="":forj=1tox:iflen(b$)>l9thenprintb$:b$=""
  410 b$=b$+t$(j):next:printb$;"{left}."
  420 ifz1=127orz1=128thenh$=""
  430 goto30
  440 rem**initialize**
  450 print"{clr}{swuc}":print"{left}";:l9=pos(0)-5:print:poke59468,12
  460 a=40:b=16:c=142:d=43:e=30
  465 dimk$(a),c$(b),d$(b),r$(c),l(d),t(d),t$(e),u$(e)
  470 dimia$(20),in$(20)
  480 forj=1toa:readk$(j):next
  490 forj=1tob:readc$(j),d$(j):next
  500 forj=1toc:readr$(j):next
  510 forj=1tod:readl(j),t(j):next:ti$="000000"
  520 forj=1to20:readia$(j):next:forj=1to20:readin$(j):next
  530 print"{home}{down}{down}{down}what do you want, you ";ia$(fna(j));" ";in$(fna(j));"?":goto420
  540 rem**keywords**
  550 dataim,iam,icant,iwont,idont,wanta,wantto,ifeel,cani,canti,canyou
  560 datadontyou,areyou,who,how,what,where,when,why,youare,youre,your,you,my
  570 datasorry,ye,no,hate,love,think,dream,friend,money,if,great
  580 datacomputer,food,shutup,goodbye,bye
  590 rem**conjugations**
  600 datai,i,you,you,i'm,im,you're,youre,my,my,your,your,am,am,are,are
  605 datawas,was,were,were,i've,ive,you've,youve,myself,myself
  610 datayourself,yourself,me,me,you,you
  620 rem**replies**
  630 datawho cares if you're*
  640 datado you think i should care whether you're*
  650 databig deal! so you are*,i'm sure glad that unlike you i'm not*
  660 datayou should be ashamed that you are*
  670 datai wouldn't expect a creep like you to be capable
  680 datai don't suppose you ever tried hard to*
  690 dataseeing you i'm not surprised you can't*,why can't you*
  700 datai'm supposed to worry that you won't*,i bet you can't*
  710 datatrust a slob like you not to*,"so you won't, so who cares
  720 datais that why you've come crawling for my help
  730 datayou look as if you couldn't*,more like you don't know how to*
  740 datathat's the funniest thing i've heard this year,well i can*
  750 datawould the world collapse if you did*
  760 datai hope you never get a*,you wouldn't know what to do with a*
  770 datahere's hoping you never have a*
  780 datayeah?  i bet you'll never*
  790 datahow disgusting,perfectly revolting
  800 datai just love feeling*
  810 datayou couldn't possibly know what it's like to feel*,how distasteful
  820 datayukkkk!,everyone but you can*
  830 datait's obvious from your ugly moosh why you're unable to*
  840 datait's obvious why you are unable to*,i doubt if you could ever*
  850 datamind your own business. i'm not telling you if i can*
  860 datayou'd better believe that i can*,nose nose
  870 datawhen you've gone i might*,what - me*,you're joking! me*
  880 dataeat your heart out.i'm not saying if i am*,i tell nobody whether i am*
  890 datai'm not going to tell the likes of you whether i am*
  900 datawho's asking the questions here,i'm the boss & i do the asking
  910 datanow what answer could i give to offend you,are you always so prying
  920 datayou really want to know,proper little david frost aren't you
  930 dataexplain why you asked that,i wonder how small your brain is
  940 dataonly in your diseased imagination am i*
  950 datayou must be cracked to think i am*,what sick idea makes you think i am*
  960 datai bet you wish you were*
  970 datayou can't stop talking about me,i just love your talking about me
  980 datait's certainly more interesting talking about me instead of you
  990 datayou're a very queer person aren't you
 1000 datayou're subconsciously talking about yourself
 1010 datawhy this unhealthy interest in my*,what about your own stupid*
 1020 datayou seem desperate to know about my famous*
 1030 dataso what,who cares,big deal.so your*
 1040 datastop blubbing,what a crawler you are,get off your knees
 1050 datayou will be sorry by the time i've finished,that's right - cringe away
 1060 databighead,meglomaniac,cocky little creep,what a large head you have
 1070 dataoverconfident twit,bragging bufoon
 1080 datatrust you,typical of idiots like you
 1090 datanegative little twerp,is that all you've got to say
 1100 dataand why not,i think you're incapable of spelling yes
 1110 datai detest you and you detest*,well so what?  i hate you
 1120 datahow strange you are.  i love*
 1130 datatrust you to love*,good grief!
 1140 dataa typical sub-adolescent infatuation
 1150 datajust like you to think*,i'm not bothered that you think*
 1160 datai wouldn't have believed you capable of thought,how dreary
 1170 datai hope your dreams are horrific,you seem a dreamy person
 1180 datawho would be seen dead in your drams
 1190 datai trust you suffer from recurring dreams
 1200 datayou certainly look like a nightmare
 1210 datawho'd want to be your friend,i bet you have plenty of enemies
 1220 datanobody in their right mind would want you as a friend
 1230 datanice people like me have lots of friends
 1240 datayou look skint,judging by your clothes you look like a tramp
 1250 datamoney and fools are soon parted,you could do with some new shoes
 1260 datai'm very very rich
 1270 datapigs might fly when*,trust you to have an excuse
 1280 data'great' meaning fat famous or wow,can't you spel - it's grate*
 1290 datayou're exaggerating again when you say great*
 1300 datawhat a coincidence! great is how i would describe your mental weakness
 1310 datacomputers can't converse like me,you're scared of me
 1320 datacomputers can think - unlike you,computers are better than humans
 1330 dataeven a computer couldn't help you,computers rule - o.k.
 1340 datagreedy guts, you like as if you overeat
 1350 datawhat else do you eat besides food?,food is too good for you
 1360 datadon't tell me to shut up,you're asking for a smack in the gob
 1370 datacharming,oh tough aren't we
 1380 data"push off before i electrocute you;      next loony, please.
 1390 data"it's been totally boring talking to you. shove off, next clown, please
 1400 datayou're so boring,yawn yawn,very interesting i don't think
 1410 datago and play on the m1,ha-ha.blooming-ha
 1420 datayou do spout rubbush,what on earth are you on about?
 1430 datagive it a rest,why don't you take a long walk on a short pier
 1440 datayou've got verbal diarrhea by the sound of it
 1450 datayou've got a big mouth for a little person
 1460 datadon't you know any other words,what are you - a parrot
 1470 datachange the record
 1480 rem**pointers to replies**
 1490 data1,5,1,5,6,4,10,5,15,5,20,3,23,3,26,4,30,2,32,2,34,3,37,3,40,3,43,8
 1500 data43,8,43,8,43,8,43,8,43,8,51,4,51,4,60,4,55,5,63,3,66,5
 1510 data71,6,77,6,83,3,96,3,89,4,93,5,98,4,102,5,107,2,109,4,113,6
 1520 data119,4,123,4,127,2,127,2,129,9,138,2,140,2
 1530 datafilthy,cretinous,slimy,creepy,idiotic,stupid,loony,wretched
 1540 datagormless,thick,ugly,fat,scrofulous,dense,dosey,clapped out old
 1550 datascatterbrained,gorilla-faced,cross-eyed,knock-kneed
 1560 databuffoon,toad,worm,snake,lunatic,maniac,baboon,twerp,twit,berk,swine
 1570 datapoltroon,prune,bum,knucklehad,prig,maggot,moron,dolt,crackbrain
 8000 ifj<=zthenreturn
 8010 t$=mid$(h$,z,j-z):forj1=len(t$)to1step-1:k=asc(mid$(t$,j1))
 8020 ifk<65ork>90ork=83thennextj1
 8030 ifj1=0thenreturn
 8040 x=x+1:t$(x)=t$:u$(x)=left$(t$,j1):t$(x+1)=""
 8050 return
 9000 rem**find keyword**
 9010 fork=1toa:k$=k$(k):forj=1tox:t$=u$(j)
 9020 ifk$=t$+t$(j+1)thenf=j+2:goto9050
 9030 ifk$=t$thenf=j+1:goto9050
 9040 nextj,k
 9050 return
  110 rem invisible maze program
  120 rem pet program by jim butterfield
  130 print"{swuc}{clr}{down}{down}    the vanishing maze"
  140 print"{down}{down}i'll draw a maze - then it will"
  150 print"vanish."
  160 print"{down}your job will be to find your way"
  170 print"through.  use cursor keys to move, or:"
  180 print"     t to go up;"
  190 print"     b to go down;"
  200 print"     f to go left;"
  210 print"     h to go right."
  220 print"{down}when you bump into a wall, it becomes"
  230 print"visible .. but you lose points,"
  240 print"so try to remember the maze.
  250 print"{down}{rvon} press any key to begin "
  260 get z$:if z$=""goto 260
  270 dim d(4),w(19,12),v(19,12)
  280 x=rnd(0)
  290 print "{clr}{down}{down}{down}  maze!{down}{down}"
  300 input"want a small,medium, or big maze";a$
  310 x=asc(a$)
  320 h=18:v=11:r7=1
  330 if x=83 then h=8:v=6
  340 if x=77 then h=12:v=9
  350 x=200:for i=1 to h:w(i,0)=x:next i
  360 for i=1 to v:w(0,i)=x:w(h+1,i)=x:next i
  370 z=int(rnd(1)*h+1)
  380 print"{clr}":print" ";:for i=1 to h
  390 :a$="{CBM-P}{CBM-P}":if i=z then a$="  "
  400 :print a$;:next i
  410 print
  420 :for j=1 to v:print"{CBM-M}";
  430 : for i=1 to h:print" {CBM-M}";:next i
  440 : print:print"{CBM-M}";
  450 : for i=1to h:print"{CBM-P}{SHIFT-@}";:next i:print:nextj
  460 w(z,1)=1:c=2:r=z:s=1:goto 510
  465 rem find a new place to break walls
  470 s=r7-1:r=0
  480 s=s+1:if w(0,s)<=200 then r7=s:goto 480
  485 w(0,s)=w(0,s)-1
  490 r=r+1:if r>h then w(0,s)=200:goto 480
  500 if w(r,s)<102 or w(r,s)>104 goto 490
  510 rem break out a wall
  520 d(1)=w(r-1,s)=0
  530 d(2)=w(r,s-1)=0
  540 d(3)=w(r+1,s)=0
  550 d(4)=w(r,s+1)=0 and (c>v*h/2 or s<v)
  560 d=d(1)+d(2)+d(3)+d(4)
  565 w(r,s)=100-d:if d<-1 then w(0,s)=w(0,s)+1
  570 if d=0 goto 470
  580 x=rnd(1)*d
  590 for d=1to4:x=x-d(d):if x<0 then next d
  600 on d goto 620,640,710,660
  610 stop
  620 r=r-1:v(r,s)=2
  630 goto 650
  640 s=s-1:v(r,s)=1
  650 gosub 1130:goto 730
  660 if s<v goto 680
  670 x=200:for j=1 to h:w(j,v+1)=x:next j
  680 v(r,s)=v(r,s)or1
  690 gosub 1130:s=s+1:if s>v and c<h*v+1 then c=c+1:goto 470
  700 goto 730
  710 v(r,s)=v(r,s)or 2
  720 gosub 1130:r=r+1
  730 c=c+1
  740 if c<h*v+2 goto 510
  745 rem make maze disappear
  750 for s=1 to v:for r=1 to h:w(r,s)=v(r,s):v(r,s)=3:next r,s
  760 s=v:for r=1 to h:v(r,s)=w(r,s)or 2:next r
  770 for s=1 to v:v(h,s)=v(h,s) and 1:next s
  780 for s=1 to v:for r=1 to h:gosub1130:next r,s
  790 r=z:s=1:get a$:get a$:get a$
  800 ti$="000000":e=0
  810 r1=r:s1=s:a$="{CBM-D}":gosub1100
  820 print"{home}{rvon}";ti$
  830 get a$:ifa$=""goto 820
  840 d=asc(a$)
  850 if d=66 or d=17 goto 920
  860 if d=70 or d=157 goto 940
  870 if d=72 or d=29 goto 970
  880 if d<>84 and d<>145 goto 820
  890 ifs=1goto 820
  900 r3=r:s3=s-1:f3=1:if(w(r3,s3)andf3)=0goto108  0
  910 s=s-1:goto 990
  920 r3=r:s3=s:f3=1:if(w(r3,s3)andf3)=0goto1080
  930 s=s+1:goto 990
  940 ifr=1goto 820
  950 r3=r-1:s3=s:f3=2:if(w(r3,s3)andf3)=0goto1080
  960 r=r-1:goto 990
  970 r3=r:s3=s:f3=2:if(w(r3,s3)andf3)=0goto1080
  980 r=r+1
  990 a$=" ":gosub1100
 1000 ifs<=vgoto 810
 1010 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}home!!{rvof}  your score:";int((1-e/v/h)*1000)
 1020 fors=1tov:forr=1toh:v(r,s)=w(r,s):gosub1130:nextr,s
 1030 getz$:ifz$<>""goto1030
 1040 print:print"{down}{down}   {rvon} want another maze {rvof}? ";
 1050 getz$:ifz$=""goto1050
 1060 ifz$="y"thenrun270
 1070 end
 1080 r=r3:s=s3:v(r,s)=v(r,s)andnotf3
 1090 e=e+1:gosub1130:r=r1:s=s1:goto810
 1100 print"{home}"
 1110 forj=1tos1*2-1:print:next
 1120 forj=1tor1:print"{rght}{rght}";:nextj:print"{left}";a$:return
 1130 print"{home}":forj=1tos*2-1:print:nextj
 1140 forj=1tor:print"{rght}{rght}";:nextj:print"{left}";
 1150 a$="  ":x=v(r,s):ifx<2thena$=" {CBM-M}"
 1160 printa$;"{left}{left}{down}";:a$="  ":ifx=2thena$="{CBM-P}{CBM-P}"
 1170 ifx=0thena$="{CBM-P}{SHIFT-@}"
 1180 ifx=1thena$=" {CBM-M}"
 1190 printa$;"{up}";:return
 2999 stop
 3000 for s=0 to v+1
 3010 for r=0 to h+1
 3020 print w(r,s);
 3030 next r
 3040 print
 3050 next s
    1 print"{clr}{rvon} dreidimensionaler irrgarten-generator {rvof}"
    2 print:print"sie waehlen den irrgarten vom 5x5 feld  bis zum 15x15 feld !"
    3 print"sie koennen stets den selben irrgarten, oder einen neuen waehlen."
    4 print"die verbrauchte zeit wird gezeigt, so-  lange sie im irrgarten sind."
    5 print:print"-----die befehle zum manoeverieren------"
    6 print"(1): dreht sie jedesmal um 90{CBM-V}nach links";
    7 print"(3): dreht sie  um 90{CBM-V} nach rechts"
    8 print"(5): bewegt sie um ein feld vorwaerts "
    9 print"(e): gibt den ausgang (exit)"
   10 print"(m): zeigt luftansicht des irrgartens :"
   11 print" s=start, e=ende (ausgang), *=ihre pos."
   12 print"(r): rueckkehr von fliegeransicht zur        innenansicht"
   30 print"{rvon} zur fortsetzung eine taste druecken ! "
   40 geti$:ifi$=""goto40
   50 dim m%(15,15):def fnr(k)=int(k*rnd(1))+1:print"{clr}":goto90
   70 input"wollen sie nochmals das gleiche (j/n)";i$:ifi$<>"n"andi$<>"j"goto70
   75 ifi$="j"thenai=si:aj=sj:ti$="000000":t=0:goto1110
   80 input"ein neuer irrgarten (j/n)?";i$:ifi$<>"n"andi$<>"j"goto80
   85 ifi$="n"thenend
   90 input"tippen sie die groesse (laenge),(breite)";mi,mj
   92 ifmi<5ormi>15ormj<5ormj>15thenprint"halt! zwischen 4 und 16 !":goto90
   95 print"ich konstruiere!":gosub1320:ti$="000000":t=0:goto1110
  120 fori=32772to33612step40:pokei,103:next:ifj<>3goto140
  130 fori=33652to33730step39:pokei,78:next:return
  140 fori=33652to33649step-1:pokei,99:next:return
  160 fori=32804to33644step40:pokei,101:next:ifj<>3goto180
  170 fori=33684to33770step41:pokei,77:next:return
  180 fori=33684to33687step+1:pokei,99:next:return
  220 fori=32777to33417step40:pokei,103:next:ifj<>3goto240
  230 fori=33457to33613step39:pokei,78:next:return
  240 fori=33457to33453step-1:pokei,99:next:return
  260 fori=32799to33439step40:pokei,101:next:ifj<>3goto280
  270 fori=33479to33643step41:pokei,77:next:return
  280 fori=33479to33483step+1:pokei,99:next:return
  320 fori=32781to33261step40:pokei,103:next:ifj<>3goto340
  330 fori=33301to33418step39:pokei,78:next:return
  340 fori=33301to33298step-1:pokei,99:next:return
  360 fori=32795to33275step40:pokei,101:next:ifj<>3goto380
  370 fori=33315to33438step41:pokei,77:next:return
  380 fori=33315to33318step+1:pokei,99:next:return
  420 fori=32904to33144step40:pokei,103:next:ifj<>3goto440
  430 poke33184,78:poke33223,78:poke33262,78
  431 poke32782,77:poke32823,77:poke32864,77:return
  440 fori=32864to32862step-1:pokei,100:pokei+320,99:next:return
  460 fori=32912to33152step40:pokei,101:next:ifj<>3goto480
  470 poke33192,77:poke33233,77:poke33274,77
  471 poke32872,78:poke32833,78:poke32794,78:return
  480 fori=32872to32874step+1:pokei,100:pokei+320,99:next:return
  520 poke32986,103:poke33026,103:poke33066,103:ifj<>3goto540
  530 poke32905,77:poke32946,77:poke33145,78:poke33106,78:return
  540 poke32945,100:poke32946,100:poke33105,99:poke33106,99:return
  560 poke32990,101:poke33030,101:poke33070,101:ifj<>3goto580
  570 poke32950,78:poke32911,78:poke33110,77:poke33151,77:return
  580 poke32950,100:poke32951,100:poke33110,99:poke33111,99:return
  620 poke33027,103:ifj<>3goto640
  630 poke32987,77:poke33067,78:return
  640 poke32987,100:poke33067,99:return
  660 poke33029,101:ifj<>3goto680
  670 poke32989,78:poke33069,77:return
  680 poke32989,100:poke33069,99:return
  710 fori=33653to33683:pokei,99:next:return
  730 fori=33458to33478:pokei,99:next:return
  750 fori=33302to33314:pokei,99:next:return
  770 fori=33185to33191:pokei,99:pokei-320,100:next:return
  790 fori=33107to33109:pokei,99:pokei-160,100:next:return
  810 poke33068,99:poke32988,100:return
  830 poke33028,86:return
  850 poke33028,19:return
  870 poke33028,5:return
  905 ct=0
  910 j=m%(ai+di*ct-dj,aj+dj*ct+di)
  915 onct+1gosub120,220,320,420,520,620
  920 j=m%(ai+di*ct+dj,aj+dj*ct-di)
  925 onct+1gosub160,260,360,460,560,660
  930 ct=ct+1:j=m%(ai+di*ct,aj+dj*ct)
  935 ifj=1orj=2goto945
  940 ifj=0orj=3orj=4goto955
  941 goto70
  945 ifct<6goto910
  950 gosub830:return
  955 onctgosub710,730,750,770,790,810
  960 ifj=0thenifct<=1thengoto850
  965 ifj=4thenifct<=3thengoto870
  970 return
 1010 geti$:gosub4010:ifi$=""goto1010
 1020 ifi$="1"thenj=dj:dj=di:di=-j:goto1100
 1030 ifi$="3"thenj=dj:dj=-di:di=j:goto1100
 1040 ifi$="5"thenai=ai+di:aj=aj+dj:goto1070
 1045 ifi$="m"thengosub2010
 1046 ifi$="e"thenprint"{clr}":goto70
 1047 ifi$="r"goto1100
 1050 goto1010
 1070 ifm%(ai,aj)<>3andm%(ai,aj)<>0goto1100
 1080 ai=ai-di:aj=aj-dj:goto1010
 1100 ifm%(ai,aj)=4goto1210
 1110 print"{clr}":poke59409,52:gosub905:poke59409,60:goto1010
 1210 print"{clr}":poke59409,52
 1220 print"    NM            NM"
 1221 print"   N  MNM   NM{CBM--}  N  MNM"
 1222 print"  N      M N{$a0}{$a0}M N      M  NM"
 1223 print"          NO{CBM-T}{CBM-T}PM        MN"
 1224 print"   DFC     {CBM-G}{CBM-F}{CBM-D}{CBM-M} "
 1225 print"   {CBM-@}FRD{CBM-@}   {CBM-G}  {CBM-M} "
 1226 print"           {CBM-G} {CBM-K}{CBM-M} "
 1227 print"{CBM-T}FFDCRE    {CBM-T}{CBM-T}{CBM-T}{CBM-T} "
 1228 print"            N{$a0}M "
 1229 print"{CBM-T}F{CBM-@}        N   M"
 1230 print" {CBM-T}F{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}Nziel!M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print
 1231 print"geschafft in der zeit von  ";mid$(ti$,3,2);":";right$(ti$,2)
 1240 gosub5001:print:goto70
 1300 rem
 1320 cm=mi*mj/4:fori=0tomi:forj=0tomj:m%(i,j)=3:nextj:nexti
 1340 di=-1:dj=0:ai=mi:aj=fnr((mj/2)-1)*2:ct=1
 1350 m%(ai,aj)=0:ai=ai+di:aj=aj+dj:si=ai:sj=aj
 1370 m%(ai,aj)=1
 1390 di=fnr(3)-2:dj=fnr(3)-2:ifabs(di)=abs(dj)goto1390
 1400 ai=ai+di:aj=aj+dj
 1420 ifai=0orai=mioraj=0oraj=mjgoto1490
 1440 ifm%(ai,aj)=1goto1390
 1460 fori=-1to+1step+2:forj=-1to+1step+2
 1470 ifm%(ai+i,aj+j)=1andm%(ai,aj+j)=1andm%(ai+i,aj)=1goto1510
 1480 nextj:nexti:ct=ct+1:goto1370
 1490 ifct>cmthenm%(ai,aj)=4:ai=si:aj=sj:return
 1510 ai=ai-di:aj=aj-dj:goto1390
 2010 print"{clr}":fori=0tomi:forj=0tomj
 2020 ifm%(i,j)=1orm%(i,j)=2thenk=32
 2030 ifm%(i,j)=3thenk=160
 2040 ifm%(i,j)=0thenk=147
 2050 ifm%(i,j)=4thenk=133
 2060 ifai=iandaj=jthenk=42
 2070 poke33018+40*(i-1)+j-1,k
 2080 nextj:nexti:return
 4010 i=33710
 4020 ifti<t+60thenreturn
 4030 pokei,48+val(mid$(ti$,6,1)):pokei-1,48+val(mid$(ti$,5,1)):pokei-2,58
 4040 pokei-3,48+val(mid$(ti$,4,1)):pokei-4,48+val(mid$(ti$,3,1))
 4050 t=ti:return
 5001 poke59459,255:fori=1to10:t=ti
 5010 poke59409,52
 5020 ifti<t+10goto5020
 5030 poke59409,60
 5035 poke59459,255:forj=1to25:poke59457,j:nextj
 5040 forj=1to25:poke59457,j:nextj
 5050 ifti<t+20goto5040
 5060 nexti:return
    5 rem:  island of secrets
   10 print"{clr}"
   15 gosub 5000
   20 gosub 2820
   30 d=r:ifr=20thend=fnr(80)
   40 gosub650:gosub2770:print"{rvon}island of secrets{rvof}   time remaining:";l:print"{up}"
   50 printg$;tab(0)"strength = ";int(y);tab(23);"  wisdom = ";x:printg$
   60 print"you are ";i$(val(left$(a$,1)));" ";:gosub720:n=0
   70 fori=1toc4
   80 c=0:ready$
   85 sw=f(i):ifsw$="y"andsw=9thensw=0 
   90 if l(i)=r and sw<1thenc=1
  100 ifn>0and c=1thena$=a$+","
  110 if c=1 then a$=a$+" "+y$:n=n+1
  120 nexti
  130 ifn>0thena$="*you see"+a$:gosub720
  140 print:printg$;f$
  150 print:print"what will you do";
  160 inpute$
  170 c$="":x$="":a=0:o=52:li=len(e$)
  180 fori=1toli
  190 ifmid$(e$,i,1)=" "andc$=""thenc$=left$(e$,i-1)
  200 ifmid$(e$,i+1,1)<>" "andc$>""thenx$=right$(e$,li-i):i=li
  210 nexti
  220 ifx$=""thenc$=e$
  230 iflen(c$)<3thenc$=c$+"???"
  240 fori=1tov
  250 ifleft$(c$,3)=mid$(v$,3*(i-1)+1,3)thena=i
  260 nexti
  270 gosub760
  280 b$="":ifa=0thena=v+1
  290 ifx$="???"thenf$="most actions need two words"
  300 ifa>voro=52thenf$=w$+c$+" "+x$
  310 ifa>v and o=52thenf$="what!"
  320 l=l-1:y=fns(z)
  330 gosub4500
  340 onint(a/10)+1gosub 590,600,610,620,630,630,640
  350 ifr=61thenx=x-fnr(2)+1
  360 ifr=14andfnr(3)=1theny=y-1:f$="you are bitten"
  370 iff(36)<1andr<>f(22)thenf(36)=f(36)+1:l(36)=r:y=y-1
  380 ifr<>l(16)andl(16)>0thenl(16)=1+fnr(4)
  390 ifr<>l(39)thenl(39)=10*(fnr(5)-1)+7+fnr(3)
  400 ifr=l(39)andr<>l(43)andf(13)>-1theny=y-2:x=x-2
  410 ifr<78thenl(32)=76+fnr(2)
  420 ifr=33orr=57orr=73andfnr(2)=1thenl(25)=r
  430 ifr=l(32)andfnr(2)=1andf(32)=0thengosub1310
  440 ifr=19andy<70andf(43)=0andfnr(4)=1thenf$="pushed into the pit":f(w)=1
  450 ifr<>l(41)thenl(41)=21+(fnr(3)*10)+fnr(2)
  460 ifr=l(41)thenf(41)=f(41)-1:iff(41)<-4thengosub1230
  470 iff(43)=0thenl(43)=r
  480 ifl(43)<18andr<>9andr<>10andf(w-2)<1thengosub1330
  490 ifr=18theny=y-1
  500 ify<50theno=fnr(9):gosub1530:ifl(o)=rthenf$="you drop something"
  510 ifl<900andr=23andf(36)>0andfnr(3)=3thengosub1360
  520 ifr=47andf(8)>0thenf$=f$+" you can go no further"
  530 iff(8)+f(11)+f(13)=-3thenf(w)=1:gosub2800
  540 iff(w)=0andl>0andy>1andx>1thengoto30
  550 ifl<1ory<1thenf$="you have failed, the evil one succeeds"
  560 print:printf$:print"your final score=";int(x+y+(abs(l/7*(l<640))))
  570 print:print:print"game over"
  580 end
  590 on a gosub 810,810,810,810,810,1080,1080,1390,1530:return
  600 on a-9 gosub 1540,1630,1670,1710,1730,1080,1760,1760,1760,1760:return
  610 on a-19 gosub 1820,1820,1820,1820,1910,2100,2210,2270,2270,1080:return
  620 on a-29 gosub 2500,2500,2300,2300,2330,2350,2400,2400,2470,2540:return
  630 ona-39 gosub 2600,2600,2720,640
  640 return
  650 restore
  660 fori=1tod:reada$:nexti
  680 d$=right$(a$,4):a$=left$(a$,len(a$)-4)
  690 ifr=39thend$=mid$("101110100",fnr(5),4)
  700 ifr=20thend$="1110"
  710 gosub2780:return
  720 fori=2tolen(a$):e$=mid$(a$,i,1)
  730 printe$;:ife$=" "andfnp(z)>zthenprint
  740 nexti
  750 print". ";:a$="":return
  760 iflen(x$)<3thenx$=x$+"???"
  770 fori=1tow
  780 ifleft$(x$,3)=mid$(z$,3*(i-1)+1,3)theno=i
  790 nexti:ifo=0theno=52
  800 return
  809 rem: n/s/e/w/go
  810 d=0:c=0:ifo=52thend=a
  820 ifo>c4ando<wthend=o-c4
  830 ifb$="500012"orb$="500053"orb$="500045"thend=4
  840 ifb$="500070"orb$="500037"orb$="510011"orb$="510041"thend=1
  850 ifb$="510043"orb$="490066"orb$="490051"thend=1
  860 ifb$="510060"orb$="480056"thend=2
  870 ifb$="510044"orb$="510052"thend=3
  880 ifb$="490051"andf(29)=0thengosub2110:return
  890 ifr=l(39)and(x+y<180orr=10)thenf$=w$+"leave!":return
  900 ifr=l(32)andf(32)<1andd=3thenf$="he will not let you past":return
  910 ifr=47andf(44)=0thenf$="the rocks move to prevent you":return
  920 ifr=28andf(7)<>1thenf$="the arms hold you fast":return
  930 ifr=45andf(40)=0andd=4thenf$="hissss!":return
  940 ifr=25andf(16)+l(16)<>-1andd=3thenf$="too steep to climb":return
  950 if r=51andd=3thenf$="the door is barred!":return
  960 ifd>0thenifmid$(d$,d,1)="0"thenr=r+val(mid$("-10+10+01-01",d*3-2,3)):c=1
  970 f$="ok"
  980 ifd<1orc=0thenf$=w$+"go that way"
  990 ifr=33andl(16)=0thenl(16)=fnr(4):f(16)=0:f$="the beast runs away!"
 1000 ifr<>l(25)oro<>25thenreturn
 1010 f$="":a$="#you board the craft "
 1020 if x<60 then a$=a$+s$
 1030 a$=a$+t$
 1040 gosub2740:gosub2760:gosub2760
 1050 ifx<60thena$="#to serve omegan forever!":f(w)=1
 1060 ifx>59thena$="#the boat skims the dark silent waters":r=57
 1070 gosub2750:gosub2760:gosub2760:return
 1079 rem: get/take/catch
 1080 if((f(o)>0andf(o)<9)orl(o)<>r)ando<=c3thenf$="what "+x$+"?":return
 1090 ifb$="3450050"theny=y-8:x=x-5:f$="they are cursed":return
 1100 ifb$="3810010"thengosub1370
 1110 if(a=15ando<>20ando<>1)or(a=29ando<>16)oro>c3thenf$=w$+c$+" "+x$:return
 1120 ifl(o)=rand(f(o)<1orf(o)=9)ando<c3thenl(o)=0:a=-1
 1130 ifo=16andl(10)<>0thenl(o)=r:f$="it escaped":a=0
 1140 ifo>c1ando<c2thenf=f+2:a=-1
 1150 ifo>=c2ando<=c3theng=g+2:a=-1
 1160 ifo>c1ando<c3thenl(o)=-81
 1170 if a=-1thenf$="taken":x=x+4:e=e+1:iff(o)>1thenf(o)=0
 1180 ifb$<>"246046"orl(11)=0then return
 1190 f$=u$:l(o)=r:iffnr(3)<3then return
 1200 a$="#"+u$+r$
 1210 r=63+fnr(6):l(16)=1:f$=""
 1220 gosub2740:return
 1230 gosub2770:f$="":a$="#the logmen "+m$
 1240 f(41)=0:y=y-4:x=x-4
 1250 ifr<34thena$=a$+"throw you in the water":r=32
 1260 ifr>33thena$=a$+"tie you up in a storeroom":r=51
 1270 gosub2750:gosub2760
 1280 fori=3to4
 1290 ifl(i)=0thenl(i)=42
 1300 nexti:return
 1310 a$="*the swampman tells his tale"
 1320 gosub2740:f(32)=-1:return
 1330 f$="median can disable the equipment"
 1340 ifl(8)=0thenf$=f$+" and asks you for the pebble you carry"
 1350 return
 1360 f(36)=-(fnr(4)+6):f$="a storm breaks overhead!":return
 1370 fork=1to30:gosub2770:print"////lightning flashes!":nextk
 1380 l(39)=r:y=y-8:x=x-2:return
 1389 rem: give
 1390 if(o<>24andl(o)>0)oro=52thenf$="you don't have the "+x$:return
 1400 print"give the ";x$;" to whom";:input x$
 1410 q=o:gosub760:n=o:o=q
 1420 ifr<>l(n)thenf$="the "+x$+" is not here":return
 1430 ifb$="10045"andn=40thenl(o)=81:f(40)=1:f$="the snake uncurls":return
 1440 ifb$="2413075"andn=30andg>1thenf(11)=0:f$="he offers his staff":g=g-1:return
 1450 b$=left$(b$,3):f$="it is refused"
 1460 ifb$="300"andn=42thenx=x+10:l(o)=81
 1470 ifb$="120"andn=42thenx=x+10:l(o)=81
 1480 ifb$="40"andf(4)<0andn=32thenf(n)=1:l(o)=81
 1490 ifleft$(b$,2)="80"and n=43thenl(o)=81:gosub1560
 1500 ifl(o)=81or(o=24andl(11)>0andg>0)thenf$="it is accepted"
 1510 ifn=41thenl(o)=51:f$="it is taken"
 1520 return
 1529 rem: drop
 1530 ifo=4andl(o)=0thenl(o)=81:x=x-1:f$="it breaks!":return
 1539 rem: leave
 1540 ifl(o)=0ando<c1thenl(o)=r:f$="done":e=e-1
 1550 return
 1560 a$="*he takes it ":ifr<>8thena$=a$+"runs down the corridor,"
 1570 gosub2740:a$="*and casts it into the chemical vats, purifying them with"
 1580 a$=a$+" a clear blue light reaching far into the lakes and rivers beyond"
 1590 f(8)=-1:gosub2750:gosub2760:gosub2770:return
 1600 ifl(i)<>0andi<c1theni=i+1:goto1600
 1610 ifl(i)=0thenl(i)=r:f(i)=0:gosub1450:f$="you drop something"
 1620 return
 1629 rem: eat
 1630 if(o<c1oro>c3)andx$<>"???"thenf$=w$+c$+" "+x$:x=x-1:return
 1640 f$="you have no food":iff>0thenf=f-1:y=y+10:f$="ok"
 1650 ifo=3thenx=x-5:y=y-2:f$="they make you very ill!"
 1660 return
 1669 rem: drink
 1670 ifo=31thengosub2380:return
 1680 ifx$<>"???"and(o<21oro>c3)thenf$=w$+c$+" "+x$:x=x-1:return
 1690 f$="you have no drink":ifg>0theng=g-1:y=y+7:f$="ok"
 1700 return
 1709 rem: ride
 1710 if left$(b$,4)="1600"thenf(o)=-1:f$="it allows you to ride"
 1720 return
 1729 rem: open
 1730 ifb$="2644044"thenf$="chest open":f(6)=0:f(5)=0:f(15)=0
 1740 ifb$="2951151"thenf$="the trapdoor creaks":f(29)=0:x=x+3
 1750 return
 1759 rem: chop/chip/tap/break
 1760 y=y-2:ifb$="3577077"andl(9)=0thenf(23)=0:l(23)=r:f$="ok"
 1770 ifv>15andv<19and(l(9)=0orl(15)=0) then f$="ok"
 1780 ifb$="1258158"orb$="2758158"andl(15)=0thenf(12)=0:f(27)=0:f$="crack"
 1790 ifleft$(b$,4)="1100"andr=10thengosub1980
 1800 ifa=18and(o>29ando<34)or(o>38ando<44)oro=16thengosub1900
 1810 return
 1819 rem: fight/strike/attack/hit
 1820 y=y-2:x=x-2:ifr<>l(o)andl(o)<0then return
 1830 ifo=39 then f$="he laughs dangerously"
 1840 ifo=32 then f$="the swampman is unmoved"
 1850 ifo=33 then f$=w$+"touch her!":l(3)=81
 1860 ifo=41 then f$="they think that's funny!"
 1870 ifr=46 then gosub1200
 1880 ifleft$(b$,4)="1400"andr=l(39)thengosub1980:f$="ok":return
 1890 y=y-8:x=x-5:return
 1900 ifl(9)>0thenreturn
 1909 rem: kill
 1910 y=y-12:x=x-10:f$="that would be unwise"
 1920 ifr<>l(o)then return
 1930 f(w)=1:a$="#thunder splits the sky!":f$=""
 1940 a$=a$+"it is the triumphant voice of omegan.":gosub2740
 1950 a$="#well done alphan! the means become the end.."
 1960 a$=a$+"i claim you as my own! ha ha hah!":gosub2750
 1970 gosub2760:x=0:l=0:y=0:return
 1980 gosub2770:ono-10gosub2010,2060,2060,2060
 1990 x=x+10:l(o)=81:f(o)=-1:gosub720:gosub2760:gosub2770
 2000 return
 2010 a$="#it shatters releasing a dazzling rainbow of colours!"
 2020 ifl(2)<>rthen return
 2030 a$=a$+"the egg hatches into a baby daktyl "+o$
 2040 l(39)=81:l(2)=81:f(2)=-1:y=y+40
 2050 return
 2060 ifl(13)<>r then return
 2070 a$="*the coal burns with a warm red flame":f(13)=-1
 2080 ifr=10andr=l(39)thena$=a$+" which dissolves omegan's cloak":y=y+20:f(38)=1
 2090 gosub720:return
 2099 rem: swim
 2100 ifr<>51orf(29)>0thenf$=w$+c$+" here":x=x+1
 2110 x=x-1:r=fnr(5):gosub2770:print"swimming in the poisonous waters"
 2120 j=0:b$="":f$="you surface":print"your strength = ";int(y)
 2130 fori=1tor
 2140 ify<15thenprint"you are very weak"
 2150 print"which way";:inputx$:x$=left$(x$,1):b$=b$+x$:nexti
 2160 fori=1tor
 2170 y=fns(z)-3:ifmid$(b$,i,1)="n"thenj=j+1
 2180 nexti:ifr/2>jandy>1thengoto2110
 2190 if y<2 then f$="you got lost and drowned"
 2200 r=30+fnr(3):return
 2209 rem: shelter
 2210 if f(36)>-1then return
 2220 gosub2770:print"you can run to shelter in:":print"1) grandpa's shack"
 2230 print"2) cave of snelm":print"3) log cabin":print"choose from 1-3":inputa$
 2240 ifa$>"0"anda$<"4"thenr=asc(mid$("a >",val(a$),1))-21:f(22)=-r
 2250 print"you run blindly through the storm":f$="you reach shelter"
 2260 gosub2760:return
 2269 rem: help/scratch
 2270 ifb$="3075075"orb$="3371071"thenf$="how will you do that"
 2280 ifb$="3371071"anda=28thenf(3)=0:f$="she nods slowly":x=x+5
 2290 return
 2299 rem: read/examine
 2300 f$="examine the book for clues"
 2310 ifleft$(b$,3)="600"thenf$=l$
 2320 return
 2329 rem: fill
 2330 ifb$="40041"thenf(4)=-1:f$="filled"
 2340 return
 2349 rem: say
 2350 f$=x$:ifx$=h$andr=47andf(8)=0 thenf(44)=1:f$=j$
 2360 ifx$<>p$ or r<>l(42) or l(3)<81 or l(12)<81 then return
 2370 f$="he eats the flowers- and changes":f(42)=1:f(43)=0:return
 2380 iff(4)+l(4)<>-1 thenf$="you don't have "+x$:return
 2390 gosub2770:print"you taste a drop and..": gosub2760:f$="*ouch!":y=y-4:x=x-7
 2399 rem: wait/rest
 2400 gosub2770:fori=1toabs(f(36))+3
 2410 l=l-1:ify<100orr=f(22)theny=y+1
 2420 print"time passes":gosub2760
 2430 nexti
 2440 ifl>100orf(36)<1thenx=x+2:f(36)=1
 2450 ifa=37ora=36thenf$="ok"
 2460 return
 2469 rem: wave
 2470 ifr=l(25)thenf$="the boatman waves back":return
 2480 ifleft$(b$,3)="700"thenf(7)=1:f$=n$:x=x+8
 2490 return
 2499 rem: rub/polish
 2500 f$="a-dub-dub":ifleft$(b$,4)<>"2815"then return
 2510 iff(o)=1thenf(o)=0:f$=k$:return
 2520 ifl(5)=0thenf(8)=0:gosub1080:f$="the stone utters "+h$
 2530 return
 2539 rem: info
 2540 gosub2770:print" info - items carried":gosub2780
 2550 printg$;tab(0);" food=";f;tab(23);"drink=";g:printg$;:f$="ok"
 2560 fori=1toc4
 2570 ready$:ifl(i)=0thenprinty$
 2580 nexti
 2590 printg$;:gosub2730:return
 2599 rem: xload/xsave
 2600 c$="load":ifa=41thenc$="save"
 2605 input"name";na$:ifna$=""thenna$="isdata" 
 2610 print"prepare to ";c$:gosub2730
 2620 ifa=40thenopen1,8,0,na$ 
 2630 ifa=41thenopen1,8,1,na$
 2640 ifa=41thenf(50)=r:f(49)=y:f(48)=x:f(47)=f:f(46)=g:f(45)=l
 2650 fori=1tow
 2660 ifa=40theninput#1,l(i):input#1,f(i)
 2670 ifa=41thenprint#1,l(i):print#1,f(i)
 2680 nexti
 2690 close1
 2700 ifa=40thenr=f(50):y=f(49):x=f(48):f=f(47):g=f(46):l=f(45)
 2710 f$="ok":return
 2719 rem: quit
 2720 f(w)=-1:f$="you relinquish your quest.":l=1:return
 2730 input"press return";a$:return
 2740 gosub2770
 2750 gosub720:gosub2760:return
 2760 ford=1to900:nextd:return
 2770 printchr$(147):return
 2780 restore:fori=1to80:readtp$:nexti
 2790 return
 2800 a$="*the world lives with new hope!":gosub2750
 2810 f$="your quest is over":return
 2820 print"initialising"
 2830 z=31
 2840 v=42:w=51:c4=43
 2850 dim i$(7)
 2860 dim l(52),f(52)
 2870 data"4the furthest depths of the forest1001"
 2880 data"4the depths of the mutant forest1000"
 2890 data"7a path out of the overgrown depths1000"
 2900 data"6a carnivorous tree1000"
 2910 data"4a corral beneath the crimson canyon1110"
 2920 data"7the top of a steep cliff1011"
 2930 data"4the marsh factory1001"
 2940 data"4the sludge fermentation vats1110"
 2950 data"7the uppermost battlements1001"
 2960 data"4omegan's sanctum1110"
 2970 data"4snelm's lair0001"
 2980 data"2a dark cave0000"
 2990 data"1broken branches0100"
 3000 data"1a thicket of biting bushes0000"
 3010 data"1a huge glassy stone1110"
 3020 data"7the edge of crimson canyon0011"
 3030 data"4the clone factory0101"
 3040 data"4a corridor of clone storage casks1100"
 3050 data"7edge of the well0000"
 3060 data"4the room of secret visions1110"
 3070 data"4snelm's inner chamber0111"
 3080 data"3the southern edge of the forest0101"
 3090 data"7a leafy path1000"
 3100 data"3a fork in the path0100"
 3110 data"7an apparently unclimbable rocky path1100"
 3120 data"7a ledge atop the crimson canyon0010"
 3130 data"4a tall entrance chamber1101"
 3140 data"4a low passage with arms reachin from the walls1010"
 3150 data"7the approach to the well of despair 0001"
 3160 data"4a dim corridor deep in the castle1010"
 3170 data"4the stagnant waters of the crawling creek1001"
 3180 data"4a shallow pool off the creek1100"
 3190 data"7a log pier, jutting out over the creek0000"
 3200 data"4a stretch of featureless dunes1100"
 3210 data"1a group of tall trees1010"
 3220 data"7a narrow ledge at the summit of the canyon0011"
 3230 data"2a monsterous portal in the castle wall0011"
 3240 data"4a chamber inches deep with dust0001"
 3250 data"4here1111"
 3260 data"2a carved archway0010"
 3270 data"4a small hut in the log settlement0111"
 3280 data"1a huge split-log table1001"
 3290 data"4the porch of the logmen's cabin0110"
 3300 data"4grandpa's shack1101"
 3310 data"3a clearing in the trees by a rickety shack0010"
 3320 data"4the nest of a huge dactyl0111"
 3330 data"6the castle of dark secrets by two huge stones0011"
 3340 data"4a room littered with bones0111"
 3350 data"4the cell of whispered screts0111"
 3360 data"4the library of written secrets0111"
 3370 data"4a refuse strewn storeroom1111"
 3380 data"4the logmen's hall0000"
 3390 data"5a log building1000"
 3400 data"7a rutted hillside1100"
 3410 data"7a windswept plain amongst stone megaliths0100"
 3420 data"7the steps of an ancient pyramid1010"
 3430 data"7the island of secrets0111"
 3440 data"1a broken marble column1001"
 3450 data"7an expanse of cracked, baked earth1100"
 3460 data"4a deserted adobe hut1010"
 3470 data"4a livid growth of mad orchids1011"
 3480 data"4a corner strewn with broken chairs0111"
 3490 data"7the bridge near to a log settlement0011"
 3500 data"1a crumbling mass of petrified trees1011"
 3510 data"3the edge of the pyramid1101"
 3520 data"7the roof of the ancient pyramid0100"
 3530 data"3an impassable split in the pyramid1110"
 3540 data"7a barren blasted wasteland0001"
 3550 data"4an expanse of bleak, burnt land1100"
 3560 data"5a delapidated adobe hut0110"
 3570 data"4the heart of the lilies0101"
 3580 data"4the midst of the lilies1100"
 3590 data"3a river's edge by a log bridge0100"
 3600 data"3a petrified village by a river crowded with lilies0100"
 3610 data"4the remains of a village1100"
 3620 data"3the entrance to a petrified village1100"
 3630 data"4a swamp matted with fibrous roots1100"
 3640 data"2a village of hollow stumps defying the swamp0100"
 3650 data"4a tunnel into one of the tree stumps1100"
 3660 data"4a hollow chamber many metres in diameter1110"
 3670 data"a shiny apple"
 3680 data"a fossilised egg"
 3690 data"a lily flower"
 3700 data"an earthenware jug"
 3710 data"a dirty old rag"
 3720 data"a ragged parchment"
 3730 data"a flickering torch"
 3740 data"a glistening pebble"
 3750 data"a woodman's axe"
 3760 data"a coil of rope"
 3770 data"a rugged staff"
 3780 data"a chip of marble"
 3790 data"a polished coal"
 3800 data"a piece of flint"
 3810 data"a geologist's hammer"
 3820 data"a wild canyonbeast"
 3830 data"a grain loaf"
 3840 data"a juicy melon"
 3850 data"some biscuits"
 3860 data"a growth of mushrooms"
 3870 data"a bottle of water"
 3880 data"a flagon of wine"
 3890 data"a flowing sap"
 3900 data"a sparkling freshwater spring"
 3910 data"the boatman"
 3920 data"a strapped oak chest"
 3930 data"a fracture in the column"
 3940 data"a mouth-like opening"
 3950 data"an open trapdoor"
 3960 data"a parched, dessicated villager"
 3970 data"a still of bubbling green liquor"
 3980 data"a tough skinned swampman"
 3990 data"the sage of the lilies"
 4000 data"wall after wall of evil books"
 4010 data"a number of softer roots"
 4020 data"fierce living storm that follows you"
 4030 data"malevolent wraiths who push you toward the well"
 4040 data"his dreaded cloak of entropy"
 4050 data"omegan the evil one"
 4060 data"an immense snake wound around the hut"
 4070 data"a group of aggressive logmen"
 4080 data"the ancient scavenger","median"
 4090 gosub2780
 4100 data"by","facing","at","in","outside","beneath","on"
 4110 fori=1to43:readtp$:nexti
 4120 fori=1to7:read i$(i):nexti
 4130 r=23:b=8:l=1000:e=0
 4140 c1=16:c2=21:c3=24:f=2:g=2
 4150 f=2:g=2
 4160 y=100:x=35
 4170 h$="mnGil5;/u^KzPCl%lj\5ljM-alz/sKiNGrM73**mjff          "
 4180 q$="90101991001109109000901000111000000100000010000000000"
 4190 g$="----------------------------------------"
 4200 f$="let your quest begin"
 4210 k$="reflections stir within"
 4220 l$="remember aladdin it worked for him"
 4230 m$="decide to have a little fun and "
 4240 n$="the torch brightens"
 4250 u$="you anger the bird"
 4260 w$="you can't "
 4270 p$="remember old times"
 4280 r$=" which flies you to a remote place"
 4290 s$="falling under the spell of the boatman "
 4310 t$="and are taken to the island of secrets"
 4320 j$="the stones are fixed"
 4330 o$="which takes omegan in its claws and flies away"
 4340 v$="n??s??e??w??go?gettakgivdroleaeatdriridopepicchochitapbrefigstratt"
 4350 v$=v$+"hitkilswishehelscrcatrubpolreaexafilsaywaireswavinfxloxsaqui"
 4360 z$="appeggflojugragpartorpebaxeropstachicoaflihamcanloamelbismus"
 4370 z$=z$+"botwinsapwatboachecolstotravilliqswasagboorooasawracloomesna"
 4380 z$=z$+"logscamednorsoueaswesup?dowin?out???"
 4390 fori=1tow+1
 4400 l(i)=asc(mid$(h$,i,1))-32:f(i)=asc(mid$(q$,i,1))-48
 4405 ifl(i)>127thenl(i)=l(i)-96
 4410 nexti
 4420 h$="stony words"
 4430 def fnr(z)=int(rnd(1)*z)+1
 4440 def fnp(z)=pos(o)
 4450 def fns(z)=y-(e/c4+.1)
 4460 return
 4500 b$=str$(o)+str$(l(o))+str$(f(o))+str$(r)
 4510 b$=mid$(str$(val(b$)),2)
 4520 return
 5000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}island of secrets"
 5001 print"do you want see hidden objects (y/n)":inputsw$
 5003 print"{down}{down}do you want instructions? (y/n)"
 5010 input i$
 5030 if left$(i$,1)="n"then return
 6000 print"{clr}         *********************"
 6010 print"         *                   *"
 6020 print"         * island of secrets *"
 6030 print"         *                   *"
 6040 print"         *********************"
 6050 print:print
 6060 print"you are alphan and must find the objects"
 6080 print"{up}of power, though you don't know what"
 6090 print"they are, and take them to the island of{up}"
 6100 print"{up}secrets."
 6110 print:print"you must then work out what to do with"
 6120 print"them to restore warmth and life to the"
 6130 print"world.  if you do something wrong you"
 6140 print"may find you have lost the game."
 6150 gosub10000
 6160 rem ******************************
 6170 rem ******************************
 7000 print"{clr}you will notice as you move around that"
 7010 print"the time remaining, shown on the top"
 7020 print"right of the screen, constantly"
 7030 print"decreases.  the game is over when the"
 7040 print"time is up, no matter what else has"
 7050 print"happened."
 7060 print:print"you will also see that your strength"
 7070 print"and wisdom scores vary as the game"
 7080 print"progresses.  you can increase your"
 7090 print"strength by eating or drinking,"
 7100 print"providing you have stocks of food and"
 7110 print"drink.  you can only increase your"
 7120 print"wisdom by doing the right things in the game."
 7130 gosub 10000
 7140 rem ******************************
 7150 rem ******************************
 8000 print"{clr}you can stop at any point in the game"
 8010 print"and save your progress by typing {rvon}xsave{rvof}."
 8030 print"to load in a saved position type {rvon}xload{rvof}."
 8040 print:print"type {rvon}info{rvof} to find out what you are"
 8050 print"carrying."
 8060 print:print"you start with two units each of food"
 8070 print"and drink.  this can be added to by"
 8080 print"picking up any food and drink you spot"
 8090 print"along the way."
 8100 gosub 10000
 9500 rem ******************************
 9510 rem ******************************
 9600 print"{clr}             words{$a0}understood:"
 9700 print:print"get, take, go, give, drop, leave, eat"
 9710 print"drink, ride, open, pick, chop, chip"
 9720 print"tap, break, fight, strike, attack, hit"
 9730 print"kill, swim, shelter, help, scratch,"
 9740 print"catch, rub, polish, read, examine, fill"
 9750 print"say, wait, rest, wave, info, quit"
 9760 print:print"apple, egg, flower, jug, rag, parchment"
 9770 print"torch, pebble, axe, rope, staff, coal"
 9780 print"flint, hammer, canyonbeast, loaf, melon"
 9800 print"biscuits, mushrooms, water, wine, sap"
 9810 print"boat, chest, column, stone, trapdoor"
 9830 print"villager, liquor, swampman, sage, books"
 9840 print"roots, wraiths, cloak, omegan, snake"
 9850 print"logmen, scavenger, median"
 9860 print:print"north, south, east, west, up, down,"
 9870 print"in, out"
 9875 gosub10000
 9900 print"{clr}":return
 10000 print:print"{down}{down}       {rvon}press{$a0}any{$a0}key to{$a0}continue{rvof}";
 10010 geti$:ifi$=""thengoto10010
 10020 return
  100 dimc(51),p$(12),v(12),s$(3),y(5),m(5),b$(4),k$(5)
  110 f$="U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}K{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}J{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}"
  120 data"a  ","   "," x ","   ","  a"
  130 data"2  "," x ","   "," x ","  2"
  140 data"3  "," x "," x "," x ","  3"
  150 data"4  ","x x","   ","x x","  4"
  160 data"5  ","x x"," x ","x x","  5"
  170 data"6  ","x x","x x","x x","  6"
  180 data"7  ","x x","xxx","x x","  7"
  190 data"8  ","xxx","x x","xxx","  8"
  200 data"9 x","x x","xxx","x x","x 9"
  210 data"10x","xxx","x x","xxx","x10"
  220 data"j x","a  ","c  ","k  ","x j"
  230 data"q x","u  ","e  ","e  ","n q"
  240 data"k x","i  ","n  ","g  ","x k"
  250 forj=0to12:readp$(j):fork=0to3:readp$:p$(j)=p$(j)+"{down}{left}{left}{left}"+p$:nextk
  260 p$(j)=p$(j)+"{rght}{up}{up}{up}{up}{up}":nextj
  270 data "A","X","S","Z"
  280 forj=0to3:reads$(j):nextj
  290 data 1,2,3,4,5,6,7,8,9,10,10,10,10
  300 forj=0to12:readv(j):nextj
  310 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  320 h$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  330 n$="   {left}{left}{left}{down}   {left}{left}{left}{down}   {left}{left}{left}{down}   {left}{left}{left}{down}   "
  340 data "i'll have one,too","that calls for a drink","maybe i'll have another"
  350 data "i'll just have a snort here","another li'l drink"
  360 forj=0to4:readb$(j):nextj
  370 data "",", friend",", pal",", buddy",", old buddy"
  380 forj=1to5:readk$(j):nextj
  390 t=ti
  400 x=rnd(-t):t=t/1000:ift>=1goto400
  410 print"{clr}{down} butterfield social & recreational club"
  420 input"{down}how much money do you have";f
  430 iff<100thenprint"{down}scram, cheapskate!":end
  440 m1=1:k$="#"
  450 m1=m1*10:iff/m1>50goto450
  460 f1=int(10*rnd(1)+12)*m1
  470 iff1<fthenprint"membership fees are $";f-f1:f=f1
  480 print"{down}minimum bet is $";m1:f1=f
  490 print"{down}drinks are on the house--":print"pour yourself one while i shuffle.{down}"
  500 ifrnd(1)*5<d1*d2goto1100
  510 ifd1=5goto1020
  520 printb$(d1):print"shuffling..":d1=d1+1
  530 forj=0to51:c(j)=j:nextj
  540 forj=0to51:s=int(rnd(1)*52):s1=c(j):c(j)=c(s):c(s)=s1:nextj:d=51
  550 ifd<9goto500
  560 iff<m1goto1190
  570 ifasc(k$)<>33andrnd(1)>.7thenreadk$:printk$
  575 print"you have $";f;":your bet";k$(d1);:inputb:ifb>fgoto570
  580 ifb=0goto1200
  590 ifb<m1thenprint"minimum bet is $";m1;:goto570
  600 print"{clr}":m=0:y=0:gosub850:gosub860:gosub940:gosub840:gosub860:gosub940
  610 gosub850:gosub860:c$=n$:gosub940
  620 gosub840:gosub860:gosub940
  630 a=0:t=0:forj=1toy:c=y(j):gosub860:nextj
  640 t1=t+a:ift1>21thent1=t
  650 print"{home}                                     "
  660 print"{home}your total=";t1;"{left} ";
  670 ift1>21thenprint"*busted*":goto830
  680 ify=5thenprint"*5-card win*":goto810
  690 input"..hit or stand";z$
  700 ifasc(z$)<83thengosub840:gosub860:gosub940:goto640
  710 a=0:t=0:x1=9:forx=1tom:c=m(x):gosub860:nextx:gosub940
  720 t2=t+a:ift2>21thent2=t
  730 printleft$(v$,17);"my total=";t2;"{left} ";
  740 ift2>21thenprint"*busted*":goto810
  750 ifm=5thenprint"*5-card win*":goto830
  760 ift>15ort2>17goto780
  770 gosub850:gosub860:gosub940:goto720
  780 ift2>t1goto830
  790 ift1>t2goto810
  800 printv$;" no win ":goto550
  810 printv$;" you win ":f=f+b:w1=w1+1:ifw1=3goto950
  820 goto550
  830 printv$;"i win":f=f-b:w1=w2:goto550
  840 y=y+1:x=y:x1=2:c=c(d):d=d-1:y(y)=c:return
  850 m=m+1:x=m:x1=9:c=c(d):d=d-1:m(m)=c:return
  860 v=int(c/4):s=c-v*4:s$=s$(s)
  870 p$=p$(v):c$="":fork=1tolen(p$)
  880 m$=mid$(p$,k,1):ifm$="x"thenm$=s$
  890 c$=c$+m$:nextk:t=t+v(v):ifv=0thena=10
  900 h=int(x*5+rnd(1)*d1-d1/2+.5):v1=x1+int(rnd(1)*d1-d1/2+.5)
  910 ifx=2thenh=10:v1=x1
  920 ifv1<2thenv1=2
  930 return
  940 printleft$(v$,v1);left$(h$,h);f$;c$:return
  950 print"Shi..my name is tootsS"
  960 print"Ssure like your styleS"
  970 print"Scouldn't help noticing your flashyS"
  980 print"Splaying and your big walletS"
  990 print"Smaybe we can get together laterS"
 1000 print"Si'll be over by the cashierS{down}"
 1010 w2=4:goto550
 1020 forj=1to1e3:next:print"{clr}{down}{down}lesh have nuther drink while i shuffle"
 1030 forj=1to20:printleft$(v$,4+rnd(1)*15);left$(h$,rnd(1)*30+1);f$;n$:nextj
 1040 printv$;"{down}{down}{down}{down}{down}shorry, i dropped the c{down}a{down}r{down}d{down}s{down}.{down}.":forj=1to2000:nextj
 1050 print"{down}{down}   {rvon} announcement "
 1060 print"{down}the management regrets the dealer"
 1070 print"{down}having slid under your table{down}"
 1080 print"a new dealer will replace him.{down}"
 1090 d1=0:d2=1:goto500
 1100 forj=1to1e3:next:print"{clr}{down}*open up - this is the police*"
 1110 print"what?":print"*you got a license for gambling*"
 1120 print"uh..":print"*ok, you better come along*"
 1130 print"but..":print"*this your money?  it's evidence*"
 1140 print"well..":print"*okay,that's it .. everybody out"
 1150 print"{down}*buddy, let me give you some advice*"
 1160 print"*never gamble ..":print"*especially in a joint like this.*"
 1170 print"{down}before the raid, you had $";f:print"now you have $0."
 1180 print"{down}have a nice walk home":end
 1190 print"beat it - we don't allow deadbeats here"
 1200 iff>f1thenprint"you gained $";f-f1
 1210 iff<f1thenprint"you lost $";f1-f
 1220 iff=f1thenprint"you broke even!"
 1230 print"..and left with $";f
 1240 data "i used to work in vegas, you know"
 1250 data "what a crummy joint this is."
 1260 data "boy, we get weird customers here."
 1270 data "a bunch of cheapskates run this dump."
 1280 data "the roulette wheel is more fun."
 1290 data "food here is lousy."
 1300 data "i get sick of looking at these cards."
 1310 data "my boss is a mean old crab."
 1320 data "maybe i should work at the races."
 1330 data "this is a lousy job, you know."
 1340 data "big deal; las vegas with peeling paint"
 1350 data "!if my mother knew i worked here..."
  100 clr:poke59468,12:poke59490,30
  110 rem jackpot copyright(c)1980 r.v.gelder
  120 rem rob van gelder
  130 rem willem pyperstraat 4
  140 rem 1817kk alkmaar
  150 g$="jackpot"
  160 print"{clr}{down}"tab(9)"14-09-1980  "g$"!
  170 print"{down} copyright (c) 1980  by r.v.gelder
  180 fori=1to20:print"{SHIFT-*}{SHIFT-*}";:next:print:print"{down}een fruitmachine met geluid
  190 z=val(right$(ti$,2)):forx=1toz:y=rnd(1):next
  200 print"{down}wil je instructies ";:gosub1440
  210 gosub450:ifleft$(in$,1)="j"thengosub1110
  220 print:print"{down}{down}{down}met hoeveel geld begin je ";:gosub1440:tt=val(in$)
  230 iftt<=0thenprint"{up}{up}{up}{up}{up}":goto220
  240 dimp(4,3):poke59464,0:poke59467,16:poke59466,15:g=59464:restore:gosub450
  250 print"{clr}{rvon}{CBM-A}";:forx=1to37:print"{SHIFT-*}";:next:print"{rvon}{CBM-S}{rvof}":forx=1to15
  260 print"{rvon}{SHIFT--}{rvof}";tab(38)"{rvon}{SHIFT--}{rvof}":next:print"{rvon}{CBM-Q}{rvof}";:forx=1to37:print"{rvon}{SHIFT-*}{rvof}";:next:print"{rvon}{CBM-W}{rvof}"
  270 forx=1to3:print"{rvon}{SHIFT--}{rvof}"tab(38)"{rvon}{SHIFT--}{rvof}":next:print"{rvon}{CBM-Z}{rvof}";:forx=1to37:print"{rvon}{SHIFT-*}{rvof}";
  280 next:print"{rvon}{CBM-X}{rvof}":forx=1to2:print"{CBM-G}"tab(21)"{CBM-M}"tab(38)"{CBM-M}":next
  290 print"L";:forx=1to20:print"{CBM-@}";:next:print"{SHIFT-@}";:forx=21to36:print"{CBM-@}";:next
  300 print"{SHIFT-@}":print"{home}{down}{down}{down}{down}{down}{down}{down}":forx=1to37:printtab(x)"{CBM-Y}";:next:print
  310 p$(1)="{CBM-M}P {down}{left}{left}{left}N M":p$(2)="O{CBM-T}P{down}{left}{left}{left}L{CBM-@}{SHIFT-@}":p$(3)="{CBM-M} {CBM-G}{down}{left}{left}{left}{SHIFT-@} L":s$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  320 gosub330:goto350
  330 print"{home}{down}":forx=1to3:fory=4to31step9:printtab(y)p$(x)"{up}{up}":next:print:print:next
  340 return
  350 prints$"{down}{down}{down}{down}{down}{down}{down}":forx=3to31step9:printtab(x)"hold";:next:print:gosub1030
  360 goto490:data"{rvon}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{down}{left}{left}{left}{left}{left}{SHIFT-*}Q Q{SHIFT-*}{down}{left}{left}{left}{left}{left}{SHIFT-*} Q {SHIFT-*}{down}{left}{left}{left}{left}{left}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}"
  370 data"{rvon}FFFFF{down}{left}{left}{left}{left}{left}H{CBM-B}{CBM-I}{rvof}{CBM-B}{rvon}G{down}{left}{left}{left}{left}{left}H{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}G{down}{left}{left}{left}{left}{left}DDDDD"
  380 data"{rvon} {CBM-@}{CBM-@}{CBM-@} {down}{left}{left}{left}{left}{left}{CBM-M}A S{CBM-G}{down}{left}{left}{left}{left}{left}{CBM-M}Z X{CBM-G}{down}{left}{left}{left}{left}{left} {CBM-T}{CBM-T}{CBM-T} "
  390 data"{rvon}RRRRR{down}{left}{left}{left}{left}{left}Y{rvof}{SHIFT-POUND} {CBM-*}{rvon}T{down}{left}{left}{left}{left}{left}Y{CBM-*}{rvof} {rvon}{SHIFT-POUND}T{down}{left}{left}{left}{left}{left}EEEEE"
  400 data"{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{left}{SHIFT--}{CBM-N}{CBM-Y}{CBM-H}{SHIFT--}{down}{left}{left}{left}{left}{left}{SHIFT--}{CBM-N}{CBM-P}{CBM-H}{SHIFT--}{down}{left}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
  410 data"{rvon}*****{down}{left}{left}{left}{left}{left}*bar*{down}{left}{left}{left}{left}{left}*{CBM-Y}{CBM-Y}{CBM-Y}*{down}{left}{left}{left}{left}{left}*****"
  420 data"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-M}P {CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}N M{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  430 data"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}O{CBM-T}P{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}L{CBM-@}{SHIFT-@}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  440 data"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-M} {CBM-G}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{SHIFT-@} L{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  450 forx=1to9:readr$(x):next
  460 x1$="1222223333444455556778899":x2$="1112222333344455566778899":return
  470 x=int(rnd(ti)*25+1):x(r)=val(mid$(x1$,x,1)):return
  480 x=int(rnd(ti)*25+1):x(r)=val(mid$(x2$,x,1)):return
  490 y=20:tt=tt-1:forz=1toy
  500 ifz<6andh(1)<>1thenr=1:pokeg,0:gosub470:prints$tab(3)r$(x(r)):pokeg,250
  510 ifz=5andh(1)<>1thenprints$"{down}{down}{down}{down}"tab(5)"{CBM-O}":forx=1to20:pokeg,9:pokeg,0:next
  520 pokeg,0:ifz<11andh(2)<>1thenr=2:gosub480:prints$tab(12)r$(x(r)):pokeg,210
  530 ifz=10andh(2)<>1thenprints$"{down}{down}{down}{down}"tab(14)"{CBM-O}":forx=1to20:pokeg,9:pokeg,0:next
  540 pokeg,0:ifz<16andh(3)<>1thenr=3:gosub480:prints$tab(21)r$(x(r)):pokeg,170
  550 ifz=15andh(3)<>1thenprints$"{down}{down}{down}{down}"tab(23)"{CBM-O}":forx=1to20:pokeg,9:pokeg,0:next
  560 pokeg,0:ifh(4)<>1thenr=4:gosub470:prints$tab(30)r$(x(r)):pokeg,130
  570 ifz=20andh(4)<>1thenprints$"{down}{down}{down}{down}"tab(32)"{CBM-O}":l=0:forx=1to20:pokeg,9:pokeg,0:next
  580 pokeg,0:next:l=0:forx=1to4
  590 ifh(x)=1thenh(x)=2:goto610
  600 ifh(x)=2thenh(x)=0
  610 next:gosub780
  620 l=l+1:forx=1to4
  630 ifint(l/2)<>l/2andh(x)<>1thenprints$"{down}{down}{down}{down}{down}{down}{down}{down}"tab(3+(x*9)-9);"hold":pokeg,20
  640 pokeg,0
  650 ifint(l/2)=l/2andh(x)<>2thenprints$"{down}{down}{down}{down}{down}{down}{down}{down}"tab(3+(x*9)-9);"{rvon}hold":pokeg,20
  660 pokeg,0:getc$:ifc$<>""thena=val(c$):ifh(a)<>2thenh(a)=1:pokeg,100
  670 ifc$=chr$(13)thenpoke59466,int(rnd(ti)*240+1):pokeg,0:goto710
  680 ifc$="c"thenforz=1to4:ifh(z)=1thenh(z)=0
  690 ifc$="c"thennext
  700 next:goto620
  710 forx=1to4
  720 ifh(x)=1thenprints$"{down}{down}{down}{down}{down}{down}{down}{down}"tab(-6+(x*9))"{rvon}hold"
  730 ifh(x)=1thenprints$"{down}{down}{down}{down}"tab(-4+(x*9))"{CBM-O}"
  740 ifh(x)<>1thenprints$"{down}{down}{down}{down}{down}{down}{down}{down}"tab(-6+(x*9))"hold"
  750 ifh(x)<>1thenprints$"{down}{down}{down}{down}"tab(-4+(x*9))" "
  760 next:goto490
  770 forz=250to150step-1:pokeg,z:next:pokeg,0:return
  780 rp=0:forx=1to4
  790 ifx(x)=7andp(x,1)=0thenprint"{home}{down}{down}"tab(-5+(x*9))"{rvon}"p$(1):p(x,1)=1:gosub770
  800 ifx(x)=8andp(x,2)=0thenprint"{home}{down}{down}{down}{down}"tab(-5+(x*9))"{rvon}"p$(2):p(x,2)=1:gosub770
  810 ifx(x)=9andp(x,3)=0thenprint"{home}{down}{down}{down}{down}{down}{down}"tab(-5+(x*9))"{rvon}"p$(3):p(x,3)=1:gosub770
  820 next:pt=0:forx=1to4:fory=1to3:pt=pt+p(x,y):next:next:ifpt=12thenrp=100
  830 ifpt=12thenforx=1to4:fory=1to3:p(x,y)=0:next:goto960
  840 ifx(1)=1orx(4)=1thengosub330:forx=1to4:forz=1to3:p(x,z)=0:next:next
  850 ifx(1)=1orx(4)=1thenrp=2:ifx(3)=1andx(4)=1thenrp=4:ifx(2)=x(3)thenrp=8
  860 ifx(1)=1andx(2)=1thenrp=4:ifx(3)=x(2)thenrp=8
  870 ifx(1)=1andx(2)=1andx(3)=1andx(4)=1thenrp=16
  880 ifx(1)=2orx(4)=2thenifx(2)=2andx(3)=2thenrp=6:ifx(1)=x(4)thenrp=12
  890 ifx(1)=3orx(4)=3thenifx(2)=3andx(3)=3thenrp=8:ifx(1)=x(4)thenrp=14
  900 ifx(1)=4orx(4)=4thenifx(2)=4andx(3)=4thenrp=10:ifx(1)=x(4)thenrp=16
  910 ifx(1)=5orx(4)=5thenifx(2)=5andx(3)=5thenrp=12:ifx(1)=x(4)thenrp=18
  920 ifx(1)=6orx(4)=6thenifx(2)=6andx(3)=6thenrp=100:ifx(1)=x(4)thenrp=200
  930 ifx(1)=7orx(4)=7thenifx(2)=7andx(3)=7thenrp=20:ifx(1)=x(4)thenrp=40
  940 ifx(1)=8orx(4)=8thenifx(2)=8andx(3)=8thenrp=20:ifx(1)=x(4)thenrp=40
  950 ifx(1)=9orx(4)=9thenifx(2)=9andx(3)=9thenrp=20:ifx(1)=x(4)thenrp=40
  960 tt=tt+rp:ifrp=0then1030
  970 forx=1to4:h(x)=2:next
  980 ifrp>99thenforx=1to255:pokeg,1:forz=1to10:next:pokeg,abs(x-255):next
  990 ifrp>99thenforx=1to50:fory=100to150:pokeg,y:next:poke59466,x:next
 1000 print:print"{home}":forx=1to21:print"{down}";:next:printtab(30)"f"rp"{left},--{up}"
 1010 forx=1to100:pokeg,x:printtab(24)"{rvon}prys:{rvof}{up}":printtab(24)"prys:{up}":pokeg,x*2:next
 1020 poke59466,0:printtab(24)"              ":ifpt=12thengosub330
 1030 print:print"{home}":forx=1to21:print"{down}";:next:print"{rght}                 {up}"
 1040 print"{rght}totaal f."tt"{left},--"
 1050 iftt<>0thenreturn
 1060 print"{up}{rght}   {rvon}u bent blut{rvof}   {rght}{rght}{rght}{rght}{rght}{rght}{rvon}nog eens ?":poke59467,0:pokeg,0:poke59466,0
 1070 getc$:ifc$<>""then1070
 1080 getc$:ifc$=""then1080
 1090 ifc$="j"thenprint"{clr}":run220
 1100 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}":goto63000
 1110 print"{clr}deze machine betaalt zowel van links":print
 1120 print"naar rechts als van rechts naar links":print
 1130 print"{down}1 maal {up}"r$(1)"{up}{up}{rvof} (links of rechts)= f.2,-{down}{down}{down}{down}"
 1140 print"2 maal {up}"r$(1)"{up}{up}{rvof} = f.4,-{down}{down}{down}{down}"
 1150 print"3 maal {up}"r$(1)"{up}{up}{rvof} = f.8,-{down}{down}{down}{down}"
 1160 print"4 maal {up}"r$(1)"{up}{up}{rvof} = f.16,-":gosub1410
 1170 print"{clr}{down}3 maal {up}"r$(2)"{up}{up}{rvof} = f.6,-{down}{down}{down}{down}"
 1180 print"4 maal {up}"r$(2)"{up}{up}{rvof} = f.12,-{down}{down}{down}{down}"
 1190 print"3 maal {up}"r$(3)"{up}{up}{rvof} = f.8,-{down}{down}{down}{down}"
 1200 print"4 maal {up}"r$(3)"{up}{up}{rvof} = f.14,-":gosub1410
 1210 print"{clr}{down}3 maal {up}"r$(4)"{up}{up}{rvof} = f.10,-{down}{down}{down}{down}"
 1220 print"4 maal {up}"r$(4)"{up}{up}{rvof} = f.16,-{down}{down}{down}{down}"
 1230 print"3 maal {up}"r$(5)"{up}{up}{rvof} = f.12,-{down}{down}{down}{down}"
 1240 print"4 maal {up}"r$(5)"{up}{up}{rvof} = f.18,-":gosub1410
 1250 print"{clr}{down}3 maal {up}"r$(6)"{up}{up}{rvof} = f.100,-{down}{down}{down}{down}"
 1260 print"4 maal {up}"r$(6)"{up}{up}{rvof} = f.200,-{down}{down}{down}{down}":gosub1410
 1270 print"{clr}{down}3 maal {up}"r$(7)"{up}{up}{rvof} of {up}"r$(8)"{up}{up}{rvof} of {up}"r$(9)"{up}{up}{rvof} = f.20,-{down}{down}{down}{down}{down}{down}{down}"
 1280 print"4 maal {up}"r$(7)"{up}{up}{rvof} of {up}"r$(8)"{up}{up}{rvof} of {up}"r$(9)"{up}{up}{rvof} = f.40,-{down}{down}{down}":gosub1410
 1290 print"{clr}{down}als je {up}"r$(7)"{up}{up}{rvof} of {up}"r$(8)"{up}{up}{rvof} of {up}"r$(9)"{up}{up}{rvof} krygt{down}{down}{down}{down}"
 1300 print"dan gaat van het poppetje daarboven,
 1310 print"{down}het desbetreffende deel branden."
 1320 print"{down}branden ze allemaal dan levert dit
 1330 print"{down}f.100,- op.
 1340 print"{down}de poppetjes gaan echter allemaal
 1350 print"{down}uit als er links of rechts "r$(1)"{rvof}{up}{up}{up} komt.{down}{down}{down}":gosub1410
 1360 print"{clr}je kunt alle wielen vasthouden, die
 1370 print"{down}je de vorige ronde niet heb vastgezet
 1380 print"{down}druk hiertoe op de nummers 1 t/m 4.
 1390 print"{down}om te verbeteren druk dan {rvon}c{rvof} (cancel)
 1400 print"{down}om hem te laten draaien druk {rvon}return{rvof}.":return
 1410 printtab(20)"{rvon}{down}{down}druk een toets{rvof}"
 1420 getc$:ifc$=""then1420
 1430 return
 1440 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 1450 getz$:if z$<>""then1480
 1460 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1470 goto1450
 1480 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto1520
 1490 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 1500 ifzl>254then1450
 1510 in$=in$+z$:printz$;zd$;z$;
 1520 ifz=13thenin$=mid$(in$,2):printcr$;:return
 1530 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto1450
 1540 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1440
 1550 goto1450
 63000 ifpeek(45058)=180then:$x,peek(45051)-48,"inhoud
 63010 end
    1 rem**bob chappell**rev'd 14/6/80***
    2 b$="{rvon} press any key to continue "
    3 print"{clr}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}"
    4 print"{rvon} jason and the argonauts "
    5 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
    6 print"{down}   in this game,you become jason and"
    7 print"{down}sail across the euxine sea in search"
    8 print"{down}of the golden fleece."
    9 print"{down}{down}   the sea is divided into 100 straits,"
   10 print"{down}each of which may or may not contain an"
   11 print"{down}island.on one of these islands is the"
   12 print"{down}{rvon} golden fleece. "
   13 print"{down}n.b. the 'return' key never needs to be
   14 print"hit in this or the main game.{down}":printb$
   15 geta$:ifa$=""goto15
   16 print"{clr}  the symbols used in the sea are:-"
   17 print"{down}{CBM-+}  island"
   18 print"{down}$  argo in strait with no island"
   19 print"{down}{rvon}+{rvof}  argo in strait with island"
   20 print"{down}Q  previously visited - no island"
   21 print"{down}=  previously visited - island"
   22 print"{down}a space represents sea only{down}{down}":printb$
   23 get a$:ifa$=""goto23
   24 print"{clr}  the symbols in each strait are:-"
   25 print"{down}$  argo"
   26 print"{down}{CBM-+}  island"
   27 print"{down}+  island and argo"
   28 print"{down}a space represents sea only{down}{down}":printb$
   29 geta$:ifa$=""goto29
   30 print"{clr}rations"
   31 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   32 print"you will be given a number of rations at
   33 print"the start.each crew member eats 1 ration
   34 print"per day."
   35 print"{down}{down}a move at sea takes 1 day.
   36 print"{down}similarly,when stopping at anchor or on
   37 print"{down}an island,days pass as you remain there.{down}{down}":printb$
   38 geta$:ifa$=""goto38
   39 print"{clr}crew members"
   40 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   41 print"you will be given a crew to which you
   42 print"can add by rescuing castaways and
   43 print"capturing islanders.
   44 print"{down}the voyage ends when one of the
   45 print"following occurs:-"
   46 print"{down} 1. you (jason) are killed.
   47 print" 2. all the crew are dead.
   48 print" 3. the rations run out.
   49 print" 4. the golden fleece is found.
   50 print"{down}each crew member is given an amount of
   51 print"power,needed for combat.this power can
   52 print"be increased by slaying monsters and
   53 print"finding good things.{down}{down}":printb$
   54 geta$:ifa$=""goto54
   55 print"{clr}orders"
   56 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   57 print"the orders at your disposal are:-
   58 print"{down} m = inspect the delphian maps of the
   59 print"     sea.
   60 print"{down} c = display the commands available.
   61 print"{down} i = inventory of the argo.it
   62 print"     reports the number of crew,power"
   63 print"     per man,amount of rations,and the"
   64 print"     number of days food will last."
   65 print"{down}{down}if you have set the rations to less
   66 print"than normal (see 'r'),then it
   67 print"will show this by the word {rvon}quota{rvof}
   68 print"followed by the rationing figure":print"(e.g 1/4).{down}":printb$
   69 geta$:ifa$=""goto69
   70 print"{clr} r = food rationing.this gives you the "
   71 print"     opportunity to reduce the rations"
   72 print"     per man.each successive cut"
   73 print"     reduces the previous ration so"
   74 print"     making possible a longer voyage."
   75 print"     however,it also increases the "
   76 print"     chances of some of your crew dying"
   77 print"     of starvation."
   78 print"{down}{down}     you are given 2 options:-"
   79 print"{down}     l = reduce the ration.
   80 print"     n = set the ration back to normal.
   81 print"{down}on some occasions,the crew may insist
   82 print"on normal rations.{down}{down}":printb$
   83 geta$:ifa$=""goto83
   84 print"{clr} moving":print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   85 print"{down}the winds are always northerly or
   86 print"westerly so you can only ever sail
   87 print"south (s),east (e) or stop (a = anchor).
   88 print"{down}the argo will continue to sail in the
   89 print"same direction until another 's' 'e' or
   90 print"'a' key is hit.
   91 print"{down}if you sail off the edge,you will
   92 print"reappear on the other side.
   93 print"{down}to disembark on an island,you must"
   94 print"land on the island square. you will
   95 print"then be told what awaits you.
   96 print"{down}you remain exploring the island until
   97 print"you hit 's' or 'e'.{down}{down}":printb$
   98 geta$:ifa$=""goto98
   99 print"{clr} when you meet an island inhabitant,
  100 print"you will be asked how many groups of
  101 print"men are to enter combat.{rvon} each group "
  102 print"{rvon} is made up of 5 men. {rvof}decide quickly.
  103 print"{down}the outcome will be,including the"
  104 print"loss of some of your men,"
  105 print"one of the following:-"
  106 print"{down}     a)the creature flees."
  107 print"     b)it stays for further battle.
  108 print"     c)the creature is slain.{down}{down}":printb$
  109 geta$:ifa$=""goto109
  110 print"{clr}{down}when you are at sea or exploring an
  111 print"island,you may encounter plague,
  112 print"typhoons,sea beasts and a host of"
  113 print"other events,some of which may be"
  114 print"pleasant!"
  115 print"{down}infrequently,there will be an"
  116 print"eclipse of the sun which will render"
  117 print"you unable to see very far for a time.
  118 print"{down}beware the whirlwind for the argo is
  119 print"likely to be blown anywhere in the sea.{down}{down}":printb$
  120 geta$:ifa$=""goto120
  121 print"{clr}{down}{down}the oracle says:-
  122 print"{down}if you connect an amp and speaker to the
  123 print"cb2(m) - via a 50/500 ohm resistor - and
  124 print"ground(n) pins of the user port,
  125 print"{down}you will have sound effects as well.{down}{down}{down}":printb$
  126 geta$:ifa$=""goto126
  127 print"{clr}{down}{down}now hurry down to the quayside where"
  128 print"{down}the argo is being made ready for your"
  129 print"{down}journey
  130 print"{down}{down}good fortune be with you!
  132 end
    1 poke59468,12
    2 aa=59467:bb=59466:cc=59464:print"{clr}{down}{down}{rvon} sailing ":pokeaa,16
    3 def fna(x)=int(x*rnd(1)):dims(9,9),m$(20),se$(14):a=fna(ti)
    4 fora=0to9:forb=0to9
    5 c=fna(60)+1:ifc=21then5
    6 s(a,b)=c:next:next
    7 a=fna(10):b=fna(10):s(a,b)=21
    8 fora=1to20:readm$(a):next
    9 datathe hippogriff,the hydra,the minotaur,the kraken,the sirens,medusa
   10 datathe basilisk,scylla,the gryphon,the chimaera,the roc,circe
   11 datathe mersnake,cerberus,the gorgons,the sulphur dragon,cyclops
   12 datathe fire-bull,poseidon,the spider king
   13 fora=0to14:readse$(a):next
   14 datatyphoon,mast collapses,tidal wave,plague,whirlpool,mutiny,tempest
   15 datasharks,yellow jack,blood-red fog,pearls,mermaids,turtles,fresh water
   16 datacasks of wine
   17 fora=0to10:readle$(a):next
   18 datalotus fever,viper pit,man-eating plants,swamp,earthquake,killer ants
   19 datapoisoned fruit,silver mines,golden apples,rubies,honeycombs
   20 fora=0to5:readsm$(a):next
   21 dataslimy sea serpent,monstrous octopus,flying piranhas,pterodactyls
   22 dataharpies,vultures
   23 ll$="e":a=0:b=0:gosub24:goto31
   24 i1=-1:i2=-1:q=s(a,b):ifq<22then26
   25 ifq<101orq>121then28
   26 g=fna(9):i1=g:g=fna(9):i2=g
   27 ifa1=i1goto26
   28 ifq<101thenq=q+200:goto30
   29 q=q+100
   30 s(a,b)=q:q=q-200:return
   31 m=fna(101)+20:p=fna(10)+1:fd=1000*fna(m+5):gosub32:goto47
   32 print"{clr}    {rvon} the euxine sea ":gosub186
   33 iffs=1thenprint"{down}{down}{rvon} eclipse ":goto46
   34 print"{down}   0 1 2 3 4 5 6 7 8 9"
   35 print"  {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}"
   36 fore=0to9:print e;"{left}{CBM-H}";:forf=0to9:n=s(e,f):c$=" "
   37 ifn<22thenc$="{CBM-+}":goto43
   38 ifn<101then43
   39 ifn<122thenc$="=":goto43
   40 ifn<201thenc$="Q":goto43
   41 ifn<222thenc$="{rvon}+{rvof}":goto43
   42 c$="$"
   43 printc$;" ";:next:print"{left}{CBM-N}"
   44 print"  {CBM-H}                   {CBM-N}           ":next
   45 print"{up}  {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
   46 gosub69:print"{clr}":return
   47 gosub48:goto60
   48 print"{home}    strait"a":"b
   49 print"    {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}":iffs=1then58
   50 fore=0to9:print"    {CBM-H}";:forf=0to9:c$=" ":ifi1<0then54
   51 ife<>a1ande<>i1thenc$="          ":f=9:goto55
   52 ife=a1andf=a2ande=i1andf=i2thenc$="+":goto55
   53 ife=i1andf=i2thenc$="{CBM-+}":goto55
   54 ife=a1andf=a2thenc$="$":gosub189
   55 printc$;:next:print"{CBM-N}"
   56 next:print"    {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} "
   57 print"           ":return
   58 c$="          ":fore=0to9:print"    {CBM-H}";c$;"{CBM-N}"
   59 next:print"    {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y} ":print"eclipse":return
   60 ifm<1thenprint"{clr}{rvon} no crew!":goto151
   61 dy=int((fd/m)*(es+1)):ifdy<1thenprint"{clr}{rvon} no food!":goto151
   62 forz=1to10:getc$:ifc$<>""thenz=10
   63 next:ifc$="r"goto99
   64 ifc$="m"thengosub32:goto60
   65 ifc$="a"thenll$=c$:goto96
   66 ifc$="i"goto107
   67 ifc$="c"goto113
   68 goto84
   69 forz=1to2000:next:return
   70 forz=1to500:next:return
   71 print"{clr}":fork=1to6:print"{home}{down}{down}{down} rejoice!  rejoice! ":gosub187
   72 print"{home}{down}{down}{down}{rvon} the golden fleece!!":gosub188:next:end
   73 gosub185:gosub83:k=fna(f/3)+2:mp=fna(g1)+(f*2)
   74 print"{rvon} ";m$(e);" kills";k;"{left} men and ":gosub69
   75 ifg1>=mpgoto78
   76 x=fna(2):ifx=1thenprint"{down}{rvon} is angry!":goto79
   77 print"{down}{rvon} flees ":goto79
   78 print"{down}{rvon} dies ":z2=1:x=0:p=p+2
   79 m=m-k:gosub182:ifm<1then60
   80 gosub70:gosub81:return
   81 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   82 forz=1to8:print"                                       ":next:return
   83 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
   84 ifc$="s"orc$="e"then86
   85 c$=ll$
   86 ll$=c$:ifc$="e"thena2=a2+1:goto89
   87 ifc$="a"then96
   88 a1=a1+1
   89 ifa1<10anda2<10then96
   90 s(a,b)=s(a,b)-100:print"{clr}"
   91 ifa1>9thena1=0:a=a+1:goto93
   92 ifa2>9thena2=0:b=b+1
   93 ifa>9thena=0:goto95
   94 ifb>9thenb=0
   95 fs=0:gosub24
   96 fd=fd-m:gosub48:ifa1<>i1ora2<>i2thengosub133:goto60
   97 ifq=21then71
   98 gosub120:ll$="a":gosub146:goto60
   99 gosub83:gosub183:print"{rvon} rations normal or less (n/l) ";:ti$="000000"
  100 ifti$>"000004"then105
  101 getc$:ifc$=""then100
  102 ifc$="n"thenes=0:goto106
  103 ifc$<>"l"then100
  104 iffna(5)>0thenes=es+1:goto106
  105 print:print"{down}{rvon} normal rations demanded ":es=0:gosub69
  106 gosub81:goto60
  107 gosub83:gosub183:print"{down}{rvon} no.of men           {rvof}";tab(19);m
  108 print"{rvon} power               {rvof}";tab(19);p
  109 print"{rvon} rations             {rvof}";tab(19);fd;:ifes=0thenprint:goto111
  110 print"{rvon} quota 1"es+1"{left} {left}{left}{left}/"
  111 print"{rvon} days left           {rvof}";tab(19);int((fd/m)*(es+1))
  112 gosub69:gosub81:goto60
  113 gosub83:gosub183
  114 print"{down}{rvon} m = consult map       ":print"{rvon} e = sail east         "
  115 print"{rvon} s = sail south        "
  116 print"{rvon} a = anchor            "
  117 print"{rvon} r = adjust rations    "
  118 print"{rvon} i = inventory of ship "
  119 gosub69:gosub81:goto60
  120 ifll$<>"a"then123
  121 ifz2=1thenreturn
  122 z1=z1+1:ifz1<fna(12)thenreturn
  123 z2=0:z1=1:gosub83:g2=fna(99)+10:e=s(a,b)-200
  124 print"{rvon} thunder of mars! ":gosub184:print"{down}{rvon} "m$(e)" "
  125 print"{down}{rvon} men for combat ";:ti$="000000"
  126 ifti$>"000003"thenprint"{rvon} look out!":f=2:goto130
  127 getc$:ifc$=""then126
  128 f=val(c$)*5:iff<5orf>mthenti$="000005":goto126
  129 printf;"{left} "
  130 gosub70:g1=int(p*f):gosub81:gosub73
  131 ifx=1thenprint"{up}{up}{up}{up}{up}{up}{up}{up}{up}":goto125
  132 return
  133 t=fna(100):ifll$="a"thengosub191:gosub70:gosub81:t=fna(30)
  134 ift>11goto164
  135 gosub83:ift<>11then138
  136 print"{rvon} whirlwind! chaos!":gosub185:print"{clr}":gosub185:s(a,b)=s(a,b)-100
  137 a=fna(10):b=fna(10):a1=b:a2=a:gosub24:gosub48:return
  138 z=fna(3)+2:ift>2goto140
  139 z=z+5:gosub188:print"{rvon}";z;"{left} castaways on a raft ":m=m+z:goto163
  140 t=t*100:g1=fna(19):ifg1>9andg1<15then145
  141 ifg1>14andt>fdthent=fd
  142 ifg1>14thenprint"{rvon} ";t;"{left} rations rotted ":gosub187:fd=fd-t:goto163
  143 print"{rvon} zeus! ";se$(g1)" ":gosub187:ifz>mthenz=m
  144 print"{down}{rvon}"z;"{left} killed ":m=m-z:goto163
  145 gosub183:print"{rvon} ";se$(g1)" ":p=p+1:goto163
  146 gosub83:print"{rvon} exploring ":gosub189:gosub70:gosub81
  147 t=fna(100):ift>30then157
  148 gosub83:g1=fna(12):ifg1<>11goto152
  149 ift>3theng1=fna(11):goto152
  150 print"{rvon} jason killed by tiger!
  151 gosub185:print"{down}{rvon} voyage over ":pokeaa,0:pokebb,0:end
  152 ifg1>6then155
  153 print"{rvon} achilles! ";le$(g1);" ":gosub187:j=fna(5)+1:ifj>mthenj=m
  154 print"{down}{rvon} "j;"{left} lost ":m=m-j:goto156
  155 print"{rvon} found - ";le$(g1)" ":p=p+1:gosub186
  156 gosub69:gosub81:return
  157 ift<70thenreturn
  158 gosub83:ift<87then161
  159 e=fna(200)+200:print"{rvon} fruit! -"e;"{left} rations "
  160 fd=f#+e:goto162
  161 e=fna(30)+2::print"{rvon} captured -"e;"{left} islanders ":m=m+e
  162 gosub183:gosub69:gosub81:return
  163 gosub69:gosub81
  164 t=fna(99):ift<80then170
  165 gosub83:ift<87andll$<>"a"thenprint"{rvon} argo hits rocks ":goto167
  166 t=fna(6):print"{rvon} argo attacked by "sm$(t)" "
  167 gosub182:e=fna(3)+1:ife>mthene=m
  168 print"{down}{rvon}"e;"{left} crew dead ":m=m-e
  169 gosub69:gosub81
  170 t=fna(99):iffs=1goto174
  171 ift<96thenfs=0:goto175
  172 fs=1:gosub83:gosub187:print"{rvon} eclipse of the sun!":k=2:gosub70
  173 print"{up}                        ":gosub48:goto175
  174 ift>90thenfs=0
  175 ifes=0thenreturn
  176 z=fna(20)+1:ifz>5thenreturn
  177 gosub83:z=es*z:ifz>mthenz=m
  178 print"{rvon}";z;"{left} crew die of hunger ":m=m-z:gosub182:gosub81:return
  179 pokebb,65:pokecc,0:forjj=1to4:forj5=j1toj2stepj3
  180 gosub181:next:forj5=j2toj1stepj4:gosub181:next:next:pokecc,0:return
  181 pokecc,j5:return
  182 forj=30to250:pokecc,j:next:pokecc,0:return
  183 forj=250to70step-1:pokecc,j:next:pokecc,0:return
  184 j1=240:j2=100:j3=-5:j4=5:goto179
  185 j1=240:j2=45:j3=-15:j4=15:goto179
  186 j1=40:j2=60:j3=1:j4=-1:goto179
  187 forj=1to40:pokecc,255:forj1=1to10:next:pokecc,0:next:return
  188 forj=1to40:pokecc,25:forj1=1to20:next:pokecc,0:next:return
  189 pokecc,25
  190 forj1=1to100:next:pokecc,0:return
  191 gosub83:print"{rvon} anchored ":pokecc,255:goto190
  100 print"{down}jotto       jim butterfield"
  120 input"{down}want instructions";z$:ifasc(z$)=78goto250
  130 print"{down}try to guess the mystery 5-letter word"
  140 print"{down}you must guess only legal 5-letter"
  150 print"words, too..."
  160 print"you will be told the number of matches"
  170 print"(or 'jots') of your guess."
  180 print"{down}hint: the trick is to vary slightly"
  190 print"  from one guess to the next; so that"
  200 print"  if you guess 'batch' and get 2 jots"
  210 print"  you might try 'botch' or 'chart'"
  220 print"  for the next guess..."
  250 data bwbjm,csjcf,dsbdl,cveez,gmvgg
  260 data hpvhf,ibsti,mjwje,tjmmz,lbqpl
  270 data qbhbo,bmmfz,nbebn,joofs,qmvnq
  280 data rvjdl,qbssz,esftt,vuufs,fwjdu
  290 data xbwfs,fybmu,zpvoh,bavsf,ejaaz
  300 data qibtf,dsbol,cmppe,spwfs,dbudi
  310 data uppui,pxjoh,rvjmu,qsjaf,xpvoe
  320 data hsffe,pvhiu,fyusb,hspwf,nbsdi
  330 data rvftu,dsjtq,cfodi,esftt,tqbol
  340 data mfwfm,sbejp,txfmm,hspxo,esjgu
  400 n=50
  410 dim n$(n),z(5),y(5)
  420 for j=1ton:readn$(j):nextj
  430 t=ti
  440 t=t/1000:ift>=1thengoto440
  450 z=rnd(-t)
  500 g=0:n$=n$(rnd(1)*n+1)
  510 print "{down}i have a five letter word:":ifr>0goto560
  520 print "guess (with legal words)"
  530 print "and i'll tell you how many"
  540 print "'jots', or matching letters,"
  550 print "you have...."
  560 g=g+1:input "your word";z$
  570 if len(z$)<>5thenprint"you must guess a 5-letter word!":goto560
  580 v=0:h=0:m=0
  590 forj=1to5
  600 z=asc(mid$(z$,j,1)):y=asc(mid$(n$,j,1))-1:ify=64theny=90
  610 ifz<65orz>90thenprint"that's not a word!":goto560
  620 ifz=65orz=69orz=73orz=79orz=85orz=89thenv=v+1
  630 ifz=ythenm=m+1
  640 z(j)=z:y(j)=y:nextj
  650 ifm=5goto800
  660 ifv=0orv=5thenprint"come on..what kind of a word is that?":goto560
  670 for j=1to5:y=y(j)
  680 for k=1to5:ify=z(k)thenh=h+1:z(k)=0:goto700
  690 next k
  700 next j
  710 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";h;"jots"
  720 ifg<30goto560
  730 print"i'd better tell you.. word was '";
  740 forj=1to5:printchr$(y(j));:nextj
  750 print"'":goto810
  800 print"you got it in only";g;"guesses."
  810 input"{down}another word";z$
  820 r=1:ifasc(z$)<>78goto500
 1000 cs$=chr$(147)+"{brn}"+chr$(8):rem clear screen
 1010 cr$=chr$(141):rem carrige return one lf
 1020 lf$=chr$(10) :rem line feed
 1030 poke53280,9:poke53281,8
 1040 poke53272,23
 1050 printcs$
 1060 print"        Journey to the Center of
 1070 print"          the Earth Adventure
 1080 print"            by Greg Hassett
 1090 print"{down}{down}{down}{down}     modified for C-64 by M. Sprave"
 1100 cp=1:gosub3640
 1110 printcs$
 1120 gosub3520:gosub3380
 1130 ifcp=18and(vb<>25orno<>21)thengoto1150
 1140 goto1160
 1150 print"Horrors! The Troll throws an axe at me !"lf$"I am dead":end
 1160 ifcp=18then printm2$:f5=1:gosub3380
 1170 ifno<23orvb<1orno>30then1340
 1180 ifno<=26thenfd=fd+1:goto1200
 1190 fd=-10000
 1200 ifno>26thenno=no-4
 1210 no=no-22
 1220 ifcp=10andno=1thengoto1240
 1230 goto 1250
 1240 print:print"and fall into the lava ??? Fat chanche !":gosub3380:goto1170
 1250 ifcp=11andno=2then1270
 1260 goto1290
 1270 print"Do you know what molten lava is ???
 1280 print"It'shot, that's what !":gosub3380:goto1170
 1290 ifcp=29andob(10,0)=29and(no=4orno=2)then1310
 1300 goto1320
 1310 print"The Hydra won't let me through !":gosub3380:goto1170
 1320 ifp(cp,no)=0thenprint"I can't go that way !":gosub3380:goto1170
 1330 cp=p(cp,no):goto1110
 1340 if vb<>2andvb<>20goto1450
 1350 ifno=10andob(33,0)=cpthenprint"It is sort of heavy, you know.":gosub3380:goto1170
 1360 ifno=0thenprint"I don't know what a ";chr$(34)no$chr$(34)" is.":gosub3380:goto1170
 1370 ifob(no,0)<>cpthenprint"I don't see it here.":gosub3380:goto1170
 1380 ifno=10orno=20thenprint"Oh give me a break!!":gosub3380:goto1170
 1390 ifob(no,0)=-1thenprint"I'm already carrying it.":gosub3380:goto1170
 1400 ifob(no,0)=cpandnt>=6then1420
 1410 goto1440
 1420 print"I can't carry any more. ":print"You'll have to drop something."
 1430 gosub3380:goto1170
 1440 ifob(no,0)=cpthenprint"Check.":nt=nt+1:ob(no,0)=-1:gosub3380:goto1170
 1450 ifvb<>4andvb<>29goto1500
 1460 f3=0
 1470 print"I'm currently carrying :":fori=1tolo:ifob(i,0)=-1thenprintob$(i):f3=1
 1480 next:iff3=0thenprint"Nothing.
 1490 gosub3380:goto1170
 1500 ifvb=3goto1110
 1510 if no=0and vb=0thenprint"That doesn't make any sense to me.":gosub3380:goto1170
 1520 if vb<>5then1580
 1530 j=0
 1540 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
 1550 next:print"Out of a maximum of 175 points,":print"you have";j
 1560 ifj=0thenprint"Boy, you stink !
 1570 gosub3380:goto1170
 1580 ifvb<>6andvb<>22then1670
 1590 ifno$<>"everything"andno$<>"all"then1630
 1600 fori=1tolo:ifob(i,0)=-1thenob(i,0)=cp
 1610 next:nt=0
 1620 print"Okay.":gosub3380:goto1170
 1630 ifob(no,0)<>-1then1650
 1640 goto1660
 1650 print"How can I drop what I'm not holding ???":gosub3380:goto1170
 1660 ob(no,0)=cp:print"O.k.":nt=nt-1:gosub3380:goto1170
 1670 ifvb<>7andvb<>28then1710
 1680 ifh$(cp)=""thenprint"You got me into this mess,":print"now you get me out !
 1690 printh$(cp):h$(cp)=""
 1700 gosub3380:goto1170
 1710 ifvb<>8goto1780
 1720 printcs$:print"Saving...":open8,8,8,"@:journey,s,w"
 1730 fori=1tolo:ifob$(i)=""goto1750
 1740 print#8,ob(i,0)
 1750 next
 1760 print#8,cp:close8
 1770 goto1110
 1780 ifvb<>9then1850
 1790 printcs$:print"Loading...":open8,8,8,"journey"
 1800 fori=1tolo:ifob$(i)=""goto1820
 1810 input#8,o1$:ob(i,0)=val(o1$)
 1820 next
 1830 input#8,cp$
 1840 cp=val(cp$):close8:goto1110
 1850 ifvb<>10goto1870
 1860 goto3030
 1870 ifvb<>11goto1900
 1880 ifno=0thenprint"Say what ?":gosub3380:goto1170
 1890 print"Okay, if it is really necessary..."no$:gosub3380:goto1170
 1900 ifvb<>12goto1940
 1910 ifno<>12thenprint"I don't do stupid things.":gosub3380:goto1170
 1920 ifob(12,0)<>-1thenprint"I don't have any coke to drink !":gosub3380:goto1170
 1930 printm3$:ob(12,0)=0:ob(13,0)=-1:gosub3380:goto1170
 1940 ifvb<>13goto2040
 1950 ifob(31,0)<>-1thenprint"But I have no food !!":gosub3380:goto1170
 1960 ifob(no,0)<>cpthenprint"I don't see it.":gosub3380:goto1170
 1970 ifno<>10goto2000
 1980 print"The Hydra wharfs down the food.":ob(31,0)=0
 1990 ob$(10)="a giant Hydra rubbing his"+cr$+"stomach":gosub3380:goto1170
 2000 ifno<>20goto2020
 2010 print"The bugs in these caves only eat human flesh.":gosub3380:goto1170
 2020 ifno<>3thenprint"You can't be serious.":gosub3380:goto1170
 2030 print"It refuses to eat the food.":gosub3380:goto1170
 2040 ifvb<>14goto2190
 2050 ifno=10andob(33,0)=cpgoto2070
 2060 goto2090
 2070 print"The undertaker just took him away."
 2080 ob(33,0)=0:gosub3380:goto1170
 2090 ifob(no,0)<>cpandob(no,0)<>-1then2110
 2100 goto2130
 2110 print"I don't see it and I'm not holding it,":print"so how can I hit it ?"
 2120 gosub3380:goto1170
 2130 ifno=3thenprint"No!!! I kind of like the parrot!":print"Polly want a cwaker ?
 2140 ifno<>10then2160
 2150 print"Okay...":print"The Hydra grunts >> Damn Mosquitoes <<
 2160 ifno=20thenprint"Yuch ! I don't want to touch it !!!
 2170 ifno=3orno=10orno=20thengosub3380:goto1170
 2180 print"Okay...":print"Ouch ! I hurt my hand !":gosub3380:goto1170
 2190 ifvb<>15then2220
 2200 print"I can't kill anything, I'm too weak. But";
 2210 print"maybe if you were a bit more specific...":gosub3380:goto1170
 2220 ifvb<>16goto2360
 2230 ifob(33,0)=cpandno=10then2250
 2240 goto2260
 2250 print"It is already burned to a crisp.":gosub3380:goto1170
 2260 ifob(6,0)<>-1thenprint"I don't have a lighter or matches !":gosub3380:goto1170
 2270 ifno=3thenprint"Never!! You know something, You're a sadist.":gosub3380:goto1170
 2280 ifno=10andob(10,0)=cpthen2300
 2290 goto2320
 2300 ob(10,0)=0:ob(33,0)=cp:print"The Hydra crumbles to the ground dead."
 2310 gosub3380:goto1170
 2320 ifno=20thenprint"The bug cannot be burned. < Gulp >":gosub3380:goto1170
 2330 ifno=10thenob(10,0)=0
 2340 print"It doesn't burn.
 2350 gosub3380:goto1170
 2360 ifvb=17thenprint"And just who do you think I am, Rocky ??":gosub3380:goto1170
 2370 ifvb=18then2390
 2380 goto2410
 2390 print"I don't know how to light things. If you"cr$"want me to ";
 2400 print"burn something tell me so !":gosub3380:goto1170
 2410 ifvb<>19goto2540
 2420 ifno$="coin"thenno$="quarter":no=7
 2430 if no=0thenprint"I don't know what one is.":gosub3380:goto1170
 2440 ifno=7goto2460
 2450 ifob(no,0)<>-1thenprint"I'm not holding it right now.":gosub3380:goto1170
 2460 ifcp<>27thenprint"I don't see any coke machine here.":gosub3380:goto1170
 2470 ifno<>7thenprint"That is ridiculous.":gosub3380:goto1170
 2480 ifob(no,0)<>-1thenprint"I have no money.":gosub3380:goto1170
 2490 ifob(7,0)=-1andcp=27then2510
 2500 goto2540
 2510 print"All right.   Chikclikchingggg!
 2520 print"A coke popped out. There is now a bottleof coke here.
 2530 ob(7,0)=0:nt=nt-1:ob(12,0)=27:gosub3380:goto1170
 2540 rem
 2550 ifvb<>21goto2630
 2560 ifno<>18andob(no,0)=-1thenprint"It's kind of heavy, you know.":gosub3380:goto1170
 2570 ifob(no,0)<>-1thenprint"First you have to help me find it,dummy!":gosub3380:goto1170
 2580 ifcp=10orcp=11goto2600
 2590 print"Nothing happend":gosub3380:goto1170
 2600 ifcp=10thencp=11:goto2620
 2610 cp=10
 2620 goto1110
 2630 ifvb=23thenvb=1:goto1170
 2640 ifvb=24thenprint"Try kill "no$:gosub3380:goto1170
 2650 ifvb<>25then2680
 2660 ifno=21thenprint"Nothing happend":gosub3380:goto1170
 2670 print"Sir what ??? I don't understand !":gosub3380:goto1170
 2680 ifvb<>26goto2780
 2690 ifcp=1andob(14,0)-1andob(22,0)=1thenprint"Okay !!!":goto3020
 2700 ifcp<>1thenprint"I can't.":gosub3380:goto1170
 2710 ifvb<>26then2780
 2720 ifob(14,0)<>-1thenprint"I can't. I have no tools.":gosub3380:goto1170
 2730 print"I can't. I don't see fribulating"
 2740 print"gonkulator around me.";
 2750 ifob(22,0)=-1thenprint" I think I have to drop it first.
 2760 print
 2770 gosub3380:goto1170
 2780 ifvb<>27then2970
 2790 ifno=0thenprint"What the devil is a "no$" ??":gosub3380:goto1170
 2800 ifno=20orno=10thenifob(no,0)=cpgoto2820
 2810 goto2830
 2820 print"Yuch !!! I'd never eat a "no$" !!!":gosub3380:goto1170
 2830 ifno=10andob(33,0)=cpthen2850
 2840 goto2870
 2850 print"Well...it's cooked now, but it still    looks kind of gross."
 2860 gosub3380:goto1170
 2870 ifob(no,0)<>-1thenprint"I'm not holding it.":gosub3380:goto1170
 2880 ifno=3andob(3,0)=-1goto2900
 2890 goto2910
 2900 print"I'd rather not. I don't care for parrot meat.":gosub3380:goto1170
 2910 ifno=31andob(31,0)=-1thennt=nt-1:goto2930
 2920 goto2950
 2930 print"Humm ! It was filet mignon, my favorite dish."
 2940 ob(31,0)=0:gosub3380:goto1170
 2950 print"I think that "ob$(no)" would":print"give me indigestion,
 2960 print"and I don't have any Pepto-Bismol.":gosub3380:goto1170
 2970 ifvb<>30then3010
 2980 ifcp<>10andcp<>11thenprint"Nothing happend.":gosub3380:goto1170
 2990 print"Nice try, but that's an old, worn out"+cr$+"magic word."
 3000 gosub3380:goto1170
 3010 print"I don't know how to do that.":gosub3380:goto1170
 3020 fori=1to1000:next
 3030 printcs$:print"Out of a maximum of 175 points,":print"you have scored";:j=0
 3040 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
 3050 next
 3060 printj"points.
 3070 ifj<>175goto3100
 3080 print"All of adventuredom gives tribute to you"
 3090 print:print:print"        Adventurer Grandmaster !":end
 3100 ifj<165then3120
 3110 print"Your score puts you in":print:print:print"       Master Adventurer Class A":end
 3120 ifj<150then3140
 3130 print"Your score puts you in":print:print:print"      Master Adventurer Class B":end
 3140 ifj<140then3160
 3150 print"Your have reached a":print:print:print"      'Junior Master' status":end
 3160 ifj<120goto3180
 3170 print"You may now consider yourself a":print:print:print"      'Seasoned Adventurer'":end
 3180 ifj<110goto3200
 3190 print"You have achieved the rating:":print:print:print"     'Experienced Adventurer'":end
 3200 ifj<100goto3220
 3210 print"Your score qualifies you as a":print:print:print"  ' Novice Class Adventurer'":end
 3220 print"You are obviously a rank amateur.":print"Better luck next time.":end
 3230 print"Gadzooks !!! A giant bug just walked in to kill me !!!
 3240 ff=1
 3250 gosub3380
 3260 ifno$="sesame"andvb$="open"goto3280
 3270 goto3290
 3280 print"The bug has shrunk to it's proper size  and scurried away.":goto3360
 3290 ifno=20orvb=15goto3320
 3300 print"Help me !!!":print"I'm being devoured by a giant bug !!!"
 3310 print"The end is near ! Ow !! This hurts":print"I'm dying...dying...dead.":end
 3320 ifob(2,0)<>-1thenno=2:print"I don't have a sword !!!":goto3290
 3330 ifsw=8thenprint"My sword is dull, remember ???":no=2:goto3290
 3340 print"Ding ! dong ! The bug is dead !!!
 3350 sw=sw+1:ifsw=8thenprint"My sword is dull now.
 3360 gosub3380:goto1170
 3370 end
 3380 print:gosub4880:input"Enter your command ";cm$:print
 3390 ifcm$="abra cadabra"andf5<3andff=1thenno$="sesame":vb$="open":ff=0:f5=f5+1:return
 3400 vb$="":no$="":vb=0:no=0
 3410 lc=len(cm$):fori=1tolc
 3420 ifmid$(cm$,i,1)<>" "thenvb$=vb$+mid$(cm$,i,1):next
 3430 fori=1tonv:ifvb$(i)=vb$thenvb=i:goto3460
 3440 next
 3450 vb=0:no$=vb$:goto3480
 3460 iflen(vb$)+1>=len(cm$)thenno=0:return
 3470 no$=right$(cm$,len(cm$)-1-len(vb$))
 3480 fori=1tonn:ifno$(i)=no$then3510
 3490 next
 3500 no=0:return
 3510 no=i:return
 3520 printp$(cp):print
 3530 fori=1tolo:ifob(i,0)=cpthenprint"There is "ob$(i)" here.
 3540 next
 3550 print"I can go :     ";:f2=0
 3560 fori=1to4:ifp(cp,i)<>0thenprintno$(i+22)"  ";:f2=1
 3570 next:iff2=0thenprint"Nowhere !
 3580 ifcp=18andob(3,0)=-1thenprint:printm1$
 3590 ifint(rnd(1)*35+1)=5andcp<>1andcp<>37andcp<>27thenprint:goto3230
 3600 iffd<4goto3630
 3610 print:print"If you'd like, you can make it easier onyourself by typing"
 3620 print"n, s, e, or w instead of north,south,ect":fd=0
 3630 return
 3640 np=37:dimp$(np)
 3650 rem
 3660 p$(1)="I am in a ship. On a computer screen in"+cr$+"here it says: "
 3670 p$(1)=p$(1)+"Ship will not function --"+cr$+"fribulating gonkulator is "
 3680 p$(1)=p$(1)+"burned out.It"+cr$+"is obvious that this ship has crashed."
 3690 data2,6,5,4:p$(2)="I'm in a cobblestone hallway. I can here"+lf$
 3700 p$(2)=p$(2)+"chirping nearby. Sounds like bugs...":data 8,1,3,5
 3710 p$(3)="I'm in a dark room...oh no !!! There are"+lf$+"giant bugs all"
 3720 p$(3)=p$(3)+" around me !!!":data0,0,0,2
 3730 p$(4)="I'm in a small room. A scribbling here"+cr$+"says: "
 3740 p$(4)=p$(4)+"Har har har! You'll never make it!       >> arbadac arba <<"
 3750 data0,7,1,0
 3760 p$(5)="I'm in a dusty cobblestone hallway.":data0,25,2,1
 3770 p$(6)="I'm in a dusty place. It is very dark in"+lf$+"here. I'm scared !"
 3780 data1,24,0,0
 3790 p$(7)="I'm in a low crawl space. It seems as if"+lf$+"we're not "
 3800 p$(7)=p$(7)+"supposed to be here...":data4,0,15,0
 3810 p$(8)="I'm in a room with rock walls. Imbedded"+cr$+"in the walls are "
 3820 p$(8)=p$(8)+"scatterd rubies.":data9,2,0,13
 3830 p$(9)="I'm in a dark room. This one is not so"+cr$+"scary. "
 3840 p$(9)=p$(9)+"I think I hear grunts and groans nearby.":data10,8,23,0
 3850 p$(10)="I'm on the south side of a chasm. Molten"+lf$+"lava is beneath me."
 3860 data11,9,0,0
 3870 p$(11)="I'm on the north side of the chasm.":data16,10,0,0
 3880 p$(12)="I'm in a maze of twisty little passages.":data12,12,13,14
 3890 p$(13)=p$(12):data13,13,8,12
 3900 p$(14)=p$(12):data14,15,14,12
 3910 p$(15)=p$(12):data14,15,15,7
 3920 p$(16)="I'm on a wood platform. A sign warns:"+cr$
 3930 p$(16)=p$(16)+"Go back ! Beware ! Go south !!! There"
 3940 p$(16)=p$(16)+" is"+lf$+"a rickety bridge to the north.":data17,11,0,0
 3950 p$(17)="I'm in a dusty passage. A sign points"+cr$+"west and says: "
 3960 p$(17)=p$(17)+"To Trolls Place --->"+cr$+"A rickety bridge "
 3970 p$(17)=p$(17)+"extends southward."+cr$+"Markings in the dust indicate "
 3980 p$(17)=p$(17)+"that some-"+lf$+"one was here recently.":data0,16,0,18
 3990 p$(18)="A voice booms out : Who dares to enter"+cr$
 4000 p$(18)=p$(18)+"my palace ??? (Sounds like Troll to me!)
 4010 data0,0,0,19
 4020 p$(19)="I'm in Troll's Palace. It's breath-"+cr$+"taking !!"
 4030 p$(19)=p$(19)+" The ceiling is so high I can't"+lf$+"even see it !"
 4040 data0,20,0,0
 4050 p$(20)="I'm at one end of a secret passage.":data19,21,0,0
 4060 p$(21)="I'm in a secret passage.":data21,21,20,22
 4070 p$(22)=p$(21):data21,22,22,23
 4080 p$(23)=p$(20):data23,9,22,23
 4090 p$(24)="I'm in a huge ice cavern. The ceiling   and walls are "
 4100 p$(24)=p$(24)+"completely ice.":data6,26,25,0
 4110 p$(25)="I'm in a room with many animals..."
 4120 p$(25)=p$(25)+"Wait !"+lf$+"They've all ran away":data 5,0,0,0
 4130 p$(26)="I am in a room with traces of slime on"+cr$+"the floors and walls."
 4140 data24,29,27,28
 4150 p$(27)="I'm in...Al's diner ??? There's a coke"+cr$+"machine here. It says:"
 4160 p$(27)=p$(27)+" Enjoy Coca-Cola. 25 Cents (no Canadian coin,Quarter only)"
 4170 data0,0,0,26
 4180 p$(28)="I'm in a huge pit.":data0,0,26,0.
 4190 p$(29)="I'm in the Hydra Room. The walls are all"+lf$+"slime. "
 4200 p$(29)=p$(29)+"Boy, I've never seen anything so"+cr$+"gross in my life !"
 4210 data26,30,31,32
 4220 p$(30)="I'm in the Dragon Room. It seems to be"+cr$+"decorated with dragons.
 4230 data29,34,0,33
 4240 p$(31)="I'm in a torture chamber. Let's get out"+cr$+"of here quick !!"
 4250 data31,29,31,31
 4260 p$(32)="This is the Clam Room. The walls are"+cr$+"solid clamshell "
 4270 p$(32)=p$(32)+"embedded in limestone.":data0,0,29,0
 4280 p$(33)="I'm in Mammoth Garden."+cr$+"This is all plants.":data0,0,30,0
 4290 p$(34)="I'm in the Velvet Room. The walls and"+cr$+"ceiling are velvet."
 4300 data30,34,35,0
 4310 p$(35)="I'm in a arabian room. Arabian guitars"+cr$+"are playing nearby."
 4320 p$(35)=p$(35)+"There is an oil slickhere. Looks like machine oil, 10-W-30."
 4330 data36,37,0,34
 4340 p$(36)="I'm in the Treasure Room. Many dwarves"+cr$+"guard some pretty "
 4350 p$(36)=p$(36)+"scrawny treasure."+cr$+"Nothing to flip over, anyway."
 4360 data0,35,0,0
 4370 p$(37)="I'm at Mac's Earthdigger Body Shop.":data0,0,0,35
 4380 dimp(37,4):fori=1to37:forj=1to4:readp(i,j):next:next
 4390 lo=33:dimob$(lo),ob(lo,1)
 4400 ob$(1)="a set of keys":data6,0:ob$(2)="a shiny sword":data16,0
 4410 ob$(3)="a parrot in a cage":data25,5:ob$(4)="a gold nugget":data4,10
 4420 ob$(5)="a 35,000 carat diamond":data7,10:ob$(6)="a cigarette lighter":data28,0
 4430 ob$(7)="a quarter":data28,0:ob$(8)="an enormous emerald":data32,15
 4440 ob$(9)="some silver bars":data33,15:ob$(10)="a giant Hydra with nine heads "
 4450 data29,0
 4460 ob$(11)="a ming vase":data30,10:ob$(12)="a bottle of coke":data0,0
 4470 ob$(13)="an empty coke bottle":data0,0:ob$(14)="some tools":data34,0
 4480 ob$(15)="a large ruby":data8,15:ob$(16)="gold bars":data19,20
 4490 ob$(17)="a diamond necklace":data19,25:ob$(18)="a magic wand":data14,0
 4500 ob$(22)="a fribulating gonkulator":data37,50
 4510 ob$(20)="a giant bug asleep":data31,0
 4520 ob$(31)="some tasty food":ob$(32)="some human skeletons"
 4530 ob(32,0)=31:ob(32,1)=0
 4540 ob$(33)="a dead Hydra on the ground"
 4550 fori=1to20:readob(i,0),ob(i,1):next
 4560 ob(22,0)=ob(19,0):ob(22,1)=ob(19,1)
 4570 ob(19,1)=0:ob(19,0)=0
 4580 ob(31,0)=27:ob(31,1)=0
 4590 data keys,sword,parrot,nugget,diamond,lighter,quarter,emerald,silver,hydra
 4600 data vase,coke,bottle,tools,ruby,gold,necklace,wand,sign,bug,alexander
 4610 data gonkulator,north,south,east,west,n,s,e,w,food,skeletons
 4620 nn=32:dimno$(nn)
 4630 fori=1tonn:readno$(i):next
 4640 data go,get,look,inven,score,drop,help,save,load,quit,say,drink
 4650 data feed,hit,kill,burn,fight,light,insert,take,wave
 4660 data release,continue,destroy,sir,fix,eat,?,inventory,hocus
 4670 nv=30:dimvb$(nv):fori=1tonv:readvb$(i):next
 4680 m1$="The parrot chants: Sir Alexander........Sir Alexander !
 4690 m2$="The Troll scurries away in fear.
 4700 m3$="Gulp gluk gulp! (burp) That was refreshing !
 4710 dimh$(np)
 4720 h$(25)="This parrot talks...
 4730 h$(29)="Cigar ? Cigarette ? Tipparillo ?
 4740 h$(10)="You know, this world is enchanted...
 4750 h$(12)="You can make the passage look less alikeby dropping things."
 4760 h$(13)=h$(12):h$(14)=h$(12):h$(15)=h$(12)
 4770 h$(1)="I think we're supposed to leave what we find here.
 4780 h$(35)="Often times oil means an auto body shop is nearby.
 4790 h$(31)="The bug will not bother you. "+cr$+"It is asleep. "+cr$
 4800 h$(31)=h$(31)+"Hint: If you linger too long in this
 4810 h$(31)=h$(31)+cr$+"      room it will wake up !
 4820 h$(2)="You knou, in this enchanted world, many things that are small "
 4830 h$(2)=h$(2)+"on earth are very large...
 4840 h$(20)="Try to find your way to the other end !"
 4850 h$(23)=h$(20)
 4860 na$="@:data journey"
 4870 return
 4880 print"----------------------------------------":return
 4890 rem * modified by martin sprave *
  100 cs$=chr$(147):rem clear screen
  110 cr$=chr$(141):rem carrige return one lf
  120 lf$=chr$(10) :rem line feed
  121 le%=16       :rem input length
  122 fl =-1       :rem flag for input
  130 print"{swlc}{dish}"
  140 printcs$
  150 print"       Journey to the Center of
  160 print"         the Earth Adventure
  170 print"           by Greg Hassett
  180 print"{down}{down}{down}{down}     modified for CBM by S.Prenzel
  190 cp=1:gosub2820
  200 printcs$
  210 gosub2700:gosub2480
  220 ifcp=18and(vb<>25orno<>21)thengoto240
  230 goto250
  240 print"Horrors! The Troll throws an axe at me !"lf$"I am dead":end
  250 ifcp=18then printm2$:f5=1:gosub2480
  260 ifno<23orvb<1orno>30then430
  270 ifno<=26thenfd=fd+1:goto290
  280 fd=-10000
  290 ifno>26thenno=no-4
  300 no=no-22
  310 ifcp=10andno=1thengoto330
  320 goto 340
  330 print:print"and fall into the lava ??? Fat chanche !":gosub2480:goto260
  340 ifcp=11andno=2then360
  350 goto380
  360 print"Do you know what molten lava is ???
  370 print"It'shot, that's what !":gosub2480:goto260
  380 ifcp=29andob(10,0)=29and(no=4orno=2)then400
  390 goto410
  400 print"The Hydra won't let me through !":gosub2480:goto260
  410 ifp(cp,no)=0thenprint"I can't go that way !":gosub2480:goto260
  420 cp=p(cp,no):goto200
  430 if vb<>2andvb<>20goto540
  440 ifno=10andob(33,0)=cpthenprint"It is sort of heavy, you know.":gosub2480:goto260
  450 ifno=0thenprint"I don't know what a ";chr$(34)no$chr$(34)" is.":gosub2480:goto260
  460 ifob(no,0)<>cpthenprint"I don't see it here.":gosub2480:goto260
  470 ifno=10orno=20thenprint"Oh give me a break!!":gosub2480:goto260
  480 ifob(no,0)=-1thenprint"I'm already carrying it.":gosub2480:goto260
  490 ifob(no,0)=cpandnt>=6then510
  500 goto530
  510 print"I can't carry any more. ":print"You'll have to drop something."
  520 gosub2480:goto260
  530 ifob(no,0)=cpthenprint"Check.":nt=nt+1:ob(no,0)=-1:gosub2480:goto260
  540 ifvb<>4andvb<>29goto590
  550 f3=0
  560 print"I'm currently carrying :":fori=1tolo:ifob(i,0)=-1thenprintob$(i):f3=1
  570 next:iff3=0thenprint"Nothing.
  580 gosub2480:goto260
  590 ifvb=3goto200
  600 if no=0and vb=0thenprint"That doesn't make any sense to me.":gosub2480:goto260
  610 if vb<>5then670
  620 j=0
  630 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
  640 next:print"Out of a maximum of 175 points,":print"you have";j
  650 ifj=0thenprint"Boy, you stink !
  660 gosub2480:goto260
  670 ifvb<>6andvb<>22then760
  680 ifno$<>"eve"andno$<>"all"then720
  690 fori=1tolo:ifob(i,0)=-1thenob(i,0)=cp
  700 next:nt=0
  710 print"Okay.":gosub2480:goto260
  720 ifob(no,0)<>-1then740
  730 goto750
  740 print"How can I drop what I'm not holding ???":gosub2480:goto260
  750 ob(no,0)=cp:print"O.k.":nt=nt-1:gosub2480:goto260
  760 ifvb<>7andvb<>28then800
  770 ifh$(cp)=""thenprint"You got me into this mess,":print"now you get me out !
  780 printh$(cp):h$(cp)=""
  790 gosub2480:goto260
  800 ifvb<>8goto880
  810 printcs$:print"Saving...":open8,8,8,"@0:journey,seq,write"
  820 rem
  830 fori=1tolo:ifob$(i)=""goto850
  840 print#8,ob(i,0)
  850 next
  860 print#8,cp:close8
  870 goto200
  880 ifvb<>9then960
  890 printcs$:print"Loading...":open8,8,8,"0:journey,seq,read"
  900 rem ifds>20thenprint"{down}{rvon}Fehler{rvof}:"ds$:close8:goto4050:rem basic 4.0
  910 fori=1tolo:ifob$(i)=""goto930
  920 input#8,o1$:ob(i,0)=val(o1$)
  930 next
  940 input#8,cp$
  950 cp=val(cp$):close8:goto200
  960 ifvb<>10goto980
  970 goto2130
  980 ifvb<>11goto1010
  990 ifno=0thenprint"Say what ?":gosub2480:goto260
 1000 print"Okay, if it is really necessary..."no$:gosub2480:goto260
 1010 ifvb<>12goto1050
 1020 ifno<>12thenprint"I don't do stupid things.":gosub2480:goto260
 1030 ifob(12,0)<>-1thenprint"I don't have any coke to drink !":gosub2480:goto260
 1040 printm3$:ob(12,0)=0:ob(13,0)=-1:gosub2480:goto260
 1050 ifvb<>13goto1150
 1060 ifob(31,0)<>-1thenprint"But I have no food !!":gosub2480:goto260
 1070 ifob(no,0)<>cpthenprint"I don't see it.":gosub2480:goto260
 1080 ifno<>10goto1110
 1090 print"The Hydra wharfs down the food.":ob(31,0)=0
 1100 ob$(10)="a giant Hydra rubbing his"+cr$+"stomach":gosub2480:goto260
 1110 ifno<>20goto1130
 1120 print"The bugs in these caves only eat human flesh.":gosub2480:goto260
 1130 ifno<>3thenprint"You can't be serious.":gosub2480:goto260
 1140 print"It refuses to eat the food.":gosub2480:goto260
 1150 ifvb<>14goto1300
 1160 ifno=10andob(33,0)=cpgoto1180
 1170 goto1200
 1180 print"The undertaker just took him away."
 1190 ob(33,0)=0:gosub2480:goto260
 1200 ifob(no,0)<>cpandob(no,0)<>-1then1220
 1210 goto1240
 1220 print"I don't see it and I'm not holding it,":print"so how can I hit it ?"
 1230 gosub2480:goto260
 1240 ifno=3thenprint"No!!! I kind of like the parrot!":print"Polly want a cwaker ?
 1250 ifno<>10then1270
 1260 print"Okay...":print"The Hydra grunts >> Damn Mosquitoes <<
 1270 ifno=20thenprint"Yuch ! I don't want to touch it !!!
 1280 ifno=3orno=10orno=20thengosub2480:goto260
 1290 print"Okay...":print"Ouch ! I hurt my hand !":gosub2480:goto260
 1300 ifvb<>15then1330
 1310 print"I can't kill anything, I'm too weak. But";
 1320 print"maybe if you were a bit more specific...":gosub2480:goto260
 1330 ifvb<>16goto1470
 1340 ifob(33,0)=cpandno=10then1360
 1350 goto1370
 1360 print"It is already burned to a crisp.":gosub2480:goto260
 1370 ifob(6,0)<>-1thenprint"I don't have a lighter or matches !":gosub2480:goto260
 1380 ifno=3thenprint"Never!! You know something, You're a sadist.":gosub2480:goto260
 1390 ifno=10andob(10,0)=cpthen1410
 1400 goto1430
 1410 ob(10,0)=0:ob(33,0)=cp:print"The Hydra crumbles to the ground dead."
 1420 gosub2480:goto260
 1430 ifno=20thenprint"The bug cannot be burned. < Gulp >":gosub2480:goto260
 1440 ifno=10thenob(10,0)=0
 1450 print"It doesn't burn.
 1460 gosub2480:goto260
 1470 ifvb=17thenprint"And just who do you think I am, Rocky ??":gosub2480:goto260
 1480 ifvb=18then1500
 1490 goto1520
 1500 print"I don't know how to light things. If you"cr$"want me to ";
 1510 print"burn something tell me so !":gosub2480:goto260
 1520 ifvb<>19goto1650
 1530 ifno$="coi"thenno$="qua":no=7
 1540 if no=0thenprint"I don't know what one is.":gosub2480:goto260
 1550 ifno=7goto1570
 1560 ifob(no,0)<>-1thenprint"I'm not holding it right now.":gosub2480:goto260
 1570 ifcp<>27thenprint"I don't see any coke machine here.":gosub2480:goto260
 1580 ifno<>7thenprint"That is ridiculous.":gosub2480:goto260
 1590 ifob(no,0)<>-1thenprint"I have no money.":gosub2480:goto260
 1600 ifob(7,0)=-1andcp=27then1620
 1610 goto1650
 1620 print"All right.   Chikclikchingggg!
 1630 print"A coke popped out. There is now a bottleof coke here.
 1640 ob(7,0)=0:nt=nt-1:ob(12,0)=27:gosub2480:goto260
 1650 ifvb<>21goto1730
 1660 ifno<>18andob(no,0)=-1thenprint"It's kind of heavy, you know.":gosub2480:goto260
 1670 ifob(no,0)<>-1thenprint"First you have to help me find it,dummy!":gosub2480:goto260
 1680 ifcp=10orcp=11goto1700
 1690 print"Nothing happend":gosub2480:goto260
 1700 ifcp=10thencp=11:goto1720
 1710 cp=10
 1720 goto200
 1730 ifvb=23thenvb=1:goto260
 1740 ifvb=24thenprint"Try kill "no$:gosub2480:goto260
 1750 ifvb<>25then1780
 1760 ifno=21thenprint"Nothing happend":gosub2480:goto260
 1770 print"Sir what ??? I don't understand !":gosub2480:goto260
 1780 ifvb<>26goto1880
 1790 ifcp=1andob(14,0)-1andob(22,0)=1thenprint"Okay !!!":goto2120
 1800 ifcp<>1thenprint"I can't.":gosub2480:goto260
 1810 ifvb<>26then1880
 1820 ifob(14,0)<>-1thenprint"I can't. I have no tools.":gosub2480:goto260
 1830 print"I can't. I don't see fribulating"
 1840 print"gonkulator around me.";
 1850 ifob(22,0)=-1thenprint" I think I have to drop it first.
 1860 print
 1870 gosub2480:goto260
 1880 ifvb<>27then2070
 1890 ifno=0thenprint"What the devil is a "no$" ??":gosub2480:goto260
 1900 ifno=20orno=10thenifob(no,0)=cpgoto1920
 1910 goto1930
 1920 print"Yuch !!! I'd never eat a "no$" !!!":gosub2480:goto260
 1930 ifno=10andob(33,0)=cpthen1950
 1940 goto1970
 1950 print"Well...it's cooked now, but it still    looks kind of gross."
 1960 gosub2480:goto260
 1970 ifob(no,0)<>-1thenprint"I'm not holding it.":gosub2480:goto260
 1980 ifno=3andob(3,0)=-1goto2000
 1990 goto2010
 2000 print"I'd rather not. I don't care for parrot meat.":gosub2480:goto260
 2010 ifno=31andob(31,0)=-1thennt=nt-1:goto2030
 2020 goto2050
 2030 print"Humm ! It was filet mignon, my favorite dish."
 2040 ob(31,0)=0:gosub2480:goto260
 2050 print"I think that "ob$(no)" would":print"give me indigestion,
 2060 print"and I don't have any Pepto-Bismol.":gosub2480:goto260
 2070 ifvb<>30then2110
 2080 ifcp<>10andcp<>11thenprint"Nothing happend.":gosub2480:goto260
 2090 print"Nice try, but that's an old, worn out"+cr$+"magic word."
 2100 gosub2480:goto260
 2110 print"I don't know how to do that.":gosub2480:goto260
 2120 fori=1to1000:next
 2130 printcs$:print"Out of a maximum of 175 points,":print"you have scored";:j=0
 2140 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
 2150 next
 2160 printj"points.
 2170 ifj<>175goto2200
 2180 print"All of adventuredom gives tribute to you"
 2190 print:print:print"        Adventurer Grandmaster !":end
 2200 ifj<165then2220
 2210 print"Your score puts you in":print:print:print"       Master Adventurer Class A":end
 2220 ifj<150then2240
 2230 print"Your score puts you in":print:print:print"      Master Adventurer Class B":end
 2240 ifj<140then2260
 2250 print"Your have reached a":print:print:print"      'Junior Master' status":end
 2260 ifj<120goto2280
 2270 print"You may now consider yourself a":print:print:print"      'Seasoned Adventurer'":end
 2280 ifj<110goto2300
 2290 print"You have achieved the rating:":print:print:print"     'Experienced Adventurer'":end
 2300 ifj<100goto2320
 2310 print"Your score qualifies you as a":print:print:print"  ' Novice Class Adventurer'":end
 2320 print"You are obviously a rank amateur.":print"Better luck next time.":end
 2330 print"Gadzooks !!! A giant bug just walked in to kill me !!!
 2340 ff=1
 2350 gosub2480
 2360 ifno$="ses"andvb$="ope"goto2380
 2370 goto2390
 2380 print"The bug has shrunk to it's proper size  and scurried away.":goto2460
 2390 ifno=20orvb=15goto2420
 2400 print"Help me !!!":print"I'm being devoured by a giant bug !!!"
 2410 print"The end is near ! Ow !! This hurts":print"I'm dying...dying...dead.":end
 2420 ifob(2,0)<>-1thenno=2:print"I don't have a sword !!!":goto2390
 2430 ifsw=8thenprint"My sword is dull, remember ???":no=2:goto2390
 2440 print"Ding ! dong ! The bug is dead !!!
 2450 sw=sw+1:ifsw=8thenprint"My sword is dull now.
 2460 gosub2480:goto260
 2470 end
 2480 print:gosub4040:print"Enter your command "; :gosub5000
 2490 ifcm$="n"thencm$="go n"
 2500 ifcm$="s"thencm$="go s"
 2510 ifcm$="e"thencm$="go e"
 2520 ifcm$="w"thencm$="go w"
 2530 ifcm$="i"thencm$="inventory"
 2540 ifcm$="l"thencm$="loo"
 2550 ifcm$="abr"andf5<3andff=1thenno$="ses":vb$="ope":ff=0:f5=f5+1:return
 2560 vb$="":no$="":vb=0:no=0
 2570 lc=len(cm$):fori=1tolc
 2580 ifmid$(cm$,i,1)<>" "thenvb$=vb$+mid$(cm$,i,1):next
 2590 no$=mid$(cm$,len(vb$)+1):vb$=left$(vb$,3)
 2600 ifleft$(no$,1)=" "thenno$=mid$(no$,2):goto2600
 2610 no$=left$(no$,3)
 2620 fori=1tonv:ifleft$(vb$(i),3)=vb$thenvb=i:goto2650
 2630 next
 2640 vb=0:no$=left$(vb$,3):goto2660
 2650 iflen(vb$)+1>=len(cm$)thenno=0:return
 2660 fori=1tonn:ifleft$(no$(i),3)=no$then2690
 2670 next
 2680 no=0:return
 2690 no=i:return
 2700 printp$(cp):print
 2710 fori=1tolo:ifob(i,0)=cpthenprint"There is "ob$(i)" here.
 2720 next
 2730 print"I can go :     ";:f2=0
 2740 fori=1to4:ifp(cp,i)<>0thenprintno$(i+22)"  ";:f2=1
 2750 next:iff2=0thenprint"Nowhere !
 2760 ifcp=18andob(3,0)=-1thenprint:printm1$
 2770 ifint(rnd(1)*35+1)=5andcp<>1andcp<>37andcp<>27thenprint:goto2330
 2780 iffd<4goto2810
 2790 print:print"If you'd like, you can make it easier onyourself by typing"
 2800 print"n, s, e, or w instead of north,south,ect":fd=0
 2810 return
 2820 np=37:dimp$(np)
 2830 p$(1)="I am in a ship. On a computer screen in"+cr$+"here it says: "
 2840 p$(1)=p$(1)+"Ship will not function --"+cr$+"fribulating gonkulator is "
 2850 p$(1)=p$(1)+"burned out.It"+cr$+"is obvious that this ship has crashed."
 2860 data2,6,5,4:p$(2)="I'm in a cobblestone hallway. I can here"+lf$
 2870 p$(2)=p$(2)+"chirping nearby. Sounds like bugs...":data 8,1,3,5
 2880 p$(3)="I'm in a dark room...oh no !!! There are"+lf$+"giant bugs all"
 2890 p$(3)=p$(3)+" around me !!!":data0,0,0,2
 2900 p$(4)="I'm in a small room. A scribbling here"+cr$+"says: "
 2910 p$(4)=p$(4)+"Har har har! You'll never make it!       >> arbadac arba <<"
 2920 data0,7,1,0
 2930 p$(5)="I'm in a dusty cobblestone hallway.":data0,25,2,1
 2940 p$(6)="I'm in a dusty place. It is very dark in"+lf$+"here. I'm scared !"
 2950 data1,24,0,0
 2960 p$(7)="I'm in a low crawl space. It seems as if"+lf$+"we're not "
 2970 p$(7)=p$(7)+"supposed to be here...":data4,0,15,0
 2980 p$(8)="I'm in a room with rock walls. Imbedded"+cr$+"in the walls are "
 2990 p$(8)=p$(8)+"scatterd rubies.":data9,2,0,13
 3000 p$(9)="I'm in a dark room. This one is not so"+cr$+"scary. "
 3010 p$(9)=p$(9)+"I think I hear grunts and groans nearby.":data10,8,23,0
 3020 p$(10)="I'm on the south side of a chasm. Molten"+lf$+"lava is beneath me."
 3030 data11,9,0,0
 3040 p$(11)="I'm on the north side of the chasm.":data16,10,0,0
 3050 p$(12)="I'm in a maze of twisty little passages.":data12,12,13,14
 3060 p$(13)=p$(12):data13,13,8,12
 3070 p$(14)=p$(12):data14,15,14,12
 3080 p$(15)=p$(12):data14,15,15,7
 3090 p$(16)="I'm on a wood platform. A sign warns:"+cr$
 3100 p$(16)=p$(16)+"Go back ! Beware ! Go south !!! There"
 3110 p$(16)=p$(16)+" is"+lf$+"a rickety bridge to the north.":data17,11,0,0
 3120 p$(17)="I'm in a dusty passage. A sign points"+cr$+"west and says: "
 3130 p$(17)=p$(17)+"To Trolls Place --->"+cr$+"A rickety bridge "
 3140 p$(17)=p$(17)+"extends southward."+cr$+"Markings in the dust indicate "
 3150 p$(17)=p$(17)+"that some-"+lf$+"one was here recently.":data0,16,0,18
 3160 p$(18)="A voice booms out : Who dares to enter"+cr$
 3170 p$(18)=p$(18)+"my palace ??? (Sounds like Troll to me!)
 3180 data0,0,0,19
 3190 p$(19)="I'm in Troll's Palace. It's breath-"+cr$+"taking !!"
 3200 p$(19)=p$(19)+" The ceiling is so high I can't"+lf$+"even see it !"
 3210 data0,20,0,0
 3220 p$(20)="I'm at one end of a secret passage.":data19,21,0,0
 3230 p$(21)="I'm in a secret passage.":data21,21,20,22
 3240 p$(22)=p$(21):data21,22,22,23
 3250 p$(23)=p$(20):data23,9,22,23
 3260 p$(24)="I'm in a huge ice cavern. The ceiling   and walls are "
 3270 p$(24)=p$(24)+"completely ice.":data6,26,25,0
 3280 p$(25)="I'm in a room with many animals..."
 3290 p$(25)=p$(25)+"Wait !"+lf$+"They've all ran away":data 5,0,0,0
 3300 p$(26)="I am in a room with traces of slime on"+cr$+"the floors and walls."
 3310 data24,29,27,28
 3320 p$(27)="I'm in...Al's diner ??? There's a coke"+cr$+"machine here. It says:"
 3330 p$(27)=p$(27)+" Enjoy Coca-Cola. 25 Cents (no Canadian coin,Quarter only)"
 3340 data0,0,0,26
 3350 p$(28)="I'm in a huge pit.":data0,0,26,0.
 3360 p$(29)="I'm in the Hydra Room. The walls are all"+lf$+"slime. "
 3370 p$(29)=p$(29)+"Boy, I've never seen anything so"+cr$+"gross in my life !"
 3380 data26,30,31,32
 3390 p$(30)="I'm in the Dragon Room. It seems to be"+cr$+"decorated with dragons.
 3400 data29,34,0,33
 3410 p$(31)="I'm in a torture chamber. Let's get out"+cr$+"of here quick !!"
 3420 data31,29,31,31
 3430 p$(32)="This is the Clam Room. The walls are"+cr$+"solid clamshell "
 3440 p$(32)=p$(32)+"embedded in limestone.":data0,0,29,0
 3450 p$(33)="I'm in Mammoth Garden."+cr$+"This is all plants.":data0,0,30,0
 3460 p$(34)="I'm in the Velvet Room. The walls and"+cr$+"ceiling are velvet."
 3470 data30,34,35,0
 3480 p$(35)="I'm in a arabian room. Arabian guitars"+cr$+"are playing nearby."
 3490 p$(35)=p$(35)+"There is an oil slickhere. Looks like machine oil, 10-W-30."
 3500 data36,37,0,34
 3510 p$(36)="I'm in the Treasure Room. Many dwarves"+cr$+"guard some pretty "
 3520 p$(36)=p$(36)+"scrawny treasure."+cr$+"Nothing to flip over, anyway."
 3530 data0,35,0,0
 3540 p$(37)="I'm at Mac's Earthdigger Body Shop.":data0,0,0,35
 3550 dimp(37,4):fori=1to37:forj=1to4:readp(i,j):next:next
 3560 lo=33:dimob$(lo),ob(lo,1)
 3570 ob$(1)="a set of keys":data6,0:ob$(2)="a shiny sword":data16,0
 3580 ob$(3)="a parrot in a cage":data25,5:ob$(4)="a gold nugget":data4,10
 3590 ob$(5)="a 35,000 carat diamond":data7,10:ob$(6)="a cigarette lighter":data28,0
 3600 ob$(7)="a quarter":data28,0:ob$(8)="an enormous emerald":data32,15
 3610 ob$(9)="some silver bars":data33,15:ob$(10)="a giant Hydra with nine heads "
 3620 data29,0
 3630 ob$(11)="a ming vase":data30,10:ob$(12)="a bottle of coke":data0,0
 3640 ob$(13)="an empty coke bottle":data0,0:ob$(14)="some tools":data34,0
 3650 ob$(15)="a large ruby":data8,15:ob$(16)="gold bars":data19,20
 3660 ob$(17)="a diamond necklace":data19,25:ob$(18)="a magic wand":data14,0
 3670 ob$(22)="a fribulating gonkulator":data37,50
 3680 ob$(20)="a giant bug asleep":data31,0
 3690 ob$(31)="some tasty food":ob$(32)="some human skeletons"
 3700 ob(32,0)=31:ob(32,1)=0
 3710 ob$(33)="a dead Hydra on the ground"
 3720 fori=1to20:readob(i,0),ob(i,1):next
 3730 ob(22,0)=ob(19,0):ob(22,1)=ob(19,1)
 3740 ob(19,1)=0:ob(19,0)=0
 3750 ob(31,0)=27:ob(31,1)=0
 3760 data keys,sword,parrot,nugget,diamond,lighter,quarter,emerald,silver,hydra
 3770 data vase,coke,bottle,tools,ruby,gold,necklace,wand,sign,bug,alexander
 3780 data gonkulator,north,south,east,west,n,s,e,w,food,skeletons
 3790 nn=32:dimno$(nn)
 3800 fori=1tonn:readno$(i):next
 3810 data go,get,look,inven,score,drop,help,save,load,quit,say,drink
 3820 data feed,hit,kill,burn,fight,light,insert,take,wave
 3830 data release,continue,destroy,sir,fix,eat,?,inventory,hocus
 3840 nv=30:dimvb$(nv):fori=1tonv:readvb$(i):next
 3850 m1$="The parrot chants: Sir Alexander........Sir Alexander !
 3860 m2$="The Troll scurries away in fear.
 3870 m3$="Gulp gluk gulp! (burp) That was refreshing !
 3880 dimh$(np)
 3890 h$(25)="This parrot talks...
 3900 h$(29)="Cigar ? Cigarette ? Tipparillo ?
 3910 h$(10)="You know, this world is enchanted...
 3920 h$(12)="You can make the passage look less alikeby dropping things."
 3930 h$(13)=h$(12):h$(14)=h$(12):h$(15)=h$(12)
 3940 h$(1)="I think we're supposed to leave what we find here.
 3950 h$(35)="Often times oil means an auto body shop is nearby.
 3960 h$(31)="The bug will not bother you. "+cr$+"It is asleep. "+cr$
 3970 h$(31)=h$(31)+"Hint: If you linger too long in this
 3980 h$(31)=h$(31)+cr$+"      room it will wake up !
 3990 h$(2)="You knou, in this enchanted world, many things that are small "
 4000 h$(2)=h$(2)+"on earth are very large...
 4010 h$(20)="Try to find your way to the other end !"
 4020 h$(23)=h$(20)
 4030 return
 4040 print"----------------------------------------":return
 4050 print"{down}Hit any key to continue.":poke198,0:wait198,1:getcm$:goto200
 5000 print" ? ";
 5009 cm$=" "
 5010 poke198,0:s=ti:h=2:h3=pos(0)
 5020 getq$:ifq$<>""then5050
 5030 ifs<=tithenprintmid$(" ~",h,1)"{left}";:h=3-h:s=ti+25
 5040 goto5020
 5050 h1=asc(q$):h2=len(cm$):if(h1and127)<32thenprint" {left}";:goto5090
 5060 qq$=q$:iffland(h1and127)>64and(h1and127)<91thenqq$=chr$(h1or128)
 5070 ifh2>le%then5020
 5080 cm$=cm$+chr$(h1and127):printqq$;:goto5020
 5090 ifh1=13thencm$=mid$(cm$,2):print:return
 5100 ifh1=20andh2>1thencm$=left$(cm$,h2-1):print"{left}";:goto5020
 5110 if(h1<>141)then5020
 5120 poke211,h3:fori=1tolen(cm$):print" ";:next:poke198,h3:goto5009
   10 rem 1257
   11 rem journey to the center of the earth
   14 deffnr(x)=int(x*rnd(1)+1)
   15 print"{clr}journey to the centre of the earth"
   16 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   17 print"{down}{down}{down}by greg hassett"
   20 cp=1:gosub1850
   30 print"{clr}"
   40 gosub1750:gosub1640
   50 ifcp=18and(vb<>25orno<>21)thenfl=1
   55 iffl=1thenfl=0:print"horrors! the troll throws an axe at me! i am dead!":end
   60 ifcp=18thenprintm2$:f5=1:gosub1640
   70 ifno<23orvb>1orno>30then160
   80 ifno<=26thenfd=fd+1
   85 ifno>26thenfd=-10000
   90 ifno>26thenno=no-4
  100 no=no-22
  110 ifcp=10andno=1thenprint"and fall into the lava??? fat chance!":gosub1640:goto70
  120 ifcp=11andno=2thenfl=1
  125 iffl=1thenprint"do you know what molten lava is??? it's hot, that's what!"
  126 iffl=1thenfl=0:gosub1640:goto70
  130 ifcp=29andob(10,0)=29and(no=4orno=2)thenfl=1
  135 iffl=1thenfl=0:print"the hydra won't let me through!":gosub1640:goto70
  140 ifp(cp,no)=0thenprint"i can't go that way!":gosub1640:goto70
  150 cp=p(cp,no):goto30
  160 ifvb<>2andvb<>20then240
  170 ifno=10andob(33,0)=cpthenprint"it is sort of heavy, you know.":gosub1640:goto70
  180 ifno=0thenprint"i don't know what a ";chr$(34);no$;chr$(34);" is.":gosub1640:goto70
  190 ifob(no,0)<>cpthenprint"i don't see it here.":gosub1640:goto70
  200 ifno=10orno=20thenprint"oh give me a break!!!":gosub1640:goto70
  210 ifob(no,0)=-1thenprint"i'm already carrying it.":gosub1640:goto70
  220 ifob(no,0)=cpandnt>=6thenfl=1
  225 iffl=1thenprint"i can't carry any more. you'll have to  drop something."
  226 iffl=1thenfl=0:gosub1640:goto70
  230 ifob(no,0)=cpthenprint"check.":nt=nt+1:ob(no,0)=-1:gosub1640:goto70
  240 ifvb<>4andvb<>29then290
  250 f3=0
  260 print"i am currently carrying:":fori=1tolo:ifob(i,0)=-1thenprintob$(i):f3=1
  270 next:iff3=0thenprint"nothing"
  280 gosub1640:goto70
  290 ifvb=3then30
  300 ifno=0andvb=0thenprint"that doesn't make any sense to me.":gosub1640:goto70
  310 ifvb<>5then370
  320 j=0
  330 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
  340 next:print"out of a maximum of 175 points":print"you have ";j
  350 ifj=0thenprint"{rvon}boy, you stink!{rvof}"
  360 gosub1640:goto70
  370 ifvb<>6andvb<>22then440
  380 ifno$<>"everything"andno$<>"all"then420
  390 fori=1tolo:ifob(i,0)=-1thenob(i,0)=cp
  400 next:nt=0
  410 print"okay.":gosub1640:goto70
  420 ifob(no,0)<>-1thenprint"how can i drop what i'm not holding???":gosub1640:goto70
  430 ob(no,0)=cp:print"o.k.":nt=nt-1:gosub1640:goto70
  440 ifvb<>7andvb<>28then480
  450 ifh$(cp)=""thenprint"you got me into this mess, now you get  me out!"
  460 printh$(cp):h$(cp)=""
  470 gosub1640:goto70
  480 ifvb<>8then550
  490 print"{clr}":print"saving...":open1,8,8,"@0:file.cen,s,w"
  500 fori=1tolo:ifob$(i)=""then520
  510 print#1,ob(i,0)
  515 gosub10000
  520 next
  530 print#1,cp
  535 gosub10000
  538 close1
  540 goto30
  550 ifvb<>9then610
  560 print"{clr}":print"loading...":open1,8,8,"0:file.cen,s,r"
  570 fori=1tolo:ifob$(i)=""then590
  580 input#1,ob(i,0)
  590 next
  600 input#1,cp
  605 close1
  606 goto30
  610 ifvb<>10then630
  620 goto1410
  630 ifvb<>11then660
  640 ifno=0thenprint"say what?":gosub1640:goto70
  650 print"okay, if it is really necessary...";no$:gosub1640:goto70
  660 ifvb<>12then700
  670 ifno<>12thenprint"i don't do stupid things.":gosub1640:goto70
  680 ifob(12,0)<>-1thenprint"i don't have any coke to drink!":gosub1640:goto70
  690 printm3$:ob(12,0)=0:ob(13,0)=-1:gosub1640:goto70
  700 ifvb<>13then770
  710 ifob(31,0)<>-1thenprint"but i have no food!!!":gosub1640:goto70
  720 ifob(no,0)<>cpthenprint"i don't see it.":gosub1640:goto70
  730 ifno=10thenprint"the hydra wharfs down the food.":ob(31,0)=0:fl=1
  735 iffl=1thenfl=0:ob$(10)="a giant hydra rubbing his stomach":gosub1640:goto70
  740 ifno=20thenprint"the bugs in these caves only eat human  flesh.":gosub1640:goto70
  750 ifno<>3thenprint"you can't be serious.":gosub1640:goto70
  760 print"it refuses to eat the food.":gosub1640:goto70
  770 ifvb<>14then850
  780 ifno=10andob(33,0)=cpthenprint"the undertaker just took him away.":fl=1
  785 iffl=1thenfl=0:ob(33,0)=0:gosub1640:goto70
  790 ifob(no,0)<>cpandob(no,0)<>-1thenfl=1
  795 iffl=1thenprint"i don't see it and i'm not holding it,  so how can i hit it?"
  796 iffl=1thenfl=0:gosub1640:goto70
  800 ifno=3thenprint"no!!! i kind of like the parrot! polly  want a cwaker?"
  810 ifno=10thenprint"okay...":print"the hydra grunts *** damn mosquitoes ***"
  820 ifno=20thenprint"yuch! i don't want to touch it!!!"
  830 ifno=3orno=10orno=20thengosub1640:goto70
  840 print"okay...":print"ouch! i hurt my hand!":gosub1640:goto70
  850 ifvb=15thenprint"i can't kill anything, i'm too weak.":fl=1
  855 iffl=1thenprint"but maybe if you where a bit more       specific..."
  856 iffl=1thenfl=0:gosub1640:goto70
  860 ifvb<>16then950
  870 ifob(33,0)=cpandno=10thenprint"it is already burned to a crisp!":gosub1640:goto70
  880 ifob(6,0)<>-1thenprint"i don't have a lighter or matches!!!":gosub1640:goto70
  890 ifno=3thenprint"never!!! you know something, you're a   sadist.":gosub1640:goto70
  900 ifno=10andob(10,0)=cpthenob(10,0)=0:ob(33,0)=cp:fl=1
  905 iffl=1thenfl=0:print"the hydra crumbles to the ground dead.":gosub1640:goto70
  910 ifno=20thenprint"the bug cannot be burned. <gulp>":gosub1640:goto70
  920 ifno=10thenob(10,0)=0
  930 print"it doesn't burn."
  940 gosub1640:goto70
  950 ifvb=17thenprint"and just who do you think i am, rocky???":gosub1640:goto70
  960 ifvb=18thenprint"i don't know how to light things. if you":fl=1
  965 iffl=1thenfl=0:print"{up}want me to burn something, tell me so!":gosub1640:goto70
  970 ifvb<>19then1060
  980 ifno$="coin"thenno$="quarter":no=7
  990 ifno=0thenprint"i don't know what one is.":gosub1640:goto70
 1000 ifn0=7then1020
 1010 ifob(no,0)<>-1thenprint"i'm not holding it right now.":gosub1640:goto70
 1020 ifcp<>27thenprint"i don't see any coke machines here.":gosub1640:goto70
 1030 ifno<>7thenprint"that is ridiculous.":gosub1640:goto70
 1040 ifob(no,0)<>-1thenprint"i have no money.":gosub1640:goto70
 1050 ifob(7,0)=-1andcp=27thenprint"all right. chikclikchingggg!":fl=1
 1055 iffl=1thenprint"a coke popped out. there is now a bottle of coke here."
 1056 iffl=1thenfl=0:ob(7,0)=0:nt=nt-1:ob(12,0)=27:gosub1640:goto70
 1060 rem
 1070 ifvb<>21then1150
 1080 ifno<>18andob(no,0)=-1thenprint"it's kind of heavy, you know.":gosub1640:goto70
 1090 ifob(no,0)<>-1thenprint"first you have to help me find it!":gosub1640:goto70
 1100 ifcp=10orcp=11then1120
 1110 print"nothing happend":gosub1640:goto70
 1120 ifcp=10thencp=11:goto1140
 1130 cp=10
 1140 goto30
 1150 ifvb=23thenvb=1:goto70
 1160 ifvb=24thenprint"try kill ";no$:gosub1640:goto70
 1170 ifvb<>25then1200
 1180 ifno=21thenprint"nothing happend":gosub1640:goto70
 1190 print"sir what??? i don't understand!":gosub1640:goto70
 1200 ifvb<>26then1270
 1210 ifcp=1andob(14,0)=-1andob(22,0)=1thenprint"okay!!!":goto1400
 1220 ifcp<>1thenprint"i can't.":gosub1640:goto70
 1230 ifvb<>26then1270
 1240 ifob(14,0)<>-1thenprint"i can't. i have no tools.":gosub1640:goto70
 1250 print"i can't. i don't see the fribulating    conkulator around me.":fl=1
 1255 iffl=1thenfl=0:ifob(22,0)=-1thenprint"i think i have to drop first."
 1260 gosub1640:goto70
 1270 ifvb<>27then1350
 1280 ifno=0thenprint"what the devil is a ";no$;"???":gosub1640:goto70
 1290 ifno=20orno=10thenifob(no,0)=cpthenprint"yuch!!! i'd never eat a":printno$;"!!!":fl=1
 1295 iffl=1thenfl=0:gosub1640:goto70
 1300 ifno=10andob(33,0)=cpthenprint"well... it's cooked now, but it still":fl=1
 1305 iffl=1thenfl=0:print"looks kind of gross.":gosub1640:goto70
 1310 ifob(no,0)<>-1thenprint"i'm not holding it.":gosub1640:goto70
 1320 ifno=3andob(3,0)=-1thenprint"i'd rather not. i don't care for":fl=1
 1325 iffl=1thenfl=0:print"parot meat.":gosub1640:goto70
 1330 ifno=31andob(31,0)=-1thennt=nt-1:fl=1
 1335 iffl=1thenprint"humm! it was filet mignon, my favorite  dish.":ob(31,0)=0
 1336 iffl=1thenfl=0:gosub1640:goto70
 1340 print"i think that ";ob$(no);" would give":fl=1
 1345 iffl=1thenprint"indigestion, and i don't have any pepto-bismol."
 1346 iffl=1thenfl=0:gosub1640:goto70
 1350 ifvb<>30then1390
 1360 ifcp<>10andcp<>11thenprint"nothing happend":gosub1640:goto70
 1370 print"nice try, but that's an old, worn out   magic word."
 1380 gosub1640:goto70
 1390 print"i don't know how to do that!":gosub1640:goto70
 1400 fori=1to1000:next
 1410 print"{clr}":print"out of a maximum of 175 points,":print"you have scored";:j=0
 1420 fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
 1430 next
 1440 printj;"points."
 1450 ifj=175thenprint"all of adventuredom gives tribute to":fl=1
 1455 iffl=1thenfl=0:print"you, adventurer grandmaster!":end
 1460 ifj>165thenprint"your score puts you in master":print"adventurer class a.":end
 1470 ifj>150thenprint"your score puts you in master":print"adventurer class b.":end
 1480 ifj>140thenprint"you have readched a ":printchr$(34);"junior master";chr$(34);:fl=1
 1485 iffl=1thenfl=0:print" status":end
 1490 ifj>120thenprint"you may now consider yourself a ":fl=1
 1495 iffl=1thenfl=0:printchr$(34);"seasoned adventurer";chr$(34):end
 1500 ifj>110thenprint"you have achieved the rating:":fl=1
 1505 iffl=1thenfl=0:printchr$(34);"experienced adventurer";chr$(34):end
 1510 ifj>100thenprint"your score qualifies you as a":fl=1
 1515 iffl=1thenfl=0:print"novice class adventurer":end
 1520 print"you are obviously a rank amateur. betterluck next time!":end
 1530 print"gadzooks!!! a giant bug just walked in  to kill me!!!"
 1540 ff=1
 1550 gosub1640
 1560 ifno$="sesame"andvb$="open"thenprint"the bug has shrunk to it's proper size":fl=1
 1565 iffl=1thenfl=0:print"and scurried away.":goto1620
 1570 ifno<>20orvb<>15thenprint"help me!!! i'm being devoured by":fl=1
 1575 iffl=1thenprint"a giant bug!!! the end is near! ow!!!"
 1576 iffl=1thenfl=0:print"this hurts!!! i'm dying...dying...{rvon}dead{rvof}":end
 1580 ifob(2,0)<>-1thenno=2:print"i don't have a sword!!!":goto1570
 1590 ifsw=8thenprint"my sword is dull, remember???":no=2:goto1570
 1600 print"ding! dong! the bug is dead, the bug is dead!!!"
 1610 sw=sw+1:ifsw=8thenprint"my sword is dull now."
 1620 gosub1640:goto70
 1630 end
 1640 print:input"enter your command";cm$
 1650 ifcm$="abra cadabra"andf5<3andff=1thenno$="sesame":vb$="open":ff=0:f5=f5+1:return
 1660 vb$="":no$="":vb=0:no=0
 1670 lc=len(cm$):fori=1tolc:ifmid$(cm$,i,1)<>" "thenvb$=vb$+mid$(cm$,i,1):next
 1680 fori=1tonv
 1681 ifvb$(i)=vb$thenvb=i:goto1700
 1682 next
 1690 vb=0:no$=vb$:goto1720
 1700 iflen(vb$)+1>len(cm$)thenno=0:return
 1710 no$=right$(cm$,len(cm$)-1-len(vb$))
 1720 fori=1tonn:ifno$(i)=no$then1740
 1725 next
 1730 no=0:return
 1740 no=i:return
 1750 printp$(cp):print
 1760 fori=1tolo:ifob(i,0)=cpthenprint"there is ";ob$(i);" here."
 1770 next
 1780 print"i can go : ";:f2=0
 1790 fori=1to4:ifp(cp,i)<>0thenprintno$(i+22);"   ";:f2=1
 1800 next:iff2=0thenprint"nowhere!"
 1810 ifcp=18andob(3,0)=-1thenprint:printm1$
 1820 iffnr(35)=5andcp<>1andcp<>37andcp<>27thenprint:goto1530
 1830 iffd>4thenprint:print"if you'd like, you can make it easier":fl=1
 1835 iffl=1thenprint"on yourself by typing n, s, e or w"
 1836 iffl=1thenfl=0:print"instead of north, sorth, etc.":fd=0
 1840 return
 1850 np=37:dimp$(np)
 1870 p$(1)="i am in a ship. on a computer screen in here it says:"+chr$(13)
 1875 p$(1)=p$(1)+"{down}ship will not function - fribulating    "
 1876 p$(1)=p$(1)+"gonkulator is burned out. it is obvious that this "
 1877 p$(1)=p$(1)+"ship has crashed."
 1880 data2,6,5,4:p$(2)="i'm in a cobblestone hallway. i can hear"
 1885 p$(2)=p$(2)+"chirping nearby. sounds like bugs...":data8,1,3,5
 1890 p$(3)="i'm in a dark room... oh no!! there are giant bugs all around me!!!"
 1895 data0,0,0,2
 1900 p$(4)="i'm in a small room. a scribbling here  says: har har har! "
 1905 p$(4)=p$(4)+"you'll never make it!{rvon}arbadac arba{rvof}":data0,7,1,0
 1910 p$(5)="i'm in a dusty cobblestone hallway.":data0,25,2,1
 1920 p$(6)="i'm in a dusty place. it is very dark inhere. i'm scared!":data1,24,0,0
 1930 p$(7)="i'm in a low crawl space. it seems as ifwe're not "
 1935 p$(7)=p$(7)+"supposed to be here...":data4,0,15,0
 1940 p$(8)="i'm in a room with rock walls. imbedded in the wall are "
 1945 p$(8)=p$(8)+"scattered rubies.":data9,2,0,13
 1950 p$(9)="i'm in a dark room. this one is not so  scary. i think i hear "
 1955 p$(9)=p$(9)+"grunts and groans nearby.":data10,8,23,0
 1960 p$(10)="i'm on the south side of a chasm.       molten lava "
 1965 p$(10)=p$(10)+"beneath me.":data11,9,0,0
 1970 p$(11)="i'm on the north side of the chasm.":data16,10,0,0
 1980 p$(12)="i'm in a maze of twisty little passages.":data12,12,13,14
 1990 p$(13)=p$(12):data13,13,8,12
 2000 p$(14)=p$(12):data14,15,14,12
 2010 p$(15)=p$(12):data14,15,15,7
 2020 p$(16)="i'm on a wood platform. a sign warns:   go back! beware! "
 2025 p$(16)=p$(16)+"go south!!! there is a rickerty bridge to the north."
 2026 data17,11,0,0
 2030 p$(17)="i'm in a dusty passage. a sign points   west and says: to trolls "
 2035 p$(17)=p$(17)+" place ---> a  rickerty bridge extends southward. "
 2036 p$(17)=p$(17)+"     markings in the dust indicate that      someone "
 2037 p$(17)=p$(17)+"was here recently.":data0,16,0,18
 2040 p$(18)="a voice booms out:"+chr$(13)+"who dares to enter my palace??? "
 2045 p$(18)=p$(18)+"(sounds like a troll to me!)":data0,0,0,19
 2050 p$(19)="i'm in the troll's palace. it's breath- taking!!! the ceiling "
 2055 p$(19)=p$(19)+"is so high i can'teven see it!":data0,20,0,0
 2060 p$(20)="i'm at one end of a secret passage.":data19,21,0,0
 2070 p$(21)="i'm in a secret passage.":data21,21,20,22
 2080 p$(22)=p$(21):data21,22,22,23
 2090 p$(23)=p$(21):data23,9,22,23
 2100 p$(24)="i'm in a huge ice cavern. the ceilling  and walls "
 2105 p$(24)=p$(24)+"are completely ice.":data6,26,25,0
 2110 p$(25)="i'm in a room with many animals... wait!they all ran away!"
 2115 data5,0,0,0
 2120 p$(26)="i am in a room with traces of slime on  the floors and walls."
 2125 data24,29,27,28
 2130 p$(27)="i'm in...al's diner??? there's a coke   machine here."
 2135 p$(27)=p$(27)+chr$(13)+"it says: enjoy coca-cola. 25 cents "
 2136 p$(27)=p$(27)+"(no  canadian coins, quarter only)":data0,0,0,26
 2140 p$(28)="i'm in a huge pit."
 2150 data0,0,26,0
 2160 p$(29)="i'm in the hydra room. the walls are allslime. boy, i've never "
 2165 p$(29)=p$(29)+"seen anything so gross in my life!":data26,30,31,32
 2170 p$(30)="i'm in the dragon room. it seems to be  decorated with dragons."
 2175 data29,34,0,33
 2180 p$(31)="i'm in the torture chamber. let's get   out of here quick!"
 2185 data31,29,31,31
 2190 p$(32)="this is the clam room. the walls are    solid clamshell "
 2195 p$(32)=p$(32)+"embedded in limestone.":data0,0,29,0
 2200 p$(33)="i'm in a mammoth garden. this is all    plants.":data0,0,30,0
 2210 p$(34)="i'm in the velvet room. the walls and   celling are velvet."
 2215 data30,34,35,0
 2220 p$(35)="i'm in an arabian room. arabian guitars are playing nearby. "
 2225 p$(35)=p$(35)+"there is an oil     slick here. looks like machine oil, "
 2226 p$(35)=p$(35)+"    10-w-30.":data36,37,0,34
 2230 p$(36)="i'm in the treasure room. many dwarves  guard some pretty "
 2235 p$(36)=p$(36)+"scrawny treasure.     nothing to flip over, anyway."
 2236 data0,35,0,0
 2240 p$(37)="i'm at mac's earthdigger body shop!":data0,0,0,35
 2250 dimp(37,4):fori=1to37:forj=1to4:readp(i,j):nextj,i
 2260 lo=33:dimob$(lo),ob(lo,1)
 2270 ob$(1)="a set of keys":data6,0:ob$(2)="a shiny sword":data16,0
 2280 ob$(3)="a parrot in a cage":data25,5:ob$(4)="a gold nugget":data4,10
 2290 ob$(5)="a 35.000 carat diamond":data7,10:ob$(6)="a cigarette lighter":data28,0
 2300 ob$(7)="a quarter":data28,0:ob$(8)="an enourmous emerald":data32,15
 2310 ob$(9)="some silver bars":data33,15:ob$(10)="a giant hydra with nine heads"
 2315 data29,0
 2320 ob$(11)="a ming vase":data30,10:ob$(12)="a bottle of coke":data0,0
 2330 ob$(13)="an empty coke bottle":data0,0:ob$(14)="some tools":data34,0
 2340 ob$(15)="a large ruby":data8,15:ob$(16)="gold bars":data19,20
 2350 ob$(17)="a diamond necklace":data19,25:ob$(18)="a magic wand":data14,0
 2360 ob$(22)="a fribulating gonkulator":data37,50
 2370 ob$(20)="a giant bug asleep":data31,0
 2380 ob$(31)="some tasty food":ob$(32)="some human skeletons"
 2385 ob(32,0)=31:ob(32,1)=0
 2390 ob$(33)="a dead hydra on the ground"
 2400 fori=1to20:readob(i,0),ob(i,1):next
 2410 ob(22,0)=ob(19,0):ob(22,1)=ob(19,1)
 2420 ob(19,1)=0:ob(19,0)=0
 2430 ob(31,0)=27:ob(31,1)=0
 2440 datakeys,sword,parrot,nugget,diamond,lighter,quarter,emerald,silver,hydra
 2445 datavase,coke,bottle,tools,ruby,gold,necklace
 2446 datawand,sign,bug,alexander,gonkulator,north,south,east,west
 2450 datan,s,e,w,food,skeletons
 2460 nn=32:dimno$(nn)
 2470 fori=1tonn:readno$(i):next
 2480 datago,get,look,inven,score,drop,help,save,load,quit,say,drink
 2485 datafeed,hit,kill,burn,fight,light,insert,take,wave
 2486 datarelease,continue,destroy,sir,fix,eat,?,inventory,hocus
 2490 nv=30:dimvb$(nv):fori=1tonv:readvb$(i):next
 2500 m1$="the parrot chants: sir alexander... sir alexander!"
 2510 m2$="the troll scurries away in fear."
 2520 m3$="gulp gluk gulp! (burp) that was         refreshing!"
 2530 dimh$(np)
 2540 h$(25)="this parrot talks..."
 2550 h$(29)="cigar? cigarette? tipparillo?"
 2560 h$(10)="you know, this world in enchanted..."
 2570 h$(12)="you can make the passages look less     alike by dropping things."
 2580 h$(13)=h$(12):h$(14)=h$(12):h$(15)=h$(12)
 2590 h$(1)="i think we're supposed to leave what we find here."
 2600 h$(35)="often times oil means an auto body shop is nearby."
 2610 h$(31)="the bug will not bother you.            it is asleep."
 2615 h$(31)=h$(31)+"hint: if you linger too long in this          room it "
 2616 h$(31)=h$(31)+"will wake up!"
 2620 h$(2)="you know, in this enchanted world, many things that are "
 2625 h$(2)=h$(2)+"small on earth are very large..."
 2630 h$(20)="try to find your way to the other end,  dummy!!!":h$(23)=h$(20)
 2640 rem
 2650 return
 10000 rem fuer 2000er betriebssystem
 10001 ifpeek(51234)<>0thenreturn
 10002 ifz<=peek(625)then10040
 10010 poke59411,53
 10020 forz=1to90:next
 10030 peek59411,61
 10040 z=peek(625)
 10050 return
    0 clr:poke59468,12
    1 rem joust copyright (c) 1980 brian sawyer
    2 rem 1310 dover hill rd
    3 rem santa barbara ca 93103
    4 :
    5 rem cursor #18, march, 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 27 mar 80 01pm
   90 pg$="joust":nm$="18":gosub62000
  100 forn=1to6:readx$(n):next:forn=1to6:readw$(n):next
  110 data"N{left}{up}N{rvon}V{rvof}{left}{up}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}","N{left}{up}N{up}{rvon}V{rvof}{down}{left}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  120 data"{down}{CBM-T}{up}{left}N{rvon}V{rvof}{up}{left}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}","N{up}{rvon}V{rvof}{down}{down}{left}{left}{CBM-T}{up}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}","{down}{CBM-T}{up}{rvon}V{rvof}{up}{left}{left}N{up}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  130 data"{down}{CBM-T}{up}{up}{left}N{up}{rvon}V{rvof}{down}{down}{left}{CBM-POUND}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  140 data"{up}{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{down}M{down}{left}{left}{rvon}V{rvof}{down}{CBM-T}","{up}{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{down}{left}{rvon}V{rvof}M{down}{left}M","{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}M{down}{left}M{left}{left}{up}{up}{rvon}V{rvof}"
  150 data"{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{down}{left}{rvon}V{rvof}M{down}{left}{CBM-T}","{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{down}{CBM-T}{up}{up}{left}M{up}{left}{left}{rvon}V{rvof}","{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{down}{CBM-T}{up}{left}M{up}{left}{left}{rvon}V{rvof}"
  160 bl$="                                       "
  170 if peek(50000) then poke59458,peek(59458)or32
  180 sl=1:bl=2:cs=3:cb=1:y=.5
  190 n1$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{CBM-POUND}{rght}":o1$="{rvon}{SHIFT-+}{rvof}"
  200 y$="{rght}{rght}{rght} {CBM-I} {down}{left}{left}{left} Q {down}{left}{left}{left}{left} {CBM-M}P {down}{left}{left}{left}{left}"
  210 y$=y$+" {CBM-M}P{rght}{rght}{rght} ,{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rght} {CBM-I}{rvon}M{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{SHIFT-POUND} .{rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-L}{rvon}  {CBM-T}{rvof}{CBM-C}{rvon}{CBM-T} {rvof}{SHIFT-POUND}{CBM-*}{rvof}"
  220 y$=y$+"{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left} {CBM-L}{CBM-*}{rvon}     {rvof}{down}{left}{left}{left}{left}{left}{left}{left}{left}{$a0}{rght} {SHIFT-POUND}   {CBM-*}M{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
  230 y$=y$+"  {CBM-N}\   {CBM-N}{CBM-C}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}   {CBM-V}{CBM-V}   {CBM-V}{up}{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}"
  240 x$="{rght}{rght}{rght}{rght}{up}{up} {CBM-POUND} {down}{left}{left}W {left}{down}{left}{left} O{CBM-G} {left}{down}{left}{left}{left} O{CBM-G} {down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}.{rvof}{up}{left}, {left}{down}{rvon} {CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}V{CBM-U}{rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}
  250 x$=x$+"{left}{SHIFT-POUND}{CBM-*}{rvon}VV{rvof}{CBM-V}{rvon}VVV{rvof}{CBM-J} {down}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}VVVVV{rvof}{SHIFT-POUND}{CBM-J} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}N{SHIFT-POUND}   {CBM-*} {left}{left}{left}{left}{left}{left}{left}{down}{CBM-V}{CBM-H} {rght}{rght}/{CBM-H} "
  260 x$=x$+"{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-C}   {CBM-C}{CBM-C}  {up} "
  270 x$=x$+"{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  280 cr$="":print"{clr}{down}{down}first knight's name? ";:gosub60000:k1$=in$
  285 ifin$=""thenk1$="lancelot":printk1$;
  290 print:print"{down}second knight's name? ";:gosub60000:k2$=in$
  295 ifin$=""thenk2$="galahad":printk2$;
  300 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  310 printtab((13-len(k1$))/2)k1$tab(18)"round    "spc((13-len(k2$))/2)k2$
  320 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}    {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}    {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
  330 print"{down}{down}{rvon}V{rvof} {SHIFT-+}{SHIFT-*}{SHIFT-*}"spc(30)"{SHIFT-*}{SHIFT-*}{SHIFT-+} {rvon}V{rvof}"
  340 print"q e{down}{left}{left}{left}z c{left}{left}{left}{left}{left}{left}7 9{down}{left}{left}{left}1 3"
  360 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}press {rvon}return{rvof} to commence joust"
  370 getb$:ifb$=""then370
  380 print"{up}";bl$
  390 p1=0:p2=0:p3=0:p4=0:p1$="":p2$="":p3$="":p4$=""
  400 geta$:ifa$=""then520
  404 ifx>7.5then670
  410 b=0:w=0:gosub740
  420 ifsl=blthensl=sl+w:bl=bl+b
  430 ifcs=cbthencs=cs+w:cb=cb+b
  440 ifcb>3thencb=3
  450 ifcb<1thencb=1
  460 ifcs>3thencs=3
  470 ifcs<1thencs=1
  480 ifbl>3thenbl=3
  490 ifbl<1thenbl=1
  500 ifsl>3thensl=3
  510 ifsl<1thensl=1
  520 ify=.5then550
  530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(y+1)"{CBM-D}/{CBM-G}{down} {left}{up}   /{CBM-G}{up}{left} {down} {left}{left}{left}{down}{CBM-V}"
  540 print"{home}"tab(28-x)"{down}{down}{down}{down}{down}{down}{down} {down}{left}{CBM-N}\{down}{left}{CBM-C}   {up}{CBM-N}\{CBM-F}"
  550 ifcs=1andcb=2thenv$=x$(1):goto610
  560 ifcs=2andcb=1thenv$=x$(2):goto610
  570 ifcs=2andcb=3thenv$=x$(3):goto610
  580 ifcs=3andcb=2thenv$=x$(4):goto610
  590 ifcs=1andcb=3thenv$=x$(5):goto610
  600 ifcs=3andcb=1thenv$=x$(6):goto610
  610 ifsl=1andbl=3thenu$=w$(1):goto670
  620 ifsl=1andbl=2thenu$=w$(2):goto670
  630 ifsl=2andbl=1thenu$=w$(3):goto670
  640 ifsl=2andbl=3thenu$=w$(4):goto670
  650 ifsl=3andbl=1thenu$=w$(5):goto670
  660 ifsl=3andbl=2thenu$=w$(6):goto670
  670 y=y+.34:x=x+.34
  680 ifx>8then if sl=cb and cs=bl then840
  684 ifx>9then840
  690 print"{home}"tab(y+5)"          {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}         {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}          "
  700 print"{home}"tab(23-x)"         {left}{left}{left}{left}{left}{left}{left}{left}{left}{down}         {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}          "
  710 print"{home}"tab(y)y$v$
  720 print"{home}"tab(27-x)x$u$
  730 x2$="":y2$="":goto390
  740 rem get
  750 ifa$="e"thencs=cs-1:b=1:return
  760 ifa$="q"thencb=cb-1:w=1:return
  770 ifa$="c"thencs=cs+1:b=-1:return
  780 ifa$="z"thencb=cb+1:w=-1:return
  790 ifa$="7"thensl=sl-1:b=1:return
  800 ifa$="9"thenbl=bl-1:w=1:return
  810 ifa$="1"thensl=sl+1:b=-1:return
  820 ifa$="3"thenbl=bl+1:w=-1:return
  830 return
  840 ifsl<>cbthenlf=1
  850 ifcs<>blthenrf=1
  860 print"{home}";:forn=1to3:printbl$:next
  870 iflf=1thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{CBM-V}{down}{left}{left}{left}{left}{left}{left}{CBM-K}{rvof}QOO{SHIFT-POUND}{down}{left}{left}{left}{left}N{CBM-T}{CBM-T}"
  880 ifrf=1thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-C}{CBM-*}{rvof}{CBM-@}{CBM-@}{down}{left}{left}{left}{CBM-*}{SHIFT-@}{SHIFT-@}W{CBM--}{down}{left}{left}M"
  890 iflf=1thenprint"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}   {down}{left}{left}{rvon}  {down}{left}{CBM-T}"
  900 ifrf=1thenprint"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}    {down}{left}{left}{left}{rvon}  {down}{left}{left}V"
  910 ifrf=0thenprint"{home}"tab(28-x)x$u$
  920 iflf=0thenprint"{home}"tab(y)y$v$
  930 forn=1to1300:next
  940 y=.5:x=0
  950 ifrf=0andlf=1theng=g+1
  960 iflf=0andrf=1thenf=f+1
  970 r=r+1:rf=0:lf=0:gosub1020
  980 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}want to play again";
  981 zt=ti:zc=2
  984 geta$:ifa$<>""then987
  985 ifzt<tithenprintmid$(" ?",zc,1);"{left}";:zt=ti+15:zc=3-zc
  986 goto984
  987 ifa$=chr$(13)ora$="y"then
  990 ifa$="n"then1010
  995 ifa$<>chr$(13)anda$<>"y"then984
  999 print"{home}";:forn=1to14:printbl$:next
 1000 goto380
 1010 print"{clr}":poke 59458,peek(59458)and 223:end
 1020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1030 printtab(4);f;tab(20);r;tab(32);g
 1050 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by brian sawyer{down}
 62020 gosub60500
 62030 print"{down}competitions knightly
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=2:gosub60200
 62110 print"  two gallant knights on sturdy chargers
 62120 print"ride, each trying to unsaddle the other.
 62130 print"each carries lance and shield.
 62140 print"{down}  the right player uses the {rvon}7{rvof} and {rvon}1{rvof} keys
 62150 print"to move his lance and the {rvon}9{rvof} and {rvon}3{rvof} keys
 62160 print"{down}to move his shield.
 62170 print"{down}  the left player uses the {rvon}e{rvof} and {rvon}c{rvof} keys
 62180 print"{down}to move his lance and the {rvon}q{rvof} and {rvon}z{rvof} keys
 62190 print"{down}to move his shield.
 62200 gosub60200
 62210 print"the catch is this: the shield and lance
 62220 print"{down}may not be held at the same level; so
 62230 print"{down}when one is moved to the level of the
 62240 print"{down}other, it moves out of the way.
 62248 gosub60200
 62250 return
   10 sys(1039)
    8 deffna(v)=int(v*100+.5)/100
    9 dima$(7)
   10 rem ground strings
   11 b$=" {CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   12 c$="{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-U}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
   14 rem rub out string
   15 w$="                                       "
   16 d=30000:h=200:v=140
   17 rem lower case
   18 poke59468,14
   20 print"{clr}dO{$a0}YOU{$a0}WANT{$a0}INSTRUCTIONS(y OR{$a0}n)";
   30 inputq$
   40 ifq$="y"then1400
   50 ifq$="n"then1650
   55 goto20
   59 rem define jumbo jet
   60 a$(1)="                       N{CBM-T}P"
   70 a$(2)="                      N XN"
   80 a$(3)="   {CBM-@}U{SHIFT-*}{SHIFT-*}FFRR{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N  N{CBM-@}"
   90 a$(4)="  N{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} U{CBM-O}{CBM-P}{CBM-T}N"
   91 a$(5)="  M{CBM-@}{CBM-@}{CBM-@}{CBM-@}  U{SHIFT-*}{SHIFT-*}{SHIFT-*}FFRRR RF{SHIFT-*}CDE "
   92 a$(6)="   {CBM-T}{CBM-T}{CBM-T}B{CBM-T}EJ{SHIFT-*}{rvon} {rvof}>D{rvon} {rvof}>CDE       "
   93 a$(7)="      W     WWWW          "
   98 rem poking to graphics
   99 poke59468,12
  100 e=0:a=0:x1=0:s=0:c1=0
  110 h1=int((h+13)/14)
  111 ifh1>14thenh1=14
  112 l=14-h1
  120 d1=d:r=5000
  139 rem print plane and table
  140 print"{clr}";:c=0
  141 ifl=0then143
  142 form=1tol:print:nextm
  143 forn=1to7:printa$(n):nextn
  144 print"{home}";
  145 printtab(29);"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{left}":n1=2
  146 fori=1to6:ifi=5thenn1=3
  147 forn=1ton1
  148 printtab(29);"{SHIFT--}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{left}":nextn
  149 ifi=6then151
  150 printtab(29);"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{left}"
  151 nexti
  152 printtab(29);"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{left}"
  153 print"{home}";
  154 print
  155 printtab(30);"climb r."
  160 printtab(32);fna(e):print
  180 printtab(31);"accel."
  190 printtab(30);int(a+0.5);tab(32);"m/s^2":print
  210 printtab(30);"velocity"
  220 printtab(30);int(v+0.5);tab(34);"m/s":print
  225 printtab(30);"altitude"
  226 printtab(31);int(h+0.5);tab(35);"m":print
  230 printtab(30);"dist. to"
  240 printtab(31);"runway"
  250 printtab(30);int(d+0.5);tab(36);"m":print
  260 printtab(31);"runway"
  270 printtab(32);"left"
  280 printtab(30);int(r+0.5);tab(35);"m":print
  290 d$=left$(b$,1)+c$
  299 rem print ground
  300 printleft$(d$,29)
  305 e1=0
  309 rem save previous values
  310 e9=e:a9=a:u=v:h9=h:d8=d:d9=d1:r9=r
  312 print"climb rate change=                     {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  313 rem if on auto,read data
  314 ifq9=1thenreade1,t:printe1:goto360
  315 ife1=-999then140
  320 inpute1
  330 ifabs(e1)<=10then360
  340 print"c.r. change must lie between +10 & -10{up}{up}"
  350 goto312
  360 print"{up}";tab(26);"thrust=      {left}{left}{left}{left}{left}{left}";
  365 ifq9=1thenprintt:goto405
  370 inputt
  380 ifabs(t)<=100 then405
  390 print"thrust must lie between +100 & -100   {up}"
  400 goto360
  405 printw$;"{home}";
  408 rem calculate new values
  409 rem c=1 if crashed,s=1 for success
  410 e=e+e1
  420 ife>10thene=10
  430 ifh=0then480
  440 ift<0thenc=1
  460 a=a+(t-50)/30-e/3
  470 goto500
  480 ift<0then495
  485 a=a+t/100
  490 goto500
  495 a=a+t/20
  500 ifa>5thena=5
  510 v=v+a*10
  520 ifv>200thenc=1
  540 ifh=0then560
  550 ifv<80thenc=1
  560 h=int(h+e*v/20+.5)
  570 ifh<0thenc=1
  571 ifv>0then580
  572 d1=d1+u*u/2/a
  573 v=0
  574 s=1
  575 goto620
  580 d1=d1-10*u-50*a
  590 d=d1
  600 ifd1>0then660
  610 d=0
  620 r=5000+d1
  630 ifr<0thenc=1
  650 goto670
  660 ifh<1thenc=1
  669 rem new values
  670 print"{home}"
  671 print:printtab(32);"      {left}{left}{left}{left}{left}{left}";fna(e)
  680 print"{down}{down}";tab(30);"  {left}{left}";int(a+0.5)
  690 print"{down}{down}";tab(30);"    {left}{left}{left}{left}";int(v+0.5)
  700 print"{down}{down}";tab(31);"    {left}{left}{left}{left}";h
  710 print"{down}{down}{down}";tab(30);"      {left}{left}{left}{left}{left}{left}";int(d+0.5)
  720 print"{down}{down}{down}";tab(30);"     {left}{left}{left}{left}{left}";int(r+0.5);
  725 ifc=1then1210
  727 rem move plane:
  728 rem h2 is new level
  729 rem h1 is old level
  730 h2=int((h+13)/14)
  735 ifh2>14thenh2=14
  740 i=h2-h1
  750 ifi=0then940
  760 k=sgn(i)
  775 h1=h2
  780 j=abs(i)
  790 x=int(v/2/j)
  810 fork1=1toj
  815 print"{home}";
  816 print"{up}";
  817 l=l-k
  820 ifl=0then850
  830 form=1tol:print:nextm
  840 ifi<0thenprint"{up}";left$(w$,28)
  850 forn=1to7:printa$(n):nextn
  860 ifi>0thenprintleft$(w$,28);"{up}"
  870 b=15-l
  890 ifb=0then910
  900 form=1tob:print:nextm
  910 gosub1000
  920 nextk1
  930 goto1090
  940 x=int(v/2)
  950 print"{down}{down}"
  960 gosub1000
  970 goto1090
  999 rem move ground
 1000 form=1tox
 1010 x1=x1+1
 1020 n=x1-int(x1/5)*5+1
 1030 d$=left$(b$,n)+c$
 1040 print"{up}";left$(d$,29)
 1050 nextm
 1060 return
 1090 ifs<>1then310
 1100 print"{home}  **successful  landing**":print
 1105 print"  ****congratulations****":print
 1110 ifc1=0thenprint"  **british airways are**"
 1115 ifc1=0thenprint"  ****waiting for you****":print
 1120 ifc1=1thenprint"  ***you crashed once****":print:print
 1130 ifc1>1thenprint"  **you crashed";c1;"times**":print:print
 1135 ifa>=-2thenprint
 1140 ifa<-2thenprint"  *";int(10*abs(a));"people were sick**"
 1150 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1200 goto9999
 1210 print"{home}";:c1=c1+1
 1219 rem you have crashed
 1220 fori=1to3:printleft$(w$,29):nexti
 1221 print"         {rvon} {rvof} {rvon} {rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon} {rvof} {rvon} {rvof}         "
 1222 print"         {CBM-*}{CBM-I}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}         "
 1223 print"          {rvon} {rvof}  {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}         "
 1224 print"          {rvon} {rvof}  {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon}   {rvof}         "
 1225 printleft$(w$,29)
 1226 print"       {rvon} {rvof} {rvon} {rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon} {rvof} {rvon} {rvof} {rvon}   {rvof}       "
 1227 print"       {rvon} {rvof}{CBM-I}{rvon} {rvof} {rvon} {rvof}{CBM-I}{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}{CBM-I}        "
 1228 print"       {rvon} {CBM-I} {rvof} {rvon} {CBM-I} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {CBM-I}{rvof}        "
 1229 print"       {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon}   {rvof}       "
 1230 printleft$(w$,29)
 1231 print" {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}  {CBM-*}{rvof} {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND}  {rvof} {rvon} {rvof} {rvon} {rvof} {rvon}   {rvof} {rvon}  {CBM-*}{rvof}"
 1232 print" {rvon} {rvof}   {rvon} {rvof}{CBM-I}{SHIFT-POUND} {rvon} {rvof}{CBM-I}{rvon} {rvof} {CBM-*}{CBM-I}  {rvon} {rvof}{CBM-I}{rvon} {rvof} {rvon} {rvof}{CBM-I}  {rvon} {rvof} {rvon} {rvof}"
 1233 print" {rvon} {rvof}   {rvon} {CBM-I}{CBM-*}{rvof} {rvon} {CBM-I} {rvof}  {rvon}{CBM-I}{CBM-*}{rvof} {rvon} {CBM-I} {rvof} {rvon} {CBM-I}{rvof}  {rvon} {rvof} {rvon} {rvof}"
 1234 print" {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon}  {rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof} {rvon}   {rvof} {rvon}  {rvof}{SHIFT-POUND}"
 1240 fori=1to4:printleft$(w$,29):nexti
 1241 print
 1280 printw$;"{up}"
 1281 print"back 10 seconds(y or n)";
 1290 inputq$
 1300 ifq$="y"then1330
 1310 ifq$<>"n"then1280
 1315 print"{up}{up}"
 1320 goto9999
 1329 rem reset values
 1330 e=e9:a=a9:v=u:h=h9:d=d8:d1=d9:r=r9
 1340 goto140
 1399 rem instructions
 1400 print"{clr}yOU ARE THE{$a0}PILOT{$a0}OF{$a0}A{$a0}jUMBO{$a0}jET. yOU"
 1420 print"MUST{$a0}LAND{$a0}THE{$a0}AIRCRAFT{$a0}BY{$a0}CONTROLLING"
 1430 print"AIRCRAFT'S{$a0}RATE{$a0}OF{$a0}CLIMB AND "
 1440 print"THRUST (IN{$a0}KILO-NEWTONS) EVERY{$a0}10 SECS."
 1450 print"cLIMB{$a0}RATE{$a0}CHANGE{$a0}MUST{$a0}BE BETWEEN{$a0}"
 1460 print"+10 & -10.mAXIMUM{$a0}CLIMB{$a0}RATE{$a0}IS{$a0}+10."
 1465 print"hEIGHT{$a0}CHANGE=CLIMB{$a0}RATE*VELOCITY/20."
 1470 print"tHRUST{$a0}MUST{$a0}BE{$a0}BETWEEN{$a0}+100 & -100,"
 1475 print"+50 WILL{$a0}MAINTAIN{$a0}ACCELERATION."
 1480 print"rEVERSE{$a0}THRUST{$a0}IS{$a0}FOR{$a0}RUNWAY{$a0}BRAKING."
 1490 print"mAXIMUM{$a0}ACCELERATION{$a0}IS{$a0}5 M/S^2."
 1500 print"yOU{$a0}WILL{$a0}CRASH{$a0}IF:"
 1510 print" 1) VELOCITY{$a0}>200 M/S,"
 1520 print" 2) VELOCITY <80 M/S WHILST{$a0}IN{$a0}FLIGHT,"
 1530 print" 3) YOU{$a0}LAND{$a0}BEFORE{$a0}START{$a0}OF{$a0}RUNWAY,"
 1540 print" 4) YOU{$a0}TRY{$a0}TO{$a0}GO{$a0}BELOW{$a0}ZERO{$a0}HEIGHT,"
 1550 print" 5) YOU{$a0}OVERSHOOT{$a0}RUNWAY{$a0}AT{$a0}ANY{$a0}HEIGHT,"
 1555 print" 6) YOU{$a0}USE{$a0}REVERSE{$a0}THRUST{$a0}IN{$a0}FLIGHT."
 1560 print"iF{$a0}YOU{$a0}CRASH{$a0}YOU{$a0}HAVE{$a0}THE{$a0}OPTION{$a0}OF"
 1570 print"GOING{$a0}BACK{$a0}10 SECONDS!!"
 1580 print"iF SCREEN{$a0}LAYOUT{$a0}IS{$a0}SPOILED{$a0}AT{$a0}ANY{$a0}TIME"
 1590 print"THEN{$a0}TYPE{$a0}-999 FOR{$a0}CLIMB{$a0}RATE CHANGE."
 1600 print"lAND{$a0}ON{$a0}AUTO-PILOT(y OR n)";
 1610 inputq$
 1620 q9=0
 1630 ifq$="y"thenq9=1:goto60
 1650 print"sTANDARD{$a0}STARTING{$a0}CONDITIONS(y OR n)";
 1660 inputq$
 1670 ifq$="y"then60
 1680 ifq$<>"n"then1650
 1689 rem non-standard starting values
 1690 v=100+100*rnd(2)
 1700 h=150+50*rnd(3)
 1710 d=20000+10000*rnd(4)
 1720 goto60
 1800 data0,100,0,50,0,50,0,0,-1,40
 1810 data-1,30,0,30,0,30,0,30,0,30
 1820 data0,30,0,30,0,30,1,10,0,30
 1830 data0,30,0,30,-.2,40,1.2,-10,0,20
 1840 data0,20,0,20,0,30,0,20,0,20
 9999 end
  100 poke59468,12
  150 rem inicio
  180 dimf(8,8)
  190 printchr$(147)
  200 print"{clr}         knigths & demons":print"    a game by kabuto factory"
  210 print:print:print "  cbm pet version by manuel gomez":print:print
  211 print:print:print"         a. easy level":print"         b. medium level"
  212 print"         c. hard level"
  225 geta$
  230 ifa$="a"thendi=1:goto270
  240 ifa$="b"thendi=2:goto270
  250 ifa$="c"thendi=3:goto270
  260 ifa$=""then225
  270 rem varglob
  280 x=1:y=1:su=0:ba=16
  290 rem varfase
  300 ifdi=1thenca=10:t=200:p=5
  310 ifdi=2thenca=20:t=300:p=15
  320 ifdi=3thenca=30:t=400:p=10
  330 ifba<8orba>23thengoto1370
  340 gosub1040
  350 rem bucle
  355 geta$
  360 ifa$="o"andx>1thend=1:gosub650:goto420
  370 ifa$="p"andx<8thend=2:gosub650:goto420
  380 ifa$="q"andy>1thend=3:gosub650:goto420
  390 ifa$="a"andy<8thend=4:gosub650:goto420
  400 ifa$="m"thend=4:gosub740:goto420
  410 ifa$="z"andp>0thengosub570:p=p-1:goto420
  420 t=t-.1
  440 rem cond
  450 ifint(t)=0thengoto1340
  460 ifsu=64orsu=128thengoto500
  470 print"{up}{rght}time:";int(t);"{left}/";tab(20);"pikes:";p;"{left}/"
  490 goto350
  500 rem pasa
  510 ifsu=64thenprint"{up}{up}{rght}{rght}{rght}{rght}{rght}cleared.good side":ba=ba-1:su=0:x=1:y=1:goto530
  520 ifsu=128thenprint"{up}{up}{rght}{rght}{rght}{rght}{rght}cleared.evil side":ba=ba+1:su=0:x=1:y=1:goto530
  530 ifdi=1thent=200
  540 ifdi=2thent=300
  550 ifdi=3thent=400
  560 geta$:ifa$=""then560
  561 goto330
  570 rem pica
  580 iff(x,y)=1thenf(x,y)=2:su=su+1:goto600
  590 iff(x,y)=2thenf(x,y)=1:su=su-1:goto600
  600 iff(x,y)=1thengosub2100
  620 iff(x,y)=2thengosub2150
  625 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),127
  626 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),127
  627 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),127
  628 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),127
  640 return
  650 rem cursor
  660 iff(x,y)=1thengosub2100
  670 iff(x,y)=2thengosub2150
  680 ifd=1thenx=x-1
  690 ifd=2thenx=x+1
  700 ifd=3theny=y-1
  710 ifd=4theny=y+1
  720 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),127
  721 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),127
  722 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),127
  723 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),127
  730 return
  740 rem cambia
  750 rem rutcambio
  760 iff(x,y)=1thenf(x,y)=2:su=su+1:goto780
  770 iff(x,y)=2thenf(x,y)=1:su=su-1:goto780
  780 ify>1thengoto1520
  790 ify>1thengoto1530
  800 ify<8thengoto1540
  810 ify<8thengoto1550
  820 ifx>1thengoto1560
  830 ifx>1thengoto1570
  840 ifx<8thengoto1580
  850 ifx<8thengoto1590
  860 rem rutpinta
  880 iff(x,y)=1thengosub2100
  890 iff(x,y)=2thengosub2150
  900 ify>1thengosub2200
  910 ify>1thengoto1430
  920 ify>1thengoto1440
  930 ify<8thengosub2250
  940 ify<8thengoto1450
  950 ify<8thengoto1460
  960 ifx>1thengosub2300
  970 ifx>1thengoto1470
  980 ifx>1thengoto1480
  990 ifx<8thengosub2350
 1000 ifx<8thengoto1490
 1010 ifx<8thengoto1500
 1020 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),127
 1021 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),127
 1022 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),127
 1023 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),127
 1030 return
 1040 rem tablero
 1050 printchr$(147):print"{clr}a new battle begins..."
 1060 forr=1to8:forc=1to8
 1070 f(c,r)=1:su=su+1
 1080 nextc:nextr
 1090 forn=1toca
 1100 r=int(rnd(1)*8)+1:c=int(rnd(1)*8)+1
 1110 iff(c,r)=1thenf(c,r)=2:su=su+1:goto1130
 1120 iff(c,r)=2thenf(c,r)=1:su=su-1:goto1130
 1130 ifr>1theniff(c,r-1)=1thenf(c,r-1)=2:su=su+1:goto1150
 1140 ifr>1theniff(c,r-1)=2thenf(c,r-1)=1:su=su-1:goto1150
 1150 ifr<8theniff(c,r+1)=1thenf(c,r+1)=2:su=su+1:goto1170
 1160 ifr<8theniff(c,r+1)=2thenf(c,r+1)=1:su=su-1:goto1170
 1170 ifc>1theniff(c-1,r)=1thenf(c-1,r)=2:su=su+1:goto1190
 1180 ifc>1theniff(c-1,r)=2thenf(c-1,r)=1:su=su-1:goto1190
 1190 ifc<8theniff(c+1,r)=1thenf(c+1,r)=2:su=su+1:goto1210
 1200 ifc<8theniff(c+1,r)=2thenf(c+1,r)=1:su=su-1:goto1210
 1210 nextn
 1220 printchr$(147)
 1223 print"{clr}{rght}knights----------------demons"
 1224 print"////////----------------////////"
 1225 forn=2to23:print"////////////////////////////////":nextn
 1240 poke32768+ba,127:poke32768+ba+40,127
 1260 forr=1to8
 1270 forc=1to8
 1280 iff(c,r)=1thengosub2000
 1290 iff(c,r)=2thengosub2050
 1300 nextc
 1310 nextr
 1320 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),127
 1321 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),127
 1322 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),127
 1323 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),127
 1330 return
 1340 rem gameover
 1350 print"{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}game over"
 1360 geta$:ifa$=""then1360
 1361 goto190
 1370 rem final
 1380 ifba>23thenprintchr$(147):print"finished in the evil side":goto1415
 1390 ifba<8anddi=1thenprintchr$(147):print"finished.try harder level":goto1415
 1400 ifba<8anddi=2thenprintchr$(147):print"finished.try harder level":goto1415
 1410 ifba<8anddi=3thenprintchr$(147):print"mastered.thanks 4 playing":goto1415
 1415 forn=0to500:nextn:goto190
 1420 rem pifs
 1430 iff(x,y-1)=1thengosub2400:goto930
 1440 iff(x,y-1)=2thengosub2450:goto930
 1450 iff(x,y+1)=1thengosub2500:goto960
 1460 iff(x,y+1)=2thengosub2550:goto960
 1470 iff(x-1,y)=1thengosub2600:goto990
 1480 iff(x-1,y)=2thengosub2650:goto990
 1490 iff(x+1,y)=1thengosub2700:goto1020
 1500 iff(x+1,y)=2thengosub2750:goto1020
 1510 rem cifs
 1520 iff(x,y-1)=1thenf(x,y-1)=2:su=su+1:goto800
 1530 iff(x,y-1)=2thenf(x,y-1)=1:su=su-1:goto800
 1540 iff(x,y+1)=1thenf(x,y+1)=2:su=su+1:goto820
 1550 iff(x,y+1)=2thenf(x,y+1)=1:su=su-1:goto820
 1560 iff(x-1,y)=1thenf(x-1,y)=2:su=su+1:goto840
 1570 iff(x-1,y)=2thenf(x-1,y)=1:su=su-1:goto840
 1580 iff(x+1,y)=1thenf(x+1,y)=2:su=su+1:goto860
 1590 iff(x+1,y)=2thenf(x+1,y)=1:su=su-1:goto860
 2000 poke32768+(8+2*(c-1))+40*(3+2*(r-1)),85
 2001 poke32768+((8+2*(c-1))+1)+40*(3+2*(r-1)),73
 2002 poke32768+(8+2*(c-1))+40*((3+2*(r-1))+1),74
 2003 poke32768+((8+2*(c-1))+1)+40*((3+2*(r-1))+1),75
 2020 return
 2050 poke32768+(8+2*(c-1))+40*(3+2*(r-1)),108
 2051 poke32768+((8+2*(c-1))+1)+40*(3+2*(r-1)),123
 2052 poke32768+(8+2*(c-1))+40*((3+2*(r-1))+1),124
 2053 poke32768+((8+2*(c-1))+1)+40*((3+2*(r-1))+1),126
 2070 return
 2100 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),85
 2101 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),73
 2102 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),74
 2103 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),75
 2120 return
 2150 poke32768+(8+2*(x-1))+40*(3+2*(y-1)),108
 2151 poke32768+((8+2*(x-1))+1)+40*(3+2*(y-1)),123
 2152 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+1),124
 2153 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+1),126
 2170 return
 2200 return
 2250 return
 2300 return
 2350 return
 2400 poke32768+(8+2*(x-1))+40*((3+2*(y-1))-2),85
 2401 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))-2),73
 2402 poke32768+(8+2*(x-1))+40*((3+2*(y-1))-1),74
 2403 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))-1),75
 2420 return
 2450 poke32768+(8+2*(x-1))+40*((3+2*(y-1))-2),108
 2451 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))-2),123
 2452 poke32768+(8+2*(x-1))+40*((3+2*(y-1))-1),124
 2453 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))-1),126
 2470 return
 2500 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+2),85
 2501 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+2),73
 2502 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+3),74
 2503 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+3),75
 2520 return
 2550 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+2),108
 2551 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+2),123
 2552 poke32768+(8+2*(x-1))+40*((3+2*(y-1))+3),124
 2553 poke32768+((8+2*(x-1))+1)+40*((3+2*(y-1))+3),126
 2570 return
 2600 poke32768+(8+2*((x-1)-1))+40*(3+2*(y-1)),85
 2601 poke32768+((8+2*((x-1)-1))+1)+40*(3+2*(y-1)),73
 2602 poke32768+(8+2*((x-1)-1))+40*((3+2*(y-1))+1),74
 2603 poke32768+((8+2*((x-1)-1))+1)+40*((3+2*(y-1))+1),75
 2620 return
 2650 poke32768+(8+2*((x-1)-1))+40*(3+2*(y-1)),108
 2651 poke32768+((8+2*((x-1)-1))+1)+40*(3+2*(y-1)),123
 2652 poke32768+(8+2*((x-1)-1))+40*((3+2*(y-1))+1),124
 2653 poke32768+((8+2*((x-1)-1))+1)+40*((3+2*(y-1))+1),126
 2670 return
 2700 poke32768+(8+2*((x-1)+1))+40*(3+2*(y-1)),85
 2701 poke32768+((8+2*((x-1)+1))+1)+40*(3+2*(y-1)),73
 2702 poke32768+(8+2*((x-1)+1))+40*((3+2*(y-1))+1),74
 2703 poke32768+((8+2*((x-1)+1))+1)+40*((3+2*(y-1))+1),75
 2720 return
 2750 poke32768+(8+2*((x-1)+1))+40*(3+2*(y-1)),108
 2751 poke32768+((8+2*((x-1)+1))+1)+40*(3+2*(y-1)),123
 2752 poke32768+(8+2*((x-1)+1))+40*((3+2*(y-1))+1),124
 2753 poke32768+((8+2*((x-1)+1))+1)+40*((3+2*(y-1))+1),126
 2770 return
 31743 bytes free
  100 poke59468,12
  150 rem inicio
  180 dimf(8,8)
  190 printchr$(147)
  200 print"{clr}         knigths & demons":print"    a game by kabuto factory"
  210 print:print:print "  cbm pet version by manuel gomez":print:print
  211 print:print:print"         a. easy level":print"         b. medium level"
  212 print"         c. hard level"
  225 geta$
  230 ifa$="a"thendi=1:goto270
  240 ifa$="b"thendi=2:goto270
  250 ifa$="c"thendi=3:goto270
  260 ifa$=""then225
  270 rem varglob
  280 x=1:y=1:su=0:ba=16
  290 rem varfase
  300 ifdi=1thenca=10:t=200:p=5
  310 ifdi=2thenca=20:t=300:p=15
  320 ifdi=3thenca=30:t=400:p=10
  330 ifba<8orba>23thengoto1370
  340 gosub1040
  350 rem bucle
  355 geta$
  360 ifa$="o"andx>1thend=1:gosub650:goto420
  370 ifa$="p"andx<8thend=2:gosub650:goto420
  380 ifa$="q"andy>1thend=3:gosub650:goto420
  390 ifa$="a"andy<8thend=4:gosub650:goto420
  400 ifa$="m"thend=4:gosub740:goto420
  410 ifa$="z"andp>0thengosub570:p=p-1:goto420
  420 t=t-.1
  440 rem cond
  450 ifint(t)=0thengoto1340
  460 ifsu=64orsu=128thengoto500
  470 print"{up}{rght}time:";int(t);"{left}/";tab(20);"pikes:";p;"{left}/"
  490 goto350
  500 rem pasa
  510 ifsu=64thenprint"{up}{up}{rght}{rght}{rght}{rght}{rght}cleared.good side":ba=ba-1:su=0:x=1:y=1:goto530
  520 ifsu=128thenprint"{up}{up}{rght}{rght}{rght}{rght}{rght}cleared.evil side":ba=ba+1:su=0:x=1:y=1:goto530
  530 ifdi=1thent=200
  540 ifdi=2thent=300
  550 ifdi=3thent=400
  560 geta$:ifa$=""then560
  561 goto330
  570 rem pica
  580 iff(x,y)=1thenf(x,y)=2:su=su+1:goto600
  590 iff(x,y)=2thenf(x,y)=1:su=su-1:goto600
  600 iff(x,y)=1thengosub2100
  620 iff(x,y)=2thengosub2150
  625 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),127
  626 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),127
  627 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),127
  628 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),127
  640 return
  650 rem cursor
  660 iff(x,y)=1thengosub2100
  670 iff(x,y)=2thengosub2150
  680 ifd=1thenx=x-1
  690 ifd=2thenx=x+1
  700 ifd=3theny=y-1
  710 ifd=4theny=y+1
  720 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),127
  721 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),127
  722 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),127
  723 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),127
  730 return
  740 rem cambia
  750 rem rutcambio
  760 iff(x,y)=1thenf(x,y)=2:su=su+1:goto780
  770 iff(x,y)=2thenf(x,y)=1:su=su-1:goto780
  780 ify>1thengoto1520
  790 ify>1thengoto1530
  800 ify<8thengoto1540
  810 ify<8thengoto1550
  820 ifx>1thengoto1560
  830 ifx>1thengoto1570
  840 ifx<8thengoto1580
  850 ifx<8thengoto1590
  860 rem rutpinta
  880 iff(x,y)=1thengosub2100
  890 iff(x,y)=2thengosub2150
  900 ify>1thengosub2200
  910 ify>1thengoto1430
  920 ify>1thengoto1440
  930 ify<8thengosub2250
  940 ify<8thengoto1450
  950 ify<8thengoto1460
  960 ifx>1thengosub2300
  970 ifx>1thengoto1470
  980 ifx>1thengoto1480
  990 ifx<8thengosub2350
 1000 ifx<8thengoto1490
 1010 ifx<8thengoto1500
 1020 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),127
 1021 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),127
 1022 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),127
 1023 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),127
 1030 return
 1040 rem tablero
 1050 printchr$(147):print"{clr}a new battle begins..."
 1060 forr=1to8:forc=1to8
 1070 f(c,r)=1:su=su+1
 1080 nextc:nextr
 1090 forn=1toca
 1100 r=int(rnd(1)*8)+1:c=int(rnd(1)*8)+1
 1110 iff(c,r)=1thenf(c,r)=2:su=su+1:goto1130
 1120 iff(c,r)=2thenf(c,r)=1:su=su-1:goto1130
 1130 ifr>1theniff(c,r-1)=1thenf(c,r-1)=2:su=su+1:goto1150
 1140 ifr>1theniff(c,r-1)=2thenf(c,r-1)=1:su=su-1:goto1150
 1150 ifr<8theniff(c,r+1)=1thenf(c,r+1)=2:su=su+1:goto1170
 1160 ifr<8theniff(c,r+1)=2thenf(c,r+1)=1:su=su-1:goto1170
 1170 ifc>1theniff(c-1,r)=1thenf(c-1,r)=2:su=su+1:goto1190
 1180 ifc>1theniff(c-1,r)=2thenf(c-1,r)=1:su=su-1:goto1190
 1190 ifc<8theniff(c+1,r)=1thenf(c+1,r)=2:su=su+1:goto1210
 1200 ifc<8theniff(c+1,r)=2thenf(c+1,r)=1:su=su-1:goto1210
 1210 nextn
 1220 printchr$(147)
 1223 print"{clr}{rght}knights----------------demons"
 1224 print"////////----------------////////"
 1225 forn=2to23:print"////////////////////////////////":nextn
 1240 poke32768+ba,127:poke32768+ba+80,127
 1260 forr=1to8
 1270 forc=1to8
 1280 iff(c,r)=1thengosub2000
 1290 iff(c,r)=2thengosub2050
 1300 nextc
 1310 nextr
 1320 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),127
 1321 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),127
 1322 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),127
 1323 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),127
 1330 return
 1340 rem gameover
 1350 print"{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}game over"
 1360 geta$:ifa$=""then1360
 1361 goto190
 1370 rem final
 1380 ifba>23thenprintchr$(147):print"finished in the evil side":goto1415
 1390 ifba<8anddi=1thenprintchr$(147):print"finished.try harder level":goto1415
 1400 ifba<8anddi=2thenprintchr$(147):print"finished.try harder level":goto1415
 1410 ifba<8anddi=3thenprintchr$(147):print"mastered.thanks 4 playing":goto1415
 1415 forn=0to500:nextn:goto190
 1420 rem pifs
 1430 iff(x,y-1)=1thengosub2400:goto930
 1440 iff(x,y-1)=2thengosub2450:goto930
 1450 iff(x,y+1)=1thengosub2500:goto960
 1460 iff(x,y+1)=2thengosub2550:goto960
 1470 iff(x-1,y)=1thengosub2600:goto990
 1480 iff(x-1,y)=2thengosub2650:goto990
 1490 iff(x+1,y)=1thengosub2700:goto1020
 1500 iff(x+1,y)=2thengosub2750:goto1020
 1510 rem cifs
 1520 iff(x,y-1)=1thenf(x,y-1)=2:su=su+1:goto800
 1530 iff(x,y-1)=2thenf(x,y-1)=1:su=su-1:goto800
 1540 iff(x,y+1)=1thenf(x,y+1)=2:su=su+1:goto820
 1550 iff(x,y+1)=2thenf(x,y+1)=1:su=su-1:goto820
 1560 iff(x-1,y)=1thenf(x-1,y)=2:su=su+1:goto840
 1570 iff(x-1,y)=2thenf(x-1,y)=1:su=su-1:goto840
 1580 iff(x+1,y)=1thenf(x+1,y)=2:su=su+1:goto860
 1590 iff(x+1,y)=2thenf(x+1,y)=1:su=su-1:goto860
 2000 poke32768+(8+2*(c-1))+80*(3+2*(r-1)),85
 2001 poke32768+((8+2*(c-1))+1)+80*(3+2*(r-1)),73
 2002 poke32768+(8+2*(c-1))+80*((3+2*(r-1))+1),74
 2003 poke32768+((8+2*(c-1))+1)+80*((3+2*(r-1))+1),75
 2020 return
 2050 poke32768+(8+2*(c-1))+80*(3+2*(r-1)),108
 2051 poke32768+((8+2*(c-1))+1)+80*(3+2*(r-1)),123
 2052 poke32768+(8+2*(c-1))+80*((3+2*(r-1))+1),124
 2053 poke32768+((8+2*(c-1))+1)+80*((3+2*(r-1))+1),126
 2070 return
 2100 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),85
 2101 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),73
 2102 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),74
 2103 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),75
 2120 return
 2150 poke32768+(8+2*(x-1))+80*(3+2*(y-1)),108
 2151 poke32768+((8+2*(x-1))+1)+80*(3+2*(y-1)),123
 2152 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+1),124
 2153 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+1),126
 2170 return
 2200 return
 2250 return
 2300 return
 2350 return
 2400 poke32768+(8+2*(x-1))+80*((3+2*(y-1))-2),85
 2401 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))-2),73
 2402 poke32768+(8+2*(x-1))+80*((3+2*(y-1))-1),74
 2403 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))-1),75
 2420 return
 2450 poke32768+(8+2*(x-1))+80*((3+2*(y-1))-2),108
 2451 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))-2),123
 2452 poke32768+(8+2*(x-1))+80*((3+2*(y-1))-1),124
 2453 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))-1),126
 2470 return
 2500 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+2),85
 2501 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+2),73
 2502 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+3),74
 2503 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+3),75
 2520 return
 2550 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+2),108
 2551 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+2),123
 2552 poke32768+(8+2*(x-1))+80*((3+2*(y-1))+3),124
 2553 poke32768+((8+2*(x-1))+1)+80*((3+2*(y-1))+3),126
 2570 return
 2600 poke32768+(8+2*((x-1)-1))+80*(3+2*(y-1)),85
 2601 poke32768+((8+2*((x-1)-1))+1)+80*(3+2*(y-1)),73
 2602 poke32768+(8+2*((x-1)-1))+80*((3+2*(y-1))+1),74
 2603 poke32768+((8+2*((x-1)-1))+1)+80*((3+2*(y-1))+1),75
 2620 return
 2650 poke32768+(8+2*((x-1)-1))+80*(3+2*(y-1)),108
 2651 poke32768+((8+2*((x-1)-1))+1)+80*(3+2*(y-1)),123
 2652 poke32768+(8+2*((x-1)-1))+80*((3+2*(y-1))+1),124
 2653 poke32768+((8+2*((x-1)-1))+1)+80*((3+2*(y-1))+1),126
 2670 return
 2700 poke32768+(8+2*((x-1)+1))+80*(3+2*(y-1)),85
 2701 poke32768+((8+2*((x-1)+1))+1)+80*(3+2*(y-1)),73
 2702 poke32768+(8+2*((x-1)+1))+80*((3+2*(y-1))+1),74
 2703 poke32768+((8+2*((x-1)+1))+1)+80*((3+2*(y-1))+1),75
 2720 return
 2750 poke32768+(8+2*((x-1)+1))+80*(3+2*(y-1)),108
 2751 poke32768+((8+2*((x-1)+1))+1)+80*(3+2*(y-1)),123
 2752 poke32768+(8+2*((x-1)+1))+80*((3+2*(y-1))+1),124
 2753 poke32768+((8+2*((x-1)+1))+1)+80*((3+2*(y-1))+1),126
 2770 return
 31743 bytes free
   90 printchr$(142);
  100 poke53,118:poke51,118:poke49,118
  110 print"{clr}      ******  kalah  ******"
  120 print"{down} jeder der 2 spieler hat 6 spiel-"
  130 print"schalen mit anfangs je 6 kugeln und"
  140 print"eine eigene kalah-grube."
  150 print" {down}gezogen wird durch die angabe einer"
  160 print"eignen schale. diese wird geleert,"
  170 print"die kugeln werden auf die im gegenuhr-"
  180 print"zeigersinn folgenden schalen einzeln"
  190 print"verteilt. dabei wird die gegnerische"
  200 print"kalah-grube uebersprungen, die eigene"
  210 print"nicht."
  220 print" {down}faellt die letzte zu verteilende kugel"
  230 print"in die eigene grube, darf man nochmals"
  240 print"ziehen."
  250 print" {down}faellt diese letzte kugel auf eine"
  260 print"eigene leere schale, darf man die-"
  270 print"se und die gegenurberliegende gegneri-"
  280 print"sche schale in die eigene grube leeren."
  290 print"alles klar ?":gosub740
  300 ifpeek(30726)=0then340
  310 print"{clr}{down}{down}moment bitte!"
  320 fori=30720to31314:readx:pokei,x:next
  330 fori=31339to31624:readx:pokei,x:next
  340 poke183,128:poke184,2
  350 dim p(2,7),pu$(2,7)
  360 print"{clr}{down}{down}spielart:":print"{down}{down}{rght}spieler - computer (1)     oder"
  370 print"{down}{rght}spieler - spieler  (2)  ? ":gosub740:gg=val(a$)
  380 ifgg<>2thenprint"{clr}{down}{down}{down}{down}{rvon}  computer = spieler 1 ! "
  390 ifgg<>2thenprint"{down}{down}computerspielstaerke (1,2,3)?":gosub740
  400 print"{clr}":t=val(a$)
  410 ifte=1then490
  420 gosub430:goto490
  430 fors=1to2:fori=1to6:p(s,i)=6:next:p(s,7)=0:next:return
  440 dim p(2,7),pu$(2,7)
  450 print"{clr}{down}gesetzte stellung:":print"{down}spieler 1 (6...1):";
  460 inputp(1,6),p(1,5),p(1,4),p(1,3),p(1,2),p(1,1):print"{down}spieler 2 (1...6):";
  470 inputp(2,1),p(2,2),p(2,3),p(2,4),p(2,5),p(2,6):input"{down}grube 1:";p(1,7)
  480 fori=1to2:forj=1to7:ss=ss+p(i,j):next:next:p(2,7)=72-ss:te=1:goto360
  490 le$="                                      "
  500 lo$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  510 an$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  520 pu$(1,7)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}":pu$(1,6)=pu$(1,7)+"{rght}{rght}{rght}{rght}{up}{up}"
  530 fori=5to1step-1:pu$(1,i)=pu$(1,i+1)+"{rght}{rght}{rght}{rght}":next
  540 pu$(2,1)=pu$(1,7)+"{rght}{rght}{rght}{rght}{down}{down}{down}{down}":fori=2to6:pu$(2,i)=pu$(2,i-1)+"{rght}{rght}{rght}{rght}":next
  550 pu$(2,7)=pu$(2,6)+"{rght}{rght}{rght}{rght}{up}{up}":pu$(0,1)=pu$(1,4)+"{rght}{rght}{up}{up}{up}"
  560 pu$(0,2)=pu$(2,3)+"{rght}{rght}{down}{down}{down}"
  570 sp$(1)="{CBM-A}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{SHIFT--}{rght}{SHIFT--}{down}{left}{left}{left}{CBM-Z}{SHIFT-*}{CBM-X}":sp$(2)="{CBM-D}{CBM-I}{CBM-F}{down}{left}{left}{left}{rvon}{CBM-K}{rght}{rvof}{CBM-K}{down}{left}{left}{left}{CBM-C}{rvon}{CBM-I}{rvof}{CBM-V}{rvon}"
  580 print"{clr}{down}{down}{down}{rght}":fork=1to15:print"{CBM-+}{down}{left}";:next
  590 fork=1to36:print"{CBM-+}";:next::fork=1to16:print"{up}{left}{CBM-+}";:next
  600 fork=1to35:print"{left}{left}{CBM-+}";:next
  610 forj=1to6:printpu$(1,j);"U{SHIFT-*}{SHIFT-*}I{left}{left}{left}{left}{down}{CBM-W}{left}{down}J{SHIFT-*}{CBM-R}K{left}{up}{CBM-Q}":next
  620 forj=1to6:printpu$(2,j);"U{SHIFT-*}{CBM-E}I{left}{left}{left}{left}{down}{CBM-W}{left}{down}J{SHIFT-*}{SHIFT-*}K{left}{up}{CBM-Q}":next
  630 gr$="{rvon}{CBM-D}{CBM-I}{CBM-I}{CBM-F}{left}{left}{left}{left}{down}{rvof}{CBM-K}{left}{down}{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{rvon}{CBM-V}{left}{up}{CBM-K}{rvof}":printpu$(1,7)+gr$+"{left}{up}{up}{SHIFT-*}{left}{left}{CBM-A}{left}{down}{down}{down}{down}{SHIFT--}{down}{left}{SHIFT--}{left}{down}{CBM-Z}{SHIFT-*}"
  640 printpu$(2,7)+gr$+"{left}{left}{left}{left}{up}{up}{up}{up}{SHIFT-*}{CBM-S}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{down}{down}{down}{left}{SHIFT-*}{CBM-X}"
  650 fori=1to6:printpu$(1,i)"{rght}{down}{down}{down}"i:next
  660 fori=1to6:printpu$(2,i)"{rght}{up}"i:next
  665 poke32923,48+t
  670 fori=1to2:printpu$(0,i)+sp$(1)+"{left}{left}{up}"+right$(str$(i),1):next
  680 fors=1to2:fori=1to7:gosub1190:next:next:print"{home}"
  690 print"{home}{down}wer beginnt (1,2) ?":gosub740:ss=val(a$)
  700 ifss<>1andss<>2then690
  710 print"{up}"le$
  720 ifgg<>2then1210
  730 goto790
  740 poke158,0
  750 geta$:ifa$=""then750
  760 return
  770 fork=1to2:l=1:ifss=kthenl=2
  780 printpu$(0,k)+sp$(l)+"{left}{left}{up}"+right$(str$(k),1):next:return
  790 gosub770:print"{home} spieler {rvon}" ;ss"{left} {rvof}:     "
  800 print"{down} aus welcher schale wird gezogen ?":gosub740:n=val(a$)
  810 ifn<1orn>6then790
  820 ifp(ss,n)=0then790
  830 gosub850:ife=1then940
  840 goto790
  850 s=ss:gosub1010:gosub1080:ife=1thenreturn
  860 ifo=1then870
  862 gosub1100:ife0=0then910
  864 s=3-s:gosub1100:s=3-s:ife0=0theno=1:return
  866 e=1:return
  870 s=3-s:gosub1100:s=3-s:ife0=0thenreturn
  880 gosub1100:ife0=0theno=0:goto910
  890 e=1:return
  910 ss=3-ss
  920 return
  940 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}spielende!  ";:q=2:ifp(1,7)>p(2,7)thenq=1
  950 ifp(1,7)=p(2,7)thenprint"{rvon}   unentschieden!   ":goto970
  960 print"{rvon} spieler"q"{left} gewinnt! {rvof}"
  970 print"{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  980 e1=0:print"{down}{down}noch ein spiel ? ":gosub740
  990 print"{home}"le$le$le$:printan$"{up}{up}"le$:printle$:printle$:printle$
 1000 gosub430:goto670
 1010 p=0:o=0:e=0:z=p(s,n):p(s,n)=0:i=n:gosub1180:i=n+1:ifn=6then1040
 1020 p(s,i)=p(s,i)+1:gosub1190:z=z-1:ifz=0then1120
 1030 i=i+1:ifi<=6then1020
 1040 p(s,7)=p(s,7)+1:p=p+1:z=z-1:i=7:gosub1190:i=1:ifz=0theno=1:return
 1050 p(3-s,i)=p(3-s,i)+1:s=3-s:gosub1190:s=3-s:z=z-1:ifz=0thenreturn
 1060 i=i+1:ifi<=6then1050
 1070 i=1:goto1020
 1080 ifp(s,7)>36thene=1
 1090 return
 1100 e0=0:su=0:fork=1to6:su=su+p(3-s,k):next:ifsu=0thene0=1
 1110 return
 1120 ifp(s,i)>1thenreturn
 1130 p9=p(s,i)+p(3-s,7-i):p(s,7)=p(s,7)+p9:p(s,i)=0:gosub1160:p(3-s,7-i)=0:i1=i
 1140 p=p+p9:i=7:gosub1190:i=i1
 1150 s=3-s:i=7-i:gosub1190:s=3-s:return
 1160 fork=0to6:bl$="{down}{rght}{rvon}**{rvof}":ifk=2*(int(k/2))thenbl$="{down}{rght}  "
 1170 forkk=0to50:next:printpu$(s,i)+bl$:printpu$(3-s,7-i)+bl$:next:return
 1180 printpu$(s,i)+"{down}{rght}{rvon}"+right$(str$(z),2):lm=400:gosub1500:print"{rvof}"
 1190 ifp(s,i)=0thenprintpu$(s,i)+"{down}{rght}"+"  ":return
 1200 printpu$(s,i)+"{down}{rght}"+right$(str$(p(s,i)),2):return
 1210 rem gg<>2:computer - spieler
 1220 gosub1520:ifss=1then1290
 1230 ss=2:gosub770:print"{home}{down}{down}{rvon}ihr zug ?":gosub740:n=val(a$)
 1235 ifa$="a"then940
 1236 ifn<1orn>6then1230
 1240 ifp(2,n)=0then1230
 1250 gosub850:ife=1then940
 1260 gosub1520:ifo=1then1230
 1280 rem computerzug
 1290 ww=0:print"{home}"lo$le$le$"{home}{down}{down}"le$"{home}computer spielt ..."
 1300 gosub1520:s=1:gosub770:ifp(1,6)=1thenn=6:goto1380
 1310 ifp(1,5)=2thenifp(1,6)<13thenn=5:goto1380
 1320 k=4
 1325 ifk=0then1390
 1330 ifp(1,k)<>7-kthenk=k-1:goto1325
 1335 k1=6
 1360 ifp(1,k1)>12orp(1,k1)=0thenk=k-1:goto1325
 1365 k1=k1-1:ifk1>kthen1360
 1367 n=k:goto1380
 1370 k=k-1:goto1325
 1380 lm=50:gosub1500:vv=1:goto1450
 1390 vv=0:poke665,t:sys30720
 1400 forj=1to6:p1(j)=peek(710+j)-72:next:ifgg=0thengosub1510
 1410 pf=-73
 1420 fork=1to6:ifp1(k)>pfthenn=k:pf=p1(k):h=0:p2(h)=k:goto1440
 1430 ifp1(k)=pfthenh=h+1:p2(h)=k
 1440 next:ifh>0thenn=p2(int((rnd(h)^2)*(h+1)))
 1450 lp$="":ifww>0thenforii=1toww:lp$=lp$+"{rght}{rght}{rght}{rght}":next
 1460 print"{home}"lo$+lp$;"{rvon}"n"{left} {rvof}"
 1470 v=0:s=1:gosub850:ife=1then940
 1480 gosub1520:ifo=0then1210
 1490 ww=ww+1:print"{home}"lo$+lp$+"{rght}{rght}{rght},...":goto1300
 1500 forll=0tolm:next:return
 1510 printan$+le$:printan$;:forl=1to6:printp1(l);:next:return
 1520 fori1=1to2:fori2=1to7:poke640+(i1-1)*7+i2,p(i1,i2):next:next:return
 1530 data234,234,234,169,0,133,0,32,47,123,162,0,142,143,2,160,6
 1540 data169,0,153,198,2,136,208,248,232,142,144,2,162,72,142,146
 1550 data2,142,159,2,174,143,2,208,6,173,144,2,141,145,2,172
 1560 data144,2,192,7,208,40,173,143,2,208,2,96,234,206,143,2
 1570 data174,143,2,134,0,32,59,123,174,143,2,189,159,2,141,146
 1580 data2,189,209,2,141,144,2,238,144,2,76,37,120,234,172,144
 1590 data2,185,128,2,208,6,238,144,2,76,37,120,132,185,32,205
 1600 data122,165,2,24,109,146,2,141,146,2,165,1,240,33,174,143
 1610 data2,173,144,2,157,209,2,232,238,143,2,173,146,2,157,159
 1620 data2,169,1,141,144,2,134,0,32,47,123,76,48,120,234
 1630 data173,153,2,201,1,208,21,174,145,2,189,198,2,205,146,2
 1640 data176,6,173,146,2,157,198,2,76,181,122,234,174,143,2,232
 1650 data134,0,32,47,123,162,0,142,147,2,142,149,2,142,179,2
 1660 data232,142,148,2,169,144,141,150,2,173,146,2,141,152,2,173
 1670 data148,2,201,7,208,50,173,147,2,208,3,76,164,122,206,147
 1680 data2,174,147,2,189,179,2,141,149,2,173,143,2,24,109,147
 1690 data2,105,1,133,0,32,59,123,174,147,2,189,229,2,24,105
 1700 data1,141,148,2,76,223,120,234,172,148,2,185,135,2,208,6
 1710 data238,148,2,208,186,234,173,148,2,133,185,32,108,123,32,205
 1720 data122,32,108,123,165,2,24,109,149,2,141,149,2,165,1,240
 1730 data42,173,148,2,174,147,2,157,229,2,238,147,2,232,173,149
 1740 data2,157,179,2,169,1,141,148,2,173,143,2,24,109,147,2
 1750 data105,1,133,0,32,47,123,76,223,120,234
 1760 data173,153,2,201,2,208,3,76,107,122,162,0,142,154,2,142
 1770 data156,2,142,157,2,142,13,3,232,142,155,2,32,68,122,32
 1780 data47,123,173,155,2,201,7,208,41,173,154,2,208,3,76,51
 1790 data122,206,154,2,174,154,2,189,13,3,141,156,2,32,68,122
 1800 data32,59,123,174,154,2,189,249,2,24,105,1,141,155,2,208
 1810 data209,234,174,155,2,189,128,2,208,6,238,155,2,76,141,121
 1820 data173,155,2,133,185,32,205,122,165,2,24,109,156,2,141,156
 1830 data2,165,1,240,43,234,234,234,234,234,234,234,234,234,234,174
 1840 data154,2,173,155,2,157,249,2,238,154,2,232,173,156,2,157
 1850 data13,3,169,1,141,155,2,32,68,122,32,47,123,76,141,121
 1860 data173,157,2,205,156,2,176,6,173,156,2,141,157,2,173,143
 1870 data2,32,68,122,32,59,123,238,155,2,174,154,2,189,13,3
 1880 data141,156,2,76,141,121,234,234,173,146,2,24,109,157,2,56
 1890 data237,149,2,141,146,2,76,117,122,173,143,2,24,109,154,2
 1900 data109,147,2,105,2,133,0,96
 1910 data173,146,2,56,237
 1920 data149,2,141,146,2,205,150,2,176,6,174,146,2,142,150,2
 1930 data173,143,2,24,109,147,2,105,1,133,0,32,59,123,238,148
 1940 data2,173,152,2,141,146,2,174,147,2,189,179,2,141,149,2
 1950 data76,223,120,234,174,145,2,189,198,2,205,150,2,176,6,173
 1960 data150,2,157,198,2,238,144,2,173,143,2,133,0,32,59,123
 1970 data172,143,2,185,159,2,141,146,2,76,37,120,234
 1980 data169,128,133,183,169,2,133,184,169,0,133,1,133,2,164,185
 1990 data177,183,170,169,0,145,183,200,192,14,208,4,160,0,240,247
 2000 data177,183,24,105,1,145,183,202,208,237,192,7,240,41,176,43
 2010 data177,183,201,1,208,32,169,0,145,183,132,178,230,2,238,135
 2020 data2,169,14,56,229,178,170,189,128,2,240,10,238,135,2,230
 2030 data2,222,128,2,208,246,96,169,1,133,1,230,2,96,255,255
 2040 data255,255,169,183,141,101,123,169,181,141,103,123,208,10,169,181
 2050 data141,101,123,169,183,141,103,123,169,125,133,180,133,182,169,00
 2060 data133,179,133,181,166,0,240,13,24,105,14,133,181,144,2,230
 2070 data182,202,76,83,123,160,14,177,181,145,183,136,208,249,96
 2080 data162,7,173,142,2,133,178,160,13,185,128,2,200,153,128,2,136
 2090 data136,208,245,165,178,141,129,2,202,208,230,96
 5000 print"{clr}"
   10 print"{clr}":rem*****kalenderdruck*****
   20 rem***** h.hermes jan.81******
   30 close4:open4,4
   40 print"drucker einschalten.{down}"
   50 input"jahr";jz$
   60 jz=val(jz$)-1
   70 s=37+jz+int(jz/4)-int(jz/100)+int(jz/400)
   80 s=int((s/7-int(s/7))*7+.5)-1
   90 ifs=-1thens=6
  100 dimt(126),m(12)
  110 data31,28,31,30,31,30,31,31,30,31,30,31
  120 fori=1to12:readm(i):nexti
  130 j=jz+1:ifint(j/4)-j/4<>0then150
  140 ifint(j/100)-j/100<>0orint(j/400)-j/400=0thenm(2)=29
  150 a$(0)=" ***** *     **     **     **     **     * ***** "
  160 a$(1)="   **    * *   *  *      *      *      *   ******"
  170 a$(2)=" ***** *     *      *  ****  *     *      *******"
  180 a$(3)=" ***** *     *      *   ***       **     * ***** "
  190 a$(4)="    *     *     *  *  *   * *******     *      * "
  200 a$(5)="****** *      *      ******       **     * ***** "
  210 a$(6)="   *     *     *     ****** *     **     * ***** "
  220 a$(7)="********     *      *     *     *     *     *    "
  230 a$(8)=" ***** *     **     * ***** *     **     * ***** "
  240 a$(9)=" ***** *     **     * ******     *     *     *   "
  250 fori=1to4:jd(i)=val(mid$(jz$,i,1)):nexti
  255 fori=1to5:print#4:next
  260 forj=0to6:print#4,tab(15);:fori=0to3:print#4,"    ";
  270 print#4,mid$(a$(jd(i+1)),j*7+1,7);:nexti:print#4:nextj
  280 data "* januar **","* februar *","** maerz **","** april **"
  290 data "*** mai ***","** juni ***","** juli ***","* august **"
  300 data " september ","* oktober *"," november *"," dezember *"
  310 b$(1)="  *                  *":b$(2)="  so mo di mi do fr sa"
  320 b$(3)="  ********************" :print#4:print#4
  330 fork=1to4:print#4:print#4:print#4:print#4
  340 fori=1to3:readm$:print#4,"  *****";m$;"****";
  350 ifi=3thenprint#4:goto370
  360 print#4,"      ";:nexti
  370 fori=1to3:forj=1to3:print#4,b$(i);
  380 ifj=3then400
  390 print#4,"      ";:nextj
  400 print#4:nexti
  410 forj=0to2:mo=mo+1:d=0:v=j*7
  420 forwt=1to7
  430 ifd>=m(mo)thens=wt-1:nextj:goto470
  440 d=d+1:t(wt+s+v)=d
  450 ifwt+s>=7thens=0:v=v+21:goto420
  460 nextwt
  470 z=1
  480 fori=1to3:print#4,"  ";:forj=1to7
  490 ift(z)=0thenprint#4,"   ";:goto510
  500 print#4,right$(str$(t(z)),2);" ";
  510 z=z+1
  520 ifz>126then550
  530 nextj:ifi=3thenprint#4:goto480
  540 print#4,"     ";:nexti
  550 fori=1to126:t(i)=0:nexti:nextk:print#4,,chr$(12);
  560 fori=1to5:print#4:next
  570 end
    1 print"{clr}{down}{down}      {rvon}***  geschuetzfuehrer  ***{rvof}"
   10 print"{down}{down}{down}brauchen sie eine beschreibung  (j/n)"
   20 getc$:ifc$=""then20
   25 deffna(x)=atn(x/sqr(-x*x+1))
   30 ifc$="n"thenprint"{clr}":goto115
   35 print"{clr}"
   40 print:print"sie sind der kommandeur eines":print"artilleriegeschuetzes, das eine
   50 print"reichweite von 10 km hat. eine zu-"
   55 print"faellige zahl von zielen wird von einem"
   60 print"beobachter gemeldet, ebenso die ent-"
   65 print"fernung zu jedem ziel. ihre aufgabe"
   70 print"ist es, jedes ziel mit moeglichst wenig"
   75 print"schuessen zu zerstoeren. ein treffer,"
   80 print"der weniger als 25 meter vom ziel ent-"
   85 print"fernt ist, zerstoert es. das feindliche"
   90 print"ziel erwidert aber das feuer, seien sie"
   95 print"also vorsichtig."
  100 print:print"ihre leistungsfaehigkeit wird, wenn sie"
  105 print"noch leben, am ende mitgeteilt. geben"
  110 print"ihre rohrerhoehung in grad ein."
  115 print:print"v i e l  g l u e c k ! !"
  120 print:print"geben sie ihre einstufung ein"
  125 print"(1 - experte bis 10 - neuling)";:inputk1
  130 print"{clr}":print"geben sie eine zufaellige zahl ein";:inputk:k=abs(k)
  230 a=rnd(k):print:k=0:n=int(rnd(1)*8)+3
  270 forn1=1ton:q=0:d=int(rnd(1)*5000)+5000
  300 print:print"entfernung zum ziel:";d;"meter"
  310 input"rohrerhoehung";a1
  320 ifa1>0anda1<90then380
  340 print:print"die rohrerhoehung muss zwischen 0 und"
  345 print"90 grad betragen. der feind bekommt"
  350 print"einen freischuss auf sie!"
  370 goto460
  380 a=a1/57.296:r=r+1:gosub740:ifabs(e)<25then580
  400 ifabs(e)<d+25andabs(e)>d-25then700
  430 x1=x:t4=t:h1=h:e1=e
  440 print:print"der feind erwidert das feuer!"
  460 gosub820
  470 a=a2/57.296:gosub740
  490 x2=x
  500 e=abs(e):ife<25then700
  510 print:print"verfehlt um:",e,"meter"
  520 print"flugzeit:",,int(100*t4+.5)/100,"sekunden"
  530 print"groesste hoehe:",h1,"meter"
  540 print"schussweite:",x1,"meter"
  550 print"letzte rohrerh.:",a1,"grad"
  560 print"korrektur:",e1,"meter"
  570 goto300
  580 print"{clr}":print:print:print" *** ziel zerstoert ***":print:print
  610 k=k+1
  620 nextn1
  630 print:print"keine weiteren feindpositionen gemeldet."
  640 print:print"sie zerstoerten";k;"feindpositionen"
  645 print"mit";r;"schuessen."
  660 p=(k/r)*100
  670 print:print"trefferquote:";int(p*10+.5)/10;"%"
  680 ifp>=25thenprint:print"gut geschossen!"
  690 end
  700 print:print"ihre position ist zerstoert worden!"
  710 fori=1to1000:next:print:print"zu schade!"
  730 end
  740 x=int((99225*sin(2*a))/9.8)
  750 t=(630*sin(a))/9.8
  760 h=int((99225*(sin(a)^2))/19.6)
  770 e=x-d
  780 t1=int(t)
  790 fort2=1tot1step.01:nextt2
  810 return
  820 ifq=0then830
  825 onqgoto880,920,950
  830 a3=d*9.877e-5
  840 a3=fna(a3)*28.64789
  850 a2=a3-(rnd(1)*k1):q=1
  870 return
  880 a4=a2+((a3-a2))/(rnd(1)+1)
  890 ifa4>(a2+.1)thena2=a4
  895 goto910
  900 return
  910 q=2
  920 ifd>x2thena2=a2+.5
  925 goto940
  930 return
  940 q=3
  950 ifd<x2thena2=a2-.1
  955 a2=a2+.05
  960 return
   95 rempoke124,160:poke125,12
  100 ifpeek(49152)<>64thenpoke135,28:run110
  110 forx=0to3:reada(x):next:data62,22,60,30
  120 b=28*256:b1=132*256:ti$="000000"
  130 lk=515:ifpeek(49152)=64thenlk=151
  140 forx=0to3:readb(x),in(x):next:data1,1,2,40,4,-1,8,-40:p=b1+61
  150 ifpeek(b)=160thenprint"same maze?":forx=1to9e9:getg$:ifg$=""thennextx
  160 ifg$<>"y"then190
  170 sys4912:goto360
  190 print"{clr}tunnel vision and kat and mouse":print"copyright (c) 1978 michael riley
  200 fori=0to23:poke4128+i,256*rnd(1):next
  210 sys3744
  360 forx=0to24:pokeb+x*40+39,32:pokeb+x*40+38,160:next
  370 e=2*int(rnd(1)*12)+1:ex=b+38+40*e:p=b+(24-e)*40+1:d=0:pokeex,32
  380 print"{rvon}t{rvof}unnel vision or {rvon}k{rvof}at and mouse?":forx=1to9e9:geti$:ifi$="k"then860
  390 ifi$<>"t"thennextx
  400 gosub960:goto460
  440 getg$:ifg$=" "andpeek(p+in(d))<>160thenpokep,46:p=p+in(d)
  445 ifg$="i"thengosub960
  450 ifg$=""then440
  460 d=(d-(g$=">")+(g$="<")+4)and3:pokep,a(d):print"{clr}
  470 ifg$="m"thensys4864:goto440
  480 ifp<>exandg$<>"q"then560
  500 sys4051
  510 ifp=exthenprint"{home}{rvon}it took you";int(ti/60);"{left} seconds to escape
  520 forx=1to10:getg$:nextx:forx=ito9e9:getg$:ifg$=""thennextx
  530 run
  560 ifgthensys4864
  570 poke4166,d:a=int(p/256):x=p-256*a:poke4169,x:poke4170,a
  575 poke4171,244:poke4172,133
  590 sys4832:goto440
  860 sys4051
  865 pm=p+b1-b:dm=0:pk=ex+b1-b:dk=2:pokepm,13
  870 ifpeek(pk+in(dk))=160thendk=(dk+1)and3:goto870
  880 ifpm-b1=ex-bthenforx=1to1000:nextx:run
  890 pokepk,32:pk=pk+in(dk):ifpk=pmthengosub1170:run
  900 pokepk,11:dk=(dk+3)and3
  910 getg$:ifg$<>""thendm=-(g$="2")-2*(g$="4")-3*(g$="8"):goto940
  920 k=peek(lk):ifk<>255thendm=-(k=18)-2*(k=42)-3*(k=50):goto940
  930 goto870
  940 ifpeek(pm+in(dm))=32thenpokepm,32:pm=pm+in(dm):pokepm,13
  950 goto870
  960 print"{clr}":print"to escape the maze, use these keys:"
  970 print"{rvon}space{rvof} to move forward one space"
  980 print"{rvon}<{rvof} and {rvon}>{rvof} to turn left or right without    moving"
 1000 print"{rvon}m{rvof} to draw a map of where you have been"
 1010 print"{rvon}q{rvof} to quit - shows the entire maze
 1020 print"{rvon}i{rvof} for instructions{down}
 1030 print"if you see a blank
 1040 print"screen, it means you are facing a wall.
 1050 print"try turning
 1070 print"M     N  M     N  M     N   M     N
 1080 print" M   N    M   N    M   N     M   N
 1090 print"  M N      M{CBM-@}N     {CBM-M}{CBM-@} N      {CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-G}
 1100 print"   V       {CBM-M} {CBM-G}     {CBM-M}{CBM-M}V       {CBM-M}   {CBM-G}
 1110 print"  N M      N{CBM-T}M     {CBM-M}{CBM-T} M      {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-G}
 1120 print" N   M    N{$a0}{$a0}{$a0}M    N   M     N   M
 1130 print"N     M  N     M  N     M   N     M
 1140 print"tunnel    dead    branch      't'
 1150 print"ahead     end     left      branch
 1155 input"{down}automatic display of maze location";g$:g="y"=left$(g$,1)
 1160 return
 1170 forx=1to10:fory=1to30:pokepk,61:nexty:fory=1to30:pokepk,62:nexty:nextx:return
    1 forx=1to20:printb
    5 print"{clr}{down}{down}";tab(8);"** hi lets play keno **"
   10 print"{down}want instructions ? (y or n)"
   15 get i$:if i$=""goto 15
   20 if i$="n"goto 75
   25 print"{down}this is how keno is played."
   30 print"{down}the board has the no.s 1 thru 80 on it."
   35 print"{down}you select from 1 to 15 no.s to play."
   40 print"{down}the computer picks 20 no.s at random,"
   45 print"and reverse prints them on the board."
   50 print"{down}it then computes how much you have"
   55 print"won or lost & prints the results."
   60 print"{down}to see the board & play,press'return'";
   65 get b$:if b$=""goto 65
   70 gosub 1000
   75 dim z(80),b(20),n(15)
   77 input"how much money do you have $";s
   80 print"how many no.s will you play"
   85 print"enter 1 to 15 then press 'return'."
   90 input "enter 0 to end program.";t
   92 if t>15 then print"you can't pick over 15 no.s,try again":goto 80
   95 if t=0 goto 960
  100 print"what no.(s) do you want to play?"
  105 print"enter each no. then press 'return'"
  110 for i=1 to t:input"no.";n(i):next i
  115 for r=1 to t:if n(r)=0 then print"you can't use 0,try again":goto 100
  120 if n(r)>80 then print"one no. larger than 80,try again":goto 100
  125 next
  130 for r=1 to t-1:for m=r+1 to t
  135 if n(r)=n(m)then print"duplicate no.s,try again":goto 100
  140 next m:next r
  145 gosub 1000
  150 for x=1 to t:print n(x);:next
  155 m=0
  165 for z=1 to 80:z(z)=z:next:for y=1 to 20
  170 b=int(rnd(1)*80)+1:b(y)=z(b)
  175 for x=1 to (y-1):if b(y)=b(y-x)then 170
  180 next:b=z(b)
  185 for i=1 to t:if n(i)=b(y)then m=m+1
  190 next
  195 if b<11 then x=b:goto 245
  200 if b<21 then x=b-10:goto 305
  205 if b<31 then x=b-20:goto 365
  210 if b<41 then x=b-30:goto 425
  215 if b<51 then x=b-40:goto 485
  220 if b<61 then x=b-50:goto 545
  225 if b<71 then x=b-60:goto 605
  230 x=b-70:goto 665
  235 if y=20 goto 735
  240 for i=1 to 1000:next i:next y
  245 print"{home}"
  250 on x goto 255,260,265,270,275,280,285,290,295,300
  255 print;tab(5);"{rvon}01":goto 235
  260 print;tab(8);"{rvon}02":goto 235
  265 print;tab(11);"{rvon}03":goto 235
  270 print;tab(14);"{rvon}04":goto 235
  275 print;tab(17);"{rvon}05":goto 235
  280 print;tab(20);"{rvon}06":goto 235
  285 print;tab(23);"{rvon}07":goto 235
  290 print;tab(26);"{rvon}08":goto 235
  295 print;tab(29);"{rvon}09":goto 235
  300 print;tab(32);"{rvon}10":goto 235
  305 print"{home}{down}{down}"
  310 on x goto 315,320,325,330,335,340,345,350,355,360
  315 print;tab(5);"{rvon}11":goto 235
  320 print;tab(8);"{rvon}12":goto 235
  325 print;tab(11);"{rvon}13":goto 235
  330 print;tab(14);"{rvon}14":goto 235
  335 print;tab(17);"{rvon}15":goto 235
  340 print;tab(20);"{rvon}16":goto 235
  345 print;tab(23);"{rvon}17":goto 235
  350 print;tab(26);"{rvon}18":goto 235
  355 print;tab(29);"{rvon}19":goto 235
  360 print;tab(32);"{rvon}20":goto 235
  365 print"{home}{down}{down}{down}{down}"
  370 on x goto 375,380,385,390,395,400,405,410,415,420
  375 print;tab(5);"{rvon}21":goto 235
  380 print;tab(8);"{rvon}22":goto 235
  385 print;tab(11);"{rvon}23":goto 235
  390 print;tab(14);"{rvon}24":goto 235
  395 print;tab(17);"{rvon}25":goto 235
  400 print;tab(20);"{rvon}26":goto 235
  405 print;tab(23);"{rvon}27":goto 235
  410 print;tab(26);"{rvon}28":goto 235
  415 print;tab(29);"{rvon}29":goto 235
  420 print;tab(32);"{rvon}30":goto 235
  425 print"{home}{down}{down}{down}{down}{down}{down}"
  430 on x goto 435,440,445,450,455,460,465,470,475,480
  435 print;tab(5);"{rvon}31":goto 235
  440 print;tab(8);"{rvon}32":goto 235
  445 print;tab(11);"{rvon}33":goto 235
  450 print;tab(14);"{rvon}34":goto 235
  455 print;tab(17);"{rvon}35":goto 235
  460 print;tab(20);"{rvon}36":goto 235
  465 print;tab(23);"{rvon}37":goto 235
  470 print;tab(26);"{rvon}38":goto 235
  475 print;tab(29);"{rvon}39":goto 235
  480 print;tab(32);"{rvon}40":goto 235
  485 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  490 on x goto 495,500,505,510,515,520,525,530,535,540
  495 print;tab(5);"{rvon}41":goto 235
  500 print;tab(8);"{rvon}42":goto 235
  505 print;tab(11);"{rvon}43":goto 235
  510 print;tab(14);"{rvon}44":goto 235
  515 print;tab(17);"{rvon}45":goto 235
  520 print;tab(20);"{rvon}46":goto 235
  525 print;tab(23);"{rvon}47":goto 235
  530 print;tab(26);"{rvon}48":goto 235
  535 print;tab(29);"{rvon}49":goto 235
  540 print;tab(32);"{rvon}50":goto 235
  545 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  550 on x goto 555,560,565,570,575,580,585,590,595,600
  555 print;tab(5);"{rvon}51":goto 235
  560 print;tab(8);"{rvon}52":goto 235
  565 print;tab(11);"{rvon}53":goto 235
  570 print;tab(14);"{rvon}54":goto 235
  575 print;tab(17);"{rvon}55":goto 235
  580 print;tab(20);"{rvon}56":goto 235
  585 print;tab(23);"{rvon}57":goto 235
  590 print;tab(26);"{rvon}58":goto 235
  595 print;tab(29);"{rvon}59":goto 235
  600 print;tab(32);"{rvon}60":goto 235
  605 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  610 on x goto 615,620,625,630,635,640,645,650,655,660
  615 print;tab(5);"{rvon}61":goto 235
  620 print;tab(8);"{rvon}62":goto 235
  625 print;tab(11);"{rvon}63":goto 235
  630 print;tab(14);"{rvon}64":goto 235
  635 print;tab(17);"{rvon}65":goto 235
  640 print;tab(20);"{rvon}66":goto 235
  645 print;tab(23);"{rvon}67":goto 235
  650 print;tab(29);"{rvon}69":goto 235
  655 print;tab(29);"{rvon}69":goto 235
  660 print;tab(32);"{rvon}70":goto 235
  665 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  670 on x goto 675,680,685,690,695,700,705,710,715,720
  675 print;tab(5);"{rvon}71":goto 235
  680 print;tab(8);"{rvon}72":goto 235
  685 print;tab(11);"{rvon}73":goto 235
  690 print;tab(14);"{rvon}74":goto 235
  695 print;tab(17);"{rvon}75":goto 235
  700 print;tab(20);"{rvon}76":goto 235
  705 print;tab(23);"{rvon}77":goto 235
  710 print;tab(26);"{rvon}78":goto 235
  715 print;tab(29);"{rvon}79":goto 235
  720 print;tab(32);"{rvon}80":goto 235
  735 on t goto 810,805,800,795,790,785,780,775,770,765,760,755,750,745,740
  740 if m>5 then v=m-5:on v goto 904,894,882,870,860,836,822,814,812,812
  742 goto 910
  745 if m>5 then v=m-5:on v goto 900,892,878,862,848,834,820,814,812
  747 goto 910
  750 if m>5 then v=m-5:on v goto 904,886,874,850,832,824,818,812
  752 goto 910
  755 if m>4 then v=m-4:on v goto 906,898,880,864,852,844,822,812
  757 goto 910
  760 if m>4 then v=m-4:on v goto 906,896,874,856,838,820,816
  762 goto 910
  765 if m>4 then v=m-4:on v goto 902,884,866,846,830,816
  767 goto 910
  770 if m>3 then v=m-3:on v goto 908,900,876,860,828,816
  772 goto 910
  775 if m>4 then v=m-4:on v goto 890,872,840,816
  777 goto 910
  780 if m>2 then v=m-2:on v goto 908,904,882,858,826
  782 goto 910
  785 if m>2 then v=m-2:on v goto 906,896,872,842
  787 goto 910
  790 if m>2 then v=m-2:on v goto 904,882,854
  792 goto 910
  795 if m>1 then v=m-1:on v goto 906,898,880
  797 goto 910
  800 if m>1 then v=m-1:on v goto 906,876
  802 goto 910
  805 if m>1 then v=m-1:on v goto 888
  807 goto 910
  810 if m=1 goto 900
  811 goto 910
  812 s=s+3571.5
  814 s=s+3571.5
  816 s=s+3571.5
  818 s=s+3571.5
  820 s=s+3571
  822 s=s+714.5
  824 s=s+1428.5
  826 s=s+1000
  828 s=s+200
  830 s=s+228.5
  832 s=s+714.5
  834 s=s+714
  836 s=s+429
  838 s=s+71
  840 s=s+71.5
  842 s=s+143
  844 s=s+428.5
  846 s=s+286
  848 s=s+35.5
  850 s=s+107
  852 s=s+86
  854 s=s+128.5
  856 s=s+28.5
  858 s=s+43
  860 s=s+35.5
  862 s=s+36
  864 s=s+74
  866 s=s+26
  868 s=s+7
  870 s=s+21.5
  872 s=s+14
  874 s=s+28.5
  876 s=s+11.5
  878 s=s+3
  880 s=s+7
  882 s=s+1.5
  884 s=s+3
  886 s=s+5
  888 s=s+3.5
  890 s=s+.5
  892 s=s+1
  894 s=s+2.5
  896 s=s+.5
  898 s=s+1
  900 s=s+1
  902 s=s+.5
  904 s=s+.5
  906 s=s+.5
  908 s=s+.5
  910 s=s-1
  915 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}you had";m;"matching.  you have $";s
  920 print"play again (y or n)";
  925 get f$:if f$=""goto 925
  930 if f$="n"goto 955
  935 print;tab(15);"{rght}same no.(s) (y or n)";
  940 get y$:if y$=""goto 940
  945 if y$="y"goto 145
  950 goto 80
  955 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}thanks for playing keno!"
  960 end
 1000 print"{clr}{rght}{rght}{rght}{rght}{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-S}
 1005 print"{rght}{rght}{rght}{rght}{SHIFT--}01{SHIFT--}02{SHIFT--}03{SHIFT--}04{SHIFT--}05{SHIFT--}06{SHIFT--}07{SHIFT--}08{SHIFT--}09{SHIFT--}10{SHIFT--}
 1010 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1015 print"{rght}{rght}{rght}{rght}{SHIFT--}11{SHIFT--}12{SHIFT--}13{SHIFT--}14{SHIFT--}15{SHIFT--}16{SHIFT--}17{SHIFT--}18{SHIFT--}19{SHIFT--}20{SHIFT--}
 1020 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1025 print"{rght}{rght}{rght}{rght}{SHIFT--}21{SHIFT--}22{SHIFT--}23{SHIFT--}24{SHIFT--}25{SHIFT--}26{SHIFT--}27{SHIFT--}28{SHIFT--}29{SHIFT--}30{SHIFT--}
 1030 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1035 print"{rght}{rght}{rght}{rght}{SHIFT--}31{SHIFT--}32{SHIFT--}33{SHIFT--}34{SHIFT--}35{SHIFT--}36{SHIFT--}37{SHIFT--}38{SHIFT--}39{SHIFT--}40{SHIFT--}
 1040 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-W}
 1045 print"{rght}{rght}{rght}{rght}{SHIFT--}  $25,000    limit    keno   {SHIFT--}
 1050 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-W}
 1055 print"{rght}{rght}{rght}{rght}{SHIFT--}41{SHIFT--}42{SHIFT--}43{SHIFT--}44{SHIFT--}45{SHIFT--}46{SHIFT--}47{SHIFT--}48{SHIFT--}49{SHIFT--}50{SHIFT--}
 1060 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1065 print"{rght}{rght}{rght}{rght}{SHIFT--}51{SHIFT--}52{SHIFT--}53{SHIFT--}54{SHIFT--}55{SHIFT--}56{SHIFT--}57{SHIFT--}58{SHIFT--}59{SHIFT--}60{SHIFT--}
 1070 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1075 print"{rght}{rght}{rght}{rght}{SHIFT--}61{SHIFT--}62{SHIFT--}63{SHIFT--}64{SHIFT--}65{SHIFT--}66{SHIFT--}67{SHIFT--}68{SHIFT--}69{SHIFT--}70{SHIFT--}
 1080 print"{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{CBM-W}
 1085 print"{rght}{rght}{rght}{rght}{SHIFT--}71{SHIFT--}72{SHIFT--}73{SHIFT--}74{SHIFT--}75{SHIFT--}76{SHIFT--}77{SHIFT--}78{SHIFT--}79{SHIFT--}80{SHIFT--}
 1090 print"{rght}{rght}{rght}{rght}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-X}
 1095 return
:{stop}>{$a0}{$62}{$75}*{$f5}{$78}{SHIFT-POUND}{$60}{sret}{blk}{$00}{SHIFT-POUND}{stop}{sret}{up}{$00}x{$60}{$00}{$00}{$00}{$78}{SHIFT-POUND}.{sret}{blk}{$00}{SHIFT-POUND}{$e6}{sret}{up}{$00}x{$60}{$00}{$00}{$00}{CBM-Z}{CBM-+}{$00}I~P{CTRL-L}{SHIFT-POUND}{$00}{sret}:{stop}{SHIFT-POUND}<{sret};{stop}P{CTRL-Z}{$ee}:{stop}{CBM-Z};{stop}M:{stop}P{CTRL-O}{SHIFT-POUND}{CTRL-D}{sret};{stop}{SHIFT-POUND}~{sret}{gry1}{$00}{SHIFT-POUND}{$00}{sret}:{stop}l.{$e6}nU.U{$0a}U{swlc}U.U{dish}U{swlc}U{$0a}{$fc}n{SHIFT--}{$ee}UnUnM{grn}{rvof}{swlc}M*U{$6e}UjU{$6e}MzU{swlc}{gry1}.U{swlc}{f4}jU{swlc}U{$0a}n{$0a}v*U*U*U*M{$0a}V*s:v:U{$ea}U{$0a}U*M{CTRL-Z}n*n*v{$ee}M{$0a}U*n{$0a}U{$ee}{swuc}{$0a}U{$ee}U{$0a}W{$ee}M{$6a}U*M*U{$0a}    5 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(16)"kingdom"
    6 rem by t.voros & l.schneider
    7 rem vers 1.2 12/28/73  ref pcc v4n2
    8 rem edit/reformat-pet 8k; f.pillsbury   5/2/78; revise +instructions 6/14/78
   10 gosub3000
   12 rem randomize
   14 t1=peek(59464):fori=0tot1:r=rnd(1):nexti
   16 printtab(13)"{down}{down}{down}{down}{down}{down}instructions?";
   18 geto$:ifo$=""then18
   20 ifo$="y"thengosub3005
   25 deffnr(z1)=int(int(z1)*rnd(1))
   30 deffnl(z2)=fnr(100)-z2
  100 y=0
  105 l0=1e6
  110 l1=3
  115 n0=fnr(75)+75
  120 l2=fnr(250)+250
  125 n1=fnr(3000)+2000
  130 l3=0:n2=0
  140 ify=0thenprint"{clr}{down}{down}in the beginning of your reign:":print:goto160
  150 print:print"report for year";y
  155 print"EEEEEEEEEEEEEEEEEE"
  160 print"the population is",n0
  165 print"acres of land owned",l2
  170 print"bushels in storage",n1
  174 print:print"real estate market:"
  175 print"the price of land is";l1;"bushels per acre"
  215 print:input"how many acres to buy";b
  225 b=int(b):ifb<0goto2020
  230 ifb=0goto270
  240 a=n1-b*l1
  245 ifa>=0goto260
  250 print"your storage is only";n1;"bushels!":goto215
  260 n1=a:l2=l2+b
  265 ifb>0goto330
  270 printtab(14);:input"to sell";c
  280 c=int(c):ifc<0goto2020
  290 ifc=0goto335
  295 a=l2-c:ifa>=0goto315
  305 print:print"you only own";l2;"acres!":goto270
  315 l2=a:n1=n1+c*l1:if(b+c)=0goto350
  330 print"{down}transaction results: land";l2;"acres":print,,"grain";n1;"bushels"
  335 if(l2+n1-l0)>=0goto2010
  340 ifn1=0goto490
  345 print
  350 input"how many bushels for food";n2
  360 n2=int(n2):ifn2<0goto2020
  370 a=n1-n2:ifa>=0goto390
  380 print"{down}your storage is only";n1;"bushels!":goto350
  390 n1=a:ifn1=0goto490
  400 input"how many acres to be planted";l3
  410 l3=int(l3):ifl3<0goto2020
  420 ifl3=0goto500
  425 if(l2-l3)>=0goto440
  430 print"{down}you only own";l2;"acres!":goto400
  440 if(2*n0-l3)>=0goto455
  445 print"{down}your population is only";n0;"people!":goto400
  455 a=n1-3*l3:ifa>=0goto475
  465 print"{down}your storage is only";n1;"bushels!":goto400
  475 n1=a:ifn1>0goto500
  490 print:print"your storage is now empty...good luck!":gosub3000
  500 y=y+1
  505 n3=fnr(n0/3+3)
  510 n4=fnr(n0/4+2)
  515 n5=n0-int(n2/10)
  520 ifn5>0goto560
  525 ifn5=0goto590
  535 a=fnr(3-n5/2)
  540 print:print"**food surplus** population increase";a:gosub3000
  545 n5=0
  550 n3=n3+a
  555 goto590
  560 if(fnl(5*(n5-2)))>0goto590
  565 a=fnr((n5*n1)/(2*n0))
  575 print:print"***food riots***   ";a;"bushels lost":gosub3000
  580 n1=n1-a
  590 iffnl(10)>0goto620
  595 a=int(n0/3)+fnr(n0/2+2)
  605 print:print"***plague***   ";a;"died":gosub3000
  610 n4=n4+a
  620 iffnl(10)>0goto670
  625 a=fnr(n0/5)+int(n0/5):b=fnr(n1/20)+int(n1/20):c=fnr(l2/50)
  645 print:print"***huns attack***",
  650 printa;"people killed":print,,b;"bushels taken
  651 print,,c"acres destroyed":gosub3000
  655 n4=n4+a:n1=n1-b:l2=l2-c
  670 iffnl(15)>0goto705
  675 a=fnr(20)+10:b=fnr(n0+250)+50
  690 print:print"***border expansion***"
  691 print"you gained";a;"people;";b;"acres
  692 gosub3000
  695 n3=n3+a:l2=l2+b
  705 n0=n0+n3-n4-n5
  710 ifn0<=0goto2015
  715 print:print"vital statistics:"
  720 print:print"  births and immigration ";n3
  725 print"  died of starvation     ";n5
  730 print"  died of natural causes ";n4
  732 print:print"    net census change:   ";n3-n5-n4
  733 gosub3000
  735 iffnl(10)>0goto760
  740 a=fnr(n1/20)+int(n1/20)
  750 print:print"***theft***",a;"bushels stolen":gosub3000
  755 n1=n1-a
  760 iffnl(10)>0goto785
  765 a=fnr(l2/10)+int(l2/20)
  775 print:print"**earth quake**",a;"acres destroyed":gosub3000
  780 l2=l2-a
  785 iffnl(15)>0goto810
  790 a=fnr(100+int(l2/100))+500
  800 print:print"**grain shipment arrives** ";a;"bushels":gosub3000
  805 n1=n1+a
  810 iffnl(15)>0goto835
  815 l1=fnr(2)+1
  825 print:print"***drought***"
  830 goto860
  835 iffnl(15)>0goto855
  840 l1=fnr(3)+7
  850 print:print"***rain***":goto860
  855 l1=fnr(4)+3
  860 a=l1*l3:b=fnr(a/2):c=a-b
  880 print:print
  885 ifa=0goto910
  890 print"the harvest was";l1;"bushels/acre"
  891 print"  for a total of",a;"bushels"
  895 print"  lost to rats",b;"bushels"
  896 print"  net harvest was",c;"bushels"
  900 n1=n1+c:goto130
  910 print"the harvest was";l1;"bushels/acre":print"for a total of";a;"bushels."
  915 goto900
 2010 print"{clr}{down}{down}{down}{down}{down}congratulations!! you now rule the world":goto2050
 2015 print"{clr}{down}{down}{down}{down}{down}***disaster***  the population is zero!":goto2050
 2020 print"you goofed! no negative numbers."
 2050 print:print"your reign lasted";y;"years."
 2200 print"{down}{down}try again?";
 2210 geto$:ifo$=""then2210
 2220 ifo$="y"thenclr:goto25
 2230 print:print"{down}{down}goodbye!
 2500 end
 2999 fori=1to1000:next
 3000 fori=1to1000:next:return
 3005 print"{clr}{down}{down}minimum food is 10 bushels per person"
 3010 print"{down}an acre requires 3 bushels for planting"
 3020 print"{down}a subject can plant 2 acres/year"
 3030 print"{down}overfeeding (more than 20 bushels over)"
 3035 print"may increase the population."
 3040 print"{down}underfeeding (more than 20 bushels"
 3045 print"under) may result in food riots."
 3050 print"{down}other events occur at random and may"
 3055 print"interact."
 3060 print"{down}land price varies from 3 to 6 bushels"
 3070 print"per acre except when rain or drought":print"occurs.  ";
 3080 print"if you do not want to buy
 3090 print"(or sell) land, enter '0'.
 3100 print"{down}{down}when ready, press any key."
 3110 geto$:ifo$=""then3110
 3120 print"{clr}{down}{down}you must have a total wealth of a"
 3130 print"million units (acres + bushels) to win."
 3140 print"{down}strategy is up to you!!"
 3150 print"{down}{down}when ready, press any key."
 3160 geto$:ifo$=""then3160
 3200 return
   10 wh$="i have no more matches."
   20 w1$="the goober sees then snake, leaps up andruns away!":tg=0:ng=0
   30 w2$="you are out of matches. i am prepared togive you ten more, but this will"
   40 w2$=w2$+"        subtract 25 points from your final      score. do you want"
   50 w2$=w2$+" the extra matches"
   60 deffnr(x)=int(rnd(1)*x)+1
   70 i1$="what direct object do you want me to do that to"
   80 w3$="the goobers' knives vanish as they hit  the walls of the tomb."
   90 w4$="      okay...{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}- - poof ! - -"+chr$(13)+"{down}i am engulfed in a d"
  100 w4$=w4$+"ense cloud of orangesmoke and awaken coughing and gasping tofind..."
  110 w5$="the snake wharfs down your food and rubshis head to my leg to show"
  120 w5$=w5$+" affection."
  130 w6$="you killed a little snake. the body     vanishes."
  140 w7$="the snake startled, jumps away from me  and scurries away into the gloom.
  150 w8$="the snake attacks the goober and in an  astounding flurry drives the"
  160 w8$=w8$+" it away!"
  170 w9$="  but the snake ran away!!"
  180 wa$="i don't want to break anything. the bosssays have to pay for anythin"
  190 wa$=wa$+"g i break onan adventure."
  200 wb$="it doesn't burn."
  210 wc$="a scared snake"
  220 wd$="it is pitch dark. you will probably killyourself if you proceed explor"
  230 wd$=wd$+"ing."
  240 we$="a tame hungry snake":wf$=">=====================================<"
  250 wg$="my torch is out."
  260 print"{clr}":print"       king tut's tomb adventure"
  270 print:print:print"             by greg hasset"
  280 print:print:print"    converted to pet by john o'hare"
  290 s1$="i don't see it here.":s2$="don't be ridiculous.":cp=1:nm=35
  300 s3$="i don't know that word.":goto2650
  310 gosub2380:ifnm<0thennm=0
  320 iffnr(80)=42andcp<>1then1930
  330 iffnr(57)=20thentg=1
  340 iftg=1thenng=ng+1
  350 ifcp=1thentg=0:ng=0
  360 if(ob(14,0)=cporob(12,0)=cp)andtg=1thenprintw1$:tg=0:ng=0
  370 ifng>3then2050
  380 iftg=1thenprint"there is a threatening little goober in the room with me."
  390 ifnm=0andmf=0thenprintw2$;:inputem$:mf=1
  400 ifnm=0andmf=1thenifleft$(em$,1)="y"thenprint"okay.":nm=10:ob(33,0)=-1:ob(34,0)=0
  410 gosub2260:ifvb=32thenvb=6:goto430
  420 ifvb$="i"thenvb=4
  430 ifnm=0thenob(34,0)=-1:ob(33,0)=0
  440 ifvb$="l"thenvb=3
  450 ifob(12,0)=-1thengoto470
  460 ifvb$="lis"thenvb=4
  470 t=t+1:remifbi>0thenbi=bi+1
  480 ifvb$="ini"andt=1thenob(35,0)=-1:ob(32,0)=0:print"all right":nm=nm-fnr(4):g
  490 ifno$="fuc"orno$="shi"thenprint"tch! such language!":goto390
  500 ifmf=1andm2=0thenpl(0)=pl(0)-25:m2=1
  510 ifvb>10andvb<>20andno$=""thenprinti1$;:inputno$:gosub2340
  520 ifno$<>""andvb=1andno=0thenprint"that doesn't make any sense to me.":goto390
  530 ifvb=20then1490
  540 ifvb=6and(no$="eve"orno$="all")then940
  550 ifvb>10andno=0thenprint"i don't know what a "n1$" is!":goto390
  560 ifvb>19then1480
  570 onvbgoto590,680,310,800,830,880,960,970,1000,1030,1050,1170,1200,1240,1280,1350,1410
  580 onvb-17goto1460,1470
  590 ifno$<>""andno=0thenprints3$:goto390
  600 ifno$=""theninput"where";no$:gosub2340
  610 ifno>28orno<21thenprint"you must use compass points.":goto390
  620 ifno>24thenno=no-4
  630 no=no-21
  640 ifgf=0and((cp=18andno=1)or(cp=37andno=0))thenprint"the gate is locked!":goto390
  650 ifp(cp,no)=0andcp<>1thenprint"there is a wall there.":goto390
  660 ifp(cp,no)=0thenprint"i can't go that way.":goto390
  670 cp=p(cp,no):goto310
  680 ifno$=""theninput"what should i get";no$:gosub2340
  690 ifno=12andob(12,0)=cpthen780
  700 ifob(no,0)=-1thenprint"i've already got  it!":goto390
  710 ifno=12andob(14,0)=cpthenprint"that is both impractical and very dangerous":goto390
  720 ifno$="kni"thenprintw3$:goto390
  730 ifno=0thenprints3$:goto390
  740 ifno=29andtg=1thenprint"that would not be to bright.":goto390
  750 ifno=32andob(35,0)=cpthenletno=35
  760 ifob(no,0)<>cpthenprints1$:goto390
  770 ifno=31thenprints22$:goto390
  780 ifzz+1>8thenprint"i can't carry any more.":goto390
  790 zz=zz+1:print"all right.":ob(no,0)=-1:goto390
  800 print"i am currently carrying:":zz=0:fori=1tolo:ifob(i,0)=-1thenprintob$(i):zz=zz+1
  810 nexti:ifzz=0thenprint"nothing!"
  820 goto390
  830 j=0:fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
  840 nexti:print"out of a current maximum of 175 points,"
  850 print"you have"j"points. you can get a"
  860 print"bonus of up to 32 points when you win"
  870 print"or quit, making the actual maximum 207.":goto390
  880 if no=0andno$<>""thenprint"what's a "n1$"?":goto390
  890 ifno$=""theninput"what do you want me to drop";no$:gosub2340
  900 ifno$=""orno=0thenprint"huh?":goto390
  910 ifno=32andob(35,0)=-1thenno=35:goto930
  920 ifob(no,0)<>-1thenprint"i have no ";n1$:goto390
  930 print"okay.":ob(no,0)=cp:zz=zz-1:goto390
  940 fori=1tolo:ifob(i,0)=-1thenob(i,0)=cp
  950 nexti:print"ok.":zz=0:goto390
  960 ifvb=7thenprint"it's against company rules to give average adventurers help.":goto390
  970 print"{clr}":open1,1,1:print"saving...":fori=1tolo:ifob$(i)=""then990
  980 print#1,ob(i,0)
  990 nexti:print#1,nm:print#1,cp:print#1,gf:print#1,zz:print#1,tg:print#1,ng:print#1,t:print#1,gs:print#1,bi:goto310
 1000 print"{clr}":open1:print"loading...":fori=1tolo:ifob$(i)=""then1020
 1010 input#1,ob(i,0)
 1020 nexti:input#1,nm,cp,gf,zz,tg,ng,t,gs,bi:goto310
 1030 input"do you really want to quit now";qn$:ifleft$(qn$,1)="y"then2090
 1040 goto390
 1050 ifno=31and(cp=18orcp=37)then1110
 1060 ifno=31thenprint"i see no gate here.":goto390
 1070 ifob(no,0)<>-1thenprint"i'm not holding it.":goto390
 1080 ifno<>30andno<>31andno<>20thenprint"it cannot be opened.":goto390
 1090 ifno<>31then1130
 1100 ifgf=1thenprint"it is already open.":goto390
 1110 ifob(4,0)=-1thengf=1:print"the gate is open.":goto390
 1120 print"it would help if i had a key to open thelocked gate.":goto390
 1130 ifno=20thenprint"the coffin is open.":goto390
 1140 tg=0:ng=0:printw4$:fori=1tolo:ifob$(i)=""orob(i,0)=0then1160
 1150 ifabs(ob(i,0))=1thenob(i,0)=fnr(36)+1
 1160 nexti:zz=0:ob(35,0)=0:cp=1:ob(33,0)=1:ob(32,0)=1:fori=1to3500:nexti:pd=0:goto310
 1170 ifno<>31thenprint"i don't know how to lock such a thing.":goto390
 1180 ifcp<>37andcp<>18thenprint"what gate?":goto390
 1190 print"okay. the gate is locked.":gf=0:goto390
 1200 ifob(no,0)<>-1thenprint"i have to be holding something to read it.":goto390
 1210 ifno<>2andno<>16thenprints2$:goto390
 1220 ifno=2thenprint"it says:":print"best fishes    --steve martin (king tut)":goto390
 1230 print"it is written in egyptian hyroglyphics.":goto390
 1240 ifob(no,0)<>-1thenprint"i don't think i'm carrying it.":goto390
 1250 ifno<>13thenprint"you can't be serious.":goto390
 1260 ifob(13,0)<>-1thenprint"i have no food!":goto390
 1270 zz=zz-1:print"*smak* that was good!":ob(13,0)=0:goto390
 1280 ifno<>12andno<>29thenprints2$:goto390
 1290 ifno=29andtg=0thenprint"what goober?":goto390
 1300 ifno=29thenprint"there is nothing here it wants to eat. (except perhaps me!):gO110
 1310 ifob(13,0)<>-1thenprint"i have no food!":goto390
 1320 ifob(12,0)<>0thenprint"it is full.":goto390
 1330 ifob(14,0)<>cpthenprint"what snake?":goto390
 1340 zz=zz-1:printw5$:ob(12,0)=cp:ob(14,0)=0:ob(13,0)=0:goto390
 1350 ifno=29andtg=0thenprint"i see no goober here.":goto390
 1360 ifno=29andtg=1thenprint"the goobers are immortal.":goto390
 1370 ifno<>12thenprint"it isn't alive!":goto390
 1380 ifob(14,0)=cpthenprint"that's a stupid thing to try!":goto390
 1390 ifob(12,0)=-1orob(12,0)=cpthenprintw6$:ob(12,0)=0:goto390
 1400 prints1$:goto390
 1410 ifno=29andtg=1thenprint"he is mad enough at me already!":goto390
 1420 ifno=29thenprint"i see no goober here.":goto390
 1430 ifob(no,0)<>-1thenprint"i'm not holding it.":goto390
 1440 ifno<>13thenprint"that's stupid!":goto390
 1450 printw7$:ob(12,0)=-1:goto390
 1460 print"okay...";n1$:goto390
 1470 print"try open.":goto390
 1480 onvb-19goto1490,1510,1560,1490,1620,1680,1690,1760,1770,1780,1810,1920
 1490 t=t-1:print"you have used"t"turns so far, and you"
 1500 print"have used"35-nm"matches.":goto390
 1510 ifno<>20andno<>31andno<>30thenprint"i don't know how to do that.":goto390
 1520 ifno=31and(cp=18orcp=37)thenprint"the gate is closed and locked.":gf=0:goto390
 1530 ifob(no,0)<>-1thenprints1$:goto390
 1540 ifno=30thenprint"it is already closed.":goto390
 1550 print"okay. it is closed.":goto390
 1560 ifno<>12then880
 1570 ifob(12,0)<>-1thenprint"i'm not holding a snake.":goto390
 1580 iftg=1thenprintw8$:ob(12,0)=cp:ng=0:tg=0:zz=zz-1:goto390
 1590 zz=zz-1:print"the snake vanishes into the gloom.":ob(12,0)=fnr(35)+1:goto390
 1600 ifob(i,0)=-1thenprint"nothing happened":goto390
 1610 print"i'm not holding it!":goto390
 1620 ifno<>36thenprints2$:goto390
 1630 ifob(36,0)<>-1thenprint"i have no wine.":goto390
 1640 ifbi=0thenprint"okay. gulp gulk.":ob(36,0)=0:ob(17,0)=-1:goto390
 1650 print"ahh...good cure for snakebite.";:ifob(12,0)=-1thenprintw9$:ob(12,0)=0:goto1670
 1660 print
 1670 ob(36,0)=0:ob(17,0)=-1:bi=-32000:goto390
 1680 printwa$:goto390
 1690 ifnm=0andob(33,0)<>-1thenob(33,0)=0:ob(34,0)=-1
 1700 ifno<>33andno<>32thenprints2$:goto390
 1710 ifob(33,0)<>-1thenprint"i don't have a match!":goto390
 1720 ifno=33thenprint"okay. you now have one less match.":nm=nm-1:goto390
 1730 ifob(35,0)<>0thenprint"it is already lit.":goto390
 1740 ifob(32,0)=-1thenob(32,0)=0:ob(35,0)=-1:nm=nm-fnr(4):pd=0:goto310
 1750 print"i have no torch.":goto390
 1760 print"i am not mohamed ali, you know.":goto390
 1770 print"try hit or kill":goto390
 1780 ifno<>16thenprint"i see no writing there.":goto390
 1790 ifob(no,0)<>-1thenprint"i have no book.":goto390
 1800 print"it says: goobers hate snakes.":print"         mom is flamible."
 1810 ifob(33,0)<>-1thenprint"i have no matches!":goto390
 1820 ifob(no,0)<>-1thenprint"i am not holding it right now.":goto390
 1830 ifno<>2andno<>12andno<>13andno<>16andno<>34andno<>32andno<>33thenprintwb$:goto390
 1840 ifno=32thenprint"you might try light torch instead.":goto390
 1850 nm=nm-1
 1860 ifno=2thenprint"all right. the poster goes up in flames.":zz=zz-1:ob(2,0)=0:goto390
 1870 ifno=12thenprint"the snake bit me in self defense.":bi=1:ob$(12)=wc$:goto390
 1880 ifno=13thenprint"all right. it is now cooked.":ob$(13)="some cooked food":goto390
 1890 ifno=16thenprint"that is a waste of good literature.":goto390
 1900 ifno=34thenprint"okay.":ob(34,0)=0:goto390
 1910 ifno=33thenprint"all right.":nm=nm-1:goto390
 1920 print"that is worth";ob(no,1);"points.":goto390
 1930 iffnr(2)=1thenprint"+=+= holy bandaids!";:goto1950
 1940 print"suffrin' succotash!";
 1950 print" an ancient mummy    walked in to ";:iffnr(2)=1thenprint"terminate me!":goto1970
 1960 print" put me to death!"
 1970 gosub2260:ifvb$="bur"then2020
 1980 print"the mummy is charging at me!!":fori=1to300:nexti
 1990 ifrnd(3)=1thenprint"he killed me!":goto3310
 2000 print"he slips on a conveniently placed bananapeel and cracks his skull. the ";
 2010 print"body     vanishes.":goto390
 2020 ifob(33,0)<>-1thenprint"i have no matches!":goto2040
 2030 print"the mummy burns to the ground.":nm=nm-1:goto390
 2040 fori=1to1000:nexti:goto3310
 2050 print"the goober throws a knife at me!"
 2060 iffnr(3)=1thenprint"it hits me!":goto3310
 2070 print"it misses!"
 2080 ng=1:goto390
 2090 j=0:print"{clr}":fori=1tolo:ifob$(i)=""then2110
 2100 ifob(i,0)=1thenj=j+ob(i,1)
 2110 nexti
 2120 ift>310thenj=j-10
 2130 ift>357thenj=j-15
 2140 j=j+int(nm/2):fori=0to3:j=j+pl(i):next
 2150 print"you have scored"j"points out of a"
 2160 print"maximum of 207. a score of"j"points"
 2170 print"qualifies you as a:"
 2180 ifj>182thenprint"adventurer grandmaster":end
 2190 ifj>178thenprint"master adventurer class a":end
 2200 ifj>150thenprint"master adventurer class b":end
 2210 ifj>140thenprint"experienced adventurer.":end
 2220 ifj>110thenprint"seasoned adventurer.":end
 2230 ifj>90thenprint"novice class adventurer                 better luck next time.":end
 2240 ifj>20thenprint"pee wee class adventurer.":end
 2250 print"adventurer with the intellegence        of a carrot.":end
 2260 cm$="":input" what should i do  {CBM-B}{left}{left}{left}";cm$:ifcm$="{CBM-B}"then2260
 2270 no$="":vb$="":vb=0:no=0
 2280 lc=len(cm$):fori=1tolc:ifmid$(cm$,i,1)<>" "thenvb$=vb$+mid$(cm$,i,1):nexti
 2290 v1$=vb$:vb$=left$(v1$,3):fori=1tonv:ifvb$(i)=vb$thenvb=i:goto2320
 2300 nexti
 2310 vb=1:no$=vb$:goto2340
 2320 iflen(v1$)+1>=len(cm$)thenno=0:return
 2330 no$=right$(cm$,len(cm$)-1-len(v1$))
 2340 n1$=no$:no$=left$(no$,3):fori=1tonn:ifno$=no$(i)then2370
 2350 nexti
 2360 no=0:return
 2370 no=i:return
 2380 print"{clr}"
 2390 ifpd>2thenprint"you fell into a pit and broke every bone in your body.":goto3310
 2400 ifob(35,0)<>-1andcp<>1thenprintwd$:pd=pd+1:return
 2410 ift>=1thenp$(1)="i'm outside the pyramid again."
 2420 printp$(cp):pd=0
 2430 ifcp=32thenpl(1)=5
 2440 ifcp=34thenpl(2)=5
 2450 ifcp=7thenpl(3)=5
 2460 fori=1tolo:ifob(i,0)=cpthenprint"*there is ";ob$(i);" here."
 2470 nexti
 2480 fl=0:ifob(35,0)<>-1then2570
 2490 print"i can go - ";:fori=0to3:ifp(cp,i)<>0thenprintd$(i);" ";:fl=1
 2500 nexti
 2510 print
 2520 ifob(12,0)=-1thengs=gs+1
 2530 ifbi>0thenbi=bi+1
 2540 ifgs=30thenprint"i think the snake is getting hungry.":ob$(12)=we$
 2550 ifgs=50thenprint"the snake just bit me!":bi=1:ob$(12)="a very angry snake"
 2560 ifbi=10thenprint"that snake bite! i'm  getting weaker...wine! i need wine!"
 2570 printwf$:ift<>0andob(35,0)=-1andt/32=int(t/32)thenprintwg$:ob(35,0)=0:ob(32,0)=-1
 2580 ifbi=45thenprint"that snake bite! oh...no...":ob(12,0)=0:fori=1to1e3:nexti:goto3310
 2590 ifcp<>18thenreturn
 2600 ifgf=1thenprint"the gate is open.":goto2620
 2610 print"the gate is locked."
 2620 ifnm=0andm3=0andmf=1thenprintwh$:m3=1:ob(34,0)=-1:ob(33,0)=0:m3=1
 2630 return
 2640 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{down}error{up}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}":stop
 2650 nn=36:nv=32:p=38:lo=36:dimp$(p),p(p,3),ob$(lo),ob(lo,1),vb$(nv),no$(nn)
 2660 p$(1)="i'm outside an enormous pyramid. an     opening leads in to the"
 2670 p$(1)=p$(1)+" east.":data0,0,5,0,2,7,3,6,3,3,8,2
 2680 p$(2)="i'm in the annex king tut's tomb."
 2690 p$(3)="i'm in the quarters of princess anka."
 2700 p$(4)="i'm in karmak's cathedral.":data0,8,12,0,0,9,0,1,2,0,0,14
 2710 p$(5)="i'm in the entry chamber to             king tut's tomb."
 2720 p$(6)="i'm in a twisting corrodor"
 2730 p$(7)="i'm in the jewelry chamber.":data0,7,7,2
 2740 p$(8)="i'm in the artist's studio.":data4,0,0,3
 2750 p$(9)="i'm crawling over a jumble of broken    rock.":data9,13,5,0
 2760 p$(10)="i'm in a labyrinth of passages designed to keep out tombrobbers."
 2770 data 10,15,11,10
 2780 p$(11)=p$(10):data11,16,11,10
 2790 p$(12)="i'm in an egyptian library.":data0,17,4,7
 2800 p$(13)="i'm in an awkward n/s passageway.":data9,21,0,0
 2810 p$(14)=p$(6):data14,20,14,6
 2820 p$(15)=p$(10):data10,18,15,15
 2830 p$(16)=p$(10):data11,16,19,16
 2840 p$(17)="i'm in a wine closet. (all cheap stuff)":data12,22,0,0
 2850 p$(18)="i'm at the end of the maze. there is a gate on the door leading "
 2860 p$(18)=p$(18)+"south."
 2870 data 18,37,15,18
 2880 p$(19)=p$(10):data19,23,16,19
 2890 p$(20)=p$(6):data14,0,0,24
 2900 p$(21)="i'm in a game room.":data13,24,0,0
 2910 p$(22)="i'm in a bedroom designed               for the afterlife."
 2920 data 17,0,27,27
 2930 p$(23)="i'm in slaves' quarters a.":data19,26,0,0
 2940 p$(24)="i'm at the west end of a temple.":data20,0,25,21
 2950 p$(25)="i'm at the east end of a temple.":data25,0,0,24
 2960 p$(26)="i'm in the warriors' quarters.":data23,30,27,0
 2970 p$(27)="i'm in a stable.":data0,31,22,0
 2980 p$(28)="i'm in the high priest's chamber.":data0,35,29,0
 2990 p$(29)="i'm in the chamber of isis.":data30,0,29,28
 3000 p$(30)="i'm in slaves' quarters b.":data26,33,31,29
 3010 p$(31)="i'm in the antechamber.":data27,32,0,30
 3020 p$(32)="i'm at the royal throne.":data0,0,0,31
 3030 p$(33)="i'm in the store room.":data0,0,36,30
 3040 p$(34)="i'm in a mirror room.":data34,35,34,34
 3050 p$(35)="i'm in the king's harem.":data 28,0,35,34
 3060 p$(36)="i'm in a snake pit.":data0,0,33,36
 3070 p$(37)="i'm in the burial chamber.":data18,0,0,0
 3080 data37,0,0,0
 3090 fori=1top:forj=0to3:readp(i,j):nextj,i
 3100 data5,5,21,0,24,10,25,5,34,10,35,10,2,15,3,5,7,10,11,10,33,5,0,0,1,0,36,0
 3110 data8,10,12,0,0,0,26,0,32,10,37,55
 3120 dataan opel drinking cup,a steve martin poster,a gold challas,a golden key
 3130 dataa golden burial mask,a diamond headress,a platinum spear,a ruby earring
 3140 dataan albaster necklace,a giant pearl,an albaster lamp,a tame snake
 3150 dataa package of food,a fierce snake,a jade statuette,the book of the dead
 3160 dataa crystal goblet,a glass medalian,an ivory throne,a mummiform coffin
 3170 fori=1to20:readob(i,0):readob(i,1):next
 3180 fori=1to20:readob$(i):next
 3190 data28,15,0,0,1,0,1,0,0,0,0,0,17,0
 3200 fori=30to36:readob(i,0):readob(i,1):next
 3210 data an ivory sarcophagous,----------------,an ancient torch,some matches
 3220 dataan empty matchbox,a shining torch,a goblet of wine
 3230 fori=30to36:readob$(i):nexti
 3240 datacup,pos,cha,key,mas,hea,spe,ear,nec,pea,lam,sna,foo,sna,sta,boo,gob
 3250 datamed,thr,cof,nor,sou,eas,wes,n,s,e,w,goo,sar,gat,tor,mat,box,tor,win
 3260 datago,get,loo,inv,sco,dro,hel,sav,loa,qui,ope,loc,rea,eat,fee,kil,hit
 3270 datasay,unl,tur,clo,rel,sho,dri,bre,lig,fig,des,tra,bur,val,thr
 3280 fori=1tonn:readno$(i):next:fori=1tonv:readvb$(i):next
 3290 data north,south,east,west
 3300 fori=0to3:readd$(i):next:goto310
 3310 x=x+1
 3320 on x goto 3330,3420
 3330 print"oh my! you seem to have gotten yourself"
 3340 print"killed. i could try and help you out,"
 3350 print"but i've never really done this before."
 3360 rem
 3370 input"would you like me to try and reincarnateyou";r$
 3380 ifleft$(r$,1)="n"then2090
 3390 print"now where did i put my orange smoke?":pl(0)=pl(0)-20
 3400 print"i seem to remember leaving it in a "
 3410 print"sarcophagous somewhere. ah here it is.":goto1140
 3420 print"you clumsy oaf, you've done it again!"
 3430 print"and this time i'm out of orange smoke!!!";
 3440 print"you don't expect me to perform a decent"
 3450 print"reincarnation with no more orange smoke"
 3460 wi$="okay, if you're so smart, do it         yourself! i'm leaving!"
 3470 input"left do you";r2$:ifleft$(r2$,1)="y"thenprintwi$:end
 3480 print"ok":goto2090
    5 cl=20480:cm=cl+500
   10 t1=1:k2=15
   20 dim a$(30),a%(31),z%(10)
   30 datah0,251,c,237,c#,224,d,211,d#,199,e,188,f,177,f#,167,g,157,g#,149,a,140
   40 data b,132,h,124,c1,117,c1#,111,d1,104,d1#,99,e1,93,f1,88,f1#,83,g1,78
   50 datag1#,73,a1,69,b1,64,h1,61,c2,57,z,1,rtn,2,r,3,* leer *,0,stop,4,***
   60 fori=0to30:reada$(i),a%(i):next
   65 goto370
   70 k=cl:k1=cl:gosub280
   80 print"{clr}{down}{down}melodie-eingabe{down}"
   90 print"{down}{down}{down}"(k-cl)/2;"{left}.ton";:input"{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";r$:ifr$=""thenr$="z"
  100 ifr$="/*"thenk1=k1+2:goto370
  110 gosub290:ifr$="*"thenprint"*** fehler ***":goto90
  120 ifk>k1thenk1=k
  130 ifr$="sbr"then250
  140 ifr$="r"thenpokek,r:pokek+1,0:goto370
  150 ifr$="rtn"thent=0:goto190
  160 ifr$="stop"thent=0:goto190
  170 input"{down} laenge{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";t$:ift$=""thent$="2"
  180 t=val(t$)
  190 pokek,r:pokek+1,t:k=k+2
  200 ifs=1thenreturn
  210 ifk<7500then90
  220 print"{down}*** speicher ist voll ***":r=ti
  230 ifti-t<300then230
  240 goto370
  250 input"{down}sprungadresse{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";t$:ifval(t$)<0orval(t$)>999thenprint"{up}{up}{up}":goto250
  260 t=val(t$):r=int(r/250):t=t-r*250:r=r+252:goto190
  270 end
  280 fori=cltocm:pokei,0:next:return
  290 fori=0to30:ifr$=a$(i)then310
  300 next:ifr$<>"sbr"thenr$="*":return
  310 r=a%(i):return
  320 fori=0to30:ifr=a%(i)thenr$=a$(i):t$=str$(t):goto340
  330 next:r$="ssbr":t$=str$((r-252)*250+t):return
  340 ifr$="r"thenr$="* repeat *":t$=""
  350 ifr$="stop"thent$=""
  360 return
  370 input"{clr}{down}{down}{down}funktion{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then370
  380 ifz$="run"then500
  390 ifleft$(z$,4)="list"then640
  400 ifz$="korr"then870
  410 ifz$="ins"then950
  420 ifz$="del"then1050
  430 ifz$="load"then1140
  440 ifz$="save"then1270
  450 ifz$="mode"then1320
  460 ifz$="add"then1380
  470 ifz$="new"then70
  480 ifz$="en~"thenprint"{down}*** ende~des programms ***":end
  490 goto370
  500 z%=0:k=cl:poke59467,16:poke59464,0:poke59466,k2
  510 r=peek(k):t=peek(k+1):ifr=0orr=4then630
  520 ifr<>3then550
  530 getz$:ifz$=chr$(13)then630
  540 goto500
  550 ifr<>2then580
  560 ifz%=0then620
  570 k=z%(z%):z%=z%-1:goto620
  580 ifr<252then610
  590 z%=z%+1:z%(z%)=k
  600 k=(r-252)*250+t:k=k*2+cl:goto510
  610 poke59464,r:fori=1to10*t*t1:next
  620 k=k+2:goto510
  630 poke59467,0:poke59466,0:poke59464,0:goto370
  640 iflen(z$)=4thenx1=0:x2=999:goto710
  650 z$=mid$(z$,5,10):ifleft$(z$,1)=chr$(32)thenz$=mid$(z$,2,10)
  660 ifleft$(z$,1)="-"thenx1=0:x2=abs(val(z$)):goto710
  670 ifright$(z$,1)="-"thenx2=999:x1=val(z$):goto710
  680 fori=1tolen(z$):ifmid$(z$,i,1)="-"then700
  690 next:x1=val(z$):x2=x1:goto710
  700 x1=val(left$(z$,i)):x2=val(right$(z$,len(z$)-i))
  710 x1=x1*2+cl:x2=x2*2+cl
  720 j=0:print"{clr}"
  730 r=peek(x1):t=peek(x1+1):gosub320
  740 ifr=0thenprint,"* ende *":goto840
  750 print(x1-cl)/2"{left}.",r$
  760 ifr$<>"rtn"andr$<>"stop"thenprint"{up}",,t$
  770 x1=x1+2:j=j+1:ifx1>x2then840
  780 ifj<20then730
  790 print"{down}* weiter = '1',ende = '9' *"
  800 getz$:ifz$=""then800
  810 ifz$="9"then370
  820 ifz$<>"1"then800
  830 goto720
  840 print"{down}* weiter = '1' *"
  850 getz$:ifz$<>"1"then850
  860 goto370
  870 print"{clr}"
  880 input"{down}{down}ton{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then370
  890 ifz$="+"thenz$=str$((k-cl)/2)
  900 ifz$="-"thenz$=str$((k-cl+4)/2)
  910 ifval(z$)<0orval(z$)>999then870
  920 k=val(z$)*2+cl:r=peek(k):t=peek(k+1):gosub320
  930 print"{down}"(k-cl)/2"{left}.",r$,t$
  940 s=1:gosub90:s=0:goto880
  950 input"{clr}{down}{down}{down}einfuegen vor{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then370
  960 z=val(z$):ifz<0orz>999then950
  970 k=z*2+cl:fori=k1tokstep-2:x1=peek(i):x2=peek(i+1)
  980 pokei+2,x1:pokei+3,x2:next
  990 fori=cltok1step2:x1=peek(i):ifx1<252then1030
 1000 r=((x1-252)*250+peek(i+1))*2+cl:ifr<kthen1030
 1010 x2=peek(i+1)+1:ifx2>249thenx2=0:x1=x1+1
 1020 pokei,x1:pokei+1,x2
 1030 next
 1040 s=1:gosub90:s=0:k1=k1+2:goto370
 1050 input"{clr}{down}{down}{down}zu loeschender ton{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then370
 1060 z=val(z$):ifz<0orz>999then1050
 1070 k=z*2+cl:fori=ktok1step2:x1=peek(i+2):x2=peek(i+3)
 1080 pokei,x1:pokei+1,x2:next:k1=k1-2
 1090 fori=cltok1step2:x1=peek(i):ifx1<252then1130
 1100 r=((x1-252)*250+peek(i+1))*2+cl:ifr<kthen1130
 1110 x2=peek(i+1)-1:ifx2<0thenx2=249:x1=x1-1
 1120 pokei,x1:pokei+1,x2
 1130 next:goto370
 1140 gosub280
 1142 input"{clr}musikstueck ";r$
 1143 print"{down}"
 1144 input"{up}laufwerk ";lw$
 1145 iflw$="0"then1150
 1146 iflw$="1"then1150
 1147 goto1144
 1150 fd$=lw$+":"+r$+",s,r"
 1152 open2,8,2,fd$
 1160 k=cl:input#2,z$:print"* "z$" gefunden  *"
 1180 ifz$=r$then1200
 1190 close2:goto1140
 1200 print"{down}* ich lade >>> "z$" <<< *"
 1210 input#2,z$
 1211 z=len(z$)-3:m$=mid$(z$,3,z):t1=val(m$):print"speed:"t1;
 1212 input#2,z$
 1213 z=len(z$)-3:m$=mid$(z$,3,z):k1=val(m$):print"  last note:"k1;
 1214 input#2,z$
 1215 z=len(z$)-3:m$=mid$(z$,3,z):k2=val(m$):print"  tune:"k2
 1220 input#2,z$
 1221 if"/*"=right$(z$,2)then1250
 1222 z=len(z$)-3:m$=mid$(z$,3,z):zn=val(m$)
 1240 pokek,zn:k=k+1:goto1220
 1250 close2:ifk1<>kthenprint"{down}** checksum error ** {down}":goto840
 1260 goto370
 1270 input"{clr}musikstueck ";z$
 1272 print"{down}"
 1273 input"{up}laufwerk ";lw$
 1274 iflw$="0"then1280
 1275 iflw$="1"then1280
 1276 goto1273
 1280 fd$=lw$+":"+z$+",s,w"
 1282 open1,8,2,fd$
 1283 print#1,z$;chr$(13):k=cl
 1285 print#1,t1;chr$(13):print#1,k1;chr$(13):print#1,k2;chr$(13)
 1290 x1=peek(k):ifx1=0then1310
 1300 x2=peek(k+1):print#1,x1;chr$(13):print#1,x2;chr$(13):k=k+2:goto1290
 1310 print#1,"/*,/*":close1:goto370
 1320 print"{clr}{down}{down}naechste freie ton-nummer ="(k1-5500)/2
 1330 print"{down}{down}geschwindigkeit ="t1:print"{down}{down}klangfarbe ="k2
 1340 input"{down}{down}neue geschwindigkeit{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then1360
 1350 t1=val(z$)
 1360 input"{down}{down}neue klangfarbe{rght}{rght}{rght}{rvon} {rvof}{left}{left}{left}";z$:ifz$=""then370
 1370 k2=val(z$):goto370
 1380 fork=clto7500step2:x1=peek(k):ifx1=0then90
 1390 next:goto370
  100 clr:poke59467,16:sh=59466:pokesh,55:so=59464:pokeso,0:goto1750
  110 geta$:ifa$=" "then1560
  120 ifpeek(m)=223then1580
  130 ifpeek(m)=180thenv=-1:goto220
  140 ifpeek(m)=182thenv=1:goto270
  150 ifpeek(m)=184thenv=-80:goto320
  160 ifpeek(m)=178thenv=80:goto370
  170 ifpeek(m)=183thenv=-81:goto420
  180 ifpeek(m)=185thenv=-79:goto490
  190 ifpeek(m)=177thenv=79:goto560
  200 ifpeek(m)=179thenv=81:goto630
  210 fori=1to25:nexti:goto710
  220 ifpeek(n)=1then1020
  230 ifpeek(p+v)=lthen700
  240 ifpeek(p+v)=randy>0theny=y-1:p=p+22:goto1190
  250 ifpeek(p+v)=rthen710
  260 goto1630
  270 ifpeek(n)=1then1020
  280 ifpeek(p+v)=lthen700
  290 ifpeek(p+v)=randy<6theny=y+1:p=p-22:goto1190
  300 ifpeek(p+v)=rthen710
  310 goto1630
  320 ifpeek(n)=1then1020
  330 ifpeek(p+v)=lthen700
  340 ifpeek(p+v)=64andx>0thenx=x-1:p=p+1760:goto1190
  350 ifpeek(p+v)=64then710
  360 goto1630
  370 ifpeek(n)=1then1020
  380 ifpeek(p+v)=lthen700
  390 ifpeek(p+v)=64andx<6thenx=x+1:p=p-1760:goto1190
  400 ifpeek(p+v)=64then710
  410 goto1630
  420 ifpeek(n)=1then1020
  430 ifpeek(p+v)=lthen700
  440 ifpeek(p+v)=loandx>0andy>0theny=y-1:x=x-1:p=p+1782:goto1190
  450 ifpeek(p+v)=randy>0theny=y-1:p=p-58:goto1190
  460 ifpeek(p+v)=64andx>0thenx=x-1:p=p+1759:goto1190
  470 ifpeek(p+v)=loorpeek(p+v)=rorpeek(p+v)=64then710
  480 goto1630
  490 ifpeek(n)=1then1020
  500 ifpeek(p+v)=lthen700
  510 ifpeek(p+v)=roandx>0andy<6theny=y+1:x=x-1:p=p+1738:goto1190
  520 ifpeek(p+v)=randy<6theny=y+1:p=p-102:goto1190
  530 ifpeek(p+v)=64andx>0thenx=x-1:p=p+1761:goto1190
  540 ifpeek(p+v)=roorpeek(p+v)=rorpeek(p+v)=64then710
  550 goto1630
  560 ifpeek(n)=1then1020
  570 ifpeek(p+v)=lthen700
  580 ifpeek(p+v)=luandx<6andy>0theny=y-1:x=x+1:p=p-1738:goto1190
  590 ifpeek(p+v)=randy>0theny=y-1:p=p+102:goto1190
  600 ifpeek(p+v)=64andx<6thenx=x+1:p=p-1761:goto1190
  610 ifpeek(p+v)=luorpeek(p+v)=rorpeek(p+v)=64then710
  620 goto1630
  630 ifpeek(n)=1then1020
  640 ifpeek(p+v)=lthen700
  650 ifpeek(p+v)=ruandx<6andy<6theny=y+1:x=x+1:p=p-1782:goto1190
  660 ifpeek(p+v)=randy<6theny=y+1:p=p+58:goto1190
  670 ifpeek(p+v)=64andx<6thenx=x+1:p=p-1759:goto1190
  680 ifpeek(p+v)=ruorpeek(p+v)=rorpeek(p+v)=64then710
  690 goto1630
  700 p=p+v:pokep,d:pokep-v,l:e=e-1/(3-a/6)
  710 ifz=0then730
  720 ifti-o>300-a*10theno=0:gosub1120:pokez,l:z=0
  730 e=e-(ti-c)/(100-a*4)*(sm+1):c=ti:ife<=0thene=0:gosub1530:goto2080
  740 gosub1530:ife(x,y)=0thenfori=1to50:nexti:goto110
  750 ifk>0then980
  760 ifrnd(1)>.83+u/70ande(x,y)>uthen890
  770 ifu=0thenfori=1to30:nexti:goto110
  780 ifrnd(1)<u/18then940
  790 fori=0toa/4:u7=1+int(rnd(1)*(g(x,y)*5)):ifd(u7)=0thennexti:goto110
  800 i=a/4:nexti:ifd(u7)<pthen840
  810 ifd(u7)-21>ptheng=-81+int(rnd(1)*3):goto860
  820 g=-1:ifrnd(1)>.6theng=-81+int(rnd(1)*3)*80
  830 goto860
  840 ifd(u7)+21<ptheng=79+int(rnd(1)*3):goto860
  850 g=1:ifrnd(1)>.6theng=-79+int(rnd(1)*3)*80
  860 ifpeek(d(u7)+g)=lthend(u7)=d(u7)+g:poked(u7),f:poked(u7)-g,l
  870 ifd(u7)+g=pthenpoked(u7),l:pokep,f:goto1640
  880 goto110
  890 u7=1+int(rnd(1)*(g(x,y)*5)):ifd(u7)>0then110
  900 u6=int(rnd(1)*g(x,y))
  910 g=-81+int(rnd(1)*3)*80+int(rnd(1)*3)
  920 ifpeek(i(x,y,u6)+g)<>lthen110
  930 d(u7)=i(x,y,u6)+g:poked(u7),f:u=u+1:goto110
  940 ifrnd(1)>.87-a/70thenq=p:goto1000
  950 g=p-81+int(rnd(1)*3)*80+int(rnd(1)*3):ifg<32849org>34631then110
  960 ifpeek(g)=93then110
  970 k=g:goto110
  980 ifk=porpeek(k)=f orpeek(k)=kwthenk=0:q=p:goto1000
  990 q=k:k=0:pokesh,7:gosub1650:goto110
 1000 pokesh,90:gosub1650:ifsm=0thenpokep,l:gosub1650:goto2100
 1010 e=e-40-a*3:goto110
 1020 ifz=0then1090
 1030 z=z+v:ifpeek(z)=lthen1080
 1040 pokez-v,l
 1050 ifpeek(z)=fandrnd(1)>.1+a/100thenpokesh,55:goto1140
 1060 ifz=ptheno=0:pokez,d:q=z:z=0:goto1000
 1070 pokesh,15:gosub1120:z=0:goto710
 1080 pokesh,55:pokeso,60:pokez,v1:pokez-v,l:pokeso,0:goto720
 1090 ift=0then710
 1100 z=p+v:ifpeek(z)<>lthen1050
 1110 pokesh,15:pokeso,50:pokez,v1:t=t-1:pokeso,0:gosub1540:o=ti:goto710
 1120 e1=peek(z):fori=1to4:pokez,86:pokeso,20:pokez,v1:pokeso,30
 1130 pokez,91:pokeso,40:nexti:pokeso,0:pokez,e1:o=0:return
 1140 fori=1tog(x,y)*5:ifd(i)<>zthennexti
 1150 d(i)=0:i=g(x,y)*5:nexti:q=z:z=0:pokeq,l:gosub1650:e(x,y)=e(x,y)-1
 1160 w=w-1:u=u-1:o=0:ife(x,y)=0thenj(x,y)=0:poke33674+x*160+y*2,160
 1170 ifu=0thenk=0
 1180 goto710
 1190 k=0:z=0:o=0:print"{clr}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}IU{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
 1200 printtab(24)"{SHIFT--}{SHIFT--}energie{rght}=    {SHIFT--}":printtab(24)"{SHIFT--}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
 1210 printtab(24)"{SHIFT--}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I":printtab(24)"{SHIFT--}{SHIFT--}torpedos{rght}={rght}{rght}{rght}{SHIFT--}"
 1220 printtab(24)"{SHIFT--}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K":printtab(24)"{SHIFT--}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
 1230 printtab(24)"{SHIFT--}{SHIFT--}schirm{rght}:{rght}{rght}{rght}{rght}{rght}{SHIFT--}":printtab(24)"{SHIFT--}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
 1240 printtab(24)"{SHIFT--}":printtab(24)"{SHIFT--}U{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}I"
 1250 fori=1to6:printtab(24)"{SHIFT--}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}"
 1260 printtab(24)"{SHIFT--}{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}":nexti
 1270 printtab(24)"{SHIFT--}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}{rght}{SHIFT--}"
 1275 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}KJ{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}K{home}"
 1276 fori=1to23:print"{SHIFT--}{down}{left}";:next:rem   print"{home}":end
 1280 pokep,d:ifg(x,y)=0then1300
 1290 fori=0tog(x,y)-1:pokei(x,y,i),kw:nexti:goto1320
 1300 iff(x,y)=0then1320
 1310 fori=0tof(x,y)-1:pokeh(x,y,i),b:nexti
 1320 ifa(x,y)=0then1390
 1330 fori=1toa(x,y):h=32930+int(rnd(1)*21)*80+int(rnd(1)*21)
 1340 ifpeek(h-81)<>lorpeek(h-80)<>lorpeek(h-79)<>ltheni=i-1:nexti
 1350 ifpeek(h-1)<>lorpeek(h)<>lorpeek(h+1)<>ltheni=i-1:nexti
 1360 ifpeek(h+79)<>lorpeek(h+80)<>lorpeek(h+81)<>ltheni=i-1:nexti
 1370 pokeh-81,lo:pokeh-80,mo:pokeh-79,ro:pokeh-1,ml:pokeh,l:pokeh+1,rm
 1380 pokeh+79,lu:pokeh+80,mu:pokeh+81,ru:nexti
 1390 ifb(x,y)=0then1430
 1400 fori=1tob(x,y):h=32849+int(rnd(1)*22)*80+int(rnd(1)*22)
 1410 ifpeek(h+80)<>lorpeek(h+81)<>lorpeek(h)<>lorpeek(h+1)<>ltheni=i-1:nexti
 1420 pokeh,lo:pokeh+1,ro:pokeh+80,lu:pokeh+81,ru:nexti
 1430 ife(x,y)=0then1490
 1440 u=int(rnd(1)*e(x,y))
 1450 ifu=0thenfori=1to15:d(i)=0:nexti:goto1490
 1460 fori=1tou:d(i)=32849+int(rnd(1)*23)*80+int(rnd(1)*23)
 1470 ifpeek(d(i))<>lorpeek(d(i)-1)=mltheni=i-1:nexti
 1480 poked(i),f:nexti:ifu<15thenfori=u+1to15:d(i)=0:nexti
 1490 fori=0to6:forj=0to6:ifj(i,j)=0thennextj,i:goto1510
 1500 poke33674+i*160+j*2,j(i,j):nextj,i
 1510 poke33674+x*160+y*2,peek(33674+x*160+y*2)+128
 1520 gosub1530:gosub1540:gosub1550:goto110
 1530 e$=str$(int(e)):print"{home}{down}";:printtab(39-len(e$));int(e):return
 1540 t$=str$(int(t)):print"{home}{down}{down}{down}{down}";:printtab(39-len(t$));t:return
 1550 print"{home}{down}{down}{down}{down}{down}{down}{down}";tab(35);s$:return
 1560 ifsm=0thensm=1:s$="{CBM-L}{rvon}an{rvof}{CBM-J}":gosub1550:goto710
 1570 sm=0:s$="aus ":gosub1550:goto710
 1580 ifpeek(p-81)=borpeek(p-80)=borpeek(p-79)=borpeek(p-1)=bthen1610
 1590 ifpeek(p+1)=borpeek(p+79)=borpeek(p+80)=borpeek(p+81)=bthen1610
 1600 goto710
 1610 ifw=0then2120
 1620 t=20:e=999:c=ti:gosub1530:gosub1540:goto710
 1630 pokep,l:p=p+v:ifpeek(p)=v1theno=0:q=z:z=0:pokeq,d:goto1000
 1640 q=p:pokesh,15:gosub1650:goto2500
 1650 e1=peek(q-81):e2=peek(q-80):e3=peek(q-79):e4=peek(q-1):e5=peek(q)
 1660 e6=peek(q+1):e7=peek(q+79):e8=peek(q+80):e9=peek(q+81)
 1670 pokeq-81,108:pokeq-80,247:pokeq-79,123:pokeq-1,244:pokeq,160
 1680 pokeq+1,234:pokeq+79,124:pokeq+80,239:pokeq+81,126:pokeso,60
 1690 pokeq-81,46:pokeq-80,37:pokeq-79,46:pokeq-1,37:pokeq,37:pokeq+1,37
 1700 pokeq+79,39:pokeq+80,37:pokeq+81,39:pokeso,80
 1710 pokeq-80,114:pokeq-79,59:pokeq-1,45:pokeq,28:pokeq+1,46:pokeq+80,33
 1720 pokeso,120
 1730 pokeq-81,e1:pokeq-80,e2:pokeq-79,e3:pokeq-1,e4:pokeq,e5:pokeq+1,e6
 1740 pokeq+79,e7:pokeq+80,e8:pokeq+81,e9:pokeso,0:return
 1750 print"{clr}";chr$(142):gosub2710:dima(6,6),b(6,6):v1=42
 1760 fori=0to6:forj=0to6:a(i,j)=int(rnd(1)*4):b(i,j)=int(rnd(1)*7):nextj,i
 1770 ml=66:rm=72:lu=74:mu=70:ru=75:o=0:z=0:k=0:m=151:n=152:ro=73:u=0:lo=85
 1780 h=0:mo=67:pokeso,55:fori=1to20:nexti:pokeso,0
 1790 print"{up}{rght}{rght} welcher schwierigkeitsgrad (1-9) ?{left}";
 1800 geta$:ifval(a$)>0thenpokeso,40+val(a$):fori=1to20:nexti:pokeso,0:goto1820
 1810 gosub2050:goto1800
 1820 a=val(a$):print"{up}":printtab(10)"{up}schwierigkeitsgrad"a
 1830 print"{rght}{rght}                                   {up}{left} "
 1840 dimd(15),e(6,6),f(6,6),g(6,6)
 1850 dimh(6,6,2):fori=0to6:forj=0to6:ifrnd(1)>(.1-a/100)then1880
 1860 f(i,j)=1+int(rnd(1)*3):ba=ba+1:forv=0tof(i,j)-1
 1870 h(i,j,v)=32930+int(rnd(1)*21)*80+int(rnd(1)*21):nextv
 1880 nextj,i:ifba>0then1920
 1890 x=int(rnd(1)*7):y=int(rnd(1)*7)
 1900 f(x,y)=1+int(rnd(1)*3):ba=ba+1:forv=0tof(x,y)-1
 1910 h(x,y,v)=32930+int(rnd(1)*21)*80+int(rnd(1)*21):nextv:e1=0:e2=0:e3=0
 1920 gosub2890:b=90:t=20:kw=35:s$="aus ":r=93:l=32:s=0:dimi(6,6,2)
 1930 e4=0:e5=0:e6=0:e7=0:e8=0:d=81:e9=0:e=999:u7=0:g=0:u6=0:f=8
 1940 fori=0to6:forj=0to6:ifrnd(1)>(.1+a/100)then1990
 1950 iff(i,j)>0then1990
 1960 g(i,j)=1+int(rnd(1)*3):forv=0tog(i,j)-1
 1970 i(i,j,v)=32930+int(rnd(1)*21)*80+int(rnd(1)*21):nextv
 1980 e(i,j)=g(i,j)+int(rnd(1)*5)*g(i,j):w=w+e(i,j)
 1990 nextj,i:ifw=0then1940
 2000 x=int(rnd(1)*7):y=int(rnd(1)*7):ifg(x,y)>0orf(x,y)>0then2000
 2010 p=32849+int(rnd(1)*23)*80+int(rnd(1)*23):dimj(6,6):fori=0to6
 2020 forj=0to6:ife(i,j)>0thenj(i,j)=f:goto2040
 2030 iff(i,j)>0thenj(i,j)=b:goto2040
 2040 nextj,i:c=ti:goto1190
 2050 y=y+1:ify<21thenreturn
 2060 y=0:ifx=0thenx=1:print"{rvon}?{rvof}{up}{left}{CBM-@}{down}{left}";:return
 2070 x=0:print"?{up}{left} {down}{left}";:return
 2080 pokesh,15:foru6=1to20:pokeso,60:fori=32874to32886:pokei,peek(i)+128:nexti
 2090 pokeso,0:fori=32874to32886:pokei,peek(i)-128:nexti,u6:goto2570
 2100 pokesh,15:foru6=1to20:pokeso,60:fori=33354to33366:pokei,peek(i)+128
 2110 nexti:pokeso,0:fori=33354to33366:pokei,peek(i)-128:nexti,u6:goto2560
 2120 fori=1to200:nexti:pokesh,15
 2130 print"{clr}{down}         {CBM-@}R{CBM-@}":print"        N   M"
 2140 print"        {CBM-G}W W{CBM-M}":print"        {CBM-G} ^ {CBM-M}"
 2150 print"        M = N":print"        {SHIFT-@}EDEL"
 2160 print"      N{CBM-T} N M {CBM-T}M":print"     N N{CBM-G}UCI{CBM-M}M M       R{SHIFT-*}{SHIFT-*}R{CBM-@}"
 2170 print"    N N {CBM-G}BWH{CBM-M} M M    N{CBM-T}[]   M"
 2180 print"    TH  LJFK{SHIFT-@}  TH   N {CBM-V} Q {rvon}{SHIFT-@}{SHIFT-@}{SHIFT-@}{rvof}M"
 2190 print"    TH {CBM-M}M{CBM-T}E{CBM-T}N{CBM-G} TH   O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 2200 print"    TH {CBM-M} MxN {CBM-G} TH YPO{CBM-T}{CBM-T}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-T}{CBM-T}POT"
 2210 print"    TH {CBM-M}  {CBM-T}  {CBM-G} TH {SHIFT--}{CBM-M}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}O{CBM-G}{CBM-M}{CBM-G}{SHIFT--}"
 2220 print"    ## Y{$a0}{CBM-M}{CBM-T}{CBM-G} T ## HY{CBM-G}=UIUI{$a0}{CBM-G}{CBM-G}{CBM-M}TB"
 2230 print"       Y Y{$a0}T T    HY{CBM-G}={SHIFT--}{SHIFT--}JK{$a0}{CBM-G}{CBM-G}{CBM-M}TB"
 2240 poke33972,34:poke33973,34:poke33983,34:poke33984,34
 2250 print"       Y H{$a0}G T    HY{CBM-G}=JK{$a0}W{$a0}L{CBM-G}{CBM-M}TB"
 2260 print"       Y{SHIFT-+}H{$a0}G{SHIFT-+}T    HY{CBM-G}W{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-@}{$a0}{CBM-M}TB"
 2270 print"       Y H G{$a0}T    HYL{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}LL{SHIFT-@}TB"
 2280 print"       {CBM-M} {SHIFT--} B {CBM-G}    H{CBM-M}MMM{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}NNN{CBM-G}B"
 2290 print"       {CBM-M}{$a0}{SHIFT--} B{$a0}{CBM-G}    Y{CBM-M} {CBM-T}{CBM-T}{CBM-T}BH{CBM-T}{CBM-T}{CBM-T} {CBM-G}G"
 2300 print"       {CBM-M}{$a0}{SHIFT--} B{$a0}{CBM-G}    N M   GY   N M"
 2310 print"       ({CBM-@}) ({CBM-@})    O{CBM-T}P  H{CBM-T}{CBM-T}G  O{CBM-T}P"
 2320 print"                  {CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}   {CBM-T}{CBM-T}{CBM-T}"
 2330 fori=1to555:nexti
 2340 print"{home}{down}";tab(18)"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
 2350 printtab(18)"{SHIFT--}               {SHIFT--}"
 2360 printtab(18)"{SHIFT--}               {SHIFT--}"
 2370 printtab(18)"{SHIFT--}               {SHIFT--}"
 2380 printtab(18)"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}IU{down}{left}{left}{SHIFT--}{SHIFT--}{down}{left}{left}{SHIFT--}{SHIFT--}{up}{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
 2390 fori=10to60:pokeso,70-i:nexti:pokeso,0:print"{home}{down}{down}";tab(19);
 2400 print"gratulieren";:fori=1to60:pokeso,i:nexti:pokeso,0
 2410 print"{rght}wir":printtab(19);:fori=1to190step3:pokeso,190-i:nexti:pokeso,0
 2420 print"also dem";:fory=1to2:fori=1to70:pokeso,70-i:nexti:pokeso,0:nexty
 2430 print"{rght}retter":printtab(19)
 2440 fori=1to4:x=30+i*5:forj=1to19step2:pokeso,x-j:nextj:forj=1to19step2
 2450 pokeso,x-19+j:nextj,i:pokeso,0:print"der";
 2460 fori=1to100:pokeso,100-i:nexti:print"{rght}galaxis ";:fori=1to3
 2470 fort=30to50:pokeso,t:nextt:print"!";
 2480 fort=1to20:pokeso,50-t:nextt,i:pokeso,0
 2490 fori=1to3000:nexti:goto2660
 2500 ifpeek(p)=fthenpokep,l:gosub1650:print"{home}{rght}   kollision mit tie   ":goto2530
 2510 ifpeek(p)=kworpeek(p)=bthenprint"{home}{rght}  kollision mit basis  ":goto2530
 2520 print"{home}{rght} kollision mit planet  "
 2530 pokesh,15:foru6=1to12:pokeso,60:fori=32769to32791:pokei,peek(i)+128
 2540 nexti:pokeso,0:fori=32769to32791:pokei,peek(i)-128:nexti,u6
 2550 print"{home}{rght}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 2560 foru6=1to500:nextu6:poke33674+x*160+y*2,peek(33674+x*160+y*2)-128
 2570 foru6=1to1000:nextu6:u6=7:gosub2890:fori=1to2000:nexti
 2580 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2590 print" {CBM-@}{CBM-@}{CBM-@} {down}{left}{left}{left}{left}{left}(   ){down}{left}{left}{left}{left}{left} {CBM-T}{CBM-T}{CBM-T} {left}{left}{left}{left}{left}{up}{up}";
 2600 fori=1to40:nexti:poke59490,30
 2610 print"     {down}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{left}{left}{left}{left}{left}     {left}{left}{left}{left}{left}{up}{up}";
 2620 fori=1to500:nexti
 2630 print" {CBM-@}{CBM-@}{CBM-@} {down}{left}{left}{left}{left}{left}(   ){down}{left}{left}{left}{left}{left} {CBM-T}{CBM-T}{CBM-T} {left}{left}{left}{left}{left}{up}{up}";
 2640 fori=1to40:nexti
 2650 print"UCCCI{down}{left}{left}{left}{left}{left}B   H{down}{left}{left}{left}{left}{left}JFFFK{left}{left}{left}{left}{left}{up}{up}";:fori=1to2000:nexti:poke158,0
 2660 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}noch ein spiel (j/n) ?{left}";:y=0:pokesh,55
 2670 geta$:ifa$="j"thenpokeso,60:fori=1to20:nexti:goto100
 2680 ifa$="n"thenpokeso,50:fori=1to20:nexti:pokeso,0:goto2700
 2690 gosub2050:goto2670
 2700 poke59467,0:pokesh,0:pokeso,0:poke158,0:new
 2710 printtab(int(rnd(1)*38))"."
 2720 print"{rght}UI{rght}{rght}{rght}{CBM-@}{rght}{rght}{CBM-@}{rght}.{CBM-@}{CBM-@}{CBM-@}{rght}{rght}{rght}{CBM-@}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}     ."
 2730 print"{rght}JK{rght}{rght}{CBM-M}{CBM-M} NN{rght}{CBM-M} {CBM-@} M{rght}{CBM-M} {CBM-G} {CBM-M} {CBM-@}{CBM-@}{SHIFT-@}{rght}{rght}N   {CBM-M}      "
 2740 print"{rght} {rght}{rght}{rght}{CBM-M}{CBM-M}NN{rght} {CBM-M}{CBM-M}{CBM-@}){CBM-M}{rght}{CBM-M}{$a0}{CBM-G}{rght}{CBM-M}{CBM-M}{CBM-@}{CBM-@}{rght}{rght}{CBM-M}{CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}    . "
 2750 print"{rght}{rght}{rght}{rght}{rght}{CBM-M} {CBM-M}{rght}{rght}{rght}{CBM-M}  {CBM-@}N.{CBM-M}{$a0}{CBM-G}{rght}{CBM-M}   {CBM-G} {CBM-M}{CBM-M} O{CBM-T}P      "
 2760 print"{rght}{rght}{rght}{rght}{rght}{CBM-M}{CBM-M}MM{rght}{rght}{CBM-M}{CBM-M}MM{rght}{rght}{CBM-M}{$a0}{CBM-G}{rght}{CBM-M} O{CBM-T}{rght}{rght}{CBM-M}{CBM-M} {CBM-T}P{CBM-M} .    "
 2770 print"{rght}{rght}{rght}{rght}.{CBM-M}{CBM-M}{rght}MM{rght}{CBM-M}{CBM-M} MM{rght}{CBM-M}{$a0}{CBM-G}{rght}{CBM-M} {CBM-T}{CBM-T}P{rght}{rght}M{CBM-T}{CBM-T}{CBM-T}N   UCI"
 2780 print"{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T} {rght}{CBM-T}{rght}{rght}{CBM-T}{rght}{rght}{CBM-T}{rght}{rght}{CBM-T}{rght}{rght} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{rght}{rght}.{CBM-T}{CBM-T}{CBM-T}    B H"
 2790 print".{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} d e r          .   JFK"
 2800 print"{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}.{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{rght}{rght}{rght}{CBM-@}{rght}{rght}{rght}{CBM-@}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  "
 2810 print"{rght}{rght}{rght}N  {CBM-M}{rght}L{CBM-@} {CBM-@}{SHIFT-@}{rght}{CBM-G}{CBM-@}{CBM-@}{SHIFT-@}{rght}{CBM-M} {CBM-@} M{rght}{CBM-M} M  {CBM-G}{CBM-G}{rght}{CBM-G}{CBM-@}{CBM-@}{SHIFT-@}  "
 2820 print"{rght}{rght}.{CBM-G}O{CBM-T}{CBM-T}{rght}{rght}{CBM-M}{CBM-M}{rght}{rght}{rght}{CBM-G}L{CBM-@}{rght}{rght}{CBM-M} L){CBM-M}{rght}{CBM-M}  M{rght}{CBM-G}{CBM-G}{rght}{CBM-G}L{CBM-@}   "
 2830 print"{rght}{rght}{rght}M{CBM-T}{CBM-T}M{rght}{rght}{CBM-M}{CBM-M}{rght}{rght}{rght}{CBM-G}{CBM-@}{SHIFT-@}{rght}{rght}{CBM-M}  {CBM-@}N{rght}{CBM-M}{CBM-M}M M{CBM-G}{CBM-G}{rght}{CBM-G}{CBM-@}{SHIFT-@} . "
 2840 print"{rght}Q{rght}{rght}{CBM-T}P{CBM-M}{rght}{rght}{CBM-M}{CBM-M}{rght}{rght}{rght}{CBM-G}L{CBM-@}{CBM-@}{rght}{CBM-M}{CBM-M}MM{rght}.{CBM-M}{CBM-M} M  {CBM-G}{rght}{CBM-G}L{CBM-@}{CBM-@}  "
 2850 print"{rght}{rght}{rght}O{CBM-T}{CBM-T}N{rght}{rght}{CBM-M}{CBM-M}.{rght}{rght}{CBM-G}  {CBM-M}{rght}{CBM-M}{CBM-M}{rght}MM{rght}{CBM-M}{CBM-M}{rght}{rght}M {CBM-G}.{CBM-G}  {CBM-M}  "
 2860 print".{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{rght}{rght}{rght}{rght}{CBM-T}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}.{rght}{CBM-T}{rght}{rght}{CBM-T}{rght}{rght}{CBM-T}{rght}{rght}{rght}{CBM-T}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T} W"
 2870 fori=1to7:printtab(int(rnd(1)*38))".":nexti
 2880 print"{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght} copyright by frank cordes ":return
 2890 ifu6=7thenprint"{clr}{rght}{rght}.{rght} die macht war mit darth vader ":goto2910
 2900 print"{clr}{rght}{rght}.{rght}{rght} moege die macht mit dir sein "
 2910 print".                  {CBM-P}{CBM-P}               .  "
 2920 print"  UCI          {SHIFT-*}DE{CBM-T}{CBM-H}{CBM-N}{CBM-T}ED{SHIFT-*}     .        "
 2930 print"  B{$a0}H    .   {CBM-@}{CBM-T}    {CBM-H}{CBM-N}    {CBM-T}{CBM-@}            "
 2940 print"  JFK              {CBM-H}{CBM-N}        W         "
 2950 print"    .       {CBM-T}      {CBM-H}{CBM-N}      {CBM-T}           "
 2960 print"           F       {CBM-H}{CBM-N}       F     .    "
 2970 print"        .          {CBM-H}{CBM-N}                  "
 2980 print"          D  {CBM-@}F{SHIFT-*}{SHIFT-*}R TY R{SHIFT-*}{SHIFT-*}F{CBM-@}  D        ."
 2990 print"   .     {SHIFT--} FEUCCCI{CBM-T}JK{CBM-T}UCCCIER {SHIFT--}        "
 3000 print"         {CBM-G}{SHIFT-*}  B   H {CBM-Q}{CBM-W} B   H  {SHIFT-*} {CBM-G}   UI  "
 3010 print"        {SHIFT--}{SHIFT-*}   JFFFK {CBM-Q}{CBM-W} JFFFK   {SHIFT-*}{SHIFT--}   JK  "
 3020 print".       {CBM-G}          {SHIFT--}{SHIFT--}           {CBM-G}      "
 3030 print"       {SHIFT--}        {CBM-@}RUCCIR{CBM-@}        {SHIFT--}      "
 3040 print"     . {CBM-G}{CBM-@}RF{SHIFT-*}CDE{CBM-T}  B  H  {CBM-T}EDC{SHIFT-*}FR{CBM-@} {CBM-G}   . "
 3050 print"      {SHIFT--} M        NJ{SHIFT-*}{SHIFT-*}KM        N {SHIFT--}     "
 3060 print"  W   {CBM-G}  M      N{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}M      N   {CBM-G}    "
 3070 print"     {SHIFT--}    M    N{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}M    N    {SHIFT--}    "
 3080 print"     {CBM-G}     M  N{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}M  N      {CBM-G}  ."
 3090 print"    {SHIFT--}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}PWO{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}PWO{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{SHIFT--}   "
 3100 print" .  {CBM-G}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-M}   "
 3110 print"   {SHIFT--}        M              N        {SHIFT--}  "
 3120 print"   L         G            Y         {SHIFT-@}  "
 3130 print"    {CBM-T}EDC{SHIFT-*}FR{CBM-@} {SHIFT--}            {SHIFT--} {CBM-@}RF{SHIFT-*}CDE{CBM-T}  ."
 3140 print"         .  {CBM-T}P{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}O{CBM-T}  .       {home}";:return
   10 goto40
   20 s=0::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   30 return
   40 clr:poke59468,12:pg$="krypto":nm$="29":goto60400
   45 " gary marsa
   50 " 320 terrace apt 2s
   55 " flushing, mi 48433
   65 "
   70 " cursor #29, feb, 1982
   75 " copyright(c)1982 the code works
   80 " box 550, goleta, ca. 93116
   85 "
   90 " as of 2-16-82 tz
  100 dimc$(52),sc$(53),n$(3),h$(3,5),hh(3,5),w(3),t(3):bp=1038:x=rnd(-ti)
  110 cu$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  115 t(1)=crt+9*wd+33:t(2)=crt+9*wd+35:t(3)=crt+9*wd+36:goto1040
  120 tu=0:ti$="000000":tl=ti+10000
  130 in$=" ":zt=ti:zc=2:zd$=chr$(20)
  140 getz$:ifz$<>""then200
  150 iftz=0then180
  160 fori=1to3:poket(i),val(mid$(ti$,i+3,1))+48:next
  170 ifti>=tlthenprint"{home}time's up!":tu=1:return
  180 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
  190 goto140
  200 z=asc(z$):zl=len(in$):if(zand127)<32orz=34thenprint" {left}";:goto240
  210 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
  220 ifzl>40then140
  230 in$=in$+z$:printz$;zd$;z$;
  240 ifz=13thenin$=mid$(in$,2):printcr$;:return
  250 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto140
  260 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto130
  270 goto140
  280 print"{clr}shuffling...":fori=1to52:c$(i)=right$(str$(int((i-1)/2)),2):next
  290 d=53:fori=1to52:d=d-1:x=int(d*rnd(1)+1):sc$(i)=c$(x):c$(x)=c$(d)
  300 next:return
  310 print"{clr}{down}{down}how many players (1-3)? ";:tz=0:gosub120
  320 np=val(in$):ifnp<1ornp>3then310
  340 fori=1tonp:print"{down}player #";chr$(48+i);"'s name ? ";
  350 tz=0:gosub120:ifin$=""theni=i-1:print"{up}{up}{up}":next
  355 n$(i)=in$:iflen(n$(i))>7thenn$(i)=left$(n$(i),7)
  360 next:return
  370 er=0:l=0:r=0:ls=len(s$):ifls<9thener$="{home}{rvon}error!{rvof}     ":er=1:return
  380 fort=1to5:hh(p,t)=0:next
  390 fort=1tols:m=asc(mid$(s$,t,1)):ifm=40thenl=l+1:goto440
  400 ifm=41thenr=r+1:goto440
  410 ifm=42orm=43orm=45then450
  420 ifm>46andm<58then450
  430 er$="{home}{rvon}illegal character: "+chr$(m)+"!":er=1:return
  440 ifr>lthen460
  450 nextt
  460 ifl<>rthener$="{home}{rvon}parentheses error!":er=1:return
  470 s9=asc(left$(s$,1)):ifs9=41ors9=42ors9=43ors9=45ors9=47then590
  480 fort=1tols-1:m=asc(mid$(s$,t,1)):m1=asc(mid$(s$,t+1,1))
  490 ifm=40and(m1=41orm1=43orm1=45orm1=42orm1=47)then590
  500 ifm=41and(m1=40or(m1>47andm1<58))then590
  510 ifm=43and(m1=41orm1=43orm1=45orm1=42orm1=47)then590
  520 ifm=45and(m1=41orm1=43orm1=45orm1=42orm1=47)then590
  530 ifm=42and(m1=41orm1=43orm1=45orm1=42orm1=47)then590
  540 ifm=47and(m1=41orm1=43orm1=45orm1=42orm1=47)then590
  550 if(m>47andm<58)andm1=40then590
  560 nextt
  570 s9=asc(right$(s$,1)):ifs9=40ors9=43ors9=45ors9=42ors9=47then590
  580 goto600
  590 er$="{home}{rvon}syntax error!":er=1:return
  600 nh=0:fort=1tols:m=asc(mid$(s$,t,1)):ifm<48then690
  610 v=m-48:ift>=lsthen660
  620 m1=asc(mid$(s$,t+1,1)):ifm1<48then640
  630 v=10*v+(m1-48):t=t+1
  640 ift>=lsthen660
  650 ifv>9andval(mid$(s$,t+1,1))>0then700
  660 foru=1to5:ifhh(p,u)then680
  670 ifv=val(h$(p,u))thennh=nh+1:hh(p,u)=-1:goto690
  680 nextu:goto700
  690 nextt:ifnh=5thenreturn
  700 er$="{home}{rvon}the"+str$(v)+" card is not in hand":er=1:return
  710 c=1:forj=1to5:fori=1tonp:h$(i,j)=sc$(c):c=c+1:next:next:return
  720 forj=1to5:print"{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{SHIFT--}";h$(i,j);"{SHIFT--}{down}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-X}{rght}{up}{up}";:next:return
  730 fori=1tonp:printleft$(cu$,9+4*i);tab(8-len(n$(i)))"{rvon}{down}"n$(i)"{rvof}{up}";
  740 printtab(9);:gosub720:ifnp=1thenprint:goto760
  750 print"{down}won{down}{left}{left}{left}";w(i)
  760 next:return
  770 print"{home}";:fora=1toln
  780 print"                                       ":next:return
  790 print"{clr}{down}{down}{down}{down}{down}{down}";:fori=1to39:print"{CBM-POUND}";:next
  800 fori=1to5+4*np:print"{down}{left}{CBM-+}";:next
  810 fori=1to37:print"{left}{left}{CBM-POUND}";:next:print"{left}{left}";
  820 fori=1to5+4*np:print"{CBM-+}{up}{left}";:next
  830 fori=1tonp:printleft$(cu$,8+4*i);"{rght}";
  840 print"{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}":next:return
  850 ta$="{CBM-D}{CBM-I}{CBM-I}{CBM-F}{down}{left}{left}{left}{left}{rvon}{CBM-K}"+sc$(c)+"{rvof}{CBM-K}{down}{left}{left}{left}{left}{CBM-C}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-V}":ta=val(sc$(c))
  860 tb$="{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{SHIFT--}"+sc$(c)+"{SHIFT--}{down}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-X}"
  870 print"{home}{down}{down}{down}{down}{down}{down}{down}";tab(14)"{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}{up}{up}{up}{up}";tab(26)"{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}{down}{left}{CBM-+}"
  880 printleft$(cu$,10);tab(2)"target";tab(16)"deck";tab(28)"time 0:00"
  890 fori=1to5:printleft$(cu$,9);tab(9)tb$:fort=1to200:next
  900 printleft$(cu$,9);tab(9)ta$:fort=1to200:nextt:nexti
  910 c=c+1:printleft$(cu$,9);tab(21);"{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{SHIFT--}";sc$(c);"{SHIFT--}{down}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-X}":return
  920 print"{home}{down}{down}{down}{down}discard which card?        {left}{left}{left}{left}{left}{left}{left}";:tz=0:gosub120:dc$=in$
  925 ifin$="0"thenprint"{up}{up}"cr$"                                      ":goto1080
  930 fort=1to5:ifval(h$(p,t))=val(dc$)thend=t:goto950
  940 next:goto920
  950 h$(p,d)=sc$(c):gosub910:gosub730:return
  960 pokebp+1,48:forx=2to73:pokebp+x,58:next:return
  970 gosub960:forx=1tolen(s$):m=asc(mid$(s$,x,1)):ifm=43thenm=170
  980 ifm=45thenm=171
  990 ifm=42thenm=172
 1000 ifm=47thenm=173
 1010 pokebp+x,m:next:return
 1020 forx=1to3:printer$:fory=1to750:next
 1030 print"{home}                          ":fory=1to250:next:next:return
 1040 fori=1tonp:w(i)=0:next:gosub310
 1050 gosub280:gosub710:gosub790:gosub730:gosub850
 1060 forp=1tonp:ln=6:gosub770
 1070 ifnp>1thenprint"{home}{down}{down}it's ";n$(p)"'s turn."
 1080 print"{home}{down}{down}{down}{down}your play? ";:tz=1:ifnp=1thentz=0
 1090 gosub120:iftuthenfordl=1to2000:next:goto1190
 1100 s$=in$:ifs$="c"thengosub920:goto1190
 1110 ifs$="q"then1220
 1120 print"{home}checking...":gosub370:iferthengosub1020:ln=5:gosub770:goto1070
 1130 ln=5:gosub770
 1140 print"{home}";s$;" =";:gosub970:gosub20:prints:ifs=tathen1170
 1150 print"{home}{down}{down}sorry, ";n$(p);", that's incorrect.
 1160 fordl=1to5000:next:goto1190
 1170 print"{home}{down}{down}you got it!"
 1180 print"congratulations, ";n$(p);"!":w(p)=w(p)+1:goto1200
 1190 nextp:goto1060
 1200 print"{down}want to play again? ";:tz=0:gosub120
 1210 ifin$=""orleft$(in$,1)="y"then1280
 1220 print"{clr}":ifnp=1then1270
 1230 forx=1tonp-1:fory=xtonp:ifw(x)>=w(y)then1250
 1240 t=w(x):t$=n$(x):w(x)=w(y):n$(x)=n$(y):w(y)=t:n$(y)=t$
 1250 next:next
 1260 print"{down}{down}final standings{down}{down}":fori=1tonp:printn$(i),w(i):print:next
 1270 gosub960:end
 1280 ifnp=1then1050
 1290 t$=n$(1):t=w(1):fori=2tonp
 1300 n$(i-1)=n$(i):w(i-1)=w(i):next:n$(np)=t$:w(np)=t:goto1050
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 ifwd=80thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(39);chr$(143);
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by gary marsa
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:next
 62030 print"{down}given the answer, find the problem!
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":cr$=chr$(13):goto100
   10 printchr$(142):poke224,0
   14 dimz$(6,5),t1(8,3),t2(2,3),n$(8),s(8),c(8)
   15 fora=1to6:forb=1to5:z$(a,b)=right$(str$(a),1):nextb,a
   20 fora=0to8:forb=0to3:readt1(a,b):nextb,a
   25 fora=0to2:forb=0to3:readt2(a,b):next:next
   30 data1,2,1,2,3,0,3,0,4,5,4,5,1,4,1,4,3,0,3,0,2,5,2,5
   31 data1,4,4,5,3,0,3,0,2,5,1,2
   35 data1,3,4,6,1,2,4,5,3,2,6,5
   40 a$=chr$(163):b$=chr$(164):c$=chr$(165):d$=chr$(167):e$=chr$(192)
   41 f$=chr$(238):g$=chr$(240):h$=chr$(223):i$=chr$(233):j$=chr$(250)
   50 print"{clr}                       {rvon} m a g i s c h e   k u b u s {rvof}"
   51 print"                     -------------------------------"
   55 print"                     <  een spel voor logica-fans  >"
   56 print"{home}{down}{down}{down}{down}{down}wenst u instructies ?    ";:gosub5000
   57 ifq$<>"j"andq$<>"n"then56
   58 ifq$="n"then180
   59 print"{home}{down}{down}{down}{down}"
   60 print"we vertrekken vanuit een kubus, per vlakverdeeld in 3 horizontale ";
   65 print"en 3 vertikalestroken. 5 van de negen aldus ontstane vierkanten ";
   70 print"dragen het nummer van het vlakwaartoe ze behoren"
   80 print"{down}  "b$;b$"  1 = voorvlak         U"e$"I  4 = achtervlak"
   85 print" N2NG 2 = bovenvlak       NG4H  5 = ondervlak"
   90 print"U"e$"I3G 3{$a0}={$a0}zijvlak        H6J"e$"K  6 = zijvlak"
   95 print"G1HN      rechts         HN5N       links"
  100 print"J"e$"K                       "a$a$
  105 print"{down}elke horizontale en vertikale strook kan een kwartdraai ";
  110 print"maken onafhankelijk van de andere stroken in dat vlak."
  115 print"door op een willekeurige wijze stroken te verdraaien verbreekt men";
  120 print" het logische patroon van de kubus.":print"dit spel is er dan ook ";
  125 print"om via het weldoordacht verdraaien van de stroken weer delogische";
  130 print" nummering te krijgen, waarmee men begonnen is "spc(220)
  135 gosub5000
  140 print"{clr}{down}{down}"
  145 print"in de normale logische vorm ziet de kubus er als volgt uit:"
  150 gosub6000
  155 print"{down}de letters a tot i stellen de 9 mogelijke draaiassen voor."
  160 print"door een negatieve draaizin op te geven kan men tegen de richting ";
  165 print"van de pijlen in draaien. kun je er niet meer uitkomen, dan kun ";
  166 print"je het spel verlaten via de    -*- toets, waardoor men echter wel ";
  167 print"strafpunten krijgt   ";
  170 gosub5000
  180 print"{clr}                       {rvon} m a g i s c h e   k u b u s {rvof}"
  181 print"                     -------------------------------"
  185 print"{down}{down}aantal spelers ? (maximaal 9)      ";
  190 gosub5000:ifasc(q$)<49orasc(q$)>57then190
  195 print"{left}"val(q$):n=val(q$)-1
  200 print"{down}{down}{down}":fora=0ton
  205 print"naam speler"a+1"  ";:inputn$(a)
  210 next
  245 r=1:v=1:tv=1
  250 print"{clr}                       {rvon} m a g i s c h e   k u b u s {rvof}"
  251 print"                     -------------------------------"
  255 print"{down}{down}{down}{down}spelronde "r
  260 print"{down}{down}{down}{down}de kubus wordt in deze ronde "v" maal verdraaid"
  265 fora=1to500:next
  266 fornn=oton
  269 fora=oto8:c(a)=o:next
  270 fora=1tov:f=0:s1=int(rnd(ti)*8)
  280 forb=1tornd(ti)*100:next
  290 ifrnd(ti)>.5thenf=2
  300 gosub7010
  310 next
  320 print"{clr}                       {rvon} m a g i s c h e   k u b u s {rvof}"
  321 print"                     -------------------------------"
  325 print"{rvon}   "n$(nn)"   {rvof} speelt"
  326 p=0:f=0
  330 gosub6000
  350 print"{down}aantal pogingen: "p
  360 print"{down}gelieve keuze rotatie in te typen      {left}{left}";
  370 gosub5000
  375 ifq$="*"then800
  380 ifq$="-"andf=2thenprint"{left}";:f=0:goto370
  390 ifq$="-"thenprint"{left}- ";:f=2:goto370
  400 ifasc(q$)<65orasc(q$)>73then370
  405 print"{left}"q$
  410 gosub7000:gosub6000:p=p+1
  420 print"{down}aantal pogingen: "p
  425 f=1
  430 fora=1to6:forb=1to5
  440 ifz$(a,b)<>right$(str$(a),1)thenf=0
  450 nextb,a
  460 onf+1goto360,470
  470 print"{down}{rvon}logische vorm kubus bereikt{rvof}               "chr$(7)
  480 s(nn)=s(nn)+p
  490 nextnn:fora=1to3000:next
  500 print"{clr}                       {rvon} m a g i s c h e   k u b u s {rvof}"
  501 print"                     -------------------------------"
  510 print"scoretabel{down}{down}"
  520 fora=1to53:print"-";:next:print
  525 print"T naam speler                TscoreY waardering     Y"
  530 fora=1to53:print"-";:next:print
  540 fora=oton
  545 print"T"a+1"."n$(a);tab(29)"T"s(a);tab(35)"Y ";
  550 ifs(a)<=tvthenprint"zeer goed";:goto600
  555 ifs(a)<=2*tvthenprint"goed";:goto600
  560 ifs(a)<=5*tvthenprint"voldoende";:goto600
  570 ifs(a)<=10*tvthenprint"slecht";:goto600
  580 print"gezakt";
  600 printtab(52)"Y"
  610 next
  620 fora=1to53:print"-";:next:print
  630 print"{down}{down}nog een rondje ? ":print
  640 gosub5000:ifq$<>"j"andq$<>"n"then640
  650 ifq$="j"then700
  690 end
  700 v=v+2
  705 r=r+1
  710 tv=tv+v
  720 fora=1to6:forb=1to5
  725 z$(a,b)=right$(str$(a),1)
  730 nextb,a
  735 goto250
  800 print"{left}"q$
  801 ifp<vthenprint"{up}je bent zeker de leukste thuis ?   {up}{up}":goto825
  802 ifp<2*vthenprint"{up}noem jij dat proberen ? ik niet !  {up}{up}":goto825
  803 ifp<3*vthenprint"{up}-*- nog niet geaccepteerd ! sorry! {up}{up}":goto825
  805 ifp<4*vthenprint"{up}-*- werkt pas na poging "str$(4*v+1)" !       {up}{up}":goto825
  809 print"{up}sorry dat je er niet bent uitgekomen       "
  810 print"je krijgt nog eens "p" strafpunten  "
  815 p=p+2
  820 goto480
  825 fora=1to3000:next:goto360
 5000 t=ti
 5005 getq$:ifq$<>""then return
 5010 ifti-t>60thent=ti
 5015 ifti-t>30thenprint"{left}{rvon}"chr$(191)"{rvof}";:goto5005
 5020 print"{left}"chr$(191);:goto5005
 6000 print"{home}{down}{down}{down}{down}{down}"spc(22)"i d e f"
 6001 printspc(6);:forx=1to6:printb$;:nextx:printspc(9)"hv v v v"
 6005 print"     N"z$(2,1)"{rvon}"i$" {rvof}"i$;z$(2,2)"N"c$;spc(7)"gv "b$;b$;b$;b$;b$;b$
 6010 print"    {rvon}"i$" {rvof}"i$;z$(2,3)"{rvon}"i$"  {rvof}"z$(3,2);c$;spc(7)"v N"c$;z$(4,1);
 6011 print"{rvon}  {rvof} "z$(4,2);c$
 6015 print"   N"z$(2,4)"{rvon}"i$" {rvof}"i$;z$(2,5)"N{rvon} "i$"{rvof}"c$;spc(8)"{rvon}"i$"{rvof}"z$(6,2);
 6016 printc$;" {rvon}  {rvof}  "c$"  <a"
 6020 print"a>"d$;a$;a$;"{rvon}  {rvof}";a$;"P"z$(3,1);i$;"{rvon} {rvof}"c$;spc(7)"N{rvon} "i$"  {rvof}";
 6021 print" "z$(4,3)"{rvon}  {rvof}"c$
 6025 print"  "d$;z$(1,1)" {rvon}  {rvof}"z$(1,2);d$;"{rvon}"i$"{rvof}"z$(3,3);i$;c$;spc(6);
 6026 printd$;z$(6,1);i$;"{rvon}   {rvof}  {rvon}  {rvof}"c$;"  <b"
 6030 print"b>"d$"{rvon}  {rvof}  {rvon}   "i$"{rvof}"z$(3,5);c$;spc(6);d$"{rvon}"i$"{rvof}"z$(6,3);i$;c$;
 6031 printz$(4,4)"{rvon}  {rvof} "z$(4,5);c$
 6035 print"  "d$"{rvon}  {rvof}"z$(1,3)" {rvon}  {rvof}"i$"{rvon} {rvof}N"spc(7);d$"{rvon} "i$"{rvof}"z$(6,5);b$;b$;
 6036 print"{rvon}  {rvof}"b$;b$;c$"  <c"
 6040 print"c>"d$"  {rvon}  {rvof} "d$;z$(3,4);i$;spc(8);d$;i$"{rvon} {rvof}N"z$(5,1)"{rvon}"i$" {rvof}";
 6041 printi$;z$(5,2)"N"
 6045 print"  "d$;z$(1,4)" {rvon}  {rvof}"z$(1,5);d$"N ^"spc(7);d$;z$(6,4)"{rvon}  {rvof}"i$;
 6046 printz$(5,3)"{rvon}"i$" {rvof}"i$
 6050 print"   "a$;a$;a$;a$;a$;a$;" ^i"spc(7);d$"N"z$(5,4)"{rvon}"i$" {rvof}"i$;
 6051 printz$(5,5)"N"
 6055 print"   ^ ^ ^ ^h  "spc(7);a$;a$;a$;a$;a$;a$
 6060 print"   d e f g "
 6065 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(45)"  "b$;b$"        U"e$"I"
 6070 printtab(45)" N2NG      NG4H"
 6075 printtab(45)"U"e$"I3G     H6J"e$"K"
 6080 printtab(45)"G1HN      HN5N"
 6085 printtab(45)"J"e$"K        "a$a$
 6086 print"{down}{down}{down}"
 6090 return
 7000 s1=asc(q$)-65
 7010 c(s1)=c(s1)+1
 7020 iff=2thenc(s1)=c(s1)-f
 7025 s2=int(s1/3)
 7030 forb=2tofstep-1
 7040 forc=0to1
 7050 ift1(s1,c)=0then7090
 7060 x$=z$(t2(s2,0),t1(s1,c))
 7070 z$(t2(s2,0),t1(s1,c))=z$(t2(s2,1),t1(s1,c+2))
 7075 z$(t2(s2,1),t1(s1,c+2))=z$(t2(s2,2),t1(s1,c))
 7080 z$(t2(s2,2),t1(s1,c))=z$(t2(s2,3),t1(s1,c+2))
 7085 z$(t2(s2,3),t1(s1,c+2))=x$
 7090 nextc,b
 7150 return
    0 goto1000
    1 rem labyrinth
    2 :
    3 rem author unknown         april 83         source commodore canada
    4 :
    5 rem find your way through a labyrinth       good graphics
    6 :
    7 rem pet 16k
    8 :
    9 rem modified for softswap by j lewis
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063        (415)363-5472{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use only and    {SHIFT--}
   24 rem"{SHIFT--} are not to be sold.         {SHIFT--}
   25 rem"{SHIFT--} copyright 1983    cue inc.  {SHIFT--}
   26 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   30 rem"{CBM-I}{CBM-I}{CBM-I}input routine
   32 deffnz(z)=peek(196)+256*peek(197)+peek(198):poke158,0:zz$="":poke167,0
   34 getz$:ifz$=""orz$="{clr}"orz$="{home}"orz$="{down}"orz$="{up}"orz$="{rght}"orz$="{left}"orz$="{inst}"then34
   36 ifz$=chr$(13)thenpoke167,1:pokefnz(z),32:z$=zz$:print:goto44
   38 if(zz$=""andz$=chr$(20))then32
   40 ifzcandlen(zz$)>zc-1thengosub46:goto32
   42 zz$=zz$+z$:zz$=left$(zz$,len(zz$)+(chr$(20)=z$)*2):printz$;:goto34
   44 zc=0:return
   46 forzx=1tozc:printchr$(20);:next:return
   50 rem"{CBM-I}{CBM-I}{CBM-I}get routine
   52 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$=""then52
   54 ifzc$<>""thenforzx=1tolen(zc$):zf=zf+zx*-(z$=mid$(zc$,zx,1)):next:ifzf=0then52
   56 zc$="":zf=0:return
   60 rem"{CBM-I}{CBM-I}{CBM-I}continue routine
   61 getz$:printmid$(" {left}*{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$<>chr$(13)then61
   62 return
 1000 print"{clr}{down}{down}{down}{down}{down}          {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 1001 print"          {SHIFT--}                   {SHIFT--}"
 1002 print"          {SHIFT--} l a b y r i n t h {SHIFT--}"
 1003 print"          {SHIFT--}                   {SHIFT--}"
 1004 print"          {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 1006 zb$="20>:??:9??8=9;004<31>6":zb=813:sk=230:ifpeek(50003)=1then1008
 1007 zb$="20>:??:9??8=9;004<58>4":zb=852:sk=228
 1008 forza=1to11:pokeza+zb,asc(mid$(zb$,za*2-1))*16+asc(mid$(zb$,za*2))-816
 1009 nextza:poke145,3
 1100 dima(19,12),b(19,12):k=1:l=2:n=3
 2000 poke59468,12
 2030 g=rnd(ti)
 2070 a$(1)="North":a$(2)="East":a$(3)="South":a$(4)="West"
 2080 w$="{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}"
 2140 rem
 2160 rem clear maze array
 2170 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2180 m1=0:fori=0to19:forj=0to10:a(i,j)=0:b(i,j)=0:nextj,i:print"{clr}{down}{down}{down}{down}{down}"
 2190 print"{clr}":gosub9100
 2195 print"{home}{down}type width of the labyrinth (2-19)?     {left}{left}{left}{left}";:zc=2:gosub30:ur$=z$
 2196 ifz$="*"then9500
 2200 h=val(ur$):ifh<lorh>19then2195
 2205 print
 2210 print"type depth of the labyrinth (1-11)?     {left}{left}{left}{left}";:zc=2:gosub30:ur$=z$
 2211 ifz$="*"then9500
 2220 v=val(ur$):ifv=0orv>11thenprint"{up}{up}";:goto2210
 2230 print"{clr}{down}now creating a"h"V"v"labyrinth"
 2240 a=h*v+k
 2250 q=0:g=0:x=int(h*rnd(h))+k
 2260 rem save maze entry point
 2270 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2280 aa=x
 2290 a(x,0)=k:c=l
 2300 r=x:s=k:goto2390
 2310 rem start of maze build routine
 2320 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2330 ifr<>hgoto2370
 2340 ifs<>vgoto2360
 2350 r=k:s=k:goto2380
 2360 r=k:s=s+k:goto2380
 2370 r=r+k
 2380 ifa(r,s-k)=0goto2330
 2390 ifr-k=0goto2830
 2400 ifa(r-k,s-k)goto2830
 2410 ifs-k=0goto2610
 2420 ifa(r,s-l)goto2610
 2430 ifr=hgoto2490
 2440 ifa(r+k,s-k)goto2490
 2450 rem left/down/right
 2460 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2470 x=int(3*rnd(1))+k
 2480 onxgoto3240,3300,3360
 2490 ifs<>vgoto2520
 2500 ifg=kgoto2590
 2510 q=k:goto2550
 2520 ifa(r,s)goto2590
 2530 rem left/down/up
 2540 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2550 x=int(3*rnd(1))+k
 2560 onxgoto3240,3300,3450
 2570 rem left/down
 2580 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2590 x=int(2*rnd(1))+k
 2600 goto2560
 2610 ifr=hgoto2750
 2620 ifa(r+k,s-k)goto2750
 2630 ifs<>vgoto2660
 2640 ifg=kgoto2730
 2650 q=k:goto2690
 2660 ifa(r,s)goto2730
 2670 rem left/right/up
 2680 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2690 x=int(3*rnd(1))+k
 2700 onxgoto3240,3360,3450
 2710 rem left/right
 2720 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2730 x=int(2*rnd(1))+k
 2740 goto2700
 2750 ifs<>vgoto2780
 2760 ifg=kgoto3240
 2770 q=k:goto2810
 2780 ifa(r,s)goto3240
 2790 rem left/up
 2800 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2810 x=int(2*rnd(1))+k
 2820 onxgoto3240,3450
 2830 ifs-k=0goto3070
 2840 ifa(r,s-l)goto3070
 2850 ifr=hgoto2990
 2860 ifa(r+k,s-k)goto2990
 2870 ifs<>vgoto2900
 2880 ifg=kgoto2970
 2890 q=k:goto2930
 2900 ifa(r,s)goto2970
 2910 rem down/right/up
 2920 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2930 x=int(3*rnd(1))+k
 2940 onxgoto3300,3360,3450
 2950 rem down/right
 2960 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 2970 x=int(2*rnd(1))+k
 2980 goto2940
 2990 ifs<>vgoto3020
 3000 ifg=kgoto3300
 3010 q=k:goto3050
 3020 ifa(r,s)goto3300
 3030 rem down/up
 3040 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3050 x=int(2*rnd(1))+k
 3060 onxgoto3300,3450
 3070 ifr=hgoto3170
 3080 ifa(r+k,s-k)goto3170
 3090 ifs<>vgoto3120
 3100 ifg=kgoto3360
 3110 q=k:goto3150
 3120 ifa(r,s)goto3360
 3130 rem right/up
 3140 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3150 x=int(2*rnd(1))+k
 3160 onxgoto3360,3450
 3170 ifs<>vgoto3200
 3180 ifg=kgoto2330
 3190 q=k:goto3210
 3200 ifa(r,s)goto2330
 3210 goto3450
 3220 rem left
 3230 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3240 a(r-k,s-k)=c
 3250 c=c+k:b(r-k,s-k)=l:r=r-k
 3260 ifc=agoto3590
 3270 q=0:goto2390
 3280 rem down
 3290 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3300 a(r,s-l)=c
 3310 c=c+k
 3320 b(r,s-l)=k:s=s-k:ifc=agoto3590
 3330 q=0:goto2390
 3340 rem right
 3350 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3360 a(r+k,s-k)=c
 3370 c=c+k:ifb(r,s-k)=0goto3390
 3380 b(r,s-k)=n:goto3400
 3390 b(r,s-k)=l
 3400 r=r+k
 3410 ifc=agoto3590
 3420 goto2830
 3430 rem up
 3440 rem"{CBM-U}{CBM-U}
 3450 ifq=kgoto3530
 3460 a(r,s)=c:c=c+k:ifb(r,s-k)=0goto3480
 3470 b(r,s-k)=n:goto3490
 3480 b(r,s-k)=k
 3490 s=s+k:ifc=agoto3590
 3500 goto2390
 3510 rem exit at top of screen
 3520 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3530 g=k
 3540 ifb(r,s-k)=0goto3560
 3550 b(r,s-k)=n:q=0:goto2330
 3560 b(r,s-k)=k:q=0:r=k:s=k:goto2380
 3570 rem make exit if not there
 3580 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3590 ifg<>kthenx=int(h*rnd(k))+k:b(x,v-k)=b(x,v-k)+k
 3600 rem end of maze build
 3610 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3620 print"{clr}":gosub9100
 3625 print"{home}{down}do you want to see the labryinth? (y/n)";:zc$="yn*":gosub50:g$=z$
 3626 ifg$="n"thenx=ti:goto4010
 3627 ifg$="*"then9500
 3630 print"{clr}{down}you have"h+v"seconds to look at it!":gosub4620
 3640 gosub3650:poke33266-h+40*v+l*aa,30:goto4000
 3650 m1=k:print"{clr}{down}";
 3660 g$="":ifh<>19thenfori=kto19-h:g$=g$+"{rght}":next
 3670 ifv<>11thenfori=kto11-v:print"{down}";:next
 3680 rem 2d display routine
 3690 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3700 forj=vto1step-k
 3710 printg$;:fori=ktoh
 3720 ifb(i,j-k)=0goto3780
 3730 ifb(i,j-k)=lgoto3780
 3740 rem print top of cells
 3750 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3760 print"{SHIFT-+} ";
 3770 goto3790
 3780 print"{SHIFT-+}{SHIFT-*}";
 3790 nexti
 3800 print"{SHIFT-+}"
 3810 printg$;:print"{SHIFT--}";
 3820 fori=ktoh
 3830 ifb(i,j-k)<lgoto3880
 3840 rem print sides of cells
 3850 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3860 print"  ";
 3870 goto3890
 3880 print" {SHIFT--}";
 3890 nexti
 3900 print
 3910 nextj
 3920 printg$;:fori=ktoh
 3930 ifi=aagoto3970
 3940 rem print bottom of maze
 3950 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 3960 print"{SHIFT-+}{SHIFT-*}";:goto3980
 3970 print"{SHIFT-+} ";
 3980 nexti
 3990 print"{SHIFT-+}":return
 4000 x=ti+(h+v)*60
 4010 rem translate routine
 4020 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4030 rem fori=1toh:forj=0tov-1
 4040 rem a(i,j)=(3-b(i,j))*2
 4050 rem nextj,i
 4060 w=aa
 4070 rem complete cell information
 4080 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4090 forj=0tov-k
 4100 fori=ktoh
 4110 ifjgoto4140
 4120 ifi=wthena(i,j)=(3-b(i,j))*l:goto4160
 4130 m=k:goto4150
 4140 m=(a(i,j-k)and2)/l
 4150 a(i,j)=(3-b(i,j))*l+m*8
 4160 ifi=kthenm=k:goto4180
 4170 m=(a(i-k,j)and4)/4
 4180 a(i,j)=a(i,j)+m
 4190 nexti
 4200 nextj
 4210 rem set up start params
 4220 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4230 ifx>tigoto4230
 4250 x=w:y=0:g=k:el=k:er=k
 4260 goto5370
 4350 rem help routine
 4360 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4370 print"{clr}":poke59468,14:gosub3650
 4375 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}You are here {CBM-+}, facing "a$(g);
 4380 poke33306-h+40*v+l*x-80*y,102
 4390 rem get instructions
 4400 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4410 ify>vgoto8100
 4411 ifpeek(59468)=14thenprint"{home}Command: ";:goto4430
 4415 ifpeek(59468)=14thengosub9000:print"{home}Command: ";:goto4430
 4420 gosub9000:print"{home}command:   {left}{left}";
 4430 zc$="rlfhq":gosub50:g$=z$
 4440 ifg$="q"then9500
 4450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}         ";
 4460 ifg$="l"goto4530
 4470 ifg$="r"goto4570
 4480 ifg$="f"goto5300
 4490 ifg$="h"goto4370
 4500 goto4440
 4510 rem left turn
 4520 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4530 g=g-k:ifg<ktheng=g+4
 4540 goto5370
 4550 rem right turn
 4560 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4570 g=g+k:ifg>4theng=g-4
 4580 goto5370
 4590 return
 4600 rem pause
 4610 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4620 i=ti+200
 4630 ifi>tigoto4630
 4640 return
 4650 rem rotate lh cell and look
 4660 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4670 ifg=kthena1=a-k:b1=b-k:goto4720
 4680 ifg=landb<vthena1=a:b1=b:goto4720
 4690 ifg=nthena1=a+k:b1=b-k:goto4720
 4700 ifg=4andb>kthena1=a:b1=b-l:goto4720
 4710 el=k:return
 4720 f=a(a1,b1):ifg=kgoto4740
 4730 fori=ltog:f=(fand14)/l+(fand1)*8:next
 4740 el=(fand2)/l:return
 4750 rem rotate rh cell and look
 4760 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4770 ifg=kthena1=a+k:b1=b-k:goto4820
 4780 ifg=landb>kthena1=a:b1=b-l:goto4820
 4790 ifg=nthena1=a-k:b1=b-k:goto4820
 4800 ifg=4andb<vthena1=a:b1=b:goto4820
 4810 er=k:return
 4820 f=a(a1,b1):ifg=kgoto4840
 4830 fori=ltog:f=(fand14)/l+(fandk)*8:next
 4840 er=(fand2)/l:return
 4850 rem rotate and look routine
 4860 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4870 ifb=0goto4970
 4880 ifb>vthene=n:return
 4890 f=a(a,b-k):ifg=kgoto4910
 4900 fori=ltog:f=(fand14)/l+(fand1)*8:next
 4910 c=fandk:d=(fand4)/4:e=(fand2)/l
 4920 ifc=0thengosub4650
 4930 ifd=0thengosub4750
 4940 return
 4950 rem side maze
 4960 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 4970 c=0:d=0:e=-k
 4980 ifg<>kgoto5040
 4990 e=k
 5000 ifa=wthene=0
 5010 return
 5020 rem no man's land
 5030 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5040 ifg=nthene=l:return
 5050 ifg=landa=hthene=l:return
 5060 ifg=4anda=kthene=l:return
 5070 return
 5080 rem index to next cell
 5090 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5100 ife>0goto5180
 5110 ifg=kthenb=b+k:return
 5120 ifg=lthena=a+k:return
 5130 ifg=nthenb=b-k:return
 5140 ifg=4thena=a-k:return
 5150 rem message routine
 5160 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5170 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:return
 5180 ife=0goto5230
 5190 gosub5170:print"you'll hit the wall"
 5200 gosub5170:ifc=0andd=0andbthenprint"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}turn":goto5260
 5210 ifc=kor(b=0anda<w)thenprint"{down}{down}{rght}{rght}{rght}{rght}turn right":goto5260
 5220 print"{down}{down}{rght}{rght}{rght}{rght}{rght}turn left":goto5260
 5230 gosub8220:print"{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*    no     *
 5240 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*   man's   *
 5250 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*   land    *
 5260 s=k
 5270 return
 5280 rem forward routine
 5290 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5300 a=x:b=y
 5310 gosub4870
 5320 gosub5100
 5330 x=a:y=b
 5340 ife>0goto4410
 5350 rem 3d display routine
 5360 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5370 a=x:b=y
 5380 gosub4870
 5390 rem 5 depths
 5400 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5410 fort=kto5
 5420 gosub5570
 5430 rem check for next depth
 5440 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5450 ifethent=5:goto5490
 5460 gosub5100
 5470 gosub4870
 5480 ife>kthent=5:goto5490
 5490 nextt
 5500 ifx=wandy=0andg=kthengosub8270:print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*  way  in  *":goto5540
 5510 ifx<>wandy=0andg=kthengosub5170:print"{up}{up}{up}{up}{rght}{rght}{rght}external wall":goto5530
 5520 goto5540
 5530 gosub5170:print"{up}{up}{rght}{rght}you're outside!
 5540 goto4410
 5550 rem jump to display depth
 5560 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5570 ontgoto5580,6030,6660,7270,7820
 5580 rem display depth 1
 5590 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 5600 poke59468,12:print"{clr}";
 5610 ife>lthenreturn
 5620 ife<0ore>kthengosub5230:return
 5630 fori=kto21:ifc=kthenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-M}";:goto5690
 5640 ify=0thenprint"{rght}"mid$(w$,(iandk)+k,8);:goto5690
 5650 ifel=kthenprint"{rght}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";:goto5690
 5660 ifi=lthenprint"{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-+}";:goto5690
 5670 ifi<18thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-+}";:goto5690
 5680 print"{rght}{rvon}       {rvof}{CBM-+}";
 5690 ife=0thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto5720
 5700 ify=0thenprintmid$(w$,(iandk)+k,22);:goto5720
 5710 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 5720 ifd=kthenprint"{CBM-G}":goto5780
 5730 ify=0thenprintmid$(w$,(iandk)+k,8):goto5780
 5740 ifer=kthenprint"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":goto5780
 5750 ifi=lthenprint"{CBM-+}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":goto5780
 5760 ifi<18thenprint"{CBM-+}":goto5780
 5770 print"{CBM-+}{rvon}       "
 5780 next
 5790 fori=kton:ifc=kor(x=wandy=0)goto5850
 5800 onigoto5810,5830,5840
 5810 ifel=0thenprint"{rght}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}N";:goto5890
 5820 print"{rght}{rvon}       N";:goto5890
 5830 print"{rght}{rvon}      N ";:goto5900
 5840 print"{rght}{rvon}     N  ";:goto5900
 5850 onigoto5860,5870,5880
 5860 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}";:goto5890
 5870 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND} ";:goto5900
 5880 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  ";:goto5900
 5890 ife=0thenprint"{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:goto5910
 5900 print"{rvon}                      ";
 5910 ifd=kor(x=wandy=0)goto5970
 5920 onigoto5930,5950,5960
 5930 ifer=0thenprint"{rvon}M{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto6010
 5940 print"{rvon}M       ":goto6010
 5950 print"{rvon} M      ":goto6010
 5960 print"{rvon}  M     ":goto6010
 5970 onigoto5980,5990,6000
 5980 print"{rvon}{CBM-*}":goto6010
 5990 print"{rvon} {CBM-*}":goto6010
 6000 print"{rvon}  {CBM-*}"
 6010 nexti
 6020 return
 6030 rem display depth 2
 6040 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 6050 print"{home}";:g$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 6060 fori=ktol:printg$;:ifc=0goto6100
 6070 onigoto6080,6090
 6080 print"{rght}{rght}M{rght}";:goto6140
 6090 print"{rght}{rght}{rght}M";:goto6140
 6100 onigoto6110,6120
 6110 print"{rght}{rght}{rght}{rght}";:goto6140
 6120 ifel=kthenprint"{CBM-@}{CBM-@}{CBM-@}{CBM-@}";:goto6140
 6130 print"{rght}{rght}{rght}{CBM-@}";
 6140 ife=0ori=kthenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto6160
 6150 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
 6160 ifd=0goto6200
 6170 onigoto6180,6190
 6180 print"{rght}N":goto6240
 6190 print"N":goto6240
 6200 onigoto6210,6220
 6210 print:goto6240
 6220 ifer=kthenprint"{CBM-@}{CBM-@}{CBM-@}{CBM-@}":goto6240
 6230 print"{CBM-@}"
 6240 next
 6250 fori=kto15:printg$;:ifc=kthenprint"{rght}{rght}{rght}{CBM-M}";:goto6300
 6260 ifel=kthenprint"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}";:goto6300
 6270 ifi=nthenprint"{CBM-@}{CBM-@}{CBM-@}{rvon}{CBM-+}{rvof}";:goto6300
 6280 ifi>12thenprint"{rvon}   {CBM-+}{rvof}";:goto6300
 6290 print"   {rvon}{CBM-+}{rvof}";
 6300 ife=0thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto6320
 6310 print"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}";
 6320 ifd=kthenprint"{CBM-G}":goto6370
 6330 ifer=kthenprint"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":goto6370
 6340 ifi=nthenprint"{rvon}{CBM-+}{rvof}{CBM-@}{CBM-@}{CBM-@}":goto6370
 6350 ifi>12thenprint"{rvon}{CBM-+}   ":goto6370
 6360 print"{rvon}{CBM-+}"
 6370 next
 6380 fori=kto4:printg$;:ifc=kgoto6450
 6390 onigoto6400,6420,6430,6440
 6400 ifel=0thenprint"{rvon}{CBM-T}{CBM-T}{CBM-T}N";:goto6500
 6410 print"{rvon}   N";:goto6500
 6420 print"{rvon}  N ";:goto6510
 6430 print"{rvon} N  ";:goto6510
 6440 print"{rvon}N   ";:goto6510
 6450 onigoto6460,6470,6480,6490
 6460 print"{rght}{rght}{rght}{rvon}{SHIFT-POUND}";:goto6500
 6470 print"{rght}{rght}{rvon}{SHIFT-POUND} ";:goto6510
 6480 print"{rght}{rvon}{SHIFT-POUND}  ";:goto6510
 6490 print"{rvon}{SHIFT-POUND}   ";:goto6510
 6500 ife=0thenprint"{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:goto6520
 6510 print"{rvon}              ";
 6520 ifd=kgoto6590
 6530 onigoto6540,6560,6570,6580
 6540 ifer=0thenprint"{rvon}M{CBM-T}{CBM-T}{CBM-T}":goto6640
 6550 print"{rvon}M   ":goto6640
 6560 print"{rvon} M  ":goto6640
 6570 print"{rvon}  M ":goto6640
 6580 print"{rvon}   M":goto6640
 6590 onigoto6600,6610,6620,6630
 6600 print"{rvon}{CBM-*}":goto6640
 6610 print"{rvon} {CBM-*}":goto6640
 6620 print"{rvon}  {CBM-*}":goto6640
 6630 print"{rvon}   {CBM-*}"
 6640 nexti
 6650 return
 6660 rem display depth 3
 6670 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 6680 print"{home}{down}{down}";:g$=g$+"{rght}{rght}{rght}{rght}"
 6690 fori=kton:printg$;:ifc=0goto6740
 6700 onigoto6710,6720,6730
 6710 print"M{rght}{rght}";:goto6780
 6720 print"{rght}M{rght}";:goto6780
 6730 print"{rght}{rght}M";:goto6780
 6740 onigoto6750,6750,6760
 6750 print"{rght}{rght}{rght}";:goto6780
 6760 ifel=kthenprint"{CBM-@}{CBM-@}{CBM-@}";:goto6780
 6770 print"{rght}{rght}{CBM-@}";
 6780 ife=0ori<=lthenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto6800
 6790 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
 6800 ifd=0goto6850
 6810 onigoto6820,6830,6840
 6820 print"{rght}{rght}N":goto6890
 6830 print"{rght}N":goto6890
 6840 print"N":goto6890
 6850 onigoto6860,6860,6870
 6860 print:goto6890
 6870 ifer=kthenprint"{CBM-@}{CBM-@}{CBM-@}":goto6890
 6880 print"{CBM-@}"
 6890 next
 6900 fori=kto9:printg$;:ifc=kthenprint"{rght}{rght}{CBM-M}";:goto6950
 6910 ifel=kthenprint"{CBM-+}{CBM-+}{CBM-+}";:goto6950
 6920 ifi=lthenprint"{CBM-@}{CBM-@}{CBM-+}";:goto6950
 6930 ifi>7thenprint"{rvon}  {rvof}{CBM-+}";:goto6950
 6940 print"  {CBM-+}";
 6950 ife=0thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:goto6970
 6960 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 6970 ifd=kthenprint"{CBM-G}":goto7020
 6980 ifer=kthenprint"{CBM-+}{CBM-+}{CBM-+}":goto7020
 6990 ifi=lthenprint"{CBM-+}{CBM-@}{CBM-@}":goto7020
 7000 ifi>7thenprint"{CBM-+}{rvon}  {rvof}":goto7020
 7010 print"{CBM-+}"
 7020 next
 7030 fori=kton:printg$;:ifc=kgoto7090
 7040 onigoto7050,7070,7080
 7050 ifel=0thenprint"{rvon}{CBM-T}{CBM-T}N";:goto7130
 7060 print"{rvon}  N";:goto7130
 7070 print"{rvon} N ";:goto7140
 7080 print"{rvon}N  ";:goto7140
 7090 onigoto7100,7110,7120
 7100 print"{rght}{rght}{rvon}{SHIFT-POUND}";:goto7130
 7110 print"{rght}{rvon}{SHIFT-POUND} ";:goto7140
 7120 print"{rvon}{SHIFT-POUND}  ";:goto7140
 7130 ife=0thenprint"{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:goto7150
 7140 print"{rvon}        ";
 7150 ifd=kgoto7210
 7160 onigoto7170,7190,7200
 7170 ifer=0thenprint"{rvon}M{CBM-T}{CBM-T}":goto7250
 7180 print"{rvon}M  ":goto7250
 7190 print"{rvon} M ":goto7250
 7200 print"{rvon}  M":goto7250
 7210 onigoto7220,7230,7240
 7220 print"{rvon}{CBM-*}":goto7250
 7230 print"{rvon} {CBM-*}":goto7250
 7240 print"{rvon}  {CBM-*}"
 7250 nexti
 7260 return
 7270 rem display depth 4
 7280 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 7290 print"{home}{down}{down}{down}{down}{down}";:g$=g$+"{rght}{rght}{rght}"
 7300 fori=ktol:printg$;:ifc=0goto7340
 7310 onigoto7320,7330
 7320 print"M{rght}";:goto7380
 7330 print"{rght}M";:goto7380
 7340 onigoto7350,7360
 7350 print"{rght}{rght}";:goto7380
 7360 ifel=kthenprint"{CBM-@}{CBM-@}";:goto7380
 7370 print"{rght}{CBM-@}";
 7380 ife=0ori=kthenprint"{rght}{rght}{rght}{rght}";:goto7400
 7390 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
 7400 ifd=0goto7440
 7410 onigoto7420,7430
 7420 print"{rght}N":goto7480
 7430 print"N":goto7480
 7440 onigoto7450,7460
 7450 print:goto7480
 7460 ifer=kthenprint"{CBM-@}{CBM-@}":goto7480
 7470 print"{CBM-@}"
 7480 next
 7490 fori=kto5:printg$;:ifc=kthenprint"{rght}{CBM-M}";:goto7540
 7500 ifel=kthenprint"{rvon}{CBM-+}{CBM-+}{rvof}";:goto7540
 7510 ifi=kthenprint"{CBM-@}{rvon}{CBM-+}{rvof}";:goto7540
 7520 ifi>4thenprint"{rvon}{CBM-T}{CBM-+}{rvof}";:goto7540
 7530 print" {rvon}{CBM-+}{rvof}";
 7540 ife=0thenprint"{rght}{rght}{rght}{rght}";:goto7560
 7550 print"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}";
 7560 ifd=kthenprint"{CBM-G}":goto7610
 7570 ifer=kthenprint"{rvon}{CBM-+}{CBM-+}":goto7610
 7580 ifi=kthenprint"{rvon}{CBM-+}{rvof}{CBM-@}":goto7610
 7590 ifi>4thenprint"{rvon}{CBM-+} ":goto7610
 7600 print"{rvon}{CBM-+}"
 7610 next
 7620 fori=ktol:printg$;:ifc=kgoto7670
 7630 onigoto7640,7660
 7640 ifel=0thenprint"{rvon}{CBM-T}N";:goto7700
 7650 print"{rvon} N";:goto7700
 7660 print"{rvon}N ";:goto7710
 7670 onigoto7680,7690
 7680 print"{rght}{rvon}{SHIFT-POUND}";:goto7700
 7690 print"{rvon}{SHIFT-POUND} ";:goto7710
 7700 ife=0thenprint"{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:goto7720
 7710 print"{rvon}    ";
 7720 ifd=kgoto7770
 7730 onigoto7740,7760
 7740 ifer=0thenprint"{rvon}M{CBM-T}":goto7800
 7750 print"{rvon}M ":goto7800
 7760 print"{rvon} M":goto7800
 7770 onigoto7780,7790
 7780 print"{rvon}{CBM-*}":goto7800
 7790 print"{rvon} {CBM-*}":goto7800
 7800 nexti
 7810 return
 7820 rem display depth 5
 7830 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 7840 print"{home}{down}{down}{down}{down}{down}{down}{down}";:g$=g$+"{rght}{rght}"
 7850 printg$;:ifc=0goto7870
 7860 print"M";:goto7880
 7870 print"{CBM-@}";
 7880 ife=0thenprint"{rght}{rght}";:goto7900
 7890 print"{CBM-@}{CBM-@}";
 7900 ifd=0goto7920
 7910 print"N":goto7930
 7920 print"{CBM-@}"
 7930 fori=kton:printg$;:ifc=kgoto7950
 7940 print"{CBM-+}";:goto7960
 7950 print"{CBM-M}";
 7960 ife=0thenprint"{rght}{rght}";:goto7980
 7970 print"{CBM-+}{CBM-+}";
 7980 ifd=0thenprint"{CBM-+}":goto8000
 7990 print"{CBM-G}"
 8000 next
 8010 printg$;:ifc=kgoto8030
 8020 print"{rvon}N";:goto8040
 8030 print"{rvon}{SHIFT-POUND}";
 8040 ife=kthenprint"{rvon}  ";:goto8060
 8050 print"{rvon}{CBM-T}{CBM-T}";
 8060 ifd=kgoto8080
 8070 print"{rvon}M":goto8090
 8080 print"{rvon}{CBM-*}"
 8090 return
 8100 gosub8220
 8110 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*  way out  *
 8120 gosub4620:poke59468,12:ifm1thenprint"{down}{down}{down}{down}":goto8170
 8130 print"{clr}here is the maze":gosub4620
 8140 gosub3650
 8150 x=ti+(h+v)*60
 8160 ifx>tigoto8160
 8170 print"another game (y/n)? ";
 8180 zc$="yn":gosub50:g$=z$
 8200 print"{clr}":ifg$="y"goto2140
 8210 goto9500
 8220 rem print text border
 8230 rem"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
 8240 print"{clr}"
 8250 print
 8260 print"   {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 8270 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*************
 8280 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*           *
 8290 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*           *
 8300 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*           *
 8310 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*************{up}{up}
 8320 return
 9000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 9030 print"      {rvon}f{rvof}orward {rvon}l{rvof}eft {rvon}r{rvof}ight {rvon}h{rvof}elp {rvon}q{rvof}uit";
 9040 return
 9100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                * = quit":return
 9500 poke145,sk:print"{clr}";:poke59468,12:end
   10 poke59409,52:print"{clr}{rght}{rght}{rght}{rght}***{rvon}***labyrinth***{rvof}***{down}"
   20 poke59468,12
   25 print"cassette niet terugspoelen aub!"
   30 print"{down}wegens een zwaar vergrijp bent{$a0}u"
   40 print"opgesloten in een {rvon}labyrinth{rvof}!"
   50 print"{down}u kunt ontsnappen door een gat in de"
   60 print"muur {rvon} {rvof} als u uw opdracht vervuld hebt."
   70 print"{down}dit zult u op uw scherm zien:"
   80 print"{down}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof} muren;"
   90 print"{rght}{rght}{rght}{rght}{rght}{CBM-+} wanden;"
  100 print"{rght}{rght}{rght}{rght}{rght}{rvon}t{rvof} trappen;"
  110 print"{rght}{rght}{rght}{rght}{rght}{rvon}d{rvof} deuren;"
  120 print"{rght}{rght}{rght}{rght}{rght}{rvon}s{rvof}{$a0}springplanken;"
  130 print"{rght}{rght}{rght}{rght}{rght}W{$a0}monsters;"
  140 print"{rght}{rght}{rght}{rght}{rght}# goudklompen;"
  150 print"{rght}{rght}{rght}{rght}{rght}S en uzelf!"
  160 print"{down}iedere keer als er tekst op het scherm"
  170 print"verschijnt, moet u op 'space' duwen"
  180 print"om verder te gaan.   *{rvon}zoals nu!{rvof}*":poke59409,60
  185 wait59410,4,4
  190 geta$:ifa$<>""goto190
  210 poke59409,52:print"{clr}{down}de muren {rvon} {rvof} schermen het labyrinth af,"
  220 print"en de wanden {CBM-+} belemmeren uw weg erin."
  230 print"{down}met de springplanken {rvon}s{rvof} kunt u sprongen"
  240 print"maken op de etage waar u bent."
  250 print"{down}met de trappen {rvon}t{rvof} kunt u naar een andere"
  260 print"etage, en achter de deuren {rvon}d{rvof} zijn"
  270 print"trappen {rvon}t{rvof} goudklompen # of monsters W."
  280 print"{down}monsters W, die in het labyrinth"
  282 print"ronddolen moet u proberen te verslaan;"
  284 print"ze zullen u testen op uw snelheid,"
  286 print"reaktievermogen, handigheid, en..."
  288 print"enigzins op uw geluk!"
  290 print"{down}u komt in aanraking met de dingen in"
  300 print"het labyrinth als u er op gaat staan."
  310 print"{down}hoe u zichzelf in het labyrinth kunt"
  320 print"verplaatsen, zult u dadelijk zien.":poke59409,60
  325 wait59410,4,4
  330 geta$:ifa$<>""goto330
  350 poke59409,52:print"{clr}"
  360 printtab(11)"\    {SHIFT--}    /"
  370 printtab(12)"{down} 7  8  9 "
  380 printtab(11)"{down}{SHIFT-*} 4  {rvon}5{rvof}  6 {SHIFT-*}"
  390 printtab(12)"{down} 1  2  3 "
  400 printtab(11)"{down}/    {SHIFT--}    \"
  410 print"{down}{down}iedere keer als het gevraagd wordt,"
  420 print"moet u een nummer intoetsen om in een"
  430 print"gewenste richting te bewegen."
  440 print"{down}zo kunt u ook de verschillende dingen"
  450 print"in het labyrinth ontmoeten."
  460 print"{down}als u geen kant meer opkunt, of als u"
  470 print"hulp nodig hebt, moet u 5 intoetsen,"
  480 print"zodat ik u kan helpen. deze hulp is"
  490 print"echter niet gratis, dus u moet er zo"
  500 print"weinig mogelijk gebruik van maken!":poke59409,60
  505 wait59410,4,4
  510 geta$:ifa$<>""goto510
  530 poke59409,52:print"{clr}{down}de bedoeling van het spel is nu, dat
  540 print"u eerst uw vereiste aantal monsters"
  550 print"verslaat, genoeg goudklompen verzamelt"
  560 print"en daarna op de juiste etage door het"
  570 print"gat in de muur probeert te ontsnappen!"
  580 print"{down}aan het begin van het spel moet u eerst"
  590 print"de moeilijkheidsgraden opgeven van""
  600 print"{down}1. de opdracht zelf (aantal monsters en    goudklompen)"
  610 print"2. de snelheid waarmee de monsters zich    voortbewegen"
  620 print"3. de moeilijkheid van de tests die de     monsters u geven"
  630 print"4. de snelheid waarmee het labyrinth       zich vult."
  640 print"{down}u kunt de moeilijkheidsgraad geven van"
  645 print"1 (eenvoudig / weinig) tot":print"9 (moeilijk / veel).":poke59409,60
  650 wait59410,4,4
  655 geta$:ifa$<>""goto655
  660 poke59409,52
  665 print"{clr}{down}daarna wordt het labyrinth,"
  670 print"met het gat in de muur, u zelf S, en"
  680 print"de opdracht afgedrukt. als u de tekst"
  690 print"gelezen heeft, duwt u op een toets en"
  700 print"typt een nummer om te bewegen."
  710 print"het labyrinth vult zich nu en u"
  720 print"probeert uw opdracht te volbrengen."
  780 print"{down}een tip voor beginnende spelers is:"
  790 print"{down}verzamel eerst een aantal goudstukken,"
  800 print"versla een paar monsters, en probeer"
  810 print"dan als het labyrinth wat vol begint"
  820 print"te worden met een trap naar een andere"
  830 print"etage te ontsnappen en zo door te gaan."
  840 print"{down}{down}wilt u alles nog eens overlezen ?"
  850 print"typ j voor ja of n voor nee!  ";:poke59409,60
  860 geta$:ifa$<>""goto860
  870 geta$:ifa$="j"thenrun
  880 ifa$<>"n"goto870
  890 print"-nee-"
  900 print"{rght}{rght}{rght}{rght}{rght}{down}*{rvon}laad nu het spel!{rvof}*"
    1 print"{clr}{down}de moeilijkheidsgraad (1-9) voor...
    2 print"{down}opdracht=",,:gosub9500:printa
    3 g1=int(a*(rnd(ti)*50+50)):m1=int(a*(rnd(ti)*1.5+1)):e1=int(a*(rnd(ti)*2-1))
    4 print"snelheid monsters=",:gosub9500:printa:z2=a:print"test monsters=",
    5 gosub9500:printa:w1=6.5:w2=.8:w3=14:forz=1toa:w1=w1-.5:w2=w2-.05:w3=w3-1
    6 next:w4=w3:print"labyrinth=",:gosub9500:printa:z4=a:b=33048:c=33767:d=719
   11 fora=0to3:reada$(a),b$(a):next:fora=1to39:b$=b$+" ":next:ifw3>9thenw3=9
   12 datavader,frankenstein,broer,dracula,zoon,kingkong,opa,godzilla
   17 dima(8,1),m(15):fora=0to8:reada(a,0),a(a,1):next
   20 data1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
   30 print"{clr}":fora=0to39:pokeb+a,160:next:o=0:m(0)=b
   40 fora=0to39:pokec+a-39,160:next:fora=1to16:pokeb+40*a,160:next
   60 fora=1to16:pokeb+39+40*a,160:next:e$="typ j voor ja of n voor nee
   65 iffgoto80
   70 f=int(rnd(ti)*d+b):ifpeek(f)-32goto70
   80 pokef,83
   90 j=int(rnd(ti)*d+b):ifpeek(j)-160goto90
  100 pokej,32
  105 gosub5000
  110 print"{home}{down}{rght}{rght}{rght}{rght}typ een nummer om te bewegen:{up}":q=q+1:gosub9500
  130 ifa=5goto300
  140 e=f+a(a-1,0)*40+a(a-1,1):i=peek(e)
  150 ifi=102ori=160thenpokef,86:fora=0to99:next:pokef,83:goto110
  160 pokef,32:pokee,83:printb$:f=e
  170 ifi=87goto900
  175 ifi=35goto880
  180 ifi=148goto500
  185 ifi=147thengosub4000:f=k:goto110
  190 ifi=132goto800
  200 ife=jgoto600
  210 fora=1toz4:g=int(rnd(ti)*999):h=102:k=0
  212 ifg<65thenh=147
  215 ifg<53thenh=35
  220 ifg<38thenh=87
  230 ifg<23thenh=132
  240 ifg<8thenh=148
  250 ifg>989thenz=int(rnd(ti)*d+b):ifpeek(z)<>160then250
  260 ifg>989thenpokej,160:pokez,32:j=z
  275 l=int(rnd(ti)*d+b):m=peek(l):ifl<>jandm<>160andm<>102andm<>83then285
  280 k=k+1:ifk<25goto275
  285 ifk<25thenpokel,h:ifh=87thenm(o)=l:o=o+1
  290 nexta:fora=0too:ifpeek(m(a))<>87goto298
  292 z=int(rnd(ti)*3-1):l=int(rnd(ti)*3-1):forh=1toz2:m=m(a)+z*40+l
  294 ifpeek(m)=32andm<>jthenpokem(a),32:pokem,87:m(a)=m:nexth
  298 nexta:goto110
  300 printb$"{home}{down}ik neem aan dat u hulp nodig heeft.
  310 print"mijn hulp is echter niet gratis;
  320 print"{down}zal ik u nu helpen ?":printe$
  340 gosub8000:ifa$="n"thengosub7000:goto110
  350 ifa$<>"j"goto340
  360 gosub7000:print"{home}{down}ik kan u op 2 manieren helpen:
  370 print"{down}1. een sprong op deze etage
  380 print"2. een sprong naar een andere etage
  400 gosub8000:onval(a$)goto460,480
  410 goto400
  460 gosub4000:l=abs(f-k):g2=int(l/20)+25:m2=int(l/200)+1:e2=int(rnd(ti)*3-1)
  470 f=k:gosub7000:print"{home}zo, ik heb u laten springen;":gosub9000:goto105
  480 l=int(rnd(ti)*9-4):ifl=0goto480
  490 et=et+l:k=abs(l)+2:e2=0:g2=k*50:m2=int(k/1.25)
  495 gosub7000:print"{home}":gosub9000:goto30
  500 print"{home}hier is een trap; wat doet u ?
  510 print"{down}1. een etage omhoog":print"2. een etage omlaag
  530 print"3. op dezelfde plaats blijven
  535 print"4. een sprong op deze etage maken
  540 gosub8000:onval(a$)goto560,570,580,590
  550 goto540
  560 et=et+1:goto30
  570 et=et-1:goto30
  580 gosub7000:goto110
  590 gosub4000:f=k:gosub7000:goto110
  600 ifgk>=g1andmo>=m1andet=e1goto700
  610 g2=0:e2=0:m2=0:print"{home}{rvon}sufferd{rvof} u hebt uw opdracht nog niet af!
  620 ifgk<g1theng2=g1-gk:print"u hebt"g2"goudklompen te weinig!
  630 ifmo<m1thenm2=m1-mo:print"u hebt"m2"monsters te weinig verslagen!
  640 ife1<>etthenprint"u bent op de verkeerde etage!":e2=abs(e1-et)
  650 print"{down}hiervoor zal ik u moeten straffen...":gosub8000:gosub7000
  660 et=0:a=g2/3:z=m2/3:print"{home}{down}u wordt teruggeplaatst in het labyrinth
  670 m2=int(rnd(ti)*(m2+e2)+z):g2=int(rnd(ti)*(g2+e2*25)+a):gosub9000:f=0:goto30
  700 print"{home}";:d$="**{rvon}!!u bent vrij!!{rvof}**":forz=1to10:printb$"{up}":printd$"{up}"
  705 pokej,211:fora=1to100:next
  710 printb$"{up}":printtab(20)d$"{up}":pokej,83:fora=1to100:nexta,z:printd$
  720 print"{down}in totaal hebt u"q"passen gezet;
  730 print"u hebt"gk"goudklompen meegenomen, en
  740 print"u hebt"mo"monsters verslagen!!
  750 print"{down}{rght}{rght}{rght}{rght}{rght}**{rvon}hartelijk gefeliciteerd{rvof}**":end
  800 print"{home}hier is een deur;":print"er kunnen trappen, goudklompen en
  820 print"monsters achter zijn...":print"{down}maakt u de deur nu open ?":printe$
  840 gosub8000:ifa$="n"thengosub7000:goto110
  850 ifa$<>"j"goto840
  860 z=int(rnd(ti)*9+1):gosub7000:ifz<4goto500
  870 ifz<7goto900
  880 print"{home}{down}hoera! hier liggen";:fora=1to80:z=int(rnd(ti)*75+25):printz"{left}{left}{left}{left}";
  890 next:printz"goudklompen!!{up}":gk=gk+z:gosub8000:printb$:goto105
  900 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}grrrraaauuuwwwwwwwwww!!!!{up}{up}":fora=1to400:next:printb$
  905 k=int(rnd(ti)*4):l=int(rnd(ti)*4):m=int(rnd(ti)*4):ifl=mgoto905
  910 print"{rvon}de "a$(k)" van "b$(l)" en "b$(m)"{rvof}!
  920 print"{down}u kunt hem slechts op 1 manier verslaan":gosub8000
  930 gosub7000:onint(rnd(ti)*4+1)goto950,1100,1200,1400
  950 k=w1:w1=w1-1:print"{home}u heeft 26 bommen; 1 ervan werkt maar,
  960 print"die u nu binnen"k"sec. moet vinden,":ifw1<.5thenw1=.5
  970 print"door de juiste letter van het alfabet
  980 print"in te toetsen!":print"{down}uw tijd gaat in als u op een toets duwt
  990 z=int(rnd(ti)*26+65):gosub8000:gosub7000:a=ti:k=360*k
 1000 print"{home}{down}u hebt nog"(k-ti+a)/360;tab(22)"seconden!{down}":ifti>a+kgoto1050
 1010 geta$:ifa$<>chr$(z)goto1000
 1015 fora=1to12:printtab(9)"**{rvon}boeeeemmmm{rvof}**{up}":forz=1to50:next:printb$"{up}":next
 1030 print"monster verslagen! netjes gedaan!":mo=mo+1:gosub8000
 1040 gosub7000:goto105
 1050 gosub7000:print"{home}{down}{rvon}aaaaaaaaaaaghhhhhh!!!!!":gosub9750
 1060 print"{down}.....happppp......slokkkk....
 1070 print"{down}helaas, u bent gestorven; rust in vrede":clr:end
 1100 k=w3:w3=w3-2:print"{home}voor u liggen"k"pistolen, allen geladen
 1110 print"op een na... u kunt er een kiezen en op":ifw3<4thenw3=4
 1120 print"het monster mikken.
 1130 print"ze zijn genummerd 1 -"k:print"{down}welk nummer neemt u ?
 1140 gosub9500:z=a:ifz>kgoto1140
 1150 gosub7000:print"{home}u hebt pistool"z"gekozen.":fora=1to500:next
 1160 print"haal nu de trekker over!{up}":gosub8000:printb$:a=int(rnd(ti)*k+1)
 1163 print"pistool";
 1165 fori=1to20:form=0to9:printm"{left}{left}{left}";:nextm,i:printa"is ongeladen!
 1170 ifz=athenprint"{down}klikkk......":forz=1to500:next:goto1050
 1180 print"dus uw pistool is geladen!{up}":fora=1to700:next:printb$
 1190 print"{rvon}{up}panggg!!........raaaakkkk!!!{down}":goto1030
 1200 k=w4:w4=w4-2:m=32808:print"{home}{down}het monster springt op en neer en u
 1210 print"moet het binnen"k"schoten treffen.":ifw4<3thenw4=3
 1220 print"{down}u moet schieten als het monster voor":print"uw loop(^)is. {rvon}succes!
 1240 gosub8000:gosub7000:forl=kto1step-1:print"{home}{rght}{rght}u hebt nog"l"{left} schoten "
 1245 printtab(19)"{down}^{up}{up}
 1250 fora=1to38:print" W{left}";:geta$:ifa$<>""goto1300
 1260 next:fora=38to1step-1:print"{left}W {left}{left}";:geta$:ifa$<>""goto1300
 1270 next:goto1250
 1300 print:ifpeek(m+19)=87thenprint"{down}{rvon}raaaaakkkk!!!{down}":pokem+19,42:goto1030
 1310 print"{down}.....mis.....{up}":ifl>1thengosub8000:pokem+a-1,32:pokem+a,32:printb$
 1315 geta$:ifa$<>""goto1315
 1320 nextl:fora=1to300:next:goto1050
 1400 k=w2:w2=w2-.1:print"{home}u staat voor een grotingang, en u hebt
 1410 print"een bom geplaatst. als nu het monster":ifw2<.2thenw2=.22
 1420 print"verschijnt moet u de bom binnen"k:l=int(rnd(ti)*5+1.5)
 1430 print"sec. laten ontploffen":print"{down}let op de ingang":gosub8000:gosub7000
 1440 print"{home}{rght}{rght}{rght}pas op voor het monster!":printtab(11)"{down}{CBM-@}RF{SHIFT-*}CDEO{CBM-T}PEDC{SHIFT-*}FR{CBM-@}{down}
 1450 a=ti:geta$:ifa$<>""goto1450
 1460 ifti>a+60*lgoto1500
 1470 geta$:ifa$=""goto1460
 1480 print"......helaas......":fora=1to500:next:goto1050
 1500 poke32867,87:z=ti
 1510 geta$:ifa$<>""thena=ti-2:poke32867,42:gosub1540:goto1015
 1520 ifti<z+60*kgoto1510
 1530 a=ti+2:gosub1540:goto1480
 1540 print"beschikbare tijd="k":uw tijd="int((a-z)/6*100)/1000:return
 4000 k=int(rnd(ti)*d+b):ifpeek(k)=160ork=jork=fgoto4000
 4010 fora=0to9:pokef,83:forz=1to50:nextz:pokef,32:forz=1to50:nextz,a
 4020 fora=1to10:pokek,32:forz=1to50:nextz:pokek,83:forz=1to50:nextz,a:return
 5000 print"{home}{down}u bent op etage"et"met"gk"goudklompen,
 5010 print"en u hebt"mo"monsters verslagen.
 5020 print"{down}u moet ontsnappen op etage"e1"met"g1
 5030 print"goudklompen, en"m1"monsters verslaan.":gosub8000:gosub7000:return
 7000 print"{home}";:fora=1to7:printb$:next:return
 8000 geta$:ifa$<>""goto8000
 8010 geta$:ifa$=""goto8010
 8020 return
 9000 print"aan uw opdracht is veranderd:
 9010 print"{down}er zijn"g2"goudklompen bij gekomen,
 9020 print"en u moet"m2"monsters meer verslaan.
 9025 ife2thenprint"ook is uw ontsnappings-etage veranderd.
 9030 g1=g1+g2:m1=m1+m2:e1=e1+e2:gosub8000:gosub7000:return
 9500 gosub8000:a=val(a$):ifa<1goto9500
 9510 return
 9750 fora=0to9:poke59409,52:forz=0to50:nextz:poke59409,60
 9760 forz=0to50:nextz,a:return
   10 sys(1049) : mr nop
   10 sys(1049) : mr nop
   10 sys(1049) : mr nop
    5 print chr$(142)
   10 print"{clr}{rvon} {rght}{rght}{rght}{rght}{rght}  {rght}{rght}{rght} {rght}{rght}{rght} {rght}    {rght}    {rght}{rght}{rght}{rght}{rght}{rght}   {rght}{rght}    {rght} {rght}{rght}{rght} {rght}{rght}  {rght}"
   20 print"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}  {rght}  {rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght}{rght}{rght}  {rght}  {rght} {rght}{rght} "
   30 print"{rvon} {rght}{rght}{rght}{rght}    {rght}{rght} {rght} {rght} {rght}   {rght}{rght}    {rght}{rght}  {rght}{rght} {rght}{rght} {rght}   {rght}{rght} {rght} {rght} {rght} {rght}{rght} "
   40 print"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght} "
   50 print"{rvon}    {rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght}    {rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}   {rght}{rght}    {rght} {rght}{rght}{rght} {rght}{rght}  {rght}"
   60 poke 32776,223:poke 32773,233:poke 32780,223:poke 32782,233
   70 poke 32860,95:poke 32862,105:poke 32811,223:poke 32813,233
   80 poke 32891,95:poke 32893,105:poke 32794,223:poke 32803,223
   90 poke 32816,233:poke 32819,223:poke 33136,95:poke 33139,105
   95 poke 33123,105:print chr$(7)
  100 print"this demo is really lame.     press any key to continue";
  110 print tab(60);"copyright 2003 sds"
  120 for t=33278 to 33302
  130 if peek(t)<128 then poke t,peek(t)+128:next t
  140 if peek(t)>128 then poke t,peek(t)-128:next t
  150 get a$:if a$="" then 120
  160 print"{clr}{rvon} {rght}{rght}{rght}{rght}{rght}  {rght}{rght}{rght} {rght}{rght}{rght} {rght}    {rght}    {rght}{rght}{rght}{rght}{rght}     {rght}{rght}  {rght}{rght}   {rght}{rght}{rght}{rght}{rght}{rght}{rght}    "
  170 print"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}  {rght}  {rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}"
  180 print"{rvon} {rght}{rght}{rght}{rght}    {rght}{rght} {rght} {rght} {rght}   {rght}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}   {rght}{rght}{rght}  {rght}{rght}    "
  190 print"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} "
  200 print"{rvon}    {rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght}    {rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}  {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    "
  210 print tab(30);"{down}1:{rvon}me!!"
  220 read a
  230 poke 33407,a
  240 print" "+chr$(20);
  245 for l=1 to 40:next l
  250 if a<>255 then goto 220
  260 for t=1 to 79
  270 print" "+chr$(20);
  275 next t
  280 data 9,32,1,13,32,12,1,13,5,44,3,15,26,39,9,32,3,1,14,32,15,14,12,25
  290 data 32,16,18,15,7,18,1,13,32,9,14,32,2,1,19,9,3,46,32,9,32,3,1,14,39
  300 data 20,32,16,18,15,7,18,1,13,32,7,18,1,16,8,9,3,19,44,9,32,3,1,14,39,20
  310 data 32,16,18,15,7,18,1,13,32,13,21,19,9,3,32,12,15,15,11,32,0,32,20
  320 data 8,9,19,32,4,5,13,15,33,32,140,129,141,133,33,33,33,32,32,32,32,32
  330 data 9,32,9,14,22,5,14,20,5,4,32,1,32,14,5,23,32,11,9,14,4,32,15,6,32
  340 data 19,3,18,15,12,12,46,32,9,20,32,151,129,146,144,147,33,32
  350 data 25,15,21,39,12,12,32,19,5,5,32,9,20,32,32,32,32,32,32,32,32,32
  360 data 23,1,18,16,33,255
  370 print:print tab(30),"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}2:{rvon}bill gates"
  380 read b
  390 poke 33487,b
  400 print" "+chr$(20);
  405 for l=1 to 40:next l
  410 if b<>255 then goto 380
  420 for t=1 to 79
  430 print" "+chr$(20);
  435 next t
  440 2564 sys(1039)
    1 rem lunar lander - ?abc for days
    2 r$="78:9568=1902:9038=1:025860:900484848484<85>6204=03>::9??8=09024<7>>6"
    3 fori=1tolen(r$)/2
    4 pokei+831,(asc(mid$(r$,i*2-1,1))-48)*16+asc(mid$(r$,i*2,1))-48:nexti
    5 p1=0:sys832
    6 c$="{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":goto4000
    7 i4=i5:p1=p1+1:abc=abc+1
    8 gosub8000
    9 print"{down}"
   10 th=0:t=0
   20 po1=0
   30 x0=52800
   40 v0=-176:f=1:s=1
   70 gosub1000
   80 gosub60000
   90 at=ti:ag=ti
  100 getr$:ifr$<>""thenr=val(r$)
  110 if(ti-at)>30thenat=ti:goto130
  120 goto110
  130 t=t+r
  140 th=th+1
  160 a=5.4*(1-0.2*r)
  170 x=v0+0.5*a:x0=x0+x
  190 ifx0>0then230
  200 x=x-x0:f=0:x0=0
  230 d=v0*v0-2*x*a
  240 ifd>0then270
  250 d=-d:s=-1
  270 v0=sqr(d)*s*sgn(x)
  280 s=1
  290 gosub40000
  291 ifv0>0thenprint"{rvon}";
  300 print"{home}{down}{down}{down}{rght}";mid$(str$(v0),2,5)"{rvof}";
  310 printleft$(str$(x0)+a$(0),7)
  320 print"{down}{down}"
  330 print"{up}{rght}";2500-t"{left}   {left}{left}"tab(8);th
  340 gosub2000:iff=0thengosub9000:goto10000
  350 ift>2500thenr=0:goto140
  360 goto100
  386 gosub40000
  421 goto4180
 1000 a$="{down}{left}{left}{left}{left}{left}"
 1010 a$(0)="     "
 1020 a$(1)=" {CBM-M}{CBM-V} "
 1030 a$(2)=" {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof} "
 1040 a$(3)=" {rvon} Q {rvof} "
 1050 a$(4)="{rvon}{SHIFT-POUND}nar{CBM-*}{rvof}"
 1060 a$(5)="N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M"
 1070 a$(6)=a$(0)
 1080 print"{home}{down}{down}"tab(19);
 1090 fori=0to6
 1100 printa$(i)+a$;
 1110 nexti
 1115 print"{home} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1120 print"{CBM-M}{rvon}speed height{rvof}{CBM-G}":gosub1160
 1130 print"{CBM-M}{rvon} fuel  time {rvof}{CBM-G}":gosub1160
 1140 return
 1160 fori=1to2:print"{CBM-M}"tab(13)"{CBM-G}":next
 1170 print"{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}":return
 2000 printtab(19);:ifr=0thenreturn
 2010 fori=1tor:print"N{CBM-T}M{down}{left}{left}{left}";:next:fori=rto10:print"   {down}{left}{left}{left}";:next
 2020 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:fori=1to10:print"   {down}{left}{left}{left}";:next:return
 3010 goto5000
 4000 print"{clr}{down}hi!!  i am a pet computer,  whats your  name?"
 4002 n$="":for i=1to12
 4003 getr$:ifr$=""goto4003
 4004 ifasc(r$)>64andasc(r$)<91thenprintr$;:n$=n$+r$:nexti
 4005 ifn$="end"thenend
 4006 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}ok ";n$;" lets start":fori=1to2500:nexti
 4009 print"{clr}this game simulates the landing of a"
 4010 print"spacecraft above the lunar surface.":print
 4020 print"readings on the gauges are:"
 4030 print"    velocity        in meters/sec"
 4040 print"    height          in meters"
 4050 print"    remaining fuel  in cubic meters"
 4060 print"    elapsed time    in seconds":print
 4070 print"if the velocity should appear in"
 4080 print"reverse field (eg.,{rvon}256{rvof}),you are going"
 4090 print"up.  the controls are the number keys."
 4100 print"the higher the number,the harder you"
 4110 print"thrust.  a thrust of 5 will exactly"
 4120 print"balance gravity, allowing you to fall"
 4130 print"at a constant rate.  the object is to"
 4140 print"land at a speed of less than            15 meters/sec.":print
 4150 print"you start at 52800 meters, falling at a"
 4160 print"rate of 176 meters/sec, with 2500 units"
 4170 print"of fuel.  if you run out of fuel, you"
 4174 print"will fall like a rock!":print
 4176 print"do you understand, ";n$;"?";
 4180 getr$:ifr$="y"then7
 4190 if r$<>"n"goto4180
 4200 print"{down}read the instructions carefully!"
 4205 forj=1to1000:nextj:goto4000
 8000 print"{clr}"
 8005 fori1=1to14
 8030 printtab(39*rnd(1));"."
 8080 nexti1
 8090 return
 9000 ifv0<-15then9003
 9001 q=0:goto10021
 9003 q=1:fori=1to500:nexti:gosub60100
 9005 goto30000
 10021 fori=1to500:nexti:gosub60100
 10030 print:print"{down}{down}{down}{down}{down}{down}congratulations, you landed safely":goto30000
 10031 gosub60100
 30000 ifp1>=2thengoto30010
 30001 printc$;"do you want to try again, ";n$;"?";
 30002 getr$:ifr$="n"then30999
 30004 ifr$="y"then7
 30006 goto30002
 30010 print"{clr}{down}{down}{down}{down}";n$,",  i think you have played    enough.  why not let ";
 30015 print"someone else try ifsomeone is waiting.";:fori=1to5000:nexti
 30999 printc$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}bye";:fori=1to999:getr$:nexti
 31000 fori=1to500:nexti
 31005 print"{clr}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}welcome to lunar landing simulation."
 31010 print"if you wish to try this exibit,  simply press any button";
 31020 print" on the keyboard below B{left}{down}v{left}{down} {left}{down}B{left}{down}v{left}{down} {left}{down}B{left}{down}v"
 31040 getr$:ifr$=""orr$=" "then31000
 31050 goto5
 40000 rem
 40010 ifv0<=-2400thengoto40300
 40100 ifx0>69000then40200
 40110 ifx0>23000then41000
 40120 ifx0>2300then42000
 40130 ifx0>230then43000
 40140 ifx0>0then46000
 40160 return
 40200 print"{clr}{rght}{rght}{rght}{rght}{down}{down}{down}{down}out of moons influence!!"
 40210 print"{down}{rght}{rght}{rght}{rght}unable to resume lunar landing!!"
 40215 printspc(31);"{down}{down}{down}{down}{down}";
 40220 fori=1to75
 40230 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}mission aborted!!!!!!!!";
 40240 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}                       ";
 40250 nexti
 40290 goto30000
 40300 print"{clr}{rght}{rght}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}lander has reached "
 40305 print"{down}escape velocity of 2.4 kilometers/sec!!":goto40210
 41000 ifpo1=1then41990
 41010 print"{home}";spc(34);
 41020 print"{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}66000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}60000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}";
 41025 print"     {left}{left}{left}{left}{left}{down}";
 41030 print"{left}{CBM-Q}54000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}48000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}";
 41035 print"42000{left}{left}{left}{left}{left}{down}";
 41040 print"{left}{CBM-Q}{down}{left}{CBM-Q}36000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}30000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}";
 41045 print"{down}";
 41050 print"{left}{CBM-Q}24000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}18000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}";
 41055 print"12000{left}{left}{left}{left}{left}{down}";
 41060 print"{left}{CBM-Q}{down}{left}{CBM-Q}6000 {left}{left}{left}{left}{left}{down}{left}{CBM-Q}{left}{down}{left} {CBM-Q}0{home}";
 41070 po1=1
 41990 gosub50000
 41999 return
 42000 ifpo1=2then42990
 42010 print"{home}";spc(34);
 42020 print"{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}22000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}20000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}";
 42025 print"{down}";
 42030 print"{left}{CBM-Q}18000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}     {left}{left}{left}{left}{left}{down} {left}{left}{CBM-Q}16000{left}{left}{left}{left}{left}{left}{down}{CBM-Q}{down}{left}{CBM-Q}";
 42035 print"14000{left}{left}{left}{left}{left}{down}";
 42040 print"{left}{CBM-Q}{down}{left}{CBM-Q}12000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}10000{left}{left}{left}{left}{left}{down}{left}{CBM-Q}";
 42045 print"{down}";
 42050 print"{left}{CBM-Q}8000 {left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}6000 {left}{left}{left}{left}{left}{down}{left}{CBM-Q}{down}{left}{CBM-Q}";
 42055 print"4000 {left}{left}{left}{left}{left}{down}";
 42060 print"{left}{CBM-Q}{down}{left}{CBM-Q}2000 {left}{left}{left}{left}{left}{down}{left}{CBM-Q} {left}{down}{left}{CBM-Q}0{home}";
 42070 po1=2
 42990 gosub50000
 42999 return
 43000 ifpo1=3then43990
 43010 print"{home}";spc(34);
 43020 print"{CBM-Q}     {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}2200 {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}     {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}2000 {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}";
 43025 print"{down}";
 43030 print"{left}{CBM-Q}1800 {left}{left}{left}{left}{left}{down}{left}{CBM-Q}     {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}1600 {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}";
 43035 print"1400 {left}{left}{left}{left}{left}{left}{down}";
 43040 print"{left} {CBM-Q}{left}{down}{left} {CBM-Q}1200 {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}1000 {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}";
 43045 print"{left}{down}";
 43050 print"{left} {CBM-Q}800  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}600  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{down}{left}{CBM-Q}";
 43055 print"400  {left}{left}{left}{left}{left}{left}{down}";
 43060 print"{left} {CBM-Q}{left}{down}{left} {CBM-Q}200  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q} {left}{left}{down}{left} {CBM-Q}0{home}";
 43070 po1=3
 43990 goto50000
 46000 ifpo1=2then62990
 46010 print"{home}";spc(34);
 46020 print"{CBM-Q}     {left}{left}{left}{left}{left}{down}{left}{CBM-Q}220  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}     {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}200  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}";
 46025 print"{left}{down}";
 46030 print"{left} {CBM-Q}180  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}160  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}";
 46035 print"140  {left}{left}{left}{left}{left}{left}{down}";
 46040 print"{left} {CBM-Q}{left}{down}{left} {CBM-Q}120  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{left} {CBM-Q}100  {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}";
 46045 print"{left}{down}";
 46050 print"{CBM-Q}80   {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{CBM-Q}60   {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q}{left}{down}{CBM-Q}";
 46055 print"40   {left}{left}{left}{left}{left}{left}{down}";
 46060 print"{left} {CBM-Q}{left}{down}{left} {CBM-Q}20   {left}{left}{left}{left}{left}{left}{down}{left} {CBM-Q} {left}{left}{down}{left} {CBM-Q}0{home}";
 46070 po1=4
 50000 gosub58000
 50050 print"{home}";spc(33);
 50100 ifpo1=1thenlev=3000
 50110 ifpo1=2thenlev=1000
 50120 ifpo1=3thenlev=100
 50125 ifpo1=4thenlev=10
 50130 ifpo1=0thenreturn
 50200 num=23-abs(int(x0/lev))
 50210 fori=1tonum:print"{down}";:nexti:print"A";:ifr>0thenprint"{left}{down}v";
 50490 return
 58000 print"{home}";spc(33);
 58010 print" {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} ";
 58020 print"{down}{left} {down}{left} {home}";
 58030 return
 60000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 60010 a=ti
 60020 print"moon lander test starts in"5-int((ti-a)/60)"{left} seconds     {up}{up}"
 60030 if(ti-a)<300then60020
 60040 print"                                      ":r=0
 60050 return
 60100 print"{clr}"
 60110 fori=1to25
 60120 printtab(rnd(1)*40);"."
 60130 nexti
 60140 print"   {rvon}{SHIFT-POUND}{CBM-*}{rvof}     {rvon}{SHIFT-POUND}{CBM-*}{rvof}        "
 60150 print"  {rvon}{SHIFT-POUND}  {CBM-*}{rvof}  {rvon}{SHIFT-POUND}    {CBM-*}{rvof}                  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  "
 60160 print"{rvon}                   {CBM-*}{rvof}           {rvon}{SHIFT-POUND}  {CBM-*}{rvof}    "
 60170 print"{rvon}                                   {CBM-*}{rvof}{rvon}{SHIFT-POUND} "
 60180 print"{rvon}                                       {rvof}"
 60190 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}A{left}{down}v";
 60200 fori=1to8
 60205 forj=1to500
 60206 nextj
 60210 print"{left}{up} {left}{down} {left}{down}A{left}{down}v";
 60250 nexti
 60260 print"{left}{up} {down}{left} {left}{down}A"
 60270 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{rght}{rght}{rght}{rght}";
 60275 ifq=1then60500
 60280 fori=1to150
 60290 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}perfect landing";
 60300 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}perfect landing{rvof}";
 60310 nexti
 60320 fori=1to500:nexti
 60330 print"{clr}"
 60340 return
 60500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}A";
 60510 fori=1to25
 60520 print"*{left}{down} {left}{left}*{left}{left} {left}{up}*{left}{up} * {left}{down}";
 60530 print" {left}{down}*{left}{left} {left}{left}*{left}{up} {left}{up}* *{left}{down}";
 60540 print"{rvon} {left}{down}*{left}{left} {left}{left}*{left}{up} {left}{up}* *{left}{down}{rvof}";
 60550 print"{rvon}*{left}{down} {left}{left}*{left}{left} {left}{up}*{left}{up} * {left}{down}{rvof}";
 60555 print"*{left}{down} {left}{left}*{left}{left} {left}{up}*{left}{up} * {left}{down}";
 60556 print"*{left}{down} {left}{left}*{left}{left} {left}{up}*{left}{up} * {left}{down}";
 60570 print"{rght}*{left}{up}{up}*{left}{left}{left}*{left}{left}{left}*{left}{down}{down}*{left}{down}{down}* * *{left}{up} {left}{left}{up}";
 60580 print"{rght} {left}{up}{up} {left}{left}{left} {left}{left}{left} {left}{down}{down} {left}{down}{down} {rght} {rght} {left}{left}{up}{up}";
 60585 nexti
 60590 print" {left}{left}{down} {left}{left}{up} {up} {left}{down} {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{down}{down}{down}";
 60600 forj=1to35
 60610 print"you just made a new crater on the moon";
 60620 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 60630 print"{rvon}you just made a new crater on the moon{rvof}";
 60640 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 60650 nextj
 60690 fori=1to1000:nexti
 60740 printc$;"{rght}{rght}{rght}i think you crashed"
 60750 fori=1to1000:nexti
 60780 return
   10 print"{clr}"
   20 print"you have just departed your mother ship"
   30 print"and are desending on mars. after each"
   40 print"? type in your thrust and retro "
   50 print"command as a number between 0 and 500"
   60 print"units of fuel(each unit=200 newtons"
   70 print"of thrust=900 lbs of thrust)"
   71 print"-------------good luck-----------------"
   72 print"type any number to continue"
   73 input a:a=1
   74 on a goto 75
   75 h=100:s=5000:e=15000:t=0:g=2.4:v=-100
   76 print"{clr}"
   80 print"time:   velocity:   alt:  fuel: thrust:"
   90 print"sec.    m/sec/sec   km    kg     n/100"
  100 print
  230 h=int(h*100)
  240 print int(t); tab(8)int(v);tab(17)(h/100);tab(24)int(e); tab(32)"f=";
  250 input f
  251 h=h/100
  260 if abs(f)>500 then 310
  265 if f>0 then 330
  270 if f>e then 325
  280 goto 330
  290 rem illegal commands
  310 print"illegal thrust: repeat:"
  320 goto 240
  325 print"only"e" units left--please repeat"
  326 goto 240
  330 e=e-abs(f)
  335 ifabs(v)>1000 then 10000
  340 v1=v
  350 v2=2000*f/(s+e)-10*g
  355 v=v+v2
  360 d=(v1+v2/2)*10
  370 h=h+d/1000
  380 if h<=.01 then 440
  400 if e<=0 then 430
  410 t=t+10
  420 goto 76
  430 print"your out of fuel"h"km up"
  435 f=0
  440 k=0
  450 k= k+.01
  460 v1=v
  470 v2=20*f/(s+e)-.1*g
  480 v=v+v2
  490 if h>0 then 700
  500 print"impact in approx. "k" seconds."
  505 if v>0 then 700
  510 if v>= -5 then 570
  520 if v>=-15 then 590
  530 print"crunch!!!! velocity="v" m/sec/sec"
  535 print"that's";v*3.2*3600/5280;"miles/hour"
  536 print"yeech... this dudes in bad shape"
  540 print" turn in your license and report to "
  541 print"sick bay.  quickly!!"
  560 goto 999
  570 print"beautiful landing...v=";v*3.2*3600/5280;"mph"
  575 print" you had "e" kg of fuel left."
  580 goto 999
  590 print" clunck--rattle--rattle--squish"
  600 print"v=";v*3.2*3600/5280;"mph. you survived but it didn't help"
  610 print"your looks any!"
  620 goto 999
  700 print"you have run out of fuel "h" km up"
  710 print"you are falling..."
  715 print"time:   velocity:   alt:  fuel: thrust:"
  720 print int(t); tab(8)int(v);tab(17)(h/100);tab(24)int(e); tab(32)"f=0"
  725 t=t+10
  726 f=0
  730 e=e-0
  740 v1=v
  750 v2=2000*f/(s+e)-10*g
  760 v=v+v2
  770 d=(v1+v2/2)*10
  780 h=h+d
  790 if h>.01 then 720
  800 print"your landing velocity was"v"m/sec/sec"
  810 print" that is ";v*3.2*3600/5280;"mph."
  999 print"do you wish to play again(y/n)";
 1000 input a$
 1010 if a$="y" then 10
 1020 end
 10000 print"you have just burned up in the "
 10010 print"atmosphere."
 10020 for x=1to1000:next x
 10030 for x=1 to 50
 10040 print"{rvon}your fired!! your fired!! your fired"
 10050 next x
 10060 goto 999
    0 print"{clr}"
    1 gosub20000
    4 ti$="000000"
    5 poke59490,255
    6 gosub1000
    7 poke59468,12
   30 print"{home}fuel: "int((19-val(ti$))/2)"    altitude: "int(15-b)"{left} "  :forc=1tob
   31 print""
   32 nextc
   38 ifpp=5thena$="2":goto40
   39 getb$:ifb$<>""thena$=b$
   40 ifa$="4"thena=a-1
   41 ifa$="6"thena=a+1
   42 ifa$="2"thenb=b+1
   43 ifa$="8"thenb=b-1
   44 ifa<1thena=a+1
   45 ifb>15thenb=b-1:x=1
   46 ifb<1thenb=b+1
   47 ifa>25thena=a-1
   50 printtab(a)"         "
   60 printtab(a)"      {CBM-M}{CBM-V} "
   70 printtab(a)"     {rvon}{SHIFT-POUND} {CBM-*}{rvof} "
   80 printtab(a)"     {rvon} {CBM-V} {rvof}  "
   90 printtab(a)"    {rvon}{SHIFT-POUND}usa{CBM-*}{rvof}  "
  100 printtab(a)"    N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M  "
  110 printtab(a)"{rght}{rght}{rght}  N{CBM-T}M  "
  120 ifb<14thenprinttab(a)"        "
  121 ifx=1then3000
  122 ifti$="000019"thenprint"{home}{down}you are out of fuel!!":pp=5
  123 ifb>14thengosub4000
  130 print"{home}"
  150 goto30
 1000 ford=33688to33767:poked,230:next
 1005 fort=1to7
 1010 poke((int(rnd(ti)*39)+33646)),230
 1020 next
 1025 fort=1to6
 1030 poke((int(rnd(ti)*39)+33686)),32
 1040 next
 2000 return
 3000 print"{home}{down}you have landed           "
 3005 forn=1to3000:next
 3010 goto10040
 4000 forn=1to5
 4010 ifpeek(5+33646+a+n)<>32then10000
 4011 ifpp=5then10000
 4015 ifpeek(5+33686+a+n)<>230then10000
 4020 next
 5000 return
 10000 print"{home}{rvon}     you have crashed!!!     "
 10010 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 10011 forh=1to10
 10015 printtab(a+4)"{rvon} * * * "
 10020 print"{up}{up}{up}":next
 10030 forh=1to2222:next
 10035 forz=1to20:geta$:next
 10040 print"{home} press 1 for another go        "
 10050 print"                        "
 10060 print"                        "
 10070 geta$:ifa$=""then10070
 10080 ifa$="1"thenrun
 10090 print"{clr}"
 10095 end
 20000 print"{clr}       ***luna lander***
 20010 print"          {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 20020 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by d.j.wylie"
 20021 print"{down}{rght}the object is to land your craft"
 20022 print"on a flat part of the moon  before you   run out of fuel"
 20023 print"{down}5 is up, 2 down,4 left and 6 is right"
 20024 print"  {down}{down}good luck!!!"
 20025 forz=1to20:geta$:next
 20030 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start"
 20040 geta$:ifa$=""then20040
 20050 print"{clr}":return
  100 rem     ****************
  110 rem     * h. hermes    *
  120 rem     * 02191/77580  *
  130 rem     * remscheid    *
  140 rem     ****************
  150 rem
  160 fori=1to40:li$=li$+chr$(192):next
  170 dimqq$(100),qw$(100),qe$(100),qr$(100),qt$(100)
  180 fora=32to96
  190 readqq$(a),qw$(a),qe$(a),qr$(a),qt$(a)
  200 nexta
  210 print"{clr}{down}{down}{down}         {rvon}   laufschrift   {rvof}
  220 print"{down}{down}{down}            hoehe 7-77"
  230 print"{down}{down}bitte nicht verwenden  :  ,   \   (   )"
  240 printtab(24);:print"{down}{down}{down}{down} ' space '{down}{down}"
  250 getas$:ifas$=""then250
  260 printli$
  270 ifcy=2andcb=2thenprint#6,chr$(24)
  280 close5:close6 :input"{down}texthoehe (7-77):";df
  290 if df<7ordf>77then280
  300 printli$
  310 print"breitschrift   - 1"
  320 print"{down}schmalschrift  - 2";
  330 getbs$:ifbs$=""then330
  340 ta=int((80-df)/2)
  350 bs=val(bs$):print"           ->";bs
  360 df=int(df/7)
  370 printli$
  380 gosub1420
  390 printli$
  402 print"{down}bitte nicht verwenden   ,  :  \  (  )"
  403 print"{down}{rvon}umlaute sind moeglich:"
  404 fu$="fuer zeichen"
  405 print"{down}          "fu$;" {rvon}ae{rvof} --> \"
  406 print"{down}          "fu$;" {rvon}oe{rvof} --> ("
  408 print"{down}          "fu$;" {rvon}ue{rvof} --> ){down}"
  409 print"{down}text    (nicht mehr als 255 zeichen){down}"
  410 inputrt$
  420 ifrt$=""then410
  430 ifcy=1thenprint"{down}{down}"
  435 ifcy=2thenprint#5
  440 fora=1tolen(rt$)
  450 t$=mid$(rt$,a,1)
  460 q=asc(t$)
  470 ifq=222orq=255thenq=96:goto490
  480 ifq<32orq>95thenq=32:goto490
  490 gosub560
  500 ifcy=2thenprintt$
  510 ifcy=1thenforty=1todf:print:nextty
  520 ifcy=2thenforty=1todf:print#5:nextty
  530 nexta
  540 ifcy=1thenprint"{down}{down}"
  550 goto260
  560 er$=qq$(q):gosub620
  570 er$=qw$(q):gosub620
  580 er$=qe$(q):gosub620
  590 er$=qr$(q):gosub620
  600 er$=qt$(q):gosub620
  610 return
  620 forre=1to(df-1)/bs
  630 ifcy=2then:print"{up}":print#5,tab(ta);
  640 forw=1tolen(er$)
  650 as$=mid$(er$,w,1)
  660 ifas$=" "then690
  670 ifcb=2thenas$="{CBM-+}"
  680 ifcb=1thenas$=t$
  690 ifcy=1thenforas=1todf:printas$;:nextas
  700 ifcy=2thenforas=1todf:print#5,as$;:nextas
  710 ifcy=2andcb=2thenprint#6,chr$(18)
  720 nextw
  730 ifcy=1thenprint
  740 ifcy=2thenprint#5
  750 nextre
  760 return
  770 data" "," "," "," "," "
  780 data" "," ","{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"," "," "
  790 data" ","     {CBM-+}{CBM-+}"," ","     {CBM-+}{CBM-+}"," "
  800 data"  {CBM-+} {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+} {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+} {CBM-+}"
  810 data" {CBM-+}  {CBM-+}"," {CBM-+} {CBM-+} {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"," {CBM-+} {CBM-+} {CBM-+}","  {CBM-+}  {CBM-+}"
  820 data"{CBM-+}{CBM-+}   {CBM-+}{CBM-+}","  {CBM-+}  {CBM-+}{CBM-+}","   {CBM-+}","{CBM-+}{CBM-+}  {CBM-+}","{CBM-+}{CBM-+}   {CBM-+}{CBM-+}"
  830 data" {CBM-+}{CBM-+}","{CBM-+}  {CBM-+}{CBM-+}{CBM-+}","{CBM-+} {CBM-+}{CBM-+}  {CBM-+}"," {CBM-+}  {CBM-+}{CBM-+}","{CBM-+}"
  840 data" ","    {CBM-+}","    {CBM-+}","     {CBM-+}"," "
  850 data" {CBM-+}{CBM-+}{CBM-+}","{CBM-+}   {CBM-+} {CBM-+}","{CBM-+}   {CBM-+}","{CBM-+}   {CBM-+} {CBM-+}"," {CBM-+}{CBM-+}{CBM-+}"
  860 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}","{CBM-+}     {CBM-+}"," {CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  870 data" {CBM-+} {CBM-+} {CBM-+}","  {CBM-+}{CBM-+}{CBM-+}  ","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+}{CBM-+}{CBM-+}"," {CBM-+} {CBM-+} {CBM-+}"
  880 data" ","   {CBM-+}","  {CBM-+}{CBM-+}{CBM-+}","   {CBM-+}"," "
  890 data" ","{CBM-+}","{CBM-+}{CBM-+}"," "," "
  900 data" ","   {CBM-+}","   {CBM-+}","   {CBM-+}"," "
  910 data" "," ","{CBM-+}"," "," "
  920 data"{CBM-+}{CBM-+}","  {CBM-+}","   {CBM-+}","    {CBM-+}","     {CBM-+}{CBM-+}"
  930 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+} {CBM-+}   {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}   {CBM-+} {CBM-+}"," {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  940 data"    {CBM-+}","{CBM-+}    {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}"," "
  950 data"{CBM-+}    {CBM-+}","{CBM-+}{CBM-+}    {CBM-+}","{CBM-+} {CBM-+}   {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}   {CBM-+}{CBM-+}"
  960 data" {CBM-+}   {CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+} {CBM-+}{CBM-+}"
  970 data"  {CBM-+}{CBM-+}","  {CBM-+} {CBM-+}","  {CBM-+}  {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+}"
  980 data" {CBM-+}  {CBM-+}{CBM-+}{CBM-+}","{CBM-+}   {CBM-+} {CBM-+}","{CBM-+}   {CBM-+} {CBM-+}","{CBM-+}   {CBM-+} {CBM-+}"," {CBM-+}{CBM-+}{CBM-+}  {CBM-+}"
  990 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+}  {CBM-+}"
 1000 data"     {CBM-+}{CBM-+}","      {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}","    {CBM-+} {CBM-+}","     {CBM-+}{CBM-+}"
 1010 data" {CBM-+}{CBM-+} {CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+} {CBM-+}{CBM-+}"
 1020 data" {CBM-+}  {CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1030 data" "," ","  {CBM-+} {CBM-+}"," "," "
 1040 data" ","{CBM-+}"," {CBM-+}{CBM-+} {CBM-+}"," "," "
 1050 data"   {CBM-+}","  {CBM-+} {CBM-+}"," {CBM-+}   {CBM-+}","{CBM-+}     {CBM-+}"," "
 1060 data" ","  {CBM-+} {CBM-+}","  {CBM-+} {CBM-+}","  {CBM-+} {CBM-+}"," "
 1070 data" ","{CBM-+}     {CBM-+}"," {CBM-+}   {CBM-+}","  {CBM-+} {CBM-+}","   {CBM-+}"
 1080 data"     {CBM-+}","      {CBM-+}","{CBM-+} {CBM-+}{CBM-+}  {CBM-+}","    {CBM-+} {CBM-+}","     {CBM-+}"
 1090 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}","{CBM-+} {CBM-+}{CBM-+}{CBM-+} {CBM-+}","{CBM-+} {CBM-+} {CBM-+} {CBM-+}","{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1100 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+}  {CBM-+}","  {CBM-+}   {CBM-+}","  {CBM-+}  {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1110 data"{CBM-+}     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+} {CBM-+}{CBM-+}"
 1120 data"  {CBM-+}{CBM-+}{CBM-+}"," {CBM-+}   {CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}     {CBM-+}"," {CBM-+}   {CBM-+}"
 1130 data"{CBM-+}     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}"," {CBM-+}   {CBM-+}","  {CBM-+}{CBM-+}{CBM-+}"
 1140 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}     {CBM-+}"
 1150 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}  {CBM-+}","   {CBM-+}  {CBM-+}","   {CBM-+}  {CBM-+}","      {CBM-+}"
 1160 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+}{CBM-+} {CBM-+}"
 1170 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}","   {CBM-+}","   {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1180 data" ","{CBM-+}     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}"," "
 1190 data" {CBM-+}","{CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","      {CBM-+}"
 1200 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}","  {CBM-+}{CBM-+}"," {CBM-+}  {CBM-+}","{CBM-+}    {CBM-+}{CBM-+}"
 1210 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}","{CBM-+}","{CBM-+}","{CBM-+}"
 1220 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","     {CBM-+}","   {CBM-+}{CBM-+}","     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1230 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","    {CBM-+}","   {CBM-+}","  {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1240 data"  {CBM-+}{CBM-+}{CBM-+}"," {CBM-+}   {CBM-+}","{CBM-+}     {CBM-+}"," {CBM-+}   {CBM-+}","  {CBM-+}{CBM-+}{CBM-+}"
 1250 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}  {CBM-+}","   {CBM-+}  {CBM-+}","   {CBM-+}  {CBM-+}","    {CBM-+}{CBM-+}"
 1260 data"  {CBM-+}{CBM-+}{CBM-+}"," {CBM-+}   {CBM-+}","{CBM-+} {CBM-+}   {CBM-+}"," {CBM-+}   {CBM-+}","{CBM-+} {CBM-+}{CBM-+}{CBM-+}"
 1270 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}  {CBM-+}","  {CBM-+}{CBM-+}  {CBM-+}"," {CBM-+} {CBM-+}  {CBM-+}","{CBM-+}   {CBM-+}{CBM-+}"
 1280 data" {CBM-+}  {CBM-+}{CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}"," {CBM-+}{CBM-+}  {CBM-+}"
 1290 data"      {CBM-+}","      {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","      {CBM-+}","      {CBM-+}"
 1300 data" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}","{CBM-+}","{CBM-+}"," {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1310 data"    {CBM-+}{CBM-+}{CBM-+}","  {CBM-+}{CBM-+}","{CBM-+}{CBM-+}","  {CBM-+}{CBM-+}","    {CBM-+}{CBM-+}{CBM-+}"
 1320 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"," {CBM-+}","  {CBM-+}{CBM-+}"," {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1330 data"{CBM-+}{CBM-+}   {CBM-+}{CBM-+}","  {CBM-+} {CBM-+}","   {CBM-+}","  {CBM-+} {CBM-+}","{CBM-+}{CBM-+}   {CBM-+}{CBM-+}"
 1340 data"     {CBM-+}{CBM-+}","    {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}","    {CBM-+}","     {CBM-+}{CBM-+}"
 1350 data"{CBM-+}{CBM-+}    {CBM-+}","{CBM-+} {CBM-+}   {CBM-+}","{CBM-+}  {CBM-+}  {CBM-+}","{CBM-+}   {CBM-+} {CBM-+}","{CBM-+}    {CBM-+}{CBM-+}"
 1360 data" ","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}     {CBM-+}"," "
 1370 data"{CBM-+}{CBM-+}{CBM-+}{CBM-+}","  {CBM-+} {CBM-+} {CBM-+}","  {CBM-+} {CBM-+}","  {CBM-+} {CBM-+} {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 1380 data" ","{CBM-+}     {CBM-+}","{CBM-+}     {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"," "
 1390 data"    {CBM-+}","    {CBM-+}{CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","    {CBM-+}{CBM-+}","    {CBM-+}"
 1400 data"   {CBM-+}","  {CBM-+}{CBM-+}{CBM-+}"," {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}","   {CBM-+}"
 1410 data"   {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","    {CBM-+}","{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}","   {CBM-+}"
 1420 print"bildschirm - 1"
 1430 print"{down}drucker    - 2";
 1440 getr$:ifr$=""then1440
 1450 ifval(r$)<1orval(r$)>2then1440
 1460 cy=val(r$):print"               ->";cy
 1470 open5,4
 1480 printli$
 1490 print"zeichen : buchstabe - 1"
 1500 print"{down}              {CBM-+}     - 2";
 1510 getr$:ifr$=""then1510
 1520 ifval(r$)<1orval(r$)>2then1520
 1530 cb=val(r$):print"      ->";cb
 1540 ifcy=2andcb=2thenopen6,4,6
 1550 return
    0 clr:pg$="lawn!":nm$="26":gosub60400:goto62000
    1 " kathy higby
    2 " 3902 w. rovey
    3 " phoenix, ariz. 85019
    4 "
    5 " cursor #26, june, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 18 june 81
  100 print"{down}{down}enter your skill level (1-10) ? ";
  101 gosub60000:ifin$=""thenin$="5":print"i'll assume "in$".":forg=1to1e3:next
  102 g=val(in$):ifg<1org>10then100
  103 m(1)=wd-1:m(2)=wd:m(3)=wd+1:m(4)=-1:m(5)=0:m(6)=1:m(7)=-wd-1:m(8)=-wd
  104 m(9)=-wd+1
  105 ifg=0theng=5:print"{down}{down}{down}{down}i'll assume 5":forj=1to600:next
  110 d=0:p=0:f=37.4:d=g/640:lf=50
  120 aa$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  130 x=crt+wd*23+38:a=5:s=59464:o=59466:u=59467:pokeu,16:pokeo,15:pokes,0
  140 print"{clr}percent:           fuel: e {rvon}          {rvof} f
  150 print"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-F}    {CBM-D}{CBM-F}{CBM-D}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  160 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}G    HG{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  170 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}G    HG{SHIFT--}{CBM-+}{CBM-+}UI{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  180 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}G    HG{SHIFT--}{CBM-+}{CBM-+}JVI{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  190 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}G    HG{SHIFT--}{CBM-+}{CBM-+}{CBM-+}JK{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  200 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}UG    HG{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  210 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}U{SHIFT-+}{CBM-K}    {rvon}{CBM-K}{rvof}GJ{SHIFT-*}{SHIFT-*}I{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  220 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}JV{rvon}{CBM-G} {CBM-M}   {rvof}I   {SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}U{SHIFT-*}I{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  230 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}B{rvon}{CBM-G} {CBM-M}   {rvof}UI  JI{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}JV{SHIFT-+}I{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  240 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}J{rvon}{CBM-G} {CBM-M}   {rvof}JKI{rvon}  {rvof}{CBM-K}*{CBM-+}*{CBM-+}{CBM-+}*{CBM-+}*UI{CBM-+}{CBM-+}{CBM-+}JV{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  250 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-G} {CBM-M}  N               {rvof}K{CBM-+}{CBM-+}{CBM-+}{CBM-+}JK{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  260 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-G} {CBM-M} N                {rvof}*{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  270 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-G} {CBM-M}N{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}{CBM-K}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  280 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-G} {CBM-M}M                 {rvof}{CBM-K}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  290 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-G} {CBM-M} M                {rvof}*{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  300 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}U{rvon}{CBM-G} {CBM-M}  M   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  310 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}JK{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{rvon} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  320 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{CBM-K}           {rvon}{CBM-K}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  330 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}         {rvon}{CBM-K}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  340 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{CBM-K}           {rvon}{CBM-K}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  350 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-B}{CBM-B}{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-V}{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}
  360 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-W}
  370 print"{up}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}W{rvof}
  380 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{home}
  390 pokecrt+23*wd+39,93:pokecrt+24*wd+39,125:y=86
  400 z=peek(x+w):ifz=32goto430
  410 ifz<>102thena=5:goto440
  420 pokes,255:p=p+1:ifrnd(1)<.007then770
  430 pokex,32:x=x+w
  440 pokex,y:b=a:w=0:geta$:a=val(a$):ifa=0thena=b
  445 y=86:iff<lf-dtheny=91:lf=f
  450 f=f-d:print"{home}"tab(8)int(p/506*100):iff<37thenprint"{home}"tab(f)":"
  460 pokes,100:pokes,0:iff<28orp=506then570
  470 w=m(a):goto400
  570 gosub1000:ms$="{rvon}out of fuel!":ifp=506thenms$="{rvon}you won!{rvof}       "
  575 print"{home}"ms$:ifp=506thenpokes,81:forj=1to1200:next:pokes,0:goto600
  580 pokex,215:forx=1to250step.5:pokes,x:next:pokes,0
  600 print"{clr}{down}{down}{down}"ms$
  605 gosub1000
  630 tp=int(p/506*100):iftp>bpthenbp=tp
  635 gm=gm+1:tt=tt+tp:av=int(tt/gm)
  640 print"{down}{down}game"gm"playing at level"g
  645 print"{down}{down}           percent of lawn mowed"
  650 print"           {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  653 print"{down}this game:"tab(18)tp
  655 ifgm=1then670
  660 print"{down}average:"tab(18)av
  665 print"{down}best so far:"tab(18)bp
  670 pokeu,0:print"{down}{down}play again ? ";
  675 gosub60000:ifleft$(in$,1)<>"n"then110
  680 poke59466,0:poke59467,0:print"{clr}{home}{home}":end
  690 goto670
  770 pokex,32:x=x+w:bb$="{rvon}rocks{rvof}":ifrnd(1)<.5thenbb$="{rvon}weeds{rvof}"
  780 forc=1to15:pokes,20:printaa$bb$:pokex,214:pokes,100:printaa$"     "
  790 pokex,32:next:a=5:goto440
  800 forx=250to1step-4
  810 pokes,x:next:forx=150to100step-1:pokes,x:next:printaa$"       "
  820 forx=1to100:next:return
  830 print"{clr}{home}{home}":end
 1000 getl$:ifl$<>""then1000
 1010 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60415 ifwd=80thenprint"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(39)chr$(143)
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by kathy higby
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}practice for the summer months
 62080 print"{down}{down}{down}press {rvon}return{rvof} to continue
 62090 getin$:ifin$=""then62090
 62100 goto60300
    0 clr:poke59468,12
    1 rem leap copyright (c) 1979 glen fisher
    4 :
    5 rem cursor #13, sept, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of sep 26 79
   90 pg$="leap":nm$="13":gosub62000
  100 dt$="{rvof} {rvof}Q{rvof}W{rvon} {rvon}W{rvon}Q"
  200 hr=0:hc=0
  500 ht=12:vt=5
  510 cr$=""
  520 bp=1e5
 1000 t$="{left}{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}":u$="{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
 1010 print"{clr}":h=0:v=0:gosub9000:print"{up} a b c d e f g h":h=ht-2
 1020 printtab(ht);"{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}
 1030 printtab(h);1;t$:printtab(ht);u$:printtab(h);2;t$:printtab(ht);u$
 1035 printtab(h);3;t$:printtab(ht);u$
 1040 printtab(h);4;t$
 1050 printtab(ht);"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}
 1110 fori=1to4:forj=1to8:b(i,j)=1:nextj:nexti
 1200 forc=1to8:forr=1to4
 1210 gosub9200
 1220 nextr,c
 1300 ifhc>0thenr=hr:c=hc:goto1330
 1310 h=-1:v=9:gosub9000:print"where's the hole?   {left}{left}";:gosub60000:gosub9100
 1315 ifin$=""thenr=int(rnd(1)*3)+1:c=int(rnd(1)*8)+1:er=0
 1320 iferthen1310
 1325 hr=r:hc=c
 1330 b(r,c)=0:gosub9200
 1340 h=-1:v=9:gosub9000:print"                    "
 1900 mv=0:ti$="000000"
 2000 h=5:v=-3:gosub9000:print"{rvon}move";mv+1
 2005 h=0:v=9:gosub9000:print"from?   {left}{left}";:gosub60000:gosub9100
 2010 oner+1goto2020,2000,2950,2800
 2020 fr=r:fc=c
 2030 ifb(fr,fc)=0then2000
 2040 gosub9250
 2050 h=0:v=9:gosub9000:print"to?     {left}{left}{left}{left}";:gosub60000:gosub9100
 2055 oner+1goto2060,2050,2950,2800
 2060 tr=r:tc=c
 2070 ifb(tr,tc)<>0then2050
 2100 iffr<>trandfc<>tcthen2900
 2110 ifabs(fr-tr)<>2andfc=tcthen2900
 2120 ifabs(fc-tc)<>2andfr=trthen2900
 2130 mr=(fr+tr)/2:mc=(fc+tc)/2
 2140 ifb(mr,mc)=0then2900
 2200 b(tr,tc)=b(fr,fc):b(fr,fc)=0
 2210 b(mr,mc)=0
 2220 r=fr:c=fc:gosub9200
 2230 r=tr:c=tc:gosub9200
 2240 r=mr:c=mc:gosub9200
 2250 mv=mv+1
 2260 h=2:v=13:gosub9000:print"time ";:et$=ti$
 2270 printleft$(et$,2);":";mid$(et$,3,2);":";right$(et$,2)
 2300 fori=1to4:forj=1to8:t=sgn(b(i,j))
 2310 ifi<3thenift<>sgn(b(i+2,j))andb(i+1,j)<>0then2000
 2320 ifj<7thenift<>sgn(b(i,j+2))andb(i,j+1)<>0then2000
 2330 nextj,i
 2400 h=0:v=11:gosub9000:print"you have no move."
 2410 pg=31-mv:ifpg<bpthenbp=pg:bt$=et$
 2420 ifpg=bpandet$<bt$thenbt$=et$
 2500 h=0:v=15:gosub9000:print"try again? ";:gosub60000
 2510 ifleft$(in$,1)<>"n"then1000
 2520 print"{clr}{down}{down}your best game was:      {down}
 2530 printbp;"pegs left in ";
 2540 ifleft$(et$,2)<>"00"thenprintleft$(et$,2);":";
 2550 printmid$(bt$,3,2);":";right$(bt$,2);"."
 2590 end
 2800 et$=ti$:goto2410
 2900 ifer<0then2950
 2905 h=4:v=11:gosub9000:print"{rvon}bad move."
 2910 tm=ti+90
 2920 ifti<tmthen2920
 2930 gosub9000:print"         "
 2950 r=fr:c=fc:gosub9200
 2960 goto2000
 8999 end
 9000 print"{home}":pokeql,v+vt:print"{up}";tab(ht+h);:return
 9100 er=1:ifin$="_"thener=2
 9101 ifin$="r"thener=3
 9105 iflen(in$)<>2thenreturn
 9110 r$=left$(in$,1):c$=right$(in$,1)
 9120 ifr$>="a"andr$<="h"then9150
 9130 ifr$<"1"orr$>"4"orc$<"a"orc$>"h"thenreturn
 9140 r=asc(r$)-48:c=asc(c$)-64:er=0:return
 9150 ifc$<"1"orc$>"4"thenreturn
 9160 r=asc(c$)-48:c=asc(r$)-64:er=0:return
 9200 h=2*c-1:v=2*r-1:gosub9000:printmid$(dt$,1+2*b(r,c),2):return
 9250 b=b(r,c):b(r,c)=b+3:gosub9200:b(r,c)=b:return
 9999 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>2then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by glen fisher{down}
 62020 gosub60500
 62030 print"{down}clear the board of all the pegs
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=2:gosub60200
 62110 print"{down}you begin with a 4 by 8 board with all
 62120 print"{down}squares filled with white pegs. you
 62130 print"{down}first remove one peg. (if you press
 62140 print"{down}{rvon}return{rvof}, a random peg is removed.)
 62150 print"{down}{down}after the starting 'hole' is selected,
 62160 print"{down}the object of the game is to remove pegs
 62170 print"by jumping other pegs over them. note
 62180 print"{down}that you may only jump up and down, or
 62190 print"{down}left and right, but {rvon}not{rvof} diagonally!
 62195 gosub60200
 62200 print"{down}the game ends when you have only one peg
 62210 print"left, or when you have no remaining
 62220 print"{down}legal moves. you can 'resign' by press-
 62230 print"{down}ing 'r' for your 'from' move.
 62240 print"{down}{down}if you change your mind about which peg
 62250 print"{down}you want to move, enter a '_' for your
 62260 print"{down}'to' move, and you'll be asked again
 62270 print"{down}which peg you wish to move.
 62280 gosub60200
    0 rem lem ver2  jeff jessee and
    1 rem           creative computing
    2 gosub 3000
    3 print"{clr}directions";:input a$:if left$(a$,1)<>"y"then 50
    4 goto 20
    5 for x9=1 to 500:next x9:return
    6 for x9=1 to 2000:next x9:return
   20 print"{clr}{down}{down}the object is to land your lem on the "
   21 print"moon with the lowest possible velocity.":print
   22 print"you control thrust with the numeric keys";
   23 print"0-9 (don't return).":print
   24 print"if you give up, hit return and the lem's";
   25 print"computer will take control."
   30 print:print:print"hit return to begin game."
   40 get g$:if g$="" then 40
   50 lem$="{rvon}{SHIFT-POUND} {CBM-*}{left}{left}{left}{down} {CBM-U} {left}{left}{left}{left}{down}{SHIFT-POUND}usa{CBM-*}{left}{left}{left}{left}{left}{down}{rvof}N   M"
   52 l$="{rvon}{SHIFT-POUND} {CBM-*}{left}{left}{left}{down} {CBM-U} {left}{left}{left}{down}{rvof}U{SHIFT-*}I"
   55 a$="      {rvon}{SHIFT-POUND}{CBM-*}{rvof}        {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {CBM-@}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}            {rvon}{SHIFT-POUND} {rvof}"
   60 b$="{rvon}{CBM-*}{rvof} {CBM-@}{CBM-P}{CBM-@}{rvon}{SHIFT-POUND}   {CBM-Y}{CBM-T}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{CBM-Y}{CBM-T}         {CBM-*}{rvof} {CBM-@}{CBM-P}{CBM-P}{CBM-@}{CBM-O}{CBM-O}{CBM-O}{CBM-I}{CBM-O}{CBM-I}{rvon}  {rvof}"
   65 c$="{rvon}                                       {rvof}"
   70 e$="      {left}{left}{left}{left}{left}{left}"
   75 er$="   {down}{left}{left}{left}   {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     "
   80 poke 59468,12:rem set graphics mode
  100 print"{clr}";:t=.5:b=0:d=0:m=10000:h=7500*(1 +.4*rnd(1)):v=-50*(1+rnd(1))
  110 s1=1:s2=1:q=10000
  200 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";a$,b$,c$,c$;
  260 z=20
  300 gosub 1500:if h<=.1 then1100
  310 if m<8500 then 1000
  400 get t$
  402 if t$>="0"andt$<="9" then s1=1:goto 600
  405 if t$=chr$(13)or s1=2 then s1=2:goto 700
  410 s1=1:goto 900
  600 s1=1:b=asc(t$)-48:goto 900
  700 b=b-2:if v>0 then 750
  710 b=(5+v*v/(2*h))*m/10000
  750 if b>0 then 800
  760 b=0:goto 900
  800 if b > 9 then b=9
  900 a=s2*10000*b/m-5:h=h+v*t+a*t*t/2:v=v+a*t:m=m-s2*b*t:d=d+t:goto 300
 1000 print"fuel tank empty   ";:s2=0:m=8500:goto 900
 1100 print:print"contact with surface  ";:print:if abs(v)>2 then 1200:print
 1105 z=0:gosub1400:print lem$;"{home}";:for x=1 to 18:print"{down}";:next x
 1110 gosub5:print"congratulations,";:print:print"a soft landing";
 1115 print"{home}";:for x=1 to 22:print"{down}";:next x:for x=1 to 31:print"{rght}";:next x
 1120 print"   ";:gosub6
 1125 print"{left}{left}{left}{up}{rvon}^";:gosub5:print"{left}u{rvof}{left}{down}^";:gosub5:print"{left}{left}^ ";:gosub5
 1127 print"{left}{left}{left}^N";:gosub5:print"{up}{rvon}^";:gosub5:print"{left}u{rvof}{left}{down}^";:gosub5
 1130 print"{left}{left}{left}{left}^ ";:gosub5:print"{left}{left}{up}{CBM-G}{left}{up}{CBM-G}";:gosub5:print"{left}{left}{left}{CBM-I}{CBM-POUND}{left}{left}{down}{CBM-U}{CBM-U}{down}";:gosub5
 1132 print"{CBM-G}^";:gosub6
 1134 print"{rght}{up}{rvon}^{down}{left}{rvof} {rvon}{up}";:gosub5:print"{left}u{rvof}{down}{left}{left}{left} ^";:gosub5:print"{left}N^";:gosub5
 1136 print"{left}{up}{rvon}^{left}{down}{rvof} {rvon}{left}{up}{rvof}";:gosub5:print"{rvon}u{rvof}";:gosub6:z=1
 1138 forx=5to1step-1:gosub1400:print"    ";x;:gosub5:nextx
 1139 gosub 1400:print"      ";
 1140 for z=1 to 20:gosub 1400:print l$:next z:z=20:gosub 1400
 1142 print"   {left}{left}{left}{down}   {left}{left}{left}{down}   ";:for z=1 to 20:gosub1400:print"{down}{down}   ";:next z
 1148 get g$:if g$=""then 1148
 1150 goto 100
 1200 if abs(v)>5 then 1300
 1210 print:print"excessive speed,";:print:print"lem damaged";
 1220 z=0:gosub1400:print"{down}";lem$;"{left}{left}{left}{left}{left}{rvon} {rvof}){left}{left}{left}{up}{rvon}{SHIFT-POUND}{rvof} ";
 1230 get g$:if g$="" then 1230
 1240 stop
 1300 print:print"all is lost!";
 1305 z=0:gosub1400:printlem$;:gosub1400:print er$;
 1310 z=0:gosub1400:print"{down}{down}{rvon}{SHIFT-POUND} {CBM-*}{left}{left}{left}{down} {CBM-U} {rvof}/{up}/{up}/{left}{left}{left}{left}{left}{left}{left}{left}{left}\{down}\{down}\";:gosub5
 1320 print"{up}   {left}{left}{left}{down}{rvon}{SHIFT-POUND} {CBM-*}{rvof} {up} {up} {left}{left}{left}{left}{left}{left}{left}{left}{left} {down} {down} {down}{rght}{rvon}{CBM-T}{rvof}";
 1330 get g$:if g$=""then 1330
 1340 stop
 1400 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1410 for i=20 to z step -1:print"{down}";:next i:print"{up}{up}";:return
 1500 if h > 10*q then q=q*10:goto 1610
 1505 if q=1 or h>q then 1800
 1600 q=q/10
 1610 for x=10 to 2 step -2:print "{home}";
 1620 for y=1 to 22-2*x:print"{down}";:next y
 1630 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}      {left}{left}{left}{left}{left}{left}";x*q;:next x
 1640 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}";
 1650 for x=1 to 10 :print"-{left}{down}{down}";:next x
 1800 if z=int(2*h/q) or h>10000 then 1900
 1810 if z>20 or z<0 then 1850
 1820 gosub 1400:print er$;
 1850 z=int(2*h/q):if z>20 or z<0 then 1900
 1860 gosub 1400:print lem$;
 1885 if b>0 then print"{left}{left}{left}{left}U{SHIFT-*}I";
 1900 print"{home}{down}";
 1910 print"altitude  ";e$;int(h);:print:print
 1920 print"velocity  ";e$;int(10*v+.5)/10;:print:print
 1930 print"acceler.  ";e$;int(10*a+.5)/10;:print:print
 1940 print"thrust    ";e$;int(b)*sgn(m-8500);:print:print
 1950 print"fuel      ";e$;int(m-8500);:print:print
 1960 print"time      ";e$;int(d);:print:print:print
 1970 if s1=1 then2000
 1980 print"{rvon}automatic control{rvof}    ";:print:return
 2000 print"manual control        ";:print:return
 3000 rem
 3010 print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(18);"{rvon}lem":print:print
 3020 print tab(11);"creative computing"
 3030 print tab(13);"p.o. box 789-m"
 3040 print tab(6);"morristown, new jersey 07960"
 3050 for b1=1 to 2000:next b1
 3060 b1=0
 3070 return
   30 dimg(10),a1$,a2$,a3$
   50 print"{clr}{down}{down}lemonade 1986 by mark d. rejhon."
   60 print"{down}{down}what is your name";:inputn$
   65 ifn$=""orlen(n$)>10thenprint"{clr}":goto50
   70 print"{down}{down}"n$", you are going to operate":print"your lemonade stand for 12 weeks."
   75 print"{down}your parents agreed to give you $12 to  ";
   80 print"give you a good start for the summer.   ";
   85 print"you will have to pay back your $12 at   ";
   90 print"the end of the summer.":gosub2000
  100 print"{clr}":wk=1:goto140
  105 print"{clr}{down}lemonade stand";tab(33);"week"wk
  106 print"{up}CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
  107 print"   {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G}"
  108 print"   {CBM-M}             {CBM-G}   total"
  109 print"   {CBM-M}             {CBM-G}        kg sugar"
  110 print"   {CBM-M}  lemonade   {CBM-G}        lt lemon con."
  111 print"   {CBM-M}             {CBM-G}        paper cups"
  112 print"   {CBM-M}             {CBM-G}"
  113 print"   {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G}"
  114 print"   {CBM-M}             {CBM-G}"
  115 print"   {CBM-M} {CBM-@}{CBM-@}{CBM-@}         {CBM-G}"
  116 print"   {CBM-M} M NI        {CBM-G}"
  117 print"   {CBM-M} ( )K{rvon}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{rvof} {CBM-G}"
  119 print"   {rvon}{SHIFT-POUND}             {CBM-*}{rvof}"
  120 print"   BQBWBQBWBQBWBQB"
  121 print"   BWBQBWBQBWBQBWB"
  122 print"   BQBWBQBWBQBWBQB"
  123 print"   BWBQBWBQBWBQBWB"
  130 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{home}"
  135 print"{home}{down}{down}{down}{down}"tab(5);n$"'s":return
  140 gosub105:m$=" 1200"
  145 print"{home}{down}{down}{down}{down}"tab(28)"$ 12.00":printtab(20);s:printtab(20);l:printtab(20);c
  150 sp$=str$(110+int(rnd(1)*25))
  160 lp$=str$(100+int(rnd(1)*25))
  180 cp$=str$(100+int(rnd(1)*25))
  190 tf$=str$(int(rnd(1)*40+66))
  193 tc$=str$(int((val(tf$)-32)*.56))
  194 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(5)"          "
  195 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);"prediction for"
  197 printtab(20)"saturday:{down}":printtab(20)"the temperature"
  200 ce=val(mid$(tc$,2,1))
  202 iflen(tf$)=3thent=val(mid$(tf$,2,1))*10
  204 iflen(tf$)=4thent=90
  210 printtab(20)"in the"t"{left}'s f":printtab(26)ce"{left}0's c"
  230 gosub940
  240 gosub2120
  245 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);"temperature:{down}"
  250 printtab(21);tf$" f":printtab(21);tc$" c":gosub2030
  300 print"price for a cup of lemonade            "
  305 print"in cents: --{left}{left}";:g=4:gosub2050:ifg(4)=0org(4)>80thengosub2030:goto300
  307 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(5)g(4)"{left} cents"
  310 be$=str$(val(tf$)-57+int(rnd(1)*5)):se$=str$(g(4))
  320 f=(val(se$)-val(be$)):ll=val(be$)*3-f:iff>0thenll=ll-val(be$)
  321 bl=val(be$)*3:bn$=str$(val(be$)*bl)
  322 gosub2030
  325 be=0:fora=1toll
  326 ifss=0ands=0thenro$="sugar":gosub2150:goto441
  328 ifls=0andl=0thenro$="lemon concentrate":gosub2150:goto441
  330 ifc=0thenro$="paper cups":gosub2150:goto441
  340 ifss=0thens=s-1:ss=25
  350 ifls=0thenl=l-1:ls=35
  355 ss=ss-1:ls=ls-1:c=c-1:m$=str$(val(m$)+g(g)):be=be+g(g):bc$=str$(be)
  360 print"{home}{down}{down}{down}{down}"tab(28)"$"left$(m$,2+len(m$)-4)"."right$(m$,2)" ":printtab(20);s"{left} "
  370 printtab(20);l"{left} ":printtab(20);c"{left} "
  380 nexta:gosub2030:fora=0to1200:next
  385 ifll<1thenll=1
  390 print"you made"ll"sales with"g(g)"cents."
  400 print"you grossed $"left$(bc$,2+len(bc$)-4)"."right$(bc$,2)" .";
  410 fora=0to6500:next:gosub2030:fora=0to500:next
  415 ifval(bn$)>val(bc$)thenprint"you would have grossed $"left$(bn$,2+len(bn$)-4)".";
  417 ifval(bn$)>val(bc$)thenprintright$(bn$,2)" if you":print"have charged"be$;
  420 ifval(bn$)>val(bc$)thenprint" cents.":goto440
  425 gosub2030:printg(4)"cents was the best price for today."
  430 print"you're a good {rvon} businessman {rvof}."
  435 tc=1:fora=1to130:foraa=56230to56242:pokeaa,tc:next:tc=tc+1:iftc=16thentc=1
  437 next:goto441
  440 fora=0to6500:next
  441 ifwk=12then2200
  442 wk=wk+1:print"{home}{down}"tab(33)"week"wk:gosub2120:gosub2030
  445 goto150
  900 end
  940 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}a 5 kg package of sugar costs $";
  955 printleft$(sp$,2+len(sp$)-4)"."right$(sp$,2)
  965 print"how many do you want to buy? ";:g=1:gosub2050
  970 ifval(sp$)*g(1)>val(m$)thengosub2030:print"you don't have enough for"g(1)
  973 ifval(sp$)*g(1)>val(m$)thenprint"5 kg packages of sugar.":fora=0to6000:next
  975 ifval(sp$)*g(1)>val(m$)thengosub2030:goto940
  980 m$=str$(val(m$)-(val(sp$)*g(1)))
  985 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)"   "
  990 s=s+g(1)*5:printtab(20);s"":gosub2030
 1000 print"a 1l bottle of lemon concentrate costs"
 1005 print"$"left$(lp$,2+len(lp$)-4)"."right$(lp$,2)"  how many do you want to ";
 1010 print"buy? ";:g=2:gosub2050
 1015 ifval(lp$)*g(2)>val(m$)thengosub2030:print"you don't have enough for"g(2)
 1020 ifval(lp$)*g(2)>val(m$)thenprint"1l bottles of lemon concentrate.":fora=0to6000:next
 1025 ifval(lp$)*g(2)>val(m$)thengosub2030:goto1000
 1030 m$=str$(val(m$)-(val(lp$)*g(2)))
 1035 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)"   {down}"
 1040 l=l+g(2):printtab(20);l"":gosub2030
 1045 print"a package of 100 paper cups costs"
 1050 print"$"left$(cp$,2+len(cp$)-4)"."right$(cp$,2)"  how many do you want? ";
 1053 g=3:gosub2050
 1055 ifval(cp$)*g(3)>val(m$)thengosub2030:print"you don't have enough for"g(3)
 1060 ifval(cp$)*g(3)>val(m$)thenprint"packages of 100 paper cups.":fora=0to6000:next
 1065 ifval(cp$)*g(3)>val(m$)thengosub2030:goto1045
 1070 m$=str$(val(m$)-(val(cp$)*g(3)))
 1075 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)"   {down}{down}"
 1080 c=c+(g(3)*100):printtab(20);c"":gosub2030:return
 1995 end
 2000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} press spacebar to continue "
 2010 geta$:ifa$<>" "then2010
 2020 return
 2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                       "
 2035 print"                                       "
 2040 print"                                      {up}{up}{up}{up}";:print:return
 2050 geta1$:ifa1$=""then2050
 2053 ifasc(a1$)<48orasc(a1$)>57then2050
 2060 printa1$;
 2065 geta2$:ifa2$=""then2065
 2067 ifa2$=chr$(20)thenprintchr$(20);:a1$="":a2$="":goto2050
 2070 ifa2$=chr$(13)thena2$="":goto2110
 2075 ifasc(a2$)<48orasc(a2$)>57then2065
 2080 printa2$;
 2090 geta3$:ifa3$=""then2090
 2095 ifa3$=chr$(20)thenprintchr$(20);:a2$="":a3$="":goto2065
 2100 ifa3$=chr$(13)thena3$="":goto2110
 2105 goto2090
 2110 g(g)=val(a1$+a2$):a1$="":a2$="":a3$="":return
 2120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:fora=1to6:printtab(20);"                  ":next:return
 2150 gosub2030:fora=0to1200:next:print"you would have made $";:wm$=str$(ll*g(4))
 2160 printleft$(wm$,2+len(wm$)-4)"."right$(wm$,2)" if you ":print"hadn't run out of ";
 2170 printro$".":fora=0to6650:next:return
 2200 fora=0to600:next:print"{clr}{down}"
 2210 print"the summer is over. you have made"
 2215 print
 2220 print"$"left$(m$,2+len(m$)-4)"."right$(m$,2)". ";
 2230 print"you owe your parents $12 so":print:print"you ";
 2240 print"keep $";:m$=str$(val(m$)-1200):printleft$(m$,2+len(m$)-4)"."right$(m$,2)".";
 2250 print" you have"s"kg of":print:print"sugar and"l"bottles of lemon":print
 2260 print"concentrate and"c"paper cups left"
 2270 print:print"over.":gosub2000
 2280 print"{clr}{down}{down}play again?"
 2290 getp$:ifp$="y"thenrun
 2300 ifp$="n"thenprint"{clr}goodbye!":end
 2310 goto2290
    0 clr:poke59468,12
    1 rem letter copyright (c) 1980 michael contino
    2 rem 119 del monte dr
    3 rem walnut creek, ca 94595
    4 :
    5 rem cursor #17, feb 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 19 feb 80
   90 pg$="letter":nm$="17":gosub62000
  100 print"{clr}
  150 print"{clr}{down}{down}what is your name, please? ";
  160 gosub60000:n$=in$
  200 print"{clr}{down}{down}{down}pick a letter, any letter!"
  201 print"{down}    (or any number) ";
  205 zt=1:zm=0
  210 get a$:if a$<>""then 220
  215 if ti>zm then print mid$("? ",zt,1);"{left}";:zt=3-zt:zm=ti+30
  216 goto 210
  220 a=asc(a$)
  230 print"{clr}":ifa<48or(a>57anda<65)thenprint"{down}{down}{down}letters or numbers only":goto930
  250 ona-47goto630,1000,1030,1060,1080,1120,1170,1200,1210,1260
  260 ona-64goto290,310,350,370,400,430,440,460,480,500,530,560,570,600,630,680,700
  270 ona-81goto710,720,750,760,790,810,840,870,900
  280 a=0:goto230
  290 w=1:d=-1:s0=18:s1=3:gosub960:print"{home}{down}{down}{down}":a$=" ":s0=20:s1=15:gosub960
  300 print"{down}{down}":s0=11:s1=8:gosub960:goto930
  310 gosub320:gosub320:print"{down}{down}":goto930
  320 s=7:w=1:forl=14to16:gosub950:next:w=6:l=4:gosub950:w=1:forl=16to14step-1
  330 gosub950:next:print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":l=4:fors=20to22:gosub950:next
  340 fors=22to20step-1:gosub950:next:return
  350 gosub360:goto930
  360 gosub640:print"{home}{down}{down}{down}{down}{down}{down}":w=10:l=14:gosub950:print:print:print:print:return
  370 w=3:l=11:s=7:gosub950:w=15:l=4:gosub950:w=3:l=11:gosub950:print"{home}"
  380 l=4:w=1:fors=17to21:gosub950:next:w=11:gosub950:w=1:fors=21to17step-1
  390 gosub950:next:goto930
  400 gosub410:goto930
  410 s=10:w=4:l=16:gosub950:l=5:gosub950:l=12:gosub950:l=5:gosub950
  420 l=16:gosub950:return
  430 s=10:w=4:l=16:gosub950:l=6:gosub950:l=12:gosub950:w=8:l=6:gosub950:goto930
  440 gosub360:a$="g":print"{up}{up}{up}{up}{up}{up}{up}{up}{up}":s=22:l=6:w=2:gosub950:s=25:l=3:gosub950
  450 print"{down}{down}{down}":goto930
  460 s=7:w=20:l=21:gosub950:print"{home}":s=14:w=7:l=7:a$=" ":gosub950
  470 print"{down}{down}{down}{down}{down}":gosub950:goto930
  480 gosub490:s=18:w=16:l=4:gosub950:gosub490:goto930
  490 s=15:w=2:l=10:gosub950:return
  500 s=13:w=3:l=12:gosub950:s=17:l=4:w=12:gosub950:s=8:w=4:l=13:gosub950
  510 print"{up}{up}{up}{up}{up}":a$=" ":w=1:fors=12to13:l=(14-s)*2:gosub950:next
  520 s=8:forl=0to1:gosub950:next:print"{up}{up}":printtab(21)a$:goto930
  530 s=7:w=1:forl=20to12step-1:gosub950:next:forl=12to22:gosub950:next
  540 print"{home}":s=12:a$=" ":forl=9to0step-1:gosub950:next:print
  550 forl=1to9:gosub950:next:goto930
  560 s=7:w=16:l=4:gosub950:w=3:l=16:gosub950:goto930
  570 s=9:w=18:l=22:gosub950:print"{home}":s0=13:s1=20:d=1:w=1:a$=" ":gosub960
  580 print"{home}{down}{down}{down}{down}{down}":s=13:forl=0to12:gosub950:next:print"{home}{down}{down}{down}{down}{down}"
  590 fors=27to15step-1:l=27-s:gosub950:next:goto930
  600 s=9:w=18:l=22:gosub950:print"{home}":a$=" ":w=1:fors=13to27:l=27-s:gosub950:next
  610 print"{home}{down}{down}{down}{down}{down}":s=13:forl=0to12:gosub950:next:goto930
  630 goto980
  640 print"{down}":w=1:s0=15:s1=10:d=-1:gosub960:w=6:l=l+2:gosub950
  650 s0=10:s1=15:d=1:w=1:gosub960
  660 print"{home}{down}{down}{down}{down}{down}{down}";:s0=16:s1=13:d=-1:a$=" ":gosub960:s=s+1:w=4:gosub950
  670 s0=13:s1=16:w=1:d=1:gosub960:print:print:print:return
  680 gosub690:goto930
  690 gosub320:print:print:print:s=7:l=4:w=8:gosub950:return
  700 gosub640:print"{up}{up}{up}{up}{up}{up}{up}{up}":a$="q":l=2:fors=24to30:gosub950:next:goto930
  710 gosub690:print"{up}{up}{up}{up}{up}{up}{up}{up}";:w=1:fors=15to22:gosub950:next:goto930
  720 w=1:s0=15:s1=12:d=-1:gosub960:l=4:fors=12to24:gosub950:next:s0=12:s1=15:d=1
  730 gosub960:print"{home}{down}{down}":s=20:l=1:a$=" ":gosub950:s=18:l=5:gosub950
  740 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":s=17:gosub950:s=19:l=1:gosub950:print:print:goto930
  750 s=7:w=4:l=24:gosub950:s=17:w=16:l=4:gosub950:goto930
  760 s=7:l=21:w=19:gosub950:print"{home}":s=12:l=11:w=15:a$=" ":gosub950
  770 s=13:l=9:w=1:gosub950:print:s=7:forl=0to1:gosub950:next:print"{up}{up}{up}"
  780 fors=28to27step-1:gosub950:next:goto930
  790 w=1:d=1:s0=3:s1=18:gosub960:print"{home}":a$=" ":s0=8:s1=20:gosub960
  800 print:print:print:goto930
  810 w=1:l=4:fors=2to14:gosub950:next:print"{home}":fors=34to22step-1:gosub950:next
  820 print"{up}{up}{up}{up}{up}{up}{up}{up}":d=-1:s0=20:s1=15:gosub960:print"{up}{up}{up}":s1=18:a$=" "
  830 gosub960:print:goto930
  840 gosub850:goto930
  850 w=1:l=4:fors=9to27:gosub950:next:print"{home}":fors=27to9step-1:gosub950:next
  860 return
  870 gosub850:a$=" ":print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":d=-1:s0=22:s1=20:gosub960
  880 l=4:print"{up}";:fors=21to27:gosub950:next:goto930
  890 s=9:w=3:l=19:gosub950:return
  900 print"{clr}":gosub890:w=1:l=4:fors=23to10step-1:gosub950:next:gosub890
  930 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  932 print"pick another one, "n$;:goto210
  940 :::rem 200 does all drawing
  950 fori=1tow:forj=stol+s:printtab(s)a$;:next:print:next:return
  960 fors=s0tos1stepd:l=2*(20-s):ifl<0thenl=5
  970 gosub950:next:return
  980 gosub640:ifa=79then930
  990 print"{home}{down}{down}{down}{down}{down}":a$="0":l=3:fors=23to13step-1:gosub950:next:print"{down}{down}{down}":goto930
 1000 l=3:w=1:fors=19to15step-1:l=l+1:gosub950:next:s=19:l=4:w=13:gosub950
 1010 print"{home}{down}{down}{down}{down}{down}":w=1:a$=" ":forl=0to1:s=18-l:gosub950:next
 1020 forw=1to13:print:next:goto930
 1030 w=1:s0=15:s1=12:d=-1:gosub960:l=4:fors=24to11step-1:gosub950:next
 1040 s=11:w=3:l=16:gosub950:print"{home}{down}{down}{down}":a$=" ":s=18:l=4:gosub950
 1050 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto930
 1060 gosub1220:print"{home}{down}{down}{down}":a$=" ":w=7:s=12:l=6:gosub950:w=1:l=5:gosub950
 1070 w=7:l=6:gosub950:print"{down}{down}{down}":goto930
 1080 w=1:l=3:fors=18to7step-1:l=l+1:gosub950:next
 1090 w=3:l=l+5:gosub950:w=5:l=4:s=18:gosub950
 1100 print"{home}{down}{down}{down}{down}{down}":w=1:l=-1:a$=" ":fors=17to11step-1:l=l+1:gosub950:next
 1110 print"{down}{down}{down}{down}{down}{down}{down}":goto930
 1120 w=3:l=15:s=7:gosub950:w=5:l=4:gosub950:a=16:b=13:c=3:w=1:l=15:gosub950
 1130 print"{up}{up}":gosub1240:l=6:fors=18to16step-1:l=l-1:gosub950:next
 1140 a$="{inst}":b$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":printb$"{up}":w=14:s=13:l=5:gosub950:printb$"{up}"
 1150 print:a$=" ":gosub1240:a$=chr$(20):l=12:s=13:printb$:gosub950
 1160 w=14:s=10:gosub950:goto930
 1170 w=1:l=5:fors=17to8step-1:gosub950:next:a=15:b=12:c=3:gosub1240
 1180 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":a=18:b=16:c=1:a$=" ":gosub1240
 1190 a$=chr$(20):print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}":l=7:s=5:w=11:gosub950:goto930
 1200 gosub890:w=1:l=4:fors=23to9step-1:gosub950:next:goto930
 1210 gosub1220:goto930
 1220 a=16:b=13:c=3:gosub1240:print"{up}{up}":gosub1240:a$=" ":print"{home}{down}{down}":a=18:b=16:c=1
 1230 gosub1240:print"{down}{down}":gosub1240:print"{down}{down}":return
 1240 w=1:d=-1:s0=a:s1=b:gosub960:w=c:l=l+2:gosub950:w=1:d=1:s0=b:s1=a:l=l-2
 1250 gosub960:return
 1260 a=15:b=12:c=3:gosub1240
 1270 l=4:fors=20to12step-1:gosub950:next
 1280 print"{home}{down}{down}":a=18:b=16:c=1:a$=" ":l=6:gosub1240:print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1290 goto930
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by michael contino{down}
 62020 gosub60500
 62030 print"{down}the bargain typesetter
 62080 print"{down}{down}{down}{down}{down}{down}  press {rvon}return{rvof} to begin
 62090 getp$:ifp$=""then62090
 62100 goto60300
   10 print"{clr}a{swuc}":sys1044
    1 print"{clr}"
    2 print tab(15)"life ii"
    4 rem larrys tape
    6 print:print:print
    7 dim n(6,6),k(18),a(16),x(2),y(2)
    8 data 3,102,103,120,130,121,112,111,12
    9 data 21,30,1020,1030,1011,1021,1003,1002,1012
   10 for m=1to18:read k(m):next m
   13 data -1,0,1,0,0,-1,0,1,-1,-1,1,-1,-1,1,1,1
   14 for o1=1 to 16:read a(o1):next o1
   20 goto500
   50 for j=1 to 5
   51 for k=1 to 5
   55 if n(j,k)>99 then gosub 200
   60 next k
   65 next j
   90 k=0: m2=0: m3=0
   99 for j=0 to 6:print
  100 for k= 0to 6
  101 if j<>0then if j<>6 then 105
  102 if k=6 then print 0;:goto 125
  103 print k;:goto120
  105 if k<>0 then if k<>6 then 110
  106 if j=6 then print 0: goto 126
  107 print j;:goto120
  110 gosub300
  120 nextk
  125 nextj
  126 return
  200 b=1:ifn(j,k)>999thenb=10
  220 foro1=1to15step2
  230 n(j+a(o1),k+a(o1+1))=n(j+a(o1),k+a(o1+1))+b
  231 nexto1
  239 return
  300 if n(j,k)<3 then 399
  305 for o1=1 to 18
  310 if n(j,k)=k(o1) then 350
  315 next o1
  320 goto 399
  350 if o1>9 then 360
  351 n(j,k)=100: m2=m2+1:print" * ";
  355 return
  360 n(j,k)=1000: m3=m3+1:print" # ";
  365 return
  399 n(j,k)=0:print"   ";:return
  500 print tab(10);"u.b. life game"
  505 m2=0: m3=0
  510 for j=1to5
  511 for k=1to5
  515 n(j,k)=0
  516 nextk
  517 nextj
  519 for b=1 to2: p1=3: if b=2 then p1=30
  520 print"player ";b;" -3 live pieces"
  535 for k1=1to3:gosub 700
  540 n(x(b),y(b))=p1: next k1
  542 next b
  559 gosub 90
  560 print: gosub 50
  570 if m2=0 then if m3=0 then 574
  571 if m3=0 then b=1: goto 575
  572 if m2=0 then b=2: goto 575
  573 goto 580
  574 print:print"a draw":end
  575 print:print "player";b;"is the winner":end
  580 for b=1 to 2:print"player";b;: gosub 700
  581 if b=99 then 560
  582 nextb
  586 n(x(1),y(1))=100: n(x(2),y(2))=1000
  596 goto 560
  700 print x,y
  701 print chr$(13);:input y(b),x(b)
  702 print"{up}   ------"
  705 if x(b)<=5 then if x(b)>0 then708
  706 goto 750
  708 if y(b)<=5 then if y(b)>0 then 715
  710 goto750
  715 if n(x(b),y(b))<>0 then 750
  720 if b=1 then return
  725 if x(1)=x(2) then if y(1)=y(2) then 740
  730 return
  740 no coord. set to 0"
  741 n(x(b)+1,y(b)+1)=0: b=99: return
  750 print "illegal coords. retype": goto 700
  999 end
    5 ifpeek(843)=157then20
   10 forj=826to858:readb:pokej,b:nextj
   20 print"{clr}";:gosub530
   30 def fnc(y)=32768+(40*(y-1))
   40 print"{clr}"
   50 poke842,108:sys826:poke842,128
   60 x1=10:y1=5:x2=10:y2=15:s=1:v1=1:v2=1
   70 forx=32769to32806:pokex,100:pokex+960,99:next
   80 fory=32808to33688step40:pokey,103:pokey+39,101:next
   90 poke32768,32:poke32807,32:poke33767,32:poke33728,32
  100 poke158,0
  110 geta$:ifa$=""then150
  120 ifa$="s"then460
  130 ifa$="<"thenv1=v1+1:ifv1=5thenv1=1:goto150
  140 ifa$=">"thenv1=v1-1:ifv1=0thenv1=4:goto150
  150 ifint(10*rnd(1)+1)=1thenv2=int(4*rnd(1)+1)
  160 gosub290
  170 foro=1tos
  180 xp=x1:yp=y1:onv1gosub 200,210,220,230
  190 x1=xp:y1=yp:goto240
  200 xp=xp+1:return
  210 yp=yp-1:return
  220 xp=xp-1:return
  230 yp=yp+1:return
  240 p=x1-1+fnc(y1)
  250 ifpeek(p)<>76thenw=2:goto370
  260 pokep,160
  270 nexto
  280 goto110
  290 xp=x2:yp=y2:onv2gosub200,210,220,230:p=xp-1+fnc(yp)
  300 ifpeek(p)<>76thengosub320
  310 x2=xp:y2=yp:pokep,102:return
  320 forv2=1to4:xp=x2:yp=y2:onv2gosub 200,210,220,230:p=xp-1+fnc(yp)
  330 ifpeek(p)<>76thengoto360
  340 x2=xp:y2=yp:pokep,102
  350 return
  360 nextv2:w=1:p=x2-1+fnc(y2)
  370 pokep,160:pokep-40,255:pokep-1,126:pokep+40,127:pokep+1,124
  380 fora=1to20:next
  390 pokep,76:pokep-40,76:pokep-1,76:pokep+40,76:pokep+1,76
  400 sys826:fort=1to20:next:sys826
  410 ifw=1thenprint"{home}{rvon}tron wins!"
  420 ifw=2thenprint"{home}{rvon}sark wins!"
  430 fort=1to1000:nextt
  440 clr
  450 goto30
  460 ifs=1thens=2:goto150
  470 s=1:goto150
  480 data169,128,141,72,3,141,77
  490 data3,160,4,162,0,189,0
  500 data128,73,128,157,0,128,232
  510 data208,245,238,72,3,238,77
  520 data3,136,208,234,96
  530 poke842,108:sys826
  540 print"{home}{down}{down}":x$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  550 printx$"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
  560 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  570 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  580 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  590 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  600 printx$"{CBM-G} O{CBM-T}{CBM-T}P O{CBM-T}M N{CBM-T}{CBM-T}M{CBM-M}M {CBM-M}P {CBM-M}
  610 printx$"{CBM-G} {CBM-T}{CBM-G}{CBM-M}{CBM-T} {CBM-T}{CBM-T}M{CBM-G}{CBM-G}OP{CBM-M}{CBM-M} M{CBM-M}{CBM-M} {CBM-M}
  620 printx$"{CBM-G}  {rvon}  {rvof} {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof}  {rvon} {rvof}L{SHIFT-@}{rvon} {rvof}{CBM-M}{rvon} {rvof}{CBM-T}{CBM-*}{rvon} {rvof} {CBM-M}
  630 printx$"{CBM-G}  {rvon}  {rvof} {rvon} {rvof} {CBM-*}{rvon}{CBM-*}{rvof} {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-M}{rvon} {rvof}  {CBM-*} {CBM-M}
  640 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  650 printx$"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}         {CBM-M}
  660 printx$"{CBM-G} N '{CBM-@} N{CBM-@}N  N{SHIFT-POUND}  {CBM-@} N{CBM-@} {CBM-M}
  670 printx$"{CBM-G}N /{rvon}{SHIFT-POUND}{rvof}NN{SHIFT-POUND}N{CBM-T} N {rvon}{SHIFT-POUND}{rvof}NN NN{SHIFT-*} {CBM-M}
  680 printx$"{CBM-G}{CBM-T}{CBM-T}{CBM-@}N      {CBM-T}{CBM-@}N {CBM-T}  {CBM-T}  {CBM-M}
  690 printx$"{CBM-G}      {CBM-@}             {CBM-M}
  700 printx$"{CBM-G}     N      {CBM-@}       {CBM-M}
  710 printx$"{CBM-G}    N{SHIFT-POUND}N{CBM-G}N{SHIFT-POUND}{SHIFT-POUND}N{SHIFT-*}       {CBM-M}
  720 printx$"{CBM-G}    {CBM-T}      {CBM-T}        {CBM-M}
  730 printx$"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}
  740 print"{down}{down}{rvon}i=instructions or any other key to play{home}"
  750 gets$:ifs$=""then750
  760 ifs$="i"then780
  770 return
  780 print"{clr}";
  790 print"                    {CBM-G}
  800 print"    sark's cycle    {CBM-G}   tron's cycle"
  810 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}    R{CBM-R}{SHIFT-*}FR{CBM-@}    {rvon}    {rvof}{CBM-I}    {CBM-P}{CBM-F}{SHIFT-*}FR{CBM-@}
  820 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}D{CBM-T} {CBM-Z}{SHIFT-*}{SHIFT-*}FRE{SHIFT-*}R {rvon}     {SHIFT-@}{rvof}{CBM-I}{rvon}{CBM-Y}  {CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-O}{CBM-P}E{SHIFT-*}R
  830 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}N{rvon}{CBM-K}{CBM-Y}{rvof}{CBM-I}{CBM-O} {SHIFT--}ED{SHIFT-*}{CBM-A}D{CBM-T}DM{rvon}    {SHIFT-POUND}{SHIFT--}E{SHIFT-*}F {rvof}{CBM-K}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-A}D{CBM-T}D{CBM-*}{rvof}
  840 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN{rvon}{CBM-K}M  {rvof} {CBM-T}{CBM-T}{CBM-T}{rvon}{SHIFT-POUND}{rvof}{CBM-H}N{CBM-T}MH{rvon}   {SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{CBM-K}M {CBM-M} {CBM-@}{CBM-@}{CBM-@}NG{rvof}{SHIFT-POUND} {CBM-*}{rvon}{CBM-N}{rvof}
  850 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}C*{rvon}{CBM-T}  {SHIFT-POUND}= < {rvof} {CBM-G}Q{CBM-M}{CBM-M}{rvon}   {CBM-G}{rvof}C*{rvon}{CBM-T} {CBM-M}N= < {CBM-G}{rvof} Q {rvon} {rvof}
  860 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}MM{CBM-C}{rvon}{CBM-I}  .{CBM-T}  M{rvof}{CBM-H}M{CBM-@}NH{rvon}   {rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-C}{rvon}{SHIFT-*}  .{CBM-T}  MG{CBM-*}{rvof} {rvon}{SHIFT-POUND}{CBM-N}{rvof}
  870 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{CBM-T}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-Z}F{CBM-@}F{CBM-X}{rvon}    {rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-C}{rvon}{CBM-P} {CBM-P}{rvof}{CBM-V}
  880 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  890 print"        sark        {CBM-G}       tron
  900 print"                    {CBM-G}
  910 print"   henchman for the {CBM-G}  the leader of
  920 print" mcp, sark destroys {CBM-G}the user-belivers,
  930 print" the user-belivers  {CBM-G}tron once caught
  940 print" on the game grid.  {CBM-G}became the best
  950 print"                    {CBM-G}game warrior."
  960 print" sark's cycle is    {CBM-G}
  970 print" controlled by      {CBM-G}  you play the
  980 print" the computer.      {CBM-G}role of tron, your
  990 print"                    {CBM-G}controls are:
 1000 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
 1010 print"'<'turn left 90 deg.'>'turn right 90 deg";
 1020 print"             fast/slow='s'
 1030 print"         {rvon} press return to cont.{rvof}";
 1040 geta$:ifa$=""then1040
 1042 print"{clr}"
 1045 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
 1060 print"{CBM-G}the object of the game is to manuver{CBM-M}
 1070 print"{CBM-G}your cycle so that sark's cycle runs{CBM-M}"
 1080 print"{CBM-G}into a barrier and crashes, without {CBM-M}
 1081 print"{CBM-G}crashing into a barrier yourself.   {CBM-M}
 1090 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1095 print"{down}{down}{down}{down}{down}{down}    press 'return' to play
 1100 geta$:ifa$=""then1100
 1120 return
    0 clr:poke59468,14:pk=14
    1 rem list copyright (c) 1979 glen fisher
    2 rem cursor #6, january, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of may 22,1979
   90 pg$="list":nm$="6":gosub62000
  100 ifpeek(49152)thenprint"{down}{down}{down}{rvon}list won't work with the new roms.":end
  110 poke135,30:clr
  120 poke78,0
  200 print"{down}lOADING..."
  500 fort=1to2
  510 :readl,h
  520 :fori=ltoh
  530 ::readn:pokei,n
  540 :nexti
  550 nextt
  600 print"{down}list HAS{$a0}BEEN STORED. lOAD{$a0}YOUR{$a0}PROGRAM
  610 print"AND{$a0}TYPE: sys(7680)
  620 end
 1000 data826,994
 1010 data169,32,133,77,230,79,32,75,3,165,77,32,210,255,165,77
 1020 data96,165,78,240,11,197,79,176,7,32,210,201,169,1,133,79
 1030 data96,201,34,240,22,201,36,240,18,201,48,144,12,201,58,144
 1040 data10,201,65,144,4,201,91,144,2,24,96,56,96,36,80,16
 1050 data17,32,91,3,144,12,72,165,77,32,91,3,144,3,32,58
 1060 data3,104,96,177,72,200,170,41,127,32,60,3,138,16,244,96
 1070 data170,232,160,255,202,240,7,200,177,72,16,251,48,246,200,96
 1080 data160,2,201,0,208,10,224,10,144,32,224,100,144,27,176,24
 1090 data201,3,144,20,208,6,224,232,144,14,176,11,201,39,144,7
 1100 data208,4,224,16,144,1,200,200,200,200,72,152,72,24,101,79
 1110 data133,79,32,75,3,104,168,104,96
 1200 data7680,8012
 1210 data160,4,132,71,160,1,132,70,132,79,136,132,76,177,70,200
 1220 data17,70,240,60,200,177,70,170,200,177,70,32,170,3,72,192
 1230 data6,240,6,32,58,3,200,208,246,104,32,159,220,32,58,3
 1240 data198,79,169,34,133,74,160,3,32,81,30,32,83,3,32,225
 1250 data255,160,0,177,70,170,200,177,70,133,71,134,70,76,10,30
 1260 data96,200,177,70,240,250,36,76,48,3,170,48,31,170,41,127
 1270 data201,32,138,144,70,32,119,3,32,60,3,197,74,208,6,165
 1280 data76,73,128,133,76,169,0,133,80,76,81,30,133,80,41,127
 1290 data162,146,134,72,162,192,134,73,132,75,32,154,3,177,72,41
 1300 data127,32,119,3,32,141,3,164,75,177,70,201,143,240,4,201
 1310 data131,208,174,133,74,169,128,133,76,208,166,72,169,91,32,60
 1320 data3,104,162,1,200,209,70,208,3,232,208,248,136,132,75,224
 1330 data1,240,13,72,169,0,32,170,3,32,159,220,32,58,3,104
 1340 data10,144,2,105,63,74,174,240,30,134,72,174,241,30,134,73
 1350 data32,154,3,32,141,3,169,93,32,60,3,164,75,76,81,30
 1360 data240,30,191,191,191,191,191,191,191,191,191,191,191,191,82,69
 1370 data212,191,191,191,68,79,87,206,82,86,211,72,79,77,197,68
 1380 data69,204,191,191,191,191,191,191,191,191,82,73,71,72,212,191
 1390 data191,191,191,191,191,191,191,191,191,191,191,191,191,191,73,71
 1400 data206,191,191,191,85,208,79,70,198,67,76,210,73,78,211,191
 1410 data191,191,191,191,191,191,191,76,69,70,212,191,191
 60200 ifpn=0then60250
 60210 print"{down}pRESS {rvon}return{rvof} TO ";
 60220 ifpn=lpthenprint"BEGIN:";:goto60240
 60230 print"CONTINUE:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;"  (C) 1979    pAGE";pn;"{down}"
 60270 return
 62000 lp=3:gosub60200
 62100 print"list IS{$a0}INTENDED{$a0}FOR{$a0}LISTING{$a0}PROGRAMS
 62110 print"WHICH{$a0}HAVE{$a0}BEEN{$a0}RUN{$a0}THROUGH{$a0}pack. iT
 62120 print"BEHAVES MUCH{$a0}LIKE{$a0}THE{$a0}list COMMAND,{$a0}
 62130 print"BUT ADDS{$a0}BLANKS AND{$a0}DOES{$a0}OTHER{$a0}NICE
 62140 print"THINGS. tHIS{$a0}bASIC{$a0}PROGRAM{$a0}STORES A
 62150 print"PROGRAM{$a0}WHICH{$a0}DOES{$a0}THE{$a0}DIRTY{$a0}WORK.
 62160 print"aFTER{$a0}IT{$a0}PRINTS{$a0}ready, THE{$a0}PROGRAM{$a0}IS
 62170 print"READY. lOAD{$a0}THE{$a0}PROGRAM{$a0}YOU{$a0}WANT{$a0}TO
 62180 print"LIST, AND{$a0}TYPE
 62190 print"{down}    sys(7680){down}
 62200 print"yOU{$a0}CAN{$a0}STOP{$a0}list AT{$a0}ANY{$a0}TIME{$a0}BY
 62210 print"PRESSING{$a0}{rvon}stop{rvof}.  list WILL{$a0}STAY{$a0}AROUND
 62220 print"UNTIL{$a0}EITHER{$a0}THE{$a0}pET{$a0}IS{$a0}TURNED{$a0}OFF, OR
 62230 print"THE{$a0}SECOND{$a0}CASSETTE{$a0}BUFFER{$a0}(OR{$a0}HIGH
 62240 print"MEMORY) IS{$a0}RE-USED.
 62250 gosub60200
 62260 print"nORMALLY, list LETS{$a0}THE{$a0}PRINTER (OR
 62270 print"SCREEN) DO{$a0}CARRIAGE{$a0}RETURNS{$a0}AS{$a0}NEEDED,
 62280 print"BUT{$a0}YOU{$a0}CAN{$a0}TELL{$a0}list{$a0}WHEN{$a0}YOU{$a0}WANT
 62290 print"THEM{$a0}BY{$a0}POKING{$a0}THE{$a0}LINE{$a0}SIZE{$a0}INTO
 62300 print"LOCATION{$a0}78. fOR{$a0}EXAMPLE, TO{$a0}SET{$a0}A{$a0}LINE
 62310 print"LENGTH{$a0}OF{$a0}80, YOU{$a0}WOULD{$a0}TYPE
 62320 print"{down}     poke 78,80{down}
 62330 print"fINALLY, IF YOU{$a0}WANT THE{$a0}LISTING{$a0}TO{$a0}GO
 62340 print"TO{$a0}A{$a0}PRINTER{$a0}INSTEAD{$a0}OF{$a0}THE{$a0}SCREEN, YOU
 62350 print"SHOULD{$a0}DO WHATEVER YOUR PRINTER NEEDS
 62360 print"BEFORE{$a0}TYPING{$a0}'sys(7680)'.fOR{$a0}EXAMPLE,
 62362 print"THE{$a0}cONNECTICUT mICROCOMPUTER PRINTER
 62364 print"ADAPTER{$a0}(cmc pet ada 1200) REQUIRES:
 62365 print"{down}     open 5,5
 62367 print"     cmd  5
 62368 print"     sys(7680)
 62369 gosub60200
 62370 print"tHEN, AFTER{$a0}THE{$a0}LISTING{$a0}IS{$a0}DONE, TYPE:
 62372 print"{down}     print #5
 62374 print"{down}TO{$a0}TELL{$a0}THE{$a0}pet TO{$a0}QUIT{$a0}SENDING{$a0}OUTPUT
 62376 print"TO FILE{$a0}#5. nATURALLY, OTHER{$a0}PRINTER
 62377 print"ADAPTERS MAY{$a0}REQUIRE DIFFERENT
 62378 print"COMMAND{$a0}SEQUENCES{$a0}BEFORE YOU{$a0}TYPE{$a0}
 62380 print"sys(7680).
 62400 print"{down}rEMEMBER, THIS{$a0}PROGRAM{$a0}RESERVES{$a0}PART{$a0}OF
 62410 print"THE{$a0}pet'S{$a0}MEMORY. wHEN{$a0}YOU{$a0}WANT{$a0}TO{$a0}USE
 62420 print"ANOTHER{$a0}PROGRAM, TYPE:
 62430 print"{down}     poke 135,32
 62499 gosub62000
 62500 return
  100 print "list all  (*slow* but sure)":print"v1.0  jim butterfield"
  110 dim a$(31,1),k$(127),k1$(10),k2$(38),r(2),r$(3),s$(2)
  120 for j=0 to 31:for k=0 to 1:a$(j,k)=mid$(str$(j+k*128),2)+".":next k,j
  130 a$(13,0)="":s$(0)=":":s$(1)=chr$(34):s$(2)=" "
  140 data 7,bell
  150 data 9,tab
  160 data 14,text
  170 data 15,top
  180 data 17,down
  190 data 18,rvs
  200 data 19,home
  210 data 20,delete
  220 data 21,d.line
  230 data 22,er.end
  240 data 25,scroll.up
  250 data 27,escape
  260 data 29,right
  270 data 135,bells
  280 data 137,tab.set
  290 data 141,return
  300 data 142,graphic
  310 data 143,bottom
  320 data 145,up
  330 data 146,rvoff
  340 data 147,clear
  350 data 148,inst
  360 data 149,i.line
  370 data 150,er.begin
  380 data 153,scroll.down
  390 data 157,left
  400 data -1
  410 read a:if a=-1 goto 440
  420 c=0:if a>31 then a=a-128:c=1
  430 read a$(a,c):goto 410
  440 data 75,"all machines"
  450 data 90,"4.0 and b-128 computers"
  460 data 104,"b-128 only"
  470 for j=0 to 2:read r(j),r$(j):next j:r$=r$(1)
  480 r$(3)="..no machine of this group (c-128?)"
  490 data end,for,next,data,input#,input,dim,read,let,goto,run,if,restore,gosub
  500 data return,rem,stop,on,wait,load,save,verify,def,poke,print#,print,cont
  510 data list,clr,cmd,sys,open,close,get,new,tab(,to,fn,spc(,then,not,step
  520 data +,-,*,/,^,and,or,>,=,<,sgn,int,abs,usr,fre,pos,sqr,rnd,log,exp,cos
  530 data sin,tan,atn,peek,len,str$,val,asc,chr$,left$,right$,mid$,go
  540 data concat,dopen,dclose,record,header,collect,backup,copy,append,dsave
  550 data dload,catalog,rename,scratch,directory
  560 data dclear,bank,bload,bsave,key,delete,else,trap,resume,dispose
  570 data pudef,using,err$,instr,!!!
  580 forj=0to105:readk$(j):nextj:for j=106 to 127:k$(j)=k$(105):next j
  590 print
  600 print "program from which class of computer:"
  610 print "1. pet - cbm - b system"
  620 print "2. vic - 64 - +4 - c128"
  630 input "which (1 or 2)";t9
  640 if t9<1 or t9>2 goto 600
  650 if t9=1 goto 1210
  660 data 125,"+4, c-16 and c128 computers"
  670 data 999,"c 128 only"
  680 for j=1 to 2:read r(j),r$(j):next j:r$="plus-4 and c-16 only"
  690 data rgr,rclr,rlum,joy,rdot,dec,hex$,err$,instr,else,resume,trap
  700 data tron,troff,sound,vol,auto,pudef,graphic,paint,char,box,circle
  710 data gshape,sshape,draw,locate,color,scnclr,scale,help,do,loop,exit
  720 data directory,dsave,dload,header,scratch,collecct,copy,rename
  730 data backup,delete,renumber,key,monitor,using,until,while,#
  740 for j=76 to 126:read k$(j):next j
  750 data pot,bump,pen,rsppos,rsprite,rspcolor,xor,rwindow,pointer
  760 for j=2 to 10:read k1$(j):next j
  770 data bank,filter,play,tempo,movsprr,sprite,sprcolor,rreg,envelope
  780 data sleep,catalog,dopen,append,dclose,bsave,bload,record,concat
  790 data dverify,dclear,sprsav,collision,begin,bend,window,boot
  800 data width,sprdef,quit,stash,!!,fetch,!!!,swap,off,fast,slow
  810 for j=2 to 38:read k2$(j):next j
  820 data 2,underline
  830 data 5,white
  840 data 8,lock
  850 data 9,unlock
  860 data 11,lock
  870 data 12,unlock
  880 data 15,flash
  890 data 24,tab.set
  900 data 28,red
  910 data 30,green
  920 data 31,blue
  930 data 129,orange
  940 data 130,uline.off
  950 data 133,f1
  960 data 134,f3
  970 data 135,f5
  980 data 136,f7
  990 data 137,f2
 1000 data 138,f4
 1010 data 139,f6
 1020 data 140,f8
 1030 data 143,flash.off
 1040 data 144,black
 1050 data 149,brown
 1060 data 150,l.red
 1070 data 151,d.grey
 1080 data 152,m.grey
 1090 data 153,l.green
 1100 data 154,l.blue
 1110 data 155,l.grey
 1120 data 156,purple
 1130 data 158,yellow
 1140 data 159,cyan
 1150 data -1
 1160 read a:if a=-1 goto 1190
 1170 c=0:if a>31 then a=a-128:c=1
 1180 read a$(a,c):goto 1160
 1190 input"is this a plus-4 or comm 16 (y/n)";t$
 1200 if t$<>"y" and t$<>"yes" then k$(78)="&":r$=r$(2)
 1210 open 15,8,15
 1220 close1:input"name of program file";g$
 1230 open 1,8,3,g$+",p,r"
 1240 gosub 3800
 1250 if e then close 1:close 15:stop
 1260 get#1,a$,b$:if a$<>chr$(1) or b$<>chr$(4) then k2=1
 1270 ifa$=""thena$=chr$(1):get#1,x$
 1280 ifb$="" then k2=2
 1290 input"line number range  -{left}{left}{left}";z$
 1300 l0=0:l1=0:l2=1e9
 1310 forj=1tolen(z$):y$=mid$(z$,j,1)
 1320  y=asc(y$):ify>=48andy<=57goto1350
 1330  ify=32goto1350
 1340  l0=j:ify<>45goto1390
 1350 nextj
 1360 ifl0<len(z$)thenl2=val(mid$(z$,l0+1)):ifl2=0thenl2=1e9
 1370 ifl0>1thenl1=val(z$)
 1380 ifl0=0thenl1=l2
 1390 p3$="[":p4$="]":input"list to screen/printer/disk  s{left}{left}{left}";z$
 1400 p=3:ifasc(z$)=80thenp=4:l$="{down}":p3$=chr$(219):p4$=chr$(221)
 1410 ifasc(z$)=68thenp=8:input"file name";f$
 1420 p1$="[":p2$="]":if p<8 then gosub 3900
 1430 input"translate cursor moves  n{left}{left}{left}";z$
 1440 ifasc(z$)=89thent7=1
 1450 j=80:ifp<>3goto1490
 1460 print"{clr}":print"++++++++++++{home}";
 1470 open 3,3:for j=0 to 79:get#3,a$:if a$<>"+" then next j
 1480 close 3:print
 1490 if p<>8 then open4,p
 1500 if p=8 then j=1e3:open4,p,4,"0:"+f$+",s,w":gosub 3800
 1510 f$=p1$:l9=j:print#4,"program:  ";g$
 1600 rem new line
 1610 gosub3000:q=0:q1=0:t1=1:c1=-1:get#1,a$,b$:ifst<>0goto5000
 1620 ifa$=""and b$=""goto5000
 1630 get#1,a$,b$
 1640 l=asc(a$+chr$(0))+asc(b$+chr$(0))*256
 1650 ifl<l1thenk0=-1:goto2110
 1660 ifl>l2thenk0=-1:goto5000
 1670 f2=1:print#4,m$;p$:p$=str$(l)+" "
 1700 rem start text here
 1710 get#1,a$:ifa$=""goto1610
 1720 t=0:a=asc(a$):ifq=0or(aand127)>31ort7=0goto1790
 1730 c=0:if a>31 then a=a-128:c=1
 1740 b$=a$(a,c):if b$="" goto 1920
 1750 ifb$=b1$thenb=b+1:goto1710
 1760 ifb>0thena$=mid$(str$(b+1),2)+f$+b$:goto1780
 1770 a$=f$+b$
 1780 b=0:b1$=b$:f$=",":f1=1:goto1930
 1790 ifa<32andq=0thena$="???":goto1920
 1800 a=a-128:ifa<0orq<>0goto1920
 1810 ifa=127thena$="~":goto1920
 1820 t=1:a$=k$(a):if k1<a then k1=a
 1825 if a<42 then q1=len(p$)
 1830 if a=78 then r$(1)=r$
 1840 if a$<>"#" and a$<>"&" goto1910
 1850 k1=200:get#1,a$:if a$=""goto 1610
 1860 b=asc(a$):if a=126 goto 1890
 1870 if b<2 or b>10 then a$="!!!!":goto1910
 1880 a$=k1$(b):goto1910
 1890 if b<2 or b>38 then a$="!!!!":goto1910
 1900 a$=k2$(b)
 1910 ifa=15thenq=2
 1920 gosub3000
 1930 ifa$=chr$(34)andq<2thenq=1-q
 2000 rem c=-1 for alphanumeric
 2010 c=asc(left$(a$,1)):c=(c<48orc>57)and(c<65orc>90)
 2020 ift<>t1ort=1thent1=t:ifnotcandnotc1thenp$=p$+" ":gosub3500
 2030 c=asc(right$(a$,1)):c1=(c<48orc>57)and(c<65orc>90)
 2040 p$=p$+a$:gosub3500
 2050 goto 1710
 2100 rem skip to next line
 2110 get#1,a$:ifa$=""goto 1610
 2120 goto2110
 2200 rem close off cursor expression
 3000 iff1=0goto3030
 3010 ifb>0thenp$=p$+mid$(str$(b+1),2):gosub3500
 3020 b=0:f1=0:b1$="":p$=p$+p2$:gosub3500:f$=p1$
 3030 return
 3500 iflen(p$)<l9goto3640
 3510 forj=l9-1tol9*.6step-1
 3520 ifmid$(p$,j,1)=s$(q)goto3580
 3530 nextj:forj=l9-1tol9*.6-1step-1
 3540 p=asc(mid$(p$,j))
 3550 ifp=91orp=219goto3580
 3560 ifp=59orp=44orp=93orp=221orq1=jthenj=j+1:goto3580
 3570 nextj:j=l9-1
 3580 print#4,m$;left$(p$,j-1)
 3590 ifq=0andmid$(p$,j,1)=" "then j=j+1
 3600 q1=q1+1-j:q0=q:fori=jtolen(p$):ifasc(mid$(p$,i))=34thenq0=q0+1
 3610 nexti:q0=q0and1
 3620 ifq0<>1then p$="    "+mid$(p$,j)
 3630 ifq0=1then p$=chr$(34)+"   "+mid$(p$,j)
 3640 return
 3800 e=0:get#15,e$:e=e$<>"0"
 3810 print e$;:if e$<>chr$(13) then get#15,e$:goto 3810
 3820 if e then close 4:close 1:close 15:end
 3830 return
 3900 input"graphics or text  g{left}{left}{left}";z$
 3910 if p=3 then poke 59468,12:print chr$(142);
 3920 if p=3 and asc(z$)=84 then poke 59468,14:print chr$(14);
 3930 if p=4 and asc(z$)=84 then m$=l$:p1$=p3$:p2$=p4$
 3940 return
 5000 iflen(p$)>0thenf2=1:print#4,m$;p$
 5010 iff2=0thenprint"** no lines found **"
 5020 close1:gosub3000:close4:close 15
 5030 if k0 then end
 5040 for j=0 to 2:if k1>r(j) then next j
 5050 print "this should load to:"
 5060 print r$(j)
 5070 on k2+1 goto 5110,5080,5100
 5080 if t9=1 and j<2 then print "..but watch pet/cbm load address"
 5090 end
 5100 if j<2 then print "..but fix b-128 chaining"
 5110 end
   90 print"{clr}"
  100 print tab(16)"{rvon}lizzard"
  130 print:print:print"the lizzard will try to snag a fly with its tongue."
  140 print:print"to work the tongue, press {rvon}7{rvof}."
  150 print:print"press {rvon}7{rvof} to begin play."
  160 gety$:ify$<>"7"then 160
  180 print"{clr}":printtab(14)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}get ready"
  190 foraa=1to1000:next aa
  200 time$="000000"
  210 if time/60>180 then1080
  220 print"{clr}"
  230 r=0:r1=int(rnd(1)*4)+r
  240 ifr1=0then230
  250 ifr1=1then280
  260 ifr1=2then290
  270 ifr1=3then300
  280 l=32779+int(rnd(1)*29):pokel,42:goto310
  290 l1=32819+int(rnd(1)*29):pokel1,42:goto310
  300 l2=32859+int(rnd(1)*29):pokel2,42:goto310
  310 forx=33696to33726
  320 pokex,121:pokex-1,37:pokex-2,37:pokex-3,37
  330 pokex-4,37:pokex-5,61:pokex-6,61:pokex-7,61
  340 pokex-8,64:pokex-40,122:pokex-39,76
  350 pokex-9,32:pokex+39,60:pokex+38,32:pokex+36,62
  360 pokex+35,32
  370 printtime$
  380 print"{home}"
  390 get a
  400 if a<>7then520
  410 forn=x-80tox-840 step-40
  420 poken,103
  430 nextn
  440 for t=x-880tox-960step-40
  450 if peek(t)<>42then500
  460 forh=t+40toxstep40:pokeh-40,32:pokeh,81:foraa=1to5:nextaa,h
  470 pokex-39,32:pokex-40,32:pokex,98:pokex+1,98:foraa=1to50:nextaa:pokex,100
  480 pokex+1,100:goto1000
  490 poket,103:poket,32
  500 nextt
  510 goto210
  520 pokex,32:pokex+1,32:pokex-40,32:pokex-39,32
  530 nextx
  540 goto210
 1000 print"mm'm...mmm'm...mmmm'm"
 1010 print"that was good!"
 1020 z=z+1:print
 1030 ifz>1then1050
 1040 print:printz;"fly has been eaten":goto1060
 1050 print:printz;"flies were eaten."
 1060 foraa=1to1000:nextaa
 1070 goto210
 1080 print:print:print
 1090 print"your minutes are up.":print
 1100 printz;"flies were eaten."
 1110 print:print:print"its been fun eating with you!"
 1120 rem lines 90-190 directions
 1130 rem lines 180-210,370-380 3minute timer
 1140 rem lines 230-300 randomly produces 'the fly'
 1150 rem lines 310-360,530 animates lizzard
 1160 rem lines390-520 animates tongue
 1170 rem poke 42(*),poke121(and),poke37(%),poke61(=),poke32(blank)
 1180 rem poke62(>),poke98(new),poke100(to),poke103(spc()
 3000 end
{SHIFT-*}{CTRL-B}{$00}{dish}{CTRL-A}{$00}{clr}"lockdisk64",8,1{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{f6}{$e3}4{stop}{$7c}{CBM-G}{CTRL-Z}{CBM-M}{$e4}{CBM-M}{f3}{CBM-S}{$00}{$00}{$00}{$00}lh{CBM-R}{$00}1{$ea}{$66}{CTRL-B}g{$fe}j{$f3}{up}{$f2}{swlc}{$f2}p{$f2}3{$f3}w{$f1}J{$f1}{$ed}{$f6}>{$f1}/{$f3}{$66}{$fe}{CBM-G}{$f4}{$ed}{$f5} y{CBM-+}l{CBM-S}{CBM-M}                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      {$00}){dish}{wht}{$00}{lgrn} "auto start 64 - jim butterfield"{$00}7{dish}{$0a}{$00}{cyn} 15,8,15{$00}r{dish}{del}{$00}{f1} "name of program";n${$00}{$77}{dish}{grn}{$00}{cyn} 1,8,3,n${CBM-N}",p,r":{$84}15,e,e$,e1,e2{$00}{CBM-+}{dish}({$00}{f6} {CBM-POUND} e {CBM-M} {CBM-K}#1,a$,b$:{f6}a${CBM-W}{CBM-E}G(1){CBM-M}e{CBM-R}1:e${CBM-R}"oops!"{$00}{CBM-O}{dish}2{$00}{f6} e {CBM-M} {lgrn}e$:{$a0}1:{blk}{$00}{$de}{dish}<{$00}{f1} "name of converted program";c${$00}{dish}{ensh}f{$00}{cyn} 2,8,4,"0:"{CBM-N}c${CBM-N}",p,w":{$84}15,e,e$,e1,e2{$00}{esc}{ensh}p{$00}{f6} e {CBM-M} {lgrn}e$:{$a0}2:{blk}{$00}6{ensh}z{$00}{$83} 192,2,0,8,1,0,147,34{$00}q{ensh}{$64}{$00}{orng} j{CBM-R}0{CBM-@}7:{f5}x:{gry2}2,G(x);:{$82}j{$00}{$71}{ensh}{$6e}{$00}{orng}j{CBM-R}1{CBM-@}C(c$):{gry2}2,J(c$,j,1);:{$82}j{$00}{f3}{ensh}{$78}{$00}{$83} 34,44,56,44,49{$00}{$a0}{ensh}{$82}{$00}{orng}j{CBM-R}0{CBM-@}4:{f5}x:{gry2}2,G(x);:{$82}j{$00}{SHIFT-*}{ensh}{f8}{$00}{orng}j{CBM-R}0 {CBM-@} 52{CBM-Q}C(c$):{gry2}2,G(0);:{$82}j{$00}{$e1}{ensh}{lred}{$00}{$83}139,227,52,3,124,165,26,167{$00}~{ensh}{$a0}{$00}{$83} 228,167,134,174,0,0,0,0{$00}{grn}{$0a}{CBM-N}{$00}{$83} 76,72,178,0,49,234,102,2{$00}a{$0a}{CBM-H}{$00}{$83} 71,254,74,243,145,242,14,242{$00}{$64}{$0a}{CBM-V}{$00}{$83} 80,242,51,243,87,241,202,241{$00}{f7}{$0a}H{$00}{$83} 237,246,62,241,47,243,102,254{$00}{CBM-W}{$0a}R{$00}{$83} 165,244,237,245,32,89,166,76,174,167{$00}N{$0a}{CBM--}{$00}{orng}j{CBM-R}0{CBM-@}57:{f5}x:{gry2}2,G(x);:{$82}j{$00}{$f2}{$0a}{$e6}{$00}{orng}j{CBM-R}0{CBM-@}1221:{gry2}2,G(32);:{$82}j:{gry2}2,G(0);{$00}{del}{CTRL-K}{$f0}{$00}{CBM-K}#1,a$:sw{CBM-R}st:{f6}C(a$){CBM-R}0{CBM-M}a${CBM-R}G(0){$00}*{CTRL-K}{$fa}{$00}{gry2}2,a$;:{f6}sw{CBM-R}0{f2} 240{$00}8{CTRL-K}{CTRL-D}{CTRL-A}{$a0}1:{$a0}2:{$a0}15{$00}[{CTRL-K}{swlc}{CTRL-A}{f1}"want to do more programs";a${$00}{$78}{CTRL-K}{CTRL-X}{CTRL-A}{f6} a${CBM-R}"y" {CBM-A} a${CBM-R}"yes" {f2} 10{$00}{inst}{CTRL-K}"{CTRL-A}{yel} B(65532){CBM-N}B(65533){CBM-D}256{$00}{$00}{$00}    1 rem*lord of the dragons*bob chappell*25/12/80
    2 goto300
    3 dimc$(5),a(5),a$(4),t(6,6,12),l6(6),mw$(5),cw$(5),mk$(5),ck$(5),dd$(6)
    4 dimmh$(20),ch$(20),t$(30),ts(30),ea$(14),en$(20),u$(5),d$(5),ev$(8)
    5 al$=" has been re-animated":im$="{down}impossible":sr$=" the sacred relics"
    6 deffna(x)=int(x*rnd(1)+1):x=rnd(-ti):deffnb(x)=int(x*rnd(1)+2)
    7 forj=1to63:reada$:next:forj=1to5:readc$(j):next:print"{clr}":forj=1to5
    8 print"{down}name of the "c$(j);:inputc$
    9 c$(j)=left$(c$,7)+" the "+c$(j)
   10 a(j)=fna(75)+100:next:goto14
   11 forj=1to5:ifa(j)<1then13
   12 printc$(j)"'s power is";tab(31);a(j)
   13 next:return
   14 goto253
   15 forj=1to20:readch$(j):next:forj=1to20:readmh$(j):next:forj=1to6
   16 readct$(j):next:forj=1to6:readmt$(j):next:forj=1to5:readcw$(j):next
   17 forj=1to5:readmw$(j):next:forj=1to5:readck$(j):next:forj=1to5:readmk$(j)
   18 next:forj=1to30:readt$(j):next
   19 forj=1to20:readen$(j):next:forj=1to14:readea$(j):next:forj=1to5
   20 readu$(j):next:forj=1to5:readd$(j):next:forj=1to8:readev$(j):next
   21 forj=1to6:readdd$(j):next
   22 rem*setup
   23 forf=1to6:forr=2to5:forc=2to11:t(f,r,c)=3:next:next:next:forf=1to6
   24 forc=1to12:t(f,1,c)=5:t(f,6,c)=7:next:next:forf=1to6:forr=2to5
   25 t(f,r,1)=4:t(f,r,12)=6:next:next
   26 j=10:forf=1to3:fork=1to21:ts(k)=0:next:fora=1toj:r=fnb(4):c=fnb(10)
   27 t(f,r,c)=1:iffna(6)<4goto30
   28 z=fna(21):ifts(z)=1then28
   29 t(f,r,c)=z+100:ts(z)=1:goto32
   30 z=fna(8):t(f,r,c)=8
   31 ifz>6thent(f,r,c)=9
   32 next:j=j+3:next:j=17:forf=4to5:fork=1to21:ts(k)=0:next:fora=1toj
   33 r=fnb(4):c=fnb(10)
   34 iffna(6)<2goto37
   35 z=fna(21):ifts(z)=1goto35
   36 t(f,r,c)=z+121:ts(z)=1:goto39
   37 z=fna(8):t(f,r,c)=8
   38 ifz>6thent(f,r,c)=9
   39 next:j=j+3:next:forj=1to21:ts(j)=0:next:fora=1to21
   40 z=fna(21):ifts(z)=1then40
   41 t(6,fnb(4),fnb(10))=z+142:ts(z)=1:next:j=6:forf=1to6:fora=1toj
   42 r=fnb(4):c=fnb(10):ift(f,r,c)<>3then42
   43 t(f,r,c)=2:next:j=j-1:next
   44 r=fnb(4):c=fnb(10):ift(6,r,c)<101then44
   45 t(6,r,c)=11:forj=1to30
   46 f=fna(6):r=fnb(4):c=fnb(10):ift(f,r,c)=11then46
   47 ift(f,r,c)<101goto46
   48 ts(j)=((f-1)*72)+((r-1)*6)+c:next
   49 b=160:f=1:r=1:c=1:zz=0:z1=32886:z2=33009:z$=" ":forj=1to39:s$=s$+z$:next
   50 t=t(f,r,c):forj=1to6:l6(j)=0:next
   51 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}floor"f;
   52 gosub165:gosub173:zz=1
   53 em=0:ift=11thenprint"{clr}{rvon} the lord of the dragons! ":goto266
   54 ift<301goto56
   55 gosub155:print"a ";dd$(fna(6));" ";mm$:goto65
   56 ift<101goto60
   57 gosub155:print"here dwells ";:ifj1>43thenprint"{rvon}the ";:goto59
   58 print"a ";
   59 printmm$:mm$="the "+mm$:dw=1:goto65
   60 ift=1thenprint"an empty chamber":goto65
   61 ift=2thenprint"a stairway"
   62 ift=0thenprint"a cave with an empty chest":goto65
   63 ift=8ort=9thenprint"a cave {rvon}containing a chest":em=1
   64 ift=8thenb$="{rvon}a "+ea$(fna(14))+" "+en$(fna(20))
   65 print"{down}what will ye do?
   66 geta$:ifa$=""then66
   67 gosub165:ifa$="b"anddw=1thengosub116:goto65
   68 ifdw=1goto102
   69 ifa$="i"thengosub165:gosub11:goto65
   70 ifa$="l"andk1=1thengosub109:goto65
   71 ifa$="p"andk2=1thengosub112:goto65
   72 ifa$="r"thengosub165:gosub163:goto65
   73 ifa$="t"thengosub165:x=0:gosub160:goto65
   74 ifa$="o"andem=1goto84
   75 ifa$="f"andem=2goto92
   76 ifa$="e"andc<>12thenc=c+1:goto83
   77 ifa$="w"andc<>1thenc=c-1:goto83
   78 ifa$="n"andr<>1thenr=r-1:goto83
   79 ifa$="s"andr<>6thenr=r+1:goto83
   80 ifa$="u"andt=2andf<>1then:f=f-1:goto50
   81 ifa$="d"andt=2andf<>6then:f=f+1:goto50
   82 printim$:goto65
   83 t=t(f,r,c):goto52
   84 ift=8goto91
   85 iffna(20)<10goto89
   86 print"{down}{rvon}";ev$(fna(8)):gosub207:iffna(99)<95goto88
   87 print"{down}{rvon}and ye are all killed!!":goto295
   88 print"{down}{rvon}but nobody is harmed":goto90
   89 print"it is empty"
   90 t(f,r,c)=0:em=0:goto65
   91 em=2:gosub165:print"it contains{down}":printb$:goto65
   92 t(f,r,c)=0:em=0
   93 iffna(99)>95thenprint"{clr}{down}{down}{rvon}ye are all poisoned to death!!":goto295
   94 print"ye have swallowed ";:iffna(20)<10goto96
   95 print"{rvon}poison":print"{down}{rvon}and are now ";d$(fna(5)):z=0-fna(25):goto97
   96 print"a healing potion":print"{down}and are now ";u$(fna(5)):z=fna(25)
   97 gosub207:gosub165:forj=1to5:ifa(j)=0then99
   98 a(j)=a(j)+z:ifa(j)<1thena(j)=0:print"{rvon}";c$(j)" dies!"
   99 next:z=0:forj=1to5:ifa(j)>0thenz=1
  100 next:ifz=0goto150
  101 goto65
  102 iffna(f+1)<f+1thengosub116:goto65
  103 ifa$="r"then72
  104 ifa$="t"then73
  105 ifa$="i"then69
  106 ifa$="l"then70
  107 ifa$="p"then71
  108 printmm$;" slumbers":gosub206:dw=0:goto69
  109 forj=1to5:ifa(j)=0thenprintc$(j);al$:a(j)=fna(75)+100:j=5:k1=0
  110 next:ifk1=1thenprintim$
  111 return
  112 forj=1to5:ifa(j)>0thena(j)=a(j)+fna(50)
  113 next:print"ye gain strength"
  114 iffna(5)=1thenk2=0:print"{down}but the wand is now useless"
  115 return
  116 rem*dweller
  117 dw=0:cb=fna(f)*f:ms=f*30+(fna(f*5)):ifa$="b"then120
  118 k=fna(5):ifa(k)=0then118
  119 print"{rvon}";mm$;" attacks":print"{down}{rvon}"c$(k):goto143
  120 rem*battle
  121 gosub165:print"who will battle against":print"{down}"mm$;"?"
  122 geta$:ifa$=""then122
  123 ifa$="w"thenk=1:goto133
  124 ifa$="c"thenk=2:goto133
  125 ifa$="a"thenk=3:goto133
  126 ifa$="h"thenk=4:goto133
  127 ifa$="s"thenk=5:goto133
  128 iffna(6)<fgoto118
  129 ifa$="i"thengosub165:gosub11:goto121
  130 ifa$="p"thengosub112:goto121
  131 ifa$="l"thengosub109:goto121
  132 goto118
  133 ifa(k)>0goto136
  134 print"{down}"c$(k)" is dead":gosub206:goto120
  135 gosub207
  136 gosub165:printc$(k)" "ch$(fna(20))"s{down}"
  137 j=fna(40):ifj<cbthenprint"but "ct$(fna(6)):goto143
  138 ms=ms-fna(a(k))
  139 ifms>0goto142
  140 print"{rvon}and "ck$(fna(5))"s "mm$:t(f,r,c)=t(f,r,c)+200:gosub207:gosub165
  141 gosub166:a(k)=a(k)+fna(f*2)+(f*3):return
  142 print"{rvon}and ";cw$(fna(5));"s ";mm$
  143 gosub207:gosub165:printmm$" "mh$(fna(20))"s{down}":j=fna(40):
  144 ifj>cbthenprint"but "mt$(fna(6)):goto135
  145 a(k)=a(k)-fna(ms)
  146 ifa(k)>0thenprint"{rvon}and ";mw$(fna(5));"s ";c$(k):goto135
  147 a(k)=0:print"{rvon}and "mk$(fna(5))"s "c$(k)
  148 x=0:forj=1to5:ifa(j)>0thenx=1
  149 next:ifx>0thengosub207:gosub165:goto120
  150 gosub207:print"{clr}{down}{down}{down}{rvon} ye are all dead!":goto295
  151 print"{clr}{rvon}ye had this treasure:-
  152 x=0:forj=1to30:ifts(j)=0thenprintt$(j)" ";:x=x+1
  153 ifx=2thenprint:x=0
  154 next:end
  155 rem*cave
  156 restore:ift>300thenz=t-300:goto158
  157 z=t-100
  158 forj1=1toz:readmm$:next:ifj1>43thenmm$=mm$+" dragon"
  159 return
  160 forz=6to30:ifts(z)>0then162
  161 ifts(z)=0thenprint"the "t$(z):x=x+1:ifx=6thenx=0:gosub207:gosub165
  162 next:return
  163 forj=1to5:ifts(j)=0thenprint"{rvon} the "t$(j)" "
  164 next:return
  165 print"{home}";:forj=1to7:prints$:next:print"{home}";:return
  166 x=((f-1)*72)+((r-1)*6)+c:forj=1to30:ifts(j)<>xthen172
  167 print"thou hast found":print"{down}{rvon} the "t$(j)" ":ts(j)=0
  168 ifj=6thenk1=1
  169 ifj=7thenk2=1
  170 ifj=8thenk3=1
  171 j=30:gosub207:gosub165
  172 next:return
  173 rem*erase map
  174 ifk3=1then178
  175 ifl6(1)=0then177
  176 p1=l6(1):p=p1:gosub205:gosub191
  177 forj=1to5:l6(j)=l6(j+1):next
  178 gosub179:l6(6)=p1:return
  179 rem*print map
  180 p1=z1+(r*120)+(c*3)
  181 iff>1goto188
  182 ifp1<>z2goto188
  183 ifzz=0goto188
  184 gosub165:print"{down}{down}{rvon}dost thou wish to leave the caves?"
  185 geta$:ifa$=""goto185
  186 ifa$="y"goto151
  187 ifa$<>"n"goto185
  188 p=p1:gosub205
  189 t1=t:ift>100ort=0ort=8ort=9thent1=1
  190 ont1gosub195,199,200,201,202,203,204,205,195
  191 forj2=1to9:pokep,c(j2)
  192 ifj2=3orj2=6thenp=p+37
  193 p=p+1:next:return
  194 rem*map symbol
  195 c(1)=206:c(2)=b:c(3)=205:c(4)=b:c(5)=102:c(6)=b:c(7)=205
  196 c(8)=b:c(9)=206
  197 ift1=11thenc(5)=132
  198 return
  199 c(2)=b:c(4)=b:c(5)=189:c(6)=b:c(8)=b:return
  200 c(2)=b:c(4)=b:c(5)=b:c(6)=b:c(8)=b:return
  201 c(2)=b:c(5)=b:c(6)=b:c(8)=b:return
  202 c(4)=b:c(5)=b:c(6)=b:c(8)=b:return
  203 c(2)=b:c(4)=b:c(5)=b:c(8)=b:return
  204 c(2)=b:c(4)=b:c(5)=b:c(6)=b:return
  205 fork=1to9:c(k)=32:next:return
  206 forj=1to500:next:return
  207 forj=1to3000:next:return
  208 forj=1to5000:next:return
  209 databloodbear,leech,purple ooze,giant rat,shrieker,wolverine,rot grub
  210 databerserker,green worm,gobbler,thought eater,shambling mound,banshee
  211 datagiant ant,black putrifier,bone devil
  212 datadinosaur,brontosaurus,brown mold,carrion crawler,gelatinous cube
  213 dataslime snake,cerebral parasite,brain mole,golem,cockatrice,giant crab
  214 datademogorgon,barbed devil,spiky bear,bone sucker,zombie,pit fiend
  215 datacavemaniac,groaning spirit,hell horse,jackal,night hag,strangler
  216 datawererat,brainbiter,titan
  217 datasilver,red,platinum,brass,spiny,blue,green,copper,gold,bronze,ghost
  218 datanight,glass,sand,sulphur,horned,scarlet,blood,striped,bone,razor
  219 datawarrior,cleric,amazon,hobbit,sorcerer
  220 datalunge,charge,thrust,leap,strike,attack,fight,fight,struggle
  221 datajump,rushe,spring,stab,swing,grapple,wrestle,hit,wallop,thwack,punche
  222 databite,rip,claw,snap,dart,tear,swipe,rake,charge,strike,close,advance
  223 datachop,slashe,hack,lashe,gouge,peck,kick,cuff
  224 datafalls over,does no harm,slips on the damp floor,is sent sprawling
  225 datamisses hopelessly,is driven back,overbalances,finds thin air,misses
  226 datastumbles,crashes to the ground,misses wildly,damage,wound,bruise
  227 datawhack,gashe,savage,lacerate,injure,bite,claw,slay,destroy,slaughter
  228 datadecapitate,kill,disembowel,swallow,behead,strangle,butcher
  229 data"armour of eternity","book of dragons   ","cloak of virtue   "
  230 data"dagger of fire    ","eye of smaug      "
  231 datachalice of life,wand of power,lamp of daybright,amethyst sword
  232 datapurple salver,green mantle,casket of emeralds,blue raindrops
  233 datacornucopia of sapphires,pearl goblet,burnished icon,necklace of thor
  234 databrooch of medusa,crown of cornelians,garnet staff,spangled spear
  235 datatalisman of health,coral antelope,star of gandulph,topaz sceptre
  236 datacharm of mars,orb of light,jewelled robe of zeus
  237 datamirror of crystal,ruby vase
  238 dataphial of green liquid,bottle of sparkling cider,loaf of red bread
  239 databowl of cherries,striped bun,box of mauve powder,blue apple
  240 dataroast chicken,capsule of yellow crystals,jar of snake jam
  241 datadecanter of scarlet fluid,flask of smoking wine,pot of beetle juice
  242 datacup of lemon milk,pulsating pancake,slice of dragon cake,baked grass
  243 databowl of black custard,piece of purple tart,spotted sweet
  244 datatiny,large,cobwebbed,dirty,nutritious,desirable,repugnant,tempting
  245 datarevolting,stinking,mouthwatering,disgusting,nauseating,toothsome
  246 datafortified,strengthened,stronger,fresher,healthier
  247 dataweaker,debilitated,feebler,frailer,sick
  248 dataacrid red smoke billows out,a shower of blue spores shoots out
  249 dataa green slime bursts out,10 ft high flames belch out
  250 datascalding water hisses out,12 cobras slither out
  251 dataa nest of scorpions scamper out,sticky black goo floods out
  252 datadeceased,dead,moldering,rotting,decomposing,skeleton of a
  253 print"{clr}{rvon}n,s,e,w{rvof}-moves you {rvon}north,south,east,west
  254 print"{down}{rvon}u,d{rvof}-{rvon}up{rvof} or {rvon}down{rvof} stairs
  255 print"{down}{rvon}i{rvof}-status of {rvon}individuals{rvof}
  256 print"{down}{rvon}p{rvof}-increase {rvon}power{rvof} if you have the wand   of power
  257 print"{down}{rvon}l{rvof}-bring a member back to {rvon}life{rvof} if you
  258 print"have the chalice of life
  259 print"{down}{rvon}r{rvof}-list sacred {rvon}relics{rvof} captured
  260 print"{down}{rvon}t{rvof}-list {rvon}treasures{rvof} captured
  261 print"{down}{rvon}o{rvof}-open chest    {rvon}f{rvof}-feed on contents
  262 print"{down}{rvon}b{rvof}-battle with monster
  263 print"{down}{rvon}w{rvof}-warrior  {rvon}c{rvof}-cleric  {rvon}a{rvof}-amazon
  264 print"{rvon}h{rvof}-hobbit   {rvon}s{rvof}-sorcerer
  265 print"{down}{rvon}please wait a minute.{home}":goto15
  266 rem*finale
  267 gosub208:x=0:k=0:forj=1to5:ifts(j)>0thenx=x+1:goto269
  268 k=k+1
  269 next:print"{clr}{down}{rvon} so,puny ones!":print"{down}{rvon} thou darest to come against me "
  270 ifx=5thenprint"{down}{rvon} with none of"sr$"!!":goto291
  271 ifk=5thenprint"{down}{rvon} with"sr$"!!":goto273
  272 print"{down}{rvon} with but a few of"sr$"!!
  273 gosub208:z=fna(5):print"{clr}{down}{down}{rvon} what relic wilt thou use against me?"
  274 geta$:ifa$=""then274
  275 x=0:forj=1to5:ifa$=left$(t$(j),1)thenx=j:j=5
  276 next:ifx=0goto278
  277 ifts(x)=0goto279
  278 print"{down}{down}{rvon} fool! thou hast no such thing!":goto291
  279 ifz=xthen297
  280 print"{clr}{down}{down}{down}{rvon} hah! i fear not the {down}"
  281 print"{rvon} "t$(x)" ":ts(x)=9
  282 gosub207:print"{down}{down}{rvon} therefore,for thy foolishness,i "
  283 print"{down}{rvon} destroy both the "t$(x)" "
  284 print"{down}{rvon} and thee......";:gosub208
  285 k=fna(5):ifa(k)=0then285
  286 printc$(k)"!" :a(k)=0:forj=1to5:ifa(j)>0thenj=9
  287 next:ifj<9then295
  288 forj=1to5:ifts(j)=0thenj=9
  289 next:ifj>8then273
  290 print"{down}{down}{down}{rvon} thou hast no sacred relics left!
  291 gosub208:print"{clr}{down}{down}{down}{rvon} i therefore punish thy impudence with "
  292 print"{down}{rvon} death by dragon breath!!":gosub207:forj=1to9:j1=33174:j3=170
  293 j5=190:forj4=1to2:forj2=1to24:j6=j1+j2
  294 pokej6,j3:pokej6+41,j5:pokej6+80,j3:next:j3=32:j5=32:next:next
  295 gosub207:print"{clr}{down}{down}{down}{down}{down}{rvon} so perish all enemies of "
  296 print"{down}{down}{down}{rvon} the lord of the dragons!":gosub208:goto151
  297 print"{clr}{down}{down}{rvon}";:fork=1to9:print"aaarrrrrrrggggghhhhhh";
  298 gosub206:next:print"!!!!!"
  299 print"{down}{down}{down}{rvon} how can this be?{rvof}  {rvon} thou hast slain ":goto296
  300 print"{clr}      {rvon} lord of the dragons "
  301 print"{down}deep in the ancient forest of zorg is
  302 print"{down}a 6 floored fortress,said to be full of
  303 print"{down}strange treasures and fearful monsters.
  304 print"{down}in the bowels of the fortress,guarded
  305 print"{down}by the most powerful and terrifying
  306 print"{down}dragons,dwells the evil lord.
  307 print"{down}the tall whisperers say that he prepares
  308 print"to set forth with many loathsome
  309 print"{down}creatures to seize the fair land in his
  310 print"{down}dark and terrible power.":gosub365
  311 print"{clr}{down}{down}a party of 5 bold adventurers,comprising
  312 print"a warrior,amazon,hobbit,cleric and
  313 print"{down}sorcerer,have joined forces to seek out
  314 print"{down}and destroy the evil one.
  315 print"{down}{down}they know that their only hope is to
  316 print"{down}capture as many of the 5 sacred relics
  317 print"{down}as possible for only these might have
  318 print"{down}the power to overcome the dragon lord.":gosub365
  319 print"{clr}{down}{down}{down}the 5 sacred relics are:-
  320 print"{down}the {rvon}a{rvof}rmour of eternity":print"{down}the {rvon}b{rvof}ook of dragons
  321 print"{down}the {rvon}c{rvof}loak of virtue
  322 print"{down}the {rvon}d{rvof}agger of fire":print"{down}the {rvon}e{rvof}ye of smaug":gosub365
  323 print"{clr}{down}once inside the twisting fortress,
  324 print"{down}the only way out is by destroying the
  325 print"{down}lord of the dragons or escaping at the
  326 print"{down}top left corner of the first floor.
  327 print"{down}{down}as ye wander,previously explored parts
  328 print"{down}of the floor will vanish in the dark.if
  329 print"{down}ye find the lamp of daybright,all
  330 print"{down}explored paths on that floor will remain
  331 print"illuminated.":gosub365
  332 print"{clr}     {rvon} commands "
  333 print"{down} n  move {rvon}n{rvof}orth.
  334 print"{down} s  move {rvon}s{rvof}outh.
  335 print"{down} e  move {rvon}e{rvof}ast.
  336 print"{down} w  move {rvon}w{rvof}est.
  337 print"{down} u  move {rvon}u{rvof}p stairs.
  338 print"{down} d  move {rvon}d{rvof}own stairs.
  339 print"{down} i  gives the status of {rvon}i{rvof}ndividuals":print"    in the party."
  340 print"{down} p  increases the {rvon}p{rvof}ower of individuals
  341 print"    if ye possess the wand of power.":gosub365
  342 print"{clr}{down} l  brings one member back to {rvon}l{rvof}ife if
  343 print"    ye possess the chalice of life.
  344 print"{down} r  lists the  sacred {rvon}r{rvof}elics captured.
  345 print"{down} t  lists all {rvon}t{rvof}reasures captured.
  346 print"{down} o  open a {rvon}c{rvof}hest."
  347 print"{down} f  {rvon}f{rvof}eed on the contents.
  348 print"{down} b  {rvon}b{rvof}attle with the monster.":gosub365
  349 print"{clr}{down}{down}{down}to call on the following:-
  350 print"{down} w  {rvon}w{rvof}arrior.
  351 print"{down} c  {rvon}c{rvof}leric.
  352 print"{down} a  {rvon}a{rvof}mazon.
  353 print"{down} h  {rvon}h{rvof}obbitt
  354 print"{down} s  {rvon}s{rvof}orcerer.":gosub365
  355 print"{clr}{down}{down}{down}{down}many battles and surprises lie before ye
  356 print"{down}and few there be that have survived the
  357 print"{down}{down}dark powers of........{down}{down}{down}{down}
  358 forj=1to6000:next
  359 forj=1to50:print"       the lord of the dragons!!
  360 fork=1to20:next
  361 print"{up}      {rvon} the lord of the dragons!!{up}
  362 fork=1to20:next
  363 next:forj=1to500:poke32768+int(1000*rnd(1)),42:next
  364 goto3
  365 print"{down}{down}{rvon} press space when ready "
  366 geta$:ifa$=""then366
  367 ifa$<>" "then366
  368 return
   50 rem coded by jim butterfield
   60 rem using ..floyd's algorithm..
   70 rem from 'programming pearls'
   80 rem 'communications of the acm'
   90 rem '.. september 1987'
  100 j=rnd(-ti)
  110 print "the lottery number picker!!"
  120 print
  130 input "choose how many numbers";m
  140 input "out of a range of  ..  1 to";n
  150 dim s(m)
  160 print
  170 print "i'm ready to start picking..."
  180 input "how many 'sets' do you want";a
  190 for i=1 to a
  200  p=0
  210  for j=n-m+1 to n
  220   t=int(rnd(1)*j)+1
  230   if p=0 goto 270
  240   for k=1 to p
  250     if t=s(k) then t=j:goto 270
  260   next k
  270   p=p+1:s(p)=t
  280   print t;
  290  next j
  300  print
  310 next i
    5 print"{clr}";
    6 goto4000
    7 i4=i5
    8 gosub8000
    9 print"{down}"
   10 th=0:t=0
   30 x0=52800+int((rnd(1)-.5)*20000)
   40 v0=-176+int((rnd(1)-.5)*100):f=1:s=1
   45 fl=2500+int((rnd(1)-.5)*1000)
   70 gosub1000
   80 gosub60000
   90 at=ti:ag=ti
  100 getrr$:ifrr$<>""thenr=val(rr$)
  110 if(ti-at)>30thenat=ti:goto130
  120 goto110
  130 t=t+r
  140 th=th+1
  160 a=5.4*(1-0.2*r)
  170 x=v0+0.5*a:x0=x0+x
  190 ifx0>0then230
  200 x=x-x0:f=0:x0=0
  230 d=v0*v0-2*x*a
  240 ifd>0then270
  250 d=-d:s=-1
  270 v0=sqr(d)*s*sgn(x)
  280 s=1
  290 ifv0>0thenprint"{rvon}";
  300 print"{home}{down}{down}{down}{rght}";mid$(str$(v0),2,5)"{rvof}";
  310 printleft$(str$(x0)+a$(0),7)
  320 print"{down}{down}"
  330 print"{rght}";fl-t"{left}   {left}{left}"tab(8);th
  340 gosub2000:iff=0thengosub9000:goto10000
  350 ift>flthenr=0:goto140
  360 goto100
 1000 a$="{down}{left}{left}{left}{left}{left}"
 1010 a$(0)="     "
 1020 a$(1)=" {CBM-M}{CBM-V} "
 1030 a$(2)=" {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof} "
 1040 a$(3)=" {rvon} {CBM-V} {rvof} "
 1050 a$(4)="{rvon}{SHIFT-POUND}usa{CBM-*}{rvof}"
 1060 a$(5)="N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M"
 1070 a$(6)=a$(0)
 1080 print"{home}{down}{down}"tab(19);
 1090 fori=0to6
 1100 printa$(i)+a$;
 1110 next
 1115 print"{home} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1120 print"{CBM-M}{rvon}speed height{rvof}{CBM-G}":gosub1160
 1130 print"{CBM-M}{rvon} fuel  time {rvof}{CBM-G}":gosub1160
 1140 return
 1160 fori=1to2:print"{CBM-M}"tab(13)"{CBM-G}":next
 1170 print"{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}":return
 2000 printtab(19);:ifr=0thenreturn
 2010 fori=1tor:print"N{CBM-T}M{down}{left}{left}{left}";:next:fori=rto10:print"   {down}{left}{left}{left}";:next
 2020 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:fori=1to10:print"   {down}{left}{left}{left}";:next:return
 3010 goto5000
 4000 print"this game simulates the landing of a"
 4010 print"spacecraft above the lunar surface.":print
 4020 print"readings on the gauges are:"
 4030 print"    velocity        in ft/sec"
 4040 print"    height          in feet"
 4050 print"    remaining fuel"
 4060 print"    elapsed time    in seconds":print
 4070 print"if the velocity should appear in"
 4080 print"reverse field (eg.,{rvon}256{rvof}),you are going"
 4090 print"up.  the controls are the number keys."
 4100 print"the higher the number,the harder you"
 4110 print"thrust.  a thrust of 5 will exactly"
 4120 print"balance gravity, allowing you to fall"
 4130 print"at a constant rate.  the object is to"
 4140 print"land at a speed of less than 15 ft/sec.":print
 4150 print"you start at 52800+or-10000 ft, falling"
 4160 print"at a rate of 176+or-50 ft/sec, with 2500";
 4170 print"+or-500 units of fuel.  if you run out "
 4174 print"out of fuel you fall like a rock.":print
 4176 print"do you understand";:inputu$
 4190 ifleft$(u$,1)="y"then7
 4200 print"{clr}re-read carefully!":goto4000
 8000 print"{clr}"
 8005 fori1=1to14
 8030 printtab(39*rnd(1));"."
 8080 nexti1
 8090 return
 9000 h=4.5:h$(1)="{CBM-@}":h$(2)="{CBM-P}":h$(3)="{CBM-O}":h$(4)="{CBM-I}":h$(5)="{rvon}{CBM-U}{rvof}":h$(6)="{rvon}{CBM-Y}{rvof}"
 9010 h$(7)="{rvon}{CBM-T}{rvof}":h$(8)="{rvon} {rvof}"
 9020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1to40
 9030 n=int(rnd(1)*7)+1:ifabs(n-h)>2then9030
 9040 h=n:printh$(h);:nexti:return
 10000 print"{home}{down}{down}{down}"spc(19);
 10010 fori=1to10:forj=0to5:printa$(j)+a$;:next:print"{up}{up}{up}{up}{up} ";:next
 10020 ifv0<-15then20000
 10030 print:print"{down}{down}{down}{down}{down}{down}congratulations, you landed safely":goto30000
 20000 print"   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{left}{left}   {rght}{rght}{rght}{rvon}{CBM-*}{rght}{CBM-D} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{CBM-*}{rght}{rght}{rght}{CBM-Z} {rvon} {rvof}{SHIFT-POUND}P"
 20010 print"{down}{down}"
 30000 input"do you want to try again";g$
 30010 ifleft$(g$,1)="y"then7
 30020 end
 60000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 60010 a=ti
 60020 print"moon lander game starts in"5-int((ti-a)/60)"{left} seconds     {up}{up}"
 60030 if(ti-a)<300then60020
 60040 print"                                      ":r=0
 60050 return
    1 rem ***  lunar lander  ***
    2 rem *** by tom garland ***
    3 rem *** march 15,1978  ***
   10 dim a$(15)
   20 a$(14)="    J{SHIFT-+}K{SHIFT-+}    "
   30 a$(13)="     {SHIFT--} {SHIFT-+}    "
   40 a$(12)="   NO{CBM-T}{CBM-T}{CBM-T}PM  "
   50 a$(11)="   O usa P  "
   60 a$(10)="   {CBM-G} {CBM-I}{rvon} {rvof}  {SHIFT-@}  "
   70 a$(9)="   L UI {CBM-M}N  "
   80 a$(8)="    {CBM-G}{SHIFT--}{SHIFT--} O   "
   90 a$(7)=" NO{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P  "
  100 a$(6)=" {CBM-G}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}  "
  110 a$(5)=" {CBM-G}N N {CBM-G}M M  "
  120 a$(4)=" N  {CBM-T}{CBM-T}O{CBM-T}  M "
  130 a$(3)="{rvon}{CBM-K}{rvof}{CBM-K}  N{rvon}{CBM-K}{rvof}{CBM-K}M  {rvon}{CBM-K}{rvof}{CBM-K}"
  140 a$(2)="    N  M    "
  150 a$(1)="            "
  160 sl$(1)="{rvon}1{rvof} beginner     "
  170 sl$(2)="{rvon}2{rvof} trainee      "
  180 sl$(3)="{rvon}3{rvof} co-pilot     "
  190 sl$(4)="{rvon}4{rvof} pilot        "
  200 sl$(5)="{rvon}5{rvof} command pilot"
  205 sl$(6)="{rvon}6{rvof} instructer   "
  210 sl$(7)="{rvon}7{rvof} ace          "
  220 sl$(8)="{rvon}8{rvof} super ace    "
  225 sl$(9)="{rvon}9{rvof} water walker "
  230 def fna(u)=int(((s/256)-int(s/256))*256+.1)
  240 def fnb(l)=len(str$(int(p)))
  242 def fnc(x)=256*((pp/256)-int(pp/256))
  244 def fnd(f)=int(f*100+.5)/100
  250 print "{clr}{down}hi, want to captain the lander";
  260 input k$:if left$(k$,1)<>"y" then end
  270 print
  280 print "what is your name ";
  290 input n$
  300 print "{down}do you want the rules, ";n$;" ";
  310 input k$:if left$(k$,1)<>"y" goto 340
  320 gosub 1580
  330 poke 59468,peek(59468) and 253
  340 print "{clr}{down}{down}";sl$(1);" (min. 2250,max. 2500)"
  350 print sl$(2);" ( 8% less fuel)"
  360 print sl$(3);" (16% less fuel)"
  370 print sl$(4);" (24% less fuel)"
  380 print sl$(5);" (32% less fuel)"
  390 print sl$(6);" (40% less fuel)"
  400 print sl$(7);" (48% less fuel)"
  405 print sl$(8);" (56% less fuel)"
  408 print sl$(9);" (64% less fuel)"
  410 print "{down}";n$;";"
  420 print "what is your level of training ";
  430 input k$:if val(k$)<1 or val(k$)>9 goto 430
  440 fs=val(k$)-1
  450 gosub 560
  460 print "{home}"
  470 poke 196,23
  480 poke 197,131
  490 poke 198,0
  500 if f=0 goto 540
  510 input b$
  520 b=val(left$(b$,5))
  530 if b<0 or b>15 goto 460
  540 gosub 890 
  550 goto 460
  560 print "{clr}";tab(18);"** lunar lander **"
  570 print "{down}{down}                     altitude"
  580 print "                    {rvon}          {rvof}"
  590 print "                    {rvon} {rvof}     .  {rvon} {rvof}meters"
  600 print "                    {rvon}          {rvof}"
  610 print "{down}                     velocity"
  620 print "                    {rvon}          {rvof}"
  630 print "                    {rvon} {rvof}     .  {rvon} {rvof}meters/sec";
  640 print "                    {rvon}          {rvof}"
  650 print "{down}                       fuel  "
  660 print "                    {rvon}          {rvof}"
  670 print tab(20);"{rvon} {rvof}     .  {rvon} {rvof}kilograms"
  680 print "                    {rvon}          {rvof}"
  690 print tab(18);"{down}next ten second burn"
  700 print tab(18);"kilograms/sec "
  710 print "{down}{down}{rvon}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}";
  720 print
  730 print tab(20);sl$(val(k$));
  740 a=9750+rnd(1)*500:v=-138-rnd(1)*25:f=2250+rnd(1)+250
  760 if fs>0 then f=f-(f*.08*fs)
  770 f1=f
  790 p=a
  800 pp=32989
  810 gosub 1210
  820 p=v
  830 pp=33189
  840 gosub 1210
  850 p=f
  860 pp=33389
  870 gosub 1210
  880 return
  890 bv=b*(.3+((f1-f)/f1*.1))
  900 forc=1to10
  910 iff=0thenbv=0:b=0
  920 v=v+(bv-1.65):f=f-b
  930 a=a+v:a=int(a*100+.5)/100
  940 ifa<.1thena=0:gosub1210
  950 p=a:pp=32989:gosub1210
  960 f=fnd(f)
  970 iff<.1thenf=0
  980 p=f:pp=33389:gosub1210
  990 v=int(v*100+.5)/100
 1000 p=v:pp=33189:gosub1210:gosub1410
 1010 ifa<.1goto1040
 1020 nextc
 1030 return
 1040 if v>=-.2 then m$="{rvon}ace of aces: call houston they need you":goto 1140
 1050 if v>=-.6 then m$="{rvon}a perfect landing":goto 1140
 1060 if v>=-1 then m$="{rvon}qualified pilot ":goto 1140
 1070 if v>=-2 then m$="{rvon}pretty good landing":goto 1140
 1080 if v>=-4 then m$="{rvon}did you spill your tang?":goto 1140
 1090 if v>=-6 then m$="{rvon}not bad, but you broke your dishes":goto1140
 1100 if v>=-8 then m$="{rvon}rough landing: need more training":goto 1140
 1110 if v>=-10 then m$="{rvon}broke off landing pad:need rescue":goto 1140
 1120 if v<-10 and f=0 then m$="{rvon}killed yourself, no fuel, nurd!":goto 1140
 1130 if v<-10 and f<>0 then m$="{rvon}what kind of flowers for next of kin"
 1140 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";m$
 1150 gosub 1960
 1160 print "try again ";n$;" ";
 1170 input k$
 1180 if left$(k$,1)="y" then 340
 1190 print "{clr}{down}{down}{down}"
 1200 end
 1210 print "{home}"
 1215 x=fnc(x)
 1220 poke 196,x
 1230 poke 197,int(pp/256)
 1240 poke 198,0
 1250 p=int(p*100+.5)
 1260 if p=0 then p$="     .00":goto 1390
 1270 l=fnb(l)
 1280 p$=""
 1290 q$=left$("      ",9-l)+str$(int(p))
 1300 q$=right$(q$,7)
 1310 d=0
 1320 for j=1 to 6
 1330 if j<5 goto 1370
 1340 if j=5 and (abs(p)<10 and p<0) then p$=p$+"-":goto 1380
 1350 if j=6 then p$=p$+".":d=1
 1360 if j=6 and abs(p)<10 then p$=p$+"0"+right$(q$,1):goto 1380
 1370 p$=p$+mid$(q$,j,1+d)
 1380 next j
 1390 print p$
 1400 return
 1410 s=33610-int(log(a+.1)*1.7)*40
 1420 if so=s goto 1570
 1430 so=s
 1440 for i=1 to 24
 1450 print "{home}"
 1460 if s<32770 goto 1550
 1470 if s>33610 then s=33610
 1480 u=fna(u)
 1490 poke 196,u
 1500 poke 197,int(s/256)
 1510 poke 198,0
 1520 if a<1 and i<3 and v<0 goto 1560
 1530 if i>14 then print a$(1):goto 1550
 1540 print a$(i)
 1550 s=s-40
 1560 next i
 1570 return
 1580 poke 59468,peek(59468) or 2
 1590 print "{clr}1. yOU{$a0}WILL{$a0}START{$a0}ABOUT{$a0}10,000 METERS"
 1600 print "   ABOVE{$a0}THE{$a0}SERFACE{$a0}OF{$a0}THE{$a0}MOON."
 1610 print "{down}2. yOUR{$a0}INITIAL{$a0}VELOCITY{$a0}WILL{$a0}BE"
 1620 print "   AROUND{$a0}-150 METERS{$a0}PER{$a0}SECOND,TOWARDS";
 1630 print "   THE MOON."
 1640 print "{down}3. yOU CAN{$a0}SLOW{$a0}YOUR{$a0}SHIP{$a0}DOWN{$a0}BY"
 1650 print "   APPLYING THRUST."
 1660 print "{down}4. iF{$a0}YOUR VELOCITY{$a0}IS{$a0}GREATER{$a0}THAN"
 1670 print "   -10 METERS{$a0}PER{$a0}SECOND{$a0}WHEN{$a0}YOU{$a0}REACH"
 1680 print "   AN{$a0}ALTITUDE OF 0 METERS, YOU{$a0}WILL"
 1690 print "   DIE{$a0}FROM{$a0}THE{$a0}CRASH."
 1700 print "{down}5. tHE{$a0}MAZIMUM{$a0}THRUST{$a0}YOU{$a0}CAN{$a0}APPLY{$a0}IS"
 1710 print "   15 KILOGRAMS{$a0}PER{$a0}SECOND{$a0}FOR 10"
 1720 print "   SECONDS, THIS{$a0}WILL{$a0}USE 150 KILOGRAMS"
 1730 print "   OF{$a0}YOUR{$a0}FUEL.
 1740 print "{down}6. iF{$a0}YOU{$a0}USE{$a0}ALL{$a0}YOUR{$a0}FUEL{$a0}BEFORE{$a0}YOU"
 1750 print "   lAND, GRAVITY{$a0}WILL{$a0}PULL{$a0}YOU{$a0}DOWN{$a0}AT"
 1760 print "   -1.65 METERS/SECOND/SECOND!{down}"
 1770 print "      {rvon}hit any key to continue{rvof}";
 1780 get k$:if k$="" goto 1780
 1790 print "{clr}7. tHE{$a0}FUEL{$a0}IN{$a0}YOUR{$a0}SHIP{$a0}IS 33% OF{$a0}THE"
 1800 print "   TOTAL{$a0}WEIGHT. iNITIALY 5.5 KILOGRAMS"
 1810 print "   OF{$a0}THRUST{$a0}WILL{$a0}BALANCE{$a0}YOUR{$a0}SHIP"
 1820 print "   AGAINST{$a0}THE{$a0}PULL OF{$a0}GRAVITY."
 1830 print "{down}8. aS{$a0}YOU{$a0}USE{$a0}FUEL, THE{$a0}SAME{$a0}AMOUNT"
 1840 print "   OF{$a0}FUEL{$a0}BURNED{$a0}WILL{$a0}SLOW YOUR{$a0}SHIP"
 1850 print "   FASTER.
 1860 print "{down}9. iF YOU WANT{$a0}TO{$a0}REPEAT{$a0}YOUR{$a0}LAST"
 1870 print "   BURN, JUST HIT THE 'return' KEY."
 1880 print "{down}10. aN{$a0}INITIAL{$a0}BURN{$a0}OF 9-10 KILOGRAMS"
 1890 print "    PER{$a0}SECOND IS{$a0}A{$a0}GOOD{$a0}START."
 1900 print "{down}11. eNGINES{$a0}SHUT{$a0}OFF{$a0}WHEN{$a0}YOU{$a0}TOUCH"
 1910 print "    THE{$a0}GROUND.
 1920 print "{down}{down}  {rvon}hit any key to start your landing "
 1930 print "         {rvon}";n$;", good luck!"
 1940 get k$:if k$="" goto 1940
 1950 return
 1960 rem make music
 1970 poke 49099,16
 1980 poke 49098,15
 1990 lt=175
 2000 poke 49096,157
 2010 for j=1 to lt:next j
 2020 poke 49096,140
 2030 for j=1 to lt:next j
 2040 poke 49096,124
 2050 for j=1 to lt:next j
 2060 poke 49096,116
 2070 for j=1 to lt*.4:next j
 2080 poke 49096,0
 2090 for j=1 to lt:next j
 2100 poke 49096,157
 2110 for j=1 to lt*1.5:next j
 2120 poke 49096,116
 2130 for j=1 to lt*3:next j
 2140 poke 49096,0
 2150 return
 2160 rem that's all folks
 10144 .45 meters
 63988 diml(300):l=1025:deffnr(x)=peek(x)+256*peek(x+1):deffnm(x)=int(10*x/256)
 63989 n=fnr(l):x=fnr(l+2):if x<63988 then a=a+1:l(a)=x:l=n:goto 63989
 63990 l=1025:for b=1 to a:n=fnr(l):poke(l+3),fnm(b):poke(l+2),10*b-256*fnm(b)
 63991 f=0:for c=l+4ton-1:p=peek(c):if p=137or p=141or p=167then f=1:goto 63999
 63992 if f=0 goto 63999
 63993 if p>47 and p<58 then d=10*d+p-48:g=g+1:goto 63999
 63994 if d=0 goto 63999
 63995 for e=1 to a:if d=l(e)goto 63997
 63996 next e:d=0:g=0:goto 63999
 63997 d=0:e$=str$(e*10)+"   ":h=len(e$)-4:c=c-g:if h>g then c=c-1:g=h
 63998 for i=1 to g:poke c,asc(mid$(e$,i+1,1)):c=c+1:next i:g=0
 63999 next c:l=n:next b:end
    1 rem copyright hanimex pty ltd. 1979: all rights reserved
    2 rem "lunar lander" #g1006:version 1.0 :4/4/78
    5 print"{clr}";
    6 goto4000
    7 i4=i5
    8 gosub8000
    9 print"{down}"
   10 th=0:t=0
   30 x0=25000
   40 v0=-200:f=1:s=1
   70 gosub1000
   80 gosub60000
   90 at=ti:ag=ti
  100 getrr$:if(val(rr$)=0andrr$="0")or(val(rr$)<>0)thenr=val(rr$)
  110 if(ti-at)>30thenat=ti:goto130
  120 goto110
  130 t=t+r
  140 th=th+1
  160 a=5.4*(1-0.2*r)
  170 x=v0+0.5*a:x0=x0+x
  190 ifx0>0then230
  200 x=x-x0:f=0:x0=0
  230 d=v0*v0-2*x*a
  240 ifd>0then270
  250 d=-d:s=-1
  270 v0=sqr(d)*s*sgn(x)
  280 s=1
  290 ifv0>0thenprint"{rvon}";
  300 print"{home}{down}{down}{down}{rght}";mid$(str$(v0),2,5)"{rvof}";
  310 printleft$(str$(x0)+a$(0),7)
  320 print"{down}{down}"
  330 print"{rght}";1200-t"{left}   {left}{left}"tab(8);th
  340 gosub2000:iff=0thengosub9000:goto10000
  350 ift>1200thenr=0:goto140
  360 goto100
 1000 a$="{down}{left}{left}{left}{left}{left}"
 1010 a$(0)="     "
 1020 a$(1)=" {CBM-M}{CBM-V} "
 1030 a$(2)=" {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof} "
 1040 a$(3)=" {rvon} {CBM-V} {rvof} "
 1050 a$(4)="{rvon}{SHIFT-POUND}usa{CBM-*}{rvof}"
 1060 a$(5)="N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M"
 1070 a$(6)=a$(0)
 1080 print"{home}{down}{down}"tab(19);
 1090 fori=0to6
 1100 printa$(i)+a$;
 1110 next
 1115 print"{home} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1120 print"{CBM-M}{rvon}speed height{rvof}{CBM-G}":gosub1160
 1130 print"{CBM-M}{rvon} fuel  time {rvof}{CBM-G}":gosub1160
 1140 return
 1160 fori=1to2:print"{CBM-M}"tab(13)"{CBM-G}":next
 1170 print"{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}":return
 2000 printtab(19);:ifr=0thenreturn
 2010 fori=1tor:print"N{CBM-T}M{down}{left}{left}{left}";:next:fori=rto10:print"   {down}{left}{left}{left}";:next
 2020 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:fori=1to10:print"   {down}{left}{left}{left}";:next:return
 3010 goto5000
 4000 print"this game simulates the landing of a"
 4010 print"spacecraft above the lunar surface.":print
 4020 print"readings on the gauges are:"
 4030 print"    velocity        in ft/sec"
 4040 print"    height          in feet"
 4050 print"    remaining fuel"
 4060 print"    elapsed time    in seconds":print
 4070 print"if the velocity should appear in"
 4080 print"reverse field (eg.,{rvon}256{rvof}),you are going"
 4090 print"up.  the controls are the number keys."
 4100 print"the higher the number,the higher the"
 4110 print"thrust.  a thrust of 5 will exactly"
 4120 print"balance gravity, allowing you to fall"
 4130 print"at a constant rate.  the object is to"
 4140 print"land at a speed of less than 15 ft/sec.":print
 4150 print"you start at 25000 feet, falling at a"
 4160 print"rate of 200 ft/sec, with 1200 units"
 4170 print"of fuel.  if you run out of fuel, you"
 4174 print"will fall like a rock!":print
 4176 print"do you understand? ";
 4177 gosub 40000
 4178 print"{rvon} {rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getu$:ifu$=""then4178
 4190 ifu$="y"then7
 4191 ifu$="n" then 4200
 4192 print:print"{up}(y/n) ";:goto 4176
 4200 print"{clr}{rvon}re-read carefully!{rvof}":goto4000
 8000 print"{clr}"
 8005 fori1=1to14
 8030 printtab(39*rnd(1));"."
 8080 nexti1
 8090 return
 9000 h=4.5:h$(1)="{CBM-@}":h$(2)="{CBM-P}":h$(3)="{CBM-O}":h$(4)="{CBM-I}":h$(5)="{rvon}{CBM-U}{rvof}":h$(6)="{rvon}{CBM-Y}{rvof}"
 9010 h$(7)="{rvon}{CBM-T}{rvof}":h$(8)="{rvon} {rvof}"
 9020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1to40
 9030 n=int(rnd(1)*7)+1:ifabs(n-h)>2then9030
 9040 h=n:printh$(h);:nexti:return
 10000 print"{home}{down}{down}{down}"spc(19);
 10010 fori=1to10:forj=0to5:printa$(j)+a$;:next:print"{up}{up}{up}{up}{up} ";:next
 10020 ifv0<-15then20000
 10030 print:print"{down}{down}{down}{down}{down}{down}congratulations, you landed safely":goto30000
 20000 print"   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{left}{left}   {rght}{rght}{rght}{rvon}{CBM-*}{rght}{CBM-D} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{CBM-*}{rght}{rght}{rght}{CBM-Z} {rvon} {rvof}{SHIFT-POUND}P"
 20010 print"{down}{down}"
 25000 gosub40000
 30000 print"do you want to try again? ";
 30001 print"{rvon} {rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getg$:ifg$=""then30001
 30010 ifg$="y"then7
 30020 ifg$<>"n" then 30030
 30021 print"{clr}":end
 30030 print:print"{up}(y/n) ";:goto 30000
 40000 getaa$:ifaa$<>"" then 40000
 40010 return
 60000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 60010 a=ti
 60020 print"moon lander game starts in"5-int((ti-a)/60)"{left} seconds     {up}{up}"
 60030 if(ti-a)<300then60020
 60040 print"                                      ":r=0
 60050 return
 63999 end:rem" end of lunar lander property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   10 print"{clr}{rvon}routine loading!"
   20 ad=690:u=863:d=905:r=793:l=827:c=33267:u1=-40:d1=40:r1=1:l1=-1
   30 readz:ifz<0then120
   40 pokead,z:ad=ad+1:goto30
  120 b=28*256:b1=132*256:ti$="000000"
  200 fori=0to23:poke4128+i,256*rnd(1):next
  210 sys3744
  360 forx=0to24:pokeb+x*40+39,32:pokeb+x*40+38,160:next
  370 e=2*int(rnd(1)*12)+1:ex=b+38+40*e:p=b+(24-e)*40+1:pokeex,32
  380 sys4051
  390 fora=32807to33767step40:pokea,102:next
  400 fora=1to18:sysr:next:ifpeek(c)=160thensysu
  410 t=ti:pokec,90
  415 ifpeek(c)=102then600
  417 pokec,90
  420 geta$:ifa$=""then420
  430 poke158,0:poke151,255:pokec,32
  440 a=val(a$):onagoto420,460,420,470,420,480,420,490,420
  455 goto417
  460 ifpeek(c+d1)<>160thensysu:goto415
  465 goto417
  470 ifpeek(c+l1)<>160thensysr:goto415
  475 goto417
  480 ifpeek(c+r1)<>160thensysl:goto415
  485 goto417
  490 ifpeek(c+u1)<>160thensysd:goto415
  495 goto417
  600 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}got there in"int((ti-t)/60)"{left} seconds."
  610 fora=1to2000:next
  620 goto120
 1000 data 255,127,0,128,39,128,136
 1010 data 2,151,131,191,131,162,11
 1020 data 181,10,157,122,2,202,16
 1030 data 248,162,11,189,178,2,149
 1040 data 10,202,16,248,96,162,11
 1050 data 189,122,2,149,10,202,16
 1060 data 248,96,216,24,165,10,105
 1070 data 40,133,10,144,2,230,11
 1080 data 24,165,12,105,40,133,12
 1090 data 144,2,230,13,24,165,14
 1100 data 105,40,133,14,144,2,230
 1110 data 15,96,216,56,165,18,233
 1120 data 40,133,18,176,2,198,19
 1130 data 56,165,20,233,40,133,20
 1140 data 176,2,198,21,96,32,190
 1150 data 2,162,25,32,43,3,32
 1160 data 222,2,202,208,247,32,211
 1170 data 2,96,160,39,177,12,72
 1180 data 177,10,145,12,136,208,249
 1190 data 104,145,12,96,32,190,2
 1200 data 162,25,32,77,3,32,222
 1210 data 2,202,208,247,32,211,2
 1220 data 96,160,1,177,10,72,177
 1230 data 12,145,10,200,192,40,208
 1240 data 247,104,145,10,96,32,190
 1250 data 2,162,24,160,40,177,10
 1260 data 145,16,136,208,249,160,40
 1270 data 177,14,145,10,136,208,249
 1280 data 32,222,2,202,208,241,160
 1290 data 40,177,16,145,10,136,208
 1300 data 249,32,211,2,96,32,190
 1310 data 2,162,24,160,40,177,20
 1320 data 145,16,136,208,249,160,40
 1330 data 177,18,145,20,136,208,249
 1340 data 32,1,3,202,208,241,160
 1350 data 40,177,16,145,20,136,208
 1360 data 249,32,211,2,96
 1370 data -1
    2 rem programmautor manfred schenk trier 1978
   10 print"{clr}mit hilfe dieses programms koennen      noten ( 2 oktaven) ueber"
   12 print"die oberen drei reihen der tastatur ge- spielt werden":print
   14 print"die dauer des tones laesst sich durch   die zifferntastatur waehrend"
   16 print"des spielens veraendern (1 - 6)":print
   18 print"auf dem bildschirm werden die gespielte note und die gewahlte ton-"
   20 print"dauer dargestellt":print
   30 print"zwei spielmoeglichkeiten stehen zur wahl":print
   32 print"     0 = spielen ohne vibrato"
   34 print"     8 = spielen mit  vibrato":print
   36 print"     {rvon}wie moechtest du spielen?"
   38 gosub50000
   39 poke158,0
   40 getg$:ifg$=""then40
   50 print"{clr}weiterhin besteht die moeglichkeit,den  gerade gespielten ton als"
   52 print"grundton zu erhalten oder jeden ton ein-zeln  zu spielen":print
   54 print"      0 = ohne grundton"
   56 print"      9 = mit  grundton":print
   58 print"     {rvon}wie moechtest du spielen?"
   59 gosub50000:poke158,0
   60 getd$:ifd$=""then60
   70 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rvon} abbruch bitte nur mit {rvof} ---> *"
   80 poke158,0
   90 getd$:ifd$=""then90
   95 print"{clr}":goto2000
   99 ifg$="0"then1000
  210 rem
  212 rem    spielen mit vibrato
  214 rem
  220 printb$;tab(7+2*z);z:forj=1toz:fork=atoa+2:poke59464,k:forn=1to4
  300 nextn:nextk:fork=a+2toastep-1:poke59464,k:forn=1to5:nextn:next:nextj
  599 ifd$="9"then2100
  600 poke59464,0:goto2100
  900 rem
  910 rem    spielen ohne vibrato
  915 rem
 1000 poke59464,a:printb$;tab(7+2*z);z
 1010 ifd$="9"then2100
 1100 fori=1to100*z:next:poke59464,0:goto2100
 1990 rem
 1992 rem     tonerzeugung
 1994 rem
 2000 gosub10000
 2100 getq$:ifq$=""then2100
 2200 ifq$=" "then20000
 2300 ifq$="!"thena=251:b$="h0":goto99
 2310 ifq$=chr$(34)thena=237:b$="c":goto99
 2320 ifq$="#"thena=224:b$="c#":goto99
 2330 ifq$="$"thena=211:b$="d":goto99
 2340 ifq$="%"thena=199:b$="d#":goto99
 2350 ifq$="'"thena=188:b$="e":goto99
 2360 ifq$="&"thena=177:b$="f":goto99
 2370 ifq$="\"thena=167:b$="f#":goto99
 2380 ifq$="("thena=157:b$="g":goto99
 2390 ifq$=")"thena=149:b$="g#":goto99
 2400 ifq$="_"thena=140:b$="a":goto99
 2410 ifq$="q"thena=132:b$="b":goto99
 2420 ifq$="w"thena=124:b$="h":goto99
 2430 ifq$="e"thena=117:b$="c1":goto99
 2440 ifq$="r"thena=111:b$="c1#":goto99
 2450 ifq$="t"thena=104:b$="d1":goto99
 2460 ifq$="y"thena=99:b$="d1#":goto99
 2470 ifq$="u"thena=93:b$="e1":goto99
 2480 ifq$="i"thena=88:b$="f1":goto99
 2490 ifq$="o"thena=83:b$="f1#":goto99
 2500 ifq$="p"thena=78:b$="g1":goto99
 2510 ifq$="^"thena=73:b$="g1#":goto99
 3000 ifq$="a"thena=69:b$="a1":goto99
 3010 ifq$="s"thena=65:b$="b1":goto99
 3020 ifq$="d"thena=61:b$="h1":goto99
 3030 ifq$="f"thena=57:b$="c2":goto99
 3040 ifq$="1"thenz=1
 3050 ifq$="2"thenz=2
 3060 ifq$="3"thenz=3
 3070 ifq$="4"thenz=4
 3080 ifq$="5"thenz=5
 3090 ifq$="6"thenz=6
 4000 ifq$="9"thend$="9"
 4010 ifq$="0"thend$="0":g$="0"
 4500 ifq$="8"theng$="8"
 5000 :
 5010 :
 5020 ifq$="*"thensys64721
 5030 :
 5040 :
 6000 goto2100
 10000 poke59467,16:poke59466,156:return:rem ton an
 20000 poke59464,0:poke59467,0:poke59466,0:end:rem ton aus
 50000 print:print:print"bemerkung: ";
 50010 print"eine aenderung ist waehrend  des spiels jederzeit moeglich":return
    1 goto910
    2 rem ** ml stop key disable **
    3 print"{$78}{SHIFT-POUND}={sret}{del}{stop}{SHIFT-POUND}{dish}{sret}{CTRL-U}{stop}x{$60} {$ea}~{SHIFT-POUND}~{f1}{up}l4{$ea}{$78}{SHIFT-POUND}1{sret}{del}{stop}{SHIFT-POUND}{$ea}{sret}{CTRL-U}{stop}x{$60}
    4 print"{$78}{$68}{$68}{$68}{CBM-N}{$68}{CBM-POUND}{$68}{$68}{$68}{$68}{$68}{$68}{$68}{gry2}h{f4}hx{$60}111"
    5 print"{$68}{$68}{$68}{$68}{$68}{$68}{$68}{$60}1"
    6 rem ** 4 - pop ml subroutine **
   10 rem **general input routine **
   15 :
   20 rem ** to our best knowledge this
   21 rem    program is free for
   22 rem    duplication in canada.
   23 rem    if you have contary
   24 rem    information, please
   25 rem    contact commodore canada and
   26 rem    every effort will be made to
   27 rem    withdraw copies of this
   28 rem    program.
   30 :
   35 rem +++ input section +++
   40 pokeuo,0:ur$="":ui$=""
   42 iful=0thenul=80
   45 print"  {left}{left}";:pokeuc,0
   50 getui$:ifui$=""then50
   55 ifui$=chr$(13)andlen(ur$)>=1thenpokeuc,1:print" {left}";:goto85
   60 ifui$=chr$(20)then105
   62 if len(ur$)=>ulthen50
   65 gosub120:rem check for valid character
   70 ur$=ur$+ui$
   75 printui$;
   80 goto50
   85 rem +++ check for help request +++
   90 ifur$=ux$then195:rem exit to help routine
   95 ifuf=1thengosub240
  100 uf=0:print:return
  102 rem ++ check delete ++
  105 iflen(ur$)<1then50
  110 ur$=left$(ur$,len(ur$)-1)
  115 print"{left}  {left}{left}";:goto50
  120 rem ++ check for valid characters ++
  125 iflen(us$)=0then150
  127 us$=us$+ux$
  130 forus=1tolen(us$)
  135 ifui$=mid$(us$,us,1)thenreturn
  140 next
  145 ui$="":return
  150 rem ** standard input **
  152 ifasc(ui$)=46thenreturn
  155 ifui$=chr$(32)thenreturn
  160 ifasc(ui$)<48orasc(ui$)>57then170
  165 return
  170 ifasc(ui$)<65orasc(ui$)>90then180
  175 return
  180 ifasc(ui$)<193orasc(ui$)>218thenui$="":return
  185 ifpeek(ut)=uu%thenui$=chr$(asc(ui$)-128):return
  187 return
  190 ui$="":return
  195 uf=1:rem +++ help routine exit +++
  197 gosub250
  200 gosub245
  205 foruq=ubto(u2%*256+u1%+u3%-2)
  210 uq%(uq-ub)=peek(uq):next:print"{clr}"
  215 uz=1:uv%=peek(ut)
  216 goto300
  217 uz=0:us$=uj$:ug$=uk$:up=uj:ul=uk
  218 ifpeek(50003)=0thenpoke53281,1:print"{clr}";:poke53281,6:poke53280,14:goto220
  219 print"{clr}";
  220 ut$=ul$:pokeut,uv%:foruq=ubto(u2%*256+u1%+u3%-3)
  225 pokeuq,uq%(uq-ub):next
  230 pokeu1,u1%
  232 pokeu2,u2%
  233 pokeu4,u4%
  234 pokeu3,u3%-1
  235 goto35
  240 ud%=((u2%*256+u1%+u3%)-ub)/40:printleft$(ud$,ud%+1):return
  245 printleft$(ud$,24);"                      {rvon} help coming {rvof}  ":return
  250 u1%=peek(u1):u2%=peek(u2):u3%=peek(u3):u4%=peek(u4)
  251 uj$=us$:uk$=ug$:ul$=ut$:uj=up:uk=ul
  255 return
  300 rem ** menu **
  301 :
  302 print"{clr}":pokeut,uu%:ifpeek(50003)=0thenpoke53281,9:poke53280,8
  303 :
  305 print"{home}                menu"
  310 print" --------------------------------------"
  315 print"{down}{down}       1.   begin function machine
  320 print"{down}{down}       2.   student instructions"
  325 print"{down}{down}       3.   teacher instructions"
  330 print"{down}{down}       4.   modification of program"
  335 print"{down}{down}       5.   quit{down}{down}"
  340 print" --------------------------------------"
  345 print"{down}{down}       press a number key (1-5) ";
  350 ul=1:us$="12345":gosub35:rem input routine
  351 iflen(ur$)>1then300
  352 us$=""
  355 onval(ur$)gosub1000,400,500,600,396
  360 goto300
  395 rem ** re-enable stop key and end **
  396 ifpeek(50003)<>1andpeek(50003)<>160andpeek(50003)<>0then399
  397 sysuu+71:ifpeek(50003)=0thenpoke53281,6:poke53280,14
  398 print"{lblu}{clr}":end
  399 gosub875:return
  400 rem ** student instructions **
  402 ut$=" Function Machine"
  405 print"{clr}":pokeut,ul%:ifpeek(50003)=0thenpoke53281,0:poke53280,0
  406 uu$=ug$:pu=up:up=1
  410 up=0:ug$="Student Inst":gosub850
  412 printspc(1)"{down}The object of {rvon}function machine{rvof} is to"
  414 printspc(1)"{down}determine what happens to the number"
  416 printspc(1)"{down}that was inputted to give the outputted"
  418 printspc(1)"number."
  420 printspc(1)"{down}{down}The computer will give one example"
  422 printspc(1)"{down}using a number of your choice.  You
  424 printspc(1)"{down}then have four chances to determine the
  426 printspc(1)"rule."
  428 gosub835:gosub850:printspc(1)"{down}{down}If you input a number that has been"
  430 printspc(1)"{down}inputed previously a bar({rvon}      {rvof}) will"
  432 printspc(1)"{down}appear on the chart beside the machine."
  455 gosub835:printspc(1)"{clr}":gosub850
  460 printspc(1)"{down}{down}Note:{down}{down}{down}To advance from one question"
  470 printspc(1)"{down}to the next press the SPACE bar"
  475 printspc(1)"{down}{down}{rght}{rght}{rght}{rght}{rght}If at any time you wish to return"
  480 printspc(1)"{down}to the MENU press h RETURN"
  485 gosub835
  490 ifuz=1thensysup%:goto217
  498 ug$=uu$:up=pu
  499 return
  500 rem ** teacher instructions **
  501 print"{clr}":pokeut,ul%:ifpeek(50003)=0thenpoke53281,2:poke53280,10
  502 ut$=" Function Machine":up=0:ug$="Teacher Inst":gosub850
  503 print"{down}{down}      To the best of our knowledge,{down}"
  504 print"   this program is in the public{down}"
  505 print"   domain.  If this is not the case{down}"
  506 print"   please contact:{down}{down}{down}"
  507 print"      Commodore Business Machines{down}"
  508 print"          3370 Pharmacy Ave.
  509 print"          Agincourt, Ontario"
  510 print"          Canada   M1W 2K4"
  511 print"          (416) 499-4292"
  512 up=1:gosub 835:gosub 850:
  513 print"     {down}{down}Program Name: Function Machine{down}
  514 print"     Written By  : Pete Rowe{down}
  515 print"     Upgraded By :          {down}
  516 print"     {down}This program will run on any{down}{down}
  519 print"         PET 64 COMPUTER
  520 print"         COMMODORE 64 COMPUTER
  521 gosub835:gosub850
  522 print"{down} This program visually amuses the
  524 print"{down} student as he is drilled in solving
  526 print"{down} the rule of a function.  Numbers of
  528 print"{down} the student's choice are fed into the
  530 print"{down} machine and the results are put onto
  532 print"{down} a table for the student to try and
  534 print"{down} guess the rule of the function before
  536 print"{down} the table is filled."
  570 gosub835:gosub850
  572 print" {down}There are five levels of difficulty"
  573 print" {down}in this program."
  574 print" {down}{down}Level one is a junior level which"
  575 print" {down}consists of simple multiplication and"
  576 print" {down}addition."
  577 print" {down}{down}Level five consists of advanced"
  578 print" {down}multiplication,division,subtraction"
  579 print" {down}and addition."
  580 gosub835
  590 ifuz=1thensysup%:goto217
  598 ug$=uu$:up=pu
  599 return
  600 rem ** program modification inst **
  601 print"{clr}":pokeut,ul%
  602 uu$=ug$:pu=up:up=1
  605 up=0:ug$="Program Mod":gosub850
  610 printspc(1)"There is one way that this program"
  612 printspc(1)"{down}can be modified."
  614 printspc(1)"{down}{down}This modification is the number of"
  616 printspc(1)"{down}attempts allowed for the student"
  618 printspc(1)"{down}to determine the rule the particular"
  620 printspc(1)"{down}function follows."
  622 printspc(1)"{down}{down}This can occur by changing line 2410."
  624 printspc(1)"{down}e.g. 2410 if w<(# of attempts+2) etc."
  660 gosub835
  690 ifuz=1thensysup%:goto217
  698 ug$=uu$:up=pu
  699 return
  700 rem ** to use 8032 load cbm4032 **
  710 print"{clr}{down}{down}{down}{wht}before running this program on an 8032  {down}{down}
  720 print"      load the 'cbm 4032' program{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  730 sysuu+71
  740 end
  797 rem ** to use 8032 load cbm4032 **
  798 print"{clr}{down}{down}{down}before running this program on an 8032  {down}{down}load cbm 4032 program"
  800 rem ** t i t l e   p a g e **
  802 print"{clr}{down}{rght}{wht}";:pokeut,uu%:ifpeek(50003)=0thenpoke53280,14:poke53281,6
  804 fori=1to38:print"{rvon}{CBM-+}{rvof}";:next
  806 fori=1to22:print"{down}{left}{rvon}{CBM-+}{rvof}";:next
  808 fori=1to37:print"{left}{left}{rvon}{CBM-+}{rvof}";:next
  810 fori=1to22:print"{up}{left}{rvon}{CBM-+}{rvof}";:next
  812 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  {rvof}
  814 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}  {rvon} {rvof}{SHIFT-POUND}
  816 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}  {rvon}{CBM-T}{CBM-*}
  818 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{rvon}  {rvof}
  820 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}c o m m o d o r e{down}{down}
  822 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}educational{down}{down}
  824 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}software
  826 rem ** commodore logo **
  827 printleft$(ud$,24);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press space bar or wait{rvof}":i=0
  828 geta$:ifa$<>" "theni=i+1:ifi<250then828
  830 t1$="":t2$="":t3$="":t4$="":i=0
  832 goto300
  835 rem ** space bar press **
  840 pokeuo,0:printleft$(ud$,24);"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press space bar to continue{rvof}"
  844 getui$:ifui$<>" "then844
  846 return
  850 rem ** page design routine **
  852 up=up+1
  855 print"{clr}"left$(ut$+up$,21);right$(up$+ug$+str$(up),18)
  860 print" --------------------------------------"
  864 ifuh<>0then870
  865 printleft$(ud$,24);left$(up$,7);"help - press   h <return>"
  870 uh=0:print"{home}{down}":return
  875 rem ** please wait remark **
  880 printleft$(ud$,24);"           one moment please...     "
  885 return
  900 rem ** set up variables **
  901 ux$="h":dimuq%(1000):ub=32768:u1=196:u2=197:u3=198:u4=216:uc=167:uu=1024
  902 ut=59468:uu%=12:ul%=14:up%=1146:um=32768:uo=158:poke 50003,0
  903 ifpeek(50003)=0thenub=1024:u1=209:u2=210:u3=211:u4=214:uc=204:uu=2048
  904 ifpeek(50003)=0thenut=53272:uu%=21:ul%=23:up%=2139:um=1024:uo=198
  905 ud$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  906 up$="                                       "
  907 ut$=" FUNCTION{$a0}MACHINE{$a0}{$a0}":rem place program title here !!!!!!!!!!!!!!!!!***
  908 dimb$(13),r$(15),m(20):return
  910 rem ** set variables **
  915 gosub900
  916 :
  917 :
  920 rem ** check for 8032 **
  925 print"{clr}":print"{$a0}":rem shifted space
  930 ifpeek(ub+40)<>96thengosub700
  931 rem ** memory check **
  932 if fre(0)>2000then937
  933 print"{clr}{down}{down}{wht}this machine does not have enough{down}"
  934 print"memory to run this program !"
  935 sysuu+71
  936 end
  937 print"{clr}{wht}":ifpeek(50003)=0then962
  940 rem ** basic 2.0  or  4.0  or  c-64 setup **
  941 poke1075,133:poke1076,144:poke1077,234:poke1079,4:poke1080,133:poke1081,145
  942 poke1091,155:poke1098,133:poke1099,144:poke1100,234:poke1103,133
  943 poke1104,145:poke1105,234:poke1082,234
  945 ifpeek(50003)<>160then955
  950 poke1093,88:poke1094,228:poke1097,85:poke1102,228:goto965
  955 ifpeek(50003)<>1then990
  960 poke1093,49:poke1094,230:poke1097,46:poke1102,230:goto965
  962 poke2099,141:poke2100,20:poke2101,3:poke2103,8:poke2104,141:poke2105,21
  963 poke2106,3:poke2115,145:poke2117,52:poke2118,234:poke2121,49:poke2122,141
  964 poke2123,20:poke2124,3:poke2126,234:poke2127,141:poke2128,21:poke2129,3
  965 sysuu+48:rem disable stop key
  970 gosub800:rem title
  980 goto300:rem menu
  990 print"{clr}the pgm will not work on this machine!":end
 1000 ifuz=1thensysup%:sysup%:uz=0:rem ** program starts here **
 1001 print"{clr}{wht}";:restore:ifpeek(50003)=0thenpoke53281,6:poke53280,14
 1003 clr:gosub900:ut$=" function machine"
 1020 rem *** fn machine
 1030 rem     pete rowe
 1040 rem     submitted by ed herstein
 1050 rem
 1060 rem *** pet user group
 1070 rem     software exchange
 1080 rem     po box 371
 1090 rem     montgomeryville, pa 18936
 1100 rem
 1110 rem ***** function machine *****
 1120 rem **** p.rowe *** 2-24-78 ****
 1130 rem copyright 1978, regents u.c.
 1140 rem * lawrence hall of science *
 1150 rem put this line in to disable the stop key - gosub 60000:sys(832)
 1160 rem modified for experience '82 by          james vasey, sarnia.
 1170 f=1:z=0:vl=-1:up=0
 1180 a$(0)="{rght} {down} {rght}{rght} {up} {left}{left}{left}{left}{left}{left}{down}{down}{down}{down}Q{up}N{up}NM{down}M{down}W{rght}{up}{up}"
 1190 a$(1)="{rght}{down}{down}{down}{down} {up} {rght}{rght} {down} {up}{up}{left}{left}{left}{left}{left}{left}{left}W{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-A}{SHIFT-*}{SHIFT-*}Q"
 1200 a$(2)="{down}{down}   {rght}{rght}   {left}{left}{left}{left}{left}{left}{left}{up}{up}Q{down}M{down}MN{up}N{up}W{rght}{down}{down}"
 1210 d$="{home}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}"
 1220 e$="{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{rght}{down}{rght}{down}"
 1230 f$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1240 b$(0)="  {left}{left}{down}  {left}{left}{down}  {left}{left}{down}  {left}{left}{down} W"
 1250 b$(1)="  {left}{left}{down}  {left}{left}{down}  {left}{left}{down} W{left}{left}{down}UI"
 1260 b$(2)="  {left}{left}{down}  {left}{left}{down} W{left}{left}{down}UI{left}{left}{down}JK"
 1270 b$(3)="  {left}{left}{down} W{left}{left}{down}UI{left}{left}{down}JK{left}{left}{down}W "
 1280 b$(4)=" W{left}{left}{down}UI{left}{left}{down}JK{left}{left}{down}W {left}{left}{down} W"
 1290 b$(5)="UI{left}{left}{down}JK{left}{left}{down}W {left}{left}{down} W{left}{left}{down}UI"
 1300 b$(6)="JK{left}{left}{down}W {left}{left}{down} W{left}{left}{down}UI{left}{left}{down}JK"
 1310 b$(7)="W {left}{left}{down} W{left}{left}{down}UI{left}{left}{down}JK{left}{left}{down}W "
 1320 b$(8)=" W{left}{left}{down}UI{left}{left}{down}JK{left}{left}{down}W {left}{left}{down} W"
 1330 b$(9)="UI{left}{left}{down}JK{left}{left}{down}W {left}{left}{down} W{left}{left}{down}  "
 1340 b$(10)="JK{left}{left}{down}W {left}{left}{down} W{left}{left}{down}  {left}{left}{down}  "
 1350 b$(11)="W {left}{left}{down} W{left}{left}{down}  {left}{left}{down}  {left}{left}{down}  "
 1360 b$(12)=" W{left}{left}{down}  {left}{left}{down}  {left}{left}{down}  {left}{left}{down}  "
 1370 b$(13)="  {left}{left}{down}  {left}{left}{down}  {left}{left}{down}  {left}{left}{down}  "
 1380 c$(0)=" {left}{down}{CBM-V}{left}{left}{down}{CBM-V}{left}{left} {left}{left}{CBM-C}{left}{left}{CBM-V}{left}{left} {left}{left}{CBM-C}{left}{left}{CBM-V}{left}{left}{up} {left}{up}{CBM-D}{up}{CBM-D} {CBM-F}{CBM-D} {CBM-F}{CBM-D}"
 1390 c$(1)="{CBM-V}{left}{down}{CBM-F}{left}{left}{down} {left}{left}{CBM-C}{left}{left}{CBM-V}{left}{left} {left}{left}{CBM-C}{left}{left}{CBM-V}{left}{left} {left}{left}{up}{CBM-D}{left}{up}{CBM-C}{up} {CBM-F}{CBM-D} {CBM-F}{CBM-D} "
 1400 c$(2)="{CBM-F}{left}{down} {left}{left}{down}{CBM-C}{left}{left}{CBM-V}{left}{left} {left}{left}{CBM-C}{left}{left}{CBM-V}{left}{left} {left}{left}{CBM-C}{left}{left}{up}{CBM-C}{left}{up} {up}{CBM-F}{CBM-D} {CBM-F}{CBM-D} {CBM-F}"
 1410 c$(3)=" {left}{down} {left}{left}{down} {left}{left} {left}{left} {left}{left} {left}{left} {left}{left} {left}{left} {left}{left}{up} {left}{up} {up}       "
 1420 forj=1to39:s$=s$+" ":next
 1430 r$(1)=" number plus x"
 1440 r$(2)=" number plus y"
 1450 r$(3)=" x times number"
 1460 r$(4)=" y times number"
 1470 r$(5)=r$(4)+" plusx "
 1480 r$(6)=r$(4)+" minusx "
 1490 r$(7)=" number times number plus y"
 1500 r$(8)=" number times number minus y"
 1510 r$(9)=" number times number plus number"
 1520 r$(10)=" x * number * number +y "
 1530 r$(11)=" x * number * number -y "
 1540 r$(12)=" x * number * number + number"
 1550 r$(13)=" (number - 1) /x "
 1560 r$(14)=" y * (number /x ) "
 1570 r$(15)=" (number /x) -y "
 1580 gosub850:print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rvon}   {rvof}{left}{left}{left}{down}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{left}{left}{left}{down}";
 1590 print"{CBM-M}{rvon} {rvof}{CBM-G}{left}{left}{left}{down}{CBM-M}{rvon} {rvof}{CBM-G}{left}{left}{left}{down}{CBM-M}{rvon}{$a0}{rvof}{CBM-G}{left}{left}{left}{down}";
 1600 print"{CBM-M}{rvon} {rvof}{CBM-G}{left}{left}{left}{down}{CBM-M}{rvon} {rvof}L{left}{left}{left}{down}{CBM-M}{rvon}  {rvof}{left}{left}{down}{CBM-T}";
 1610 print"{CBM-T}{up}{up}{CBM-@}{left}{down}{rvon} {rvof}{left}{down}{CBM-T}{up}{up}{CBM-@}{left}{down}{rvon} {rvof}{left}{down}{CBM-T}{up}{up}";
 1620 print"{CBM-@}{left}{down}{rvon} {rvof}{left}{down}{CBM-T}{up}{up}{SHIFT-@}{left}{down}{rvon} {rvof}";
 1630 print"{left}{down}P{left}{up}{up}{up}{CBM-M}{up}{CBM-@}{CBM-@}{SHIFT-@}L{left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}";
 1640 print"NM{left}{left}{left}{down}N{rght}{rght}M{left}{left}{left}{left}{left}{down}W{rght}{rght}{rght}{rght}Q{left}{left}{down}{CBM-@}{CBM-@}";
 1650 print"{CBM-@}{CBM-@}{SHIFT-@}{CBM-+}L{left}{left}{left}{up}{CBM-M}{CBM-+}{CBM-G}{left}{left}{left}{up}{CBM-M}{CBM-+}{CBM-G}{left}{left}{left}{up}{CBM-M}{CBM-+}{CBM-G}{down}{down}{down}{down}{CBM-G}{left}{down}{CBM-G}{left}{down}";
 1660 print"{rvon} {rvof}{CBM-K}{left}{up}U{SHIFT-*}I{left}{down}{SHIFT--}{left}{down}K{left}{left}{SHIFT-*}{left}{left}J{left}{left}{CBM-G}{left}{down}{CBM-G}";
 1670 print"{left}{down}{rvon}{CBM-*}{left}{down} {CBM-*}{left}{left}{down}{rvof}{CBM-*}{rvon} {CBM-*}{left}{left}{down}{rvof}{CBM-*}{rvon} {CBM-*}{left}{left}{down}{rvof}";
 1680 print"{CBM-*}{SHIFT-POUND}{left}{left}{left}{left}{up}{CBM-G}{left}{left}{down}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}";
 1690 print"{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{CBM-T}{left}{left}{up}{CBM-M}{left}{up}{CBM-M}{left}{up}{CBM-M}{left}{up}{CBM-M}{left}{up}{CBM-M}";
 1700 print"{rght}{rght}{up}{up}UIU{SHIFT-*}IUI{left}{left}{left}{left}{left}{left}{left}{down}JKJ{SHIFT-*}KJK";
 1710 print"{left}{left}{left}{left}{left}{left}{left}{down}{down}{down}on  {rvon}off{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1720 print"{rght}{rght}{rght}{rght}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}in {SHIFT--} out";
 1730 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}";
 1740 forj=1to10:print"       {SHIFT--}{$a0}      {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}";:next
 1750 w=1
 1760 print"{home}";f$;"   how difficult (1=easy...5=hard)?       {left}{left}{left}{left}{left}{left}";
 1770 us$="12345":up=1:gosub35:up=0:v=val(ur$)-1
 1780 if v*(v-1)*(v-2)*(v-3)*(v-4)<>0then 1760
 1790 a=int(3*rnd(1)+2):b=int(10*rnd(1)+3)
 1800 x=3*v+int(3*rnd(1))+1:if v=x then 1800
 1810 v=x
 1820 onvgosub2630,2640,2650,2660,2670,2680,2690,2700,2710
 1830 ifv>9thenon(v-9)gosub2720,2730,2740,2750,2760,2770
 1840 print"{home}";f$;s$
 1850 ug$="question #":gosub865:print"{home}{down}{down}{down}{rght}->       {left}{left}{left}{left}{left}{left}";:gosub2440
 1860 if w=1 and n$="r" then 1850
 1870 if n$="r" then 2790
 1880 l=len(n$):x=val(n$):h$=n$
 1890 if w=1 then 2000
 1900 forj=1tow-1:if x=m(j) then 1920
 1910 next:goto 1970
 1920 h=um+106+40*j+80:forj=htoh+13
 1930 poke j,peek(j)+128:next:t=ti
 1940 if ti-t<150 then 1940
 1950 print"{down}{down}":for j=htoh+13:poke j,peek(j)-128
 1960 next:goto 1850
 1970 print"{home}";f$;"what will come out? ";
 1980 gosub 2440:if n$="r" then 2780
 1985 print"{home}";f$;"                                      "
 1990 y1=val(n$)
 2000 printleft$(ud$,24)up$:print d$;"{rght}{rght}{rght}{down}{down}{down}{down}{rvon}on{rvof}  off"
 2010 r=0:c=-1:q=1:p=0:n$=h$
 2020 print"{home}{down}{down}{down}{down}";left$(f$,w);spc(32-l);n$
 2021 printleft$(f$,w)
 2030 c=c+1+((c=8)*4)*q
 2040 f=1-f:r=(r+1)*-(r<>2)
 2050 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";a$(r);"{rght}{rght}{up}{up}{up}{up}{up}{up}";b$(c);"{left}{left}{left}{down}";
 2060 if f=0 then print"   {down}{down}{down}{down}{down}{down}{down}{rght}{rght} ";
 2070 if f=1 then print"{CBM-M}{CBM-+}{CBM-G}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}*";
 2080 if p>14 then print"{left}{left}{left}{left}{left}";c$(r);
 2090 if c=13 then 2290
 2100 if c>8 and r=0 then r=2
 2110 if p<>19 then 2150
 2120 y=fna(x):n$=str$(y):l=len(n$)
 2130 forj=1tol:ifmid$(n$,j,1)="e"then n$=" ?????":l=6:goto2150
 2140 nextj:ifl>6then n$=left$(n$,6):l=6
 2150 if p-l=19 then q=0:print d$;"{rght}{rght}{rght}{down}{down}{down}{down}on  {rvon}off{rvof}";
 2160 if p<l+3 then poke um+123+l-p,32
 2170 p=p+1:print left$(d$,p+9);"{rvon}";
 2180 if p>20 then print left$(e$,2*p-26);
 2190 for j=1 to l:i=p-j:i$=mid$(n$,l-j+1,1)
 2200 if (i<0 or i>23)or(i>12 and i<21) then 2250
 2210 print i$;
 2220 if i<8 then print"{up}{left}";
 2230 if i>7 then print"{left}{left}";
 2240 if i>21 then print"{up}";
 2250 if i=24 then poke um+867-j,asc(i$)
 2260 next
 2270 if i>0 and i<15 or i>21 then print " ";
 2280 print "{rvof}";:goto 2030
 2290 printd$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";c$(3)
 2300 for j=um+858toum+866:pokej,32:next
 2310 print"{home}{down}{down}{down}{down}";left$(f$,w);spc(34);n$
 2312 print"{home}{down} --------------------------------------"
 2320 i$=str$(y1):if len(i$)>6then i$=left$(i$,6)
 2330 if i$<>n$ or w=1 then 2400
 2340 n=60:for j=0 to 5:t=ti
 2350 if ti-t<18 then 2350
 2360 n=113-n:poke 59409,n:next
 2370 print"{home}";f$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2380 print"{rvon}you got it!":t=ti
 2390 if ti-t<140 then 2390
 2400 print"{home}";f$;s$:m(w)=x:w=w+1
 2410 if w<6  then print"{home}{down}{down}{down}{down}";tab(31);:goto 1850
 2420 goto 2800
 2440 n$=" ":i=0:j=0:h=0
 2450 t=ti:rem gosub865
 2460 us$="r.0123456789":ul=8:gosub35:i$=ur$
 2470 z=18-z:printchr$(z);" {rvof}{left}";
 2490 if i$=chr$(13) and n$<>" " then 2620
 2500 if i$="r" then n$=" ":goto 2610
 2540 h=0:if i=0 and i$="-" then 2610
 2550 if i$>"/" and i$<":" then 2610
 2560 if j=0 and i$="." then j=1:goto 2610
 2580 if n$<>" " then n$=left$(n$,len(n$)-1):print"{left}  {left}{left}";
 2610 n$=n$+i$:i=1
 2620 print" ";:n$=right$(n$,len(n$)-1):return
 2630 def fna(x)=x+a:return
 2640 def fna(x)=x+b:return
 2650 def fna(x)=a*x:return
 2660 def fna(x)=b*x:return
 2670 def fna(x)=b*x+a:return
 2680 def fna(x)=b*x-a:return
 2690 def fna(x)=x*x+b:return
 2700 def fna(x)=x*x-b:return
 2710 def fna(x)=x*x+x:return
 2720 def fna(x)=a*x*x+b:return
 2730 def fna(x)=a*x*x-b:return
 2740 def fna(x)=a*x*x+x:return
 2750 def fna(x)=(x-1)/a:return
 2760 def fna(x)=b*(x/a):return
 2770 def fna(x)=(x/a)-b:return
 2780 print"{home}{down}{down}{down}{rght}        ";
 2790 print" {left}{left}{left}{left}          ";
 2800 print"{home}";f$;"{up}the rule is: "
 2810 i$=r$(v):j=1
 2820 if mid$(i$,j,1)="x"then n=a:goto 2850
 2830 if mid$(i$,j,1)<>"y"then 2860
 2840 n=b
 2850 i$=left$(i$,j-1)+str$(n)+right$(i$,len(i$)-j)
 2860 j=j+1:if j<=len(i$) then 2820
 2870 print "{left}{up}":printi$:t=ti
 2890 print"{down}":gosub835
 2895 gosub300
 2900 print"{home}";f$;"{up}";s$
 2910 print"{home}{down}{down}";s$;"{left}{up}";:goto 1730
 2920 fori=832to878:readn:pokei,n:next:return
 2930 data120,169,99,141,25,2,169,3,141,26,2,88,96,120,169,133,141,25,2,169,230
 2940 data141,26,2,88,96,169,0,72,72,72,72,76,133,230,32,90,3,234,169,255,141,9
 2950 data2,76,126,230
    0 clr:poke59468,12
    1 rem mad copyright (c) 1978 glen fisher
    2 rem cursor #2, august, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 7 may 80
   90 pg$="mad":nm$="2":gosub62000
  100 dimp$(26)
  105 dimm$(100)
  110 fori=0to25:readp$(i):nexti
  150 ns=5:dimusd(ns)
  160 fori=1tons:usd(i)=i:nexti
  200 sc=ns:rem restart
  300 print"{clr}{down}{down}{down}"
  310 ifsc=0then160
  320 restore:fori=1to26:readt$:nexti
  330 print"please type in the following:{down}"
  340 ifsc>(ns-3)then400
  350 fori=1tons:sn=i
  355 ifusd(sn)>0then365
  360 nexti
  365 usd(sn)=-1:goto406
  400 i=int(rnd(1)*sc)+1
  401 sn=usd(i)
  402 ifusd(i)<1then400
  403 usd(i)=-1
  406 sc=sc-1
  410 i=0
  500 reads$:ifleft$(s$,1)<>"Q"then500
  510 i=i+1:ifi<>snthen500
  520 n=0
  530 s$=mid$(s$,2,255)
 1000 ifs$=""thenm$(n)=m$:n=n+1:m$="":reads$:ifleft$(s$,1)="Q"then2000
 1010 c$=left$(s$,1):s$=mid$(s$,2,255)
 1020 ifc$<>"%"thenm$=m$+c$:goto1000
 1025 ifs$=""then1000
 1030 c$=left$(s$,1):s$=mid$(s$,2,255)
 1040 t=asc(c$)-asc("a")
 1050 print:print"a";
 1060 fori=1to5
 1070 ifleft$(p$(t),1)=mid$("aeiou",i,1)thenprint"n";
 1080 nexti
 1100 print" ";p$(t);
 1110 print" ";:gosub60000:t$=in$
 1120 m$=m$+t$:goto1000
 2000 i=-1:print"{clr}";
 2003 n=n-1:m$(n)=m$(n)+" "
 2005 i=i+1:ifi>nthen3000
 2007 m$=m$(i)
 2010 ifm$=""then2005
 2020 c$=left$(m$,1):m$=mid$(m$,2,255)
 2030 ifc$<>" "andc$<>"\"thenw$=w$+c$:goto2010
 2050 iflen(l$)+len(w$)+1>39thenprintl$:l$=""
 2060 l$=l$+" "+w$:
 2065 ifc$="\"thenprintl$:l$=""
 2070 w$="":goto2010
 3000 printl$:l$=""
 3010 print"{down} want to try another? ";:gosub60000:rj$=in$
 3020 ifleft$(rj$,1)<>"y"then3500
 3025 goto300
 3500 print"{clr}{down}{down}{down}{down}thanks for playing.":end
 10000 dataadverb,"part of your body"
 10004 rem c=calamity
 10005 datadisaster,disease,exclamation
 10010 dataf,g,h,i,adjective
 10020 datak,l,m,noun,o
 10030 data"plural noun",q,r,s,t
 10040 datanumber,verb,w,x,animal
 10050 data"name of a person you know"
 10065 data"Q\dear sirs:\\"
 10070 data"i recently purchased a %j computer from a %j store. i got it for "
 10075 data" %z, who just loves all sorts of %j gadgets. "
 10080 data" when i brought the %j computer to my %n, it was so %j"
 10090 data" that it made my %b ache. i read your %j manual, "
 10100 data"but it didn't help me understand the %j computer. "
 10110 data"i think this could lead to a serious case of %d."
 10120 data" every %j program i write seems to be %j. can i exchange "
 10130 data"this %j computer for one that will let me %v"
 10140 data" programs, and that won't make my %b sore?"
 10150 data"\\p.s.  i have %u other computers, and they all work better than "
 10160 data"your %j little %y!"
 11210 data"Qonce upon a time, a %j woman fell in love with her %j computer. "
 11220 data"she would begin each day by kissing its %n and %a caressing its %p."
 11230 data" then one day, tragedy stuck: she awoke, and found her computer "
 11240 data"destroyed by a %j earthquake. %e! she said, how can i ever be "
 11250 data"%j again? but then a "
 11260 data"wonderful thing came to pass: %a, a brand new %j computer appeared"
 11270 data" on her desk. this machine had a %j users's manual, and it worked "
 11280 data"perfectly! 'the %n likes me!', she exclaimed.\\"
 11290 data"moral: maybe a good %c will %v loose the "
 11300 data"%j documentation from palo alto."
 11310 data"Q\how to get ahead...\\"
 11320 data"first, you must always try to %v your boss. "
 11330 data"go to work %a, and always eat your lunch at your %n. "
 11340 data" be %j when you answer the telephone, and when you are "
 11350 data"asked to %v a %a job, be sure and give it your "
 11360 data"best shot.\\remember, the customer is always %j!"
 11370 data"Q\\recent employee injuries:\\"
 11380 data"an electrical maintenance man touched a %n to a metal %n. "
 11390 data"the explosion hurt his %b.\\"
 11400 data"a professor was hit by a %n and suffered "
 11410 data"bruises and cuts on her %b.\\"
 11420 data"a food service worker fell while mopping the %n, "
 11430 data"injuring her legs.\\"
 11440 data"a computer programmer fell asleep at her pet(tm) computer"
 11450 data". a %c occurred while she slept,"
 11460 data" causing her %j computer to fall on her %b.\\"
 11470 data"Qclassified ads:\\"
 11480 data"free %n lessons in exchange for keeping %n "
 11490 data"free of %n. (766-2337)\\"
 11500 data"volunteers needed for research project. must not "
 11510 data"be afraid of %p, %p, or a %j %n. find out more "
 11520 data"by calling %z at 968-9905\\"
 11530 data"sickly %y for sale. (976-1880)\\"
 11540 data"Q"
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #2  mad
 62010 print"{down}copyright (c) 1978  by glen fisher":gosub60500
 62020 print"{down}wild and crazy stories"
 62030 print"{down}{down}want instructions? ";
 62040 gosub60000:ifin$<>"y"then100
 62100 lp=1:gosub60200
 62105 print"fill in the blanks to create a funny"
 62110 print"story.
 62120 print"{down}the computer asks for words,then uses"
 62130 print"those words to fill in the blanks to a
 62135 print"story."
 62140 print"{down}have fun! (see printed notes to cursor"
 62150 print"for instructions about adding your own
 62160 print"stories to this program)."
 62165 gosub60200
  100 poke59468,12:poke59409,52:p$="       {rvon}>>>>{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}<<<<"
  101 print"{clr}{down}{down}{down}"p$
  102 print"       {rvon}>>>> the mad bomber <<<<"
  104 printp$
  120 print"{down}{down}{down} this is a game of skill to see how wellyou can fly a ";
  130 print"bomber.  you are given    twenty fly-bys to drop bombs to hit{$a0}";
  140 print"    targets below.  you can only miss the   target ";
  150 print"three times.  after twenty fly-  bys or three misses the game is{$a0}";
  160 print"over.   make {rvon}every{rvof} bomb count!"
  175 print"{down}push the '*' button to drop each bomb."
  176 print"you get up to two bombs per fly-by."
  180 print"{down}press{$a0}any key to play. good luck!!":poke59409,60
  190 get q$:ifq$=""then190
  200 g=59468:x=g-59:pokeg,12:pokex,52:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  201 print"which skill level do you wish to play?  (1=easy 2=hard)":pokex,60
  202 geta$:if a$=""then202
  204 a=val(a$):ifa<3anda>0then208
  206 print"{down}{down}      {rvon}answer 1 or 2.":fori=1to1000:next:goto200
  208 print"{clr}":pokeg,12
  209 z$="{down}{left}{left}{left}{left}{left}{left}":f$="{down}{down}{down}{down}{down}{down}":y2$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":b5$="          ":ifa=2goto7000
  220 pokex,52:printf$f$"{down}{down}{rvof}{CBM-+}{rvon}1{rvof}"b5$"       {rvon}1{rvof}{CBM-+}{rvon}11{rvof}"b5$"     {rvon}1{rvof}{CBM-+}";
  230 print"{rvof}{CBM-+}{rvon}2{rvof}"b5$"      {rvon}12{rvof}{CBM-+}{rvon}22{rvof}"b5$"    {rvon}12{rvof}{CBM-+}";
  240 print"{rvof}{CBM-+}{rvon}31{rvof}"b5$"     {rvon}23{rvof}{CBM-+}{CBM-+}{rvon}31{rvof}"b5$"   {rvon}23{rvof}{CBM-+}";
  250 print"{rvof}{CBM-+}{rvon}421{rvof}"b5$"    {rvon}34{rvof}{CBM-+}{CBM-+}{CBM-+}{rvon}21{rvof}"b5$" {rvon}134{rvof}{CBM-+}";
  260 print"{rvof}{CBM-+}{CBM-+}{rvon}321{rvof}"b5$"  {rvon}145{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}21{rvof}         {rvon}124{rvof}{CBM-+}{CBM-+}";
  270 print"{rvof}{CBM-+}{CBM-+}{rvon}43211111{rvof}   {rvon}1111256{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}3211111{rvof}   {rvon}1235{rvof}{CBM-+}{CBM-+}";
  280 print"{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}2222211{rvof} {rvon}2222{rvof}"y2$"{CBM-+}{CBM-+}{rvon}3222221{rvof} {rvon}12{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
  290 print"{rvof}"y2$"{rvon}333322133{rvof}"y2$y2$"{CBM-+}{rvon}333212{rvof}"y2$;
  300 print"{rvof}"y2$y2$y2$y2$y2$y2$"{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
  310 print"{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+} score=  0 {CBM-+}{CBM-+}{CBM-+}{CBM-+} misses left= 3 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":pokex,60:print"{home}"
  320 n=0:h=0:ge=0:dimv(2),bh(2),ht(2):r=33473:s=r+1:t=s+1:u=r-39:w=32794:tr=500
  410 forc=1to20:ifge<>0then3000
  413 h=0:bh(1)=0:bh(2)=0:d=int(rnd(1)*5+1)
  414 ondgoto415,416,417,418,419
  415 d$="{home}":goto420
  416 d$="{home}{down}{down}":goto420
  417 d$="{home}{down}{down}{down}{down}":goto420
  418 d$="{home}"+f$:goto420
  419 d$="{home}{down}{down}"+f$
  420 ifint(c/2)=(c/2)thene=39:goto450
  430 e=41
  450 ife=39then600
  460 forl=1to47:ifl>40then490
  472 onlgoto481,482,483,484,485,486,487,488
  480 printd$tab(l-8);" {CBM-*}{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{left} {CBM-U}{CBM-U}{rvon}{CBM-O} {CBM-+}{rvof}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  481 printd$"{SHIFT--}{down}{left}{CBM-W}{down}{left}{SHIFT--}":goto590
  482 printd$"O{SHIFT--}{down}{left}{left}{CBM-+}{CBM-W}{down}{left}{SHIFT--}{down}{left}{left}{CBM-V}":goto590
  483 printd$"PO{SHIFT--}{down}{left}{left}{left}{rvon} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  484 printd$".PO{SHIFT--}{down}{left}{left}{left}{left}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  485 printd$" .PO{SHIFT--}{down}{left}{left}{left}{left}{left}{CBM-U}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  486 printd$"{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{CBM-U}{CBM-U}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  487 printd$"{CBM-*}{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{left} {CBM-U}{CBM-U}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto590
  488 printd$" {CBM-*}{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{left}{left}  {CBM-U}{CBM-U}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left}{left}  M {SHIFT--}{down}{left}{left}{left}{left}  {CBM-V}":goto590
  490 onl-40goto500,510,520,530,540,550,560
  500 printd$tab(33);" {CBM-*}{rvon}{CBM-*}{rvof} .PO"z$" {CBM-U}{CBM-U}{rvon}{CBM-O} {CBM-+}{rvof}{down}{left}{left}{left} M {down}{left}{left} {CBM-V}":goto590
  510 printd$tab(34);" {CBM-*}{rvon}{CBM-*}{rvof} .P{down}{left}{left}{left}{left}{left} {CBM-U}{CBM-U}{rvon}{CBM-O} {rvof}{down}{left}{left} M {down}{left}{left} ":goto590
  520 printd$tab(35);" {CBM-*}{rvon}{CBM-*}{rvof} .{down}{left}{left}{left}{left} {CBM-U}{CBM-U}{rvon}{CBM-O}{rvof}{down}{left}  ":goto590
  530 printd$tab(36);" {CBM-*}{rvon}{CBM-*}{rvof} {down}{left}{left}{left} {CBM-U}{CBM-U}{rvof}{down}{left}  ":goto590
  540 printd$tab(37);" {CBM-*}{rvon}{CBM-*}{rvof} {down}{left}{left}{left} {CBM-U}{rvof}":goto590
  550 printd$tab(38);" {CBM-*}{rvof} {down}{left}{left}{left}  {rvof}":goto590
  560 printd$tab(39);" {down}{left} "
  590 goto800
  600 forl=1to47
  610 onlgoto640,650,660,670,680,690,700,710
  620 ifl>40then720
  630 printd$tab(40-l);"{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} "z$"{left}{left}{CBM-Q}{rvon}{CBM-+} {CBM-O}{rvof}{CBM-U}{CBM-U} "z$"{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  640 printd$tab(39)"{SHIFT--}{down}{left}{CBM-Q}{down}{left}{SHIFT--}":goto800
  650 printd$tab(38)"{SHIFT--}P{down}{left}{left}{CBM-Q}{CBM-+}{down}{left}{left}{SHIFT--}{down}{CBM-C}":goto 800
  660 printd$tab(37)"{SHIFT--}PO{down}{left}{left}{left}{CBM-Q}{CBM-+}{rvon} {rvof}{down}{left}{left}{left}{SHIFT--} N{down}{left}{left}{CBM-C} ":goto800
  670 printd$tab(36)"{SHIFT--}PO.{down}{left}{left}{left}{left}{CBM-Q}{CBM-+}{rvon} {CBM-O}{rvof}{down}{left}{left}{left}{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  680 printd$tab(35)"{SHIFT--}PO. {down}{left}{left}{left}{left}{left}{CBM-Q}{CBM-+}{rvon} {CBM-O}{rvof}{CBM-U}{down}{left}{left}{left}{left}{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  690 printd$tab(34)"{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}"z$"{CBM-Q}{CBM-+}{rvon} {CBM-O}{rvof}{CBM-U}{CBM-U}"z$"{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  700 printd$tab(33)"{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"z$"{left}{CBM-Q}{CBM-+}{rvon} {CBM-O}{rvof}{CBM-U}{CBM-U} "z$"{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  710 printd$tab(32);"{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} "z$"{left}{left}{CBM-Q}{rvon}{CBM-+} {CBM-O}{rvof}{CBM-U}{CBM-U} "z$"{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} ":goto800
  720 onl-40goto730,740,750,760,770,780,790
  730 printd$"PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} "z$"{left}{CBM-+}{rvon} {CBM-O}{rvof}{CBM-U}{CBM-U} "z$" N {down}{left}{left}{left}{CBM-C} ":goto800
  740 printd$"O. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} "z$"{rvon} {CBM-O}{rvof}{CBM-U}{CBM-U} {down}{left}{left}{left}{left}{left}N {down}{left}{left} ":goto800
  750 printd$". {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {down}{left}{left}{left}{left}{left}{rvon}{CBM-O}{rvof}{CBM-U}{CBM-U} {down}{left}{left}{left}{left} ":goto800
  760 printd$" {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {down}{left}{left}{left}{left}{CBM-U}{CBM-U} ":goto800
  770 printd$"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {down}{left}{left}{left}{CBM-U} ":goto800
  780 printd$"{SHIFT-POUND} {down}{left}{left} ":goto800
  790 printd$" "
  800 getk$
  805 ifk$<>"*"then1000
  810 ifw2=1then1330
  915 ifl<5orl>31+(d*2)then1330
  917 ifh=>1andl<y+2then1000
  918 h=h+1:sb(h)=0:ifh=3then8020
  919 n=n+1
  920 ifn=21then3000
  930 ife=41then950
  935 v(h)=(32851+(d*80)-l):pokev(h),42:goto960
  950 v(h)=(32804+(d*80)+l):pokev(h),42
  960 y=l
 1000 ifh=0then1330
 1010 forb=1toh
 1020 ifsb(b)=1then1300
 1050 i=v(b)-40:j=peek(i):m=v(b)+e:k=peek(m)
 1070 ifk=32then1240
 1080 ifk=102then1150
 1090 ifk>176andk<186then1100
 1092 gosub5100:goto1300
 1100 f=f+(k-176)
 1102 print"{home}";:forp=1to22:print"{down}";:nextp
 1104 iff<10thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";f:goto1120
 1108 iff=>10andf<100thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";f:goto1120
 1112 iff=>100andf<1000thenprint"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";f
 1120 bh(b)=1:pokem,42:pokev(b),32:goto1260
 1150 ifbh(b)<>1then1180
 1160 pokev(b),32:sb(b)=1:goto1260
 1180 er=er+1:poke33681,51-er:ifer=4thenge=1
 1210 sb(b)=1:ifer=4thenge=1
 1220 goto1260
 1240 pokem,42:pokev(b),32
 1260 v(b)=v(b)+e:ifv(b)<33007then1300
 1270 pokei+40,j:ifj=32then1300
 1290 i=i-40:j=peek(i):ifj=42then1290
 1295 goto1270
 1300 nextb
 1310 ifge<>0then3000
 1322 ifa<>3then1330
 1330 ifa=2thengosub5000
 1335 nextl
 1340 if w2=1thengoto3330
 1341 nextc
 3000 gosub6000
 3030 print"{home}";tab(10);"{down}   {rvon}final stats{rvof}"
 3035 ifc=21thenprintf$"your plane made all 20 of its fly-bys.":goto3045
 3040 printf$"your plane made"c"out of 20 fly-bys."
 3045 ifn=21thenprint"{down}you dropped all of your 20 bombs.":goto3060
 3050 print"{down}the game ended with"n"out of 20 bombs":print"dropped."
 3060 ifer=1thenprint"{down}you had 1 miss. (only 3 allowed)"
 3062 ifer<>1thenprint"{down}you had"er"misses.  (only 3 allowed)."
 3070 print"{down}{rvon}** your final score was "f"{left} **"
 3072 ifs2<fthens2=f
 3074 ifp9>0thenprint"{down}high score this session="s2"{left}."
 3080 print"{down}do you want to play again?":pokex,60
 3090 getz$:ifz$=""then3090
 3100 ifz$="n"thengoto3310
 3200 ifz$="y"then3305
 3300 print"please answer with a y or n.{up}":goto3090
 3305 poke59409,52:p9=p9+1:poke33767,p9:poke33766,s2
 3308 clr:p9=peek(33767):s2=peek(33766):goto200
 3310 print"{clr}"f$"{down}{down}{down}{down}{down}    i hope you enjoyed the game!":er=0:a=1:d=0:w2=1:h=0
 3320 z$="{down}{left}{left}{left}{left}{left}{left}":ab=0:d$="{home}{down}{down}{down}":goto600
 3330 print"{clr}":pokeg,12:end
 5000 q=q+1
 5010 ifq=10thenq=1
 5020 onqgoto5025,5030,5035,5040,5045,5050,5055,5060
 5025 poker,229:pokes,229:poket,229:goto5070
 5030 poker,212:pokes,212:poket,212:goto5070
 5035 poker,199:pokes,199:poket,199:goto5070
 5040 poker,194:pokes,194:poket,194:goto5070
 5045 poker,221:pokes,221:poket,221:goto5070
 5050 poker,200:pokes,200:poket,200:goto5070
 5055 poker,217:pokes,217:poket,217:goto5070
 5060 poker,231:pokes,231:poket,231:goto5070
 5070 return
 5100 pokev(b),32:sb(b)=1:pokeu,78:fori=1to750:nexti
 5110 pokeu,32:pokeu-1,122:fori=1to750:nexti:p=160:k=0
 5112 fori=1to2
 5114 forj=utowstep-40
 5116 ifk=1then5120
 5118 ifpeek(j)=32orpeek(j)=96orpeek(j)=160then5120
 5119 k=1:w=j:p=32:goto5124
 5120 poke(j),p
 5122 nextj
 5123 p=32
 5124 nexti:ifk=1then5500
 5170 pokeu-1,100:pokeu,78:fori=1to750:nexti:pokeu,100
 5180 return
 5200 gosub5150
 5500 fori=1to6
 5505 ife=39then5550
 5540 print"{home}"d$tab(l-8);"        "z$"{left}       {down}{left}{left}{left}{left}    {down}{left}{left}{left}  "
 5545 print"{home}"d$tab(l-8);" {rvof}{CBM-*}{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{left} {CBM-U}{CBM-U}{rvon}{CBM-O} {CBM-+}{rvof}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}":goto5580
 5550 print"{home}"d$tab(40-l);"        "z$"{left}{left}       "z$"{left}    {down}{left}{left}{left}  "
 5555 print"{home}"d$tab(40-l);"{rvof}{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} "z$"{left}{left}{CBM-Q}{rvon}{CBM-+} {CBM-O}{rvof}{CBM-U}{CBM-U} "z$"{left}{SHIFT--} N {down}{left}{left}{left}{CBM-C} "
 5580 nexti
 5585 print"{home}"d$tab(l-8);"        "z$"{left}       {down}{left}{left}{left}{left}    {down}{left}{left}{left}  "
 5590 print"{home}"d$tab(40-l);"        "z$"{left}{left}       "z$"{left}    {down}{left}{left}{left}  "
 5595 pokeu-1,100:pokeu,78:fori=1to750:nexti:pokeu,100
 5600 fori=1to1500:nexti:goto3000
 6000 pokex,52:print"{clr}{CBM-*}{rvon}{CBM-*}{rvof} .PO{SHIFT--}"z$"{CBM-U}{CBM-U}{rvon}{CBM-O} {rvof}{CBM-+}{CBM-W}{down}{left}{left}{left}{left} M {SHIFT--}{down}{left}{left}{left} {CBM-V}"
 6060 print"{home}"tab(33);"{SHIFT--}PO. {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"z$"{left}{CBM-Q}{rvon}{CBM-+} {CBM-O}{rvof}{CBM-U}{CBM-U}"z$"{SHIFT--} N {down}{left}{left}{left}{CBM-C}":return
 7000 pokex,52:print"{clr}"f$f$"     {rvon} watch out for the death beam! "
 7002 print"{home}{down}"f$f$"     {rvon}  do not hit the sensors!!!    "
 7003 pokex,60:fori=1to2000:nexti
 7004 pokex,52:print"{clr}{down}{down}"f$f$
 7005 print"         {rvon}99{rvof}"b5$b5$"        {CBM-+}{up}{left}{CBM-+}{up}{left}{CBM-+}{down}{down}";
 7010 print"       "y2$"      {rvon}5{rvof}     {CBM-@}{CBM-@}{CBM-@}"b5$"{rvon}5{rvof}{CBM-+}";
 7020 print"      "y2$"{CBM-+}{CBM-+}{CBM-+}    {rvon}6{rvof} {rvon}^^9{rvof} {rvon}{CBM-G}{CBM-G}{CBM-G}{rvof} {rvon}9^^{rvof}     {rvon}66{rvof}{CBM-+}";
 7030 print"     "y2$"{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {rvon}7{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}     {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {rvon}77{rvof}{CBM-+}";
 7040 print"    "y2$y2$"   {rvon}8{rvof}"y2$y2$"{CBM-+}{CBM-+}  {rvon}888{rvof}{CBM-+}";
 7050 print" {rvon}99{rvof}"y2$y2$"{CBM-+}{CBM-+} {rvon}99{rvof}"y2$y2$"{CBM-+}{CBM-+}{CBM-+}{rvon}9999{rvof}{CBM-+}";
 7499 goto300
 8020 h=2:nb=nb-1:b=2:goto1000
    1 goto910
    2 rem ** ml stop key disable **
    3 print"{$78}{SHIFT-POUND}={sret}{del}{stop}{SHIFT-POUND}{dish}{sret}{CTRL-U}{stop}x{$60} {$ea}~{SHIFT-POUND}~{f1}{up}l4{$ea}{$78}{SHIFT-POUND}1{sret}{del}{stop}{SHIFT-POUND}{$ea}{sret}{CTRL-U}{stop}x{$60}
    4 print"{$78}{$68}{$68}{$68}{CBM-N}{$68}{CBM-POUND}{$68}{$68}{$68}{$68}{$68}{$68}{$68}{gry2}h{f4}hx{$60}111"
    5 print"{$68}{$68}{$68}{$68}{$68}{$68}{$68}{$60}1"
    6 rem ** 4 - pop ml subroutine **
   10 rem **general input routine **
   15 :
   19 rem ** general input routine **
   20 rem ** to our best knowledge this
   21 rem    program is free for
   22 rem    duplication in canada.
   23 rem    if you have contary
   24 rem    information, please
   25 rem    contact commodore canada and
   26 rem    every effort will be made to
   27 rem    withdraw copies of this
   28 rem    program.
   30 :
   35 rem +++ input section +++
   40 pokeuo,0:ur$="":ui$=""
   42 iful=0thenul=80
   45 print"  {left}{left}";:pokeuc,0
   50 getui$:ifui$=""then50
   55 ifui$=chr$(13)andlen(ur$)>=1thenpokeuc,1:print" {left}";:goto85
   60 ifui$=chr$(20)then105
   62 if len(ur$)=>ulthen50
   65 gosub120:rem check for valid character
   70 ur$=ur$+ui$
   75 printui$;
   80 goto50
   81             
   85 rem +++ check for help request +++
   90 ifur$=ux$then195:rem exit to help routine
   95 ifuf=1thengosub240
  100 uf=0:print:return
  102 rem ++ check delete ++
  105 iflen(ur$)<1then50
  110 ur$=left$(ur$,len(ur$)-1)
  115 print"{left}  {left}{left}";:goto50
  120 rem ++ check for valid characters ++
  125 iflen(us$)=0then150
  130 forus=1tolen(us$)
  135 ifui$=mid$(us$,us,1)thenreturn
  140 next
  145 ui$="":return
  150 rem ** standard input **
  152 ifasc(ui$)=46thenreturn
  155 ifui$=chr$(32)thenreturn
  160 ifasc(ui$)<48orasc(ui$)>57then170
  165 return
  170 ifasc(ui$)<65orasc(ui$)>90then180
  175 return
  180 ifasc(ui$)<193orasc(ui$)>218thenui$="":return
  185 ifpeek(ut)=uu%thenui$=chr$(asc(ui$)-128):return
  187 return
  190 ui$="":return
  195 uf=1:rem +++ help routine exit +++
  197 gosub250
  200 gosub245
  205 foruq=ubtoub+999
  210 uq%(uq-ub)=peek(uq):next:print"{clr}"
  215 uz=1:uv%=peek(ut)
  216 goto300
  217 uz=0:us$=uj$:ug$=uk$:up=uj:ul=uk
  218 ifpeek(50003)=0thenpoke53281,1:print"{clr}";:poke53281,6:poke53280,14:goto220
  219 print"{clr}";
  220 ut$=ul$:pokeut,uv%:foruq=ubto(u2%*256+u1%+u3%-3)
  225 pokeuq,uq%(uq-ub):next
  227 printleft$(ud$,24);"                                     "
  230 pokeu1,u1%
  232 pokeu2,u2%
  233 pokeu4,u4%
  234 pokeu3,u3%-1
  235 goto35
  240 ud%=((u2%*256+u1%+u3%)-ub)/40:printleft$(ud$,ud%+1):return
  245 printleft$(ud$,24);"                      {rvon} help coming {rvof}  ":return
  250 u1%=peek(u1):u2%=peek(u2):u3%=peek(u3):u4%=peek(u4)
  251 uj$=us$:uk$=ug$:ul$=ut$:uj=up:uk=ul
  255 return
  300 rem ** menu **
  301 :
  302 print"{clr}":pokeut,uu%:ifpeek(50003)=0thenpoke53281,9:poke53280,8
  303 :
  305 print"{home}                menu"
  310 print" --------------------------------------"
  315 print"{down}{down}       1.   begin ladder multiplication"
  320 print"{down}{down}       2.   student instructions"
  325 print"{down}{down}       3.   teacher instructions"
  330 print"{down}{down}       4.   modification of program"
  335 print"{down}{down}       5.   quit{down}{down}"
  340 print" --------------------------------------"
  345 print"{down}{down}       press a number key (1-5) ";
  350 ul=1:us$="12345":gosub35:rem input routine
  352 us$=""
  355 onval(ur$)gosub1000,400,500,600,396
  360 goto300
  395 rem ** re-enable stop key and end **
  396 ifpeek(50003)<>1andpeek(50003)<>160andpeek(50003)<>0then399
  397 sysuu+71:ifpeek(50003)=0thenpoke53281,6:poke53280,14
  398 print"{lblu}{clr}":end
  399 gosub875:return
  400 rem ** student instructions **
  405 print"{clr}":pokeut,ul%:ifpeek(50003)=0thenpoke53281,0:poke53280,0
  410 uh=1:up=0:ug$="Student Inst":gosub850
  411 print
  425 print"{down}   Your task is to climb the ladder by
  427 print
  430 print" answering the questions correctly."
  435 print"{down} When an answer is incorrect you will
  437 print"{down} drop down one rung.
  438 print:print"   After too many mistakes you'll be"
  439 print:print"              EATEN!!"
  440 print"{down}    Please try hard to get away.
  443 print
  445 print"       G O O D  L U C K!!!!!
  446 gosub835
  450 uh=1:up=1:gosub850
  451 printtab(9);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}BEWARE{$a0}OF{$a0}THE{$a0}MAD{$a0}DOG"
  485 gosub835
  490 ifuz=1thensysup%:goto217
  499 return
  500 rem ** teacher instructions **
  501 print"{clr}":pokeut,ul%:ifpeek(50003)=0thenpoke53281,2:poke53280,10
  502 uh=1:up=0:ug$="Teacher Inst":gosub850
  503 print"{down}{down}      To the best of our knowledge,{down}"
  504 print"   this program is in the public{down}"
  505 print"   domain.  If this is not the case{down}"
  506 print"   please contact:{down}{down}{down}"
  507 print"      Commodore Business Machines{down}"
  508 print"          3370 Pharmacy Ave.
  509 print"          Agincourt, Ontario"
  510 print"          Canada   M1W 2K4"
  511 print"          (416) 499-4292"
  512 uh=1:up=1:gosub 835:gosub 850:
  513 print"     {down}{down}Program Name: Ladder Mult.{down}
  514 print"     Written By  : Patty Garn{down}
  515 print"     Upgraded By :          {down}
  516 print"     {down}This program will run on any{down}{down}
  519 print"         PET 64 COMPUTER{down}
  520 print"         COMMODORE 64 COMPUTER
  521 gosub835
  590 ifuz=1thensysup%:goto217
  599 return
  600 rem ** program modification inst **
  601 print"{clr}":pokeut,ul%
  605 uh=1:up=0:ug$="Program Mod":gosub850
  663 print"{down}{down}     The current values have a high of"
  664 print:print""hi;"and a low of ";low
  665 print"{down}     The product of the two largest"
  666 print"{down} values must not exceed five digits in"
  667 print"{down} length."
  668 print"{down}"
  669 print"     High ";:us$="-0123456789":ul=3:gosub35:hi=val(ur$)
  675 print "      Low ";:ul=3:gosub 35:low=val(ur$)
  678 if low <-10 or low > hi thenprint"{up}{up}":goto675
  690 ifuz=1thensysup%:goto217
  699 return
  700 rem ** to use 8032 load cbm4032 **
  710 print"{clr}{down}{down}{down}{wht}before running this program on an 8032  {down}{down}
  720 print"      load the 'cbm 4032' program{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  730 sysuu+71
  740 end
  797 rem ** to use 8032 load cbm4032 **
  798 print"{clr}{down}{down}{down}before running this program on an 8032  {down}{down}load cbm 4032 program"
  799 sys1093:end
  800 rem ** t i t l e   p a g e **
  802 print"{clr}{down}{rght}{wht}";:pokeut,uu%:ifpeek(50003)=0thenpoke53280,14:poke53281,6
  804 fori=1to38:print"{rvon}{CBM-+}{rvof}";:next
  806 fori=1to22:print"{down}{left}{rvon}{CBM-+}{rvof}";:next
  808 fori=1to37:print"{left}{left}{rvon}{CBM-+}{rvof}";:next
  810 fori=1to22:print"{up}{left}{rvon}{CBM-+}{rvof}";:next
  812 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  {rvof}
  814 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}  {rvon} {rvof}{SHIFT-POUND}
  816 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}  {rvon}{CBM-T}{CBM-*}
  818 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{rvon}  {rvof}
  820 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}c o m m o d o r e{down}{down}
  822 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}educational{down}{down}
  824 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}software
  826 rem ** commodore logo **
  827 printleft$(ud$,24);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press space bar or wait{rvof}":i=0
  828 geta$:ifa$<>" "theni=i+1:ifi<250then828
  830 t1$="":t2$="":t3$="":t4$="":i=0
  832 goto300
  835 rem ** space bar press **
  840 pokeuo,0:printleft$(ud$,24);"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press space bar to continue{rvof}"
  844 getui$:ifui$<>" "then844
  846 return
  850 rem ** page design routine **
  852 up=up+1
  855 print"{clr}"left$(ut$+up$,21);right$(up$+ug$+str$(up),18)
  860 print" --------------------------------------"
  864 ifuh<>0then870
  865 printleft$(ud$,24);left$(up$,7);"help - press   h <return>"
  870 uh=0:print"{home}{down}":return
  875 rem ** please wait remark **
  880 printleft$(ud$,24);"           one moment please...     "
  885 return
  900 rem ** set up variables **
  901 ux$="h":dimuq%(1000):ub=32768:u1=196:u2=197:u3=198:u4=216:uc=167:uu=1024
  902 ut=59468:uu%=12:ul%=14:up%=1146:um=32768:uo=158:poke 50003,0
  903 ifpeek(50003)=0thenub=1024:u1=209:u2=210:u3=211:u4=214:uc=204:uu=2048
  904 ifpeek(50003)=0thenut=53272:uu%=21:ul%=23:up%=2139:um=1024:uo=198
  905 ud$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  906 up$="                                       "
  907 ut$=" LADDER{$a0}MULT.     {$a0}":rem place program title here !!!!!!!!!!!!!!!!!***
  908 return
  910 rem ** set variables **
  915 gosub900
  916 hi=12:low=1
  917 :
  920 rem ** check for 8032 **
  925 print"{clr}":print"{$a0}":rem shifted space
  930 ifpeek(ub+40)<>96thengosub700
  931 rem ** memory check **
  932 if fre(0)>2000then937
  933 print"{clr}{down}{down}{wht}this machine does not have enough{down}"
  934 print"memory to run this program !"
  935 sysuu+71
  936 end
  937 print"{clr}{wht}":ifpeek(50003)=0then962
  940 rem ** basic 2.0  or  4.0  or  c-64 setup **
  941 poke1075,133:poke1076,144:poke1077,234:poke1079,4:poke1080,133:poke1081,145
  942 poke1091,155:poke1098,133:poke1099,144:poke1100,234:poke1103,133
  943 poke1104,145:poke1105,234:poke1082,234
  945 ifpeek(50003)<>160then955
  950 poke1093,88:poke1094,228:poke1097,85:poke1102,228:goto965
  955 ifpeek(50003)<>1then990
  960 poke1093,49:poke1094,230:poke1097,46:poke1102,230:goto965
  962 poke2099,141:poke2100,20:poke2101,3:poke2103,8:poke2104,141:poke2105,21
  963 poke2106,3:poke2115,145:poke2117,52:poke2118,234:poke2121,49:poke2122,141
  964 poke2123,20:poke2124,3:poke2126,234:poke2127,141:poke2128,21:poke2129,3
  965 sysuu+48:rem disable stop key
  970 gosub800:rem title
  980 goto300:rem menu
  990 print"{clr}the pgm will not work on this machine!":end
 1000 ifuz=1thensysup%:sysup%:uz=0:rem ** program starts here **
 1001 print"{clr}{wht}";:restore:ifpeek(50003)=0thenpoke53281,6:poke53280,14
 1010 rem patty garn
 1020 :
 1030 rem multiplication drill
 1040 rem march, 1982
 1050 :
 1100 p=um+813
 1320 rem picture
 1330 print"{clr}      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1340 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1350 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1360 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1370 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1380 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1390 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1400 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1410 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1420 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1430 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1440 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1450 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1460 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1470 print"      {CBM-M}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}{CBM-G}
 1480 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1490 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1500 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1510 print"      {CBM-M}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0} {CBM-M}{CBM-G}
 1520 print"      {CBM-M}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-G}
 1530 print"      {CBM-M}{CBM-G}            {CBM-M}{CBM-G}
 1540 a$="{CBM-@}{CBM-@}{CBM-@}NM{down}{left}{left}{left}{left}{left}M   {CBM-S}M{down}{left}{left}{left}{left}{left}{left}{CBM-Z}M Q {CBM-M}{down}{left}{left}{left}{left}{left}{left}{CBM-A}N   {CBM-M}{down}{left}{left}{left}{left}{left}{left}N    N{down}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1550 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";a$
 1560 pokep,81
 1570 rem process
 1575 range=hi-lo +1
 1580 : n1 = int (rnd(1)*range)+low
 1590 : n2 = int (rnd(1)*range)+lo
 1600 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";n1;"V";n2;"{left}="
 1610 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1613 :us$="-0123456789":ul=5:gosub35
 1615 answer$=ur$
 1620 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}               "
 1630 answer=val(ur$)
 1640 if answer = n1 * n2 then p=p - 80
 1650 if answer <> n1 * n2 then p=p + 80
 1660 poke p,81
 1670 if answer = n1 * n2 then poke p+80,32
 1680 if answer <> n1 * n2 then poke p-80,32
 1685 if p=um+973then goto 2000
 1690 if p=um+13 then goto 1720
 1695             
 1700 goto1580
 1710 nexti
 1720 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}!!you're saved!!{rvof}"
 1740 goto 2045
 2000 z$="sorry, you were just eaten!"
 2040 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}";z$
 2045 gosub835:return
    0 t1$="fuer's leben":t2$="fuer die naehere zukunft"
    1 t3$="fuer's kommende wochenende":t4$="fuer die naechste nacht"
    2 print"{clr}":gosub95
    3 print:printtab(4)"m a e d c h e n - t e s t":print:gosub95
    4 dimf$(10),l$(10),f(10),m(10,10),v(10),z(10):print
    5 y$="y":print" keine entscheidungsprobleme mehr fuer"
    6 print"vielbeschaeftigte junggesellen !!":print
    7 print" geben sie mir bitte an, was sie ueber"
    8 print"die damen wissen. ich helfe ihnen"
    9 print"dann bei dieser delikaten entscheidung":print
   10 print" ueberlassen sie mir dieses problem, undkonzentrieren sie sich ";
   11 print"voll und ganz aufdas danach.......":print
   12 input"bereit";b$:ifleft$(b$,1)="n"then94
   13 print"{clr}":print:print:print:print:print:printtab(8)"!!! h a l t !!!"
   14 print:print:print"ich haette noch eine (rein statistische) frage :"
   15 print:printtab(6)"treffen sie diese entscheidung":print
   16 printtab(2)"1-";t1$:printtab(2)"2-";t2$:printtab(2)"3-";t3$
   17 printtab(2)"4-";t4$
   18 inpute
   19 ife=1then23
   20 ife=2then24
   21 ife=3then25
   22 ife=4then26
   23 o$=t1$:goto27
   24 o$=t2$:goto27
   25 o$=t3$:goto27
   26 o$=t4$:goto27
   27 print"{clr}":gosub96
   28 print:print" unter wieviel dieser himmlischen ge-"
   29 print"schoepfe (min=2-max=10) muessen sie sich denn entscheiden";:inputl0
   30 print:print"bitte geben sie jetzt alle";l0;"maedchen"
   31 print"(reihenfolge spielt keine rolle) ein"
   32 print:fori=1tol0:print"nummer";i;"bitte":inputl$(i):print:nexti:print
   33 print"{clr}":gosub96
   34 print:print" ok, das waeren also":print
   35 fori=1tol0:printtab(3)i;"-";l$(i):nexti:print
   36 print:print"wieviel faktoren(max=10) sind eigentlichwichtig bei der "
   37 print"entscheidung fuer ihre":print:printtab(4)"partnerin ";o$
   38 inputf0
   39 print"{clr}"
   40 print"bitte geben sie mir diese faktoren an":print
   41 fori=1tof0:print:print"faktor";i;"bitte":inputf$(i):nexti
   42 print"{clr}":print"welcher von diesen faktoren"
   43 fori=1tof0:printtab(4)i;f$(i):nexti
   44 print"ist denn fuer sie der wichtigste";:inputf2
   45 print:print:print"ok - gehen wir mal von einer bedeutungs-skala aus,";
   46 print"die von 0 bis 10 reicht."
   47 printf$(f2);" als wichtigster faktor"
   48 print"erhaelt den wert 10.":print
   49 print"welchen wert (dezimalwerte sind ok)"
   50 print"wuerden sie dann den anderen faktoren"
   51 print"zuordnen?"
   52 print:fori=1tof0
   53 ifi=f2then55
   54 printf$(i):inputf(i)
   55 next:f(f2)=10:c=0:fori=1tof0:c=c+f(i):next
   56 fori=1tof0:f(i)=f(i)/c:nexti
   57 print"{clr}"
   58 print" geben sie mir jetzt bitte an, wie die"
   59 print"maedchen bei der betrachtung der"
   60 print"einzelnen faktoren abschneiden"
   61 print:print"lassen sie uns davon ausgehen, dass"
   62 printl$(1)" jeweils einen wert von 10 hat. sie"
   63 print"geben dann den einzelnen maedchen werte"
   64 print"groesser oder kleiner als 10, je nach-"
   65 print"dem wie sie in bezug auf ";l$(1)
   66 print"abschneiden"
   67 fori=1tof0
   68 print:print"betrachten wir einmal nur ";f$(i)
   69 print"und gehen wir davon aus, dass ";l$(1)
   70 print"den wert 10 erreicht, welche werte"
   71 print"wuerden sie den anderen maedchen geben"
   72 print:forj=2tol0
   73 printl$(j):inputm(j,i)
   74 nextj:print:m(1,i)=10:nexti:fori=1tof0:c=0:forj=1tol0
   75 c=c+m(j,i):nextj:forj=1tol0:m(j,i)=m(j,i)/c:nextj:nexti
   76 forj=1tol0:v(j)=0:fori=1tof0:v(j)=v(j)+m(j,i)*f(i)
   77 nexti:nextj:fori=1to10:z(i)=i:next:c=l0-1:forj=1tol0
   78 fori=1toc:n1=z(i):n2=z(i+1):ifv(n1)>v(n2)then80
   79 z(i+1)=n1:z(i)=n2
   80 nexti:nextj:c1=z(1):c2=z(2):c=100/v(c1):forj=1tol0
   81 v(j)=c*v(j):next:print:print:d=v(c1)-v(c2)
   82 print"{clr}":print:print
   83 printtab(17)"ihre":print:printtab( 2)"idealpartnerin ";o$
   84 printtab(16)"heisst":print:printtab(15)l$(c1)
   85 print
   86 ifd<10thenprint"(allerdings ziemlich knapp)
   87 ifd<20andd>=10thenprint"(mit klarem abstand)"
   88 ifd>=20thenprint"(eine ganz klare entscheidung)"
   89 print:gosub95
   90 print:print"hier ist die entgueltige reihenfolge :"
   91 print:print"punkte","name"
   92 forj=1tol0:c=z(j):printv(c),l$(c):next
   93 end
   94 end
   95 fori=1to40:print"{CBM-+}";:nexti:return
   96 fori=1to20:print"()";:nexti:return
    0 t1$="fuer's leben":t2$="fuer die naehere zukunft"
    1 t3$="fuer's kommende wochenende":t4$="fuer die naechste nacht"
    2 print"{clr}":gosub95
    3 print:printtab(4)"    m a e n n e r - t e s t":print:gosub95
    4 dimf$(10),l$(10),f(10),m(10,10),v(10),z(10):print
    5 y$="y":print" keine entscheidungsprobleme mehr fuer"
    6 print"vielbeschaeftigte junggesellinen !!":print
    7 print" geben sie mir bitte an, was sie ueber"
    8 print"die herren wissen. ich helfe ihnen"
    9 print"dann bei dieser delikaten entscheidung":print
   10 print" ueberlassen sie mir dieses problem, undkonzentrieren sie sich ";
   11 print"voll und ganz aufdas danach.......":print
   12 input"bereit";b$:ifleft$(b$,1)="n"then94
   13 print"{clr}":print:print:print:print:print:printtab(8)"!!! h a l t !!!"
   14 print:print:print"ich haette noch eine (rein statistische) frage :"
   15 print:printtab(6)"treffen sie diese entscheidung":print
   16 printtab(2)"1-";t1$:printtab(2)"2-";t2$:printtab(2)"3-";t3$
   17 printtab(2)"4-";t4$
   18 inpute
   19 ife=1then23
   20 ife=2then24
   21 ife=3then25
   22 ife=4then26
   23 o$=t1$:goto27
   24 o$=t2$:goto27
   25 o$=t3$:goto27
   26 o$=t4$:goto27
   27 print"{clr}":gosub96
   28 print:print" unter wieviel dieser himmlischen ge-"
   29 print"schoepfe (min=2-max=10) muessen sie sich denn entscheiden";:inputl0
   30 print:print"bitte geben sie jetzt alle";l0;"maenner"
   31 print"(reihenfolge spielt keine rolle) ein"
   32 print:fori=1tol0:print"nummer";i;"bitte":inputl$(i):print:nexti:print
   33 print"{clr}":gosub96
   34 print:print" ok, das waeren also":print
   35 fori=1tol0:printtab(3)i;"-";l$(i):nexti:print
   36 print:print"wieviel faktoren(max=10) sind eigentlichwichtig bei der "
   37 print"entscheidung fuer ihren":print:printtab(4)"partner ";o$
   38 inputf0
   39 print"{clr}"
   40 print"bitte geben sie mir diese faktoren an":print
   41 fori=1tof0:print:print"faktor";i;"bitte":inputf$(i):nexti
   42 print"{clr}":print"welcher von diesen faktoren"
   43 fori=1tof0:printtab(4)i;f$(i):nexti
   44 print"ist denn fuer sie der wichtigste";:inputf2
   45 print:print:print"ok - gehen wir mal von einer bedeutungs-skala aus,";
   46 print"die von 0 bis 10 reicht."
   47 printf$(f2);" als wichtigster faktor"
   48 print"erhaelt den wert 10.":print
   49 print"welchen wert (dezimalwerte sind ok)"
   50 print"wuerden sie dann den anderen faktoren"
   51 print"zuordnen?"
   52 print:fori=1tof0
   53 ifi=f2then55
   54 printf$(i):inputf(i)
   55 next:f(f2)=10:c=0:fori=1tof0:c=c+f(i):next
   56 fori=1tof0:f(i)=f(i)/c:nexti
   57 print"{clr}"
   58 print" geben sie mir jetzt bitte an, wie die"
   59 print"maenner bei der betrachtung der"
   60 print"einzelnen faktoren abschneiden"
   61 print:print"lassen sie uns davon ausgehen, dass"
   62 printl$(1)" jeweils einen wert von 10 hat. sie"
   63 print"geben dann den einzelnen maennern werte"
   64 print"groesser oder kleiner als 10, je nach-"
   65 print"dem wie er in bezug auf ";l$(1)
   66 print"abschneiden"
   67 fori=1tof0
   68 print:print"betrachten wir einmal nur ";f$(i)
   69 print"und gehen wir davon aus, dass ";l$(1)
   70 print"den wert 10 erreicht, welche werte"
   71 print"wuerden sie den anderen maennern geben"
   72 print:forj=2tol0
   73 printl$(j):inputm(j,i)
   74 nextj:print:m(1,i)=10:nexti:fori=1tof0:c=0:forj=1tol0
   75 c=c+m(j,i):nextj:forj=1tol0:m(j,i)=m(j,i)/c:nextj:nexti
   76 forj=1tol0:v(j)=0:fori=1tof0:v(j)=v(j)+m(j,i)*f(i)
   77 nexti:nextj:fori=1to10:z(i)=i:next:c=l0-1:forj=1tol0
   78 fori=1toc:n1=z(i):n2=z(i+1):ifv(n1)>v(n2)then80
   79 z(i+1)=n1:z(i)=n2
   80 nexti:nextj:c1=z(1):c2=z(2):c=100/v(c1):forj=1tol0
   81 v(j)=c*v(j):next:print:print:d=v(c1)-v(c2)
   82 print"{clr}":print:print
   83 printtab(17)"ihr":print:printtab( 2)"idealpartner ";o$
   84 printtab(16)"heisst":print:printtab(15)l$(c1)
   85 print
   86 ifd<10thenprint"(allerdings ziemlich knapp)
   87 ifd<20andd>=10thenprint"(mit klarem abstand)"
   88 ifd>=20thenprint"(eine ganz klare entscheidung)"
   89 print:gosub95
   90 print:print"hier ist die entgueltige reihenfolge :"
   91 print:print"punkte","name"
   92 forj=1tol0:c=z(j):printv(c),l$(c):next
   93 end
   94 end
   95 fori=1to40:print"{CBM-+}";:nexti:return
   96 fori=1to20:print"()";:nexti:return
    0 clr:pg$="mail":nm$="25":goto62000
    1 " roby hyde & hunter hancock
    2 " 3311 brookhill circle
    3 " lexington, ky
    4 "
    5 " cursor #25,april,1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 3may81
   11 " ---------
   12 " lines 900-2800 used by permission compute! magazine
   13 " (c) copyright 1980 small systems services, inc
   14 " box 5406 greensboro, nc 27403
   15 " ---------
  100 fd=1:dr$="0:":rem file device
  120 qt$=chr$(34):mm=1000:rem min memoryremain
  200 bl$="                                       "
  300 max=50:rem max entries
  400 f1$="*":f2$="Z":rem reserved chars
  500 td$="disk":iffd<8thentd$="tape"
  600 dim ad$(max),a$(6),lb$(6),op$(10)
  610 restore:for i=1 to 6:readlb$(i):next i
  620 data "name  ","addr 1","addr 2"
  630 data "addr 3","addr 4","zip   "
  650 op$="":for i=1 to 10
  660 read op$(i):op$=op$+left$(op$(i),1)
  670 ifop$(i)="fast"thenop$(i)="list"
  680 nexti
  690 data read,sort,print,write,quit,delete,add,modify,list,fast
  700 goto 5200
  800 print"{down}sorting...."
  900 n=co:tp=1:lower(1)=1:upper(1)=n
 1000 ifco=0then4800
 1100 iftp<=0thenreturn
 1200 lb=lower(tp):ub=upper(tp):tp=tp-1
 1300 ifub<=lbthen1100
 1400 i=lb:j=ub:temp$=ad$(i)
 1500 ifj<1then1800
 1600 ifmid$(temp$,asc(temp$))>=mid$(ad$(j),asc(ad$(j)))then1800
 1700 j=j-1:goto1500
 1800 ifj<=ithenad$(i)=temp$:goto2500
 1900 ad$(i)=ad$(j):i=i+1
 2000 ifi>nthen2300
 2100 ifmid$(ad$(i),asc(ad$(i)))>=mid$(temp$,asc(temp$))then2300
 2200 i=i+1:goto2000
 2300 ifj>ithenad$(j)=ad$(i):j=j-1:goto1600
 2400 ad$(j)=temp$:i=j
 2500 tp=tp+1
 2600 ifi-lb<ub-ithenlower(tp)=i+1:upper(tp)=ub:ub=i-1:goto1300
 2700 lower(tp)=lb:upper(tp)=i-1:lb=i+1
 2800 goto1300
 4800 print"{clr}{down}{down}nothing to ";op$(op);".{down}"
 4900 print"hit {rvon}return{rvof} for menu";
 5000 geta$:ifa$=""then5000
 5200 rem menu
 5400 print"{clr}";co;"entr";:if co=1 then print"y";
 5500 ifco<>1thenprint"ies";
 5600 iffre(0)<mmthenprinttab(18);"only";fre(0);"bytes left";
 5700 print
 5800 fori=1to13:print"RRR";:nexti:print
 5900 print"{down}{rvon}a{rvof}{left}{up}{CBM-@}{down}dd entries
 6000 print"{down}{rvon}m{rvof}{left}{up}{CBM-@}{down}odify an entry
 6100 print"{down}{rvon}d{rvof}{left}{up}{CBM-@}{down}elete an entry
 6200 print"{down}{rvon}l{rvof}{left}{up}{CBM-@}{down}ist entries (on {rvon}s{rvof}{left}{up}{CBM-@}{down}creen or {rvon}p{rvof}{left}{up}{CBM-@}{down}rinter)
 6250 print"{down}{rvon}f{rvof}{left}{up}{CBM-@}{down}ast list of names"
 6300 print"{down}{rvon}s{rvof}{left}{up}{CBM-@}{down}ort list (by {rvon}l{rvof}{left}{up}{CBM-@}{down}ast name or {rvon}z{rvof}{left}{up}{CBM-@}{down}ip code)
 6400 print"{down}{rvon}p{rvof}{left}{up}{CBM-@}{down}rint labels
 6500 print"{down}{rvon}r{rvof}{left}{up}{CBM-@}{down}ead file from ";td$
 6600 print"{down}{rvon}w{rvof}{left}{up}{CBM-@}{down}rite file to "td$
 6700 print"{down}{rvon}q{rvof}{left}{up}{CBM-@}{down}uit
 6800 print"{down}what shall i do";
 6900 gosub30200
 7000 op=0:fori=1tolen(op$)
 7100 ifmid$(op$,i,1)=in$thenop=i:i=99
 7200 next:ifop=0thenprint"{left}{left}{left}";:goto6900
 7290 rem            r     s     p     w     q     d    a     m     l     f
 7300 fc=6:onopgoto14500,16600,19300,13000,28700,15600,7500,27900,29400,30800
 7400 counter=0
 7500 en=co+1
 7510 ifen>maxthenprint"{clr}{down}{down}{down}can't hold more than";max;"entries.{down}":goto4900
 7520 print"{clr} enter address #"en
 7600 forn=1to6:gc(n)=0:a$(n)="":next
 7700 gosub 26800
 8000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
 8010 print"press {rvon}shift return{rvof} to accept entry
 8020 print"{down}      {rvon}off{rvof} ({rvon}shift rvs{rvof}) to abandon
 8300 rw=6:cl=7:ch=0:zt=ti
 8400 p=crt+wd*rw+cl
 8500 print:poke ql,rw+1:print"{up}";tab(cl);
 8600 ifti>ztthenpokep,(peek(p)+128)and255:zt=zt+20
 8700 getin$:ifin$=""then8600
 8800 pokep,peek(p)and127
 8900 ch=asc(in$)
 9000 ifch=141then10600
 9100 ifin$="{rvof}"then5200
 9300 if(ch>32andch<95)orch>=160then10300
 9400 ifch=13thencl=7:ifrw<11thenrw=rw+1:goto8400
 9500 ifch=29orch=32thenifcl<39thencl=cl+1:goto8400
 9600 ifch=157andcl>7thencl=cl-1:goto8400
 9700 ifch=145andrw>6thenrw=rw-1:goto8400
 9800 ifch=17andrw<11thenrw=rw+1:goto8400
 9900 ifch=20andcl>7thenprint in$;:cl=cl-1:if cl<gc(rw-5)thengc(rw-5)=gc(rw-5)-1
 10000 ifch<>148orgc(rw-5)+1>=wdthen10200
 10100 gc(rw-5)=gc(rw-5)+1:printin$;" {left}";
 10200 goto8400
 10300 cl=cl+1:ifcl>39thencl=39:in$=""
 10400 ifcl>gc(rw-5)thengc(rw-5)=cl
 10500 printin$;:goto8400
 10600 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";bl$:print:printbl$;"{up}{up}{up}"
 10700 f=0:for n1=1 to fc
 10710 a$="":if gc(n1)<7 then 10780
 10720 b$="":for n2=7 to gc(n1)
 10730 n=crt+(n1+5)*wd+n2:pk=peek(n):poke n,128+pk
 10740 if pk<32 then pk=pk+64
 10745 ifpk=34orpk=98thenpk=32
 10750 if pk=32 then b$=b$+" ":goto 10770
 10760 a$=a$+b$+chr$(pk):b$="":f=1
 10770 next n2
 10780 a$(n1)=a$
 10790 next n1
 10800 if f=0 and en<=co then 15900
 10810 if f=0 then 5200
 10820 a$=a$(1):gosub11000:a$(1)=a$
 10830 ad$="":for i=1 to fc
 10840 ad$=ad$+a$(i)+f1$:next i
 10850 ad$(en)=ad$:al=1
 10860 if en<=co then 5200
 10870 co=en
 10880 iffre(0)<mmthenprint"only";fre(0);"bytes left{down}"
 10890 print"any more addresses";:gosub30200:print:ifin$="n"then5200
 10900 goto7500
 11000 ifa$=""then11300
 11050 for j=len(a$) to 1 step -1
 11100 if mid$(a$,j,1)=" " then a$=mid$(a$,j+1)+f2$+left$(a$,j):return
 11200 next j
 11300 a$=a$+f2$
 11400 return
 13000 ifco=0then4800
 13010 print"{clr}{down}{down}{down}write into what file? ";:gosub60000
 13020 ifin$=""then5200
 13025 if fd<8 then 13070
 13030 t$=left$(in$,12)+".old"
 13040 open15,8,15:print#15,"s";dr$;t$
 13050 print#15,"r";dr$;t$;"=";in$
 13060 close15
 13070 dr=1:fi$=in$:gosub50100:iferthen4900
 13100 print#1,"*mail*";cr$;
 13700 print#1,co;cr$;:gosub50000
 13800 foren=1toco
 13810 print".";
 13900 gosub25500
 14000 for i=1 to 6
 14010 print#1,qt$;a$(i);qt$;cr$;:gosub50000
 14020 nexti
 14100 nexten
 14200 gosub50300
 14300 al=0:goto5200
 14500 fb$="read" :gosub28900:iff6=0then5200
 14600 print"{clr}"
 14700 print "{clr}{down}{down}{down}read from what file? ";:gosub60000:fi$=in$
 14800 ifin$=""then5200
 14900 dr=0:gosub50100:iferthen4900
 15000 print"{down}{down}reading "fi$
 15010 input#1,t$:ift$<>"*mail*"then15510
 15100 input#1,t
 15110 if t<=max then co=t:goto 15200
 15120 print"{down}"fi$;" has";t;"entries. i can't"
 15130 print"{down}hold more than";max;"entries.{down}
 15140 goto 15520
 15200 foren=1toco
 15210 ad$=""
 15220 fori=1to6
 15230 input#1,a$
 15235 ifi=1thengosub11000
 15240 ad$=ad$+a$+f1$
 15250 next i
 15260 print".";
 15270 ad$(en)=ad$
 15300 next en
 15500 gosub50300:goto5200
 15510 print"{down}i didn't write that file.{down}"
 15520 gosub50300:goto4900
 15600 ifco=0then4800
 15700 print "{clr}{down}{down}delete which entry? ";:gosub60000
 15800 gosub16200:ifen<0then4900
 15900 gosub25500
 15910 gosub26800
 15920 print"{down}okay to delete";:gosub30200:print
 15930 ifin$<>"y"thenprint"{down}entry";en;"not deleted.{down}":goto 4900
 16000 ifco>enthenforn1=entoco-1:ad$(n1)=ad$(n1+1):nextn1
 16050 print"{down}entry";en;"deleted.{down}"
 16100 ad$(co)="":co=co-1:al=1:goto4900
 16200 en=-1:if in$="" then return
 16300 en=val(in$):if en<1 or en>co then print "{down}no such entry.{down}":en=-1
 16400 return
 16600 ifco=0then4800
 16700 print"{clr}{down}{down}{down}you can sort by
 16800 print"{down}{rvon}z{rvof}ip code
 16900 print"{down}{rvon}l{rvof}ast name
 17100 print"{down}which would you like";
 17200 gosub30200
 17400 ifin$="l"then17900
 17600 ifin$=cr$then5200
 17700 ifin$="z"then18000
 17800 print"{left}{left}{left}";:goto17200
 17900 for i=1 to co:ad$(i)=chr$(2)+ad$(i):nexti
 17910 goto18060
 18000 for i=1 to co:ad$=ad$(i)
 18010 for n=len(ad$)-1 to 1 step -1
 18020 if mid$(ad$,n,1)=f1$ then 18040
 18030 next n:n=0
 18040 ad$(i)=chr$(n+2)+ad$
 18050 next i
 18060 print:gosub 800
 18070 for i=1 to co
 18080 ad$(i)=mid$(ad$(i),2)
 18090 next i
 18100 goto5200
 18300 forn=len(ad$(i))to1step-1
 18400 q=asc(mid$(ad$(i),n,1)):ifq<48orq>57thennext:goto18600
 18500 ifn>5thenad$(i)=mid$(ad$(i),n-5,5)+ad$(i):goto18700
 18600 ad$(i)="00000"+ad$(i):goto18700
 18700 nexti
 18800 gosub800
 18900 fori=1toco
 19000 ad$(i)=mid$(ad$(i),6)
 19100 nexti
 19200 goto5200
 19300 ifco=0then4800
 19310 print"{clr}"
 19400 open4,4
 19410 for i=1 to 5
 19420 print#4,"********************************"
 19430 next i
 19440 print#4
 19450 print"{down}want another test label";:gosub30200:print
 19460 ifin$="y"then19410
 19470 print"{down}{down}press a key to abort printing
 19500 foren=1toco
 19600 gosub25500
 19610 for n=1 to 4
 19620 print#4,a$(n)
 19630 next n
 19640 a$=left$(a$(5),32-len(a$(6))-1)
 19650 print#4,a$;left$(bl$,32-len(a$)-len(a$(6)));a$(6)
 19660 print#4
 19700 gett$:ift$<>""then19900
 19800 nexten
 19900 close4
 20000 goto5200
 22500 ifzt>tithenreturn
 22600 zt=ti+20
 22700 pk=peek(p):poke p,(pk+128)and255:return
 25500 n2=0:ad$=ad$(en):le=len(ad$):gc(0)=4:q=1
 25600 n0=1:forn1=1tole
 25700 a$=mid$(ad$,n1,1)
 25800 ifa$=f2$thenn2=n1+1
 25900 ifa$=f1$then26100
 26000 nextn1:goto26700
 26100 ifq=1thenxa$=left$(ad$,n2-2)+", "+mid$(ad$,n2,n1-n2)
 26200 ifn2>0thena$(q)=mid$(ad$,n2,n1-n2)+left$(ad$,n2-2):n2=0:goto26400
 26300 a$(q)=mid$(ad$,n0,n1-n0)
 26400 gc(q)=6+len(a$(q)):n0=n1+1
 26500 iflen(a$(q))>32thena$(q)=mid$(a$(q),2,32)
 26600 q=q+1:ifq<=fcthen26000
 26700 return
 26800 print"{home}{down}{down}{down}{down}{down}"
 26810 for i=1 to 6
 26820 print lb$(i);":";a$(i)
 26830 next i
 26840 return
 27900 ifco=0then4800
 28100 forn=1to6:a$(n)="":next
 28200 print"{clr}modify which entry? ";:gosub60000
 28300 gosub16200:ifen<0then4900
 28400 gosub25500:gosub26800
 28500 goto8000
 28700 fb$="quit":gosub28900:iff6=1thenprint"{clr}":end
 28800 goto5200
 28900 f6=0:ifal=0thenf6=1:return
 29000 print"{clr}{down}{down}you have not saved your changes."
 29100 print"{down}do you {rvon}really{rvof} want to "op$(op);:gosub30200
 29200 ifin$="y"thenf6=1:al=0
 29300 return
 29400 print"{clr}";:ifco=0then4800
 29500 print"{down}{down}list to:"
 29600 print"{rvon}{down}p{rvof}rinter"
 29700 print"{rvon}{down}s{rvof}creen"
 29800 print"{down}where to";:gosub30200
 29900 if in$="p"then31300
 30000 if in$=cr$then5200
 30010 if in$="s" then 31000
 30100 print"{left}{left}{left}";:goto29800
 30200 zc=1:zt=ti:print"? ";
 30300 get in$:if in$<>""then30600
 30400 if ti>zt then print mid$("? ",zc,1);"{left}";:zc=3-zc:zt=ti+15
 30500 goto 30300
 30600 print" ";:if(asc(in$)and127)>31thenprint"{left}";in$;
 30700 return
 30800 if co=0 then 4800
 30900 fc=1
 31000 ps=fc:if fc>1 then ps=ps+1
 31010 ps=int(23/ps)
 31080 en=1
 31090 print"{clr}";:n=1
 31100 gosub 25500
 31110 a$="{rvon}#"+mid$(str$(en),2):lb$(1)=left$(a$+"{rvof}    ",8)
 31120 for i=1to fc
 31130 print lb$(i);":";a$(i)
 31140 next i: if fc<>1 then print
 31150 en=en+1:if en>co then 31200
 31160 n=n+1:ifn<=ps then 31100
 31165 iffc=1thenprint
 31170 print"press {rvon}return{rvof} for more";
 31180 gett$:ift$=""then31180
 31185 ift$=" "ort$="{rvof}"thenrestore:readlb$(1):goto 5200
 31190 goto 31090
 31200 if fc=1 then print
 31210 restore:read lb$(1):goto4900
 31300 open4,4
 31310 en=1
 31400 n=1
 31450 gosub25500:c=0
 31460 a$=mid$(str$(en),2):a$=right$("  "+a$,3)+" ":print#4,a$;:c=len(a$)
 31470 print#4,a$(1);:c=c+len(a$(1))
 31480 fori=2to6
 31490 if a$(i)<>"" then print#4,left$(bl$,32+4-c);:c=0:print#4,a$(i):n=n+1
 31500 nexti
 31520 ifc>1thenprint#4:n=n+1
 31530 en=en+1:if en>co then 31600
 31540 n=n+1:ifn<56then31450
 31550 goto31400
 31600 close4:goto5200
 50000 ifti-z9<20orfd>2then50090
 50010 iffd=1thenpoke59411,53:forz=1to60:next:poke59411,61
 50020 iffd=2thenzz=peek(59456):poke59456,zzand239:forz=1to60:next:poke59456,zz
 50090 z9=ti:return
 50100 iffd>2then50200
 50110 print"{down}please rewind tape"fd"{left},":print"and then press {rvon}return
 50130 gosub52000:pokeqb,122:pokeqb+1,2:iffd=2thenpokeqb,58:pokeqb+1,3
 50150 open1,fd,dr,fi$:zp=ti:return
 50200 fl$=dr$+fi$:open15,8,15:ifdr=1thenprint#15,"s"fl$
 50210 fl$=fl$+",s,"+mid$("rrw",dr+2,1):open1,8,2,fl$
 50230 input#15,er,er$,tk,sc:ifer=0or(dr<0ander=62)thener$="":return
 50240 ifer=62then50280
 50250 close1:print"{down}"er;er$tk;sc:print"{down}fix problem and type 'cont'.":end
 50270 goto50210
 50280 print"{down}can't open "fi$" on drive "left$(fl$,1);"{down}"
 50300 close1:close15:return
 52000 get t$:if t$=""then 52000
 52010 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zr=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzr>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzr>1thenin$=left$(in$,zr-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zr>1)):forz=2tozr:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 ql=216:ifpeek(50000)=0thenql=245
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by roby hyde and
 62006 printtab(20)"hunter hancock
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}maintains a mailing list
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto 60300
   10 rem mars
  100 dimd$(18),o$(54),l(48),p(18,6):l=1:l2=1:for x=1 to 48:print:next
  110 forx=1to18:readd$(x):next
  120 datacontrol room,engine room,barren field,moat
  130 dataplaza,ancient temple,dry well,deserted room,garden,observatory
  150 datakitchen-i think,maze of halls,dank cellar,secret passage
  160 dataxptl's shop of mating scents
  170 datamartian habitat,ledge overlooking the city,sandsled
  180 forx=1to54:reado$(x):o$=o$+left$(o$(x),2):ifx>6thenreadl(x-6)
  200 next:datanorth,south,east,west,up,down
  210 datanets,2,fastgro,20,holy grail,5,seeds,20
  220 dataalchohol,20,brass tubing,13,statue of flute player,3
  230 data gold bars,13,torch,6
  240 datainjector pump,7,harmonica,20,lighter,20,sneakers,19,table,15,helmet,20
  260 datamatian,20,timepiece,19,bill of materials for still,19,jeweled club,18
  280 dataoxybottle,19,air rocks,3,flasks,15,textbook,1,crates-closed,19
  290 datatrapdoor-open,20,mirror on wall,8
  300 datarope,17,sign,5,rug,8,water,4,organ,8,fire,20,(sign) use fertilizer,9
  320 databutton-red push type,1,sandsled,3,oven,11,kettle,11
  330 datacontrol panel,1,rack-says place injector here,2
  340 datalow-ox warning-on,2,recharging station,2,statue on dias,6
  350 dataramp,7,locker,2,drywell,6,viewport,1,(sign) bring fuel here,2
  360 datapockets,20
  370 fory=1to18:forx=1to6:readp(y,x):nextx,y
  380 data,,,,,2,,,3,,1,,4,4,5,2,,,3,3,4,4,4,4
  390 data6,15,8,3,,,,5,9,,,,,,12,,,
  400 data,,,5,,,,,,6,,,,,,17,
  410 data14,,16,,,,,,,,,,,,,12,,,
  420 data,,,10,,8,5,,,,16,,11,,,,,15
  430 data,,10,,,,,,,,,3
  440 w$="gotalodrhioptiliunpuplgerebr":goto760
  460 ifl=12thenforx=1to6:p(12,x)=0:next:p(12,int(2*rnd(8))+1)=13
  470 p(12,(int(rnd(8)*2)+3))=7:ifl=2theno=0
  480 ifl(4)<>11orl(6)<>11orl(32)<>11orl(30)<>11orgr=0then500
  490 o$(43)="still":ifl(5)=20thenl(5)=11
  500 input"tell me what to do";a$:print:b$="":forx=1tolen(a$)
  510 ifmid$(a$,x,1)=" "andlen(a$)>x+1thenb$=mid$(a$,x+1,2)
  520 next:f=0:s=0:gosub1660
  540 l2=l:ifb$="tu"thenb$="br"
  560 ifb$="wh"thenb$="se"
  570 ifb$="gr"thenb$="ho"
  590 ifb$="cl"thenb$="je"
  600 g=g+1:ifg<60orrnd(8)<.9orl(16)<>20then630
  610 x=int(rnd(8)*31):ifl(x)<>0andl(x)<>20thenl(x)=int(rnd(8)*18+1)
  620 print"i hear a faint rustling sound"
  630 ifl(16)=20thenifrnd(8)>.95thenprint"i am being watched"
  640 ifl(4)=9thenifl(30)=9thenifl(2)=9thengr=1:o$(10)="wheat":l(30)=4
  650 forx=1tolen(w$)step2:ifmid$(w$,x,2)=a$thenf=(x+1)/2
  660 next:forx=1tolen(o$)step2:ifmid$(o$,x,2)=b$thens=(x+1)/2
  670 next:ifa$="in"then1030
  680 ifm=4andf<>2thenm=0:print:print"he left":l(16)=20:print
  690 ifl>2theno=o+1:ifo>50thenprint"low ox - recharge"
  700 ifl>2andl(20)<>0theno=o+7
  710 ifo>63andl>2thenprint"gasp gasp! no air! dead":end
  720 iff<1thenprint"huh?":goto460
  730 onf-1goto820,1060,1230,1390,1450,1490,1530,1590,1600,1680,820,1060,1390
  740 ifs<1ors>6orl=6ands=4then1270
  750 ifp(l,s)thenl=p(l,s):l2=l
  760 print"i am in ";d$(l):y=0
  770 ifli=0and(l=7orl=13orl=14)thenprint"dark .- cant see":goto460
  780 print"i see ";:forx=1to47:ifl(x)=l2thenprint">";o$(x+6):y=y+1
  790 next:print:print:ify=0thenprint"nothing"
  800 print"obvious exits are ":forx=1to6:ifp(l,x)>0thenprinto$(x)"!";
  810 next:print:goto460
  820 ifs<6thenprint"huh?":goto460
  830 ifs=11or(s=22andl(16)=l)then940
  850 ifl(s-6)<>lthenprint"i don't see it here":goto460
  860 ifc>6thenprint"can't i'm carrying too much":goto460
  870 ifs>37thenprint"i can't take that":goto460
  880 ifs>31thenons-31goto900,910,920,930,940
  890 l(s-6)=0:c=c+1:goto460
  900 print"it's glued to the wall-but fragile":goto460
  910 print"sign fell":l(27)=0:goto460
  920 print"it's tied to a ledge on the second floor":goto460
  930 l(29)=0:ifl=8thenprint"aha!":l(25)=8:goto460
  940 input"in what";a$:gosub1660
  950 ifs=22and(a$<>"ne"orl(1)<>0)thenprint"got away":l(16)=20:goto460
  960 ifs=22then1740
  970 ifs=11anda$<>"fl"thenprint"it evaporated":goto460
  980 ifs=11thenl(5)=0:goto460
  990 ifa$="fl"andl(22)=0thenprint"it dissolved":l(22)=15:goto460
 1000 ifa$="ho"ora$="gr"thenprint"it leaked out-it's a holey grail":goto460
 1010 ifa$="he"andl(15)=0thenl(30)=0:goto460
 1020 print"i don't think that will work":goto460
 1030 print"i am carrying ";:forx=1to34:ifl(x)=0thenprinto$(x+6)
 1050 next:print:goto460
 1060 ifb$=""then760
 1065 ifs<7thenifp(l,s)>0thenprintd$(p(l,s)):goto460
 1070 if(s=29ors=24ors=9ors=23)thenifl(s-6)<>0then1220
 1080 ifs<>32orl<>8then1100
 1090 print"i see rugged person in pocketed survival suit":goto500
 1100 ifs=54andl(11)=20thenprint"a harmonica and a lighter":l(11)=0:l(12)=0:goto460
 1120 ifs=4andl=6thenprint"there is something there":goto460
 1130 ifs=34thenprint"earthy go home!!":goto460
 1140 ifs=41andl=3thenl2=18:goto780
 1150 ifs=52andl=1thenl2=3:goto780
 1160 ifs=9thenprint"seeds!":l(4)=l:goto460
 1180 ifs=29thenprint"suggested fuels":print"hydrazine":print"or alchohol":goto460
 1190 ifs=24thenprint"water,pot,tubing,fire,grain":goto460
 1200 ifs=23thenprint60-o"minutes of air left":goto460
 1210 print"nothing special":goto460
 1220 print"don't have it":goto460
 1230 ifb$=""ors<6thenprint"huh?":goto460
 1240 ifl(s-6)<>0then1220
 1250 ifb$="ru"andl=8thenl(25)=20
 1260 l(s-6)=l:c=c-1:goto460
 1270 ifs=41andl=3thenl=18:l2=l:goto760
 1280 ifl<>6then1310
 1290 ifs=4anddr=0thenprint"i fell in and died":end
 1300 ifs=4thenl=7
 1310 ifl(25)=8ands=31andl(13)<>0then1370
 1320 ifs=31andl=8thenl=7:l2=l:goto760
 1330 ifs=49andl=7andl(29)=8thenprint"blocked":goto460
 1340 ifs=49andl=7andc>1thenprint"carrying too much":goto460
 1350 ifs=49andl=7thenl=8:l2=l:goto760
 1360 goto460
 1370 print"i slipped down an incline and died":end
 1380 goto460
 1390 input"with what";a$:gosub1660:ifa$="je"thena$="cl"
 1400 ifa$="fi"ora$="ha"ora$="fo"thenprint"you're kidding!":goto460
 1410 ifs>32ors<30ora$<>"cl"orl(19)<>0thenprint"nothing yet":goto460
 1420 ifs=32theno$(32)="broken mirror":p(8,5)=14:goto460
 1430 ifs=30theno$(30)="splinters":l(2)=l
 1440 goto460
 1450 ifs=30thenprint"glued":goto460
 1460 ifs<>50orl<>2then460
 1470 forx=1to40:ifl(x)=19thenl(x)=2
 1480 next:goto460
 1490 ifs<>33then1520
 1500 input"to what";a$:gosub1660
 1510 ifa$="st"thenr=1:p(6,6)=7:p(7,5)=6:goto460
 1520 print"cant":goto460
 1530 ifs=15andl(9)=0thenli=1:goto460
 1540 ifs<>38thenprint"cant":goto460
 1550 ifl<>11thenprint"not here-aint safe":goto460
 1560 ifl(14)<>11thenprint"not enough wood":goto460
 1570 ifl(21)<>11thenprint"not enough air":goto460
 1580 l(32)=11:goto460
 1590 li=0:goto460
 1600 ifs<>40thenprint"nothing happened":goto460
 1610 ifl(5)<>2thenprint"computer reports":print"no fuel
 1620 ifl(10)<>2thenprint"no injector pump"
 1630 ifl(8)<3orl(19)<3thenprint"too heavy for takeoff":goto460
 1640 ifl(5)=2andl(10)=2then1750
 1650 goto460
 1660 iflen(a$)>1thena$=left$(a$,2)
 1670 return
 1680 ifs<>17orl(11)<>0thenprint"can't":goto460
 1690 m=m+1:print"the rustling sound is getting louder"
 1700 ifm>2thenprint"....much louder!"
 1710 ifm<4then460
 1720 print:print"a martian just walked in":l(16)=l:goto460
 1740 o$(7)="netful of martian":m=5:l(16)=21:l(15)=l:goto460
 1750 print"{clr}":forx=1to50:printtab(x)"wwhhoooosshhh":next:print"congratulatons":print:print:end
 1800 if l=1thenprint"look around the ship":goto 460
 1810 if l=8thenprint"not all exits are obvious":goto460
 1820 ifl(15)=20andrnd(8)>5thenprint"what's that rustling?"
 1830 print"why ask me for help-it's your adventure":goto460
    1 print"{clr}{down} SS{$a0}SS  SSSS  SSSS{$a0}{$a0}SSSSS{$a0} SSSS   SSSS
    2 print" S S S  S  S  S       S    S      S  S
    3 print" S{$a0}S{$a0}S{$a0} SSSS{$a0}{$a0}SSSS{$a0}{$a0}{$a0}{$a0}S{$a0}{$a0}{$a0}{$a0}SSSS{$a0}{$a0}{$a0}SSSSS
    4 print" S   S  S  S     S    S    S      S   S
    5 print" S   S  S  S  SSSS    S    SSSS{$a0}{$a0}{$a0}S   S
    6 print"
    7 print"
    8 print"          SS{$a0}SS  S{$a0}{$a0}SS S{$a0} SS
    9 print"          S S S{$a0}{$a0}S  S SS  S S
   10 print"          S   S  S  S  S  S{$a0}{$a0}S
   11 print"          S   S  S  S  S  S  S
   12 print"          S   S  S  S  S{$a0} SSS
   13 printspc(9);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}(druk op een toets)"
   14 getb$:ifb$=""goto14
   19 print"{clr}        *****{rvon} mastermind {rvof}*****"
   20 print
   25 print"probeer een aantal verschillende getal- len te raden tussen 0 en 10"
   30 print"dit kan in 3 verschillende moeilijkheids-graden: 2 - 3 - 4 "
   31 print"geef aan met welke moeilijkheidsgraad jewilt spelen en return:"
   32 gett$:ift$=""then32
   33 t=val(t$):ift>1andt<5goto35
   34 gosub1000:print"fout getal, neem nieuwe moeilijkheids-  graad":goto32
   35 print"{down}{down}{down}{down}":ifz$="j"then38
   36 print "de moeilijkheidsgraad komt overeen met  het aantal getallen dat";
   37 print" je moet raden!"
   38 print"mogen dezelfde getallen vaker voorkomen?ja of nee?
   39 getb$:ifb$=""then39
   40 print"probeer nu deze getallen te raden en    druk steeds na ieder ";
   41 print"getal de return    toets in!" :print"begrepen?":if z$="j" goto 44
   42 getm$:ifm$<>"j"andm$<>"n"then42
   43 ifm$="n"thenprint"{down}{down}{down}{down}":gosub900
   44 print"{clr}{down}     {rvon}de eerste getallen zijn:{down}"
   45 forn=1tot:rem trek kaart
   48 a(n)=int(rnd(1)*9+1)
   50 nextn
   51 ifb$="j"then110
   52 forr=1tot-1 :rem geen dubbele                            kaarten
   55 fors=r+1tot
   60 ifa(r)=a(s)thengoto45
   65 nexts
   68 nextr
  110 v=0:rem aantal beurten
  115 v=v+1
  120 form=1tot
  121 goto130
  124 print"dit getal is niet correct toets";t;"nieuwegetallen in{down}":goto 120
  130 inputb(m)
  140 ifb(m)<1thengoto124
  150 ifb(m)>9thengoto124
  160 nextm
  170 g=0 :rem aantal goede getallen = g
  180 p=0 :rem aantal goede plaatsen = p
  218 print
  220 foro=1tot:print"{up}{up}    ":nexto
  225 print"{up}{left}";
  230 foro=1tot:printb(o);:nexto
  233 rem hulpgetallen 'ah' voor aantal       goede getallen bij zelfde getallen
  235 forx=1tot:ah(x)=a(x):nextx
  240 forn=1tot:ifb(n)=a(n)thenp=p+1
  241 nextn
  243 rem loop voor bepaling aantal goed
  245 fory=1tot
  250 form=1tot
  260 ifb(y)=ah(m)theng=g+1:ah(m)=0:goto285
  280 nextm
  285 nexty
  290 ifp=tthengoto500
  300 print"{up}"
  310 printspc(13);"{up}";g;"getal(len) goed,waarvan"
  315 printspc(13);p;"op de goede plaats"
  317 print
  320 goto115
  500 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}";spc(14);"{rvon}geraden"
  510 print"{down}{down}{down}{down}  je hebt er ";v;" beurten over gedaan"
  520 printspc(9);"{down}{down}{down}{down}{down}{down}{down}{down}{rvon}nog een spelletje?"
  525 getz$:ifz$=""then525
  527 ifz$="j"thenprint"{clr}{down}{down}":goto31
  530 ifz$<>"n"then525
  535 print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  oh wat jammer, volgende keer beter"
  537 printspc(8);"{down}{down}{down}{down}{rvon}groetjes van wim {down}{down}{down}{down}"
  540 end
  900 print"{down}{down}{down}{down}{down}{rvon}domme gans! lees alles nog eens opnieuw":goto42
 1000 fori=1to5:print"":nexti
 1010 return
    5 dimk$(10),l(10),l1(10)
   10 print"{clr}"tab(15)"master mind"
   15 print"do you need instructions";
   16 inputa$:ifleft$(a$,1)="y"thengosub1000
   20 print"how many holes";
   30 input a
   40 print"how many colors";
   50 input b
   60 print"are duplicates ok";
   70 input a$
   80 print"{down}the colors are the digits 1 thru";b
   85 print
   90 forj=1tob:l(j)=0:next
  100 forj=1toa
  110 x=int(10*rnd(6))
  112 ifx>borx<1then110
  115 v$=str$(x):k$(j)=right$(v$,1)
  120 ifleft$(a$,1)="y"then140
  130 ifl(x)=1then110
  140 l(x)=l(x)+1
  150 next
  190 vv=0
  200 inputg$
  205 forj=1tob:l1(j)=l(j):next
  210 m=len(g$)
  220 ifm>athenm=a
  230 y=0:z=0
  240 forj=1tom
  250 x$=mid$(g$,j,1)
  260 c=val(x$)
  270 ifc>borc<1then310
  280 ifx$=k$(j)thenz=z+1
  300 ifl1(c)=0then310
  302 rem
  305 y=y+1:l1(c)=l1(c)-1
  310 next
  315 vv=vv+1
  320 print"{up}"tab(20)"blk"ztab(30)"wht"y-z
  330 ifz<>athen200
  340 print"you win !!!!!! it took";vv"guesses"
  350 print"do you want another game"
  355 print"enter ""r"" to redo parameters"
  356 print"enter y to redo same game"
  360 inputb$
  370 ifb$="y"then80
  380 ifb$="r"then10
 1000 print"the machine will make up a code for"
 1010 print" for you to guess. each time you make"
 1020 print" a guess it will till you how many are"
 1030 print" are the correct number in the right"
 1040 print" position "chr$(34)"blk"chr$(34);
 1050 print" and how many"
 1060 print" are just the correct number in the"
 1070 print" wrong position "chr$(34)"wht"chr$(34)
 1080 print
 1090 print"enter the number of holes or numbers"
 1100 print" in the code"
 1110 print"enter the number of different digits"
 1120 print" and tell if it is ok for there to"
 1130 print" be duplicates"
 1140 return
    5 dimk(50):diml(50):dimm(50)
    8 printchr$(14)
   10 print"{clr}          {rvon}**************  MASTER{$a0}MIND  *************{rvof}"
   20 print:print
   30 print"probeer 4 verschillende getallen te raden tussen 0 en 10"
   35 t=0
   50 forn=1to4:a(n)=int(rnd(1)*9+1):nextn
   70 forr=1to3
   80 fors=r+1to4
   90 ifa(r)=a(s)thengoto50
  100 nexts
  110 nextr
  115 if t>0thenprint"{down}{down}{down}{rvon} volgende cijfers s.v.p.{rvof}"
  120 form=1to4
  130 inputb(m)
  140 ifb(m)<1thengoto700
  150 ifb(m)>9andb(m)<50thengoto700
  155 ifb(m)=50thengoto800
  160 nextm
  170 forr=1to3
  180 fors=r+1to4
  190 ifb(r)=b(s)thengoto600
  200 nexts
  210 nextr
  215 t=t+1
  220 g=0
  230 p=0
  240 forn=1to4
  250 form=1to4
  260 ifa(n)=b(m)theng=g+1
  270 nextm
  280 ifa(n)=b(n)thenp=p+1
  290 nextn
  300 ifp=4thengoto500
  315 goto1000
  500 print"                         geraden in"t"beurten":print:print
  510 ift<6thengoto550
  520 ift<10thengoto560
  530 ift<13thengoto570
  540 print"{rvon}WAARDELOOS{rvof}"
  545 end
  550 print"                  {rvon}OPVALLEND{$a0}GOED{$a0}OF{$a0}WAS{$a0}HET{$a0}GELUK{$a0}?{rvof}"
  555 end
  560 print"                               {rvon}AMATEUR{rvof}"
  565 end
  570 print"                             {rvon}BEGINNELING{rvof}"
  575 end
  600 print"{rvon}ik zei 4 verschillende getallen{rvof}"
  610 print"    probeer het nog eens"
  620 goto120
  700 print"{rvon}het getal moet tussen 0 en 10 liggen{rvof}"
  710 goto130
  800 printa(1);a(2);a(3);a(4)
  810 print"het was toch zo makkelijk":end
 1000 if t=1then1100
 1005 if t=2then1200
 1010 if t=3then1300
 1015 if t=4then1400
 1020 if t=5then1500
 1025 if t=6then1600
 1030 if t=7then1700
 1035 if t=8then1800
 1040 if t=9then1900
 1045 if t=10then2000
 1050 if t=11then2100
 1055 if t=12then2200
 1060 if t=13then2300
 1065 if t=14then2400
 1070 if t=15then2500
 1080 if t>15then540
 1100 gosub3000
 1110 k(1)=b(1):k(2)=b(2):k(3)=b(3):k(4)=b(4):l(1)=g:m(1)=p
 1120 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1):goto115
 1200 gosub3000
 1210 k(5)=b(1):k(6)=b(2):k(7)=b(3):k(8)=b(4):l(2)=g:m(2)=p
 1220 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1230 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2):goto115
 1300 gosub3000
 1310 k(9)=b(1):k(10)=b(2):k(11)=b(3):k(12)=b(4):l(3)=g:m(3)=p
 1320 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1330 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1340 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3):goto115
 1400 gosub3000
 1410 k(13)=b(1):k(14)=b(2):k(15)=b(3):k(16)=b(4):l(4)=g:m(4)=p
 1420 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1430 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1440 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1450 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4):goto115
 1500 gosub3000
 1510 k(17)=b(1):k(18)=b(2):k(19)=b(3):k(20)=b(4):l(5)=g:m(5)=p
 1520 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1530 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1540 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1550 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 1560 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5):goto115
 1600 gosub3000
 1610 k(21)=b(1):k(22)=b(2):k(23)=b(3):k(24)=b(4):l(6)=g:m(6)=p
 1620 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1630 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1640 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1650 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 1660 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 1670 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6):goto115
 1700 gosub3000
 1710 k(25)=b(1):k(26)=b(2):k(27)=b(3):k(28)=b(4):l(7)=g:m(7)=p
 1720 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1730 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1740 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1750 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 1760 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 1770 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 1780 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7):goto115
 1800 gosub3000
 1810 k(29)=b(1):k(30)=b(2):k(31)=b(3):k(32)=b(4):l(8)=g:m(8)=p
 1820 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1830 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1840 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1850 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 1860 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 1870 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 1880 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 1882 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8):goto115
 1900 gosub3000
 1910 k(33)=b(1):k(34)=b(2):k(35)=b(3):k(36)=b(4):l(9)=g:m(9)=p
 1920 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 1930 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 1940 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 1950 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 1960 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 1970 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 1980 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 1982 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 1984 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9):goto115
 2000 gosub3000
 2010 k(37)=b(1):k(38)=b(2):k(39)=b(3):k(40)=b(4):l(10)=g:m(10)=p
 2020 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2030 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2040 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2050 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2060 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2070 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2080 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2082 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2084 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2086 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10):goto115
 2100 gosub3000
 2110 k(41)=b(1):k(42)=b(2):k(43)=b(3):k(44)=b(4):l(11)=g:m(11)=p
 2120 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2130 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2140 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2150 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2160 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2170 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2180 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2182 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2184 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2186 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10)
 2188 printk(41),k(42),k(43),k(44),spc(5),l(11),spc(5),m(11):goto115
 2200 gosub3000
 2210 k(45)=b(1):k(46)=b(2):k(47)=b(3):k(48)=b(4):l(12)=g:m(12)=p
 2220 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2230 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2240 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2250 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2260 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2270 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2280 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2282 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2284 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2286 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10)
 2288 printk(41),k(42),k(43),k(44),spc(5),l(11),spc(5),m(11)
 2290 printk(45),k(46),k(47),k(48),spc(5),l(12),spc(5),m(12):goto115
 2300 gosub3000
 2310 k(49)=b(1):k(50)=b(2):k(51)=b(3):k(52)=b(4):l(13)=g:m(13)=p
 2320 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2330 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2340 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2350 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2360 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2370 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2380 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2382 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2384 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2386 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10)
 2388 printk(41),k(42),k(43),k(44),spc(5),l(11),spc(5),m(11)
 2390 printk(45),k(46),k(47),k(48),spc(5),l(12),spc(5),m(12)
 2392 printk(49),k(50),k(51),k(52),spc(5),l(13),spc(5),m(13):goto115
 2400 gosub3000
 2410 k(53)=b(1):k(54)=b(2):k(55)=b(3):k(56)=b(4):l(14)=g:m(14)=p
 2420 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2430 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2440 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2450 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2460 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2470 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2480 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2482 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2484 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2486 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10)
 2488 printk(41),k(42),k(43),k(44),spc(5),l(11),spc(5),m(11)
 2490 printk(45),k(46),k(47),k(48),spc(5),l(12),spc(5),m(12)
 2492 printk(49),k(50),k(51),k(52),spc(5),l(13),spc(5),m(13)
 2494 printk(53),k(54),k(55),k(56),spc(5),l(14),spc(5),m(14):goto115
 2500 gosub3000
 2510 k(57)=b(1):k(58)=b(2):k(59)=b(3):k(60)=b(4):l(15)=g:m(15)=p
 2520 printk(1),k(2),k(3),k(4),spc(5),l(1),spc(5),m(1)
 2530 printk(5),k(6),k(7),k(8),spc(5),l(2),spc(5),m(2)
 2540 printk(9),k(10),k(11),k(12),spc(5),l(3),spc(5),m(3)
 2550 printk(13),k(14),k(15),k(16),spc(5),l(4),spc(5),m(4)
 2560 printk(17),k(18),k(19),k(20),spc(5),l(5),spc(5),m(5)
 2570 printk(21),k(22),k(23),k(24),spc(5),l(6),spc(5),m(6)
 2580 printk(25),k(26),k(27),k(28),spc(5),l(7),spc(5),m(7)
 2582 printk(29),k(30),k(31),k(32),spc(5),l(8),spc(5),m(8)
 2584 printk(33),k(34),k(35),k(36),spc(5),l(9),spc(5),m(9)
 2586 printk(37),k(38),k(39),k(40),spc(5),l(10),spc(5),m(10)
 2588 printk(41),k(42),k(43),k(44),spc(5),l(11),spc(5),m(11)
 2590 printk(45),k(46),k(47),k(48),spc(5),l(12),spc(5),m(12)
 2592 printk(49),k(50),k(51),k(52),spc(5),l(13),spc(5),m(13)
 2594 printk(53),k(54),k(55),k(56),spc(5),l(14),spc(5),m(14)
 2596 printk(57),k(58),k(59),k(60),spc(5),l(15),spc(5),m(15):goto115
 3000 print"{clr}"spc(45)"{rvon}getallen goed{rvof}   -   {rvon}plaatsen goed{rvof}":return
    0 clr:pg$="match":nm$="22":goto62000
    1 " george macrae
    2 " 2492 sinclair cr
    3 " burlington,ontario
    4 " canada l7p3m6
    5 "
    6 " cursor #22 sep 1980
    7 " copyright(c)1980 the code works
    8 " box 550, goleta, ca. 93017
    9 "
   10 " as of 10oct80
  100 dimb%(24),m%(24),g(2)
  110 bl$="                          "
  120 g(0)=0:ld$="{left}{left}{left}{left}{left}{down}"
  130 print"how many players (1-4)? ";:gosub60000
  140 pl=val(in$)
  150 ifpl>4orpl<1thenprint:goto130
  160 fori=1topl
  170 print"{down}who's player";i;"{left}? ";:gosub60000
  180 iflen(in$)>8thenprint"{down}eight letters or less, please":goto170
  190 ifin$=""thenprint"{down}i need a name, for the scoreboard.":goto170
  200 n$(i)=in$:nexti
  210 ifpl>3then270
  220 print"{down}can i play too? ";:gosub60000
  230 ifleft$(in$,1)<>"y"then270
  240 pl=pl+1:n$(pl)="pet"
  250 print"{down}how hard shall i concentrate (1-9)? ";:gosub60000:co=val(in$)
  260 ifco<1orco>9thenprint:goto250
  270 m=0:th=int(rnd(1)*50+50)
  280 a$="{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
  290 b$="{SHIFT--}     {SHIFT--}  {$a0}{$a0}{$a0}{SHIFT--}{$a0}  {$a0}{$a0}{SHIFT--}{$a0}  {$a0}{$a0}{SHIFT--}{$a0}  {$a0}{$a0}{SHIFT--}  {$a0}{$a0}{$a0}{SHIFT--}{$a0}
  300 print"{clr}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  310 fori=1to4:ifi>1thenprinta$
  320 forj=1to3:printb$:nextj,i
  330 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{home}
  340 q$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
  350 fori=1to4:printleft$(q$,4*i-2);"{rght}";
  360 forj=0to5:print"{rvon}     "ld$"  ";chr$(i*6+j+59)"  "ld$"     {up}{up}{rght}";
  370 nextj:print:nexti
  380 fori=1to12:c=int(rnd(1)*(th-1)+1)
  390 gosub860:c=th-c:gosub860
  400 next
  410 goto450
  420 m%(i)=b%(i):ifb%(i)>0thengosub880:print"{rght}";left$(str$(b%(i))+" ",3)
  430 return
  440 gosub880:print"{rvon}  "chr$(i+64)"  ":return
  450 printleft$(q$,18)tab(16);"{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
  460 printtab(16);"{rvon}{CBM-K}numbers {rvof}{CBM-K}":printtab(16);"{rvon}{CBM-K}must add{rvof}{CBM-K}"
  470 printtab(16);"{rvon}{CBM-K}up to ";mid$(str$(th)+" ",2,2);"{rvof}{CBM-K}"
  480 printtab(16);"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}
  490 b$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  500 printleft$(q$,18);tab(26);"{CBM-A}";b$;"{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  510 printtab(26);"{SHIFT--}score board{SHIFT--}":printtab(26);"{CBM-Q}";b$;"{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-W}"
  520 fori=1to4:printtab(26);"{SHIFT--}        {SHIFT--}  {SHIFT--}":nexti
  530 printtab(26);"{CBM-Z}";b$;"{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-X}{home}"
  540 printleft$(q$,21);
  550 fori=1topl:printtab(27);n$(i):nexti
  560 fork=1topl
  570 printleft$(q$,17):fori=1to6:printleft$(bl$,13):next
  580 printleft$(q$,18)n$(k)"'s turn";left$(bl$,9-len(n$(k)))
  590 forg=1to2
  600 printleft$(q$,19+2*g)"guess #";mid$(str$(g),2);" - ";
  610 ifn$(k)="pet"thenonggosub990,1050:goto650
  620 gosub1110:g(g)=asc(in$)-64
  630 ifg(g)<1org(g)>24org(g)=g(g-1)then600
  640 ifb%(g(g))<0then600
  650 i=g(g):gosub420
  660 nextg
  670 ifb%(g(1))+b%(g(2))=ththenm=m+1:gosub890:goto700
  680 fori=1to3000:next
  690 forg=1to2:i=g(g):gosub440:nextg
  700 ifs(k+1)>6thenm=0:goto740
  710 ifm=12then740
  720 nextk
  730 goto560
  740 printleft$(q$,17):fori=1to7:printbl$:nexti
  750 ifm=0then790
  760 print"{up}{up}{up}{up}{up}{up}{up}     {rvon}tie game":m=0:fori=1topl:ifs(i)>mthenm=s(i)
  770 next:print"  congratulations{down}":fori=1topl:ifs(i)=mthenprintn$(i)
  780 next:print"{up}{up}";:goto800
  790 print"{up}{up}{up}{up}  "n$(k+1)" wins!!!
  800 fori=1to2000:next
  810 print"{down}{down}want another game? ";:gosub1110
  820 ifleft$(in$,1)="n"thenprint"{clr}{down}{down}":end
  830 fori=1to24:b%(i)=0:m%(i)=0:nexti
  840 fori=1topl:s(i)=0:nexti
  850 goto270
  860 a=int(rnd(1)*24+1):ifb%(a)<>0then860
  870 b%(a)=c:return
  880 j=int((i-1)/6):printleft$(q$,4*j+3)tab(6*(i-6*j)-5);:return
  890 printleft$(q$,19+k)
  900 fori=1to60
  910 printtab(27);"{rvon}";n$(k);"{up}"
  920 printtab(27);n$(k);"{up}"
  930 nexti:s(k)=s(k)+1
  940 forg=1to2:b%(g(g))=-1:i=g(g)
  950 gosub880:print"{up}     "ld$"     "ld$"     ":m%(g(g))=-1
  960 nextg
  970 printleft$(q$,20+k)tab(36)right$(str$(s(k)),2)
  980 k=k-1:return
  990 rem pet
 1000 x=0:y=0:forj=1to23
 1010 fori=j+1to24:ifm%(j)+m%(i)=ththenx=j:y=i:goto1040
 1020 nexti,j
 1030 x=int(rnd(1)*24)+1:ifm%(x)<>0then1030
 1040 g(1)=x:printchr$(x+64):return
 1050 forj=1to2000:next:ifint(rnd(1)*9+1)>cothen1090
 1060 ify<>0theni=y:goto1100
 1070 fori=1to24:ifm%(g(1))+m%(i)=thandg(1)<>ithen1100
 1080 nexti
 1090 i=int(rnd(1)*24+1):ifm%(i)<0org(1)=ithen1090
 1100 g(2)=i:printchr$(i+64):return
 1110 zt=ti:zc=2
 1120 getin$:ifin$<>""then1150
 1130 ifti>ztthenprintmid$(" ?",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1140 goto1120
 1150 print" {left}";
 1160 if(in$>=" "andin$<"_")or(in$>=chr$(160)andin$<="{CBM-*}")thenprintin$;
 1170 print:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60410 ifpeek(50000)=0thenreturn
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by george macrae
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 gosub60500
 62030 print"{down}find numbers with a given sum.
 62050 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62060 gett$:ift$=""then62060
 62090 goto60300
   10 rem * * * 23 matches
  100 rem * * * ? the instructions
  120 print:print "we start with a pile of matches.":print
  140 print"we take turns. on each turn we can ":print
  145 print"remove 1,2,or 3 matches from the pile.":print
  160 print"the one who has to take the last match":print
  165 print"loses. you go first. ":print
  190 print"may the best computer (ha ha) win.":print
  200 rem * * * initialize the number of matches
  205 print"how many matches do you want to start with"
  210 input m%:print
  215 if m%>38 then print"choose a number less then 39":print:goto 205
  230 print"there are now "m%" matches"
  231 if m%< 20 goto 656
  235 goto 680
  300 rem * * * the human moves
  310 print"how many do you take";
  320 input h%:print
  330 rem * * * check if h=1,2,or 3
  340 h%=int(h%)
  350 if(h%<1) or (h%>3) then 800
  360 rem * * * adjust # matches left
  370 m%=m%-h%
  380 rem * * * check if the human lost
  390 if m%<=0 then 850
  500 rem * * * the computer moves
  510 if m%=1 then 880
  520 rem * * * try to leave  4k + 1  matches
  530 r%=m%-4*int(m%/4)
  540 rem * * * if r=1 then there is no 'good' move
  550 if r%=1 then 590
  560 rem * * * the winning move is  (r+3) mod 4
  570 c%=(r%+3)-4*int((r%+3)/4)
  580 goto 610
  590 rem * * * make a random move
  600 c%=int(3*rnd(5))+1
  610 rem * * * the computer moves
  620 print"i took";c%;
  630 rem * * * adjust # matches left and print it
  640 m%=m%-c%
  650 print". . .  there are now";m%;"matches.":print
  655 if m%>19 goto 680
  656 z%=m%
  660 for v=1 to z%:print"Q ";:next v:print
  661 for v=1 to z%:print"O{CBM-G}";:next v:print
  662 for v=1 to z%:print"L{CBM-G}";:next v:print:print
  670 goto 300
  680 for v=1 to (m%-19):print"Q ";:next v:print
  681 for v=1 to (m%-19):print"O{CBM-G}";:next v:print
  682 for v=1 to (m%-19):print"L{CBM-G}";:next v:print:print
  683 z%=19
  684 goto660
  800 rem * * * the human cheated
  810 print"you cheated,but i'll give you another":print:print"chance":print
  820 goto 300
  850 rem * * * the computer won
  860 print:print"i won!better luck next time.":print
  870 goto 900
  880 rem * * * the human won
  890 print"o.k.so you won(lucky). . .":print
  900 rem * * * play again?
  910 print"do you want to play again(y/n)";
  920 input a$
  930 if left$(a$,1  )="y" then 200
  999 end
    0 clr:pg$="maxit":nm$="25":goto62000
    1 " copyright(c) 1978 harry j. saal
    2 " 2585 east bayshore road
    3 " palo alto, ca 94303
    4 "
    5 " cursor #25, april, 1981
    6 " copyright(c)1978 harry j. saal
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 1may81
  100 gosub1620:sz=7:nq=(sz+1)*(sz+1):dim av(nq):gosub60400
  140 print"{down}1 or 2 players? ";:gosub60000
  150 np=val(in$):ifnp=1then200
  160 if np=2then180
  170 er$="{down}that's not a 1 or a 2!":gosub1080:goto140
  180 print"{down}who is player 1? ";:gosub60000:p1$=in$:ifin$=""thenp1$="player1"
  190 print"{down}who is player 2? ";:gosub60000:p2$=in$:ifin$=""thenp2$="player2"
  195 goto220
  200 p2$="the pet":print"{down}what's your name? ";:gosub60000:p1$=in$
  210 ifin$=""thenp1$="player1"
  220 s1=0:s2=0:gosub 1090
  240 i=rnd(-ti):md=1
  250 for k=1tonq:av(k)=k:next
  260 for k=nqto1 step -1
  270 read pc
  280 p1=o+int(k*rnd(o))
  290 j=av(p1)-o
  300 if p1<k then for a3=p1 to k-o:av(a3)=av(a3+o):next
  310 i=int(j/(sz+o)):j=j-(sz+o)*i
  320 bd(i,j)=pc:gosub 530
  330 next k:restore
  340 data 15,10,9,9,8,8,7,7,7,6,6,6
  350 data 5,5,5,5,4,4,4,4,3,3,3,3,3
  360 data 2,2,2,2,2,2,1,1,1,1,1
  370 data 0,0,0,0,0,0,-1,-1,-1,-1,-1
  380 data -2,-2,-2,-2,-3,-3,-3
  390 data -4,-4,-4,-5,-5,-6,-6
  400 data -7,-9,100
  420 pl=1:gosub 620:if fl=0 then 460
  440 pl=2:gosub 620:if fl<>0 then 420
  450 gosub1070:print"{down}"
  460 on 2+sgn(s2-s1) gosub 500,510,520
  470 input"{down}do you want to play again";c$
  480 if "y"=left$(c$,1) then 220
  490 end
  500 printp1$;" won by ";str$(s1-s2);" points":return
  510 print"it's a tie!!!           ":return
  520 printp2$;" won by ";str$(s2-s1);" points":return
  530 pc=bd(i,j)
  550 d$=left$("{down}{down}{down}{down}{down}{down}{down}{down}",o+i)
  560 r$=left$("{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}",o+j)
  570 print"{home}";d$;d$;tab(5);r$;r$;r$;
  580 if md=2 then print"{rvon}";
  590 if pc=oh then print"{rvon}**":c1=i:c2=j:return
  600 if pc=mh then print"  ":return
  610 printright$(" "+str$(pc),2):return
  620 if pl=2 then 660
  630 fl=600:for j=0tosz:fl=fl+bd(c1,j):next
  640 if fl=0 then return
  650 nm$=p1$:dx=1:dy=0:gosub690:return
  660 fl=600:for i=0tosz:fl=fl+bd(i,c2):next
  670 if fl=0 then return
  680 nm$=p2$:dx=0:dy=1:gosub690:return
  690 y=c1:x=c2:fx=1:for i=1to9:get a1$:next
  710 fx=len(nm$):t=0:if pl=2 then t=39-fx
  720 if np=1 and pl=2 then gosub 1280:goto 990
  740 tn=ti+2
  750 getc$:if c$<>"" then 810
  760 if ti<tn then 750
  770 print "{home}";tab(t+fx-1);mid$(nm$,fx,1)
  780 fx=fx+1:if fx>len(nm$)then fx=1
  790 print "{home}";tab(t+fx-1);"{rvon}";mid$(nm$,fx,1)
  800 goto 740
  810 if c$="4" and dx then dx=-1:goto 860
  820 ifc$="6"anddx then dx=1:goto 860
  830 if c$="8" and dy then dy=-1:goto 860
  840 if c$="2" and dy then dy=1:goto 860
  850 goto 950
  860 ox=x:oy=y
  870 y=y+dy: if y>sz then y=0
  880 ify<0theny=sz
  890 x=x+dx: if x>sz then x=0
  900 ifx<0thenx=sz
  910 pt=bd(y,x): if abs(pt)=100 then 870
  920 md=1:i=oy:j=ox:gosub 530
  930 md=2:i= y:j= x:gosub 530
  940 goto 750
  950 if c$<>chr$(13) then750
  960 print "{home}";tab(t);nm$
  970 if abs(bd(y,x))=100 then 750
  990 md=1:i=c1:j=c2:bd(i,j)=-100:gosub 530
 1000 i=y:j=x:pt=bd(i,j):bd(i,j)=100:gosub 530
 1010 if pl=1 then s1=s1+pt
 1020 if pl=2 then s2=s2+pt
 1030 gosub 1070
 1040 gosub1070:printtab(13);"last taken:";:ifpt<0thenprint" ";
 1050 print pt;"{left}   "
 1060 gosub 1230:return
 1070 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
 1080 printer$:return
 1090 poke 59468,12
 1100 print"{clr}";p1$;tab(39-len(p2$));p2$
 1110 print"{down}{down}{SHIFT-*}{rvon}**{rvof}{SHIFT-*}";tab(36);"{rvon}**{rvof}{left}{up}{CBM-G}{down}{down}{left}{CBM-G}"
 1120 print"{down}score";tab(34);"score"
 1130 gosub1230
 1140 print"{home}"
 1150 printtab(7);"{CBM-A}";:for i=1tosz:print"{SHIFT-*}{SHIFT-*}{CBM-R}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-S}"
 1160 for j=1tosz
 1170 printtab(7);:for i=0tosz:print"{SHIFT--}  ";:next:print"{SHIFT--}"
 1180 printtab(7);"{CBM-Q}";:for i=1tosz:print"{SHIFT-*}{SHIFT-*}{SHIFT-+}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-W}"
 1190 next j
 1200 printtab(7);:for i=0tosz:print"{SHIFT--}  ";:next:print"{SHIFT--}"
 1210 printtab(7);"{CBM-Z}";:for i=1tosz:print"{SHIFT-*}{SHIFT-*}{CBM-E}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-X}"
 1220 return
 1230 print"{home}{down}{down}{down}{down}{down}{down}{down}"
 1240 c$=str$(s1):ifs1>=0thenc$=mid$(c$,2)
 1250 c$=left$(c$+"    ",4):print c$;
 1260 c$=right$("    "+str$(s2),4):print tab(35);c$;
 1270 return
 1280 mt=mh:gg=-1:for a1=ztosz:pc=bd(a1,c2):if abs(pc)=oh then1450
 1290 mx=mh:for a2=ztosz
 1300 print: print "{home}";tab(t+fx-1);mid$(nm$,fx,1)
 1310 fx=fx+1:if fx>len(nm$)then fx=1
 1320 print "{home}";tab(t+fx-1);"{rvon}";mid$(nm$,fx,1)
 1330 if a2<>c2 thenpk=bd(a1,a2):if pk<>mh and pk>mx then mx=pk:sv=a2
 1340 next a2
 1350 if mx<>mh then 1370
 1360 if pc>mt then mt=pc:gg=a1:goto 1450
 1370 if gg<z then gg=a1
 1380 for a2=ztosz:pq=bd(a2,sv):if pq=mh or a2=a1 then 1440
 1390 my=mh:for a3=ztosz:pw=bd(a2,a3):if a3=sv then 1410
 1400 if abs(pw)<>oh and pw>my then my=pw
 1410 next a3
 1420 if my=mh then my=z
 1430 dt=pc-mx+pq-my:if dt>mt then mt=dt:gg=a1
 1440 next a2
 1450 next a1:y=gg:print"{home}";tab(t);nm$:return
 1530 print"and the second moves vertically. you
 1540 print"light up the place you want to move to"
 1550 print"by using the numeric pad.
 1560 print"(4=left, 6=right, 8=up,2=down).
 1620 dim bd(7,7)
 1630 oh=100:mh=-100
 1640 a3=0:a2=0:pw=0:sv=0:my=0
 1650 pq=0:gg=0:mt=0:mx=0:dt=0
 1660 pc=0:pk=0:a1=0:c2=0
 1670 z=0:o=1:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:z=0:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by harry saal
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}make the most of every move
 62080 print"{down}{down}{down}press {rvon}return{rvof} to continue
 62090 getin$:ifin$=""then62090
 62100 goto60300
    1 poke59468,14
  100 print"{clr}{up}";tab(10);"{rvon}wait i'm working{rvof}"
  110 ti$="000000"
  150 goto240
  200 fora=1to20:forb=1to12:w(a,b)=0:v(a,b)=0:nextb:nexta
  210 q=0:r=0:s=0:i=0:j=0:h=0:v=0:x=0:z=0
  220 goto320
  240 dimw(19,11),v(19,11):h=19:v=11
  490 xx=1:x=19:remx=int(rnd(1)*h+1)
  500 fori=1toh
  510 ifi=xxthen540
  520 print"{rvon}  {rvof}";
  530 goto550
  540 print"{rvon} {rvof}+";
  550 nexti
  560 print"{rvon} {rvof}"
  570 c=1:w(x,1)=c:c=c+1:r=x:s=1:goto900
  730 ifr<>hthen810
  740 ifs<>vthen780
  750 r=1
  760 s=1
  770 goto890
  780 r=1
  790 s=s+1
  800 goto890
  810 r=r+1
  890 ifw(r,s)=0then730
  900 ifr-1<=0then1330
  910 ifw(r-1,s)<>0then1330
  920 ifs-1=0then1100
  930 ifw(r,s-1)<>0then1100
  940 ifr=hthen990
  950 ifw(r+1,s)<>0then990
  960 x=int(rnd(1)*3+1)
  980 onxgoto1850,1920,1990
  990 ifs<>vthen1030
 1000 ifz=1then1070
 1010 q=1
 1020 goto1040
 1030 ifw(r,s+1)<>0then1070
 1040 x=int(rnd(1)*3+1)
 1060 onxgoto1850,1920,2090
 1070 x=int(rnd(1)*2+1)
 1090 onxgoto1850,1920
 1100 ifr=hthen1230
 1110 ifw(r+1,s)<>0then1230
 1120 ifs<>vthen1160
 1130 ifz=1then1200
 1140 q=1
 1150 goto1170
 1160 ifw(r,s+1)<>0then1200
 1170 x=int(rnd(1)*3+1)
 1190 onxgoto1850,1990,2090
 1200 x=int(rnd(1)*2+1)
 1220 onxgoto1850,1990
 1230 ifs<>vthen1270
 1240 ifz=1then1320
 1250 q=1
 1260 goto1280
 1270 ifw(r,s+1)<>0then1320
 1280 x=int(rnd(1)*2+1)
 1300 onxgoto1850,2090
 1320 goto1850
 1330 ifs-1=0then1580
 1340 ifw(r,s-1)<>0then1580
 1350 ifr=hthen1480
 1360 ifw(r+1,s)<>0then1480
 1370 ifs<>vthen1410
 1380 ifz=1then1450
 1390 q=1
 1400 goto1420
 1410 ifw(r,s+1)<>0then1450
 1420 x=int(rnd(1)*3+1)
 1440 onxgoto1920,1990,2090
 1450 x=int(rnd(1)*2+1)
 1470 onxgoto1920,1990
 1480 ifs<>vthen1520
 1490 ifz=1then1570
 1500 q=1
 1510 goto1530
 1520 ifw(r,s+1)<>0then1570
 1530 x=int(rnd(1)*2+1)
 1550 onxgoto1920,2090
 1570 goto1920
 1580 ifr=hthen1700
 1590 ifw(r+1,s)<>0then1700
 1600 ifs<>vthen1640
 1610 ifz=1then1690
 1620 q=1
 1630 goto1650
 1640 ifw(r,s+1)<>0then1690
 1650 x=int(rnd(1)*2+1)
 1670 onxgoto1990,2090
 1690 goto1990
 1700 ifs<>vthen1740
 1710 ifz=1then1780
 1720 q=1
 1730 goto1760
 1740 ifw(r,s+1)<>0then1780
 1760 goto2090
 1780 goto2290
 1850 w(r-1,s)=c
 1860 c=c+1
 1870 v(r-1,s)=2
 1880 r=r-1
 1890 ifc=h*v+1then2310
 1900 q=0
 1910 goto900
 1920 w(r,s-1)=c
 1930 c=c+1
 1940 v(r,s-1)=1
 1950 s=s-1
 1960 ifc=h*v+1then2310
 1970 q=0
 1980 goto900
 1990 w(r+1,s)=c
 2000 c=c+1
 2010 ifv(r,s)=0then2040
 2020 v(r,s)=3
 2030 goto2050
 2040 v(r,s)=2
 2050 r=r+1
 2060 ifc=h*v+1then2310
 2070 q=0
 2080 goto1330
 2090 ifq=1then2190
 2100 w(r,s+1)=c
 2110 c=c+1
 2120 ifv(r,s)=0then2150
 2130 v(r,s)=3
 2140 goto2160
 2150 v(r,s)=1
 2160 s=s+1
 2170 ifc=h*v+1then2310
 2180 goto900
 2190 z=1
 2200 ifv(r,s)=0then2240
 2210 v(r,s)=3
 2220 q=0
 2230 goto2290
 2240 v(r,s)=1
 2250 q=0
 2260 r=1
 2270 s=1
 2280 goto890
 2290 goto730
 2310 forj=1tov
 2320 print"{rvon} {rvof}";
 2330 fori=1toh
 2340 ifv(i,j)<2then2370
 2350 print"~~";
 2360 goto2380
 2370 print"~{rvon} {rvof}";
 2380 nexti
 2390 print
 2400 fori=1toh
 2410 ifv(i,j)=0then2450
 2420 ifv(i,j)=2then2450
 2425 ifj=11thenprint"{rvon} {rvof}{SHIFT-@}";:goto2460
 2430 print"{rvon} {rvof}~";
 2440 goto2460
 2450 print"{rvon}  {rvof}";
 2460 nexti
 2470 print"{rvon} {rvof}"
 2480 nextj
 2485 print"{home}"tab(28)ti$
 2490 goto2999
 2500 print"{clr}{up}";tab(10);"{rvon}wait i'm working{rvof}"
 2510 goto200
 2999 clr
 3000 ti$="000000":print"{home}                          "
 3001 fori=32768+40to32768+40+39
 3005 ifpeek(i)=43thencp=i:i=32768+40+39
 3010 nexti
 3015 pokecp-40,160
 3100 dimd(2,2):d(1,1)=1:d(1,2)=-1:d(2,1)=40:d(2,2)=-40:x=2:y=1
 3150 l=peek(cp+d(x,y))
 3155 print"{home}{rght}{rght}"ti$
 3160 ifl=160then3300
 3170 ifl=122then goto5500
 3180 ifl=96then 3300
 3190 ifl=32then5000
 3200 ifl=94thencp=cp+d(x,y):pokecp,43:pokecp-d(x,y),32:goto3150
 3205 print"{home}error"
 3300 rem for 160 (sides)
 3305 p=0:ifpeek(cp-d(x,y))=32thenp=1
 3315 i=1
 3320 ifx=1then4050
 3330 ifx=2then3340
 3340 l=peek(cp+d(1,i))
 3345 n=32:ifp=1thenn=96
 3346 q=0:ify=2thenq=1
 3350 ifl=94thenx=1:y=i:cp=cp+d(x,y):pokecp,43:pokecp-d(x,y),32:goto3150
 3360 ifl=160goto4000
 3370 ifl=32thenx=1:y=i:goto3150
 3380 ifl=96then4000
 3385 ifl=43thenprint"{home}myself":end
 3390 ifl=122thenprint"{home}found":goto5500
 3395 print"{home}errorin":stop
 4000 ifi=2then4020
 4010 i=i+1:goto3340
 4020 x=2:y=2:ifq=1theny=1
 4030 goto3150
 4050 l=peek(cp+d(2,i))
 4060 n=32:ifp=1thenn=96
 4070 q=0:ify=2thenq=1
 4080 ifl=94thenx=2:y=i:cp=cp+d(x,y):pokecp,43:pokecp-d(x,y),32:goto3150
 4090 ifl=160then4100
 4092 ifl=32thenx=2:y=i:goto3150
 4094 ifl=96then4100
 4096 ifl=122thenprint"{home}found":goto5500
 4098 print"{home}error":stop
 4100 ifi=2then4120
 4110 i=i+1:goto4050
 4120 x=1:y=2:ifq=1theny=1
 4130 goto3150
 5000 rem
 5010 p=0:ifpeek(cp-d(x,y))=32thenp=1
 5020 i=1
 5030 ifx=1then5100
 5040 ifx=2then5200
 5050 print"{home}error":stop
 5100 l=peek(cp+d(2,i))
 5110 n=32:ifp=1thenn=96
 5115 q=3
 5120 ifl=160thenq=0:ifi=2thenq=1
 5130 ifq=0theni=i+1:goto5100
 5140 ifq=1thencp=cp+d(x,y):pokecp-d(x,y),n:pokecp,43:goto3150
 5150 ifl=122thengoto5500
 5160 ifl=32thenprint"{home}error":stop
 5170 ifl=96andi=2thencp=cp+d(x,y):pokecp-d(x,y),n:pokecp,43:goto3150
 5180 ifl=96andi=1theni=i+1:goto5100
 5190 ifl=96andi<>1andi<>2thenprint"{home}error":stop
 5194 ifl=94thenx=2:y=i:goto3150
 5196 print"{home}error":stop
 5200 l=peek(cp+d(1,i))
 5210 n=32:ifp=1thenn=96
 5215 q=3
 5220 ifl=160thenq=0:ifi=2thenq=1
 5230 ifq=0theni=i+1:goto5200
 5240 ifq=1thencp=cp+d(x,y):pokecp-d(x,y),n:pokecp,43:goto3150
 5250 ifl=122thenprint"{home}found":goto5500
 5260 ifl=32thenprint"{home}error":stop
 5270 ifl=96andi=2thencp=cp+d(x,y):pokecp-d(x,y),n:pokecp,43:goto3150
 5280 ifl=96andi=1theni=i+1:goto5200
 5290 ifl=96andi<>1andi<>2thenprint"{home}error":stop
 5300 ifl=94thenx=1:y=i:goto3150
 5310 print"{home}error":stop
 5500 pokecp,32:rempokecp+d(x,y),32
 5510 fori=32768+40to32768+40+39
 5520 ifpeek(i)=32thencp=i:i=32768+40+39
 5530 nexti:x=2:y=1
 5540 print"{home}the correct path"
 5550 l=peek(cp+d(x,y))
 5560 ifl=32thencp=cp+d(x,y):pokecp,43:pokecp-d(x,y),42:goto5550
 5565 ifl=122then5600
 5570 x=3-x:y=1:ifpeek(cp+d(x,y))=32then5550
 5575 ifl=122then5600
 5580 y=2:ifpeek(cp+d(x,y))=32then5550
 5585 ifl=122then5600
 5600 fori=1to2500:next:clr:goto100
  110 rem invisible maze program
  120 rem pet program by jim butterfield
  130 print"{swuc}{clr}{down}{down}    the vanishing maze"
  140 print"{down}{down}i'll draw a maze - then it will"
  150 print"vanish."
  160 print"{down}your job will be to find your way"
  170 print"through.  use cursor keys to move, or:"
  180 print"     t to go up;"
  190 print"     b to go down;"
  200 print"     f to go left;"
  210 print"     h to go right."
  220 print"{down}when you bump into a wall, it becomes"
  230 print"visible .. but you lose points,"
  240 print"so try to remember the maze.
  250 print"{down}{rvon} press any key to begin "
  260 get z$:if z$=""goto 260
  270 dim d(4),w(19,12),v(19,12)
  280 x=rnd(0)
  290 print "{clr}{down}{down}{down}  maze!{down}{down}"
  300 input"want a small,medium, or big maze";a$
  310 x=asc(a$)
  320 h=18:v=11:r7=1
  330 if x=83 then h=8:v=6
  340 if x=77 then h=12:v=9
  350 x=200:for i=1 to h:w(i,0)=x:next i
  360 for i=1 to v:w(0,i)=x:w(h+1,i)=x:next i
  370 z=int(rnd(1)*h+1)
  380 print"{clr}":print" ";:for i=1 to h
  390 :a$="{CBM-P}{CBM-P}":if i=z then a$="  "
  400 :print a$;:next i
  410 print
  420 :for j=1 to v:print"{CBM-M}";
  430 : for i=1 to h:print" {CBM-M}";:next i
  440 : print:print"{CBM-M}";
  450 : for i=1to h:print"{CBM-P}{SHIFT-@}";:next i:print:nextj
  460 w(z,1)=1:c=2:r=z:s=1:goto 510
  465 rem find a new place to break walls
  470 s=r7-1:r=0
  480 s=s+1:if w(0,s)<=200 then r7=s:goto 480
  485 w(0,s)=w(0,s)-1
  490 r=r+1:if r>h then w(0,s)=200:goto 480
  500 if w(r,s)<102 or w(r,s)>104 goto 490
  510 rem break out a wall
  520 d(1)=w(r-1,s)=0
  530 d(2)=w(r,s-1)=0
  540 d(3)=w(r+1,s)=0
  550 d(4)=w(r,s+1)=0 and (c>v*h/2 or s<v)
  560 d=d(1)+d(2)+d(3)+d(4)
  565 w(r,s)=100-d:if d<-1 then w(0,s)=w(0,s)+1
  570 if d=0 goto 470
  580 x=rnd(1)*d
  590 for d=1to4:x=x-d(d):if x<0 then next d
  600 on d goto 620,640,710,660
  610 stop
  620 r=r-1:v(r,s)=2
  630 goto 650
  640 s=s-1:v(r,s)=1
  650 gosub 1130:goto 730
  660 if s<v goto 680
  670 x=200:for j=1 to h:w(j,v+1)=x:next j
  680 v(r,s)=v(r,s)or1
  690 gosub 1130:s=s+1:if s>v and c<h*v+1 then c=c+1:goto 470
  700 goto 730
  710 v(r,s)=v(r,s)or 2
  720 gosub 1130:r=r+1
  730 c=c+1
  740 if c<h*v+2 goto 510
  745 rem make maze disappear
  750 for s=1 to v:for r=1 to h:w(r,s)=v(r,s):v(r,s)=3:next r,s
  760 s=v:for r=1 to h:v(r,s)=w(r,s)or 2:next r
  770 for s=1 to v:v(h,s)=v(h,s) and 1:next s
  780 for s=1 to v:for r=1 to h:gosub1130:next r,s
  790 r=z:s=1:get a$:get a$:get a$
  800 ti$="000000":e=0
  810 r1=r:s1=s:a$="{CBM-D}":gosub1100
  820 print"{home}{rvon}";ti$
  830 get a$:ifa$=""goto 820
  840 d=asc(a$)
  850 if d=66 or d=17 goto 920
  860 if d=70 or d=157 goto 940
  870 if d=72 or d=29 goto 970
  880 if d<>84 and d<>145 goto 820
  890 ifs=1goto 820
  900 r3=r:s3=s-1:f3=1:if(w(r3,s3)andf3)=0goto108  0
  910 s=s-1:goto 990
  920 r3=r:s3=s:f3=1:if(w(r3,s3)andf3)=0goto1080
  930 s=s+1:goto 990
  940 ifr=1goto 820
  950 r3=r-1:s3=s:f3=2:if(w(r3,s3)andf3)=0goto1080
  960 r=r-1:goto 990
  970 r3=r:s3=s:f3=2:if(w(r3,s3)andf3)=0goto1080
  980 r=r+1
  990 a$=" ":gosub1100
 1000 ifs<=vgoto 810
 1010 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}home!!{rvof}  your score:";int((1-e/v/h)*1000)
 1020 fors=1tov:forr=1toh:v(r,s)=w(r,s):gosub1130:nextr,s
 1030 getz$:ifz$<>""goto1030
 1040 print:print"{down}{down}   {rvon} want another maze {rvof}? ";
 1050 getz$:ifz$=""goto1050
 1060 ifz$="y"thenrun270
 1070 end
 1080 r=r3:s=s3:v(r,s)=v(r,s)andnotf3
 1090 e=e+1:gosub1130:r=r1:s=s1:goto810
 1100 print"{home}"
 1110 forj=1tos1*2-1:print:next
 1120 forj=1tor1:print"{rght}{rght}";:nextj:print"{left}";a$:return
 1130 print"{home}":forj=1tos*2-1:print:nextj
 1140 forj=1tor:print"{rght}{rght}";:nextj:print"{left}";
 1150 a$="  ":x=v(r,s):ifx<2thena$=" {CBM-M}"
 1160 printa$;"{left}{left}{down}";:a$="  ":ifx=2thena$="{CBM-P}{CBM-P}"
 1170 ifx=0thena$="{CBM-P}{SHIFT-@}"
 1180 ifx=1thena$=" {CBM-M}"
 1190 printa$;"{up}";:return
 2999 stop
 3000 for s=0 to v+1
 3010 for r=0 to h+1
 3020 print w(r,s);
 3030 next r
 3040 print
 3050 next s
    0 poke158,0:gosub6000
    1 print"{clr}{down}"
    2 poke158,0
    4 forn=1to11
    5 fora=1to20
   10 a$="{CBM-+} {left}{left}{down}{CBM-+} {up}"
   20 b$="{CBM-+}{CBM-+}{left}{left}{up}  {down}"
   30 c=rnd(ti)
   40 ifc>.5thend$=a$:goto60
   50 d$=b$
   60 printd$;
   65 next
   70 print
   80 next
   85 poke158,0
   90 fora=32768to32807:pokea,102:next
  100 fora=32768to33727step40:pokea,102:next
  110 fora=32807to33767step40:pokea,102:next
  120 fora=33728to33767:pokea,102:next
  130 forp=1to40
  150 next
  160 poke32809,224
  170 poke33726,224
  171 ti$="000000"
  175 x=23:y=1
  180 poke151,255:geta$:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}time "ti$:gosub2000
  181 ifpeek(n)=102then190
  182 ifn=33726then1000
  183 poken,224
  185 ifa$=""then250
  190 ifa$="8"thenx=x+1:ifx>24thenx=x-1
  191 n=((24-x)*40+32768)+y
  192 ifpeek(n)=102thenx=x-1:goto180
  200 ifa$="2"thenx=x-1:ifx<01thenx=x+1
  201 n=((24-x)*40+32768)+y
  202 ifpeek(n)=102thenx=x+1:goto180
  210 ifa$="6"theny=y+1:ify>39theny=y-1
  211 n=((24-x)*40+32768)+y
  212 ifpeek(n)=102theny=y-1:goto180
  220 ifa$="4"theny=y-1:ify<01theny=y+1
  230 n=((24-x)*40+32768)+y
  240 ifpeek(n)=102theny=y+1:goto180
  250 fort=0to10:poken,32:poken,224:next
  260 goto180
 1000 print"{home}{CBM-+}{rvon}     you did it in a time of "ti$"   "
 1100 fors=1to5000:next
 1120 print"{clr}  another go?                        "
 1130 poke158,0
 1140 geta$:ifa$=""then1140
 1150 ifa$="y"thenrun
 1155 print"{clr}"
 1160 end
 2000 ifa$="{clr}"thenclr:goto1
 2001 ifti/2=int(ti/2)thenpoke151,255
 2010 ifa$="?"then5000
 2900 return
 5000 x=1:p=1:l=32809
 5010 ifpeek(p+l)=32orpeek(p+l)=224then5051
 5015 ifl=32809andpeek(l+1)=102andpeek(l+40)=102then5160
 5020 ifp=1thenp=40:goto5010
 5030 ifp=40thenp=-1:goto5010
 5040 ifp=-1thenp=-40:goto5010
 5050 ifp=-40thenp=1:goto5010
 5051 ifpeek(l)=32then5060
 5052 ifpeek(l+1)=32thenp=1:goto5100
 5053 ifpeek(l-40)=32thenp=-40:goto5100
 5054 ifpeek(l+40)=32thenp=+40:goto5100
 5055 ifpeek(l-1)=32thenp=-1:goto5100
 5060 ifp=1andpeek(l-40)=32thenp=-40:goto5100
 5070 ifp=-40andpeek(l-1)=32thenp=-1:goto5100
 5080 ifp=-1andpeek(l+40)=32thenp=+40:goto5100
 5090 ifp=40andpeek(l+1)=32thenp=1:goto5100
 5091 ifp=1andpeek(l-40)=224thenp=-40:goto5100
 5092 ifp=-40andpeek(l-1)=224thenp=-1:goto5100
 5093 ifp=-1andpeek(l+40)=224thenp=+40:goto5100
 5094 ifp=40andpeek(l+1)=224thenp=1:goto5100
 5100 l=l+p
 5110 pokel,214:pokel,32:pokel,224
 5111 geta$:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}time "ti$:ifti$="000100"then5115
 5112 gosub2000:goto5120
 5115 print"{home}{rvon} i give up after 1 minute !             "
 5116 goto1100
 5120 ifl=32809thenx=x+1
 5130 ifx=-3then5160
 5140 ifl=33726then5200
 5150 goto5010
 5160 rem
 5170 goto1100
 5200 print"{home}{rvon}    i did it in a time of   "ti$"      "
 5210 goto1100
 6000 poke59468,14
 6010 print"{clr}"
 6020 print"   THIS{$a0}IS{$a0}A{$a0}GAME{$a0}FOR{$a0}ONE{$a0}PLAYER."
 6030 print" THE{$a0}COMPUTER{$a0}DRAWS{$a0}A{$a0}MAZE{$a0}ON{$a0}THE{$a0}SCREEN"
 6040 print"AND{$a0}YOU{$a0}MUST{$a0}WORK{$a0}YOUR{$a0}WAY{$a0}ROUND{$a0}IT"
 6050 print"FROM{$a0}THE{$a0}TOP{$a0}LEFT{$a0}TO{$a0}THE{$a0}BOTTOM{$a0}RIGHT"
 6060 print"USING{$a0}THE{$a0}KEY-PAD"
 6070 print"8 MOVES{$a0}UP,2 DOWN,6 RIGHT,4 LEFT"
 6080 print"{down}{rght}{rght} PRESSING{$a0}SHIFTED{$a0}CLEAR{$a0}SCREEN{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}GENERATES{$a0}A{$a0}NEW{$a0}MAZE."
 6100 print"{down}IF{$a0}YOU{$a0}PRESS{CBM-C}?{CBM-V}THE{$a0}COMPUTER{$a0}WILL{$a0}ATTEMPT"
 6110 print" THE{$a0}MAZE"
 6120 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}START"
 6122 poke158,0
 6130 geta$:ifa$=""then6130
 6140 poke59468,12
 6150 return
    1 rem*"Bob Chappell*14/2/81*
    2 print"{clr}":poke59468,14
    3 c$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}     {rvon} Press Space To Continue {home}"
    4 d$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}a clue. ":n$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} nothing! ":pk$="{down}{rvon} Type numbers. "
    5 sl$="{clr}{down}    {rvon} The Sleuths {down}":sp$="{clr}{down}   {rvon} The Suspects {down}":r$=" reveals{down}"
    6 wp$="{clr}{down}   {rvon} The Weapons {down}":pl$="{clr}{down}  {rvon} The Locations {down}"
    7 an$="{clr}{down}{down}{rvon} Here's looking at you,kid! {down}{down}":wr$="{clr}{down}{down}{down}{down}{down}{rvon} Play it again,Sam!! "
    8 dimh(12),e(15,4):z=rnd(ti)
    9 forn=1to9:readt$(n):next:forn=1to9:reads$(n):next
   10 forn=1to9:readw$(n):next:forn=1to9:readl$(n):next
   11 data"Sam Spade","Philip Marlowe","Sherlock Holmes","Miss Marple","Maigret"
   12 data"Steve Carella","Lew Archer","Jim Rockford","Insp. Clousseau"
   13 data"Little Caesar","The London Philharmonic","Lizzie Borden"
   14 data"The Editor of PCW","Al Capone","The Butler","Goldfinger"
   15 data"Computnig Toady's Teaboy","Lucretia Borgia"
   16 data"Rolled-up copy of PCW","Birthday cake bomb","British Rail pork pie"
   17 data"Sherman tank","Cement overcoat","Trained killer poodle"
   18 data"Holmes' violin","Razor-edged floppy disk","Curare-flavour crisps"
   19 data"The Houses of Parliament","14 Rathbone Place","Roedean"
   20 data"Disneyland","Mt. Everest","Scotland Yard"
   21 data"Wembley Stadium","The local mortuary","Canterbury Cathedral"
   22 print"{rvon} Mean Streets ":print"{down}{down}Which level (1-3)?"
   23 geta$:ifa$=""goto23
   24 lv=int(val(a$)):iflv<1orlv>3then22
   25 printsl$:forn=1to9:printn;t$(n):next
   26 printpk$:forn=1to4
   27 ifn=1thena$="I am - "
   28 ifn=2thena$="You are - "
   29 ifn=3thena$="First rookie is - "
   30 ifn=4thena$="Second rookie is - "
   31 print"{down}"a$;
   32 gosub173:ifa<1ora>9then32
   33 forn1=1to4:ift(n1)=athen32
   34 next:t(n)=a
   35 printt$(t(n));
   36 ifn=1thenprint" of Pinkerton's";
   37 print".":next:gosub175
   38 printsp$:forn=1to9:printn;s$(n):next
   39 printpk$"{down}":forn=1to6:ifn<>6thenprint"Suspect"n"is ";
   40 ifn=6thenprint"{down}{rvon} The victim is ";
   41 gosub173:ifa<1ora>9goto41
   42 forn1=1to6:ifs(n1)=athen41
   43 next:s(n)=a:prints$(s(n));
   44 print" ":next:gosub175
   45 printwp$:forn=1to9:printn;w$(n):next
   46 printpk$"{down}":forn=1to5:print"Weapon"n"is a ";
   47 gosub173:ifa<1ora>9goto47
   48 forn1=1to5:ifw(n1)=athen47
   49 next:w(n)=a:printw$(w(n));".":next:gosub175
   50 printpl$:forn=1to9:printn;l$(n):next
   51 printpk$"{down}":forn=1to5:print"Location"n"is ";
   52 gosub173:ifa<1ora>9goto52
   53 forn1=1to5:ifl(n1)=athen52
   54 next:l(n)=a:printl$(l(n))".":next:gosub175
   55 print"{clr}{down}{down}{down}{down}{down}{rvon} A scream in the night! "
   56 forn=1to5:ss(n)=s(n):s(n)=0:next:forn=1to5
   57 z=int(5*rnd(1)+1):forn1=1ton-1:ifs(n1)=ss(z)then57
   58 next:s(n)=ss(z):next
   59 forn=1to5:ww(n)=w(n):w(n)=0:next:forn=1to5
   60 z=int(5*rnd(1)+1):forn1=1ton-1:ifw(n1)=ww(z)then60
   61 next:w(n)=ww(z):next
   62 forn=1to5:ll(n)=l(n):l(n)=0:next:forn=1to5
   63 z=int(5*rnd(1)+1):forn1=1ton-1:ifl(n1)=ll(z)then63
   64 next:l(n)=ll(z):next
   65 a=1:forn=1to4:e(a,0)=s(n):e(a+1,0)=w(n)+10:e(a+2,0)=l(n)+20:a=a+3:next
   66 forn=1to12
   67 z=int(12*rnd(1)+1):forn1=1ton-1:ifh(n1)=e(z,0)then67
   68 next:h(n)=e(z,0):next
   69 forn=1to5:e(n,0)=n:e(n+5,0)=n:e(n+10,0)=n:next
   70 forn=1to5:forn1=1to3:ifh(n1)=ss(n)thenforz=1to4:e(n,z)=1:next
   71 next:forn1=1to3:ifh(n1)=ww(n)+10thenforz=1to4:e(n+5,z)=1:next
   72 next:forn1=1to3:ifh(n1)=ll(n)+20thenforz=1to4:e(n+10,z)=1:next
   73 next:next:print"{clr}{down}{down}{down}{rvon} Your clues,"t$(t(2))":- ":forn=4to6:print"{down}{down}";
   74 ifh(n)>20thenprintl$(h(n)-20):goto77
   75 ifh(n)>10thenprintw$(h(n)-10):goto77
   76 prints$(h(n))
   77 next:gosub175
   78 print"{clr}{down}{rvon}";t$(t(2));",":print"{down}{rvon} Have you solved it (y/n)? ":gosub173
   79 ifa$="y"thenxx=1:print"{clr}{down}{rvon} The denouement?? {down}{down}":goto86
   80 print"{clr}{down}{rvon} Which sleuth will you grill? "
   81 print"{down}{down}1 ";t$(t(1)):print"{down}{down}2 ";t$(t(3)):print"{down}{down}3 ";t$(t(4))
   82 gosub173:ifa<1ora>3then82
   83 ifa<>1thena=a+1
   84 a1=a
   85 print"{clr}{down}{down}"
   86 forn=1to5:print"{down}";n;s$(ss(n)):next:print"{down}{down}{rvon} You suspect? "
   87 gosub173:a2=a
   88 ifa<1ora>5then87
   89 print"{clr}{down}{down}":forn=1to5:print"{down}";n;w$(ww(n)):next:print"{down}{down}{rvon} Which weapon? "
   90 gosub173:a3=a
   91 ifa<1ora>5then90
   92 print"{clr}{down}{down}":forn=1to5:print"{down}";n;l$(ll(n)):next:print"{down}{down}{rvon} Where? "
   93 gosub173:a4=a
   94 ifa<1ora>5then93
   95 z=2:gosub96:goto103
   96 print"{clr}{rvon} The murder of ";s$(s(6))" "
   97 ifxx=1thenprint"{down}{down}";t$(t(z));" deduces:-":goto99
   98 print"{down}{down}"t$(t(z));" alleges to{down}":printt$(t(a1))":-
   99 print"{down}{down} {rvon} Murderer {rvof} : ";s$(ss(a2))
  100 print"{down}{down} {rvon} Weapon   {rvof} : ";w$(ww(a3))
  101 print"{down}{down} {rvon} Location {rvof} : ";l$(ll(a4))
  102 gosub175:return
  103 ifxx=0goto106
  104 ifss(a2)=s(5)andww(a3)=w(5)andll(a4)=l(5)thenprintan$:end
  105 printwr$:xx=0:goto116
  106 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";t$(t(a1));r$:ifa1=1thenn1=1
  107 ifa1=3thenn1=7
  108 ifa1=4thenn1=10
  109 gosub179
  110 forn=n1ton1+2:ifh(n)=ss(a2)thenprints$(ss(a2)):goto116
  111 ifh(n)=ww(a3)+10thenprintw$(ww(a3)):goto116
  112 ifh(n)=ll(a4)+20thenprintl$(ll(a4)):goto116
  113 next:printn$:ifa1=1then116
  114 rv=int(lv*rnd(1)+1):ifrv>lvthen116
  115 e(a2,a1)=2:e(a3+5,a1)=2:e(a4+10,a1)=2
  116 gosub175:z=3
  117 a1=int(4*rnd(1)+1):ifa1=3then117
  118 gosub119:gosub120:goto133
  119 a2=int(5*rnd(1)+1):a3=int(5*rnd(1)+1):a4=int(5*rnd(1)+1):gosub96:return
  120 f2=0:f3=0:f4=0
  121 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";t$(t(a1));r$:ifa1=1thenn1=1
  122 ifa1=2thenn1=4
  123 ifa1=3thenn1=7
  124 ifa1=4thenn1=10
  125 gosub179
  126 forn=n1ton1+2:ifh(n)=ss(a2)thenprintd$:f2=a2:goto132
  127 ifh(n)=ww(a3)+10thenprintd$:f3=a3:goto132
  128 ifh(n)=ll(a4)+20thenprintd$:f4=a4:goto132
  129 next:printn$:ifa1=1then132
  130 rv=int(lv*rnd(1)+1):ifrv>lvthen132
  131 e(a2,a1)=2:e(a3+5,a1)=2:e(a4+10,a1)=2
  132 gosub175:return
  133 z=4:a1=int(4*rnd(1)+1):ifa1=4then133
  134 gosub119:gosub120:z=0:a1=0:forn=1to5:ife(n,1)=2thenz=e(n,0)
  135 forn1=2to4:ife(n,n1)=0thena1=n1:a2=e(n,0):n1=4:n=5
  136 next:next:ifa1=0then150
  137 z=0:forn=6to10:ife(n,1)=2thenz=e(n,0)
  138 next:ifz<>0thena3=z:goto140
  139 a3=int(5*rnd(1)+1)
  140 z=0:forn=11to15:ife(n,1)=2thenz=e(n,0)
  141 next:ifz<>0thena4=z:goto143
  142 a4=int(5*rnd(1)+1)
  143 z=1:gosub96:z=1:gosub120:rv=int(lv*rnd(1)+1):ifrv>lvthen78
  144 iff2=0goto146
  145 forn=1to4:e(f2,n)=1:next:goto78
  146 iff3=0goto148
  147 forn=1to4:e(f3+5,n)=1:next:goto78
  148 iff4=0goto78
  149 forn=1to4:e(f4+10,n)=1:next:goto78
  150 ifz<>0thena2=z:goto152
  151 a2=int(5*rnd(1)+1)
  152 z=0:a1=0:forn=6to10:ife(n,1)=2thenz=e(n,0)
  153 forn1=2to4:ife(n,n1)=0thena1=n1:a3=e(n,0):n1=4:n=10
  154 next:next:ifa1<>0then140
  155 ifz<>0thena3=z:goto157
  156 a3=int(5*rnd(1)+1)
  157 z=0:a1=0:forn=11to15:ife(n,1)=2thenz=e(n,0)
  158 forn1=2to4:ife(n,n1)=0thena1=n1:a4=e(n,0):n1=4:n=15
  159 next:next:ifa1<>0goto143
  160 forn=1to5:ife(n,1)=0ande(n,2)=2ande(n,3)=2ande(n,4)=2then162
  161 next:goto171
  162 a2=e(n,0)
  163 forn=6to10:ife(n,1)=0ande(n,2)=2ande(n,3)=2ande(n,4)=2then165
  164 next:goto171
  165 a3=e(n,0)
  166 forn=11to15:ife(n,1)=0ande(n,2)=2ande(n,3)=2ande(n,4)=2then168
  167 next:goto171
  168 a4=e(n,0):forn=1to9:print"{clr}{down}{down}{rvon} ";t$(t(1));" has solved it!! "
  169 forn1=1to300:next:print"{clr}":forn1=1to200:next:next:z=1:xx=1:gosub96
  170 print"{clr}{rvon}{down}{down} Elementary,my dear ";t$(t(2));"! ":print"{down}{down}":end
  171 print"Error":stop
  172 return
  173 geta$:ifa$=""goto173
  174 a=int(val(a$)):return
  175 printc$
  176 geta$:ifa$=""goto176
  177 ifa$=" "thenreturn
  178 goto175
  179 forn=1to1000:next:return
    1 rem**"Bob Chappell*15/2/81
    2 poke59468,14
    3 b$="{rvon}{down}{down}{down}Down these Mean Streets a PET must go!"
    4 c$="{down}{down}{down}{down}Please load 'mean streets'.{down}{down}"
    5 print"{clr}{down}{down}{rvon} MEAN STREETS {rvof} will test your powers of
    6 print"{down}{down}deduction.You have to solve a murder
    7 print"{down}{down}mystery by correctly identifying the
    8 print"{down}{down}murderer,weapon and scene of crime
    9 print"{down}{down}before your rival,PET,working for
   10 print"{down}{down}the Pinkerton National Detective Agency,{down}{down}does.":gosub68
   11 print"There are four investigators:- PET,
   12 print"{down}{down}yourself and two 'rookies' (PET again!)
   13 print"{down}{down}You set the level of PET's deductive
   14 print"{down}{down}powers by entering a number:-
   15 print"{down}{down}    1 = Holmsian haste.
   16 print"{down}{down}    2 = Kojak canter.
   17 print"{down}{down}    3 = Colombo crawl.":gosub68
   18 print"Before the murder is committed,you
   19 print"{down}{down}assign names (from a given list) to
   20 print"{down}{down}the investigators,the victim,the
   21 print"{down}{down}suspected killers,weapons and locations.
   22 print"{down}If you wish to use other names,simply
   23 print"{down}{down}amend the data statements in the main   {down}{down}program.":gosub68
   24 print"Each investigator is given three clues
   25 print"{down}{down}at the start.The object is to deduce,by
   26 print"{down}{down}elimination and logic,which suspect,
   27 print"{down}{down}weapon and location are absent from the
   28 print"{down}{down}clues held by all the players,including
   29 print"{down}{down}yourself.":gosub68
   30 print"When it is your turn,you will be asked
   31 print"{down}{down}if you have solved the crime.If you
   32 print"{down}{down}have,type 'y' and then announce the
   33 print"{down}{down}murderer,weapon and scene of crime.
   34 print"{down}{down}If you are right,you have won.If wrong,
   35 print"{down}{down}play passes to the next investigator.":gosub68
   36 print"If you do not have the solution,type 'n'
   37 print"{down}and you will be able to play your usual
   38 print"{down}{down}turn.
   39 print"{down}{down}A normal turn involves naming the
   40 print"{down}{down}investigator you wish to 'interrogate',
   41 print"{down}{down}together with three 'allegations':-
   42 print"{down}{down}suspect,weapon and location.":gosub68
   43 print"If the interrogated player has no names
   44 print"{down}{down}which match any of the allegations,he
   45 print"{down}{down}will reveal {rvon} nothing.
   46 print"{down}{down}If he has one or more of the names,one
   47 print"{down}{down}(and only one) of them will be revealed {down}{down}to you.":gosub68
   48 print"When a player other than yourself is
   49 print"{down}{down}interrogating,you will not know
   50 print"{down}{down}specifically what has been revealed,only
   51 print"{down}that it was a name or nothing.
   52 print"{down}{down}All other investigators take control of
   53 print"{down}{down}their turns automatically without
   54 print"{down}{down}intervention by you.":gosub68
   55 print"When you are interrogated,this too is
   56 print"{down}{down}handled automatically.No 'cheating'
   57 print"{down}{down}occurs - each player mandatorily
   58 print"{down}{down}reveals a clue if he has one and only
   59 print"{down}{down}the interrogating player knows the
   60 print"{down}{down}precise name revealed.":gosub68
   61 print"{down}{down}The skill of the two rookies is very
   62 print"{down}{down}erratic and though they never reach a
   63 print"{down}{down}solution,you should take note of their
   64 print"{down}{down}questions and answers.":gosub68
   65 print"If PET reaches the solution before you,
   66 print"{down}{down}it will announce it on it's turn.
   67 print"{down}{down}It is never wrong!!!":gosub68:goto72
   68 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      {rvon} PRESS SPACE TO CONTINUE "
   69 geta$:ifa$=""then69
   70 ifa$=" "then print"{clr}":return
   71 goto69
   72 forj=1tolen(b$):printmid$(b$,j,1);:forx=1to50:next:next
   73 print:forj=1tolen(c$):printmid$(c$,j,1);:forx=1to50:next:next
   74 print:end
    0 clr:poke59468,12
    1 rem merge copyright (c) 1980 glen fisher
    4 :
    5 rem cursor #17, feb 1980
    6 rem box 550, goleta, ca. 93017
    7 rem (c) 1980 cursor magazine
    8 :
   10 rem as of feb 25 1980
   90 pg$="merge":nm$="17":gosub62000
  100 dimeof(3):nu$=chr$(0):la$=chr$(1)+chr$(4)
  110 open15,8,15:d1$="0:":d2$="0:":d3$="0:"
  120 print"{down}input file? ";:gosub60000:of$=in$
  130 open1,8,2,d1$+of$+",p,r"
  140 input#15,er,er$,tk,sc
  150 ifer<>0thenprinter$:close1:goto120
  160 n=1:gosub710:ifnm$=la$then180
  170 printof$;" isn't a basic program.":close1:goto120
  180 print"{down}merge with? ";:gosub60000:mf$=in$
  190 open2,8,3,d2$+mf$+",p,r"
  200 input#15,er,er$,tk,sc
  210 ifer<>0thenprinter$:close2:goto180
  220 n=2:gosub710:ifnm$=la$then240
  230 printmf$;" isn't a basic program.":close2:goto180
  240 print"{down}output file? ";:gosub60000:nf$=in$
  250 ifnf$<>mf$andnf$<>of$then280
  260 print"output file can't be the same as either":print"input file. try again."
  270 goto240
  280 open3,8,4,d3$+nf$+",p,w"
  290 input#15,er,er$,tk,sc:ifer=0then340
  300 close3:print"{down}{down}output file already exists."
  310 print"{down}ok if i overwrite it? ";:gosub60000
  320 ifleft$(in$,1)<>"y"then240
  330 print#15,"s";d3$;nf$:goto280
  340 print#3,nm$;:pt=nm
  350 n=1:gosub650:l1=ln:s1$=in$
  360 n=2:gosub650:l2=ln:s2$=in$
  370 print".";:on2+sgn(l1-l2)goto380,430,520
  380 rem save s1$
  390 pt=pt+len(s1$)+2:gosub700
  400 print#3,s1$;
  410 n=1:gosub650:ifeofthenn=2:in$=s2$:goto570
  420 l1=ln:s1$=in$:goto370
  430 rem save s1,drop s2
  440 print:print"line";l1;"is in both files.
  450 print"copy from ";of$;" is used."
  460 pt=pt+len(s1$)+2:gosub700
  470 print#3,s1$;
  480 n=1:gosub650:ifeofthenn=2:in$=s2$:goto570
  490 l1=ln:s1$=in$
  500 n=2:gosub650:ifeofthenn=1:in$=s1$:goto570
  510 l2=ln:s2$=in$:goto370
  520 rem save s2$
  530 pt=pt+len(s2$)+2:gosub700
  540 print#3,s2$;
  550 n=2:gosub650:ifeofthenn=1:in$=s1$:goto570
  560 l2=ln:s2$=in$:goto370
  570 pt=pt+len(in$)+2:gosub700
  580 print".";:print#3,in$;
  590 gosub650:ifeof=0then570
  600 print#3,nu$;nu$;
  610 close3
  620 close2
  630 close1
  640 print:print"{down}the two programs have been merged.":end
  650 gosub750:gosub750
  660 gosub750:t$=c$:gosub750
  670 in$=t$+c$:ln=asc(t$)+256*asc(c$)
  680 gosub750:in$=in$+c$:ifc$<>nu$then680
  690 return
  700 c=int(pt/256):print#3,chr$(pt-256*c);chr$(c);:return
  710 gosub750:ifeofthennm=-1:nm$="":return
  720 nm$=c$:gosub750
  730 nm=asc(nm$)+asc(c$)*256:nm$=nm$+c$
  740 return
  750 eof=eof(n):ifeof=0thenget#n,c$:ifsttheneof=1:eof(n)=eof
  760 ifeoforc$=""thenc$=nu$
  770 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20):lp=1:pn=0
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by glen fisher
 62020 gosub60500
 62030 print"{down}combines two basic programs.
 62040 print"{down}(requires {rvon}2040{rvof} disk)
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 gosub60260
 62110 print"merge combines two basic programs,
 62114 print"{down}keeping the old line numbers from each
 62118 print"{down}program. if the same line number occurs
 62120 print"{down}in both programs, merge says so. the
 62122 print"{down}line kept is from the first named file.
 62124 print"{down}(merge says which file's line is kept.)
 62126 print"{down}merge assumes that everything uses
 62128 print"{down}drive 0:. (the drive numbers are set in
 62130 print"{down}line 110, if you want to change that.)
 62190 goto 60200
   10 rem meteor by bill finzer
   20 rem    october, 1978
  200 rem main calling routine
  205 dim scre(13,2)
  210 rem place for calling display
  220 gosub 500  : rem initialize
  230 gosub 1000 : rem instructions
  240 gosub 1500 : rem put in stars
  250 gosub 2000 : rem falling star
  260 gosub 2500 : rem prepare next trial
  270 if an$ ="y" then 240
  280 gosub 3000 : rem draw graph axes
  290 gosub4000 : rem plot points
  300 print"{home}try some more?"
  310 get an$ : if an$ = "" then 310
  320 if an$ = "n" then print"{clr}": end
  330 print"do you want to
  340 printtab(5)"1) continue where you left off"
  350 printtab(5)"2) start all over?
  360 get an$ : if an$ = "" then 360
  370 if an$ = "2" then 220
  380 goto 240
  500 rem initialize
  510 rem
  520 t = rnd(-ti)
  530 exc = .4
  535 good=.6
  540 avg = .8
  550 fair = .9
  560 pr = 1
  570 blank$ ="                                        "
  580 rght$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  590 dwn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  600 for i = 1 to 13
  610 scre(i,1)= 0 : scre(i,2) = 0
  620 next i
  630 num = 50 : rem # of stars
  640 trials =0
  650 wt = 400 : rem max delay time
  660 def fns(y) =32768+40*(24-y)
  670 def fnt(x) = fns(y) + x
  680 return
 1000 rem instructions
 1010 print"{clr}   ****meteor****
 1020 print
 1030 input"what is your name";name$
 1040 print"do you want instructions,"name$"?"
 1050 get an$: if an$="" then 1050
 1060 if an$="n" then 1210
 1070 print:print"in this game you are watching a starry"
 1080 print"sky for falling stars."
 1090 print:print"as soon as you see one, press any key.
 1100 print:print"i'll tell you how long it took you to"
 1110 print" see the falling star to the nearest"
 1120 print"1/100th second"
 1130 print:print"this is your reaction time."
 1140 print:print"if you are very fast, the next sky
 1150 print"will have more stars, which makes it
 1160 print"harder to see the falling star.
 1170 print:print"when you are done i'll make a graph
 1180 print"of you reaction times
 1190 print:print"press any key to go on
 1195 gosub 3400: poke 158,0:rem kybd buffer
 1200 get an$: if an$="" then 1200
 1210 print"{clr}rate yourself "name$
 1220 printtab(10)"1) weak eyes
 1230 printtab(10)"2) quick eyes
 1240 printtab(10)"3) eagle eyes
 1250 input r$
 1260 r=val(r$)
 1270 if r<1 or r>3 then print"please give me a 1, 2, or 3"; : goto 1250
 1280 num = num + 20*(r-2)
 1290 r$(1) ="weak eyes"
 1300 r$(2) ="quick eyes"
 1310 r$(3) ="eagle eyes"
 1490 return
 1500 rem put in stars
 1510 print"{clr}well "r$(r)" "name$", you get "num"stars"
 1520 for i=1 to num
 1530 p=32808 + int(960*rnd(1))
 1540 poke p,42: poke158,0
 1560 next i
 1570 return
 2000 rem falling star
 2010 rem
 2020 x=int(rnd(1)*40)
 2030 y=int(rnd(1)*22)
 2040 dx=int(rnd(1)*3)-1
 2050 dy=int(rnd(1)*3)-1
 2060 if dx=0 and dy=0 then 2040
 2070 trials = trials +1
 2080 scre(trials,1)=num
 2090 print"{home}{down}watch! press any key when you see it!"
 2100 dt=int(rnd(1)*wt)
 2110 t=ti
 2120 d=peek(151)
 2130 if d<>255 then print"{home}too soon! don't beover anxious.try again":goto 2100
 2140 if ti<t+dt then 2120
 2150 t=ti
 2160 for j=1 to 80
 2170 poke fnt(x),42
 2180 d=peek(151)
 2190 if d<> 255 then t=int((ti-t)/.6)/100 : goto 2300
 2200 x=x+dx : y=y+dy
 2210 if x<0 then x=39
 2220 if x>39 then x=0
 2230 if y<0 then y=22
 2240 if y>22 then y=0
 2250 next j
 2260 t = int((ti-t)/.6)/100
 2270 print"{home}{down}you missed it!  see the blinding trail    it left?"
 2280 goto 2320
 2300 print"{home}{down}got it!  good for you!                  "
 2320 printblank$;blank$
 2330 print"{home}{down}{down}{down}trial"trials"and your time was"t"secs"
 2335 poke 158,0 : rem clear kybd buffer
 2340 return
 2500 rem prepare for next trial
 2510 rem
 2530 if t<exc then rr$="excellent":goto          2600
 2540 if t<good then  rr$="good     ":goto          2600
 2550 if t<avg then rr$="average  ":goto          2600
 2560 if t<fair then rr$="fair     ":goto          2600
 2570 rr$="pretty poor"
 2600 scre(trials,2)= t
 2610 num= int(num + 50*(avg-t)/avg)
 2615 if num<10 then num=10
 2620 print"i rate you that time "rr$
 2625 if trail=13 then an$="":forcc=1to1000:nextcc:goto 2650
 2630 print"try again "r$(r)" "name$"?"
 2640 get an$: if an$="" then 2640
 2650 return
 3000 rem draw graph axes
 3010 print"{clr}"
 3020 ix=10:iy=.05:rem x&y increments
 3030 rem horizontal axes
 3040 x=4:y=1:gosub 3500
 3050 for i=1 to 35
 3060 if int(i/5)=i/5 then print"*";:goto 3080
 3070 print"{SHIFT-+}";
 3080 next i
 3090 print:printtab(3);
 3100 x1=0
 3110 for x=2 to 32 step5
 3120 print tab(x);str$(x1);
 3130 x1=x1+5*ix
 3140 next x
 3145 print"{left}{left}{left}{left}{up}{up}# stars"
 3150 rem vertical axis
 3155 print"{home}{down}time"
 3160 x=4
 3170 for y=1 to 23
 3180 gosub 3500
 3190 if int((y-1)/5)=(y-1)/5 then print"*"; :    goto 3210
 3200 print"{SHIFT-+}";
 3210 next y
 3220 x=0:y1=0
 3230 for y=1 to 21 step 5
 3240 gosub 3500
 3250 y$=right$(str$(y1),len(str$(y1))-1)
 3260 printy$
 3270 y1=y1+5*iy
 3280 next y
 3290 return
 3400 rem wait 1/4 sec
 3410 tm=ti
 3420 if ti < tm + 15 then 3420
 3430 return
 3500 rem move cursor
 3510 print"{home}";
 3520 if x=0 then 3540
 3530 printleft$(rght$,x);
 3540 if24-y=0 then 3560
 3550 printleft$(dwn$,24-y);
 3560 return
 4000 rem plot points
 4010 for i=1 to trials
 4020 x=int(scre(i,1)/ix + 4.5)
 4030 y=int(1.5+scre(i,2)/iy)
 4040 if y>24 then y=24
 4045 if x>39 then x=39
 4050 s$=right$(str$(i),len(str$(i))-1)
 4060 gosub 3500
 4070 prints$
 4080 next i
 4090 return
   10 sys1206{del}
   10 sys(1039)
    0 rem copyright 1981 bodyguard software               (02208)7490
    1 print"{down}wil je instructies?":r=151:ifpeek(51234)=0thenr=515
    2 getz$:ifz$="j"then28
    3 ifz$<"n"then2
    4 u=59466:v=40:pokeu+2,12:pokeu+1,16:print"{clr}":forx=1tov:pokex+33607,102:next
    5 a=33628:g=7e3:h=10:c=int(rnd(1)*v)+33568:d=c
    6 y=int(rnd(1)*16)+3:x=int(rnd(1)*15)+4:ifrnd(1)<.5thenx=-x
    7 ifc+x<33568orc+x>33607ory/3>abs(x)orabs(x)/3>ythen6
    8 q=sgn(x):fori=qtoxstepq:p=peek(r):ifp<41orp>42then11
    9 b=.5+(p=42):b=b*4-((a+b)<33608)*v+((a+b)>33646)*v:ift=0thent=ti
   10 pokea,102:a=a+b:pokea,96
   11 i%=y*(4*i*(x-i)/x/x)+.5:ifc=33587.5+19.5*qthenc=c-v*q
   12 forz=0to2:poked-z*v,32:next:c=c+q:d=c-i%*v:poked,113:poked-v,198
   13 poked-80,87:next:ifpeek(c+v)=102then17
   14 pokeu-2,0:forw=0to3:d=d+v:poked,113:poked-v,198:poked-80,87
   15 poked-120,32:next:pokeu-2,255-4*y:pokeu,15
   16 n=n+1:print"{home}"tab(18)n"{home}"tab(18)"["tab(18+len(str$(n)))"]":pokeu,0:goto6
   17 pokeu-2,10+abs(x)+y:pokeu,15:forz=0tov:next:pokeu,0:ifsgn(t)*ti-t<gthen6
   18 ifn<hthen23
   19 g=g+2e3:h=h+5:pokeu-2,77:forz=0to4:forw=0to199:next
   20 print"{home}    + + + + extra speeltijd + + + +":pokeu,15:forw=0to124:next
   21 pokeu,0:print"{home}                                    ":forw=0to19:next
   22 next:pokeu,0:goto6
   23 print"{clr}{down} tijd is om!":print"{down} je had de springer"n"keer":ifm<nthenm=n
   24 print"{down} hoogste score:"m:print"{down}{down}[{rvon}return{rvof}] = nog eens      [{rvon}rvs{rvof}] = stoppen{down}{down}{down}{down}{down}{down}{down}{down}
   25 geta$:ifa$<chr$(13)ora$>chr$(18)then25
   26 ifa$=chr$(13)thenn=0:t=0:goto4
   27 pokeu+1,0:forx=0to9:geta$:next:end
   28 print"{clr}{down}  doel van dit spel is om de springer
   29 print"{down} binnen twee minuten zo vaak mogelijk
   30 print"{down} in het gat te laten vallen. het gat
   31 print"{down} kun je bewegen dmv. de toetsen 4 en 6
   32 print"{down}{down}  aan het begin van het spel laat je
   33 print"{down} hierdoor ook het gat verschijnen en
   34 print"{down} de tijd ingaan"tab(32)"{down}{down}{down}{down}(shift)":waitr+1,1:goto4
    5 gosub20000
   10 print"{clr}":poke 59468,12
   20 print"{clr} old salt {rvon}1{rvof}{down}{down}{left}{left}{left}midshipmen {rvon}2{rvof}{down}{down}{left}{left}{left}landlubber {rvon}3{rvof}":gosub30000
   25 n5=val(q$)
   30 n5=(n5-1)*30
   50 q1$="{CBM-V}":q2$="{CBM-C}":q3$="{CBM-D}":q4$="{CBM-F}"
   60 a9=360:l1=1:l2=2:l0=0:l3=3:l4=4:l5=5:l6=6:l7=7:l8=8
   65 la=.5:lb=.1:lc=10:ld=20:le=.2:lf=2.0:lg=3:lh=12:buoy=1
   66 lj=.005:lk=79:lm=47:
   70 p1= ~/2: p2=2* ~:p7=4/ ~:p6= ~/60:p4= ~/4
   80 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":rt$="{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   90 bl$="                                       "
   92 def fni(x)=int(x*a9/p2):rem conv. rads. to degs.
   99 bt$="   {CBM-I}{CBM-G}{down}{left}{left}{left}{left}{left}{CBM-I}{CBM-I}{rvon}  {rvof}{SHIFT-POUND}{CBM-G}"
  100 bu$="{CBM-M}{CBM-V}{down}{left}{left}{rvon}{CBM-POUND}{CBM-POUND}{rvof}"
  110 ov$="ran over flag"
  299 gosub6000
  300 print "{home}current option y or n":gosub30000:if q$<>"y"then cx=0:cy=0:goto500
  310 cx=.4*rnd(1)-.2:cy=.4*rnd(1)-.2
  500 rem get wind speed & direct. if zero entered for speed then comp. will gen.
  510 print"{home} wind spd?--4 to 9      "
  530 get ws$:ifws$=""then530
  540 w=val(ws$):ifw=0thenw=int(13*rnd(1)+8):goto600
  550 w=2*w : rem double wind speed
  570 print"{home}wind direct?--in degs.{rght}{rght}{rght}?{left}{left}";:input wr$
  580 wr=val(left$(wr$,5)):if wr=0then570
  590 if wreal>359then wreal=wreal-360:goto590
  595 wreal=wreal*p2/360:goto700
  599 :
  600 rem comp. generated wspd & dir.
  610 print"{home}                        "
  620 wreal=p2*rnd(1)
  699 :
  700 rem
  710 course=p1:rudder=0:wdir=wr:wv=w :bvel=6
  720 if wd< ~/2then sa=-~/4 :goto760
  730 if wd<~then sa=~/4:goto760
  740 if wd<3*p1thensa=~/4:goto760
  750 sa=-~/4
  760 py=42:px=2:ifpyand1then boat$=q4$:goto800
  770 boat$=q1$
  799 :
  800 rem
  820 ky=py:kx=px:cntrbd=3:qt=ti
  899 :
  990 bt$="   {CBM-I}{CBM-G}{down}{left}{left}{left}{left}{left}{CBM-*}    {SHIFT-POUND}"
 1000 rem
 1002 if n5thenifti-et<n5+90 then1002
 1004 et=ti
 1010 getq$:ifq$=""then3100: rem if no command then update position
 1020 n=val(q$): if n=l0 then 3100
 1030 if n>l3 then 1200
 1099 :
 1100 rem move sail
 1110 if n=l1 then sa=sa+p6: if sail>p1thensa=p1:     rem sail left
 1120 if n= l3 then sa=sa-p6: if sail<-p1then sa=-p1:     rem sail right
 1140 ifn= l2 and cn<l5 then cn=cn+l1: rem move centerboard down
 1160 goto1010:   rem  get new command
 1199 :
 1200 rem move rudder
 1210 ifn=l4thenrudd=rudd-l3: rem rudder left.  turn ccw.
 1220 if n=l6 then rudd=rudd+l3: rem rudder right.  turn cw
 1230 if n=l5 andcn>l1thencn=cn-l1
 1235 ifn>l6thensa=-sa
 1240 goto 1010:  rem get new command
 1299 :
 3100 rem status display
 3110 gosub 9000
 3200 rem compute new course
 3210 course=course+p1*sin(rudd*p2/a9)*bvel/l8
 3220 if course >p2 then co=co-p2: rem if course > 360 then subtract 360 degs.
 3230 if co < 0 then co=co+p2: rem if course is negative add 360 degs.
 3299 :
 3500 rem compute wind vel and direction (apparent)
 3510 wx=w*sin(~+wreal):wy=w*cos(~+wreal): rem compute wind rect. coordinates
 3520 bx=bvel*sin(course):by=bvel*cos(course): rem compute boat x & y coords.
 3525 x1=wx-bx:y1=wy-by:ify1=l0theny1=.001
 3526 :
 3527 rem add components and compute apparent wind velocity and direction.
 3528 :
 3530 wvel=(x1^l2 +y1^l2)^la
 3540 wdir=atn(x1/y1)
 3545 : rem must compare sign of x & y components to determine quadrant.
 3550 ifwdir<l0then 3570
 3560 if x1<l0then4000
 3565 wdir=wdir+ ~:goto4000
 3570 ifx1<l0thenwdir=wdir+~:goto4000
 3580 wdir=wdir+p2
 4000 rem computation of wind force
 4010 gosub 7000 rem compute windangle to boat ( + or - 180 degs. )
 4020 if wa<l0andsa<l0  then wsangle=sangle-wangle:goto4060: rem for both neg.
 4030 if(wa>l0orwa=l0)andsa>l0thenwsa=wa-sangle:goto4060: rem both positve
 4040 ifabs(wa)<p4and sgn(wa)<>sgn(sa)then sa=0:th=0:ft=0:goto4400
 4060 if wsa<p6then sa=wa:wa$="luffing ":gosub10000:th=0:ft=0:goto4400
 4099 :
 4100 rem thrust calc
 4120 if wsangle > p4 then 4200
 4140 rem aerodynamic lift
 4150 thrust =lc*wvel^l2*sin(abs(wsang))
 4160 goto 4300
 4199 :
 4200 rem wind force thrust
 4210 thrust = wvel * ld * sin(abs(wsang))
 4299 :
 4300 rem compute forward thrust
 4320 fthrust=thrust*sin(abs(sangle))
 4330 heel=wvel*cos(abs(sangle))*sin(wsangle)/cntrbrd
 4340 ifheel>lfthenwarn$="danger--near tipping ":gosub10000
 4350 ifheel > lg then 10100: rem tipped over. race over!
 4399 :
 4400 rem bvel computation
 4410 if bvel<lhthendrag=l2*bvel^l2*cntrbrd:goto 4450: rem non-planning
 4420 drag = bvel^l2*cntbd:rem planning
 4450 bvel=bvel+lj*(ftrust-drag)
 4499 :
 4500 rem boat position plotting
 4510 px= px+le* bvel*sin(course)+cx
 4520 py =py-le*bvel*cos(course)+cy
 4530 if int(py)=ky and  int(px)=kx then 1000
 4535 printleft$(dn$,int(ky/l2));left$(rt$,int(kx/l2)+l1);" "
 4540 ky=int(py):kx=int(px)
 4550 on buoy  gosub 5000,5100,5200
 4560 if(int(px)andl1)then 4580
 4570 if int((py)andl1)then boat$=q4$:goto4600
 4575 boat$=q1$:goto4600
 4580 ifint(py)andl1then boat$=q3$:goto4600
 4590 boat$=q2$
 4599 :
 4600 rem plot boat position using down$ and right$ and posit (x) & posit (y).
 4605 :
 4610 if kx<l0 then kx=79: px=79: rem if off left edge goto right edge of disp.
 4620 if kx>79then kx=0:px=0: rem wrap around on right edge of display.
 4622 ifky<l8thenky=47:py=47
 4623 ifky>lmthenky=8:py=8
 4630 :
 4640 printleft$(dn$,int(ky/l2));left$(rt$,int(kx/l2)+l1); boat$
 4650 printdn$;left$(rt$,36) ;cntrbrd
 4660 goto 1000: rem  get next command.
 5000 if kx<60then return
 5010 ifky=38 or ky=39then5020
 5012 kj=-1
 5015 return
 5020 if kx<64then qt=qt-1200:wa$=ov$:gosub10000
 5030 buoy=2:return
 5100 if ky>15then return
 5110 if kx=34 or kx= 35then 5120
 5115 return
 5120 if ky>13then qt=qt-1200:wa$=ov$:gosub10000
 5130 buoy=3:return
 5200 ifky<37thenreturn
 5204 if ky<41 and kx<5 then qt=qt-1200:wa$=ov$:gosub10000
 5205 ifkx=<2then 5210
 5207 return
 5210 ifco<~then return
 5230 print"{home}{down}{down}{down}{down}{down}{down}another race?"
 5240 gosub30000:ifq$="y"then20
 5270 end
 6000 print"{clr}";left$(dn$,7);left$(rt$,17);bu$
 6020 print left$(dn$,19);bu$;"{up}{up}";left$(rt$,29);bu$
 6022 print"{home}";left$(dn$,24);bt$
 6025 if m9then return
 6030 printleft$(dn$,21);:forz=0to36:print" >{left}";:forv=1to20:next:next:print" ";
 6040 forz=0to16:print" {up}{left}{left}{CBM-A}{left}";:forz1=1to20:next:next:print"  ";
 6045 forz=1to9:print" {left}{left}<{left}";:forz1=1to20:next:next
 6050 forz=0to9:print" {down}{left}{left}{CBM-Z}{left}";:forz1=1to20:next:next
 6060 for z= 1 to 7:print" {down}{left}v{left}";:for z1=1to 20:nextz1:nextz
 6070 print" {down}{left}{left}<";:for z=1to 4:print" {left}{left}<{left}";:for z1=1to 20:next:next:print" "
 6099 m9=-1: return
 7000 if wd>cothen7050
 7020 if wd+ ~ >cothen wang=wd-co:return
 7030 wangle=wd+p2-co:return
 7050 if wd-~ <cothenwa=wd-co:return
 7060 wa = -(co+(p2-wd)):return
 9000 rem print data at top
 9010 print"{home}awind =";
 9011 if wa<l0then print" p";:goto9013
 9012 print" s";
 9013 print left$(str$(abs(fni(wa)))+ "  ",4);
 9014 print"  course=";left$(str$(fni(co))+"  ",4);"  time=";
 9015 print int((ti-qt)/60)
 9016 print"{down}sail< =";
 9017 ifsa>0thenprint" p";left$(str$(fni(sa))+"  ",4);:goto9020
 9018 print" s";left$(str$(fni(-sa))+"  ",4);
 9020 print"  rudd=   ";
 9022 if rudd <0 then print"p";left$(str$(-ru)+"  ",3);:goto9030
 9025 print"s";left$(str$(ru)+"  ",3);
 9030 print" spd=";left$(str$(int(bvel*10)/10)+"  ",5)
 9040 return
 10000 rem message print for lufting or near tipping of buoy
 10010 forz5=1to2:print"{home}{down}{down}{down}{down}";wa$:forz6=1to20:nextz6:print"{home}{down}{down}{down}{down}";bl$
 10020 forz6=1to20:nextz6:nextz5
 10030 qt=qt+35:return
 10100 rem msg for tipped over--start again
 10110 print"{clr}tipped over---play again?"
 10120 gosub30000
 10130 ifq$="y"then 20
 10140 end
 20000 rem instructions
 20001 print"{clr}         hayden book company inc."
 20002 forx=1to8:print:nextx
 20003 printtab(15)"microsail"
 20004 print:printtab(13)"james johnson"
 20005 forx=1to6:print:nextx
 20006 print" copyright (c) 1980 hayden book co. inc."
 20007 printtab(10)"all rights reserved"
 20009 forx=1to8000:nextx
 20010 print"{clr}press 1 & 3 for sail port (l)             {down}or  starboard (r)"
 20020 print"{down}press 4 or 6 for rudder port (l)         {down} or starboard (r)."
 20030 print"{down}press 5 (raise) or 2 (lower) centerboard"
 20060 print"{down}press 8 to reverse sail"
 20090 print"{down}{down}{down}{down}press any key to continue"
 20095 goto 30000
 30000 get q$:ifq$<>""then30000
 30010 getq$:ifq$=""then 30010
 30020 return
    0 rem copyright 1981 bodyguard software               (02208)7490
    1 n=59464:poken+3,16:poken+2,15:poken+4,12:q=515:ifpeek(51234)thenq=151
    2 poken,0:forx=826to869:reada:pokex,a:next:print"{down}{down} wil je instructies? (j/n)
    3 geta$:ifa$=""then3
    4 ifa$="j"then26
    5 ifa$<>"n"then3
    6 print"{clr}":forx=0to39:poke32808+x,64:poke33688+x,64:next
    7 forx=0to36step4:poke32808+x,87:poke33690+x,81:next:d=33267:t=ti
    8 sys826:poken,(sin(ti)+1.1)*89:ifpeek(q)<>66andpeek(q)<>73thenpoked,32:goto25
    9 w=d-2*(40-39*(peek(q)-66)/7)*(peek(q+1)-.5):v=peek(w):ifv=87orv=81then21
   10 ifv=64orv=218then25
   11 poked,32:pokew,90:d=w:ifz<20then8
   12 forx=255to0step-1:poken,x:next
   13 t=int((ti-t)/60+.5):print"{clr}{down} tijd       :"t:ift<rorr=0thenr=t
   14 print"{down} beste tijd :"r
   15 print"{down}{down}[{rvon}return{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}] = nog eens    [{rvon} rvs {rvof}{up}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}] = stoppen
   16 geta$:ifa$<>chr$(13)anda$<>chr$(18)then16
   17 ifa$=chr$(13)thenz=0:goto6
   18 forx=0to9:geta$:next
   20 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":poken+3,0:end
   21 ifeandv=87then25
   22 ifethene=-e:goto24
   23 ifv=81then25
   24 poken,255:fory=0to99:next:pokew,218:e=e+1:z=z+1
   25 w=33267:goto11
   26 print"{clr}{down}  doel van het spel is van beide ket-
   27 print"{down} tingen om beurten een zwarte (W) en
   28 print"{down} een witte (Q) kraal te raken tot je ze
   29 print"{down} allemaal hebt gehad. bewegen doe je
   30 print"{down} dmv. de cursorbesturing. als je de
   31 print"{down} draad of een verkeerde kraal raakt of
   32 print"{down} niet beweegt word je in het midden
   33 print"{down} teruggezet.{down}{down}{down}{down}"tab(32)"(shift)":waitq+1,1:goto6
   34 data172,79,128,162,39,189,39,128,157,40,128,202,208,247,140,40,128,172,152
   35 data131,140,102,3,162,39,160,0,185,153,131,153,152,131,200,202,208,246,172
   36 data102,3,140,191,131,96
    1 rem (c) personal computer july 80
    2 rem     j. aughton
    3 rem (c) wijzegingen + verbeteringen
    4 rem     jos courbois 30/7/80
    5 rem
   10 poke59468,14
   40 z$=" ":fori=1to38:z$=z$+" ":next
   50 b$="":fori=1to40:b$=b$+"{CBM-+}":next
   60 n=0:k=32928:p1=0:a1=0:tr=1
   70 deffna(x)=int(x*rnd(1))
   80 deffnb(x)=int((8-9*rnd(1))/7)
  100 print"{clr}"tab(14)"** GOLF **{down}{down}
  110 print"Welcome to the links! This is an 18-
  120 print"holecourse of professional standard
  130 print"(course record is 2 under), so please
  140 print"replace divots and show courtesy to
  150 print"your fellow golfers.
  160 print"{down}Have a good round. See you at the 19th
  170 print"{down}{down}What is your handicap (0-30)   0{left}{left}{left}";
  171 inputh:ifa>=0andh<=30then190
  180 goto170
  190 print"{clr}Difficulties at golf{down}
  200 print" 1. hooking
  210 print" 2. slicing
  220 print" 3. poor distance
  230 print" 4. trap shots
  240 print" 5. putting{down}
  250 input"Your worst   1{left}{left}{left}";f:f=int(f)
  260 h=int(h):iff>0andf<6then290
  270 print"Don't be shy":goto250
  290 print"{clr}Selection of clubs{down}{down}
  300 print"Yardage      Clubs      No.{down}
  310 print"280-200    1-4 woods    1-4
  320 print"200-100    1-5 irons   11-15
  330 print"100- 0     6-9 irons   16-19
  340 print"{down}{down}To fade or draw the ball type f or d
  350 print"when asked.
  360 print"{down}To hit straight type return
  370 print"{down}{down}*** WARNING ***{down}
  380 print"Don't hit it to hard.{down}
  390 gosub9000:print"{clr}":poke59468,12:gosub1700:gosub9000
  400 rem genereer hole
  410 z=k:g=102:n=n+1:readd,p:print"{clr}{down}{down}{down}
  420 fori=1to18:printb$;:next
  430 print"{down}hole"n,:s=4:a=0
  440 print"distance"d"yds.","par"p
  450 t=k+280:e=1:fori=1to40:forj=1tos
  460 poket,32:t=t+40*e:nextj:t=t-40*e
  470 u=fnb(1):s=s+u
  480 ifs<4ors>8thens=s-u:goto470
  490 t=t+1+40*fnb(1):e=-e:nexti
  500 s=3:t=t+79:fori=1to5:forj=1tos
  510 o=160:ifi=3andj=2theno=43:q=t
  520 poket,o:t=t+40*e:nextj:t=t-40*e
  530 u=fnb(1):s=s+u
  540 ifs<3thens=s-u:goto530
  550 t=t-1+40*fnb(1):e=-e:nexti:o=69
  555 fori=1to8+fna(8)
  560 s=k+o+fna(9)+40*fna(15)
  570 ifpeek(s)=32thenpokes,87
  580 next:ifo=69theno=55:goto555
  590 pokek+360,148
  600 x=0:y=19:v=75:w=(q-k-37)/20:l=1
  605 ifd>450andd<550then1200
  610 ifrnd(1)>.6then1100
  620 print"{home}{down}{down}{down}{down}{down}{rght}O{CBM-T}P{down}{left}{left}{left}{CBM-G} {CBM-M}{down}{left}{left}{left}L{CBM-@}{SHIFT-@}
  640 gosub2000
  650 print"{home}which club do you choose   0{left}{left}{left}";
  660 inputc:c=int(c)
  670 if(c>0andc<5)or(c>10andc<20)then700
  680 print"no such club !":gosub2500
  690 goto640
  700 qq=0:ifc<15thenb=100:goto1500
  710 print"{home}you may now gauge youre distance by"
  720 print"{up}%age (0-100)of full swing."
  730 print"your choise   0{left}{left}{left}";
  740 inputb:ifb>0andb<=100then760
  750 goto710
  760 b=b/100:iff=3thenb=b*.85
  770 ifl=2thenb=b*aa:ifc<3thenb=b*.7
  790 gosub2500:rem distance
  800 m=309-fna(12)-(h+30)*.7-c*8.3
  810 m=int((b*m*75/d)+.5):q=0
  820 a=a+1:print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}";chr$(a+48)
  830 ifrnd(1)>.3+h/90then880
  840 q=(h+30)*(rnd(1)+.1)*~/500
  850 iff>2thenu=.5:goto870
  860 q=q*1.5:u=.9:iff=2thenu=.1
  870 ifrnd(1)>uthenq=-q
  880 ifv=xthent=~/2:x=x-sgn(y-w):goto890
  885 t=atn((y-w)/(v-x))+q-qq
  890 u=x+sgn(v-x)*int(m*cos(t)+.5)*tr
  900 y=y-sgn(v-x)*int(m*sin(t)+.5):x=u
  905 tr=1
  910 ifx>79ory<0ory>35then1300
  920 s=k+int(x/2)+40*int(y/2):t=peek(s)
  930 u=126:if(yand1)=1thenu=123
  940 if((xand1)=1and(yand1)=1)thenu=108
  950 if((xand1)=1and(yand1)=0)thenu=124
  960 pokez,g:pokes,u:g=t:z=s
  970 fori=1to9:pokes,g:forj=1to99:nextj
  980 pokes,u:forj=1to99:nextj:nexti
 1000 gosub2500:ifx=vandy=wthen1600
 1010 ifg=160org=43then6000
 1020 ifg=102thenl=2:goto7000
 1030 ifg=87then7500
 1040 ifg=193thenl=4:goto8000
 1050 ifg=174then8500
 1060 l=1:goto640
 1100 u=k+103+fna(11):t=1:fori=0to4
 1110 ifpeek(40*i+u)=32thenu=u+480:t=-1:goto1130
 1120 next
 1130 fori=1to12:pokeu+t*40*fna(5)-fna(8),193:next:goto620
 1200 c=k+12+fna(8):u=1
 1210 ifrnd(8)<.5thenc=c+13:u=-1
 1270 fori=1to18
 1280 pokec,174:ifrnd(1)>.4thenc=c+u
 1290 c=c+40:next:goto620:rem water
 1300 ifx>90then1360:rem o.o.b
 1320 ifx>79thenx=79
 1330 ify>=0andy<36then1410
 1340 ify>35andy<48theny=35:goto1410
 1350 ify<0andy>-11theny=0:goto1410
 1360 gosub2000
 1370 print"to much club - lost ball
 1380 print"penalty {rvon}6 strokes{rvof}":a=a+6
 1390 gosub2500
 1400 print"{clr}":goto6490
 1410 gosub2000
 1420 print"out of bounds - drop ball
 1430 print"penalty {rvon}1 stroke{rvof}":a=a+1
 1440 goto920
 1500 print"fade or draw   -{left}{left}{left}";
 1510 inputa$
 1520 ifa$="f"thenqq=.15
 1530 ifa$="d"thenqq=-.15
 1540 goto760
 1600 print"{clr}you holed out !!!!{down}{down}
 1610 print"lucky!!":goto6400
 1700 print"{clr}notation used
 1710 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{down}
 1720 print"{CBM-+} = rough{down}
 1730 print"W = traps (keep out){down}
 1740 print"  = fairway{down}
 1750 print"{rvon} {rvof} = green{down}
 1760 print"+ = the hole{down}
 1770 print"{rvon}t{rvof} = the tee{down}
 1780 print"{rvon}.{rvof} = water (lost ball){down}
 1790 print"{rvon}A{rvof} = trees{down}":return
 2000 print"{home}"z$;z$;z$
 2010 print"{home}";:return
 2500 fori=1to2000:next:return
 6000 print"{clr}on the green in"a
 6010 ifrnd(1)>.6thenja=1:goto6060
 6020 ifrnd(2)>.5thenja=1.27:goto6040
 6030 print"{down}{down}{down}{down}"tab(15)"{rvon}slow green":ja=.73:goto6060
 6040 print"{down}{down}{down}{down}"tab(15)"{rvon}fast green"
 6060 kk=k+320:m=1:t=1:iff=5thenm=3
 6070 gosub2500:gosub2000
 6080 fori=40to79:pokekk+i,99:next
 6090 pokekk+29,93:pokekk-11,225
 6100 pokekk-10,160
 6110 d=int(d*sqr((x-v)^2+(y-w)^2)/31)
 6120 ifd>58thend=56+fna(3)
 6130 pokekk+29-int(d/2),81
 6140 print"{down}you are"d"feet from the pin     "
 6150 input"{down}choose putting strength (1-12)   0   {left}{left}{left}{left}{left}{left}";c
 6200 ifc>0andc<13thena=a+1:goto6240
 6220 print"{up}"z$;" {up}{up}";:goto6150
 6240 e=c*(4+m*rnd(1))-2.5+(rnd(1)*(h+30)/40)*m:e=int(e*ja):m=m*.8
 6250 fori=1toe:d=d-1:s=int(kk+29-d*t/2)
 6260 forj=1toi:nextj
 6270 pokes,81:pokes-t,32
 6280 ifs<>kk+29thenpokekk+29,93
 6290 nexti:rem of green again ?
 6300 ifd<0thent=-t:d=-d
 6305 ifs=kk+29thenfori=1to99:next:pokes,93:goto6400
 6310 gosub2500:gosub2000:goto6140
 6400 gosub2500:rem putting
 6410 print"{clr}you're down in"a;
 6420 on(a-p+3)goto6460,6450,6440,6490,6490
 6430 print"-keep your head down":goto6500
 6440 print"-a par - nice going":goto6500
 6450 print"-a birdie - well played":goto6500
 6460 ifp=3then6480
 6470 print"-a great big eagle":goto6500
 6480 print"-a hole in one !!!!!
 6490 print
 6500 p1=p1+p:a1=a1+a:ifp1=a1then6550
 6510 a$="under":ifa1>p1thena$="over"
 6520 print"{down}{down}you are"abs(p1-a1);
 6530 printa$" par after"n"holes
 6540 goto6560
 6550 print"{down}{down}level par after"n"holes
 6560 print"{down}{down}{down}{rght}";:gosub9000
 6570 ifn<18then400
 6580 rem e.o.g.
 6590 print"{clr}*** game over ***{down}{down}{down}
 6600 onint((a1=p1)/5+2)goto6730,6700,6660
 6610 print"you've hacked your way round badly.
 6620 print"best take some lessons before you dig
 6630 print"up this course aigain
 6640 goto6900
 6660 print"an avarage round. you should improve
 6670 print"next time{down}
 6680 print"see the club pro for a few tips":goto6900
 6700 print"congratulations! you played a good
 6710 print"round. i like youre stile":goto6900
 6730 print"an under par round!!
 6740 print"next time you play try a higher handicap
 6900 end
 7000 rem rough
 7010 gosub2000:ifabs(y-17)>10then7030
 7020 aa=.75:print"in light rough":goto7040
 7030 aa=.50:print"you are in heavy rough
 7040 gosub2500:goto640
 7500 gosub2000:rem trap
 7520 print"** bunkered **":gosub2500
 7530 gosub2000
 7540 input"which club   0{left}{left}{left}";c:c=int(c)
 7550 ifc>11andc<20then7590
 7560 print"you won't get out with that
 7570 gosub2500
 7580 gosub2000:goto7540
 7590 input"%age swing   0{left}{left}{left}";b
 7610 m=68+fna(17)-(19-c)*5-(100-b)*.4
 7620 iff=4thenm=m*.7
 7625 ifrnd(1)<.4thenm=m/3
 7630 ifm>25thenqq=0:b=1:goto810
 7635 gosub2000
 7640 print"you fluffed it":gosub2500
 7650 a=a+1:goto7500
 8000 rem trees
 8010 gosub2000:print" in the trees
 8020 print"you can only hack out sideways
 8030 tr=0:gosub2500:goto640
 8500 rem water
 8510 gosub2000:print" ** splash !!! **
 8520 print"in the stream - lost ball
 8530 gosub2500:gosub2000:goto1380
 9000 print"{down}press any key to continue
 9010 geta$:ifa$=""then9010
 9020 return
 9030 data367,4,445,4,314,4,189,3,520,5
 9040 data331,4,468,4,375,4,177,3,424,4
 9050 data562,5,336,4,208,3,447,4,298,4
 9060 data543,5,385,4,478,4
  100 poke59468,12
  110 dimf(5,7),c%(7,9),s%(9,9),w(5),n$(7),t$(5),c1(3),d$(4),p$(5)
  120 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}","** midway campaign **":print:pi=~/180
  130 print:printtab(14)"{down}  avalon hill":print,"{down} microcomputer games":print
  140 v0%=0:v1%=0:t%=720:d%=3:m$="jc67*":fori=0to5:forj=2to7:readf(i,j):next:next
  150 data0,1,0,25,.1,.02,0,1,0,18,.2,.01,0,1,0,25,.1,.01,0,3,0,25,.1,.06,0,4
  160 data0,25,.1,.04,2,5,0,0,.25,.04,270,90,525,230,60,560,230,60,560,25,20,380
  170 fori=0to5:readj,k,l:gosub3530:next:fori=0to7:forj=0to3:readc%(i,j):next
  180 forj=4to8:c%(i,j)=0:next:next:fori=0to5:readw(i):next:fori=0to9:s%(i,9)=-1
  190 next:s6=.041:s7=.043:fori=0to7:readn$(i):next:fori=0to5:readt$(i):next
  200 fori=0to4:readd$(i):next:fori=0to5:readp$(i):next:print"{clr}
  210 data25,20,380,0,0,0,0,21,21,21,0,30,23,30,0,21,21,21,0,21,21,21,3,27,38
  220 data14,3,27,35,15,4,25,37,13,5,14,14,10,1.5,1.4,1.3,1.3,1.2,1,akagi,kaga
  230 datasoryu,hiryu,enterprise,hornet,yorktown,midway,carriers,transports
  240 datacruisers,tf-16,tf-17,midway,none,light,heavy,sunk,destr'd,f4f's,zekes
  250 datasbd's,vals,tbd's,kates
  260 deffns(x)=-(c%(x,8)>0)-(c%(x,8)>=60)-(c%(x,8)>=100)
  270 gosub3860:print"tf-16 c";:c=f(3,4):gosub3880:print"tf-17 c";:c=f(4,4)
  280 gosub3880:fori=11to0step-1:a$=" . . . . . . . . . . . . ":forj=0to5
  290 ifint(f(j,1)/100)<>ior(f(j,2)=0andj<3)then350
  300 k=int(f(j,0)/100)+1:ifk<1ork>12then350
  310 k=2*k:ifmid$(a$,k,1)="."then340
  320 k=k+1:ifmid$(a$,k,1)=" "then340
  330 k=k-2
  340 a$=left$(a$,k-1)+mid$(m$,f(j,3),1)+mid$(a$,k+1)
  350 next:printa$:next:print:gosub3590
  360 input"fleet command";a$:x=asc(a$):ifx>47andx<58then1060
  370 a$=left$(a$,1):ifa$="n"then1050
  380 ifa$="t"then470
  390 ifa$="s"then500
  400 ifa$="m"then270
  410 ifa$="a"then580
  420 print"legal fleet commands are:":print"t to change tf forces"
  430 print"s to print status report":print"m to redraw map"
  440 print"a to enter aircraft command"
  450 print"any number to proceed for that amount   of time."
  460 print"use an 'n' or '0' to execute only one   tactical turn.":goto360
  470 input"which task force";i:i=-3*(i=16)-4*(i=17):ifi=0then360
  480 input"new course";j:ifj<0orj>360then360
  490 f(i,4)=j*pi:printt$(i);" on course ";:c=f(i,4):gosub3880:goto360
  500 printtab(11);:gosub3860:printtab(16);"status":print"cv";tab(15);
  510 print"on deck  below   damage":printtab(10);"cap vf vb vt vf vb vt":print
  520 fori=4to7:printn$(i);tab(11);:c=c%(i,7):gosub3890:c=c%(i,4):gosub3890
  530 c=c%(i,5)+1000*(c%(i,5)>999):gosub3890:c=c%(i,6):gosub3890:forj=1to3
  540 c=c%(i,j):gosub3890:next:j=fns(i):ifi=7andj=3thenj=4
  550 printd$(j):iff(c%(i,0),2)=2andi<>7andfns(i)<3thenprint"  spotted";
  560 print:next:printtab(10);"contacts":gosub3590:ifl=0thenprint"none"
  570 goto360
  580 input"carrier";a$:i=asc(a$)
  590 i=-(4*(i=69)+5*(i=72)+6*(i=89)+7*(i=77)):ifi=0then360
  600 iffns(i)<2then640
  610 printn$(i);:iffns(i)=3thenprint" destroyed."
  620 iffns(i)=2thenprint" cannot operate aircraft."
  630 goto580
  640 input"aircraft command";a$:a$=a$+" ":a$=left$(a$,2):ifa$="ca"then810
  650 ifa$="cl"then800
  660 a$=left$(a$,1):ifa$="a"then710
  670 ifa$="l"then880
  680 print"legal aircraft commands are":print"n to return to fleet commands"
  690 print"a to arm a strike":print"l to launch a strike":print"ca to set cap"
  700 print"cl to clear decks":goto580
  710 ifc%(i,4)+c%(i,5)+c%(i,6)=0then730
  720 print"strike already arming.":goto580
  730 print"number of f4f's, sbd's, tbd's to spot":inputj,k,l:j=-j*(j>0)
  740 k=-k*(k>0):l=-l*(l>0):ifj>c%(i,1)thenj=c%(i,1)
  750 ifk>c%(i,2)thenk=c%(i,2)
  760 ifl>c%(i,3)thenl=c%(i,3)
  770 ifj+k+l=0then580
  780 c%(i,1)=c%(i,1)-j:c%(i,4)=j:c%(i,2)=c%(i,2)-k:c%(i,5)=k+1000:c%(i,6)=l
  790 c%(i,3)=c%(i,3)-l:printn$(i);" strike arming.":goto580
  800 gosub3640:printn$(i);" decks clear.":goto580
  810 c%(i,1)=c%(i,1)+c%(i,7):c%(i,7)=0:input"number of f4f's for cap";j
  820 j=-j*(j>0):ifj>c%(i,1)then840
  830 c%(i,7)=j:c%(i,1)=c%(i,1)-j:goto870
  840 c%(i,7)=c%(i,1):c%(i,1)=0:j=j-c%(i,7)
  850 c%(i,7)=c%(i,7)-j*(j<c%(i,4))-c%(i,4)*(j>=c%(i,4))
  860 c%(i,4)=(j-c%(i,4))*(c%(i,4)>j)
  870 printn$(i);" has";c%(i,7);"f4f's up for cap.":goto580
  880 ifc%(i,5)+c%(i,6)>0andc%(i,5)<1000then900
  890 printn$(i);" has no strike armed.":goto580
  900 gosub3590:ifl>0then920
  910 print"no targets.":goto580
  920 input"contact number";j:ifj>lorj<1then580
  930 j=c1(int(j)):m=j:n=c%(i,0):gosub3900:ifr<=200then950
  940 print"range";-int(-r);"nm, out of range.":goto580
  950 l=.3*r:ifi=7or(t%+l+l>=240andt%+l+l<=1140)then960
  960 ift%+l>=240andt%+l<1140then980
  970 print"night attacks not possible.":goto580
  980 m=-1:fork=9to0step-1:ifs%(k,9)<0thenm=k
  990 next:ifm>=0then1010
 1000 print"too many strikes aloft.":goto580
 1010 s%(m,0)=c%(i,4):s%(m,2)=c%(i,5):s%(m,4)=c%(i,6):c%(i,4)=0:c%(i,5)=0
 1020 c%(i,6)=0:s%(m,6)=j:s%(m,9)=i:s%(m,7)=t%+l:s%(m,8)=t%+l+l
 1030 s%(m,3)=1:s%(m,5)=0:s%(m,1)=-((s%(m,2)/(s%(m,2)+s%(m,4)))>rnd(ti))
 1040 printn$(i);" strike launched.":goto580
 1050 a$="0"
 1060 t0%=t%+int(val(a$)*60):d0%=d%-(t0%>1440):t0%=t0%+1440*(d0%>d%):fori=4to7
 1070 c%(i,5)=c%(i,5)+1000*(c%(i,5)>999):next
 1080 f9%=0:form=1to2:n=5:gosub3900:ifr<15thenf(m,5)=0
 1090 ifj9%>0thenf(m,5)=25+7*(m=2):f(m,4)=270*pi
 1100 next:m=0:gosub3900:ifr<=250then1120
 1110 x=850-f(0,0):y=450-f(0,1):gosub3910:f(0,4)=a
 1120 ifr>100then1140
 1130 f(0,4)=f(0,4)+180*pi+360*pi*(180*pi>f(0,4))
 1140 fork=6to4step-1:iff(c%(k,0),2)=0orc%(k,8)=100then1160
 1150 x=f(c%(k,0),0)-f(0,0):y=f(c%(k,0),1)-f(0,1):gosub3910:f(0,4)=a
 1160 next:ifj9%>0thenf(0,4)=270*pi
 1170 fori=0to3:ifc%(i,7)=5orfns(i)>1then1220
 1180 c%(i,7)=c%(i,7)+c%(i,1):c%(i,1)=0:ifc%(i,7)<5then1200
 1190 c%(i,1)=c%(i,7)-5:c%(i,7)=5:goto1220
 1200 c%(i,7)=c%(i,7)+c%(i,4):c%(i,4)=0:ifc%(i,7)<=5then1220
 1210 c%(i,4)=c%(i,7)-5:c%(i,7)=5
 1220 next
 1230 s9%=0:a9%=0:a8%=0:ift%>1140then1490
 1240 s8%=0:fori=0to3:ifc%(i,4)+c%(i,5)+c%(i,6)>0thens8%=1
 1250 next:ifs8%=0then1440
 1260 i=3
 1270 i=i+1:iffns(i)>1then1290
 1280 k=c%(i,0):gosub3950:ifk>0then1310
 1290 ifi<7then1270
 1300 i=0
 1310 ifi>0then1390
 1320 i=3
 1330 i=i+1:iffns(i)>2then1350
 1340 k=c%(i,0):gosub3950:ifk>0then1370
 1350 ifi<7then1330
 1360 i=0
 1370 ifi>0then1390
 1380 k=5:gosub3950:i=7*k
 1390 s9%=c%(i,0):ifs9%<5then1440
 1400 i=-1
 1410 i=i+1:ifs%(i,6)<5ors%(i,9)=-1ors%(i,1)=-1then1430
 1420 s9%=0:goto1440
 1430 ifi<9then1410
 1440 iff(3,2)>0orf(4,2)>0thena9%=1
 1450 m=0:n=5:gosub3900:ifr>235then1480
 1460 l=60*r/235:ift%+l<240ort%+l+l>1140then1480
 1470 a8%=1:ifc%(3,2)<12thena9%=1
 1480 ifa9%>0thena8%=0
 1490 ifs9%<3then1610
 1500 j=-1
 1510 j=j+1:ifs%(j,9)=-1then1540
 1520 ifj<9then1510
 1530 goto1610
 1540 s%(j,6)=s9%:s%(j,9)=0:m=0:n=s9%:gosub3900:l=60*r/235:s%(j,7)=t%+l
 1550 s%(j,8)=t%+l+l:s%(j,0)=0:s%(j,2)=0:s%(j,4)=0:fori=0to3:iffns(i)>1then1580
 1560 s%(j,0)=s%(j,0)+c%(i,4):c%(i,4)=0:s%(j,2)=s%(j,2)+c%(i,5):c%(i,5)=0
 1570 s%(j,4)=s%(j,4)+c%(i,6):c%(i,6)=0
 1580 next:ifs%(j,2)+s%(j,4)=0thens%(j,9)=-1
 1590 s%(j,3)=1:s%(j,5)=0
 1600 ifs%(j,9)<>-1thens%(j,1)=-((s%(j,2)/(s%(j,2)+s%(j,4)))>rnd(ti))
 1610 fori=0to3:gosub3640:iffns(i)>1then1700
 1620 ifa9%=0then1650
 1630 c%(i,4)=c%(i,1):c%(i,1)=0:c%(i,5)=c%(i,2):c%(i,2)=0:c%(i,6)=c%(i,3)
 1640 c%(i,3)=0:goto1680
 1650 ifa8%=0then1680
 1660 c%(i,4)=int(c%(i,1)/2):c%(i,5)=int(c%(i,2)/2):c%(i,6)=int(c%(i,3)/2)
 1670 c%(i,1)=c%(i,1)-c%(i,4):c%(i,2)=c%(i,2)-c%(i,5):c%(i,3)=c%(i,3)-c%(i,6)
 1680 ifs9%+a8%+a9%>0then1700
 1690 c%(i,7)=c%(i,7)+c%(i,1):c%(i,1)=0
 1700 next
 1710 t1%=30+int(30*rnd(ti)):t%=t%+t1%:ift%>=t0%andd%=d0%thenf9%=1
 1720 d%=d%-(t%>1440):t%=t%+1440*(t%>1440):ift%>=t0%andd%=d0%thenf9%=1
 1730 fori=0to4:f(i,0)=f(i,0)+t1%*f(i,5)*sin(f(i,4))/60
 1740 f(i,1)=f(i,1)+t1%*f(i,5)*cos(f(i,4))/60:next
 1750 ift%>1140ort%<240then1920
 1760 p%=1-2*(t%<300or(t%>720andt%<780))
 1770 fori=0to2:iff(i,2)=2then1860
 1780 iff(i,5)=0thenf(i,2)=2
 1790 iff(i,2)=1andrnd(ti)>3*s7then1860
 1800 ifrnd(ti)>p%*s7andf(i,2)=0then1860
 1810 f(i,2)=f(i,2)-(f(i,2)<2):ifrnd(ti)>3*s7then1830
 1820 f(i,2)=f(i,2)-(f(i,2)<2)
 1830 print"pby spots japanese ";:iff(i,2)=1thenprint"ships";
 1840 iff(i,2)<>1thenprintt$(i);
 1850 print".":f9%=1
 1860 next:iff(0,2)=2thenf(0,3)=2
 1870 p%=1-(t%>720andt%<780):fori=3to4:iff(i,2)=2then1910
 1880 ifrnd(1)<p%*s6thenf(i,2)=1
 1890 iff(i,2)=0orrnd(ti)>3*s6then1910
 1900 print"japanese scouts sighted over ";t$(i);".":f(i,2)=2:f9%=1
 1910 next:goto1930
 1920 fori=0to4:f(i,2)=0:next:f(0,3)=1
 1930 f7%=1:fori=0to9:if(s%(i,9)=-1)or(s%(i,7)>t%)or(s%(i,1)=-1)then2810
 1940 j=2:ifs%(i,6)<3thenj=1
 1950 fork=0to4step2:ifs%(i,k)=0thens%(i,k+1)=-1
 1960 ifrnd(ti)>.2then1990
 1970 ifs%(i,1)=s%(i,k+1)thens%(i,1)=-1
 1980 s%(i,k+1)=-1
 1990 next:ifj=2then2030
 2000 fork=0to4step2:ifs%(i,k)=0ors%(i,k+1)>-1then2020
 2010 printn$(s%(i,9));" ";p$(j+k-1);" miss target.":form=1to100:next:f9%=1
 2020 next
 2030 ifs%(i,3)+s%(i,5)=-2ors%(i,2)+s%(i,4)=0then2810
 2040 f(c%(s%(i,9),0),2)=2:f(s%(i,6),2)=2
 2050 iff(0,2)=2thenf(0,3)=2
 2060 ifj=1thenprintn$(s%(i,9));
 2070 ifj=2thenprint"japanese";
 2080 print" strike attacking ";t$(s%(i,6));"!":m=3:gosub3980:f9%=1
 2090 k=-1
 2100 k=k+1:ifs%(i,6)=c%(k,0)andc%(k,8)<100then2260
 2110 ifk<7then2100
 2120 print"on the way in,":gosub3670:fork=2to4step2
 2130 ifs%(i,k)=0ors%(i,k+1)=-1then2250
 2140 prints%(i,k);" ";p$(j+k-1);" attack ";t$(s%(i,6));"!":m=1:gosub3980
 2150 e=f(s%(i,6),6)*(1+.25*(k=4)*(1-(j=1))):h%=0:n%=0
 2160 forl=1tos%(i,k):r=rnd(ti):ifr<ethenh%=h%+1
 2170 if(k=2ors%(i,6)=5)and(r<2*eandr>=e)thenn%=n%+1
 2180 next
 2190 printp$(j+k-1);" make";h%;"hits";:ifk=2ors%(i,6)=5then2210
 2200 print".":m=1:gosub3980:goto2220
 2210 print" and";n%;"near misses.":m=1:gosub3980
 2220 v%=(16-8*(k=4ands%(i,6)<>5))*h%+3*n%
 2230 printv%;"victory points awarded.":m=3:gosub3980
 2240 v0%=v0%-v%*(j=1):v1%=v1%-v%*(j=2):ifs%(i,6)<>2then2250
 2250 next:print"on the way out,":gosub3670:goto2800
 2260 c%=0:fork=0to7:ifc%(k,0)<>s%(i,6)then2280
 2270 c%=c%+c%(k,7):c%(k,7)=0
 2280 next:ifc%=0then2540
 2290 k=2-2*(rnd(ti)>.5):ifs%(i,k+1)=-1ors%(i,k)=0thenk=2-2*(k=2)
 2300 ifk=4thenf7%=0
 2310 ifs%(i,k+1)=-1ors%(i,k)=0then2490
 2320 print"cap attacks ";p$(j+k-1);".":m=1:gosub3980
 2330 l1%=-s%(i,0)*(s%(i,1)=s%(i,k+1))
 2340 ifl1%>0thenprintp$(j-1);" defend ";p$(j+k-1);"."
 2350 m=1:gosub3980
 2360 e=(c%*w(j-1))/(l1%*w(-(j=1))+s%(i,k)*w(k-(j=1)))
 2370 e=-e*(e<.85)-.85*(e>=.85):h%=0:forl=1tos%(i,k):ifrnd(ti)<ethenh%=h%+1
 2380 next:print"cap shoots down";h%;p$(j+k-1);".":m=1:gosub3980
 2390 s%(i,k)=s%(i,k)-h%:ifl1%=0then2490
 2400 printp$(j-1);" attack cap.":m=1:gosub3980
 2410 e=(l1%*w(-(j=1)))/(c%*w(j-1)):e=-e*(e<.85)-.85*(e>=.85):h%=0
 2420 forl=1toc%:ifrnd(ti)<ethenh%=h%+1
 2430 next:printp$(j-1);" shoot down";h%;p$(-(j=1));".":m=1:gosub3980
 2440 c%=c%-h%:ifc%=0then2540
 2450 e=.5*(c%*w(j-1))/(l1%*w(-(j=1))):e=-e*(e<.85)-.85*(e>=.85):h%=0
 2460 forl=1tol1%:ifrnd(ti)<ethenh%=h%+1
 2470 next:print"cap shoot down";h%;p$(j-1);".":m=1:gosub3980
 2480 s%(i,0)=s%(i,0)-h%
 2490 ifc%=0then2540
 2500 l=-1:fork=1toc%
 2510 l=-(l+1)*(l<7):ifs%(i,6)<>c%(l,0)orc%(l,8)>=60then2510
 2520 c%(l,7)=c%(l,7)+1:next
 2530 if(s%(i,3)=-1ors%(i,2)=0)and(s%(i,5)=-1ors%(i,4)=0)then2800
 2540 print"on the way in,":gosub3670
 2550 fork=4to2step-2:ifs%(i,k)=0ors%(i,k+1)=-1then2790
 2560 m%=0:forl=0to7:c%(l,9)=0:ifc%(l,8)<100andc%(l,0)=s%(i,6)thenm%=m%+1
 2570 next:ifm%=0then2790
 2580 o%=-1:forn=1tom%
 2590 o%=-(o%+1)*(o%<7):ifc%(o%,0)<>s%(i,6)orc%(o%,8)=100then2590
 2600 c%(o%,9)=int((s%(i,k)+m%-n)/m%):next
 2610 forl=0to7:ifc%(l,9)=0then2780
 2620 print c%(l,9);" ";p$(j+k-1);" attack ";n$(l);".":m=1:gosub3980
 2630 n%=0:h%=0:e=.2-(k=4)*.06*(j=1):l1%=0:form=1toc%(l,9):r=rnd(ti)
 2640 ifr>=ethen2660
 2650 print"{rvon}hit!{rvof} ";:h%=h%+1:l1%=l1%+1:goto2680
 2660 ifr>=2*eor(k=4andl<>7)then2680
 2670 print"near miss ";:l1%=l1%+2:n%=n%+1
 2680 ifl1%>5thenprint
 2690 l1%=-l1%*(l1%<6):next:ifl1%>0thenprint
 2700 printn$(l);" takes";h%;"hits";:ifn%=0then2720
 2710 print" and";n%;"near misses";
 2720 print".":m=3:gosub3980
 2730 ifh%+n%=0then2780
 2740 d7%=0:ifh%+n%>0andc%(l,4)+c%(l,5)+c%(l,6)>0and(k=2orl=7)thend7%=1
 2750 ifd7%>0thenprint"secondary explosions on ";n$(l);"!"
 2760 d8=16*(1+d7%-.5*(k=4andl<>7)):form=1toh%:gosub3730:next
 2770 d8=3*(1+2*d7%):form=1ton%:gosub3730:next
 2780 next
 2790 next:print"on the way out,":gosub3670
 2800 fork=0to4step2:s%(i,k+1)=-1:next
 2810 next
 2820 forl=0to7:ifc%(l,8)<10orc%(l,8)=100then2870
 2830 ifrnd(ti)>.05*(1-(l<4))then2850
 2840 print"explosion on ";n$(l);"!":m=1:gosub3980:d8=16:gosub3730
 2850 ifc%(l,8)=100orrnd(ti)>.2*(1-(l>3))then2870
 2860 c%(l,8)=c%(l,8)-5*rnd(ti):c%(l,8)=-c%(l,8)*(c%(l,8)>0)
 2870 next
 2880 v2%=0:forj=0to9:ifs%(j,9)=-1then3160
 2890 v2%=1:ift%<s%(j,8)then3160
 2900 ifs%(j,9)<4then3050
 2910 f9%=1:i=s%(j,9):iffns(i)>1then2950
 2920 print"strike landing on ";n$(i);".":m=1:gosub3980:gosub3640
 2930 c%(i,1)=c%(i,1)+s%(j,0):c%(i,2)=c%(i,2)+s%(j,2)
 2940 c%(i,3)=c%(i,3)+s%(j,4):goto3150
 2950 ifi>5or(c%(4,8)>60andc%(5,8)>60)then2970
 2960 k=4-(i=4):goto3030
 2970 k=3
 2980 k=k+1:ifc%(k,8)>60then3000
 2990 m=c%(i,0):n=c%(k,0):gosub3900:ifr<100then3020
 3000 ifk<7then2980
 3010 printn$(i);" strike splashes.":m=1:gosub3980:goto3150
 3020 ifrnd(ti)>.8then3010
 3030 printn$(i);" strike diverted to ";n$(k);".":m=1:gosub3980
 3040 i=k:goto2920
 3050 l=0:fori=0to3:iffns(i)<2thenl=l+1
 3060 next:ifl=0then3150
 3070 fori=0to3:gosub3640:next:fork=0to4step2:m%=-1:fori=1tol
 3080 m%=-(m%+1)*(m%<3):iffns(m%)>1then3080
 3090 c%(m%,1+k/2)=c%(m%,1+k/2)+int((l+s%(j,k)-i)/l)
 3100 next:next:fori=0to3
 3110 ifc%(i,1)+c%(i,2)+c%(i,3)<96then3140
 3120 c%(i,1)=c%(i,1)+(c%(i,1)>0):c%(i,2)=c%(i,2)+(c%(i,2)>0)
 3130 c%(i,3)=c%(i,3)+(c%(i,3)>0):goto3110
 3140 next
 3150 s%(j,9)=-1
 3160 next
 3170 i=-1
 3180 i=i+1:iffns(i)<2then3210
 3190 ifi<3then3180
 3200 j9%=1
 3210 ifv2%=1then3320
 3220 ifj9%=1andf(0,0)<0then3340
 3230 i=-1
 3240 i=i+1:iffns(i)<3then3270
 3250 ifi<3then3240
 3260 goto3340
 3270 iff(3,0)>1200orf(4,0)>1200then3340
 3280 i=3
 3290 i=i+1:iffns(i)<3then3320
 3300 ifi<7then3290
 3310 goto3340
 3320 iff9%>0then270
 3330 goto1080
 3340 print"{rvon}the game is over.{rvof}":print"report:":v2%=0:v3%=0:p%=0
 3350 print"cv";tab(11);"damage status":fori=0to3:printn$(i);tab(12);d$(fns(i))
 3360 forj=1to7:p%=p%+c%(i,j):next:s%=fns(i)
 3370 v2%=v2%-100*(s%=1)-300*(s%=2)-1000*(s%>2):next
 3380 p1%=p%:p%=0:fori=4to7:printn$(i);tab(12);d$(fns(i)-(i=7andfns(i)=3))
 3390 forj=1to7:p%=p%+c%(i,j):next:s%=fns(i)
 3400 v3%=v3%-100*(s%=1)-300*(s%=2)-1000*(s%>2):next
 3410 p1%=272-p1%:print"japanese lost";p1%;"planes.":v2%=v2%+5*p1%
 3420 p%=269-p%:print"us lost";p%;"planes.":v3%=v3%+5*p%
 3430 ifv0%>0thenprint"us had";v0%;"points in other hits."
 3440 ifv1%>0thenprint"japanese had";v1%;"points in other hits."
 3450 printt$(5);" has";:ifj9%>0thenprint" not";
 3460 print" fallen.":ifj9%=0thenv3%=v3%+1000
 3470 v0%=v0%+v2%:v1%=v1%+v3%:v%=v0%-v1%:ifv%<0thenprint"japanese";
 3480 ifv%>=0thenprint"us";
 3490 v%=abs(v%):a$="marginal":ifv%>=1000thena$="tactical"
 3500 ifv%>=2000thena$="strategic"
 3510 print" ";a$;" victory.":restore:input"go again (y/n)";a$:ifa$="y"then120
 3520 goto3990
 3530 l=l+175*rnd(ti)-200*rnd(ti)*(i<3):j=(j+k*rnd(ti))*pi
 3540 f(i,0)=850-l*sin(j)*(i<>5):f(i,1)=450-l*cos(j)*(i<>5)
 3550 iff(i,0)>1199thenf(i,0)=1199
 3560 iff(i,1)>1199thenf(i,1)=1199
 3570 j=j+180*pi+360*pi*(j>180*pi):f(i,4)=j:ifi>2thenf(i,4)=205*pi
 3580 return
 3590 l=0:fork=0to2:iff(k,2)=0then3630
 3600 l=l+1:print"contact";l;"at position";int(f(k,0)/100)+1;
 3610 printint(f(k,1)/100)+1;:iff(k,2)=2thenprint" ";t$(k);
 3620 print:c1(l)=k
 3630 next:return
 3640 c%(i,5)=c%(i,5)+1000*(c%(i,5)>999):c%(i,1)=c%(i,1)+c%(i,4):c%(i,4)=0
 3650 c%(i,2)=c%(i,2)+c%(i,5):c%(i,5)=0:c%(i,3)=c%(i,3)+c%(i,6):c%(i,6)=0
 3660 return
 3670 fork=0to4step2:ifs%(i,k)=0ors%(i,k+1)=-1then3720
 3680 e=f(s%(i,6),7)*(-.4*(k=0)-.7*(k=2)-(k=4)):h%=0
 3690 forl=1tos%(i,k):ifrnd(ti)<ethenh%=h%+1
 3700 next:printt$(s%(i,6));" aa shoots down";h%;p$(j+k-1);".":form=1to200:next
 3710 s%(i,k)=s%(i,k)-h%
 3720 next:return
 3730 ifc%(l,8)>=100thenreturn
 3740 d9=rnd(ti)*d8:ifl=7thend9=d9/3
 3750 ifnot(k=2orl=7orrnd(ti)<.5)then3800
 3760 forl1=1to(6-(t%<240ort%>1140)):ifc%(l,l1)=0then3790
 3770 forl2=1toc%(l,l1):ifrnd(ti)<d9/100thenc%(l,l1)=c%(l,l1)-1
 3780 next
 3790 next
 3800 c%(l,8)=c%(l,8)+d9:ifc%(l,8)<60thenreturn
 3810 l1=i:i=l:gosub3640:i=l1:c%(l,1)=c%(l,1)+c%(l,7):c%(l,7)=0
 3820 ifc%(l,8)<100thenreturn
 3830 c%(l,8)=100:printn$(l);:ifl=7thenprint" airbase is destroyed."
 3840 print" blows up and sinks."
 3850 forl1=1to300:next:forl1=1to6:c%(l,l1)=0:next:return
 3860 a$=str$(100+int(t%/60))+str$(100+t%-60*int(t%/60))
 3870 printmid$(a$,3,2);mid$(a$,7,2);" ";str$(d%);" june 1942":return
 3880 a$=str$(int(c/pi+1000.5)):printmid$(a$,3,3);"t":return
 3890 a$=str$(c):printmid$(a$,2+(c<10),2);" ";:return
 3900 x=f(m,0)-f(n,0):y=f(m,1)-f(n,1):r=sqr(x*x+y*y):return
 3910 a=(90-180*(x<0))*pi:ify=0thenreturn
 3920 a=atn(x/y):ify<0then3940
 3930 a=a-360*pi*(x<0):return
 3940 a=a+180*pi:return
 3950 m=0:n=k:gosub3900:iff(k,2)=0orr>235thenk=0
 3960 l=r*60/235:ift%+l<240ort%+l+l>1140thenk=0
 3970 k=-(k>0):return
 3980 form1=1tom:form2=1to1000:next:next:return
 3990 ifpeek(45058)=180then$x,peek(45051)-48,"inhoud
  100 print"distance calculator     jim butterfield"
  120 input"{down}want instructions";z$
  130 if asc(z$)=78goto200
  140 print"{down}program calculates airline distances"
  145 print"from latitute and longtitude:{down}"
  150 print"if lat/long is in degrees/minutes/secs"
  155 print"enter with a space between units"
  160 print"{down}e.g., toronto is at '43 40, 79 23'"
  165 print"..43 degs 40 min north latitude, etc;"
  170 print"{down}{rvon} north {rvof} lat and {rvon} west {rvof} long are assumed"
  175 print"unless otherwise given:"
  180 print"e.g., perth is at: 31 50s, 116 10e."
  200 dim n$(50),x(50),y(50)
  210 print"{down}enter locations:"
  220 for n=0 to 50
  230  print "{rvon}name of location";n+1;"{rvof}";
  240  n$="end":input n$:if n$="end" goto 390
  250  input"latitude";l$:gosub 500
  260  x(n)=l:n$(n)=n$:x=l
  270  input"longtitude";l$:gosub 500
  280  y(n)=l:y=l
  290  if n=0 goto 380
  300  for j=0 to n-1
  310 if j=0 then print"{rvon}";n$;" to: ";tab(20);" miles "," km "
  320   a=y(j)-l:x1=x(j)
  330   d1=cos(x1)*cos(x)*cos(a)+sin(x1)*sin(x)
  340   d=~/2:if d1<>0 then d=atn(sqr(1-d1*d1)/d1)
  350   if d<0 or (d=0 and d1<0) then d=d+~
  360   print n$(j);tab(20);int(d*3956.62+.5),int(d*6367.566+.5)
  370  next j
  380 next n
  390 end
  490 input "???";l$
  500 c1=0:l=0:v=0:v8=1:v9=1:f=1:r=~/180
  510 for j=1 to len(l$):c=asc(mid$(l$,j,1))
  520  if c=32 and c<>c1 then l=l+v*r/v9:r=r/60:v=0:v8=1:v9=1:goto 580
  530  if c=78 or c=87 or c=43 goto 580 :rem 'n' or 'w'
  540  if c=69 or c=83 or c=45 then f=-1:goto 580 :rem 'e' or 's'
  550  if c=46 then v8=10:goto 580
  560  if c<48 or c>57 then print chr$(c);:goto 490
  570  v=v*10+c-48:v9=v9*v8:if r<4e-6 goto 490
  580  c1=c
  590 next j
  600 l=(l+v*r/v9)*f:return
    0 rem program by raymond li:3 underhill dr. don mills ont.m3a 2j1:copyright(c)
    1 rem "{CBM-D}{up}A{$84}I{CBM-I}{$80}{f3}J{CBM-E}I{$69}{$80}{CTRL-X}{up}IHP{$f6}{$e6}J{CBM-G}JI{$84}P{$ee}{$60}"
    2 poke59500,12:forx=1to10:k=int(rnd(ti)*10)+1:next
    5 dimb(5,3),a(10):p0=515-peek(50003)*364
   10 print"{clr}":for x=1to40:print"{CBM-+}";:nextx
   20 forx=1to24:poke32768+(40*x),102:poke32768+(40*x)+39,102:nextx
   30 forx=0to39:poke32768+(40*24)+x,102:nextx
   40 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}simulation of"
   50 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(5);"millikan oil drop experiment"
   60 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(19);"by"
   70 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"raymond li"
   80 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"jan, 1980"
   90 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(5):print"do you want any instructions"
  105 geta6$:ifa6$=""then105
  106 ifa6$="y"then gosub9000
  107 poke59500,12
  110 a$="{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}           {down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}           "
  120 a1$="{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N{CBM-G}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}MN{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-G}"
  130 c$=a$+a1$
  140 b$="{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}          {CBM-M}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  147 s5$="to spray{left}{left}{left}{left}{left}{left}{left}{left}{down} {rvon}press s{rvof}"
  150 b1$="{CBM-*}{rvon}           {rvof} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-*}{rvon}         {rvof}{SHIFT-POUND}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M"
  155 b2$="{down} "
  160 d$=b$+b1$+b2$
  170 e$="{home}.....................{home}{down}......................"
  175 e0$="{home}{down}{down}......................."
  180 e1$="{home}{down}{down}{down}........................{home}{down}{down}{down}{down}...................."
  190 e2$="{home}{down}{down}{down}{down}{down}.......................{home}{down}{down}{down}{down}{down}{down}...................."
  200 f$=e0$+e1$+e2$
  210 g$(0)="{home}":fory=1to6:g$="{down}":g$(y)=g$(y-1)+g$
  230 nexty
  240 h$="                        "
  250 v$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  260 v1$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  270 x$=" {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {home}"
  280 x1$="_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{down}{left}_{home}"
  290 s$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  300 print"{clr}":q=1.60210e-19:w=2.8e-14:m=w/9.8:d=.005
  320 r=int(rnd(1)*09)+1:n=n+1
  330 qr=q*r
  340 vr=int((w*d/qr)+.5):v=160
  350 q2=0:gosub2000
  400 p=peek(p0):ifp=255then400
  410 ifp=40then430
  415 ifq2=1then400
  420 printv1$;s5$:q2=1:goto400
  430 printc$:tl=ti
  440 ifti<tl+30 then440
  450 printf$:tl=ti
  460 ifti<tl+30 then 460
  470 printd$
  480 fory=0to6
  490 tl=ti:k$=g$(y)+h$
  500 ifti<tl+30 then500
  510 printk$
  520 nexty:q2=0
  530 o=33060:o1=0:poke33100,46:tl=ti
  533 ifti<tl+15then533
  535 poke33060,32:poke33100,46
  537 ifti<tl+35then537
  538 poke33100,46
  539 poke33100,32
  540 forx=3to13
  550 pokeo+(x*40),46:pokeo+((x-1)*40),32:tl=ti
  555 o1=o+((x+1)*40):p=peek(p0):if p=255 then 560
  557 if p=24 then 640
  558 gosub 622
  560 ifti<tl+15 then 560
  570 o1=o+(x*40):nextx:goto 3000
  620 ifp=24then640
  622 q2=q2+1
  625 ifq2>1thenreturn
  630 x5$="{left}spray x-ray{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}by pressing{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}'x'{rvof}{home}"
  631 printv1$;x5$
  632 return
  640 for x=21to0step-1
  650 t$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  660 printt$;tab(x+1);x$
  665 printt$;tab(x);x1$
  666 ifx=11thenpokeo1-40,46
  667 nextx
  670 printt$;x$
  680 o1=o1-40
  681 forx=1to10
  682 fory=1to4
  683 pokeo1-39,32:pokeo1,124:pokeo1-41,85
  684 pokeo1-41,32:pokeo1,108:pokeo1+39,74
  685 pokeo1+39,32:pokeo1,123:pokeo1+41,75
  686 pokeo1+41,32:pokeo1,126:pokeo1-39,73
  687 nexty:nextx:tl=ti
  688 pokeo1,46:pokeo1-39,45:ford=1to1000:next
  689 pokeo1-39,32
  690 tl=ti
  695 s=int((v-vr)/vr*10000):s1=int(s/1000+.5):if10-abs(s1)<1thens1=10
  697 s=s/100
  700 printv$;str$(v);"  "
  730 c=peek(p0)
  740 ifc=48then5000
  745 ifc=52then850
  750 ifc=26then760
  751 ifc=18then761
  752 ifc=25then762
  753 ifc=10then763
  754 ifc=2 then764
  755 ifc=9 then765
  756 goto780
  760 v=v+100:goto780
  761 v=v+10:goto780
  762 v=v+1:goto780
  763 v=v-100:goto780
  764 v=v-10:goto780
  765 v=v-1
  780 ifv>999thenv=999
  783 ifv<0thenv=0
  784 ifs=0then695
  785 ifti>tl+(07*(11-abs(s1)))then790
  787 goto695
  790 pokeo1,32:z1=sgn(vr-v)*40:o1=z1+o1:ifo1<33140then3000:printvr,v,z1
  792 ifo1>33620 then3000
  795 pokeo1,46:goto690
  850 prints$;"{left}{left}{left}";str$(s);s$;"{left}{left}{left}     ":ifs=0then900
  870 goto930
  900 print v1$;"{rvon}{left}oil drop is{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}stable{rvof}     {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}        ":tl=ti
  910 ifti<tl+15 then 910
  920 print v1$;"{left}           {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}           "
  930 prints$;"    ":goto780
 2000 poke59500,12:print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N{CBM-T}{CBM-T}{up}N{up}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}"
 2010 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}M{CBM-@}{CBM-@}{down}{CBM-*}{rvon}           {rvof}"
 2020 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{rvon}         {rvof}{SHIFT-POUND}"
 2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{rvon}(+)anode{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}L"
 2040 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}{CBM-G}"
 2050 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-T}O"
 2060 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-T}O"
 2065 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}(-)cathode{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-G}{CBM-G}"
 2070 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}O"
 2080 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 2090 forx=1to17:poke33076+(x*40),103:nextx
 2100 a6$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 2110 printa6$;"{down}{down}{down}{down}{down}{down}{down}{down}distance{down}{left}{left}{left}{left}{left}{left}{left}{left}.005m"
 2120 printa6$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}voltage{down}{left}volts"
 2130 printa6$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}mass of{down}{left}{left}{left}{left}{left}{left}{left}oil drop{down}{left}{left}{left}{left}{left}{left}{left}{left}2.9e-15kg"
 2140 printa6$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}exp no.";n
 2150 printa6$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}%err"
 2600 return
 3000 forx=1to10:sys1111:fory=1to25:next:sys1111:next
 3001 print"{clr}your oil drop has touched the plates;   to restart the experiment"
 3005 print" press the letter 'c'":a9$=""
 3010 geta9$:ifa9$="c" then350
 3030 goto3010
 5000 poke59500,4:d=.005
 5001 print"{clr}{rvon}Analysis of experiment No.";n;"{rvof}"
 5010 print"{down}Mass of the oil drop  is ";w;"kg"
 5020 print"{down}Distance between the plates is .005     of a meter"
 5030 print"{down}The voltage needed to balance the drop  is";v;" volts"
 5040 print"{down}By using the formula Q=(mgd)/V where    Q is charge, m is mass ";
 5041 print"AND{$a0}V{$a0}IS{$a0}VOLTAGE"
 5042 print", d is distance":b(n,1)=v
 5045 print"{down}The chagre of the oil drop is":b(n,2)=(w*d)/v
 5046 print" (";m;"*9.8*";d;")/";v
 5060 print"=";b(n,2);"coulomb"
 5070 gosub 8000
 5080 ifn=5then6000
 5300 goto300
 6000 print"{clr}":poke59500,4
 6010 printtab(6);"{rvon}Results of all experiments"
 6020 print
 6030 print"CONSTANTS{$a0}OF{$a0}ALL{$a0}EXPERIMENTS" minute"
 6040 print"Distance between plates    =.005m"
 6050 print"Mass of oil drop           =9.2E-15kg"
 6060 print"Acceleration due to gravity=9.8m/s/s
 6070 print"{home}{down}{down}{down}{down}{down}{down}{down}"
 6080 forx=1to12:printtab(6);"!";tab(17);"!";tab(38);"!":next
 6090 print"{home}{down}{down}{down}{down}{down}{down}{down}Exp no{rght}{rght}{rght}Voltage{rght}{rght}{rght}Charge of oil drop"
 6100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":forx=1to5:print"{down}";tab(3);x;tab(09);b(x,1);
 6115 printtab(18);b(x,2) :nextx
 6120 print"{down}{down}These are all the results of the"
 6130 print"experiment. Press any key to continue":z9$=""
 6140 getz9$:ifz9$=""then 6140
 7000 forx=1to5
 7010 b(x,3)=int(b(x,2)*1e20+.5):nextx:q=b(1,3)
 7020 forx=2to5
 7030 w=b(x,3)
 7040 ifq>wthen7060
 7050 z=q:q=w:w=z
 7060 dv=int(q/w):ra=q-dv*w
 7070 ifra=0then7126
 7080 ifra=1then7120
 7090 q=w:w=ra:goto7040
 7100 nextx:f=w:goto7130
 7120 f=1:goto7500
 7125 gosub9999
 7126 q=w :goto7100
 7130 ch=f/1e20:print"{clr}From the Euclidean Alogrithmic method of"
 7132 print"{up}finding common factors we found the"
 7134 print"common factor of all the charges to be"
 7136 print"{down}";ch;"{down}"
 7138 print"Therefore the charge of a single "
 7140 print"electron must be approximately"
 7142 print"{down}";ch;tab(13);"coulomb{down}"
 7143 gosub9999
 7144 print"{clr}From the chart below you can see that the"
 7146 print"{up}charge on the oil drops is  very close"
 7148 print"to an integer multiple of the charge of"
 7150 print"an electron"
 7152 print"{down}{down}{down}":forx=1to14:printtab(3);"!";tab(20);"!";tab(35);"!":nextx
 7155 print"{home}{down}{down}{down}{down}{down}Exp{rght}{rght}Charges on Drop{rght}{rght}Multiple  of{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";ch
 7157 print"{down}":forx=1to5:printtab(1);x;tab(5);b(x,2);tab(25);
 7159 printint(b(x,2)/ch*100+.5)/100;"{down}":next
 7190 gosub9999
 7200 print"A rerun of the experiment is suggested "
 7202 print"to confirm the result":goto7600
 7500 print"A common factor is not found. A mistake"
 7502 print"must have been made during the"
 7504 print"experiment."
 7506 print"{down}A rerun of the experiment is suggested"
 7600 print"{down}{down}{down}run";"{up}{up}{up}{up}{down}":end
 8000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}PRESS{$a0}'C'{$a0}TO{$a0}CONTINUE":z9$=""
 8010 get z9$:ifz9$<>"c" then 8010
 8020 return
 9000 print"{clr}  {rvon}DESCRIPTIONS{$a0}OF{$a0}MILLIKAN'S EXPERIMENT{rvof}"
 9005 poke59500,4
 9010 print"      The purpose of this program  is to"
 9015 print"simulate the Millikan Oil Drop"
 9020 print"Experiment;which led to the discovery of the charge of an electron."
 9025 print
 9030 print"     In the actual experiment, minute"
 9035 print"drops of oil, which are under the"
 9040 print"influence of the force of gravity ,are"
 9045 print"allowed to fall through a chamber"
 9050 print"containing two metal plates.{$a0}{$a0}These"
 9055 print"plates are placed horizontally near the"
 9060 print"top and bottom of the chamber respectively."
 9065 print"As the oil drops fall to the center of"
 9070 print"the chamber, X-rays are used to ionize"
 9075 print"the volume of air around the droplets,"
 9080 print"thus producing free electrons.  As a"
 9085 print"result, the free electrons would adhere"
 9090 print"itself to the oil drop. Thus,a negative"
 9095 print"charge is created on the droplet.  Since"
 9100 print"{up}charges on the droplets are not constant"
 9110 print"{up}different droplets would have different"
 9112 gosub9998
 9115 print"charges. However, the charge of the"
 9120 print"droplets will always be a multiple of"
 9125 print"the charge of a single electron."
 9130 print
 9135 print"     After the gas is ionized, an"
 9137 print"electric current is allowed to flow"
 9140 print"through  the plates; creating an"
 9145 print"electrical field. The top plate is"
 9150 print"usually made positive while the bottom"
 9155 print"plate is made negative.  Since the oil"
 9160 print"drops are charged negatively, they will"
 9165 print"have an attraction for the top plate."
 9170 print"The attractive forces between the top"
 9175 print"plate and the oil drops could be easily"
 9180 print"controlled by varying the voltage or the"
 9185 print"{up}potential difference between the plates."
 9190 print"{up}When the voltage is adjusted such that"
 9195 print"the force of attraction equals the force"
 9200 print"{up}of gravity on a droplet, that droplet"
 9205 print"will appear to be suspending from mid-"
 9210 print"air, motionless."
 9215 print
 9220 print"{$a0}{$a0}{$a0}{$a0}{$a0}At this stage, the charge on that"
 9222 gosub9998
 9225 print"specific droplet could be calculated"
 9230 print"since the mass of the droplet, the"
 9235 print"voltage, and distance between the plates"
 9240 print"{up}are known. By peforming numerous trials"
 9245 print"and finding the common factors of all"
 9250 print"the charges, the charge of a single"
 9260 print"electron can be determined."
 9265 gosub9998
 9270 print"{rvon}Formulas that are involved in the"
 9275 print"{rvon}experiment{rvof}"
 9280 print
 9285 print"The force of gravity on the oil drop is"
 9290 print
 9295 print"W=mg  W is the weight"
 9300 print"      m is the mass"
 9305 print"      g is acceleration due to gravity"
 9310 print
 9315 print"The attractive force between the plates"
 9320 print"and the oil drop is:"
 9325 print
 9330 print"F=Eq  F is the force between positive"
 9335 print"plate and the drop"
 9340 print
 9345 print"      E is the electrical field of the"
 9350 print"plates"
 9355 print
 9360 print"      q is the charge on the drop"
 9365 print
 9370 print"Electrical field is defined as:"
 9372 gosub9998
 9375 print"{down}E=v/d  v is voltage"
 9378 print"       d is distance between the (+) and"
 9380 print"{up}(-) plates"
 9382 print"{down}Since W=mg and F=Eq and E=v/d"
 9385 print"Since we know {$77}hen the droplet is""
 9387 print"motionless that:"
 9390 print"{down}W=F"
 9392 print"{down}Since W=mg and F=Eq and E=v/d"
 9395 print"{down}{down}      mg=Eq"
 9397 print"{down}{down}{down}       mg=--{up}{left}{left}qv{down}{down}{left}d"
 9400 print"{down}{down}Therefore  q=---{up}{left}{left}{left}mgd{down}{down}{left}{left}v"
 9402 gosub9998
 9405 print"{down}This is the formula that is used to"
 9411 print"find the charge of the oil drop at the "
 9412 print"end of our experiments"
 9413 gosub9999
 9450 print"  The computer simulated experiment is"
 9452 print"very similar to the actual experiment."
 9454 print"However, the mass of the oil drop  is"
 9456 print"set to be a constant to make calculation"
 9458 print"{up}easier.  Also many laboratories replace"
 9500 print"the oil drops with miniature spheres"
 9502 print"which have a constant mass."
 9504 print"  Once the experiment has started, the"
 9506 print"computer will  allow you to control the"
 9508 print"experiment.  You can spray the oil drops"
 9510 print"{up}by pressing the '{rvon}S{rvof}' key.  The gas can be"
 9511 print"{up}ionized by pressing the '{rvon}X{rvof}' key. This"
 9512 print"must be done before the droplet touches"
 9513 print"the bottom plate.  When the oil drop"
 9514 print"acquires a negative charge, it will"
 9515 print"start moving towards the plates.  Using"
 9516 print"the numeric pad to vary the voltages,"
 9518 print"the force of attraction could be"
 9520 print"adjusted."
 9522 print"  Pressing the '{rvon}1{rvof}','{rvon}2{rvof}'or'{rvon}3{rvof}' key will"
 9524 print"increase the voltage by 100,10 and 1"
 9526 print"volts respectively.  On the other hand,"
 9528 print"by pressing the '{rvon}0{rvof}','{rvon}.{rvof}' or '{rvon}-{rvof}' key, the"
 9529 gosub9998
 9530 print"voltage will decrease by 100,10 and 1"
 9532 print"volts respectively."
 9534 print"  Once you think the oil drop is stable,"
 9536 print"{up}you can press '{rvon}A{rvof}' for analysis of that"
 9538 print"experiment.  However, the % error of the"
 9540 print"{up}voltage could be determined any time"
 9542 print"during the experiment by pressing '{rvon}P{rvof}'."
 9544 print"  The computer would lead you to do"
 9546 print"five different experiments.  After the"
 9548 print"fifth experiment, the computer would try"
 9550 print"{up}to determine the charge of an electron"
 9552 print"using Euclidean Alogrithm (a methord of"
 9554 print"finding H.C.F."
 9560 print"{down}{down}{rvon}Press any key to start the experiment"
 9562 z9$=""
 9564 getz9$:ifz9$="" then9564
 9566 print"{clr}":return
 9998 z9$=""
 9999 getz9$:ifz9$= ""then9999
 10000 print"{clr}":return
   10 print chr$(142)
   20 print"{clr}";
   21 print tab(14);"{rvon} {rght}{rght}{rght}{rght} {rght} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght} {CBM-I}{CBM-I}{CBM-I}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght}{CBM-I} {CBM-I}{rght} {CBM-I}{CBM-I}{CBM-I}{rght}{rght} {CBM-I}{CBM-I}{CBM-I}"
   22 poke 32799,223:poke 32819,223:poke 32825,223
   25 print tab(14);"{rvon} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght} {rght}{rght}{rght} "
   30 print tab(14);"{rvon} {rght}{rght}{rght}{rght} {rght} {rvof}{CBM-I}{CBM-I}{rvon}{rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{rvon}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{rvon}{rght}{rght} {rght}{rght}{rght} "
   31 poke 32959,105:poke 32979,105
   35 print tab(21);"{rvon} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} "
   36 poke 33022,95:poke 33023,223:poke 33024,233:poke 33025,223
   37 poke 33026,233:poke 33027,105:poke 33037,95:poke 33038,223
   38 poke 33044,95:poke 33045,223:poke 33046,233:poke 33047,223
   39 poke 33048,233:poke 33049,105:poke 33057,95:poke 33058,223
   40 print tab(21);"{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}{CBM-I}{rvon} {rvof}{CBM-I}{rvon}{rght} {rght}{rght}{rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}"
   41 poke 33103,95:poke 33104,105:poke 33105,95:poke 33106,105
   42 poke 33118,95:poke 33119,223:poke 33125,95:poke 33126,105
   43 poke 33127,95:poke 33128,105:poke 33138,95:poke 33139,223:poke 33145,105
   44 print
   50 print tab(10);"{rvon} {rght}{rght}{rght}{rght} {rght}{CBM-I} {CBM-I}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{CBM-I} {CBM-I}{rght}{rght}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rght} {rght}{rght}{rght}{rght} ";
   51 print"{rvof} Q    Q {rvon} {CBM-I}{CBM-I}{CBM-I}"
   52 poke 33259,223:poke 33262,233:poke 33285,233:poke 33290,223
   53 poke 33301,233:poke 33302,223:poke 33310,223:poke 33293,223
   55 print tab(10);"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} ";
   56 print tab(58);" {rght}{rght}{rght} "
   57 poke 33339,95:poke 33340,223:poke 33341,233:poke 33342,105
   58 poke 33380,233:poke 33381,105:poke 33382,95:poke 33383,223
   59 poke 33373,95:poke 33374,223
   60 print tab(10);"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} ";
   61 print tab(58);" {rvof}{CBM-I}{CBM-I}{CBM-I}"
   62 poke 33420,95:poke 33421,105:poke 33454,95:poke 33455,223
   63 poke 33459,233:poke 33460,105:poke 33463,95:poke 33464,223:poke 33470,105
   70 print tab(10);"{rvon} {rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght} {CBM-I}{CBM-I}{CBM-I}{CBM-I} {rght} "
   71 poke 33535,95:poke 33536,223:poke 33548,95:poke 33549,223
   75 print tab(10);"{rvon} {rght}{rght}{rght}{rght} {rght}{rvof}{CBM-I}{rvon} {rvof}{CBM-I}{rvon}{rght} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{rvon} {rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rght}{CBM-I}{rvon} {rvof}{CBM-I}{rvon}";
   76 print"{rght}{rght}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{rght}{rght} {rght}{rght}{rght}{rght} {rght} {rght}{rght}{rght}{rght} {rght} "
   77 poke 33605,95:poke 33610,105:poke 33616,95:poke 33629,95:poke 33630,223
   80 print tab(8);"{down}senil data systems presents in 2007: wer wird millionaer?"
   81 print"{down}anleitung: obwohl ich mich bemuehte, das design so authentisch hinzu";
   82 print"kriegen, wiees geht auf dieser uraltkiste, ist das spiel nicht ganz";
   83 print" so wie das im fernsehen."
   84 print"{up}wenn man mal ne frage falsch beantwortet, fliegt man nicht raus, son";
   85 print"dern man    kriegt einfach kein geld. ";
   86 print"die teilnahme kostet 500 euro."
   87 print"{down}tastaturbelegung: a b c d: antwort einloggen"
   88 print"{down}5: 50:50 joker     t: telefonjoker     p: publikumsjoker";
   89 print"   space: naechste runde"
   90 print"run/stop: spiel beenden.            mit space geht's los!!!"
   95 get a$:if a$="" then 95
  100 print"{clr}{down}  {rvon}{rght}         "
  101 print"{rvon}{rght}{rght}  50 : 50  "
  102 print"{rvon}{rght}{rght}{rght}         "
  103 poke 32850,233:poke 32860,223:poke 33010,95:poke 33020,105
  110 print"{down}   {rvon}         "
  111 print"{rvon}{rght}{rght}  publikum "
  112 print"{rvon}{rght}{rght}{rght}         "
  113 poke 33170,233:poke 33180,223:poke 33340,105:poke 33330,95
  120 print"{down}   {rvon}         "
  121 print"{rvon}{rght}{rght}  telefon  "
  122 print"{rvon}{rght}{rght}{rght}         "
  123 poke 33490,233:poke 33500,223:poke 33660,105:poke 33650,95
  125 mo=-500:rem mo=money
  130 print"{home}{ensh}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M"
  131 print"{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-G}frage  1 {CBM-M} "
  132 print"{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N"
  140 print"{ensh}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M"
  141 print"{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-G}";mo;"{ensh}{left}{left}{left}${CBM-M} "
  142 print"{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N"
  150 print"{down}{down}{down}{down}{down}N{ensh}M{down}{down}M{ensh}N"
  160 u$="{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  170 d$="{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  180 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}";u$;u$;"{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  181 print"{down}{down}{rght}";d$;d$;"{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  182 poke 33888,101:poke 33968,101:poke 33967,103:poke 34047,103
  190 print"{home}";
  200 print tab(40);"$200000 W"
  201 print tab(40);"$100000 W"
  202 print tab(40);"$ 55000 W"
  203 print tab(40);"$200000 W"
  204 print tab(40);"$ 90000 W"
  205 print tab(40);"$ 20000 W"
  206 print tab(40);"$ 10000 W"
  207 print tab(40);"$  5000 W"
  208 print tab(40);"$ 10000 W"
  209 print tab(40);"$  5500 W"
  210 print tab(40);"$  4500 W"
  211 print tab(40);"$   500 W"
  220 print tab(11);"{down}{down}hallo und herzlich willkommen bei 'wer wird millionaer?'{$a0}!"
  225 print tab(10);"und das ist auch schon die erste frage: wer wird millionaer?"
  230 qa$="ich":qb$="du":qc$="der programmierer":qd$="niemand"
  235 pa=5:pb=24:pc=16:pd=55
  240 gosub 9000
  250 gosub 8300
  260 if a$="d" then mo=mo+500
  270 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  275 print"{down}{down}{down}":print tab(48);: if a$="d" then print"Q"
  276 if a$<>"d" then print"V"
  280 print"{down}"
  281 if a$="a" then print"{rght}ich bin ein computer. was soll ich mit geld?{up}"
  283 if a$="b" then print"{rght}ich weiss zwar net, wer hier millionaer wird."
  284 if a$="b" then print"{rght}aber bestimmt net du!{up}{up}"
  285 if a$="c" then print"{rght}dieses programm ist freeware."
  286 if a$="c"then print"{rght}der programmierer kriegt keinen cent dafuer!{up}{up}"
  287 if a$="d" then print tab(33);"richtig erkannt!{up}"
  290 get a$:if a$<>" " then 290
  300 print"{home}{down}{down}{ensh}{left}{left}{left}{left}2"
  310 gosub 8400
  320 print"{up}{up}{up}"
  325 print tab(15);"5 wochen alte socken sind nicht toedlich fuer:"
  330 qa$="fliegen":qb$="pilze":qc$="liebesleben       ":qd$="spinnen"
  331 qd$=qd$+"                           "
  340 pa=4:pb=85:pc=6:pd=5
  350 gosub 9000
  360 gosub 8100
  370 if a$="b" then mo=mo+4500
  380 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  385 print"{down}{down}":print tab(48);: if a$="b" then print"Q"
  386 if a$<>"b" then print"V"
  390 print"{down}{down}"
  400 if a$="b" then printtab(20);"{rght}richtig. alles andere macht nicht viel sinn."
  405 if a$<>"b" then print tab(23);"{rght}falsch. das macht nicht viel sinn."
  410 printtab(20);"{rght}die frage an sich macht nicht viel sinn :-)"
  420 get a$:if a$<>" " then 420
  425 print"{home}{down}{down}{ensh}{left}{left}{left}{left}3"
  430 gosub 8400
  440 print"{up}{up}";
  441 print tab(30);"was ist 5 euro wert?"
  444 qa$="ein opel a-corsa":qb$="dieser computer hier              "
  445 qc$="ein 5-euro-schein":qd$="a, b und c sind richtig"
  450 pa=15:pb=5:pc=20:pd=60
  460 gosub 9000
  470 gosub 8300
  480 if a$="d" then mo=mo+5500
  481 if a$<>"d" then mo=mo+5
  490 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  500 if a$="d" then print tab(48);"{down}{down}Q"
  501 if a$<>"d" then print tab(48);"{down}{down}V"
  502 print"{down}{down}{down}"
  510 if a$="d" then print tab(35);"volltreffer!"
  520 if a$<>"d" then print tab(20);"quasi richtig. aber das kann man steigern!"
  525 if a$<>"d" then print tab(30);"dafuer gibts nur 5 euro!"
  530 get a$:if a$<>" " then 530
  540 print"{home}{down}{down}{ensh}{left}{left}{left}{left}4"
  550 gosub 8400
  560 printtab(9);"{up}{up}wie kann man den wert eines opel a-corsas um 800% steigern?"
  570 qa$="neue reifen+designfelgen":qb$="im fenstergumi moos zuechten"
  571 qc$="volltanken         ":qd$="autoradio durch cd-radio ersetzen "
  573 pa=5:pb=0:pc=60:pd=35
  580 gosub 9000
  590 gosub 8200
  600 if a$="c" then mo=mo+10000
  610 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  620 if a$="c" then print tab(48);"{down}Q"
  621 if a$<>"c" then print tab(48);"{down}V"
  625 print"{down}{down}{down}{down}"
  630 if a$="a" then print"{rght}damit steigt der wert des corsas auf 20000%..."
  632 if a$="b" then print"{rght}dafuer kriegst du hoechstens ein muedes laecheln..."
  634 if a$="c"then print"{rght}richtig, vorausgesetzt, der spritpreis bleibt stabil."
  636 if a$="d"then print"{rght}das bringt nur 400%."
  640 get a$:if a$<>" " then 640
  650 print"{home}{down}{down}{ensh}{left}{left}{left}{left}5"
  660 gosub 8400
  670 print"{up}{up}{rght}was bekommt man nicht, wenn man alle von simons computern";
  675 print"{$a0}zusammenschliesst?"
  680 qa$="einen schnellen supercomputer"
  681 qb$="augenkrebs                   "
  682 qc$="eine saftige stromrechnung        "
  683 qd$="kopfschmerzen                    "
  684 pa=85:pb=10:pc=0:pd=5
  690 gosub 9000
  700 gosub 8000
  710 if a$="a" then mo=mo+5000
  720 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  735 print tab(48);: if a$="a" then print"Q"
  736 if a$<>"a" then print"V"
  740 print"{down}{down}{down}{down}{down}"
  750 if a$="a" then print tab(35);"richtig!"
  760 if a$="b"then print tab(37);"doch!"
  761 if a$="b"then print tab(9);"die computermonitore entsprechen der roentgen";
  762 if a$="b" then print"verordnung von 1967"
  770 if a$="c" or a$="d" then print tab(34);"oh doch!"
  780 if a$="d" then print tab(20);"ein elektrosmogdetektor wuerde explodieren!"
  790 get a$:if a$<>" " then 790
  800 print"{home}{down}{down}{ensh}{left}{left}{left}{left}6"
  810 gosub 8400
  820 print tab(25);"{up}{up}wofuer sind 5 1/4 zoll disketten gut?"
  830 qa$="daten speichern                   "
  831 qb$="{left}mit dem innenpapier arsch abwischen"
  832 qc$="lustige salti machen       "
  833 qd$="papierflieger falten"
  835 pa=55:pb=17:pc=13:pd=15
  840 gosub 9000
  850 gosub 8000
  860 if a$="a"then mo=mo+10000
  865 if a$<>"a"then mo=mo+1
  870 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  880 if a$="a" then print tab(48);"{up}Q"
  881 if a$<>"a" then print tab(48);"{up}V"
  885 print"{down}{down}{down}{down}{down}{down}"
  890 if a$="a"then print"{rght}viel passt nicht drauf, aber dafuer sind sie gut!"
  900 if a$<>"a" then print tab(23);"ich hab gefragt, wofuer sie gut sind."
  901 if a$<>"a" then print tab(25);"nicht, was man damit machen kann."
  905 get a$:if a$<>" "then 905
  910 print"{home}{down}{down}{ensh}{left}{left}{left}{left}7"
  920 gosub 8400
  930 print"{up}{up}{rght}welches dieser teile geht nicht kaputt, wenn du's dir in den";
  931 print" arsch schiebst?"
  935 qa$="microchip                         "
  936 qb$="legostein                         "
  937 qc$="laserdiode            "
  938 qd$="diskette              "
  939 pa=7:pb=80:pc=5:pd=8
  940 gosub 9000
  944 gosub 8100
  950 if a$="b" then mo=mo+20000
  951 print"{up}{up}{rght}";
  952 if a$="a" then print"doch. aber ich glaub, der arsch geht mehr kaputt."
  954 if a$="b" then print tab(34);"juhuuu sinnvoll!"
  956 if a$="c" then print"das empfindlichste der hier aufgelisteten teile!"
  958 if a$="d"then print"schieb die danach am besten in den muelleimer!"
  960 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
  970 print tab(48);: if a$="b" then print"{up}{up}Q"
  971 if a$<>"b" then print"{up}{up}V"
  975 get a$:if a$<>" " then 975
  980 print"{home}{down}{down}{ensh}{left}{left}{left}{left}8"
  990 gosub 8400
 1000 print"{up}{up}{rght}{rght}{rght}{rght}";
 1010 print"so, jetzt ist schluss mit lustig!{$a0}mal sehen, wie du mit richtigen";
 1020 print" fragen":print tab(20);"klarkommst: mit dem c64 kann man nicht:"
 1030 qa$="3d spiele spielen"
 1031 qb$="im internet surfen                "
 1032 qc$="digitale musik hoeren"
 1033 qd$="einen computervirus bekommen"
 1035 pa=15:pb=20:pc=10:pd=55
 1040 gosub 9000
 1050 gosub 8300
 1060 if a$="d" then mo=mo+90000
 1070 print"{up}{up}{rght}";
 1071 if a$<>"d" then print tab(37);"doch!":print"{rght}{rght}{rght}{rght}{rght}{rght}";
 1072 if a$="a"then print"{rght}{rght}{rght}{rght}{rght}{rght}denk an elite, starglider und cosmic causeway!"
 1073 if a$="b" then print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}viele c64 freaks haben das schon geschafft!"
 1074 if a$="c" then print"{rght}viele c64 lieder benutzen digitalisierte schlagzeug";
 1075 if a$="c" then print"samples!"
 1076 if a$="d" then print tab(30);"das kann er wirklich nicht."
 1080 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1090 print tab(48);: if a$="d" then print"{up}{up}{up}Q"
 1091 if a$<>"d" then print"{up}{up}{up}V"
 1100 get a$:if a$<>" " then 1100
 1110 print"{home}{down}{down}{ensh}{left}{left}{left}{left}9"
 1120 gosub 8400
 1130 print"{up}{up}{rght}welches elektronische bauteil gab es, bevor der transistor";
 1131 print" erfunden wurde?"
 1135 qa$="{rvon}was{rvof} fuer ein teil!?!?!   "
 1136 qb$="relais            "
 1137 qc$="vakuumelektronenroehren           "
 1138 qd$="microchips                        "
 1139 pa=0:pb=22:pc=70:pd=8
 1140 gosub 9000
 1150 gosub 8200
 1160 if a$="c" then mo=mo+200000
 1170 if a$="a" then print"{up}{up}{rght}sag mal, hast du dich vertippt?{$a0}falscher gehts";
 1171 if a$="a" then print" nicht!"
 1173 if a$="b" then print"{up}{up}{rght}das war eine generation frueher!"
 1175 if a$="c" then print tab(37);"{up}{up}richtig!"
 1177 if a$="d"then print"{up}{up}{rght}microchips bestehen selber aus millionen";
 1178 if a$="d"then print" von transistoren!"
 1180 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1190 print tab(48);: if a$="c" then print"{up}{up}{up}{up}Q"
 1191 if a$<>"c" then print"{up}{up}{up}{up}V"
 1200 get a$:if a$<>" " then 1200
 1210 print"{home}{down}{down}{ensh}{left}{left}{left}{left}10"
 1220 gosub 8400
 1230 print tab(25);"{up}{up}welches videosystem ist das beste?"
 1240 qa$="vcr               {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}"
 1241 qb$="video 2000"
 1242 qc$="betamax                           "
 1243 qd$="vhs          "
 1245 pa=5:pb=55:pc=30:pd=10
 1250 gosub 9000
 1260 gosub 8100
 1270 if a$="b" then mo=mo+55000
 1271 if a$="c" then mo=mo+10
 1275 if a$="a"ora$="d"then print tab(30);"{up}{up}mit sicherheit nicht!"
 1277 if a$="b" then print"{up}{up}{rght}ja. streifenfreier bildsuchlauf und bessere ";
 1278 if a$="b"then print"qualitaet als dvd!"
 1280 if a$="c" then print"{up}{up}{rght}nein, video 2000 war etwas besser."
 1290 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1300 print tab(48);: if a$="b" then print"{up}{up}{up}{up}{up}Q"
 1301 if a$<>"b" then print"{up}{up}{up}{up}{up}V"
 1305 get a$:if a$<>" " then 1305
 1310 print"{home}{down}{down}{ensh}{left}{left}{left}{left}11"
 1320 gosub 8400
 1330 print tab(20);"{up}{up}welches leuchtmittel ist am energiesparendsten?"
 1334 qa$="leuchtdiode{$a0}"
 1335 qb$="energiesparlampe                  "
 1336 qc$="gluehbirne{$a0}{$a0}{$a0} "
 1337 qd$="neonroehre      "
 1338 pa=52:pb=46:pc=0:pd=2
 1340 gosub 9000
 1345 gosub 8000
 1350 if a$="a" then mo=mo+100000
 1351 if a$="b" then mo=mo+10
 1355 if a$="a" then print tab(37);"{up}{up}richtig!"
 1356 if a$="b" then print tab(35);"{up}{up}nicht ganz!"
 1357 if a$="c" then print tab(30);"{up}{up}geh heim du trottel!"
 1358 if a$="d" then print tab(36);"{up}{up}faaaalsch!"
 1360 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1370 print tab(48);: if a$="a" then print"{up}{up}{up}{up}{up}{up}Q"
 1371 if a$<>"a" then print"{up}{up}{up}{up}{up}{up}V"
 1375 get a$:if a$<>" " then 1375
 1380 print"{home}{down}{down}{ensh}{left}{left}{left}{left}12"
 1390 gosub 8400
 1400 print"{up}{up}{rght}{rght}{rght}welches dieser computersysteme der 80er jahre hatte die beste";
 1401 print" performance?"
 1405 qa$="pc                                "
 1406 qb$="atari              "
 1407 qc$="c64         {$a0}"
 1408 qd$="amiga         {$a0}"
 1410 pa=8:pb=12:pc=60:pd=20
 1420 gosub 9000
 1430 gosub 8200
 1440 if a$="c"then mo=mo+200000
 1441 if a$="d" then mo=mo+100
 1445 if a$="a" then print"{up}{up}{rght}das war mit abstand das schlechteste dieser vier."
 1447 if a$="b" then print"{up}{up}{rght}nein, der atari war nicht gerade ein performance";
 1448 if a$="b" then print"monster."
 1449 if a$="c" then print"{up}{up}{rght}richtig. ein pc muesste mit mindestens 50 mhz ";
 1450 if a$="c" then print"laufen, um so schnell zu sein {rght}{rght}{rght}{rght}wie ein c64."
 1452 if a$="d"then print"{up}{up}{rght}nicht ganz. gefragt war nach performance, nicht";
 1453 if a$="d" then print" nach speed."
 1454 if a$="d"then print"{rght}speedmaessig muesste der amiga gewinnen."
 1455 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1460 print tab(48);: if a$="c" then print"{up}{up}{up}{up}{up}{up}{up}Q"
 1461 if a$<>"c" then print"{up}{up}{up}{up}{up}{up}{up}V"
 1465 get a$:if a$<>" " then 1465
 1470 gosub 8400
 1480 print tab(30);"{up}{up}MN NM {CBM-G} {CBM-M}  {CBM-M}    {CBM-G}NM{CBM-M}M {CBM-G}"
 1490 print tab(30);"N  MN M{CBM-@}N   MNMN MN{CBM-M} M{CBM-G}"
 1495 get a$:if a$<>" " then 1495
 1500 jo%=0
 1501 if peek(32855)=160 then jo%=1
 1502 if peek(33495)=160 then jo%=jo%+1
 1503 if peek(33175)=160 then jo%=jo%+1
 1504 if jo%=0 then goto 1600
 1505 print tab(30);"{up}{up}     moment mal!        "
 1506 print"{rght}du hast noch";jo%;"joker uebrig!{$a0}jeder ist 100000$ wert!"
 1510 mo=mo+100000*jo%
 1520 print"{home}{down}{down}{down}{down}{down}{down}{ensh}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";mo
 1530 get a$:if a$<>" " then 1530
 1600 print"{clr}spiel zuende. geld gewonnen:$";mo
 7999 end
 8000 rem frage a ist richtig
 8005 for t=1 to 300:next t
 8010 for t=34289 to 34325
 8020 poke t, peek(t)+128 :rem dort sind nur buchstaben.
 8030 next t
 8050 goto 8400
 8100 rem frage b ist richtig
 8105 for t=1 to 300:next t
 8110 for t=34330 to 34366
 8120 poke t,peek(t)+128
 8130 next t
 8140 goto 8400
 8200 rem frage c ist richtig
 8205 for t=1 to 300:next t
 8210 for t=34609 to 34645
 8230 poke t,peek(t)+128
 8240 next t
 8250 goto 8400
 8300 rem frage c ist richtig
 8305 for t=1 to 300:next t
 8310 for t=34650 to 34686
 8320 poke t,peek(t)+128
 8330 next t
 8340 goto 8400
 8400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 8410 print"{rght}                                                                ";
 8415 print"              "
 8420 print"{rght}                                                                ";
 8425 print"              "
 8500 return
 9000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}N";u$;"M  N";u$;"M";
 9010 poke 34288,101:poke 34329,101:poke 34326,103:poke 34367,103
 9020 print"{rght}a: ";qa$;:print tab(42);"b: ";qb$
 9030 print"M";d$;"N  M";d$;"N"
 9040 print"N";u$;"M  N";u$;"M";
 9050 poke 34608,101:poke 34649,101:poke 34646,103:poke 34687,103:poke 34767,78
 9060 print"{rght}c: ";qc$;:print tab(42);"d: ";qd$
 9070 print"M";d$;"N  M";d$;"{up}{up}{up}{up}{up}{up}{up}{up}{rght}"
 9100 get a$:if a$="" then 9100
 9101 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 9110 if a$<>"5" then goto 9130
 9120 if peek(32855)=160 then gosub 30000
 9125 goto 9100
 9130 if a$<>"t" then goto 9150
 9140 if peek(33495)=160 then gosub 20000
 9145 goto 9100
 9150 if a$<>"p" then goto 9200
 9160 if peek(33175)=160 then gosub 10000
 9170 goto 9100
 9200 if a$<>"a" then goto 9300
 9210 print"{rght}{rvon}                                     {down} {up}"
 9215 print"{rvon} ":print"{rght}{rvon}                                     "
 9220 poke 34208,233:poke 34246,223:poke 34368,95:poke 34406,105
 9230 return
 9300 if a$<>"b" then goto 9400
 9310 print tab(42);"{rvon}                                     {down} {up}{up}"
 9315 print tab(41);"{rvon} {down}                                     "
 9320 poke 34249,233:poke 34287,223:poke 34409,95:poke 34447,105
 9330 return
 9400 if a$<>"c" then goto 9500
 9410 print"{down}{down}{down}{down}{rght}{rvon}                                     {down} {up}"
 9415 print"{rvon} {down}                                     {up}{up}"
 9420 poke 34528,233:poke 34566,223:poke 34688,95:poke 34726,105
 9430 return
 9500 if a$<>"d" then goto 9100
 9510 print tab(42);"{down}{down}{down}{down}{rvon}                                     {down} {up}{up}"
 9515 print tab(41);"{rvon} {down}                                     {up}{up}"
 9520 poke 34569,233:poke 34729,95:poke 34607,223:poke 34767,105
 9600 return
 10000 rem publikumsjoker pa pb pc pd 0<x<100
 10001 dim bk(8)
 10002 bk(0)=32:bk(1)=100:bk(2)=111:bk(3)=121:bk(4)=98
 10003 bk(5)=248:bk(6)=247:bk(7)=227:bk(8)=160
 10004 ba=pa:bb=pb:bc=pc:bd=pd
 10010 poke 32820,79:poke 32830,80:poke 33460,76:poke 33470,122
 10020 for t=32821 to 32829:poke t,99:poke t+640,100:next t
 10030 for t=32900 to 33380 step 80
 10040 poke t,101:poke t+10,103
 10050 next t
 10060 poke 33382,1:poke 33384,2:poke33386,3:poke 33388,4
 10068 p=33302
 10069 pa=pa/2
 10070 if pa>8 then poke p,bk(8):p=p-80:pa=pa-8:if pa>0 goto 10070
 10080 poke p,bk(int(pa))
 10088 p=33304
 10089 pb=pb/2
 10090 if pb>8 then poke p,bk(8):p=p-80:pb=pb-8:if pb>0 goto 10090
 10100 poke p,bk(int(pb))
 10108 p=33306
 10109 pc=pc/2
 10110 if pc>8 then poke p,bk(8):p=p-80:pc=pc-8:if pc>0 goto 10110
 10120 poke p,bk(int(pc))
 10128 p=33308
 10129 pd=pd/2
 10130 if pd>8 then poke p,bk(8):p=p-80:pd=pd-8:if pd>0 goto 10130
 10140 poke p,bk(int(pd))
 10145 pa=ba:pb=bb:pc=bc:pd=bd
 10146 ba=0:bb=0:bc=0:bd=0
 10150 print"{home}{down}{down}{down}{down}{down}             "
 10160 print"              ":goto 10170:rem error while tapetransfer
 8378  "              "
 10170 print"              "
 10200 return
 20000 rem telefonjoker interface wie publ.joker
 20001 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}              "
 20002 print"             "
 20003 print"             "
 20010 for y=1 to 6
 20020 for x=1 to 15
 20025 read d
 20030 poke 32784+x+80*y,d
 20040 next x
 20050 next y
 20060 data 32,32,111,121,121,98,98,248,248,98,98,121,121,111,32
 20070 data 233,160,160,160,226,226,236,226,226,251,226,226,160,160,223
 20080 data 160,160,105,32,32,98,252,98,98,254,98,32,95,160,160
 20090 data 32,32,32,32,233,160,226,160,226,160,226,223,32,32,32
 20100 data 32,32,32,233,160,160,226,160,226,160,226,160,223,32,32
 20110 data 32,233,160,160,160,160,226,160,226,160,226,160,160,160,223
 20120 for x=1 to 14:poke x+33345,226:next x
 20125 for t=1 to 5:print chr$(7);:next t
 20130 if pa>50 then pe=pa:a$="{rght}{rght}{rght}{rght}{rght}{rght}ich tippe auf a"
 20140 if pb>50 then pe=pb:a$="b ist vermutlich richtig"
 20150 if pc>50 then pe=pc:a$="ich glaube, c ist richtig"
 20160 if pd>50 then pe=pd:a$="{rght}{rght}{rght}{rght}{rght}{rght}ich bin fuer d"
 20165 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 20170 if int(rnd(0)*pe)<50 then goto 20300
 20200 pe=int(rnd(0)*4)+1
 20210 if pe=1 then print"{rght}{rght}{rght}{rght}{rght}{rght}ich tippe auf a";
 20220 if pe=2 then print"b ist vermutlich richtig";
 20230 if pe=3 then print"ich glaube, c ist richtig";
 20240 if pe=4 then print"{rght}{rght}{rght}{rght}{rght}{rght}ich bin fuer d";
 20250 print",":print"{rght}{rght}{rght}{rght}aber ich bin mir nicht ganz sicher."
 20290 return
 20300 print a$;
 20310 if int(rnd(0)*pe)<50 then return
 20320 print",":print"{rght}{rght}{rght}{rght}aber ich bin mir nicht ganz sicher."
 21000 return
 30000 rem 50:50 joker interface wie die beiden anderen
 30001 print"{home}{down}             "
 30002 print"             "
 30003 print"             "
 30010 if pa<50 goto 30100
 30030 pe=int(rnd(0)*3)
 30040 if pe=0 then p1=34332:p2=34611
 30041 if pe=1 then p1=34611:p2=34652
 30042 if pe=2 then p1=34332:p2=34652
 30050 for t=p1 to (p1+32)
 30055 poke t,32
 30060 next t
 30070 for t=p2 to (p2+32)
 30075 poke t,32
 30080 next t
 30090 return
 30100 if pb<50 goto 30200
 30120 pe=int(rnd(0)*3)
 30130 if pe=0 then p1=34291:p2=34611
 30131 if pe=1 then p1=34611:p2=34652
 30132 if pe=2 then p1=34291:p2=34652
 30140 for t=p1 to (p1+32)
 30150 poke t,32
 30160 next t
 30170 for t=p2 to (p2+32)
 30175 poke t,32
 30180 next t
 30190 return
 30200 rem c oder d ist richtig
 30210 for t=34291 to (34291+34)
 30220 poke t,32
 30230 next t
 30240 for t=34332 to (34332+34)
 30250 poke t,32
 30260 next t
 31000 return
    1 clr
    5 ifpeek(50000)<>0goto20
   10 poke8162,2:poke8163,2:poke8164,3:poke8165,2
   15 poke124,0:poke125,11:poke134,0:poke135,12:goto28
   20 poke8162,143:poke8163,0:poke8164,151:poke8165,0
   25 poke42,0:poke43,11:poke52,0:poke53,12
   28 clr:gosub2000
   30 clr:rn=rnd(-ti):nm=100
   50 b1$="{home}{rvon}{CBM-+}{CBM-+}high score=    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}score=    {CBM-+}{CBM-+}"
   60 b2$="{rvon}{CBM-+}{rvof}                                      {rvon}{CBM-+}{rvof}"
   70 b3$="{rvon}{CBM-+}40{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}millipede{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}level  1"
   80 poke8110,32:poke8111,32:poke8112,32:poke8113,32:poke8114,48
  100 print"{clr}"b1$;:fori=1to23:printb2$;:nexti:printb3$;:poke33767,230
  120 fori=1tonm:l=32849+int(rnd(1)*678):ifpeek(l)=32thenpokel,88
  130 nexti
  150 rn=int(rnd(1)*38):poke8190,rn
  220 sys4096:poke59467,0:poke59464,0:poke59466,0:fori=1to200:geta$:nexti
  300 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}sorry chump...you lose!         "
  310 print"{rvon}{rght}{rght}{rght}{rght}do you want to play again? (y/n)"
  320 geta$:ifa$<>"y"anda$<>"n"goto320
  330 ifa$="y"goto30
  340 print"{clr}":ifpeek(50000)=0thensys64824:end
  350 sys64721end
 2000 print"{clr}"spc(12)"N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M":printspc(11)"NU{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}IM"
 2020 printspc(10)"N {SHIFT--}"spc(14)"{SHIFT--} M":printspc(9)"N  {SHIFT--}  millipede   {SHIFT--}  M"
 2030 printspc(8)"N   {SHIFT--}"spc(14)"{SHIFT--}   M"
 2040 printspc(7)"N    {SHIFT--}{rvon}   (c) 1982   {rvof}{SHIFT--}    M"
 2050 printspc(6)"N"spc(5)"{SHIFT--}{rvon}    on line   {rvof}{SHIFT--}"spc(5)"M"
 2060 printspc(5)"N"spc(6)"{SHIFT--}{rvon}   software   {rvof}{SHIFT--}"spc(6)"M"
 2070 printspc(4)"N"spc(7)"{SHIFT--}"spc(14)"{SHIFT--}"spc(7)"M"
 2080 printspc(3)"N"spc(8)"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"spc(8)"M"
 2090 printspc(3)"{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}"
 2100 printspc(2)"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 2110 printspc(2)"{SHIFT--} W W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{$a0}{$a0}{$a0}W{$a0}W{$a0}W{$a0}W {SHIFT--}"
 2120 printspc(2)"{SHIFT--} {rvon}q{rvof} W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{$a0}{$a0}{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{SHIFT--}"
 2130 printspc(2)"{SHIFT--} W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{$a0}{$a0}{$a0}W{$a0}W{$a0}W{$a0}{rvon}*{rvof} {SHIFT--}"
 2140 printspc(2)"{SHIFT--} {rvon}z{rvof} W{$a0}{rvon}c{rvof} W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{$a0}{$a0}{$a0}W {rvon}2{rvof} W {rvon}+{rvof} {SHIFT--}"
 2150 printspc(2)"{SHIFT--} W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{$a0}{$a0}{$a0}W{$a0}W{$a0}W{$a0}W{$a0}{SHIFT--}"
 2160 printspc(2)"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 2170 print"{down}   {rvon}q{rvof} - quit"spc(10)"{rvon}*{rvof} - move up"
 2180 print"   {rvon}z{rvof} - move left"spc(5)"{rvon}+{rvof} - move down"
 2190 print"   {rvon}c{rvof} - move right"spc(4)"{rvon}2{rvof} - fire bullet"
 2200 print"{down}{down}"spc(6)"{rvon}*** press any key to play ***";
 2210 geta$:ifa$=""goto2210
 2220 return
    0 clr:poke59468,12
    1 rem mind copyright (c) 1979 glen fisher
    2 rem cursor #7, february, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of a apr 80
   90 pg$="mind":nm$="7":gosub62000
  100 cr$=chr$(13)
  105 print"do you want a limit on the number of":print"guesses? ";:gosub60000
  110 in$=left$(in$,1):ifin$="n"orin$=""thenlm=1e38:goto200
  115 ifin$<>"y"thenprint"please answer 'yes' or 'no'.":goto105
  120 print"what should the limit be? ";:gosub60000
  130 ifin$=""thenprint"i'll assume 10.":lm=10:goto200
  140 fori=1tolen(in$):t$=mid$(in$,i,1)
  150 ift$<"0"ort$>"9"thenprint"no ";t$;"'s, please.":goto120
  160 nexti:lm=val(in$)
  200 readt$:ift$<>""thenc=c+1:goto200
  205 datared,orange,yellow,green,blue,violet,
  210 n=4:cz=6:b$="":fori=1tocz:b$=b$+" ":l$=l$+"{SHIFT-*}":nexti
  220 dimp(n),g(n),ps(n),c$(c)
  230 restore:fori=1toc:readc$:c$(i)=left$(c$+b$,cz):nexti:c$(0)=b$
  240 h$="{rvof}":m$="{rvof}":fori=1ton:h$=h$+"Q":m$=m$+"W":nexti
  500 tb=6:deffnt(n)=(cz+1)*(n-1)+tb
 1000 fori=1ton:p(i)=int(rnd(1)*c)+1:nexti
 1010 print"{clr}";:fori=1ton:printtab(fnt(i)+(cz/2)-1);i;:nexti
 1020 print:fori=1ton:printtab(fnt(i));l$;:nexti
 1030 gm=gm+1:tn=0:print"{home}game":printgm
 1100 iftn>=lmthen1960
 1110 tn=tn+1:tt=tt+1:printtab(tb-3);right$(str$(tn),2):t=1:ot=t
 1120 fori=1ton:g(i)=0:nexti
 1200 ifot<>tthenprint"{up}";tab(fnt(ot));c$(g(ot))
 1210 ift<1thent=n
 1220 ift>nthent=1
 1230 print"{up}";tab(fnt(t));"{rvon}";c$(g(t)):ot=t
 1300 gett$:ift$=""then1300
 1310 ift$=" "ort$="{rght}"thent=t+1:goto1200
 1320 ift$=chr$(20)ort$="{left}"thent=t-1:goto1200
 1330 ift$=chr$(13)then2000
 1340 fori=1toc
 1350 :ift$=mid$("123456789",i,1)ort$=left$(c$(i),1)then1900
 1360 nexti
 1370 ift$=">"thent2=t+1:goto1800
 1380 ift$="<"thent2=t-1:goto1800
 1390 ift$="?"then1950
 1400 goto1300
 1800 ift2>nthent2=1
 1810 ift2<1thent2=n
 1820 i=g(t):g(t)=g(t2):g(t2)=i
 1830 ot=t2:goto1200
 1900 g(t)=i:t=t+1
 1910 goto1200
 1950 print"{up}                                       "
 1955 printtab(tb+6);"the answer is:{down}":h=0:goto1990
 1960 printtab(tb);"{down}  sorry, the solution was:{down}":h=0:goto1990
 1990 ls=ls+1:tt=tt-tn:goto2100
 2000 fori=1ton:ifg(i)=0then1300
 2010 ps(i)=p(i):nexti
 2015 print"{up}";tab(fnt(t));c$(g(t))
 2020 h=0:fori=1ton
 2030 :ifps(i)=g(i)thenh=h+1:ps(i)=-1:g(i)=-2
 2040 nexti
 2050 m=0:fori=1ton:forj=1ton
 2060 ifps(i)=g(j)thenm=m+1:ps(i)=-1:g(j)=-2
 2070 nextj:nexti
 2080 print"{up}";tab(fnt(n+1));left$(h$,h+1);left$(m$,m+1)
 2090 ifh<nthen1100
 2100 print"{up}{rvon}";tab(fnt(1));
 2110 fori=1ton-1
 2120 :printc$(p(i));" ";:nexti
 2130 printc$(p(n))
 2135 ifh=nthenprinttab(tb);"{down}   that was the pattern!"
 2140 print"{down}care to try again? ";:gosub60000
 2150 in$=left$(in$,1):ifin$<>"n"then1000
 2160 print"{down}very well.{down}{down}":ifls<gmthen2300
 2170 iflm<40then2250
 2190 print" you didn't guess ";:ifgm=1then2210
 2200 ifgm=2thenprint"either":print"of ";:goto2205
 2201 print"any of"
 2205 print"the";gm;"patterns";:goto2220
 2210 print"the":print"pattern";
 2220 print" i selected.":goto3000
 2250 print"try a higher guess limit the next time":print"you play this.";
 2260 goto2190
 2300 print"you averaged";int(tt*10/(gm-ls))/10;"guesses per solution,"
 2310 ifls>0thenprint"but missed";ls;"out of";gm;"patterns.":goto3000
 2320 print"without missing ";:ifgm=1thenprint"the pattern.":goto3000
 2330 print"any of the";gm;"patterns."
 3000 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:":goto60240
 60230 print"continue
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}":cr$=chr$(13):goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn
 60270 gosub60500:return
 60500 for i=1to10:print"DDDD";:next i:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #7  mind"
 62002 print"{down}copyright (c) 1979  by glen fisher"
 62004 gosub 60500
 62005 print"{down}guess{$a0}the{$a0}color patterns{down}{down}"
 62010 print "want directions? ";:gosub 60000:in$=left$(in$,1)
 62020 if in$="" or in$="n" then poke 59468,pk:print "{clr}":return
 62030 if in$<>"y" then print "please answer yes or{$a0}no.":goto 62010
 62100 lp=5:gosub 60200
 62110 print"mastermind is a game in which you try
 62120 print"to guess the color pattern the pet has
 62130 print"chosen. after each guess you make, the
 62140 print"pet will give you hints about how close
 62150 print"you came.{down}
 62160 print"you will be told how many hits and
 62170 print"misses you got with that guess.
 62180 print"{down}you score a hit whenever a color in
 62190 print"your guess matches a color in the pet's
 62200 print"pattern exactly, in color and position.
 62210 print"for example
 62220 print"{down}pattern: red   green  blue  violet
 62240 print"guess:   blue  green  red   orange
 62250 print"{down}would get a hit for the{$a0}green.
 62260 gosub 60200
 62270 print"you get a miss whenever a color in your
 62280 print"guess matches a color in the pattern,
 62290 print"but isn't in the right position. for
 62300 print"example
 62310 print"{down}pattern: green  green   blue    red
 62330 print"guess:   blue   orange  orange  violet
 62340 print"{down}would get a miss on the blue.
 62350 print"{down}any given color in your guess can match
 62360 print"only one color in the pattern, even if
 62370 print"there are duplicates. for example
 62380 print"{down}pattern: red  red     orange  orange
 62400 print"guess:   red  orange  blue    green
 62410 print"{down}would get one hit (for red) and{$a0}
 62420 print"one miss{$a0}(for{$a0}orange).
 62430 gosub 60200
 62440 print"similarly, any given color{$a0}in the
 62450 print"pattern can match only one color in
 62460 print"your guess. for example
 62470 print"{down}pattern: red  orange  blue    green
 62480 print"guess:   red  red     orange  orange
 62490 print"{down}would get one hit{$a0}(for{$a0}red), and
 62500 print"one miss (for{$a0}orange)."
 62510 print"{down}{down}to{$a0}enter your guess, you type in the
 62520 print"colors you want{$a0}(using either the first
 62530 print"letters of the words{$a0}red, orange,
 62540 print"yellow, green, blue, and{$a0}violet, or by
 62560 print"typing a digit from 1 to{$a0}6 (the colors
 62570 print"are numbered in the order{$a0}red through
 62580 print"violet).  the position the{$a0}color will
 62590 print"go into is marked with{$a0}{rvon}black-on-white{rvof}."
 62600 gosub 60200
 62610 print"you may modify your guess (to correct a
 62620 print"mistype, or change your mind) by using
 62630 print"the{$a0}del, left, right, and{$a0}space{$a0}keys.
 62640 print"del and{$a0}left move{$a0}the{$a0}{rvon}marker{rvof} to the
 62650 print"left, and right and{$a0}space move it to
 62660 print"right. if the{$a0}{rvon}marker{rvof}{$a0}goes off either
 62670 print"end, it will reappear at the other."
 62680 print"in addition, the{$a0}'<' and{$a0}'>' keys
 62690 print"will switch colors. '<' will switch the
 62700 print"color under the{$a0}{rvon}marker{rvof} with the color
 62710 print"to its left, and{$a0}'>' with the color to
 62720 print"the right of the{$a0}{rvon}marker{rvof}."
 62730 print"{down}also, to give up and see the pattern,
 62740 print"you can press the '?' key.
 62750 print"{down}when your guess is entered to your
 62760 print"satisfaction, press return to find out
 62770 print"how many hits and misses you got."
 62780 gosub 60200
 62790 print"the pet will show your hits and misses
 62800 print"by printing, beside your guess, a solid
 62810 print"dot for each hit, and a hollow dot for
 62820 print"each miss. for example, 2 hits and 1
 62830 print"miss would look like this:
 62840 print"{down}   QQW
 62860 print"{down}when you're all done guessing patterns,
 62870 print"the pet will tell you how well you did
 62880 print"over all the patterns.
 62890 print"{down}{down}{down}good luck.{down}{down}
 63000 gosub 60200
    0 clr:poke59468,12
    1 rem program copyright (c) 1980 ron longfellow
    2 rem 103 esplanade #35
    3 rem pacifica ca 94044
    4 :
    5 rem cursor #19 apr 80
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of apr 28 80
   90 pg$="miner!":nm$="19":gosub62000
  100 :
  110 deffnr(x)=int(rnd(ti)*x)+1
  280 dm=40:es=125:tc=1:crt=32768:lm=crt+190:le=crt+112:m=42
  290 dime(15),es(15),m$(17):s=59464
  310 m$(0)="{rvon}                                   {up}"
  311 m$(1)="{rvon}fuse went out{up}"
  312 m$(2)="{rvon}stand clear - dangerous explosion!!{up}"
  313 m$(3)="{rvon}underground spring - flooding!{up}"
  320 m$(4)="{rvon}one moment please{up}"
  330 m$(5)="{rvon}you may begin mining{up}"
  331 m$(11)="{rvon}solid granite - pickaxe won't do{up}"
  332 m$(12)="{rvon}unstable footing - watch out!{up}"
  333 m$(13)="{rvon}sandstone--easy digging!{up}"
  340 fori=1to15:read e(i):next
  350 data 45,93,45,231,160,229,244,218,231,231,160,229,45,45,45
  360 fori=1to15:read es(i):next
  370 data 0,1,2,42,41,40,80,81,82,122,121,120,160,161,162
  380 t(1,1)=31:t(1,2)=30:t(2,1)=61:t(2,2)=60:t(3,1)=61:t(3,2)=94
  400 print"{clr}"tab(15)"{rvon} bank {rvof}"tab(33)"{rvon}{SHIFT--}    {rvof}"
  410 printtab(15)"{CBM-Q}VVVV{CBM-W}"tab(33)"{SHIFT--} {CBM-L}V{CBM-G}"
  420 print"{rvon}  petta   {rvof}";tab(13)"{rvon}{SHIFT-POUND}{rvof}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"tab(33)"{SHIFT--} {CBM-L}V{CBM-G}"
  430 print"{rvon}   mine   {rvof}";tab(13)"{rvon} {rvof}{CBM-*}{rvon}       {CBM-*}{rvof}"tab(32)"{rvon}O P{rvof}{CBM-L}V{CBM-G}
  440 print"  {CBM-L}  {$a0}{CBM-L}"tab(13)"{rvon} {rvof}       {CBM-M}"tab(32)"{rvon}{CBM-H}Z {rvof}{CBM-L}V{CBM-G}"
  450 print"{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}L{CBM-@}{SHIFT-@} {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
  460 x1$="{rvof}{CBM-+}{rvon}                               {rvof}---{rvon} {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  470 x2$="{rvof}{CBM-+}{rvon}                           {rvof}    ---{rvon} {rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  480 printx1$;
  490 fori=1to2:printx2$;:printx2$;:printx2$;:printx1$;:printx1$;:printx1$;:next
  500 fori=1to3:printx2$;:next:printx1$;:printx1$;
  510 print"{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{home}":pokecrt+999,102
  520 gosub1540:m1$="miner{down}{left}{left}{SHIFT--}{down}{left}v":m2$="     {down}{left}{left} {down}{left} "
  530 print"{home}{down}"tab(27)m1$:pokes,20:pokelm,m:pokes,0:ms=5:gosub1530
  542 getz$:ifz$=""then542
  544 pokes+3,16:pokes+2,16:pokes,0
  550 pokelm,32:lm=lm+1:pokes,20:pokelm,m:pokes,0
  560 print"{home}{down}"tab(27)m2$:ms=0:gosub1530:goto580
  570 ifz$=""thengetz$:goto570
  573 zz$=z$:z$=""
  580 olm=lm:remnp=lm+dm:ns=peek(np):gosub1610
  590 ifzz$="2"thendm=40:goto710
  600 ifzz$="8"thendm=-40:goto710
  610 ifzz$="4"thendm=-1:goto720
  620 ifzz$="6"thendm=1:goto720
  660 ifzz$="d"thentc=2:z$=oz$:goto970
  670 ifzz$="p"thentc=3:z$=oz$:goto970
  680 ifzz$="e"thentc=4:z$="":goto970
  684 ifzz$="q"then2000
  690 goto570
  710 iflm=le+80then870
  720 np=lm+dm:ns=peek(np)
  725 ifnp<crt+160then570
  726 ifnp>=crt+920then570
  730 ms=0:gosub1530
  740 gosub1340:gosub1610:ns=peek(np)
  748 ifns=160thentc=1:goto970
  750 ifns=0orns=218orns=174orns=220orns=102orns=229orns=231orns=45then570
  770 ifnp=crt+190anddm=-1thengosub1900:goto570
  780 ifns=135thengosub830:goto570
  790 ifns=95thenpokelm,32:lm=lm+40:pokelm,m:sd=2*fnr(10):goto570
  800 ifns=255thengosub1810:goto570
  810 ifns=147thenh(f)=160:gosub1770:gosub1610:goto570
  820 lm=np:pokes,20:pokelm,m:pokeolm,32:pokes,0:gosub1610:goto570
  830 h(f)=160:gn=fnr(3):ga=ga+gn
  840 m$(7)="{rvon}found gold nugget -"+str$(gn)+" oz{up}{up}{up}":ms=7
  850 gosub1750:fori=1to10:pokes,10+2*i:next
  860 lm=np:pokelm,m:pokeolm,32:pokes,0:return
  870 :
  876 z$="5":ifdm>-2anddm<2then720
  880 iflm<>le+80then570
  890 ifle<crt+82thenle=le-dm:lm=lm-dm:pokes,0:gosub1900:goto570
  900 ifle>crt+782thenle=le-dm:lm=lm-dm:pokes,0:goto570
  910 e(1)=32:e(3)=32:ifdm=40thenes=es+5:fori=1to15
  920 ifdm=-40thenes=es-5:fori=15to1step-1
  930 ifle>crt+200thene(1)=45:e(3)=45
  940 pokele+es(i),e(i):next:pokes,es:sc=sc-6
  950 geta$:ifa$=""thenle=le+dm:lm=le+80:goto870
  960 pokes,0:goto570
  970 tp=dm:ns=peek(np):ifns=42thennp=np+dm:ns=peek(np)
  980 ifns<>0andns<>32andns<>160andns<>174andns<>220andns<>255then570
  985 ifns=32andtc<>4then570
  990 if(ns=220orns=255)andtc=1then570
 1000 ifns=0and(tc<>3)then570
 1010 ifns<>0andtc=3then570
 1020 iftc=4thengosub1210:goto570
 1070 iftc=1andns>180andns<186then570
 1080 fori=1to10:poke lm+tp,t(tc,1)
 1090 on tc gosub1150,1170,1180
 1100 poke lm+tp,t(tc,2):forw=1to20:nextw:nexti
 1110 iftc=1thensd=5
 1120 iftc=2thensd=35
 1130 iftc=3thensd=25
 1140 gosub860:np=lm+dm:ns=peek(np):gosub1340:goto570
 1150 :
 1160 pokes,70:pokes,0:forw=1to100:next:return
 1170 pokes,20:pokes,0:return
 1180 pokes,50:forw=1to20:next:pokes,0:return
 1210 ms=0:gosub1530
 1215 pokelm-1,33:ms=2:gosub1750:el=lm-1
 1220 fori=1to4:ifpeek(lm+1)=32thenolm=lm:lm=lm+1:pokelm,m:pokeolm,32
 1230 next
 1240 iffnr(4)=1thenms=1:pokelm,m:gosub1530:pokeel,32:sd=25:return
 1250 fori=1to30:pokes,25:pokeel,161:forw=1to20:next
 1260 pokes,0:pokeel,86:next:pokeel,32
 1270 fori=1to50:pokes,10+i:next
 1280 pokes,250:pokelm-5,32
 1290 forj=-2to2 :pokes,0
 1300 fori=1to4:ea=lm+(j*40)-fnr(4)-i
 1310 ifpeek(ea)=160orpeek(ea)=255thenpokeea,214:pokes,250:pokeea,32:pokes,0
 1320 nexti:nextj
 1330 pokelm-4,32:sd=80:return
 1340 m$(15)="{rvon}you've gone broke  - you lose!!{up}"
 1350 c=0:pt=fnr(40)-20
 1390 ifgp>1000thenpt=-abs(pt)
 1400 ifgp<200thenpt=abs(pt)
 1410 m$(16)="{rvon}you win!  congratulations!!{up}"
 1420 ifsc<=0thenms=15
 1430 ifsc>=10000thenms=16
 1440 sc=sc-sd:sd=0:gp=gp+pt
 1450 ifc=0thensc$="{rvon}      ":gp$=sc$+"   "
 1460 ifc=0andms=16then1520
 1470 print"{home}{down}{down}{down}{rvon}$";gp$;"{rvof}"
 1480 print"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}$";sc$;"{rvof}"
 1490 ifms=15orms=16then:gosub1530:forw=1to500:pokes,w/2:next:pokes,0:goto2000
 1500 ifms=17thenpokes,50:gosub1530:forw=1to9999:next:pokes,0:goto2000
 1510 ifc=1thenc=0:return
 1520 sc$=str$(sc):gp$=str$(gp)+" oz":c=1:goto1470
 1530 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}";m$(ms):return
 1540 ms=4:gosub1530
 1550 tg=8+fnr(10)
 1560 c=1:fori=1to250
 1570 hl=crt+200+fnr(27)+(40*fnr(17))
 1580 pokehl,174:next
 1590 print"{home}{down}{down}{rvon}gold price{rvof}":print"{rvon}         {rvof}"
 1600 gp=600:sc=1000:gosub1340:return
 1610 :
 1620 ifns<>174then return
 1630 rh=fnr(15)-1
 1640 h=32:ms=13
 1650 ifrh=3thenh=147
 1660 ifrh=4thenh=255
 1670 ifnp<crt+880thenifrh=6orrh=7thenh=95:ms=12
 1680 ifrh=8orrh=9thenh=135:gc=gc+1
 1690 ifrh>9thenh=220:ms=11
 1710 pokenp,h
 1750 gosub1530:forw=1to999:next:return
 1770 j=o:ms=3:gosub1530
 1780 fori=np-6tocrt+959
 1790 ifpeek(i)=32thenpokei,0:j=0:pokes,35
 1794 j=j+1:ifj>40thenreturn
 1800 pokes,0:next:sd=100:gosub1340:pokes,0:return
 1810 m$(8)="{rvon}cave-in!                {up}"
 1830 iffnr(4)=3andga>0thenm$(8)="{rvon}cave-in!  lost your gold{up}":ga=0
 1840 forj=-1to1:r=fnr(3)+40*j:pokes,200+10+j
 1850 fori=-2to2:z=lm-i+r:ifpeek(z)=32orpeek(z)=0orpeek(z)=174thenpokez,160
 1855 nexti:pokes,0:nextj
 1860 pokelm,m:ms=8:gosub1750:sd=int(fnr(50)*sc/100):gosub1340:return
 1900 gosub1930:gosub1950:vg=0:vg=gp*ga
 1910 m$(6)="{rvon}"+str$(ga)+" oz. gold worth $"+str$(vg)+"{up}":ms=6:gosub1530
 1920 sc=sc+vg:ga=0:gosub1340:gosub1970:return
 1930 fori=crt+183tolm:pokelm,32:pokes,20:lm=lm-1:pokelm,m:pokes,0
 1940 forw=1to50:nextw:nexti:return
 1950 fori=1to20:forj=1to4:pokelm-1-j,164
 1960 pokes,fnr(10)+10:pokelm-1-j,32:nextj:nexti:pokes,0:return
 1970 fori=1to10:pokelm,32:pokes,20:lm=lm+1:pokelm,m:pokes,0
 1980 forw=1to50:nextw:nexti
 1990 z$="6":return
 2000 getz$:ifz$<>""then2010
 2010 pokes+2,0:pokes+3,0:print"{clr}{down}{down}{down}play again? ";
 2015 getz$:ifz$=""then2015
 2020 ifz$="n"thenend
 2030 clr:print"{clr}":goto100
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by ron longfellow{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}run a successful gold mine.
 62100 print"{down}press {rvon}return{rvof} to begin";
 62120 gett$:ift$=""then62120
 62130 print"{clr}":clr:goto100
    0 pg$="miser":nm$="27":goto62000
    1 " m.j. lansing
    2 " math dept msu
    3 " e lansing, mi 48824
    4 "
    5 " cursor #27, aug, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 81 aug 23 1:25 bs
   20 deffna(x)=ol%(pt%(x)):wd=40:poke32768,96:ifpeek(33792)<>96thenwd=80
  200 dimr$(48),r%(48,4),om$(28),ol%(28),v$(30),o$(30),pt%(30)
  210 em=1:pf=1:fb=1:h$(1)="what?":h$(2)="i don't understand that."
  300 fori=0to48:forj=1to4:readr%(i,j):nextj:readr$(i):nexti
  400 data1,0,0,0,front porch
  401 data2,0,0,12,foyer to a large house. dust is everywhere
  402 data3,1,0,0,great hall. suits of armor line the walls
  403 data0,2,4,16,breakfast room. it is bright and cheery
  404 data0,5,7,3,conservatory. through a window you see a hedge-maze
  405 data4,6,0,0,red-walled room
  406 data5,0,10,0,formal parlor
  407 data0,0,8,4,green drawing room
  408 data0,9,0,7,trophy room. animal heads line the walls
  409 data8,0,0,10,den
  410 data0,11,9,6,blue drawing room
  411 data10,0,0,0,library. empty shelves line walls
  412 data0,0,1,13,dining room
  413 data15,0,12,0,chinese room
  414 data0,0,0,0,$
  415 data23,13,16,0,kitchen. it is bare
  416 data0,0,3,15,pantry. dust covers the mahogany shelves
  417 data0,8,0,18,game room
  418 data21,0,17,19,smoking room. the air is stale in here
  419 data21,0,18,20,portico. a murky pool glimmers on the south side
  420 data21,21,19,19,hall of mirrors - a good place to reflect
  421 data0,19,0,20,ballroom. it has a beautiful wood dance floor
  422 data0,0,0,21,chapel. a tablet says 'drop a religous item or die!!'
  423 data24,15,40,25,back yard
  424 data24,23,24,24,forest
  425 data26,0,23,0,pool area. there is a large swimming pool here
  426 data0,25,0,0,pump house. there is pool machinery installed here
  427 data35,0,31,28,middle of the western hallway
  428 data0,0,27,0,west bedroom
  429 data39,0,0,0,front balcony. there is a large road below
  430 data0,0,0,0,$
  431 data0,0,38,27,master bedroom. there's a huge four-poster bed
  432 data0,36,0,0,rear balcony. below you see a hedge maze
  433 data34,0,0,38,east bedroom
  434 data0,33,0,0,closet
  435 data0,27,36,0,junction of the west hallway and the north-south hallway
  436 data32,0,37,35,center of the north-south hallway
  437 data0,38,0,36,junction of the east hallway and the north-south hallway
  438 data37,39,33,31,middle of the east hallway
  439 data38,29,0,0,south end of the east hallway
  440 data0,42,0,41,hedge maze
  441 data44,42,0,0,hedge maze
  442 data41,44,43,0,hedge maze
  443 data41,23,0,0,hedge maze
  444 data0,42,0,45,hedge maze
  445 data0,0,44,0,hedge maze
  446 data0,0,0,5,walk-in vault
  447 data0,40,0,0,dungeon. there is light above and to the south
  448 data0,0,0,0,bottom of the swimming pool. a ladder leads up and out
  500 fori=1to30:readv$(i):nexti
  510 dataget,take,move,slid,push,open,read,inve,quit
  511 datadrop,say,pour,fill,unlo,look
  512 datago,nort,n,sout,s,east,e,west,w,scor,turn,jump,swim,i,fix
  550 fori=1to30:reado$(i),pt%(i):nexti
  560 dataripc,17,mat,10,pape,13,buck,1,swor,9,key,20,valv,-1,ladd,-1
  570 dataslip,19,rug,15,book,23,door,-1,cabi,-1,ritn,-1,vict,-1,orga,-1,para,14
  580 datastai,-1,penn,12,cros,11,leaf,4,bag,5,>$<,-1,>$<,-1,ring,7,pain,8
  590 datavaul,-1,pool,-1,xyzz,-1,plug,-1
  600 fori=1to28:readom$(i),ol%(i):nexti:print"{clr}"
  610 dataplastic bucket,26,vicious snake,4,charmed snake,-2,*golden leaf*,45
  611 data*bulging moneybag*,46,>$<,-2,*diamond ring*,48
  612 data*rare painting*,39,sword,13,mat,0,rusty cross,23,penny,28
  613 datapiece of paper,31,parachute with no ripcord,34,oriental rug,6
  614 datatrapdoor marked 'danger',-2
  615 dataparachute ripcord,-2,portal in the north wall,-2
  616 datapair of *ruby slippers*,-2,brass door key,-2
  617 datamajestic staircase leading up,2
  618 datamajestic staircase leading down,27,battered book,11
  619 dataorgan in the corner,21,open organ in the corner,-2
  620 datacabinet on rollers against one wall over,5,repaired parachute,-2
  621 data"sign saying 'drop coins for luck'",19
  699 goto14000
  700 print:sc=0:sf=0:gosub60000:iflen(in$)=0then700
  720 ifleft$(in$,1)=" "thenin$=right$(in$,len(in$)-1):goto720
  730 ifright$(in$,1)=" "thenin$=left$(in$,len(in$)-1):goto730
  735 sp=len(in$)+1:print
  740 sc=sc+1:ifmid$(in$,sc,1)=" "thensf=sf+1:sp=sc
  750 ifsc<len(in$)then740
  760 ifsf>-1andsf<2thengoto780
  770 print"please type a one or two word command":goto700
  780 cv$=left$(in$,sp-1):forx=1to30:ifleft$(cv$,4)=v$(x)theni=x:goto800
  790 nextx:goto50000
  800 ifsf=0thenco$="":j=0:goto900
  810 co$=mid$(in$,sp+1,4):forx=1to30:ifco$=o$(x)thenj=x:goto 900
  820 nextx:goto 50000
  830 goto700
  900 onigoto1000,1000,2000,2000,2000,4000,5000,6000,7000,8000,9000,10000
  910 oni-12goto11000,12000,14000,15000,16000,16000,17000,17000,17010,17010
  920 oni-22goto19000,19000,20000,21000,22000,24000,6000,25000
 1000 ifj=0then50000
 1002 ifpt%(j)=-1thenprint"i am unable to do that.":goto700
 1005 iffna(j)=-1thenprint"you're already carrying it":goto700
 1010 iffna(j)<>cpthen51000
 1020 ol%(pt%(j))=-1:print"ok"
 1030 x=pt%(j):if(x>3andx<9)orx=19thenprint"you got a treasure!":gt=gt+1
 1040 ifj=2andol%(20)=-2thenprint"you find a door key!":ol%(20)=0
 1050 goto700
 2000 ifj=0then50000
 2005 ifj=13andcp=5andr%(5,3)=0then2100
 2010 ifpt%(j)=-1thenprint"that item stays put.":goto700
 2020 if(fna(j)<>cp)and(fna(j)<>-1)then51000
 2030 ifj=2andol%(20)=-2then1040
 2040 ifj=10andol%(16)=-2then2200
 2050 print"moving it reveals nothing."
 2060 goto700
 2100 print"behind the cabinet is a vault!"
 2110 fv=1:goto699
 2200 print"you find a trap door!"
 2210 ol%(16)=6:goto699
 4000 ifj=0then50000
 4002 ifj<>11then4030
 4005 if(fna(j)<>cp)and(fna(j)<>-1)then4030
 4010 in$="scrawled in blood on the inside front cover is the message,"
 4011 gosub53000:print
 4020 print"''victory' is a prize-winning word'.":goto700
 4030 ifj=7thenprint"try turning it.":goto700
 4040 ifj<>12then4120
 4050 ifcp=0anddu=0thenprint"sorry, the door is locked.":goto700
 4060 ifcp=0andduthenprint"it's already open.":goto700
 4070 ifcp<>6then51000
 4080 in$="you open the door. you lean over to peer in, and you fall in!"
 4090 gosub53000:cp=47:print:goto699
 4120 ifj<>13then4160
 4130 ifol%(26)<>cpthen51000
 4140 print"the cabinet is empty and dusty."
 4150 in$="scribbled in dust on one shelf are the words, 'behind me'."
 4155 gosub53000:print:goto700
 4160 ifj<>22then4190
 4170 iffna(j)<>cpandfna(j)<>-1then51000
 4180 print"the bag is knotted securely.":print"it won't open.":goto700
 4190 ifj<>27then4230
 4200 ifcp<>5orfv=0then51000
 4210 ifvothenprint"it's already open.":goto700
 4220 print"i can't, it's locked.":goto700
 4230 ifj<>16thenprint"i don't know how to open that.":goto700
 4232 ifcp<>21then51000
 4235 ifgg=0thenprint"it's stuck shut.":goto700
 4240 ifol%(24)=-2thenprint"it's already open.":goto700
 4250 print"as you open it, several objects":print"suddenly appear!"
 4260 ol%(24)=-2:ol%(25)=21:ol%(19)=21:ol%(17)=21:goto699
 5000 ifj=0then50000
 5005 ifpt%(j)>-1theniffna(j)<>cpandfna(j)<>-1then51000
 5010 ifpt%(j)=-1thenprint"there's nothing written on that.":goto700
 5020 ifj<>3andj<>11thenprint"there's nothing written on that.":goto700
 5030 ifj=11thenprint"the front cover is inscribed in greek.":goto700
 5040 print"it says, '12-35-6'.":print"hmm.. looks like a combination."
 5050 kc=1:goto700
 6000 print"you are carrying the following:{down}"
 6010 fi=0:for x=1to 27:ifol%(x)=-1thenprintom$(x):fi=1
 6020 ifx=1andbfandol%(1)=-1thenprint"  the bucket is full of water."
 6025 ifx=14andol%(14)=-1thenprint"  (better fix it)"
 6030 nextx:iffi=0thenprint"nothing at all."
 6040 goto700
 7000 print"do you really want to quit now?"
 7001 gosub60000:ifin$=""then7001
 7002 ifleft$(in$,1)<>"y"thenprint:print"{down}ok":goto700
 7005 print"{clr}"
 7010 print"{down}you accumulated";gt;"treasures,"
 7020 print"for a score of";gt*20;"points."
 7030 print"(100 possible)":ifes=0thenprint"{down}however, you did not escape."
 7040 print"{down}this puts you in a class of:":ifesthengt=gt+1
 7050 ongt+1goto7060,7070,7075,7090,7100,7110,7115
 7060 print"<beginner adventurer>":goto7120
 7070 print"<amateur adventurer>":goto7120
 7075 print"<journeyman adventurer>":goto7120
 7090 print"<experienced adventurer>":goto7120
 7100 print"<pro adventurer>":goto7120
 7110 print"<master adventurer>":goto7120
 7115 print"<grandmaster adventurer>"
 7120 ifgt<>6thenprint"{down}better luck next time!"
 7150 end
 8000 iffna(j)<>-1thenprint"you aren't carrying it!":goto700
 8010 x=pt%(j):if(x>3andx<9)orx=19thenprint"don't drop *treasures*!":goto700
 8020 ifcp=19andj=19then8100
 8030 ifcp=22andj=20then8200
 8040 ol%(pt%(j))=cp:print"ok":goto700
 8100 in$="as the penny sinks below the surface of the pool, a fleeting image of"
 8110 gosub53000:print:print"a chapel with dancers outside appears."
 8130 r%(21,3)=22:ol%(12)=-2:goto700
 8200 in$="even before it hits the ground, the cross fades away!":gosub53000:print
 8210 print"{down}the tablet has disintegrated."
 8215 print"{down}you hear music from the organ."
 8220 gg=1:ol%(11)=-2:r$(22)="chapel"
 8221 om$(24)="closed organ playing music in the corner":goto700
 9000 ifj=0thenprint"say what???":goto700
 9010 ifj=14then9100
 9020 ifj=15then9200
 9030 ifj>28then9300
 9040 print"okay, '";right$(in$,len(in$)-sp);"'."
 9050 forx=1to1000:nextx:print"nothing happens.":goto700
 9100 ifcp<>4orchthenprint"nothing happens.":goto700
 9110 in$="the snake is charmed by the very utterance of your words."
 9111 gosub53000:print
 9120 ch=1:ol%(2)=-2:ol%(3)=4:goto700
 9200 ifcp<>8orpothenprint"nothing happens.":goto700
 9210 print"a portal has opened in the north wall!!"
 9220 po=1:r%(8,1)=17:ol%(18)=8:goto700
 9300 print"a hollow voice says, 'wrong adventure'.":goto700
 10000 ifj<>4thenprint"i wouldn't know how.":goto700
 10010 ifol%(1)<>-1andol%(1)<>cpthen51000
 10020 ifbf=0thenprint"the bucket is already empty.":goto700
 10030 ifcp=19thenprint"ok":goto700
 10040 ifcp<>10orfb=0thenprint"the water disappears quickly.":bf=0:goto700
 10050 print"congratulations! you have vanquished":print"the flames."
 10060 fb=0:bf=0:goto699
 11000 ifj=0then50000
 11010 ifpt%(j)=-1thenprint"that wouldn't hold anything.":goto700
 11020 iffna(j)<>cpandfna(j)<>-1then51000
 11030 ifj<>4thenprint"that wouldn't hold anything.":goto700
 11040 ifbfthenprint"it's already full.":goto700
 11050 ifcp=25andpfthenprint"i'd rather stay away from the mercury.":goto700
 11060 ifcp<>23andcp<>19thenprint"i don't see any water here.":goto700
 11070 print"your bucket is now full.":bf=1:goto700
 12000 ifj=0then50000
 12010 ifj<>12andj<>27thenprint"i wouldn't know how to unlock one.":goto700
 12020 ifcp<>0andcp<>5andcp<>6then51000
 12030 ifcp=0andj=12then12200
 12040 ifcp=5andj=27then12300
 12050 ifcp<>6orj<>12orol%(16)=-2then51000
 12100 print"the trapdoor has no lock":goto700
 12200 ifduthenprint"it's already unlocked.":goto700
 12210 ifol%(20)<>-1thenprint"i need a key.":goto700
 12220 print"the door easily unlocks and swings open.":du=1:goto699
 12300 ifvothenprint"it's already open.":goto700
 12305 iffv=0then51000
 12310 ifkc=0thenprint"i don't know the combination.":goto700
 12320 print"ok, let's see. 12..35..6..":print"<click!> the door swings open."
 12330 vo=1:r%(5,3)=46:goto699
 14000 in$="{down}you are in the "+r$(cp)+".":gosub53000:print
 14010 forx=1to28:ifol%(x)<>cpthen14020
 14011 in$="there is a "+om$(x)+" here.":print:gosub53000:print
 14020 ifx=1andbfandol%(1)=cpthenprint"   the bucket is full of water."
 14030 next x
 14040 if cp=25andpf then print "{down}the pool is full of liquid mercury!"
 14050 if cp<>25orpfthen14060
 14055 print"{down}the pool's empty.":ifol%(7)<>48then14060
 14056 print "{down}i see something shiny in the pool!"
 14060 if cp<>10orfb=0then14090
 14070 print"{down}there is a hot fire on the south wall!"
 14080 print"if i go that way i'll burn to death!"
 14090 if cp<>16then14110
 14100 in$="{down}a rich, full voice says, 'ritnew is a charming word'."
 14105 gosub53000:print
 14110 ifcp=26thenprint"{down}there is a valve on one of the pipes."
 14115 ifcp=23thenprint"{down}there is a leaky faucet nearby."
 14120 ifcp=10andfb=0thenprint"{down}there is evidence of a recent fire here."
 14125 ifcp=5andfvthenprint"{down}there is a vault in the east wall."
 14126 ifcp=5andvothenprint"the vault is open."
 14127 ifcp=0andduthenprint"{down}an open door leads north."
 14130 ifcp<>48thenprint"{down}obvious exits:":ifr%(cp,1)>0thenprint"n ";
 14140 ifr%(cp,2)>0thenprint"s ";
 14150 ifr%(cp,3)>0thenprint"e ";
 14160 ifr%(cp,4)>0thenprint"w ";
 14170 print:goto700
 15000 ifj<>8andj<>18andj<>28then50000
 15010 if(j=8andcp<>48)or(j=18andcp<>2andcp<>27)or(j=28andcp<>25)then51000
 15020 ifj=8thencp=25:goto699
 15030 ifj=28andpfthenprint"the pool is full of mercury!":goto700
 15040 ifj=28thencp=48:goto699
 15050 ifcp=27thencp=2:goto699
 15060 ifol%(9)=-1then15070
 15061 in$="the suits of armor prevent you from going up!":gosub53000
 15062 print:goto700
 15070 print"the suits of armor try to stop you,"
 15080 print"but you fight them off with your sword.":cp=27:goto699
 16000 ifcp=0anddu=0thenprint"the door is locked shut.":goto700
 16010 ifr%(cp,1)=0then52000
 16015 ifcp=0thenprint"{down}the door slams shut behind you!"
 16020 cp=r%(cp,1):goto699
 17000 ifcp=10andfbthenprint"you have burnt to a crisp!":end
 17010 ifcp=4andch=0andps=0thenprint"the snake is about to attack!":ps=1:goto700
 17020 ifcp=4andch=0thenprint"the snake bites you!":print"you are dead.":end
 17030 d=2:ifi=21ori=22thend=3
 17040 ifr%(cp,d)=0then52000
 17050 cp=r%(cp,d):goto699
 19000 ifr%(cp,4)=0then52000
 19010 cp=r%(cp,4):goto699
 20000 print:print"if you were to quit now,":print"you would have a score of";
 20010 printgt*20;"points.":print"(100 possible){down}"
 20020 print"do you indeed wish to quit now? ";
 20030 gosub60000
 20040 print:ifleft$(in$,1)="y" then 7010
 20050 ifleft$(in$,1)<>"n"thenprint"please answer yes or no":goto20020
 20060 print"ok":print:goto700
 21000 ifj<>7thenprint"i don't know how to turn such a thing.":goto700
 21010 ifcp<>26then51000
 21020 in$="with much effort, you turn the valve 5 times. you hear the sound "
 21030 in$=in$+"of liquid ":gosub53000:print:print"flowing through pipes."
 21040 pf=1-pf
 21050 ifpf=0andol%(7)=-3thenol%(7)=25:goto700
 21060 ifpfandol%(7)=25thenol%(7)=-3:goto700
 21070 goto700
 22000 ifcp<>27andcp<>29andcp<>32thenprint"there's nowhere to jump.":goto700
 22010 print"you jump..":ifcp=27then22500
 22020 ifol%(14)=-1then22100
 22030 ifol%(27)=-1then22200
 22040 print"you hit the ground.":goto22540
 22100 print"there is no way to open the parachute!":goto22040
 22200 print"you yank the ripcord and the"
 22210 print"'chute comes billowing out.":ifcp=32thencp=40:goto699
 22220 print"you land safely":print"{down}congratulations on escaping!":es=1:goto7010
 22500 ifjmthen22530
 22510 print"you have landed down-stairs,":print"and narrowly escaped serious"
 22520 print"injury. please don't try it again.":jm=1:cp=2:goto699
 22530 print"now you've done it. you ignored":print"my warning, and as a result"
 22540 print"you have broken your neck!":print"{down}you are dead.":end
 24000 ifcp<>19andcp<>25thenprint"there's nothing here to swim in!":goto700
 24010 ifcp=19then print"the water is only a few inches deep.":goto700
 24020 ifpfthenprint"in mercury? no way!":goto700
 24030 print"the pool is empty.":goto700
 25000 ifj=0then50000
 25010 ifj=7thenprint"i ain't no plumber.":goto700
 25020 ifj<>17thenprint"i wouldn't know how.":goto700
 25030 iffna(j)<>cpandfna(j)<>-1then51000
 25040 ifol%(14)=-2thenprint"it's already fixed.":goto700
 25050 ifol%(17)<>-1thenprint"i need a ripcord.":goto700
 25060 print"i'm no expert, but i think it'll work."
 25070 ol%(27)=ol%(14):ol%(14)=-2:pt%(17)=27:ol%(17)=0:goto700
 50000 printh$(em):em=3-em:goto700
 51000 print"i don't see it here.":goto700
 52000 print"it's impossible to go that way.":goto700
 53000 iflen(in$)<=40orwd=80thenprintin$;:return
 53005 oe=41
 53010 ifmid$(in$,oe,1)<>" "thenoe=oe-1:goto53010
 53020 printleft$(in$,oe):printright$(in$,len(in$)-oe);:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by m.j. lansing
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}explore the miser's house   (needs 16k)
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 getin$:ifin$=""then62090
 62100 print"{down}{down}{down}one moment please...":goto20
:{stop}{SHIFT-POUND}{$00}{f1}{f7}{f1}{f2}{SHIFT-POUND}{$78}{f1}{f4}{SHIFT-POUND}{swlc}{sret}l{$e8}{SHIFT-POUND}{clr} R~{SHIFT-POUND}{$80}{f1}{f6}{CBM-I}{$00}{CBM-X}{f4}{stop} R~{$e8}{$e0}{CTRL-O}P{$f5}{CBM-+}{f7}{CBM-G}{f2} T{CBM--}{CBM-I}{CTRL-A}{$a0}{$00}{CBM-E}{f7}{up}{f4}H{SHIFT-*}{$00}P{$f7}{$e0}{$00}{$f0}{CTRL-G}J{$e6}{f2}{$e6}{f6}P{$ea} {$e4}~{$f0}{$fb}{$e6}{f2}I P{SHIFT-*}{$60}starting byte = {$7a}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-D}{$00}{blu}* mole attack * l                                                                                                                                                                          ~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{$7f}!~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{lblu}{$00}~{$00}~{$65}~{$65}~{$65}~{$65}~{$65}{$7f}{$65}~{$65}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}^{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{$f7}{$e7}~{$00}{$7f}!{$00}%{CTRL-D}{CBM-C}{$fb}{yel}1360:{$8f}"{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}mole attack{$00}{$00}{$00}{del}{$00}{orng}a{CBM-R}0{CBM-@}255:{gry1}a{CBM-N}1104,{CBM-F}(1){CBM-D}9:{$82}:{yel}1384:{f4}{$00}{$00}{$00}{$00}{$00}{CBM-N}{$00}{wht}{dish}{CTRL-D}{wht}{dish}{stop}{CTRL-D}{CTRL-G}{CTRL-A}{CTRL-F}{stop}{CTRL-B}{CTRL-D}{dish}{dish}{CTRL-F}{dish}{CTRL-B}{CTRL-F}{CTRL-F}{CTRL-F}{wht}{CTRL-A}{dish}{CTRL-B}{dish}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-D}{$00}{CTRL-F}{CTRL-A}{stop}{CTRL-A}{CTRL-A}{CTRL-F}{CTRL-F}{dish}{CTRL-A}{wht}{CTRL-F}{CTRL-B}{wht}{CTRL-F}{CTRL-B}{dish}{CTRL-A}{CTRL-D}{CTRL-D}{CTRL-D}{stop}{CTRL-B}{CTRL-D}{CTRL-B}{$00}{CTRL-F}{$00}{wht}{stop}{CTRL-D}{dish}{stop}{CTRL-G}{wht}{$00}{CTRL-F}{$00}{CTRL-B}{stop}{CTRL-D}{CTRL-A}{CTRL-D}{CTRL-F}{CTRL-G}{CTRL-G}{$00}{CTRL-B}{CTRL-A}{CTRL-F}{dish}{wht}{CTRL-G}{$00}{dish}{wht}{$00}{stop}{CTRL-G}{CTRL-D}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{dish}{wht}{CTRL-D}{$00}{CTRL-D}{dish}{CTRL-G}{CTRL-D}{CTRL-G}{dish}{CTRL-B}{dish}{stop}{CTRL-B}{CTRL-D}{CTRL-D}{stop}{dish}{CTRL-B}{CTRL-A}{CTRL-G}{wht}{CTRL-A}{CTRL-F}{CTRL-G}{wht}{CTRL-A}{CTRL-F}{CTRL-A}{dish}{wht}{dish}{wht}{CTRL-A}{stop}{CTRL-B}{dish}{stop}{CTRL-F}{CTRL-G}{CTRL-F}{CTRL-G}{CTRL-G}{CTRL-B}{$00}{stop}{CTRL-F}{$00}{CTRL-G}{dish}{stop}{CTRL-G}{CTRL-B}{CTRL-G}{$00}{CTRL-G}{stop}{CTRL-G}{wht}{CTRL-B}{dish}{CTRL-D}{wht}{wht}{CTRL-D}{wht}{stop}{dish}{wht}{CTRL-G}{stop}{stop}{CTRL-D}{CTRL-F}{CTRL-F}{wht}{CTRL-F}{$00}{dish}{CTRL-B}{CTRL-A}{CTRL-D}{dish}{CTRL-D}{$00}{CTRL-A}{$00}{CTRL-B}{CTRL-G}{dish}{dish}{CTRL-G}{CTRL-F}{CTRL-B}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-D}{CTRL-F}{CTRL-B}{$00}{$00}{stop}{CTRL-F}{CTRL-G}{stop}{wht}{stop}{CTRL-B}{CTRL-G}{CTRL-B}{CTRL-B}{CTRL-D}{CTRL-D}{CTRL-D}{wht}{CTRL-B}{CTRL-A}{CTRL-F}{stop}{stop}{CTRL-B}{CTRL-B}{CTRL-A}{$00}{$00}{CTRL-A}{dish}{dish}{CTRL-A}{CTRL-D}{dish}{CTRL-F}{$00}{CTRL-G}{CTRL-A}{CTRL-F}{CTRL-D}{stop}{dish}{dish}{dish}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-F}{CTRL-B}{stop}{dish}{stop}{wht}{CTRL-F}{dish}{wht}{dish}{$00}{stop}{CTRL-F}{CTRL-F}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{$00}{sret}j{$e8}{sret}h{$e8} l
{SHIFT-POUND}{swlc}{sret}l{$e8}l{cyn}{CTRL-L}X{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{$78}{SHIFT-POUND}{$a0}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-G}{sret}{$f9}{esc}x {$e4}~{$f0}{$fb}IcP{$f7}{$a0}{$00}{SHIFT-POUND}{$00}{lgrn}{$61}{CTRL-Y}{lgrn}{CBM-J}{CTRL-Y}{lgrn}{$6a}{CTRL-Y}H{SHIFT-*}{ensh}P{$f0}{SHIFT-POUND}{CTRL-G}{sret}j{$e8}{$78}{SHIFT-POUND}{$8f}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-B}{sret}{$f9}{esc}x{SHIFT-POUND}{clr} R~{$a0}{$00}{CBM-O}{cyn}{CTRL-Y}{lgrn}{$71}{orng}H{SHIFT-*}{CTRL-V}P{$f5}{$78}{SHIFT-POUND}Z{sret}{$f8}{esc}{SHIFT-POUND}{wht}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{sret}{CTRL-D}{CTRL-Y}x{CBM-Z}{stop}{CTRL-Y}{$f0}{stop}l{f7}{$0a} {CBM-I}{CTRL-K}lL{wht}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}I{$78}P8{SHIFT-POUND}<{sret}{$60}{CTRL-Y}{SHIFT-POUND}{$00}{sret}3{CTRL-Y} {$e6}{$0a}{SHIFT-POUND}{$00}{$a0}{$00}{lgrn}{$61}{CTRL-Y}{lgrn}{$6a}{CTRL-Y}{lgrn}{CBM-J}{CTRL-Y}H{SHIFT-*}{ensh}P{$f2}{sret}{wht}{CTRL-Y}{sret}{CTRL-F}{CTRL-Y}{sret}{CTRL-G}{CTRL-Y}{sret}{CBM-V}{CTRL-Y}{sret}{CBM-B}{CTRL-Y}{SHIFT-POUND}{blu}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-F}{sret}{$f9}{esc}l2{CTRL-L}{$ee}{wht}{CTRL-Y}{CTRL-X}{SHIFT-POUND}{del}{$6d}{CTRL-F}{CTRL-Y}M{wht}{CTRL-Y}P{CTRL-U}{$ee}_{CTRL-Y}{CBM-D}_{CTRL-Y}{CBM-O}p{CTRL-D}{$0a}{sret}{CTRL-F}{CTRL-Y}{SHIFT-POUND}{$00}{sret}{wht}{CTRL-Y} {CTRL-A}{CTRL-L}{CBM-I}{$00}{CBM-X}{CBM-J}{CTRL-Y}{$f0}
{$de}{CBM-J}{CTRL-Y}P{dish}{SHIFT-POUND}{$00}{left}{$61}{CTRL-Y}{sret}{ensh}{CTRL-Y}{$e8}{$e0}{ensh}P{$e9}{CBM-Z}{$fe}~I{esc}P
{CBM-@}{CBM-+}{CBM-Z}{ensh}{CTRL-Y}Y{$f7}{$e6}P{down}l!{CTRL-G}{CBM-D}#{CTRL-B}{CBM-Z}{ensh}{CTRL-Y}Y[{$e7}P{stop}l!{CTRL-G}{CBM-I}{$00}{CBM-X}{$61}{CTRL-Y}I{CTRL-D}P{wht}{SHIFT-POUND}{$00}{left}{$61}{CTRL-Y}{$e8}{$e0}{ensh}P{$ef}{CBM-Z}{$fe}~I{esc}P{CTRL-F}{CBM-O}{$f7}{$e6}l{$a0}{CTRL-F}{CBM-O}[{$e7}{sret}{ensh}{CTRL-Y}I1{blk}]I:{CBM-A}y){CTRL-O}{CBM-N}{CBM-X}{$60}{CTRL-Y}){stop}{$f0}{wht}{SHIFT-POUND} {left}{CBM-H}{CTRL-Y}{SHIFT-POUND}{CTRL-D}{rght}{$60}{CTRL-Y}{left}{$60}{CTRL-Y}){stop}{$f0}>I{stop}P{red}N3{CTRL-Y}0{wht}N3{CTRL-Y}{CTRL-P}{wht}{SHIFT-POUND}{$00}{sret}3{CTRL-Y}{SHIFT-POUND}{CTRL-A}{sret}{CBM-V}{CTRL-Y}{SHIFT-POUND}{$00}{sret}{CBM-B}{CTRL-Y}l{$f3}{CTRL-F}{$ee}3{CTRL-Y}{SHIFT-POUND}{CTRL-B}{sret}{CBM-V}{CTRL-Y}{SHIFT-POUND}{CTRL-P}{sret}{CBM-B}{CTRL-Y}{CBM-Z}3{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}{CTRL-G}{sret}6{CTRL-Y} p{CTRL-K}l!{CTRL-G}{$a0}{$00}{CBM-O}{$61}{CTRL-Y}){CTRL-D}{$f0}{CTRL-O}{CBM-O}{$61}{CTRL-Y}){stop}{$f0}{dish}{SHIFT-POUND}{$00}{lgrn}{$61}{CTRL-Y}{lgrn}{CBM-J}{CTRL-Y}H{SHIFT-*}{ensh}P{$e5}{$ee}{CTRL-G}{CTRL-Y}{CBM-Z}{CTRL-G}{CTRL-Y}I<P/{SHIFT-POUND}{$00}{sret}{CTRL-G}{CTRL-Y}N{$60}{CTRL-Y}P{CTRL-O}{SHIFT-POUND}2{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-L}{sret}{$f9}{esc}{SHIFT-POUND}{CTRL-A}{sret}{stop}{CTRL-Y}{CBM-Z}{$60}{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}{CTRL-U}{sret}6{CTRL-Y} p{CTRL-K}{SHIFT-POUND}2{sret}h{$e8}l{left}{CTRL-G}{CBM-Z}{CBM-V}{CTRL-Y}P{dish}{SHIFT-POUND}{$00}{sret}h{$e8}l{left}{CTRL-G}I{CTRL-A}P{CTRL-Y}{CBM-D}{CBM-B}{CTRL-Y}{CBM-O}{SHIFT-*}{CTRL-Y}{sret}h{$e8}H{f8}{CBM-B}{CTRL-Y}{SHIFT-*}{CTRL-P}P!{SHIFT-POUND}{$00}{sret}{CBM-V}{CTRL-Y}l{left}{CTRL-G}{CBM-D}{CBM-B}{CTRL-Y}{CBM-O}{SHIFT-*}{CTRL-Y}{sret}h{$e8}H{f8}{CBM-B}{CTRL-Y}{SHIFT-*} P{dish}{SHIFT-POUND}{$00}{sret}{CBM-V}{CTRL-Y}l{left}{CTRL-G}l2{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I{CBM-H}{blk}{rvon}{SHIFT-POUND}{CBM-B}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-G}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{sret}{stop}{CTRL-Y}l{f8}{CTRL-L}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}M{$f6}{CTRL-Y}{blk}){SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{CBM-D}{stop}{CTRL-Y}{CBM-O}{$00}{CTRL-Z} R~H{f8}{stop}{CTRL-Y}{SHIFT-*}8{$f0}{CTRL-V}{SHIFT-*}f{blk}{CTRL-O}{SHIFT-POUND}&{sret}{$f8}{esc}{SHIFT-POUND}{dish}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}l{f8}{CTRL-L}{$a0}{$00}{CBM-O}{sret}{CTRL-Y}{lgrn}z{$82}{lgrn}{lblu}{$83}{CBM-O}{lred}{CTRL-Y}{lgrn}{$82}{$82}{lgrn}B{$83}H{SHIFT-*}{ensh}P{$e9}{$a0}{stop}{SHIFT-POUND}{CTRL-A}{lgrn}{$61}{CTRL-Y} I{CTRL-K}{$a0}{$00}{SHIFT-POUND}{stop}{sret}{$61}{CTRL-Y} I{CTRL-K}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I<{blk}{red}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{sret}{CTRL-D}{CTRL-Y}{SHIFT-POUND}o{sret}{$f8}{esc}{SHIFT-POUND}{dish}{sret}{$f9}{esc}{$a0}{stop}{SHIFT-POUND}{wht}{lgrn}{$61}{CTRL-Y} I{CTRL-K}l{f8}{CTRL-L}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}M{$f6}{CTRL-Y}{blk}2{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{CBM-D}{stop}{CTRL-Y}{CBM-O}f{CTRL-Z} R~H{f8}{stop}{CTRL-Y}{SHIFT-*}${blk}{red}{$a0}{$00}{SHIFT-POUND}{CTRL-G}{sret}{$61}{CTRL-Y} I{CTRL-K}{SHIFT-POUND}{$8f}{sret}{$f8}{esc}{SHIFT-POUND}{dish}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{sret}{CTRL-D}{CTRL-Y}l{f8}{CTRL-L}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}M{$f6}{CTRL-Y}{blk}%{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{CBM-D}{stop}{CTRL-Y}{CBM-O}{$70}{CTRL-Z} R~H{f8}{stop}{CTRL-Y}{SHIFT-*}{rvon}{blk}{CTRL-O}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}B{sret}{$f8}{esc}{SHIFT-POUND}{dish}{sret}{$f9}{esc}l{f8}{CTRL-L}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}I{CBM-H}{blk}{CTRL-O}{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{SHIFT-POUND}{$de}{sret}{$f8}{esc}{SHIFT-POUND}{dish}{sret}{$f9}{esc}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}M{$f6}{CTRL-Y}{blk}b{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{CBM-D}{CTRL-D}{CTRL-Y}{CBM-O}{$82}{CTRL-Z} R~H{f8}{CTRL-D}{CTRL-Y}{SHIFT-*}{$6c}{blk},{$a0}{$00}{CBM-O}{sret}{CTRL-Y}{lgrn}{CBM-M}{$83}{CBM-O}{lred}{CTRL-Y}{lgrn}O{$83}H{SHIFT-*}{ensh}{blk}{$ef}{SHIFT-POUND}{CTRL-A}{sret}{$ee}{$80}{SHIFT-POUND}{rvon}{sret}{$ef}{$80}{SHIFT-POUND}.{sret}{$f8}{esc}{SHIFT-POUND}{ensh}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}M{$f6}{CTRL-Y}{blk}({SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}{del} R~{SHIFT-POUND}{rght} R~{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}I{home}P{CTRL-O}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}{$64}{sret}{$f8}{esc}{SHIFT-POUND}{ensh}{sret}{$f9}{esc}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I{$78}{blk}6{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}{CBM-M}{sret}{$f8}{esc}{SHIFT-POUND}{ensh}{sret}{$f9}{esc}{$a0}{CTRL-G}{SHIFT-POUND}{CTRL-D}{lgrn}{$61}{CTRL-Y} I{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{SHIFT-POUND}{CTRL-A}{sret}{stop}{orng}{sret}{$f7}{CTRL-Y}{SHIFT-POUND}{rvon}{sret}{CTRL-D}{orng}{sret}{$f8}{CTRL-Y}{SHIFT-POUND}{stop}{f1}{$fe}{SHIFT-POUND}{orng}{f1}~l{f8}{CTRL-L}{$ee}{CTRL-D}{CTRL-Y}{CBM-Z}{CTRL-D}{CTRL-Y}M{$f6}{CTRL-Y}{CBM-A}{stop}lc{$0a}{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-Y}{CBM-I}{$00}{SHIFT-POUND} {orng}{$fe}{$e6}{$fe}{SHIFT-POUND} {orng}{$fe}{CTRL-X}{CBM-G}{$fe}{$69}({f1}{$fe}{blk}{CTRL-B}{$e6}~{CBM-Z}{$f8}{CTRL-Y}{CBM-I}{$00}{orng}{$fe}F{$fe}{CBM-Z}{$f7}{CTRL-Y}{orng}{$fe}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I{CTRL-D}P{red}{SHIFT-POUND}{CTRL-A}{sret}{$7b}{orng}{SHIFT-POUND}{rvon}{sret}{$7c}{orng}{SHIFT-POUND}{del}{sret}{CBM-T}{orng}{sret}{$f7}{CTRL-Y}{SHIFT-POUND}{CTRL-O}{sret}{CBM-@}{orng}{sret}{$f8}{CTRL-Y}P>I{dish}P{red}{SHIFT-POUND}{del}{sret}{esc}{$82}{SHIFT-POUND}{CTRL-O}{sret}{red}{$82}{SHIFT-POUND}{swlc}{sret}c{$82}{sret}{$f7}{CTRL-Y}{SHIFT-POUND}{CTRL-G}{sret}d{$82}{sret}{$f8}{CTRL-Y}P{grn}I{down}P{CTRL-Z}{SHIFT-POUND} {sret}{CBM-Q}{$83}{sret}{CBM-D}{$83}{SHIFT-POUND}f{sret}{$f8}{esc}{SHIFT-POUND}{$0a}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{sret}{CTRL-D}{CTRL-Y}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I<{blk}{CTRL-Y}{$a0}{CTRL-A}{SHIFT-POUND}{CTRL-B}{lgrn}{$61}{CTRL-Y} I{CTRL-K}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}{$6c}{sret}{$f8}{esc}{SHIFT-POUND}{$0a}{sret}{$f9}{esc}l{f8}{CTRL-L}{$ee}{stop}{CTRL-Y}{CBM-Z}{stop}{CTRL-Y}I{$78}{blk}{CTRL-O}{SHIFT-POUND}{$00}{sret}{stop}{CTRL-Y}{SHIFT-POUND}{$a0}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-G}{sret}{$f9}{esc}l{f8}{CTRL-L}{$78}{SHIFT-POUND}2{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-L}{sret}{$f9}{esc}x{SHIFT-POUND}{$00}{sret}h{$e8}{CBM-POUND}{CBM-O}{$e0}{CTRL-Y}{lgrn}{cyn}{orng}H{SHIFT-*}{ensh}P{$f5}{CBM-Z}4{CTRL-Y}M3{CTRL-Y}{CBM-A}{grn}{$a0}{$00}{CBM-O}{$e9}{CTRL-Y}{lgrn}{$ed}{orng}H{SHIFT-*}
P{$f5}{CBM-Z}3{CTRL-Y}{sret}4{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}${sret}6{CTRL-Y} p{CTRL-K}{$78}{SHIFT-POUND}{$70}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-L}{sret}{$f9}{esc}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-Y}{sret}{CTRL-A}{CTRL-Y}x{CBM-Z}{$00}{CTRL-Y}{$f0}{$fb}{$60}{$60}{SHIFT-POUND}{clr} R~{$a0}{$00}{CBM-O}7{CTRL-Y}{lgrn}{$00}{$80}H{SHIFT-*}(P{$f5}{CBM-Z}3{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}{CTRL-G}{sret}6{CTRL-Y} p{CTRL-K}{CBM-Z}4{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}${sret}6{CTRL-Y} p{CTRL-K}{CBM-I}{$00}{SHIFT-POUND}{CBM-E}{sret}{$00}{CTRL-Y}){CTRL-O}{CBM-POUND}{CBM-O}{CTRL-O}{CTRL-Y}{f1}{$fe}{CBM-O}{CTRL-X}{CTRL-Y}{f1}~{$a0}{$00}{CBM-O}{sret}{CTRL-Y}{orng}{$fe}{SHIFT-*}
P{wht}{CBM-Z}{$00}{CTRL-Y}{orng}{$fe}{CTRL-X}{CBM-G}{$fe}{$79}"{CTRL-Y}{f1}{$fe}H{SHIFT-*}{rvon}P{$e5}{$ee}{$00}{CTRL-Y}{CBM-Z}{$00}{CTRL-Y}I{SHIFT-@}PL{$60}{f8}{CTRL-A}{CTRL-Y}{$a0}{$00}{CBM-Z}5{CTRL-Y}I{$0a}{blk}{CTRL-G}8{$e9}{$0a}Hlx{CTRL-K}{CTRL-X}{$69}{CBM-A}{sret}{CTRL-B}{CTRL-Y}{f8}{CTRL-L}{CTRL-Y}{CBM-Z}{CTRL-L}{CTRL-Y}I{$0a}{blk}{del}{CBM-Z}{CTRL-L}{CTRL-Y}8{$e9}{$0a}{sret}{CTRL-L}{CTRL-Y}{SHIFT-POUND}{CBM-E}{CBM-D}6{CTRL-Y}{lgrn}~{$7f}l{$8f}{CTRL-K}{SHIFT-POUND}{$a0}{CBM-D}6{CTRL-Y}{lgrn}~{$7f}{CBM-Z}{CTRL-L}{CTRL-Y}{CTRL-X}{$69}{CBM-A}{lgrn}{$00}{$80}{CBM-Z}{CTRL-B}{CTRL-Y}{lgrn}{CTRL-A}{$80}{CBM-D}{CTRL-A}{CTRL-Y}{$60}{$a0}{$00}{CBM-O}{$61}{CTRL-Y}Y{$6a}{CTRL-Y}{$f0}{CTRL-W}{CBM-O}{$61}{CTRL-Y}{sret}{dish}{CTRL-Y}{SHIFT-POUND}{$00}{lgrn}{$61}{CTRL-Y} I{CTRL-K}{CBM-Z}{dish}{CTRL-Y}{lgrn}{$61}{CTRL-Y} I{CTRL-K}H{SHIFT-*}{ensh}P{CBM--}{$60}{CBM-I}{$00}{CBM-O}{$73}{CTRL-Y}{f1}{$fe}{CBM-O}{$7c}{CTRL-Y}{f1}~{f8}{$00}{CTRL-Y}{CBM-O}{$61}{CTRL-Y}{lgrn}{$6a}{CTRL-Y}{CBM-POUND}{CBM-O}{f1}{CTRL-Y}{CBM-POUND}{CBM-O}{$00}{red}P{CTRL-D}{CBM-D}{$00}{CTRL-Y}{$60}{CTRL-X}{CBM-G}{$fe}{$79}{$00}{esc}{f1}{$fe}{blk}{CTRL-B}{$e6}~{CBM-O}{$00}{red}{orng}{$fe}Hl{$e3}{CTRL-K}{$ee}_{CTRL-Y}{CBM-S}_{CTRL-Y}{CBM-C}p{CTRL-D}{CBM-O}{$61}{CTRL-Y}){stop}P{home}{$ee}_{CTRL-Y}{CBM-S}_{CTRL-Y}{CBM-X}p{CTRL-D}){stop}{lgrn}{$61}{CTRL-Y}{SHIFT-POUND}0{lgrn}{CBM-J}{CTRL-Y}{$ee}_{CTRL-Y}{CBM-D}_{CTRL-Y}{CBM-O}p{CTRL-D}I{stop}{blk}P{$60}{$ee}{$0a}{CTRL-Y}{CBM-Z}{$0a}{CTRL-Y}I{$0a}{CBM-A}{stop}l{$8f}{CTRL-B}{SHIFT-POUND}{$00}{sret}{$0a}{CTRL-Y}{SHIFT-POUND}={sret}\
{SHIFT-POUND}{grn}{sret}~{CTRL-L}{CBM-Z}{CTRL-K}{CTRL-Y}{$f0}
{SHIFT-POUND}P{sret}{$fe}{CTRL-L}{SHIFT-POUND}{$00}{sret}{CTRL-K}{CTRL-Y}l{$6a}{CTRL-L}{SHIFT-POUND}{$e8}{sret}{$fe}{CTRL-L}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-K}{CTRL-Y} l
l{$8f}{CTRL-B}{$ee}{CTRL-A}{CTRL-Y}{CBM-Z}{CTRL-A}{CTRL-Y}I{$f0}P{CTRL-O}{SHIFT-POUND}{CTRL-A}{sret}{$00}{CTRL-Y}{SHIFT-POUND}{$8f}{sret}{$f8}{esc}{SHIFT-POUND}{blk}{sret}{$f9}{esc}l2{CTRL-L}{$a0}{$00}{CBM-O}{$ee}{CTRL-Z}{lgrn}6{$80}H{SHIFT-*}{CTRL-L}{blk}{$f5} {$71}
l2{CTRL-L}{SHIFT-POUND}{$8f}{sret}{$f8}{esc}{SHIFT-POUND}{CTRL-B}{sret}{$f9}{esc}{CBM-Z}{$fe}~I{esc}P {SHIFT-POUND}1{sret}{blk}{CTRL-B}{SHIFT-POUND}{$e6}{sret}{up}{CTRL-B}{CBM-Z}{$fc}~{f1}{inst}{CBM-Z}{$fd}~{f1}{brn}{$78}{SHIFT-POUND}{$fb}{f1}{blk}{SHIFT-POUND}{CTRL-L}{f1}{up}l{$e5}{CTRL-L}{SHIFT-POUND}{f7}{sret}{blk}{CTRL-B}{SHIFT-POUND}{$e6}{sret}{up}{CTRL-B}{$78}{SHIFT-POUND}{$fb}{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{CTRL-L}{sret}{CTRL-Z}{CTRL-B}x{SHIFT-POUND}{$00}{sret}{CTRL-D}{CTRL-D}{SHIFT-POUND}{$0a}{sret}{stop}{CTRL-D}{SHIFT-POUND}k{sret}%{CTRL-D}{SHIFT-POUND}{CTRL-D}{sret}&{CTRL-D}{$60}{$6c}{$f8}{esc}{$00}{rght}hjjjj{ensh}{SHIFT-*}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{$68}){CTRL-O}{ensh}{$80}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}jj{ensh}@{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}{$0a}{$0a}{$0a}){CTRL-X}{sret}o{$e8}{gry2}
o{$e8}{ensh} {sret}o{$e8}{SHIFT-POUND}{$00}{sret}o{$e8}{$60}{$a0}{CTRL-G}{CBM-E}{$00} {$00}
{f7}{CTRL-P}{$f8}{$60}{SHIFT-POUND}~{sret}c{$e8}{CBM-Z}{$fe}{CTRL-L}{f1}{$00}{CBM-Z}~{CTRL-L}{f1}{CTRL-A}{CBM-I}{$00} a
{CBM-G}{$00}{CTRL-X}{$69}{dish}{f1}{$00}{blk}{CTRL-B}{$e6}{CTRL-A}{$e8}{$e0}@P{$ed}{$60}{$a0}{$00}{CBM-O}7{CTRL-Y}{lgrn}{$00}{$80}H{SHIFT-*}(P{$f5}{CBM-Z}3{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}{CTRL-G}{sret}6{CTRL-Y} p{CTRL-K}{CBM-Z}4{CTRL-Y}{sret}5{CTRL-Y}{SHIFT-POUND}${sret}6{CTRL-Y} p{CTRL-K}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$a0}{$00}{CBM-O}{$00}{CTRL-X}{lgrn}{$00}{$80}H{SHIFT-*}{$a0}P{$f5}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$6c}{$7f} {$61}{$6c}{$7e}{$7c}{$ec} ~{$e2}{$7b}  {$61} {$61}{$6c}{$7f} {$61} {$61}{$61} {$61}{$61} {$61}  {$ec}{$e2}{$7b}{$ec}{$e2}{$7b}~{$e2}{$7b}{$fc}{$62}{$61}{$fc}{$7e}  {$61} {$61} {$61}  {$fc}{$62}{$61}{$fc}{$62}{$61}{$ec}{$7b}{$61}{$7f}{$6c}{$7e}{$61} {$61}  {$fc}{$62}{$7e}{$fc}{$62}{$7e}{$61}  {$61} {$61}{$61}{$7f}  {$61} {$61} {$61}  {$61} {$61}{$61} {$61}{$61}{$7c}{$61} {$61} {$61} {$61}  {$61}  {$61}{$7f} {$61}{$7c}{$61}{$7e} {$7e}{$7e} {$7e}{$7c}{$e2} {$7c}{$e2} {$7c} {$7e} {$7e}{$7e} {$7e}{$7e} {$7e} {$7e} {$7c}{$e2}   {$7e}  {$7e} {$7e}{$7c}{$e2} {dish}{CTRL-B}{CTRL-V}{CTRL-G}{CTRL-W}{swlc}{dish}{dish}{wht}{$0a}{home}{swlc}{stop}{CTRL-B}{swlc}{CTRL-B}{CTRL-F}{home}{$0a}{dish}{$0a}#&{red}&{CTRL-G}{dish}{CTRL-B}{dish}{home}{CTRL-G}{swlc}{CTRL-K}{CTRL-G}{red}{home}&{CTRL-G}{$0a}{dish}{$0a}${ensh}{CTRL-G}{dish}{home}{dish}{CTRL-G}2{dish}4{rvon}{home}{rvon}{CTRL-U}{CTRL-G}{home}&{home}{CTRL-G}{dish}{home}{CTRL-G}+6{dish}5*5{rvon}{dish}{$0a}{CTRL-K}{$0a}{dish}{CTRL-G}&{CTRL-G}{dish}{CTRL-W}{rvon}{dish}+3{wht}{dish}0{CTRL-B}{home}{CTRL-G}{home}&{CTRL-G}{CTRL-W}{CTRL-Y}{CTRL-W}{$00}{$f0}{CBM-A}{CTRL-A}v{del}{CTRL-P}{$00}{$00}{$fd}{CTRL-G}{CTRL-A}{$00}{$00}{$00}{$00}{lblu}{CBM-M}{CBM-H}z{$67}{$74}{CTRL-Z}'4{$83}{$83}{$83}{$82}{$82}{$82}{orng}{orng}{orng}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A} {CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-U}{$a0}{clr}{$83}{$8f}{rvof}{f1}{$a0}{CBM-A}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{inst}{f2}{sret}{f1}{$a0}{CBM-L}{CBM-A}{$a0}{$a0}{$a0}{$a0}{f7}{f2}{CBM-Z}{clr}{$83}{$8f}{rvof}{f1}{$a0}{CBM-A}{CBM-A}{$a0}{$a0}{$73}{$00}{CTRL-G}{CTRL-B}{stop}{wht}{$00}{$00}{$00}{CTRL-D}{$00}{CTRL-G}{CTRL-B}{stop}{wht}{$00}{$00}{$00}{CTRL-D}{$00}{CBM-Q}{CBM-U}E{$6b}{$78}{f1}+8e{$82}{$82}{$82}{orng}{orng}{orng}{$80}{$80}{$80}{$00}-j{$62}{$78}{$83}{CBM-Z}P@{$a0}abcde{$a0}fggggggggg
{CTRL-O}{CTRL-L}{wht} {CTRL-A}{del}{del}{CTRL-A}{stop}{CTRL-K} {CTRL-G}{CTRL-A}
{wht} {home}{del}{CTRL-A}{rvon}{del}{$00}{$00}{esc}{esc}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-P}~{$e1}C{CBM-G}{f5}{$69}k-{CTRL-O}~{$e1}C{CBM-G}{f5}{$69}k0@p{$60}{$70}{$80}{$70}{$60}p@0 {CTRL-P} {CTRL-P} {CTRL-G}{CTRL-A}
{wht} {CTRL-O}{CTRL-V}{wht}{rvon}{gry1}{$8f}{gry1}{CBM-K}{$a0}{f7}{f2}{CBM-Z}{clr}{$83}{$8f}{rvof}{f1}{CTRL-F}{swlc}{CTRL-G}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}play{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}* mole attack *{down}{down}{down}{down}{down}{down}
{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}...{rght}{rght}1{rght}point
{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}...{rght}-2{rght}points{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}key{rght}botod{rght}commands
{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}7{rght}8{rght}9{down}{down}{left}{left}{left}{left}{left}4{rght}5{rght}6{down}{down}{left}{left}{left}{left}{left}1{rght}2{rght}3{up}{up}{rght}{rvof}ng{rght}hit{rght}mole{home}{down}{down}{down}{down}{down}{rght}{CTRL-P}{CTRL-U}{home}{dish} '{$83}' {CTRL-K}{wht}{CTRL-Y} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{stop}{CTRL-A}&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}*{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}r{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}s&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}s{CTRL-A}&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}${CTRL-A}{$00}{stop}{CTRL-A}&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}"{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}+{CTRL-A}&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}+{CTRL-A}&{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}!{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}                                       abcde{$00}mno@{$7e}{$a0}{$7f}f{CBM-X}{CBM-X}p{CBM-X}{CBM-X}qrrrs{$a0}{$a0}{$a0}{$a0}{$a0}hijkl{$00}mno@{$7e}{$a0}{$7f}f{CBM-X}{CBM-X}p{CBM-X}{CBM-X}qrrrshijkl{$00}{$7d}@{$a0}{$a0}{$a0}f{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}hijkl{$00}{$62}{$63}{$64}{$a0}{$a0}{$65}{$66}{$67}{$68}{$69}{$00}{$62}{$63}{$64}{$a0}{$a0}{$65}{$66}{$67}{$6d}{$6a}{$6b}{$68}{$69}{$6c}z[t{$a0}u^_{$6d}\{CBM-X}{CBM-X}p{CBM-X}{CBM-X}{$60}]qvvvs{$61}hwxyl{$00}{$62}{$63}{$64}{$a0}{$a0}{$65}{$66}{$67}{$6d}{$6a}{$6b}{$68}{$69}{$6c}z[t{$a0}u^_{$6d}{$72}{CBM-X}{CBM-X}p{CBM-X}{CBM-X}{$73}hijkl{$00}{$62}{$63}{$64}{$a0}{$a0}{$65}{$66}{$67}{$6d}{$6a}{$6b}{$68}{$69}{$6c}z[{$a0}{$a0}{$a0}^_{$6d}{$72}{$a0}{CBM-Z}{CBM-R}{$71}{$a0}{$73}hijkl{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-G}{blu}?{$7f}{$7f}~~~{$00}{$80}{SHIFT-*}{$f0}{$fe}~~~{$00}{$00}{$00}{$00}{$00}{$e0}{$fe}~{$00}{$00}{$00}{$00}{$00}{$00}{$00}~{$00}{$00}{$00}{$00}{$00}{CTRL-G}{$7f}~{$00}{CTRL-A}{stop}{CTRL-O}{$7f}~~~{$e0}{$f8}{$fc}{$fe}{$fe}~~~{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{$7f}{CBM-B}O{$f1}{$fe}~~~~~~~{blu}{$e1}{$fe}~~~~~~~{$00}~~~~~{$f8}{f5}{$7f}~{$fe}{$fd}{$f3}{$8f}{$7f}~~~{$00}{$00}{$00}{CTRL-A}{$70}{CTRL-L}{CTRL-B}{CTRL-A}{$00}{$00}{$00}{orng}b$$${$00}{$00}{$00}{$80}{swlc}0@{$80}~C{orng}{orng}{orng}{orng}C~{$ef}{$ef}{$f7}{$f8}~~~~~~~{$00}~~~~{$ef}{$ef}{CBM-*}?~~~~~{$8f}{$f3}{$fd}{$00}{$fd}{$f3}{$8f}~{$f1}O{CBM-B}{$00}{CBM-B}O{$f1}~~~{$00}{$ef}{$ef}{$ef}{$ef}{$ef}{$ef}{$f7}{$f8}{blu}{$e1}{$fe}~{$ef}{$ef}{$ef}{$00}~~{$00}~{$ef}{$ef}{CBM-*}?{$f8}{f5}{$7f}~{$00}{$00}{$00}{CTRL-A}{stop}{CTRL-G}{CTRL-G}{CTRL-O}{CTRL-G}?~~~~~~{CTRL-O}{CTRL-O}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{CTRL-O}{CTRL-O}{CTRL-G}{stop}{CTRL-A}{CTRL-A}{$e0}{$fc}~~~~~~{$f0}{CTRL-O}{$00}{$80}{SHIFT-*}{$e0}{$e0}{$f0}{$f0}{$f0}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f0}{$f0}{$e0}{SHIFT-*}{$80}{$80}{$00}{$7f}~~{$60}~~~{$00}{$fe}~~{CTRL-F}~~~{swlc}>{$7e}{$fe}{$fe}{$7e}>{swlc}{$7c}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7c}{$00}~~~~~~{$00}{CTRL-F}~~~~~~{CTRL-F}~~~{$60}~~{$7f}{$00}~~~{CTRL-F}~~{$fe}{$00}{$00}{$00}{$00}{$f0}{CTRL-O}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f0}{CTRL-O}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f0}{CTRL-O}*{red}>{red}*{$00}{$00}{$00}{$ef}{$ef}{$ef}{$00}~~~~{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f8}{$f7}{$f1}{$f7}A{SHIFT--}A~{CBM-N}{CTRL-O}{CTRL-O}{CTRL-O}{CTRL-O}{CTRL-G}{CTRL-G}{stop}{CTRL-A}{$f0}{$f0}{$f0}{$f0}{$e0}{$e0}{SHIFT-*}{$80}~~{orng}~{orng}~~~~~~~~~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-G}{CTRL-X} @@ {CTRL-P}{dish}~~~{$e7}{$e7}~~~~C{CBM-X}{CBM-X}{CBM-X}{CBM-X}C~{$e0}{CTRL-X}{CTRL-D}{CTRL-B}{CTRL-B}{CTRL-D}{dish}{CTRL-P}~C{CBM-X}{CBM-X}{CBM-X}{CBM-X}C~~~~{$e7}{$e7}~~~{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}    5 poke59468,12:print"{clr}";
    6 goto4000
    7 i4=i5
    8 gosub8000
    9 print"{down}"
   10 th=0:t=0
   30 x0=25000
   40 v0=-200:f=1:s=1
   70 gosub1000
   80 gosub60000
   90 at=ti:ag=ti
  100 getrr$:if(val(rr$)=0andrr$="0")or(val(rr$)<>0)thenr=val(rr$)
  110 if(ti-at)>30thenat=ti:goto130
  120 goto110
  130 t=t+r
  140 th=th+1
  160 a=5.4*(1-0.2*r)
  170 x=v0+0.5*a:x0=x0+x
  190 ifx0>0then230
  200 x=x-x0:f=0:x0=0
  230 d=v0*v0-2*x*a
  240 ifd>0then270
  250 d=-d:s=-1
  270 v0=sqr(d)*s*sgn(x)
  280 s=1
  290 ifv0>0thenprint"{rvon}";
  300 print"{home}{down}{rght}{rght}";mid$(str$(v0),2,5)"{rght}{rght}{rvof}";
  310 printleft$(str$(x0)+a$(0),7)
  320 print"{down}"
  330 print"{rght}";1200-t"{left}   {left}{left}"tab(10);th
  340 print"{down}{down}":gosub2000:iff=0thengosub9000:goto10000
  350 ift>1200thenr=0:goto140
  360 goto100
 1000 a$="{down}{left}{left}{left}{left}{left}"
 1010 a$(0)="     "
 1020 a$(1)=" {CBM-M}{CBM-V} "
 1030 a$(2)=" {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof} "
 1040 a$(3)=" {rvon} {CBM-V} {rvof} "
 1050 a$(4)="{rvon}{SHIFT-POUND}usa{CBM-*}{rvof}"
 1060 a$(5)="N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M"
 1070 a$(6)=a$(0)
 1080 print"{home}{down}{down}"tab(40);
 1090 fori=0to6
 1100 printa$(i)+a$;
 1110 next
 1120 print"{home} {rvon} speed   hoehe {rvof}{down}{down}"
 1130 print" {rvon} sprit   zeit  {rvof}"
 1140 return
 2000 printtab(40);:ifr=0thenreturn
 2010 fori=1tor:print"N{CBM-T}M{down}{left}{left}{left}";:next:fori=rto10:print"   {down}{left}{left}{left}";:next
 2020 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:fori=1to10:print"   {down}{left}{left}{left}";:next:return
 3010 goto5000
 4000 print"                       {rvon} m o n d l a n d u n g {rvof}
 4001 print"                       =======================
 4002 print:print
 4005 print"dieses spiel simuliert die landung ";
 4010 print"einer mondfaehre auf dem mond."
 4015 print
 4020 print"es wird die {rvon}fallgeschwindigkeit (m/s){rvof},";
 4030 print"die {rvon}hoehe (m){rvof},der {rvon}spritinhalt{rvof} des tanks
 4040 print"und die {rvon}zeit (s){rvof} angezeigt."
 4050 print:print"sie koennen durch druecken der tasten ";
 4060 print" {rvon} 0 - 9 {rvof}  den {rvon}bremsschub{rvof} eingeben."
 4065 print
 4070 print"geben sie zuviel schub, dann steigt die mondfaehre wieder .
 4080 print"dies wird durch den geschwindigkeitswert {rvon} revers {rvof} dargestellt.
 4176 print"{down}{down}{down}haben sie verstanden ?  ";
 4177 gosub 40000
 4178 print"*{rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getu$:ifu$=""then4178
 4190 ifu$="j"then7
 4191 ifu$="n" then 4200
 4192 print:print"{up}(j/n) ";:goto 4176
 4200 print"{clr}":goto4000
 8000 print"{clr}"
 8005 fori1=1to20
 8030 printtab(79*rnd(1));"*"
 8080 nexti1
 8090 return
 9000 h=4.5:h$(1)="{CBM-@}":h$(2)="{CBM-P}":h$(3)="{CBM-O}":h$(4)="{CBM-I}":h$(5)="{rvon}{CBM-U}{rvof}":h$(6)="{rvon}{CBM-Y}{rvof}"
 9010 h$(7)="{rvon}{CBM-T}{rvof}":h$(8)="{rvon} {rvof}"
 9020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1to79
 9030 n=int(rnd(1)*7)+1:ifabs(n-h)>2then9030
 9040 h=n:printh$(h);:nexti:return
 10000 print"{home}{down}{down}{down}"spc(40);
 10010 fori=1to10:forj=0to5:printa$(j)+a$;:next:print"{up}{up}{up}{up}{up} ";:next
 10020 ifv0<-150then20000
 10030 print:print"{down}{down}{down}{down}{down}{down}{rvon} meine hochachtung ! {rvof}  die landung war einwandfrei{down}"
 10040 goto30000
 20000 print"   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{left}{left}   {rght}{rght}{rght}{rvon}{CBM-*}{rght}{CBM-D} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{CBM-*}{rght}{rght}{rght}{CBM-Z} {rvon} {rvof}{SHIFT-POUND}P"
 20010 print"{down}"
 20020 print"{rvon} schwaches bild ! ! {rvof}  das war eine bruchlandung mein freund.{down}"
 25000 gosub40000
 30000 print"wollen sie schon aufgeben oder noch mal spielen ? ";
 30001 print"{rvon} {rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getg$:ifg$=""then30001
 30010 ifg$="j"then7
 30020 ifg$<>"n" then 30030
 30021 print"{clr}":end
 30030 print:print"{up}(j/n) ";:goto 30000
 40000 getaa$:ifaa$<>"" then 40000
 40010 return
 60000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 60010 a=ti
 60020 print"die mondlandung beginnt in"5-int((ti-a)/60)"{left} sekunden     {up}"
 60030 if(ti-a)<300then60020
 60040 print"                                      ":r=0
 60050 return
 65220 rudolf schineis spitzwegstr.42          858 bayreuth  tel 0921/68877
    1 rem mondlandung 2
    5 poke59468,12:print"{clr}";
    6 goto4000
    7 i4=i5
    8 gosub8000
    9 print"{down}"
   10 th=0:t=0
   30 x0=25000
   40 v0=-200:f=1:s=1
   70 gosub1000
   80 gosub60000
   90 at=ti:ag=ti
  100 getrr$:if(val(rr$)=0andrr$="0")or(val(rr$)<>0)thenr=val(rr$)
  110 if(ti-at)>30thenat=ti:goto130
  120 goto110
  130 t=t+r
  140 th=th+1
  160 a=5.4*(1-0.2*r)
  170 x=v0+0.5*a:x0=x0+x
  190 ifx0>0then230
  200 x=x-x0:f=0:x0=0
  230 d=v0*v0-2*x*a
  240 ifd>0then270
  250 d=-d:s=-1
  270 v0=sqr(d)*s*sgn(x)
  280 s=1
  290 ifv0>0thenprint"{rvon}";
  300 print"{home}{down}{down}{down}{rght}";mid$(str$(v0),2,5)"{rvof}";
  310 printleft$(str$(x0)+a$(0),7)
  320 print"{down}{down}"
  330 print"{rght}";1200-t"{left}   {left}{left}"tab(8);th
  340 gosub2000:iff=0thengosub9000:goto10000
  350 ift>1200thenr=0:goto140
  360 goto100
 1000 a$="{down}{left}{left}{left}{left}{left}"
 1010 a$(0)="     "
 1020 a$(1)=" {CBM-M}{CBM-V} "
 1030 a$(2)=" {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof} "
 1040 a$(3)=" {rvon} {CBM-V} {rvof} "
 1050 a$(4)="{rvon}{SHIFT-POUND}usa{CBM-*}{rvof}"
 1060 a$(5)="N{rvon}{SHIFT-POUND}{CBM-I}{CBM-*}{rvof}M"
 1070 a$(6)=a$(0)
 1080 print"{home}{down}{down}"tab(19);
 1090 fori=0to6
 1100 printa$(i)+a$;
 1110 next
 1115 print"{home} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1120 print"{CBM-M}{rvon}speed  hoehe{rvof}{CBM-G}":gosub1160
 1130 print"{CBM-M}{rvon}sprit  zeit {rvof}{CBM-G}":gosub1160
 1140 return
 1160 fori=1to2:print"{CBM-M}"tab(13)"{CBM-G}":next
 1170 print"{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}":return
 2000 printtab(19);:ifr=0thenreturn
 2010 fori=1tor:print"N{CBM-T}M{down}{left}{left}{left}";:next:fori=rto10:print"   {down}{left}{left}{left}";:next
 2020 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}";:fori=1to10:print"   {down}{left}{left}{left}";:next:return
 3010 goto5000
 4000 print"          {rvon} mondlandung {rvof}"
 4001 print"          ============="
 4002 print:print
 4005 print"dieses spiel simuliert die landung"
 4010 print"einer mondfaehre auf dem mond."
 4015 print
 4020 print"es wird die fallgeschwindigkeit (m/s),"
 4030 print"die hoehe (m),der spritinhalt des tanks"
 4040 print"und die zeit (s) angezeigt."
 4050 print:print"sie koennen durch druecken der tasten"
 4060 print"0 - 9  den bremsschub eingeben."
 4065 print
 4070 print"geben sie zuviel schub, dann steigt die"
 4080 print"faehre wieder (angezeigt durch {rvon}schub{rvof})"
 4170 print
 4176 print"haben sie verstanden ?  ";
 4177 gosub 40000
 4178 print"~{rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getu$:ifu$=""then4178
 4190 ifu$="j"then7
 4191 ifu$="n" then 4200
 4192 print:print"{up}(j/n) ";:goto 4176
 4200 print"{clr}":goto4000
 8000 print"{clr}"
 8005 fori1=1to14
 8030 printtab(39*rnd(1));"."
 8080 nexti1
 8090 return
 9000 h=4.5:h$(1)="{CBM-@}":h$(2)="{CBM-P}":h$(3)="{CBM-O}":h$(4)="{CBM-I}":h$(5)="{rvon}{CBM-U}{rvof}":h$(6)="{rvon}{CBM-Y}{rvof}"
 9010 h$(7)="{rvon}{CBM-T}{rvof}":h$(8)="{rvon} {rvof}"
 9020 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1to40
 9030 n=int(rnd(1)*7)+1:ifabs(n-h)>2then9030
 9040 h=n:printh$(h);:nexti:return
 10000 print"{home}{down}{down}{down}"spc(19);
 10010 fori=1to10:forj=0to5:printa$(j)+a$;:next:print"{up}{up}{up}{up}{up} ";:next
 10020 ifv0<-150then20000
 10030 print:print"{down}{down}{down}{down}{down}{down}gratulation, die landung war einwandfrei"
 10040 print:goto30000
 20000 print"   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{left}{left}   {rght}{rght}{rght}{rvon}{CBM-*}{rght}{CBM-D} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{CBM-*}{rght}{rght}{rght}{CBM-Z} {rvon} {rvof}{SHIFT-POUND}P"
 20010 print"{down}"
 20020 print"das war eine bruchlandung !":print
 25000 gosub40000
 30000 print"wollen sie noch mal spielen ?";
 30001 print"{rvon} {rvof}{left}";:fori=1to200:next:print" {left}";:fori=1to200:next:getg$:ifg$=""then30001
 30010 ifg$="j"then7
 30020 ifg$<>"n" then 30030
 30021 print"{clr}":forzi=1to3000:next:end
 30030 print:print"{up}(j/n) ";:goto 30000
 40000 getaa$:ifaa$<>"" then 40000
 40010 return
 60000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 60010 a=ti
 60020 print"die mondlandung beginnt in"5-int((ti-a)/60)"{left} sekunden {up}"
 60030 if(ti-a)<300then60020
 60040 print"                                      ":r=0
 60050 return
 65220 rudolf schineis spitzwegstr.42          858 bayreuth  tel 0921/68877
    0 clr:poke59468,12
    1 rem morse! copyright (c) 1979 norman parron
    2 rem box 2946
    3 rem apo 09194, new york
    4 :
    5 rem cursor #14, oct 79
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of nov 18 79
   90 pg$="morse!":nm$="14":gosub62000
  100 dima$(63),b$(39),c$(39),d$(39),e$(39),f$(39),g$(39)
  110 fori=0to58:reada$(i):nexti
  120 forg=0to39:readb$(g),c$(g),d$(g),e$(g),f$(g),g$(g):nextg
  130 data,,,,,,,,,,,,331133,31113
  140 data131313,331131,33333,13333,11333,11133
  150 data11113,11111,31111,33111,33311,33331
  160 data,,,,,113311,
  170 data13,3111,3131,311,1,1131,331,1111,11,1333
  180 data313,1311,33,31,333,1331,3313,131
  190 data111,3,113,1113,133,3113,3133,3311
  210 di=50:da=3*di
  220 print"{clr}{down}{down}{down}how many words/min? ";:gosub60000:k=val(in$):ifin$=""thenk=9
  230 ifk<1ork>50then220
  240 ifk<5thenk=5
  250 di=di/k:da=da/k
  260 print"{clr}"
  265 print"{home}{down}{down}{down}what do you want to do?{down}
  270 printtab(2)"1: pet transmits code for the"
  280 printtab(5)"letters you type in{down}
  290 printtab(2)"2: test{down}
  300 printtab(2)"3: lessons{down}
  305 printtab(2)"4: code groups{down}
  310 printtab(2)"5: quit{down}"
  320 print"  ";:gosub1490:i=val(k$)
  330 onigoto350,420,810,1700,1570
  340 goto265
  350 remyou type pet xmits
  380 print"{clr}
  390 getrj$:ifrj$<>""then390
  400 print"what letters or numbers? ";:gosub60000:x$=in$:ifx$=""goto260
  410 gosub1300:goto380
  420 remexercises
  430 print"{clr}{down}{down}{down}hit any key to start
  440 getrj$:ifrj$=""then440
  450 print"{clr}"
  460 remchoose char
  470 nr=0:nw=0:nt=0:c=120
  480 print"{clr}{down}{down}what is...";:gosub1460
  490 x=int(rnd(1)*63)+1:ifa$(x)=""then480
  510 x$=chr$(x+32)
  520 getrj$:ifrj$<>""then520
  530 gosub1300:gosub1490
  540 ifk$=cr$then720
  550 nt=nt+1:ifk$=x$thennr=nr+1:goto690
  560 nw=nw+1
  570 print"{clr}{down}{down}sorry! i sent '";x$;"'"
  590 print:printx$" is ...."
  600 gosub1460
  610 gosub1300
  620 print:printk$" is ....";
  630 gosub1460
  640 x=asc(k$)-32:ifx>=0andx<40thenifa$(x)<>""thenx$=k$:gosub1300:goto660
  650 print"?"
  660 gosub1460
  680 goto480
  690 print"{clr}{down}{down}{rvon}correct{rvof}
  700 gosub1460
  710 goto660
  720 print"{clr}{down}{down}total number",nt
  730 ifnt=0then770
  740 print"{down}number right",nr
  750 print"{down}number wrong",nw
  760 print"{down}percent right{rght}{rght}{rght}{rght}{rght}",int(100*nr/nt);"%"
  770 print"{down}{down}{down}want to continue the exercises";:gosub1490:print"{clr}"
  790 ifk$="y"thengosub1460:goto480
  800 goto260
  810 remlessons
  820 dl=120:gosub1600
  840 g=int(40*rnd(1))
  850 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}
  860 x$=b$(g)
  870 gosub1300:ifz$<>""then260
  880 printtab(18)c$(g):printtab(18)d$(g):printtab(18)e$(g)
  890 printtab(18)f$(g):printtab(18)g$(g)
  900 dl=da:gosub1600:ifz$<>""then260
  910 gosub1300:ifz$<>""then260
  920 dl=90:gosub1600:ifz$=""then840
  930 goto260
  940 dataa,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon}    ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} "
  950 datab,"{rvon}   {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon}   {rvof}{CBM-K}","{rvon} {rvof}  {rvon} ","{rvon}   {rvof}{SHIFT-POUND}"
  960 datac,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon}{CBM-I}","{rvon} ","{rvon} {rvof}  {CBM-I}","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
  970 datad,"{rvon}   {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon}   {rvof}{SHIFT-POUND}"
  980 datae,"{rvon}    ","{rvon} ","{rvon}   ","{rvon} ","{rvon}    "
  990 dataf,"{rvon}    ","{rvon} ","{rvon}   ","{rvon} ","{rvon} "
 1000 datag,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon}{CBM-I}","{rvon} {rvof} {rvon}{CBM-K} ","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1010 datah,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon}    ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} "
 1020 datai,"{rvon}    "," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}","{rvon}    "
 1030 dataj,"   {rvon} ","   {rvon} ","   {rvon} ","{CBM-I}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1040 datak,"{rvon} {rvof} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}","{rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND}","{rvon}  ","{rvon} {rvof}{CBM-*}{rvon}{CBM-*}","{rvon} {rvof} {CBM-*}{rvon}{CBM-*}"
 1050 datal,"{rvon} ","{rvon} ","{rvon} ","{rvon} ","{rvon}    "
 1060 data m,"{rvon}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}","{rvon} {CBM-*}{SHIFT-POUND} ","{rvon} {rvof}{CBM-*}{SHIFT-POUND}{rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} "
 1070 data n,"{rvon}{CBM-*}{rvof}  {rvon} ","{rvon} {CBM-*}{rvof} {rvon} ","{rvon} {rvof}{CBM-*}{rvon}{CBM-*} ","{rvon} {rvof} {CBM-*}{rvon} ","{rvon} {rvof}  {CBM-*}"
 1080 datao,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1090 datap,"{rvon}   {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon}   {rvof}{SHIFT-POUND}","{rvon} ","{rvon} "
 1100 dataq,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}{CBM-*}{rvon}{CBM-*} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1110 datar,"{rvon}   {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon}   {rvof}{SHIFT-POUND}","{rvon} {rvof}{CBM-*}{rvon}{CBM-*}","{rvon} {rvof} {CBM-*}{rvon}{CBM-*}"
 1120 datas,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon}{CBM-I}","{CBM-*}{rvon}  {CBM-*}","{CBM-I}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1130 datat,"{rvon}    "," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"
 1140 datau,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1150 datav,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}{CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {CBM-*}{SHIFT-POUND}"
 1160 dataw,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon} {SHIFT-POUND}{CBM-*} ","{rvon} {rvof}{SHIFT-POUND}{CBM-*}{rvon} ","{SHIFT-POUND}  {CBM-*}"
 1170 datax,"{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}{CBM-*}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {rvon}  ","{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-*}{rvon}{CBM-*}","{rvon} {rvof}  {rvon} "
 1180 datay,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"
 1190 dataz,"{rvon}    ","  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}","{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}","{rvon}    "
 1200 data1," {rvon} {rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}"," {rvon}{CBM-K}{rvof}{CBM-K}","{rvon}{CBM-K}  {rvof}{CBM-K}"
 1210 data2,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon}{CBM-I}{rvof}  {rvon} ","  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}","{rvon}{SHIFT-POUND}   "
 1220 data3,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon}{CBM-I}{rvof}  {rvon} "," {rvon}{CBM-K} {rvof}{CBM-K}","{CBM-I}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1230 data4,"{rvon} {rvof}  {rvon} ","{rvon} {rvof}  {rvon} ","{rvon}    ","   {rvon} ","   {rvon} "
 1240 data5,"{rvon}    ","{rvon} ","{rvon}   {CBM-*}","{CBM-I}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1250 data6,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon}{CBM-I}","{rvon}   {CBM-*}","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1260 data7,"{rvon}    ","  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"," {rvon} "," {rvon} "
 1270 data8,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon} ","{rvon}{CBM-K}  {rvof}{CBM-K}","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1280 data9,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof}  {rvon} ","{CBM-*}{rvon}   ","{CBM-I}  {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1290 data0,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon} {rvof} {rvon}{SHIFT-POUND} ","{rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} ","{rvon} {rvof}{SHIFT-POUND} {rvon} ","{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 1291 data ?,"{rvon}{SHIFT-POUND}  {CBM-*}","{rvon}{CBM-I}{rvof}  {rvon} "," {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}"," {rvon}{CBM-I}"," {rvon} "
 1292 data .,"","","",""," {rvon}{CBM-K}{rvof}{CBM-K}"
 1293 data ",","","",""," {rvon}  "," {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}"
 1294 data -,"","","{rvon}    ","",""
 1300 remxmit routine
 1310 poke59467,16:poke59466,51:poke59464,0
 1320 fori=1tolen(x$)
 1330 k=asc(mid$(x$,i,1))-32
 1340 ifa$(k)=""goto1420
 1360 forl=1tolen(a$(k))
 1370 poke59464,234
 1380 dl=di*val(mid$(a$(k),l,1)):gosub1600:ifz$=cr$then1435
 1390 poke59464,0
 1400 dl=di:gosub1600:ifz$=cr$then1435
 1410 nextl
 1420 dl=da:gosub1600:ifz$=cr$then1435
 1430 nexti
 1435 poke59464,0:poke59466,0:poke59467,0
 1436 ifz$<>""thenprint"{rvon}";asc(z$)
 1440 return
 1460 tm=ti+c
 1470 ifti<tmthen1470
 1480 return
 1490 remget subr
 1500 tm=0:zz=1
 1510 getk$:ifk$<>""then1540
 1520 ifti>tmthenprintmid$("? ",zz,1);"{left}";:zz=3-zz:tm=ti+20
 1530 goto1510
 1540 z=asc(k$)and127:ifz=13thenreturn
 1550 ifz>31andz<96thenifa$(z-32)<>""thenprintk$:return
 1560 goto1520
 1570 clr:end
 1600 tm=ti+dl
 1610 getz$:ifz$=""andti<tmthen1610
 1620 return
 1700 rem code groups
 1705 dl=120:gosub1600
 1710 print"{clr}{down}{down}what is...";
 1715 dl=30:gosub1600
 1720 x$="":fori=1to5
 1730 k=int(rnd(1)*40)+1:x$=x$+b$(k):nexti
 1750 gosub1300
 1760 print"? ";:gosub60000
 1765 ifin$=""then260
 1770 ifin$=x$thenprint"{down}{rvon}correct":goto1700
 1780 print"{down}no, it was ";x$;" ...":print"{down}   ";
 1785 dl=30:gosub1600
 1790 xx$=x$:forz=1tolen(xx$)
 1800 x$=mid$(xx$,z,1):printx$;" ";:gosub1300
 1810 nextz
 1820 goto1700
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by norman parron{down}
 62020 gosub60500
 62030 print"{down}learn morse code.
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin.
 62090 gett$:ift$=""then62090
 62100 print"{clr}":clr:cr$=chr$(13):goto100
  100 print"{clr}{down}{rvon}morse{rvof}        jim butterfield"
  110 dimm(255):j=rnd(0)
  120 data 63,62,60,56,48,32,33,35,39,47,0,0,0
  130 data 0,0,0,0,6,17,21,9,2,20,11,16,4
  140 data 30,13,18,7,5,15,22,27,10,8,3,12,24
  150 data 14,25,29,19
  160 m(32)=1:forj=48to90:readm(j):nextj
  170 m1=54276
  180 s=3      :rem speed
  190 input"instructions";z$
  200 ifasc(z$)=78goto280
  210 print"{down}this program will either--"
  220 print"   send morse from keyboard input; or,"
  230 print"   test you on morse recognition."
  240 print"{down}remember to turn your 64 volume up"
  260 print"{down}for the test, key in the character"
  270 print" you believe that computer sent..."
  275 print"{down}press <return> to quit ..."
  280 input "{down}test or send";z$
  281 poke 54296,15:poke 54278,240
  282 poke 54273,50   :rem pitch
  290 e=(asc(z$)=84):if e goto410
  300 ti$="000000"
  310 get z$:if z$=""goto 330
  320 a$=a$+z$:goto 310
  330 if a$="" goto 310
  340 z$=left$(a$,1)
  350 if a$=z$ then a$=""
  360 if a$<>"" then a$=mid$(a$,2)
  370 if z$=chr$(13) goto 500
  380 if e then ifasc(z$)<>m6 then print"{rvon}";:z$=chr$(m6)
  390 m=m(asc(z$)):if m=0 goto310
  400 print z$;"{rvof}";:if m=1 goto440
  410 if e then m6=int(rnd(1)*43+48):m7=m(m6):m=m7:if m7<2 goto410
  420 t=ti+((m and1)*2+1)*s:poke m1,17
  430 if t>ti goto430
  440 t=ti+s:poke m1,16
  450 if t>ti goto450
  460 m=int(m/2):if m>1 goto420
  470 t=t+2*s
  480 if t>ti goto480
  490 goto300
  500 poke 54296,0:poke 54278,240
    4 dima(5),n$(5)
    6 s$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                    {up}{sret}
    8 m$="janfebmaraprmayjunjulaugsepoctnovdec"
   10 print"{clr}{down}{down}  mortgage{down}  (usa)":print"{down}jim butterfield";s$;"any key
   12 getx$:ifx$=""goto12:data principal,rate(%),"years ",payment,balance
   14 forj=1to5:readn$(j):nextj
   16 n1=.12:print"{clr}{down}{$a0}"s$;"enter values":forj=1to4:gosub176:nextj
   18 gosub94:j=5:gosub164:ifj1=0thenj1=4:j=j1:a(j)=-1:gosub164
   20 gosub110
   22 j1=0:prints$;"ok?";
   24 getx$:ifx$=""goto24
   26 x=asc(x$):gosub190:ifx=77thengosub86
   28 ifx<>89andx<>78andx<>19goto22
   30 ifx$="y"goto36
   32 gosub94:ifj1=0goto32
   34 goto20
   36 forj=1to5:ifa(j)<0goto22
   38 a(j)=int(a(j)+.9):nextj
   40 print"{clr}{down}first payment:"
   42 input"{home}{down}{down}{down}month   {left}{left}{left}";x$:x$=left$(x$+"  ",3)
   44 forj=1to12:ifx$=mid$(m$,3*j-2,3)goto48
   46 nextj:goto42
   48 i9=j:input"year";y
   50 d=i9:p=a(1):i1=(a(2)/12e4+1):i=i1-1:n%=a(3)*n1+.5:m=a(4):b=a(5)
   52 ifn%=0thenend
   54 print"{clr}{down}{$a0}{down}amortization table":i0=0:i9=0
   56 printy;a(2)/100;"{left}%";:a=p:gosub180:printa$
   58 print" payment:";:a=m:gosub180:printa$:print"   interest  balance
   60 printmid$(m$,d*3-2,3);"{left}{left}";
   62 a=int(p*i+.5):i0=i0+a:gosub84:a=m-a:ifa>pthena=p
   64 i9=i9+a:p=p-a:a=p:gosub84:print
   66 n%=n%-1:d=d+1:ifd<13andn%>0goto60
   68 y=y+1:d=1
   70 print" interest:";:a=i0:gosub180:printa$
   72 print" equity  :";:a=i9:gosub180:printa$
   74 prints$"any key / p to print
   76 getx$:ifx$=""goto76
   78 x=asc(x$):gosub190
   80 goto52
   82 end
   84 gosub180:printright$("{rght}{rght}{rght}{rght}{rght}{rght}"+a$,10);:return
   86 j=3:ifn$(j)="months"goto90
   88 n$(j)="months":n1=.01:a(j)=a(j)*12:goto92
   90 n$(j)="years ":n1=.12:a(j)=a(j)/12
   92 goto164
   94 j=1
   96 ifj>3thenj2=-1
   98 ifj2thenprints$;"press ? to calculate"
  100 a%=-1:gosub164:gosub144:ifx=145thenj=j-1:goto100
  102 if(j=2orj=3)anda(j)=0goto100
  104 ifj2andj1>0goto108
  106 j=j+1:ifj<6goto96
  108 return
  110 p=a(1):i1=(a(2)/2e4+1)^(1/6):i=i1-1:n=a(3)*n1:m=a(4):b=a(5)
  112 forj=2to3:ifa(j)<=0andj<>j1thenj1=j:goto164
  114 nextj:j=j1:i%=-1:onjgoto116,118,136,140,142
  116 a(1)=(b+m*(i1^n-1)/i)/i1^n:goto164
  118 i0=0:i1=exp(75/n):i=i1-1:i9=i*100:ifi9>100theni9=100:i=1:i1=2
  120 p0=b+m*n-p:p9=(b+m*(i1^n-1)/i)/i1^n-p:ifp0<0orp9>0thena(2)=-1:goto164
  122 i%=not(i%):ifi%theni2=(i0+i9)/2:goto126
  124 i2=i0-p0*(i9-i0)/(p9-p0)
  126 i1=(1+i2/200)^(1/6):i=i1-1
  128 p2=(b+m*(i1^n-1)/i)/i1^n-p:ifp2>0theni0=i2:p0=p2:goto132
  130 i9=i2:p9=p2
  132 ifabs(i9-i0)>1e-3goto122
  134 a(2)=i2*100:goto164
  136 if(m-i*b)<0or(m-i*p)<0thena(4)=-1:goto164
  138 a(3)=log((m-i*b)/(m-i*p))/log(i1)/n1:goto164
  140 a(4)=i*(p*i1^n-b)/(i1^n-1):goto164
  142 a(5)=p*i1^n-m*(i1^n-1)/i:goto164
  144 print"{CBM-+}{left}";:getx$:ifx$=""goto144
  146 x=asc(x$):ifx=13goto160
  148 ifx=17goto162
  150 ifx=145andj>1goto162
  152 x%=len(a$):ifx=20andx%>0thena$=left$(a$,x%-1):printx$;
  154 if(xor16)=63andj1=0thena(j)=-1:j1=j:goto162
  156 ifx>45andx<58andx<>47andx%<10thena$=a$+x$:printx$;
  158 goto144
  160 a(j)=val(a$)*100
  162 a%=0
  164 gosub176:print"           ":gosub176
  166 a=int(a(j)+.9):a(j)=a:gosub180
  168 ifasc(a$)=32thena$=mid$(a$,2)
  170 ifa<0thena$="?"
  172 ifa=0anda%thena$=""
  174 printa$;:return
  176 printleft$(s$,j*2);n$(j);tab(10);
  178 return
  180 a$=str$(a)
  182 x%=len(a$)
  184 ifx%=2thena$=left$(a$,1)+"0"+right$(a$,1):x%=3
  186 a$=left$(a$,x%-2)+"."+right$(a$,2)
  188 return
  190 ifx<>80thenreturn
  192 prints$:j1=42:ifpeek(43)=1thenj1=45
  194 poke2,j1:open4,4:sys(peek(j1)+peek(j1+1)*256-83):close4:return
    0 goto100
    1 rem mount st helens   (volcano)
    2 :
    3 rem victor t albino    1980
    4 :
    5 rem survival simulation
    6 :
    7 rem pet 16k  (2.0 - 4.0)
    8 :
    9 rem modified g fisher, b dawson, jl
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca  94063      (415) 363-5472{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use only and    {SHIFT--}
   24 rem"{SHIFT--} are not to be sold.         {SHIFT--}
   25 rem"{SHIFT--} copyright 1983    cue inc.  {SHIFT--}
   26 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   30 rem"{CBM-I}{CBM-I}{CBM-I}input routine
   31 deffnz(z)=peek(196)+256*peek(197)+peek(198):poke158,0:zz$="":poke167,0
   32 getz$:ifz$=""orz$="{clr}"orz$="{home}"orz$="{down}"orz$="{up}"orz$="{rght}"orz$="{left}"orz$="{inst}"then32
   33 ifz$=chr$(13)thenpoke167,1:pokefnz(z),32:z$=zz$:print:goto37
   34 if(zz$=""andz$=chr$(20))then31
   35 ifzcandlen(zz$)>zc-1thengosub38:goto31
   36 zz$=zz$+z$:zz$=left$(zz$,len(zz$)+(chr$(20)=z$)*2):printz$;:goto32
   37 zc=0:return
   38 forzx=1tozc:printchr$(20);:next:return
   40 rem"{CBM-I}{CBM-I}{CBM-I}get routine
   41 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$=""then41
   42 ifzc$<>""thenforzx=1tolen(zc$):zf=zf+zx*-(z$=mid$(zc$,zx,1)):next:ifzf=0then41
   43 zc$="":zf=0:return
   50 rem"{CBM-I}{CBM-I}{CBM-I}continue routine
   51 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      Press {rvon}RETURN{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {down}";
   52 print"to continue. ";
   53 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$<>chr$(13)then53
   54 return
  100 rem  poke144,49-39*(peek(50003)=160)
  110 zn$="123456789":zw$="{down}Pick a number{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}Q = Quit{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  120 f$="{clr}{down}{down}{down}{down}{down}{down}{down}{down}":g$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto220
  130 fori=0to10:getz$:nexti
  140 printg$tab(6)"Press {rvon}RETURN{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {down}to continue. ";:zc$=chr$(13)
  150 gosub40:return
  160 fori=1to300 :nexti:return
  170 zc$="q":printzw$;:forzz=1ton:print"{rvon}"mid$(zn$,zz,1)"{rvof}{up}{left}{CBM-@}{down} ";
  180 zc$=zc$+mid$(zn$,zz,1):next:gosub40
  190 ifz$="q"then1860
  200 a=val(z$)
  210 printa;:gosub160:return
  220 print"{clr}{down}";:poke59468,14:print"{clr}{down}           {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  230 print"           {rvon} MOUNT{$a0}ST. HELENS "
  240 printtab(8)"{down}{down}... T h e  S c e n e ..."
  250 f1$="{clr}{down}{down}{down}{down}{rght}{rght}{rght}"
  260 s$="{down}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{up}"
  270 q$="{clr}{down}What should you do. . ."
  280 print"{down}{down}{rght}{rght}{rght}You are camped on the west side of
  290 print"{down}Mt. St. Helens.  You hiked up from the
  300 print"{down}end of a logging road where you left
  310 print"{down}your car last night. There is an eerie
  320 print"{down}quiet.  No birds are singing.":gosub130
  330 print"{clr}{down}  Suddenly you are shaken by an{down}{down}"
  340 printtab(9)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  350 t2$="{rvon}e a r t h q u a k e  {up}"
  360 t1$="{rvon}E{$a0}A{$a0}R{$a0}T{$a0}H{$a0}Q{$a0}U{$a0}A{$a0}K{$a0}E !{up}"
  370 printtab(9)t1$:gosub160:getz$:ifz$<>""then470
  380 fori=1to800:nexti
  390 fori=1to15:printtab(9)t2$:forj=1to30:next:printtab(9)t1$:forj=1to40:nextj,i
  400 fori=1to800:nexti
  410 fori=1to15:printtab(9)t2$:forj=1to30:next:printtab(9)t1$:forj=1to40:nextj,i
  420 print"{down}{down}{down}With a giant ROAR the top half of"
  430 print"{down}Mount St. Helens explodes thousands of"
  440 print"{down}feet into the air.  The dense cloud of"
  450 print"{down}black smoke expands and begins to move"
  460 print"{down}towards you.":gosub50
  470 print"{clr}"q$:prints$:rem** #1
  480 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  Use your camping shovel and dig in?"
  490 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  Take photos--they'll be worth lots?"
  500 print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  Start down the mountain to your car?"
  510 print"{down}{rvon}4{rvof}{up}{left}{CBM-@}{down}  Get to high ground?"
  520 print"{down}{rvon}5{rvof}{up}{left}{CBM-@}{down}  Try to find shelter?":prints$
  530 n=5:gosub170:onagoto540,560,600,630,650
  540 printf$"You just dug your own grave.  Hot ash"
  550 print"{down}will bury you..":goto1790
  560 printf$"   {rvon}Congratulations!{rvof}  you have taken
  570 print"{down}some really spectacular photos which
  580 print"{down}will be printed in hundreds of news-
  590 print"{down}papers--posthumously.":goto1790
  600 printf$"{down}Now you are using your head--":print"{down}{rght}{rght}{rght}{rght}{rght}{rght}";
  610 print"{rvon}get out of there fast!{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  620 goto 680
  630 printf$"You are suffocated by hot gas from
  640 print"{down}the side of the mountain.":goto1790
  650 printf$"You are too close to the hot ash for any"
  660 print"shelter to be effective.  Those who"
  670 print"{down}tried this were buried alive.":goto1790
  680 print"{down}{down}{down}Many trees have fallen across the trail;"
  690 print"you remember a short-cut.":gosub130:printq$:prints$
  700 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  try the trail?"
  710 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  take the short cut?":prints$:n=2:gosub170:on a goto810,720
  720 printf$"In an emergency, we often forget even"
  730 print"{down}those things we know well, such as our"
  740 print"{down}own phone number.
  750 print"{down}In your excitement, you quickly find
  760 print"{down}Yourself lost.  your time runs out and
  770 print"{down}you are overrun by a ";
  780 print"{rvon}pyroclastic flow{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}.."
  790 for p=1 to1200:nextp
  800 gosub160:fori=33647to33088step-1:pokei,174:nexti:goto1790
  810 printf1$"{rvon}A better choice!{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}  With ";
  820 print"difficulty"
  830 print"{down}you make it back to your car.  Several"
  840 print"{down}large rocks block the road.  You know"
  850 print"{down}rescuers will look at the end of this
  860 print"{down}road.":gosub130:printf$"{up}{up}{up}"q$:prints$
  870 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  get in the car for protection and       wait for rescue?"
  880 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  forget the car and go on foot?"
  890 print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  build a fire to attract rescuers?":n=4
  900 print"{down}{rvon}4{rvof}{up}{left}{CBM-@}{down}{$a0} try to move the rocks?":prints$:gosub170
  910 ona goto920,940,970,990
  920 printf$"Some people did that: their cars became"
  930 print"{down}their tombs.":goto1790
  940 printf$"It's hard to outrun a volcano:  you're"
  950 print"{down}overtaken by a mudslike."
  960 gosub160:fori=33647to33088step-1:pokei,102:nexti:goto1790
  970 printf$"You won't have to build a fire here; it"
  980 print"{down}will be plenty hot in a few minutes.":goto1790
  990 printf1$"{down}{rvon}Do it!{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} You move the rocks, and rush "
 1000 print"{down}down the road.  A mudflow knocks out a"
 1010 print"{down}bridge in front of you.  You get out of"
 1020 print"{down}the car and begin to run.  The {rvon}ash{rvof}{up}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{down}"
 1030 print"{down}{rvon}cloud{rvof}{up}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} is coming.":gosub130
 1040 print"{clr}{down}You can't see your hand in front of your"
 1050 print"face.  Your lungs burn and your eyes"
 1060 print"{down}sting.  You stumble and fall in the"
 1070 print"{down}darkness.":gosub130:printf1$q$:prints$
 1080 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  lie with your face on the ground?"
 1090 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  find some shelter?"
 1100 print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  rub the ash from your eyes?"
 1110 print"{down}{rvon}4{rvof}{up}{left}{CBM-@}{down}  keep moving in the dark?":n=4:prints$:gosub170
 1120 on agoto 1130,1130,1150,1180
 1130 print"{clr}{down}I hope you like the spot you find,
 1140 print"{down}because you'll be there forever!":goto1790
 1150 print"{clr}{down}Volcanic ash is {rvon}very{rvof}{up}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} abrasive.  Your"
 1160 print"{down}eyes swell, you wander around and are "
 1170 print"{down}overcome. ":goto1790
 1180 printf1$"Your only chance!  To stay where you"
 1190 print"{down}are means certain death!  After awhile
 1200 print"{down}your feet feel wet; you think you are
 1210 print"{down}walking in a creek.":gosub130:printf$;q$:prints$
 1220 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  get out of the water and move on?"
 1230 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  wash your eyes with the water?"
 1240 print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  walk in the creek?":prints$:n=3:gosub170:
 1250 onagoto1260,1290,1320
 1260 printf$"Since you have no way to know where you
 1270 print"{down}are going, you wander in a circle "
 1280 print"{down}until exhaustion takes over.":goto1790
 1290 printf$"The ashfall is too heavy; it mixes"
 1300 print"{down}with the water to form a gooey paste."
 1310 print"{down}You destroy your eyes.":goto1790
 1320 printf1$"Since you have no idea which way"
 1330 print"{down}you're going, this is the best choice.
 1340 print"{down}Following the water downhill, you
 1350 print"{down}suddenly plunge into hot water up to
 1360 print"{down}your neck.  You reach out in the dark
 1370 print"{down}and grab a tree which pulls you along"
 1380 print"{down}downstream.":gosub130:printq$:prints$
 1390 print"{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  let go of the log and swim for the      bank?"
 1400 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  swim underwater?":print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  hang on?":n=3:prints$:
 1410 gosub170:onagoto1420,1420,1440
 1420 printf$"The river is filled with debris. You    {down}are crushed in a log jam.
 1430 goto1790
 1440 printf1$"You finally reach shore and climb"
 1450 print"{down}out. You see a dim glow in the distance"
 1460 print"{down}which you realize is the sun.  The ash
 1470 print"{down}is getting thinner.  Ahead you see a
 1480 print"{down}ridge looming above a plateau covered
 1490 print"{down}with ash and dense smoke.":gosub130
 1500 printf1$q$:prints$:print"{down}{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  tend to your wounds?"
 1510 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  climb the ridge?":print"{down}{rvon}3{rvof}{up}{left}{CBM-@}{down}  start down to the ";
 1520 print"plateau?"
 1530 print"{down}{rvon}4{rvof}{up}{left}{CBM-@}{down}  stop and rest?"
 1540 n=4:prints$:gosub170:onagoto1550,1590,1570,1550
 1550 printf$"You have wasted valuable time.  You fall"
 1560 print"asleep and never wake up.":goto1790
 1570 printf$"Why on earth would you want to go down"
 1580 print"{down}there?  Heat and gas get you!":goto1790
 1590 printf1$"Below you everything is a nightmare":printq$:prints$
 1600 print"{down}{down}{rvon}1{rvof}{up}{left}{CBM-@}{down}  continue down the mountain?"
 1610 print"{down}{rvon}2{rvof}{up}{left}{CBM-@}{down}  try to attract rescuers?"
 1620 prints$:n=2:gosub170:onagoto1630,1650
 1630 printf$"There's no place to go but back into the"
 1640 print"darkness; you die from smoke inhalation.":goto1790
 1650 printf1$"You wisely decide to build a signal"
 1660 print"{down}of rocks and your torn shirt which can"
 1670 print"{down}be seen from the air.":gosub130:print"{clr}":poke59468,12
 1680 s=33748:pokes,93:pokes-40,22
 1690 s$="  {SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}  VCC{CBM-+}{CBM-+}P {down}{left}{left}{left}{left}{left}{left}{left}   {CBM-E}{CBM-E}{CBM-T} ":g$="{home}":f1$="       "
 1700 forj=0to15:printg$;tab(16)f1$:printtab(16)s$:g$=g$+"{down}":gosub160:nextj
 1710 s=33468:pokes,92:pokes+40,102:fork=1to4:forj=1tok:pokes+40*j,93:nextj
 1720 pokes+40*j,102:gosub160:nextk:gosub160
 1730 poke33748,32:poke33708,32:fork=4to1step-1:forj=1tok:pokes+40*j,93
 1740 nextj:pokes+40*(j-1),102:pokes+40*(j),32:gosub160:nextk:pokes,102:pokes+40,113
 1750 gosub160:forj=0to8:printg$tab(16)s$:printtab(16)f1$:g$=left$(g$,len(g$)-1)
 1760 gosub160:nextj:forj=0to16:printg$tab(j+16)s$:printtab(j+16)f1$
 1770 fori=0to50*(11-j):nexti,j:printg$tab(32)f1$:printtab(32)f1$:printtab(32)f1$
 1780 print"{clr}":poke59468,14:printtab(10)"{down}{rvon}You were rescued!":gosub50:goto1820
 1790 gosub50
 1800 printf$ "   You have {rvon}perished{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}!"
 1810 printtab(12)"{down}{down}{down}q{CBM-POUND}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM--}{down}{down}{down}{down}"
 1820 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
 1825 print"Want to try again?{up}{left}{left}{left}{left}{left}{left}{left}       {down}  (y/n)        {left}{left}{left}{left}{left}{left}";
 1830 :zc$="yn":gosub40
 1840 ifz$="y"thenrun100
 1850 ifz$="n"thenprint"{clr}";:poke59468,12
 1860 print"{clr}";:poke59468,12:poke144,46-39*(peek(50003)=160):end
   10 rem"wait for maze"
   20 rem"then press 1-9 for speed"
   30 rem"use4,8,6,2buttons for direction"
   40 rem"try to hit the {CBM-+} "
  100 print"width,length"
  101 inputh,v
  102 d=h*v
  103 ifh<>1 and v<>1 then110
  104 print"meaningless dimensions-try again.":goto 100
  110 dimw(h,v),v(h,v)
  120 print"{clr}"
  130 print
  160 q=0:z=0:x=int(rnd(1)*h+1)
  165 for i=1 to h
  170 if i=xthen 173
  171 print"Z{SHIFT-*}{SHIFT-*}";:goto 180
  173 print"Z  ";
  180 nexti
  190 print"Z"
  195 c=1:w(x,1)=c:c=c+1
  200 r=x:s=1:goto260
  210 if r<>h then 240
  215 if s<>v then 230
  220 r=1:s=1:goto 250
  230 r=1:s=s+1:goto 250
  240 r=r+1
  250 if w(r,s)=0 then 210
  260 if r-1=0 then 530
  265 if w(r-1,s)<>0 then 530
  270 if s-1=0 then 390
  280 if w(r,s-1)<>0 then 390
  290 if r=h then 330
  300 if w(r+1,s)<>0 then 330
  310 x=int(rnd(1)*3+1)
  320 on x goto790,820,860
  330 if s<>v then 340
  334 if z=1 then 370
  338 q=1:goto350
  340 if w(r,s+1)<>0 then 370
  350 x=int(rnd(1)*3+1)
  360 on x goto 790,820,910
  370 x=int(rnd(1)*2+1)
  380 on x goto 790,820
  390 if r=h then 470
  400 if w(r+1,s)<>0 then 470
  405 if s<>v then 420
  410 if z=1 then 450
  415 q=1:goto 430
  420 if w(r,s+1)<>0 then 450
  430 x=int(rnd(1)*3+1)
  440 on x goto 790,860,910
  450 x=int(rnd(1)*2+1)
  460 on x goto 790,860
  470 if s<>v then 490
  480 if z=1 then 520
  485 q=1:goto 500
  490 if w(r,s+1)<>0 then 520
  500 x=int(rnd(1)*2+1)
  510 on x goto 790,910
  520 goto 790
  530 if s-1=0 then 670
  540 if w(r,s-1)<>0 then 670
  545 if r=h then 610
  547 if w(r+1,s)<>0 then 610
  550 if s<>v then 560
  552 if z=1 then 590
  554 q=1:goto 570
  560 if w(r,s+1)<>0 then 590
  570 x=int(rnd(1)*3+1)
  580 on x goto 820,860,910
  590 x=int(rnd(1)*2+1)
  600 on x goto 820,860
  610 if s<>v then 630
  620 if z=1 then 660
  625 q=1:goto 640
  630 if w(r,s+1)<>0 then 660
  640 x=int(rnd(1)*2+1)
  650 on x goto 820,910
  660 goto 820
  670 if r=h then 740
  680 if w(r+1,s)<>0 then 740
  685 if s<>v then 700
  690 if z=1 then 730
  695 q=1:goto 830
  700 if w(r,s+1)<>0 then 730
  710 x=int(rnd(1)*2+1)
  720 on x goto 860,910
  730 goto 860
  740 if s<>v then 760
  750 if z=1 then 780
  755 q=1:goto770
  760 if w(r,s+1)<>0 then 780
  770 goto 910
  780 goto 1000
  790 w(r-1,s)=c
  800 c=c+1:v(r-1,s)=2:r=r-1
  810 if c=h*v+1 then 1010
  815 q=0:goto 260
  820 w(r,s-1)=c
  830 c=c+1
  840 v(r,s-1)=1:s=s-1:if c=h*v+1 then 1010
  850 q=0:goto 260
  860 w(r+1,s)=c
  870 c=c+1:if v(r,s)=0 then 880
  875 v(r,s)=3:goto 890
  880 v(r,s)=2
  890 r=r+1
  900 if c=h*v+1 then 1010
  905 goto 530
  910 if q=1 then 960
  920 w(r,s+1)=c:c=c+1:if v(r,s)=0 then 940
  930 v(r,s)=3:goto 950
  940 v(r,s)=1
  950 s=s+1:if c=h*v+1 then 1010
  955 goto 260
  960 z=1
  970 if v(r,s)=0 then 980
  975 v(r,s)=3:q=0:goto 1000
  980 v(r,s)=1:q=0:r=1:s=1:goto 250
 1000 goto 210
 1010 for j=1 to v
 1011 print"{SHIFT--}";
 1012 for i=1to h
 1013 if v(i,j)<2 then 1030
 1020 print"   ";
 1021 goto1040
 1030 print"  {SHIFT--}";
 1040 next i
 1041 print
 1043 for i=1 to h
 1045 if v(i,j)=0 then 1060
 1050 if v(i,j)=2 then 1060
 1051 print"Z  ";
 1052 goto 1070
 1060 print"ZCC";
 1070 next i
 1071 print"Z"
 1072 next j
 1075 poke33760,102
 1080 x=0:b=6:h=32768
 1090 geta$:a=val(a$):ifa=0then1090
 2000 print"{home}";:a1=ti
 2010 fork=1toint(500-(a*50)):next
 2020 getz$:z=val(z$):ifz=0thenz=b
 2030 x=1
 2040 ifz=6thenb=6:goto2060
 2050 goto3040
 2060 h=h+1
 2070 y=y+1
 2085 ifpeek(h)=32then x=0
 2086 ifpeek(h)=102 goto5005
 2090 y=y+1
 2095 print"{left}{$a0}Q";
 3000 y=y+1
 3010 if x=1then5000
 3020 y=y+1
 3030 goto2010
 3040 ifz=2thenb=2:goto3060
 3050 goto3105
 3060 h=h+40
 3070 ifpeek(h)=32thenx=0
 3075 ifpeek(h)=102goto5005
 3080 print"{left} {left}{down}Q";
 3090 ifx=1then5000
 3100 goto2010
 3105 ifz=4thenb=4:goto3115
 3110 goto3160
 3115 h=h-1
 3120 ifpeek(h)=32thenx=0
 3125 ifpeek(h)=102goto5005
 3130 print"{left}{$a0}{left}{left}Q";
 3140 ifx=1then5000
 3150 goto2010
 3160 ifz=8thenb=8:goto3180
 3170 goto2010
 3180 h=h-40
 3190 ifpeek(h)=32thenx=0
 3195 ifpeek(h)=102goto5005
 3200 print"{left}{$a0}{left}{up}Q";
 3210 ifx=1then5000
 3220 goto2010
 5000 print"you hit the wall!!!"
 5003 end
 5005 print"{home}";"seconds=";int((ti-a1)/.6)/100
 5010 s=(1000*d)/(int((ti-a1)/.6)/100)
 5100 print"your score is";s
 5105 end
   10 rem -- mugwump, creativecomputing
   15 print"{clr}"
   20 dim p(4,2)
   25 printtab(15);"mugwump":print:print
   30 print"do you want the rules";
   35 input r$
   40 if left$(r$,1)="y" then 60
   45 if left$(r$,1)="n" then 105
   50 print"please answer yes or no"
   55 goto 30
   60 print"the object of this game is to find 4    mugwumps hidden on a 10 by 10"
   61 print"grid. the mugwumps will be hiding at 4  of the gridpoints. you try to "
   62 print"find then by guessing a gridpoint.      homebase is point 0,0 in the "
   63 print"lower lefthand corner of the entire     grid. your guess should be a pair"
   64 print"of whole numbers, with each number be-  tween 1 and 10,inclusive. the num-
   65 print"bers should be separated by a comma.    the first number tells how far to"
   66 print"the right of homebase you think the     mugwumps are hiding, and the next"
   67 print"number tells how far above homebase     you think the mugwumps are."
   68 print"you get 10 tries. after each try i      will tell you how far you are from
   69 print"each mugwump":print:print
   70 print"are you ready";
   71 input g$
   72 if left$(g$,1)="y" then 105
   73 print"please answer yes when ready"
   74 goto 70
  105 gosub 1000
  110 t=0
  115 t=t+1
  120 print:print
  125 print"turn no."t"what is your guess";
  126 input m$,n$
  127 m=val(m$)
  128 n=val(n$)
  129 if m<=0 or m<=0 then 132
  130 if m>10 or n>10 then 132
  131 goto 135
  132 print"please enter whole numbers between 1    and 10, with a comma between"
  133 goto 125
  135 for i=1 to 4
  140 if p(i,1)=-1 then 180
  145 if p(i,1)<>m then 170
  150 if p(i,2)<>n then 170
  155 p(i,1)=-1
  160 print"you have found mugwump"i
  165 goto 180
  170 d=sqr((p(i,1)-m)^2+(p(i,2)-n)^2)
  175 print"you are"(int(d*10))/10"units";
  176 print" from --- mugwump"i
  180 next i
  185 for j=1 to 4
  190 if p(j,1)<>-1 then 210
  195 next j
  200 print:print"you got them all in"t"turns!"
  205 goto 240
  210 if t<10 then 115
  215 print:print"sorry, that's 10 tries. here is         where they're hiding --"
  220 for n=1 to 4
  225 if p(n,1)=-1 then 235
  230 print"mugwump"n"is at ("p(n,1)",";
  231 printp(n,2)")"
  235 next n
  240 print:print"that was fun!!"
  245 print"would you like to play again";
  246 input p$
  250 if left$(p$,1)="y" then 270
  255 if left$(p$,1)="n" then 1029
  260 print"please answer yes or no"
  265 goto 245
  270 print"okay, 4 more mugwumps are now in        hiding"
  275 goto 105
 1000 for j=1 to 2
 1005 for i=1 to 4
 1010 p(i,j)=int((10*rnd(1))+1)
 1015 next i
 1020 next j
 1025 return
 1029 print"thanks for playing mugwump with me      see you later......"
 1999 end
    0 clr:poke59468,12
    1 rem music! copyright (c) 1980 brian sawyer
    2 rem 1310 dover hill rd
    3 rem santa barbara ca 93103
    4 :
    5 rem cursor #20 may 80
    6 rem box 550, goleta, ca. 93017
    8 :
   10 rem as of 6 jun 80
   90 pg$="music!":nm$="20":gosub62000
  100 fd=1:rem i/o device
  101 ms=10:rem # of 38 note strings
  102 dimc$(ms),v$(20):forn=1to18:readv$(n):next
  104 dimn%(26),h%(26)
  110 b$="{rght}{rght}{CBM-@}{down}{left}{left}{CBM-M}N{down}{left}{left}NL{rght}{down}{left}{left}{left}{CBM-G}{CBM-G}{CBM-G}{down}{left}{left}{left}{CBM-T}O{down}{left}{left}{CBM-C}"
  112 cl$=":":ifpeek(50000)andpeek(59130)=158thencl$=";":rem check for b.kb.
  115 ml=76:nw=4:lw=32:pl=lw/nw:lw=lw+5
  120 d$="{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  122 l$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":pp=59464
  130 readc$,n,h:ifc$=""then170
  140 t=asc(c$)-64:ifc$=":"thent=0
  150 n%(t)=n:h%(t)=h:goto130
  170 poke59467,0:poke59466,0:pokepp,0
  180 print"{clr}{down}{down}{down}do you want to:{down}{down}
  185 print" {rvon}1{rvof} write new music
  190 print" {down}{rvon}2{rvof} play music
  195 print" {down}{rvon}3{rvof} load music from file
  200 print" {down}{rvon}4{rvof} save music to file
  205 print" {down}{rvon}5{rvof} quit
  206 print
  210 print"{down}enter number: ";:gosub60000:u=val(in$)
  215 ifu<1oru>5thenprint"{down}enter a number from 1 to 5.":goto210
  220 ifu=3oru=1theng=0:forn7=0toms:c$(n7)="":next
  230 onugosub260,530,1250,1350,1440
  250 goto170
  260 gosub720:gosub1240:s=5:d=0
  270 iflen(c$(g))>=mltheng=g+1:ifg>msthen480
  280 getx$:ifx$=""then280
  285 a$=x$:ifx$=cl$thena$="@"
  290 ifx$="@"thena$=cl$
  300 p=peek(qp):ifp=255thenp=256
  310 sh=0
  320 ifa$=chr$(13)thenreturn
  330 ifa$=chr$(20)thengosub810:goto270
  360 gosub910:ifn<0then270
  370 pokepp,n
  380 ti$="000000"
  390 ifpeek(qp)=pthen390
  400 t=ti:pokepp,0
  430 ift>111thent=111
  440 c$(g)=c$(g)+chr$(t+61)+a$
  450 gosub1100
  470 goto270
  480 printd$;"{rvon}no room for more music.
  490 fori=1to800:nexti:return
  530 gosub1240
  550 gosub720:s=5:g=0:d=0
  555 ifc$(0)=""then660
  560 forj=1tolen(c$(g))step2
  570 a$=mid$(c$(g),j,2):t=asc(a$)-61:a$=right$(a$,1)
  600 gosub910:pokepp,n
  610 gosub1100
  620 ti$="000000"
  630 ifti<tthen630
  635 pokepp,0
  640 getz$:ifz$<>""thenreturn
  645 next
  650 g=g+1:ifg<=msthenifc$(g)<>""then560
  655 g=g-1:ifg=msandlen(c$(g))>=mlthenreturn
  660 print"{home}{down}{left}{left}w{down}{left}a{down}{left}n{down}{left}t{down}{left} {down}{left}t{down}{left}o{down}{left} {down}{left}a{down}{left}d{down}{left}d{down}{left} {down}{left}m{down}{left}o{down}{left}r{down}{left}e{down}{left}?
  670 geta$:ifa$=""then670
  680 ifa$<>"y"thenreturn
  690 print"{home}{down}{left}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} "
  700 gosub270:return
  710 return
  720 print"{clr}";:ln=4
  740 forn1=1toln
  750 print"{CBM-A}"l$"{CBM-S}
  760 forn=1to3:print"{CBM-Q}"l$"{CBM-W}":next
  770 print"{CBM-Z}"l$"{CBM-X}
  780 print"{up}{up}{up}{up}{up}"b$
  790 nextn1:print"{home}";
  800 return
  810 iflen(c$(g))=0theng=g-1:ifg>=0then810
  820 ifg<0theng=0:return
  825 ifs<=5andd=0thenreturn
  830 ifs<=5thend=d-6:s=lw
  835 s=s-nw
  840 print"{home}"left$(d$,d+1)tab(s);
  845 fori=1to5:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{down}";:nexti
  850 print"    ";
  855 x$=right$(c$(g),2):t=asc(x$)-61:x$=right$(x$,1)
  860 if(x$="a"orx$="q")andt>=56thenprint"{left}{left}{left}{down}";mid$("{SHIFT-*} ",2+(d<18),1);"{up}{rght}{rght}";
  865 c$(g)=mid$(c$(g),1,len(c$(g))-2)
  870 g1=g:i=len(c$(g1))-2*pl:ifi<0theng1=g1-1:ifg1>=0theni=i+len(c$(g1))-1
  875 ifi<0then890
  880 x$=mid$(c$(g1),i+1,2):t=asc(x$)-61:x$=right$(x$,1)
  885 ifd>0and(x$="a"orx$="q")andt>=56thenprint"{up}{up}{up}{up}{up}{left}{left}{left}{CBM-T}";
  890 print"{home}":return
  910 ifa$=" "thenn=0:h=5:return
  920 i=asc(a$)-64:ifi<0ori>26thenn=-1:return
  940 n=n%(i):h=h%(i):sh=(n<0):n=abs(n)
  950 ifn=0thenn=-1
  960 return
 1000 a=1:dt=0:ifn=0then1140
 1001 gosub1100:return
 1005 ift<12thena=11
 1010 ift>11andt<28thena=7:ift>=20thendt=1
 1015 ift>27andt<56thena=3:ift>=40thendt=1
 1020 ift>55andt<112thena=1:ift>=80thendt=1
 1025 z=h/2:ifz<>int(z)thena=a+1
 1030 ifh<=3anda>=3thena=a+2
 1035 goto1060
 1040 ift<12thena=18
 1045 ift>11andt<24thena=17
 1050 ift>23andt<48thena=16
 1055 ift>48andt<112thena=15
 1060 p$=" ":ifh<9thenp$="{SHIFT-*}"
 1065 ifshthenp$="#"
 1070 ifh<=3anda>=3thenp$=p$+"{left}"
 1080 p$=p$+v$(a)
 1085 ifdtthenp$=p$+"."
 1090 return
 1100 a=1:dt=0:ifn=0then1140
 1105 ift<12thena=11
 1110 ift>11andt<28thena=7:ift>=20thendt=1
 1115 ift>27andt<56thena=3:ift>=40thendt=1
 1120 ift>55andt<112thena=1:ift>=80thendt=1
 1125 z=h/2:ifz<>int(z)thena=a+1
 1130 ifh<=3anda>=3thena=a+2
 1135 goto1160
 1140 ift<12thena=18
 1145 ift>11andt<24thena=17
 1150 ift>23andt<48thena=16
 1155 ift>48andt<112thena=15
 1160 print"{home}"left$(d$,int(h/2)+d+1)tab(s);
 1165 ifshthenprint"#{left}";
 1170 ifdtthenprint"{rght}{rght}{rght}.{left}{left}{left}{left}";
 1175 print"{rght}";v$(a);"{home}
 1180 s=s+nw:ifs>=lwthens=5:d=d+6
 1185 ifd>23thenln=1:print"{home}";d$:gosub740:d=d-6:goto1185
 1190 return
 1240 poke59467,16:poke59466,15:pokepp,0:return
 1250 print"{clr}{down}"
 1270 print"{down}name of file to read? ";:gosub60000:fi$=in$:ifin$=""thenreturn
 1290 dr=0:gosub3800:ifer<>0then1270
 1300 input#1,g
 1310 forn=0tog
 1320 input#1,c$:c$(n)=mid$(c$,2)
 1325 print".";
 1330 nextn
 1340 close1:close15:return
 1350 print"{clr}{down}"
 1360 print"{down}name of file to write? ";:gosub60000:fi$=in$:ifin$=""thenreturn
 1370 dr=1:gosub3800:ifer<>0then1360
 1390 print#1,g;cr$;:gosub3700
 1400 forn=0tog
 1410 print#1,"*";c$(n);cr$;:gosub3700
 1415 print".";
 1420 nextn
 1430 close1:close15:return
 1440 end
 1480 data"O{CBM-G}{left}{left}{down}{CBM-T}","{CBM-A}{CBM-S}{down}{left}{left}{CBM-Z}{CBM-X}","L{CBM-G}{up}{left}{left}{CBM-@}{CBM-G}{up}{left}{CBM-G}","{down}{CBM-Z}{CBM-X}{up}{left}{left}{CBM-A}{CBM-W}{up}{left}{SHIFT--}","{rght}O{CBM-G}{down}{left}{left}{CBM-T}{left}{left}{CBM-M}{down}{left}{CBM-M}"
 1490 data"{CBM-A}{CBM-S}{left}{left}{down}{CBM-Q}{CBM-X}{down}{left}{left}{SHIFT--}","{rvon} {rvof}{up}{CBM-G}{up}{left}{CBM-G}","{down}{rvon}{CBM-I}{rvof}{up}{left}{CBM-I}{CBM-G}{up}{left}{CBM-G}","{rght}{rvon} {rvof}{left}{down}{CBM-G}{down}{left}{CBM-G}"
 1495 data"{rght}{CBM-I}{down}{left}{rvon}{CBM-I}{rvof}{left}{left}{CBM-M}{down}{left}{CBM-M}{rght}"
 1500 data"{rvon} {rvof}{up}{left}{CBM-M}{up}{left}{CBM-M}M","{down}{rvon}{CBM-I}{rvof}{up}{left}{CBM-I}{CBM-G}{up}{left}{left}{CBM-M}M","{rght}{rvon} {rvof}{left}{left}{down}{CBM-M}{down}{left}{CBM-M}N","{rght}{CBM-I}{down}{left}{left}{CBM-M}{rvon}{CBM-I}{rvof}{down}{left}{left}{CBM-M}N"
 1510 data"{CBM-I}","{rvon}{CBM-O}","{up}I{down}{left}({down}{left}(","{CBM-D}{down}{left}N"
 1520 dataa,237,10,q,-224,10,s,211,9,w,-199,9,d,188,8,e,177,7
 1530 dataf,177,7,r,-167,7,g,157,6,t,-149,6,h,140,5,y,-132,5
 1540 dataj,124,4,u,117,3,k,117,3,i,-111,3,l,104,2,o,-99,2,":",93,1
 1550 datap,87,0
 1560 data,,
 3700 ifti-z9<20orfd=8then3790
 3710 iffd=2then3760
 3720 poke59411,53
 3730 forzz=1to60:next
 3740 poke59411,61
 3750 goto3790
 3760 poke59456,peek(59456)and239
 3770 forzz=1to60:next
 3780 poke59456,peek(59456)or16
 3790 z9=ti:return
 3800 iffd=8then3900
 3810 print"{down}please rewind tape";fd;"{left},":print"and then press {rvon}return
 3820 getz$:ifz$=""then3820
 3830 pokeqb,122:pokeqb+1,2
 3835 iffd=2thenpokeqb,58:pokeqb+1,3
 3840 open1,fd,dr,fi$
 3850 zp=ti:return
 3900 fl$="0:"+fi$:open15,8,15:ifdr=1thenprint#15,"s";fl$
 3910 fl$=fl$+",s,"+mid$("rw",dr+1,1):open1,8,2,fl$
 3920 input#15,er,er$,tk,sc
 3930 ifer=0thener$="":return
 3935 ifer=62then4000
 3940 print"{down}"er;er$;tk;sc:close1
 3950 print"{down}fix problem and type 'cont'.":end
 3960 goto3910
 4000 print"{down}can't open ";fi$;" on drive ";left$(fl$,1);".
 4010 close1:close15
 4020 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60400 qp=515:qb=243:qc=625:cr$=chr$(13)
 60410 ifpeek(50000)<>0thenqp=151:qb=214
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by brian sawyer{down}
 62020 gosub60500
 62030 print"{down}the computer age toy piano
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62090 getz$:ifz$=""then62090
 62100 print"{clr}":clr:gosub60400:goto100
    0 clr:pg$="mwhiz!":nm$="23":goto62000
    1 " c.t.nadovich
    2 " 24 second ave
    3 " troy, ny  12180
    4 "
    5 " cursor #23, dec 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 9 dec 80
  100 mt=10:mp=100
  110 deffnp(x)=int(25/exp(x/2)+.5)+1
  120 deffnr(x)=int(x*10+.5)/10
  130 cr$=chr$(13):ky$="d6a4"
  140 ln$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  150 q$="{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":cp$=q$+q$+q$+q$
  160 dim rp(4):rp=0
  170 for i=1 to 4:read t:rp=rp+t:rp(i)=t:next i
  180 rem
  190 data 1,1,1,1:rem +,-,*,/
  200 rem
  210 n=2
  220 for i=1ton
  230 print"{down}{down}who's sitting to the ";mid$("rightleft",11-5*i,5);"? ";
  240 gosub60000:in$=left$(in$,len(ln$))
  250 ifleft$(in$,1)=" "thenin$=mid$(in$,2):goto250
  260 if right$(in$,1)=" "thenin$=left$(in$,len(in$)-1):goto260
  270 ifin$=""then230
  280 n$(i)=in$
  290 r$=mid$(ky$,i,1):w$=mid$(ky$,i+2,1)
  300 print:printin$;", remember: you press
  310 print"{CBM-@}{left}{down}{rvon}";r$;"{rvof} if the answer is right, or
  320 print"{CBM-@}{left}{down}{rvon}";w$;"{rvof} if the answer is wrong.
  330 print"{down}(hint: {up}{CBM-@}{down}{left}{rvon}";r$;"{rvof} is to the right{down}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}.)
  340 next i
  350 print"{down}{down}press any key to continue...
  360 gett$:ift$=""then360
  370 rem*****begin game loop*****
  380 p(1)=0:p(2)=0
  390 gosub1320
  400 gosub1150:ifq$="q"then1060
  410 rem
  420 gosub1750
  430 getq$:if q$<>"" goto 430
  440 print"{clr}{down}{down}"
  450 printtab(20-len(e$)/2);e$
  460 t1=ti:z2=mt*60+t1
  470 getq$:rem wait mt sec for response
  480 ifti>z2then940
  490 ifq$=""then470
  500 t2=ti
  510 fori=1tolen(ky$)
  520 :if mid$(ky$,i,1)=q$thenf=i:goto570
  530 nexti
  540 ifq$="q"thenprint"{clr}":goto1050
  550 print"{clr}{down}{down}{down}{down}{down}{down}keep your hands off the keys other than{down} your own!"
  560 goto400
  570 i$="c":iff>2theni$="i":f=f-2
  580 ifa$<>i$then760
  590 print"{down}{down}correct, ";n$(f);"!!!!"
  600 if a$="i" then print"{down}the answer should be";nc$
  610 gosub1230
  620 et=(t2-t1)/60
  630 pt=fnp(et):p(f)=p(f)+pt
  640 et=fnr(et)
  650 p$="points!":ifpt=1thenp$="point!"
  660 s$="seconds":ifet=1thens$="second"
  670 q$="{down}it took you"+str$(et)+" "+s$
  680 q$=q$+" to respond and you "
  690 q$=q$+"earned"+str$(pt)+" "+p$
  700 rem
  710 rem   ****loop exit****
  720 ifp(f)>=mpgoto1020
  730 goto890
  760 print"{down}{down}wrong, ";n$(f);","
  770 if a$="i"thenprint"{down}the answer is really";nc$
  780 if a$="c"thenprint"{down}the answer is correct."
  790 et=(t2-t1)/60
  800 pt=fnp(et):p(f)=p(f)-pt
  810 et=fnr(et)
  820 s$="seconds":ifet=1thens$="second"
  830 p$="points!":ifpt=1thenp$="point!"
  840 q$="{down}it took you"+str$(et)+" "+s$
  850 q$=q$+" to respond and you lost "
  860 q$=q$+str$(pt)+" "+p$
  890 gosub1460:print"{down}{down}"
  900 fori=1to5000:next
  910 goto 390
  940 print"{down}{down}{down}";tab(15);"time's up!
  950 print"{down}";tab(12+(a$="i"));"it was ";
  960 ifa$="i"then print"in";
  970 print"correct!{down}{down}
  980 printtab(7);"{down}{down}press any key to continue
  990 getq$:ifq$=""then990
 1000 goto 390
 1010 rem*****end of game loop*****
 1020 rem praise the winner
 1030 gosub1230
 1040 gosub1460:forli=1to2000:next
 1050 gosub1320
 1060 gosub1230
 1070 f=1:if p(1)<p(2)then f=2
 1080 ifp(1)=p(2)thenq$=n$(1)+" and "+n$(2)+", the game is a tie!":goto 1100
 1090 q$=n$(f)+", you are the winner, with"+str$(p(f))+" points."
 1100 print:gosub1460
 1110 print"{down}{down}want to play again? ";:gosub60000:ifleft$(in$,1)<>"n"then380
 1120 print"{clr}{down}{down}"
 1130 end
 1140 rem print 'get ready'
 1150 fori=1 to 10+50*rnd(1)
 1160 printtab(15)"get ready{up}"
 1170 t=sin(sin(5))
 1180 printtab(15)"         {up}"
 1190 t=sin(sin(5))
 1200 getq$:ifq$="q"thenreturn
 1210 next
 1220 return
 1230 rem some neat noises
 1240 poke59467,16
 1250 poke59466,51
 1260 forlj=1to60
 1270 poke59464,int(rnd(1)*256)
 1280 next
 1290 poke59467,0
 1300 return
 1310 rem print scores
 1320 print"{clr}";tab(15);left$(cp$,10)
 1330 print tab(15);"{rvon}scoreboard{down}
 1340 l$="{CBM-A}":r$="{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":t=16-len(ln$)/2
 1350 for li=1 to n
 1360 printtab(t);l$;ln$;r$
 1370 p$=right$(("   "+str$(p(li))),5)
 1380 printtab(t);"{SHIFT--}"n$(li)tab(t+len(ln$)+1)"{SHIFT--}"p$"{SHIFT--}"
 1390 l$="{CBM-Q}":r$="{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 1400 next li
 1410 printtab(t);"{CBM-Z}";ln$;"{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 1420 q$=str$(mp):t=19+len(q$)
 1430 printtab(20-t/2);left$(cp$,t)
 1440 printtab(20-t/2);"{rvon}game over at";q$;" points{down}"
 1450 return
 1460 rem print long q$ of text
 1470 if len(q$)<40 goto1540
 1480 li=40
 1490 if mid$(q$,li,1)=" " goto1510
 1500 li=li-1:goto1490
 1510 print left$(q$,li-1)"{down}"
 1520 q$=right$(q$,len(q$)-li)
 1530 goto1470
 1540 printq$
 1550 return
 1560 rem the following code generates
 1570 rem the problems presented in the
 1580 rem game. the user can replace
 1590 rem this routine with one to
 1600 rem generate  problems better
 1610 rem fitting the curriculum.
 1620 rem
 1630 rem  there are only two para-
 1640 rem  meters returned  by this
 1650 rem  subroutine:
 1660 rem
 1670 rem   e$...returns the text
 1680 rem        of the problem.
 1690 rem
 1700 rem   a$...returns a "c" if
 1710 rem        the  problem  is
 1720 rem        correct, "i" for
 1730 rem        incorrect.
 1740 rem
 1750 t=int(rnd(1)*rp)
 1760 for o=1 to 3
 1770 if t<rp(o) then 1800
 1780 t=t-rp(o)
 1790 next o:o=4
 1800 n1=int(rnd(1)*20)+1
 1810 n2=int(rnd(1)*20)+1
 1820 on o gosub 1910,1930,1950,1970
 1830 if len(str$(n3-int(n3)))>4 then 1800
 1840 nc=n3:if rnd(1)>.5 thenn3=int(rnd(1)*7)-3:n3=nc+n3
 1850 a$="c":if n3<>nc then a$="i"
 1860 el$=str$(n1)+" "+mid$("+-VN",o,1)+str$(n2)
 1870 er$=str$(n3):if n3<0 then er$=" "+er$
 1880 e$=el$+" ="+er$
 1890 nc$=str$(nc):if nc<0 then nc$=" "+nc$
 1900 return
 1910 rem do addition
 1920 n3=n1+n2:return
 1930 rem do subtraction
 1940 n3=n1-n2:return
 1950 rem do multiplication
 1960 n3=n1*n2:return
 1970 rem do division
 1980 n3=n1/n2:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by c.t.nadovich
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}quick! what's two plus two?
 62040 print"{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:cr$=chr$(13):goto100
    0 clr:poke59468,12
    1 rem nab! copyright (c) 1980 malcolm michael
    2 rem 663 alcatraz ave. #4
    3 rem oakland, ca. 94609
    4 :
    5 rem cursor #16, jan 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 8 80
   90 pg$="nab!":nm$="16":gosub62000
  100 ifjs=0then61000
  105 tr=1:cs=0:hs=0
  110 p1=59464:p2=59466:p3=59467
  120 v1=1:v2=32:v3=102:v4=230:v5=93:v6=64:v7=80:v8=96
  130 dimd(3):pokep3,16:pokep2,15
  140 print"{clr}":s$="{rght}{rght}{rght}{rght}"
  150 print"{home}";s$;"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  160 prints$"{SHIFT--}+ + + + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + + + +{SHIFT--}"
  170 prints$"{SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--}"
  180 prints$"{SHIFT--}+{SHIFT--}+ + + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + + +{SHIFT--}+{SHIFT--}"
  190 prints$"{SHIFT--} {SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--} {SHIFT--}"
  200 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+ + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + +{SHIFT--}+{SHIFT--}+{SHIFT--}"
  210 prints$"{SHIFT--} {SHIFT--} {SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--} {SHIFT--} {SHIFT--}"
  220 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+ + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + +{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}"
  230 prints$"{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}"
  240 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+ + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + +{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}"
  250 prints$"{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}"
  260 prints$"{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}+ +n+a+b+ +{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}"
  270 prints$"{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}{rvon}game{CBM-+}{CBM-+}score{rvof}{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}"
  280 prints$"{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}           {SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}"
  290 prints$"{SHIFT--}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rght}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}{SHIFT--}"
  300 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+ + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + +{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}"
  310 prints$"{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}"
  320 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}+ + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + +{SHIFT--}+{SHIFT--}+{SHIFT--}+{SHIFT--}"
  330 prints$"{SHIFT--} {SHIFT--} {SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--} {SHIFT--} {SHIFT--}"
  340 prints$"{SHIFT--}+{SHIFT--}+{SHIFT--}+ + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + +{SHIFT--}+{SHIFT--}+{SHIFT--}"
  350 prints$"{SHIFT--} {SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--} {SHIFT--}"
  360 prints$"{SHIFT--}+{SHIFT--}+ + + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + + +{SHIFT--}+{SHIFT--}"
  370 prints$"{SHIFT--} {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} {SHIFT--}"
  380 prints$"{SHIFT--}+ + + + + + +{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}+ + + + + + +{SHIFT--}"
  390 prints$"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{home}"
  400 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);mid$(str$(tr),2)
  410 crt=32768
  420 k=crt+23*40+15+len(s$):p=k+2
  425 df=1
  430 d(0)=1:d(1)=-40:d(2)=-1:d(3)=40
  440 dk=2:dp=0:tk=1:tp=1:v9=43
  450 sk=0:sc=0:fp=v3:fk=102
  460 pokep1,0:pokek,87:pokep,81:ifp=kthen690
  470 pokep1,sd:forp9=1to10:nextp9:pokep1,0:sd=0
  480 c=peek(p+d(dp)):ifc<>43andc<>v9then500
  485 ifc=43thensc=sc+10:sd=80:goto495
  490 sc=sc+20:sd=40
  495 print"{up}"tab(18)right$("      "+str$(sc),8):c=v8
  497 ifsc>999thenv9=90
  500 ifc=93orc=64thendp=dp+1:c=v2:ifdp>3thendp=0
  510 ifc=87then690
  520 pokep,fp:fp=c:p=p+d(dp):ifrnd(1)>.85then600
  530 c=peek(k+d(dk)):ifc=93orc=64thendk=dk-1:c=v2:ifdk<0thendk=3
  540 ifc=v8thenc=v9
  545 ifc=81then690
  550 pokek,fk:k=k+d(dk):fk=c
  552 ifc<>v3andc<>v4thentl=df:goto600
  556 tl=tl-1:iftl<0then600
  560 ifc=v3andtk<tpthenk=k+v7*d(dk):tk=tk+v1
  570 ifc=v3andtk>tpthenk=k-v7*d(dk):tk=tk-v1
  580 ifc=v4andtk<tpthenk=k-2*d(dk)/40:tk=tk+v1
  590 ifc=v4andtk>tpthenk=k+2*d(dk)/40:tk=tk-v1
  600 kb=usr(0):mv=0
  610 ifkb<2orkb>8or(kband1)then680
  620 ifkb=8andfp=v3thenjs=p-80:tt=tp+sgn(d(dp)):mv=1
  630 ifkb=2andfp=v3thenjs=p+80:tt=tp-sgn(d(dp)):mv=1
  640 ifkb=4andfp=v4thenjs=p-2:tt=tp-sgn(d(dp)):mv=1
  650 ifkb=6andfp=v4thenjs=p+2:tt=tp+sgn(d(dp)):mv=1
  655 ifmv=0then680
  660 ifmvthensd=151
  670 ifpeek(js)=fpthentp=tt:p=js
  680 df=1+int(sc/500)
  685 goto460
  690 x=p-crt:print"{home}";
  700 y=int(x/40):x=x-y*40
  710 fora=1toy:print"{down}";:next
  720 printtab(x-2)"{rght}CV-{up}{left}{left}{left}M{SHIFT--}N{down}{down}{left}{left}{left}N{SHIFT--}M{home}{down}{down}{down}"
  730 pokep2,15
  740 fora=1to25:pokep1,255:pokep1,250:pokep1,253:next
  750 pokep1,0:pokep3,16:pokep2,15
  760 tm=ti+150
  770 ifti<tmthen770
  780 geta$:ifa$<>""then780
  790 ifsc>hsthenhs=sc
  800 cs=cs+sc
  810 print"{clr}{down}{down}{down}{down}{down} your score for game"tr"was"sc;"{left},"
  820 print"{down} for an average of"int(cs/tr+.5)"points/game.{down}"
  830 print" your high score so far is"hs;"{left}."
  840 print"{down}{down}{down} do you wish to play again? ";:gosub60000
  850 a$=left$(in$,1)
  860 ifa$="n"thenprint"{clr}":goto880
  870 fora=1to200:next:tr=tr+1:goto140
  880 pokep2,0:pokep3,0:poke59468,12
  890 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qp=515:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qp=151:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 61000 dimj(15):poke59456,0:j$=" joystick"
 61005 restore:fori=0to15:j(i)=5:next
 61010 readp$:ifp$<>"&js&"then61010
 61015 readi,j:fort=itoj:readx:poket,x:next:poke634,qv-1:s=139
 61020 print"{down}{down}using a";j$;"? ";:gosub60000:ifleft$(in$,1)<>"y"thens=157:goto61070
 61030 print:fori=0to5:readp$,p:gosub61100:t(i)=t:j(t)=p:nexti
 61033 fori=1to5:ift(i-1)<>t(i)then61040
 61035 nexti:print"{down}{rvon}is your";j$;" plugged in?":goto61005
 61040 fori=1to4:j(t(i)andt)=0:next:fori=1to2:forj=3to4:readp:j(t(i)andt(j))=p
 61060 next:next:forj=0to15:poke635+j,j(j):next
 61070 poke1,s:poke2,2:clr:js=1:gosub60400:goto100
 61100 print"{down}hold";j$;" ";p$;" & press a key"
 61110 gett$:ift$=""then61110
 61120 t=peek(59471):t=int(t/16)andt:return
 61200 data&js&,651,721
 61210 data173,79,232,74,74,74,74,45,79,232,168,185,123,2,168,76,197,2,32,228
 61220 data255,201,48,240,15,201,32,208,2,169,48,56,233,48,48,4,201,10,48,2,169
 61230 data5,168,162,255,173,122,2,208,6,142,3,2,76,197,2,134,151,169,0,174,122
 61240 data2,208,3,76,120,210,76,109,210
 61250 datacentered,5,left,4,right,6,up,8,down,2,button down,0,7,1,9,3
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by malcolm michael{down}
 62020 gosub60500
 62030 print"{down}a race against destruction...
 62080 print"{down}{down}press {rvon}return{rvof} to begin"
 62090 gett$:ift$=""then62090
 62100 goto60300
  100 poke59468,12:poke59490,30
  110 rem**author-bob chappell 14/5/80**
  120 w=rnd(ti):s$="                                      "
  130 print"{clr}       {rvon}nachtmerrie park."
  140 print"{down}{down}de kortste weg is niet de beste"
  150 print"{down}{down}je mag alleen naar noord, zuid of oost."
  160 print"{down}{down}blijf op het pad.":print"{down}{down}ieder die binnentreedt is";
  170 print" verloren....{down}{down}":forb=1to3000:next
  180 print"ps. er is geluid op de usersport!!{down}{down}":fori=1to3000:nexti
  190 forn=1to5:printspc(10);"{rvon}nachtmerrie park":next:gosub2230
  200 p$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  210 p1=33291:p=33291:e3=83:y1=0
  220 dimb%(15):u%=1
  230 poke59467,16:poke59466,51:poke59464,0:poke59459,255
  240 gosub2050:gosub2380:x=rnd(-log(rnd(-ti)))
  250 ti$="000000"
  260 p=p1:print"{home}    n,z, of o?":t=128
  270 poke59471,tiand200:poke59471,0:getw$:ifw$=""then270
  280 poke59464,0:gosub2220
  290 ifw$="n"thena=-40:goto330
  300 ifw$="z"thena=40:goto330
  310 ifw$="o"thena=1:goto330
  320 goto260
  330 p1=p+a:ifpeek(p1)=32goto2460
  340 ifpeek(p1)=21then2470
  350 pokep,102:pokep1,e3
  360 x=5*rnd(1):j=4
  370 ifp1>33297andp1<33315thenj=2.5
  380 ifx<jgoto260
  390 y1=y1+1
  400 x=int(15*rnd(1)+1)
  410 ifu%/15<b%(x)then400
  420 u%=u%+1:b%(x)=b%(x)+1:ifx=7andy1>10goto400
  430 gosub2380
  440 onxgoto460,600,790,890,1020,1240,1340,1350,1440,1500,1610,1810
  450 x=x-12:onxgoto1820,1830,1840
  460 b$="~":w$="eenhoorns":f=94
  470 print"{clr}{rvon}stampende ";w$:print"{down}druk 'w' om west te gaan, 'o' voor oost."
  480 gosub2290:x=80:d=32988
  490 print"{clr}":forn=1to20:geta$:print:next:c=32988:pokec,e3
  500 forn=1tox:a=int(6*rnd(ti)+3):pokec,32:printspc(a);b$;spc(a*2);b$;spc(a);
  510 geta$:ifa$="w"thend=c-1
  520 ifa$="o"thend=c+1
  530 pokec,32:c=d:pokec,e3
  540 ifpeek(c+40)=fthenpokec+40,170:n=x:x=100
  550 next:ifx=50then580
  560 ifx=100then590
  570 x=50:b$=" ":goto500
  580 gosub2230:print"{clr}{down}{down}{down}{down}{down}overleefd!":gosub2230:gosub2380:goto240
  590 gosub2230:print"{clr}{down}{down}{down}{down}{down}vertrapt!":goto2300
  600 w$="blabbers!":f=209
  610 print"{clr}{rvon}omringd door ";w$:print"{down}zoek nrs. tussen 0-8 en ze verdwijnen"
  620 e1=int(9*rnd(ti)):e2=int(9*rnd(ti)):e4=int(9*rnd(ti))
  630 x=0:d1=f:d2=f:d3=f
  640 poke33306,e3:c1=32937:c2=32946:c3=32955:c4=33297:c5=33315:c6=33657
  650 c7=33666:c8=33675:forn=1to10
  660 gosub750:ifc1=33306thenx=99:n=10:goto720
  670 geta$:ifa$=""then670
  680 a=val(a$):ifa=e1thend1=32
  690 ifa=e2thend2=32
  700 ifa=e4thend3=32
  710 ifd1=32andd2=32andd3=32andn<9thengosub750:n=10:poke33306,e3
  720 next:ifx=99then740
  730 print"{down}{down}geluk!":gosub2230:goto240
  740 poke33306,f:print"{down}{down} scromp!!!!":goto2300
  750 pokec1,32:c1=c1+41:pokec1,d1:pokec2,32
  760 c2=c2+40:pokec2,d2:pokec3,32:c3=c3+39:pokec3,d3:pokec4,32:c4=c4+1
  770 pokec4,d1:pokec5,32:c5=c5-1:pokec5,d2:pokec6,32:c6=c6-39:pokec6,d3
  780 pokec7,32:c7=c7-40:pokec7,d2:pokec8,32:c8=c8-41:pokec8,d1:return
  790 print"{clr}{down}{down}{rvon}het gekke genie!!":print"{down}je hebt 10 seconden om de volgende"
  800 print"{down}vraag te beantwoorden: -{down}{down}{down}{down}"
  810 t=0:gosub2230:forn=1to6:a=int(9*rnd(ti)+1):t=t+a
  820 printa;"+";:next:print"{left}= ?":t1=ti:input"{down}{down}{down}wat is je antwoord";a
  830 t2=ti:ifa<>tthen870
  840 print"{clr}{down}{down}correct....";:gosub2230
  850 ifti-t1>600thenprint"maar je nam te lang !!":goto880
  860 print"je bent aan de dood ontsnapt":gosub2230:goto240
  870 print"{clr}{down}{down}fout!!"
  880 print"{down} bereid je voor op de dood!!!!":goto2300
  890 print"{clr}{down}{down}{rvon}doods stralen!! hou je stil en hoop":i=150:forn=1to5:z(n)=0:next
  900 gosub2230:print"{clr}":poke33268,e3:forqq=1to5
  910 f=0:a=int(14*rnd(ti)+5):fora2=1toqq:ifa=z(a2)thena2=qq:f=1
  920 nexta2:iff=1goto910
  930 z(qq)=a:a=a+32768:a1=a+20:forn=1to21:ifpeek(a)=78thenpokea,86:goto950
  940 pokea,77
  950 a=a+41:gosub2400:nextn
  960 ifpeek(33268)<>e3then2300
  970 print"{home}":forn=1to21:ifpeek(a1)=77thenpokea1,86:goto990
  980 pokea1,78
  990 a1=a1+39:gosub2400:nextn:ifpeek(33268)<>e3then2300
 1000 print"{home}":nextqq:gosub2230:print"{clr}{down}{down}dat scheelde een haartje!!!!"
 1010 gosub2230:goto240
 1020 w$="lurgi!":f=42
 1030 print"{clr}{down}{rvon}voortplantende ";w$:print"{down}je hebt 1 minuut om bij uit te komen"
 1040 print"{down}8=noord, 2=zuid, 4=west, 6=oost":gosub2290
 1050 n=0:x=0:b=33633:t1=ti:print"{clr}":poke32768,21:pokeb,e3
 1060 forc=1to6
 1070 a=int(930*rnd(ti))+32776:ifpeek(a)=e3then1070
 1080 next:t2=ti:pokea,f:ifti-t1>3600then1230
 1090 ifti-t2>10then1060
 1100 geta$:ifa$=""then1090
 1110 pokeb,32:ifa$="8"thenb=b-40
 1120 ifa$="4"thenb=b-1
 1130 ifa$="6"thenb=b+1
 1140 ifa$="2"thenb=b+40
 1150 ifpeek(b)=fthenn=1:x=99
 1160 ifb>33767orb<32768thenb=33633
 1170 ifb=32768thenn=1
 1180 pokeb,e3:ifn=0then1060
 1190 ifb=32768then1220
 1200 ifx=99then1230
 1210 gosub2380:goto1060
 1220 print"{clr}{down}{down}ontsnapt!!":gosub2230:goto240
 1230 pokeb,209:gosub2230:print"{clr}{down}{down}verzwolgen door ";w$:goto2300
 1240 print"{clr}  pletter!! slechts 1 letter stopt hem":poke33666,e3
 1250 x=int(25*rnd(ti)+65)
 1260 print:forn=1to21
 1270 print"  {rvon}";:fora1=1to36:print" ";:next:print
 1280 ifn>20then1310
 1290 geta$:ifa$=""then1290
 1300 ifasc(a$)=xthenn=21
 1310 nextn:ifasc(a$)=xthen1330
 1320 print"{clr}{down}{down}geplet!":goto2300
 1330 print"{clr}{down}{down}ontsnapt!!":gosub2230:goto240
 1340 print"{clr}{down}{down}{rvon}terug naar de start!!!":li=0:p1=33291:p=33291:gosub2230:goto240
 1350 print"{clr}{down}{down}{rvon}geflipte geheugen tester!!":print"{down}onthou dit om hem te bedaren"
 1360 b=0:gosub2290:forn=1to5:z(n)=int(26*rnd(ti)+65):next:print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}";
 1370 forn=1to5:printchr$(z(n));" ";:next:forn=1to500:next:print"{clr}{down}{down}{down}"
 1380 forn=1to5:gosub2380:print"{down}wat was letter";n;"? ";
 1390 geta$:ifa$=""then1390
 1400 printa$:ifasc(a$)<>z(n)thenb=1:n=5
 1410 next:ifb=1then1430
 1420 print"{home}{down}phoeeiii!!":gosub2230:goto240
 1430 print"{home}{down}fout!! voor jou valt het doek!!":goto2300
 1440 print"{clr}{rvon}{down}{down}prikkels regen!!":print"{down}ik duim voor je!"
 1450 c=33508:gosub2230:print"{clr}":b$="v":pokec,e3:forn=1to13
 1460 a=int(4*rnd(ti)+3):forb=1to6:printspc(a);b$;spc(a);:next
 1470 next:gosub2230::ifpeek(c)<>e3then1490
 1480 print"{clr}{down}{down}{down}{down}{down}gemist!":gosub2230:goto240
 1490 print"{clr}{down}{down}uitgeroeid!!":goto2300
 1500 print"{clr}{rvon}{down}{down}de egoistische gorilla!!{rvof}   zeg hem z'n":print"{down}naam of je";
 1510 print" wordt gedemonteerd!!":print"{down}een bliksem flits onthult het kort...."
 1520 a=int(4*rnd(ti)+1):ifa=1thena$="jan"
 1530 gosub2290:ifa=2thena$="kees"
 1540 ifa=3thena$="piet"
 1550 ifa=4thena$="klaas"
 1560 a=int(13*rnd(ti)+3):forn=1toa:print"{down}Q{left} ";:next
 1570 printa$:forn=1to150:next:input"{clr}{down}{down}wat is mijn naam";b$
 1580 print"{clr}{down}{down}der...um...ehh.....dat is.....{down}":gosub2230:ifb$<>a$goto1600
 1590 print"grrr! goed!":gosub2230:goto240
 1600 print"fout!!   scheur!...krakk!!...plop!.....":goto2300
 1610 print"{clr}{rvon}{down}de deuren!!":print"{down}achter een zit een uitgehongerde leeuw!"
 1620 a$(1)="{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":a$(2)="{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}":a$(3)="{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}":a$(4)="{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}":a$(5)="{rvon}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{rvof}"
 1630 a$(6)="{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}":a$(7)="{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}":a$(8)="{rvon}     {rvof}":a$(0)="     "
 1640 print"{down}";tab(8);"1";tab(18);"2";tab(28);"3":forb=1to3:print"{home}{down}{down}{down}{down}{down}{down}"
 1650 forc=1to7:forn=1to8:printtab(-4+10*b);"{up}";a$(n):nextn:print:nextc
 1660 gosub2440:nextb
 1670 print"{down}{down}kies: ";
 1680 geta$:ifa$=""then1680
 1690 x=val(a$):a1=int(3*rnd(1)+1):e=1000:ifint(x)<>xorx<1orx>3then1680
 1700 printa$:gosub2430:forb=1to3:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1710 forc=1to4:forn=7to0step-1:printtab(-4+10*b);"{up}";a$(n)
 1720 ifc=4andb=a1thena$(0)="leeuw"
 1730 ifb<>a1orc<>4thena$(0)="     "
 1740 nextn:print"{up}{up}":nextc
 1750 ifb=a1=xthengosub2420:goto1780
 1760 ifb=xthengosub2450
 1770 poke59464,99:fori=1to200:next:poke59464,77:fori=1to200:next:poke59464,0
 1780 nextb
 1790 ifa1<>xthenprint"{down}{down}{down}{down}{down}{down}{down}vrouwe fortuna was met je.":gosub2230:goto240
 1800 goto2300
 1810 b$="^":w$="stingers!":f=30:goto470
 1820 w$="najjers!":f=35:goto610
 1830 w$="zigzaggers!":f=26:goto1030
 1840 print"{clr}{down}{rvon}de gemene gokker!!":print"{down}{down}he daagt je uit om meer of";
 1850 print" minder te":print"{down}gooien. helaas zegt hij niet welke"
 1860 print"{down}tot je zelf de dobbelsteen gooit!!":print"{down}je leven is de inzet."
 1870 gosub2290:gosub2230:print"{clr}{down}{down}hij gooit.........."
 1880 a=int(6*rnd(1)+1):b=int(6*rnd(1)+1):print"{down}{down}{down}{rght}{rght}{rght}{rght}";a;"   en   ";
 1890 gosub2230:print"{rght}";b;:d=a+b:print"   =   ";d:gosub2230
 1900 print"{down}{down}{down}probber je hoger of lager te":print"{down}gooien  ({rvon}h{rvof} of {rvon}l{rvof})"
 1910 geta$:ifa$=""then1910
 1920 ifa$="h"thena=4:b=4:goto1950
 1930 ifa$<>"l"goto1910
 1940 a=1:b=1
 1950 a=int(3*rnd(1)+a):b=int(3*rnd(1)+b):print"{clr}{down}{down}{down}jij gooit....."
 1960 print"{down}{down}{rght}{rght}{rght}{rght}";a;"  en   ";
 1970 gosub2230:print"{rght}";b;:a=a+b:print"   =   ";a:print"{down}{down}{down}":gosub2230
 1980 gosub2230:print"{clr}{down}{down}de gok was dat hij ";
 1990 ifd<7thenprint"minder zou hebben":goto2020
 2000 print"meer zou hebben!":gosub2290:ifd<athen2040
 2010 goto2030
 2020 gosub2290:ifd>athen2040
 2030 print"{down}{down}vervloekt!! jij wint!":gosub2230:goto240
 2040 print"{down}{down}aha!! je verliest!":goto2300
 2050 print"{clr}{down}{down}{down}{down}{down}{down}"
 2060 printtab(10);left$(p$,12)
 2070 forn=1to2
 2080 printtab(10);"{CBM-+}   {CBM-+}   {CBM-+}  {CBM-+}":next
 2090 printtab(10);left$(p$,12);"    {CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 2100 forn=1to2
 2110 printtab(10);"{CBM-+}   {CBM-+}   {CBM-+}  {CBM-+}    {CBM-+}  {CBM-+}":next
 2120 print"in ";left$(p$,24);"  {CBM-+}"
 2130 printtab(10);"{CBM-+}  {CBM-+}     {CBM-+}      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}uit"
 2140 forn=1to3
 2150 printtab(10);"{CBM-+}  {CBM-+}     {CBM-+}      {CBM-+}   {CBM-+}":next
 2160 printtab(10);"{CBM-+}  ";left$(p$,18)
 2170 forn=1to2:printtab(10);"{CBM-+}";tab(19);"{CBM-+}   {CBM-+}  {CBM-+}   {CBM-+}":next
 2180 printtab(10);left$(p$,21)
 2190 pokep1,83
 2200 printtab(13);"{down}{rvon}nachtmerrie park{home}"
 2210 return
 2220 print"{home}";:forn=1to7:prints$:next:return
 2230 onint(rnd(1)*4+1)goto2240,2250,2270,2280
 2240 fori=10to200step2:poke59464,i+5*rnd(1):next:poke59464,0:return
 2250 fori=10to200step10:poke59464,i+5*rnd(1):forj=1to15:nextj,i:poke59464,0
 2260 return
 2270 fori=10to200:poke59464,i:x=rnd(1):next:poke59464,0:return
 2280 fori=1to50:poke59464,rnd(1)*255:next:poke59464,0:return
 2290 fori=1to1500:next:goto2230
 2300 gosub2390:print"{clr}{down}{down}{down}{down}{rvon}nachtmerrie park slaat weer toe!!!!!!!"
 2310 gosub2380:ifli<2then2330
 2320 print"{down}{down}je hebt al je levens gebruikt.....":goto2370
 2330 print"{down}{down}je hebt"2-li"levens over":ifl2=1thenp1=p1-a
 2340 print"{down}{down}vergok je je volgende leven in":print"{down}{down}in het park  (j of n)"
 2350 geta$:ifa$=""then2350
 2360 ifa$="j"thenli=li+1:l2=0:goto240
 2370 poke59459,0:poke59464,0:poke59466,0:poke59467,0:goto2500
 2380 forn1=1to20:geta$:next:return
 2390 forb=1to15:forc=10to200step10:poke59464,c:nextc,b:poke59464,0:return
 2400 i=i+5:ifi>=255theni=155
 2410 poke59464,i:return
 2420 fori=30to255step15:poke59464,i:forj=1to99:nextj,i:poke59464,0:return
 2430 poke59464,99:fori=1to200:next:poke59464,0:fori=1to100:next
 2440 fori=220to150step-1:poke59464,i:next
 2450 fori=150to255:poke59464,i:next:poke59464,0:return
 2460 print"{clr}{down}je viel in de afgrond!!":l2=1:goto2300
 2470 print"{clr}{down}{down}je versloeg 't park deze keer..."
 2480 print"{down}maar de volgende keer ????"
 2490 gosub2420:goto2370
 2500 ifpeek(45058)=180then:$x,peek(45051)-48,"inhoud
   20 w=rnd(ti):s$="                                      "
   40 print"{clr}{down}"tab(11)"{rvon}nightmare park{down}"
   50 gosub2050
  110 p$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
  120 p1=33291:p=33291:e3=83:y1=0
  130 w=rnd(ti):s$="                                      "
  140 gosub1870
  150 p=p1:print"{home}richtung?
  160 getw$:ifw$=""then160
  170 gosub2040
  180 ifw$="n"thena=-40:goto220
  190 ifw$="s"thena=40:goto220
  200 ifw$="o"thena=1:goto220
  210 goto150
  220 p1=p+a:ifpeek(p1)=32then2130
  230 ifpeek(p1)=5then2140
  240 pokep,102:pokep1,e3
  250 x=int(5*rnd(ti)+1):j=4
  260 ifp1>33297andp1<33315thenj=3
  270 ifx<jthen150
  280 y1=y1+1
  290 x=int(14*rnd(1)+1)
  300 ifx=7andy1>10goto290
  310 onxgoto330,470,650,760,870,1060,1150,1240,1310,1450,1590
  320 x=x-11:onxgoto1600,1610,1620
  330 b$="~":w$="einhoerner":f=94
  340 print"{clr}{down}{rvon}eine "w$"{rvon}-stampede!":print
  350 print"{down}druecke {rvon}<{rvof} fuer links,{rvon}>{rvof} fuer rechts!
  360 x=80:d=32988
  370 gosub2060:print"{clr}":forn=1to20:geta$:print:next:c=32988:pokec,e3
  380 forn=1tox:a=int(6*rnd(1)+3):pokec,32:forb=1to2:printspc(a)b$spc(a);
  390 next:geta$:ifa$="<"thend=c-1
  400 ifa$=">"thend=c+1
  410 pokec,32:c=d:pokec,e3
  420 ifpeek(c+40)=fthenpokec+40,170:goto460
  430 next:ifx=50goto450
  440 x=50:b$=" ":goto380
  450 gosub2050:print"{clr}ueberlebt!":gosub2050:gosub2120:goto140
  460 gosub2050:print"{clr}zertrampelt!":goto2070
  470 w$="blabbers!":f=209
  480 print"{clr}{rvon}eingekreist von "w$:print"{down}suche die zahl von 1-9,die sie besiegt!
  490 e1=int(9*rnd(ti)+1):e2=int(9*rnd(ti)+1):e4=int(9*rnd(ti)+1)
  500 d1=f:d2=f:d3=f
  510 poke33306,e3:c1=32937:c2=32946:c3=32955:c4=33297:c5=33315:c6=33657
  520 c7=33666:c8=33675:forn=1to10:pokec1,32:c1=c1+41:pokec1,d1:pokec2,32
  530 c2=c2+40:pokec2,d2:pokec3,32:c3=c3+39:pokec3,d3:pokec4,32:c4=c4+1
  540 pokec4,d1:pokec5,32:c5=c5-1:pokec5,d2:pokec6,32:c6=c6-39:pokec6,d3
  550 pokec7,32:c7=c7-40:pokec7,d2:pokec8,32:c8=c8-41:pokec8,d1
  560 ifc1=33306then640
  570 geta$:ifa$=""then570
  580 a=val(a$):ifa=e1thend1=32
  590 ifa=e2thend2=32
  600 ifa=e4thend3=32
  610 ifd1=32andd2=32andd3=32then630
  620 next
  630 print"{clr}glueck gehabt!!":gosub2050:goto140
  640 print"{clr}zermatscht":goto2070
  650 print"{clr}der verrueckte mathematiker!
  660 print"{down}du hast 10 sekunden zeit zur beantwor-
  670 print"{down}tung der folgenden frage:{down}{down}
  680 t=0:gosub2050:forn=1to6:a=int(9*rnd(ti)+1):t=t+a
  690 printa"+";:next:print"{left}= ?":t1=ti:input"{down}{down}ihre antwort";a
  700 ifa<>tthen740
  710 print"{clr}richtig...":gosub2050
  720 ifti-t1>600thenprint"{down}{rvon}aber du brauchtest zu lange!":goto750
  730 print"{down}{rvon}du bist dem tod entgangen!":gosub2050:goto140
  740 print"{clr}{down}falsch!!
  750 print"{down}bereite dich auf deinen tod vor!":goto2070
  760 print"{clr}{down}todes-strahlen! bleibe ruhig und hoffe!":forn=1to5:z(n)=0:next
  770 gosub2050:print"{clr}":poke33268,e3:forb=1to5
  780 f=0:a=int(14*rnd(ti)+5):fora2=1tob:ifa=z(a2)thena2=b:f=1
  790 nexta2:iff=1goto780
  800 z(b)=a:a1=a+20:forn=1to21:printtab(a)"\"
  810 a=a+1:forx=1to50:nextx,n
  820 ifpeek(33268)<>e3then860
  830 print"{home}":forn=1to21:printtab(a1)"/":a1=a1-1:forx=1to50:nextx:nextn
  840 ifpeek(33268)<>e3then860
  850 print"{home}":nextb:gosub2050:print"{clr}knapp dran vorbei!":gosub2050:goto140
  860 print"{clr}zerstrahlt!":goto2070
  870 w$="lurgi!":f=42
  880 print"{clr}{rvon}sich vervielfaeltigende "w$
  890 print"{down}sie haben 1 minute zum erreichen des      {down}{rvon}ausgangs{rvof} !
  900 print"{down}8=n,2=s,4=w,6=o":gosub2060
  910 b=33633:t1=ti:print"{clr}":poke32768,5:pokeb,e3
  920 forn=1to30:a=int(930*rnd(ti))+32776:ifpeek(a)=e3then920
  930 pokea,f:next:ifti-t1>3600then1050
  940 forn=1to6
  950 geta$:ifa$=""then950
  960 pokeb,32:ifa$="8"thenb=b-40
  970 ifa$="2"thenb=b+40
  980 ifa$="4"thenb=b-1
  990 ifa$="6"thenb=b+1
 1000 ifpeek(b)=fthenpokeb,209:goto1050
 1010 ifb>33767orb<32768thenb=33633
 1020 ifb=32768then1040
 1030 pokeb,e3:next:gosub2120:goto920
 1040 print"{clr}entkommen!!":gosub2050:goto140
 1050 gosub2050:print"{clr}{down}umgebracht von "w$:goto2070
 1060 print"{clr}stampfer!nur {rvon}1{rvof} buchstabe stoppt sie!":poke33666,e3
 1070 x=int(25*rnd(ti)+65)
 1080 forn=1to21:printp$
 1090 ifn>21then1120
 1100 geta$:ifa$=""goto1100
 1110 ifasc(a$)=xthen1130
 1120 next:print"{clr}{down}{down}zerstampft!!":goto2070
 1130 print"{clr}glueck gehabt":gosub2050:goto140
 1150 print"{clr}der manische erinnerungs-tester!
 1160 print"{down}erinnere dich daran, um ihn zu beruhigen
 1170 gosub2060:forn=1to5:z(n)=int(26*rnd(ti)+65):next:print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}";
 1180 forn=1to5:printchr$(z(n));" ";:next:forn=1to500:next:print"{clr}{down}{down}
 1190 forn=1to5:print"{down}wie lautete der buchstabe "n;
 1200 geta$:ifa$=""then1200
 1210 printa$:ifasc(a$)<>z(n)then1230
 1220 next:print"{clr}{down}schwein gehabt!!":gosub2050:goto140
 1230 print"{clr}verkehrt! du wirst nie mehr denken      {down}muessen!":goto2070
 1240 print"{clr}es hagelt steine!":print"{down}kreuze deine finger!"
 1250 c=33508:gosub2050:print"{clr}";:b$="Q":pokec,e3:forn=1to15
 1260 a=int(4*rnd(ti)+3):forb=1to6:printspc(a)b$spc(a);:next
 1270 fort=1to50:next
 1280 next:gosub2050:ifpeek(c)<>e3then1300
 1290 print"{clr}daneben!!":gosub2050:goto140
 1300 print"{clr}ausgeloescht!!":goto2070
 1310 print"{clr}der egozentrische gorilla!
 1320 print"{down}sag' ihm seinen namen,oder...
 1330 print"{down}er zieht dir die haut ab!
 1340 print"{down}ein blitz wird den namen beleuchten!
 1350 gosub2050
 1360 a=int(4*rnd(ti)+1):ifa=1thena$="clarence
 1370 forn=1to6000:next:ifa=2thena$="percival
 1380 ifa=3thena$="stanley"
 1390 ifa=4thena$="winston"
 1400 a=int(15*rnd(ti)+3):forn=1toa:print"{down}{rght}";:next
 1410 printa$:forn=1to150:next:print"{clr}{down}{down}wie heisse ich ?{down}":inputb$
 1420 print"{clr}huh..aeh.....hmm...das..eh..das ist{down}":gosub2050:ifb$<>a$goto1440
 1430 print"grrr...richtig!":gosub2050:goto140
 1440 print"falsch!! mampf..schluck....wuerg!":goto2070
 1450 print"{clr}die tueren!!":print"{down}hinter einer verhungert ein loewe!!"
 1460 forn=1to3:a$(n)="{rvon}     {rvof}":next:print"{down}"tab(8)"1"tab(18)"2";
 1470 printtab(28);"3":a1=4:gosub1520:forn=1to3:a$(n)="     ":next
 1480 print"{down}{down}waehle!!";
 1490 geta$:ifa$=""ora$<"1"ora$>"3"then1490
 1500 x=val(a$):a1=int(3*rnd(ti)+1):e=1000
 1510 gosub1520:goto1560
 1520 a=6:forb=1to3:print"{home}{down}{down}{down}{down}{down}{down}":forn=1to7:printtab(a)a$(b)
 1530 ifn=3andb=a1thena$(b)="loewe"
 1540 ifn=4anda1<4thena$(b)="     "
 1550 forc=1to200:next:next:a=a+10:next:return
 1560 print"{down}{down}{down}":ifa1<>xthenprint"fortuna hat dir zugelaechelt!!"
 1570 ifa1<>xthengosub2050:goto140
 1580 goto2070
 1590 b$="^":w$="stingers!":f=30:goto340
 1600 w$="najjers!":f=35:goto480
 1610 w$="zigzaggers!":f=26:goto880
 1620 print"{clr}der gewalttaetige spieler"
 1630 print"{down}er fordert dich zum wuerfeln einer"
 1640 print"{down}hoeheren oder niederen zahl als seiner!"
 1650 print"{down}unvorteilhafterweise sagt er nicht,"
 1660 print"{down}welches von beiden,bis es zu spaet ist."
 1670 print"{down}{rvon}wetteinsatz ist dein leben!"
 1680 gosub2060:gosub2050:print"{clr}er wirft..."
 1690 a=int(6*rnd(ti)+1):b=int(6*rnd(ti)+1):print"{down}{down}{down}{rght}{rght}{rght}{rght}"a" und ";
 1700 gosub2050:printb;:d=a+b:print"  = "d:print"{down}{down}{down}":gosub2050
 1710 print"{down}{down}{down}versuchst du einen hoeheren oder"
 1720 print"{down}niedrigeren wurf (h/n)?"
 1730 geta$:ifa$=""then1730
 1740 ifa$="h"thena=6:b=6:goto1770
 1750 ifa$<>"n"then1730
 1760 a=3:b=3
 1770 a=int(a*rnd(ti)+1):b=int(b*rnd(ti)+1):print"{clr}{down}{down}{down} du hast geworfen...
 1780 print"{down}{down}{rght}{rght}{rght}{rght}"a"und ";
 1790 gosub2050:print"{rght}";b;:a=a+b:print"  = ";a:print"{down}{down}{down}":gosub2050
 1800 gosub2050:print"{clr}{down}{down}die wette war,er wuerde...."
 1810 b=int(2*rnd(ti)+1):ifb=2thenprint"{down}weniger werfen!!":goto1840
 1820 print"{down}mehr werfen!!":gosub2060:ifd>athen1860
 1830 goto1850
 1840 gosub2060:ifd<athen1860
 1850 print"{down}{down}verdammt!!....du hast gewonnen!":gosub2050:goto140
 1860 print"{down}{down}aha!! du hast verloren!":goto2070
 1870 print"{clr}{down}{down}{down}{down}{down}{down}"
 1880 printtab(10)left$(p$,12)
 1890 forn=1to2
 1900 printtab(10);"{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}":next
 1910 printtab(10);left$(p$,12);"    {CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1920 forn=1to2
 1930 printtab(10);"{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}":next
 1940 print"in "left$(p$,24)"  {CBM-+}"
 1950 printtab(10)"{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}exit"
 1960 forn=1to3
 1970 printtab(10)"{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}":next
 1980 printtab(10)"{CBM-+}  "left$(p$,18)
 1990 forn=1to2:printtab(10)"{CBM-+}"spc(8)"{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}":next
 2000 printtab(10)left$(p$,21)
 2010 pokep1,83
 2020 printtab(14);"{rvon}nightmare park
 2030 return
 2040 print"{home}";:forn=1to7:prints$:next:return
 2050 forn=1to2000:next:return
 2060 forn=1to4000:next:return
 2070 gosub2050
 2071 print"{clr}{down}{down}{rvon}nightmare park hat ein neues opfer!":print:print" {CBM-+} ":print"{CBM-+}{CBM-+}{CBM-+}
 2075 fora=1to2:print" {CBM-+}":next
 2080 gosub2120:print"{down}{down}nochmal, wahnsinniger ?
 2090 geta$:ifa$<>"n"anda$<>"j"then2090
 2100 ifa$="j"thenclr:goto110
 2110 end
 2120 forn=1to20:geta$:next:return
 2130 print"{clr}{down}du bist in den abgrund gefallen!!":goto2070
 2140 print"{clr}{down}{down}du hast ueberlebt!!...dieses mal!"
 2150 goto2080
    5 gosub40000
   10 poke6036,0:poke6037,0:ti$="000000"
   20 i=rnd(-ti):poke6034,rnd(3)*256:poke6035,rnd(9)*256
   50 print"{clr}{rvon}   night drive    time:    score:       ":gosub50000
   60 hi=peek(6038)+256*peek(6039)
  100 poke6020,0:poke6021,0:poke6027,20:poke6029,128
  110 fori=6045to6063:pokei,20:next:fori=6112to6143:pokei,0:next
  120 sys5773
  130 ifpeek(6020)thensys5786:goto500
  140 t=ti:ift>5400then1000
  150 t$=right$(str$(int((5400-t)/60)),2)
  160 print"{home}{rvon}"tab(23)t$tab(33)peek(6036)+256*peek(6037)
  170 goto130
  500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(15)"{rvon} bang !! "
  510 printtab(8)"{rvon}today's high-score:"hi
  520 fori=0to2000:next:print"{up}{up}"tab(15)"         "
  530 printtab(8)"                            "
  540 print"{up}"tab(15)"         ":sys5208::gosub50000:goto100
 1000 sc=peek(6036)+256*peek(6037):print"{home}{rvon}"tab(23)0tab(33)sc
 1005 ifsc>999andex=0then2000
 1010 sys5786:print"{down}{down}{down}{down}{down}{down}{down}{down}"tab(10);:fori=1to19:printmid$("{rvon} g a m e  o v e r ",i,1);
 1020 forj=0to100:next:next
 1030 ifhi>=scthen1060
 1040 poke6038,scand255:poke6039,sc/256
 1050 print:printtab(5)"{down}{rvon} you're today's high-scorer !! "
 1060 ifpeek(166)=255then1060
 1070 run
 2000 print"{home}{down}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} extended play {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 2010 ex=1:ti$="000045":goto130
 40000 print"{clr}    {rvon}{CBM-*}{rght}{rght} {rght}{rght} {rght}{rght}{SHIFT-POUND}  {CBM-*}{rght}{rght} {rght}{rght} {rght}{rght}    "
 40010 printtab(4)"{rvon} {CBM-*}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{CBM-K}{rvof}{CBM-K}"
 40020 printtab(4)"{rvon}  {CBM-*} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght} {rvof}{CBM-I}{CBM-I}{rvon} {rght}{rght}{rght}{CBM-K}{rvof}{CBM-K}"
 40030 printtab(4)"{rvon} {rvof}{CBM-*}{rvon}  {rght}{rght} {rght}{rght} {rght}  {rght}{rght} {CBM-I}{CBM-I} {rght}{rght}{rght}{CBM-K}{rvof}{CBM-K}"
 40040 printtab(4)"{rvon} {rght}{rvof}{CBM-*}{rvon} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght}{CBM-K}{rvof}{CBM-K}"
 40050 printtab(4)"{rvon} {rght}{rght}{rvof}{CBM-*}{rvon}{rght}{rght} {rght}{rght}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rght}{rght}{rvon} {rght}{rght} {rght}{rght}{rght}{CBM-K}{rvof}{CBM-K}"
 40055 print:print
 40060 printtab(10)"{rvon}   {CBM-*}{rght}{rght}   {CBM-*}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}    "
 40070 printtab(10)"{rvon} {rght}{rvof}{CBM-*}{rvon} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} "
 40080 printtab(10)"{rvon} {rght}{rght} {rght}{rght}   {rvof}{SHIFT-POUND}{rvon}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght} {rvof}{CBM-I}{CBM-I}{CBM-F}"
 40090 printtab(10)"{rvon} {rght}{rght} {rght}{rght} {rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght}{rght} {rght}{rght} {CBM-*}{SHIFT-POUND} {rght}{rght} {CBM-I}{CBM-I}{rvof}{CBM-V}"
 40100 printtab(10)"{rvon} {rght}{SHIFT-POUND} {rght}{rght} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght} {rght}{rght}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rght}{rght}{rvon} "
 40110 printtab(10)"{rvon}   {rvof}{SHIFT-POUND}{rght}{rght}{rvon} {rght}{rght}{rvof}{CBM-*}{rght} {rvon} {rght}{rght}{rght}{rvof}{CBM-*}{SHIFT-POUND}{rght}{rght}{rght}{rvon}    "
 40120 printtab(5)"{down}{down}developed by    ";
 40130 forn=1to19:printmid$("j.suzuki....hm-1025",n,1);:form=1to100:next:next
 40140 print"     {down}{rvon}a{rvof}-acceleration"
 40150 print"     {rvon}4{rvof}-handle left"
 40160 print"     {rvon}6{rvof}-handle right"
 40200 print"{down}   press any key to begin"
 40210 ifpeek(166)=255then40210
 40220 return
 50000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 50010 printtab(11)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvon}{SHIFT-POUND}        {CBM-*}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(10)"N   {rvon}{SHIFT-POUND}          {CBM-*}{rvof}   M"
 50020 printtab(9)"N   {rvon}{SHIFT-POUND}            {CBM-*}{rvof}   M":printtab(8)"N   {rvon}{SHIFT-POUND}              {CBM-*}{rvof}   M"
 50030 print"   {down}{CBM-N}0        {CBM-N}100      {CBM-N}200      {CBM-N}300
 50040 print"    {rvon}                                 {home}":return
   10 print"{clr}                  nim"
   20 print"                  {CBM-U}{CBM-U}{CBM-U}"
   30 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by d.j.wylie"
   40 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start:-"
   50 geta$:ifa$=""then50
   60 print"{clr}"
   70 print"there are several straws in a pile."
   80 print"we will take it in turns to take1,2 "
   90 print"or 3 straws."
  100 print"we must take at least 1 straw,"
  110 print"but not more than 3 straws"
  120 print"the object is to force you to take"
  130 print"the last straw"
  140 print:print:print"do you want first move ";
  150 inputa$
  160 ifleft$(a$,1)="y"theng=1:goto190
  180 g=2
  190 print"{clr}"
  200 print"do you want to choose how many straws we shall start with";
  210 inputa$
  220 ifleft$(a$,1)="y"then290
  260 s=int(rnd(ti)*254)+1
  270 ifs<20then260
  280 goto310
  290 print"choose a number between 19 and 255."
  300 inputs
  310 ifs<19ors>255then290
  320 s=int(s)
  330 ifg=2then650
  340 print
  350 print"there are "s" straws in the pile,how    many will you take ";
  360 inputy
  370 x=int(y)
  380 ifx<>ythen460
  390 ify>=1then420
  400 print:print:print"you must take at least 1 straw!"
  410 goto350
  420 ify<=3then450
  430 print:print:print"you must not take more than 3 straws!"
  440 goto350
  450 ify<=sthen480
  460 print:print:print"don't try to cheat!!!!!!":print:print
  470 goto350
  480 s=s-y
  490 ifs><1then590
  500 print
  510 print"you win!!!!!!!!"
  520 print
  530 print"do you want another go ";
  540 inputa$
  550 ifleft$(a$,1)="y"then140
  560 print"goodbye!!"
  570 end
  590 ifs<>0then630
  600 print
  610 print"      ********** i've won again ******"
  620 goto520
  630 print
  640 print"leaving "s" - ";
  650 forn=0to64
  660 m=1+4*n
  670 ifm>sthen690
  680 nextn
  690 l=s-m+4
  700 ifl<>0then820
  710 letp=int(rnd(ti)*3)+1
  720 ifp<1orp>3then710
  730 print" - i shall take "p
  740 s=s-p
  750 ifs<>5then780
  760 print
  770 print" i bet you're perspiring now!!"
  780 ifs<>1then340
  790 print
  800 print"that only leaves 1 and you must take it!"
  810 goto340
  820 p=l
  830 goto730
  840 end
   10 b=4:c=6:p=3:n=12
   20 dimt(b),g(b),s(b),p(b),d(b),x(b),y(b),a(b),f(b),n(b),n$(b)
   30 dimc1(c),c2(c),p1(p),nn$(b)
   50 deffns(ii)=s(ii)*(f(ii)>0)*(d(ii)<p(ii))*(1-(d(ii)/p(ii))^2)
  130 data1,7,9,12
  140 t2=0
  150 fori=0top:readp1(i):next
  170 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(2);"** north atlantic convoy raider **"
  171 print:printtab(10);"copyright 1980 by"
  172 print:printtab(13);"avalon hill"
  173 printtab(9);"microcomputer games"
  174 fori=0tob:readnn$(i),n$(i),t(i),g(i),s(i),p(i),d(i),f(i):next
  175 fori=1to3000:next
  180 print"{down}{down}{down}{down}{down}{down}{down}you are the captain of the ";n$(0);"."
  190 print"there are";b;"british battleships:"
  200 fori=1tob:printn$(i);" (";left$(n$(i),1);")":next
  210 fori=1to3000:next
  220 databis,bismarck,4,25,31,100,0,7
  230 datahood,hood,4,15,32,30,0,7
  240 datakgv,king george v,3,25,28.5,80,0,5
  250 datapow,prince of wales,2,25,28.5,80,0,7
  260 datarod,rodney,3,30,21,75,0,5
  261 datarep,repulse,3,15,33,25,0,7
  262 dataren,renown,3,15,33,25,0,7
  263 dataram,ramilles,4,15,21,55,0,5
  300 x(0)=n:y(0)=1:a(0)=3*~/4:fori=1tob
  310 x(i)=1+(n-2)*rnd(0):y(i)=2+(n-2)*rnd(0)
  320 a(i)=atn((x(i)-n)/(y(i)-1)):next
  330 fori=0toc:c1(i)=1+(n-1)*rnd(0)
  340 c2(i)=1+(n-3)*rnd(0):next:v1=0:v2=0:s0=0:q1=0:q2=0:q4=0
  350 d0=9+int(15*rnd(0)):t0=int(60*rnd(0)):t1=5+int(3*rnd(0))
  351 goto970
  360 print:printright$(str$(10000+100*t1+t0),4);d0;"may 1941"
  365 fori=1ton:m$=" . . . . . . . . . . . . . . . . . . . "
  366 m$=left$(m$,2*n+1)
  370 forj=0top:ifp1(j)=ithenm$=left$(m$,2*n-1)+"* "
  380 next:i9=0:ifint(y(0)+.5)=ithengosub1000
  390 ifs0<0then450
  400 fori9=1tob:ifint(y(i9)+.5)<>ithen420
  410 if(x(i9)-x(o))^2+(y(i9)-y(0))^2<=2thengosub1000
  420 next:fori9=0toc:ifint(c1(i9)+.5)<>ithen440
  430 if(c2(i9)-x(0))^2+(c1(i9)-y(0))^2<=2thengosub1050
  440 next
  450 printm$:next
  470 print:a=a(0)*180/~:a=int(360-a+.01):print"heading: ";
  475 printright$(str$(a+1000),3);"t";
  480 printtab(17);"speed:";int(fns(0));"kt"
  490 print"damage:";int(100*d(0)/p(0));"%";tab(17);"turrets:";t(0)
  500 print"fuel:";int(f(0)*24);"hrs";tab(17);"weather: ";:ifs0<0thenprint"fog"
  510 ifs0>=0thenprint"clear"
  570 input"command";c$
  580 ifc$="h"then610
  590 ifa9>.25then630
  591 input"how many hours this heading";t2
  600 t2=int(60*t2):ift2<=0then570
  601 goto630
  610 input"heading";a:a=360-a
  620 a(0)=a*~/180:goto590
  630 ifs0<0then750
  631 fork=1tob
  640 d8=y(k)-y(0):d9=x(k)-x(0)
  650 b8=fns(0)*cos(a(0)):b9=fns(0)*sin(a(0))
  660 d=sqr(d8*d8+d9*d9):d8=d8/d:d9=d9/d
  670 s8=-d9:s9=d9:b7=b8*s8+b9*s9
  680 ifabs(b7)>=fns(k)then730
  690 s6=sqr(fns(k)^2-b7*b7):s7=b7
  700 b6=b8*d8+b9*d9:ifs6<=b6then730
  710 a=d/(s6-b6):i=int(y(0)-a*b8):j=int(x(0)-a*b9)
  715 ifi<1ori>norj<1orj>nthen730
  720 s9=s7*s9+s6*d9:s8=s7*s8+s6*d8:goto740
  730 s9=d9:s8=d8
  740 ifs8=0thens8=1e-8
  741 a(k)=atn(s9/s8)
  745 ifs8<0thena(k)=a(k)+~
  746 next
  750 t3=30+int(30*rnd(0)):ift3>t2thent3=t2
  760 t2=t2-t3:t0=t0+t3:ift0<60then790
  770 t1=1+t1:t0=t0-60:ift1<24then790
  780 d0=d0+1:t1=0
  790 fork=0tob:b8=-fns(k)*sin(a(k)):b9=fns(k)*cos(a(k))
  800 x(k)=x(k)+b8*t3*1.8e-4:y(k)=y(k)-b9*t3*1.8e-4
  810 f(k)=f(k)-t3/1440:ifx(k)<.5then860
  811 ifx(k)>n+.5then870
  820 ify(k)<.5then840
  821 ify(k)<n+.5then890
  830 y(k)=n+.49:goto850
  840 y(k)=.51
  850 a(k)=3*~/2:ifb8<0thena(k)=~/2
  851 goto890
  860 ifx(k)>-50thenx(k)=.51
  861 goto880
  870 ifk<>0then875
  871 l=-1
  872 l=l+1:ifp1(l)=int(y(k)+.5)then2000
  873 ifl<pthen872
  875 x(k)=n+.49
  880 a(k)=0:ifb9<0thena(k)=~
  881 goto820
  890 next:iff(0)<=0then7500
  891 q5=0:fork=0toc:c2(k)=c2(k)-t3*1.8e-3:next
  900 m=-1:fork=1tob:d=(x(0)-x(k))^2+(y(0)-y(k))^2
  910 ifd>2then920
  911 s0=s0+1:ifs0<0then920
  912 printn$(k);:gosub1500
  913 ifs0=0orq4=0thengosub5000
  914 q4=1:q5=1
  915 ifd>1then920
  916 m=m+1:n(m)=k
  920 next:ifq4=1andq5=0thengosub6500
  921 q4=q5:ifm>=0ands0>=1then3000
  922 m=-1:q3=0:fork=0toc
  930 d=(x(0)-c2(k))^2+(y(0)-c1(k))^2:ifd>2then940
  935 s0=s0+1:ifs0<0then940
  936 print"convoy";:gosub1500:ifq1=0thengosub5000
  937 q1=1:q3=1:ifd>1then940
  938 m=m+1
  940 next:ifq1=1andq3=0thengosub6000
  941 q1=q3:ifm>=0ands0>=1then4000
  942 ifq2=1thengosub7000
  943 q2=0:r=rnd(0):ifr>.1andr<.9then990
  950 ifr<.5then970
  951 ift1>20ort1<4then990
  952 s0=s0+1-(s0<-2)
  955 ifs0<0then990
  960 print"aircraft";:gosub1500:ifs0=0thengosub5000
  961 goto990
  970 s0=s0+(s0>-5):ifs0>=0then990
  980 printn$(0);" encounters dense fog (";right$(str$(10000+100*t1+t0),4);")."
  985 ifs0=-1thengosub5000
  986 q1=0:q2=0:q4=0
  990 a9=.25:geta$:ifa$=""andt2>0then630
  991 goto360
 1000 c$=left$(n$(i9),1):x=int(x(i9)+.5)
 1005 ifx<1orx>nthenreturn
 1010 bi=0:ifmid$(m$,2*x,1)="."then1045
 1020 bi=-1:ifmid$(m$,2*x+bi,1)=" "then1045
 1030 bi=1:ifmid$(m$,2*x+bi,1)=" "then1045
 1040 return
 1045 m$=mid$(m$,1,2*x+bi-1)+c$+mid$(m$,2*x+bi+1):return
 1050 c$="c":x=int(c2(i9)+.5)
 1060 goto1005
 1500 print" spots ";n$(0);" (";right$(str$(10000+100*t1+t0),4);")."
 1510 return
 2000 printn$(0);" enters port.":restore:readx,x,x,x,m$,m$,x,x,x,x,x,x
 2010 v2=v2+20
 2020 a9=20*(.5-(1-d(0)/p(0))*f(0)/x)
 2030 ifa9<0thenv2=v2-a9
 2031 ifa9>=0thenv1=v1+a9
 2040 goto9000
 3000 q1=0:q2=0:t2=20+int(20*rnd(0)):print"surface combat with"
 3010 fori=0tom:k=n(i):printn$(k):next:ift(0)<=0then3300
 3020 input"target ship (e to evade)";t$
 3021 ifmid$(t$,1,1)="e"then3300
 3022 goto3030
 3025 ift(0)<=0then3050
 3026 input"target ship";t$
 3030 ta=0:fori=0tom:k=n(i):c$=left$(n$(k),len(t$)):ift$=c$andta=0thenta=k
 3031 next
 3032 k=ta:ifk>0then3050
 3040 print"no such ship.":goto3025
 3050 i9=k:i8=0:t=0
 3051 t=t+1:ift>t(0)then3115
 3052 r=rnd(0)/a9:ifr>1then3051
 3060 ifr>.25then3090
 3061 gosub3500
 3070 d(k)=d(k)+g(0)*sqr(rnd(0)):ifd(k)<p(k)then3080
 3075 gosub3700:goto3115
 3080 t(k)=t(k)-1:goto3051
 3090 d(k)=d(k)+g(0)*sqr(rnd(0))/4:gosub3600:ifd(k)<p(k)then3051
 3095 gosub3700
 3115 i9=0:i=-1
 3116 i=i+1:ifi>mthen3201
 3117 k=n(i):i8=k:t=0
 3118 t=t+1:ift>t(k)then3116
 3119 r=rnd(0)/a9
 3120 ift1>20ort1<4thenr=r*2
 3121 ifr>1then3118
 3130 ifr>.25then3160
 3131 gosub3500
 3140 d(0)=d(0)+g(k)*sqr(rnd(0)):ifd(0)>=p(0)then8000
 3150 t(0)=t(0)-1::ift(0)<0thent(0)=0
 3151 goto3180
 3160 d(0)=d(0)+g(k)*sqr(rnd(0))/4:gosub3600
 3170 ifd(0)>p(0)then8000
 3180 goto3118
 3201 s0=(m+1)*2:a9=sqr(a9):geta$:ifa$=""then630
 3202 goto360
 3300 d1=0:fori=0tom:k=n(i):d=fns(k):ifd>d1thend1=d
 3301 next
 3310 r=exp((fns(0)-d1)/8)*rnd(0):ifr<.5then3025
 3320 s0=-(3+m)*3:t2=0:goto980
 3500 print"major hit on ";n$(i9);:goto3610
 3600 print"minor hit on ";n$(i9);
 3610 ifm>0andi8>0then3630
 3620 print".":return
 3630 print" (from ";nn$(i8);")":return
 3700 printn$(i9);" blows up and sinks.":n(i)=n(m):m=m-1
 3710 x(i9)=-99:v1=v1+2*sqr(p(k)):ifm<0thenq4=0
 3711 return
 4000 q5=int(t(0)*t3/20):printq5;"sinkings in convoy."
 4001 ifq2=0thengosub5000
 4002 q2=1
 4010 v1=v1+q5/10:goto990
 5000 forl=0to1800:next:return
 6000 print"convoy no longer sighted.":goto5000
 6500 print"battleship out of contact.":goto5000
 7000 print"convoy no longer in gunnery range.":goto5000
 7500 ifs0<0then7700
 7501 ift1>20ort1<4then7600
 7510 print"wellington aircraft bomb the ";n$(0);".":goto8000
 7600 print"british submarine torpedoes the ";n$(0);".":goto8000
 7700 printn$(0);" hits an iceberg."
 8000 printn$(0);" rolls over and sinks."
 8010 v2=v2+5*sqr(p(0))
 9000 r=(v1+.01)/(v2+.01)
 9010 ifr<1then9020
 9011 printn$(0);:goto9030
 9020 print"british";:r=1/r
 9030 ifr>3then9050
 9031 ifr>1.5then9040
 9032 print" marginal";:goto9060
 9040 print" minor";:goto9060
 9050 print" major";
 9060 print" victory."
 9070 print:input"go again (y/n)";a$:restore:ifa$="y"then140
 9080 end
    0 clr:poke59468,12
    1 rem npack copyright (c) 1980 glen fisher
    4 :
    5 rem cursor #17 february 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 26 1980
   45 ifpeek(50000)=0thenprint"{down}{down}{down}{rvon}npack won't work with the old roms.":end
   90 pg$="npack":nm$="17":gosub62000
  100 readl,h
  105 print"{down}{down}now loading...
  110 fori=ltoh
  120 :readt:pokei,t
  130 nexti
  140 print"{down}npack is now ready for use. load the
  150 print"program you want to pack, and type
  160 print"{down}     sys(826)
  170 end
 1000 data 826, 987
 1010 data 169,1,133,85,133,87,169,4,133,86,133,88,160,0,177,85
 1020 data 145,87,200,192,4,208,247,160,0,177,87,200,17,87,240,96
 1030 data 160,4,169,0,133,84,177,85,201,32,208,14,36,84,112,10
 1040 data 48,8,230,85,208,240,230,86,208,236,145,87,200,201,0,240
 1050 data 29,36,84,112,225,48,10,201,143,208,6,169,64,133,84,208
 1060 data 213,201,34,208,209,165,84,73,128,133,84,76,96,3,152,72
 1070 data 160,1,177,87,133,86,136,177,87,133,85,24,104,101,87,145
 1080 data 87,170,200,165,88,105,0,145,87,133,88,134,87,76,70,3
 1090 data 24,165,87,105,3,133,42,165,88,105,0,133,43,162,0,189
 1100 data 216,3,157,111,2,232,224,4,208,245,142,158,0,96,67,76
 1110 data 82,13
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2:poke1022,128
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by glen fisher{down}
 62020 gosub60500
 62030 print"{down}remove blanks from programs
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=2:gosub60200
 62110 print"this program stores the npack program"
 62120 print"{down}into the 2nd cassette buffer."
 62130 print"{down}{down}the npack routine removes all blanks"
 62140 print"{down}from a program except those in quotes"
 62150 print"{down}and remarks. to run it, load the"
 62160 print"{down}program you want to pack, and type"
 62170 print"{down}{down}         sys(826)"
 62175 gosub60200
 62180 print"after a short delay, the pet will do a"
 62190 print"{down}clr command, and say ready. at that"
 62200 print"{down}point, the loaded program will be"
 62210 print"{down}packed (and nigh incomprehensible)."
 62220 print"{down}it will also likely be much smaller!"
 62230 print"{down}{down}npack remains available until you turn"
 62240 print"{down}off the pet, or until something else is"
 62250 print"{down}put in its place."
 62260 print"{down}note:  this version only works with the
 62270 print"{down}{rvon}new{rvof} roms.
 62290 gosub60200
 62300 return
    0 rem .mad.
   10 dimm%(63,1),ms%(63,1),s%(1),mb%(1),bb%(1),sb%(1),ab%(1),ba%(1),fa%(1),sa%(1)
   20 dimaa%(1),mt%(7),bf%(2),n$(1)
   25 s$="{rvof}c {rvof}m {rvof}b {rvof}s {rvof}a {rvof}* {rvof}. "
   30 q1%=0:q2%=0:am%=165:bf%(2)=0:w%=-100:fori=0to1:mb%(i)=0:bb%(i)=0
   40 sb%(i)=0:ab%(i)=0:ba%(i)=0:fa%(i)=0:sa%(i)=0:aa%(i)=0:bf%(i)=0:next
   50 deffnr(x)=int(x*rnd(0))
   60 deffnm8(x)=x-8*int(x/8)
  100 print"{home}{clr}{down}{down}{down}{down}{down}{down}{down}{down}";tab(13);"** nukewar **":print
  110 printtab(11);"copyright 1980 by":print:printtab(14);"avalon hill"
  120 printtab(10);"microcomputer games"
  130 print"{down}{down}{down}{down}{down}{down}{down}":input"your country";n$(0)
  140 input"enemy country";n$(1):y%=1955+fnr(10):m9%=fnr(33):y0%=y%
  200 fori=1956toy%:am%=int(.91*am%):next:fori=0to63:forj=0to1:m%(i,j)=0
  210 ms%(i,j)=0:next:next:fori=0to1:forj=1to10
  280 l=fnr(64):ifm%(l,i)then280
  285 m%(l,i)=1-(j>8)-(j>9):next:next
  300 y%=y%+1:gosub13000:am%=int(.91*am%):input"cold war orders";a$
  310 ifa$="w"then550
  315 b%=2:s%(0)=8:ifa$="s"thenb%=1:s%(0)=24
  320 iffnr(100)<y%-y0%then590
  335 i=0:forj=1tob%
  340 input"base to build";a$
  350 t%=-2*(a$="m")-3*(a$="b")-4*(a$="s"andy%>1964)-5*(a$="a"andy%>1969)
  360 ift%=0thenprint"improper type":goto340
  370 input"locate base at";a$:gosub5400:ifl=-1then385
  380 ifm%(l,i)=0and(t%<>4orl<9orl>54orfnm8(l+1)<2)then390
  385 print"improper location.":goto370
  390 m%(l,i)=t%:next
  400 b%=1:s%(1)=24:iffnr(10)>0thenb%=2:s%(1)=8
  410 i=1:j=0
  420 j=j+1:i1%=2:iffnr(100)<m9%then427
  421 ify%<1965theni1%=2-(fnr(4)<3)
  422 ify%>1964andy%<1970thenl=fnr(9):i1%=2-(l<8)-(l<5)
  425 ify%>1969thenl=fnr(16):i1%=2-(l<15)-(l<12)-(l<7)
  427 k%=0
  430 k%=k%+1
  435 l=fnr(64):ifi1%=4andl>8andl<55andfnm8(l+1)>1then435
  440 ifm%(l,i)=0then450
  441 ifk%=20then580
  442 goto430
  450 m%(l,i)=i1%:ifj<b%then420
  460 fori=0to1:forj=1tos%(-(i=0)):l=fnr(64):ms%(l,i)=m%(l,i):next:next
  480 fori=0to1:forl=0to63:t%=m%(l,i):iffnr(500)>0ort%<2ort%>5then540
  490 print"{rvon}nuclear accident{rvof}-";n$(i)
  500 gosub10005:i=-(i=0)
  505 r%=-1+fnr(3):if(r%=-1andfnm8(l)=0)or(r%=1andfnm8(l)=7)then540
  510 u%=-1+fnr(3):if(u%=-1andl<8)or(u%=1andl>55)then540
  515 ifr%=0andu%=0then540
  520 l=l+r%+8*u%:gosub10005:l=l-r%-8*u%:i=-(i=0)
  540 next:next:q2%=0:goto300
  550 q1%=1:su%=0:iffnr(4)>0then600
  551 print"order to first strike has disobeyed."
  552 iffnr(100)<y%-y0%then590
  553 q1%=0:goto400
  580 y%=y%+1
  590 q2%=1
  600 print"{rvon}{rght}{rght} hot war hot war {rvof}"
  620 q3%=q1%:q4%=q2%:ifs%(0)=24thenq1%=1
  625 q%=q1%:w%=0
  630 fori=0to1:forl=0to63:t%=m%(l,i):ift%<2ort%=6then730
  635 ont%-1goto640,660,680,700
  640 mb%(i)=mb%(i)+1:goto730
  660 iffnr(10)>=1+2*q%thenbb%(i)=bb%(i)+1:goto730
  670 p%=5+fnr(4):c%=fnr(p%+1):p%=p%-c%:ba%(i)=ba%(i)+p%:fa%(i)=fa%(i)+c%:goto720
  680 iffnr(10)>=1+2*q%thensb%(i)=sb%(i)+1:goto730
  690 sa%(i)=sa%(i)+1:goto720
  700 iffnr(100)>=25+25*q%thenab%(i)=ab%(i)+1:goto730
  710 aa%(i)=aa%(i)+5+fnr(4)
  720 gosub7040
  730 next:q%=q2%:next
  740 ifbb%(0)+mb%(0)+sb%(0)+ab%(0)=0thenq1%=0
  750 ifbb%(1)+mb%(1)+sb%(1)+ab%(1)=0thenq2%=0
  800 ifq1%<1then920
  805 i=0:gosub13000:gosub5500
  850 input"base to activate";a$:gosub5400
  860 ifl=-1thenprint"wrong location.":goto850
  870 t%=m%(l,i):ift%<2ort%=6thenl=-1:goto860
  875 ont%-1goto880,890,900,910
  880 gosub6000:goto920
  890 gosub7000:goto915
  900 gosub8000:goto915
  910 gosub9000
  915 gosub5500
  920 ifq2%<1then980
  921 i=1:l=fnr(64)
  930 l=l+1:l=-l*(l<64):t%=m%(l,i):ift%<2ort%=6then930
  935 ont%-1goto940,950,960,970
  940 gosub6000:goto980
  950 gosub7000:goto980
  960 gosub8000:goto980
  970 gosub9000
  980 fori=0to1:if(i=0andq1%=0)or(i=1andq2%=0)then1050
  985 forl=0to63:t%=m%(l,i):ift%<2ort%=6then1040
  990 ont%-1goto1000,1010,1020,1030
 1000 iffnr(100)>14then1040
 1003 ifi=0thengosub13000
 1005 gosub6000:goto1040
 1010 iffnr(10)then1040
 1013 ifi=0thengosub5500
 1015 gosub7000:goto1035
 1020 iffnr(100)>4then1040
 1025 gosub8000:goto1035
 1030 iffnr(100)>24then1040
 1033 gosub9000
 1035 ifi=0thengosub5500
 1040 next
 1050 next
 1060 fori=0to1:p7%=sa%(i):ifp7%=0then1105
 1061 forp8=1top7%
 1065 iffnr(100)>=5*w%then1100
 1066 j=5+fnr(4):sa%(i)=sa%(i)-1
 1070 ifi=1then1090
 1071 gosub13000:print"missile sub";sb%(i)+sa%(i)+1;"on station."
 1080 printj;"missiles to fire."
 1085 print"targets";
 1090 gosub6030
 1100 next
 1105 next
 1110 fori=0to1:iffnr(10)>=w%orba%(i)=0then1220
 1120 ifba%(i)<5thenj=ba%(i)
 1122 ifba%(i)>=5thenj=4+fnr(ba%(i)-3)
 1123 ba%(i)=ba%(i)-j
 1130 printj;"bombers attack ";n$(-(i=0));"."
 1140 ifi=1andfa%(0)+aa%(0)>0thenprint"{rvon}air defense alert!{rvof}"
 1150 iffa%(-(i=0))=0then1170
 1151 iffnr(10)<9thenj=j-1
 1152 ifj=0then1210
 1160 iffnr(10)<8thenfa%(-(i=0))=fa%(-(i=0))-1
 1161 goto1150
 1170 ifaa%(-(i=0))=0then1190
 1171 iffnr(2)thenj=j-1
 1181 ifj=0then1210
 1182 goto1170
 1190 printj;"bombers survive over ";n$(-(i=0));"."
 1200 forj2=1toj:gosub12010:gosub10000:next:gosub13000:gosub5500:gosub1220
 1210 print"all bombers destroyed by airdefense":gosub5500
 1220 next
 1230 q%=0:q5%=sa%(0)*6+ba%(0):q6%=sa%(1)*6+ba%(1)
 1235 fori=0to1:q2%=0:mb%(i)=0:bb%(i)=0:sb%(i)=0:ab%(i)=0:forl=0to63
 1240 t%=m%(l,i):ift%<2ort%=6then1300
 1241 ont%-1goto1250,1260,1270,1280
 1250 mb%(i)=mb%(i)+1:goto1290
 1260 bb%(i)=bb%(i)+1:goto1290
 1270 sb%(i)=sb%(i)+1:goto1290
 1280 ab%(i)=ab%(i)+1
 1290 q%=q%+1:q2%=q2%+1
 1300 next:next:q1%=q%-q2%:q%=3*q%+q5%+q6%:q5%=q1%+q5%/3:q6%=q2%+q6%/3
 1305 ifq%=0then1370
 1310 w%=w%+1:iffnr(2)=1then800
 1320 print"the premier of ";n$(1):print"is on the hot line."
 1330 input"wish to negotiate";a$
 1340 ifa$<>"y"then800
 1341 if100*(q5%+1)/(q6%+1)>fnr(100)thenprint"negotiations succeed.":goto1380
 1350 print"negotiations fail.":goto800
 1370 print"all weapons are expended."
 1380 print"{rvon}nuclear war is over{rvof}."
 1390 w%=-10
 1400 q%=0:fori=0to1:p2%=0:forl=0to63:t%=m%(l,i):ms%(l,i)=m%(l,i):ift%=6then1420
 1410 q%=q%+1:p2%=p2%+1:ift%=1thenq%=q%+10:p2%=p2%+10
 1420 next:next:gosub13000:p1%=q%-p2%:iffnr(2)*q3%>0then1430
 1421 q3%=0
 1430 iffnr(2)*q4%>0then1440
 1431 q4%=0
 1440 ifq3%>0thenprint"world opinion is against ";n$(0);"."
 1450 printn$(0);"'s population:";p1%;"{left},000,000"
 1460 ifq4%>0thenprint"world opinion is against ";n$(1);"."
 1470 printn$(1);"'s population:";p2%;"{left},000,000"
 1480 s%=(p1%+1)*(q4%+1):r%=(p2%+1)*(q3%+1):ifs%>r%then1490
 1485 r%=10*r%/s%:s%=1:p%=p2%:goto1500
 1490 r%=10*s%/r%:s%=0:p%=p1%
 1500 ifp%<29then1510
 1501 ifr%>=30then1520
 1502 ifr%>=20then1530
 1503 ifr%>=15then1540
 1510 print"neither country gains advantage.":goto1560
 1520 print"{rvon}total{rvof}";:goto1550
 1530 print"major";:goto1550
 1540 print"minor";
 1550 print" victory for ";n$(s%);"."
 1560 input"again (y/n)";a$:ifa$<>"y"thenend
 1570 goto30
 5400 iflen(a$)<2then5420
 5401 l=asc(mid$(a$,2,1))-49:ifl<0orl>7then5420
 5402 k%=asc(mid$(a$,1,1))-65:ifk%<0ork%>7then5420
 5410 l=8*l+k%:return
 5420 l=-1:return
 5500 ifbb%(0)+ba%(0)>0thenprint"bombers airborne:      {left}{left}{left}";ba%(0)
 5510 ifbb%(0)+fa%(0)>0thenprint"fighters airborne:     {left}{left}{left}";fa%(0)
 5520 ifsb%(0)+sa%(0)>0thenprint"missile subs at sea:   {left}{left}{left}";sa%(0)
 5530 ifab%(0)+aa%(0)>0thenprint"abm's on alert:        {left}{left}{left}";aa%(0)
 5540 return
 6000 j=5+fnr(4):gosub7040:mb%(i)=mb%(i)-1:ifi=1then6030
 6010 printj;"missiles ready at base";mb%(0)+1;"."
 6020 print"targets";
 6030 forj2=0toj-1:oni+1gosub11000,12000
 6032 mt%(j2)=l:next:print
 6035 ifi=1andaa%(0)>0thenprint"abm alert! "
 6037 ifi=1thenprint"{rvon}incoming icbm's!!{rvof}"
 6040 forj2=0toj-1:l=mt%(j2):ifaa%(-(i=0))=0orfnr(10)=0then6060
 6050 aa%(-(i=0))=aa%(-(i=0))-1:iffnr(10)>0then6090
 6060 iffnr(100)>am%then6080
 6061 r%=-1+fnr(3):u%=-1+fnr(3)
 6070 if(r%=-1andfnm8(l)=0)or(r%=1andfnm8(l)=7)then6090
 6075 if(u%=-1andl<8)or(u%=1andl>55)then6090
 6076 l=l+r%+8*u%
 6080 gosub10000
 6090 next
 6091 gosub13000:gosub5500:return
 7000 j=5+fnr(4):p%=fnr(j+1):ifi=1then7030
 7010 printj;"planes ready at airbase";bb%(0);".":bb%(0)=bb%(0)-1
 7020 input"number as fighters";p%:ifp%>jthenp%=j
 7025 ifp%<0thenp%=0
 7030 ba%(i)=ba%(i)+j-p%:fa%(i)=fa%(i)+p%
 7040 m%(l,i)=0:return
 8000 ifi=0thenprint"missile sub";sb%(0);"at sea."
 8010 gosub7040:sa%(i)=sa%(i)+1:sb%(i)=sb%(i)-1:return
 9000 ifi=0thenprint"abm base";ab%(0);"activated."
 9010 gosub7040:aa%(i)=aa%(i)+5+fnr(4):ab%(i)=ab%(i)-1:return
 10000 i=-(i=0)
 10005 t%=m%(l,i):ifiand(t%>1)and(t%<6)thenq2%=q2%-1
 10008 m%(l,i)=6:ms%(l,i)=6:i=-(i=0):return
 11000 print":";
 11010 getb$:ifb$=""then11010
 11020 r%=asc(b$):ifr%<65orr%>72then11010
 11030 l=r%-65:printb$;
 11040 getb$:ifb$=""then11040
 11050 r%=asc(b$):ifr%>48andr%<57then11070
 11060 ifnot(r%=20orr%=157)then11040
 11065 print"{left} {left}";:goto11010
 11070 printb$;
 11080 getb$:ifb$=""then11080
 11090 u%=asc(b$):ifu%=13thenl=l+8*(r%-49):return
 11100 ifu%<>20andu%<>157then11080
 11110 print"{left} {left}";:goto11040
 12000 i1%=0:goto12030
 12010 i1%=1
 12030 l1%=fnr(64):l=l1%:ifbf%(i-(i1%=0))>1thenreturn
 12040 l=l+1:l=-l*(l<64):t%=ms%(l,-(i=0)):ifi1%=1thent%=m%(l,-(i=0))
 12051 if(t%>0orbf%(i-(i1%=0))>0)andt%<>6thenreturn
 12060 ifl<>l1%then12040
 12061 bf%(i-(i1%=0))=bf%(i-(i1%=0))+1:ifbf%(i-(i1%=0))=1then12030
 12070 l=fnr(64):return
 13000 print"{clr}{home}":printtab(4);n$(0);tab(25);n$(1):printtab(17);y%
 13010 ifw%=-100thenprinttab(16);"cold war"
 13020 ifw%>=0thenprinttab(16);" {rvon}hot war{rvof}"
 13030 print:a$="a b c d e f g h":printtab(3);a$;tab(22);a$
 13040 fori9=1to8:printi9;:forj9=1to8:k9=8*i9+j9-9
 13050 printmid$(s$,(m%(k9,0)*3-2)-21*(m%(k9,0)=0),3);
 13055 next:printi9;
 13060 forj9=1to8:k9=8*i9+j9-9
 13070 printmid$(s$,(ms%(k9,1)*3-2)-21*(ms%(k9,1)=0),3);
 13075 next:print:next:return
    1 print"{clr}"
  100 rem         number-toe            .
  110 rem   a game invented by murry suid
  120 rem    programmed by jose gutierrez
  200 gosub 1000:rem instructions
  300 gosub 2000:rem grid setup
  400 gosub 3000:rem accept  input
  410 ift<3goto400
  600 gosub 5000:rem check for win
  605 ifww=1thengoto700
  610 ift<9goto400
  620 gosub5800
  700 gosub 6000:rem score & stop?
  710 ifcs=1thengoto300
  900 end
 1000 rem   instructions
 1010 print"number-toe is a game for two players."
 1020 print"{down}{down}it is played like tic tac toe."
 1030 print"{down}instead of {rvon}x{rvof}'s and {rvon}o{rvof}'s you use numbers   from 0 to 9."
 1040 print"{down}the first person to make two numbers add up to the third in a ro";
 1045 printtab(24);"w, column, or    diagonal is the winner."
 1050 print"{down}you may not play in the center square on the first turn."
 1060 print"{down}once a number is played you can't use it again."
 1070 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}press any key to go on{rvof}"
 1080 getp$:ifp$=""goto1080
 1090 print"{clr}{down}{down}{down}{rght}{rght}{rght}type in first person's name."
 1100 inputpl$(1)
 1110 print"{down}{rght}{rght}{rght}type in second person's name."
 1120 inputpl$(2)
 1130 lettpl$(1)=pl$(1):lettpl$(2)=pl$(2)
 1199 return
 2000 print"{clr}":  rem   grid setup
 2001 dimx$,n:lett=0:letww=0
 2003 :fori=1to3:rem  fills cells
 2004 ::forj=1to3:letch(i,j)=999
 2005 ::nextj
 2006 :nexti
 2007 d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 2008 l$="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
 2009 u$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
 2010 ifcs=0goto2200
 2020 rem    same player first???
 2030 print"{clr}{down}{down}{down}{down}same player first?
 2040 getpl$(3):ifpl$(3)=""thengoto2040
 2050 ifpl$(3)<>"y"thenpl$(4)=pl$(1):pl$(1)=pl$(2):pl$(2)=pl$(4)
 2200 rem grid printing
 2210 print"{clr}";  left$(d$,6)
 2220 g$(1)="O{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}P"
 2230 g$(2)="{CBM-G}    {CBM-G}    {CBM-G}   {CBM-M}"
 2232 g$(3)=g$(2):g$(4)=g$(2)
 2240 g$(5)="{CBM-G}a   {CBM-G}b   {CBM-G}c  {CBM-M}"
 2250 g$(6)="{CBM-G}d   {CBM-G}e   {CBM-G}f  {CBM-M}"
 2260 g$(7)="{CBM-G}g   {CBM-G}h   {CBM-G}i  {CBM-M}"
 2270 g$(8)="{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 2300 :forn=5to7
 2310 ::fori=1to4
 2320 ::printtab(20);g$(i)
 2330 ::nexti
 2340 :printtab(20);g$(n)
 2350 :nextn
 2355 printtab(20);g$(8)
 2390 return
 3000 rem accept input
 3001 rem x$(t)is letter input
 3010 t=t+1:rem  t is input item number
 3012 i=2:if2*int(t/2)-t<0theni=1
 3015 print"{home}{down}{down}{down}{down}which {rvon}space{rvof} ";pl$(i);"?           ";
 3020 getx$(t):ifx$(t)=""goto3020
 3111 ift=1andx$(1)="e"thengosub8500:goto3015
 3112 ifx$(t)>"i"orx$(t)<"a"then gosub8500:goto3015
 3114 ift=1goto3160
 3130 :forp=1tot-1
 3140 ::ifx$(t)=x$(p)thengosub8000:goto3015
 3150 :nextp
 3160 gosub4000:rem places input
 3180 print"{home}{down}{down}{down}{down}which number?                 ";
 3200 gosub9500:rem flashing routine
 3202 ifnu$="0"then nu=0:goto3210
 3203 ifval(nu$)=0 then gosub 8500:goto3015
 3205 nu=val(nu$)
 3210 n(t)=nu:rem n(t) stores used values
 3228 ift=1goto3260
 3230 :fork=1tot-1:rem checks repeats
 3240 ::if nu=n(k)thengosub8000:goto3015
 3250 :next
 3260 print"{home}";left$(d$,md):printtab(ma);nu
 3270 lety=(md-3)/5:letz=(ma-16)/5
 3280 ch(y,z)=nu
 3999 return
 4000 rem   defines tab values
 4100 ifx$(t)>="a" and x$(t)<"d"then let md=8
 4110 ifx$(t)>="d" and x$(t)<"g"then let md=13
 4120 ifx$(t)>="g" and x$(t)<"j"then let md=18
 4140 ifx$(t)="a"orx$(t)="d"orx$(t)="g" then let ma=21
 4150 ifx$(t)="b"orx$(t)="e"orx$(t)="h" then let ma=26
 4160 ifx$(t)="c"orx$(t)="f"orx$(t)="i" then let ma=31
 4170 return
 5000 rem  check for winn
 5001 rem  y is row **z is column
 5100 letxx=ch(y,1):letyy=ch(y,2):letzz=ch(y,3)
 5110 ifxx+yy+zz<999thengosub5700
 5120 letxx=ch(1,z):letyy=ch(2,z):letzz=ch(3,z)
 5130 ifxx+yy+zz<999thengosub5700
 5140 ify=zthenxx=ch(1,1):yy=ch(2,2):zz=ch(3,3):ifxx+yy+zz<999thengosub5700
 5150 ify+z=4thenxx=ch(1,3):yy=ch(2,2):zz=ch(3,1):ifxx+yy+zz<999thengosub5700
 5160 return
 5700 rem tests three cells for a win
 5710 ifxx+yy=zzthengosub5900
 5720 ifxx+zz=yythengosub5900
 5730 ifyy+zz=xxthengosub5900
 5750 return
 5800 rem  flashes tie game
 5805 fork=ito10
 5810 print"{home}{down}{down}{down}{down}it's a tie    ":gosub9800
 5820 print"{up}          ":gosub9800
 5830 nextk
 5840 rem ****score for tie here*****
 5850 tt=tt+1
 5860 return
 5900 rem flashes a winner
 5920 fork=1to10
 5930 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";pl$(i);" wins!":gosub9800
 5940 print"{up}                    ";:gosub9800
 5950 nextk
 5960 letww=1
 5965 ifpl$(i)=tpl$(1)thent1=t1+1
 5970 ifpl$(i)=tpl$(2)then t2=t2+1
 5980 return
 6000 rem give score & continue or stop
 6005 print"{clr}"
 6010 printtpl$(1);"  has";t1;" points"
 6020 printtpl$(2);"  has";t2;" points"
 6030 print"there are";tt;" ties"
 6200 print"{down}{down}{down}{down}would you like to play again?"
 6210 getcs$:ifcs$=""goto6210:letcs=0
 6220 if cs$<>"n" then cs=1:return
 6225 print"{clr}goodbye then!":end
 6230 return
 7999 end
 8000 rem   reject for repeats
 8005 print"{home}";left$(d$,4):printtab(15);"can't use that again":gosub9000
 8010 print"{up}                                      "
 8040 return
 8500 rem  reject for out of range
 8510 print"{home}";left$(d$,4): printtab(15);" not acceptable":gosub9000
 8520 print"{up}                                       "
 8560 return
 9000 lettm=ti
 9010 ifti<tm+120goto9010
 9020 return
 9500 rem  flashing routine
 9510 getnu$:ifnu$=""goto9530
 9520 return
 9530 print"{home}"left$(d$,md+2): printtab(ma);" {left}";
 9540 gosub9800
 9550 printx$(t);
 9560 gosub9800
 9570 goto9510
 9800 rem   timing for flashing
 9810 lettm=ti
 9820 ifti<tm+10goto9820
 9830 return
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(7)"{rvon}off-the-wall"
    2 print:print"copyright 1978, commodore business      machines inc.
    3 forzz=1to1500:nextzz
   10 px=1:dimpm%(9),n%(9),ps%(9)
   15 pp=10:print"{clr}{down}{down}{down}{rght}{rght}     {rvon}off-the- wall"
   20 print"{down}{down}do you want instructions (y/n)? ";:gosub2011
   24 ifa$="y"thengosub900
   30 print"{down}length of each game (1-9 minutes)? ";:gosub2021:tt=3600*x
   34 print"{down}number of players (1-9)? ";:gosub2021:py=x
   36 print"{down}{rvon}press return after each name":gosub2100
   38 print:print:printtab(7)"{rvon}press return to begin"
   40 geta$:ifa$<>chr$(13)then40
   42 ty=ti+tt:pl=pl+1:ifpl>pythenpl=1
   45 b$="{rvon}                                        ":v$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   50 s=10:pk=33268:d=1:rem  **  draw border *
   60 print"{clr}";b$;:fori=1to22:print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";
   70 next:printb$;
   72 print"{up}{rvon}player"pl" - "left$(pn$(pl),10)"   difficulty ="n%(pl);
   79 fori=1ton%(pl)^1.33
   80 t=int(rnd(ti)*900+32768)
   85 if(peek(t)<>32)or((33247<t)and(t<33288))then80
   90 poket,42:next
  100 ifpeek(pe)=81thenpokepe,32
  120 pe=pk:geti$:ifi$<>""then500
  125 lk=peek(pk+d):iflk<>32then300
  130 pk=pk+d:pokepk,81:goto100
  300 iflk=78thenpk=pk+d:d=d-sgn(d)*41:goto721
  305 iflk=77thenpk=pk+d:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40):goto721
  310 d=-d:s=c:print"{home}{rvon}        "s"{left}    "tab(30)"{home}{rvon}"spc(30)int((ty-ti)/60)"{left} sec ";
  314 c=0:ifpeek(pk-d)=42thens=0:goto45
  316 ifti<tythen100
  318 ifti>=tythen800
  320 ifti>ty-30then"{home}"spc(30)"30 s warning!":goto100
  500 ifti>tythen800
  502 ifi$="n"then600
  503 ifi$="m"then700
  510 goto125
  600 pp=pp+10:pokepk,78:d=d-sgn(d)*41:goto721
  700 pp=pp+10:pokepk,77:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40)
  721 c=c+10:print"{home}{rvon}";c;"{left}   ";:ifc<=ppthen100
  740 s=0:c=0:pp=10:goto45
  800 ps%(pl)=s:pm%(pl)=int((pm%(pl)*(px-1)+s)/px)
  820 print"{clr}{down}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  822 print"{rght}{rght}{rght}{rvon}{SHIFT--}  player   {SHIFT--} dif {SHIFT--} score {SHIFT--} avrge {SHIFT--}"
  826 print"{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  828 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  830 fori=1topy
  832 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof} "pn$(i)n%(i)" {SHIFT--} "ps%(i)tab(29)"{SHIFT--} "pm%(i)tab(37)"{rvon}{SHIFT--}"
  834 next
  836 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  838 print"{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
  840 printspc(10)"{rvon}this is game number"px
  844 print"{home}";:forkk=1to4+pl:print"{down}";:next:print"{rght}{rght}{rght}{rght}*":forkk=pltopy:print"{down}";:next
  850 ifpl=pythengosub2300:fori=1topy:ps%(i)=0:next:px=px+1:goto38
  860 print"{down}{down}{down}{down}"spc(8)"{rvon}press return to continue":goto40
  900 poke59468,14:print"{clr}             {rvon}instructions"
  905 print"{down}{down}tHE OBJECT OF{$a0}off-the-wall IS TO MAKE"
  910 print"THE{$a0}BALL BOUNCE{$a0}OFF{$a0}AS{$a0}MANY{$a0}PADDLES IN"
  920 print"A{$a0}ROW{$a0}AS{$a0}POSSIBLE{$a0}BEFORE{$a0}IT HITS{$a0}A{$a0}WALL."
  930 print"{down}yOU{$a0}CREATE{$a0}PADDLES{$a0}BY{$a0}PRESSING{$a0}m AND{$a0}n."
  960 print"{down}               {rvon}warning"
  970 print"tHERE{$a0}ARE CACTUS{$a0}PLANTS{$a0}IN{$a0}THE{$a0}COURT. iF";
  980 print"YOU{$a0}HIT{$a0}ONE, IT{$a0}PUNCTURES{$a0}THE{$a0}BALL, AND"
  985 print"     {rvon}you have to start all over!"
  990 print"{down}tHE{$a0}SCORE{$a0}IS{$a0}SHOWN{$a0}IN{$a0}THE{$a0}UPPER{$a0}LEFT"
 1000 print"CORNER{$a0}OF{$a0}THE{$a0}SCREEN{$a0}AND{$a0}THE{$a0}NUMBER{$a0}OF"
 1010 print"SECONDS LEFT{$a0}IN{$a0}THE{$a0}GAME{$a0}IN{$a0}THE{$a0}UPPER"
 1020 print"RIGHT{$a0}CORNER."
 1050 print"{down}{down}      {rvon}press return to continue{rvof}"
 1060 getr$:ifr$<>chr$(13)then1060
 1070 print"{clr}":poke59468,12:return
 2011 fori=1to100:geta$:ifa$<>""then2015
 2013 next:print"{rvon} {left}";:fori=1to100:geta$:ifa$<>""then2015
 2014 next:print"{rvof} {left}";:goto2011
 2015 ifa$<>"y"anda$<>"n"then2011
 2016 printa$:return
 2021 fori=1to100:geta$:ifa$<>""then2025
 2023 next:print"{rvon} {left}";:fori=1to100:geta$:ifa$<>""then2025
 2024 next:print"{rvof} {left}";:goto2021
 2025 ifa$<"1"ora$>"9"then2021
 2026 print"{rvof}"a$:x=val(a$):return
 2100 print"{down}":fork=1topy:print"name of player"k"? {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 2102 gosub2200
 2110 print:print"difficulty level for player"k"(1-9)? ";:gosub2021:n%(k)=x
 2120 next:return
 2200 b$=""
 2210 forj=1to50:geta$:ifa$<>""then2220
 2212 next:print"{rvon}{CBM-@}{left}";:forj=1to50:geta$:ifa$<>""then2220
 2214 next:print"{rvof}{CBM-@}{left}";:goto2210
 2220 a=asc(a$):ifa=13thenprint"{rvof}{CBM-@}";:goto2250
 2222 ifa=20andlen(b$)>1thenb$=left$(b$,len(b$)-1):print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto2210
 2224 ifa=20andlen(b$)=1thenb$="":print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto2210
 2226 ifa=32or(64<aanda<98)thenprint"{rvof}"a$;:b$=b$+a$:iflen(b$)>9then2250
 2228 goto2210
 2250 b$=b$+"          ":pn$(k)=left$(b$,10)+"{SHIFT--} ":return
 2300 print"{down}{down}{down}{down}"spc(4)"{rvon}change difficulties (y/n)?{rvof} ";:gosub2011
 2310 ifa$="n"thenreturn
 2320 print"{clr}{down}{down}{down}player number? ";:gosub2021:xx=x:ifx>pythen2320
 2328 a$=pn$(xx):aa=10
 2330 ifmid$(a$,aa,1)=" "andaa>1thenaa=aa-1:goto2330
 2332 a$=left$(a$,aa)+"'s ":print"{down}{down}"a$"current difficulty is"n%(xx)
 2334 printspc(len(a$))"average score is"pm%(xx)
 2336 printspc(len(a$))"score last game was"ps%(xx)
 2340 print"{down}new difficulty level (1-9)? ";:gosub2021:n%(xx)=x
 2350 print:print"{down}change another (y/n)? ";:gosub2011:ifa$="y"then2320
 2360 return
 63999 end:rem"end of off-the-wall property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   10 sys(1049) : mr nop
   10 sys(1049) : mr nop
   10 sys(1049) : mr nop
    1 print"{clr}this game took approximately one week
    2 print"to code. there were a lot of bugs in
    3 print"the game that i had to iron out.
    4 print"{down}after coding three versions for the
    5 print"three different pets, vice emulator
    6 print"decided to corrupt all of my .d64 files
    8 print"thankfully i had backups.
   10 print"overall it's a fun little game.
   12 print"{down}greetings to tpug members who keep the
   13 print"8-bit alive. they were wonderful times.
   14 print"{down}{down}
   20 print"nopsoftware@hotmail.com
  100 goto100
    4 rem 632 orion
    1 rem
    2 gosub424
    4 print"{clr}":fori=1to20:print:next
    6 dim a%(15):b=32768:z=40:v=32968
    8 q=20:m=2:m1=16:m2=7:m3=10:v2=41:poke59467,16:poke59466,15:poke59464,0
   10 n=33457:dimh(11):gosub230:gosub392
   12 gosub14:goto24
   14 printtab(m)"M{CBM-@}{CBM-P}{CBM-O}{CBM-I}        {CBM-I}{CBM-O}{CBM-P}{CBM-@}N
   16 printtab(m)"{CBM-T}{CBM-T}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-P}{CBM-@}{CBM-Y}{CBM-Y}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{CBM-U}"
   18 printtab(m1)"{up}{CBM-U}{CBM-Y}{CBM-T}{CBM-T}"
   20 printtab(m2)"{up}{up}{rvon}{CBM-U}{CBM-Y}{CBM-T}{$a0}{$a0}{CBM-T}{CBM-Y}{CBM-U}"
   22 return
   24 :
   26 gosub28:gosub38:goto56
   28 printtab(m3)"{down}{rvon}{CBM-G}{CBM-M}"
   30 printtab(m3)"{rvon}{CBM-H}{CBM-N}"
   32 printtab(m3)"{rvon}{CBM-J}{CBM-L}
   34 printtab(m3)"{CBM-L}{CBM-J}
   36 return
   38 print"{up}";:gosub50
   40 printtab(m3)"  ";:print"{up}{up}":gosub50
   42 printtab(m3)"  ";:print"{up}{up}":gosub50
   44 printtab(m3)"  ";:print"{up}{up}":gosub50
   46 printtab(m3)"  ":gosub50
   48 return
   50 ti$="000000"
   52 ifti>60thenreturn
   54 goto52
   56 :
   58 gosub60:goto82
   60 print:print:print:print:print:print:print:print:print:print:print:print:print:print:print:print:print
   62 fori=1to15:x=int(rnd(1)*1001)
   64 ifpeek(x+b)=32thena%(i)=x:i=i+1
   66 i=i-1:next:ti$="000000"
   68 fori=1to15
   70 pokea%(i)+b,32:a%(i)=a%(i)+z
   72 ifa%(i)+b>33768thena%(i)=a%(i)-1010
   74 ifpeek(a%(i)+b)<>32thena%(i)=a%(i)+40:goto74
   76 ifz>= 880then return
   78 pokea%(i)+b,46:next
   80 z=z+40:goto 68
   82 :
   84 gosub 102:gosub86:goto124
   86 forj=1to q:print"{up}";:next
   88 fork=1to14
   90 ti$="000000"
   92 ifti<15then92
   94 print"                               "
   96 gosub14:print"{up}{up}"
   98 next:print:gosub50:gosub28:return
  100 goto124
  102 :
  104 p=33728:b=99
  106 fori=1to39
  108 x=int(rnd(1)*4+1)
  110 ifx=1andb=99orb=78thenb=99:goto120
  112 ifx=3andb=99orb=78thenb=77:goto120
  114 ifx=2andb=100orb=77thenb=100:goto120
  116 ifx=4andb=100orb=77thenb=78:goto120
  118 goto108
  120 p=p+1:pokep,b
  122 next:return
  124 :
  126 ifm9=5then 408
  128 ifpeek(151)=55thenu=1:goto 146
  130 ifpeek(151)=44thenu=-1:goto 146
  132 ifpeek(151)=80thenn=33457:n2=78:n3=39:goto180
  134 ifpeek(151)=75thenn=33456:n2=77:n3=41:goto180
  136 ifpeek(151)=56thenn=33488:n2=78:n3=39:goto180
  138 ifpeek(151)=52thenn=33505:n2=77:n3=41:goto180
  140 gosub236
  142 gosub320
  144 goto124
  146 :
  148 m9=m9+1
  150 ifm9>5then140
  152 ifm+u<2orm+u>18then144
  154 gosub38
  156 print"{up}{up}{up}{up}{up}"
  158 fori=1to3:printtab(m)"                     ":next
  160 print"{up}{up}";:m=m+u:m1=m1+u:m2=m2+u:m3=m3+u
  162 gosub14
  164 fori=1to 3:print"{up}{up}{up}"
  166 ti$="000000"
  168 ifti <15then168
  170 forj=1to3:printtab(m)"                    ":next
  172 print"{up}{up}";:m=m+u:m1=m1+u:m2=m2+u:m3=m3+u
  174 gosub14:next
  176 gosub50:gosub28
  178 goto 144
  180 :
  182 k5=k5+1:ifk5>=60then288
  184 poken+m,n2
  186 ti$="000000"
  188 ifti< 5then188
  190 n1=n+m
  192 k2=15:fori=1to13:k2=k2+1
  194 poke59464,k2
  196 poken1,32:n1=n1-n3
  198 ifpeek(n1)<>32then204
  200 poken1,81:poke59464,0:next
  202 poken1,32:goto140
  204 :
  206 ifpeek(n1)=77orpeek(n1)=99orpeek(n1)=126then 386
  208 ifpeek(n1)=42then212
  210 goto218
  212 n5=n5+1:fork=1to10
  214 ifh(k)=n1thenh(k)=32717+int(rnd(0)*39):goto218
  216 next
  218 :
  220 fori=1to10
  222 poken1,35:poken1+1,35:poken1-1,35:poken1+40,35:poken1-40,35
  224 poken1,32:poken1+1,32:poken1-1,32:poken1+40,32:poken1-40,32
  226 poke59464,10:poke59464,50:poke59464,0:next
  228 goto144
  230 :
  232 h=32800:h (1)=h+10:h (2)=h+14:h (3)=h+18:h (4)=h+22:h (5)=h+26:h (6)=h+30
  234 h (7)=h+34:h (8)=h+38:h (9)=h+40:h (10)=h+60:return
  236 x=int(rnd(1)*11+1)
  238 ifx>10then 274
  240 ifx>=8thenh (11)=39:goto246
  242 ifx>=4thenh (11)=40
  244 ifx<4 thenh (11)=41
  246 pokeh(x),32:h(x)=h(x)+h(11)
  248 ifpeek(h(x))<>32then262
  250 goto258
  252 fori=1to10
  254 pokeh(x),42:pokeh(x),170:pokeh(x),32
  256 next:h(x)=32711+int(rnd(1)*39)
  258 pokeh(x),42
  260 return
  262 ifpeek(h(x))=99orpeek(h(x))=77orpeek(h(x))=78then268
  264 ifpeek(h(x))=100thenpokeh(x),100:goto270
  266 goto252
  268 pokeh(x)-h(11),42
  270 h(x)=32711+int(rnd(1)*39)
  272 return
  274 :
  276 l=33487:l2=0
  278 for k=1to18
  280 ifpeek(k+l+m)<>32thenl2=l2+1
  282 next
  284 ifl2<=13then288
  286 return
  288 :
  290 print"{home}":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  292 fork=1to20:sys990:ti$="000000"
  294 ifti<6then294
  296 next
  298 printtab(10)"{rvon}good bye"
  300 ti$="000000"
  302 ifti<300then302
  304 print"{clr}":
  306 print"abgeschossene meteore= ";n5
  308 print"abgeschossene frogs= ";n6
  310 print"punkte= ";n5*20+n6*50
  312 poke158,0:print:print"druecken sie >1< fuer ein neues spiel."
  314 getj$:ifj$="1"thenrun
  316 ifj$=""then314
  318 poke59467,0:end
  320 :
  322 v=v+v2
  324 ifpeek(v+287)=77orpeek(v+287)=78orpeek(v+287)=99orpeek(v+287)=100then328
  326 goto330
  328 v2=-39:v=v-41:return
  330 ifpeek(v+41)<>32then338
  332 ifv>33288andv<33448andv2=41then352
  334 gosub406
  336 pokev,77:pokev+40,99:pokev+41,126:return
  338 gosub406:fork=1to10
  340 ifv2=-39thenpokev+39,32:pokev+79,32:pokev+80,32
  342 pokev,43:pokev+40,43:pokev+41,43
  344 pokev,32:pokev+40,32:pokev+41,32
  346 next
  348 v=32750+int(rnd(1)*40):v2=41
  350 return
  352 :
  354 x=int(rnd(1)*2+1):v5=v+41
  356 ifx=1thenv4=41
  358 ifx=2thenv4=40
  360 k2=25:fork=1to 6
  362 ti$="000000"
  364 pokev5,32:poke59464,k2:k2=k2+1
  366 ifpeek(v5+v4)<>32then376
  368 v5=v5+v4:pokev5,126
  370 ifti<0then370
  372 poke59464,0:next
  374 pokev5,32:goto334
  376 :
  378 fork=1to10
  380 pokev5+v4,43:pokev5+v4,171:pokev5+v4,32
  382 poke59464,20:poke59464,150:poke59464,80:poke59464,0
  384 next:goto334
  386 :
  388 n6=n6+1:v=32750+int(rnd(1)*40)
  390 goto220
  392 :
  394 a=990
  396 readi:ifi=999then return
  398 pokea,i:a=a+1:goto396
  400 data 160,0,132,1,169,128,133,2,177,1
  402 data 73,128,145,1,200,208,247,230,2,169
  404 data 132,197,2,208,239,96,234,999
  406 pokev-v2,32:pokev+40-v2,32:pokev+41-v2,32:return
  408 :
  410 forj=1to50:print"{home}";:print"end of moving"
  412 poke59464,20:poke59464,25:poke59464,30:poke59464,0
  414 print"{home}";:print"{rvon}end of moving"
  416 print"{home}";:print"               "
  418 next
  420 m9=m9+1
  422 goto128
  424 :
  426 print:print"{clr}";"geschossen wird mit  {rvon}! w  _ p  "
  428 print: print"gehen und reparieren mit  {rvon}r l"
  430 print:print"sie haben 60 schuss
  432 print:print"bei zu grossem schaden und bei leeren":print
  434 print"lasern werden sie zerstoert!!"
  436 print:print:printtab(17)"{rvon}>space<"
  438 getj$:ifj$=""then438
  440 return
    0 clr:pg$="orrery":nm$="23":goto62000
    1 " karl & ernest marhenke
    2 " 1710 wilshire drive
    3 " aptos, ca. 95003
    4 "
    5 " cursor #23, dec 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 1 dec 80
  100 dima(19),b(19),c(19),m$(12),d(13)
  110 fori=1to19:reada(i),b(i):next
  120 data.7791,.00273790931,.9931,.0027377785,.7007,.011367714,.4855,.0113675957
  130 data.5055,.00445046867,.14,.00445036173,.9874,.00145575328,.0539
  140 data.00145561327,.0896,2.3080893e-4,.0565,2.3080893e-4,.1333,9.294371e-5
  150 data.883,9.294371e-5,.8702,3.269438e-5,.4006,3.269438e-5,.8469,1.672092e-5
  160 data.7254,1.672092e-5,.6639,1.115482e-5,.041,1.104864e-5,.3574,1.104864e-5
  170 fori=1to12:readm$(i):next
  180 data january,february,march,april,may,june
  190 data july,august,september,october,november,december
  200 fori=1to13:readd(i):next
  210 data1,32,60,91,121,152,182,213,244,274,305,335,366
  220 fori=1to9:reado$(i):next
  230 data mercury,venus,earth,mars,jupiter,saturn,uranus,neptune,pluto
  240 o=33274:fori=1to9:p2(i)=o:next:cd$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  250 m1$="i":in=7:dt=7/36525:f=~/648e3:b$="             ":r(3)=1:r(2)=.723
  260 r(8)=30.07:print"{clr}":mf=1
  270 print"{down}what is the starting year? ";:gosub60000:y=val(in$)
  280 ify>=1680andy<=2280then300
  290 print"{down}between 1680 and 2280, please.":goto270
  300 print"{down}what is the starting month? ";:gosub60000:m$=in$
  310 if in$=""then300
  320 ifasc(left$(m$,1))>57then350
  330 m=int(val(m$)):ifm<1orm>12thenprint"{down}between 1 and 12, please ":goto300
  340 m$=m$(m):goto470
  350 m=0:fori=1to12
  360 if left$(m$(i),len(m$))<>m$ then 390
  370 if m=0 then m=i:goto 390
  380 print"{down}that could be ";m$(m);:m=i:goto 420
  390 next i
  400 if m>0 then 470
  410 print"{down}no such month. try again.":goto 300
  420 if m=12then460
  430 for i=m+1 to 12
  440 if left$(m$(i),len(m$))=m$ then print", ";m$(m);:m=i
  450 next i
  460 print" or ";m$(m);".":goto 300
  470 d=d(m):ly=0:ify/4=int(y/4)andd>59thend=d+1:ly=1
  480 t=367*y-int(7*(y+int((m+9)/12))/4)+int(275*m/9)+1-730531.5:t1=1+t/36525
  490 ifm1$=m2$then520
  500 lo=1:u=5:e=5.7:ma=2:t$="{home}{rvon}inner planets{rvof}":m2$=m1$:mf=1
  510 ifm1$="o"thenlo=5:u=9:e=49.3:ma=-2:t$="{home}{rvon}outer planets{rvof}"
  520 ll=1:uu=10:ifm1$="o"thenll=9:uu=19
  530 fori=lltouu:c=a(i)+b(i)*t:h=0:ifc<0thenh=1
  540 c(i)=2*~*(c-int(c)-h):next
  550 ifm1$="o"then610
  560 l(1)=f*(84378*sin(c(4))+10733*sin(2*c(4)))+c(3)
  570 r(1)=.39528-.07834*cos(c(4))
  580 l(2)=f*(2814*sin(c(6)))+c(5)
  590 l(3)=f*(6910*sin(c(2)))+c(1)+~
  600 l(4)=f*(38451*sin(c(8))+2238*sin(2*c(8)))+c(7):r(4)=1.5303-.1417*cos(c(8))
  610 l(5)=f*(19934*sin(c(10))+5023*t1+2511)+c(9)
  620 r(5)=5.20883-.25122*cos(c(10)):ifm1$="i"then700
  630 l=23045*sin(c(12))+5014*t1-2689*cos(2*c(10)-5*c(12))+2507
  640 l(6)=f*(l+c(11)):r(6)=9.55774-.53252*cos(c(12))
  650 l(7)=f*(19397*sin(c(14)))+c(13):r(7)=19.21216-.90154*cos(c(14))
  660 l(8)=f*(3523*sin(c(16)))+c(15)
  670 l=101577*sin(c(18))+15517*sin(2*c(18))-3593*sin(2*c(19))
  680 l(9)=f*(l+3414*sin(3*c(18)))+c(17)
  690 r(9)=40.74638-9.58235*cos(c(18))-1.16703*cos(2*c(18))
  700 fori=lotou:x(i)=r(i)*cos(l(i)):y(i)=r(i)*sin(l(i))
  710 xx=x(i)*24.5/e:sx=1:ifxx<0thensx=-1
  720 x%=abs(xx):v=sx*int((x%+1)/2):fx=0:ifxx>=0andx%/2=int(x%/2)thenfx=1
  730 ifxx<0andx%/2<>int(x%/2)thenfx=1
  740 yy=y(i)*24.5/e:sy=1:ifyy<0thensy=-1
  750 y%=abs(yy):w=sy*int((y%+1)/2):fy=0:ifyy>=0andy%/2=int(y%/2)thenfy=1
  760 ifyy<0andy%/2<>int(y%/2)thenfy=1
  770 p1(i)=o+v-40*w:r1(i)=123:iffx=1andfy=0thenr1(i)=108
  780 iffx=0andfy=1thenr1(i)=126
  790 iffx=1andfy=1thenr1(i)=124
  800 ifi=lothen890
  810 forj=lotoi-1:ifp1(i)<>p1(j)then880
  820 q=r1(i)+r1(j):ifq=231thenr1(i)=98:goto880
  830 ifq=249thenr1(i)=97:goto880
  840 ifq=247thenr1(i)=255:goto880
  850 ifq=252thenr1(i)=225:goto880
  860 ifq=250thenr1(i)=226:goto880
  870 r1(i)=127
  880 next
  890 next
  900 ifmf=0then960
  910 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}s{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I";
  920 b1$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}":fori=1to11:printb1$;:next
  930 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}a{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}v";:fori=1to11:printb1$;:next
  940 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}w{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:poke33767,75
  950 printt$:fori=lotou:printleft$(cd$,i+ma);o$(i):next:mf=0
  960 printleft$(cd$,11);mid$(str$(y),2);"         "
  970 ify<0thenprintleft$(cd$,11);"{rght}{rght}{rght}{rght}{rght}{rght}b.c."
  980 print"{up}";b$:print"{up}";m$(m);d-d(m)+1-ly+yd
  990 printleft$(cd$,21);mid$(str$(in),2);" day  ":print"{up}increment"
 1000 fori=lotou:pokep2(i),32:next:pokeo,81
 1010 fori=lotou:pokep1(i),r1(i):next:pokeo,81
 1020 ifin>0thenprintleft$(cd$,18);b$:printb$
 1030 ifin<0thenprintleft$(cd$,18);"reverse":print"motion"
 1040 geta$:ifa$=""then1210
 1050 ifa$="h"thengosub1150
 1060 ifa$="o"ora$="i"thenm1$=a$
 1070 ifa$="s"thenin=7*sgn(in)
 1080 ifa$="m"thenin=30*sgn(in)
 1090 ifa$="f"thenin=180*sgn(in)
 1100 ifa$="r"thenin=-abs(in)
 1110 ifa$="d"thenin=abs(in)
 1120 ifa$="n"then260
 1130 ifa$="q"thenprint"{clr}":end
 1140 goto1040
 1150 geta$:ifa$<>""then1150
 1160 printleft$(cd$,13);"and holding"
 1170 print"press any key":print"{up}to restart"
 1180 geta$:ifa$=""then1180
 1190 printleft$(cd$,13);b$:printb$:print"{up}";b$:print"{up}";b$
 1200 return
 1210 t=t+in:t1=t1+in/36525:d=d+in
 1220 ifd>0then1250
 1230 y=y-1:d=d+365:ify=0theny=-1
 1240 ify/4=int(y/4)thend=d+1
 1250 ly=0:yd=0:ify/4=int(y/4)andd>59thenly=1
 1260 ify/4=int(y/4)andd=60thenyd=1
 1270 form=1to12:ifd<d(m+1)+lythenm$=m$(m):goto1310
 1280 next
 1290 d=d-365-ly:y=y+1:ify=0theny=1
 1300 goto1250
 1310 fori=lotou:p2(i)=p1(i):next:goto490
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by  karl marhenke
 62006 printtab(17);"and ernest marhenke
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 gosub60500
 62030 print"{down}the solar system in action!
 62080 print"{down}{down}{down}want to see the commands? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"     show {rvon}i{rvof}nner or
 62115 print"          {rvon}o{rvof}uter planets
 62120 print"{down} speed is {rvon}s{rvof}low    (7 day interval), or
 62125 print"          {rvon}m{rvof}edium (30 day interval), or
 62130 print"          {rvon}f{rvof}ast  (180 day interval).
 62135 print"{down}motion is {rvon}d{rvof}irect (forwards), or
 62140 print"          {rvon}r{rvof}etrograde (backwards).
 62145 print"{down}  you may {rvon}h{rvof}alt the planets briefly, or
 62150 print"   pick a {rvon}n{rvof}ew date, or
 62155 print"          {rvon}q{rvof}uit watching.
 62160 print"{down}the sides of the display are the
 62170 print"{down}    {rvon}v{rvof}ernal (spring) equinox,
 62180 print"    {rvon}s{rvof}ummer solstice,
 62190 print"    {rvon}a{rvof}utumnal equinox, and
 62200 print"    {rvon}w{rvof}inter solstice.
 62210 gosub60200
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(16)"othello":printspc(13)"copyright 1979"
    3 printspc(12)"hanimex pty ltd.":fori=1to2000:next
    5 fori=1to39:e$=e$+" ":next:forj=1to39:e$=e$+"{left}":next:n$="12345678"
    7 d$="{home}":fori=1to20:d$=d$+"{down}":next:dima(9,9),i4(7),j4(7):f2=3:b=-1:w=1:m$="W Q"
    9 fork=0to7:readi4(k),j4(k):next:print"{clr}greetings from {rvon}othello{down}
   11 gosub251:gosub231:p=6:n$(b+1)="black":n$(w+1)="{rvon}white
   13 print"{down}do you want to play the {rvon}pet{rvof} ? ";:gosub131
   15 ifx$="n"thenprint"{rvon}no":goto37
   17 ifx$<>"y"thengosub131:goto15
   19 print"{rvon}yes":f2=3:print"{down}should i play my best ? ";:gosub131
   21 ifx$="n"thenprint"{rvon}no{rvof}":goto27
   23 ifx$<>"y"thengosub131:goto21
   25 print"{rvon}yes":s2=2:s4=1:s5=-1.5
   27 print"{down}{down}black always goes first.":print"{down}do you want black or {rvon}white{rvof} ? ";:gosub131
   29 ifx$="b"thenprintn$(0):n$(2)="{rvon}pet":goto35
   31 ifx$<>"w"thengosub131:goto29
   33 printn$(2):n$(0)="pet":f2=2
   35 gosub329
   37 print"{clr}";:gosub107:iff2=2thenprint"ok, i am thinking!"
   39 t1=b:t2=w:onf2gosub151,181,151:gosub225:ifz=1then43
   41 bc=bc+s1+1:wc=wc-s1:n1=n1+1:gosub107
   43 ifwc=0orn1=64orz<0then53
   45 t1=w:t2=b:on f2gosub151,151,181:gosub225:ifz=1then49
   47 wc=wc+s1+1:bc=bc-s1:n1=n1+1:gosub107
   49 ifbc=0orn1=64orz<0then53
   51 goto39
   53 sn=sm
   55 printd$;e$:printe$:printe$:printd$;e$"black has"bc"and {rvon}white{rvof} has"wc"pieces.{down}"
   57 ifbc=wcthenprint"a tie !!":goto77
   59 print"QWQWQWQW ";:ifbc>wcthenprint"black";:goto63
   61 print"{rvon}white{rvof}";
   63 print" wins !":cc=bc-wc:ifcc<0thencc=-cc
   65 cc=(64*cc)/n1:print"that was a ";
   67 ifcc<11thenprint"squeaker !":goto77
   69 ifcc<25thenprint"hot game !":goto77
   71 ifcc<39thenprint"fight.":goto77
   73 ifcc<53thenprint"walkaway.":goto77
   75 print"perfect game."
   77 print"do you want a replay of the game? ";:gosub131:ifx$="n"thenprint"{rvon}no";:goto81
   79 print"{rvon}yes";:gosub233:gosub237:gosub55
   81 printd$"{down}{down}{down}{down}"e$"do you want to start the game ? ";
   83 gosub131:ifx$="y"thenprint"{rvon}yes";:gosub329:print"{clr}";:goto11
   85 print"{rvon}no";:end
   87 f1=0:fori1=-1to1:forj1=-1to1:ifa(i+i1,j+j1)=t2then91
   89 nextj1,i1:return
   91 f1=1:return
   93 s1=0:fork=0to7:i5=i4(k):j5=j4(k):i6=i+i5:j6=j+j5:s3=0:ifa(i6,j6)<>t2then105{wht}{wht}k
   95 s3=s3+1:i6=i6+i5:j6=j6+j5:ifa(i6,j6)=t1then101
   97 ifa(i6,j6)=0 then105
   99 goto95
  101 s1=s1+s3:ifu<>1then105
  103 i6=i:j6=j:fork1=0tos3:a(i6,j6)=t1:i6=i6+i5:j6=j6+j5:nextk1
  105 nextk:return
  107 print"{home}"spc(10)"{rvon}  o t h e l l o  {rvof}"
  108 x$="  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  109 printe$"{down}    a   b   c   d   e   f   g   h"
  111 print"  {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":fori=1to8:printmid$(n$,i,1)" {SHIFT--} ";
  113 forj=1to8:printmid$(m$,a(i,j)+2,1)" {SHIFT--} ";:nextj:print:ifi<>8thenprintx$
  115 nexti:print"  {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}":return
  117 i=-1:j=i:fork=1to2:gosub131:g=asc(x$):if47<gandg<58theni=g-48:goto123
  119 if64<gandg<74thenj=g-64:goto123
  121 next:return
  123 print"{rvon}"x$"{rvof} ";:next:return
  125 printleft$(d$,2*(i-1)+5);spc(4*(j-1)+4);:x$=mid$(m$,t1+2,1):fork=1top
  127 print" {left}";:forl=1to200:next:printx$"{left}";:forl=1to200:next:next:return
  129 printx$"{left}";:forl=1to200:next:next:return             <
  131 forl=1to10:geta$:next
  133 l=0:print"{CBM-+}{left}";
  135 l=l+1:getx$:ifx$<>""thenreturn
  137 ifl<20then135
  139 print" {left}";
  141 l=l+1:getx$:ifx$<>""thenreturn
  143 ifl<40then141
  145 goto133
  147 printd$"{down}"e$"{rvon}bad move{rvof} input row {rvon}0{rvof}-{rvon}8{rvof} and col {rvon}a{rvof}-{rvon}h{rvof}":printe$;
  149 gosub251:iff1>1thengosub107
  151 rem move input subroutine
  153 printd$;e$"input "n$(t1+1)"'s{rvof} move --   ";:gosub117
  155 ifi<0orj<0ori>8orj>8then147
  157 ifi<>0then167
  159 g2=s2:g4=s4:g5=s5:s2=0:s4=0:s5=0:gosub197:s2=g2:s4=g4:s5=g5:ifb1<0then163
  161 printd$"{down}"e$"no forfeit allowed. "n$(t1+1)"{rvof} has a move.":goto177
  163 ifz=1thenz=-z:return
  165 z=1:return
  167 if a(i,j)=0then171
  169 printd$"{down}"e$"sorry,square occupied by "n$(a(i,j)+1):goto177
  171 gosub87:iff1=1then175
  173 printd$"{down}"e$"sorry,not next to "n$(t2+1)"'s{rvof} pieces":goto177
  175 u=-1:gosub93:ifs1>0then179
  176 printd$"{down}"e$"sorry,does not contain "n$(t2+1)
  177 printe$:goto153
  179 goto193
  181 gosub197:ifb1>0then191
  183 ifs5=0then187
  185 s5=0:goto181
  187 printd$"{down}"e$n$(t1+1)"{rvof} forfeits move":ifz=1thenz=-z:return
  189 z=1:return
  191 i=i3:j=j3
  193 printd$"{down}"e$;n$(t1+1)"{rvof} moves to {rvon}"chr$(i+48)"{rvof} {rvon}"chr$(j+64):gosub125:z=0:u=1
  195 gosub93:printd$"{down}{down}"e$"that gives "n$(t1+1)"{rvof}"s1"of "n$(t2+1)"'s{rvof} pieces":return
  197 b1=-1:i3=0:j3=0:fori=1to8:forj=1to8:ifa(i,j)<>0then223
  199 gosub87:iff1=0then223
  201 u=-1:gosub93:ifs1=0then223
  203 if(i=1)or(i=8)thens1=s1+s2
  205 if(j=1)or(j=8)thens1=s1+s2
  207 if(i=2)or(i=7)thens1=s1+s5
  209 if(j=2)or(j=7)thens1=s1+s5
  211 if(i=3)or(i=6)thens1=s1+s4
  213 if(j=3)or(j=6)thens1=s1+s4
  215 ifs1<b1then223
  217 ifs1>b1then221
  219 ifrnd(1)>0.5then223
  221 b1=s1:i3=i:j3=j
  223 nextj,i:return
  225 l=((t1+1)*64)and128:ifz<>0thenl=lor64:goto229
  227 l=lor((((i-1)*8)and56)or(j-1and7))
  229 pokesm,l:sm=sm+1:return
  231 bc=2:wc=bc:n1=4
  233 fori=0to9:forj=0to9:a(i,j)=0:nextj,i:a(4,4)=w:a(5,5)=w:a(4,5)=b:a(5,4)=b
  235 z=0:f2=1:s2=0:s4=0:s5=0:sm=826:return
  237 print"{clr}   replay"spc(21)"replay":p=3:ford=826tosn-1:gosub107:l=peek(d)
  239 i=1+(land56)/8:j=1+(land7):t1=b:t2=w:ifland128thent1=w:t2=b
  241 if(land64)=0then245
  243 printd$e$:printe$:printe$:printd$"{down}"n$(t1+1)"{rvof} forfeits a move":forl=1to2000:next:goto247
  245 gosub193
  247 next
  249 goto107
  251 f1=0:print"do you want instructions ? ";:gosub131
  253 ifx$="n"thenprint"{rvon}no":return
  255 ifx$<>"y"thengosub131:goto253
  257 print"{rvon}yes":forf1=1to1000:next
  259 print"{clr}{down}{rvon}othello{rvof} is played on an 8 x 8 board,"
  261 print"rows numbered {rvon}1{rvof} to {rvon}8{rvof} and columns {rvon}a{rvof} to {rvon}h{rvof}"
  263 print"the object of the game is to capture as"
  265 print"many of the opponent's pieces as"
  267 print"possible. to capture pieces,try to"
  269 print"place your piece so that a horizontal,"
  271 print"vertical or diagonal line of your"
  273 print"opponent's pieces will be contained on"
  275 print"both sides by your's."
  277 print"   {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  279 print"      {SHIFT--} W {SHIFT--} W {SHIFT--} W {SHIFT--} W {SHIFT--} Q"
  281 print"   {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  283 print"example: white contains black,"
  285 print"capturing four of black's pieces."
  287 print"{down}{rvon}hit 'return' to continue"
  289 print"{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}";
  291 forl=1to10:geta$:next
  293 print"Q{left}";:forl=1to200:next
  295 print" {left}";:forl=1to200:next
  297 getx$:ifx$=""then293
  299 print"Q {SHIFT--}{$a0}Q {SHIFT--} Q {SHIFT--} Q {SHIFT--} Q{down}{down}{down}{down}"
  301 print"make your move by entering:
  303 print"      a number {rvon}1{rvof}-{rvon}8{rvof} for the row
  305 print"  and a letter {rvon}a{rvof}-{rvon}h{rvof} for the column.
  307 print"note: you must capture at least one
  309 print"piece per turn if it is at all
  311 print"possible. if it is not possible, you
  313 print"forfeit your turn by entering {rvon}0{rvof} {rvon}a{rvof} for
  315 print"your move.
  317 print"{rvon}hit 'return' to continue
  319 forl=1to10:geta$:next
  321 getx$:ifx$=""then321
  323 print"{clr}";:return
  325 return
  327 data 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1
  329 forl=1to1000:next:return
    0 rem
    1 rem othello        sept 80
    2 rem
    3 rem logical thinking problem
    4 rem
    5 rem 8k pet
    6 rem
    7 rem james mendenhall
    8 rem
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use & may not be{SHIFT--}
   24 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  100 rem   *** othello/2 ***
  110 rem   **** f.dunlap
  120 rem mod:1978 james mendenhall
  130 rem  from pet user group
  140 rem       box 371
  150 rem       montgomeryville,pa 18936
  160 print"{clr}{down}{down}{down}   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  161 print"   {rvon} this is othello for two players {rvof}"
  170 print"{down}{down}{down}{rght}{rght}{rght}would you like instructions (y/n) ?
  180 geti$:ifi$="y" then gosub 1730:goto210
  190 if i$="n" then 210
  200 goto180
  205 dim a$(9,9),i4(8),j4(8),d(2)
  210 y=1
  215 print"{clr}{down}{down}{down}   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  220 print"   {rvon} this is othello for two players {rvof}"
  240 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}"
  250 print"first player's name        {left}{left}{left}{left}{left}{left}{left}{left}";
  252 input "{$a0}{$a0}{$a0}{left}{left}{left}";t$(1)
  254 if t$(1) = "{$a0}" then 210
  260 iflen(t$(1))>8then1700
  270 print"{up}           "t$(1)"'s token Q       ";
  280 h$="Q":print"{down}"
  290 print"second player's name";
  292 input "{$a0}{$a0}{$a0}{left}{left}{left}";t$(2)
  294 if t$(2) = "{$a0}" then 210
  300 iflen(t$(2))>8then1700
  310 print"{up}           "t$(2)"'s token W       ":c$="W":gosub1650
  320 remforq=1to 300:nextq
  330 for k=1 to 8
  340 read i4(k),j4(k)
  350 next
  360 data 0,1,-1,1,-1,0,-1,-1
  370 data 0,-1,1,-1,1,0,1,1
  380 for i=0 to 9
  390 for j=0 to 9
  400 a$(i,j)=" "
  410 next:next
  420 a$(4,4)=h$:a$(5,5)=h$
  430 a$(5,4)=c$:a$(4,5)=c$
  440 c1=2:h1=2:n=4:z=0
  450 gosub 470
  460 goto 710
  470 print"{clr}";
  480 print
  490 print"           a b c d e f g h     {rvon} score {rvof}"
  500 print"          {CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}"
  510 for i=1 to 7
  520 print"        "i"{left}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--} {SHIFT--}"
  530 print"          {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
  540 next
  550 print"         8{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}"
  560 print"          {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}"
  570 gosub 1430
  580 return
  590 u=-1
  600 s1=0
  610 for i=1 to 8
  620 for j=1 to 8
  630 if s1>0 then 680
  640 if a$(i,j)<>" " then 680
  650 gosub 1180
  660 if f1=0 then 680
  670 gosub 1250
  680 next j
  690 next i
  700 return
  710 t1$=h$:t2$=c$
  720 gosub 1560
  724 t =ti
  725 getx1$ :if ti < t+30 then 725
  727 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  730 print"        "t$(y)"'s move (row col)            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  740 nn=0:x$=""
  750 getx1$:ifx1$=""goto750
  755 if asc(x1$)<32 then 724
  760 printx1$;:x$=x$+x1$:nn=nn+1:ifnn=2goto780
  770 goto750
  780 if asc(x$)<48 or asc(x$)>57 then print tab(6) "{up}": goto 724
  782 print:i=val(x$):x$=right$(x$,1)
  783 if asc(x$)<64 or asc(x$)>90 then print tab(6) "{up}{up}": goto 724
  790 if i<0 or i>8 then 720
  800 if i<>0 then 880
  810 gosub 590
  820 if s1>0 then 720
  830 if z=1 then 1130
  840 z=1
  850 print
  860 print "forfeit"
  870 goto 1090
  880 j=asc(x$)-64
  890 if j<1 or j>8 then 720
  900 if a$(i,j)<>" " then 720
  910 gosub 1180
  920 if f1=0 then 720
  930 u=-1
  940 gosub 1250
  950 if s1=0 then 720
  960 z=0
  970 print
  980 x$=""
  990 if s1 >1 then x$="s"
 1000 print s1 " piece" x$ " taken"
 1010 u=1:gosub 1250
 1020 n=n+1
 1030 if t1$=c$ then 1060
 1040 h1=h1+s1+1:c1=c1-s1
 1050 goto 1070
 1060 c1=c1+s1+1:h1=h1-s1
 1070 gosub 1430
 1080 if c1=0 or h1=0 or n>63 then 1130
 1090 x$=t1$:t1$=t2$:t2$=x$
 1100 ify=1theny=2:goto1120
 1110 y=1
 1120 goto 720
 1130 gosub 1560
 1140 if c1=h1 then print"tie game!":end
 1150 if c1<h1 then printt$(1)" won! congratulations!":end
 1160 printt$(2)" won! congratulations!"
 1170 end
 1180 f1=0
 1190 for i1=-1 to 1
 1200 for j1=-1 to 1
 1210 if a$(i+i1,j+j1)=t2$ then f1=1
 1220 next j1
 1230 next i1
 1240 return
 1250 s1=0
 1260 for k=1 to 8
 1270 i6=i+i4(k):j6=j+j4(k)
 1280 s3=0
 1290 if a$(i6,j6)<>t2$ then 1410
 1300 s3=s3+1:i6=i6+i4(k):j6=j6+j4(k)
 1310 if a$(i6,j6)=t1$ then 1340
 1320 if a$(i6,j6)=" " then 1410
 1330 goto 1300
 1340 s1=s1+s3
 1350 if u<>1 then 1410
 1360 i6=i:j6=j
 1370 for k1=0 to s3
 1380 a$(i6,j6)=t1$
 1390 i6=i6+i4(k):j6=j6+j4(k)
 1400 next k1
 1410 next k
 1420 return
 1430 print"{home}":print:print
 1440 for i=1 to 8
 1450 print tab(11)
 1460 for j=1 to 8
 1470 printa$(i,j);"{rght}";
 1480 next j
 1490 print:print
 1500 next i
 1510 print"{home}{down}{down}{down}"tab(31) t$(1)
 1520 print"{home}{down}{down}{down}{down}{down}"tab(32) h$ " " h1"{left} "
 1530 print"{down}"tab(31) t$(2)
 1540 print:printtab(32) c$ " " c1"{left} "
 1550 return
 1560 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1570 print      "                                      "
 1580 print      "                                      "
 1590 print      "                                      "
 1600 print      "                                      "
 1610 print"{up}{up}{up}{up}";
 1620 return
 1630 gosub 470
 1640 goto 720
 1650 print"{home}":forx=1to39:print"{rvon}*{rvof}";:nextx
 1660 print"{home}":forx=1to21:print"{rvon}*{rvof}";tab(38)"{rvon}*{rvof}":nextx
 1670 forx=1to39:print"{rvon}*{rvof}";:nextx
 1680 return
 1690 end
 1700 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}eight letter limit!":forzx=1to999:nextzx
 1710 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you must restart game!":forzz=1to1000:nextzz
 1720 print"{clr}":run
 1730 rem  instructions
 2000 rem  instructions
 2010 print"{clr}{down}{down}{down}{down}othello is played on a board with two
 2020 print"{down}tokens, Q and W.  the object is to
 2030 print"{down}capture more of your opponent's tokens
 2040 print"{down}than s/he captures of your tokens.  you
 2050 print"{down}capture tokens from your opponent by
 2060 print"{down}enclosing them.
 2100 print"{down}{down}{down}{down}{down}press return to continue
 2110 get i$:if i$<>chr$(13) then 2110
 2120 print"{clr}to enclose a token you type the row and
 2130 print"{down}column of the square you wish to occupy.
 2140 print"{down}{rvon}some examples{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}"
 2150 print"{down}   Q{$a0}W{$a0}W{$a0}Q     player Q captures 2"
 2160 print"{down}{down}  W{down}{rght}Q{down}{rght}Q{down}{rght}Q{down}{rght}W    {up}{up}{up}player W captures 3
 2170 print"{down}    {down}{down}{down}{rght}{rght}Q{down}{down}{left}W{down}{down}{left}Q  {up}{up}      player Q captures 1
 2180 print"{down}{down}{down}{down}press return to continue
 2200 get i$:if i$<>chr$(13) then 2200
 2210 print"{clr}{down}{down}thu rows have numbers and the columns
 2220 print"{down}have letters.  you move your token by
 2230 print"{down}typing, for example, 5e.
 2240 print"{down}{down}you can only move to a square where you
 2250 print"{down}will capture at least one token.
 2260 print"{down}{down}the game ends if one player cannot move.
 2270 print"{down}            {rvon}good luck !!{rvof}
 2280 print"{down}{down}{down}{down}press return to continue
 2290 get i$:if i$<>chr$(13) then 2290
 2300 return
    0 clr:poke59468,12
    1 rem ouranos copyright (c) 1980 kathy higby
    2 rem 4026 w. el caminito
    3 rem phoenix,az 85021
    4 :
    5 rem cursor #21, june-july 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 28jul80
   90 pg$="ouranos!":nm$="21":gosub62000
  100 readaa,bb:forz=aatobb:readw:pokez,w:next
  105 print"{down}what's player 1's name? ";:gosub60000:ep$=in$
  106 ifep$=""then105
  107 print"{down}what's player 2's name? ";:gosub60000:wp$=in$
  108 ifwp$=""then107
  110 data826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
  120 data200,208,247,232,224,132,208,240,96,0
  130 q=59467:r=59466:s=59464:pokeq,16:poker,15:pokes,0:h=33530
  140 a$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  145 bl$="                                      "
  150 c$="{CBM-M}{left}{down}N{left}{down}M{down}M{left}{down}NM{CBM-@}{left}{left}{left}{down}M  M{left}{left}{left}{left}{down}{CBM-M}{left}{down}N{left}{left}{down}N{left}{down}"
  160 d$=" {left}{down} {left}{down} {down} {left}{down}   {left}{left}{left}{down}    {left}{left}{left}{left}{down} {left}{down} {left}{left}{down} {left}{down}"
  170 e$=c$+"M{left}{down}N{left}{left}{down}N{left}{down}{CBM-G}{left}{left}{down}N{left}{left}{left}{left}{down} {CBM-@}N {left}{left}{left}{left}{down}N "
  180 f$=d$+" {left}{down} {left}{left}{down} {left}{down} {left}{left}{down} {left}{left}{left}{down}  {left}{left}{left}{down} "
  190 g$=c$+"M{down}{CBM-G}{left}{down}{CBM-G}{left}{down}M{down}M{left}{down} M{CBM-@} {left}{left}{down} M"
  200 h$=d$+" {down} {left}{down} {left}{down} {down} {down}  {down} "
  210 i$=c$+"M{down}M{down}{CBM-G}{left}{left}{down} {CBM-G}{left}{left}{left}{down} N {left}{left}{left}{left}{down} N {left}{left}{left}{down} {CBM-G}"
  220 j$=d$+" {down} {down} {left}{down} {left}{left}{down} {left}{left}{down} {left}{down} "
  230 print"{clr}{CBM-A}";:forv=1to38:print"{SHIFT-*}";:next:print"{CBM-S}";
  235 f=28:g=28:m=3:mm=0
  240 forv=1to19:print"{SHIFT--}";bl$;"{SHIFT--}";:next
  250 print"{up}{up}{up}{up}{rght}{rght}{rght}{rvon}{SHIFT-POUND}M    {CBM-*}"spc(20)"{SHIFT-POUND}    N{CBM-*}"
  255 print"{up}{rght}{rght}{rght}{rvon} {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"spc(20)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G} "
  260 print"{rght}{rght}{rght}{rvon} {CBM-M}     "spc(20)"     {CBM-G} "
  265 t$=left$(ep$,7):print"{up}{up}{rvon}";spc(3.5+(7-len(t$))/2);t$
  275 t$=left$(wp$,7):print"{up}{up}{rvon}";spc(30+(7-len(t$))/2);t$
  285 print"{up}{rght}{rght}{rght}{rvon}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"spc(20)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}"
  290 printa$:forv=1to40:print"{rvon}{CBM-I}";:next:print
  295 poke q,16:poker,15
  300 gosub970:iff<1org<1then1390
  310 m=m+1:ifm>3thenm=1:mm=mm+1:b=0:print"{home}";tab(15);"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  315 ifm=3andrnd(1)>.33then310
  320 print"{home}{down}{rvof}";:forv=1to3:print"{SHIFT--}";bl$;"{SHIFT--}";:nextv:print
  330 a=32812:aa=rnd(1)*26:a=a+aa:b=1-b
  340 pokea,104:forv=1to4:a=a+1:pokea,102:next:forv=1to5:a=a+1:pokea,104:next
  350 a=a+27:pokea,104:forv=1to11:a=a+1:pokea,102:next:pokea,104:a=a+33
  360 pokea,104:forv=1to6:a=a+1:pokea,102:next:pokea,104:nn=0
  365 printa$"{rvon}";bl$;"  ":printa$;"{rght}{rght}{rght}";
  370 ifm=3thenprint"target"spc(21)"target":goto400
  380 ifb=0thenprint"target"spc(21)"{rvon}attacker":goto400
  390 print"{rvon}attacker{rvof}"spc(20)"target
  400 ee=int(rnd(1)*100)
  410 ifee>50thenee=int(-ee/2):printa$spc(13)"{rvon} wind <CC"abs(ee)"{left}    {down}":goto430
  420 printa$spc(13)"{rvon} wind CC>"ee"{left}     {down}"
  430 printbl$:printbl$;"{up}{up}"
  450 ifm<3then490
  460 forx=1to4:printbl$;"{up}":gosub1280:gosub1260
  470 printtab(13)"{rvon}act of nature{rvof}{up}":gosub1280:next
  480 gosub1270:gosub1270:printbl$
  482 o=1:b$=mid$("hlrt",int(rnd(1)*4)+1,o):in$=b$:goto520
  490 ifm<>1thengosub1280:goto505
  500 pokes,255:print"{home}";tab(15)" round"mm"{left} ":forx=1to2:gosub1260:next:pokes,0
  505 t$=ep$:ifb=0thent$=wp$
  510 printa$"{down}{down}";t$;": weapon (h,l,r,t,q) ? ";:gosub60000:print"{up}";bl$
  515 b$=left$(in$,1):o=len(in$):ifo=0then510
  520 w$="rain":ifleft$(w$,o)=in$thenff=5:tt=ff:o=2:goto590
  530 w$="hail":ifleft$(w$,o)=in$thencc=58:ff=4:tt=ff:o=0:goto590
  540 w$="tornado":ifleft$(w$,o)=in$thencc=102:ff=7:tt=ff:o=1:goto590
  550 w$="lightning":ifleft$(w$,o)=in$theno=0:goto590
  560 w$="quit":ifleft$(w$,o)=in$then1390
  580 print"{up}{up}":goto430
  590 print"{up} weapon is {rvon}";w$
  595 ifo=1thenprint"{home}{down}";:forv=1to40:print"{CBM-+}{CBM-+}";:next:printa$;"{down}{down}
  600 ifm=3thena1=0:print
  610 ifm<3thenprint"{rght}charge? ";:gosub60000:bb$=in$:a1=val(bb$)
  615 print"{up} charge is";a1
  620 ifa1<-150thena1=-150
  630 ifa1>150thena1=150
  640 ifb$="h"thengosub1270:goto670
  650 ifb$="l"thengosub1270:goto1070
  660 ifo=1thenprint"{home}{down}{down}{down}";:forv=1to20:print"{CBM-+}{CBM-+}";:next:print:ee=1.5*ee
  670 e=(a1+ee)/50:dd=0:gg=104
  680 ifo=2ande<0thencc=47:goto710
  690 ifo=2ande>0thencc=28:goto710
  700 ifo=2thencc=66
  710 a=32892+aa:bb=0:ff=tt:t=ww:i=0:forw=1to16:ww=w:pokes,w*10
  720 ifo<>1ordd=1thenpokes,0
  730 ift=wwthenw=16:ww=0
  740 a=a+(40+e):gosub870:next
  750 ifo<>1then840
  760 ifpeek(c+1)=93orpeek(c-1)=93then840
  770 pokec+1,gg:pokec-1,gg
  780 ifpeek(c+2)=93orpeek(c-2)=93then840
  790 pokec+2,gg:pokec-2,gg
  800 ife>0ore=0thenpokec-38,32:pokec-39,32
  810 ife<0ore=0thenpokec-41,32:pokec-42,32
  820 ifdd=0thengosub1370:goto840
  830 ifdd=1thenpoker,51:forv=100to10step-2:pokes,v:next:poker,15:pokes,0
  840 ifnn<>1thengosub1270
  850 ifdd=0thendd=1:cc=32:gg=cc:goto710
  860 goto300
  865 goto 300
  870 c=a:forz=1toff:c=c+1:d=peek(c):ifo=1ande<0thend=peek(c-1)
  880 ifd=93thengosub1310:w=16:o=0:return
  890 ifd>127anddd=0thengosub940
  900 ifi>2thenw=16
  910 pokec,cc:ifcc=58thenpokes,ff*10:pokes,0
  920 next:bb=1-bb:ifbb=0andb$="t"thenff=ff-1
  930 return
  940 forx=1to3:pokec,170:gosub960:pokec,58:gosub960:next:i=i+1:ifo<>0thenw=16
  950 return
  960 pokes,z*10:forv=1to50:next:pokes,0:return
  970 f=0:g=-1:p=0
  980 fory=1to4:forx=1to7:h=h+1:d=peek(h):ifd<>32thenp=p+1
  990 next:h=h-47:next
 1000 ifg=-1thenf=p:g=0:p=0:h=h+187:goto980
 1010 g=p:h=33530
 1020 return
 1070 a1=a1/33:ifa1<-4thena1=-4
 1080 ifa1>4thena1=4
 1090 ifa1>1thena1=a1-1
 1100 aa=aa+a1+7
 1110 ifaa>33thenaa=33
 1120 ifaa<6thenaa=6
 1130 forz=1to3:gosub1250:printc$:sys826:sys826:gosub1250:printd$:next
 1140 gosub1260:gosub1250:printc$:sys826:sys826:gosub1250:printd$:gosub1270
 1150 ifa1>0then1200
 1160 ifa1=0then1230
 1170 forz=1to2:gosub1250:printe$:sys826:gosub1290:sys826:gosub1250:printf$
 1180 aa=aa+1
 1190 next:goto300
 1200 forz=1to2:gosub1250:printg$:sys826:gosub1290:sys826:gosub1250:printh$
 1210 aa=aa-1
 1220 next:goto300
 1230 forz=1to2:gosub1250:printi$:sys826:gosub1290:sys826:gosub1250:printj$
 1240 next:goto300
 1250 print"{home}{down}{down}{down}{down}"spc(aa);:forv=1to25:next:return
 1260 forv=1to500:next:return
 1270 forv=1to1000:next:return
 1280 pokes,m*50:forv=1to100:next:pokes,0:return
 1290 pokeq,0:forv=1to30:poke59468,194:poke59468,12:next:pokeq,16:poker,15
 1300 return
 1310 ifnn=1thenreturn
 1330 print"{home}";tab(13);"{rvon}out of bounds!":gosub1370:forv=1to2500:next
 1350 print"{home}";tab(13)"{SHIFT-*}{SHIFT-*} round"mm"{left} {SHIFT-*}{SHIFT-*}{SHIFT-*}":nn=1:return
 1370 forx=1to10:forv=10to200step25:pokes,v:next:next:pokes,0:return
 1390 printa$;"{rvon}  ";bl$:printbl$:printbl$
 1400 sys826:forx=1to500:next
 1410 forv=200to50step-1:pokes,v:next:pokes,0:poker,0:pokeq,0
 1415 sys826:b$=wp$:p=f*3.6:ifg>0thenb$=ep$:p=g*3.6
 1420 t=7-(len(ep$)/2):ift<0thent=0
 1425 print"{up}{up}{up}{up}{rvon}";tab(t);ep$
 1430 t=33.5-len(wp$)/2:ift+len(wp$)>39thent=40-len(wp$)
 1435 print"{up}{up}{rvon}";tab(t);wp$
 1440 print "{up}{up}{up}{up}{up}{up}{up}{up}{rght}{rght}";int(f*3.6);"{left}% left"
 1445 print "{up}{up}";tab(29);int(g*3.6);"{left}% left"
 1450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1460 if f=g thenprint"     it's a tie!":goto 1500
 1470 print"the winner is ";:if f<g then print wp$:goto 1500
 1480 print ep$
 1500 printa$;"{down}{down}want to play again? ";:gosub60000
 1510 ifleft$(in$,1)="n"then1600
 1520 t$=ep$:ep$=wp$:wp$=t$
 1530 goto 230
 1600 print"{clr}{down}{down}":end
 9999 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by kathy higby{down}
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 62030 print"{down}take the enemy by storm
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:cr$=chr$(13):goto100
   10 print "{clr}":poke36879,76
   20 deffna(x)=int(rnd(1)*x+1)
   30 deffnb (z)=int(sqr((ex(g)-6)^2+(ey(g)-6)^2))
   40 deffnc(z)=int(1/(ed(g))*100+(c/2))
   50 c=99:g=1:gosub5110:gosub2000
  200 gosub5000:gosub1000:gosub6000:gosub3000:gosub4000
  210 goto200
 1000 print"{home}{down}enemy 1   2   3   4"
 1020 print"type ";
 1030 forg=1 to 4
 1040 ifet(g)=0thenprint"--- ";
 1050 ifet(g)=1thenprint"lgt ";
 1060 ifet(g)=2thenprint"mdm ";
 1070 ifet(g)=3thenprint"hvy ";
 1080 next
 1100 print:print"dist":print"prob                ":print"engy                 "
 1120 forg=1 to 4
 1122 x=1+g*4
 1124 print"{up}{up}{up}{up}"
 1126 printspc(x)ed(g)
 1128 printspc(x)eh(g)
 1130 printspc(x)ee(g)
 1140 nextg
 1300 print:printspc(12);"status"
 1305 printspc(12)" DDDDDD"
 1310 printspc(11)" engy:    {left}{left}{left}";e
 1320 printspc(11)" comp:    {left}{left}{left}";c
 1330 printspc(11)" main:    {left}{left}{left}";m
 1340 printspc(11)" secn:    {left}{left}{left}";s
 1350 printspc(11)" torp:";t
 1360 printspc(11)"  vp :";vp
 1400 print:printspc(11);"  c=charge":print:print
 1500 print"{home}{down}{down}{down}{down}{down}{down}"
 1510 a=0
 1520 fory=1 to 11
 1530 forx=1 to 11
 1540 forg=1 to 5
 1550 ify<>ey(g)then1620
 1560 ifx<>ex(g)then1620
 1570 a=1:ifg=1thenprint"1";
 1580 ifg=2thenprint"2";
 1590 ifg=3thenprint"3";
 1600 ifg=4thenprint"4";
 1610 ifg=5thenprint"s";
 1620 nextg
 1630 ifx=6andy=6thenprint"Q";:a=1
 1640 ifa=1thena=0:goto1660
 1650 print"+";
 1660 nextx
 1670 print
 1680 nexty
 1690 print"{home}{down}{down}{down}{down}{down}{down}"
 1700 fora=1 to 11
 1710 printspc(11)" "
 1720 next
 1990 print:return
 2000 et(5)=0:ex(5)=0:ey(5)=0
 2010 e=99:m=99:s=99
 2020 t=t+5:ift>9thent=9
 2030 return
 3000 forg=1 to 5:ifet(g)>0then3100
 3010 nextg:return
 3100 ifg<5andfna(9)>5then3010
 3200 if ex(g)>6thenex(g)=ex(g)-1
 3210 if ex(g)<6thenex(g)=ex(g)+1
 3220 ifey(g)<6theney(g)=ey(g)+1
 3230 ifey(g)>6theney(g)=ey(g)-1
 3240 ifet(5)=5andey(5)=6andex(5)=6thengosub2000
 3250 ifey(g)=6andex(g)=6then9500
 3265 ifg<5andex(g)=ex(5)andey(g)=ey(5)thenet(5)=0:ex(5)=0:ey(5)=0
 3300 ed(g)=fnb(1)
 3330 eh(g)=fnc(0):ifeh(g)>99theneh(g)=99
 3400 goto 3010
 4000 print"{up}enemy firing & moving"
 4010 forg=1to4:ifet(g)<>0then4100
 4020 nextg:return
 4100 iffna(99)>(ee(g)+fna(30))oree(g)<10then4020
 4110 e=e-fna(5)*et(g)
 4150 ee(g)=ee(g)-fna(10)
 4160 iffna(10)=1thenc=c-fna(25):ifc<1then9500
 4170 iffna(10)=1thenm=m-fna(25):ifm<0thenm=0
 4180 iffna(10)=1thens=s-fna(25):ifs<0thens=0
 4200 ife<0then9500
 4210 goto4020
 5000 g=fna(5)
 5005 ifg=5andet(5)=0andfna(4)>1thenet(5)=5:goto5160
 5010 ifg=5oret(g)<>0orfna(9)>4then5400
 5110 a=4-int(log(fna(50)+2))
 5120 et(g)=a:ee(g)=99
 5160 ex(g)=fna(11)
 5170 ey(g)=fna(11)
 5180 a=fna(4):ifa=1theney(g)=1
 5190 ifa=2theney(g)=11
 5200 ifa=3thenex(g)=11
 5210 ifa=4thenex(g)=1
 5300 ed(g)=fnb(1)
 5320 eh(g)=fnc(0):ifeh(g)>99theneh(g)=99
 5400 return
 6000 print "weapon:                  "
 6010 get a$:ifa$=""then6010
 6020 ifa$="m"andm>0thena=6:m=m-fna(5):ifm<0thenm=0
 6025 ifa$="c"thene=e+fna(20):ife>99thene=99
 6030 ifa$="c"thenreturn
 6035 ifa$="s"ands>0thena=4:s=s-fna(5):ifs<0thens=0
 6040 ifa$="t"andt>0thena=9:t=t-1
 6060 ifa<3thenprint"{up}bad input! weapon:":goto6010
 6100 print"{up}target no:          "
 6120 get b$:ifb$=""then6120
 6125 b=val(b$)
 6130 ifet(b)=0thenprint"{up}bad data! target:":goto6120
 6200 iffna(99)>eh(b)thenprint"{up}missed!          ":forz=1to1000:next:return
 6210 ee(b)=int(ee(b)-((a*fna(15))/et(b)))
 6215 print"{up}target hit!             ":forz=1to1000:next
 6220 ifee(b)<1then6500
 6230 e=e-fna(5)
 6300 return
 6350 rem   print:print:print
 6500 vp=vp+et(b)
 6505 ex(b)=0:ey(b)=0
 6510 et(b)=0:eh(b)=0:ed(b)=0:ee(b)=0
 6570 print"{up}{rvon}  target destroyed!  "
 6575 fora=1to1000:nexta
 6580 return
 9500 poke36879,110
 9510 print"{clr}{down}{down}{down}         destroyed!!!!!"
 9550 print"{down}{down}{down}{down}     score= ";vp:print:print
 9560 ifvp>hsthenhs=vp
 9580 print"{down}{down}*****************"
 9590 print "high score= ";hs
 9600 print "*****************"
 9605 print"{down}{down}{down}{down}    another game?"
 9610 geta$:ifa$=""then9610
 9620 ifa$="y"thenrun
 9630 stop
    5 rem paardenrace
    8 printchr$(142)
   10 print"{clr}"
   15 clr
   16 gosub 20:goto70
   20 forn=1to8:printtab(37)"{down}":next
   30 print"{home}{down}{down}{down}":forn=1to74:print"E";:next
   40 print"{home}{down}{down}{down}{down}{down}{down}{down}":forn=1to74:print"E";:next
   50 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":forn=1to74:print"E";:next
   60 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":forn=1to74:print"E";:next
   61 poke32842,231:poke32922,231:poke33002,231:poke33082,231:poke33162,231
   62 poke33242,231:poke33322,231:poke33402,231:poke33482,231:poke33562,231
   63 poke33642,231:poke33722,231:poke33802,231:poke33882,231:poke33962,231
   64 poke34042,231:poke34122,231:poke34202,231:poke34282,231:poke34362,231
   66 poke33005,134:poke33245,137:poke33485,142:poke33725,137:poke33965,147
   67 poke34205,136
   69 return
   70 q=68
   71 ifx><5then100
   80 poke32842,231:poke32922,231:poke33002,231:poke33082,231:poke33162,231
   81 poke33242,231:poke33322,231:poke33402,231:poke33482,231:poke33562,231
   82 poke33642,231:poke33722,231:poke33802,231:poke33882,231:poke33962,231
   83 poke34042,231:poke34122,231:poke34202,231:poke34282,231:poke34362,231
   89 a1=int(3*rnd(1))
   90 ifa1=2thena=a+2
  100 print"{home}"
  102 g1=1
  104 g2=2
  106 g3=3
  108 g4=4
  110 print" "tab(a)"      W"
  120 print" "tab(a)"  /{rvon} 1 {rvof} "
  130 print" "tab(a)"  /\ /\"
  135 ifx><5then200
  150 ifa=q then500
  160 b1=int(3*rnd(1))
  170 ifb1=2thenb=b+2
  200 print
  210 print" "tab(b)"      W"
  220 print" "tab(b)"  /{rvon} 2 {rvof} "
  230 print" "tab(b)"  /\ /\"
  235 ifx><5then300
  250 ifb=q then510
  260 c1=int(3*rnd(1))
  270 ifc1=2thenc=c+2
  300 print
  310 print" "tab(c)"      W"
  320 print" "tab(c)"  /{rvon} 3 {rvof} "
  330 print" "tab(c)"  /\ /\"
  335 ifx><5then400
  350 ifc=q then520
  360 d1=int(3*rnd(1))
  370 ifd1=2thend=d+2
  400 print
  410 print" "tab(d)"      W"
  420 print" "tab(d)"  /{rvon} 4 {rvof} "
  430 print" "tab(d)"  /\ /\"
  450 ifd=q then530
  455 print
  460 ifx><5then1000
  485 print
  490 gosub2000
  495 goto80
  500 printchr$(7)"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}'t paard van "p1$" heeft gewonnen":goto1360
  510 printchr$(7)"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}'t paard van "p2$" heeft gewonnen":goto1360
  520 printchr$(7)"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}'t paard van "p3$" heeft gewonnen":goto1360
  530 printchr$(7)"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}'t paard van "p4$" heeft gewonnen":goto1360
 1000 x=5
 1010 print"{down}{down}{down}{down}wie heeft paard nr 1";
 1011 inputp1$
 1012 print"wie heeft paard nr 2";
 1013 inputp2$
 1014 print"wie heeft paard nr 3";
 1015 inputp3$
 1016 print"wie heeft paard nr 4";
 1017 inputp4$
 1200 print:print:print"{clr}"
 1201 s=5
 1202 print"{home}              wacht"s"seconden"
 1206 t=ti
 1208 if(ti-t)<60then1208
 1210 s=s-1
 1211 ifs=4thengosub1219
 1212 ifs=0then1220
 1213 print"{home}              wacht"s"seconden"
 1214 goto1206
 1216 if(ti-t)<60then1216
 1218 s=s-1
 1219 gosub20:s=s-2:return
 1220 print"{home}                            {rvon} s t a r t {rvof}"
 1225 goto80
 1300 ifp1=g1then1350
 1305 ifp1><g1then1500
 1310 ifp1=g2then1350
 1315 ifp1><g2then1500
 1320 ifp1=g3then1350
 1325 ifp1><g3then1500
 1330 ifp1=g4then1350
 1335 ifp1><g4then1500
 1350 print:print"{rvon}ja !!!! {rvof} u heeft gewonnen"
 1356 print "ZZZZZZZZZZZZZZZZZZZZZZZZZ"
 1360 print"{down}nog eens proberen ? ja of nee ";
 1370 inpute$
 1380 ife$="ja" goto10
 1390 print"{clr}"
 1400 print"dan stoppen we , bedankt voor het meespelen"
 1405 print
 1450 for n=1to560:print"*";:nextn
 1460 print"{down}{down}{down}"
 1465 printchr$(14)
 1470 end
 1500 print"{down}dat is nu jammer, u heeft verloren"
 1510 print"nog een keer? ja of nee";
 1520 goto1370
 2000 ifa>banda>canda>dthenv=g1:goto2100
 2010 ifb>aandb>candb>dthenv=g2:goto2100
 2020 ifc>aandc>bandc>dthenv=g3:goto2100
 2030 ifd>aandd>bandd>cthenv=g4:goto2100
 2100 print"{up}                  paard nr "v" loopt op kop"
 2150 print"{down}{down} 1 = "p1$", 2 = "p2$", 3 = "p3$", 4 = "p4$".":return
    0 clr:poke59468,14
    1 rem pack copyright (c) 1979 glen fisher
    2 rem cursor #6, january,1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of may 22,1979
   90 gosub62000
  100 readl,h
  105 print"{down}{down}nOW LOADING..."
  110 fori=ltoh
  120 :readt:pokei,t
  130 nexti
  140 print"{down}pack IS{$a0}NOW{$a0}READY FOR USE. lOAD THE"
  150 print"PROGRAM{$a0}YOU{$a0}WANT{$a0}TO{$a0}PACK, AND TYPE"
  160 print"{down}     sys(826)"
  170 end
 1000 data826,987
 1010 data169,1,133,81,133,83,169,4,133,82,133,84,160,0,177,81
 1020 data145,83,200,192,4,208,247,160,0,177,83,200,17,83,240,96
 1030 data160,4,169,0,133,80,177,81,201,32,208,14,36,80,112,10
 1040 data48,8,230,81,208,240,230,82,208,236,145,83,200,201,0,240
 1050 data29,36,80,112,225,48,10,201,143,208,6,169,64,133,80,208
 1060 data213,201,34,208,209,165,80,73,128,133,80,76,96,3,152,72
 1070 data160,1,177,83,133,82,136,177,83,133,81,24,104,101,83,145
 1080 data83,170,200,165,84,105,0,145,83,133,84,134,83,76,70,3
 1090 data24,165,83,105,3,133,124,165,84,105,0,133,125,162,0,189
 1100 data216,3,157,15,2,232,224,4,208,245,142,13,2,96,67,76
 1110 data82,13
 60200 ifpn=0thenpk=peek(59468):poke59468,pkor14:goto60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}{down}";pg$;" - cURSOR #";nm$;"  (c) 1979{down}"
 60270 return
 62000 ifpeek(49152)thenprint"{down}{down}{down}{rvon}pack won't work with the new roms.":end
 62005 pg$="pack":nm$="6":lp=1:gosub60200
 62010 print"tHIS{$a0}PROGRAM STORES THE pack PROGRAM"
 62020 print"INTO{$a0}THE 2ND CASSETTE BUFFER."
 62030 print"{down}tHE{$a0}pack ROUTINE REMOVES{$a0}ALL{$a0}BLANKS"
 62040 print"FROM{$a0}A{$a0}PROGRAM{$a0}EXCEPT{$a0}THOSE{$a0}IN{$a0}QUOTES"
 62050 print"AND{$a0}remARKS. tO{$a0}RUN{$a0}IT, LOAD{$a0}THE"
 62060 print"PROGRAM{$a0}YOU{$a0}WANT{$a0}TO{$a0}PACK, AND TYPE"
 62070 print"{down}    sys(826){down}"
 62080 print"aFTER{$a0}A{$a0}SHORT{$a0}DELAY, THE{$a0}pet WILL{$a0}DO A"
 62090 print"clr COMMAND, AND{$a0}SAY{$a0}ready. aT{$a0}THAT"
 62100 print"POINT, THE{$a0}LOADED PROGRAM{$a0}WILL{$a0}BE"
 62110 print"PACKED (AND{$a0}NIGH{$a0}INCOMPREHENSIBLE)."
 62120 print"iT{$a0}WILL{$a0}ALSO{$a0}LIKELY{$a0}BE MUCH{$a0}SMALLER!"
 62130 print"{down}pack REMAINS AVAILABLE UNTIL{$a0}YOU TURN"
 62140 print"OFF{$a0}THE{$a0}pet, OR UNTIL SOMETHING ELSE IS"
 62150 print"PUT IN ITS PLACE."
 62190 gosub60200
 62200 return
   10 data826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
   20 data200,208,247,232,224,132,208,240,96,0
   30 data22,11,-40,5,1,3,40,37,-1,3,-40,5,1,22,40,5,-1,3,-40,37,1,3,40,5,-1,11
   40 data-40,5,40,5,1,37,-1,10,-40,37,1,10,40,5,-40,1,1,39,-1,32819,15,16,1,22,40
   50 data15,-1,22,-40,4,1,6,40,7,1,6,-40,6,40,3,-1,10,40,3,1,6,40,7,-1,6,-40,0
   60 data33279,32846,32809,33689,33726,33256
   70 readaa,bb:forz=aatobb:readw:pokez,w:nextz
   80 poke59466,16:poke59467,16:gosub570
   85 print"{clr}":sys826:a=33281:pa=88
   90 readc:fori=1toc:readd,b:fort=1tod:a=a+b:pokea,46:ax=ax+.25
   95 poke59464,ax
   96 poke59464,150:nextt,i
  100 reada:ifa<>0thengoto90
  110 ti$="000000":b=33268
  120 fori=1to6:reada:pokea,87:next
  130 fori=1tos:d(i)=32768+int(1000*rnd(1)):ifpeek(d(i))<>46theni=i-1:next
  135 ad(i)=46:poked(i),88:next
  140 geta$
  150 ifa$="2"thena=40
  160 ifa$="4"thena=-1
  170 ifa$="5"thena=0
  180 ifa$="6"thena=1
  190 ifa$="8"thena=-40
  200 ifb+a<32768orb+a>33767thena=0
  210 ifb=33287anda=1thenpokeb,32:b=b-39:poke59464,200:goto290
  220 ifb=33248anda=-1thenpokeb,32:b=b+39:poke59464,200:goto290
  230 ifpeek(b+a)=160thena=0
  240 ifpeek(b+a)=46thenf=f+1
  250 pokeb,32:poke59464,200:b=b+a
  260 ifpeek(b)=87thenta=ti:fori=1tos:poked(i),90:nexti:f=f+10:pa=90
  270 ifpeek(b)=90thenad(i)=32:goto530
  280 ifpeek(b)=88then790
  290 pokeb,81:poke59464,0
  295 fory3=1toy4
  300 y1=int((b-32768)/40)
  310 x1=int((((b-32768)/40)-y1)*100)
  320 i=int(s*rnd(1)+1)
  330 y2=int((d(i)-32768)/40)
  340 we=0:c=0
  350 x2=int((((d(i)-32768)/40)-y2)*100)
  360 ifabs(x1-x2)>abs(y1-y2)thenxz=4
  370 ifabs(x1-x2)<abs(y1-y2)thenxz=2
  380 ifx1<x2andxz=4thenc=-1
  390 ifx1>x2andxz=4thenc=1
  400 ify1>y2andxz=2thenc=40
  410 ify1<y2andxz=2thenc=-40
  415 ifpa=90thenc=-c
  420 xz=-xz+6
  430 ifwe>2thenc=0:goto470
  440 ifd(i)+c<32768ord(i)+c>33767thenc=0
  450 ifpeek(d(i)+c)=81andpa=90thenad(i)=32:goto530
  460 ifpeek(d(i)+c)=160orc=0thenwe=we+1:goto380
  470 ifpeek(d(i)+c)=81andpa=88then790
  480 ifad(i)=88orad(i)=90thenad(i)=32
  490 poked(i),ad(i):d(i)=d(i)+c:ad(i)=peek(d(i)):poked(i),pa
  495 nexty3
  500 ifta+550+y4*s<tithenfori=0tos:poked(i),88:nexti:pa=88
  510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";f:iff=300then900
  515 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";mid$(ti$,3,2);"{rght}{rght}{rght}{rght}{rght}{rght}"right$(ti$,2)
  520 goto140
  530 foro=1to100:pokeb,42:poke59464,150:poke59464,0:pokeb,81:nexto
  540 pokeb,32:poked(i),32
  550 ad(i)=32:d(i)=33268:poked(i),pa
  560 goto140
  570 sys826
  580 print"{clr}{down}{down}";:sys826:print"{rvon}             *************"
  590 print"{rvon}             *{rvof}  pac-man  {rvon}*"
  600 print"{rvon}             *************":print"{down}{down}{down}{down}{down}{down}";
  610 print"       {rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvof}                          ";
  620 print"      {rvon}{SHIFT-POUND}    Q  {CBM-*}{rvof}                         ";
  630 print"      {rvon}{CBM-G}    {rvof}{SHIFT-POUND}       QQQ     QQQ     QQQ  ";
  640 print"      {rvon}{CBM-G}    {rvof}        QQQ     QQQ     QQQ  ";
  650 print"      {rvon}{CBM-G}    {CBM-*}{rvof}       QQQ     QQQ     QQQ  ";
  660 print"      {CBM-*}{rvon}       {rvof}{SHIFT-POUND}                         ";
  670 print"       {CBM-*}{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}{SHIFT-POUND}                          "
  680 print"{down}{rvon}copyrights by{down}{down}"
  690 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}andre fachat"
  700 fori=1to1000step7
  710 ifi/2=int(i/2)thenprint"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}andre fachat"
  720 ifi/3=int(i/3)thenprint"{up}{rght}{rght}{rght}{rght}{rght}{rght}andre fachat"
  730 ifi<=500thenpoke59464,i/2
  740 ifi>500thenpoke59464,(1000-i)/2
  750 nexti
  760 input"{clr}{down}{down}{down}{down}{down}{down}kennen sie das spiel bereits ";c$:ifc$<>"j"thengosub810
  770 input"{down}wieviele monster";s
  771 input"{down}welcher schwierigkeitsgrad";y4
  780 dimad(s),d(s):return
  790 fori=1to50:sys826:fort=1to10:poke59464,(t*i)/2:nextt,i
  791 poke59464,0:print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}sie haben leider verloren"
  792 print"{down}{down}{down}{down}{down}sie haben ihr ziel nicht erfuellt"
  793 print"{down}sie sind gefressen worden !!!"
  794 fori=255to1step-1:poke59464,i:nexti
  795 print"{down}wollen sie nochmal ?"
  796 geta$:ifa$="n"thenend
  797 ifa$="j"thenrun
  800 goto796
  810 print"{clr}{down}{down}ziel des spieles ist,in einem la-"
  820 print"{down}byrint alle punkte einzusammeln."
  830 print"{down}das sind sie :  Q"
  840 print"{down}das sind die monster :  X"
  850 print"{down}wenn sie eine kraftpille (W) gegessen"
  860 print"{down}haben,dann sehen die monster so aus:Z"
  870 print"{down}dann koennen sie die monster auch fres-"
  880 print"{down}sen.sonst fressen die monster sie !!!! "
  881 printspc(20);"{down}{down}{down}'return'"
  882 geta$:ifa$<>chr$(13)then882
  883 print"{clr}{down}sie steuern ihren mann so:"
  884 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}8{down}{left}B{down}{left}{left}{left}4-5-6{down}{left}{left}{left}B{down}{left}2"
  885 print"{down}{down}{down}{down}"
  890 return
  900 fori=1to50:sys826:fort=1to10
  905 poke59464,(500-(i*t))/2:nextt,i
  910 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}sie haben gewonnen !!!"
  920 print"{down}{down}{down}"
  950 goto794
    2 rem pak jana
    4 rem
    6 rem program allows user to control          animation of dancing figure
    8 rem
   10 rem written instructions for                animation are available from:
   12 rem
   14 rem bill finzer, math dept
   16 rem san francisco state university
   18 rem san francisco ca 94132
   20 rem
   22 rem program may run 'as is' on 16k          or larger pet
   24 rem
   26 rem to run program on 8k pet, copy          lines 1-160 and then delete
   28 rem these lines before running              program
   30 rem
   32 rem instructions for pak jana's             movements:
   34 rem (n stands for any digit 1 to 9           unless stated otherwise)
   36 rem     hen -- changes head or                         expression
   37 rem   possible moves: he1,he2,he3,            he4,he5,he6,he7,he8,he9
   38 rem
   40 rem     lan -- changes the left arm
   41 rem   possible moves: la1,la2,la3,            la4,la5,la6,la7,la8,la9
   42 rem
   44 rem     ran -- changes the right arm          possible moves: ra1,ra2,ra3,
   45 rem   ra4,ra5,ra6,ra7,ra8,ra9
   46 rem
   48 rem     lln -- changes the left leg                    (n=1,3,6,9)
   49 rem   possible moves: ll1,ll3,ll6,            ll9
   50 rem
   52 rem     rln -- changes the right leg                   (n=1,3,4,7)
   53 rem   possible moves: rl1,rl3,rl4,            rl7
   54 rem
   56 rem     wa -- followed by any number                  followed by a dash
   58 rem           causes the computer to                  wait that many tenths
   60 rem            of a second.
   64 rem
   68 rem       8 -- moves dancer up
   70 rem       6 -- moves dancer right
   72 rem       4 -- moves dancer left
   74 rem       2 -- moves dancer down
   78 rem gbn-m-  -- causes computer to                     re-execute the last n
   80 rem           instructions m times.                   dashes are important!
   84 rem      e -- causes the whole dance                  to be execute without
   86 rem           pause
   88 rem      p -- lists the whole dance                   program
   90 rem      f -- finished. start a new                   dance program.
   92 rem
   94 rem  -----sample program-----
   96 rem  load pak jana
   97 rem
   98 rem type run. when the pak jana             figure appears on the screen
   99 rem type the following commands:
  100 rem la9,he9,ra7,la7,rl7,4,4,4
  101 rem
  102 rem following steps 96-100 above            will cause the pak jana figure
  104 rem to move across the screen.
  105 rem
  106 rem  you can create endless                  variations of the dance
  108 rem by using the commands in lines          32-90
  110 rem
  150 rem the program creates a simple            animation language.
  160 rem pak jana figure can easily be           changed to an animal, face, etc.
  170 poke59468,12
  180 dimin$(100),s(10,2)
  190 gosub500
  200 rem----main---
  210 print"{clr}":x=20:y=11
  220 gosub800
  230 printbo$(1)rl$(4)ll$(6);
  240 printhe$(5)ra$(3)la$(6);
  250 gosub1500
  252 ifa$="d"thenprint"{home}delete 1":p=p-1:goto250
  255 ifa$="f"thenclr:goto180
  260 ifa$="p"thenprint"{clr}";:ns=p:gosub 5000:goto250
  270 ifa$="e"then ns=p:gosub 4500:p=p-1:goto250
  500 rem-init---
  502 p=1:ns=1
  510 he$(5)="{up}{up}{up}{up}{up}{up}{up}{left}{CBM-@}{CBM-@}{down}{left}{left}{left}{SHIFT--}{CBM-D}{CBM-D}{SHIFT--}{down}{left}{left}{left}{left}{SHIFT--} >{SHIFT--}{down}{left}{left}{left}{left}{SHIFT--}JK{SHIFT--}{down}{left}{left}{left}EE{down}{down}{down}{left}"
  511 he$(2)="{up}{up}{up}{up}{left}UI"
  512 he$(4)="{up}{up}{up}{up}{up}{up}{left}{CBM-F}{CBM-F}{down}{left}{left}< "
  513 he$(6)="{up}{up}{up}{up}{up}{up}{left}{CBM-D}{CBM-D}{down}{left}{left} >"
  514 he$(8)="{up}{up}{up}{up}{left}JK"
  515 he$(9)="{up}{up}{up}{up}{up}{up}{left}**"
  516 he$(1)="{up}{up}{up}{up}{left}--"
  517 he$(7)="{up}{up}{up}{up}{up}{up}{left}..{down}{left}{left}{CBM-Z}{CBM-X}"
  518 he$(3)="{up}{up}{up}{up}{up}{up}{left}{CBM-F} {down}{left}{left}{left}<  {down}{left}{left}K "
  530 bo$(1)="{up}{up}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left}{SHIFT--} VV {SHIFT--}{down}{left}{left}{left}{left}{left}{left}{SHIFT--} VV {SHIFT--}{down}{left}{left}{left}{left}{left}M  N{up}{left}{left}"
  540 la$(6)="{up}{up}{rght}{rght}{rght}M{down}M{CBM-@}{CBM-@}{down}{left}{left}{left}{left}M{CBM-@}{CBM-@}{CBM-@}(]{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  541 la$(1)="{up}{up}{rght}{rght}{rght}M{down}M{down}{left}{left}M M{down}{left}{left}{left}N N{down}{left}{left}{left}{left}U N{down}{left}{left}K"
  542 la$(7)="{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}<{CBM-@}{CBM-@}{CBM-M}{down}{left}{left}N{CBM-M}{down}{left}{left}{left}N N{down}{left}{left}N"
  543 la$(9)="{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}I{down}{left}{left}{left}NJ{down}{left}{left}{left}N N{down}{left}{left}{left}{left}N N{down}{left}{left}{left}{left}N N{down}{left}{left}N"
  544 la$(5)="{up}{up}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}MU{down}K"
  545 la$(8)="{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}S{down}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{left}N {SHIFT--}{down}{left}{left}{left}{left}N N{down}{left}{left}{left}{CBM-@}N"
  546 la$(3)="{up}{up}{rght}{rght}{rght}M{down}M{down}{left}{left}M M{down}{left}{left}M M{down}{left}{left}MU{down}K"
  547 la$(2)="{up}{up}{rght}{rght}{rght}M{down}G{down}{left}{left}{CBM-G}G{down}{left}{left}{CBM-G}G{down}{left}{left}{CBM-G}G{down}{left}{left}W"
  548 la$(4)="{up}{up}{rght}{rght}{rght}M{down}M{down}{left}{left}M M{down}{left}{left}{left}{CBM-T}  M{down}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  550 ra$(3)="{left}{left}{left}{left}{left}{left}N{up}N{up}N{down}{down}{left}N{down}{left}{left}{left}M M{down}{left}{left}M I{down}{left}{left}J{rght}{rght}{rght}{up}{up}{up}"
  551 ra$(4)="{up}{up}{left}{left}{left}{left}N{down}{left}{left}N{down}{left}{left}{left}{left}{left}[){CBM-T}{CBM-T} N{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}"
  552 ra$(9)="{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{CBM-G}{CBM-@}{CBM-@}Q{down}{left}{left}{left}{left}{CBM-G}M{down}{left}{left}M M{down}{left}{left}M{CBM-@}"
  553 ra$(7)="{up}{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-D}{down}{CBM-V}M{down}{left}{left}M M{down}{left}{left}M M{down}{left}{left}M M{down}{left}{left}M{CBM-@}"
  554 ra$(5)="{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}IN{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left}J"
  555 ra$(8)="{up}{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{CBM-E}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--} M{down}{left}{left}M M{down}{left}{left}M{CBM-@}"
  556 ra$(6)="{up}{up}{left}{left}{left}{left}N{down}{left}{left}N{down}{left}{left}N N{down}{left}{left}{left}{left}N  {CBM-T}{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  557 ra$(1)="{up}{up}{left}{left}{left}{left}N{down}{left}{left}N{down}{left}{left}N N{down}{left}{left}{left}{left}N N{down}{left}{left}{left}{left}U N{down}{left}{left}K"
  558 ra$(2)="{up}{up}{left}{left}{left}{left}N{down}{left}{left}H{CBM-M}{down}{left}{left}H{CBM-M}{down}{left}{left}H{CBM-M}{down}{left}{left}H{CBM-M}{down}{left}["
  560 ll$(6)="{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{CBM-T}{CBM-T}{up}{left}{left}{left}{SHIFT--} M{up}{left}{left}{left}{SHIFT--}{CBM-M}{up}{left}{left}{SHIFT--}{CBM-M}{up}{left}{left}{left}M M{up}{left}{left}{left}{left}M M{up}{left}{left}M{up}{up}{left}{left}"
  561 ll$(9)="{down}{down}{rght}M{down}{left}{left}M M{down}{left}{left}M M{down}{left}{left}M M{down}{left}{left}M MN{CBM-G}{down}{left}{left}{left}{left}M{CBM-@}N"
  562 ll$(3)="{down}{down}{rght}M{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--} M{down}{left}{left}{CBM-T}{CBM-T}"
  563 ll$(1)="{down}{down}{rght}M{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}{SHIFT--}{CBM-M}{down}{left}{left}N{CBM-M}{down}{left}{left}{CBM-T}{CBM-T}"
  570 rl$(4)="{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{down}{CBM-T}{CBM-T}{up}{left}{left}N {SHIFT--}{up}{left}{left}{CBM-G}{SHIFT--}{up}{left}{left}{CBM-G}{SHIFT--}{up}{left}{left}N N{up}{left}{left}N N{up}{left}{left}N{rght}{up}{up}"
  571 rl$(3)="{left}{left}{down}{down}N{down}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}M{down}{left}{left}{CBM-T}{CBM-T}"
  572 rl$(1)="{down}{down}{left}{left}N{down}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{CBM-G}{SHIFT--}{down}{left}{left}{left}N {SHIFT--}{down}{left}{left}{left}{CBM-T}{CBM-T}"
  573 rl$(7)="{down}{down}{left}{left}N{down}{left}{left}N N{down}{left}{left}{left}{left}N N{down}{left}{left}{left}{left}N N{down}{left}{left}{left}{left}{left}{left}{CBM-M}MN N{down}{left}{left}{left}{left}M{CBM-@}N"
  590 e2la$="{up}{up}{up}{up}{up}{up}{up}{rght}{rght}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}"
  591 e2la$=e2$+"{left}{left}       {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}      "
  592 e2la$=e2la$+"{down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}      {left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{up}{up}"
  595 e1$="{up}{up}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       "
  596 e1$=e1$+"{down}{left}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}"
  597 e1$=e1$+"      {down}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}     {rght}{rght}{rght}{up}{up}{up}"
  600 e4ll$="{down}{down}  {down}{left}{left}   {down}{left}{left}{left}    {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}        {down}{left}{left}{left}{left}{left}{left}{left}{left}        "
  602 e4ll$=e4ll$+"{down}{left}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {left}{left}{left}{left}{left}{left}{left}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
  605 e3r$="{down}{down}{left}{left}  {down}{left}{left}{left}   {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}{left}{left}{left}        {down}{left}{left}{left}{left}{left}{left}{left}       "
  606 e3$=e3$+"{down}{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}{left}       {up}{up}{up}{up}{up}{up}{up}{up}{up}"
  610 r1$="{home}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}"
  620 r2$="{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} {down}{left}{inst} "
  630 lf$="{home}"
  640 fori=1to24
  650 lf$=lf$+"{rght}"+chr$(20)+"{down}"
  660 nexti
  670 d$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  790 return
  800 rem-cursor to x,y-
  810 ify=0thenprint"{home}":print"{home}"tab(x);:return
  820 print"{home}":print"{home}"left$(d$,y)tab(x);
  830 return
 1500 rem---get instruct--
 1510 print"{home}                                     {home}";
 1515 gosub8000
 1520 ifval(a$)>0thenin$(p)=a$:gosub2000:p=p+1:goto1510
 1530 ifa$="e"ora$="p"ora$="f"ora$="d"thenreturn
 1540 ifa$<>"h"anda$<>"r"anda$<>"l"anda$<>"g"anda$<>"w"then1510
 1550 in$(p)=a$
 1560 fori=1to2
 1570 gosub8000
 1580 in$(p)=in$(p)+a$
 1590 nexti
 1600 ifleft$(in$(p),1)="w"thengosub3500:p=p+1:goto1510
 1610 ifleft$(in$(p),1)="g"thengosub2500:p=p+1:goto1510
 1620 gosub3000:rem move part
 1630 p=p+1:goto1510
 2000 rem-move---
 2010 a=val(in$(p))
 2015 if(a=2andy>13)or(a=4andx<10)or(a=6andx>30)or(a=8andy<9)then2070
 2020 ifa=2theny=y+1:poke225,128:print"{home}":print"{home}"tab(38)"x{left}{inst}{inst}{left}{left}{left}{left}   ";
 2030 ifa=4thenx=x-1:printlf$;
 2040 ifa=6thenx=x+1:printr1$;r2$;
 2050 ifa=8theny=y-1:poke225,128:print"{home}"d$
 2070 return
 2500 rem--finish get go back---
 2510 gosub8000
 2520 ifa$="-"then2600
 2530 in$(p)=in$(p)+a$
 2540 goto2510
 2600 in$(p)=in$(p)+a$
 2610 gosub8000
 2620 ifa$="-"then2645
 2630 in$(p)=in$(p)+a$
 2640 goto2610
 2645 ns=p+1:gosub4600
 2647 p=p-2
 2650 return
 3000 rem-move part---
 3005 gosub800
 3010 in$=left$(in$(p),2)
 3020 a=val(right$(in$(p),1))
 3030 ifin$="ra"thengosub3100
 3040 ifin$="la"thengosub3200
 3050 ifin$="rl"thengosub3300
 3060 ifin$="ll"thengosub3400
 3070 ifin$="he"thengosub3450
 3080 return
 3100 printe1ra$;ra$(a);:return
 3200 printe2la$;la$(a);:return
 3300 printe3rl$;rl$(a);:return
 3400 printe4ll$;ll$(a);:return
 3450 printhe$(a);:return
 3500 rem---finsih get wait-
 3510 gosub 8000
 3515 ifa$="-"then3540
 3520 in$(p)=in$(p)+a$
 3530 goto3510
 3540 return
 3700 rem-wait---
 3710 t=ti
 3720 cw=1
 3730 w$=right$(in$(p),cw)
 3740 ifasc(w$)<58andasc(w$)>47thencw=cw+1:goto3730
 3750 w=val(right$(in$(p),cw-1))
 3760 ifti<t+w*6then3760
 3770 return
 4000 rem--go back---
 4010 ifs(sp,1)<>pthen4100
 4020 ifs(sp,2)>0then4200
 4030 rem---end loop--
 4040 s(sp,1)=0:sp=sp-1
 4050 return
 4100 rem-new loop--
 4110 sp=sp+1:s(sp,1)=p
 4120 in$=in$(p)
 4130 cl=len(in$)
 4140 ifmid$(in$,cl,1)<>"-"thencl=cl-1: goto 4140
 4150 s(sp,2)=val(mid$(in$,cl+1,len(in$)))
 4200 rem---looping
 4210 gosub 4300
 4220 p=p-b-1:ifp<0thenp=0
 4230 s(sp,2)=s(sp,2)-1
 4240 return
 4300 rem---get backstep----
 4310 in$=in$(p)
 4330 b=val(mid$(in$,3))
 4370 return
 4500 rem--driver---
 4502 print"{clr}":x=20:y=11
 4504 gosub 800
 4506 printbo$(1)rl$(4)ll$(6);
 4508 printhe$(5)ra$(3)la$(6);
 4510 p=1
 4520 forsp=1to10
 4530 s(sp,1)=0:s(sp,2)=0
 4540 nextsp
 4550 sp=1
 4600 in$=in$(p)
 4604 print"{home}           "
 4605 print"{home}"p;in$
 4610 f$=left$(in$,1)
 4620 ifval(f$)>0thengosub2000
 4630 iff$="w"thengosub3700:goto4670
 4640 iff$="g"thengosub4000:goto4670
 4660 gosub3000:rem body part
 4670 p=p+1
 4680 ifp>=nsthenp=p+1:return
 4690 goto4600
 5000 rem--program--
 5010 print"{clr}{down}program
 5020 fori=1tons-1
 5030 printi;in$(i),
 5040 nexti
 5060 return
 8000 rem get a$
 8010 get a$:if a$=""then8010
 8012 ifasc(a$)=13then8010
 8015 printa$;
 8020 return
    0 clr:poke59468,12:pk=12
    1 rem paper copyright (c) 1979 ralph s. dufour
    2 rem cursor #7, february, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 1 apr 80
   90 pg$="paper":nm$="7":gosub62000
  100 print"design your wallpaper. type four graphic"
  110 print"{up}symbols and press {rvon}return{rvof}: ";
  120 gosub60000:in$=left$(in$+"    ",4)
  130 fori=0to3:w$(i)=mid$(in$,1+i,1):next i
  140 print"{clr}"
  150 fori=0to3:print"{home}";
  160 fort=1to23
  170 fors=i+1toi+36step4
  180 printtab(s)"{rvon}"w$(i);
  190 nexts
  200 print
  210 nextt
  220 nexti
  262 print"{home} O";
  270 forr=2to35
  280 print"{CBM-T}";
  290 nextr
  295 print"P":print"{home}{down}";
  300 forb=2to22
  310 print" {CBM-G}";:printtab(36)"{CBM-M}"
  320 nextb:print" L";
  330 forr=2to35
  340 print"{CBM-@}";
  350 nextr
  355 print"{SHIFT-@}{home}{down}{down}{down}"
  390 fort=1to1500:next
  400 printtab(25);"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  410 printtab(25);"{CBM-G}{CBM-@}O{CBM-T}P{CBM-@}{CBM-M}"
  420 printtab(25);"{CBM-G}/W{$a0}W\{CBM-M}"
  430 printtab(25);"{CBM-G} UZI {CBM-M}"
  435 printtab(25);"{CBM-G}  =  {CBM-M}"
  436 printtab(25);"L{CBM-@}dad{CBM-@}{SHIFT-@}"
  440 print:print
  485 fort=1to1000:next
  500 printtab(3)"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  510 printtab(3)"{CBM-G}      {CBM-M}"
  520 printtab(3)"{CBM-G}      {CBM-M}"
  530 printtab(3)"{CBM-G}      {CBM-M}"
  540 printtab(2)".{CBM-G}      {CBM-M}"
  550 printtab(3)"{CBM-G}      {CBM-M}"
  560 printtab(3)"{CBM-G}W     {CBM-M}"
  570 printtab(3)"{CBM-G}      {CBM-M}"
  580 printtab(3)"{CBM-G}      {CBM-M}"
  590 printtab(3)"{CBM-G}      {CBM-M}"
  600 printtab(3)"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  605 fort=1to1000:next
  610 print"{up}{up}{up}{up}{up}{up}{up}
  620 printtab(20)"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}"
  630 printtab(22)  "{CBM-+}"
  640 printtab(22)  "{CBM-+}"
  650 printtab(22)  "{CBM-+}{rght}:"
  660 printtab(22)  "{CBM-+}{rght}{rght}{rght}{rght}{rght}{rght}{rght}%{rght}{rght}{rght}{rvon}N"
  670 printtab(22)  "{CBM-+}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-+}{CBM-+}{CBM-+}"
  680 printtab(21) "N M{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}\{SHIFT--}\"
  700 print"very nice. press any key to try again.{up}{up}{up}{up}":printspc(34);
  720 geta$:ifa$<>""thenprint"{clr}":goto100
  800 fort=1to250:nextt
  810 print"{rvon}{CBM-G}{left}";
  815 fort=1to250:nextt
  820 print"{rvon}N{left}";:goto720
  999 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 for i=1to10:print"DDDD";:next i:return
 62000 print"{clr}{down}{down}";tab(9);"cursor # 7  paper"
 62002 print"{down}copyright (c) 1979  by ralph dufour
 62004 gosub 60500
 62010 print "{down}interior{$a0}decorating{$a0}made{$a0}easy
 62020 print"{down}{down}this{$a0}program{$a0}is an exercise{$a0}in crea-
 62030 print"tivity.  you will{$a0}be{$a0}asked{$a0}for four
 62040 print"characters (not necessarily different)
 62050 print"which will be used to form{$a0}a pattern
 62060 print"for wallpaper.  the result{$a0}will then be
 62070 print"displayed for your enjoyment.
 62080 print"{down}{down}{down}press{$a0}{rvon}return{rvof} to begin:
 62090 gett$:ift$=""then62090
 62100 print"{clr}";:poke 59468,pk:return
    0 clr:poke59468,12:pk=12
    1 rem pegboard copyright (c) 1979 julia hallford
    2 rem rt #1, box 455
    3 rem wylie, tx 75098
    4 :
    5 rem cursor #11, june, 1979
    6 rem box 550, goleta, ca. 93017
    7 :
   10 rem as of 7/5/79
   90 pg$="peg":nm$="11":gosub62000
  100 cr$=chr$(13)
  105 bb$="                                       "
  110 print"{down}want to see how to solve the puzzle? ";
  120 gosub60000
  130 print"{clr}";:gosub1000
  140 ifleft$(in$,1)="y"then1200
  150 m=0:x=5
  160 print"{home}";bb$
  180 m=m+1:dl=0:print"{home}move #"m:y=x
  190 gosub800:gosub700:dl=1000
  200 printtab(6);"from? ";:gosub60000
  201 ifin$=""thenprint"{up}";:goto200
  202 ifasc(in$)=32thenin$=mid$(in$,2):goto201
  205 x=val(in$)
  210 ifx=0then470
  220 ifx<1orx>9thenprint"type a number from 1 to 9, please.":goto190
  230 ifabs(x-y)>2then450
  240 ifp(x)=32goto450
  260 ifp(x)=62andx>ythen450
  270 ifp(x)=60andx<ythen450
  280 p(y)=p(x):p(x)=32
  290 jx=33097+2*x:jy=33097+2*y
  320 pokejy,p(y):pokejx,32
  330 fori=1to4
  340 ifp(i)<>60goto370
  350 nexti
  360 ifp(5)=32goto530
  370 goto180
  450 printtab(6);"{down}illegal move":goto190
  470 m=m-1:ifm>mxthenmx=m
  480 printspc(11)"{down}try again? ";
  500 gosub60000
  510 ifleft$(in$,1)<>"n"thengosub1000:goto150
  520 goto600
  530 fork=0to15:print"{home}"spc(12)"!!!{rvon}congratulations{rvof}!!!
  550 printspc(12)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}play again? ";
  555 gosub60000:ifleft$(in$,1)<>"n"then gosub1000:goto150
  556 print"{clr}":end
  600 print"{down}the closest you came to a solution
  610 print"was";mx;"moves."
  640 print"{down}{down}want to see how to solve it? ";
  650 gosub60000:print"{clr}"
  660 ifleft$(in$,1)="y"thengosub1000:goto1200
  670 end
  700 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
  800 fort=1todl:nextt
  810 gosub700:forz=1to5:printbb$:nextz:return
 1000 t$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1010 print"{home}{down}{down}{down}{down}";tab(8);t$
 1025 fori=1to5:printtab(8);"{CBM-+}";tab(30);"{CBM-+}":nexti
 1026 printtab(8);t$;"{home}{down}{down}{down}{down}{down}"
 1030 printspc(10)" 1 2 3 4 5 6 7 8 9"
 1040 printspc(10)"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
 1050 printspc(10)"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}"
 1055 restore
 1060 fori=1to9:readp(i)
 1070 poke33097+i+i,p(i):nexti
 1120 return
 1200 j=33097
 1210 dl=500
 1300 fork=1to24
 1420 readm,n
 1430 jm=j+m+m:jn=j+n+n
 1450 print"{home}move #";k
 1460 gosub700:printtab(5);"from";m;"to";n
 1470 p=188:ifp(m)=62thenp=190
 1480 pokejm,p:forl=1todl:nextl:pokejm,32
 1490 pokejn,p:forl=1todl:nextl:pokejn,p(m)
 1550 p(n)=p(m):p(m)=32
 1555 foro=1todl:nexto
 1600 nextk
 1610 gosub 700:print"{rght}{rght}{rght}{rght}{rght}now you try it":fortt=1to1000:nexttt:printbb$
 1620 gosub 1000:goto 150
 2000 data62,62,62,62,32,60,60,60,60
 2030 data6,5,4,6,3,4,5,3,7,5,8,7,6,8,4,6,2,4,1,2,3,1,5,3
 2040 data7,5,9,7,8,9,6,8,4,6,2,4,3,2,5,3,7,5,6,7,4,6,5,4
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;" (c) 1979       page";pn
 60270 gosub60500:return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:next:return
 62000 print"{clr}{down}";tab(9);"cursor #11   pegboard
 62010 print"{down} copyright (c) 1979   by julia hallford{down}
 62020 gosub60500
 62025 print"{down}{down}reverse two sets of pegs on a board
 62030 print"{down}{down}want instructions? ";:gosub60000
 62040 ifleft$(in$,1)<>"y"thenprint"{clr}";:poke59468,pk:clr:goto100
 62100 lp=2:gosub60200
 62400 print"this game is played with two sets of
 62410 print"{down}four pegs represented by '<'{rght}and'>'.
 62420 print"{down}the board starts out with a set of pegs
 62430 print"{down}at each{$a0}end, with a space between them.
 62440 print"{down}{down}the object of the game is to switch the
 62450 print"{down}two sets of{$a0}pegs. a peg may either move
 62460 print"{down}into the space, if the space is next to
 62470 print"{down}the peg, or jump over one peg into the
 62480 print"{down}space. '>' pegs move to the right, and
 62490 print"{down}'<' pegs to the left.
 62495 gosub60200
 62500 print"to move, type the number of the space
 62510 print"{down}from which you want the peg moved, and
 62520 print"{down}hit {rvon}return{rvof}. if you reach a position
 62530 print"{down}in which you have no legal move, enter
 62545 print"{down}a '0' to resign.
 62550 print"{down}{down}the puzzle can be solved in{$a0}24 moves.
 62555 print"{down}see how well you can do.
 62560 gosub60200
    5 print"{clr}{down}{down}{down}{down}"
   10 print"    W ",," o"," W"
   12 print"   J{CBM-E}I",,"U{CBM-E}I","U{CBM-E}K"
   13 print"    Q ","{rvon}people{rvof}"," S"," {CBM-+}{CBM--}"
   14 print"    {CBM-G}{CBM-G}",," {CBM-H}{CBM-H} "," {CBM--}{CBM--}"
   18 if g then 200
   20 print"{down}{down}should i read a data file first";
   30 g=3:def fnq(z)=(asc(b$)=z)
   32 gosub999
   35 if yes then open1,8,3,"t.data":input#1,g
   40 dim g$(99),yn(99)
   50 g$(1)="?is this a female person":g$(2)="marilyn monroe"
   60 g$(3)="woody allen":yn(1)=2:yn(2)=3
   70 if not yes goto 110
   80 fori=1tog:input#1,b$
   90 input#1,yn(i)
   95 if not fnq(63)then print,b$
  100 g$(i)=b$:next:close1
  110 print"{down}{down}{down}{down}"
  115 print,"{rvon}think of a person..."
  120 print"{down}    {rvon}type any key when you are ready."
  130 geta$:ifa$=""then130
  140 ifa$<>"s"then5
  150 rem *list & save
  151 fori=1tog:printi;yn(i),g$(i):next
  160 open1,8,2,"@0:t.data,s,w":print#1,g
  165 fori=1tog:b$=g$(i):print#1,b$
  168 print#1,yn(i):next
  170 close1:print"{down}{down}bye!":end
  200 x=1:b$=g$(x)
  210 print"{down}{down}{down}"
  250 print mid$(b$,2,99);
  300 gosub999:s=x+1+yes:p=yn(s)
  350 b$=g$(p):if fnq(63)thenx=p:goto250
  375 print"{down}",b$", right";
  379 gosub999
  380 ifyesthenprint"  wow, do some more!":goto110
  399 ifg>99then150
  400 print"i give up:  who is it";
  410 v$=b$:inputb$:ifasc(b$)<65then110
  420 print"{rvon}please enter a question that would"
  425 print"{rvon}distinguish ";b$;" from ";v$
  430 inputw$:g=g+1:g$(g)="?"+w$:getw$
  440 print"for ";b$;" the answer would be (y/n)";:gosub999
  450 yn(g-(notyes))=g+1
  460 yn(g-yes)=p:yn(s)=g
  470 g=g+1:g$(g)=b$
  500 goto110
  995 **allows yes, si, ja, oui, right
  999 print"? ";
 1000 geta$:ifa$=""then1000
 1005 printa$
 1500 yes=a$="y"or a$="s"or a$="j"ora$="o"ora$="r"
 1600 ifyes then return
 2000 if a$<>"n" then print"yes or no";:goto999
 2001 return
    0 o=0:poke59468,14
    1 print"{clr}{down}{down}{down}"
    2 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
    3 a=64:gosub276
    4 print"{CBM-+}        {CBM-+}"
    5 a=96:gosub276
    6 print"{CBM-+} pesten {CBM-+}"
    7 a=124:gosub276
    8 print"{CBM-+}        {CBM-+}"
    9 a=166:gosub276
   10 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
   11 f=rnd(-ti)
   12 a=50:gosub276
   13 print"{down}{down}betekenis van de kaarten:
   14 print"{down}2 - 2 KAARTEN{$a0}PAKKEN + BEURT{$a0}OVERSLAAN":gosub276
   15 print"8 - BEURT{$a0}OVERSLAAN":gosub276
   16 print"jj- 5 KAARTEN PAKKEN
   17 print"b - MAG{$a0}ALTIJD{$a0}WORDEN{$a0}GEBRUIKT, TER-
   18 print"    WIJL EEN NIEUWE KLEUR MAG
   19 print"    WORDEN GEKOZEN":gosub276
   20 print"{down}aLS U NIET KUNT DAN '0' INTYPEN"
   21 print"{down}{down}mET{$a0}HOEVEEL KAARTEN WILT U{$a0}BEGINNEN ";
   22 input" {CBM-B}{left}{left}{left}";f:iff>15thenprint"{down}sORRY, HOEVEEL ???";:goto22
   23 g=f
   24 dima$(20):dimb$(20)
   25 gosub140
   26 z=0
   27 forn=1tof
   28 gosub146
   29 a$(n)=d$
   30 gosub146
   31 b$(n)=d$
   32 next
   33 print"{clr}"
   34 poke59468,12
   35 gosub159
   36 gosub166
   37 b=int(2*rnd(1))
   38 print"{home}"
   39 print"{home}{down}{down}{down}{down}{down}{down}{down}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}
   40 print" {CBM-M}    {CBM-G}
   41 print" {CBM-M}    {CBM-G}
   42 print" {CBM-M}    {CBM-G}
   43 print"  {CBM-T}{CBM-T}{CBM-T}{CBM-T}
   44 gosub146
   45 e$=d$
   46 t6=ti:ifh<>0thenprint"{home}{down}{down}{down}{rght}{rght}{rght}{down}{down}{down}{down}{down}  {down}{left}{left}  "
   47 ifti-t6<10then47
   48 print"{home}{down}{down}{down}{rght}{rght}{rght}{down}{down}{down}{down}{down}{CBM-P}{CBM-P}{down}{left}{left}{rvon}"e$:ifg=0then224
   49 print"{home}"tab(38)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} "
   50 xr$=right$(e$,1):xl$=left$(e$,1)
   51 ifb=0thenprint"{home}"tab(38)"{down}{down}{down}{down}_"
   52 ifb=0then54
   53 goto105
   54 gosub248
   55 goto184
   56 q=int(rnd(1)*3)+2:iff<15andf>2andg>qthen66
   57 ifg>qandf>xjthen61
   58 forn=1tof
   59 ifa$(n)="jj"then87
   60 next
   61 forn=1tof
   62 ifleft$(a$(n),1)=xl$andright$(a$(n),1)="2"then87
   63 ifleft$(a$(n),1)=xl$andright$(a$(n),1)="8"then87
   64 next
   65 ife$="jj"thenn=w:goto87
   66 forn=1tof
   67 ifright$(a$(n),1)="b"then71
   68 iff>8andg>4andright$(a$(n),1)="2"then71
   69 iff>8andg>4andright$(a$(n),1)="8"then71
   70 ifleft$(a$(n),1)=xl$then87
   71 next
   72 forn=1tof
   73 ifright$(a$(n),1)=xr$then87
   74 next
   75 forn=1tof
   76 ifright$(a$(n),1)="b"then87
   77 next
   78 f=f+1
   79 gosub146
   80 a$(f)=d$
   81 t6=ti
   82 ifti-t6<60then82
   83 print"{home}{down}{down}{down}"
   84 gosub161
   85 a=100:gosub276
   86 goto105
   87 e$=a$(n)
   88 ifright$(e$,1)="b"thene$=w$
   89 ifn=fthen93
   90 fori=ntof-1
   91 a$(i)=a$(i+1)
   92 next
   93 a$(f)=""
   94 x=0:z=0
   95 f=f-1
   96 forn=1to100:next
   97 t6=ti:print"{home}{down}{down}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}  {down}{left}{left}  "
   98 ifti-t6<12then98
   99 print"{home}{down}{down}{down}{down}"tab(f*2+1)"  {down}{left}{left}  "
  100 print"{home}{down}{down}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{CBM-P}{CBM-P}{down}{left}{left}{rvon}"e$
  101 a=200:gosub276
  102 t6=ti
  103 ifti-t6<60then103
  104 iff=0then225
  105 print
  106 getf$:iff$<>""then106
  107 print"{home}"tab(38)"{down}{down}{down}{down} {left}{down}{down}{down}{down}{down}{down}{down}{down}{down}_"
  108 goto208
  109 h=0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                      "
  110 print"{up}"
  111 print"{home}"tab(38)"{down}{down}{down}{down} {left}{down}{down}{down}{down}{down}{down}{down}{down}{down}_":gosub137
  112 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}welke kaart wilt u (nr.)  ";:a=50:gosub276
  113 input" {CBM-B}{left}{left}{left}";h$:h=val(h$):ifh>20thenprint"{up}":goto112
  114 ifh=0theng=g+1:goto132
  115 gosub202
  116 o=1:gosub166:ify=1then119
  117 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}wel eerlijk blijven!!! welke kaart{rvof}     {left}{left}{left}{left}";
  118 goto113
  119 print"{down}opgooien={rvon}return{rvof} herstellen={rvon}h{rvof}         "
  120 u=1:goto267
  121 print"{up}                                  ":ifp$="h"then112
  122 ifright$(b$(h),1)="b"then241
  123 e$=b$(h)
  124 forn=htog-1
  125 b$(n)=b$(n+1)
  126 next
  127 b$(g)=""
  128 g=g-1
  129 a=100:gosub276
  130 o=0: gosub166
  131 b=0:z=0:x=0:goto46
  132 print"{up}kaart erbij                        ":gosub146
  133 b$(g)=d$
  134 a=150:gosub276
  135 gosub166
  136 b=0:goto46
  137 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  138 forn=1to5:print"                                      ";:nextn
  139 print:return
  140 c$="ZaZ2Z3Z4Z5Z6Z7Z8Z9ZtZbZvZhjjjjjj"
  141 c$=c$+"XaX2X3X4X5X6X7X8X9XtXbXvXh"
  142 c$=c$+"SaS2S3S4S5S6S7S8S9StSbSvSh"
  143 c$=c$+"AaA2A3A4A5A6A7A8A9AtAbAvAh"
  144 c$=c$+c$
  145 return
  146 r=2*int(len(c$)*rnd(1)/2+1)-1
  147 d$=mid$(c$,r,2)
  148 ifr>1thent$=left$(c$,r-1):goto150
  149 t$=""
  150 c$=t$+mid$(c$,r+2)
  151 iflen(c$)=0thengosub140
  152 a=20:gosub276
  153 c=len(c$)/10:print"{home}"
  154 fori=1toc
  155 print"{rvon}Q{rvof}";
  156 next
  157 printc*5"{left}   "
  158 return
  159 print"{home}{down}{down}{down}"
  160 print"                                   {up}"
  161 print" ";
  162 forn=1tof
  163 print"{CBM-+}{down}{left}{CBM-+}{up} ";
  164 next
  165 return
  166 print"{home}"
  167 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  168 print"{rght}";
  169 forn=1tog
  170 print"{rvon}";:ifh=nando=1thenprint"{rvof}";
  171 printleft$(b$(n),1)"{down}{left}"right$(b$(n),1)"{rvof}{up} ";
  172 next
  173 ifg>18thenprint"{up}"
  174 print" {down}{left} "
  175 print
  176 forn=1tog
  177 ifh=nando=1thenprint" {rvon}^{rvof}";:goto181
  178 ifn>9thenp=n-10:goto180
  179 p=n
  180 printp"{left}";
  181 next
  182 print"  "
  183 return
  184 o=0
  185 ifx=1then56
  186 ife$="jj"theno=5:x=1
  187 ifxr$="2"theno=2:x=1
  188 ifxr$="8"andz=0thenz=1:goto110
  189 ifo=0then56
  190 forn=1too
  191 f=f+1
  192 gosub146
  193 a$(f)=d$
  194 next
  195 print"{home}{down}{down}{down}"
  196 gosub161
  197 ifo=2then105
  198 ifo=5andg<3then56
  199 ifo=5thengosub248
  200 ifo=5thenn=w:goto87
  201 goto56
  202 y=0
  203 ifleft$(b$(h),1)=left$(e$,1)theny=1
  204 ifright$(b$(h),1)=right$(e$,1)theny=1
  205 ifb$(h)="jj"orright$(b$(h),1)="b"theny=1
  206 ife$="jj"theny=1
  207 return
  208 y=0
  209 ifx=1then109
  210 ife$="jj"theny=5
  211 ifright$(e$,1)="2"theny=2:x=1
  212 ifright$(e$,1)="8"andz=0thenz=1:goto222
  213 ify=0then109
  214 forn=1toy
  215 g=g+1
  216 gosub146
  217 b$(g)=d$
  218 next
  219 gosub166
  220 ify=5then109
  221 h=0:goto46
  222 print"{home}"tab(38)"{down}{down}{down}{down}_{left}{down}{down}{down}{down}{down}{down}{down}{down}{down} "
  223 goto50
  224 v$="gewonnen":g=0:goto226
  225 v$="{rvon}verloren":g=1
  226 y=0:forn=1to200:next
  227 if(yand1)=0thenprint"{clr}":goto229
  228 print"{home}"
  229 forn=1to20
  230 ifg=0thena=(nand3)*60
  231 gosub276
  232 ifg=1thena=200:gosub276
  233 if(yand1)=0thenprinttab(n)v$
  234 if(yand1)=1thenprinttab(21-n)v$
  235 next
  236 t6=ti
  237 ifti-t6<30then237
  238 y=y+1:ify<3then227
  239 poke59471,0
  240 run
  241 print"{down}{down}welke kleur wilt u (h/s/r/k) ";
  242 input" {CBM-B}{left}{left}{left}";k$
  243 ifk$="h"thene$="SS":goto124
  244 ifk$="s"thene$="AA":goto124
  245 ifk$="r"thene$="ZZ":goto124
  246 ifk$="k"thene$="XX":goto124
  247 goto109
  248 xr=0:xh=0:xs=0:xk=0:xj=1
  249 forn=1tof
  250 s$=left$(a$(n),1)
  251 ifright$(a$(n),1)="b"then257
  252 ifa$(n)="jj"thenxj=xj+1
  253 ifs$="S"thenxh=xh+1
  254 ifs$="Z"thenxr=xr+1
  255 ifs$="X"thenxk=xk+1
  256 ifs$="A"thenxs=xs+1
  257 next
  258 w$="S"
  259 ifxr>xhthenxh=xr:w$="Z"
  260 ifxk>xhthenxh=xk:w$="X"
  261 ifxs>xhthenw$="A"
  262 forw=1tof
  263 ifleft$(a$(w),1)=w$then265
  264 next
  265 w$=w$+w$
  266 return
  267 u=u*-1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  268 printtab((h*2)-1);
  269 ifu=1thenprint"{rvon}";
  270 printleft$(b$(h),1)"{down}{left}"right$(b$(h),1)
  271 forn=1to50:nextn
  272 print
  273 ifu=1then267
  274 getp$:ifp$=""then267
  275 goto121
  276 poke59467,16:poke59466,15:poke59464,a
  277 forr=1to50:next
  278 poke59467,0:poke59466,0:poke59464,0
  279 return
   10 sys1038
   10 sys1038
   10 sys1038
   10 sys1038
{$f8}{stop}{$00}{$00}{CBM-@}W{$00}l.{$e6}{$00}{CTRL-K}{CTRL-D}{$0a}{$00}{yel}1037{$00}{$00}{$00} {$f8}{CTRL-X}{SHIFT-POUND}{$00}{CBM-I}{home}{left}3{CTRL-Y}J{CTRL-P}{$fa} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K}l({CTRL-P}{swlc}{CTRL-U}
{CTRL-B}{wht}{rvon} {CTRL-O}{CTRL-F} 
{wht}{swlc} = {$80}{$80}{$80}{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$83}{$83}{$00}(p{$78}{$a0}H{$f0}{CTRL-X}@{$68}{blk}{CBM-U}{$e0}{dish}0x{$80}{CBM-POUND}P{$f8} h{$70}{gry2}{SHIFT-*}{$f9}@{$60}{$00}mq  {$66}mn {$65}{$00} qnn{$66} {$67} m{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}{$6b}{CTRL-D}{$f0}{red}{CBM-C}{$7f}{CTRL-D}h{CBM-E}{CTRL-A} u{ensh}{blk}{CTRL-G}I{$f2}{$f0}{stop} P{CTRL-F}{left}9{stop}{$68}{up}{CTRL-A}Jl{CBM-POUND}{CTRL-D}{$a0}{$78}{CBM-E}{CTRL-A}{f1}{CTRL-O}H{CBM-E}{CTRL-A}{f1}{CTRL-G}H{CBM-E}{CTRL-A}{f1}{CTRL-P}{$60}{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}9{stop}{CBM-C}{$7f}{CTRL-D}{up}{CTRL-A}J{$f0}{CTRL-G}{$e0}{$0a}{$f0}{stop}l{$ef}{CTRL-D}{CBM-G}{$00}i{CTRL-Z}{f1}{$00}{$60}{CTRL-D}{CTRL-D}{ensh}{ensh}{swlc}{swlc}{home}{home}{CTRL-X}{CTRL-X}{clr}{$83}{$8f}{rvof}{f1}{SHIFT-@}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{sret}{f1}{swuc}{SHIFT-@}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$8f}{gry2}{lgrn}{f5}{f1}{swuc}{SHIFT-@}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-G}{ensh} {home}{CTRL-U}{sret}{ensh}{$80}{CBM-G}{ensh} {CTRL-O}{CTRL-U}{sret}{dish}{$80}{CBM-G}{dish} {home}{CTRL-U}{sret}{CTRL-G}{$80}{CBM-G}{dish} {CTRL-O}{CTRL-U}{sret}{CTRL-F}{$80}{CBM-G}{$0a} {home}{CTRL-U}{sret}{CTRL-U}{$80}{CBM-G}{CTRL-U} {home}{CTRL-U}{sret}'{$80}{CBM-G}{CTRL-U} {CTRL-O}{CTRL-U}{sret}&{$80}{CBM-G}{del} {home}{CTRL-U}{sret}%{$80}{CBM-G}{del} {CTRL-O}{CTRL-U}{sret}${$80}{$60}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}&{CTRL-D}{left}\{$80} W{CTRL-F}{$e8}{$e0}{CTRL-P}P{$f2}{CBM-G}{$0a}){CTRL-O}{ensh}0{left}\{$80}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{$a0}'{SHIFT-POUND}{$a0}{up}{stop} F{CTRL-F}{f7}{CTRL-P}{$f8}J{CTRL-P}{$e4}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{CBM-Z}d{$e8}-f{$e8})?{CTRL-X}{$69}{CTRL-A}I#{CBM-A}{$f1}I{CTRL-D}{blk}{$ed}{CBM-POUND}{CBM-E}{stop}I{$a0}P{wht}{SHIFT-POUND}{$f1}l{$f3}{wht}I{$f2}P{SHIFT--}{SHIFT-POUND}{SHIFT-+}h{f7}{CBM-E}{stop}I{$a0}P
HH{CBM-E}{stop}I{$a0}P{wht}{$68}{f7}l{CTRL-L}{CTRL-F}{$68}lN{wht}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{gry2}{CTRL-X}{$65}{stop}{blk}{CTRL-B}{$e6}{CTRL-D}8{$e9}I{CBM-A}{CTRL-B}F{CTRL-D}{f1}{stop}{SHIFT-POUND}{$f2}{$a0}{CTRL-A}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{f4}h{CBM-I}{CTRL-D}{$a0}({CBM-E}{stop}I P{wht}{SHIFT-POUND}oll{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{SHIFT-POUND}{$63}H{up}{stop} F{CTRL-F}H{CBM-E}{stop}I P{wht}{SHIFT-POUND}pl{$67}{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{CBM-G}{stop}{CTRL-X}{$69}({blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop} W{CTRL-F}JP{SHIFT-*}{$68}{CBM-N} W{CTRL-F}J{$e0}{CTRL-A}{$f0}{stop}lA{wht}{CBM-I}{CTRL-X}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-E}{stop}I{$a0}P{CTRL-D}{SHIFT-POUND}{$e0}{up}{stop}{f7}{CTRL-P}{$f3}{CBM-I}{$00}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-O}{rvon}{wht}{up}{stop}{f7}{CTRL-P}{$f8}{SHIFT-POUND} {CBM-I}{del}{left}\{$80}J{CTRL-P}{$fa}{$60}h{SHIFT-POUND}~8{$e9}{CTRL-A}P{$fb}{$68}{$60}h{SHIFT-POUND}{CTRL-A}{f1}{CTRL-L}{$68}{$60}h{f4}h{SHIFT-POUND}0{CBM-I}~JP{$fd}8{$e9}{CTRL-A}P{$f6}{$68}{CBM-N}{$68}{$60} {$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$a0}{CBM-G}{gry1}IpP{swlc}{$78}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I{$fe}P{$f4}x{CBM-G}
{$f0}{wht}F
l{CTRL-G}{dish}{SHIFT-POUND}{wht}{f1}
{CBM-G}{CTRL-G}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}&J{CTRL-P}{$f8}{CBM-G}{CTRL-O}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-Z}J{CTRL-P}{$f8}{CBM-G}{CTRL-P}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{swlc}J{CTRL-P}{$f8} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-D}{$f0}{CTRL-F} {up}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-B}{$f0}{CTRL-F} {CBM-Z}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I{$00}{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}'{f1}{swlc} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{CBM-Z}{rvon}{$e8}i~){$80}{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I%{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}){f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-G}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{red}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f2}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{$e0}{CTRL-G} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{stop}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Y}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f1}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{CTRL-G}{dish} Z{CTRL-D}F{wht} {clr}{CTRL-D} :{wht}{$f8}{CBM-G}{CTRL-U}8{$e9}{CTRL-A}{f1}{CTRL-U}{CBM-G}{del}{$e9}{$00}{f1}{del}XI{CTRL-U}P{CTRL-W}{CBM-G}{CTRL-U}P{home}{SHIFT-POUND}w{sret}{$6d}{CTRL-D}{SHIFT-POUND}{CTRL-O}{sret}{$77}{CTRL-D} Z{CTRL-D} {CTRL-A}{wht} {clr}{CTRL-D}{CBM-G}{del}I{lgrn}P{ensh}{CBM-G}{CTRL-U}I{lgrn}P{stop} P{CTRL-F}l{$fd}{stop}{CBM-G}{CTRL-G}I{$63}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-G}{wht}{CTRL-X}{$69}{CTRL-B}{CBM-N}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-@}{swlc}{CBM-E}{CTRL-A}{CBM-I}{dish}{SHIFT--}{$ea}{CTRL-F}{$f0}{CTRL-F}J{CTRL-P}{$f8}l{f6}{dish}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{CTRL-K}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{stop}{f7}{f7}{$60}{$a0}{$00}{$60}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}({stop}){CTRL-D}*{wht}~{CBM-E}{$7f}{$e1}{$f9}{$61}{$00}{$00}~{CBM-E}{$7f}~{$f9}{$7f}{$00}{$00}{$fe}{CBM-R}{$fc}{$ec}@{$fb}{$00}{$00}{$fc}{CBM-R}{$fe}{$fb}@{$ec}{$00}{$00}{$e9}{CBM-W}{CBM-*}<{$60}>{$00}{$00}{$e9}{CBM-W}{CBM-*}{CTRL-X}{$60}{CTRL-X}{$00}{$00}{pur}1{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-E}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{pur}3{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-W}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}<:62/,( {CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-P}{CTRL-P}{CTRL-P}  {$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{stop}{dish}
<:62/,( {CTRL-P}{CTRL-F}I{$e0}{$f0}{grn}P{grn}I{$7f}{$f0}{CTRL-Z}I{$61}{$f0}{CTRL-V}I@{$f0}{rvon}I<{$f0}{swlc}I{$60}{$f0}{$0a}I>{$f0}{CTRL-F}I{CTRL-X}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-@}{down}{CBM-V}{CTRL-B}{ensh}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{CTRL-X}{$79}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{CBM-O}{rvon}{ensh}I{CTRL-A}P{stop}le{$0a}{SHIFT-POUND}{CTRL-X}{f1}{home}{gry2}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-O}:{ensh}P({$a0}{$00}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}*{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}{CTRL-B}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}({CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{CBM-I}{$00}{CBM-C}{swuc}{dish}{CBM-E}{stop}Iq{$f0}{CTRL-W}I{$66}{$f0}{home}In{$f0}{CTRL-O}Im{$f0}{CTRL-K}I{$65}{$f0}{CTRL-G}I{$67}{$f0}{stop}l{CTRL-A}{$0a} P{CTRL-F}{$e8}{CBM-C}{swuc}{dish}{up}{rvon}{$e8}{$e0}{CTRL-L}PR{CBM-@}{down}{CBM-V}{CTRL-Z}{ensh}{$a0}{$00}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$a0}({$e8}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{CBM-+}{down}{$a0}q{CBM-E}{stop}{left}*{ensh}{CTRL-X}{$60}{CBM-+}{down}{CBM-X}{rvon}{ensh}I{CTRL-A}{$f0}@{CBM-C}{CTRL-B}{ensh}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{CTRL-X}{$7d}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{SHIFT-POUND}{CTRL-X}{f1}{home}{f4}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-I}{CTRL-K}{CBM-C}{swuc}{dish}{CBM-E}{rvon}J{CBM-C}{swuc}{dish}{up}{stop}J{CTRL-P}{$f2}{CBM-+}{down}{CBM-X}{CTRL-Z}{ensh}i{dish}{left}{CTRL-Z}{ensh}{$60} p{dish}{SHIFT-*}{$00}{$f0}{del}J0{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60} p{dish}{SHIFT-*}{$00}{$f0}{CTRL-V}{$e8}{$e0}{ensh}{$f0}{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60}{$78}{SHIFT-POUND}{$00}{f1}{dish}{f1}{ensh}{SHIFT-POUND}{CTRL-A}{f1}{$0a}{SHIFT-POUND}~{f1}{CTRL-V}{$60}{$78}{CBM-G}{CTRL-V}{CTRL-X}{$69}{CTRL-A}I{CTRL-P}P{CTRL-B}{SHIFT-POUND}{CTRL-O}{f1}{CTRL-V}){CTRL-A}P
{CBM-G}{$0a}{CTRL-X}{$69}{CTRL-A}I{$0a}P{CTRL-B}{SHIFT-POUND}{ensh}{f1}{$0a}{CBM-G}{CTRL-V}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-I}{$00}{CBM-O}{$84}{CTRL-U}{left}{rvon}{ensh}H{$e8}{$e0}{dish}P{$f4}{$60}{$78}{SHIFT-POUND}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{sret}{esc}{ensh}{sret}{red}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{rght}{ensh}{sret}{grn}{ensh}{sret}{blu}{ensh}{SHIFT-POUND} {sret} {ensh}{sret}!{ensh}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}{$f0}{wht}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}J{CTRL-P}{$f3}{CBM-I}{blu}{SHIFT-POUND}{$00}{left}"{ensh}J{CTRL-P}{$fa}{SHIFT-POUND}q{sret}{$6d}{CTRL-D}{sret}{$77}{CTRL-D}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{lgrn}{f1}{del}{f1}{CTRL-U}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{CBM-X}m{ensh}{left}{$fa}{dish}{left}b{ensh}J{CTRL-P}{$f4}{CBM-I}{CTRL-O}{CBM-X}{$ea}{dish}{left}{CTRL-B}{ensh}J{CTRL-P}{$f7}{CBM-I}?{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{$60} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K} {$83}{wht} :{wht}{SHIFT-POUND}{$00}{f1}{down}h G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}P{$f1}{$68}{CTRL-X}{$69}{CTRL-A}P{$ea}{SHIFT-POUND}{$00}{f1}{down}{SHIFT-POUND}{$f3}{f1}{blk}{SHIFT-POUND}{CTRL-F}{f1}{up}x {clr}{CTRL-D}l{CTRL-L}{CTRL-O}{$78}{CBM-+}{down}{CBM-X}{rvon}{ensh}{CTRL-P}&I{f3}P{rvon} g{$0a}{CBM-+}{down}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}{SHIFT-POUND}{CTRL-V}{left}{CTRL-B}{ensh}l{$e2}{swlc} g{$0a}{CBM-+}{down} {$7d}{ensh}{CBM-+}{down}{$fe}{rvon}{ensh}l{$e2}{swlc}{CBM-X}2{ensh}P{stop}le
{CTRL-P}{stop}l{rvof}{CTRL-L} g{$0a}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{CBM-X}:{ensh}h{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{dish}{CBM-+}{down}{$de}{CTRL-B}{ensh}l{home}{CTRL-L}{$68}{CBM-+}{down}{left}:{ensh}{$a0}p{CBM-I}{ensh}{CBM-E}{stop}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-K}J{CTRL-P}{$f8}H{SHIFT-*}sP{$ef}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{SHIFT--}2{ensh}{$f0}{CTRL-Z}{CBM-A}'{SHIFT-POUND}{$a0}{left}b{ensh}{SHIFT-POUND}{$00}{CBM-+}{down}{left}2{ensh}{left}:{ensh}{CBM-X}m{ensh}{left}{$fa}{dish}l{$e2}{swlc}{SHIFT-POUND}{CTRL-P} {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}0{left}{CTRL-Z}{ensh}l{$7b}{CTRL-L}{SHIFT-POUND}0 {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}@{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}{CBM-G}{CTRL-K}{CTRL-X}{$69}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$80}{CBM-+}{down}{left}{rvon}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}2{ensh}H{gry2}{left}2{ensh}{$f0}+ g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$7d}:{ensh}{left}{CTRL-B}{ensh}{CBM-X}:{ensh}i{$fe}{left}:{ensh} {$7d}{ensh}{CBM-+}{down}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}{$63}l{$e2}{swlc}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}t g{$0a}{CBM-+}{down}{$de}{CTRL-B}{ensh}{$de}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{home}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{$fe}{CTRL-B}{ensh}{SHIFT-POUND}{CTRL-A}{left}:{ensh} {$7d}{ensh}l)
{SHIFT-POUND}{$a0}{$a0}p{up}{stop}H{up}{stop}H{up}{stop}{CBM-+}{down}{left}*{ensh}{SHIFT-POUND}{$a0}{left}b{ensh}{CBM-X}{CTRL-Z}{ensh}{CTRL-X}{$69}{CTRL-P}I0{CBM-A}{ensh}{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}{CTRL-Z}{ensh}H{CBM-O}{lblu}{dish}{CBM-POUND}{CBM-O}{lgrn}{dish}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}2{ensh}{SHIFT-POUND}{$00}{left}:{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-C}"{ensh}0b{f7}{gry2}h g{$0a}{$68}{CBM-+}{down}{CTRL-X}{$7d}{$0a}{ensh}I~{$f0}&I&{$f0}"{left}{$0a}{ensh} {$7d}{ensh}{CBM-A}{stop}l{$ee}
{CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}{CBM-POUND}{f7}{gry2}{CTRL-X}{$7d}{$0a}{ensh}{left}{$0a}{ensh}l{$64}
{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}l{$64}
HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}h{SHIFT-*}~{$f0}{grn}I{dish}P{ensh}{CBM-X}{CTRL-Z}{ensh}I{CTRL-Y}{blk}{home}{CBM-A}9I
P{ensh}{CBM-X}{CTRL-Z}{ensh}I{ensh}{blk}{CTRL-F}{CBM-A},I{rvon}{$f0}( g{$0a}{$68}{CBM-+}{down}{left}{CTRL-B}{ensh} {$7d}{ensh}{blk}({CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{CBM-POUND}HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}{CTRL-B}{ensh}{SHIFT-POUND}~{left}"{ensh}lA
{$68}{CBM-Z}d{$e8}){CTRL-B}{CBM-+}{down}{left}"{ensh}l{$60}{swlc}{CBM-+}{down}{CBM-X}*{ensh}I{$a0}{$f0}{$69}I{$e0}{$f0}{$65}{$a0}p{CBM-X}*{ensh}Q{stop}P\{$a0}r{CBM-X}*{ensh}Q{stop}Ps{SHIFT-POUND}{$00}{f1}{CTRL-L}{$a0}{CTRL-G}{CBM-X}*{ensh}Y{$ea}{CTRL-F}{$f0}{wht}{f7}{CTRL-P}{$f8}{$a0}{CTRL-G}{CBM-O}\{CTRL-U}{left}2{ensh} g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$69}{stop}{left}{CTRL-B}{ensh} {$7d}{ensh}{CBM-A}{del}{SHIFT-POUND}~{CBM-+}{down}{left}:{ensh}{SHIFT-POUND}{swlc}{left}{$fa}{dish}{SHIFT-POUND}{CTRL-B}{left}b{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}8{$e9}{stop}{left}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}2{ensh} {$7d}{ensh}{CBM-+}{down}{CBM-C}"{ensh}{CTRL-P}${SHIFT-*}{$fd}P{down}{CBM-X}*{ensh}I{$f2}P{CTRL-Y}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CTRL-P}{CTRL-O}{CBM-X}*{ensh}I{$f1}P{dish}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CBM-X}*{ensh}I{$f1}P{CTRL-O}{CBM-Z}f{$e8}-d{$e8}0{CTRL-X}{SHIFT-POUND}{$fd}{left}"{ensh}0{down}I{$f2}P
{CBM-Z}f{$e8}-d{$e8}0{wht}{SHIFT-POUND}~{left}"{ensh}{CBM-C}{CTRL-B}{ensh}{f7}D{wht}P({CBM-X}*{ensh}I{$63}{$f0}!I{CBM-E}{$f0}{rght}I{CBM-R}{$f0}{CTRL-Y}I{CBM-W}{$f0}{CTRL-U}{CBM-X}{$0a}{ensh}8{$e5}{CTRL-F}{blk}{dish}{SHIFT-POUND}{$00}{left}"{ensh}l{$e2}{swlc}{SHIFT-POUND}{CTRL-B}{left}"{ensh}{$60}{$f8}{CTRL-X}{$65}{ensh}{f1}{ensh}{CBM-G}{dish}{$69}{$00}{f1}{dish}X{$60}h W{CTRL-F}{CBM-G}{yel}{$f0}{down}{$68}{$68}{$68} {$ea}{del}{CBM-I}{CTRL-F} W{CTRL-F}J{CTRL-P}{$fa}l{f6}{CTRL-K}{$68}{$60}{CBM-+}{down}{CBM-C}b{ensh}{$f0}{dish}{f7}{gry2}{left}b{ensh}l%{CTRL-O}{CBM-X}{$fa}{dish}{left}b{ensh} G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}{CBM-+}{CTRL-V}{CBM-X}{CTRL-D}{CTRL-V}{CBM-N}JP{$fd}{CBM-G}{CTRL-L}P{$65}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}I{CTRL-A}PyJ{CTRL-P}{$f6}{SHIFT-POUND}{f1}{sret}D{$80}{SHIFT-POUND}{gry2}{sret}E{$80}{SHIFT-POUND}{f2}{sret}F{$80}{SHIFT-POUND}{inst}{sret}G{$80}{CBM-G}{wht}I{CTRL-A}P<{CBM-G}{CTRL-F}I%P6 {$ea}{del}{CBM-G}{CTRL-K}{$0a}{$0a}{$0a}{$0a} {$e3}{swlc}{CBM-G}{CTRL-K}{CTRL-X}{$69}0{sret}^{$80}{CBM-I}{$00}{CBM-X}{$70}{CTRL-U}{left}_{$80} W{CTRL-F}{$e8}{$e0}{CTRL-K}P{$f2} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} W{CTRL-F}{CBM-G}{CTRL-F}P{$f1}l{swuc}{CTRL-K}l{CTRL-L}{CTRL-O} {$ea}{del}{CBM-I}{ensh} W{CTRL-F}J{CTRL-P}{$fa}{SHIFT-POUND}{CTRL-P}{f1}{rvon} {clr}{CTRL-D}{CBM-I}{ensh}{CBM-C}{$7f}{CTRL-D}{CBM-E}{CTRL-A}i{$80}{up}{CTRL-A}JP{$f4}{CBM-I}{stop} W{CTRL-F}J{CTRL-P}{$fa}{CBM-@}{rvon}{f7}{$84}{rvon}{CTRL-P}{$e3}{CBM-G}{$0a}8{$e9}{CTRL-A}{f1}{$0a}0{stop}l{up}{CTRL-K}{CBM-I}{$00}{CBM-X}{$7b}{CTRL-U}{left}{$78}{orng} W{CTRL-F}{$e8}{$e0}{ensh}P{$f2}{CBM-I}{CTRL-U} W{CTRL-F}JP{$fa}{CBM-G}{$0a}I{$fe}{$f0}/{CBM-I}{rvon} {$f5}{del}{CBM-A}{stop}l({CTRL-P}JJ {$f5}{del}{CBM-A}
{CBM-G}{dish}{left}5{CTRL-Y}{CBM-G}{ensh}{left}6{CTRL-Y}l({CTRL-P} {CTRL-B}{CTRL-U}{$e0}{$00}P{$e5}{CBM-G}{dish}{left}3{CTRL-Y}{CBM-G}{ensh}{left}4{CTRL-Y}{SHIFT-POUND}{$00}{f1}{yel}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}{del}{CTRL-V}{$f0}{$0a} {$f1}{swlc}{left}v{$80}{$e8}l3{CTRL-P}{CBM-I}{$e9}{CBM-X}5{CTRL-U} {$f1}{swlc}{left}{SHIFT-*}{$7f}{$e8}{$f0}{stop}ld{CTRL-P}{SHIFT-POUND}{dish}{sret}{CTRL-B}{ensh}{sret}{CTRL-F}{ensh}{sret}{dish}{ensh}{SHIFT-POUND}{stop}{sret}{CTRL-P}{ensh}{SHIFT-POUND}{home}{sret}{swlc}{ensh}{SHIFT-POUND}"{sret}{$0a}{ensh}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}{CTRL-V}{ensh}{sret}{CTRL-X}{ensh}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{grn}{ensh}{SHIFT-POUND} {sret} {ensh} K{del}{CBM-I}'{CBM-X}6{CTRL-V}{left}{CBM-U}{orng}J{CTRL-P}{$f7}{CBM-I}'{CBM-X}^{CTRL-V}{left}{$e0}{orng}J{CTRL-P}{$f7}{$a0}{CTRL-G} {$f1}{swlc}{f7}{CTRL-P}{$fa}{CBM-I}{$00}{CBM-X}{f3}{CTRL-V}{left}x{$82}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}pP{$e4}{CBM-I}{$00}{CBM-X}V{CTRL-V}{left}{gry2}{$83}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}(P{$e4}{SHIFT-POUND}0{$a0}{stop} {$f1}{swlc}{f7}{CTRL-P}{$fa}h K{del}{$68}8{$e9}{CTRL-A}P{$ee}{CBM-I}{$00}{CBM-X}{$60}{CTRL-X}{$f0}{CTRL-G} R~{$e8}l{$fa}{CTRL-P}{SHIFT-POUND}{$83}{f1}{CTRL-D}{SHIFT-POUND}4{f1}{stop}{CBM-I}{home}{$a0}{CTRL-D}{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{f7}J{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{CBM-G}{stop}8{$e9}({f1}{stop}{CBM-G}{CTRL-D}{$e9}{$00}{f1}{CTRL-D}J{CTRL-P}B{SHIFT-POUND}{$a0}{sret}{$0a}{ensh}{SHIFT-POUND}@{sret}{CTRL-B}{ensh}{CBM-Z}6{CTRL-D}{f1}{CTRL-D}{CBM-Z}o{CTRL-D}{f1}{stop}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{stop}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-Z}m{CTRL-D}{f1}{CTRL-B}{CBM-Z}{$66}{CTRL-D}{f1}{CTRL-A}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{CTRL-A}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-I}{CTRL-B}{CBM-X}6{CTRL-D}{f1}{home}{CBM-X}o{CTRL-D}{f1}{rvon}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{rvon}Hif{up}{rvon}{$a0}&if{up}{rvon}Hif{up}{rvon}{$e8} F{CTRL-F}{CBM-G}{yel}{$f0}{stop}l{f6}{CTRL-K}{$e0}{CTRL-W}PP{CBM-Z}{$0a}{ensh}if{sret}{$0a}{ensh}N{CTRL-B}{ensh}{CBM-Z}{CTRL-B}{ensh}P{f7}{SHIFT-POUND}{clr} R~{SHIFT-POUND}){f1}{swlc}{SHIFT-POUND}{$a0}{CBM-I}'{left}{$78}{$80}J{CTRL-P}{$fa}{SHIFT-POUND}{$f2}{CBM-I}{CTRL-U}{left}{$78}{$80}{SHIFT-POUND}o{CBM-I}{del}{left}{$a0}{$80}{CBM-I}<{left}{$a0}{$80}{CBM-I}{$64}{left}{$a0}{$80}{CBM-I}{f8}{left}{$a0}{$80}{SHIFT-POUND}{$63}{CBM-I}{CTRL-U}{left}{$a0}{$80}{CBM-I}={left}{$a0}{$80}{CBM-I}{$65}{left}{$a0}{$80}{CBM-I}{sret}{left}{$a0}{$80}{SHIFT-POUND}p{CBM-I}{CTRL-V}{left}{$a0}{$80}{CBM-I}>{left}{$a0}{$80}{CBM-I}{$66}{left}{$a0}{$80}{CBM-I}{swuc}{left}{$a0}{$80}{SHIFT-POUND}{$a0}{CBM-I}G{left}{$a0}{$80}J{$e0}{cyn}P{$f8}{CBM-I}{CBM-J}{SHIFT-POUND}{$f1}{left}{$a0}{$80}{SHIFT-POUND}{$00}{f1}{wht}{SHIFT-POUND}{del}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-I}{$00}{CBM-X}{$fe}{CTRL-V}{$f0}{$0a} R~ {$f1}{swlc}{$e8}ll{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}2{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$73}{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}\{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{lblu}{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}{f3}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lA{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-I}{$00}{CBM-X}{CBM-A}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$fe}{rvon}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {up}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}Z{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l {home}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {CBM-Z}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}{wht}{CTRL-X}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lb{home}{SHIFT-POUND}{f1}{sret}{pur}{$80}{SHIFT-POUND}{gry2}{sret}{left}{$80}{SHIFT-POUND}{f2}{sret}{yel}{$80}{SHIFT-POUND}{inst}{sret}{cyn}{$80}{CBM-G}{CTRL-F}I%{$f0}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}l{$65}{home}{CBM-I}{$60} {$f1}{swlc}J{CTRL-P}{$fa}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}2{ensh}{sret}:{ensh}{SHIFT-POUND}~{f1}{$0a}{CBM-I}{CTRL-G}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}JP{$fa}{SHIFT-POUND}{$00}{sret}{$0a}{ensh}{SHIFT-POUND}{CTRL-B}{sret}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{$00}{sret}"{ensh}{f1}{down}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{SHIFT-POUND}{clr} R~ {CBM-K}{wht}{$78}{SHIFT-POUND}{CTRL-X}{f1}{blk}{SHIFT-POUND}{CTRL-U}{f1}{up}x{CBM-I}{ensh} {$f1}{swlc}J{CTRL-P}{$fa} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-G}{CTRL-G}I{$f1}{$f0}{dish} Z{CTRL-D}{$e6}{CTRL-F}l{SHIFT--}{home}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D}F{wht} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$e5}{CBM-G}{CTRL-F}I{swlc}{CBM-A}{CTRL-F}{CBM-I}){SHIFT-POUND}{CTRL-A}P{CTRL-D}{SHIFT-POUND}~{CBM-I}'{sret}{CTRL-K}{ensh}{f3}{swlc} {$f1}{swlc} Z{CTRL-D}{CBM-Z}{CTRL-K}{ensh}{CTRL-X}{$65}{CTRL-F}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} p{dish}{SHIFT-*}{$00}P{stop}l*{del}{CBM-I}{CTRL-G} {$f1}{swlc}{swuc}{stop}{ensh} {up}{$0a}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{stop}{ensh}J{CTRL-P}{$ea} {$f1}{swlc} Z{CTRL-D}{CBM-G}{CTRL-F}8{$ed}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-Z}2{ensh}{$f0}{$f1} Z{CTRL-D}{CBM-G}{CTRL-F}{CTRL-X}{$6d}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} {CBM-Z}{$0a}{CBM-Z}{rvon}{ensh}I{CTRL-A}{$f0}{CTRL-G}{CBM-G}{CTRL-L}{$f0}{$ef}lD{del} {$ea}{del}{CBM-I}{CTRL-U}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D} {clr}{CTRL-D}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ee}{SHIFT-POUND}{$fe}{f1}{$0a}l{$eb}{CTRL-O}{SHIFT-POUND}~{f1}{$0a}l{$a0}{CTRL-O}{SHIFT-POUND}{$00}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-D}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-F}{f1}{down} g{$0a} {$7d}{ensh}{$60}{$78}{SHIFT-POUND}{$fd}{f1}{blk}{SHIFT-POUND}{stop}{f1}{up}x{$60}{CBM-G}{dish}{SHIFT--}3{CTRL-Y}P{wht}{CBM-G}{ensh}{SHIFT--}4{CTRL-Y}{$60}{CBM-X}3{CTRL-Y}{left}5{CTRL-Y}{CBM-X}4{CTRL-Y}{left}6{CTRL-Y}{$60}jjjj){CTRL-O}{ensh}{CBM-A}{$60}{CBM-G}{down}P4 H{CTRL-K}{CBM-Z}"{ensh}I{$fd}P{CTRL-W}{CBM-Z}d{$e8}-f{$e8}){CTRL-A}P{dish}{SHIFT-POUND}{$00}{sret}"{ensh}l={CTRL-U}{SHIFT-POUND}{CTRL-B}{sret}"{ensh}{CBM-Z}*{ensh}I{$f2}P{CTRL-L}{CBM-Z}{CTRL-B}{ensh}I{down}{$f0}{wht}{SHIFT-POUND}~{sret}"{ensh}{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}l{$fd}{stop}FLNR{$e6}{$fa}{$fa}{$fc}{$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$e0}{$f2}{$a0}{gry2}{$63}0 {CTRL-P}{del}{home} {CTRL-B}{CTRL-O}{swlc}{CTRL-U}{home}{CTRL-G}{CTRL-A}
{wht} {CTRL-O}{CTRL-V}{wht}{rvon}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}zwuuppkkffaa<<<7{CTRL-P}{wht}{del} {CTRL-P}{CTRL-A}{swlc}{ensh}{stop}{$00} {$0a}{ensh}
.{CTRL-O}{rvon}{CTRL-L}{CTRL-A}{swlc}{CTRL-D}{CTRL-O}{$00}{CTRL-G}
{CTRL-A}{ensh}{CTRL-L}.{stop}{CTRL-O}
 {$00}
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}      
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}     
{CTRL-U}{home}{del} {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L} 3 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}        2 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       1 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}       10 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {CTRL-B}{CTRL-U}{rvon}{CTRL-Y}{ensh}{swlc}{CTRL-G} {ensh}{swlc}{home}{wht}{stop}{del}             30 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {wht}{CTRL-X}{del}{rvon}{CTRL-A} {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       {dish}={CTRL-D}{ensh}{CTRL-G} {CTRL-F}={CTRL-F}{ensh}{CTRL-L}{CTRL-L} 8={CTRL-U}{CTRL-P} 2={CTRL-D}{CTRL-O}{CTRL-W}{swlc} 4={CTRL-L}{wht}{CTRL-F}{del} 6={rvon}{ensh}{CTRL-G}{dish}{del} {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}     press 4 key......move man left     {down}{$00}    press 6 key.......move man right    {down}{$00}  press 2 key.....move man down ladder  {down}{$00}  press 8 key.......move man up ladder  {down}{$00}       press h key.......dig hole       {down}{$00}       press f key......fill hole       {down}{down}{$00}extra man for every two screens finished{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}  bonus for reaching exit successfully{$00}{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}pet  panic{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}high score table{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}1st{down}{left}{left}{left}2nd{down}{left}{left}{left}3rd{down}{left}{left}{left}4th{down}{left}{left}{left}5th{down}{left}{left}{left}6th{down}{left}{left}{left}7th{down}{left}{left}{left}8th{down}{left}{left}{left}9th{down}{left}{left}{left}10th{$00} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}{blk}{sret}{$fe}{stop}{CBM-G}{up}{sret}~{stop}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}patched t howe  jan 2010{$fd}{stop}lu{$e4}{$00}{CTRL-K}{CTRL-D}{$0a}{$00}{yel}1040{$00}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{SHIFT-POUND}{$00}{CBM-I}{home}{left}3{CTRL-Y}J{CTRL-P}{$fa} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K}l({CTRL-P}{swlc}{CTRL-U}
{CTRL-B}{wht}{rvon} {CTRL-O}{CTRL-F} 
{wht}{swlc} = {$80}{$80}{$80}{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$83}{$83}{$00}(p{$78}{$a0}H{$f0}{CTRL-X}@{$68}{blk}{CBM-U}{$e0}{dish}0x{$80}{CBM-POUND}P{$f8} h{$70}{gry2}{SHIFT-*}{$f9}@{$60}{$00}mq  {$66}mn {$65}{$00} qnn{$66} {$67} m{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}{$6b}{CTRL-D}{$f0}{red}{CBM-C}{$7f}{CTRL-D}h{CBM-E}{CTRL-A} u{ensh}{blk}{CTRL-G}I{$f2}{$f0}{stop} P{CTRL-F}{left}9{stop}{$68}{up}{CTRL-A}Jl{CBM-POUND}{CTRL-D}{$a0}{$78}{CBM-E}{CTRL-A}{f1}{CTRL-O}H{CBM-E}{CTRL-A}{f1}{CTRL-G}H{CBM-E}{CTRL-A}{f1}{CTRL-P}{$60}{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}9{stop}{CBM-C}{$7f}{CTRL-D}{up}{CTRL-A}J{$f0}{CTRL-G}{$e0}{$0a}{$f0}{stop}l{$ef}{CTRL-D}{CBM-G}{$00}i{CTRL-Z}{f1}{$00}{$60}{CTRL-D}{CTRL-D}{ensh}{ensh}{swlc}{swlc}{home}{home}{CTRL-X}{CTRL-X}{clr}{$83}{$8f}{rvof}{f1}{SHIFT-@}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{sret}{f1}{swuc}{SHIFT-@}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$8f}{gry2}{lgrn}{f5}{f1}{swuc}{SHIFT-@}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-G}{ensh} {home}{CTRL-U}{sret}{ensh}{$80}{CBM-G}{ensh} {CTRL-O}{CTRL-U}{sret}{dish}{$80}{CBM-G}{dish} {home}{CTRL-U}{sret}{CTRL-G}{$80}{CBM-G}{dish} {CTRL-O}{CTRL-U}{sret}{CTRL-F}{$80}{CBM-G}{$0a} {home}{CTRL-U}{sret}{CTRL-U}{$80}{CBM-G}{CTRL-U} {home}{CTRL-U}{sret}'{$80}{CBM-G}{CTRL-U} {CTRL-O}{CTRL-U}{sret}&{$80}{CBM-G}{del} {home}{CTRL-U}{sret}%{$80}{CBM-G}{del} {CTRL-O}{CTRL-U}{sret}${$80}{$60}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}&{CTRL-D}{left}\{$80} W{CTRL-F}{$e8}{$e0}{CTRL-P}P{$f2}{CBM-G}{$0a}){CTRL-O}{ensh}0{left}\{$80}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{$a0}'{SHIFT-POUND}{$a0}{up}{stop} F{CTRL-F}{f7}{CTRL-P}{$f8}J{CTRL-P}{$e4}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{CBM-Z}d{$e8}-f{$e8})?{CTRL-X}{$69}{CTRL-A}I#{CBM-A}{$f1}I{CTRL-D}{blk}{$ed}{CBM-POUND}{CBM-E}{stop}I{$a0}P{wht}{SHIFT-POUND}{$f1}l{$f3}{wht}I{$f2}P{SHIFT--}{SHIFT-POUND}{SHIFT-+}h{f7}{CBM-E}{stop}I{$a0}P
HH{CBM-E}{stop}I{$a0}P{wht}{$68}{f7}l{CTRL-L}{CTRL-F}{$68}lN{wht}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{gry2}{CTRL-X}{$65}{stop}{blk}{CTRL-B}{$e6}{CTRL-D}8{$e9}I{CBM-A}{CTRL-B}F{CTRL-D}{f1}{stop}{SHIFT-POUND}{$f2}{$a0}{CTRL-A}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{f4}h{CBM-I}{CTRL-D}{$a0}({CBM-E}{stop}I P{wht}{SHIFT-POUND}oll{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{SHIFT-POUND}{$63}H{up}{stop} F{CTRL-F}H{CBM-E}{stop}I P{wht}{SHIFT-POUND}pl{$67}{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{CBM-G}{stop}{CTRL-X}{$69}({blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop} W{CTRL-F}JP{SHIFT-*}{$68}{CBM-N} W{CTRL-F}J{$e0}{CTRL-A}{$f0}{stop}lA{wht}{CBM-I}{CTRL-X}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-E}{stop}I{$a0}P{CTRL-D}{SHIFT-POUND}{$e0}{up}{stop}{f7}{CTRL-P}{$f3}{CBM-I}{$00}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-O}{rvon}{wht}{up}{stop}{f7}{CTRL-P}{$f8}{SHIFT-POUND} {CBM-I}{del}{left}\{$80}J{CTRL-P}{$fa}{$60}h{SHIFT-POUND}~8{$e9}{CTRL-A}P{$fb}{$68}{$60}h{SHIFT-POUND}{CTRL-A}{f1}{CTRL-L}{$68}{$60}h{f4}h{SHIFT-POUND}0{CBM-I}~JP{$fd}8{$e9}{CTRL-A}P{$f6}{$68}{CBM-N}{$68}{$60} {$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$a0}{CBM-G}{gry1}IpP{swlc}{$78}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I{$fe}P{$f4}x{CBM-G}
{$f0}{wht}F
l{CTRL-G}{dish}{SHIFT-POUND}{wht}{f1}
{CBM-G}{CTRL-G}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}&J{CTRL-P}{$f8}{CBM-G}{CTRL-O}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-Z}J{CTRL-P}{$f8}{CBM-G}{CTRL-P}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{swlc}J{CTRL-P}{$f8} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-D}{$f0}{CTRL-F} {up}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-B}{$f0}{CTRL-F} {CBM-Z}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I{$00}{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}'{f1}{swlc} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{CBM-Z}{rvon}{$e8}i~){$80}{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I%{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}){f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-G}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{red}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f2}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{$e0}{CTRL-G} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{stop}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Y}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f1}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{CTRL-G}{dish} Z{CTRL-D}F{wht} {clr}{CTRL-D} :{wht}{$f8}{CBM-G}{CTRL-U}8{$e9}{CTRL-A}{f1}{CTRL-U}{CBM-G}{del}{$e9}{$00}{f1}{del}XI{CTRL-U}P{CTRL-W}{CBM-G}{CTRL-U}P{home}{SHIFT-POUND}w{sret}{$6d}{CTRL-D}{SHIFT-POUND}{CTRL-O}{sret}{$77}{CTRL-D} Z{CTRL-D} {CTRL-A}{wht} {clr}{CTRL-D}{CBM-G}{del}I{lgrn}P{ensh}{CBM-G}{CTRL-U}I{lgrn}P{stop} P{CTRL-F}l{$fd}{stop}{CBM-G}{CTRL-G}I{$63}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-G}{wht}{CTRL-X}{$69}{CTRL-B}{CBM-N}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-@}{swlc}{CBM-E}{CTRL-A}{CBM-I}{dish}{SHIFT--}{$ea}{CTRL-F}{$f0}{CTRL-F}J{CTRL-P}{$f8}l{f6}{dish}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{CTRL-K}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{stop}{f7}{f7}{$60}{$a0}{$00}{$60}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}({stop}){CTRL-D}*{wht}~{CBM-E}{$7f}{$e1}{$f9}{$61}{$00}{$00}~{CBM-E}{$7f}~{$f9}{$7f}{$00}{$00}{$fe}{CBM-R}{$fc}{$ec}@{$fb}{$00}{$00}{$fc}{CBM-R}{$fe}{$fb}@{$ec}{$00}{$00}{$e9}{CBM-W}{CBM-*}<{$60}>{$00}{$00}{$e9}{CBM-W}{CBM-*}{CTRL-X}{$60}{CTRL-X}{$00}{$00}{pur}1{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-E}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{pur}3{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-W}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}<:62/,( {CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-P}{CTRL-P}{CTRL-P}  {$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{stop}{dish}
<:62/,( {CTRL-P}{CTRL-F}I{$e0}{$f0}{grn}P{grn}I{$7f}{$f0}{CTRL-Z}I{$61}{$f0}{CTRL-V}I@{$f0}{rvon}I<{$f0}{swlc}I{$60}{$f0}{$0a}I>{$f0}{CTRL-F}I{CTRL-X}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-@}{down}{CBM-V}{CTRL-B}{ensh}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{CTRL-X}{$79}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{CBM-O}{rvon}{ensh}I{CTRL-A}P{stop}le{$0a}{SHIFT-POUND}{CTRL-X}{f1}{home}{gry2}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-O}:{ensh}P({$a0}{$00}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}*{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}{CTRL-B}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}({CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{CBM-I}{$00}{CBM-C}{swuc}{dish}{CBM-E}{stop}Iq{$f0}{CTRL-W}I{$66}{$f0}{home}In{$f0}{CTRL-O}Im{$f0}{CTRL-K}I{$65}{$f0}{CTRL-G}I{$67}{$f0}{stop}l{CTRL-A}{$0a} P{CTRL-F}{$e8}{CBM-C}{swuc}{dish}{up}{rvon}{$e8}{$e0}{CTRL-L}PR{CBM-@}{down}{CBM-V}{CTRL-Z}{ensh}{$a0}{$00}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$a0}({$e8}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{CBM-+}{down}{$a0}q{CBM-E}{stop}{left}*{ensh}{CTRL-X}{$60}{CBM-+}{down}{CBM-X}{rvon}{ensh}I{CTRL-A}{$f0}@{CBM-C}{CTRL-B}{ensh}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{CTRL-X}{$7d}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{SHIFT-POUND}{CTRL-X}{f1}{home}{f4}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-I}{CTRL-K}{CBM-C}{swuc}{dish}{CBM-E}{rvon}J{CBM-C}{swuc}{dish}{up}{stop}J{CTRL-P}{$f2}{CBM-+}{down}{CBM-X}{CTRL-Z}{ensh}i{dish}{left}{CTRL-Z}{ensh}{$60} p{dish}{SHIFT-*}{$00}{$f0}{del}J0{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60} p{dish}{SHIFT-*}{$00}{$f0}{CTRL-V}{$e8}{$e0}{ensh}{$f0}{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60}{$78}{SHIFT-POUND}{$00}{f1}{dish}{f1}{ensh}{SHIFT-POUND}{CTRL-A}{f1}{$0a}{SHIFT-POUND}~{f1}{CTRL-V}{$60}{$78}{CBM-G}{CTRL-V}{CTRL-X}{$69}{CTRL-A}I{CTRL-P}P{CTRL-B}{SHIFT-POUND}{CTRL-O}{f1}{CTRL-V}){CTRL-A}P
{CBM-G}{$0a}{CTRL-X}{$69}{CTRL-A}I{$0a}P{CTRL-B}{SHIFT-POUND}{ensh}{f1}{$0a}{CBM-G}{CTRL-V}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-I}{$00}{CBM-O}{$84}{CTRL-U}{left}{rvon}{ensh}H{$e8}{$e0}{dish}P{$f4}{$60}{$78}{SHIFT-POUND}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{sret}{esc}{ensh}{sret}{red}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{rght}{ensh}{sret}{grn}{ensh}{sret}{blu}{ensh}{SHIFT-POUND} {sret} {ensh}{sret}!{ensh}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}{$f0}{wht}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}J{CTRL-P}{$f3}{CBM-I}{blu}{SHIFT-POUND}{$00}{left}"{ensh}J{CTRL-P}{$fa}{SHIFT-POUND}q{sret}{$6d}{CTRL-D}{sret}{$77}{CTRL-D}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{lgrn}{f1}{del}{f1}{CTRL-U}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{CBM-X}m{ensh}{left}{$fa}{dish}{left}b{ensh}J{CTRL-P}{$f4}{CBM-I}{CTRL-O}{CBM-X}{$ea}{dish}{left}{CTRL-B}{ensh}J{CTRL-P}{$f7}{CBM-I}?{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{$60} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K} {$83}{wht} :{wht}{SHIFT-POUND}{$00}{f1}{down}h G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}P{$f1}{$68}{CTRL-X}{$69}{CTRL-A}P{$ea}{SHIFT-POUND}{$00}{f1}{down}{SHIFT-POUND}{$f3}{f1}{blk}{SHIFT-POUND}{CTRL-F}{f1}{up}x {clr}{CTRL-D}l{CTRL-L}{CTRL-O}{$78}{CBM-+}{down}{CBM-X}{rvon}{ensh}{CTRL-P}&I{f3}P{rvon} g{$0a}{CBM-+}{down}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}{SHIFT-POUND}{CTRL-V}{left}{CTRL-B}{ensh}l{$e2}{swlc} g{$0a}{CBM-+}{down} {$7d}{ensh}{CBM-+}{down}{$fe}{rvon}{ensh}l{$e2}{swlc}{CBM-X}2{ensh}P{stop}le
{CTRL-P}{stop}l{rvof}{CTRL-L} g{$0a}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{CBM-X}:{ensh}h{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{dish}{CBM-+}{down}{$de}{CTRL-B}{ensh}l{home}{CTRL-L}{$68}{CBM-+}{down}{left}:{ensh}{$a0}p{CBM-I}{ensh}{CBM-E}{stop}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-K}J{CTRL-P}{$f8}H{SHIFT-*}sP{$ef}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{SHIFT--}2{ensh}{$f0}{CTRL-Z}{CBM-A}'{SHIFT-POUND}{$a0}{left}b{ensh}{SHIFT-POUND}{$00}{CBM-+}{down}{left}2{ensh}{left}:{ensh}{CBM-X}m{ensh}{left}{$fa}{dish}l{$e2}{swlc}{SHIFT-POUND}{CTRL-P} {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}0{left}{CTRL-Z}{ensh}l{$7b}{CTRL-L}{SHIFT-POUND}0 {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}@{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}{CBM-G}{CTRL-K}{CTRL-X}{$69}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$80}{CBM-+}{down}{left}{rvon}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}2{ensh}H{gry2}{left}2{ensh}{$f0}+ g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$7d}:{ensh}{left}{CTRL-B}{ensh}{CBM-X}:{ensh}i{$fe}{left}:{ensh} {$7d}{ensh}{CBM-+}{down}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}{$63}l{$e2}{swlc}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}t g{$0a}{CBM-+}{down}{$de}{CTRL-B}{ensh}{$de}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{home}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{$fe}{CTRL-B}{ensh}{SHIFT-POUND}{CTRL-A}{left}:{ensh} {$7d}{ensh}l)
{SHIFT-POUND}{$a0}{$a0}p{up}{stop}H{up}{stop}H{up}{stop}{CBM-+}{down}{left}*{ensh}{SHIFT-POUND}{$a0}{left}b{ensh}{CBM-X}{CTRL-Z}{ensh}{CTRL-X}{$69}{CTRL-P}I0{CBM-A}{ensh}{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}{CTRL-Z}{ensh}H{CBM-O}{lblu}{dish}{CBM-POUND}{CBM-O}{lgrn}{dish}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}2{ensh}{SHIFT-POUND}{$00}{left}:{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-C}"{ensh}0b{f7}{gry2}h g{$0a}{$68}{CBM-+}{down}{CTRL-X}{$7d}{$0a}{ensh}I~{$f0}&I&{$f0}"{left}{$0a}{ensh} {$7d}{ensh}{CBM-A}{stop}l{$ee}
{CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}{CBM-POUND}{f7}{gry2}{CTRL-X}{$7d}{$0a}{ensh}{left}{$0a}{ensh}l{$64}
{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}l{$64}
HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}h{SHIFT-*}~{$f0}{grn}I{dish}P{ensh}{CBM-X}{CTRL-Z}{ensh}I{CTRL-Y}{blk}{home}{CBM-A}9I
P{ensh}{CBM-X}{CTRL-Z}{ensh}I{ensh}{blk}{CTRL-F}{CBM-A},I{rvon}{$f0}( g{$0a}{$68}{CBM-+}{down}{left}{CTRL-B}{ensh} {$7d}{ensh}{blk}({CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{CBM-POUND}HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}{CTRL-B}{ensh}{SHIFT-POUND}~{left}"{ensh}lA
{$68}{CBM-Z}d{$e8}){CTRL-B}{CBM-+}{down}{left}"{ensh}l{$60}{swlc}{CBM-+}{down}{CBM-X}*{ensh}I{$a0}{$f0}{$69}I{$e0}{$f0}{$65}{$a0}p{CBM-X}*{ensh}Q{stop}P\{$a0}r{CBM-X}*{ensh}Q{stop}Ps{SHIFT-POUND}{$00}{f1}{CTRL-L}{$a0}{CTRL-G}{CBM-X}*{ensh}Y{$ea}{CTRL-F}{$f0}{wht}{f7}{CTRL-P}{$f8}{$a0}{CTRL-G}{CBM-O}\{CTRL-U}{left}2{ensh} g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$69}{stop}{left}{CTRL-B}{ensh} {$7d}{ensh}{CBM-A}{del}{SHIFT-POUND}~{CBM-+}{down}{left}:{ensh}{SHIFT-POUND}{swlc}{left}{$fa}{dish}{SHIFT-POUND}{CTRL-B}{left}b{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}8{$e9}{stop}{left}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}2{ensh} {$7d}{ensh}{CBM-+}{down}{CBM-C}"{ensh}{CTRL-P}${SHIFT-*}{$fd}P{down}{CBM-X}*{ensh}I{$f2}P{CTRL-Y}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CTRL-P}{CTRL-O}{CBM-X}*{ensh}I{$f1}P{dish}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CBM-X}*{ensh}I{$f1}P{CTRL-O}{CBM-Z}f{$e8}-d{$e8}0{CTRL-X}{SHIFT-POUND}{$fd}{left}"{ensh}0{down}I{$f2}P
{CBM-Z}f{$e8}-d{$e8}0{wht}{SHIFT-POUND}~{left}"{ensh}{CBM-C}{CTRL-B}{ensh}{f7}D{wht}P({CBM-X}*{ensh}I{$63}{$f0}!I{CBM-E}{$f0}{rght}I{CBM-R}{$f0}{CTRL-Y}I{CBM-W}{$f0}{CTRL-U}{CBM-X}{$0a}{ensh}8{$e5}{CTRL-F}{blk}{dish}{SHIFT-POUND}{$00}{left}"{ensh}l{$e2}{swlc}{SHIFT-POUND}{CTRL-B}{left}"{ensh}{$60}{$f8}{CTRL-X}{$65}{ensh}{f1}{ensh}{CBM-G}{dish}{$69}{$00}{f1}{dish}X{$60}h W{CTRL-F}{CBM-G}{yel}{$f0}{down}{$68}{$68}{$68} {$ea}{del}{CBM-I}{CTRL-F} W{CTRL-F}J{CTRL-P}{$fa}l{f6}{CTRL-K}{$68}{$60}{CBM-+}{down}{CBM-C}b{ensh}{$f0}{dish}{f7}{gry2}{left}b{ensh}l%{CTRL-O}{CBM-X}{$fa}{dish}{left}b{ensh} G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}{CBM-+}{CTRL-V}{CBM-X}{CTRL-D}{CTRL-V}{CBM-N}JP{$fd}{CBM-G}{CTRL-L}P{$65}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}I{CTRL-A}PyJ{CTRL-P}{$f6}{SHIFT-POUND}{f1}{sret}D{$80}{SHIFT-POUND}{gry2}{sret}E{$80}{SHIFT-POUND}{f2}{sret}F{$80}{SHIFT-POUND}{inst}{sret}G{$80}{CBM-G}{wht}I{CTRL-A}P<{CBM-G}{CTRL-F}I%P6 {$ea}{del}{CBM-G}{CTRL-K}{$0a}{$0a}{$0a}{$0a} {$e3}{swlc}{CBM-G}{CTRL-K}{CTRL-X}{$69}0{sret}^{$80}{CBM-I}{$00}{CBM-X}{$70}{CTRL-U}{left}_{$80} W{CTRL-F}{$e8}{$e0}{CTRL-K}P{$f2} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} W{CTRL-F}{CBM-G}{CTRL-F}P{$f1}l{swuc}{CTRL-K}l{CTRL-L}{CTRL-O} {$ea}{del}{CBM-I}{ensh} W{CTRL-F}J{CTRL-P}{$fa}{SHIFT-POUND}{CTRL-P}{f1}{rvon} {clr}{CTRL-D}{CBM-I}{ensh}{CBM-C}{$7f}{CTRL-D}{CBM-E}{CTRL-A}i{$80}{up}{CTRL-A}JP{$f4}{CBM-I}{stop} W{CTRL-F}J{CTRL-P}{$fa}{CBM-@}{rvon}{f7}{$84}{rvon}{CTRL-P}{$e3}{CBM-G}{$0a}8{$e9}{CTRL-A}{f1}{$0a}0{stop}l{up}{CTRL-K}{CBM-I}{$00}{CBM-X}{$7b}{CTRL-U}{left}{$78}{orng} W{CTRL-F}{$e8}{$e0}{ensh}P{$f2}{CBM-I}{CTRL-U} W{CTRL-F}JP{$fa}{CBM-G}{$0a}I{$fe}{$f0}/{CBM-I}{rvon} {$f5}{del}{CBM-A}{stop}l({CTRL-P}JJ {$f5}{del}{CBM-A}
{CBM-G}{dish}{left}5{CTRL-Y}{CBM-G}{ensh}{left}6{CTRL-Y}l({CTRL-P} {CTRL-B}{CTRL-U}{$e0}{$00}P{$e5}{CBM-G}{dish}{left}3{CTRL-Y}{CBM-G}{ensh}{left}4{CTRL-Y}{SHIFT-POUND}{$00}{f1}{yel}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}{del}{CTRL-V}{$f0}{$0a} {$f1}{swlc}{left}v{$80}{$e8}l3{CTRL-P}{CBM-I}{$e9}{CBM-X}5{CTRL-U} {$f1}{swlc}{left}{SHIFT-*}{$7f}{$e8}{$f0}{stop}ld{CTRL-P}{SHIFT-POUND}{dish}{sret}{CTRL-B}{ensh}{sret}{CTRL-F}{ensh}{sret}{dish}{ensh}{SHIFT-POUND}{stop}{sret}{CTRL-P}{ensh}{SHIFT-POUND}{home}{sret}{swlc}{ensh}{SHIFT-POUND}"{sret}{$0a}{ensh}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}{CTRL-V}{ensh}{sret}{CTRL-X}{ensh}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{grn}{ensh}{SHIFT-POUND} {sret} {ensh} K{del}{CBM-I}'{CBM-X}6{CTRL-V}{left}{CBM-U}{orng}J{CTRL-P}{$f7}{CBM-I}'{CBM-X}^{CTRL-V}{left}{$e0}{orng}J{CTRL-P}{$f7}{$a0}{CTRL-G} {$f1}{swlc}{f7}{CTRL-P}{$fa}{CBM-I}{$00}{CBM-X}{f3}{CTRL-V}{left}x{$82}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}pP{$e4}{CBM-I}{$00}{CBM-X}V{CTRL-V}{left}{gry2}{$83}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}(P{$e4}{SHIFT-POUND}0{$a0}{stop} {$f1}{swlc}{f7}{CTRL-P}{$fa}h K{del}{$68}8{$e9}{CTRL-A}P{$ee}{CBM-I}{$00}{CBM-X}{$60}{CTRL-X}{$f0}{CTRL-G} R~{$e8}l{$fa}{CTRL-P}{SHIFT-POUND}{$83}{f1}{CTRL-D}{SHIFT-POUND}4{f1}{stop}{CBM-I}{home}{$a0}{CTRL-D}{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{f7}J{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{CBM-G}{stop}8{$e9}({f1}{stop}{CBM-G}{CTRL-D}{$e9}{$00}{f1}{CTRL-D}J{CTRL-P}B{SHIFT-POUND}{$a0}{sret}{$0a}{ensh}{SHIFT-POUND}@{sret}{CTRL-B}{ensh}{CBM-Z}6{CTRL-D}{f1}{CTRL-D}{CBM-Z}o{CTRL-D}{f1}{stop}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{stop}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-Z}m{CTRL-D}{f1}{CTRL-B}{CBM-Z}{$66}{CTRL-D}{f1}{CTRL-A}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{CTRL-A}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-I}{CTRL-B}{CBM-X}6{CTRL-D}{f1}{home}{CBM-X}o{CTRL-D}{f1}{rvon}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{rvon}Hif{up}{rvon}{$a0}&if{up}{rvon}Hif{up}{rvon}{$e8} F{CTRL-F}{CBM-G}{yel}{$f0}{stop}l{f6}{CTRL-K}{$e0}{CTRL-W}PP{CBM-Z}{$0a}{ensh}if{sret}{$0a}{ensh}N{CTRL-B}{ensh}{CBM-Z}{CTRL-B}{ensh}P{f7}{SHIFT-POUND}{clr} R~{SHIFT-POUND}){f1}{swlc}{SHIFT-POUND}{$a0}{CBM-I}'{left}{$78}{$80}J{CTRL-P}{$fa}{SHIFT-POUND}{$f2}{CBM-I}{CTRL-U}{left}{$78}{$80}{SHIFT-POUND}o{CBM-I}{del}{left}{$a0}{$80}{CBM-I}<{left}{$a0}{$80}{CBM-I}{$64}{left}{$a0}{$80}{CBM-I}{f8}{left}{$a0}{$80}{SHIFT-POUND}{$63}{CBM-I}{CTRL-U}{left}{$a0}{$80}{CBM-I}={left}{$a0}{$80}{CBM-I}{$65}{left}{$a0}{$80}{CBM-I}{sret}{left}{$a0}{$80}{SHIFT-POUND}p{CBM-I}{CTRL-V}{left}{$a0}{$80}{CBM-I}>{left}{$a0}{$80}{CBM-I}{$66}{left}{$a0}{$80}{CBM-I}{swuc}{left}{$a0}{$80}{SHIFT-POUND}{$a0}{CBM-I}G{left}{$a0}{$80}J{$e0}{cyn}P{$f8}{CBM-I}{CBM-J}{SHIFT-POUND}{$f1}{left}{$a0}{$80}{SHIFT-POUND}{$00}{f1}{wht}{SHIFT-POUND}{del}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-I}{$00}{CBM-X}{$fe}{CTRL-V}{$f0}{$0a} R~ {$f1}{swlc}{$e8}ll{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}2{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$73}{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}\{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{lblu}{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}{f3}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lA{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-I}{$00}{CBM-X}{CBM-A}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$fe}{rvon}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {up}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}Z{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l {home}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {CBM-Z}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}{wht}{CTRL-X}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lb{home}{SHIFT-POUND}{f1}{sret}{pur}{$80}{SHIFT-POUND}{gry2}{sret}{left}{$80}{SHIFT-POUND}{f2}{sret}{yel}{$80}{SHIFT-POUND}{inst}{sret}{cyn}{$80}{CBM-G}{CTRL-F}I%{$f0}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}l{$65}{home}{CBM-I}{$60} {$f1}{swlc}J{CTRL-P}{$fa}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}2{ensh}{sret}:{ensh}{SHIFT-POUND}~{f1}{$0a}{CBM-I}{CTRL-G}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}JP{$fa}{SHIFT-POUND}{$00}{sret}{$0a}{ensh}{SHIFT-POUND}{CTRL-B}{sret}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{$00}{sret}"{ensh}{f1}{down}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{SHIFT-POUND}{clr} R~ {CBM-K}{wht}{$78}{SHIFT-POUND}{CTRL-X}{f1}{blk}{SHIFT-POUND}{CTRL-U}{f1}{up}x{CBM-I}{ensh} {$f1}{swlc}J{CTRL-P}{$fa} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-G}{CTRL-G}I{$f1}{$f0}{dish} Z{CTRL-D}{$e6}{CTRL-F}l{SHIFT--}{home}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D}F{wht} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$e5}{CBM-G}{CTRL-F}I{swlc}{CBM-A}{CTRL-F}{CBM-I}){SHIFT-POUND}{CTRL-A}P{CTRL-D}{SHIFT-POUND}~{CBM-I}'{sret}{CTRL-K}{ensh}{f3}{swlc} {$f1}{swlc} Z{CTRL-D}{CBM-Z}{CTRL-K}{ensh}{CTRL-X}{$65}{CTRL-F}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} p{dish}{SHIFT-*}{$00}P{stop}l*{del}{CBM-I}{CTRL-G} {$f1}{swlc}{swuc}{stop}{ensh} {up}{$0a}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{stop}{ensh}J{CTRL-P}{$ea} {$f1}{swlc} Z{CTRL-D}{CBM-G}{CTRL-F}8{$ed}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-Z}2{ensh}{$f0}{$f1} Z{CTRL-D}{CBM-G}{CTRL-F}{CTRL-X}{$6d}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} {CBM-Z}{$0a}{CBM-Z}{rvon}{ensh}I{CTRL-A}{$f0}{CTRL-G}{CBM-G}{CTRL-L}{$f0}{$ef}lD{del} {$ea}{del}{CBM-I}{CTRL-U}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D} {clr}{CTRL-D}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ee}{SHIFT-POUND}{$fe}{f1}{$0a}l{$eb}{CTRL-O}{SHIFT-POUND}~{f1}{$0a}l{$a0}{CTRL-O}{SHIFT-POUND}{$00}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-D}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-F}{f1}{down} g{$0a} {$7d}{ensh}{$60}{$78}{SHIFT-POUND}{$fd}{f1}{blk}{SHIFT-POUND}{stop}{f1}{up}x{$60}{CBM-G}{dish}{SHIFT--}3{CTRL-Y}P{wht}{CBM-G}{ensh}{SHIFT--}4{CTRL-Y}{$60}{CBM-X}3{CTRL-Y}{left}5{CTRL-Y}{CBM-X}4{CTRL-Y}{left}6{CTRL-Y}{$60}jjjj){CTRL-O}{ensh}{CBM-A}{$60}{CBM-G}{down}P4 H{CTRL-K}{CBM-Z}"{ensh}I{$fd}P{CTRL-W}{CBM-Z}d{$e8}-f{$e8}){CTRL-A}P{dish}{SHIFT-POUND}{$00}{sret}"{ensh}l={CTRL-U}{SHIFT-POUND}{CTRL-B}{sret}"{ensh}{CBM-Z}*{ensh}I{$f2}P{CTRL-L}{CBM-Z}{CTRL-B}{ensh}I{down}{$f0}{wht}{SHIFT-POUND}~{sret}"{ensh}{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}l{$fd}{stop}FLNR{$e6}{$fa}{$fa}{$fc}{$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$e0}{$f2}{$a0}{gry2}{$63}0 {CTRL-P}{del}{home} {CTRL-B}{CTRL-O}{swlc}{CTRL-U}{home}{CTRL-G}{CTRL-A}
{wht} {CTRL-O}{CTRL-V}{wht}{rvon}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}zwuuppkkffaa<<<7{CTRL-P}{wht}{del} {CTRL-P}{CTRL-A}{swlc}{ensh}{stop}{$00} {$0a}{ensh}
.{CTRL-O}{rvon}{CTRL-L}{CTRL-A}{swlc}{CTRL-D}{CTRL-O}{$00}{CTRL-G}
{CTRL-A}{ensh}{CTRL-L}.{stop}{CTRL-O}
 {$00}
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}      
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}     
{CTRL-U}{home}{del} {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L} 3 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}        2 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       1 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}       10 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {CTRL-B}{CTRL-U}{rvon}{CTRL-Y}{ensh}{swlc}{CTRL-G} {ensh}{swlc}{home}{wht}{stop}{del}             30 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {wht}{CTRL-X}{del}{rvon}{CTRL-A} {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       {dish}={CTRL-D}{ensh}{CTRL-G} {CTRL-F}={CTRL-F}{ensh}{CTRL-L}{CTRL-L} 8={CTRL-U}{CTRL-P} 2={CTRL-D}{CTRL-O}{CTRL-W}{swlc} 4={CTRL-L}{wht}{CTRL-F}{del} 6={rvon}{ensh}{CTRL-G}{dish}{del} {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}     press 4 key......move man left     {down}{$00}    press 6 key.......move man right    {down}{$00}  press 2 key.....move man down ladder  {down}{$00}  press 8 key.......move man up ladder  {down}{$00}       press h key.......dig hole       {down}{$00}       press f key......fill hole       {down}{down}{$00}extra man for every two screens finished{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}  bonus for reaching exit successfully{$00}{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}pet  panic{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}high score table{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}1st{down}{left}{left}{left}2nd{down}{left}{left}{left}3rd{down}{left}{left}{left}4th{down}{left}{left}{left}5th{down}{left}{left}{left}6th{down}{left}{left}{left}7th{down}{left}{left}{left}8th{down}{left}{left}{left}9th{down}{left}{left}{left}10th{$00} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{$f8}{stop}{$00}{$00}{CBM-@}W{$00}l.{$e6}{$00}{CTRL-K}{CTRL-D}{$0a}{$00}{yel}1037{$00}{$00}{$00} {$f8}{CTRL-X}{SHIFT-POUND}{$00}{CBM-I}{home}{left}3{CTRL-Y}J{CTRL-P}{$fa} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K}l({CTRL-P}{swlc}{CTRL-U}
{CTRL-B}{wht}{rvon} {CTRL-O}{CTRL-F} 
{wht}{swlc} = {$80}{$80}{$80}{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$83}{$83}{$00}(p{$78}{$a0}H{$f0}{CTRL-X}@{$68}{blk}{CBM-U}{$e0}{dish}0x{$80}{CBM-POUND}P{$f8} h{$70}{gry2}{SHIFT-*}{$f9}@{$60}{$00}mq  {$66}mn {$65}{$00} qnn{$66} {$67} m{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{$00}{$00}{CTRL-A}{CTRL-B}()*pqr{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}{$6b}{CTRL-D}{$f0}{red}{CBM-C}{$7f}{CTRL-D}h{CBM-E}{CTRL-A} u{ensh}{blk}{CTRL-G}I{$f2}{$f0}{stop} P{CTRL-F}{left}9{stop}{$68}{up}{CTRL-A}Jl{CBM-POUND}{CTRL-D}{$a0}{$78}{CBM-E}{CTRL-A}{f1}{CTRL-O}H{CBM-E}{CTRL-A}{f1}{CTRL-G}H{CBM-E}{CTRL-A}{f1}{CTRL-P}{$60}{CBM-+}{wht}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-+}{$00}{CBM-X}9{stop}{CBM-C}{$7f}{CTRL-D}{up}{CTRL-A}J{$f0}{CTRL-G}{$e0}{$0a}{$f0}{stop}l{$ef}{CTRL-D}{CBM-G}{$00}i{CTRL-Z}{f1}{$00}{$60}{CTRL-D}{CTRL-D}{ensh}{ensh}{swlc}{swlc}{home}{home}{CTRL-X}{CTRL-X}{clr}{$83}{$8f}{rvof}{f1}{SHIFT-@}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{sret}{f1}{swuc}{SHIFT-@}{CBM-A}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$8f}{gry2}{lgrn}{f5}{f1}{swuc}{SHIFT-@}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-G}{ensh} {home}{CTRL-U}{sret}{ensh}{$80}{CBM-G}{ensh} {CTRL-O}{CTRL-U}{sret}{dish}{$80}{CBM-G}{dish} {home}{CTRL-U}{sret}{CTRL-G}{$80}{CBM-G}{dish} {CTRL-O}{CTRL-U}{sret}{CTRL-F}{$80}{CBM-G}{$0a} {home}{CTRL-U}{sret}{CTRL-U}{$80}{CBM-G}{CTRL-U} {home}{CTRL-U}{sret}'{$80}{CBM-G}{CTRL-U} {CTRL-O}{CTRL-U}{sret}&{$80}{CBM-G}{del} {home}{CTRL-U}{sret}%{$80}{CBM-G}{del} {CTRL-O}{CTRL-U}{sret}${$80}{$60}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}&{CTRL-D}{left}\{$80} W{CTRL-F}{$e8}{$e0}{CTRL-P}P{$f2}{CBM-G}{$0a}){CTRL-O}{ensh}0{left}\{$80}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{$a0}'{SHIFT-POUND}{$a0}{up}{stop} F{CTRL-F}{f7}{CTRL-P}{$f8}J{CTRL-P}{$e4}{CBM-I}{ensh}{CBM-C}{dish}{wht}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{f1}{stop}{CBM-Z}d{$e8}-f{$e8})?{CTRL-X}{$69}{CTRL-A}I#{CBM-A}{$f1}I{CTRL-D}{blk}{$ed}{CBM-POUND}{CBM-E}{stop}I{$a0}P{wht}{SHIFT-POUND}{$f1}l{$f3}{wht}I{$f2}P{SHIFT--}{SHIFT-POUND}{SHIFT-+}h{f7}{CBM-E}{stop}I{$a0}P
HH{CBM-E}{stop}I{$a0}P{wht}{$68}{f7}l{CTRL-L}{CTRL-F}{$68}lN{wht}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{gry2}{CTRL-X}{$65}{stop}{blk}{CTRL-B}{$e6}{CTRL-D}8{$e9}I{CBM-A}{CTRL-B}F{CTRL-D}{f1}{stop}{SHIFT-POUND}{$f2}{$a0}{CTRL-A}{up}{stop}{f7}{SHIFT-POUND}{$e0}{up}{stop}HH{up}{stop}{f7}{f4}h{CBM-I}{CTRL-D}{$a0}({CBM-E}{stop}I P{wht}{SHIFT-POUND}oll{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{SHIFT-POUND}{$63}H{up}{stop} F{CTRL-F}H{CBM-E}{stop}I P{wht}{SHIFT-POUND}pl{$67}{CTRL-F}{SHIFT-POUND}{$63}{up}{stop} F{CTRL-F}{CBM-G}{stop}{CTRL-X}{$69}({blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop} W{CTRL-F}JP{SHIFT-*}{$68}{CBM-N} W{CTRL-F}J{$e0}{CTRL-A}{$f0}{stop}lA{wht}{CBM-I}{CTRL-X}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-E}{stop}I{$a0}P{CTRL-D}{SHIFT-POUND}{$e0}{up}{stop}{f7}{CTRL-P}{$f3}{CBM-I}{$00}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{f1}{stop}{$a0}'{CBM-O}{rvon}{wht}{up}{stop}{f7}{CTRL-P}{$f8}{SHIFT-POUND} {CBM-I}{del}{left}\{$80}J{CTRL-P}{$fa}{$60}h{SHIFT-POUND}~8{$e9}{CTRL-A}P{$fb}{$68}{$60}h{SHIFT-POUND}{CTRL-A}{f1}{CTRL-L}{$68}{$60}h{f4}h{SHIFT-POUND}0{CBM-I}~JP{$fd}8{$e9}{CTRL-A}P{$f6}{$68}{CBM-N}{$68}{$60} {$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$a0}{CBM-G}{gry1}IpP{swlc}{$78}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I{$fe}P{$f4}x{CBM-G}
{$f0}{wht}F
l{CTRL-G}{dish}{SHIFT-POUND}{wht}{f1}
{CBM-G}{CTRL-G}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}&J{CTRL-P}{$f8}{CBM-G}{CTRL-O}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-Z}J{CTRL-P}{$f8}{CBM-G}{CTRL-P}{CBM-I}{CTRL-K}{SHIFT--}{$64}{CTRL-U}{$f0}{swlc}J{CTRL-P}{$f8} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-D}{$f0}{CTRL-F} {up}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{wht}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~){CTRL-B}{$f0}{CTRL-F} {CBM-Z}{$0a}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I{$00}{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}'{f1}{swlc} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{CBM-Z}{rvon}{$e8}i~){$80}{$f0}{CTRL-Z}{CBM-G}{CTRL-F}I%{$f0}{down} f{dish}{CBM-A}{CTRL-L}{SHIFT-POUND}){f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{CTRL-G}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{red}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f2}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{$e0}{CTRL-G} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D}l{CTRL-G}{dish}{SHIFT-POUND}{stop}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}i~)@{$f0}{CTRL-Y}{CBM-G}{CTRL-G}I{SHIFT-+}{$f0}{CTRL-K}I{$f1}{$f0}{CTRL-G}I{$63}{$f0}{stop}l{CTRL-G}{dish} Z{CTRL-D}F{wht} {clr}{CTRL-D} :{wht}{$f8}{CBM-G}{CTRL-U}8{$e9}{CTRL-A}{f1}{CTRL-U}{CBM-G}{del}{$e9}{$00}{f1}{del}XI{CTRL-U}P{CTRL-W}{CBM-G}{CTRL-U}P{home}{SHIFT-POUND}w{sret}{$6d}{CTRL-D}{SHIFT-POUND}{CTRL-O}{sret}{$77}{CTRL-D} Z{CTRL-D} {CTRL-A}{wht} {clr}{CTRL-D}{CBM-G}{del}I{lgrn}P{ensh}{CBM-G}{CTRL-U}I{lgrn}P{stop} P{CTRL-F}l{$fd}{stop}{CBM-G}{CTRL-G}I{$63}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-G}{wht}{CTRL-X}{$69}{CTRL-B}{CBM-N}{CBM-X}6{CTRL-D}{f1}{CTRL-B}{CBM-X}o{CTRL-D}{CTRL-X}{$65}{CTRL-F}{blk}{CTRL-B}{$e6}{CTRL-B}{f1}{CTRL-A}{CBM-@}{swlc}{CBM-E}{CTRL-A}{CBM-I}{dish}{SHIFT--}{$ea}{CTRL-F}{$f0}{CTRL-F}J{CTRL-P}{$f8}l{f6}{dish}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{CTRL-K}H{CBM-E}{CTRL-A}{SHIFT--}{$ea}{CTRL-F}P{stop}{f7}{f7}{$60}{$a0}{$00}{$60}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}({stop}){CTRL-D}*{wht}~{CBM-E}{$7f}{$e1}{$f9}{$61}{$00}{$00}~{CBM-E}{$7f}~{$f9}{$7f}{$00}{$00}{$fe}{CBM-R}{$fc}{$ec}@{$fb}{$00}{$00}{$fc}{CBM-R}{$fe}{$fb}@{$ec}{$00}{$00}{$e9}{CBM-W}{CBM-*}<{$60}>{$00}{$00}{$e9}{CBM-W}{CBM-*}{CTRL-X}{$60}{CTRL-X}{$00}{$00}{pur}1{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-E}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{pur}3{CBM-P}{CBM-P}0{pur}{$00}{$00}{pur}{CBM-W}{CBM-P}{CBM-P}{CBM-A}{pur}{$00}{$00}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}<:62/,( {CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{CTRL-B}{$00}{CTRL-D}{dish}{CTRL-L}{CTRL-P}{del}{CTRL-X}{red}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-P}{CTRL-P}{CTRL-P}  {$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{stop}{dish}
<:62/,( {CTRL-P}{CTRL-F}I{$e0}{$f0}{grn}P{grn}I{$7f}{$f0}{CTRL-Z}I{$61}{$f0}{CTRL-V}I@{$f0}{rvon}I<{$f0}{swlc}I{$60}{$f0}{$0a}I>{$f0}{CTRL-F}I{CTRL-X}{$f0}{CTRL-B}{CTRL-X}{$60}8{$60}{CBM-@}{down}{CBM-V}{CTRL-B}{ensh}{CBM-X}6{CTRL-D}{f1}{CTRL-D}{CBM-X}o{CTRL-D}{CTRL-X}{$79}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{CBM-O}{rvon}{ensh}I{CTRL-A}P{stop}le{$0a}{SHIFT-POUND}{CTRL-X}{f1}{home}{gry2}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-O}:{ensh}P({$a0}{$00}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}*{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}{CTRL-B}{CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{$a0}({CBM-E}{stop} u{ensh}{blk}{CTRL-A}{$60}{CBM-I}{$00}{CBM-C}{swuc}{dish}{CBM-E}{stop}Iq{$f0}{CTRL-W}I{$66}{$f0}{home}In{$f0}{CTRL-O}Im{$f0}{CTRL-K}I{$65}{$f0}{CTRL-G}I{$67}{$f0}{stop}l{CTRL-A}{$0a} P{CTRL-F}{$e8}{CBM-C}{swuc}{dish}{up}{rvon}{$e8}{$e0}{CTRL-L}PR{CBM-@}{down}{CBM-V}{CTRL-Z}{ensh}{$a0}{$00}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$a0}({$e8}{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{$e8}H{CBM-X}{lblu}{dish}{up}{stop}{CBM-+}{down}{$a0}q{CBM-E}{stop}{left}*{ensh}{CTRL-X}{$60}{CBM-+}{down}{CBM-X}{rvon}{ensh}I{CTRL-A}{$f0}@{CBM-C}{CTRL-B}{ensh}{CBM-O}6{CTRL-D}{f1}{CTRL-D}{CBM-O}o{CTRL-D}{CTRL-X}{$7d}{$0a}{ensh}{blk}{CTRL-B}{$e6}{CTRL-D}{f1}{stop}{SHIFT-POUND}{CTRL-X}{f1}{home}{f4}{$0a}{$0a}{$0a}{CTRL-X}{$69}{$f3}{blk}{CTRL-B}{$e6}{home}{f1}{rvon}{CBM-I}{CTRL-K}{CBM-C}{swuc}{dish}{CBM-E}{rvon}J{CBM-C}{swuc}{dish}{up}{stop}J{CTRL-P}{$f2}{CBM-+}{down}{CBM-X}{CTRL-Z}{ensh}i{dish}{left}{CTRL-Z}{ensh}{$60} p{dish}{SHIFT-*}{$00}{$f0}{del}J0{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60} p{dish}{SHIFT-*}{$00}{$f0}{CTRL-V}{$e8}{$e0}{ensh}{$f0}{down}{CBM-X}{$ea}{CTRL-F}{up}{CTRL-A}H{up}{CTRL-A}H{up}{CTRL-A} Z{CTRL-D} {clr}{CTRL-D}{$60}{$78}{SHIFT-POUND}{$00}{f1}{dish}{f1}{ensh}{SHIFT-POUND}{CTRL-A}{f1}{$0a}{SHIFT-POUND}~{f1}{CTRL-V}{$60}{$78}{CBM-G}{CTRL-V}{CTRL-X}{$69}{CTRL-A}I{CTRL-P}P{CTRL-B}{SHIFT-POUND}{CTRL-O}{f1}{CTRL-V}){CTRL-A}P
{CBM-G}{$0a}{CTRL-X}{$69}{CTRL-A}I{$0a}P{CTRL-B}{SHIFT-POUND}{ensh}{f1}{$0a}{CBM-G}{CTRL-V}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-I}{$00}{CBM-O}{$84}{CTRL-U}{left}{rvon}{ensh}H{$e8}{$e0}{dish}P{$f4}{$60}{$78}{SHIFT-POUND}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{sret}{esc}{ensh}{sret}{red}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{rght}{ensh}{sret}{grn}{ensh}{sret}{blu}{ensh}{SHIFT-POUND} {sret} {ensh}{sret}!{ensh}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}{$f0}{wht}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}J{CTRL-P}{$f3}{CBM-I}{blu}{SHIFT-POUND}{$00}{left}"{ensh}J{CTRL-P}{$fa}{SHIFT-POUND}q{sret}{$6d}{CTRL-D}{sret}{$77}{CTRL-D}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{lgrn}{f1}{del}{f1}{CTRL-U}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{CBM-X}m{ensh}{left}{$fa}{dish}{left}b{ensh}J{CTRL-P}{$f4}{CBM-I}{CTRL-O}{CBM-X}{$ea}{dish}{left}{CTRL-B}{ensh}J{CTRL-P}{$f7}{CBM-I}?{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{$60} K{$0a} {SHIFT-+}{$0a} {CTRL-O}{CTRL-K} {$83}{wht} :{wht}{SHIFT-POUND}{$00}{f1}{down}h G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}P{$f1}{$68}{CTRL-X}{$69}{CTRL-A}P{$ea}{SHIFT-POUND}{$00}{f1}{down}{SHIFT-POUND}{$f3}{f1}{blk}{SHIFT-POUND}{CTRL-F}{f1}{up}x {clr}{CTRL-D}l{CTRL-L}{CTRL-O}{$78}{CBM-+}{down}{CBM-X}{rvon}{ensh}{CTRL-P}&I{f3}P{rvon} g{$0a}{CBM-+}{down}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}{SHIFT-POUND}{CTRL-V}{left}{CTRL-B}{ensh}l{$e2}{swlc} g{$0a}{CBM-+}{down} {$7d}{ensh}{CBM-+}{down}{$fe}{rvon}{ensh}l{$e2}{swlc}{CBM-X}2{ensh}P{stop}le
{CTRL-P}{stop}l{rvof}{CTRL-L} g{$0a}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{CBM-X}:{ensh}h{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{dish}{CBM-+}{down}{$de}{CTRL-B}{ensh}l{home}{CTRL-L}{$68}{CBM-+}{down}{left}:{ensh}{$a0}p{CBM-I}{ensh}{CBM-E}{stop}{SHIFT--}{$64}{CTRL-U}{$f0}{CTRL-K}J{CTRL-P}{$f8}H{SHIFT-*}sP{$ef}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{SHIFT--}2{ensh}{$f0}{CTRL-Z}{CBM-A}'{SHIFT-POUND}{$a0}{left}b{ensh}{SHIFT-POUND}{$00}{CBM-+}{down}{left}2{ensh}{left}:{ensh}{CBM-X}m{ensh}{left}{$fa}{dish}l{$e2}{swlc}{SHIFT-POUND}{CTRL-P} {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}0{left}{CTRL-Z}{ensh}l{$7b}{CTRL-L}{SHIFT-POUND}0 {$e3}{swlc}{CBM-+}{down}{SHIFT-POUND}@{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}{CBM-G}{CTRL-K}{CTRL-X}{$69}{CTRL-A}{f1}{CTRL-K}{SHIFT-POUND}{$80}{CBM-+}{down}{left}{rvon}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}2{ensh}H{gry2}{left}2{ensh}{$f0}+ g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$7d}:{ensh}{left}{CTRL-B}{ensh}{CBM-X}:{ensh}i{$fe}{left}:{ensh} {$7d}{ensh}{CBM-+}{down}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}{$63}l{$e2}{swlc}{f4}{$0a}{$0a}{$0a}{CBM-POUND}{CBM-O}{$f3}{CTRL-X}I{$a0}{$f0}t g{$0a}{CBM-+}{down}{$de}{CTRL-B}{ensh}{$de}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}:{ensh} {$7d}{ensh}{blk}{home}{CBM-+}{down}{$fe}{CTRL-B}{ensh}{$fe}{CTRL-B}{ensh}{SHIFT-POUND}{CTRL-A}{left}:{ensh} {$7d}{ensh}l)
{SHIFT-POUND}{$a0}{$a0}p{up}{stop}H{up}{stop}H{up}{stop}{CBM-+}{down}{left}*{ensh}{SHIFT-POUND}{$a0}{left}b{ensh}{CBM-X}{CTRL-Z}{ensh}{CTRL-X}{$69}{CTRL-P}I0{CBM-A}{ensh}{left}{CTRL-Z}{ensh} g{$0a} {$7d}{ensh}lm{CTRL-L}{CBM-+}{down}{CBM-C}{CTRL-Z}{ensh}H{CBM-O}{lblu}{dish}{CBM-POUND}{CBM-O}{lgrn}{dish}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}2{ensh}{SHIFT-POUND}{$00}{left}:{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-C}"{ensh}0b{f7}{gry2}h g{$0a}{$68}{CBM-+}{down}{CTRL-X}{$7d}{$0a}{ensh}I~{$f0}&I&{$f0}"{left}{$0a}{ensh} {$7d}{ensh}{CBM-A}{stop}l{$ee}
{CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}{CBM-POUND}{f7}{gry2}{CTRL-X}{$7d}{$0a}{ensh}{left}{$0a}{ensh}l{$64}
{CBM-X}"{ensh}i{CTRL-B}{left}"{ensh}l{$64}
HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}h{SHIFT-*}~{$f0}{grn}I{dish}P{ensh}{CBM-X}{CTRL-Z}{ensh}I{CTRL-Y}{blk}{home}{CBM-A}9I
P{ensh}{CBM-X}{CTRL-Z}{ensh}I{ensh}{blk}{CTRL-F}{CBM-A},I{rvon}{$f0}( g{$0a}{$68}{CBM-+}{down}{left}{CTRL-B}{ensh} {$7d}{ensh}{blk}({CBM-+}{down}{CBM-X}"{ensh}i{CTRL-B}{CBM-POUND}HH{gry2}{CTRL-X}{$7d}{CTRL-B}{ensh}{left}{CTRL-B}{ensh}{SHIFT-POUND}~{left}"{ensh}lA
{$68}{CBM-Z}d{$e8}){CTRL-B}{CBM-+}{down}{left}"{ensh}l{$60}{swlc}{CBM-+}{down}{CBM-X}*{ensh}I{$a0}{$f0}{$69}I{$e0}{$f0}{$65}{$a0}p{CBM-X}*{ensh}Q{stop}P\{$a0}r{CBM-X}*{ensh}Q{stop}Ps{SHIFT-POUND}{$00}{f1}{CTRL-L}{$a0}{CTRL-G}{CBM-X}*{ensh}Y{$ea}{CTRL-F}{$f0}{wht}{f7}{CTRL-P}{$f8}{$a0}{CTRL-G}{CBM-O}\{CTRL-U}{left}2{ensh} g{$0a}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}{CTRL-X}{$69}{stop}{left}{CTRL-B}{ensh} {$7d}{ensh}{CBM-A}{del}{SHIFT-POUND}~{CBM-+}{down}{left}:{ensh}{SHIFT-POUND}{swlc}{left}{$fa}{dish}{SHIFT-POUND}{CTRL-B}{left}b{ensh}l{$e2}{swlc}{CBM-+}{down}{CBM-X}{CTRL-B}{ensh}8{$e9}{stop}{left}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{left}2{ensh} {$7d}{ensh}{CBM-+}{down}{CBM-C}"{ensh}{CTRL-P}${SHIFT-*}{$fd}P{down}{CBM-X}*{ensh}I{$f2}P{CTRL-Y}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CTRL-P}{CTRL-O}{CBM-X}*{ensh}I{$f1}P{dish}{CBM-Z}d{$e8}){CTRL-B}{left}"{ensh}{CBM-X}*{ensh}I{$f1}P{CTRL-O}{CBM-Z}f{$e8}-d{$e8}0{CTRL-X}{SHIFT-POUND}{$fd}{left}"{ensh}0{down}I{$f2}P
{CBM-Z}f{$e8}-d{$e8}0{wht}{SHIFT-POUND}~{left}"{ensh}{CBM-C}{CTRL-B}{ensh}{f7}D{wht}P({CBM-X}*{ensh}I{$63}{$f0}!I{CBM-E}{$f0}{rght}I{CBM-R}{$f0}{CTRL-Y}I{CBM-W}{$f0}{CTRL-U}{CBM-X}{$0a}{ensh}8{$e5}{CTRL-F}{blk}{dish}{SHIFT-POUND}{$00}{left}"{ensh}l{$e2}{swlc}{SHIFT-POUND}{CTRL-B}{left}"{ensh}{$60}{$f8}{CTRL-X}{$65}{ensh}{f1}{ensh}{CBM-G}{dish}{$69}{$00}{f1}{dish}X{$60}h W{CTRL-F}{CBM-G}{yel}{$f0}{down}{$68}{$68}{$68} {$ea}{del}{CBM-I}{CTRL-F} W{CTRL-F}J{CTRL-P}{$fa}l{f6}{CTRL-K}{$68}{$60}{CBM-+}{down}{CBM-C}b{ensh}{$f0}{dish}{f7}{gry2}{left}b{ensh}l%{CTRL-O}{CBM-X}{$fa}{dish}{left}b{ensh} G{CTRL-K}x{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}{CBM-+}{CTRL-V}{CBM-X}{CTRL-D}{CTRL-V}{CBM-N}JP{$fd}{CBM-G}{CTRL-L}P{$65}{CBM-I}{CTRL-G}{CBM-X}{rvon}{ensh}I{CTRL-A}PyJ{CTRL-P}{$f6}{SHIFT-POUND}{f1}{sret}D{$80}{SHIFT-POUND}{gry2}{sret}E{$80}{SHIFT-POUND}{f2}{sret}F{$80}{SHIFT-POUND}{inst}{sret}G{$80}{CBM-G}{wht}I{CTRL-A}P<{CBM-G}{CTRL-F}I%P6 {$ea}{del}{CBM-G}{CTRL-K}{$0a}{$0a}{$0a}{$0a} {$e3}{swlc}{CBM-G}{CTRL-K}{CTRL-X}{$69}0{sret}^{$80}{CBM-I}{$00}{CBM-X}{$70}{CTRL-U}{left}_{$80} W{CTRL-F}{$e8}{$e0}{CTRL-K}P{$f2} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} W{CTRL-F}{CBM-G}{CTRL-F}P{$f1}l{swuc}{CTRL-K}l{CTRL-L}{CTRL-O} {$ea}{del}{CBM-I}{ensh} W{CTRL-F}J{CTRL-P}{$fa}{SHIFT-POUND}{CTRL-P}{f1}{rvon} {clr}{CTRL-D}{CBM-I}{ensh}{CBM-C}{$7f}{CTRL-D}{CBM-E}{CTRL-A}i{$80}{up}{CTRL-A}JP{$f4}{CBM-I}{stop} W{CTRL-F}J{CTRL-P}{$fa}{CBM-@}{rvon}{f7}{$84}{rvon}{CTRL-P}{$e3}{CBM-G}{$0a}8{$e9}{CTRL-A}{f1}{$0a}0{stop}l{up}{CTRL-K}{CBM-I}{$00}{CBM-X}{$7b}{CTRL-U}{left}{$78}{orng} W{CTRL-F}{$e8}{$e0}{ensh}P{$f2}{CBM-I}{CTRL-U} W{CTRL-F}JP{$fa}{CBM-G}{$0a}I{$fe}{$f0}/{CBM-I}{rvon} {$f5}{del}{CBM-A}{stop}l({CTRL-P}JJ {$f5}{del}{CBM-A}
{CBM-G}{dish}{left}5{CTRL-Y}{CBM-G}{ensh}{left}6{CTRL-Y}l({CTRL-P} {CTRL-B}{CTRL-U}{$e0}{$00}P{$e5}{CBM-G}{dish}{left}3{CTRL-Y}{CBM-G}{ensh}{left}4{CTRL-Y}{SHIFT-POUND}{$00}{f1}{yel}{SHIFT-POUND}{clr} R~{CBM-I}{$00}{CBM-X}{del}{CTRL-V}{$f0}{$0a} {$f1}{swlc}{left}v{$80}{$e8}l3{CTRL-P}{CBM-I}{$e9}{CBM-X}5{CTRL-U} {$f1}{swlc}{left}{SHIFT-*}{$7f}{$e8}{$f0}{stop}ld{CTRL-P}{SHIFT-POUND}{dish}{sret}{CTRL-B}{ensh}{sret}{CTRL-F}{ensh}{sret}{dish}{ensh}{SHIFT-POUND}{stop}{sret}{CTRL-P}{ensh}{SHIFT-POUND}{home}{sret}{swlc}{ensh}{SHIFT-POUND}"{sret}{$0a}{ensh}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}{CTRL-V}{ensh}{sret}{CTRL-X}{ensh}{SHIFT-POUND}{$00}{sret}{CTRL-Z}{ensh}{SHIFT-POUND}{CTRL-P}{sret}{grn}{ensh}{SHIFT-POUND} {sret} {ensh} K{del}{CBM-I}'{CBM-X}6{CTRL-V}{left}{CBM-U}{orng}J{CTRL-P}{$f7}{CBM-I}'{CBM-X}^{CTRL-V}{left}{$e0}{orng}J{CTRL-P}{$f7}{$a0}{CTRL-G} {$f1}{swlc}{f7}{CTRL-P}{$fa}{CBM-I}{$00}{CBM-X}{f3}{CTRL-V}{left}x{$82}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}pP{$e4}{CBM-I}{$00}{CBM-X}V{CTRL-V}{left}{gry2}{$83}{f4}h){CTRL-A}{$f0}{stop} K{del} {$f1}{swlc} {$f1}{swlc}{$68}{CBM-N}{$e8}{$e0}(P{$e4}{SHIFT-POUND}0{$a0}{stop} {$f1}{swlc}{f7}{CTRL-P}{$fa}h K{del}{$68}8{$e9}{CTRL-A}P{$ee}{CBM-I}{$00}{CBM-X}{$60}{CTRL-X}{$f0}{CTRL-G} R~{$e8}l{$fa}{CTRL-P}{SHIFT-POUND}{$83}{f1}{CTRL-D}{SHIFT-POUND}4{f1}{stop}{CBM-I}{home}{$a0}{CTRL-D}{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{f7}J{CBM-X}3{CTRL-Y} {home}{CTRL-U}i{$80}{up}{stop}{f7}{CBM-X}3{CTRL-Y} {CTRL-O}{CTRL-U}i{$80}{up}{stop}{CBM-G}{stop}8{$e9}({f1}{stop}{CBM-G}{CTRL-D}{$e9}{$00}{f1}{CTRL-D}J{CTRL-P}B{SHIFT-POUND}{$a0}{sret}{$0a}{ensh}{SHIFT-POUND}@{sret}{CTRL-B}{ensh}{CBM-Z}6{CTRL-D}{f1}{CTRL-D}{CBM-Z}o{CTRL-D}{f1}{stop}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{stop}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-Z}m{CTRL-D}{f1}{CTRL-B}{CBM-Z}{$66}{CTRL-D}{f1}{CTRL-A}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{CTRL-A}if F{CTRL-F}H{SHIFT-*}pP{$f4}{CBM-I}{CTRL-B}{CBM-X}6{CTRL-D}{f1}{home}{CBM-X}o{CTRL-D}{f1}{rvon}{$a0}{$00}{CBM-Z}{$0a}{ensh}{up}{rvon}Hif{up}{rvon}{$a0}&if{up}{rvon}Hif{up}{rvon}{$e8} F{CTRL-F}{CBM-G}{yel}{$f0}{stop}l{f6}{CTRL-K}{$e0}{CTRL-W}PP{CBM-Z}{$0a}{ensh}if{sret}{$0a}{ensh}N{CTRL-B}{ensh}{CBM-Z}{CTRL-B}{ensh}P{f7}{SHIFT-POUND}{clr} R~{SHIFT-POUND}){f1}{swlc}{SHIFT-POUND}{$a0}{CBM-I}'{left}{$78}{$80}J{CTRL-P}{$fa}{SHIFT-POUND}{$f2}{CBM-I}{CTRL-U}{left}{$78}{$80}{SHIFT-POUND}o{CBM-I}{del}{left}{$a0}{$80}{CBM-I}<{left}{$a0}{$80}{CBM-I}{$64}{left}{$a0}{$80}{CBM-I}{f8}{left}{$a0}{$80}{SHIFT-POUND}{$63}{CBM-I}{CTRL-U}{left}{$a0}{$80}{CBM-I}={left}{$a0}{$80}{CBM-I}{$65}{left}{$a0}{$80}{CBM-I}{sret}{left}{$a0}{$80}{SHIFT-POUND}p{CBM-I}{CTRL-V}{left}{$a0}{$80}{CBM-I}>{left}{$a0}{$80}{CBM-I}{$66}{left}{$a0}{$80}{CBM-I}{swuc}{left}{$a0}{$80}{SHIFT-POUND}{$a0}{CBM-I}G{left}{$a0}{$80}J{$e0}{cyn}P{$f8}{CBM-I}{CBM-J}{SHIFT-POUND}{$f1}{left}{$a0}{$80}{SHIFT-POUND}{$00}{f1}{wht}{SHIFT-POUND}{del}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-I}{$00}{CBM-X}{$fe}{CTRL-V}{$f0}{$0a} R~ {$f1}{swlc}{$e8}ll{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}2{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$73}{rvon}{CBM-I}{ensh}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}\{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{lblu}{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}{$e6}{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec}{CBM-I}{$00}{CBM-X}{f3}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lA{rvon}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} Z{CTRL-D}F{wht} {clr}{CTRL-D} {$f1}{swlc}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ec} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}{CBM-I}{$00}{CBM-X}{CBM-A}{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l{$fe}{rvon}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {up}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}Z{CTRL-W}{$f0}{$0a} R~ {$f1}{swlc}{$e8}l {home}{CBM-I}{dish}{swuc}{CTRL-K}{ensh} {$f1}{swlc} {CBM-Z}{$0a}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$f1}{CBM-I}{$00}{CBM-X}{wht}{CTRL-X}{$f0}{$0a} R~ {$f1}{swlc}{$e8}lb{home}{SHIFT-POUND}{f1}{sret}{pur}{$80}{SHIFT-POUND}{gry2}{sret}{left}{$80}{SHIFT-POUND}{f2}{sret}{yel}{$80}{SHIFT-POUND}{inst}{sret}{cyn}{$80}{CBM-G}{CTRL-F}I%{$f0}{swlc} Z{CTRL-D}{$e6}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc}l{$65}{home}{CBM-I}{$60} {$f1}{swlc}J{CTRL-P}{$fa}{SHIFT-POUND}{$00}{sret}{rvon}{ensh}{sret}2{ensh}{sret}:{ensh}{SHIFT-POUND}~{f1}{$0a}{CBM-I}{CTRL-G}{SHIFT-POUND}{CTRL-A}{left}{rvon}{ensh}JP{$fa}{SHIFT-POUND}{$00}{sret}{$0a}{ensh}{SHIFT-POUND}{CTRL-B}{sret}{CTRL-B}{ensh}{SHIFT-POUND}{$00}{f1}{CTRL-F}{f1}{CTRL-L}{SHIFT-POUND}{CTRL-U}{f1}{wht}{SHIFT-POUND}{$00}{sret}"{ensh}{f1}{down}{SHIFT-POUND}{ensh}{f1}{$00}{CBM-I}{CTRL-G}{SHIFT-POUND} {left}{$f3}{CTRL-X}J{CTRL-P}{$fa}{SHIFT-POUND}{clr} R~ {CBM-K}{wht}{$78}{SHIFT-POUND}{CTRL-X}{f1}{blk}{SHIFT-POUND}{CTRL-U}{f1}{up}x{CBM-I}{ensh} {$f1}{swlc}J{CTRL-P}{$fa} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-G}{CTRL-G}I{$f1}{$f0}{dish} Z{CTRL-D}{$e6}{CTRL-F}l{SHIFT--}{home}{CBM-I}{CTRL-D}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D}F{wht} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$e5}{CBM-G}{CTRL-F}I{swlc}{CBM-A}{CTRL-F}{CBM-I}){SHIFT-POUND}{CTRL-A}P{CTRL-D}{SHIFT-POUND}~{CBM-I}'{sret}{CTRL-K}{ensh}{f3}{swlc} {$f1}{swlc} Z{CTRL-D}{CBM-Z}{CTRL-K}{ensh}{CTRL-X}{$65}{CTRL-F}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} p{dish}{SHIFT-*}{$00}P{stop}l*{del}{CBM-I}{CTRL-G} {$f1}{swlc}{swuc}{stop}{ensh} {up}{$0a}{CBM-G}{CTRL-L}{$f0}{stop}lD{del}{CBM-S}{stop}{ensh}J{CTRL-P}{$ea} {$f1}{swlc} Z{CTRL-D}{CBM-G}{CTRL-F}8{$ed}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D}{CBM-G}{CTRL-L}{$f0}{stop}lD{del} {$f1}{swlc}{CBM-Z}2{ensh}{$f0}{$f1} Z{CTRL-D}{CBM-G}{CTRL-F}{CTRL-X}{$6d}{CTRL-K}{ensh}{f1}{CTRL-F} {clr}{CTRL-D} {$f1}{swlc} {CBM-Z}{$0a}{CBM-Z}{rvon}{ensh}I{CTRL-A}{$f0}{CTRL-G}{CBM-G}{CTRL-L}{$f0}{$ef}lD{del} {$ea}{del}{CBM-I}{CTRL-U}{swuc}{CTRL-K}{ensh} {$f1}{swlc} Z{CTRL-D} {clr}{CTRL-D}{CBM-S}{CTRL-K}{ensh}J{CTRL-P}{$ee}{SHIFT-POUND}{$fe}{f1}{$0a}l{$eb}{CTRL-O}{SHIFT-POUND}~{f1}{$0a}l{$a0}{CTRL-O}{SHIFT-POUND}{$00}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-D}{f1}{down} g{$0a} {$7d}{ensh}{SHIFT-POUND}{CTRL-F}{f1}{down} g{$0a} {$7d}{ensh}{$60}{$78}{SHIFT-POUND}{$fd}{f1}{blk}{SHIFT-POUND}{stop}{f1}{up}x{$60}{CBM-G}{dish}{SHIFT--}3{CTRL-Y}P{wht}{CBM-G}{ensh}{SHIFT--}4{CTRL-Y}{$60}{CBM-X}3{CTRL-Y}{left}5{CTRL-Y}{CBM-X}4{CTRL-Y}{left}6{CTRL-Y}{$60}jjjj){CTRL-O}{ensh}{CBM-A}{$60}{CBM-G}{down}P4 H{CTRL-K}{CBM-Z}"{ensh}I{$fd}P{CTRL-W}{CBM-Z}d{$e8}-f{$e8}){CTRL-A}P{dish}{SHIFT-POUND}{$00}{sret}"{ensh}l={CTRL-U}{SHIFT-POUND}{CTRL-B}{sret}"{ensh}{CBM-Z}*{ensh}I{$f2}P{CTRL-L}{CBM-Z}{CTRL-B}{ensh}I{down}{$f0}{wht}{SHIFT-POUND}~{sret}"{ensh}{CBM-G}{down}{CTRL-X}{$69}{CTRL-A}){CTRL-G}{f1}{down}l{$fd}{stop}FLNR{$e6}{$fa}{$fa}{$fc}{$64}{$6f}{$79}{$62}{$f8}{$f7}{$e3}{$e0}{$f2}{$a0}{gry2}{$63}0 {CTRL-P}{del}{home} {CTRL-B}{CTRL-O}{swlc}{CTRL-U}{home}{CTRL-G}{CTRL-A}
{wht} {CTRL-O}{CTRL-V}{wht}{rvon}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}zwuuppkkffaa<<<7{CTRL-P}{wht}{del} {CTRL-P}{CTRL-A}{swlc}{ensh}{stop}{$00} {$0a}{ensh}
.{CTRL-O}{rvon}{CTRL-L}{CTRL-A}{swlc}{CTRL-D}{CTRL-O}{$00}{CTRL-G}
{CTRL-A}{ensh}{CTRL-L}.{stop}{CTRL-O}
 {$00}
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}      
{CTRL-U}{home}{del}  {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L}     
{CTRL-U}{home}{del} {CTRL-F}{CTRL-A}{CTRL-L}{CTRL-L} 3 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}        2 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       1 {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}       10 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {CTRL-B}{CTRL-U}{rvon}{CTRL-Y}{ensh}{swlc}{CTRL-G} {ensh}{swlc}{home}{wht}{stop}{del}             30 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {CTRL-F}{CTRL-O}{rvon} {wht}{CTRL-X}{del}{rvon}{CTRL-A} {CTRL-F}{CTRL-L}{CTRL-O}{CTRL-O}{rvon}{home}       {dish}={CTRL-D}{ensh}{CTRL-G} {CTRL-F}={CTRL-F}{ensh}{CTRL-L}{CTRL-L} 8={CTRL-U}{CTRL-P} 2={CTRL-D}{CTRL-O}{CTRL-W}{swlc} 4={CTRL-L}{wht}{CTRL-F}{del} 6={rvon}{ensh}{CTRL-G}{dish}{del} {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}     press 4 key......move man left     {down}{$00}    press 6 key.......move man right    {down}{$00}  press 2 key.....move man down ladder  {down}{$00}  press 8 key.......move man up ladder  {down}{$00}       press h key.......dig hole       {down}{$00}       press f key......fill hole       {down}{down}{$00}extra man for every two screens finished{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}{up}{down}  bonus for reaching exit successfully{$00}{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}pet  panic{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}high score table{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}1st{down}{left}{left}{left}2nd{down}{left}{left}{left}3rd{down}{left}{left}{left}4th{down}{left}{left}{left}5th{down}{left}{left}{left}6th{down}{left}{left}{left}7th{down}{left}{left}{left}8th{down}{left}{left}{left}9th{down}{left}{left}{left}10th{$00} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-G}{blk}{sret}{$fe}{stop}{CBM-G}{up}{sret}~{stop}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}patched t howe  jan 2010  816 sys1037
  816 sys1037
  816 sys1037
  816 sys1037
  816 sys1037
  816 sys1037
    1 rem sub5000 draw/erase die/spot
  100 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}petals around the rose"
  110 fori=1to1500:nexti
  120 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}do you need instructions?"
  130 geti$:ifi$=""then130
  140 ifi$="y"thengosub3000:goto160
  150 ifi$<>"n"then130
  160 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}petals around the rose":print
  170 print"the name of the game is significant.":print
  180 print"{rght}{rght}{rght}{rght}{rght}{rght}the score is always even.":print
  900 s=0
 1000 d$="do":px=3:py=15:gosub5000
 1010 r=int(rnd(1)*6+3)
 1020 forn=1tor:dn=int(rnd(1)*6+1)
 1030 d$="ds":gosub5000:nextn
 1035 ifdn=int(sqr(sin(.80012)*10))+1thens=s+int(sin(.5008)*10)/2
 1036 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))+4
 1040 d$="do":px=9:gosub5000
 1050 forn=1tor:dn=int(rnd(1)*6+1)
 1060 d$="ds":gosub5000:nextn
 1065 ifdn=int(sqr(sin(.80012)*10))+1thens=s+int(sin(.5008)*10)/2
 1066 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))+4
 1070 d$="do":px=15:gosub5000
 1080 forn=1tor:dn=int(rnd(1)*6+1)
 1090 d$="ds":gosub5000:nextn
 1095 ifdn=int(sqr(sin(.80012)*10))+1thens=s+int(sin(.5008)*10)/2
 1096 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))+4
 1100 d$="do":px=21:gosub5000
 1110 forn=1tor:dn=int(rnd(1)*6+1)
 1120 d$="ds":gosub5000:nextn
 1125 ifdn=int(sqr(sin(.80012)*10))+1thens=s+int(sin(.5008)*10)/2
 1126 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))+4
 1130 d$="do":px=27:gosub5000
 1136 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))
 1140 forn=1tor:dn=int(rnd(1)*6+1)
 1150 d$="ds":gosub5000:nextn
 1155 ifdn=int(sqr(sin(.80012)*10))+1thens=s+int(sin(.5008)*10)/2
 1156 ifint(sqr(atn(1.502)*10))+2=dnthens=s+int(cos(.90021)-atn(.2004))+4
 1160 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}guess the score";g
 1170 ifint(g/2)=g/2then1200
 1180 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}                        {home}";
 1190 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}the score is always even.{home}":goto1160
 1200 ifg=sthent=t+1:goto1220
 1210 print:print"{rght}{rght}{rght}no.. this roll's score is";s:t=0:goto1230
 1220 print:print"...yes... you now have";t;"in a row.":ift=6then1300
 1230 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}want me to roll again?";
 1240 geti$:ifi$="n"thenprint"{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}please try again sometime.":end
 1250 ifi$<>"y"then1240
 1260 goto160
 1300 fori=1to1000:nexti
 1310 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}congratulations!"
 1320 print:print"{rght}{rght}you are now qualified to become a"
 1330 print:print"duly certified 'potentate of the rose'."
 1340 print:print:print"are you ready to learn what your"
 1350 print:print"responsibilities will be?"
 1360 geti$:ifi$="y"then1390
 1370 ifi$="n"thenprint:print"you'd have made a lousy potentate anyway":end
 1380 goto1360
 1390 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}responsibilities"
 1400 print:print"1. never to reveal the secrets you have"
 1410 print"   learned here today to any unworthy "
 1420 print"   person, no matter what they might "
 1430 print"   offer, and nay, though even they"
 1440 print"   threaten bodily injury or maiming."
 1450 fori=1to1000:nexti
 1460 print:print"2. to confer upon worthy individuals,"
 1470 print"   the title and honours of the office"
 1480 print"   of the 'potentate of the rose'."
 1500 print"   the worth of a candidate to be"
 1510 print"   judged in the same manner as you have":print"{up}";
 1520 print"   been judged on this occasion."
 1525 fori=1to1000:nexti
 1530 print:print"3. oh, and get yourself 5 dice, you"
 1540 print"   can't expect to carry a computer"
 1550 print"   around with you everywhere you go."
 1560 fori=1to1000:nexti
 1570 print"{down}{down}are you willing to accept the title?"
 1580 geti$:ifi$="y"then1610
 1590 ifi$="n"thenprint"{clr}":goto1370
 1600 goto1580
 1610 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}excellent!"
 1620 print"{down}{down}{down}{down}as a fully qualified and certified"
 1630 print:print"potentate of the rose, i hereby dub"
 1640 print:print"you a potentate of the rose, to hold"
 1650 print:print"and guard the secrets of the"
 1660 print:print"'petals around the rose'."
 1670 fori=1to1000:nexti:end
 3000 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}petals around the rose"
 3010 print:print:print"i will test you to determine if you "
 3020 print:print"are an individual worthy of the title"
 3030 print:print"'potentate of the rose'."
 3040 print"{down}{down}the test is as follows:"
 3050 print:print"i will roll five dice.
 3060 print:print"you must guess the score."
 3070 print:print"on guessing 6 correct in a row, i will"
 3080 print:print"assume that you have guessed the secret"
 3090 print:print"and will grant you the honoured title."
 4000 print: print:print"press any character to start the test"
 4010 geti$:ifi$=""then4010
 4020 return
 4999 end
 5000 print"{home}";
 5010 fori=1topy:print"{down}";:nexti
 5020 fori=1topx:print"{rght}";:nexti
 5030 ifd$="do"then5080
 5040 ifd$="ds"then5120
 5060 ifd$="eo"then5100
 5070 print"{clr}{down}{down}{down}{down}{down}{down}function code in d$ illegal":end
 5080 print"U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{left}{left}{left}{left}{left}{down}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{up}{left}{SHIFT--}{up}{left}{SHIFT--}{up}{left}{SHIFT--}{home}";
 5090 return
 5100 print"     {left}{left}{left}{left}{left}{down} {down}{left} {down}{left} {down}{left}     {up}{left} {up}{left}{$a0}{up}{left}{$a0}{home}";
 5110 return
 5120 ondn+1goto5140,5150,5160,5180,5200,5210,5220
 5130 print"{clr}{down}{down}{down}{down}{down}dn not in range 0 to 6":end
 5140 print"{down}{rght}   {left}{left}{left}{down}   {down}{left}{left}{left}   {home}";:return
 5150 print"{down}{rght}   {left}{left}{left}{down} Q {down}{left}{left}{left}   {home}";:return
 5160 i=rnd(1):ifi>.5thenprint"{down}{rght}Q  {down}{left}{left}{left}   {down}{left}{left}{left}  Q{home}";:return
 5170 print"{down}{rght}  Q{down}{left}{left}{left}   {down}{left}{left}{left}Q  {home}";:return
 5180 i=rnd(1):ifi>.5thenprint"{down}{rght}Q  {down}{left}{left}{left} Q {down}{left}{left}{left}  Q{home}";:return
 5190 print"{down}{rght}  Q{down}{left}{left}{left} Q {down}{left}{left}{left}Q  {home}";:return
 5200 print"{down}{rght}Q{$a0}Q{down}{left}{left}{left}   {down}{left}{left}{left}Q{$a0}Q{home}";:return
 5210 print"{down}{rght}Q{$a0}Q{down}{left}{left}{left} Q {down}{left}{left}{left}Q Q{home}";:return
 5220 i=rnd(1):ifi>.5thenprint"{down}{rght}QQQ{down}{left}{left}{left}   {down}{left}{left}{left}QQQ{home}";:return
 5230 print"{down}{rght}Q{$a0}Q{down}{left}{left}{left}Q{$a0}Q{down}{left}{left}{left}Q{$a0}Q{home}";:return
 2023 sys 1047 :rem prog8
   10 sys(1042):new
  100 rempetopoly,ted landsler,2/2/79
  110 dima(16),a$(16),z(4),z$(4),c$(16),z1(4),z2(4),z3(4),z4(4),z5(4)
  120 dimx2(4),x3(4),x4(4),x5(4),z1$(16)
  130 z1(1)=5000:z1(2)=5000:z1(3)=5000:z1(4)=5000:y=4
  140 print"{clr}":print:printtab(15)"petopoly":print:printtab(18)"by"
  150 print:printtab(13)"ted landsler"
  160 print:print:print:print:print"  if you require instructions press 'z'"
  170 print:print"   any other key will start the game"
  180 geta$:ifa$=""then180
  190 ifa$<>"z"then800
  200 print"{clr}";
  210 print:printtab(16);"petopoly"
  220 printtab(16);"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  230 print:print"a game for two, three or four players."
  240 print:print"it involves buying and selling hotels,  stores, gold and land";
  250 print" - and the tax man!"
  260 print"each player goes in turn when his"
  270 print"situation is displayed."
  280 print:print"each move is completely random and is"
  290 print"indicated on the right-hand side of the screen.":print
  300 print"the owners of hotels{$a0}and stores are     shown by their initials.";
  310 print" it is best,    therefore, if each player uses a name   starting";
  320 print" with a different initial letter"
  330 print:print"              press any key"
  340 geta$:ifa$=""then340
  350 print"{clr}";:print
  360 print"when a player visits an hotel{$a0}or store  owned by another player";
  370 print" then a";
  380 print" bill willhave to be paid.":print
  390 print"the value of land and gold changes with every move in a random manner
  400 print"skill will be needed to buy when prices are low and sell when they rise"
  410 print:print"the game is easy to play as {rvon}pet{rvof} does allthe book-keeping."
  420 print:print"overdrafts should be reduced as soon as possible as interest";
  430 print" will be charged    at 10%."
  440 print:print"at the start each player has $5000 cash in the bank."
  450 print:print:print"              press any key"
  460 geta$:ifa$=""then460
  470 print"{clr}"
  480 print:print"statements show hotels, stores, gold &  land at the values";
  490 print" at which they were   bought."
  500 print:print"however, cost averaging takes place when";
  510 print"further purchases are made."
  520 print:print"for example, if one hotel was bought for$1200 and a second";
  530 print" for{$a0}$1600, they wouldbe averaged at $1400 each. if one was"
  540 print"sold, the remaining one would be shown  as costing{$a0}$1400."
  550 print:print:print"             press any key"
  560 geta$:ifa$=""then560
  570 print"{clr}"
  580 print"for those who are not acquainted with   london here are the names";
  590 remxxxxxxxxx*
  600 print" of the hotels and stores used in the game:"
  610 print:print:print"        hotels            stores"
  620 print"        {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}            {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  630 print
  640 print"      dorchester          harrods":print
  650 print"      claridges           selfridges":print
  660 print"      savoy               bentalls":print
  670 print"      ritz                liberty's":print:print
  680 print"(these are not in any order of value or importance.)"
  690 print:print"               press any key"
  700 geta$:ifa$=""then700
  710 print"{clr}"
  720 print:print"you can select the length of time you   wish to play. it can";
  730 print" be anything from a few minutes to a few hours - ";
  740 print"but enter  the time in minutes."
  750 print:print:print:print"if you would like the instructions again"
  760 print:print"               press 'z'"
  770 print:print:print"   any other key will start the game"
  780 geta$:ifa$=""then780
  790 ifa$="z"then200
  800 print"{clr}"
  810 print:print"enter names in capital letters :-":print
  820 print:print:input"enter 1st player's name{rght}{rght}*{left}{left}{left}";z$(1)
  830 ifz$(1)="*"thenprint"{up}{up}{up}{up}":goto820
  840 print:input"enter 2nd player's name{rght}{rght}*{left}{left}{left}";z$(2)
  850 ifz$(2)="*"thenprint"{up}{up}{up}":goto840
  860 print:input"now 3rd player ('0'if none){rght}{rght}*{left}{left}{left}";z$(3)
  870 ifz$(3)="*"thenprint"{up}{up}{up}":goto860
  880 print:input"and 4th player ('0'if{$a0}none){rght}{rght}*{left}{left}{left}";z$(4)
  890 ifz$(4)="*"thenprint"{up}{up}{up}":goto880
  900 print:print:input"duration of game in minutes{rght}{rght}*{left}{left}{left}";zz$
  910 ifzz$="*"thenprint"{up}{up}{up}{up}":goto900
  920 zz=val(zz$)
  930 fork=1tozz:x=rnd(1):next
  940 print"{clr}"
  950 print:print:print" please wait a couple of minutes while"
  960 print:print"         the game is loading"
  970 print:printtab(16)"-ooo{SHIFT-*}":print:print
  980 print"while waiting, you may like to note the following two numbers :-"
  990 print:print"if you should accidentally abort the    game by touching the";
 1000 print" stop key it can be resumed by entering {rvon}goto 18."
 1010 print:print"if you wish to stop the game earlier    than the time you ";
 1020 print"entered, then press   {rvon}stop{rvof} and enter {rvon}goto 141.":print
 1030 fori=1to5000:nexti:goto1690
 1040 rem   do not remove any rems
 1050 rem  as they are required for the
 1060 rem       incoming program
 1070 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1080 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1090 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1100 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1110 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1120 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1130 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1140 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1150 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1160 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1170 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1180 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1190 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1200 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1210 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1220 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1230 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1240 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1250 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1260 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1270 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1280 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1290 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1300 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1310 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1320 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1330 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1340 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1350 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1360 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1370 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1380 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1390 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1400 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1410 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1420 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1430 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1440 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1450 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1460 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1470 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1480 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1490 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1500 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1510 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1520 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1530 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1540 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1550 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1560 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1570 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1580 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1590 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1600 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1610 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1620 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1630 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1640 remx x x x x x x x x x x x x x x x
 1650 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1660 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1670 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1680 remxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 1690 data"the dorchester","gold dealer","harrods","t","the savoy"
 1700 data"land dealer","selfridges","t","claridges","s","bentalls"
 1710 data"gold dealer","the ritz","land dealer","liberty's","t"
 1720 fork=1to16:reada$(k):next:tt=ti:goto1760
 1730 gosub3130
 1740 ifz1(y)<0theni=1:gosub3020
 1750 ifi=1thengosub3130
 1760 i=o:ify=1andz$(2)="0"theny=2:goto1770
 1770 ify=1theny=2:goto1840
 1780 ify=2andz$(3)="0"theny=3:goto1790
 1790 ify=2theny=3:goto1840
 1800 ify=3andz$(4)="0"theny=4:goto1810
 1810 ify=3theny=4:goto1840
 1820 ify=4andz$(1)="0"theny=1:goto1750
 1830 ify=4theny=1
 1840 g=100+int(200*rnd(1)+1):l=500+int(1000*rnd(1)+1):ifti>tt+(zz*3600)then3090
 1850 x2(y)=int(x2(y)):x3(y)=int(x3(y)):x4(y)=int(x4(y)):x5(y)=int(x5(y))
 1860 print"{clr}";:printtab(28)"{SHIFT--}  dorchstr
 1870 print"gold is"g"dollars an ounce"tab(28)"{SHIFT--}  {rvon}gold dlr"
 1880 printtab(28)"{SHIFT--}  harrods"
 1890 print"land is"l"dollars an acre"tab(28)"{SHIFT--}  {rvon}tax man "
 1900 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"tab(28)"{CBM-W}  savoy"
 1910 printtab(28);"{SHIFT--}  {rvon}land dlr":printz$(y)"'s situation"tab(28)"{SHIFT--}  selfrdgs
 1920 printtab(28)"{SHIFT--}  {rvon}tax man ":e=len(str$(z1(y)))
 1930 print"cash in the bank:"tab(27-e)z1(y)tab(28)"{SHIFT--}  claridgs"
 1940 print"you own :"tab(28)"{SHIFT--}  {rvon}salary  ":e=len(str$(x2(y)))
 1950 printz2(y)" hotels costing"tab(27-e)x2(y)tab(28)"{SHIFT--}  bentalls"
 1960 e=len(str$(x3(y)))
 1970 printz3(y)" stores{$a0}......"tab(27-e)x3(y)tab(28)"{SHIFT--}  {rvon}gold dlr"
 1980 e=len(str$(x4(y)))
 1990 printz4(y)" oz of gold..."tab(27-e)x4(y)tab(28)"{SHIFT--}  the ritz"
 2000 e=len(str$(x5(y)))
 2010 printz5(y)" acres land..."tab(27-e)x5(y)tab(28)"{SHIFT--}  {rvon}land dlr"
 2020 printtab(21)"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"tab(28)"{SHIFT--}  libertys"
 2030 d=z1(y)+x2(y)+x3(y)+x4(y)+x5(y):e=len(str$(d))
 2040 print"so you are worth:"tab(27-e)dtab(28)"{SHIFT--}  {rvon}tax man "
 2050 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
 2060 print"press 'z' for your turn":gosub2960
 2070 geto$:ifo$<>"z"then2070
 2080 print"{up}                             "
 2090 fork=1to500:nextk:x=int(16*rnd(1)+1):w=int(13*rnd(1))
 2100 fork=32797to32797+(x-1)*40step40
 2110 t=peek(k):pokek,42:forj=1to120:nextj
 2120 ifk<32797+(x-1)*40thenpokek,t
 2130 nextk
 2140 ifx=1orx=5orx=9orx=13then2200
 2150 ifx=3orx=7orx=11orx=15then2380
 2160 ifx=2orx=12then2560
 2170 ifx=6orx=14then2700
 2180 ifx=10then2840
 2190 ifx=4orx=16orx=8then2890
 2200 print"you've gone to{$a0}"a$(x)
 2210 v=1000+int(800*rnd(1)):v1=int(v/10)
 2220 ifa(x)=ythen2330
 2230 ifa(x)>0then2310
 2240 ifa(x)=0andz1(y)<vthenprint"for lunch, bill is $50":z1(y)=z1(y)-50
 2250 ifa(x)=0andz1(y)<vthenfork=1to2250:nextk:goto2360
 2260 ifa(x)=0andz1(y)>vthenprint"you may buy it for"v"press'y'or'n'"
 2270 gosub2990
 2280 ifo$="y"thenz1(y)=z1(y)-v:z2(y)=z2(y)+1:a(x)=y:z1$(x)=z$(y):x2(y)=x2(y)+v
 2290 ifo$="y"thenc$(x)=z$(y)
 2300 goto2360
 2310 print"pay a bill of"v1"to "z1$(x):gosub3010
 2320 z1(y)=z1(y)-v1:z1(a(x))=z1(a(x))+v1:goto2360
 2330 print"you may sell for"v"press'y'or'n'":gosub2990
 2340 ifo$="y"thenx2(y)=x2(y)-(x2(y)/z2(y)):z1(y)=z1(y)+v:a(x)=0:z2(y)=z2(y)-1
 2350 ifo$="y"thenc$(x)="":z1$(x)=""
 2360 ifw=1goto2910
 2370 goto1730
 2380 print"you've gone to{$a0}"a$(x)
 2390 v=1300+int(1000*rnd(1)):v1=int(v/8)
 2400 ifa(x)=ythen2510
 2410 ifa(x)>0then2490
 2420 ifa(x)=0andz1(y)<vthenprint"for lunch, bill is $40":z1(y)=z1(y)-40
 2430 ifa(x)=0andz1(y)<vthenfork=1to2250:nextk:goto2540
 2440 ifa(x)=0andz1(y)>vthenprint"you may buy it for"v"press'y'or'n'"
 2450 gosub2990
 2460 ifo$="y"thenz1(y)=z1(y)-v:z3(y)=z3(y)+1:a(x)=y:z1$(x)=z$(y):x3(y)=x3(y)+v
 2470 ifo$="y"thenc$(x)=z$(y)
 2480 goto2540
 2490 print"pay a bill of"v1"to "z1$(x):gosub3010
 2500 z1(y)=z1(y)-v1:z1(a(x))=z1(a(x))+v1:goto2540
 2510 print"you may sell for"v"press'y'or'n'":gosub2990
 2520 ifo$="y"thenx3(y)=x3(y)-(x3(y)/z3(y)):z1(y)=z1(y)+v:a(x)=0:z3(y)=z3(y)-1
 2530 ifo$="y"thenc$(x)="":z1$(x)=""
 2540 ifw=1goto2910
 2550 goto1730
 2560 print"you've gone to the "a$(x)
 2570 print"do you wish to buy or sell any? b,s,or n":gosub2990
 2580 ifo$<>"s"ando$<>"b"then2680
 2590 ifo$="b"andz1(y)<gthenprint"{up}{up}{up}{up}":goto2560
 2600 ifo$="s"andz4(y)=0thenprint"you don't own any!":fork=1to1000:nextk:goto2690
 2610 input"how many ounces{rght}{rght}?{left}{left}{left}";p:p=int(p)
 2620 ifo$="s"then2660
 2630 ifo$="b"andz1(y)<p*gthenprint"you can't afford it-";:goto2610
 2640 ifo$="b"andz1(y)>p*gthenz4(y)=z4(y)+p:x4(y)=x4(y)+p*g:z1(y)=z1(y)-p*g
 2650 goto2680
 2660 ifp>z4(y)thenprint"you don't own that much!":fork=1to1500:nextk:goto1730
 2670 x4(y)=x4(y)-(x4(y)*(p/z4(y))):z4(y)=z4(y)-p:z1(y)=z1(y)+p*g
 2680 ifw=1goto2910
 2690 goto1730
 2700 print"you've gone to the "a$(x)
 2710 print"do you wish to buy or sell any? b,s or n":gosub2990
 2720 ifo$<>"s"ando$<>"b"then2820
 2730 ifo$="b"andz1(y)<lthenprint"{up}{up}{up}{up}":goto2700
 2740 ifo$="s"andz5(y)=0thenprint"you don't own any!":fork=1to1000:nextk:goto2830
 2750 input"how many acres{rght}{rght}?{left}{left}{left}";p:p=int(p)
 2760 ifo$="s"then2800
 2770 ifo$="b"andz1(y)<l*pthenprint"you can't afford it!";:goto2750
 2780 ifo$="b"andz1(y)>p*lthenz5(y)=z5(y)+p:x5(y)=x5(y)+p*l:z1(y)=z1(y)-p*l
 2790 goto2820
 2800 ifp>z5(y)thenprint"you don't own that much!":fork=1to1500:nextk:goto1730
 2810 x5(y)=x5(y)-(x5(y)*(p/z5(y))):z5(y)=z5(y)-p:z1(y)=z1(y)+p*l
 2820 ifw=1goto2910
 2830 goto1730
 2840 print"payday - receive salary of $1000"
 2850 z1(y)=z1(y)+1000
 2860 print:gosub3010
 2870 ifw=1goto2910
 2880 goto1730
 2890 print"the tax man cometh:":gosub3010
 2900 goto2930
 2910 forj=1to20:print"{rvon}you're in luck - have another go{rvof}"
 2920 print"{up}                                ":print"{up}";:nextj:goto1840
 2930 print:x=int(2*rnd(1)+1):g=50+int(400*rnd(1)):ifx=2then2950
 2940 print"receive tax refund of"g:gosub3010:z1(y)=z1(y)+g:goto1730
 2950 print"you must pay tax bill of"g:gosub3010:z1(y)=z1(y)-g:goto1730
 2960 fork=32797to33397step40:f=f+1:ifc$(f)=""thenpokek,32:goto2980
 2970 pokek,asc(c$(f))-64
 2980 nextk:f=0:return
 2990 geto$:ifo$=""then2990
 3000 return
 3010 fork=1to2000:nextk:return
 3020 ifd>0then3050
 3030 print"{down}{down}{down}{down}{down}you're broke!":ifz$(3)="0"then3090
 3040 z$(y)="0":goto3080
 3050 print"{down}{down}{down}{down}{down}{rvon}you have an overdraft and"
 3060 print"{rvon}must pay interest of 10% {rvof}             "
 3070 z1(y)=int(z1(y)+.5+z1(y)/10)
 3080 gosub3010:return
 3090 print:print"{clr}totals":fork=1to4
 3100 ifz$(k)="0"then3120
 3110 print:printz$(k),z1(k)+x2(k)+x3(k)+x4(k)+x5(k)
 3120 nextk:end
 3130 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20)"        "
 3140 print:fork=1to4:print"    "tab(20)"        ":next
 3150 print:printtab(20)"        "
 3160 e=len(str$(z1(y))):print"{up}{up}{up}{up}{up}{up}{up}{up}"tab(27-e)z1(y)
 3170 e=len(str$(x2(y))):print:printz2(y)tab(27-e)x2(y)
 3180 e=len(str$(x3(y))):printz3(y)tab(27-e)x3(y)
 3190 e=len(str$(x4(y))):printz4(y)tab(27-e)x4(y)
 3200 e=len(str$(x5(y))):printz5(y)tab(27-e)x5(y):print
 3210 d=z1(y)+x2(y)+x3(y)+x4(y)+x5(y):e=len(str$(d)):printtab(27-e)d:gosub3010
 3220 return
    1 reada:ifa=0then3
    2 goto1
    3 forl=832to878:readx:pokel,x:nextl
    4 sys(832):restore
    5 k=255
    8 gosub3500
    9 n=59464:poke59467,16:poke59466,1:poken,1:r=0
   10 ti$="000000":t1=700:d=40:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   11 b1=33489:b2=33526
   12 forbb=1to7
   13 forb=b1tob2
   14 pokeb,208:nextb:b1=b1+40:b2=b2+40:nextbb
   30 t1=700-(p/2):a=int((100)*rnd(1)):forpe=32848to32888:ifpeek(pe)=208then2000
   31 next:ifti>t1thengosub1000
   32 poke32887,31:poke32847,32
   40 ifa<51thenx=32809:m=1
   50 ifa>50thenx=32846:m=-1
   60 pokex,42:pokex-1,32:pokex+1,32
   70 geta$
   75 ifa$="e"then7000
   80 ifa$=" "thenpokex,32:goto200
   90 x=x+m
  100 ifx>32846thenpokex,32:m=-1
  110 ifx<32809thenpokex,32:m=1
  120 goto60
  200 x=x+d
  210 ifpeek(x)=208thenpokex-d,32:pokex,32:poke59464,k:p=p+1:goto500
  220 ifx>33768thenpokex-d,32:poken,255:forl=0to500:next:poken,1:goto30
  230 pokex,42:pokex-d,32:goto200
  500 readda:ifda=0thenrestore:k=255:poken,1:goto1200
  510 ifpeek(x-da)=208thenp=p+1:pokex-da,32:poken,k:k=k-9:goto500
  530 goto500
  900 data-40,-1,1,39,41,42,38,83,82,78,77,124,123,117,116,165,164,156,155
  901 data206,205,195,194,245,246,235,234,233,247,0
 1000 r=r+1:ifr>7then1050
 1010 print:ti$="000000":return
 1050 ifr>13thenr=0
 1100 print:forrr=33729to33766
 1110 pokerr,208:next:ti$="000000":return
 1200 print"{home}points:"p"      high score"hp"       {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto30
 2000 forb=32887tope+1step-1:    pokeb,31:next
 2001 forb=0to100:pokepe,32
 2010 pokepe,224:poke59464,b:next
 2020 poke59464,1
 2030 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2040 poke525,0:print"your score is"p
 2050 ifp=>hpthenhp=p:print"{down}{rght}{rght}{rght}{rght}{rght}{rght}it is the best score so far":goto2070
 2060 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}the best score is"hp
 2070 print"{down}{rvon}      to play again press any key    "
 2075 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}to end program press 'e'"
 2080 geta$:ifa$=""then2080
 2090 p=0:goto9
 3500 poke59400,52:print"{clr}":fora=0to22
 3510 print"{rvon}PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP";
 3520 next:print"{rvof}{home}"
 4000 print"{home}{down}{down}{down}{down}{down}"spc(14);"demolition"
 4100 poke59409,60:fora=0to3000:next
 5000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  do you need instructions ?"
 5010 geta$:ifa$=""then5010
 5020 ifa$="n"then return
 5030 print"{clr}{down}the object of the game is to demolish"
 5040 print"{down}the wall at the bottom of the screen"
 5050 print"{down}this is done with the '*'."
 5060 print"{down}the 'space' key is used to firethe '*'
 5070 print"{down}at the wall."
 5080 print"{down}the wall will advance and if it"
 5090 print"{down}gets as high as the arrow on the right"
 5100 print"{down}of the screen it is the end of the game."
 5110 print"the stop key has been disabled and"
 5120 print"{down}the 'e' key must be used inits place"
 5130 print"{down}{rvon} press any key to play"
 6020 geta$:if a$=""then6020
 6030 return
 7000 poke59467,0:poke59466,0:poke59464,0:sys(845)
 8000 data120,169,99,141,25,2,169,3,141,26,2,88,96,120,169,133,141,25,2,169,230
 8010 data141,26,2,88,96,169,0,72,72,72,72,76,133,230,32,90,3,234,169,255,141,9
 8020 data2,76,126,230
    0 rem nuclear power plant simulation
    1 :
    2 rem for pet computer
    3 :
    4 rem by ivan smith & hume smith
    5 :
    6 rem based on s. r. berggren, creative computing december 1980 page 128  ff
    7 :
    8 rem revised 23 december 1980
    9 goto40
   10 poke158,0:b$="":print" ";:poke167,0
   11 geta$:ifa$=""then11
   12 z=asc(a$):ifz=94then15
   13 ifz<48orz>57then11
   14 printa$;:b$=b$+a$:iflen(b$)<3then11
   15 poke167,1:print" ";:return
   40 poke59468,14:r=rnd(-ti):bl$="                                    {home}"
   41 t1$="       PET{$a0}NUCLEAR{$a0}POWER{$a0}PLANT"
   42 t2$="{down}        STATUS REPORT, DAY"
   44 print"{clr}{down}"t1$:printspc(7)"{down}   STEPHEN R. BERGGREN":z4=7:gosub5300
   46 printspc(5)"{down}{down}as modified by the staff of"
   48 print"{down} BRIDGEWATER HIGHSCHOOL, NOVA{$a0}SCOTIA":gosub5300:z4=8
   50 print"{down}{down}{down}This program simulates the operation of"
   60 print"{down}a nuclear power reactor.";:gosub5300:print"  The object"
   70 print"{down}is to operate the plant at as high a"
   80 print"{down}power output as possible";:gosub5300:print", without"
   90 print"{down}causing a reactor meltdown.":gosub5300
   92 forz5=1to7:printtab(18)"{up}{rvon}meltdown{rvof}":forz6=1to50:nextz6
   94 printtab(18)"{up}meltdown":forz6=1to50:nextz6,z5:gosub5310
  100 print"{clr}Do you want instructions";:inputz$:ifz$="n"then350
  102 ifz$<>"y"then100
  110 print"{clr}The {rvon}control rods{rvof} adjust the amount of"
  120 print"{down}heat produced by the reactor.":z4=11:gosub5300
  130 print"{down}{down}The {rvon}primary coolant{rvof} transfers this"
  140 print"{down}heat to the heat exchanger.":gosub5300
  142 print"{down}{down}The {rvon}secondary coolant{rvof} picks up the heat"
  144 print"{down}from the heat exchanger";:gosub5300:print", and transfers"
  150 print"{down}it to the {rvon}turbine{rvof}";:gosub5300:print", which drives"
  160 print"{down}the electric generator.";:gosub5300:print"  The secondary"
  170 print"{down}coolant then goes to the {rvon}cooling tower{rvof},":gosub5300
  172 print"{down}and then back to the heat exchanger.":gosub5300:gosub5310
  180 print"{clr}The {rvon}emergency coolant{rvof} is used to help"
  182 print"{down}shut down the reactor";:z4=11:gosub5300:print" when other systems"
  184 print"fail.":gosub5300:print"{down}{down}Unlike the other coolants,"
  186 print"{down}emergency coolant is not recycled.":gosub5300
  188 print"{down}This means your supply of emergency"
  190 print"{down}coolant is limited.":gosub5300:gosub5310:z4=13
  192 print"{clr}An increased flow of primary coolant"
  194 print"{down}will lower the reactor core temperature":gosub5300
  196 print"{down}and will raise the heat exchanger"
  198 print"{down}temperature.":gosub5300
  200 print"{down}{down}An increased flow of secondary coolant"
  202 print"{down}will lower the heat exchanger":print"{down}temperature";:gosub5300
  204 print", and will increase the":print"{down}power generated";:gosub5300
  206 print", but will raise the"
  208 print"{down}cooling tower temperature.":gosub5300:gosub5310:z4=13
  210 print"{clr}Successful operation depends on"
  212 print"{down}getting a balance";:gosub5300
  214 print", between the":print"{down}high temperatures needed for"
  216 print"{down}power generation";:gosub5300:print" and the"
  218 print"{down}temperature limits of the machinery.":gosub5300:gosub5310
  220 print"{clr}{down}{down}{down}{down}Enter D to see reactor diagram."
  222 print"{down}Enter I for working instructions."
  224 print"{down}Enter S to start operation."
  226 print"{down}"tab(13);:inputa$:ifa$="d"thengosub6000:goto220
  227 ifa$="s"then390
  228 ifa$<>"i"then226
  230 print"{clr}The controls are operated by typing in"
  235 print"{down}the desired control rod setting";:z4=13:gosub5300:print" and"
  240 print"{down}flow rates.":gosub5300:print"{down}{down}Use values from 0 to 100.";:gosub5300
  242 print" If no entry":print"{down}is made, the previous settings will"
  244 print"{down}remain unchanged.":gosub5300
  250 print"{down}{down}Use "chr$(34)"^"chr$(34)" to step to the different"
  255 print"{down}functions.";:gosub5300:print" When the desired"
  260 print"{down}entries have been made, the":print"{down}next day's conditions";
  265 print" will be":print"{down}calculated.":gosub5300:gosub5310
  270 print"{clr}The reactor can be kept operating until"
  272 print"{down}the reactor fuel is exhausted";:z4=13:gosub5300:print", or"
  274 print"{down}until a meltdown occurs.":gosub5300
  276 forz5=1to7:printtab(8)"{up}{rvon}meltdown{rvof}":forz6=1to50:nextz6
  278 printtab(8)"{up}meltdown":forz6=1to50:nextz6,z5
  280 print"{down}{down}The fuel will last about 100 to 150"
  282 print"{down}days";:gosub5300:print", depending on how much"
  284 print"{down}energy is produced each day.":gosub5300
  290 print"{down}{down}When the fuel is exahsted, your"
  295 print"{down}performance will be summarized.":gosub5300:gosub5310
  300 print"{clr}If you want to repair damage or replace":print"{down}coolant";:z4=11
  305 gosub5300:print", bring the reactor temperature"
  310 print"{down}down below 100";:gosub5300:print", and shut off the"
  315 print"{down}coolant flows.";:gosub5300:print" This will cause"
  320 print"{down}an automatic maintenance shutdown.":gosub5300
  325 print"{down}Repairs will be made";:gosub5300:print", and all coolant"
  330 print"{down}will be replenished.":gosub5300
  335 print"{down}{down}The greater the damage, the longer"
  340 print"{down}the repairs will take.":gosub5300:gosub5310
  350 print"{clr}"tab(13)"{down}{down}{down}{down}{down}{rvon}WARNING:"
  355 printtab(7)"{down}{down}THIS{$a0}POWER{$a0}PLANT{$a0}HAS"
  360 printtab(3)"{down}{down}NO{$a0}AUTOMATIC SAFETY DEVICES!!":z4=13:gosub5300
  362 print"{down}{down}{down}The operator";:z4=4:gosub5300:print", (you)";:gosub5300
  364 print", is responsible"
  366 print"{down}for safe operation of all equipment."
  370 gosub5300:gosub5310:goto220
  390 rem  initiate
  400 gosub2000
  410 rh=0:rl=0:tt=0
  420 day%=0:d4%=0
  430 qp%=1-(rnd(2)>.57)-(rnd(2)>.95)
  440 qs%=1-(rnd(2)>.57)-(rnd(2)>.95)
  442 rem  qp%=qualify of primary loop workmanship, qs%=same for secondary loop
  444 rem 1 for first-class work, 2 for second-class, 3 for third-class
  450 dmge%=0
  455 a%=0:a1%=0:a2%=0
  460 day%=day%+1:print"{clr}";:rem write report
  462 ifrt%>800orxt%>500orct%>300orgz%>2000then480
  464 ifgz%<1000and(day%-d4%>8)then480
  466 ifev%<200orpv%<100orsv%<100then480
  468 ifrd%>3orpd%>4orsd%>4ored%>2then480
  470 ifpb%>0orsb%>0orxb%>0orgb%>0then480
  472 goto700
  480 printt1$
  490 printt2$;day%"{down}"
  500 print"WARNINGS:{down}":sw=1
  510 ifrt%<800then520
  512 print"   Reactor overheated":rd%=rd%+1-(rt%>850)-(rt%>900)-2*(rt%>950)
  514 pd%=pd%+1:ed%=ed%+1-(rt%>850):sw=2
  520 ifxt%<500then530
  522 print"   Heat exchanger overheated"
  524 xd%=xd%+1-(xt%>600):pd%=pd%+1:sd%=sd%+1:sw=2
  530 ifgz%<2000then540
  532 print"   Turbine overloaded"
  534 td%=td%+1-(gz%>2500):sd%=sd%+1:sw=2
  540 ifct%>300thenprint"   Cooling tower overheated":sd%=sd%+1:sw=2
  550 ifgz%<1000thenprint"   Power output low":sw=2
  560 ifev%<100thenprint"   Emergency coolant low":sw=2
  570 ifpv%<100thenprint"   Primary coolant low":pd%=pd%+1:sw=2
  580 ifsv%<100thenprint"   Secondary coolant low":sd%=sd%+1:sw=2
  590 onswgoto600,610
  600 printtab(11)"None"
  610 print"{down}DAMAGE:{down}":sw=1
  620 ifrd%>3thenprint"reactor core damaged":sw=2
  630 ifpd%<5then640
  632 print"Primary coolant leak:";pd%;"L/day"
  634 pv%=(pv%-pd%)*(-((pv%-pd%)>0)):sw=2
  640 ifsd%<5then650
  642 print"Secondary coolant leak:";sd%;"L/day"
  644 sv%=(sv%-sd%)*(-((sv%-sd%)>0)):sw=2
  650 ifed%<3then660
  652 print"Emergency coolnat leak:";2*ed%;"L/day"
  654 ev%=(ev%-2*ed%)*(-((ev%-2*ed%)>0)):sw=2
  660 ifpb%=0then670
  662 print"Primary coolant pump failure:";
  664 print10*pd%*(-(pd%<10))+100*(-(pd%>=10));"%":sw=2
  670 ifsb%=0then680
  672 print"Secondary coolant pump failure:";
  674 print10*sd%*(-(sd%<10))+100*(-(sd%>=10));"%":sw=2
  680 ifxb%>0thenprint"Heat exchanger failure":sw=2
  690 ifgb%>0thenprint"Turbine failure":sw=2
  692 onswgoto694,696
  694 printtab(11)"None"
  696 gosub5310
  700 print"{clr}"t1$:printt2$;day%
  710 ifrd%>5thenprint"{down}  {rvon}MELTDOWN!{rvof}  {rvon}MELTDOWN!{rvof}  {rvon}MELTDOWN!{rvof}":goto3000
  720 print"{down}{down}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}INDICATORS"
  722 printtab(12)"{up}Control rod position:"a%"%"
  724 print"{down}Temperatures:    MAX    CHANGE    NOW"
  730 print"        Reactor  800"
  732 printtab(25)"{up}"rt%-t7%:printtab(33)"{up}"rt%
  734 t7%=rt%
  740 print" Heat exchanger  500"
  742 printtab(25)"{up}"xt%-t8%:printtab(33)"{up}"xt%
  744 t8%=xt%
  750 print"  Cooling tower  300"
  752 printtab(25)"{up}"ct%-t9%:printtab(33)"{up}"ct%
  754 t9%=ct%
  760 print"{down}      Power output (max. 2000):"gz%"kW"
  762 kw%=tt/day%:ve=int(24*tt*.055)
  764 ve$=str$(ve):ifve<10000thenve$="$"+ve$:goto770
  766 ve$="$"+left$(ve$,len(ve$)-3)+" "+right$(ve$,3)
  770 print"          Average power output:"kw%"kW"
  780 print"  Value of energy produced: "ve$
  810 print"{down}Coolants:       LEVEL  LEAKAGE{$a0}{$a0}FLOW"
  820 print"    Emergency"tab(16)ev%tab(22)ed%"L/day"tab(33)ef%
  830 print"      Primary"tab(16)pv%tab(22)pd%"L/day"tab(33)pf%
  840 print"    Secondary"tab(16)sv%tab(22)sd%"L/day"tab(33)sf%
  850 if(100-rl)<5thenprint"{down}{down}{down}Reactor fuel exhausted":goto4000
  900 rem  gret new control values
  910 a2%=a1%:a1%=a%
  920 poke216,23:print:printbl$
  930 poke216,23:print:print"Control rod position?";:gosub10
  940 ifb$=""then960
  950 a%=val(b$):a%=a%+(100-a%)*(-(a%>100))
  960 poke216,23:print:printbl$
  970 poke216,23:print:print"Emergency coolant flow?";:gosub10
  980 ifb$=""then1000
  990 ef%=val(b$):ef%=ef%+(100-ef%)*(-(ef%>100))
 1000 poke216,23:print:printbl$
 1010 poke216,23:print:print"Primary coolant flow?";:gosub10
 1020 ifb$=""then1040
 1030 pf%=val(b$):pf%=pf%+(100-pf%)*(-(pf%>100))
 1040 poke216,23:print:printbl$
 1050 poke216,23:print:print"Secondary coolant flow?";:gosub10
 1060 ifb$=""then1100
 1070 sf%=val(b$):sf%=sf%+(100-sf%)*(-(sf%>100))
 1100 ifpf%=0andsf%=0andrh<1andrt%<100anda%=0then1120
 1110 goto1140
 1120 gosub2000:poke216,23:print:printbl$
 1122 poke216,23:print:print"Maintenance shutdown:"md%"days.{up}"
 1130 fori=1to5000:nexti
 1140 ifef%>ev%thenef%=ev%
 1200 rem  damage assessment and operation calculations
 1205 ev%=ev%-ef%+2*ed%*(ed%>3)
 1210 onqp%goto1211,1213,1215:rem leakage possibilities
 1211 pd%=pd%+(pf%>65)*(rnd(2)>.9998)+(pf%>90)*(rnd(2)>.996)
 1212 pd%=pd%+(pf%>95)*(rnd(2)>.95)-(4000*rnd(2)<day%):goto1220
 1213 pd%=pd%+(pf%>55)*(rnd(2)>.9995)+(pf%>80)*(rnd(2)>.993)
 1214 pd%=pd%+(pf%>92)*(rnd(2)>.94)-(2700*rnd(2)<day%):goto1220
 1215 pd%=pd%+(pf%>40)*(rnd(2)>.999)+(pf%>70)*(rnd(2)>.985)
 1216 pd%=pd%+(pf%>87)*(rnd(2)>.93)-(1400*rnd(2)<day%)
 1220 onqs%goto1221,1223,1225
 1221 sd%=sd%+(sf%>75)*(rnd(2)>.9997)+(sf%>93)*(rnd(2)>.995)
 1222 sd%=sd%+(sf%>97)*(rnd(2)>.94)-(3000*rnd(2)<day%):goto1230
 1223 sd%=sd%+(sf%>60)*(rnd(2)>.9992)+(sf%>85)*(rnd(2)>.99)
 1224 sd%=sd%+(sf%>94)*(rnd(2)>.92)-(2400*rnd(2)<day%):goto1230
 1225 sd%=sd%+(sf%>40)*(rnd(2)>.9985)+(sf%>78)*(rnd(2)>.98)
 1226 sd%=sd%+(sf%>89)*(rnd(2)>.9)-(1800*rnd(2)<day%)
 1230 pb%=-(pd%>5)
 1240 sb%=-(sd%>5)
 1250 ifpf%>(100-pd%*10)andpb%>0thenpf%=(100-pd%*10)*(-(100-pd%*10>0))
 1260 ifsf%>(100-sd%*10)andsb%>0thensf%=(100-sd%*10)*(-(100-sd%*10>0))
 1270 rl=rl+rh/50
 1280 rh=(a%*30+a1%*60+a2%*10)/2500*(100-rl)
 1300 ph=pf%*(100*(-(pv%>100))+pv%*(-(pv%<=100)))/350
 1310 eh=ef%/200*(rt%-25)
 1320 rt%=rt%+rh-eh-ph-5*(-(rt%>25))
 1325 rt%=25+(rt%-25)*(-(rt%>25))
 1330 xt%=((rt%-25)*pf%+(ct%-25)*sf%)/(pf%+sf%+1)+25
 1340 ifxb%>0thenxt%=rt%*.8+5
 1350 sh=sf%*(100*(-(pv%>100))+pv%*(-(pv%<=100)))/350*(xt%-ct%)
 1360 ifxb%>0thensh=sh*.2
 1370 gz%=sh/xt%*(xt%-ct%)*2/3
 1375 ifgz%>2600thengz%=2600
 1380 gz%=gz%*(-(gz%>0))*(-(gb%=0))
 1390 ct%=25+((xt%-25)*(sh-gz%)/(sh+1)*.75)
 1395 ct%=25*(-(ct%<=25))+ct%*(-(ct%>25))
 1400 ifxb%<1thenxb%=(-(xd%>2))*(-(rnd(4)>.9))
 1410 ifgb%<1thengb%=(-(gd%>4))*(-(rnd(4)>.9))
 1420 tt=tt+gz%
 1430 goto460
 2000 rem  maintenance repair subroutine
 2010 ev%=300:pv%=120:sv%=120
 2020 qp%=1-(rnd(2)>.57)-(rnd(2)>.95)
 2030 qs%=1-(rnd(2)>.57)-(rnd(2)>.95)
 2040 rt%=25:t7%=25
 2050 xt%=25:t8%=25
 2060 ct%=25:t9%=25
 2070 dmge%=dmge%+2*rd%+ed%+pd%+xd%+sd%+gd%
 2080 md%=5+3*(10*(-(rd%>3))-(ed%>3)-(pd%>3)-(sd%>3)+2*pb%+2*sb%+3*xb%+3*gb%)
 2082 day%=day%+md%:d4%=day%
 2090 rd%=0
 2100 ed%=0
 2110 pd%=0
 2120 xd%=0
 2130 sd%=0
 2140 gd%=0
 2150 pb%=0
 2160 sb%=0
 2170 xb%=0
 2180 gb%=0
 2190 ef%=0:pf%=0:sf%=0
 2195 gz%=0
 2200 return
 3000 print"{clr}{down}{down}{down}{down}":rem meltdown ending
 3010 ifrd%>6goto3100
 3015 print"{down} The reactor core has been destroyed"
 3020 print"by uncontrolled thermal runaway."
 3025 print"However, the containment building has"
 3030 print"not yet ruptured."
 3035 print"{down} Initiate your evacuation plan.":goto3200
 3100 print"{down} The reactor core has melted down and"
 3105 print"produced a steam explosion. The"
 3110 print"contanment building has ruptured."
 3115 print"lethal radioactive gasses and debris"
 3120 print"have escaped."
 3125 print"{down} Initiate your evacuation and"
 3130 print"radiation cleanup plans and get medical"
 3135 print"assistance."
 3200 print"{home}{down}{down}"
 3210 forz5=1to30
 3220 print"{up}    MELTDOWN     {rvon}MELTDOWN{rvof}    MELTDOWN"
 3230 forz6=1to100-3*z5:nextz6
 3240 print"{up}    {rvon}MELTDOWN{rvof}     MELTDOWN    {rvon}MELTDOWN{rvof}"
 3250 forz6=1to100-3*z6:nextz6
 3260 nextz5
 3270 poke216,21:print:goto5000
 4000 rem evaluation of game
 4005 print"{clr} Over a period of"da%"days, you have"
 4010 print"produced an average power output of"
 4015 print"{left}"kw%"kW."
 4020 ak%=1-(kw%>799)-(kw%>899)-(kw%>999)-(kw%>1099)-(kw%>1199)-(kw%>1299)
 4022 ak%=ak%-(kw%>1399)-(kw%>1499)
 4025 print"{down}  Your average power production rate is"
 4030 onak%goto4032,4034,4036,4038,4040,4042,4044,4050,4055
 4032 print"horrible! Find a less demanding job.":goto4060
 4034 print"bad.  Your area had":print"frequent blackouts.":goto4060
 4036 print"pretty bad.  Your area had":print"frequent blackouts.":goto4060
 4038 print"way below your area's power needs":goto4060
 4040 print"not good.  Your area had brownouts.":goto4060
 4042 print"not bad.  Your area's power needs"
 4043 print"were supplied - just.":goto4060
 4044 print"adequate.  You could do better.":goto4060
 4050 print"excellent!  Power rates in your area will"
 4051 print"not ne increased.":goto4060
 4055 print"near the maximum!  Power costs in your"
 4056 print"area will drop signifigantly."
 4060 gosub2000
 4065 d%=1-(dm%>10)-(dm%>20)-(dm%>30)
 4070 print"{down} The equipment damage sustained was"
 4075 ond%goto4080,4085,4090,4095
 4080 print"very light.":goto5000
 4085 print"moderate.":goto5000
 4090 print"serious.":goto5000
 4095 print"severe."
 5000 rem end
 5005 input"{down}Would you like to try again";a$:a$=left$(a$,1)
 5010 ifa$="y"thengosub2000:goto390
 5015 print"{up}":end
 5100 b$=""
 5105 fori=1to4
 5110 geta$
 5130 ifasc(a$)<>94then5140
 5134 ifb$=""thenreturn
 5136 out%=val(b$)
 5138 return
 5140 ifasc(a$)=13thensys50583:goto1170
 5150 b$=b$+a$
 5160 printa$;
 5170 nexti
 5180 return
 5300 forj6=1to63*z4:nextj6:z4=z4+3:return:rem delay
 5310 poke216,23:print:print"     Press SPACE to continue...{home}";
 5311 wait59410,4,4:poke216,23:print:printbl$;:getzz$:return
 6000 zd$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 6005 print"{clr}":printzd$"This is the reactor vessel            {up}"
 6010 print"{home}{down}{down}{down}{down}   {rvon}{CBM-V} {rvof}{CBM-I}{CBM-I}{rvon}{CBM-V} {rvof}{CBM-F}"
 6015 print"  {rvon}{CBM-K} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F} "
 6020 forzz=1to4:print"  {rvon}{CBM-K}{rvof}{CBM-K}     {rvon}{$a0}":next
 6025 print"  {rvon}{CBM-K}{CBM-C}{rvof}    {CBM-D}{rvon} "
 6030 print"   {rvon}{CBM-F}     {rvof}{CBM-V}"
 6035 print"    {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 6040 z4=11:gosub5300:gosub5310
 6050 printzd$"This is the core                      {up}"
 6055 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{CBM-D}{CBM-I}{CBM-I}{CBM-I}"
 6060 forzz=1to3:print"{rght}{rght}{rght}{rght}{rvon}{CBM-K}   ":next
 6065 gosub5300:gosub5310
 6070 printzd$"This is the emergency coolant                {up}"
 6075 print"{home}{down}{down}{down} {rvon}{CBM-C}{rvof}{CBM-K}"
 6080 print" {rvon}{CBM-F}{rvof}{CBM-V}"
 6085 print" {rvon}{CBM-K}"
 6086 print" {rvon}{CBM-K}"
 6090 print" {CBM-C}{rvon}{CBM-F}{CBM-D}{CBM-F}"
 6095 print"{down} {rvon}{CBM-K}{CBM-F}{CBM-D}{CBM-F}"
 6096 print" {rvon}{CBM-K}"
 6097 forzz=1to3:print" {CBM-C}":next
 6100 gosub5300:gosub5310
 6105 printzd$"These are the control rods                  {up}"
 6110 print"{home}{down}{down}"tab(5)"{rvon}{CBM-K}{CBM-K}"
 6115 printtab(5)"{rvon}{CBM-K}{CBM-K}"
 6120 printtab(5)"{rvon}{CBM-V}{CBM-V}"
 6125 printtab(5)"{rvon}{CBM-F}{CBM-F}"
 6126 printtab(5)"{rvon}{CBM-V}{CBM-V}"
 6130 z4=11:gosub5300:gosub5310
 6135 printzd$"This is the primary coolant loop            {up}"
 6140 print"{home}{down}{down}{down}"tab(12)"{rvon}{CBM-K}{CBM-V}"
 6150 printtab(12)"{CBM-C}{rvon}{CBM-D}"
 6155 printtab(13)"{CBM-K}"
 6156 printtab(13)"{CBM-K}"
 6160 printtab(8)"{rvon}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-K}"
 6165 printtab(15)"{CBM-K}"
 6170 printtab(8)"{rvon}{CBM-I} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 6175 gosub5300:gosub5310
 6180 printzd$"This is the heat exchanger                  {up}"
 6185 print"{home}{down}{down}{down}{down}{down}{down}"tab(14)"{rvon}{CBM-D}{CBM-I}{CBM-I}{rvof}{CBM-K}"
 6190 printtab(14)"{rvon}{CBM-D}{rvof}{rght}{rght}{CBM-K}"
 6195 printtab(14)"{CBM-K}{rght}{rght}{CBM-K}"
 6200 printtab(14)"{rvon}{CBM-D}{rvof}{rght}{rght}{CBM-K}"
 6205 printtab(14)"{rvon}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
 6210 z4=11:gosub5300:gosub5310
 6220 printzd$"This is the secondary coolant loop     {up}"
 6225 print"{home}{down}{down}{down}"tab(17)"{rvon}{CBM-K}{CBM-V}"
 6230 printtab(17)"{CBM-C}{rvon}{CBM-D}"
 6235 printtab(18)"{CBM-K}"
 6236 printtab(18)"{CBM-K}"
 6240 printtab(16)"{rvon}{CBM-D}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
 6250 printtab(16)"{CBM-K}"tab(33)"{rvon}{CBM-K}"
 6255 printtab(16)"{rvon}{CBM-I}{CBM-D}{rvof}{CBM-K}"tab(33)"{rvon}{CBM-K}"
 6260 printtab(18)"{CBM-K}"tab(33)"{rvon}{CBM-K}"
 6265 printtab(18)"{CBM-K}"tab(33)"{rvon}{CBM-K}"
 6270 printtab(33)"{rvon}{CBM-K}"
 6271 printtab(33)"{rvon}{CBM-K}"
 6275 printtab(33)"{rvon}{CBM-K}"
 6280 printtab(21)"{CBM-D}"tab(33)"{rvon}{CBM-K}"
 6281 printtab(21)"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 6285 gosub5300:gosub5310
 6290 printzd$"This is the turbine                    {up}"
 6295 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(17)"{rvon}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}"
 6300 printtab(17)"{rvon}{CBM-C}{CBM-V}{CBM-V}{CBM-V}{CBM-V}{CBM-V}"
 6305 printtab(17)"{CBM-K}{CBM-V}{CBM-V}{CBM-V}{CBM-V}{rvon}{CBM-K}"
 6310 printtab(17)"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{CBM-I}"
 6315 gosub5300:gosub5310
 6320 printzd$"This is the electric generator         {up}"
 6325 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(10)"{rvon}{CBM-K}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}"
 6330 printtab(10)"{rvon}{CBM-K}     {rvof}{CBM-I}"
 6335 printtab(10)"{rvon}{CBM-K}{CBM-F}{CBM-F}{CBM-F}{CBM-F}{CBM-F}"
 6340 printtab(10)"{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 6345 z4=11:gosub5300:gosub5310
 6350 printzd$"This is the cooling tower              {up}"
 6355 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(24)"{rvon}{CBM-K}{rvof}"tab(31)"{CBM-K}"
 6360 printtab(24)"{CBM-C}{rvon}{CBM-C}"tab(30)"{CBM-V}{rvof}{CBM-V}"
 6365 printtab(25)"{rvon}{CBM-K}{rvof}{CBM-F}"tab(29)"{CBM-D}{CBM-K}"
 6370 printtab(26)"{CBM-K}"tab(29)"{rvon}{CBM-K}"
 6371 printtab(26)"{CBM-K}"tab(29)"{rvon}{CBM-K}"
 6372 printtab(26)"{CBM-K}"tab(29)"{rvon}{CBM-K}"
 6375 printtab(25)"{CBM-D}{CBM-K}"tab(29)"{rvon}{CBM-K}{rvof}{CBM-F}"
 6380 printtab(25)"{rvon}      "
 6385 gosub5300:gosub5310
 6390 printzd$"This is the complete diagram.          {up}"
 6395 gosub5300:print"{clr}":poke59468,14:return
 9000 rem variable prefixes
 9010 rem a-control rods, c-cooling tower, e-emergency coolant, g-turbine
 9015 rem p-primary coolant, r-reactor, s-secondary coolant,x-heat exchanger
 9020 rem variable suffixes
 9030 rem b-broken, d-damage, f-flow rate, h-heat flow, l-life, o-output
 9035 rem t-temperature, v-volume
 9040 rem other variables tot-total power output, kw-average power output
 9045 rem day-day of operation, dmge-total equipment damage
 9050 rem program discription by line number
 9060 rem 10-220 introduction
 9070 rem 225-380 instructions
 9080 rem 390-455 variable initiation
 9090 rem 460-850 write report and assess damage
 9100 rem 900-1165 input new control variables
 9110 rem 1170 maintenance shutdown evaluation
 9120 rem 1200-1260 pump failure assessment
 9130 rem 1270-1430 plant operating algorithtms
 9140 rem 2000-2200 maintenance shutdown subroutitne
 9150 rem 3000-3190 meltdown ending
 9160 rem 4000-4290 evaluatiton of game results
 9170 rem 5000-5070 end
 9180 rem 6000-7060 plant diagram subroutine
 9190 rem 9000-9190 remarks
 9200 rem apple nuclear power plant
 9210 rem by stephen r berggren
    1 goto1000
    2 gosub5000:poke59409,52:poke59458,62:gosub5010
    3 b$="{rvon} {rvon}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-T}"
    4 forj=31to0step-8:fori=1toj:print"{rvon} ";:next:printb$:next:printright$(b$,9)
    5 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(17)t$;:return
    9 fork=1toxx:next:return
 1000 gosub5000:print"{down}{down}{down}{down}{down}{down}"tab(18)"phuzzy & wuzzy{down}{down}{down}"
 1010 printtab(22)"go to{down}{down}{down}"
 1020 printtab(14)"{rvon}{CBM-K}{rght}{rght}{rvof}{CBM-K}{rght}{rvon}{CBM-B}{rvof}{CBM-B}{rght}{rvon}{CBM-K}{rght}{rght}{rvof}{CBM-K}{rght}{rvon}{CBM-B}{rvof}{CBM-B}{rght}{rght}{rvon}{CBM-F}{rvof}{CBM-V}{rght}{rvon}{CBM-F}{rvof}{CBM-V}
 1030 printtab(14)"{rvon}{CBM-K}{rvof}{CBM-I}{CBM-I}{CBM-K}{rvon}{CBM-K}{rvof}{CBM-I}{CBM-I}{CBM-K}{rvon}{CBM-K}{rvof}{CBM-D}{CBM-F}{CBM-K}{rvon}{CBM-K}{rvof}{CBM-I}{CBM-I}{CBM-K}{rght}{rvon}{CBM-K}{rght}{rght}{CBM-K}
 1040 printtab(14)"{rvon}{CBM-K}{rght}{rght}{rvof}{CBM-K}{rvon}{CBM-K}{rght}{rght}{rvof}{CBM-K}{rvon}{CBM-K}{CBM-B}{rvof}{CBM-B}{CBM-K}{rvon}{CBM-K}{rght}{rght}{rvof}{CBM-K}{rght}{rvon}{CBM-K}{rght}{rght}{CBM-K}
 1050 printtab(14)"{CBM-C}{rght}{rght}{CBM-V}{CBM-C}{rght}{rght}{CBM-V}{CBM-C}{rght}{rght}{CBM-V}{CBM-C}{rght}{rght}{CBM-V}{rght}{rvon}{CBM-I}{rvof}{CBM-V}{rght}{rvon}{CBM-I}{rvof}{CBM-V}
 1060 t$="{rvon}{SHIFT-POUND}  {CBM-*}{rvof}  {rvon}{SHIFT-POUND} {CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1070 t$=t$+"{rvon}{SHIFT-POUND} N{CBM-T}M{CBM-*}{SHIFT-POUND}N{CBM-T}M{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1080 t$=t$+"{rvon}{SHIFT-POUND}NNNMMMNNMMM{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1090 t$=t$+"{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}N{CBM-T}QQQ{CBM-T}M{rvof}{CBM-*}{rvon}{CBM-*}{rvof}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1100 t$=t$+"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}NQM{CBM-*}{rvof}{CBM-*}{rvon}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}"
 1110 t$=t$+"{rvof}  {SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}V{CBM-*}{CBM-*} {CBM-*}{left}{left}{left}{left}{left}{down}V{left}{down}V{left}{down}V{left}{down}V{left}{down}V{left}{down}V"
 1112 print"{home}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}"t$
 1120 print"F{SHIFT-*}CDE{CBM-T}EDC{SHIFT-*}FR"
 1140 xx=4000:gosub9
 1275 gosub5000:gosub5010
 1290 a$="          ":b$="{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}":e$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 1300 printe$"{down}{rvon}";:fori=1to319:print" ";:next:poke33767,160
 1310 printe$"{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}{CBM-@}{left}{down}N"
 1320 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}                   {rvon}{SHIFT-POUND}"
 1330 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}EEEEEEEEEEEEEEEEEEE{left}{left}{left}{left}{left}{left}{left}{up}{up}{rvof}";:fori=1to14:print"{left}{up}{CBM-K}";:next:print"{left}{up}{CBM-J}{down}";
 1340 print"{left}{left}{down}N{left}{left}{down}";
 1350 fori=1to10:print"N"left$(a$,i)left$(b$,i+3);:next:print"{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}";
 1360 print"{up}{up}{up}{up}{up}{up}{rght}{rvon}{CBM-*}{left}{down}{CBM-G}{CBM-*}{left}{left}{down}{CBM-H} {CBM-*}{left}{left}{left}{down}{CBM-K}  {CBM-*}{left}{left}{left}{left}{down}{rvof}{CBM-N}{rvon}   {CBM-*}{left}{left}{left}{left}{left}{down}{rvof}{CBM-M}{rvon}    {CBM-*}{left}{left}{left}{left}{left}{down}     {CBM-*}{left}{left}{left}{left}{left}{left}";
 1370 print"{down}{rvof}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-P}{CBM-@}{CBM-*}"
 1380 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}L{left}{up}{CBM-H}{left}{up}{CBM-J}{rvof}{CBM-U}{CBM-U}{CBM-Y}{CBM-Y}**     {left}{left}{left}{left}{left}";
 4000 w$="                                        "
 4001 w$=w$+"we join our two adventurers as they comp"
 4002 w$=w$+"lete their long and grueling voyage acro"
 4003 w$=w$+"ss the shark infested waters of the sout"
 4004 w$=w$+"h pacific ocean.....in search of........"
 4005 w$=w$+".....hawaii!!!                          "
 4006 forj=1to240:fori=1to50:next
 4010 printe$"{rvon}{down}{down}{down}{down}{down}"left$(w$,40)
 4020 w$=right$(w$,239)+" ":next
 4130 w$="":printe$"{up}"tab(13);
 4140 fori=1to5:print" *{left}";:xx=150:gosub9:next:xx=2000:gosub9:print" {up}*{left}";
 4150 xx=150:gosub9:fori=1to13:print"{CBM-K}{left}{up}*{left}";:gosub9:next:print"{CBM-J}{left}{up}*{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 4160 xx=3000:gosub9:print"land ahoy!-{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:xx=1500:gosub9:print"           "
 4165 fori=1to1500:next:poke59409,60
 4170 printe$"{down}"tab(28):print"{SHIFT-POUND}           {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}N{CBM-T}
 4172 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}N{CBM-T}{CBM-T}      {up}{left}{left}{left}{left}{left}{left}N     {left}{left}{left}{left}{left}{up}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
 4180 print"{left}{left}{left}{left}{up}";:gosub8000
 4190 poke59409,60:xx=300:gosub9
 4200 print"{home}"tab(19)" {left}{down}*";:xx=50:gosub9:print"{left}{CBM-J}{left}{down}*";:fori=1to14:gosub9:print"{left}{CBM-K}{left}{down}*";
 4210 next:gosub9:print"{left}{CBM-T}{left}{down}*";:gosub9:print"{left} {left}{down}{rvon}*";:gosub9:print"{left}E{left}{down}*";:gosub9:print"{left} {left}{down}*";:gosub9:xx=100
 4220 print"{left}.";:gosub9:print"{left}v";:gosub9:print"{left}{left}M N";:gosub9:print"{left}{left}{left}   {left}{left}";:xx=1500:gosub9
 4240 printe$"{down}{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to17:xx=50:gosub9:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
 4250 printe$"{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to18:gosub9:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
 4260 printe$"{down}{down}{down}{down}{down}{down}{left}{SHIFT-POUND}";:fori=1to18:xx=50:gosub9:print"{left}{rvon} {rvof}{left}{left}{SHIFT-POUND}";:next
 4270 xx=1000:gosub9:print"{left}{left}{left}{up}{rvon}.{left}";:gosub9:print"*";
 4280 xx=500:gosub9:fori=1to4:print"{rvof}{left}*";:xx=100:gosub9:print"{rvon}{left}*";:gosub9:next
 4290 fori=1to9:xx=20:gosub9:print"{left} {left}{left}+";:gosub9:print"{left} {left}{left}*";:next:gosub9:print"{left} "
 4295 xx=250:gosub9:xx=30
 4300 printtab(22)"{up}{rvon} {left}{left}{left}{rvof}{SHIFT-POUND}";:gosub9:fori=1to20:gosub9:print"{left}{rvon} {left}{left}{rvof}{SHIFT-POUND}{up}{rght}{rvon} {left}{left}{rvof}{SHIFT-POUND}{down}{down}{rvon} {left}{left}{rvof}{SHIFT-POUND}{up}{left}";:next
 4310 print"{rvon}{left} {up} {left}{down}{down} ";:xx=1000:gosub9:print"{left}{left}*";:fori=1to39:xx=30:gosub9
 4320 print"{left} *";:next:print"{left} ":print"{up}{CBM-*}";:gosub9:print"{left}{rvon} {rvof}{CBM-*}{left}{left}{up}{CBM-*}{left}{down}{down}{CBM-*}";
 4330 fori=1to38:gosub9:print"{rvon}{up} {rvof}{CBM-*}{left}{left}{left}{up}{rvon} {rvof}{CBM-*}{left}{left}{down}{down}{rvon} {rvof}{CBM-*}";:next
 4340 gosub9:print"{up}{rvon} {left}{left}{up} {rvof}{CBM-*}{left}{left}{down}{down}{rvon} {rvof}{CBM-*}";:gosub9:print"{left}{rvon} {left}{up}{up} "
 4350 print"{rvon}{up}{up}{up}{left}*";:fori=1to20:xx=30:gosub9:print"{left} {left}{left}*";:next
 4360 gosub9:print"{left} {left}{left}{up}*";:gosub9:print"{left}E{left}{left}{up}{rvof}*";:gosub9:print"{left} {left}{left}{up}*";:gosub9
 4370 print"{left}{CBM-T}{left}{left}{up}*";:xx=1000:gosub9:xx=150:print"{left}{left}{left}{left} *";:gosub9:print"{left} *";
 4380 gosub9:print"{left} ";:gosub9:print"{rght}*";:gosub9:print"{left} *";
 4385 gosub9:print"{left} *";:gosub9:print"{left} ";
 4390 gosub9:print"{rght}*";:gosub9:print"{left} {left}{left}{left}{left}{left}{left} *";:gosub9:print"{left} *";:gosub9
 4395 print"{left} *";:gosub9:print"{left} ";
 4400 gosub9:print"{rght}*";:gosub9:print"{left} {rght}{rght}{rght}{rght}{rght}{rght}{rght}";:xx=500:gosub9:print"*";
 4410 xx=1000:gosub9:print"{left}{CBM-@}{up}*";:xx=150:gosub9:print"{left} {down}*{left}{left}{left}";:gosub9:print"*";
 4420 gosub9:print"{rght} {up}*";:gosub9:print"{left} *";:gosub9:print"{left}{left}{left}{left}{left}{down}{CBM-@}{up}*";:gosub9
 4430 print"{left} {down}*";:gosub9:print"{up}{rght} *";:gosub9:print"{left}{left}{left}{left}{down} {up}*";:gosub9:print"{left} *";:gosub9
 4435 xx=2000:gosub9
 4440 fori=1to2:print" {up}*";:xx=150:gosub9:print"{left} {up}*";:gosub9:print"{left} *";:gosub9
 4450 print"{left}{CBM-M}*";:gosub9:print"{left}V*";:gosub9:print"{left} *";:gosub9:print"{left} ";
 4460 ifi=1thenprint"{left}{left}{left}{left}{left}{left}{left}{left}{down}{down} *{left}";:gosub9
 4470 next:xx=2000:gosub9
 4508 gosub2:print"{left}{left}{left}{left}{left}{left}{left}{left}{down}M{down}O{CBM-T}M{down}{rght}N{CBM-T}P{up}N":poke59458,30:poke59409,60:gosub9
 4510 gosub5020:gosub9:print"{left} {up}*";:gosub9:print"{left} *";:gosub9:print"{left} *":gosub5020:gosub9
 4520 print"{left} {left}{up}*";:gosub9:print"{left} {left}{left}{up}*";:gosub9:print"{left} {left}{left}*";:gosub9:print"{left} {left}{left}*";
 4522 print"{rght}{rght}{rght}{rght}{rght}{up}{up}{up}{up}{up}{up}{up}{up}";:forj=1to3:xx=2000:gosub9:gosub5030:next:gosub5040
 4524 print"{left} {left}{left}{down}MQ";:gosub9
 4526 print"{left}{left} ";:xx=2000:gosub9:print"  {left}{left}{left}{left}{down}{CBM-T}M{down}{CBM-T}{left}{up}QN";:gosub9:print"{left} {left}{down}{CBM-T}{left}{left}{up}{CBM-P}Q";
 4528 xx=150:fori=1to3:gosub9:print"{left} Q";:next:xx=4000:gosub9:print"{left}{left}{left}{left}{left}*";:xx=1500
 4540 gosub9:print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{left}";:gosub5030:print"{rvon} {left}{down}Q{left}";:xx=50:gosub9:gosub5040
 4542 print"{left} {left}{down}Q";:gosub9:print"{left} {left}{down}QN";:gosub9:print"{left} ";
 4544 xx=2500:gosub9:xx=100:print:fori=1to4:print" {left}{left}S{left}";:gosub9:next:xx=1500:gosub9:print
 4546 printspc(16)"{up}{up}{up}{up}{up}{CBM-P}{left}{down}{CBM-X}":xx=3000:gosub9:goto9100
 5000 poke59409,52:print"{clr}":poke59409,60:return
 5010 fori=1to15:printtab(rnd(1)*39)".":next:return
 5020 print"*";:fori=1to18:xx=100:gosub9:print"{left} *";:next:return
 5030 fori=1to4:print"{rvof}Q{left}";:xx=50:gosub9:print"{rvon}Q{left}";:gosub9:next:return
 5040 print"{rvon} {rvof}{left}{down}Q";:fori=1to7:xx=50:gosub9:print"{left}V{left}{down}Q";:next:gosub9
 5042 return
 8000 fori=1to6:print"{CBM-M}V{left}{left}{up}";:next:print"{left}{left}{left}{SHIFT-POUND} {SHIFT-POUND}{SHIFT-POUND}V{CBM-*}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{up}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}NQM{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}N{CBM-T}QQQ";
 8010 print"{CBM-T}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND}NNNMMMNN{left}{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND} N{CBM-T}M{CBM-*}{SHIFT-POUND}N{left}{left}{left}{left}{left}{left}{left}{up}{SHIFT-POUND}  {CBM-*}{rvof}  {rvon}{SHIFT-POUND}":return
 9100 a$="{rvof}{SHIFT-POUND}   {CBM-*}{left}{left}{left}{left}{left}{down} {rvon}{SHIFT-POUND}{SHIFT-POUND}{CBM-*}{rvof} {left}{left}{left}{left}{left}{down} {rvon}{CBM-T}.{CBM-T}{rvof} {left}{left}{left}{left}{left}{down} {CBM-*}{rvon}={rvof}{SHIFT-POUND} {left}{left}{left}{left}{left}{left}{down}{SHIFT-POUND}  {rvon}{CBM-T}{rvof}  {CBM-*}{left}{left}{left}{left}{left}{left}{left}{down}"
 9110 a$=a$+"NM{rvon}{SHIFT-POUND} {SHIFT-POUND}{rvof}NM{left}{left}{left}{left}{left}{left}{left}{down}  {CBM-*}{rvon}B{rvof}{SHIFT-POUND}  {left}{left}{left}{left}{left}{left}{left}{down}{rvon}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{CBM-T}{CBM-*}{rvof} {rvon}{SHIFT-POUND}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}{CBM-M}  {CBM-M}{CBM-M}{left}{left}{left}{left}{left}{left}{down}"
 9120 a$=a$+"NN . MM{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}{rvof}{SHIFT-POUND}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{CBM-*}{rvon}{CBM-G}{left}{left}{left}{left}{left}{left}{left}{left}{down}{rvof}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{left}{left}{left}{left}{left}{left}{left}{down}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{left}{left}{left}{left}{left}{left}{left}{down}"
 9130 a$=a$+"{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}":poke59409,52:print"{clr}":poke59458,52
 9140 fori=0to17step17:print"{home}{down}{down}{down}":gosub9260:print"{home}{down}{down}{down}{down}{down}{down}{down}"spc(15/17*i+10)a$:next
 9150 poke33107,160:poke33186,160:poke33346,160:poke33386,160:poke33427,160:poke33467,160
 9160 poke59458,30:poke59409,60
 9170 fori=1to1000:next
 9180 poke59467,16:poke59466,51
 9190 fori=75to35step-1:poke59464,i:next
 9200 poke59464,0:fori=1to100:next
 9210 fori=75to50step-1:poke59464,i:next
 9220 fori=50to98:poke59464,i:next
 9230 poke59467,0
 9240 fori=0to15step15:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(11+i)"{rvon}{CBM-C}.{CBM-V}{left}{left}{down}Q":next
 9250 fori=1to1500:next:gosub2:print"{left}{left}{left}{left}{left}{left}{left}{left}{down}M*{left}{down}O{CBM-T}M{down}{rght}{CBM-T}MQ{left}{down}{CBM-T}{CBM-T}{up}  Q":poke59458,30
 9255 print"{left}{left}{left}{left}S";:poke59409,60:goto9500
 9260 printspc(9+i)"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}
 9270 printspc(6+i)"{CBM-I}{rvon}        {CBM-C}{rvof}{CBM-F}
 9280 printspc(4+i)"{CBM-D}{rvon}            {CBM-C}
 9290 printtab(3+i)"{rvon}{CBM-V}               {rvof}{CBM-F}
 9300 printtab(2+i)"{CBM-D}{rvon}                {CBM-C}
 9310 printtab(2+i)"{rvon}                  {rvof}{CBM-K}
 9320 printtab(1+i)"{rvon}{CBM-K}                   "
 9330 printtab(1+i)"{rvon}                    {rvof}{CBM-K}
 9340 printtab(1+i)"{rvon}                    {rvof}{CBM-K}
 9350 printtab(1+i)"{rvon}DCCDDE{CBM-T}{CBM-T}     {CBM-T}{CBM-T}EDCCD{rvof}{CBM-K}
 9360 printtab(1+i)"{rvon}{CBM-F}                   {rvof}{CBM-V}
 9370 printtab(1+i)"{CBM-C}{rvon}                  {CBM-D}
 9380 printtab(2+i)"{rvon}{CBM-F}                 {rvof}{CBM-V}
 9390 printtab(3+i)"{rvon}                {rvof}{CBM-K}
 9400 printtab(3+i)"{CBM-C}{rvon}{CBM-F}             {CBM-I}"
 9410 printtab(5+i)"{rvon}{CBM-I}          {CBM-D}{rvof}{CBM-V}"
 9420 printtab(7+i)"{rvon}{CBM-I}{CBM-I}    {CBM-D}{CBM-I}{rvof}{CBM-V}"
 9430 return
 9500 xx=1000:gosub9:clr:fori=1to3:print"{left} S";:xx=150:gosub9:next:print"{left} ";:xx=1000:gosub9
 9510 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}{up}{up} *";
 9600 xx=40:fori=1to2:gosub9:print"{left} *";:next:print"{left} {down}*";:fori=1to20:gosub9:print"{left} *";:next:print"{left} "
 9610 xx=1000:gosub9:printtab(21)"{up}*{left}{up}Q";:gosub9:print"{left}{down}{rvon}*";:xx=100:gosub9:print"{left}{rvof}*{left}{up} Q";
 9620 gosub9:print"{left} {down}Q";:gosub9:print"{left} Q{rght}";:fori=1to4:gosub9:print"{left} Q";:next:print
 9622 xx=30:printtab(21)"{up} *";:gosub9:print"{left} {down}*";:fori=1to16:gosub9:print"{left} *";:next:print"{left} ";
 9700 xx=3000:gosub9:gosub5000:print"{down}{down}{down}{down}{down}{down}{down}{down}
 9705 print"{down}warning:  the following program contains"
 9710 print"{up}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}   scenes of nudity and violence."
 9720 print"{up}          viewer discretion is{$a0}advised.
 9730 xx=9000:gosub9:print"{down}{down}?out of memory error in 60000{up}"
 60000 rem"{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}?can't list error
   20 rem ken morley
   30 dims$(7)
   31 s$(1)="           .      {rght}{rght}{rght}{rght}            .   "
   32 s$(0)="  .               {rght}{rght}{rght}{rght}.              ."
   33 s$(2)="           .      {rght}{rght}{rght}{rght}     .       .  "
   34 s$(3)="                 .{rght}{rght}{rght}{rght}                "
   35 s$(4)="                  {rght}{rght}{rght}{rght}        .       "
   36 s$(5)="     .         .  {rght}{rght}{rght}{rght}                "
   37 s$(6)="        .         {rght}{rght}{rght}{rght}       .        "
   38 s$(7)=".                 {rght}{rght}{rght}{rght}                "
   50 goto4003
   80 print"{clr}":fori=1to25:poke32768+rnd(1)*1000,46:next:forj=1to40
   95 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvof}"tab(20)"NM{left}{left}{down}{rvon}{CBM-@}{CBM-@}{left}{left}{down}L{SHIFT-@}{left}{left}{down}{rvof}{CBM-C}{CBM-V}";
  110 ifj>22thenpoke33267,78:poke33270,77:poke59464,95+4*j:poke59464,0
  115 poke59464,75+4*j:poke59464,0
  120 if(j+1)/3-int((j+1)/3)=0thenpoke33348,103:poke33349,101:poke33348,32:poke33349,32
  150 fori=1to(.685*j)^2+250:nexti:ifj=40then400
  200 print"{left}{left}  {left}{left}{up}  {left}{left}{up}  {left}{left}{up}  {left}{left}";
  205 ifj=38thenpoke33267,82:poke33270,64:goto220
  210 ifj>22thenpoke33267,32:poke33270,32
  220 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{up}{up}{up}"
  225 ifj=22thenpoke33227,77:poke33230,78:poke33227,100:poke33230,100:poke33227,32:poke33230,32
  227 ifj=22thenpoke33267,78:poke33270,77
  230 ifj<25thenpoke33728+rnd(1)*40,46:ifj=21thenpoke33738,81
  235 ifj=25thenprint"{down}{down}{CBM-@}UIUI{SHIFT-*}CDC{SHIFT-*}F{SHIFT-*}D{CBM-T}EDC{SHIFT-*}FR{CBM-@}F{SHIFT-*}CDDC{SHIFT-*}CDC{SHIFT-*}F{SHIFT-*}C{SHIFT-*}CC{SHIFT-*}{up}"
  320 ifj=26thenprint"{down}{down} G{CBM-N}{CBM-H}Y   U{CBM-R}I{up}"
  330 ifj=27thenprint"{down}{down}{SHIFT-*}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{CBM-A}{CBM-E}{CBM-E}{CBM-E}{CBM-S}RFR{CBM-@}         {SHIFT-*}CE{CBM-T}EN{CBM-T}EDE{up}{left}{left}{left}{CBM-@}R{CBM-@}{down}{CBM-T}MCD{up}"
  340 ifj=28thenprint"{down}{down} PPPPP{CBM-T}{CBM-Z}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-X}   {CBM-@}R                 {CBM-T}EDC{up}"
  350 ifj=29thenprint"{down}{down} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} E{CBM-E}FRFCE{up}"
  360 ifj=30thenprint"{down}{down}{up}"
  370 ifj=31thenprint"{down}{down}{up}"
  380 ifj=32thenprint"{down}{down}{up}"
  390 ifj=33thenprint"{down}{down}                   {CBM-T}D{SHIFT-*}RF{SHIFT-*}CCDEDC{SHIFT-*}FR{CBM-@}{up}"
  392 ifj=36thenprint"{down}{CBM-@}RF{SHIFT-*}CDE{CBM-T}D{SHIFT-*}R{CBM-@}RFCE{CBM-T}EDC{SHIFT-*}FR{CBM-@}
  393 ifj=37thenprint"{down}            EDC{SHIFT-*}FR{CBM-@}{CBM-@}
  400 nextj:fori=1to3000:nexti
  420 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(21)" {left}{up}{CBM-@}";
  425 gosub1000:print"{left}N";:gosub1000:print"{left}{CBM-G}";:gosub1000:print"{left} {left}{left}M";:gosub1000:print"{left}{CBM-@}";
  500 gosub1000:fori=1to1500:next:y=7:forj=1to2
  510 print"{down}*";:gosub2000:print"{left} *";:gosub2000:print"{left}{SHIFT-*}{left}{down}*";:gosub2000
  520 print"{left} {down}*";:gosub2000:print"{left} {down}*";:gosub2000:print"{left} *";:gosub2000:ifj=2then585
  570 print"{left} *";:print"{left}{left}{left}{left}{left}{left}{up}{up}{up}{up}";
  585 y=5
  590 nextj:fori=1to1000:next:print"{left} {left}{left}{down}*";:gosub2000:print"{left} {left}{left}{down}*";:gosub2000:forj=1to19:print"{left} {left}{left}*";
  650 gosub2000:nextj:fori=1to1000:next:print"{left}{left}{CBM-Q}";:gosub2000:print"{left}{up}{SHIFT--}";:gosub2000:print"{left}{up}{rvon}{CBM-K}{rvof}X{CBM-K}{down}{down}{left}{left}{left}";
  660 gosub1600:gosub9000
  710 print"{SHIFT--}{rght}";:gosub1600:forj=1to19:print"{left} *";:gosub2000:next:gosub1600
  750 y=7
  790 print"{up}{up}{rght}{rght} {rght}*";:gosub2000:print"{left} {left}{down}*";:gosub1600:print"{CBM-W}{left}{down}{CBM-T}{up}{up}{left}";:gosub2000:print"{SHIFT--}{left}{up}";:gosub2000
  840 print"{SHIFT--}{left}{up}";:gosub2000:print"{down}{rght}{rvon}18{rvof}{down}{down}{left}{left}{left}";:gosub1600:print"{SHIFT--}{left}";:gosub2000:forj=1to6:print"{left} {left}{left}*";
  905 gosub2000:next:print".{left}{left}";:gosub1600:print"{rvon}*{left}";:gosub1000:print"{rvof}* .";:forj=1to4:print"{left} .";:gosub2000
  970 nextj:poke59464,20:poke59464,0:print"{left} {rght}/{up}clunk!{left}{left}{left}{left}{left}{left}{left}{down}";:fori=1to300:next
  980 print" {up}      {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:goto3000
 1000 fori=1to100:next:poke59464,15:poke59464,0:return
 1500 poke59464,255:fori=1toq/5:poke59466,iand167:next:q=q-20:poke59464,0:return
 1600 fori=1to600:next:return
 2000 poke59464,y:poke59464,0:fori=1to100:next:return
 3000 gosub1600:print"{down} *";:gosub2000:print"{left} {up}*";:forj=1to2:gosub2000:print"{left} {left}{left}{up}*";:gosub2000
 3045 print"{left} {left}{left}{up}*";:gosub2000:print"{left} {left}{up}*";:gosub2000:print"{left}{SHIFT-*}{left}{left}*";:gosub2000:print"{left} ";:ifj=2then3100
 3050 y=5
 3077 gosub1600:print"{down}{down}{down}{down}{down}{rght} {up}*";:gosub2000:print"{left} {left}{up}*";
 3100 nextj:fori=1to1500:next:print"{left}{left}{up}M";:gosub1000:print"{left} {CBM-G}";:gosub1000:print"{left}N";:gosub1000:print"{left}{CBM-@}";
 3190 gosub1000:print"{left} {left}{down}M";:gosub1000:fori=1to3000:next:f=500:forj=1to3:poke33227,28
 3195 poke33230,47
 3200 poke33227,32:poke33230,32:fori=1tof:next:f=f-200:nextj:print"{left}{left}{down}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";:q=300
 3225 gosub1500
 3230 print"{left}{left}{down}{down}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";
 3235 gosub1500
 3240 print"{left}{left}{down}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";
 3241 gosub1500
 3242 print"{left}{left}{down}{down}{down}FF{left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";
 3244 gosub1500
 3247 x=33228
 3250 forj=1to6
 3255 print"{left}{left}{down}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{left}{left}{up}{rvof}NM";
 3260 gosub1500
 3270 nextj
 3280 print"{left}{left}{down}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}{left}{left}{up}{rvon}L{SHIFT-@}{rvof}";
 3285 gosub1500
 3295 print"{left}{left}{down}{down}  {left}{left}{up}{CBM-M}{CBM-G}{left}{left}{up}{CBM-C}{CBM-V}";
 3300 gosub1500
 3310 print"{left}{left}{down}  {left}{left}{up}{CBM-M}{CBM-G}";
 3315 gosub1500
 3320 print"{left}{left}  "
 3500 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}the end":fori=1to100:poke59464,255*rnd(1)
 3510 poke59466,255*rnd(1)
 3520 forj=0to10*rnd(1):next:poke59464,0:forj=0to10*rnd(1):next:next
 4000 poke59458,30:poke59466,0:poke59467,0:print"{clr}":poke59411,61:end
 4003 poke59468,12:poke59464,0:poke59467,16:poke59466,1
 4004 gosub10000
 4005 z=1000
 4010 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 4020 a$=" {CBM-M}{CBM-G} {left}{left}{left}{left}{up}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}{left}{left}{left}{left}{up}{rvon} L{SHIFT-@} {left}{left}{left}{left}{up}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{up}..{left}{left}{up}{CBM-T}{CBM-T}{left}{left}{up}EE{rvof}{left}{left}{up}NM"
 4030 fori=1to7:reada(i):next:data48,43,38,32,23,13,4
 4040 b$="{home}{down}{down}{down}{down}{down}{down}"
 4101 print"                       OM
 4102 print"                      NOV{CBM-G}
 4103 print"                     N OV{CBM-G}
 4104 print"                    O{CBM-T}{CBM-T}OV{CBM-G}
 4105 print"                   NM  OV{CBM-G}
 4106 print"                   {rvon}EE{rvof}  OV{CBM-G}{CBM-H}
 4107 print"                   {rvon}{CBM-T}{CBM-T}{rvof}  OV{CBM-G}{CBM-H}
 4108 print"                   {rvon}..{rvof}  OV{CBM-G}{CBM-H}
 4109 print"                  {rvon}{SHIFT-POUND}OP{CBM-*}{rvof} OV{CBM-G}{CBM-H}
 4110 print"                  {rvon} L{SHIFT-@} {rvof} OV{CBM-G}{CBM-H}
 4111 print"                  {SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*} OV{CBM-G}{CBM-H}
 4112 fori=1to40:print"{rvon}{CBM-POUND}";:next:fori=1to79:print"{CBM-+}";:next
 4113 poke33767,230
 4114 fori=1to20
 4115 r=int(rnd(1)*1000+1)
 4116 ifpeek(32767+r)<>32then4115
 4117 poke32767+r,46
 4118 next
 4119 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}   {left}{left}{left}{down}   {left}{left}{left}{down}   {up}{up}
 4120 ti$="000000"
 4121 ifti<534thenpoke59464,255*rnd(1)+1:goto4123
 4122 poke59464,0:goto4124
 4123 print"{home}{rvon}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"int(9.4-ti/60+.5)"{left} ";:goto4121
 4124 print"{left}{left}{left}{up}{rvon}{CBM-POUND}{CBM-POUND}{CBM-POUND}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4126 print"{rvof}N";
 4127 gosub5000
 4128 print"{left}{CBM-M}";
 4129 gosub5000
 4130 print"{left} {up}{CBM-M}{left}{down}{CBM-M}";
 4131 gosub5000
 4132 print"{left} {left}{up} {up}Y{left}{down}{SHIFT--}{left}{down}G";
 4133 gosub5000
 4134 print"{left}{up}{up}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}";
 4140 forj=1to15:ss=262-7*j
 4150 gosub6000
 4200 print"{down}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left} {CBM-M}{CBM-G} {left}{left}{left}{left}{up}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}{left}{left}{left}{left}{up}{rvon} L{SHIFT-@} {left}{left}{left}{left}{up}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{up}..{left}{left}{up}{CBM-T}{CBM-T}{left}{left}{up}EE{left}{left}{up}{rvof}NM{rght}{rght}{up}";
 4206 z=z*.8
 4210 next:poke59464,0
 4215 fork=7to1step-1
 4217 gosub6000
 4220 printleft$(b$,k)"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"left$(a$,a(8-k))
 4225 nextk
 4230 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4240 forj=1to22
 4242 gosub6000
 4245 print"  {left}{left}{up}";
 4247 nextj
 4250 fori=1to1000:next:poke59411,60:poke59458,62
 4260 sp$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":print"{clr}"sp$a$;
 4317 forj=1to20
 4320 gosub8000
 4329 poke33467,103:poke33468,101:poke59464,255:poke59464,0
 4330 fori=1to50:next
 4340 poke33467,32:poke33468,32:poke59464,255:poke59464,0
 4360 next
 4370 poke33427,32:poke33428,32
 4375 forj=1to3
 4380 fork=1tornd(1)*1300+1:nextk
 4390 poke33226,47:poke33229,28
 4400 fori=1to200:next
 4410 poke33226,32:poke33229,32
 4420 nextj:printsp$;a$;
 4430 c$="{rvon}  {left}{left}{left}{down}{rvof} {rvon}..{rvof} {rvon}{left}{left}{left}{left}{down}{SHIFT-POUND}OP{CBM-*}{left}{left}{left}{left}{down} L{SHIFT-@} {left}{left}{left}{left}{down}{rvof}{SHIFT-POUND}{CBM-C}{CBM-V}{CBM-*}"
 4435 fori=1to4:readc(i):next:data33,24,14,3
 4437 d$="{left}{left}{left}{up}{up}{up}"
 4440 print"{left}{left}{down}{rvon}{CBM-@}{CBM-@}{left}{left}{down}L{SHIFT-@}{left}{left}{down}"c$;
 4445 z=100:ss=255:gosub6000
 4450 print"{left}{left}{left}{up}{up}{up}{up}{rvof}{CBM-C}{CBM-V}{left}{left}{down}"c$;
 4452 gosub6000
 4455 forj=1to7
 4460 print"{left}{left}{left}{up}{up}{up}{up}{rvof}  {left}{left}{down}"c$;
 4465 ifj=1thenpoke33307,103:poke33308,101
 4470 gosub6000
 4480 nextj
 4490 print"{left}{left}{left}{up}{up}{up}{up}";
 4500 forj=1to4
 4510 print"{rvof}  {left}{left}{down}"left$(c$,c(j))left$(d$,7-j);
 4515 gosub6000
 4520 nextj
 4530 print"{rvof}   {up}{up}{up}";
 4540 forj=1to55:gosub8000
 4550 poke33347,103:poke33348,101:poke59464,255:poke59464,0
 4560 fori=1to50:next
 4570 poke33347,32:poke33348,32:poke59464,255:poke59464,0
 4590 next:poke59409,52:print"{clr}":poke59409,60
 4605 gosub7000
 4610 goto80
 5000 fori=1to100:next:poke59464,10:poke59464,0:return
 6000 w=59464:w1=59466
 6010 fori=1toz/9:pokew,0:pokew,ss/(1+2*(iand1)):pokew1,iand15:next:pokew1,15:pokew,0:return
 7000 poke59409,52:fori=1to1500:next:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:poke59409,60
 7010 print"           three days later..."
 7020 fori=1to2000:next
 7030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 7040 fori=1to40:print" ";:next
 7050 return
 8000 print"{home}";:s1=s1+1:fors=s1+7tos1step-1:prints$(sand7)"{down}{down}":next:return
 9000 w=59464:poke59466,161
 9010 fori=1to37:reada:pokew,a:reada:forj=1toa/2:next:next:return
 9020 data188,500,157,300,0,0,157,125,237,600,214,200,190,200,175,200,157,200
 9030 data140,200,214,700,188,500,175,300,0,0,175,125,157,600,140,200,125,200,0,0
 9040 data125,200,140,200,0,0,140,200,157,600,0,100,157,500,115,300,0,0,115,125
 9050 data140,200,175,200,188,200,214,200,157,600,246,600,238,1000,0,0
 10000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 10010 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}phuzzy & whuzzy{down}"
 10020 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}go to the{down}{down}"
 10030 print"      {rvon}{CBM-+}{CBM-+} {CBM-+}{CBM-+}    {CBM-+}{CBM-+}      {CBM-+}{CBM-+}    {CBM-+}{$a0}  {CBM-+}
 10040 print"      {rvon}{CBM-+} {CBM-+} {CBM-+}   {CBM-+}  {CBM-+}    {CBM-+}  {CBM-+}   {CBM-+}{CBM-+}  {CBM-+}
 10050 print"      {rvon}{CBM-+}   {CBM-+}  {CBM-+}    {CBM-+}  {CBM-+}    {CBM-+}  {CBM-+} {CBM-+} {CBM-+}
 10060 print"      {rvon}{CBM-+}   {CBM-+}   {CBM-+}  {CBM-+}    {CBM-+}  {CBM-+}   {CBM-+}  {CBM-+}{CBM-+}
 10070 print"      {rvon}{CBM-+}   {CBM-+}    {CBM-+}{CBM-+}      {CBM-+}{CBM-+}    {CBM-+}   {CBM-+}
 10075 poke59468,12:poke59464,0:poke59467,16
 10080 fori=1to100:poke59464,255*rnd(1):poke59466,255*rnd(1)
 10090 forj=0to10*rnd(1):next:poke59464,0:forj=0to10*rnd(1):next:next:return
    0 clr:poke59468,12
    1 rem pickup copyright(c)1979larry phillips
    2 rem7730 cambie street
    3 remvancouver b.c.,canada,v6p3h7
    5 remcursor #12, july 1979
    6 rembox 550, goleta, ca. 93017
    7 remlines61000-65000(c)1979 cursor
   10 rem 81 jan 5
   90 pg$="pickup":nm$="12":gosub62000
  100 ifjs=0then61000
  200 fori=1to9:readvr(i),hr(i),cr(i):nexti
  210 data3,7,9,8,8,8,1,9,7,6,6,6,5,5,5
  220 data4,4,4,9,1,3,2,2,2,7,3,1
  240 fori=1to9:readd(i):nexti
  250 data39,40,41,-1,0,1,-41,-40,-39
  300 print"{down}{down}how fast ({rvon}0{rvof}=slow to {rvon}9{rvof}=fast)? ";:gosub60000
  305 ifin$=""thenin$="2":print"{down}i'll assume ";in$;", then."
  310 sp=int(val(in$)):ifsp<0orsp>9then300
  320 td=2*(9-sp)
  350 print"{down}how long (in minutes)? ";:gosub60000
  355 ifin$=""thenprint"{down}i'll assume three minutes.":in$="3"
  360 tm=int(val(in$)):iftm<1then350
  370 tm=3600*tm
  380 hs=-1e30
  500 s0=32:s1=81:s2=87:s3=86:s4=90
  510 r0=s0+128:r1=s1+128:r2=s2+128:r3=s3+128:r4=s4+128
  520 om=5:cm=1:dl=0:s=0:c=0
  530 gm=gm+1
  600 fori=1to700:nexti
  800 gosub9000
  820 p=32849:gosub9200:pokep,r1:p=32885:gosub9200:pokep+1,r2
  830 p=33685:gosub9200:pokep+41,r3:p=33649:gosub9200:pokep+40,r4
  850 bd=r0:p=32868:pokep,96
  910 b=s1:gosub9100:b=s2:gosub9100:b=s3:gosub9100:b=s4:gosub9100
  930 pokep,bd
  950 gosub9500:gosub9600
  990 ti$="000000"
 1000 t$=ti$:print"{home} ";left$(t$,2);":";mid$(t$,3,2);":";right$(t$,2)
 1010 ifti>tmthen3000
 1020 ifti<dlthen1000
 1030 m=usr(0):ifm=0then3300
 1100 ifm=5andcmthenm=om
 1110 om=m:d=d(m):np=p+d:pk=peek(np)
 1120 dl=ti+td
 1130 iflf=0andc=0then3200
 2100 ifp=npthen2600
 2110 ifpk=32then2500
 2120 ifpk=101orpk=103thenm=vr(m):goto1100
 2130 ifpk=99orpk=100thenm=hr(m):goto1100
 2140 ifpk=s1orpk=s2orpk=s3orpk=s4then2200
 2150 ifpk=r1orpk=r2orpk=r3orpk=r4then2300
 2160 goto2500
 2200 lf=lf-1
 2210 ifbd=r0orbd=128+pkthenbd=128+pk:c=c+1:gosub9600:goto2500
 2220 bd=r0:c=0:gosub9600:goto2500
 2300 m=cr(m):ifbd=r0then1100
 2305 c=int(100*((1.1)^c-1))
 2310 ifbd=pkthens=s+c
 2320 ifbd<>pkthens=s-2*c
 2330 gosub9500:c=0:bd=r0:gosub9600
 2340 pokep,bd:goto1100
 2500 pokep,32:pokenp,bd:p=np
 2600 goto1000
 3000 print"{home}{rvon}time's up!"
 3010 cs=cs+s:et=et+ti:dl=ti+300
 3020 ifti<dlthen3020
 3030 gett$:ift$<>""then3030
 3040 ifs>hsthenhs=s
 3100 print"{clr}{down}{down}want to play again? ";:gosub60000
 3110 ifleft$(in$,1)<>"n"then500
 3120 et=int(et/3600+.5):ifet<1thenet=1
 3125 av=int(cs/et+.5)
 3130 print"{clr}{down}{down}you got";cs;"point";:ifcs<>1thenprint"s";
 3140 print" in";et;"minute";:ifet<>1thenprint"s";
 3150 print", for":print"{down}an average of";av;"point";:ifav<>1thenprint"s";
 3155 print" per minute."
 3160 print"{down}in";gm;"game";:ifgm<>1thenprint"s";
 3165 print" your highest score was";hs;"{left}.
 3170 print"{down}the game";mid$("s were was",6*(gm>1)+7,6);
 3175 tm=tm/3600:printtm;"minute";:iftm<>1thenprint"s";
 3180 ifgm<>1thenprint" each";
 3185 print", and ran":print"{down}at a speed of";sp;"{left}.
 3195 end
 3200 print"{home}{rvon}all gone!":goto3010
 3300 print"{home}{rght}{rvon}quitter!":goto3010
 9000 print"{clr}
 9010 print"{home}{down} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rght}";
 9020 fori=1to22:print"{left}{down}{CBM-G}";:next
 9030 print"{home}{down}":fori=1to22:print"{CBM-M}{down}{left}";:next
 9040 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
 9050 print"{home}":return
 9100 fori=1to25:lf=lf+1
 9110 r=int(rnd(1)*879+1)+32848
 9120 ifpeek(r)<>32then9110
 9130 c=0:poker,b:nexti
 9140 return
 9200 pokep,96:pokep+1,96:pokep+40,96:pokep+41,96:return
 9500 s$=str$(s):ifs<0thens$=" "+s$
 9510 print"{home}";tab(13);"score:";s$;mid$("          ",len(s$))
 9520 return
 9600 print"{home}";tab(28);"carrying";c;"{left} "
 9610 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}";:gosub60400:goto61000
 60400 cr$=chr$(13)
 60410 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1
 60420 ifpeek(50000)=0thenreturn
 60430 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60440 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 61000 dimj(15):poke59456,0:j$=" joystick"
 61005 restore:fori=0to15:j(i)=5:next
 61010 readp$:ifp$<>"&js&"then61010
 61015 readi,d,f,q,s,k:fort=i+8tod:readx:poket,x:next
 61016 ifqv=1thenpokef,176:pokeq,3:pokeq+1,2
 61020 print"{down}{down}using a";j$;"? ";:gosub60000:ifleft$(in$,1)<>"y"thens=k:goto61070
 61030 print:fori=0to5:readp$,p:gosub61100:t(i)=t:j(t)=p:nexti
 61033 fori=1to5:ift(i-1)<>t(i)then61040
 61035 nexti:print"{down}{rvon}is your";j$;" plugged in?":goto61005
 61040 fori=1to4:j(t(i)andt)=0:next:fori=1to2:forj=3to4:readp:j(t(i)andt(j))=p
 61060 next:next:forj=0to15:poked+1+j,j(j):next
 61070 poke1,s:poke2,2:clr:js=1:gosub60400:print"{clr}";:goto100
 61100 print"{down}hold";j$;" ";p$;" & press a key"
 61110 gett$:ift$=""then61110
 61120 t=peek(59471):t=int(t/16)andt:return
 61200 data&js&,651,748,706,703,147,164,173,79,232,74,74,74,74,45,79,232,168,185
 61210 data237,2,76,193,2,32,228,255,201,49,144,4,201,58,144,10,201,32,208,4,169
 61220 data48,208,2,169,53,56,233,48,162,255,142,151,0,162,94,168,185,217,2,149
 61230 data0,185,227,2,149,1,169,0,160,4,149,2,232,136,208,250,96,0,129,130,130
 61240 data131,131,131,131,132,132,0,0,0,64,0,32,64,96,0,16
 61250 datacentered,5,left,4,right,6,up,8,down,2,button down,0,7,1,9,3
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by larry phillips{down}
 62020 gosub60500
 62030 print"{down}caution: dangerous fumes!
 62080 print"{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=3:gosub60200
 62170 print"someone has dropped four different
 62180 print"{down}chemicals in a laboratory, and you must
 62200 print"{down}use a special scoop to pick them up.
 62220 print"{down}you control the scoop by either
 62230 print"{down}using the numeric pad, or a joystick.
 62250 print"{down}when you have picked up a chemical in
 62260 print"{down}your scoop, you may choose to take it
 62270 print"{down}to the corner marked with the same
 62280 print"{down}symbol, or you may pick up more of the
 62290 print"{down}same type of chemical before dumping
 62300 print"{down}your scoop.
 62305 gosub60200
 62350 print"{down}the more chemicals you pick up before
 62360 print"{down}dumping them in the corner, the better
 62370 print"{down}your score will be. you get{$a0}10 points
 62380 print"{down}for each one you pick up, plus{$a0}10% of
 62390 print"{down}the score you're carrying in your scoop.
 62395 gosub60200
 62420 print"if you are carrying a chemical and
 62430 print"{down}then pick up another type, they
 62440 print"{down}will interact, and you lose all of
 62450 print"{down}the chemicals in the scoop, as
 62460 print"{down}well as the one you just picked up.
 62470 print"{down}if you dump your scoop at the wrong
 62480 print"{down}corner, you will decrease your score
 62490 print"{down}by twice the amount you are carrying.
 62550 print"{down}you can resign by pressing {rvon}space{rvof} or
 62560 print"{down}the button on the joystick.
 62600 gosub60200
  100 rem pick-up (c) larry phillips:vancouver pet users group:vancouver, b.c.
  110 gosub60000
  120 td=val(a$)
  130 gosub190
  140 bd=160:p=32868:pokep,160:dr=1:m1$="6"
  150 poke32849,193:poke32886,211:poke33726,218:poke33689,216
  160 b=65:gosub240:b=83:gosub240:b=88:gosub240:b=90:gosub240
  170 gosub270:iftd<>0thengosub590
  180 goto170
  190 print"{clr}"tab(25)"speed is"td
  200 print"{home}{down} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rght}";
  210 fori=1to22:print"{left}{down}{CBM-G}";:next
  220 print"{home}{down}":fori=1to22:print"{CBM-M}{down}{left}";:next
  230 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:return
  240 fori=1to25
  250 r=int(rnd(1)*839+1):ifpeek(32888+r)=32thenc=0:poke32888+r,b:next:return
  260 goto250
  270 getm$:ifm$=""then370
  280 ifm$="!"thenrun
  290 ifm$="1"thendr=39
  300 ifm$="2"thendr=40
  310 ifm$="3"thendr=41
  320 ifm$="4"thendr=-1
  330 ifm$="6"thendr=1
  340 ifm$="7"thendr=-41
  350 ifm$="8"thendr=-40
  360 ifm$="9"thendr=-39
  370 ifpeek(p+dr)=32thenpokep,32:pokep+dr,bd:p=p+dr:return
  380 ifpeek(p+dr)=100anddr=-41thendr=39:return
  390 ifpeek(p+dr)=100anddr=-40thendr=40:return
  400 ifpeek(p+dr)=100anddr=-39thendr=41:return
  410 ifpeek(p+dr)=101anddr=-39thendr=-41:return
  420 ifpeek(p+dr)=101anddr=41thendr=39:return
  430 ifpeek(p+dr)=101anddr=1thendr=-1:return
  440 ifpeek(p+dr)=99anddr=39thendr=-41:return
  450 ifpeek(p+dr)=99anddr=40thendr=-40:return
  460 ifpeek(p+dr)=99anddr=41thendr=-39:return
  470 ifpeek(p+dr)=103anddr=39thendr=41:return
  480 ifpeek(p+dr)=103anddr=-1thendr=1:return
  490 ifpeek(p+dr)=103anddr=-41thendr=-39:return
  500 ifbd<>160then520
  510 ifpeek(p+dr)<91thenpokep,32:p=p+dr:bd=peek(p)or128:c=c+10:pokep,bd:return
  520 ifpeek(p+dr)+128=bdthenpokep,32:p=p+dr:pokep,bd:c=int(c+10+(c/10)):return
  530 ifpeek(p+dr)>128then550
  540 ifpeek(p+dr)+128<>bdthenbd=160:pokep,32:p=p+dr:pokep,bd:c=0:return
  550 ifpeek(p+dr)<>bdthen580
  560 pokep,160:s=s+c:gosub640:c=0
  570 bd=160:dr=-dr:goto370
  580 dr=-dr:s=s-2*c:bd=160:pokep,bd:c=0:gosub640:return
  590 t=ti
  600 iftd=<ti-tthenreturn
  610 goto600
  620 print"{clr}{down}{down}{down}{down}{down}set speed...  0-9"
  630 return
  640 print"{home}score        {left}{left}{left}{left}";s:return
 60000 print"{clr}{down}{down}{down}{down}{down}{down}":poke59500,14
 60010 print"welcome to pick-up.{down}"
 60020 print"dO YOU{$a0}NEED{$a0}INSTRUCTIONS?
 60030 geta$:ifa$="n"then60420
 60040 ifa$<>"y"then60030
 60050 print"{clr}"tab(14)"pick-up"
 60060 printtab(14)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{down}"
 60070 print"sOMEONE{$a0}HAS{$a0}DROPPED{$a0}FOUR{$a0}DIFFERENT{$a0}KINDS";
 60080 print"OF{$a0}CHEMICALS ALL{$a0}OVER{$a0}THE{$a0}FLOOR."
 60090 print"sINCE{$a0}THEY{$a0}ARE{$a0}VERY{$a0}DANGEROUS{$a0}TO{$a0}HANDLE"
 60100 print"YOU{$a0}MUST{$a0}USE{$a0}A{$a0}SPECIAL{$a0}SCOOP{$a0}TO{$a0}PICK"
 60110 print"THEM{$a0}UP.{down}"
 60120 print"yOU{$a0}CONTROL{$a0}THE{$a0}DIRECTION{$a0}OF{$a0}THE{$a0}SCOOP"
 60130 print"BY{$a0}USING{$a0}THE{$a0}NUMBERS{$a0}AROUND THE{$a0}'5'."
 60140 print"'2' TO{$a0}MOVE{$a0}DOWN, '6' FOR{$a0}RIGHT,ETC.{down}"
 60150 print"wHEN{$a0}YOU{$a0}HAVE{$a0}PICKED{$a0}UP{$a0}A{$a0}CHEMICAL{$a0}IN{$a0}"
 60160 print"YOUR{$a0}SCOOP, YOU{$a0}MAY{$a0}CHOOSE{$a0}TO{$a0}TAKE IT"
 60170 print"TO{$a0}THE{$a0}CORNER{$a0}MARKED{$a0}WITH{$a0}THE{$a0}SAME{$a0}"
 60180 print"SYMBOL, OR{$a0}YOU{$a0}MAY{$a0}PICK{$a0}UP{$a0}MORE{$a0}OF{$a0}THE"
 60190 print"SAME{$a0}TYPE{$a0}OF{$a0}CHEMICAL BEFORE{$a0}DUMPING"
 60200 print"YOUR{$a0}SCOOP."
 60210 print"{down}press any key to continue.
 60220 geta$:ifa$=""then60220
 60230 print"{clr}"tab(14)"bonuses"
 60240 printtab(14)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}"
 60250 print"tHE{$a0}MORE{$a0}CHEMICALS{$a0}YOU{$a0}PICK{$a0}UP{$a0}BEFORE"
 60260 print"DUMPING{$a0}THEM{$a0}IN{$a0}THE{$a0}CORNER, THE{$a0}BETTER"
 60270 print"YOUR{$a0}SCORE{$a0}WILL{$a0}BE. yOU{$a0}GET{$a0}10 POINTS"
 60280 print"FOR{$a0}EACH{$a0}ONE{$a0}YOU{$a0}PICK{$a0}UP, PLUS{$a0}10% OF"
 60290 print"THE{$a0}SCORE{$a0}YOU'RE{$a0}CARRYING{$a0}IN{$a0}YOUR{$a0}SCOOP."
 60300 print"{down}"tab(14)"hazards"
 60310 printtab(14)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 60320 print"{down}nOW{$a0}COMES{$a0}THE{$a0}TOUGH{$a0}PART. iF{$a0}YOU{$a0}PICK"
 60330 print"UP{$a0}A{$a0}CHEMICAL, AND{$a0}THEN{$a0}PICK{$a0}UP{$a0}ANOTHER"
 60340 print"TYPE, THEY{$a0}WILL{$a0}INTERACT, AND{$a0}YOU{$a0}WILL"
 60350 print"LOSE{$a0}ALL{$a0}THE{$a0}CHEMICALS{$a0}IN{$a0}THE{$a0}SCOOP, AS"
 60360 print"WELL{$a0}AS{$a0}THE{$a0}ONE{$a0}YOU{$a0}JUST{$a0}PICKED{$a0}UP.{down}"
 60370 print"iF{$a0}YOU DUMP{$a0}YOUR{$a0}SCOOP{$a0}AT{$a0}THE{$a0}WRONG"
 60380 print"CORNER, YOU{$a0}WILL DECREASE{$a0}YOUR{$a0}SCORE"
 60390 print"BY{$a0}TWICE{$a0}THE{$a0}AMOUNT{$a0}YOU{$a0}ARE{$a0}CARRYING."
 60400 print"{down}press any key to continue.
 60410 geta$:ifa$=""then60410
 60420 print"{clr}{down}{down}enter number to set speed.{down}"
 60430 print"     9...vERY{$a0}SLOW{$a0}
 60440 print"     8...
 60450 print"     7...
 60460 print"     6...
 60470 print"     5...mEDIUM
 60480 print"     4...
 60490 print"     3...
 60500 print"     2...
 60510 print"     1...vERY FAST
 60520 print"     0...fORGET{$a0}IT !
 60530 geta$:ifa$=""then60530
 60540 poke59500,12:return
    5 print"{clr}{home}"
   10 printtab(10)"picture kingdom"
   15 forg=1to1000:nextg
   20 t1=peek(59464):fori=0tot1:r=rnd(1):nexti
   25 deffnr(z1)=int(int(z1)*rnd(1))
   30 deffnl(z2)=fnr(100)-z2
  100 y=0:l0=1e6:l1=5:n0=fnr(70)+70:l2=fnr(300)+300:n1=fnr(3000)+3000:l3=0:n2=0
  125 print"{clr}{home}":goto3200
  215 input"{down}to buy";b
  225 b=int(b):ifb<0goto2015
  230 ifb=0goto270
  240 a=n1-b*l1
  245 ifa>=0goto260
  250 print"{clr}you have ";n1;"bushels!":goto215
  260 n1=a:l2=l2+b
  265 ifb>0goto330
  270 input"to sell";c
  280 c=int(c):ifc<0goto2015
  290 ifc=0goto335
  295 a=l2-c:ifa>=0goto315
  305 print"{clr}you own";l2;"acres!":goto270
  315 l2=a:n1=n1+c*l1:if(b+c)=0goto350
  330 print"{clr}results: land";l2;"acres":print:print"grain";n1;"bushels"
  335 if(l2+n1-l0)>=0goto2010
  340 ifn1=0goto490
  345 print
  350 input"how much food needed";n2
  360 n2=int(n2):ifn2<0goto2015
  370 a=n1-n2:ifa>=0goto390
  380 print"{clr}you stored";n1;"bushels!":goto350
  390 n1=a:ifn1=0goto490
  400 input"acres to plant";l3
  410 l3=int(l3):ifl3<0goto2015
  420 ifl3=0goto500
  425 if(l2-l3)>=0goto440
  430 goto400
  440 if(2*n0-l3)>=0goto455
  445 print"{clr}you have";n0;"people!":goto400
  455 a=n1-3*l3:ifa>=0goto475
  465 goto400
  475 n1=a:ifn1>0goto500
  490 print"{clr}your bushels are gone..good luck!":gosub3000
  500 y=y+1
  505 n3=fnr(n0/3+3)
  510 n4=fnr(n0/4+2)
  515 n5=n0-int(n2/10)
  520 ifn5>0goto560
  525 ifn5=0goto590
  535 a=fnr(3-n5/2)
  540 print"{clr}*food surplus*":gosub3525
  545 n5=0:n3=n3+a:goto590
  560 if(fnl(5*(n5-2)))>0goto590
  565 a=fnr((n5*n1)/(2*n0))
  575 print"{clr}*food riots*";a;"bushels lost":gosub3000
  580 n1=n1-a
  590 iffnl(10)>0goto620
  595 a=int(n0/3)+fnr(n0/2+2)
  605 gosub3585
  610 n4=n4+a
  620 iffnl(10)>0goto670
  625 a=fnr(n0/5)+int(n0/5):b=fnr(n1/20)+int(n1/20):c=fnr(l2/50)
  645 print"{clr}*huns attack*":gosub3300
  655 n4=n4+a:n1=n1-b:l2=l2-c
  670 iffnl(15)>0goto705
  675 a=fnr(20)+10:b=fnr(n0+250)+50
  690 print"{clr}*border expansion*"
  693 gosub3525
  695 n3=n3+a:l2=l2+b
  705 n0=n0+n3-n4-n5
  710 ifn0<=0goto2015
  715 print"{clr}vital statistics:"
  720 print"births & immigration";n3
  725 print"starved to death";n5
  730 print"died naturally";n4
  732 print"{down}census change:";n3-n5-n4
  733 gosub3000
  735 iffnl(10)>0goto760
  740 a=fnr(n1/20)+int(n1/20)
  750 print"{clr}*theft*",a;"bushels stolen":gosub3000
  755 n1=n1-a
  760 iffnl(10)>0goto785
  765 a=fnr(l2/10)+int(l2/20)
  775 gosub3499
  780 l2=l2-a
  785 iffnl(15)>0goto810
  790 a=fnr(100+int(l2/100)*5)+600
  800 gosub3560
  805 n1=n1+a
  810 iffnl(15)>0goto835
  815 l1=fnr(2)+1
  825 print"{clr}*drought*":gosub5000
  830 goto860
  835 iffnl(15)>0goto855
  840 l1=fnr(3)+7
  850 print"{clr}*rain*":gosub4000
  853 goto860
  855 l1=fnr(4)+3
  860 a=l1*l3:b=fnr(a/2):c=a-b
  885 ifa=0goto910
  890 print"{clr}the harvest was";l1;"bushels/acre"
  891 print"a total of",a;"bushels"
  895 print"lost to rats",b;"bushels"
  896 print"net harvest was",c;"bushels"
  898 gosub3000
  900 n1=n1+c:goto3200
  910 print"{clr}the harvest was";l1;"bushels/acre"
  913 print"a total of",a;"bushels."
  915 gosub3000
 1000 goto900
 2010 print"{clr}congratulations!! you now rule the world":goto2050
 2015 print"{clr}*disaster*:the population went zip!"
 2050 print"{down}your reign lasted",y;"years."
 2500 end
 3000 forh=1to3000:nexth:return
 3200 ify=0thenprint"{rght}in the beginning of your reign:":goto3203
 3201 print"{clr}{rght}report for year";y
 3203 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 3204 print"{down}{rght}population",n0
 3205 print"{rght}acres      ",l2
 3206 print"{rght}bushels    ",n1
 3210 print:printl1;"bushels per acre."
 3211 goto215
 3300 print"{down}{down}before and after the huns attacked
 3301 print"{down}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 3302 print"{CBM-G}  before      {CBM-M}     after       {CBM-M}"
 3303 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 3304 print"{CBM-G}..............{CBM-M} . . . . ..   . .{CBM-M}"
 3305 print"{CBM-G}~~~~~~~~~~~~~~{CBM-M}{$a0}~ ~{$a0}~ ~{$a0}~~{$a0} {$a0}~{$a0}~{CBM-M}"
 3306 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 3307 print"{CBM-G}**************{CBM-M}{$a0} * * * * * **  *{CBM-M}"
 3308 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 3309 print"{CBM-G}XXXXXXXXXXXXXX{CBM-M}{$a0}X{$a0}X{$a0}X{$a0}XXX{$a0}XX{$a0}XX{$a0}{CBM-M}"
 3310 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 3311 print:printa;"people killed":print,,b;"bushels lost"
 3312 print,,c"acres destroyed":forwe=1to6000:nextwe:return
 3499 print"{clr}{home}"
 3500 print" O  NM OP PO{$a0}{CBM-G}{CBM-M}  OP {CBM-G}{CBM-M}{$a0}NM{$a0}{CBM-G}N{$a0}O"
 3501 print" {SHIFT-*}  {SHIFT-*}{SHIFT-*}{$a0}{SHIFT-*}{SHIFT-*} {CBM-M}{CBM-G} {SHIFT-*}{SHIFT-*} {$a0}{CBM-G}{CBM-M}{$a0}{CBM-G}{CBM-M}{$a0}{SHIFT-*}{SHIFT-*}{$a0}N{$a0}{$a0}{SHIFT-*}"
 3502 print" L{$a0}{$a0}{CBM-G}{CBM-M}{CBM-M}M{$a0}{$a0}{CBM-M}{CBM-G}{$a0}{CBM-G}{CBM-M}{$a0}{$a0}{CBM-G}M{$a0}L{SHIFT-@}{$a0}{CBM-G}{CBM-M}{CBM-M}M{$a0}{$a0}L"
 3504 print"{down}"
 3505 print"{CBM-F}{CBM-F}{CBM-F}    {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT-*}{SHIFT-*}  CCCCCC{$a0}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-M}"
 3506 print"{CBM-+}{SHIFT-POUND}  {SHIFT-*}{SHIFT-*}{SHIFT-*}    CCCC  {CBM-@}{CBM-@}{CBM-@}  {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}  EEEEEEE{CBM-M}"
 3507 print"{CBM-+}    {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$a0}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{$a0}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} EEEEE FFFFF{CBM-M}"
 3508 print"{CBM--} N CCCC {CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{$a0}{$a0}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-M}"
 3509 print"{CBM--}N {CBM-T}{CBM-T}{CBM-T}    RRR{$a0}EE      {SHIFT-*}{SHIFT-*}{SHIFT-*}  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}    {CBM-M}"
 3510 print"N   {CBM-@}{CBM-@}{CBM-@}XXXXXXXX{CBM-@}IX{$a0}XU{CBM-@}{CBM-@}XXXXXXXXX{CBM-@}XXX{SHIFT-@}"
 3511 print"{CBM--}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-G}         N {$a0}NN{$a0} N              {CBM-M}"
 3512 print"{CBM-G}             M UI{CBM-M}B M              {CBM-M}"
 3513 print"{CBM-G}             N JKUI N              {CBM-M}"
 3514 print"{CBM-G}            N UI{$a0}JKN               {CBM-M}"
 3515 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N  JKUIN{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 3516 printtab(8)a;"acres destroyed!!"
 3517 fort=1to2500:nextt:return
 3525 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 3526 print"{CBM-G}        population increase        {CBM-M}"
 3527 print"{CBM-G}{CBM-F}{CBM-F}{CBM-F}             {CBM-F}{CBM-F}{CBM-F}                {CBM-M}"
 3528 print"{CBM-G}{CBM-*}{CBM-+}{SHIFT-POUND}{CBM-F}{CBM-D} {CBM-F}{CBM-D}{$a0}{CBM-F}{CBM-D}{$a0}{CBM-F}{CBM-D}{$a0}{CBM-F}{CBM-*}{CBM-+}{SHIFT-POUND}                {CBM-M}"
 3529 print"{CBM-G} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 {CBM-M}"
 3530 print"{CBM-G}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 {CBM-M}"
 3531 print"{CBM-G} {CBM-+}{CBM-+}{CBM-+}{CBM-+}W{CBM-+}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{CBM-+}W{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 {CBM-M}"
 3532 print"{CBM-G} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 {CBM-M}"
 3533 print"{CBM-G}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                 {CBM-M}"
 3534 print"{CBM-G}{$a0}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}J{CBM-I}{CBM-I}{CBM-I}K{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {SHIFT--}               {CBM-M}"
 3535 print"{CBM-G}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K               {CBM-M}"
 3536 print"{CBM-G}        {CBM-+}{CBM-+}{CBM-+}                        {CBM-M}"
 3537 print"{CBM-G}        {CBM-U}{CBM-U}{CBM-U}                        {CBM-M}"
 3538 print"{CBM-G}       {CBM-M} .{CBM-M} .. . .. ...   ... ...  {CBM-M}"
 3539 print"{CBM-G}       {CBM-M} ~  ~~ ~ ~~ ~~~   ~~~ ~~~  {CBM-M}"
 3540 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 3541 print"{rght}{rght}{rght}{rght}you gained";a;"people;";b;"acres.
 3545 form=1to2500:nextm:return
 3560 print"{clr}{CBM-D}{CBM-D}{CBM-D}                                 {CBM-M}"
 3561 print"{CBM-*}{CBM-+}{SHIFT-POUND}                                 {CBM-M}"
 3562 print"{CBM-+}{CBM-+}                                  {CBM-M}"
 3563 print"{CBM-+}{CBM-+}                                  {CBM-M}"
 3564 print"{CBM-+}{CBM-+}                                  {CBM-M}"
 3565 print"{CBM-+}{CBM-+}                                  {CBM-M}"
 3566 print"{CBM-+}{CBM-+}M           . N*****   . N*****   {CBM-M}"
 3567 print"{CBM-+}{CBM-+}{CBM-@}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}~{CBM-@}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{CBM-@}{CBM-@}~{CBM-@}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{CBM-@}{CBM-@}{SHIFT-@}"
 3568 print"{CBM-+}{CBM-+} {CBM-T}P                               {CBM-M}"
 3569 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 3570 print"**grain shipment arrives** ";a;"bushels
 3575 fors=1to2500:nexts:return
 3585 print"{clr}{home}"
 3586 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 3587 print"{CBM-G}     O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P         {CBM-M}"
 3588 print"{CBM-G}     {CBM-G}in memory{CBM-M}         {CBM-M}"
 3589 print"{CBM-G}     {CBM-G} of the  {CBM-M}         {CBM-M}"
 3590 print"{CBM-G}     {CBM-G}  ";a;"   {CBM-M}         {CBM-M}"
 3591 print"{CBM-G}     {CBM-G}who died {CBM-M}         {CBM-M}"
 3592 print"{CBM-G}     {CBM-G} of the  {CBM-M}         {CBM-M}"
 3593 print"{CBM-G}     {CBM-G} plague  {CBM-M}         {CBM-M}"
 3594 print"XXXXX L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} XXXXX   {CBM-M}"
 3595 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 3596 forq=1to2500:nextq:return
 4000 u=y+7*5/5-7:print"{down}{down}{down}{down}{down}";u;"days of rain."
 4001 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 4002 print"{CBM-G}. {CBM-D}{CBM-D}{CBM-D}{CBM-D}{$a0}.  .  .  .. .{CBM-D}{CBM-D}{CBM-D}{CBM-D} . .{CBM-M}"
 4003 print"{CBM-G}.  {CBM-*}{CBM-+}{SHIFT-POUND}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{CBM-D}{$a0}{CBM-*}{CBM-+}{SHIFT-POUND}. . {CBM-M}"
 4004 print"{CBM-G}... {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} ....{CBM-M}"
 4005 print"{CBM-G}... {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}W{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}. . {CBM-M}"
 4006 print"{CBM-G}.. .{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} ... {CBM-M}"
 4007 print"{CBM-G}.. .{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}U{SHIFT-*}{SHIFT-*}{SHIFT-*}I{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} ....{CBM-M}"
 4008 print"{CBM-G}....{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}. . .{CBM-M}"
 4009 print"{CBM-G} U{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-*}{SHIFT-*}I..{CBM-M}"
 4010 print"{CBM-G}.{SHIFT--}. {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}J{SHIFT-*}{SHIFT-*}{SHIFT-*}K{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}. {SHIFT--} .{CBM-M}"
 4011 print"{CBM-G} J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-+}{CBM-+}{CBM-+}{CBM--}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K..{CBM-M}"
 4012 print"{CBM-G}. .  . . .. .{CBM-+}{CBM-+}{CBM-+}{CBM--}.... . . ..{CBM-M}"
 4013 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 4014 fork=1to2500:nextk:return
 5000 v=y+10*7/7-7
 5001 printv;"weeks of no water and the river is    dry like the moat!!"
 5002 print"{down}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
 5003 print"{CBM-G}{CBM-F}{CBM-F}{CBM-F}                         {CBM-M}"
 5004 print"{CBM-POUND}{CBM-+}{SHIFT-POUND}                          {CBM-M}"
 5005 print"{CBM-+}{CBM-+}                           {CBM-M}"
 5006 print"{CBM-+}{CBM-+}                           {CBM-M}"
 5007 print"{CBM-+}{CBM-+}                           {CBM-M}"
 5008 print"{CBM-+}{CBM--}M                          {CBM-M}"
 5009 print"{CBM-+}{CBM--}{CBM-@}M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}X{CBM-@}{CBM-@}X{CBM-@}{CBM-@}XX{CBM-@}{$a0}{$a0}{$a0}{CBM-@}{CBM-@}XX{CBM-@}{CBM-@}{CBM-@}XX"
 5010 print"{CBM-+}{CBM--}{CBM-T}{CBM-T}{$a0}{CBM-M}            M{CBM-@}N        {CBM-M}"
 5011 print"{CBM-+}{CBM-+}   {CBM-M}                       {CBM-M}"
 5012 print"{CBM-+}{CBM-+}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
 5013 forabc=1to2500:nextabc
 5015 return
    0 clr:poke59468,12
    1 rem piegram copyright (c) 1979 glen fisher
    3 rem based on an idea by sheila dolgowich
    4 :
    5 rem cursor #12, july, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of sep 25 1979
   90 pg$="piegram":nm$="12":gosub62000
  100 dimb%(10,10),hs(4,3),cs(4,3)
  120 fori=1to9:readrc(i),cc(i):next
  130 data1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
  160 bl$="{rvof}                                       "
  200 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  500 fori=0to4:forj=0to3:hs(i,j)=0:cs(i,j)=0:nextj,i:hs=0:cs=0
  510 fori=1to10:forj=1to10:b%(i,j)=0:nextj,i
  600 gosub9000:hr=0:hc=0:r=5:c=5
  620 print"{home}where are you?":gosub9100:ifc$=" "then620
  630 hr=r:hc=c:gosub9300:gosub9400:printrv$;sy$
  650 pr=int(rnd(1)*10)+1:pc=int(rnd(1)*10)+1
 1000 print"{home}";bl$:print"{home}{rvon}m{rvof}ove or {rvon}t{rvof}hrow? ";:gosub60000
 1010 ifin$=""then1000
 1020 in$=left$(in$,1):ifin$<>"m"andin$<>"t"then1000
 1030 t$="mov":ifin$="t"thent$="throw"
 1040 print"{home}";bl$:print"{home}where are you ";t$;"ing to?"
 1050 r=5:c=5:ifin$="m"thenr=hr:c=hc
 1060 sb=b%(hr,hc):b%(hr,hc)=2:gosub9100:b%(hr,hc)=sb:ifc$=" "then1000
 1070 ifin$="t"then1200
 1100 ifabs(r-hr)>1orabs(c-hc)>1then1050
 1110 ifb%(r,c)<>0then1050
 1120 sr=hr:sc=hc:hr=r:hc=c:r=sr:c=sc:gosub9400:gosub9300:printrv$;sy$
 1130 r=hr:c=hc:gosub9400:gosub9300:printrv$;sy$
 1140 fori=0to2:cs(i,3)=cs(i,3)+5:nexti
 1150 goto2000
 1200 ifb%(r,c)<>0then1050
 1210 ifr=hrandc=hcthen1050
 1400 hs(3,0)=r:hs(3,1)=c:hs(3,2)=int(100*sqr((r-pr)^2+(c-pc)^2))/100
 1410 fori=0to3:i1=i+1
 1420 r=hs(i,0):c=hs(i,1):ifr>0thenb%(r,c)=b%(r,c)+1:gosub9300:gosub9400:printsy$
 1430 :forj=0to3:hs(i,j)=hs(i1,j):nextj
 1440 nexti:print"{home}{down}"
 1450 fori=2to0step-1
 1460 ifhs(i,0)>0thenprint3-i;hs(i,2);"{left}    "
 1470 nexti
 1480 ifhs(2,2)=0then3000
 1490 hs=hs+1:goto2000
 2000 print"{home}";bl$:printdn$;"       "
 2010 r=pr-hs(2,0):c=pc-hs(2,1):d=r*r+c*c
 2020 ifd<=2then2100
 2030 ifrnd(1)>d/100then2500
 2100 r=int(rnd(1)*10)+1:c=int(rnd(1)*10)+1
 2120 r=pr+sgn(r-pr):c=pc+sgn(c-pc)
 2130 ifb%(r,c)<>0then2100
 2135 pc=c:pr=r
 2140 printdn$;"i moved"
 2150 goto1000
 2500 ifcs>2then2600
 2510 r=int(rnd(1)*10)+1:c=int(rnd(1)*10)+1
 2520 ifb%(r,c)<>0then2510
 2530 ifr=prandc=pcthen2510
 2540 goto2900
 2600 mr=0:mc=0:ms=-1
 2610 fori=1to10:forj=1to10:s=0
 2620 ifb%(i,j)<>0then2850
 2630 r=i:c=j:gosub9300:print"{rvon}?{rvof}{left}";
 2640 fork=0to2:r=cs(k,0):c=cs(k,1):d=cs(k,2):w=cs(k,3):l=d-w:h=d+w
 2650 i0=i-r:j0=j-c:t=i0*i0+j0*j0
 2660 ifl<=tandt<=hthens=s+1
 2670 nextk
 2700 ifs>msthenmr=i:mc=j:ms=s
 2800 r=i:c=j:gosub9400:printrv$;sy$
 2850 nextj,i
 2860 r=mr:c=mc
 2900 cs(3,0)=r:cs(3,1)=c:cs(3,2)=(r-hr)^2+(c-hc)^2:cs(3,3)=0
 2910 fori=0to3:i1=i+1:r=cs(i,0):c=cs(i,1)
 2920 ifr>0thenb%(r,c)=b%(r,c)-1:gosub9300:gosub9400:printrv$;sy$
 2930 forj=0to3:cs(i,j)=cs(i1,j):nextj
 2940 nexti:printdn$;"i threw":print"{rvon}          "
 2950 fori=2to0step-1
 2960 ifcs(i,0)>0thenprint"{rvon}";3-i;"{left}        {left}{left}{left}{left}{left}{left}{left}";int(100*sqr(cs(i,2)))/100
 2970 nexti:print"{rvon}          "
 2980 ifcs(2,2)=0then3000
 2990 cs=cs+1:goto1000
 3000 w$="you":l$="me":sh=0:ifb%(r,c)<0thenw$="i":l$="you":sh=1
 3010 print"{home}";bl$:print"{home}";w$;" got ";l$;"."
 3020 gosub9300:fori=1to100:printmid$("{rvon}{rvof}",(1andi)+1,1);"*{left}";:forj=1to10:nextj,i
 3030 ifshthenr=pr:c=pc:gosub9300:print"{rvon}V":printdn$;"{rvon}V{rvof} = me "
 3100 print"{home}";bl$:print"{home}want to play again? ";:gosub60000
 3110 ifleft$(in$,1)<>"n"then500
 3120 print"{clr}{down}{down}{down}":end
 9000 r$="{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}":s$="{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}"
 9010 bp=18
 9050 print"{clr}{down}":printtab(bp);"{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}":printtab(bp);s$
 9060 fori=1to9:printtab(bp);r$:printtab(bp);s$:nexti
 9070 printtab(bp);"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}"
 9080 return
 9100 sw=1:tm=0
 9110 print"{home}{down}{down}":printtab(bp+1);
 9140 gosub9300:gosub9400:goto9170
 9150 getc$:ifc$<>""then9200
 9160 ifti<tmthen9150
 9170 printmid$("{rvon}{rvof}",sw,1);sy$;"{left}";:tm=ti+15:sw=3-sw:goto9150
 9200 printrv$;sy$;"{left}";:ifc$=cr$orc$=" "thenreturn
 9210 ifc$<"1"orc$>"9"then9150
 9220 t=val(c$):r=r+rc(t):c=c+cc(t)
 9230 ifr<1thenr=10
 9240 ifr>10thenr=1
 9250 ifc<1thenc=10
 9260 ifc>10thenc=1
 9270 sw=1:tm=0:goto9140
 9300 print"{home}":pokeql,2+2*r:print"{up}";tab(bp+2*c-1);:return
 9400 sy$=mid$(" 123*",1+abs(b%(r,c)),1)
 9410 ifr=hrandc=hcthensy$="V"
 9420 rv$=mid$("{rvon}{rvof}{rvof}",2+sgn(b%(r,c)),1)
 9430 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>20then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979  page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by glen fisher{down}
 62015 print"      program idea:  shelia dolgowich
 62020 gosub60500
 62030 print"{down}a pie-throwing contest
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=4:gosub60200
 62110 print"you and the pet are about to indulge in
 62120 print"{down}that great old american pastime of pie-
 62130 print"{down}throwing. as might be expected, there
 62140 print"{down}are only enough rules to prevent injury
 62142 print"{down}(what few there are, are required by the
 62144 print"occupational safety and health admin-
 62146 print"{down}istration.)
 62148 gosub60200
 62150 print"you and the pet take turns. each turn,
 62160 print"{down}you may either move (to avoid a thrown
 62170 print"{down}pie) or throw a pie yourself. you can
 62180 print"{down}throw a pie into any empty square you
 62190 print"{down}want to.             {up}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}
 62220 print"{down}{down}you can move only one square (to avoid
 62230 print"{down}slipping on pie filling) and you can't
 62240 print"{down}move into a square with a pie in it (the
 62250 print"floor is slick there).
 62260 gosub60200
 62270 print"each time you are asked where you want
 62280 print"{down}to move or throw to, a blinking square
 62290 print"{down}will appear on the board. you move the
 62300 print"{down}square to where you want to move/throw
 62310 print"{down}to, and hit {rvon}return{rvof}. if the choice is
 62320 print"{down}improper, the square will reappear, and
 62330 print"{down}you'll have to go somewhere else.
 62340 gosub60200
 62350 print"to move the square, use the numeric pad.
 62360 print"as usual, {rvon}8{rvof} is up, {rvon}4{rvof} is left,    7 8 9
 62365 printtab(34);"M{SHIFT--}N
 62370 print"{rvon}1{rvof} is down and left, and so on.   4{SHIFT-*}{rvon} {rvof}{SHIFT-*}6
 62375 printtab(34);"N{SHIFT--}M
 62380 print"pressing the {rvon}space{rvof} key will      1 2 3
 62390 print"{down}return you to the '{rvon}m{rvof}ove or {rvon}t{rvof}hrow'
 62400 print"{down}question.
 62410 gosub60200
    1 rem *** pinball
    2 rem     bruce jaeger
    3 rem
    4 rem *** pet user group
    5 rem     software exchange
    6 rem     po box 371
    7 rem     montgomeryville, pa 18936
    8 rem
  150 rem hackers, have a ball!!!
  160 rem (if you can decipher this mess!)
  170 rem ***uses 'conventional' sound***
  180 print"{clr}{rvon}***   pinball   ***"
  190 print"{down}{down}use '=' key to activate flippers"
  200 print"{down}press any key (except {rvon}stop{rvof}) to put"
  210 print"a new ball in play"
  220 print"{down}{down}hitting all the  A{$a0}S{$a0}Z{$a0}X{$a0} with"
  230 print"one ball gets you a free ball."
  240 print"{down}{down}watch that you don't hit any wrong"
  250 print"keys, and watch that you don't abuse"
  260 print"the '=' key, or you'll tilt the machine!"
  270 print"{down}{down}if you have sound, turn it on."
  280 print"{down}{down}{down}press {rvon}space{rvof} to begin":wait59410,4,4
  290 poke59409,52
  300 b=5
  310 d(1)=-1:d(2)=-41:d(3)=-40:d(4)=-39:d(5)=1:d(6)=41:d(7)=40:d(8)=39
  320 goto610
  330 print"{clr}      {rvon}***{rvof}              {rvon}***{rvof}   balls left"
  340 print"{rght}{rght}{rght}{rght}{rght}{CBM-D}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-F}"
  350 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}NN      MWN JK    M{$a0}{CBM-J}"
  360 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}N    W             M{CBM-J}"
  370 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}  W    W     W      {CBM-J}"
  380 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}                 U{CBM-L} {CBM-J}"
  390 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}I                J{CBM-L} {CBM-J}"
  400 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}K                 {CBM-L} {CBM-J}"
  410 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}      WWWWWWW     {CBM-L} {CBM-J}"
  420 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}      {SHIFT--}AS ZX{SHIFT--}    W{CBM-L} {CBM-J}"
  430 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}      W     W     {CBM-L} {CBM-J}"
  440 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}I                 {CBM-L} {CBM-J}"
  450 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}K                 {CBM-L} {CBM-J}"
  460 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}   W           W  {CBM-L} {CBM-J}"
  470 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}         *       U{CBM-L} {CBM-J}"
  480 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}                 M{CBM-L} {CBM-J}"
  490 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}M                N{CBM-L} {CBM-J}"
  500 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}P                O{rvon} {rvof} {CBM-J}"
  510 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}MP            OOON{CBM-L} {CBM-J}"
  520 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}{CBM-U}{CBM-U}P  OP     O{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-L} {CBM-J}"
  530 print"{rght}{rght}{rght}  {CBM-L}{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-L}     {CBM-J}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-L} {CBM-J}"
  540 print"{rght}{rght}{rght}{rght}{rght}{CBM-L}{$a0}{$a0}{$a0}M{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM--}Q{CBM-J}"
  550 print"{rght}{rght}{rght}{rght}{rght}{CBM-C}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}Z{CBM-V}"
  560 poke59409,60
  570 return
  580 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s
  590 return
  600 goto600
  610 rem start of game***********
  620 gosub 330:rem draw table
  630 gosub 580:rem print score
  640 ifb=0then1950:rem game over
  650 gosub 1750:rem new ball
  660 rem begin movement
  670 ifpeek(151)=1thengosub2290
  680 f=peek(p+dir):iff=32then2210:rem move
  690 rem erase flippers
  700 if erase=1thenpoke33541,32:poke33545,32:poke33542,32:poke33544,32
  710 iff<>77then810:rem left diagonal
  720 gosub2460:rem 'beep'
  730 ifn=1thenn=3:goto2210
  740 ifn=2thenn=6:goto2210
  750 ifn=3thenn=1:goto2210
  760 ifn=4thenn=8:goto2210
  770 ifn=5thenn=7:goto2210
  780 ifn=6thenn=2:goto2210
  790 ifn=7thenn=5:goto2210
  800 ifn=8thenn=4:goto2210
  810 rem right diagonal
  820 iff<>78then920
  830 gosub2460:rem 'beep'
  840 ifn=1thenn=7:goto2210
  850 ifn=2thenn=6:goto2210
  860 ifn=3thenn=5:goto2210
  870 ifn=4thenn=8:goto2210
  880 ifn=5thenn=3:goto2210
  890 ifn=6thenn=2:goto2210
  900 ifn=7thenn=1:goto2210
  910 ifn=8thenn=4:goto2210
  920 rem horizontal
  930 iff=120then960
  940 iff=121then960
  950 iff<>64then1050
  960 gosub2460:rem 'beep'
  970 ifn=1thenn=5:goto2210
  980 ifn=2thenn=8:goto2210
  990 ifn=3thenn=7:goto2210
 1000 ifn=4thenn=6:goto2210
 1010 ifn=5thenn=1:goto2210
 1020 ifn=6thenn=4:goto2210
 1030 ifn=7thenn=3:goto2210
 1040 ifn=8thenn=2:goto2210
 1050 rem vertical
 1060 iff=117then1090
 1070 iff=118then1090
 1080 iff<>93then1180
 1090 gosub2460:rem 'beep'
 1100 ifn=1thenn=5:goto2210
 1110 ifn=2thenn=4:goto2210
 1120 ifn=3thenn=7:goto2210
 1130 ifn=4thenn=2:goto2210
 1140 ifn=5thenn=1:goto2210
 1150 ifn=6thenn=8:goto2210
 1160 ifn=7thenn=3:goto2210
 1170 ifn=8thenn=6:goto2210
 1180 rem shift o,p (79,80)
 1190 iff=79then1210
 1200 iff<>80then1230
 1210 g=int(rnd(1)*3)+2
 1220 n=g:gosub2460:goto2210
 1230 rem 102 (shift &) 'ball drain'
 1240 iff<>102then1290
 1250 poke33541,32:poke33542,32:poke33544,32:poke33545,32
 1260 pokep,32:gosub2480:rem 'beeoouup!'
 1270 s=s+1000:gosub580
 1280 b=b-1:goto640
 1290 rem point bounces, 87
 1300 iff<>87then1360
 1310 m=120:  gosub2570
 1320 s=s+100:gosub580
 1330 g=int(rnd(1)*3)+3:n=n+g
 1340 ifn>8thenn=n-8
 1350 goto2210
 1360 rem corner bumpers 74,75,76,85
 1370 iff=74then1410
 1380 iff=75then1410
 1390 iff=76then1410
 1400 iff<>85then1460
 1410 m=55:gosub2570:rem 'plink'
 1420 s=s+50:gosub580
 1430 g=int(rnd(1)*3)+3:n=n+g
 1440 ifn>8thenn=n-8
 1450 goto2210
 1460 rem card suits 65,83,88,90
 1470 rem get all 4 on 1 ball
 1480 rem to light special
 1490 rem and get extra ball
 1500 iff=65thena$=a$+"A":goto1550
 1510 iff=83thena$=a$+"S":goto1550
 1520 iff=88thena$=a$+"X":goto1550
 1530 iff=90thena$=a$+"Z":goto1550
 1540 goto1610
 1550 s=s+500:gosub580
 1560 print"{home}";a$
 1570 m=55:gosub2570:m=100:gosub2570:rem sound
 1580 sp=sp+1:ifsp=4thenb=b+1:gosub2140:gosub2110
 1590 pokep+dir,32
 1600 n=7
 1610 rem mystery direction gizmo *
 1620 iff<>42then1730
 1630 rem p4=location *
 1640 p4=p+dir
 1650 pokep,32:rem erase ball
 1660 pokep4,170:m=50:gosub2570
 1670 pokep4,42:m=60:gosub2570
 1680 pokep4,170:m=70:gosub2570
 1690 pokep4,42:m=80:gosub2570
 1700 n=int(rnd(1)*8)+1
 1710 s=s+250:gosub580
 1720 goto2210
 1730 n=n+1:ifn>8thenn=n-8
 1740 goto 2210
 1750 rem new ball
 1760 print"{home}    "
 1770 print"    ":sp=0
 1780 print"    "
 1790 p=33633:pokep,81
 1800 a$=""
 1810 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}";b
 1820 print"{home}";
 1830 gosub2090
 1840 gosub2110
 1850 getb$:ifb$=""then1850
 1860 n=3:dir=d(n):poke33673,32:poke33713,90
 1870 fort1=1to250:nextt1
 1880 poke33713,32:poke33753,90
 1890 fort1=1to500:nextt1
 1900 poke33753,32:poke33713,90
 1910 poke33713,32:poke33673,90
 1920 m=200:gosub2460
 1930 pokep,32
 1940 return
 1950 rem game over
 1960 gosub2090
 1970 print"{home}{down}{down}{down}{down}new{left}{left}{left}{down}game?{left}{left}{left}{left}{left}{down}{down}(y,n)"
 1980 print"{home}game"
 1990 print"{rvon}over"
 2000 fordel=1to200:nextdel
 2010 print"{home}{rvon}game"
 2020 print"over"
 2030 fordel=1to250:nextdel
 2040 gete$:ife$<>"y"ande$<>"n"then1980
 2050 ife$="y"thenrun
 2060 ife$="n"thenprint"{clr}"
 2070 print"okay. thank you.{down}{down}{down}{down}{down}{down}{down}{down}"
 2080 end
 2090 rem empty keyboard buffer
 2100 forx9=1to100:getq$:nextx9:return
 2110 rem restore suits
 2120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}AS ZX"
 2130 return
 2140 rem free ball whoop-de-doo
 2150 form=150to10step-10
 2160 print"{home}{down}free"
 2170 print"ball":gosub2570
 2180 print"{home}{down}{rvon}free{rvof}"
 2190 print"{rvon}ball{rvof}":nextm
 2200 return
 2210 rem move ball********
 2220 ifpeek(151)=1thengoto2250
 2230 ifpeek(151)=255thenerase=1:goto2250
 2240 goto2370:rem ***tilt!***
 2250 dir=d(n)
 2260 ifpeek(p+dir)<>32thenn=n-1:goto660
 2270 pokep+dir,81:pokep,32:p=p+dir
 2280 goto660
 2290 rem flippers
 2300 iferase=1then2340
 2310 poke33541,120:poke33545,120
 2320 poke33542,120:poke33544,120
 2330 goto2360
 2340 poke33541,77:poke33545,78
 2350 erase=0
 2360 return
 2370 rem tilt! (start new ball)
 2380 poke33541,32:poke33542,32:poke33544,32:poke33545,32
 2390 forq2=1to6
 2400 pokep,32:print"{home}tilt!"
 2410 gosub2590:print"{home}{rvon}tilt!"
 2420 gosub2620:nextq2:gosub2650
 2430 print"{home}     "
 2440 b=b-1:ifb=0then1950
 2450 gosub1750:goto660
 2460 rem sound (bounce)
 2470 poke59467,16:poke59466,15:poke59464,250:gosub2650 :return
 2480 rem sound (ball drain)
 2490 poke59467,16:poke59466,15
 2500 forf=30to150
 2510 poke59464,f:nextf:poke59466,0
 2520 fordel=1to250:nextdel
 2530 ifb=1then2560
 2540 poke59466,15
 2550 poke59464,250:fordel=1to100:next
 2560 gosub2650:return
 2570 rem sound (bumper)
 2580 poke59467,16:poke59466,15:poke59464,m:gosub2650:return
 2590 rem rasberry low (tilt)
 2600 poke59467,16:poke59466,16:poke59464,200:fordel=1to25:nextdel
 2610 gosub2650:return
 2620 rem rasberry high (tilt)
 2630 poke59467,16:poke59466,15:poke59464,75:fordel=1to25:nextdel
 2640 gosub2650:return
 2650 rem end routine (reset tape)
 2660 rem sound generator disable
 2670 poke59466,0:poke59467,0:poke59468,12:return
   10 rem
   11 rem ping pong
   12 rem (c) 1979 by adp systems
   13 rem 95 w 100 s , logan, utah 84321
   14 rem
   15 poke 59468,12
   20 print"{clr}"
   21 fori=1to23
   22 print"             !!!!ping!!!!
   23 next
   24 for q=1to2500:next:print"{clr}{down}{down}{down}{down}{down}"
   25 printtab(15)"{rvon}ping pong"
   30 for i=1to300:next
   40 print"{down}{down}{down}{down}do you want instructions (y/n)?"
   42 get l$:if l$<>"y" and l$<>"n" then  42
   43 if l$="y" then gosub 4000
   50 print"{clr}"
   55 print"what is your name player#1?";
   60 gosub20000:t$=st$
   65 print"what is your name player#2?";
   70 gosub20000:b$=st$
   75 input"how many points do you want to play to";s1
   80 if s1>0 and s1<51 then 90
   85 print"let's make that within reason!"
   86 goto 75
   90 print"{clr}"
  100 for l=0to39
  110 poke 32768+l,102
  115 poke 32768+24*40+l,102
  120 next l
  124 a=32768+13*40+1                   
  125 b=32768+13*40+39-1                
  130 for h=0to960 step 40
  140 poke h+32768,118
  150 poke h+39+32768,117
  160 nexth
  170 l1=int(rnd(1)*3)+1
  171 ifl1=1 thend1=-39
  172 ifl1=2 thend1=1
  173 ifl1=3 thend1=41
  174 ifr1=1then y=-d1
  175 ifr1=0then y=d1
  178 ifr1=0then x=32768+int(rnd(2)*15)*40+5*40+2
  180 ifr1=1then x=32768+int(rnd(2)*15)*40+5*40+37
  185 ifr1=0thenr1=1:goto190            
  188 ifr1=1thenr1=0
  190 a$="":c=0:d=0:                    
  200 print"{rght}{rght}"n1"{home}":printtab(34)j"{home}"
  205 geta$
  210 ifa$<>""thengosub12000
  615 a=a+c:b=b+d                       
  624 ifa=32849ora=33649thena=a-c
  625 ifb=33686orb=32886thenb=b-d       
  640 ifc<>0thenpokea-c-c,32
  644 ifd<>0thenpokeb-d-d,32
  646 pokea,72:pokea+40,72:pokea-40,72:pokeb,71:pokeb+40,71:pokeb-40,71
  650 ifpeek(x+y)<>32thengosub9650
  700 pokex,32:x=x+y:pokex,81:goto200
 1000 ifpeek(x+y)=118then1100
 1005 n1=n1+1
 1012 print"{rght}{rght}"n1"{home}"
 1013 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"j"{home}"
 1014 ifn1=s1thenc$=t$:gosub3500:goto2000
 1015 for x2=0to500:next:c=0:d=0:goto 170
 1100 j=j+1
 1102 print"{rght}{rght}"n1"{home}"
 1103 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"j"{home}"
 1105 ifj=s1thenc$=b$:gosub3000:goto2000
 1110 for x2=0to500:next:c=0:d=0:goto 170
 1200 ifa$="x"thenn=-40:c=c+n
 1240 ifa$="9"thenm=-40:d=d+m
 2000 print"{clr}":print"well, "c$", you won that game!"
 2010 print:print:print:print:print
 2020 print"press space to play again or q to quit"
 2025 g1=g1+1
 2030 getx$:if x$="" then 2030
 2040 if x$="q"then 2500
 2050 if x$<>" "then2030
 2060 j=0:n1=0
 2070 print"{clr}"
 2080 goto 75
 2500 if g1>1thenf1$="games"
 2505 if g1=1thenf1$="game"
 2510 if m1=1then w1$="game"
 2515 if m1<>1thenw1$="games"
 2520 if e1=1theno1$="game"
 2525 if e1<>1theno1$="games"
 2540 print:print:print
 2550 print"you played "g1" "f1$
 2600 printt$" you won "m1" "w1$
 2700 printb$" you won "e1" "o1$
 2725 print:print:print
 2735 print"thank you for playing!!!"
 2740 end
 2940 end
 3000 e1=e1+1
 3010 return
 3500 m1=m1+1
 3510 return
 4000 print"{clr}";
 4010 print"          {CBM-@}               {CBM-@} "
 4020 print"         {CBM-M}w{CBM-G}             {CBM-M}9{CBM-G}"
 4030 print"          {CBM-T}               {CBM-T} "
 4040 print"          {CBM-@}               {CBM-@} "
 4050 print"         {CBM-M}s{CBM-G}             {CBM-M}6{CBM-G}"
 4060 print"          {CBM-T}               {CBM-T} "
 4070 print"          {CBM-@}               {CBM-@} "
 4080 print"         {CBM-M}x{CBM-G}             {CBM-M}3{CBM-G}"
 4090 print"          {CBM-T}               {CBM-T} "
 4100 print"            instructions"
 4110 print"{down}to play:player number one uses the left"
 4120 print"keys to control his paddle.  w{$a0}moves it"
 4130 print"up, s stops it, and{$a0}x{$a0}moves it down.
 4140 print"player number two uses the keys on the"
 4150 print"right to control his paddle."
 4180 print"{down}the ball will be served from one side,"
 4190 print"then the other at a random place and"
 4200 print"angle.  to make things more interesting"
 4210 print"there will always be one space that can"
 4220 print"not be blocked."
 4230 print"{down}press space to go on."
 4240 get u1$:if u1$<>" " then 4240
 4250 return
 9650 rem
 9651 ifx+y=btheny=-1
 9652 ifx+y=b-40theny=-41
 9653 ifx+y=atheny=1
 9654 ifx+y=a+40theny=41
 9655 ifx+y=a-40theny=-39
 9670 ifx+y=b+40theny=+39
 9671 ifx+y=a theny=1
 9672 ify=1ory=-1thenn=-y
 9673 ify=-1thenn=1
 9674 ify=41thenn=-39
 9675 ify=39thenn=-41
 9676 ify=-41thenn=39
 9678 ify=-39thenn=41
 9679 ifx+y>33728or x+y<32808then y=n
 9685 ifx+y>33728orx+y<32808theny=n
 9740 pokex,32
 9745 ifpeek(x+y)>111then1000                                  
 9750 return
 12000 ifa$="w"thenc=-40
 12200 ifa$="x"thenc=40
 12300 ifa$="s"thenc=0                  
 12400 ifa$="9"thend=-40
 12500 ifa$="3"thend=40
 12550 ifa$="6"thend=0           
 12750 ifd>40thend=40
 12760 ifd<-40thend=-40
 12770 ifc>40thenc=40
 12780 ifc<-40thenc=-40
 12800 return
 20000 rem - get string routine
 20010 st$=""
 20020 getq$:ifq$="" then 20020
 20030 ifasc(q$)=13 then 20100
 20040 st$=st$+q$
 20050 printq$;
 20060 goto 20020
 20100 print
 20110 return
    0 rem pink panther
    1 dim a$(3)
    2 a$(0)="                                             "
    3 a$(1)="#####################"
    4 a$(2)="*********************"
    5 a$(3)="+++++++++++++++++++++"
    6 open 1,4
    7 read a:ifa=0thenprint#1," ":goto7
    8 ifa=999thenclose1:end
    9 b=int(a/10):c=a-b*10:print#1,left$(a$(c),b);:goto7
   10 data370,71,0
   20 data360,101,0
   30 data150,41,110,21,40,41,10,51,0
   40 data120,81,70,61,30,41,10,31,10,51,0
   50 data110,31,10,51,50,81,42,61,10,71,0
   60 data100,41,42,11,10,12,10,12,10,81,120,81,0
   70 data100,41,42,11,12,30,61,10,53,110,53,0
   80 data100,41,32,50,61,10,83,90,63,0
   90 data120,21,10,12,70,41,10,93,40,122,0
  100 data140,12,150,51,100,122,0
  110 data130,12,170,31,140,142,0
  120 data120,12,330,12,20,22,90,22,0
  130 data120,12,320,12,50,102,0
  140 data120,12,310,12,110,12,40,12,0
  150 data120,12,250,12,40,12,110,22,30,12,0
  160 data130,12,230,12,10,12,30,12,90,22,20,22,10,12,0
  170 data140,42,80,52,60,62,80,22,50,22,0
  180 data170,102,40,12,40,12,60,72,80,12,10,12,0
  190 data310,12,40,12,100,12,90,12,30,12,0
  200 data310,12,40,12,110,82,60,12,0
  210 data310,12,40,12,250,42,0
  220 data270,32,70,42,230,12,0
  230 data260,12,150,12,220,12,0
  240 data250,12,100,82,0
  250 data250,12,100,12,63,12,0
  260 data240,12,90,12,93,12,0
  270 data240,12,80,12,103,12,0
  280 data240,12,80,12,103,12,0
  290 data230,22,80,12,113,12,0
  300 data230,12,50,12,30,12,113,12,0
  310 data230,12,50,12,30,12,113,12,0
  320 data220,12,50,12,40,12,123,12,0
  330 data220,12,50,12,40,12,123,12,0
  340 data220,12,40,12,50,12,133,12,0
  350 data210,12,50,22,40,12,133,12,0
  360 data210,12,40,12,10,12,40,12,133,12,0
  370 data210,12,40,12,10,12,40,12,133,12,0
  380 data200,12,40,12,20,12,40,12,133,22,0
  390 data200,12,40,12,20,12,40,12,133,22,0
  400 data190,12,40,12,30,12,40,12,133,22,0
  410 data190,12,40,12,30,12,40,12,133,12,10,12,0
  420 data180,12,40,12,40,12,40,12,133,12,10,12,0
  430 data180,12,40,12,40,12,40,12,133,12,20,12,0
  440 data170,12,40,12,50,12,40,12,133,12,20,12,0
  450 data160,12,40,12,60,12,40,12,133,12,30,12,0
  460 data160,12,40,12,60,12,40,12,133,12,30,12,0
  470 data150,12,40,12,70,12,40,12,133,12,30,12,0
  480 data150,12,40,12,70,12,40,12,133,12,30,12,0
  490 data140,12,60,12,50,12,50,12,133,12,20,12,0
  500 data150,12,60,12,40,12,50,12,133,12,10,12,0
  510 data160,12,60,12,30,12,50,12,133,22,0
  520 data170,12,60,12,20,12,50,12,133,12,0
  530 data180,12,60,22,50,12,143,12,0
  540 data190,12,50,12,60,12,133,12,0
  550 data200,12,40,12,60,12,133,12,0
  560 data210,12,20,12,60,12,143,12,0
  570 data220,22,70,12,133,12,0
  580 data220,12,70,12,143,12,0
  590 data210,12,80,12,133,12,0
  600 data210,12,70,12,143,12,0
  610 data200,12,80,12,133,12,0
  620 data190,12,90,12,123,12,0
  630 data180,22,90,12,113,12,0
  640 data170,12,10,12,90,12,103,12,0
  650 data160,12,20,12,90,12,93,12,0
  660 data150,12,30,12,90,12,83,22,0
  670 data140,12,30,22,90,12,10,12,53,12,10,12,0
  680 data130,12,30,12,20,12,80,22,20,32,30,12,0
  690 data120,12,30,12,30,12,80,22,80,12,0
  700 data120,12,30,12,30,12,80,22,70,12,0
  710 data120,12,30,12,40,12,70,22,70,12,0
  720 data120,12,30,12,40,12,70,22,70,12,0
  730 data120,12,30,12,40,12,70,22,70,12,0
  740 data120,12,30,12,40,12,70,22,70,12,0
  750 data120,12,30,12,40,12,70,22,70,12,0
  760 data120,12,30,12,50,12,60,22,60,12,0
  770 data120,12,30,12,50,12,60,22,60,12,0
  780 data120,12,30,12,50,12,60,22,60,12,0
  790 data120,12,30,12,50,12,60,22,60,12,0
  800 data120,12,30,12,60,12,50,22,60,12,0
  810 data120,12,30,12,60,12,50,22,60,12,0
  820 data120,12,30,12,60,12,50,22,60,12,0
  830 data120,12,30,12,60,12,50,22,60,12,0
  840 data120,12,30,12,60,12,50,22,50,12,0
  850 data120,12,30,12,60,12,50,22,50,12,0
  860 data120,12,30,12,60,12,50,22,50,12,0
  870 data120,12,20,12,70,12,50,22,50,12,40,142,0
  880 data110,12,30,12,80,12,40,22,50,12,20,22,140,12,0
  890 data100,12,30,12,90,12,40,22,50,22,60,102,30,12,0
  900 data90,12,30,12,100,12,40,22,50,12,40,32,110,12,30,12,0
  910 data70,12,40,12,110,12,40,22,50,12,20,12,160,12,30,12,0
  920 data60,12,30,12,130,12,40,22,50,22,180,12,30,12,0
  930 data60,12,30,12,130,12,40,22,50,12,190,12,30,12,0
  940 data50,12,30,12,140,12,40,22,50,12,190,12,30,12,0
  950 data50,12,30,12,140,12,40,22,50,12,180,12,30,12,0
  960 data50,12,30,12,130,22,40,22,50,12,170,12,30,12,0
  970 data60,12,30,12,110,12,10,12,40,22,50,12,150,12,30,12,0
  980 data80,12,30,12,80,12,20,12,40,22,50,12,140,12,30,12,0
  990 data100,12,30,12,40,12,30,22,40,22,50,12,140,12,10,12,0
 1000 data120,12,20,42,30,12,10,12,40,22,50,12,0
 1010 data140,12,50,12,30,12,40,22,50,12,0
 1020 data160,22,60,12,40,22,50,12,0
 1030 data240,12,40,22,50,12,0
 1040 data240,12,40,22,50,12,0
 1050 data240,12,40,22,50,12,0
 1060 data240,12,40,22,50,12,0
 1070 data240,12,40,22,50,12,0
 1080 data220,12,60,22,60,12,0
 1090 data200,12,80,22,90,12,0
 1100 data180,12,100,22,120,12,0
 1110 data160,12,120,22,150,12,0
 1120 data140,12,140,22,170,12,0
 1130 data120,12,160,22,190,12,0
 1140 data100,12,180,12,30,12,190,12,0
 1150 data80,12,170,12,80,12,190,12,0
 1160 data70,12,20,12,40,12,60,12,160,12,80,12,60,12,10,12,0
 1170 data60,12,10,12,40,12,50,12,220,12,70,12,50,12,10,12,0
 1180 data50,12,10,12,30,12,40,12,290,12,50,12,40,12,10,12,0
 1190 data50,22,30,12,10,12,370,12,20,12,40,22,0
 1200 data60,42,440,52,0
 1210 data999
  100 rem adventure 2
  110 rem by scott adams
  120 rem modified for pet by jeff jessee
  125 rem modified for new rom 12/jun/79
  130 poke59468,14
  140 x=y=z:k=r=v:n=ll=f:tp$=k$:w=ip=p:gosub180:gosub 2100
  150 print"{down}{down}HIT{$a0}return TO{$a0}BEGIN adventure";
  160 get g$:ifg$=""then160
  170 print"{clr}":goto300
  180 print"{clr}         {rvon}welcome to adventure{down}"
  190 print"{down}  THE{$a0}OBJECT{$a0}OF{$a0}YOUR{$a0}ADVENTURE{$a0}IS{$a0}TO"
  200 print"FIND{$a0}TREASURES{$a0}AND{$a0}RETURN{$a0}THEM{$a0}TO{$a0}THEIR"
  210 print"PROPER{$a0}PLACE.
  220 print"{down}  I'M YOUR{$a0}CLONE. GIVE ME{$a0}COMMANDS{$a0}THAT"
  230 print"CONSIST{$a0}OF{$a0}A{$a0}VERB{$a0}AND{$a0}A{$a0}NOUN.
  240 print"{down}i.e., go east, take key, climb tree,"
  250 print"save game, take inventory.
  260 print"{down}  YOU'LL NEED SPECIAL{$a0}ITEMS{$a0}TO{$a0}DO{$a0}SOME"
  270 print"THINGS, BUT{$a0}i'M{$a0}SURE{$a0}YOU'LL{$a0}BE{$a0}A{$a0}GOOD"
  280 print"ADVENTURER{$a0}AND{$a0}FIGURE{$a0}THESE{$a0}THINGS{$a0}OUT."
  290 print"{down}{down}{down}{down}          happy adventuring!!":return
  300 r=ar:lx=lt:df=0:sf=0:input"use saved game (y OR n)   n{left}{left}{left}";k$
  310 if left$(k$,1)<>"y"then print"{clr}":goto370
  320 input"is saved game tape positioned";k$:if left$(k$,1)<>"y"then300
  330 open 1,1,0,"adventure game"
  340 input#1,sf,lx,df,r
  350 forx=0toil:input#1,ia(x):nextx
  360 close1
  370 gosub550:goto440
  380 print:input"TELL{$a0}ME{$a0}WHAT{$a0}TO{$a0}DO   {CBM-@}{left}{left}{left}";tp$:print:gosub450
  390 if f thenprint"YOU{$a0}USE{$a0}WORD(S) I DON'T{$a0}KNOW!":goto380
  400 gosub710:ifia(9)=-1thenlx=lx-1:goto420
  410 goto440
  420 iflx<0then print"LIGHT{$a0}HAS{$a0}RUN{$a0}OUT!":ia(9)=0:goto440
  430 iflx<25thenprint"LIGHT{$a0}RUNS{$a0}OUT IN";lx;"TURNS!"
  440 nv(0)=0:gosub710:goto380
  450 k=0:nt$(0)="":nt$(1)=""
  460 forx=1tolen(tp$):k$=mid$(tp$,x,1):ifk$=" "thenk=1:goto480
  470 nt$(k)=left$(nt$(k)+k$,ln)
  480 nextx:forx=0to1:nv(x)=0:ifnt$(x)=""then540
  490 fory=0tonl:k$=nv$(y,x):ifleft$(k$,1)="*"thenk$=mid$(k$,2)
  500 ifx=1andy<7thenk$=left$(k$,ln)
  510 ifnt$(x)=k$thennv(x)=y:goto530
  520 nexty:goto540
  530 ifleft$(nv$(nv(x),x),1)="*"thennv(x)=nv(x)-1:goto530
  540 nextx:f=nv(0)<1orlen(nt$(1))>0andnv(1)<1:return
  550 ifdfthenifia(9)<>-1andia(9)<>rthenprint"I CAN'T{$a0}SEE, ITS{$a0}TOO{$a0}DARK!":return
  560 k=-1:ifleft$(rs$(r),1)="*"thenprintmid$(rs$(r),2);:goto580
  570 print"I'M{$a0}IN{$a0}A ";rs$(r);
  580 forz=0toil:ifkthenifia(z)=rthenprint:print"{down}VISIBLE{$a0}ITEMS{$a0}HERE:":k=0
  590 goto640
  600 tp$=ia$(z):ifright$(tp$,1)<>"/"thenreturn
  610 forw=len(tp$)-1to1step-1:ifmid$(tp$,w,1)="/"thentp$=left$(tp$,w-1):return
  620 nextw
  630 return
  640 ifia(z)<>rthen670
  650 gosub600:ifpos(0)+len(tp$)+3>39thenprint
  660 printtp$;".  ";
  670 next:print
  680 k=-1:forz=0to5:ifkthenifrm(r,z)<>0thenprint:print"OBVIOUS{$a0}EXITS: ":k=0
  690 ifrm(r,z)<>0thenprintnv$(z+1,1);" ";
  700 next:print:print:return
  710 f2=-1:f=-1:f3=0:ifnv(0)=1andnv(1)<7then1190
  720 forx=0tocl:v=int(c0%(x)/150):ifnv(0)=0thenifv<>0thenreturn
  730 ifnv(0)<>vthennextx:goto1640
  740 n=c0%(x)-v*150
  750 ifnv(0)=0thenf=0:goto770
  760 goto790
  770 ifint(rnd(1)*100+1)<=nthen800
  780 nextx:goto1640
  790 ifn<>nv(1)andn<>0thennextx:goto1640
  800 f2=-1:f=0:f3=-1:fory=1to5:on y goto 810,820,830,840,850
  810 w=c1%(x):goto860
  820 w=c2%(x):goto860
  830 w=c3%(x):goto860
  840 w=c4%(x):goto860
  850 w=c5%(x):goto860
  860 ll=int(w/20):k=w-ll*20:f1=-1
  870 onk+1goto1060,940,960,980,1000,1010,1020,1030,1040,1050,900,920
  880 ifk<12then900
  890 onk-11goto950,970,990
  900 f1=-1:forz=0toil:ifia(z)=-1then1060
  910 next:f1=0:goto1060
  920 f1=0:forz=0toil:ifia(z)=-1then1060
  930 next:f1=-1:goto1060
  940 f1=ia(ll)=-1:goto1060
  950 f1=ia(ll)<>-1andia(ll)<>r:goto1060
  960 f1=ia(ll)=r:goto1060
  970 f1=ia(ll)<>0:goto1060
  980 f1=ia(ll)=r oria(ll)=-1:goto1060
  990 f1=ia(ll)=0:goto1060
 1000 f1=r=ll:goto1060
 1010 f1=ia(ll)<>r:goto1060
 1020 f1=ia(ll)<>-1:goto1060
 1030 f1=r<>ll:goto1060
 1040 f1=sfandint(2^ll+.5):f1=f1<>0:goto1060
 1050 f1=sfandint(2^ll+.5):f1=f1=0:goto1060
 1060 f2=f2andf1:iff2thennexty:goto1080
 1070 nextx:goto1640
 1080 ip=0:fory=1to4:k=int((y-1)/2+6):onygoto1090,1100,1110,1120
 1090 ac=int(c6%(x)/150):goto1130
 1100 ac=c6%(x)-int(c6%(x)/150)*150:goto1130
 1110 ac=int(c7%(x)/150):goto1130
 1120 ac=c7%(x)-int(c7%(x)/150)*150
 1130 ifac>101then1180
 1140 ifac=0then1610
 1150 ifac<52thenprintms$(ac):goto1610
 1160 onac-51goto1290,1330,1340,1360,1370,1380,1390,1360,1410,1430,1440
 1170 onac-62goto1450,1470,1480,1530,1570,1580,1590,1600,2020,1350
 1180 printms$(ac-50):goto1610
 1190 l=df:iflthenl=dfandia(9)<>r andia(9)<>-1:goto1210
 1200 goto1220
 1210 iflthenprint"DANGEROUS{$a0}IN{$a0}THE{$a0}DARK!"
 1220 ifnv(1)<1thenprint"GIVE{$a0}ME{$a0}A{$a0}DIRECTION{$a0}TOO.":goto1690
 1230 k=rm(r,nv(1)-1)
 1240 ifk>=1then1270
 1250 iflthenprint"I FELL{$a0}DOWN{$a0}AND{$a0}BROKE{$a0}MY{$a0}NECK.":k=rl:df=0:goto1270
 1260 print"I CAN'T{$a0}GO{$a0}IN{$a0}THAT{$a0}DIRECTION!!":goto1690
 1270 if not l thenprint"{clr}"
 1280 r=k:gosub550:goto1690
 1290 l=0:forz=1toil:ifia(z)=-1thenl=l+1
 1300 nextz
 1310 ifl>=mxthenprint"I'VE{$a0}TOO{$a0}MUCH{$a0}TO{$a0}CARRY!":goto1620
 1320 gosub1700:ia(p)=-1:goto1610
 1330 gosub1700:ia(p)=r:goto1610
 1340 gosub1700:r=p:goto1610
 1350 gosub1700:l=p:gosub1700:z=ia(p):ia(p)=ia(l):ia(l)=z:goto1610
 1360 gosub1700:ia(p)=0:goto1610
 1370 df=-1:goto1610
 1380 df=0:goto1610
 1390 gosub1700
 1400 sf=int(.5+2^p)or sf:goto1610
 1410 gosub1700
 1420 sf=sf andnot int(.5+2^p):goto1610
 1430 print"I'M{$a0}DEAD...":r=rl:df=0:goto1470
 1440 gosub1700:l=p:gosub1700:ia(l)=p:goto1610
 1450 input"THE{$a0}GAME{$a0}IS{$a0}NOW{$a0}OVER.-ANOTHER{$a0}GAME";k$:ifleft$(k$,1)="n"thenend
 1460 forx=0toil:ia(x)=i2(x):next:print"{clr}":goto300
 1470 gosub550:goto1610
 1480 l=0:forz=1toil:ifia(z)=tr thenifleft$(ia$(z),1)="*"thenl=l+1
 1490 nextz:print"I'VE STORED";l;"TREASURES. ON{$a0}A{$a0}SCALE"
 1500 print"OF 0 to 100 THAT{$a0}RATES{$a0}A";int(l/tt*100)
 1510 ifl=ttthenprint"WELL{$a0}DONE. ":goto1450
 1520 goto1610
 1530 print"I'M CARRYING:":k$="nothing":forz=0toil:ifia(z)<>-1then1560
 1540 gosub600:iflen(tp$)+pos(0)>39thenprint
 1550 print tp$;".",;:k$=""
 1560 next:printk$:goto1610
 1570 p=0:goto1400
 1580 p=0:goto1420
 1590 lx=lt:ia(9)=-1:goto1610
 1600 print"{clr}":goto1610
 1610 nexty
 1620 ifnv(0)<>0then1640
 1630 nextx
 1640 rem
 1650 ifnv(0)=0then1690
 1660 gosub1790
 1670 iffthenprint"I DON'T{$a0}UNDERSTAND{$a0}YOUR{$a0}COMMAND.":goto1690
 1680 if not f2thenprint"I CAN'T{$a0}DO{$a0}THAT{$a0}YET.":goto1690
 1690 return
 1700 ip=ip+1
 1710 onipgoto1720,1730,1740,1750,1760
 1720 w=c1%(x):goto1770
 1730 w=c2%(x):goto1770
 1740 w=c3%(x):goto1770
 1750 w=c4%(x):goto1770
 1760 w=c5%(x):goto1770
 1770 p=int(w/20):m=w-p*20:ifm<>0then1700
 1780 return
 1790 ifnv(0)<>10andnv(0)<>18orf3then2010
 1800 ifnv(1)=0thenprint"WHAT?":goto1950
 1810 ifnv(0)<>10then1840
 1820 l=0:forz=0toil:ifia(z)=-1thenl=l+1
 1830 next:ifl>=mxthenprint"I'VE{$a0}TOO{$a0}MUCH{$a0}TO{$a0}CARRY!":goto1950
 1840 k=0:forx=0toil:ifright$(ia$(x),1)<>"/"then1960
 1850 ll=len(ia$(x))-1:tp$=mid$(ia$(x),1,ll):fory=llto2step-1
 1860 ifmid$(tp$,y,1)<>"/"thennexty:goto1960
 1870 tp$=left$(mid$(tp$,y+1),ln)
 1880 iftp$<>nv$(nv(1),1)then1960
 1890 ifnv(0)=10then1920
 1900 ifia(x)<>-1thenk=1:goto1960
 1910 ia(x)=r:k=3:goto1940
 1920 ifia(x)<>rthenk=2:goto1960
 1930 ia(x)=-1:k=3
 1940 print"ok, ":print
 1950 f=0:return
 1960 nextx
 1970 ifk=1thenprint"I'M{$a0}NOT{$a0}CARRYING{$a0}IT!"
 1980 ifk=2thenprint"I DON'T{$a0}SEE{$a0}IT{$a0}HERE."
 1990 ifk=0thenifnotf3thenprint"IT'S{$a0}BEYOND{$a0}MY{$a0}POWER{$a0}TO{$a0}DO{$a0}THAT.":f=0
 2000 ifk<>0thenf=0
 2010 return
 2020 rem save game
 2030 input"output tape ready to save game";k$:if left$(k$,1)<>"y"then2090
 2040 open1,1,1,"adventure game"
 2050 print#1,sf:print#1,lx:print#1,df:print#1,r
 2060 forw=0toil:print#1,ia(w)
 2070 poke59411,53:forz9=1to10:nextz9:poke59411,61
 2080 nextw:close1
 2090 goto1610
 2100 read il,cl,nl,rl,mx,ar,tt,ln,lt,ml,tr
 2110 dimnv(1),c0%(cl),c1%(cl),c2%(cl),c3%(cl),c4%(cl),c5%(cl),c6%(cl),c7%(cl)
 2120 dim nv$(nl,1),ia$(il),ia(il),rs$(rl),rm(rl,5),ms$(ml),nt$(1),i2(il)
 2130 forx=0toclstep2:y=x+1
 2140 readc0%(x),c1%(x),c2%(x),c3%(x),c4%(x),c5%(x),c6%(x),c7%(x)
 2150 readc0%(y),c1%(y),c2%(y),c3%(y),c4%(y),c5%(y),c6%(y),c7%(y):nextx
 2160 forx=0tonlstep10:fory=0to1
 2170 readnv$(x,y),nv$(x+1,y),nv$(x+2,y),nv$(x+3,y),nv$(x+4,y),nv$(x+5,y)
 2180 read nv$(x+6,y),nv$(x+7,y),nv$(x+8,y),nv$(x+9,y):nexty,x
 2190 forx=0torl:readrm(x,0),rm(x,1),rm(x,2),rm(x,3),rm(x,4),rm(x,5),rs$(x):next
 2200 forx=0toml:readms$(x):nextx
 2210 forx=0toil:readia$(x),ia(x):i2(x)=ia(x):nextx
 2220 ms$(2)=ms$(2)+".there's a word encraved on the flyleaf: -yoho- "
 2230 ms$(2)=ms$(2)+"and a message: long john silver  left 2 treasures on "
 2240 ms$(2)=ms$(2)+"treasure island!!"
 2250 ms$(31)=ms$(31)+",an anchor,sailsand a keel."
 2260 return
 2270 data 60,151,59,33,5,1,2,3,200,71,1
 2280 data 80,422,342,420,340,0,16559,8850
 2290 data 80,462,482,460,0,0,15712,1705
 2300 data 100,521,552,540,229,220,203,8700
 2310 data 3,483,0,0,0,0,15712,0
 2320 data 100,284,0,0,0,0,8550,0
 2330 data 100,28,663,403,40,0,8700,0
 2340 data 100,48,20,660,740,220,9055,10902
 2350 data 100,28,20,0,0,0,3810,0
 2360 data 100,8,700,720,0,0,10868,0
 2370 data 100,48,40,640,400,300,9055,8305
 2380 data 25,664,0,0,0,0,4263,0
 2390 data 40,104,886,0,0,0,4411,0
 2400 data 80,242,502,820,80,240,9321,10109
 2410 data 100,8,140,80,500,0,10262,8850
 2420 data 35,421,846,420,200,0,5162,0
 2430 data 100,129,120,0,0,0,6508,0
 2440 data 50,242,982,820,440,240,9321,8850
 2450 data 35,483,69,0,0,0,15705,0
 2460 data 10,483,249,0,0,0,15706,0
 2470 data 50,484,1073,1086,0,0,17661,9150
 2480 data 50,204,1086,0,0,0,16711,0
 2490 data 10,209,1040,1060,300,1100,10872,10050
 2500 data 10,208,1040,1060,89,0,10867,0
 2510 data 85,483,8,0,0,0,15719,10200
 2520 data 100,8,0,0,0,0,10200,0
 2530 data 100,104,0,0,0,0,8550,0
 2540 data 80,462,282,280,1160,0,1422,0
 2550 data 158,82,60,0,0,0,8170,9600
 2560 data 4510,61,0,0,0,0,300,0
 2570 data 163,22,100,0,0,0,8170,9600
 2580 data 8100,0,0,0,0,0,16200,0
 2590 data 4800,104,120,61,0,0,10507,8164
 2600 data 4800,107,100,61,89,0,10507,8164
 2610 data 4063,22,0,0,0,0,647,0
 2620 data 5570,161,203,160,180,0,10870,1264
 2630 data 6170,181,180,160,0,0,8302,0
 2640 data 6300,104,0,0,0,0,900,0
 2650 data 1529,442,465,440,0,0,7800,0
 2660 data 1529,442,462,0,0,0,760,9150
 2670 data 183,322,180,0,0,0,8170,9600
 2680 data 1538,262,242,0,0,0,1800,0
 2690 data 1538,262,245,260,0,0,7800,0
 2700 data 5888,262,242,0,0,0,1800,0
 2710 data 5888,262,245,0,0,0,1950,0
 2720 data 6188,262,245,541,260,560,2155,7950
 2730 data 5888,261,0,0,0,0,2400,0
 2740 data 4088,561,0,0,0,0,2400,0
 2750 data 4088,263,0,0,0,0,2713,0
 2760 data 4088,562,580,109,100,249,2303,8700
 2770 data 4088,249,562,108,900,240,6203,8700
 2780 data 4088,248,562,0,0,0,6600,0
 2790 data 4068,103,69,0,0,0,646,0
 2800 data 4068,103,68,0,0,0,6600,0
 2810 data 5887,342,0,0,0,0,2550,0
 2820 data 5887,362,0,0,0,0,2713,0
 2830 data 5887,382,0,0,0,0,2100,0
 2840 data 159,382,320,0,0,0,8170,9600
 2850 data 6187,342,362,0,0,0,2550,0
 2860 data 6187,345,362,541,360,380,8303,10050
 2870 data 3461,503,0,0,0,0,172,0
 2880 data 3750,0,0,0,0,0,9900,0
 2890 data 1528,0,0,0,0,0,9900,0
 2900 data 4108,1143,1012,0,0,0,646,0
 2910 data 6450,0,0,0,0,0,2853,0
 2920 data 4510,66,0,0,0,0,2720,0
 2930 data 4950,0,0,0,0,0,9750,0
 2940 data 5114,0,0,0,0,0,10650,0
 2950 data 7092,592,0,0,0,0,2745,0
 2960 data 185,284,140,0,0,0,8156,10564
 2970 data 4098,1054,0,0,0,0,647,17550
 2980 data 4098,1053,0,0,0,0,647,17400
 2990 data 4083,322,0,0,0,0,647,0
 3000 data 4095,762,0,0,0,0,647,0
 3010 data 195,782,921,0,0,0,2727,0
 3020 data 195,762,261,0,0,0,2727,0
 3030 data 6900,0,0,0,0,0,9450,0
 3040 data 1526,602,0,0,0,0,2723,0
 3050 data 1541,621,602,640,520,600,7853,8250
 3060 data 195,782,661,0,0,0,2727,0
 3070 data 7092,623,583,303,643,20,8700,0
 3080 data 7092,0,0,0,0,0,3750,0
 3090 data 200,722,220,0,0,0,10554,9600
 3100 data 195,762,61,0,0,0,2727,0
 3110 data 4050,0,0,0,0,0,10564,0
 3120 data 1526,523,520,0,0,0,7800,0
 3130 data 195,762,340,0,0,0,8126,8464
 3140 data 195,782,360,0,0,0,8157,10564
 3150 data 7530,404,242,1053,89,0,17250,0
 3160 data 4800,0,0,0,0,0,450,0
 3170 data 5868,103,200,69,60,0,4553,8700
 3180 data 5868,68,0,0,0,0,494,0
 3190 data 1546,146,0,0,0,0,4800,0
 3200 data 1546,802,141,140,840,0,8302,0
 3210 data 2746,841,840,140,0,0,8302,4950
 3220 data 3496,802,0,0,0,0,811,0
 3230 data 3496,841,840,140,0,0,811,8302
 3240 data 7366,822,820,240,400,0,5305,9300
 3250 data 5861,503,0,0,0,0,2100,0
 3260 data 8411,501,500,140,0,0,5459,7833
 3270 data 192,742,400,0,0,0,8170,9600
 3280 data 201,404,88,420,240,242,8170,8071
 3290 data 201,404,89,120,0,0,8170,9600
 3300 data 7530,404,245,0,0,0,2737,0
 3310 data 7530,404,912,0,0,0,2738,0
 3320 data 7530,404,89,80,740,420,5908,9300
 3330 data 7530,404,88,80,740,120,5910,9300
 3340 data 7671,0,0,0,0,0,6000,0
 3350 data 4553,903,0,0,0,0,6300,0
 3360 data 1350,0,0,0,0,0,6000,0
 3370 data 1510,62,60,0,0,0,7800,0
 3380 data 5860,63,0,0,0,0,18000,0
 3390 data 201,404,88,420,0,0,8170,9600
 3400 data 186,284,360,0,0,0,8170,9600
 3410 data 1539,482,242,0,0,0,1800,0
 3420 data 1539,482,480,0,0,0,7904,16800
 3430 data 194,682,300,0,0,0,8170,9600
 3440 data 174,149,464,140,0,0,8751,0
 3450 data 174,160,0,0,0,0,8751,0
 3460 data 7800,444,940,921,952,0,10548,8014
 3470 data 7800,124,921,0,0,0,7350,0
 3480 data 7800,424,992,980,921,0,10553,7264
 3490 data 8250,104,0,0,0,0,10505,9600
 3500 data 7800,464,148,1140,921,1152,10553,7264
 3510 data 1541,643,640,0,0,0,7800,0
 3520 data 163,104,40,0,0,0,8170,9600
 3530 data 6300,44,0,0,0,0,15450,0
 3540 data 4534,583,0,0,0,0,4650,0
 3550 data 6187,702,541,0,0,0,2713,16050
 3560 data 5887,702,0,0,0,0,2713,0
 3570 data 5887,0,722,0,0,0,2100,0
 3580 data 198,1022,480,0,0,0,8170,9600
 3590 data 157,2,24,40,0,0,8170,9600
 3600 data 1510,44,60,40,80,85,7801,10800
 3610 data 1532,302,208,300,0,0,7800,0
 3620 data 1532,302,209,0,0,0,2813,0
 3630 data 1532,305,0,0,0,0,10518,7564
 3640 data 8411,841,840,140,0,0,8922,0
 3650 data 165,1122,500,0,0,0,8170,9600
 3660 data 1392,0,0,0,0,0,6000,0
 3670 data 6300,284,0,0,0,0,16350,0
 3680 data 8582,0,0,0,0,0,17700,0
 3690 data 7800,921,209,302,200,0,8700,0
 3700 data 7950,0,0,0,0,0,2700,0
 3710 data 5908,621,1143,1000,0,0,4553,0
 3720 data 5266,0,0,0,0,0,1800,0
 3730 data 6300,224,0,0,0,0,17517,17850
 3740 data 1200,0,0,0,0,0,17100,0
 3750 data 6300,124,0,0,0,0,16350,0
 3760 data 1050,208,1040,1060,0,0,10919,0
 3770 data 6300,184,242,0,0,0,3600,0
 3780 data 7800,921,160,140,0,0,7410,9000
 3790 data 6300,0,0,0,0,0,450,0
 3800 data aut,"go",*cli,*wal,"*run",*ent,*pac,"wai",say,sai
 3810 data any,north,south,east,west,up,down,sta,pas,hal
 3820 data "get",*tak,*cat,*pic,*rem,*wea,*pul,fly,dro,*rel
 3830 data boo,bot,*rum,win,gam,mon,pir,aro,bag,*duf
 3840 data *thr,*lea,*giv,dri,*eat,inv,sai,loo,*sho," "
 3850 data "tor",off,mat,yoh,30,lum,rug,key,inv,dub
 3860 data rea," ",yoh,sco,"sav",kil,*att,lig," ",ope
 3870 data sai,fis,anc,sha,pla,cav,pat,doo,che,par
 3880 data *sma,unl,hel,awa,*bun," ",qui,bui,*mak,wak
 3890 data ham,nai,boa,*shi,she,cra,wat,*sal,lag,*tid
 3900 data set,cas,dig,bur,fin,jum,emp,wei," "," "
 3910 data pit,sho,*bea,map,pac,bon,hol,san,box,sne
 3920 data 0,0,0,0,0,0," "
 3930 data 0,0,0,0,0,0,london apartment
 3940 data 0,0,0,0,0,1,"*I'M IN{$a0}AN{$a0}alcove"
 3950 data 0,0,4,2,0,0,secret passageway
 3960 data 0,0,0,3,0,0,musty attic
 3970 data0,0,0,0,0,0,*i'm outside an open window on a ledge of a tall building{wht}{wht}{stop}
 3980 data 0,0,8,0,0,0,sandy beach on a tropical isle
 3990 data 0,12,13,14,0,11,maze of caves
 4000 data 0,0,14,6,0,0,meadow
 4010 data 0,0,0,8,0,0,grass shack
 4020 data 10,24,10,10,0,0,*i'm in the ocean
 4030 data 0,0,0,0,7,0,pit
 4040 data 7,0,14,13,0,0,maze of caves
 4050 data 7,14,12,19,0,0,maze of caves
 4060 data 0,0,0,8,0,0,*i'm at the foot of cave-ridden hill.pathleads to top
 4070 data 17,0,0,0,0,0,tool shed
 4080 data 0,0,17,0,0,0,long hallway
 4090 data 0,0,0,16,0,0,large cavern
 4100 data 0,0,0,0,0,14,*i'm on top of a hill- below is pirates  island
 4110 data 0,14,14,13,0,0,maze of caves
 4120 data 0,0,0,0,0,0,*i'm aboard a pirate ship anchored off-  shore
 4130 data 0,22,0,0,0,0,*i'm on the beach at treasure island
 4140 data 21,0,23,0,0,0,spooky graveyard full of empty & broken rum bottles
 4150 data 0,0,0,22,0,0,large barren field
 4160 data10,6,6,6,0,0,shallow lagoon-to the north is the ocean
 4170 data 0,0,0,23,0,0,sacked and deserted monastary
 4180 data 0,0,0,0,0,0," "
 4190 data 0,0,0,0,0,0," "
 4200 data 0,0,0,0,0,0," "
 4210 data 0,0,0,0,0,0," "
 4220 data 0,0,0,0,0,0," "
 4230 data 0,0,0,0,0,0," "
 4240 data 0,0,0,0,0,0," "
 4250 data 0,0,0,0,0,0,*welcome to never never land
 4260 data" "
 4270 data there's a strange sound
 4280 data the name of the book is treasure island
 4290 data nothing happens
 4300 data there's something there. maybe i should
 4310 data that's not very safe
 4320 data you may need magic here
 4330 data everything spins around and suddenly i'melsewhere...
 4340 data torch is lit
 4350 data i was wrong. i guess its not a mongoose cause the snakes bit it.
 4360 data i'm snake bit
 4370 data parrot attacks snakes and drives them   off
 4380 data pirate won't let me
 4390 data its locked
 4400 data its open
 4410 data there are a set of plans in it
 4420 data not while i'm carrying it
 4430 data crocs stop me
 4440 data sorry i can't
 4450 data wrong game you silly goose!
 4460 data i don't have it
 4470 data pirate grabs rum and scuttles off chort-ling
 4480 data ...i think its me. hee hee.
 4490 data its nailed to the floor!
 4500 data -magic word-ho and a ...  (work on it.  you'll get it)
 4510 data no. something is missing!
 4520 data it was a tight squeeze!
 4530 data something won't fit
 4540 data since nothing is happening
 4550 data i slipped and fell...
 4560 data something falls out
 4570 data"they're plans to build a ship-you'll    need hammer,nails,lumber"
 4580 data i've no container
 4590 data it soaks into the ground
 4600 data too dry. fish vanish.
 4610 data pirate awakens. says 'aye matey we be   casting off soon-he vanishes
 4620 data what a waste...
 4630 data i've no crew
 4640 data pirate says 'aye matey-we be needing a  map first'
 4650 data after a day at sea we anchor off a sandybeach. all ashore...
 4660 data try 'weigh anchor'
 4670 data there's a map in it
 4680 data it's a map to treasure island. at bottomit says '30 paces and dig!'
 4690 data"    *welcome to pirates adventure*"
 4700 data its empty,i've no plans!,open it?,go there?,i found something!
 4710 data i didn't find anything,i don't see it here,"ok,i walked 30 paces"
 4720 data congratulations!!!  but your adventure  is not over yet...
 4730 data reading expands the mind,the parrot crys,'check the bag matey'
 4740 data'check the chest matey',from the other side!,open the book!
 4750 data there's multiple exits here!,crocks eat fish and leave
 4760 data i'm underwater.i can't swim. blub blub..
 4770 data'pieces of eight',its stuck in the sand,use one word
 4780 data pirate says'aye matey-we be waiting for the tide to come in'
 4790 data the tide is out,the tide is coming in
 4800 data about 60 pounds. try 'set sail','tides a changing matey'
 4810 data note here 'i be liking parrots. they be smart matey'
 4820 data pirate follows me ashore as if he is    waiting for something.
 4830 data flight of stairs,1
 4840 data open window,2,books in a bookcase,2,large leather-bound book/boo/,0
 4850 data bookcase with secret passage behind it,0,pirate's duffel bag/bag/,4
 4860 data sign on wall 'return treasures here-say score',1
 4870 data empty bottle/bot/,0
 4880 data unlit torch/tor/,4,lit torch/tor/,0,matches/mat/,0
 4890 data small ship's keel and mast,6,wicked looking pirate,9
 4900 data treasure chest/che/,9,mongoose/mon/,8,rusty anchor/anc/,24
 4910 data grass shack,8,mean and hungry-looking crocodiles,11
 4920 data locked door,11,open door with hall beyond,0,pile of sails/sai/,17
 4930 data fish/fis/,10,*doubloons*/dub/,25,deadly mamba snakes/sna/,25
 4940 data parrot/par/,9,bottle of rum/bot/,1,rug/rug/,0,ring of keys/key/,0
 4950 data open treasure chest/che/,0,set of plans/pla/,0,rug,1
 4960 data claw hammer/ham/,15,nails/nai/,0,pile of precut lumber/lum/,17
 4970 data tool shed,17,locked door,16,open door with pit beyond,0
 4980 data pirate ship,0,rock wall with narrow crack in it,18
 4990 data narrow crack in the rock,17,salt water,10
 5000 data sleeping pirate,0,bottle of salt water/bot/,0
 5010 data pieces of broken rum bottles,4,non-skid sneakers/sne/,1,map/map/,0
 5020 data shovel/sho/,15,mouldy old bones/bon/,0,sand/san/,6
 5030 data bottles of rum/bot/,0,*rare old priceless stamps*/sta/,0,lagoon,6
 5040 data the tide is out,24,the tide is coming in,0,water wings/win/,15
 5050 data flotsam and jetsam,0
 5060 data monastary,23
 5070 data plain wooden box/box/,0
 5080 data dead weasel,0," ",0," ",0
    0 rem
    1 rem pizza                  sept80
    2 rem
    3 rem logic game to teach coordinates         and position
    4 rem
    5 rem 8k pet
    6 rem
    7 rem s. erlewine modified by h.hungate 8 rem
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use & may not be{SHIFT--}
   24 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   90 dim s$(20),p(20),v(20),h(20)
  100 rem  modified by harriet hungate                   sept 80
  110 poke59468,12
  120 rem ** pizza * s.erlewine
  130 rem intro to coordinates
  140 rem based on idea from 101 basic games
  150 rem *** pet user group                          box 371
  160 rem     montgo]eryville, pa 18936       rem
  170 print"{clr}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}pizza"
  180 input"{down}{rght}{rght}{rght}{rght}{rght}do you want instructions {$a0}{$a0}{$a0}{left}{left}{left}";g$
  190 if left$(g$,1)="y" then gosub 2020:goto220
  200 if left$(g$,1)="n" then 220
  210 goto180
  220 input"{down}{down}what is your name{$a0}{$a0}{$a0}{left}{left}{left}";n$
  230 n$=left$(n$,10)
  240 print"{down}ok, "n$" you've got the job!
  250 print"{down}{down}   how many pizzas do you want
  260 input"   to deliver{$a0}{$a0}{$a0}{left}{left}{left}";zz
  270 if zz<17 then 310
  280 print"{down}{rght}{rght}{rght}...the oven only holds 16 !!!":goto250
  300 dataa,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p
  310 b=0:fori=1tozz:p(i)=0:nexti
  320 fori=1tozz:reads$(i):nexti
  330 restore
  340 for i =1 to zz
  350 x=int(rnd(7)*82)
  360 for c=1 to zz
  370 if p(c)=x goto 350
  380 next c
  390 p(i)=x
  400 next i
  410 rem set up grid
  420 print"{clr}"
  430 v=17
  440 printtab(v)"
  450 printtab(v)"  {CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}
  460 printtab(v)" 9{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  470 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  480 printtab(v)" 8{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  490 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  500 printtab(v)" 7{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  510 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  520 printtab(v)" 6{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  530 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  540 printtab(v)" 5{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  550 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  560 printtab(v)" 4{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  570 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  580 printtab(v)" 3{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  590 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  600 printtab(v)" 2{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  610 printtab(v)"  {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}
  620 printtab(v)" 1{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}
  630 printtab(v)"  {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}
  640 printtab(v)" 0 1 2 3 4 5 6 7 8 9
  650 print"{home}"
  660 rem print positions
  670 fori=1tozz
  680 x=p(i)/9
  690 if x-int(x)=0 goto 730
  700 v(i)= int(x)+1
  710 h(i)= p(i)-(int(x)*9)
  720 goto 750
  730 h(i)= 9
  740 v(i)=x
  750 gosub 1640
  760 gosub 1730
  770 print s$(i);
  780 next i
  790 rem print"{home}"
  800 rem for i= 1 to zz
  810 rem printp(i);" ";s$(i);","h(i);","v(i)
  820 rem next i
  830 rem find caller
  840 print"{home}"
  850 fori=1tozz
  860 ifp(i)<>0then890
  870 next i
  880 goto 1290
  890 i=int(rnd(7)*17)
  900 ifp(i)=0then890
  910 rem get guess
  920 gosub 1840
  930 print" ring!!  ring!!"
  940 print"{down}hello, "n$"?"
  950 print"{down}this is -"s$(i)"-"
  960 forz=1to100:next
  970 print"{down}would you send me"
  980 print"{down}a pizza?{down}"
  990 for k = 1to 1200: next k
 1000 print"thanks! goodbye.{down}{down}"
 1010 for k=1 to 2000: next k
 1020 gosub1840
 1030 print"the driver wants"
 1040 print"{down}to know where -"s$(i)"-"
 1050 print"{down}lives"
 1060 print"{down}how many across?"
 1070 getc$:ifc$=""or val(c$)=0 then 1070
 1080 h=val(c$)
 1090 print"{down}how many up?"
 1100 gets$:ifs$=""or val(s$)=0 then1100
 1110 v=val(s$)
 1120 print"{down}{down}ok. i'll go over{down}"
 1130 print h"and up "v
 1140 for k=1to(400+100*(h+v)):next k
 1150 rem guess correct?
 1160 c=0
 1170 p=(v-1)*9+h
 1180 if p=p(i)then goto 1210
 1190 if p<>p(i) then gosub 2460
 1200 goto 1060
 1210 gosub 2240
 1220 print"{down}{down}ready for "
 1230 print"{down}another call?"
 1240 get g$: if g$="" goto 1240
 1250 if g$="n" goto 1290
 1260 if g$="y" goto 830
 1270 gosub 1810
 1280 goto 1240
 1290 rem final balance
 1300 gosub 1840
 1310 if b>0 goto 1410
 1320 if b=0 goto 1370
 1330 print"sorry, "n$
 1340 print"{down}you lost $"b
 1350 goto 1440
 1360 if g$="y" goto 300
 1370 print"well, "n$
 1380 print"{down}you broke even."
 1390 print"{down}good experience!"
 1400 goto 1440
 1410 print"good work"
 1420 print"{down}"n$"!"
 1430 print"{down}you made $ "b
 1440 print"{down}{down}want to play
 1450 print"{down}again?"
 1460 get g$:if g$="y" then print"{clr}":goto250
 1470 if g$="n" goto 1510
 1480 goto 1460
 1490 gosub 1810
 1500 goto 1460
 1510 rem the end
 1520 print"{down}{down}ok, "n$
 1530 print"{down}see you later!"
 1540 end
 1550 rem find coordinates
 1560 x=p(i)/9
 1570 ifx-int(x)=0goto1610
 1580 v(i)=int(x)+1
 1590 h(i)=p(i)-(int(x)*9)
 1600 goto 1630
 1610 h(i)=9
 1620 v(i)=x
 1630 return
 1640 rem locate cursor
 1650 print"{home}";
 1660 for k=1 to 21
 1670 print"{down}";
 1680 next k
 1690 for k= 1 to 18
 1700 print"{rght}";
 1710 next k
 1720 return
 1730 rem move cursor
 1740 for k= 1 to h(i)
 1750 print"{rght}{rght}";
 1760 next k
 1770 for k= 1 to v(i)
 1780 print"{up}{up}";
 1790 next k
 1800 return
 1810 rem y or n sub
 1820 print"y or n please."
 1830 return
 1840 rem clr screen
 1850 print"{home}";
 1860 fork=1to2
 1870 print"                         "
 1880 next
 1890 for k=1 to 22
 1900 print"                  "
 1910 next k
 1920 print"                  {home}"
 1930 return
 1940 rem move cursor
 1950 for k= 1 to h
 1960 print"{rght}{rght}";
 1970 next k
 1980 for k= 1 to v
 1990 print"{up}{up}";
 2000 next k
 2010 return
 2020 rem        instructions
 2030 print"{clr}    your job is to take orders in the
 2040 print"{down}pizza parlor and tell the driver where
 2050 print"{down}to deliver the pizzas.
 2060 print"{down}    when asked, you tell the driver how
 2070 print"{down}many streets to go across (to the right)";
 2080 print"{down}and how many streets up.
 2090 print"{down}    when you give the right directions
 2100 print"{down}a happy customer calls to thank you and
 2110 print"{down}you make a dollar.
 2120 print"{down}    if you make a mistake you get
 2130 print"{down}complaints and you lose a dollar.
 2140 print"{down}{down}         are you ready";
 2150 input"{$a0}{$a0}{$a0}{left}{left}{left}";g$: if left$(g$,1)="y" then 2180
 2160 if left$(g$,1)="n" then 2020
 2170 goto 2150
 2180 print"{clr}"
 2190 return
 2200 rem balance
 2210 if c=0 then b= b-1
 2220 if c=1 then b=b+1
 2230 return
 2240 rem sub right answer
 2250 c=1
 2260 gosub 1840
 2270 gosub 1640
 2280 gosub 1730
 2290 print"S{home}"
 2300 print" ring. ring."
 2310 print"{down}hello, "n$"?"
 2320 print"{down}this is -"s$(i)"-"
 2330 print"{down}thanks for"
 2340 print"{down}the pizza!"
 2350 for k= 1 to 2500: next k
 2360 gosub 1840
 2370 p(i)=0
 2380 gosub 2200
 2390 printn$", you"
 2400 print"{down}made a dollar!"
 2410 print"{down}that makes"
 2420 print"{down}$"b" so far."
 2430 print
 2440 print"good work!"
 2450 return
 2460 rem wrong answer
 2470 c=0
 2480 for k=1to1500: next k
 2490 for z= 1 to 16
 2500 if p=p(z) goto 2650
 2510 next z
 2520 rem unoccupied
 2530 gosub 1640
 2540 gosub 1940
 2550 for k =1 to 25
 2560 print"!";
 2570 for q = 1 to 50  : next q
 2580 print"{left} {left}";
 2590 for q = 1 to 50  : next q
 2600 next k
 2610 gosub 1840
 2620 print"no one!s home!"
 2630 gosub 2200
 2640 goto 2780
 2650 rem occupied
 2660 gosub 1640
 2670 gosub 1940
 2680 print"?";
 2690 for k = 1 to 1500:next k
 2700 print"{left}"s$(z)"{left}";
 2710 gosub 1840
 2720 printn$" this is -"s$(z)"-"
 2730 print"{down}i didn't order"
 2740 print"{down}a pizza!"
 2750 for k= 1to2000: next k
 2760 gosub 1840
 2770 gosub 2200
 2780 printn$
 2790 print"{down} you lost"
 2800 print"{down}a dollar."
 2810 print"{down}what's "s$(i)"'s"
 2820 print"{down}address again?"
 2830 return
   10 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(11);"the planet miners!"
   20 printtab(4);"expansion into the solar system"
   25 print"{down}{down}";tab(11);"copyright 1980 by"
   26 print"{rght}{rght}avalon hill microcomputer games, inc."
   30 print"{down}{down}{down}{down}"
   80 datasun,0,0,0,mercury,57.9,7.1e-2,3,venus,108.2,2.8e-2,0
  110 data earth,149.6,1.7e-2,1,mars,227.9,9.2e-3,2
  120 data ceres,413.6,3.7e-3,2,jupiter,778,1.5e-3,7
  140 data saturn,1427,5.8e-4,6,uranus,2870,2e-4,1
  170 data neptune,4496,1e-4,1,pluto,5910,6.9e-5,1
  200 n1=10:s1=5:b1=4:e1=12:f1=10:m9=21:m8=33:s9=160:s8=75:d4=40
  280 dim p$(n1),r1(n1),a1(n1),a2(n1),q(n1),t(n1),m1%(n1,b1),s0%(b1-1,s1-1)
  350 dim s1%(b1-1,s1-1),s2%(b1-1,s1-1),s3%(b1-1,s1-1),s4%(e1-1),s5%(e1-1)
  490 dim s6%(e1-1),b$(b1-1),s%(b1-1),p(b1-1),o%(b1-1),h%(b1-1)
  560 d0=1:d3=d4+int(d4*rnd(1)/4):restore:fori=0ton1:readp$(i),r1(i),a2(i),x3
  590 forj=1tob1:m1%(i,j)=0:next:a1(i)=6.28*rnd(1)
  600 m1%(i,0)=int(x3*(rnd(1)+rnd(1)+rnd(1)+rnd(1))):next
  610 fori=0tob1-1:forj=0tos1-1:s0%(i,j)=0:s3%(i,j)=0:s1%(i,j)=3:s2%(i,j)=3:next
  630 fork=1tof1:j=int(rnd(1)*s1):s0%(i,j)=s0%(i,j)+1:next
  640 x3=-1:forj=0tos1-1:ifs0%(i,j)>=x3thenx3=s0%(i,j):h%(i)=j
  670 next:next
  680 forj=0tob1-1:readb$(j):next
  690 data siegler,aichi,reggiane,lysander
  750 forj=0toe1-1:p=1+int(n1*rnd(1)):s6%(j)=0:s4%(j)=p:s5%(j)=p:next
  770 fork=1tob1:print"ready to initialize player";k
  780 input"will a person play this player (y/n)";a$:ifa$<>"y"then910
  800 input"your family name";b$(k-1):s%(k-1)=1:goto920
  910 s%(k-1)=0
  920 o%(k-1)=k:p%(k-1)=0:next
  940 s=0:forp=1ton1:s=s+m1%(p,0):next:ifs=0or(do>d3andrnd(1)>.9)then4530
  950 t=0:forj=1ton1:gosub2340:t(j)=m%(j,0)-2*f
  960 fork=1tob1:t(j)=t(j)+m1%(j,k):next:ift(j)<0thent(j)=0
  980 ifj=3thent(j)=t(j)+10
  990 t=t+t(j):next
 1000 q(0)=0:forp=1ton1:q(p)=q(p-1)+m1%(p,0)/s:next:q(0)=s:t(0)=0:forp=1ton1
 1010 t(p)=t(p-1)+t(p)/t:next:t(0)=t:forj=0tob1-1:k=int(rnd(1)*b1):s=o%(j)
 1020 o%(j)=o%(k):o%(k)=s:next:fora=0tob1-1:p9=o%(a):ifs%(p9-1)=0then1080
 1060 print"{clr}commands for ";b$(p9-1);" for day";d0;":"
 1070 gosub1250:ifc=11then1090
 1071 goto1070
 1080 gosub3410
 1090 next:gosub3930:goto940
 1120 print"select from the following menu:"
 1140 print"1.  large solar system":print"2.  small solar system"
 1170 print"3.  travel times":print"4.  mining information"
 1180 print"5.  ships in orbit"
 1190 print"6.  your ship status":print"7.  set ship destination"
 1210 print"8.  protest a claim":print"9.  claim-jump"
 1230 print"10. sabotage":print"11. finished commands for today"
 1250 input"your command choice";c:ifc<1orc>11then1140
 1260 oncgoto1270,1280,1770,1870,1990,1290,2120,2360,3140,2610,1330
 1270 s7=s9:goto1281
 1280 s7=s8
 1281 print"centered at?":p6=0:gosub1360:j=p8:goto1570
 1290 j=p9:goto1470
 1330 return
 1340 print"select from the following planets:"
 1360 k=0:forp8=p6ton1:printtab(k*10);p8;"{left}-";p$(p8);:k=k+1
 1370 ifk=4thenk=0:print
 1380 next:ifk>0thenprint
 1381 input"your choice";p8:p8=int(p8):ifp8<p6orp8>n1then1340
 1391 return
 1400 print"select from the following families:"
 1420 fork=1tob1:ifk<>p9thenprintk;"-";b$(k-1)
 1450 next:input"your choice";p5:ifp5<1orp5=p9orp5>b1then1400
 1460 return
 1470 print
 1480 print"ship status of ";b$(j-1);" family":print"on day";d0
 1490 print"ship (skill)";tab(15);"from";tab(23);"to";tab(30);"days to go"
 1500 print"------------";tab(15);"----";tab(23);"--";tab(30);"----------"
 1510 fori=0tos1-1:ifs0%(j-1,i)<0then1550
 1520 printi+1;tab(6);"(";s0%(j-1,i);")";tab(15);
 1530 p8=abs(s1%(j-1,i)):printp$(p8);tab(23);
 1540 printp$(s2%(j-1,i));tab(31);s3%(j-1,i)
 1550 next:print:return
 1570 ifs7=s8thenprint"{clr}small";
 1590 ifs7>s8thenprint"{clr}large";
 1600 print" solar system centered on ";p$(j)
 1610 x1=r1(j)*cos(a1(j)):y1=r1(j)*sin(a1(j)):fork=0ton1
 1630 x2=r1(k)*cos(a1(k))-x1:y2=r1(k)*sin(a1(k))-y1:ifj=kthen1660
 1650 x3=sqr(sqr(x2*x2+y2*y2)):x2=x2/x3:y2=y2/x3
 1660 v=int((-y2+.5*s7)*m9/s7)+1:h=int((x2+.5*s7)*m8/s7)+1
 1670 ifv<1orv>m9orh<1orh>m8then1740
 1680 print"{home}";:forp2=1tom9-v+2:print"{down}";:next:forp2=1toh:print"{rght}";:next
 1690 ifk=0thenprint"*";
 1691 ifk>0thenprint"Q";
 1700 forp2=1to7:h=h+1:a=peek(32768+h+40*(m9-v+2))
 1710 ifh>39ora=42ora=81thenh=h-1:goto1730
 1715 ifp2<=len(p$(k))thenprintmid$(p$(k),p2,1);
 1716 ifp2>len(p$(k))thenprint" ";
 1730 next
 1740 next
 1750 print"{home}";:forp2=1to23:print"{down}";:next:input"input to continue";a$:return
 1770 print"{down}solar system travel times (days)":print"from/to";:forj=1ton1
 1800 printtab(7+3*j);j;:next:print"{left}-------";:forj=1ton1
 1810 printtab(47+3*j);"---";:next:forj=1ton1:printp$(j);str$(-j);:forp8=1ton1
 1850 gosub4470:printtab(7+3*p8);s;"{left}";:next:print"  ":next:print:return
 1870 print:print"mining concessions as of day";d0:print"planet";:forj=0tob1-1
 1890 printtab(10+5*j);left$(b$(j),4);:next:printtab(10+5*b1);"uncl"
 1920 print"------";:forj=0tob1:printtab(10+5*j);"----";:next:print:forp=1ton1
 1950 printp$(p);:forj=1tob1:printtab(10+5*(j-1));m1%(p,j);:next
 1970 printtab(10+5*b1);m1%(p,0):next:print:return
 1990 print:print"ships in planetary orbit on day";d0:print"planet";
 2010 forj=0tob1-1:printtab(10+5*j);left$(b$(j),4);:next
 2020 printtab(10+5*b1);"ptrl":print"------";:forj=0tob1
 2040 printtab(10+5*j);"----";:next:print:forj=1ton1:printp$(j);:fork=1tob1
 2090 printtab(10+5*(k-1));:gosub2300:printf;:next
 2100 printtab(10+5*b1);:gosub2340:printf:next:print:return
 2120 gosub1290
 2140 input"ship number";p7:ifp7<1orp7>s1then2140
 2150 ifs3%(p9-1,p7-1)=0ors1%(p9-1,p7-1)<0then2170
 2160 print"not allowed for that ship.":return
 2170 p6=1:print"destination:":gosub1360:j=abs(s1%(p9-1,p7-1)):gosub4470
 2210 s3%(p9-1,p7-1)=s:s1%(p9-1,p7-1)=-j:s2%(p9-1,p7-1)=p8:goto1290
 2220 f=0:forl=0tos1-1
 2240 if(s1%(k-1,l)=-j)or(s2%(k-1,l)=jands3%(k-1,l)=0)thenf=f+s0%(k-1,l)^2
 2250 next:f=int(sqr(f)):return
 2260 f=0:forl=0tos1-1
 2280 if(s1%(k-1,l)=-j)or(s2%(k-1,l)=jands3%(k-1,l)=0)thenf=l+1
 2290 next:return
 2300 f=0:forl=0tos1-1
 2320 if(s1%(k-1,l)=-j)or(s2%(k-1,l)=jands3%(k-1,l)=0)thenf=f+1
 2330 next:return
 2340 f=0:forl=0toe1-1:ifs5%(l)=jands6%(l)=0thenf=f+1
 2350 next:return
 2360 ifp(p9-1)=0then2420
 2380 print"the political climate on earth is":ifp(p9-1)>=1thenprint"very ";
 2400 print"inappropriate at this time for"
 2410 print"the ";b$(p9-1);" family.":goto4460
 2420 print"protest a claim at which planet?":p6=1:gosub1360
 2440 print"protest a claim of which family?":gosub1420:ifm1%(p8,p5)>0then2490
 2470 print"the ";b$(p5-1);" family has no"
 2480 print"concessions on ";p$(p8);".":return
 2490 print"your protest has been lodged."
 2500 print"earth's mining council is now"
 2510 print"considering it.":k=p9:j=3:d=int(6*rnd(1)):gosub2220:d=d+f:k=p5
 2520 gosub2220:iff>0thengosub4520
 2550 d=d-f:ifd<6then2580
 2555 print"the council finds a flaw":print"in the concession."
 2560 print"the concession is made public again.":p(p9-1)=.5
 2570 m1%(p8,p5)=m1%(p8,p5)-1:m1%(p8,0)=m1%(p8,0)+1:goto4460
 2580 print"the council finds no flaw in":print"the concession."
 2590 p(p9-1)=.5-.5*(d>2):goto2380
 2610 ifp(p9-1)=0then2650
 2630 print"this is a bad time to try -"
 2640 print"people are suspicious of the":printb$(p9-1);" family today.":return
 2650 print"attempt sabotage in orbit":print"around which planet?"
 2660 p6=1:gosub1360:k=p9:j=p8:gosub2260:iff>0then2680
 2670 print"you have no ships there.":return
 2680 print"attempt sabotage against which family?":gosub1420
 2700 k=p5:j=p8:gosub2260:iff>0then2720
 2710 print"no ships of the ";b$(p5-1);" family there.":return
 2720 p7=f:d=int(6*rnd(1))+int(6*rnd(1))
 2730 print"a sabotage is attempted against a ship":print"of the ";b$(p5-1);
 2740 print" family in orbit":print"around ";p$(p8);".":gosub4460
 2770 k=p9:j=p8:gosub2220:d=d+f:k=p5:gosub2220:d=d-f:gosub2340:ifd<7+fthen2820
 2780 print"sabotage suceeds. ";b$(p5-1);" ship"
 2785 print"out of control and spinning":print"out of orbit around ";p$(p8);"."
 2800 p5=p5-1:p7=p7-1:s3%(p5,p7)=int(d-6+6*rnd(1))
 2810 p=abs(s1%(p5,p7)):s1%(p5,p7)=0:s2%(p5,p7)=p:goto4460
 2820 print"attempted sabotage fails."
 2830 ifd<2then2870
 2840 print"however, the perpetrator escapes,"
 2850 print"leaving suspicions of ";b$(p9-1):print"tampering, but no proof."
 2860 p(p9-1)=.5:gosub4460:goto2380
 2870 print"an agent of the ";b$(p9-1);" family":print"is caught."
 2880 p(p9-1)=p(p9-1)+1:f=0:fork=0toe1-1
 2890 if(s4%(k)=-p8)or(s5%(k)=p8ands6%(k)=0)thenf=k+1
 2900 next:iff=0then3010
 2910 print"the earth patrol escorts the agent":print"and ship bach to earth."
 2920 f=f-1:s4%(f)=p8:s5%(5)=3
 2940 s=sqr(r1(p8)^2+r1(3)^2-2*r1(p8)*r1(3)*cos(a1(p8)-a1(3)))
 2950 s=-int(-sqr(s)*0.23383161):s6%(f)=s:k=p9:j=p8:gosub2260:f=f-1
 2960 s1%(p9-1,f)=p8:s2%(p9-1,f)=3:d=int(6-d+(6+10*p(p9-1))*rnd(1))+s
 2980 s3%(p9-1,f)=d:print"lawyers will bail him out in";d;"days."
 2990 gosub4460:goto2380
 3010 print"the ";b$(p5-1);" family tortures":print"the agent for information."
 3060 p5=p5-1:p7=p7-1:s0%(p5,p7)=s0%(p5,p7)+1
 3070 s1%(p5,p7)=p8:s2%(p5,p7)=p8:s3%(p5,p7)=1
 3080 k=p9:j=p8:gosub2260:f=f-1
 3100 s0%(p9-1,f)=s0%(p9-1,f)-1:s1%(p9-1,f)=p8
 3110 s2%(p9-1,f)=p8:d=int(6-d+6*rnd(1)):s3%(p9-1,f)=1+d
 3120 print"it will be";d;"days until he recovers."
 3130 gosub4460:goto2380
 3140 ifp(p9-1)>0then2380
 3160 print"jump a claim at which planet?":p6=1:gosub1360:k=p9:j=p8:gosub2260
 3170 iff>0then3190
 3180 print"you have no ships there.":return
 3190 print"attempt claim-jumping against":print"which family?":gosub1420
 3210 ifm1%(p8,p5)=0then2470
 3220 print"attempting to tamper with the ";b$(p5-1)
 3230 print"marker beacons on ";p$(p8);"...":d=int(6*rnd(1))+int(6*rnd(1)):k=p9
 3250 j=p8:gosub2220:d=d+f:k=p5:j=p8:gosub2260:p7=f:gosub2220:d=d-f:gosub2340
 3270 ifd>6+fthen3290
 3275 print"attempted tampering fails.":ifp7+f>0then2830
 3285 goto2840
 3290 print"the markers have been changed":gosub4460
 3300 print"the ";b$(p9-1);" family tries to sneak"
 3305 print"a change of ownership through":print"the mining council."
 3320 d=int(6*rnd(1))+int(6*rnd(1)):k=p9:j=3:gosub2220:d=d+f:k=p5:gosub2220
 3350 iff>0thengosub4520
 3360 d=d-f:ifd<7then3390
 3370 print"the concession is transferred.":p(p9-1)=.5:gosub4460
 3380 m1%(p8,p5)=m1%(p8,p5)-1:m1%(p8,p9)=m1%(p8,p9)+1:return
 3390 print"the attempt is thwarted":print"by adroit politics.":goto2590
 3410 forp7=0tos1-1:ifs3%(p9-1,p7)>0orp7=h%(p9-1)then3580
 3430 p8=s1%(p9-1,p7):j=p8:ifm1%(p8,0)>2*rnd(1)then3580
 3440 d=rnd(1):ifq(0)>12*rnd(1)then3480
 3460 t=-10*(p8=3):fors=0tob1:t=t+m1%(p8,s):next:ift*rnd(1)>1then3580
 3470 goto3510
 3480 fors=1ton1:ifq(s)<dthen3500
 3490 p8=s:s=n1
 3500 next:goto3550
 3510 ifrnd(1)<.25then3540
 3511 fors=1ton1:ift(s)<dthen3530
 3520 p8=s:s=n1
 3530 next:goto3550
 3540 p8=3
 3550 s2%(p9-1,p7)=p8:s1%(p9-1,p7)=-j:gosub4470:s3%(p9-1,p7)=s
 3580 next
 3590 forj=1ton1:p8=j:ifp(p9-1)>0then3780
 3605 k=p9:gosub2300:x3=f:iff=0then3780
 3620 gosub2340:x3=x3-f:fork9=1tob1:k=o%(k9-1):ifk=p9then3770
 3630 p5=k:ifp(p9-1)>0then3770
 3640 gosub2300:if(x3-f)*.4+.1<rnd(1)then3770
 3645 x4=f
 3660 ifx4=0orp(p9-1)>0then3680
 3665 x5=k:gosub2700:k=x5:p5=k:ifp(p9-1)>0then3770
 3675 x4=x4-1:goto3660
 3680 ifm1%(p8,p5)=0then3710
 3690 x6=m1%(p8,p5):x5=k:gosub3220:k=x5:ifp(p9-1)>0then3770
 3700 x6=x6-1:ifx6>0then3690
 3710 ifp8<>3then3770
 3720 p8=0:forx5=1ton1:ifm1%(x5,p5)=0then3740
 3730 p8=x5:x5=n1
 3740 next:ifp8=0then3770
 3750 gosub4490
 3760 x5=k:gosub2500:k=x5:ifp(p9-1)=0then3720
 3770 p8=j:next
 3780 next
 3790 ifp(p9-1)>0orq(0)>12*rnd(1)thenreturn
 3800 x4=0:fork9=1tob1:k=o%(k9-1):x5=0:forj=1ton1:x5=x5+m1%(j,k):next
 3820 ifx5<x4then3830
 3825 x4=x5:x3=k
 3830 next:ifx4=0orx3=p9thenreturn
 3835 k=x3
 3840 p8=0:p5=k:k=p9:forj=n1to1step-1:f=0:forl=0tos1-1:ifs2%(p9-1,l)=jthenf=1
 3850 next:ifm1%(j,p5)=0orf=0then3870
 3860 p8=j:j=1
 3870 next:ifp8>0then3910
 3880 forj=1ton1:ifm1%(j,p5)=0then3900
 3890 p8=j:j=n1
 3900 next:ifp8=0thenreturn
 3910 gosub4490:goto2500
 3930 forp7=0toe1-1:ifs6%(p7)>0then4110
 3960 p8=s4%(p7):j=p8:ifp8=3orm1%(p8,0)>0then4110
 3970 d=rnd(1):ifq(0)>12*rnd(1)then4010
 3990 t=-10*(p8=3):fors=0tob1:t=t+m1%(p8,s):next:ift*rnd(1)>1then4110
 4005 goto4040
 4010 fors=1ton1:ifq(s)<dthen4030
 4020 p8=s:s=n1
 4030 next:goto4080
 4040 ifrnd(1)<.25then4070
 4045 fors=1ton1:ift(s)<dthen4060
 4050 p8=s:s=n1
 4060 next:goto4080
 4070 p8=3
 4080 s5%(p7)=p8:s=sqr(r1(p8)^2+r1(j)^2-2*r1(j)*r1(p8)*cos(a1(p8)-a1(j)))
 4100 s6%(p7)=-int(-sqr(s)*0.16534392)
 4110 next
 4120 fork=0tob1-1:forj=0tos1-1:ifs3%(k,j)>0thens3%(k,j)=s3%(k,j)-1
 4140 ifs3%(k,j)>0orabs(s1%(k,j))=s2%(k,j)then4180
 4150 printb$(k);" ship enters orbit":print"around ";p$(s2%(k,j));"."
 4170 gosub4460:s1%(k,j)=s2%(k,j)
 4180 s1%(k,j)=abs(s1%(k,j)):next:next
 4190 fork=0toe1-1:ifs6%(k)>0thens6%(k)=s6%(k)-1
 4200 ifs6%(k)>0then4220
 4210 s4%(k)=s5%(k)
 4220 next
 4230 forl=0ton1:a1(l)=a1(l)+a2(l):next
 4240 fork=0tob1-1:j=int(rnd(1)*b1):s=o%(k):o%(k)=o%(j):o%(j)=s:next
 4260 fork=0tob1-1:j=o%(k)-1:ifp(j)>=1then4430
 4270 p9=j+1:forl=0tos1-1:ifs3%(j,l)>0then4420
 4280 p8=s1%(j,l):ifm1%(p8,0)=0orp(j)>=1then4420
 4290 d=int(6*rnd(1))+int(6*rnd(1)):x3=k:k=p9:x4=j:j=p8:x5=l
 4300 gosub2220:k=x3:j=x4:l=x5:d=d+f-4*p(j):ifd>4then4310
 4305 goto4420
 4310 print"the mining council grants a mining"
 4320 print"concession on ";p$(p8);" to the"
 4330 printb$(j);" family.":gosub4460:d=int(6*rnd(1))+int(6*rnd(1)):k=p9:j=3
 4360 gosub2220:k=x3:j=x4:l=x5:d=d+f:m1%(p8,0)=m1%(p8,0)-1
 4370 m1%(p8,p9)=m1%(p8,p9)+1:ifd>4andp(j)=0then4420
 4380 print"no more concessions will be granted"
 4390 print"to the ";b$(j);" family today.":gosub4460:p(j)=1
 4420 next
 4430 p(j)=-(p(j)-1)*(p(j)>=1)
 4440 next
 4450 d0=d0+1:return
 4460 forx9=1to2500:next:print:return
 4470 s=r1(j)*r1(j)+r1(p8)*r1(p8):s=sqr(s-2*r1(p8)*r1(j)*cos(a1(j)-a1(p8)))
 4480 s=-int(-sqr(s)*0.23383161):return
 4490 print"the ";b$(p9-1);" family is lodging"
 4500 print"a protest against a claim of the":printb$(p5-1);" family on ";
 4510 printp$(p8);".":goto4460
 4520 print"this attempt is being fought by the":printb$(p5-1);" family.":return
 4530 print"the mining council declares":print"all concessions closed."
 4540 print"end of game report:":gosub1870:input"input to continue";a$
 4560 print"family";tab(15);"concessions":forp=0tob1-1:printb$(p);
 4570 printtab(15);:s=0:forl=0ton1:s=s+m1%(l,p+1):next:prints:next:print
 4600 input"another game (y/n)";a$:ifa$="y"then560
    1 poke59468,12
   10 rem planet probe, from nestar disk
   11 rem "improoved" by ken laws
   50 dim a$(1), b$(40)
  100 f=0:m=1
  110 k=3.5
  115 w(1)=123:w(2)=108:w(3)=126:w(4)=124
  120 b=4.5:r=2:t=1:s=1  
  130 c1=20.5:c2=12.5    
  135 print chr$(147);
  138 print"     ---> planet probe <---"
  140 print"  would you like instructions";
  142 gosub 2000
  144 if left$(a$,1) <>"n" goto 150
  146 f=1:goto 400
  150 print chr$(19);"you will be flying a spaceship past a"
  160 print"planet, like this . . .               "
  170 goto 460
  200 print chr$(147);
  205 f=1
  210 print"   as you can see, gravity pulls the"
  220 print"ship toward the planet.  the ship you"
  230 print"just saw did not get close enough to"
  240 print"the planet to get a clear picture"
  250 print"of the planets' surface."
  260 print
  270 print"   your mission is to get close enough"
  280 print"to the planet to get a good picture."
  290 print"i will tell you when you get a good"
  300 print"picture."
  305 print
  310 print"   there are eight"
  315 print"rockets on the ship"
  320 print"to help you guide it ---->    7 8 9"
  325 print"   as shown, rocket #2"
  330 print"is on the bottom and          4 * 6"
  340 print"will push the ship up."
  345 print"similarly rocket #6 will      1 2 3"
  350 print"push the ship to the left."
  360 print
  370 print"press return when you are ready to"
  375 print"try flying the ship."
  380 get a$
  385 if a$="" goto 380
  390 goto 450
  400 if f<=2 goto 450
  405 if f>3 goto 430
  410 print chr$(17);"you are doing pretty well.  would you"
  415 print"like to try a heavier planet";
  420 gosub 2000        
  425 goto 440
  430 print chr$(17);"how many times as heavy as the first"
  432 print"planet should the next planet be";
  434 input m
  440 if f>3 goto 450
  441 for j=1 to 5 : printchr$(17) : next j
  442 print"you might also want to try getting"
  444 print"your ship in orbit around the planet."
  446 for j=1 to 2000:next j
  448 f=f+1:if left$(a$,1)="n" then f=2
  450 print chr$(147);
  460 p1=1:p2=21:v1=1.3:v2=0
  470 p3=p1:p4=p2
  480 l=0:i=1
  495 q=32
  500 for j=1 to 11+(sgn(f)-1)*2: print:next j
  510 print tab(18);chr$(18);"{SHIFT-POUND}  {CBM-*}"
  520 print tab(18);chr$(18);"    "
  530 print tab(18);chr$(18);"    "
  550 print tab(18);"{CBM-*}";chr$(18);"  ";chr$(146);"{SHIFT-POUND}"
  560 print chr$(19)
  590 goto755            
  610 get a$
  620 j=val(a$)-1:if j=-1 then j=4
  630 j2=int(j/3)-1:j1=j-3*(j2+1)-1
  635 if j=4 then 700
  640 z1=z+j1-40*j2 : q1=peek(z1)
  645 for j=1 to 20 : get a$ : next j
  650 if abs(p4+j2-13.5)>12 goto 700
  655 if abs(p3+j1-20.5)>20 goto 700
  660 poke z1,46
  665 for j=1 to 30 : next j
  670 z2=z1+j1-40*j2 : q2=peek(z2)
  680 if abs(p4+2*j2-13.5)>12 goto 700
  685 if abs(p3+2*j1-20.5)>20 goto 700
  690 poke z2,46
  700 i=1
  702 if j<>4 then 710
  704 for j=1 to 50 : next j
  710 a=k*m/d^3:a1=a*(c1-p1):a2=a*(c2-p2)
  720 v1=v1-.1*j1+a1:v2=v2-.1*j2+a2
  730 p1=p1+v1:p2=p2+v2
  735 poke z,q : poke z1,q1 : poke z2,q2
  755 p3=int(p1+.5):p4=int(p2+.5)
  760 if abs(p3-20.5)>20 then 900
  762 if abs(p4-13.5)>12 then 900
  780 z=33767-40*p4+p3:q=peek(z)
  782 u=1
  784 if sgn(p1-p3)=1 then u=u+1
  786 if sgn(p2-p4)=1 then u=u+2
  790 poke z,w(u)
  795 d=sqr((c1-p1)^2+(c2-p2)^2)
  800 if d>b goto 840
  810 l=l+1
  815 if l>1 then 830
  820 print tab(14);"good picture"
  825 if f=1 then print"now try to fly your ship off the screen"
  830 if d<r goto 860
  840 if i>=s goto 610
  850 i=i+1: goto 710
  860 print tab(18);"crash!!"
  890 goto 950
  900 if f=0 goto 200
  905 print
  910 if l>0 then print tab(17);"success!!"
  920 if l>0 goto 940
  930 print "    you didn't get close enough to the"
  935 print"   planet for a good picture"
  940 f=f+sgn(l)
  950 forj=1 to 20 : get a$ : next j
  960 print "  would you like to play again";
  970 gosub 2000      
  980 if left$(a$,1)="y" goto 400
 1000 print"{clr}"
 1002 fori=1to3:forj=1to22
 1004 printtab(39*rnd(1))".":nextj:print"{home}":nexti:print"{home}{down}{down}{down}"
 1005 t=200
 1006 print"          NPOM   {SHIFT--}"
 1008 print"     <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{up}{left}{left}{up}";
 1009 forr=1to10
 1010 print"){left}";:fori=1tot:next
 1012 print"Q{left}";:fori=1tot:next
 1014 print"({left}";:fori=1tot:next
 1016 print"W{left}";:fori=1tot:next
 1018 next
 1020 t=900:print"({down}{down}";:fori=1tot:next
 1022 print"M{left}";:fori=1tot:next
 1024 print" {up}{left}{CBM-@}";:fori=1tot:next
 1026 printspc(21)"{down}";:fori=1to23:print"_{left}";
 1027 forf=0to0
 1028 print" {left}{left}";:nexti:print"{rght}";
 1030 print"{up} {down}{left}M{left}";:fori=1tot:next
 1032 t=1500:print">{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}";:fori=1tot:nexti
 1034 print"{CBM-T}{rght}{rght}{CBM-T}{left}{left}{left}{left}";:fori=1tot:nexti
 1036 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}";:fori=1tot:nexti
 1038 print"    {up}{rght}{rght}{rght}";:fori=1tot:nexti
 1040 print"{CBM-@}{left}";:fori=1tot:nexti
 1042 print" {down}{left}{CBM-R}{left}";:fori=1tot:nexti
 1044 print"{CBM-@}{left}";:fori=1tot:nexti
 1046 print" {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:fori=1tot:nexti
 1048 print"  <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1049 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1050 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1051 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1052 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1053 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}{left}";
 1054 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}{left}";
 1055 print  " <{CBM-+}{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}{left}";
 1056 print  " <{CBM-+}{CBM-+}{CBM-+}>{left}{left}{left}{left}{left}";
 1057 print  " <{CBM-+}{CBM-+}>{left}{left}{left}{left}";
 1058 print  " <{CBM-+}>{left}{left}{left}";
 1059 print  " <>{left}{left}";
 1060 print"QQ{left}{left}";
 1061 print"WW{left}{left}";
 1062 print"QWQ{left}{left}{left}";
 1063 print"Q Q{left}{left}{left}";
 1064 print"W W{left}{left}{left}";
 1065 print"  W{left}{left}{left}";
 1066 print"   {left}{left}{left}";
 1999 goto 1999
 2000 rem input routine should go here
 2010 input a$
 2020 return
    0 clr:poke59468,12
    1 rem plot copyright (c) 1978 glen fisher
    2 rem cursor #1, july, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 15 may 80
   90 pg$="plot":nm$="1":gosub62000
  100 clr:dimsq(15)
  103 fori=0to15:readsq(i):nexti
  104 crt=32768
  105 print"{clr}{down}{down}{down}{down}{down}{down}i can plot four functions:"
  110 print
  120 print" 1: sin(x), 0<=x<=4~"
  130 print" 2: tan(x), 0<=x<=4~"
  140 print" 3: x^3+x^2+x,-1.25<=x<=0.75"
  150 print" 4: a user-specified function"
  160 print"    it should be put at lines 800-999"
  170 print
  180 print"{down}please choose one: ";:gosub60000:f=val(in$)
  190 iff<1orf>4thenprint:print"please type a number from 1 to 4":goto180
  200 print"{down}thank you."
  210 t=ti+50
  220 ifti<tthen220
  230 print"{clr}"
  240 onfgoto500,600,700,800
  500 forx=0to79
  510 :y=25+20*sin(x/20*~)
  520 gosub1000
  530 nextx
  540 goto2000
  600 forx=0to79
  605 ifx=10then650
  610 y=25+3*tan(x/20*~)
  620 ify<0ory>49then650
  640 gosub1000
  650 nextx
  660 goto2000
  700 ya=25:xa=50:gosub1500
  703 forx=0to79
  705 x1=(x-50)/40
  710 y=25+((x1*x1+x1)*x1)*30
  720 ify<0ory>49then740
  730 gosub1000
  740 nextx
  750 goto2000
  800 forx=0to79
  810 y=x/8*5
  830 gosub1000
  840 nextx
  850 goto2000
  999 end
 1000 data32,126,124,226,123,97,255,236,108,127,225,251,98,252,254,160
 1005 rx=int(x+.5):ry=int(49-y+.5)
 1010 sq=2*(ryand1)+(rxand1):sq=2^sq
 1020 rx=int(rx/2):ry=int(ry/2)
 1030 sp=peek(crt+40*ry+rx)
 1040 forii=0to15:ifsp=sq(ii)then1070
 1050 nextii
 1060 ii=0:rem garbage-assume blank
 1070 ii=iiorsq:sp=sq(ii)
 1080 pokecrt+40*ry+rx,sp
 1090 return
 1500 y=ya:forx=0to79:gosub1000:nextx
 1510 x=xa:fory=0to49:gosub1000:nexty
 1520 return
 2000 t=ti+60
 2010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 2020 print"want another? ";:gosub60000:t$=in$
 2030 t$=left$(t$,1)
 2040 ift$="y"then100
 2060 print"{clr}":end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}{down}";tab(9);"cursor #1  plot
 62010 print"{down}copyright (c) 1978  by glen fisher
 62020 gosub60500
 62030 print"{down}plot some dots"
 62040 print"{down}{down}press {rvon}return{rvof} to begin"
 62045 geta$:ifa$=""then62045
 62050 return
  100 print"{down}poetry     jim butterfield"
  110 n=rnd(0)
  120 input"{down}want instructions";z$
  130 ifasc(z$)=78goto300
  140 print"{down}this program writes poems..."
  150 print"{down}you can change it to write poems"
  160 print"of your choice by changing the list"
  170 print"of words .. found in data statements"
  180 print"from 300 to 400.  you can also change"
  190 print"the line structure.{down}"
  200 print"just put in the type of words that"
  210 print"suit the type of poem you want.."
  220 print"  for scenic poems - 'hills,fields,.."
  230 print"  romance - lips,eyes,soft,lovely.."
  240 print"  moods - dark,brooding,grim,.."
  250 print"do your own thing..."
  260 print"   ..starting with hitting any key."
  270 get z$:ifz$=""goto270
  295 data cats, lions, tigers, pumas
  300 data felines,leopards,cheetas,jaguars,n
  310 rem above was theme nouns
  320 data stalk,lie,wait,yawn,purr,doze,sleep,creep,pace,glide,v
  330 rem above were theme verbs
  340 data huge,golden,glowing,fierce,hungry,sleek,lithe,j
  350 rem above were theme adjectives
  360 data silently,fiercely,gracefully,lazily,hungrily,splendidly,a
  370 rem above were theme adverbs
  380 data *,n!,nv,nva,jn,jjn,"j,j",nva,aj,aaj,"aj,aj",jnv,jnva,"nv,nv","$"
  390 rem above was line structures
  450 t=ti
  460 t=t/1000:j=int(-t):ift>=1goto460
  500 dima$(100),k$(6),e(6)
  510 c=0:n=0:e(0)=1
  520 reada$
  530 ifa$="$"goto560
  540 iflen(a$)>1orp$="*"thenn=n+1:a$(n)=a$:goto520
  550 c=c+1:e(c)=n+1:k$(c)=a$:p$=a$:goto520
  560 t=n-e(c-1)
  570 print"{clr}{down}":l=int(rnd(1)*5)+3
  600 for l1=1tol
  610 s=int(rnd(1)*t)+e(c-1)
  620 s$=a$(s)
  630 forj=1tolen(s$)
  640 k$=mid$(s$,j,1)
  650 fork=1toc-1:ifk$=k$(k)goto800
  655 nextk:printk$;
  660 nextj:print
  680 nextl1
  690 getz$:ifz$<>""goto690
  700 t2=ti+1200:print"{down}{down}{rvon} another poem? {rvof}";
  710 getz$:ifz$<>""goto730
  720 z$="y":ift2>tigoto710
  730 ifasc(z$)<>78goto570
  740 end
  800 s=int(rnd(1)*(e(k)-e(k-1)))+e(k-1)
  810 print" ";a$(s);:goto660
    1 rem copyright (c) 1979, isi (p)
    2 poke59468,14:print"{clr}{down}{down}{down}{down}"tab(5)"instant software  PRESENTS ..."
    3 print"{down}{down}{down}{down}{down}"tab(17)"{rvon} poker {rvof}{down}{down}{down}{down}{down}{down}{down}"
    4 printtab(9)" copyright (c) 1979,                  instant software, inc. (p)
    5 fori=1to4000:next:print"{clr}":poke59468,12
   10 print"{clr}do you want {rvon}2{rvof} or {rvon}3{rvof} betting rounds ?";
   12 x=rnd(1):getx$:be=val(x$):ifbe=0goto12
   15 printbe:ifbe<>2andbe<>3goto10
   20 dimm(4,14),v(2,14),h(4,2),r(5),f(9),p(14),l(14)
   38 data0
   40 data00000100000001000000
   42 data01000000010000000100
   44 data00001010000010100000
   46 data10100000010000001010
   48 data10100000101000001010
   50 data10100100101000001010
   52 data10100100101001001010
   54 data10101010010010101010
   56 data10101010101010101010
   58 data01110010001010101110
   60 data11111001100110111111
   62 data10011010110010101001
   64 data00000000010000000000
  120 m(1,1)=32920:m(2,1)=33400:t9=30:tu=1:sw=1
  130 fori=1to14:readx$:nexti
  240 fori=1to4:readc(i):next
  250 data193,216,211,218
  260 fori=1to14:readl(i):next
  280 data176,178,179,180,181,182,183,184,185,177,138,145,139,129
  300 data1,4,7,10,15,15,20,25,25
  310 fori=1to9:readf(i):next
 1025 m0(2)=5000:m0(1)=5000:goto1510
 1500 fori=1to3000:next
 1510 printchr$(147):print;
 1530 printtab(21)"human:":printtab(23)"pet"
 1560 x=14:gosub9800:printtab(10)"pot:   human    pet"
 1600 bl=4*rnd(1):ifbl>3.5then1800
 1630 bl=(rnd(1)/5)+1
 1800 fl=1:m0(3)=10:m0(4)=10:m0(1)=m0(1)-10:m0(2)=m0(2)-10:gosub8800
 1910 fori=1to4:forj=2to14:m(i,j)=0:next:next
 2020 n0=5:n3=3:v0=1:gosub 8200:gosub7700
 2060 v0=2:gosub8200:gosub8400:gosub9000
 2200 n0=2:sw=sw*-1:ifsw>0then4000
 3000 ca=0:printchr$(19);"                     ";chr$(19);
 3020 input"your bet";x$:gosub9900
 3030 ifleft$(x$,1)<>"c"then3060
 3040 ifm0(3)=m0(4)then3010
 3050 ca=1:b1=m0(4)-m0(3):goto3090
 3060 ifleft$(x$,1)<>"f"thenb1=val(x$):ifb1>0then3080
 3070 tur=tur+1:gosub7230:goto1500
 3080 ifb1+m0(3)<m0(4)then3000
 3085 ifb1<>int(b1)goto3010
 3090 ifb1>500then3000
 3095 m0(3)=m0(3)+b1:m0(1)=m0(1)-b1:gosub8800
 3100 ifm0(3)>m0(4)then4000
 3105 ca=1
 3110 onflgosub7500,7500,7000
 3120 iffl=4then1500
 4000 ifm0(4)=m0(3)then4070
 4020 ifnot(m0(3)>liandm0(4)<2.5*av)then4040
 4030 tu=tu+1:x=1:gosub9800:print"pet folds.":gosub7210:goto1500
 4040 b2=m0(3)-m0(4)
 4050 ifm0(3)>lithen4110
 4060 ifrnd(1)>.2+(.17*t0(2))then4110
 4065 b2=b2+int(.5+rnd(1)*av):goto4110
 4070 b2=int(abs(li-m0(4))/3)+10
 4075 ifrnd(1)>.8then4110
 4080 ifb2>4*avthenb2=4*av
 4110 ifb2>500thenb2=500
 4113 m0(4)=m0(4)+b2:m0(2)=m0(2)-b2:gosub8800
 4115 ifm0(4)>m0(3)then4140
 4120 x=1:gosub9800:print"pet calls"
 4125 onflgosub7500,7500,7000
 4130 onflgoto4140,3000,3000,1500
 4140 x=1:gosub9800:print"pet bets"b2:goto3000
 7000 x=2:gosub9800
 7007 ifca=1thenv0=2:gosub7700
 7010 ift0(1)>t0(2)then7210
 7020 ift0(1)=t0(2)then7030
 7022 ifca=0thenv0=2:gosub7700
 7025 goto7230
 7030 fori=14to2step-1
 7040 ifv(1,i)>=2andv(2,i)<2then7210
 7050 ifnot(v(1,i)<2andv(2,i)>=2)then7060
 7055 ifca=0thenv0=2:gosub7700
 7057 goto7230
 7060 ifv(1,i)=v(2,i)andv(1,i)>=2then7080
 7070 nexti
 7080 fori=14to2step-1
 7090 ifv(1,i)>v(2,i)then7210
 7100 ifv(2,i)=v(1,i)then7110
 7105 ifca=0thenv0=2:gosub7700
 7107 goto7230
 7110 nexti
 7120 print"draw":goto7240
 7210 print"the human wins.":m0(1)=m0(1)+m0(3)+m0(4):w1=w1+1:goto7240
 7230 x=2:gosub9800:print"pet wins! ";:m0(2)=m0(2)+m0(3)+m0(4):w2=w2+1
 7235 ifw2>1thenprint" (again)"
 7240 fl=4:return
 7500 fori=1to5:r(i)=0:next
 7510 print"{home}                     {home}";
 7520 input"discards:";x$:x1=len(x$):n0=0
 7535 ifx$="n"then7670
 7537 ifval(x$)=0then7500
 7540 ifx1>4 then 7510
 7550 for i=1 to x1
 7555 x=val(left$(x$,1))
 7560 ifx<1orx>5then7505
 7562 ifr(x)=xthen7575
 7565 n0=n0+1:r(x)=x:ifi=x1then7575
 7570 x$=right$(x$,x1-i)
 7575 nexti
 7580 x=0
 7590 forc=2to14
 7595 forr=1to4
 7600 ifm(r,c)<>1then7630
 7605 x=x+1
 7610 fori=1to5
 7615 ifr(i)<>xthen7620
 7617 m(r,c)=-1
 7620 nexti
 7630 nextr
 7640 nextc
 7650 n3=n0:v0=1:gosub8200:gosub7700
 7670 v0=2:gosub9500:fl=fl+1
 7680 ifbe=2thenfl=fl+1
 7685 gosub8400:gosub9000
 7690 return
 7700 i=0
 7720 forc0=2to14
 7730 forr0=1to4
 7740 ifm(r0,c0)=v0theni=i+1:gosub8000:gosub8100:gosub8300
 7750 nextr0
 7760 nextc0
 7770 return
 8000 x=-3:ifv0=1goto8030
 8020 x=-15
 8030 gosub9800:forr=1to9:printchr$(13);tab((i-1)*8)"{rvon}       ";:next
 8040 printchr$(19)"{rvof}";:return
 8050 return
 8100 restore
 8120 fori1=1toc0:readx$:nexti1
 8150 x=0
 8160 fori1=0to4
 8165 forj1=0to3
 8169 x=x+1:y$=left$(x$,1)
 8171 ifx=20then8175
 8172 l=len(x$)
 8173 x$=right$(x$,l-1)
 8175 ify$="0"then8185
 8180 pokem(v0,1)+8*i+40*i1+j1+82,c(r0)
 8185 next:next:return
 8200 ifn0=0then8270
 8210 fori1=1ton0
 8220 c0=int(13*rnd(1))+2
 8230 r0=int(4*rnd(1))+1
 8240 ifm(r0,c0)<>0then8220
 8250 m(r0,c0)=v0
 8260 next
 8270 return
 8300 pokem(v0,1)+8*i,l(c0)
 8320 ifc0<>10then8340
 8330 pokem(v0,1)+8*i+1,l(1)
 8340 pokem(v0,1)+8*i+8*40+6,l(c0)
 8350 ifc0<>10then8390
 8360 pokem(v0,1)+8*i+325,l(10)
 8370 pokem(v0,1)+8*i+326,l(1)
 8390 return
 8400 forr=1to2:forc=2to14:v(r,c)=0:next:next
 8440 forr=1to4:forc=1to2:h(r,c)=0:next:next
 8466 forr=1to4:forc=2to14
 8480 ifm(r,c)<=0then8510
 8490 v(m(r,c),c)=v(m(r,c),c)+1
 8500 h(r,m(r,c))=h(r,m(r,c))+1
 8510 next
 8520 next:return
 8800 print"{home}":printtab(27)"            ":printtab(27)"            "
 8825 print"{home}":printtab(27)"{rvon}$"m0(1)tab(34)"w#";w1
 8830 x=2:gosub9800:printtab(27)"{rvon}$"m0(2)tab(34)"w#"w2
 8840 x=15:gosub9800
 8850 x=15:gosub9800:printtab(18)"{rvon}"m0(3)tab(26)m0(4)
 8860 ifm0(1)+m0(3)<1thenprint"pet is victorious!":end
 8870 ifm0(2)+m0(4)<1thenprint"congrats! you cleaned me out.":end
 8890 return
 9000 fori=1to2
 9020 s=0
 9040 forj=2to10
 9050 ifv(i,j)=0then9100
 9060 fork=j+1toj+4
 9070 ifv(i,k)=0then9110
 9080 next
 9090 s=1:goto9110
 9100 next
 9110 forj=1to4
 9130 ifh(j,i)<>5then9170
 9140 ifs=1thent0(i)=9:goto9470
 9150 t0(i)=6:goto 9470
 9170 next
 9180 ifs=1thent0(i)=5:goto9470
 9190 forj=2to14
 9210 ifv(i,j)<>4then9240
 9220 t0(i)=8:goto9470
 9240 next
 9250 forj=2to14
 9270 ifv(i,j)<>3then9350
 9280 fork=2to14
 9290 ifk=jthen9330
 9300 ifv(i,k)<>2then9330
 9310 t0(i)=7:goto9470
 9330 nextk
 9340 t0(i)=4:goto9470
 9350 nextj
 9360 forj=2to14
 9380 ifv(i,j)<>2then9450
 9385 ifj=14then9440
 9390 fork=j+1to14
 9400 ifv(i,k)<>2then9430
 9410 t0(i)=3:goto9470
 9430 nextk
 9440 t0(i)=2:goto9470
 9450 nextj
 9460 t0(i)=1
 9470 nexti
 9480 gosub9840:return
 9500 ift0(2)<>1then9630
 9520 fori1=1to4
 9530 ifh(i1,2)>=4then9550
 9540 nexti1:goto9570
 9550 fori1=1to4
 9555 ifh(i1,2)=1thenh(i1,2)=-1
 9560 nexti1:goto9680
 9570 x=0
 9580 fori1=2to14
 9585 ifi1>15-blgoto9680
 9590 ifv(2,i1)<>1then9620
 9600 v(2,i1)=-1:x=x+1
 9610 ifx=4then9680
 9620 next
 9625 goto9680
 9630 ift0(2)>4then9680
 9640 fori1=2to14
 9645 ifi1>16-blgoto9670
 9650 ifv(2,i1)<>1then9670
 9660 v(2,i1)=-1
 9670 next
 9680 n0=0
 9700 forc=2to14:forr=1to4
 9720 ifm(r,c)<>2then9740
 9730 ifv(2,c)=-1orh(r,2)=-1thenm(r,c)=-1:n0=n0+1
 9740 next:next
 9770 gosub8200:x=2:gosub9800:print"pet tosses"n0"card";:ifn0<>1thenprint"s";
 9775 print".":return
 9800 print"{home}";:fori1=1toabs(x):print:next:ifx<0thenreturn
 9825 print"                     "chr$(13)"{up}";:return
 9840 t9=t9+b1:tu=tu+1:av=int(t9/tu)
 9870 li=20+int(av*f(t0(2))*bl*((2+n3)/5))
 9880 ifli<fl*avandfl<bethenli=fl*av
 9890 return
 9900 print"{home}             {home}{down}            {home}{down}{down}            ":return
    0 clr:pg$="poker":nm$="22":goto62000
    1 " copyright(c)1980 david hook
    2 " 58 steel st.
    3 " barrie,ontario,canada,l4m 2e9
    4 "
    5 " cursor #22, sep 1980
    6 " the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 " as of 08 oct 80
  100 dim ds(4),a%(51),b%(4,3),h%(13),d%(1,1),o%(8),o$(8)
  110 dima$(13),c%(10,7),s$(2,3),f$(3,7)
  120 bl$="                                       "
  130 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 md$=left$(b$,14):c=52:i=rnd(-ti)
  150 fori=1to13:reada$(i):h%(i)=0:next
  155 dataa,2,3,4,5,6,7,8,9,10,j,q,k
  160 fori=0to8:reado%(i),o$(i):next
  165 data0,no pair,1,one pair,3,two pair,5,three of a kind,7,straight
  170 data10,flush,20,full house,30,four of a kind,50,straight flush
  180 fori=1to10:forj=1to7:readc%(i,j):nextj,i
  185 data0,0,0,1,0,0,0,1,0,0,0,0,0,1,1,0,0,1,0,0,1,2,0,0,0,0,0,2,2,0,0,1,0,0,2
  190 data2,0,0,2,0,0,2,2,0,1,0,2,0,2,2,0,2,0,2,0,2,2,0,2,1,2,0,2,2,1,2,0,2,1,2
  200 fori=1to3:forj=1to7:readf$(i,j):nextj,i
  205 data"{CBM-*}{rvof} {rvon}{SHIFT-POUND}  "," {rvof}{CBM-C}{rvon}{CBM-M}{SHIFT-@} {rvon}  "," {CBM-K}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{CBM-*}{rvon}  "," {CBM-+}{SHIFT-POUND}V{rvof}{SHIFT-POUND}{rvon}{CBM-+} ","  {CBM-*}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{CBM-K}{rvon} "
  210 data"  {CBM-M}P {rvof}{CBM-F}{rvon} ","  {rvof}{SHIFT-POUND} {CBM-*}","{SHIFT-POUND}P   "," {rvof}{SHIFT-POUND}{rvon}B{CBM-N}   "," {rvof}    {rvon}{CBM-F} "," {CBM-+}VVV{CBM-+} "
  215 data" {CBM-C}{rvof}    {rvon} ","   {CBM-H}{SHIFT--}{SHIFT-POUND} ","   L{rvof}{SHIFT-POUND}","{CBM-*}{rvof}  {rvon}{SHIFT-POUND} ","  {CBM-M} {CBM-+}B "," {rvof}{SHIFT-POUND}   {CBM-C}{rvon} "
  220 data" {CBM-+}{CBM-B}{CBM-B}{CBM-B}{CBM-+} "," {rvof}{CBM-F}   {rvon}{SHIFT-POUND} "," {SHIFT--}{CBM-+} {CBM-G}  "," {rvof}{SHIFT-POUND}  {CBM-*}"
  240 fori=0to51:a%(i)=i:next
  250 fori=0to4:forj=1to3:b%(i,j)=0:nextj,i
  260 fori=0to1:forj=0to1:d%(i,j)=0:nextj,i
  270 s$="   X   Z   S   A   ":t$=" X   X Z   Z S   S A   A "
  280 fori=0to3:s$(0,i)="       ":s$(1,i)=mid$(s$,i*4+1,7):next
  290 fori=0to3:s$(2,i)=mid$(t$,i*6+1,7):next
  300 ba=1000:be=0:oh=0:hl=0:h=0:d=0:j=0:k=0:l=0:m=0:n=0:ob=0
  305 st%=0:fl%=0:sf%=0:af%=0
  360 gosub1250
  375 rem
  380 ifba=0then1700
  385 fori=1to1000:nexti
  390 be=ob:gosub1450
  400 print"your bet? ";:gosub60000
  405 ifleft$(in$,1)="q"thenrk=h:gosub1340:gosub1300:end
  410 ifin$=""thenin$=str$(be)
  420 ifval(in$)=0then390
  430 be=int(val(in$))
  431 ifbe<1thenprint"you can't do that!":goto 385
  432 ifbe>bathenprint"you don't have that much.":goto 385
  433 ifbe>10000thenprint"house limit is $10000.":goto385
  440 rk=h:gosub1340:gosub1490
  450 ba=ba-be:gosub1420:gosub1300
  460 printmd$"{down}{down}";:gosub540
  470 oh=0:gosub600
  480 gosub990
  490 gosub1450:goto380
  510 printmd$;"{down}{rvon}shuffling{home}"
  520 fori=0to51:j=int((52-i)*rnd(1)):k=a%(j):a%(j)=a%(51-i):a%(51-i)=k
  530 nexti:printmd$;"{down}{down}";:return
  540 ifc>44thenc=0:gosub510
  550 fori=1to13:h%(i)=0:next
  560 forn=0to4
  570 b%(n,1)=a%(c):c=c+1:gosub1550
  580 b%(n,2)=k:b%(n,3)=i:h%(i)=h%(i)+1
  590 nextn:return
  600 st%=0:fl%=0:af%=0:sf%=0
  610 fori=1to4:ifb%(i,2)<>b%(0,2)theni=4:fl%=0:goto630
  620 fl%=1
  630 nexti
  640 j=0:ifh%(1)=1thenaf%=1
  650 fori=1to9:ifh%(i)=1thenj=i:i=9
  660 nexti
  670 k=4
  680 fori=j+1toj+k:ifh%(i)=0theni=j+k:st%=0:goto700
  690 st%=1
  700 nexti
  710 ifaf%=1andst%=0andh%(10)=1andk=4thenj=10:k=3:goto680
  720 fori=1to13:ifh%(i)>1thenst%=0:i=13
  730 nexti
  740 ifst%andk=4thenk=j+4
  750 ifst%andk=3thenk=1
  760 ifst%andfl%thensf%=1
  770 ifsf%thenh=8:goto940
  780 ifst%thenh=4:goto940
  790 iffl%thenh=5:goto940
  800 fori=0to1:forj=0to1:d%(i,j)=0:nextj,i
  810 j=0:fori=1to13:ifh%(i)<2then840
  820 d%(j,0)=h%(i):d%(j,1)=i:j=j+1
  830 ifj=2theni=13
  840 nexti
  850 ifj=0thenh=0:goto940
  860 ifj=1then900
  870 fori=0to1:ifd%(i,0)=3thenh=6:k=i:i=1:goto890
  880 h=2
  890 nexti:goto940
  900 fori=0to1:ifd%(i,0)=4thenh=7:k=i:i=1:goto930
  910 ifd%(i,0)=3thenh=3:i=1:goto930
  920 h=1
  930 nexti
  940 gosub1450
  950 ifoh=hthenreturn
  960 rv$="{rvon}":rk=h:gosub1340
  970 rk=oh:gosub1340
  980 return
  990 fori=1to13:h%(i)=0:next
 1000 fori=0to4:ds(i)=0:nexti:d$="":zc=1:zt=0
 1010 printmd$"enter discards--"d$" {left}";
 1020 getz$:ifz$<>""thenprint" ":goto1050
 1030 ifti>ztthenprintmid$("{CBM-+} ",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1040 goto1020
 1050 ifasc(z$)=13then1150
 1060 ifasc(z$)=20andlen(d$)>0then1110
 1070 ifz$<"1"orz$>"5"orlen(d$)>2then1010
 1080 z=val(z$)-1:ifds(z)then1010
 1090 d$=d$+z$:ds(z)=1
 1100 printmd$;"{down}{down}";tab(z*8)"discard":goto1010
 1110 z$=right$(d$,1):z=val(z$)-1:ds(z)=0:print" "
 1120 printmd$;"{down}{down}";tab(z*8)"       "
 1130 iflen(d$)>1thend$=left$(d$,len(d$)-1):goto1010
 1140 goto1000
 1150 gosub1450:iflen(d$)=0then1230
 1160 printmd$;"{down}{down}{down}";
 1170 forn=0to4:ifds(n)=0then1200
 1180 b%(n,1)=a%(c):c=c+1:gosub1550
 1190 b%(n,2)=k:b%(n,3)=i
 1200 nextn
 1210 fori=0to4:h%(b%(i,3))=h%(b%(i,3))+1:nexti
 1220 oh=h:gosub600
 1230 ba=ba+be*(o%(h)):gosub1420
 1240 return
 1250 print"{clr}":gosub1420
 1260 t$="CCCCCCCCCCCCCCCCCCC
 1270 print"{down}hand"tab(21)"odds"tab(32)"payoff":printt$t$"C
 1280 forrk=8to1step-1:gosub1340:nextrk
 1290 printt$t$"C":return
 1300 printmd$;
 1310 fori=14to24:printbl$:nexti
 1320 printbl$;md$;"{up}"
 1330 return
 1340 ifrk<1orrk>8then1410
 1350 printleft$(b$,13-rk);rv$;
 1360 z$=o$(rk):z$=z$+right$(bl$+str$(o%(rk)),20-len(z$))
 1370 print z$;" for 1";
 1380 z$="$"+mid$(str$(be*o%(rk)),2)
 1390 ifz$="$0"thenz$=""
 1400 printright$(bl$+z$,12)
 1410 rv$="":return
 1420 print"{home}cash: $";mid$(str$(ba)+bl$,2,13)
 1430 printtab(20);"{up}bet: $";mid$(str$(be)+bl$,2,13)
 1440 return
 1450 printmd$;
 1460 printbl$:printbl$
 1470 printbl$;md$;"{up}"
 1480 return
 1490 ifob=bethen1540
 1500 forrk=8to1step-1
 1510 printleft$(b$,13-rk);
 1520 printtab(26);:gosub1380
 1530 nextrk
 1540 ob=be:return
 1550 k=int(b%(n,1)/13):i=b%(n,1)-13*k+1:s$=mid$("XZSA",k+1,1):l=8*n
 1560 printmd$;"{down}{down}{down}";tab(l);"{rvon}";left$(a$(i)+bl$,7)
 1570 ifi<=10thenforj=1to7:printtab(l);"{rvon}";s$(c%(i,j),k):next j:goto1630
 1580 forj=1to7:print tab(l);"{rvon}";
 1590 if j=1then print" ";s$;
 1600 print f$(i-10,j);
 1610 ifj=7thenprint"{rvon}";s$;" ";
 1620 print:next j
 1630 print tab(l);"{rvon}";right$(bl$+a$(i),7);"{home}"
 1640 return
 1700 gosub1300:print"{rvon}you are broke!
 1710 print"{down}want to try again? ";:gosub60000
 1720 ifleft$(in$,1)<>"n"then300
 1730 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60410 if peek(50000)=0 then return
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 poke59468,12
 62005 print"{clr}{down}{down}"tab(8);"cursor #";nm$;tab(26-len(pg$));pg$
 62010 print"{down}copyright (c) 1980   by david hook{down}
 62020 gosub60500
 62030 print"{down}riches to rags
 62050 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62060 gett$:ift$=""then62060
 62070 goto60300
    1 sys1037
    0 clr:poke59468,12
    1 rem police copyright (c) 1980 kurt l carpenter
    2 rem 181 ave de las flores
    3 rem thousand oaks ca 93160
    4 :
    5 rem cursor #17, feb, 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 26 80
   90 pg$="police":nm$="17":gosub62000
  100 :
  200 m$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  210 dime(22),en(22),m1$(6),m2$(6),lc,lf,lr,ll,lb,d1
  220 data32904,1,33024,2,33030,4,33039,5,33042,4,33094,1,33098,2
  230 data33110,2,33157,5,33162,5,33165,1,33291,4,33298,4,33300,6,33308,3
  240 data33319,5,33322,4,33428,1,33537,2,33543,4,33574,1,33510,2
  250 fori=1to22:reade(i),en(i):next
  260 data" freeway ","accident "," robbed  ","  bank   ","  candy  ","store hit"
  270 data" ran red ","  light  "," mugging "," in park ","arson at ","shoe mart"
  280 fori=1to6:readm1$(i),m2$(i):next
  290 gosub340:ti$="000000":gosub1140:print"{rvon}the hunt{up}{up}":bb=0:v=0:c=0
  300 lc=33298:d1=int(4*rnd(1)+1):o1=219:p=32891:poke32891,81:o2=64:d=1:y=191
  310 gosub320:gosub1150:gosub590:goto310
  320 ifti$=t$thenreturn
  330 printm$"{down}{down}{down}{down}{down}{down}"tab(31)mid$(ti$,3,2)":"right$(ti$,2):t$=ti$:return
  340 print"{clr}{rvon}      Q         {rvof}police{rvon}     Q         Q "
  350 print"{rvon}     Q{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}Q"
  360 print"{rvon}      {rvof}{SHIFT--}{rvon}   {SHIFT--}           {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  370 print"{rvon}Q{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{rvon}Q"
  380 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}     a     {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  390 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}           {SHIFT--}l   {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  400 print"{rvon}   {CBM-Q}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}l {rvof}{SHIFT--}{rvon} "
  410 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}b     {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  420 print"{rvon}   {SHIFT--} a{rvof}{SHIFT--}{rvon}   {SHIFT--}b   {SHIFT--}      {SHIFT--}b   {rvof}{SHIFT--}{rvon} {SHIFT--} p  {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  430 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}      {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--} a  {SHIFT--} a{rvof}{SHIFT--}{rvon} "
  440 print"{rvon}   {CBM-Q}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{CBM-W} r  {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  450 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}      {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--} k  {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  460 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--} s  {SHIFT--}    c {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  470 print"{rvon}  l{CBM-Q}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}l {rvof}{SHIFT--}{rvon} "
  480 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}  l{SHIFT--}    {SHIFT--}      {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  490 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}    a {SHIFT--}    {rvof}{SHIFT--}{rvon} {SHIFT--}    {SHIFT--}  {rvof}{SHIFT--}{rvon} "
  500 print"{rvon}Q{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{rvon}Q"
  510 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}      {SHIFT--}    {rvof}{SHIFT--}{rvon}         Q "
  520 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}    {SHIFT--}     b{SHIFT--}    {rvof}{SHIFT--}{rvon} crime-    "
  530 print"{rvon}   {CBM-Q}{SHIFT-*}{SHIFT-*}{rvof}{SHIFT--}{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}    {rvof}{SHIFT--}{rvon}           "
  540 print"{rvon}   {SHIFT--} a{rvof}{SHIFT--}{rvon}  b{SHIFT--}    l  {SHIFT--}   {SHIFT--}    {rvof}{SHIFT--}{rvon}           "
  550 print"{rvon}   {SHIFT--}  {rvof}{SHIFT--}{rvon}   {SHIFT--}       {SHIFT--}   {SHIFT--}    {rvof}{SHIFT--}{rvon}           "
  560 print"{rvon}Q{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{rvon}Q  clock   "
  570 print"{rvon}      Q                    Q     :     "
  580 fori=33728to33766:pokei,160:next:return
  590 ond1gosub710,720,730,740
  600 ifpeek(lf)=209andpeek(ll)=160andpeek(lr)=160thengosub980:return
  610 ifpeek(lf)=87thengosub980:return
  620 ifpeek(lf)=209and(peek(lr)=81orpeek(ll)=81)thengosub980:return
  630 ifpeek(lf)=81thengosub980:return
  640 n=int(3*rnd(1))+1:t1=0:ol=lc
  650 ifn>3thenn=1
  660 onngosub750,820,900
  670 ift1=0thenn=n+1:goto650
  680 ifv=0andrnd(1)<.8thengosub1050
  690 ifv1=1thenv1=0:gosub1300
  700 return
  710 lf=lc+40:lr=lc-1:ll=lc+1:lb=lc-40:return
  720 lf=lc-1:lr=lc-40:ll=lc+40:lb=lc+1:return
  730 lf=lc-40:lr=lc+1:ll=lc-1:lb=lc+40:return
  740 lf=lc+1:lr=lc+40:ll=lc-40:lb=lc-1:return
  750 pl=peek(lf):ifpl>yorpl=64orpl=91orpl=93then770
  760 return
  770 ifpl=209thenreturn
  780 n1=pl:ifv=0then800
  790 pokelf,170:pokelc,o1
  800 o1=n1:lc=lf:t1=1:return
  810 return
  820 pl=peek(ll):ifpl>yorpl=64orpl=91orpl=93then840
  830 return
  840 ifpl=209thenreturn
  850 n1=pl:ifv=0then870
  860 pokell,170:pokelc,o1
  870 o1=n1:lc=ll:t1=1
  880 d1=d1-1:ifd1<1thend1=4
  890 return
  900 pl=peek(lr):ifpl>yorpl=64orpl=91orpl=93then920
  910 return
  920 ifpl=209thenreturn
  930 n1=pl:ifv=0then950
  940 pokelr,170:pokelc,o1
  950 o1=n1:lc=lr:t1=1
  960 d1=d1+1:ifd1>4thend1=1
  970 return
  980 n1=peek(lb):ifn1=209orn1=81orn1=87then1420
  990 ifv=0then1010
 1000 pokelb,170:pokelc,o1
 1010 o1=n1:lc=lb:t1=1
 1020 d1=d1+2:ifd1>4thend1=d1-4
 1030 ond1gosub710,720,730,740
 1040 return
 1050 fori=1to22
 1060 iflc<>e(i)thennext:return
 1070 poke59467,16:poke59466,85
 1080 printm$
 1090 c=c+1:printtab(35)"{rvon}"c
 1110 printtab(29)"         ":printtab(29)"         "
 1114 fori2=1to5:fori1=1to14:poke59464,i1*16:nexti1,i2
 1120 print"{up}{up}"tab(29)m1$(en(i))
 1130 printtab(29)m2$(en(i)):gosub1330:return
 1140 printm$"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:return
 1150 d9=d:geta$
 1154 ifa$<>""thend=-40*(a$="2")+1*(a$="4")+40*(a$="8")-1*(a$="6"):d8=d
 1160 ifa$=""thend=d8
 1170 ifa$=" "andv=1andbb<7theno2=87:d=d9:bb=bb+1
 1190 ifa$="5"thenreturn
 1200 p9=p+d:ifpeek(p9)>yorpeek(p9)=64orpeek(p9)=91orpeek(p9)=93then1240
 1210 ifpeek(p9)=87then1240
 1220 ifd9<>dthend=d9:goto1200
 1230 return
 1240 ifpeek(p9)=209thenreturn
 1250 n2=peek(p9):pokep9,81
 1260 pokep,o2:o2=n2:p=p9
 1270 ifp+d=lcorp+d+d=lcorp+3*d=lcorp+4*d=lcthenifv=0thenv=1:v1=1
 1280 ifv1=1thengosub1140:print"{rvon}the chase{up}{up}"
 1290 return
 1300 poke59467,16:poke59466,2:forr2=1to2
 1310 forr=100to255step40:poke59464,r:next:fori=1to500:next
 1320 forr=255to100step-40:poke59464,r:next:fori=1to500:next:next
 1330 poke59467,0:poke59466,0:poke59464,0:return
 1340 poke59467,16:p1=59464:poke59466,15:t=3
 1350 pokep1,255:forx=1to100:next:gosub1410
 1360 pokep1,y:forx=1to100:next:gosub1410
 1370 pokep1,152:forx=1to100:next:gosub1410
 1380 pokep1,128:forx=1to200:next:gosub1410
 1390 pokep1,152:forx=1to100:next:t=0:gosub1410
 1400 pokep1,128:forx=1to400:next:gosub1330:return
 1410 poke59464,0:forx=1tot:next:return
 1420 gosub1140:print"{rvon} the end {up}{up}"
 1430 printm$"{down}"
 1440 printtab(29)" you did ":printtab(29)"   it!   ":gosub1340
 1450 print"{up}{up}"tab(29)"  play   ":printtab(29)" again ? {left}{left}";
 1460 zt=ti:zc=2
 1462 geta$:ifa$<>""then1470
 1464 ifti>ztthenprintmid$(" ?",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1466 goto1462
 1470 ifa$="y"ora$=cr$then290
 1480 ifa$="n"thenprint"{clr}":end
 1490 goto1460
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20):pn=0:lp=1
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by kurt l carpenter
 62020 gosub60500
 62030 print"{down}find and capture the bad guy
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"a master criminal is on the loose! your
 62120 print"{down}job is to arrest him as soon as you can.
 62130 print"steer the squad car (Q) with the    8
 62135 printtab(36);"{SHIFT--}"
 62140 print"{rvon}2{rvof}, {rvon}4{rvof}, {rvon}6{rvof}, and {rvon}8{rvof} keys.  press {rvon}5{rvof} to  4{SHIFT-*}Q{SHIFT-*}6
 62145 printtab(36);"{SHIFT--}"
 62150 print"stop the squad car.  your only      2
 62170 print"{down}clues are the crimes committed. once you
 62180 print"are within a block of the criminal, you
 62190 print"{down}will see him ({rvon}*{rvof}). to set a barricade,
 62200 print"{down}press {rvon}space{rvof}. when the crook has been
 62210 print"{down}trapped, your job is done.
 62220 gosub60200
    0 clr:pg$="pong!":nm$="29":goto62000
    1 " georg feil
    2 " 1542-b beaverpond dr.
    3 " ottawa, ont. canada d1b 3r9
    4 "
    5 " cursor #29, feb, 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 2/13/82 mtr
   11 print"{clr}{down}{down}{down}{down}{down}{down}who's playing on the left? ";:gosub60000:print
   12 ifin$=""thenin$="player 1":printspc(27);"{up}"in$
   14 p$(1)=in$:print"{down}{down}{down}{down}{down}who's playing on the right? ";:gosub60000:print
   15 ifin$=""thenin$="player 2":printspc(28);"{up}"in$
   16 p$(2)=in$
   18 dima$(9):fork=0to9:forv=1to4:readu$:a$(k)=a$(k)+u$+"{down}{left}{left}{left}{left}":next
   20 a$(k)=left$(a$(k),len(a$(k))-5)+"{up}{up}{up}{left}{left}{left}{left}":next
   22 u$="    ":a$=u$:fork=1to3:a$=a$+"{down}{left}{left}{left}{left}"+u$:next:a$=a$+"{up}{up}{up}
   25 poke59467,16:poke59466,15:poke59464,0
   35 print"{clr}{down}{down}selection:":print"{down}{down}  {rvon}t{rvof}ennis";:print"     {rvon}h{rvof}ockey
   40 print"{down}  {rvon}s{rvof}quash";:print"     {rvon}p{rvof}ractice":print"{down}  {rvon}q{rvof}uit"
   45 print"{down}{down}choice? ";:l=1:gosub80
   50 getu$:ifu$<>""then100
   60 ifti>tmthenprintmid$("? ",l,1)"{left}";:l=3-l:tm=ti+15
   70 goto50
   80 getin$:ifin$<>""then80
   90 return
  100 ifu$="t"orasc(u$)=13thenc=1:print"tennis":goto150
  110 ifu$="h"thenc=2:print"hockey":goto150
  120 ifu$="s"thenc=3:print"squash":goto150
  130 ifu$="p"thenc=4:print"practice":goto150
  135 ifu$="q"then1100
  140 goto50
  150 print"{down}{down}{down}{down}{down}{down}  {rvon}b{rvof}eginner    {rvon}i{rvof}ntermediate":print"{down}  {rvon}a{rvof}dvanced    {rvon}p{rvof}ro"
  155 print"{up}{up}{up}{up}{up}{up}skill level? ";:gosub80
  160 getu$:ifu$<>""then180
  165 ifti>tmthenprintmid$("? ",l,1)"{left}";:l=3-l:tm=ti+15
  170 goto160
  180 ifu$="b"orasc(u$)=13thensp=2:ln=4:print"beginner":goto200
  182 ifu$="i"thensp=2:ln=3:print"intermediate":goto200
  184 ifu$="a"thensp=1:ln=4:print"advanced":goto200
  186 ifu$="p"thensp=1:ln=3:print"pro":goto200
  188 goto160
  200 fork=1to999:next
  210 print"{clr}";:fork=1to39:print"{CBM-I}";:next:poke32807,98
  220 print:fork=1to23:printspc(20)"{CBM--}":next
  230 print"{up}":fork=1to39:print"{rvon}{CBM-I}{rvof}";:next:poke33767,226
  233 ifc>1thenprint"{up}{rght}{CBM-C}{home}{CBM-D}
  236 ifc=2thenpoke32807,123:poke33767,126
  240 print"{home}":fork=1to23:print"{$a0}";:if(c=2and(k<8ork>16))orc=4orc=3thenprint"{left}{rvon}{CBM-K}{rvof}";
  250 ifc=2and(k<8ork>16)thenprintspc(37)"{CBM-K}{left}{inst}";:goto260
  255 printspc(37)"{$a0}{left}{inst}";
  260 print:next:p(1)=0:p(2)=0
  265 poke640,ln*40
  270 poke651,sp
  275 poke642,sp+1
  280 poke661,5
  285 poke662,135:poke663,128:poke664,152
  287 poke656,3
  290 ifc>1then300
  292 poke800,4:poke801,105:poke802,129:poke803,142:poke804,129
  294 poke811,102:poke813,160:goto330
  300 ifc>2then310
  302 poke800,8:poke801,67:poke802,129:poke803,93:poke804,129
  303 poke805,44:poke806,130:poke807,18:poke808,130
  305 poke811,102:poke813,102:poke815,160:poke817,160:goto330
  310 ifc>3then320
  312 poke800,4:poke801,100:poke802,129:poke803,46:poke804,130
  315 poke811,102:poke813,160:poke810,1:goto330
  320 poke800,2:poke801,142:poke802,129:poke811,160
  330 poke665,(c=3)*-128:ws=1:ifrnd(1)>.5orc>2thenws=2
  350 fork=0topeek(800)-2step2:z=peek(801+k)+peek(802+k)*256
  360 forv=ztoz+peek(640)-40step40:z=peek(811+k):wait59456,32,32:pokev,z:next:next
  400 gosub550:poke1,0:poke641,0:poke650,rnd(1)*100+100:poke660,0:poke643,-(3-ws)*(c=3)
  405 poke810,-(c=3):poke652,1:poke654,0:poke655,32:poke636,0:sys5854
  408 getin$:ifin$=" "then25
  409 if in$<>""then408
  410 a=peek(88)+peek(89)*256:p=peek(655):wait59456,32,32:pokea,p:p=peek(634)+peek(635)*256
  490 u$="":poke59464,250:fork=1to400:next:poke59464,0
  500 ifc=4thenp(1)=peek(636):poke636,0:goto505
  501 ws=1:ifp<90orp>270thenws=2
  502 ifc=3thenws=3-peek(643)
  503 p(3-ws)=p(3-ws)+1
  505 print"{home}{down}{down}"tab(8);:ifp(1)>9thenprinta$(p(1)/10);
  510 printtab(12)a$(p(1)-int(p(1)/10)*10)tab(24);:ifp(2)>9thenprinta$(p(2)/10)spc(4);
  520 ifc<4thenprinta$(p(2)-int(p(2)/10)*10)
  530 fork=1to1500:next:print"{home}{down}{down}"spc(8);:ifp(1)>9thenprinta$"{left}{left}{left}{left}";
  535 printspc(4)a$spc(8)a$;:ifp(2)>9thenprinta$;
  540 print:ifc<4andp(1)=15orp(2)=15then1080
  542 getin$:ifin$=" "then25
  543 if in$<>""then542
  545 goto350
  550 p=45-int(rnd(1)*91):ifabs(p)<18then550
  553 w1=ws:ifc=3orc=4thenw1=1
  555 a=w1*180-p:ifa>359thena=a-360
  560 poke635,a/256:poke634,a-int(a/256)*256
  570 p=32853-w1*17+int(rnd(1)*23)*40:poke89,p/256:poke88,p-int(p/256)*256
  580 return
  990 data"{CBM-D}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-F}","{rvon}{CBM-K}{rvof}{CBM-D}{rvon}{CBM-B}{rvof}{CBM-K}","{rvon}{CBM-K}{rvof}{CBM-V} {CBM-K}"," {rvon}{CBM-I}{CBM-I}{rvof} "," {CBM-D}{CBM-K} "," {CBM-V}{CBM-K} ","  {CBM-K} "," {rvon}{CBM-I}{CBM-I}{rvof}{CBM-V}
 1012 data"{CBM-D}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-F}","  {CBM-I}{CBM-V}","{CBM-D}{rvon}{CBM-I}{rvof}  ","{CBM-C}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-V}","{CBM-D}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-F}"," {CBM-D}{CBM-I}{CBM-V}","{CBM-D}  {CBM-K}"," {rvon}{CBM-I}{CBM-I}{rvof} "
 1032 data"  {rvon}{CBM-V}{rvof} "," {rvon}{CBM-B}{CBM-K}{rvof} ","{CBM-C}{rvon}{CBM-I}{CBM-F}{rvof}{CBM-V}","  {CBM-C} ","{rvon}{CBM-K}{CBM-I}{CBM-I}{rvof}{CBM-V}","{CBM-C}{rvon}{CBM-I}{rvof}{CBM-B} ","{CBM-D} {CBM-D}{CBM-V}"," {rvon}{CBM-I}{rvof}{CBM-V} "
 1052 data" {rvon}{CBM-B}{CBM-I}{rvof} ","{rvon}{CBM-K}{rvof}{CBM-I}{CBM-I} ","{rvon}{CBM-K}{rvof}  {CBM-K}"," {rvon}{CBM-I}{CBM-I}{rvof} ","{rvon}{CBM-K}{CBM-I}{CBM-I}{rvof}{CBM-K}","  {rvon}{CBM-B}{rvof} "," {rvon}{CBM-K}{rvof}  "," {CBM-C}  "
 1072 data"{CBM-D}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-F}","{CBM-C}{CBM-I}{CBM-I}{CBM-V}","{rvon}{CBM-K}{rvof}  {CBM-K}"," {rvon}{CBM-I}{CBM-I}{rvof} ","{CBM-D}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-F}","{CBM-C}{CBM-I}{CBM-I}{CBM-K}","  {CBM-D}{CBM-V}"," {rvon}{CBM-I}{rvof}{CBM-V} "
 1080 k=2:ifp(1)=15thenk=1
 1081 print"{clr}{down}{down}"spc(17-len(p$(k))/2);p$(k)" wins!":wn(k)=wn(k)+1
 1082 print"{down}{down}               "p(1)"to"p(2):co=co+1
 1083 print"{down}{down}               in game"co:s(1)=s(1)+p(1):s(2)=s(2)+p(2)
 1084 print"{down}{down}{down}{down}{down}{down}  {rvon}p{rvof}lay again":print"{down}  {rvon}n{rvof}ew game":print" {down} {rvon}q{rvof}uit"
 1085 print"{up}{up}{up}{up}{up}{up}{up}choice? ";:l=1:gosub80
 1086 getu$:ifu$<>""then1091
 1088 ifti>tmthenprintmid$("? ",l,1)"{left}";:l=3-l:tm=ti+15
 1090 goto1086
 1091 ifu$="p"orasc(u$)=13then210
 1092 ifu$="n"then25
 1093 ifu$="q"then1100
 1094 goto1086
 1100 print"{clr}":poke59467,0:ifco=0thenend
 1103 print"{down}{down}in"co"game";:ifco<>1thenprint"s";
 1105 print":":fork=1to2
 1110 print"{down}{down}{down}"p$(k)" won"wn(k)"time";:ifwn(k)<>1thenprint"s";
 1120 print:print"{down}averaging"int(s(k)/co*10)/10"points per game"
 1125 nextk
 1130 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>10then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by georg feil
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}four (very) fast games"
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto 11
    1 dims(2)
    2 gosub9000
    3 x=33248:u=33286:d=1
    5 print"{clr}"tab(10)"left"s(1)"right"s(2)
    6 ifs(1)=9thenprint"left wins, you want anoter game";:goto2000
    7 ifs(2)=9thenprint"right wins, you want anoter game";:goto2000
   10 forj=32807to33767step40
   20 pokej,96                           
   30 nextj                              
   40 j=32768+12*40+1
   45 ifd=-1thenj=32808+12*40
   50 y=0
   60 forf=32848to32886:pokef,81:next
   80 forf=33648to33686:pokef,81:next
   90 pokex,160:pokeu,160
  110 gosub200
  115 y=999
  120 ifpeek(j+1)=160orpeek(j-1)=160theny=0
  130 ifpeek(j+41)=160orpeek(j+39)=160theny=-40
  135 ifpeek(j+81)=160orpeek(j+79)=160theny=-80
  140 ifpeek(j-41)=160orpeek(j-39)=160theny=40
  145 ifpeek(j-81)=160orpeek(j-79)=160theny=80
  150 d=-d
  155 ify=999thenq=d/2+1.5:s(q)=s(q)+1:d=-d:goto5
  160 goto110
  200 l=j
  210 j=j+d*3
  220 gosub500
  230 pokel,32
  240 ifj+y>33648orj+y<32886theny=-y
  250 j=j+y
  260 pokej,42
  270 ifpeek(j+2*d)=96thenreturn
  280 goto200
  500 w=ti
  510 ifti-w>10thenreturn
  520 mi=peek(151):ifmi=255 then510
  530 ifmi=32thenv=-1:goto900
  540 ifmi=24thenv=1:goto900
  550 ifmi=25thenv=-1:goto1000
  560 ifmi=17thenv=1:goto1000
  900 pokex,32
  910 x=x+v*40
  920 pokex,160
  930 goto510                             
 1000 pokeu,32
 1010 u=u+v*40
 1020 pokeu,160
 1030 goto510
 2000 inputa$
 2010 s(1)=0:s(2)=0
 2020 ifleft$(a$,1)="y"then3
 9000 printtab(10)"pong directions"
 9005 print
 9010 print"to make the left paddle go up type"chr$(34)"z"chr$(34)
 9020 print"to make the left pad. go down type"chr$(34)"x"chr$(34)
 9030 print
 9040 print"to make the right pad.  go up type"chr$(34)"3"chr$(34)
 9050 print"to make the right pad.go down type"chr$(34)"+"chr$(34)
 9060 print
 9070 print
 9100 print"do you understand";
 9120 inputz9$
 9130 return
    1 poke59468,14
    2 print"{clr}"
    5 print
   10 gosub2000
   15 dimp(52),x(7)
   20 t1=0
   30 t2=0
   40 print
   50 print"Shuffling pack....."
   55 print
   60 fora=1to52
   70 p(a)=int((a-1)/4)+1
   80 nexta
  100 fora=52to1step-1
  110 r=int(rnd(1)*52+1)
  120 v=p(a)
  130 p(a)=p(r)
  140 p(r)=v
  150 nexta
  160 forb=1to7
  170 x(b)=0
  180 nextb
  190 gosub790
  200 gosub790
  210 ifx(3)=0thengoto290
  220 ifx(1)<>12then goto290
  230 print"Do you wish to 1 Split 2 Twist"
  240 getm$:ifm$=""then240
  245 m=val(m$)
  250 ifm<>1then goto320
  260 letx(7)=x(7)+1
  270 letx(1)=11
  280 letx(5)=1
  290 print"Do you wish to 1:Pass 2:Twist
  300 getm$:ifm$=""then300
  305 m=val(m$)
  310 ifm<>2then goto410
  320 gosub790
  330 ifx(1)<22then goto290
  340 print"You are bust !"
  350 ifx(7)<>1then goto390
  360 letx(3)=1
  370 x(7)=0
  380 goto270
  390 ifx(7)=0then goto670
  400 x(1)=0
  410 ifx(7)<>1then goto460
  420 letf=x(1)
  430 letg=x(5)
  440 letx(3)=1
  450 goto260
  460 gosub820
  470 ifx(6)=5then goto550
  480 ifx(2)<16then goto460
  490 lete=0
  500 ford=ato52
  510 ifp(d)>21-x(2)then goto530
  520 lete=e+1
  530 nextd
  540 ifrnd(r)<((e*(x(4)*2+1))/(53-a)-.2)then goto460
  550 ifx(7)<>2then goto590
  560 ifx(1)>fthen goto590
  570 x(1)=f
  580 x(5)=g
  590 ifx(2)<>21then goto610
  600 ifx(6)=2then goto680
  610 ifx(1)<>21then goto630
  620 ifx(5)=2then goto720
  630 ifx(2)>21then goto710
  640 ifx(6)=5thenprint"house got a Five card trick!!-":goto670
  650 ifx(5)=5thenprint"you got a Five card trick!!-":goto710
  660 ifx(1)>x(2)then goto710
  670 b=1
  675 print
  680 print"Sorry house won "
  690 t2=t2+1
  700 goto740
  710 b=1
  720 print"You won "
  730 t1=t1+1
  740 print"You got";x(1),,,"House got";x(2)
  750 print"Your wins=";t1,,,"House wins=";t2
  760 forq=1to2000
  765 nextq
  769 printchr$(147)
  770 ifb=1then160
  780 goto40
  790 c=1
  795 ifp(a)=0thenp(a)=int(rnd(5)*13+1)
  800 print"Your card is a ";
  810 goto840
  820 c=2
  830 print,,,"            House card is a ";
  840 ifp(a)<11then goto930
  850 ifp(a)<>13then goto870
  860 print"King"
  870 ifp(a)<>12then goto890
  880 print"Queen"
  890 ifp(a)<>11then goto910
  900 print"Jack"
  910 x(c)=x(c)+10
  920 goto1000
  930 ifp(a)<>1then goto980
  940 x(c)=x(c)+11
  950 x(c+2)=x(c+2)+1
  960 print"{left}n Ace"
  970 goto1000
  980 printp(a)"."
  990 x(c)=x(c)+p(a)
 1000 a=a+1
 1010 x(c+4)=x(c+4)+1
 1020 ifa<>53then goto1040
 1030 a=1
 1040 ifx(c)<22then goto1090
 1050 ifx(c+2)=0then goto1090
 1060 x(c)=x(c)-10
 1070 x(c+2)=x(c+2)-1
 1080 goto1040
 1090 return
 2000 print"{clr}             Pontoon"
 2005 print"             {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 2010 print"{down} This program  plays pontoon."
 2015 print" The computer shuffles the pack,"
 2016 print" and deals the cards."
 2017 print"  You decide if you want to twist,split  etc."
 2018 print"{down}{down}{rght}{rght}A record of the score is kept"
 2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Press a key to start:-"
 2040 geta$:ifa$=""then2040
 2050 print"{clr}":return
    2 rem postal routes  by bill finzer
    4 rem      november, 1978
  200 rem main calling routine
  205 poke 59468,12
  210 gosub 1000: rem instructions
  220 gosub 500 : rem initialize
  230 gosub 1500: rem  draw route
  240 gosub 2000: rem player moves to start
  250 gosub 2500: rem player moves
  260 gosub 3000: rem end point reached
  270 if a$="y" then 230
  280 print:print"what route do you want? ";
  290 gosub 900
  300 m=val(b$)
  310 if m<1 or m>11 then print:print"i don't have that number route.":goto 280
  320 goto 230
  500 rem initialize
  510 t=rnd(-ti)
  520 c$(0)="{rvon} "
  530 c$(1)="{CBM-+}"
  540 c$(2)="{rvon}V"
  550 c$(3)="{rvon}Z"
  560 c$(4)="{rvon}{SHIFT-+}"
  570 def fnp(x)=32768+40*y+x
  580 blank$="                                      "
  600 return
  800 rem move cursor to x,y
  805 if y=0 then print"{home}";:goto 820
  810 poke 216,y-1:print
  820 printtab(x);
  830 return
  850 rem get single character
  852 t=ti:poke158,0
  854 if ti<t+30thenprint"{CBM-+}{left}";:goto860
  856 if ti<t+60thenprint" {left}";:goto860
  858 t=ti
  860 get a$:if a$="" then 854
  880 print" {left}";
  895 return
  900 rem get non-empty string
  910 b$=""
  920 gosub 850
  930 if b$=""and a$=chr$(13) then 920
  940 printa$;
  950 if a$=chr$(13) then 980
  960 b$=b$+a$
  970 goto 920
  980 return
 1000 rem instructions
 1010 print"{clr}"tab(10);"{rvon}the postperson's route"
 1020 print"{down}what's your name? ";
 1030 gosub 900
 1040 n$=b$
 1050 print"{down}do you want instructions, "n$"?";
 1060 gosub 850
 1070 if a$="n" then 1340
 1080 print:print"{down}well, "n$", this is a game in which
 1090 print"you become a mail carrier.
 1100 print"{down}i'll give you a route.  for example,    this might be it:
 1110 print"{down}"tab(10)"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 1120 printtab(10)   "{CBM-+}       {CBM-+}
 1130 printtab(10)   "{CBM-+}       {CBM-+}
 1140 printtab(10)   "{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 1150 printtab(10)   "{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}
 1160 printtab(10)   "{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{CBM-+}{$a0}{$a0}{$a0}{$a0}{CBM-+}
 1170 printtab(10)   "{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}    {CBM-+}
 1180 printtab(10)   "    {CBM-+}        {CBM-+}
 1190 printtab(10)   "    {CBM-+}        {CBM-+}
 1200 printtab(10)   "    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}
 1210 print"then your task is to cover all the
 1220 print"streets without repeating any.
 1230 print"{down}press any key to go on. ";
 1240 gosub 850
 1250 print"{clr}to move yourself around on the map,
 1260 print"use the number keys as follows:
 1270 printtab(10)"       up
 1280 printtab(10)"       B
 1290 printtab(10)"       8
 1300 printtab(10)"leftC4   6Cright
 1310 printtab(10)"       2
 1320 printtab(10)"       B
 1330 printtab(10)"      down
 1340 print:print"i have 11 routes for you to try.
 1350 print"  1 is easiest and 11 hardest.
 1360 print"which one do you want to start with? ";
 1370 gosub 900
 1380 m  =val(b$)
 1385 ifm<1orm>11 thenprint:print"i don't have a map of that number.": goto1370
 1490 return
 1500 rem draw route
 1510 rem here follows data for the routes  in the form x,y,l,w,...,l,w,9999,lines
 1520 data9999,0
 1530 data10,6,10,10,14,9,10,10,9999,4
 1535 data 13,4,11,14,9,7,22,8,4,10,32,11,9999,16
 1540 data10,6,10,10,10,9,16,7,9999,5
 1545 data 10,6,15,12,10,6,7,12,13,9,7,7,9999,7
 1550 data 10,6,10,10,10,6,5,10,6,10,20,8,9999,9
 1555 data10,6,10,8,10,6,10,16,14,9,9,9,9999,9
 1560 data10,6,10,8,10,6,10,16,14,9,9,9,14,9,9,5,9999,11
 1565 data 5,6,10,8,8,9,15,9,8,9,7,9,8,9,15,5,11,11,8,5,9999,17
 1570 data 5,6,5,5,7,8,5,5,10,11,5,5,12,13,5,5,5,11,7, 8,9999,19
 1575 data 5,6,9,8,8,10,14,9,8,10,10,4,18,6,9,17,14,14,4,3,9999,13
 1580 data 10,6,6,17,5,10,14,9,10,14,3,5,10,14,6,5,9999,14
 1690 data 0,0,0,0
 1700 rem find the chosen map
 1710 for i= 1 to m
 1720 read d
 1730 if d<>9999then 1720
 1740 next i
 1745 c$=c$(int(rnd(1)*5))
 1748 print"{clr}"
 1750 read lines
 1760 read x,y,l,w
 1765 if x=9999 then 1910
 1770 gosub 800
 1780 for i= 1 to l
 1790 printc$;
 1800 next i
 1805 if w=0 then 1900
 1810 for i=1to w
 1820 print"{left}"c$"{down}";
 1830 next i
 1840 for i=1 to l
 1850 print"{left}"c$"{left}";
 1860 next i
 1870 for i= 1 to w+1
 1880 print"{left}"c$"{up}";
 1890 next i
 1900 goto 1760
 1910 lines=y   :restore
 1920 print"{rvof}";
 1930 return
 2000 rem player moves to start
 2010 print"{home}press return when you have found your
 2015 print"starting place.
 2020 y=2:x=20
 2025 gosub 800
 2030 p=peek(fnp(x)):gosub 850
 2032 poke fnp(x),p
 2035 if a$=chr$(13) then 2490
 2040 dir=val(a$)
 2050 on dir goto 2030,2100,2030,2200,2030,2300,2030,2400: goto 2030
 2100 y=y+1:gosub 800:goto 2030
 2200 x=x-1:gosub 800:goto 2030
 2300 x=x+1:gosub 800:goto 2030
 2400 y=y-1:gosub 800:goto 2030
 2490 if p=32 then print"{home}{down}{down}you must start somewhere on a street." : goto 2025
 2495 return
 2500 rem player moves
 2505 f=0
 2510 print"{home}"blank$:printblank$:printblank$
 2520 print"{home}allright carrier, "n$", start off
 2530 print"and i'll move you to your next
 2540 print"decision point.
 2550 rem is the player at a node?
 2555 flag =0:f2=0
 2560 gosub 4000:rem count routes
 2570 if nd>2 then flag =1:f2=1
 2575 rem now move cursor & accept move
 2580 gosub 800: gosub 850
 2590 if val(a$)=0 then 2580
 2600 dir=val(a$)
 2610 poke fnp(x),91
 2620 if f2=1 then poke fnp(x),42:f2=0
 2630 gosub 4500:rem change position
 2640 if legal$="n" then 2580
 2650 gosub 4000:rem count routes
 2660 if nd=1 then 2610
 2670 ifnd>1 then gosub 5000:goto 2580        :rem player's move
 2680 gosub 5500: rem nd=0 so check for        ned ahead
 2690 if dir<>0 then poke fnp(x),91:          goto 2630
 2695 if f2=0 then lines=lines-1
 2700 poke fnp(x),91:return
 3000 rem end point reached
 3010 print"{home}"blank$:printblank$:printblank$
 3020 if lines=0 then 3500:rem a win
 3030 rem a loss
 3040 print"{home}sorry, you haven't completed your route."
 3045 if m=11 then print"{down}hmmm, i wonder if this one is possible?"
 3050 print"do you want to try again? ";
 3060 gosub 850
 3070 if a$="n" then print"{clr}";:end
 3080 print:print"{down}do you want the same map? ";
 3090 gosub 850
 3100 return
 3500 rem a win!
 3510 for i=1 to 5
 3520 poke 59409,52:t=ti
 3530 if ti<t+60 then 3530
 3540 poke 59409,60
 3550 if ti<t+120 then 3550
 3560 next i
 3570 print"{home}you've completed your route!"
 3580 goto3050
 4000 rem count possible routes
 4010 p1=peek(fnp(x)+1 ):p2=peek(fnp(x)- 1)
 4020 p3=peek(fnp(x)+40):p4=peek(fnp(x)-40)
 4030 nd=0: dir =0
 4040 if p1<>32 and p1<>91 and p1<>42 then    nd=nd+1:dir=6
 4050 if p2<>32 and p2<>91 and p2<>42 then    nd=nd+1:dir=4
 4060 if p3<>32 and p3<>91 and p3<>42 then    nd=nd+1:dir=2
 4070 if p4<>32 and p4<>91 and p4<>42 then    nd=nd+1:dir=8
 4100 return
 4500 rem change position
 4505 legal$="y"
 4510 on dir goto 4550,4600,4550,4650,4550,4700,4550,4750,4550
 4550 legal$="n": goto 4900
 4600 y=y+1:ifpeek(fnp(x))=32 orpeek(fnp(x))=91then y=y-1:legal$="n":goto 4900
 4610 goto 4900
 4650 x=x-1:ifpeek(fnp(x))=32 orpeek(fnp(x))=91then x=x+1:legal$="n":goto 4900
 4660 goto 4900
 4700 x=x+1:ifpeek(fnp(x))=32 orpeek(fnp(x))=91then x=x-1:legal$="n":goto 4900
 4710 goto 4900
 4750 y=y-1:ifpeek(fnp(x))=32 orpeek(fnp(x))=91then y=y+1:legal$="n":goto 4900
 4760 goto 4900
 4900 return
 5000 rem ready player move
 5010 if flag=1 then lines=lines-1
 5015 if f2=1 then lines=lines+1
 5020 flag=1
 5030 print"{home}"blank$:printblank$:printblank$
 5040 print"{home}ready for your next decision."
 5050 f2=1
 5060 return
 5500 rem check for node ahead
 5510 if p1=42 then dir=6
 5520 if p2=42 then dir=4
 5530 if p3=42 then dir=2
 5540 if p4=42 then dir=8
 5550 if dir <> 0 then f2=1:lines=lines-1
 5560 return
  100 data 162,0,160,34,134,251,132,252,134,253,132,254
  110 data 169,1,160,0,145,253,174,254,31,208,5,206,253,31
  120 data 48,68,206,254,31,162,0,160,34,134,251,132,252
  130 data 160,0,24,177,251,120,248,113,251,216,88,145,251
  140 data 110,255,31,230,251,208,2,230,252
  150 data 165,253,197,251,165,254,229,252,176,18,14,255,31
  160 data 144,198,110,255,31,230,253,208,2,230,254
  170 data 169,0,145,253,14,255,31,144,204,176,202
  180 data 177,253,201,16,144,11,177,253,74,74,74,74,9,48,32,210,255
  190 data 177,253,41,15,9,48,32,210,255,166,253,208,2,198,254
  200 data 202,134,253,224,0,165,254,201,34,176,219,169,13,76,210,255
  210 for j=8192 to 8335
  220 read x
  230 t=t+x
  240 pokej,x
  250 next j
  260 if t<>21689 then stop
  300 input "2 raised to power (0=stop)";p
  310 if p=0 then end
  320 poke 8189,p/256
  330 poke 8190,p and 255
  340 sys 8192
  350 goto 300
    1 poke59467,16:poke59466,15:poke59464,0
    2 print"{clr}{down}     power boat                              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{down}{down}{down}{down}{down}{down}{down}{down}{down}      "
    3 print" press{CBM-C}space{CBM-V}for instructions or
    4 print"{CBM-C}return{CBM-V}to  play"
    5 geta$:ifa$=""then5
    6 ifa$=" "thengosub2000:goto10
    7 ifa$<>chr$(13)then5
   10 print"{clr}"
   30 d1=1
   40 d2=1
   50 d3=3
   60 d4=0
   70 dima(12,14)
   80 forx=1to12
   90 fory=1to14
  100 z=rnd(ti)*10
  110 ifz<9then140
  120 a(x,y)=3
  130 goto150
  140 a(x,y)=0
  150 nexty
  160 nextx
  170 a(1,1)=1
  180 t=00
  190 m=0
  210 gosub1000
  230 poke158,0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}command          "
  235 a(d1,d2)=1
  240 getc$:ifc$=""then240
  245 print"{home}                                       "
  246 poke158,0:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}command          "
  250 ifc$=" "thenc=0:nn=1:goto270
  255 ifc$="m"thenc=1:goto270
  260 ifc$="h"thenc=2:goto270
  265 ifc$="s"thenc=3:goto270
  266 ifc$=chr$(13)thenc=4:goto270
  267 goto240
  270 onc+1goto345,280,320,430,530
  280 rem
  290 t=t-15
  300 gosub1000
  310 goto230
  320 rem
  330 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}helm change        "
  340 geth$:ifh$=""then340
  341 ifh$="8"thenh=0:goto350
  342 ifh$="4"thenh=-1:goto350
  343 ifh$="6"thenh=1:goto350
  344 goto340
  345 ifh=0then348
  346 ifh=h1thenr1=r1+1
  347 ifr1>=7thenr1=0:goto380
  348 ifnn=1thennn=0:goto550
  349 goto400
  350 goto345
  380 print"{home}turning in circles is not allowed{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":t=t-100
  385 forrt=0to255:poke59464,rt:next:poke59464,0
  390 ifnn=1thennn=0:goto550
  395 goto330
  400 h1=h
  410 d4=h
  420 goto550
  430 rem
  440 t=t-5
  450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}position: ";d1;",";d2
  460 print"course: ";d3
  470 print"helm: ";
  480 ifd4=-1thenprint"port     "
  490 ifd4=0thenprint"midships  "
  500 ifd4=1thenprint"starboard "
  510 print"score:       {left}{left}{left}{left}{left}{left}";t
  520 goto230
  530 print"{home}             {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}stopped at ";d1;",";d2
  540 goto740
  550 rem
  560 data-1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,-1,-1
  570 d3=d3+d4
  580 ifd3>7thend3=0
  590 ifd3<0thend3=7
  600 fori=1tod3+1
  610 reade,f
  620 nexti
  625 restore
  630 a(d1,d2)=2
  640 d1=d1+e
  650 d2=d2+f
  652 ifd1<1then720
  654 ifd1>12then720
  656 ifd2<1then720
  658 ifd2>14then720
  660 ifa(d1,d2)=3then690
  670 t=t+10
  674 m=m+1
  676 ifm>=100then800
  680 goto230
  690 print"{home}bump at ";d1;",";d2"{left}                          {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  695 poke59459,255:poke59459,0
  700 t=t-50
  704 d1=d1-e
  708 d2=d2-f
  710 goto230
  720 print"{clr}run aground!"
  725 forty=255to0step-1:poke59464,ty:next:poke59464,0
  730 t=t-100
  740 print"your score was ";t
  750 print"                                      "
  760 print"press {CBM-C}space{CBM-V}to go again               "
  764 forrt=1to100:next
  765 geta$:ifa$<>""then765
  770 geta$:ifa$=""then770
  780 ifa$=" "thenrun10
  790 poke59464,0:poke59459,0:poke59466,254:poke59467,0:end
  800 print"{home}great! you got round the course"
  810 print"                                      "
  820 t=t+100
  830 goto740
 1000 rem
 1010 print"{home}{down}{down}"
 1020 print"     1 2 3 4 5 6 7 8 9 0 1 2 3 4 "
 1030 forx=1to12
 1040 printx;
 1050 ifx<10thenprint" ";
 1060 fory=1to14
 1070 ifa(x,y)=0thenprint" .";
 1080 ifa(x,y)=1thenprint"{$a0}b";
 1090 ifa(x,y)=3thenprint" Q";
 1100 ifa(x,y)=2thenprint" *";
 1110 nexty
 1120 print
 1130 nextx
 1140 print"course: ";d3
 1145 print"{down}{down}"
 1150 return
 2000 print"{clr}         power boat."
 2010 print"         {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
 2020 print"{down}{down}{down}{rght}the object of the game is to steer"
 2030 print"a powerboat around a lake"
 2040 print"on which there are buoys."
 2050 print"the buoys are represented by {CBM-C}Q{CBM-V}"
 2055 print
 2060 print"to control your boat,use:-"
 2070 print"   {CBM-C}space{CBM-V} do nothing-allow the boat to"
 2080 print"continue one move with the present helm"
 2090 print"(10 points bonus)"
 2095 print
 2100 print"  {CBM-C}m{CBM-V} print  map showing  all buoys and"
 2110 print"course to date(penalty 15 points)
 2115 print
 2120 print" {CBM-C}h{CBM-V} change helm:-(and move boat)"
 2130 print"      6 starboard,"
 2140 print"      8 midships,"
 2150 print"      4 port."
 2160 print"
 2169 print"      press a key to continue":poke158,0
 2170 geta$:ifa$=""then2170
 2171 print"{clr} headings are:-"
 2172 print"            {down}{down}{down}{down}{down}       0
 2173 print"{down}            {down}  7         1"
 2174 print"{down}          {down} 6       b       2"
 2175 print"{down}            {down}  5         3"
 2176 print"{down}            {down}       4     "
 2177 print"{down}{down}{down}{down}  press a key to continue"
 2178 poke158,0
 2180 geta$:ifa$=""then2180
 2190 print"{clr}   {CBM-C}s{CBM-V} print score to date-              (5 points penalty)"
 2200 print"
 2210 print"  {CBM-C}return{CBM-V} stop game at current position"
 2220 print"{down}{down}{rght}{rght}bumping a buoy has a penalty"
 2230 print"of 50 points."
 2240 print"{down}{down}{rght}{rght}running aground costs 100 points"
 2250 print"and ends the game."
 2255 print"{down}{rght}{rght}{rght}turning in circles costs you 100     points!"
 2260 print"{down}{down}{down}{down}  press a key to start"
 2265 poke158,0
 2270 geta$:ifa$=""then2270
 3000 return
   10 rem *********    ppong 1 *********
   20 rem ***lawrence hall of science***
   30 rem ***original idea: d.waxmann***
   40 rem ***pet version: p.rowe-1/78***
   50 poke 59468,12
   60 print "{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}welcome to";
   70 print "{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{left}{left}{left}{left}{left}";
   80 print "{rvon} ppong {down}{left}{left}{left}{left}{left}{left}{left}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{down}{down}{down}{down}{down}"
   90 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}care for instructions?";
  100 get a$:if a$="" then 100
  110 if left$(a$,1)<>"y" then 390
  120 print "{clr}    the object of this game is to"
  130 print "deflect your ball, Q , to hit ten"
  140 print "targets, {CBM-+} .{down}"
  142 print "    by pressing the n and m keys for"
  144 print "the N and M deflectors, you can deflect"
  146 print "the path of your ball.{down}"
  150 print "    be careful!  every 100 ticks"
  160 print "of the timer a land mine, * , will"
  170 print "appear somewhere on the screen."
  180 print "and if your ball runs over a land"
  190 print "mine, you will be zonked!{down}"
  200 print "    to erase a deflector, press the"
  210 print "space key just before the ball reaches"
  220 print "it.  for advanced play try the shift"
  230 print "key.{down}{down}{down}"
  240 print "{rght}{rght}{rght}{rght}{rght}press {rvon}return{rvof} to continue"
  250 get a$:if a$<>chr$(13) then 250
  390 c0=4^44:x=8
  400 c=0:s=0:gosub 980:l=q
  410 d=39*int(2*rnd(1))+1
  420 print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  430 print " {rvon} time = 0              ";
  440 print "    score = 0  {up}"
  450 for i=32769 to 32806
  460 poke i,100:poke i+920,100:next
  470 for i=32808 to 33688 step 40
  480 poke i,103:poke i+39,101:next
  490 gosub 980:poke q,102
  500 poke l,32
  505 t0=ti:get a$
  510 l=l+d:p=peek(l)
  520 if p=102 then 700
  525 if p=42 then 834
  530 if p>98 and p<104 then d=-1*d:goto 505
  535 if peek(516) then 590
  540 if p=32 then 620
  550 if a$=" " then 740
  560 if p=77 or p=78 then 600
  570 rem -----new symbols here-----
  580 stop
  590 gosub 980:poke l,32:l=q
  600 ds=sgn(d)*sgn(77.5-p)
  610 d=ds*(41-abs(d)):goto 505
  620 if a$="" then 740
  625 p=asc(a$):if p<77 or p>78 then 740
  630 poke l,p:a$="":goto 600
  700 gosub 950:s=s+1
  710 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}";
  720 print str$(s);"{up}"
  730 if s<>10 then gosub 980:poke q,102
  740 poke l,81:c=c+1
  750 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}";str$(c);"{up}"
  752 if c/100<>int(c/100) then goto 760
  754 gosub 980:if peek(q)<>32 then 754
  756 poke q,42
  760 if ti-t0<x then 760
  770 if s<>10 then 500
  800 gosub 940
  810 if c>=c0 then 838
  820 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  830 print "{rvon}new low time":x=6:c0=c:goto 840
  834 gosub 940:print "{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}";
  836 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}zonk";:gosub 940
  838 x=10
  840 print "{home} {rvon}care for another game?";
  850 print "       {left}{left}{left}{left}{left}{left}";
  855 get a$:if a$<>"" then 855
  860 get a$:if a$="n" then 910
  870 if a$<>"y" then 860
  880 print "yes":t=ti
  890 if ti-t<99 then 890
  900 goto 400
  910 print "no":t=ti
  920 if ti-t<99 then 920
  930 print "{clr}";:end
  940 for j=0 to 2:gosub 950:t=ti
  942 if ti-t<10 then 942
  944 next:return
  950 poke 59409,52:t=ti
  960 if ti-t<10 then 960
  970 poke 59409,60:return
  980 q=40*int(17*rnd(1)+4)
  990 q=q+int(32*rnd(1))+32771:return
    0 clr:poke59468,12
    1 rem pricer copyright (c) 1979 glen fisher
    2 rem cursor #7, february, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of mar 7 80
   90 pg$="pricer":nm$="7":gosub62000
  100 cr$=chr$(13):cm$=", ":cl$=": "
  110 pl$=", please.":l$="{rvon}L{rvof}":u$="{rvon}U{rvof}"
  200 restore:dt=0
  210 readei$,en$,es,pp$:ifei$<>""thendt=dt+1:goto210
  220 readdc$:ifdc$<>""thendc=dc+1:goto220
 1000 pr$="enter overhead rate: ":gosub59000:ov=n
 1005 ifov<0orov>=1thenprint"enter a decimal fraction";pl$:goto1000
 1010 pr$="{down}g&a rate: ":gosub59000:ga=n
 1015 ifga<0orga>=1thenprint"enter a decimal fraction";pl$:goto1010
 1020 pr$="{down}profit rate: ":gosub59000:pf=n
 1025 ifpf<0orpf>=1thenprint"enter a decimal fraction";pl$:goto1020
 1030 mf=1+ov+ga+pf
 1040 pr$="{down}is labor in{$a0}(1) hours, or (2) days? ":l=1:h=2:gosub58000
 1050 lpd=(n=2):lp$=" per hour.":iflpdthenlp$=" per day."
 1070 l=1:h=dt:pr$="{down}how many people on this job? ":gosub58000:pc=n
 1100 dimei$(pc),en$(pc),es(pc),dc$(dc)
 1110 print"{down}enter initials of people on the":print"job, pressing ";
 1120 print"{rvon}return{rvof} after each one.":fori=1topc
 1130 print"initals? ";:gosub60000
 1140 ifin$=""thenprint"{down}don't skip entries";pl$:goto1130
 1150 qy=in$="?":restore:forj=1todt:readei$,en$,es,pp$
 1155 ifqythenprint"   ";ei$,en$:goto1170
 1160 ifei$=in$then1180
 1170 nextj:ifqythen1130
 1175 print"{down}no one has those initials.":in$="?":goto1150
 1180 ei$(i)=ei$:en$(i)=en$:es(i)=es:ifpp$="yr"thenes(i)=es/2080
 1190 print"cost for ";en$;" is:":n=es(i):iflpdthenn=n*8
 1200 gosub58150:print"  ";zu$;u$;cm$;zl$;l$;;lp$
 1210 nexti
 1900 goto2500
 2500 pr$="{down}are time estimates by{$a0}(1) weeks, or{$a0}(2) months? ":l=1:h=2:gosub58000
 2510 wk=n=1:un$="months":ifwkthenun$="weeks"
 2530 restore:fori=1todt+1:readt$,t$,t$,t$:nexti
 2535 fori=1todc:readdc$(i):nexti:readt$:ifwkthen2600
 2540 dimmn$(12):fori=1to12:readmn$(i):nexti
 2550 print"{down}starting month? ";:gosub60000:ifin$=""then2550
 2560 fori=1to12:ifin$=left$(mn$(i),len(in$))thenmn=i:goto2580
 2570 nexti:print"unknown month.":goto2550
 2580 pr$="{down}starting year.":l=1900:h=0:gosub58000:yr=n
 2600 pr$="{down}how many "+un$+"{$a0}is the estimate for? ":l=1:h=0:gosub58000:tm=n
 2620 dimlb(pc,tm),dc(tm)
 2630 fori=1topc:ifchthen2700
 2635 print"{down}enter labor for ";en$(i);pl$:m=mn:y=yr
 2640 forj=1totm:ifwkthenpr$="week"+str$(j)+"? ":goto2660
 2650 pr$=mn$(m)+","+str$(y)+"? ":m=m+1:ifm>12theny=y+1:m=1
 2660 gosub59000:iflpdthenn=n*8
 2670 lb(i,j)=n:nextj
 2700 print"{down}";en$(i);"'s labor:"
 2705 n=es(i):iflpdthenn=n*8
 2706 gosub58150:print"cost: ";zu$;u$;cm$;zl$;l$;lp$:print
 2710 forj=1totm:t$="{rvon}"+mid$(str$(j),2)+"{rvof} ":n=lb(i,j):iflpdthenn=n/8
 2720 gosub58200:printt$;z$,:nextj:print
 2730 pr$="{down}any changes? ":gosub59200:ifnaythen2800
 2735 print"press only{$a0}{rvon}return{rvof} when done."
 2740 l=0:h=tm:pr$="which period? ":gosub58000:j=n
 2745 ifn=0then2700
 2750 pr$="what should it be? ":gosub59000:iflpdthenn=n*8
 2760 lb(i,j)=n:goto2740
 2800 nexti
 2810 pr$="any other direct costs? ":gosub59200:ifnaythen3000
 2820 m=mn:y=yr:fori=1totm:ifwkthentm$="week"+str$(i):goto2840
 2830 tm$=mn$(m)+","+str$(y):m=m+1:ifm>12theny=y+1:m=1
 2840 print"{down}enter costs for ";tm$;pl$
 2850 forj=1todc:pr$=dc$(j)+"? ":gosub59000:dc(i)=dc(i)+n:nextj
 2860 pr$="any changes? ":gosub59200:ifyeathen2840
 2870 nexti
 3000 tl=0:tc=0:print"  {down}costs (loaded)"
 3001 t$="       ":print"period    labor";t$;"other";t$;"total"
 3002 ln=2:m=mn:y=yr:ifm<>1andwk=0thenprint"{rvon}";mid$(str$(y),2):ln=3
 3005 fori=1totm:l=0:c=0
 3010 ifwkthenpr$=right$("  "+str$(i),3):goto3015
 3011 ifm=1andwk=0thenprint"{rvon}";mid$(str$(y),2):ln=ln+1
 3012 pr$=left$(mn$(m),3):m=m+1:ifm>12theny=y+1:m=1
 3015 printpr$;
 3020 c=dc(i)
 3030 forj=1topc:l=l+lb(j,i)*es(j):nextj
 3040 tl=tl+l:tc=tc+c:l=l*mf:c=c*mf
 3050 n=l:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3060 n=c:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3070 n=l+c:gosub58100:printtab(pos(0)+12-len(z$));z$
 3075 ln=ln+1:ifln<21then3080
 3076 print"{down}press any key to continue:"
 3077 gett$:ift$=""then3077
 3078 print:ln=0
 3080 nexti
 3090 if ln+6<21then3100
 3091 print"{down}press any key to continue:"
 3092 gett$:ift$=""then3092
 3093 print
 3100 print"{down}  total, loaded:"
 3110 print"   ";
 3120 n=tl*mf:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3130 n=tc*mf:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3140 n=(tl+tc)*mf:gosub58100:printtab(pos(0)+12-len(z$));z$
 3150 print"  total, unloaded:":print"   ";
 3160 n=tl:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3170 n=tc:gosub58100:printtab(pos(0)+12-len(z$));z$;
 3180 n=tl+tc:gosub58100:printtab(pos(0)+12-len(z$));z$
 3200 print:pr$="want to change any figures? ":gosub59200:ifyeathench=1:goto2630
 9999 end
 40000 datagf,g t fisher,80000,yr
 40010 datarkj,r jeffries,1.70,hr
 40020 datacm,curt mosso,40000,yr
 40030 datarm,r mcelroy,5000,yr
 40040 dataaen,alfred e. neuman,2080,yr
 40050 dataln,little nemo,5,hr
 41000 data,,,
 41010 datatravel,computer time
 41020 data""
 42000 datajanuary,february,march,april,may,june
 42010 datajuly,august,september,october,november,december
 58000 gosub59000:ifint(n)<>nthenprint"no decimals";pl$:goto58000
 58005 ifh=0then58030
 58010 ifn<lorn>hthenprint"enter a number from";l;"TO";h;"{left}";pl$:goto58000
 58020 return
 58030 ifn<lthenprint"enter a number";l;"or greater";pl$:goto58000
 58040 return
 58100 z=int(abs(n)*100+.5):z$=mid$(str$(z),2):ifz<100thenz$=right$("00"+z$,3)
 58110 z$=left$(z$,len(z$)-2)+"."+right$(z$,2):ifn<0thenz$="-"+z$
 58120 z$="$"+z$:return
 58150 gosub58100:zu$=z$:n=n*mf:gosub58100:zl$=z$:return
 58200 gosub58100:z0$=right$(z$,2)
 58210 ifright$(z0$,1)="0"thenz$=left$(z$,len(z$)-1)
 58220 ifz0$="00"thenz$=left$(z$,len(z$)-2)
 58230 z$=mid$(z$,2):return
 59000 printpr$;:gosub60000:ifin$=""thenn=0:return
 59010 pt=1:ifleft$(in$,1)="$"thenin$=mid$(in$,2)
 59020 ifin$=""then59000
 59030 forii=1tolen(in$):t$=mid$(in$,ii,1)
 59040 ift$>="0"andt$<="9"then59090
 59050 ift$<>"."thenprint"nO ";t$;"'S";pl$:goto59000
 59060 ifpt=0thenprint"too many decimal points.":goto59000
 59070 pt=0
 59090 nextii
 59100 n=val(in$):return
 59200 yea=0:nay=-1
 59210 printpr$;:gosub60000:ifin$=""thenreturn
 59220 in$=left$(in$,1):yes=(in$="y"):nay=notyea
 59230 ifnayandin$<>"n"thenprint"please answer yes or no.":goto59210
 59240 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 :
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 print"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1978    page";pn;"{down}"
 60270 return
 60500 for i=1to10:print"DDDD";:next i:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #7  pricer"
 62002 print"{down}copyright (c) 1979 by glen fisher"
 62004 gosub 60500
 62010 print"{down}estimate job costs."
 62020 print"{down}this program will assist you in
 62030 print"estimating job costs. at line{$a0}40000
 62040 print"put in data statements for your
 62050 print"employees. at line 41010 put data
 62060 print"statements for other direct costs.
 62300 print"{down}press {rvon}return{rvof} to begin."
 62330 gett$:ift$=""then62330
 62340 clr:print"{clr}{down}":goto100
    0 clr:pg$="printsit":nm$="24":goto62000
    1 " brian sawyer
    2 " 1310 dover hill rd.
    3 " santa barbara, ca 93103
    4 "
    5 " cursor #24, feb, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 rem as of 81 feb 2
  100 print"{clr}":ch=90:ht=25:ar=1
  130 pr=12:pc=int(wd/2):qp=515:ifpeek(50000)thenqp=151
  140 fori=1to9:readrc(i),cc(i):nexti
  145 data1,-1,1,0,1,1,0,-1,0,0,0,1,-1,-1,-1,0,-1,1
  150 p=crt+wd*pr+pc
  152 geta$:ifa$<>""then152
  155 ifch>=0thenpokep,ch
  160 c=peek(p):oc=c
  170 geta$:ifa$<>""then210
  190 ifti>tmthenc=(c+128)and255:pokep,c:tm=ti+15:ifarthenpokeqp,255
  200 goto170
  210 pokep,oc:t=(a$=kk$):kk$="":ar=1:iftthen620
  220 ifa$>="1"anda$<="9"then400
  230 ifa$="{clr}"ora$="q"ora$=chr$(148)then600
  240 ifa$="c"then500
  250 ifa$="{home}"thenpr=0:pc=0:goto150
  260 ifa$="{rvon}"thenr=1:ch=chor128:goto150
  270 ifa$="{rvof}"thenr=0:ch=chand127:goto150
  280 ifa$="{down}"thena$="2":goto400
  282 ifa$="{up}"thena$="8":goto400
  284 ifa$="{rght}"thena$="6":goto400
  286 ifa$="{left}"thena$="4":goto400
  290 a=asc(a$):zs=(aand128):a=a-zs
  300 ifa<32ora>95thench=-1:goto150
  310 ifa>63thena=a-64
  320 ifzs=0thena=a+64
  330 ifrthena=a+128
  340 ch=a:goto150
  400 d=val(a$)
  410 nc=pc+cc(d):nr=pr+rc(d)
  420 ifnc>=0andnc<wdandnr>=0andnr<htthenpr=nr:pc=nc
  430 goto150
  500 zc=63:zt=oc+zc
  510 geta$:ifa$<>""then540
  520 ifti>tmthenpokep,zc:zc=zt-zc:tm=ti+15
  530 goto510
  540 ifa$="{rvon}"thenr=1:goto510
  550 ifa$="{rvof}"thenr=0:goto510
  560 pokep,c:goto290
  600 kk$=a$:ar=0:goto152
  620 ifa$="q"thenprint"{clr}":end
  630 ifa$="{clr}"thenprint"{clr}":goto152
  640 ifa$=chr$(148)thengosub59000:goto152
  650 goto170
 59000 rem wd=40:crt=32768 (change to wd=80 for 80 column pet)
 59005 open4,4:zc=wd:zr=0
 59006 zs=46:gosub59150:print#4
 59007 zs=18:gosub59150
 59010 forzt=crttocrt+25*wd:z=peek(zt):zl=z
 59020 ifzc=wdthenzc=0:print#4:ifpeek(59468)=14thenprint#4,"{down}";
 59030 pokezt,(zl+128)and255
 59040 ifz>127andzr=0thenprint#4,"{rvon}";:zr=1
 59045 ifz<128andzr=1thenprint#4,"{rvof}";:zr=0
 59050 z=zand127:zs=0:ifz>63thenzs=128:z=z-64
 59060 ifz<32thenz=z+64
 59080 print#4,chr$(z+zs);
 59090 ifz=34andzs=0 thenprint#4,chr$(141);tab(zc+1);
 59120 zc=zc+1:pokezt,zl
 59130 nextzt:print#4:zs=45:gosub59150:print#4:close4
 59140 zs=24:gosub59150:return
 59150 open6,4,6:print#6,chr$(zs):close6:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60209 geta$:ifa$=""then62090
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by brian sawyer
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}draw pictures on screen and print them
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 geta$:ifa$=""then62090
 62100 goto60300
  100 rem demo program for subroutine
  110 forj=1to20
  120 v=exp(rnd(1)*14-6)*sgn(rnd(1)-.2)
  130 v1=4:v2=0:gosub50000:printv$;" ";
  140 v1=3:v2=1:gosub50000:printv$;" ";
  150 v2=4:gosub50000:printv$
  160 nextj
  170 end
 50000 rem 'using' arrange in columns
 50010 rem v is value; v1.v2 prints
 50020 v4=int(v*10^v2+.5)
 50030 v$=right$("       "+str$(v4),v1+v2+1):q$=v$
 50040 if v2<1 goto50080
 50050 forv5=v1+2tov1+v2+1:if asc(mid$(v$,v5))<48thennextv5
 50060 v6=v5-v1-1
 50070 v$=mid$(v$,v6,v1+1)+left$(".00000",v6)+mid$(v$,v5)
 50080 if asc(v$)>47 then v$=left$("**********",v1+v2+2+(v2=0))
 50090 return
    0 clr:pg$="prochar":nm$="27":goto62000
    1 " steve gull
    2 " 1403 stella
    3 " anahiem, ca.
    4 "
    5 " cursor #27, august, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 19aug81 5:30  mtr
  100 pf=0
  200 tb$="":forx=1to80:tb$=tb$+"{rght}":next
  210 print"{clr}{down}   programable character for printer"
  220 forx=1to39:print"{CBM-T}";:next::print:printleft$(tb$,20)"{up}O{down}{left}";:forx=1to20
  230 print"{CBM-G}{down}{left}";:next:print"{home}{down}{down}{down}";
  240 printleft$(tb$,26)"{down}{rvon}5{rvof}-plot/erase"
  250 printleft$(tb$,26)"{down}{rvon}e{rvof}-erase char."
  260 printleft$(tb$,26)"{down}{rvon}i{rvof}-inverse   "
  270 printleft$(tb$,26)"{down}{rvon}r{rvof}-row plot  "
  280 printleft$(tb$,21)"{down}shift{rvon}r{rvof}-row erase "
  290 printleft$(tb$,26)"{down}{rvon}c{rvof}-column plot"
  300 printleft$(tb$,21)"{down}shift{rvon}c{rvof}-column erase"
  305 ifwd=80thenprint
  310 printleft$(tb$,26)"{rvon}p{rvof}-print   "
  320 printleft$(tb$,26)"{down}{rvon}q{rvof}-quit    "
  330 print"{up} use the number pad":print" to move the cursor"
  340 print"{home}{down}{down}{down}{down}{down}{down}"
  350 printspc(5)"{CBM-A}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-S}"
  360 forx=1to7
  370 printspc(5)"{CBM-Q}      {CBM-W}"
  380 nextx
  390 printspc(5)"{CBM-Z}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-E}{CBM-X}"
  400 x=1:y=1:fora=1to6:sr(i)=0:forb=1to7:c(a,b)=0:nextb,a:ch$=""
  410 lo=crt+x+5+wd*(y+7)
  420 ch=peek(lo):pokelo,ch+10
  430 geta$:ifa$=""then430
  431 pokelo,ch
  435 ifa$="5"then630
  440 ifa$="e"then340
  450 ifa$="i"then1100
  460 ifa$="r"then1130
  470 ifa$="R"then1130
  480 ifa$="c"then1160
  490 ifa$="C"then1160
  500 ifa$="p"then650
  510 ifa$="q"then1190
  530 ifval(a$)=0then410
  540 q=val(a$):onqgoto550,550,550,570,410,590,610,610,610
  550 y=y+1:ify>7theny=1
  560 onqgoto570,410,590
  570 x=x-1:ifx<1thenx=6
  580 goto410
  590 x=x+1:ifx>6thenx=1
  600 goto410
  610 y=y-1:ify<1theny=7
  620 onq-6goto570,410,590
  630 z=peek(lo):ifz=160thenpokelo,32:c(x,y)=0:goto410
  640 pokelo,160:c(x,y)=1:goto410
  650 print"{home}{down}{down}{down}{down}{rght}{rvon}printing character"
  655 ch$=""
  660 fora=1to6:ch=0:forb=1to7
  670 ch=ch+c(a,b)*2^(7-b)
  770 nextb:sr(a)=ch:ch$=ch$+chr$(ch):nexta
  780 open1,4
  800 gosub2000
  810 ifzz$=ch$thenprint"{home}{down}{down}{down}{down}    {rvon}duplicate!{rvof}     "
  820 zz$=ch$
  860 open2,4,5:print#2,ch$:close2
  890 print#1,"       ";
  900 forw=1to6:print#1,chr$(254)chr$(1)"  ";:nextw
  905 print#1,chr$(10)"20 print#1";:z$=",":forb=1to6
  906 print#1,z$;"chr$("mid$(str$(sr(b)),2)")";:z$=";":next
  910 print#1:print#1:print#1:print#1:print#1:print#1,chr$(10),chr$(10)
  915 close1
  920 print"{home}{down}{down}{down}{down}{rght}                  "
  930 goto410
 1100 forx1=1to6:fory1=1to7
 1110 z=crt+x1+5+wd*(y1+7):pokez,192-peek(z):c(x1,y1)=1-c(x1,y1)
 1120 nexty1,x1:goto410
 1130 forx1=1to6:z=crt+x1+5+wd*(y+7)
 1140 pokez,32:c(x1,y)=0:ifa$="r"thenpokez,160:c(x1,y)=1
 1150 nextx1:goto410
 1160 fory1=1to7:z=crt+x+5+wd*(y1+7)
 1170 pokez,32:c(x,y1)=0:ifa$="c"thenpokez,160:c(x,y1)=1
 1180 nexty1:goto410
 1190 print"{clr}"
 1200 end
 2000 if pf then return
 2010 pf=1:print#1,chr$(19)
 2020 print#1,"prochar - cursor #27":print#1
 2030 print#1,chr$(1)"    {up}p{down}rogrammable {down}c{down}haracter {up}p{down}rogram"
 2040 print#1,chr$(1)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":print#1
 2050 print#1,"{up}y{down}ou can create special characters in a basic program ";
 2060 print#1,"{down}with this routine.":print#1
 2070 print#1,"10 {up}open 1,4,5"
 2080 print#1,"20 {up}print#1,chr$("mid$(str$(sr(1)),2);")";
 2090 fori=2to6:print#1,";chr$("mid$(str$(sr(i)),2);")";:nexti:print#1
 2100 print#1,"30 {up}close1"
 2110 print#1:print#1,"{up}a{down}nd to print it...":print#1
 2120 print#1,"100 {up}open1,4:print#1,chr$(254):close1":print#1,chr$(10)chr$(10)
 2130 print#1,chr$(1)"       {up}p{down}rogrammable {up}c{down}haracters"
 2140 print#1,chr$(1)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":print#1
 2150 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by steve gull
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}give your pet a little character"
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 63000 goto60300
    0 rem      copyright 1979
    2 rem            by
    4 rem   cascade computerware
    6 rem    all rights reserved
    8 rem
   10 print"{clr}"tab(252);
   20 fork=1to2:printtab(12)"{rvon}               ":next
   30 fork=1to2:printtab(12)"{rvon}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":next
   40 fork=1to2:printtab(12)"{rvon}             {CBM-+}{CBM-+}":next
   50 fork=1to2:printtab(12)"{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":next
   60 fork=1to1000:next
  100 print"{clr}{down}{down}{down}"tab(14)"prospector":printtab(92)"copyright 1979
  110 printtab(58)"by":printtab(49)"cascade computerware
  120 printtab(90)"all rights reserved
  200 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}do you want instructions ({rvon}y{rvof} or {rvon}n{rvof})?":l=rnd(-ti)
  210 gosub9300
  220 ifz$<>"y"then1000
  300 print"{clr}you are on the airless planet {rvon}desolatus
  310 print"looking for the valuable ore {rvon}greedium{rvof}.
  320 print"{down}a map of the area shows the base camp
  330 print"and plots your sensor readings.  find
  340 print"the buried ore by comparing readings.
  350 print"{down}on each trip to the field you can take
  360 print"only one search device{$a0}and 25 units of
  370 print"air.  each time you reach the base camp
  380 print"your mobile air tanks are refilled,
  390 print"equipment is repaired, and you can
  400 print"choose another device.
  410 print"{down}your air status is shown below the map.
  420 gosub 9000
  430 print"{clr}you have three pieces of equipment:
  440 print "{down}{rvon}coarse sensor{rvof} - selected by pressing {rvon}c{rvof}.
  450 print"no limit on the number of readings.  the
  460 print"{up}readings have only five values: '-' and
  470 print"a - d.  a null reading is '-'; 'a' is
  480 print"the weakest actual reading;{$a0}'d' is the
  490 print"strongest.  'c' and 'd' may not appear
  500 print"if the ore deposit is deep.
  510 print"{down}{rvon}fine sensor{rvof} - selected by pressing {rvon}f{rvof}.
  520 print"only 10 soundings can be made, even if
  530 print"you return to base.  results range from
  540 print"0 (null) through a possible 9 (strong).
  550 print"{down}{rvon}borer{rvof} - selected by pressing {rvon}b{rvof}.  the
  560 print"only way you can win is to get an ore
  570 print"sample with the borer and return to
  580 print"base.  only two samples can be taken.
  590 gosub 9000
  600 print"{clr}during the game press letter keys to
  610 print"answer questions.  press number keys to
  620 print"control movement.
  630 print"{down}movement control{$a0}uses {rvon}5{rvof} as a reference
  640 print"point.  pressing{$a0}{rvon}4{rvof} causes movement to"
  650 print "the left; {rvon}1{rvof}, diagonally down and left;
  660 print"{rvon}9{rvof}, diagonally up and right; and {rvon}5
  670 print"causes a halt.
  680 print"{down}movement continues in a straight line
  690 print"until another key is pressed.  sensings
  700 print "can be made only while stationary.
  710 print"{down}{down}{rvon}there are hazards on desolatus!{down}{down}
  720 gosub9000
 1000 print"{clr}":clr:poke59468,12:ip=32889:bf=1:bt=2:ct=25:ft=10:l=102:z=160
 1100 deffnq(z)=int(rnd(1)*z)
 1110 v1=fnq(18):v3=v1:h1=fnq(37):h3=h1:p1=ip+40*v1+h1:lo=p1
 1120 s1=150:ma=25
 1200 v2=fnq(18):ifv2<2orv2>16then1200
 1210 h2=fnq(37):ifh2<2orh2>34then1210
 1220 ifabs(v2-v1)<5andabs(h1-h2)<5then 1200
 1230 d=rnd(1)*4+3:p2=ip+40*v2+h2
 1300 print"{clr}":fork=32848to33568step80
 1310 pokek,l:pokek+38,l:pokek+40,z:pokek+78,z:next:poke33686,l
 1320 fork=32848to32884step2
 1330 pokek,l:pokek+800,l:pokek+1,z:pokek+801,z:next
 1400 gosub9500:print"{up}base air"tab(15)"mobile air"tab(31)"use rate";
 1500 du=1:ti$="000000":pokelo,209:gosub8800:goto3000
 2000 gosub8000:getz$:z=val(z$):ifz=5thenmv=0:goto3000
 2010 ifz=0then2100
 2020 mv=z:z=0
 2100 gosub9200
 2200 k=0:l=0:ifmv<4thenk=1
 2210 ifmv>6thenk=-1
 2220 ifint((mv+2)/3)=(mv+2)/3thenl=-1
 2230 ifint(mv/3)=mv/3thenl=1
 2240 ifv3+k<0orv3+k>18orh3+l<0orh3+l>36then2000
 2300 v3=v3+k:h3=h3+l:pokelo,peek(lo)-128:lo=ip+40*v3+h3:pokelo,peek(lo)+128
 2400 fork=1to360:next:goto2000
 2500 fork=1to3:poke33265+k,131:next
 3000 iflo<>p1then4000
 3010 bf=1:du=1:gosub8000:ifwfthen6000
 3100 ifs1+s2>ma-1thens1=s1+s2-ma:s2=ma:goto3200
 3110 s2=s2+s1:s1=0
 3200 gosub8800:ifmf=2then3230:goto3300
 3210 gosub9600:mf=2:print"{home}which equipment:  {rvon}c{rvof}oarse sensor,
 3220 print"{rvon}f{rvof}ine sensor, or {rvon}b{rvof}orer for sample?
 3230 getz$:eq$=z$:ifz$=""then3200
 3240 ifz$<>"c"andz$<>"f"andz$<>"b"then3200
 3300 gosub8000:gosub9200:getz$:z=val(z$):ifz=5then3200
 3310 ifz=0then3300
 3320 bf=0:goto2020
 4000 gosub8000:ifwfthen4120
 4010 ifmf=4then4100
 4020 gosub9600:mf=4:print"{home}do you want to take a ";
 4030 z$="reading?":ifeq$="b"thenz$="sample?
 4040 printz$:print"(press {rvon}y{rvof} or {rvon}n{rvof}.)
 4100 getz$:ifz$<>"y"andz$<>"n"then4000
 4110 ifz$="y"then5000
 4120 gosub8000:gosub9200
 4200 getz$:z=val(z$):ifz=5then4000
 4210 ifz=0then4120
 4220 goto2020
 5000 gosub8000:ifeq$="b"then5600
 5010 k=rnd(1)*20:ifeq$="f"andft=0then5500
 5020 ifeq$="f"thenft=ft-1
 5030 ifk>1then5100
 5040 pokelo,191:gosub9600:print"{home}sensor not calibrated. reading invalid.
 5050 print"used one day to calibrate.":gosub8600:goto4020
 5100 k=0:z=v2-v3:k=k+z*z:z=h2-h3:k=k+z*z+d*d:k=12-sqr(k):ifk<0thenk=0
 5110 ifeq$="f"then5300
 5200 k=int(k*.5):ifk<1thenk=45
 5210 k=k-48
 5300 k=k+48:pokelo,k+128:goto4120
 5500 gosub9600:print"{home}fine sensor worn out!
 5510 gosub8600:goto4120
 5600 gosub9600:iflo=p2then5800
 5610 bt=bt-1:print"{home}nope! not here!":ifbt>0thenprint"one more chance!":goto5510
 5700 print"borer worn out!  no proof, no rewards!
 5710 sys(7767):ifwfthenwf=0:goto6000
 5720 gosub9600:print"{home}here's the greedium!":forz=1to10:fork=1to180:next
 5730 pokep2,86:fork=1to180:next:pokep2,214:next:goto6000
 5740 pokeip,131:pokeip+1,131:pokeip+2,143
 5800 pokelo,214:print"{home}you found it!  can you get back to base
 5820 print "with the sample?":sys(7767):wf=5:goto4120
 6000 gosub9800
 6010 restore:l=rnd(1)*5+1+wf:forz=1tol:readz$:next
 6100 printtab(k)"{up}            "
 6110 k=rnd(1)*18+1:print"{home}":forz=1tok:print:next
 6120 k=rnd(1)*26:printtab(k)z$:getz$:ifz$="y"orz$="n"then6140:k=rnd(1)*3
 6130 forz=1to180:next:goto6010
 6140 ifz$="y"then1000
 6150 goto9980
 7000 gosub9600:print"{home}{rvon}out of air!
 7010 print"another victim of the planet {rvon}desolatus!":goto5710
 7100 print"{clr}{down}{down}{down}{down}{down}{down}{down}months later, another prospector found
 7110 print"{down}part of your equipment.":print"{down}{down}he reported:{down}":printchr$(34);
 7200 k=rnd(1)*3+1:onkgosub7300,7310,7330
 7210 printchr$(34):gosub9810:gosub9100
 7220 getz$:ifz$=""then7220
 7230 ifz$="y"then1000
 7240 ifz$="n"then9980
 7250 goto7220
 7300 print"terrible!  chomped right in half!";:return
 7310 print"everything was mashed in the middle
 7320 print"{down}of a huge footprint!";:return
 7330 print"something pretty big, alright!
 7340 print"{down}squashed flat!";:return
 8000 ifti<240then8300
 8010 k=val(ti$)-4:z$=right$(str$(k),len(str$(k))-1)
 8020 iflen(z$)<6thenz$="0"+z$:goto8020
 8030 ti$=z$:ifbfthen8200
 8100 k=rnd(1)*400:ifk<1then7100
 8110 s2=s2-du
 8120 ifs2<1thens2=0
 8130 goto8800
 8200 s1=s1-1:ifs1<0thens2=s2+s1:s1=0:goto8120
 8210 goto8800
 8300 k=rnd(1)*1000:ifk>1thenreturn
 8310 gosub9600:ifbfthen8700
 8320 k=rnd(1)*8:onkgoto8340,8350,8360,8380,8390,8410,8430
 8330 print"{home}hole in suit!  lost one day's air!":goto8600
 8340 print"{home}vehicle breakdown. two days for repair.":s2=s2-du:goto8600
 8350 print"{home}vehicle problems.  lost one day.":goto8600
 8360 print"{home}air regenerator problems.  using air at
 8370 print"twice the previous rate!":du=2*du:goto8600
 8380 print"{home}rough terrain.  lost a day.":goto8600
 8390 print"{home}lost your bearings.  used one day to
 8400 print"get back on course.":goto 8600
 8410 print"{home}forgot equipment at a rest stop.  lost
 8420 print"two days making the round trip.":s2=s2-du:goto8600
 8430 print"{home}took shelter from meteorite shower.":print"lost one day.
 8600 sys(7767):goto8000
 8700 k=rnd(1)*3:onkgoto8720,8730
 8710 print"{home}used one day to repair base camp.":goto8600
 8720 print"{home}air leak!!  lost ten days' air supply!!":s1=s1-9:goto8600
 8730 print"{home}{rvon}fatigue!{rvof}  rested for two days.":s1=s1-1:goto8600
 8800 gosub9500:printtab(2)s1"{left} "tab(18)s2"{left} "tab(34)du"{left} {up}
 8810 iflo<>p1ands2=0then7000
 8820 ifbf=1ands1+s2=0then7000
 8830 goto8000
 9000 print"{down}{down}press a key to continue.":goto9300
 9100 getz$:ifz$<>""then9100
 9110 return
 9200 ifmf=3thenreturn
 9210 gosub9600:mf=3:print"{home}press a key for movement direction.":return
 9300 gosub 9100
 9310 getz$:ifz$=""then9310
 9320 return
 9500 print"{home}":fork=1to23:print:next:return
 9600 fork=32768to32847:pokek,32:next:mf=0:goto9100
 9800 print"{clr}
 9810 gosub9500:print"{up}{up}{up}{rght}{rght}do you want to try again ({rvon}y{rvof} or {rvon}n{rvof})?{up}":return
 9900 datatoo bad!,so sad!,don't cry!,sigh!,"oh, well!"
 9910 datasuccess!,fame!,riches!,hooray!,you did it!
 9980 print"{clr}
 9990 end
    1 print"{clr}":clr
  100 dims%(38),r%(38),n%(38)
  110 n1=38:n2=12:n3=118:ke=0
  120 fori=1to168:readq$:next
  130 forx=1ton1:reads%(x),l:r%(x)=s%(x):n%(x)=s%(x)+l-1:next
  160 print"hi,i am pet tell me your problem!"
  170 print:inputi$
  180 i$=" "+i$+"  "
  200 forl=1tolen(i$)
  210 ifmid$(i$,l,1)="'"theni$=left$(i$,l-1)+right$(i$,len(i$)-l):goto210
  220 nextl
  230 ifi$=p$thenprint"please dont repeat yourself":goto170
  280 restore:s=0
  300 fork=1ton1:ifs>0then340
  310 readk$:a%=len(k$):b%=len(i$)
  320 fori=1tob%-a%:ifmid$(i$,i,a%)=k$thena=i+1:goto330
  321 nexti
  322 a=0
  330 ifa<>0thens=k:t=a:f$=k$
  340 nextk
  365 ifs>0thenk=s:l=t:goto400
  370 k=n1:goto570
  400 restore:fori=1to38:readq$:next
  405 iflen(i$)-len(f$)-l+1=0thenc$=" ":goto420
  410 c$=" "+right$(i$,len(i$)-len(f$)-l+2)
  420 forx=1ton2/2:reads$,r$
  440 forl=1tolen(c$)
  450 ifl+len(s$)>len(c$)then510
  480 ifmid$(c$,l,len(s$))<>s$then510
  490 c$=left$(c$,l-1)+r$+right$(c$,len(c$)-l-len(s$)+2):l=l+len(r$):goto540
  510 ifl+len(r$)>len(c$)then540
  520 ifmid$(c$,l,len(r$))<>r$then540
  525 ifl=1thenc$=s$+right$(c$,len(c$)-l-len(r$)+1):goto540
  530 c$=left$(c$,l-1)+s$+right$(c$,len(c$)-l-len(r$)+2)
  540 nextl,x
  555 ifmid$(c$,2,1)=" "thenc$=right$(c$,len(c$)-1)
  570 restore:fori=1to50:readq$:next
  575 print
  580 forx=1tor%(k):readf$:next
  590 r%(k)=r%(k)+1:ifr%(k)>n%(k)then r%(k)=s%(k)
  595 a=0:fori=1tolen(f$):ifmid$(f$,i,1)="*"thena=i
  596 next
  600 ifa=0thenprintf$:p$=i$:goto170
  620 printleft$(f$,a-1);c$;:iflen(f$)-a<>0thenprintright$(f$,len(f$)-a):goto630
  625 print
  630 p$=i$:goto170
 1050 data"can you","can i","you are","youre","i dont","i feel","why dont you"
 1060 data"why cant i","are you","i cant","i am","im ","you ","i want","what"
 1061 data"how"
 1070 data"who","where","when","why","name","cause","sorry","dream","hello","hi "
 1080 data"maybe"," no","your","always","think","alike","yes","friend","computer"
 1090 data"pet","money","nokeyfound"," are "," am "," were "," was "," you "
 1095 data" i "," your "," my "," ive "," youve "," im "," your "
 1100 data"dont you believe that i can*"
 1340 data"perhaps you would like to be able to*","you want me to be able to*"
 1360 data"perhaps you dont want to*","do you want to be able to"
 1370 data"what makes you think i am*","does it please you to beleave i am*"
 1390 data"perhaps you would like to be*","do you sometimes wish you were*"
 1410 data"dont you really*","why dont you*","do you wish to be able to"
 1440 data"does that trouble you?","tell me more about such feelings"
 1460 data"do you often feel*","do you enjoy feeling*"
 1480 data"do you really believe i don't*","perhaps in good time i will*"
 1500 data"do you want me to*","do you think you should be able to*"
 1520 data"why can't you*","why are you interested in whether or not i am*"
 1540 data"would you prefer if i were not*","perhaps in your fantasie i am*"
 1560 data"how do you know you can't*","have you tried?","perhaps you can now*"
 1590 data"did you come to me because you are*","how long have you been*"
 1610 data"do you believe it is normal to be*","do you enjoy being*"
 1630 data"we were discussing you - not me.","oh,i*"
 1650 data"you're not really talking about me,are you?"
 1660 data"what would it mean to you if you got*","why do you want"
 1680 data"suppose you soon got*","what if you never got*","i often also want*"
 1710 data"why do you ask?","does that question interest you?"
 1730 data"what answer would please you the most?","what do you think"
 1750 data"are such questions in your mind often?"
 1760 data"what is that you relly want to know?","have you asked anyone else?"
 1780 data"have you asked such questions before"
 1790 data"what else comes to mind when you ask that?","names don't interest me."
 1810 data"i don't care about names - please go on.","is that the real reason?"
 1830 data"don't any other reason come to mind?"
 1840 data"does that reason explain anythink else?"
 1850 data"what other reason might there be?","please don't apologize!"
 1870 data"apologies are not necessary.","what are your feelings by apologizing?"
 1890 data"don't be so defensive!","what does that dream suggest to you?"
 1910 data"do you dream often?","what persons arrear in your dreams?"
 1930 data"are you disturbed by your dreams?"
 1940 data"how do you do ... please state your problem."
 1950 data"you don't seem quite certain.","why the uncertain tone?"
 1970 data"can't you be more positiv?","you aren't sure?","don't you know?"
 2000 data"why no*","don't say no its always so negative","why not?"
 2030 data"are you sure?","why no?","why are you concerned about my*"
 2060 data"what about your own*","can't you think of a specific example?"
 2080 data"when?","what are you thinking of?","really,always?"
 2110 data"do you really think so?","but you are not sure you*"
 2130 data"do you doubt you*","in what way?","what resemblance do you see?"
 2160 data"what does the similarity suggest to you?"
 2170 data"what other connections do you see?","are there really connections?"
 2190 data"how?","you seem quite positive.","are you sure?","i see."
 2230 data"i understand.","why do you bring up the topic of friends?"
 2250 data"do your friends worry you?","do your friends pick on you?"
 2270 data"are you sure you have]any friends?","do you impose on your friends?"
 2290 data"perhaps your love for friends worries you.","do computers woory you?"
 2310 data"are you talking about me in particular?"
 2320 data"are you frightened by machines?","why do you mention computers?"
 2340 data"what do you think machines have to do with your problem?"
 2350 data"don't you think computers can help people?"
 2360 data"what is this about machines that woories you?"
 2370 data"say,do you have any psychological problems?"
 2380 data"what does that suggest to you?","i see."
 2400 data"im not sure i understand you fully.","come elucidate your thoughts!"
 2420 data"can you elaborate on that?","that is quite interesting."
 2440 data"why do you have problems with money?"
 2450 data"do you think money is everithing?"
 2460 data"are you sure that money is your problem?"
 2470 data"i think we want to talk about you , not about me."
 2480 data"whats about me?","why do you always bring up my name?"
 2530 data1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3,28,4,28,4,32,3,35,5,40,9
 2540 data40,9,40,9,40,9,40,9,40,9,49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2
 2550 data76,4,80,3,83,7,90,3,93,6,99,7,116,3,113,3,106,7
    5 rem dice throw by bill finzer
    7 rem october,1978
  100 rem main calling routine
  190 md=20:ms=40:dim sum(ms),c$(10)
  200 gosub 500 : rem initialize
  210 gosub 1000: rem instructions
  220 gosub 1500: rem input
  240 gosub 2000: rem draw graph
  250 gosub 3000: rem print heading
  260 gosub 3500:rem start trials
  270 gosub 5000: rem make table
  280 print"{home}{down}";"do you want to do another experiment?"
  290 get an$:if an$="" then 290
  300 if an$="y" then 200
  305 print left$(dwn$,22)
  310 print"well,i look forward to working with     you again!  so long."
  320 end
  500 rem initialize
  510 t=rnd(-ti)
  520 rght$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  530 dwn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  535 blank$="                                       "
  540 for i=1 to ms
  550 sum(i)=0
  560 next i
  570 data"W","C","V","Q","{CBM-+}","{rvon} {rvof}","!","S","{rvon}V{rvof}","{rvon}Q{rvof}"
  580 for c=1 to 10
  590 read c$(c)
  600 next c
  610 restore
  620 return
 1000 print"{clr}do you want instructions?"
 1010 get an$: if an$="" then 1010
 1020 if an$="n" then 1490
 1030 poke 158,0
 1040 print"you probably know that when you throw
 1050 print"a single die, all numbers are equally"
 1060 print"likely to come up."
 1070 w=10:gosub 3400:print
 1080 print"however, if you throw two dice, not all"
 1090 print"sums of the two numbers are equally"
 1100 print"likely.  for example,6 is much more"
 1110 print"likely than 2"
 1120 gosub 3400
 1130 print
 1140 print"what happens with more than two dice?"
 1150 w=3:gosub 3400
 1160 print:print"what happens if the dice have a"
 1170 print"different # of faces besides 6?"
 1180 print:gosub 3400:print
 1190 print"this program will throw as many as 6
 1200 print"dice with as many as 20 faces each"
 1210 print"as many times as you like and keep"
 1220 print"track of the sums in a graph for you"
 1230 print:input"are you interested";an$
 1240 if left$(an$,1)="n" then print"aw,shucks well try it anyway":goto 1490
 1250 if left$(an$,1)="y" then print"good,i'm going to like you":goto 1490
 1260 print"did you ever wonder if a computer  gets interested?"
 1490 print
 1495 return
 1500 rem input nd,nf,& nt& speed
 1510 rem      # dice,#faces,# throws
 1520 input"how many dice(<7)";nd
 1530 if nd>6 then print"too many,try again":     goto 1520
 1540 if nd<>int(nd) or nd<1 then print"dont be silly. try again":goto 1520
 1550 input"how many faces on each die(<21)";       nf
 1560 if nf >20 then print"too many, try again":   goto 1550
 1570 if nf<>int(nf) or nf<1 then print"are you trying to be difficult?":goto 1550
 1580 if nd*nf<37 then 1600
 1590 print"my screen is too narrow for that.  please make #dice * # faces < 37"
 1595 goto 1520
 1600 input"how many throws";nt
 1610 if nt<0 thenprint"don't you want at least one? try again.":goo 1600
 1620 print"you can have me go fast or slow."
 1630 print"if slow then you can see the dice."
 1635 print"if manual then you contol each step"
 1640 input "slow or fast or manual";speed$
 1650 speed$=left$(speed$,1)
 1660 return
 2000 rem draw graph
 2010 max=nd*nf-nd+1
 2020 iv= int(36/(max+1))-1
 2035 print"{clr}"
 2040 x=3:y=1: gosub 2500
 2050 for i=1 to max
 2060 for j=1 to iv
 2065 ifiv=0 then 2080
 2070 print"{SHIFT-+}";
 2080 next j
 2090 print"*";
 2100 next i
 2110 x=2:y=0:gosub 2500
 2120 for i= nd to nd*nf
 2130 x=x +iv+1 : gosub 2500
 2135 n$=right$(str$(i),len(str$(i))-1)
 2137 if iv=0 and i/5<>int(i/5) then 2150
 2140 print n$;
 2150 next i
 2160 width = iv
 2170 x=0:y=0
 2180 for i=0 to 15
 2190 y=y+1:gosub 2500
 2200 if i/5 <>int(i/5) then print"  {SHIFT-+}";:        goto 2240
 2205 if width=0 then print"{left}";str$(i);:goto      2220
 2210 print"{left}";str$(i*width);
 2220 if len(str$(i*width))=2 then print" ";
 2230 print"*";
 2240 next i
 2250 return
 2500 rem move cursor to x,y
 2505 print"{home}";:if x=0 then 2515
 2510 print"{home}";left$(rght$,x);
 2515 printleft$(dwn$,24-y);
 2520 return
 3000 rem print heading
 3010 print"{home}# dice ="nd"# faces ="nf"# throws ="nt
 3020 print"{home}{down}press s or f or m to change speed"
 3021 print"{home}{down}{down}order of symbols:";
 3022 for i=1 to 10
 3024 print c$(i);" ";
 3026 next i
 3030 return
 3400 rem delay w seconds
 3410 tm=ti
 3420 if ti<tm+w*60 then 3420
 3430 return
 3500 rem start throwing dice
 3510 for i= 1 to nt
 3520 s=0
 3530 for j=1 to nd
 3540 t= int(rnd(1)*nf)+1
 3550 if speed$="s" or speed$="m" then gosub 4500
 3560 s=s+t
 3570 get an$: if an$="f" then                speed$="f"
 3580 if an$="s" then speed$="s"
 3585 if an$="m" then speed$="m"
 3590 next j
 3600 sum(s)=sum(s)+1
 3610 gosub 4000
 3620 next i
 3630 return
 4000 rem display on graph
 4005 if width=0 then x=3-nd+s:y=1+sum(s): goto 4030
 4010 x=3-nd+s+sum(s)+width*(s+.5-nd-int(sum(s)/width))
 4015 if width=1 then x=x+1
 4020 y=2+int((sum(s)-1)/width)
 4030 c=1 : rem character pointer
 4040 if y>16 then y=y-15:c=c+1:              goto 4040
 4050 if c>10 then c=c-10:goto 4050
 4060 gosub 2500
 4070 printc$(c)
 4080 return
 4500 rem show each die
 4510 rem j is the # of the die
 4520 rem t is the # on the die
 4530 print"{home}{down}{down}{down}";tab(5*(j-1));
 4535 print"{rvon}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {up}{up}{up}{left}{left}{left}{left}";
 4540 on t goto 4610,4620,4630,4640,4650,4660,4670,4680,4690:goto 4700
 4610 print"{rvon}    {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4620 print"{rvon}    {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4630 print"{rvon} {CBM-D}  {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4640 print"{rvon}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4650 print"{rvon}{CBM-D} {CBM-D} {down}{left}{left}{left}{left} {CBM-D}  {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4660 print"{rvon}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4670 print"{rvon}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4680 print"{rvon}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}{CBM-D} {CBM-D} {down}{left}{left}{left}{left}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4690 print"{rvon}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}{CBM-D}{CBM-D}{CBM-D} {down}{left}{left}{left}{left}    {rvof}";  :goto 4800
 4700 print"{rvon}    {down}{left}{left}{left}{left}";str$(t);" {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {rvof}";: goto 4800
 4800 print"  "i:if speed$="s" or  j<>nd then 4810
 4802 y=20:x=32:gosub 2500
 4803 print"press{down}{left}{left}{left}{left}{left}any{down}{left}{left}{left}key"
 4805 get an$: if an$="" then 4805
 4807 if an$="f" then speed$="f"
 4809 if an$="s" then speed$="s"
 4810 return
 5000 rem draw a table
 5010 print"{home}{down}do you want to see a table of results?  {left}{left}";
 5015 print blank$;
 5020 get an$: if an$="" then 5020
 5030 if an$="n" then 5300
 5040 print"{clr}# dice="nd"# faces="nf"# trials="nt"{home}{down}{down}sum  # throws"
 5050 s=0:l=0
 5060 for i=nd to nd*nf
 5070 printtab(s);i,sum(i)
 5080 l=l+1
 5090 if l>20 then s=20:print"{home}{down}{down}"tab(s)"sum  # throws":l=0
 5100 next i
 5300 return
   10 rem...qth-kenner-berechnung...
   20 clr
   30 rem*********************
   35 rem***               ***
   40 rem*** coppyright by ***
   45 rem*** werner haemel ***
   50 rem*** brauhausstr.16 **
   55 rem*** 5800 hagen 5  ***
   60 rem***               ***
   65 rem*********************
   70 rem
   75 print"{swuc}
  100 print"{clr}***************************
  110 print"**                       **
  120 print"** qth-kenner-berechnung **
  130 print"**                       **
  140 print"***************************
  150 print"{down}{down}{down}geben sie einen qth-kenner ein !":print"{down}{down}? ";
  155 k3$="10":k4$="10"
  160 get k1$:print k1$;:ifk1$=""then160
  170 get k2$:print k2$;:ifk2$=""then170
  180 get k3$:print k3$;:ifk3$=""then180
  190 get k4$:print k4$;:ifk4$=""then190
  200 get k5$:print k5$;:ifk5$=""then200
  205 print
  210 gosub1000
  220 print"{clr}{down}{down}{down}die gegenstation mit dem qth-kenner "
  225 print"{down}          >> "k1$;k2$;k3$;k4$;k5$;" <<"
  230 print"{down}ist ";int(km);"km von hier (dl58b) entfernt
  240 rem print"{down}{down}der antennenwinkel betraegt:":print"{down}";aw;" grad"
  245 rem print"{down}lx=";lx*180/~,"bx=";bx*180/~
  250 fort=1to5000:nextt
  300 print"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}d{rvof}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}e{rvof}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}f{rvof}P{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}g{rvof}{CBM-T}{CBM-T}P
  310 print"{CBM-G}    {CBM-G}    {CBM-G}         {CBM-G}   O{CBM-T}{CBM-T}   {CBM-G}       {CBM-M}
  320 print"{CBM-G}   N     {CBM-G}         {CBM-G}   M     {CBM-G}    N{CBM-T}{CBM-G}{CBM-M}
  330 print"{rvon}m{rvof}  {CBM-M}      {CBM-G}   hanno.{CBM-G}   N     {CBM-G}    {CBM-G} M{CBM-M}
  340 print"{CBM-G}   {CBM-T}{CBM-G}    {CBM-G}       * {CBM-G}   M     {CBM-G}    L{CBM-@}{SHIFT-@}{CBM-M}
  350 print"{CBM-G}    {CBM-G}    {CBM-G}*osnabr. {CBM-G}    {CBM-G}    {CBM-G} berlin{CBM-M}
  360 print"{CBM-G}   N     {CBM-G}         {CBM-G}   {CBM-M}     {CBM-G}       {CBM-M}
  370 print"{CBM-G}  {SHIFT-@}      {CBM-G}         {CBM-G}  {CBM-@}N     {CBM-G}       {CBM-M}
  380 print"O{CBM-T}{CBM-T}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
  390 print"O{CBM-T}{CBM-T}       {CBM-G}    ..   {CBM-G}  {CBM-G}      {CBM-G}       {CBM-M}
  400 print"{CBM-G}         {CBM-G}   gotingen {CBM-G}      {CBM-G}       {CBM-M}
  410 print"{rvon}l{rvof}{CBM-G}   hagen{CBM-G}        *{CBM-G} N     leipzig   {CBM-M}
  420 print"{CBM-G}{CBM-G}     *  {CBM-G}        {CBM-M}N{CBM-T}        {CBM-G}*      {CBM-M}
  430 print"L{CBM-G}     {CBM-+}  {CBM-G}      <>{CBM-M}M         {CBM-G}       {CBM-M}
  450 print"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}kassel>        {CBM-G}dresden{CBM-M}
  460 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{SHIFT-@}{$a0}{$a0}weimar{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}*{CBM-M}
  470 print"{CBM-G}{$a0}{$a0}{$a0}<>{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
  480 print"{CBM-G}{$a0}{$a0}{$a0}koln  {CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}U{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}
  490 print"{CBM-G} {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}J{CBM-G}       plaun   N{CBM-T}P
  500 print"{rvon}k{rvof}l{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}M{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}*{$a0}{$a0}{$a0}{$a0}N{$a0}{$a0}{CBM-M}
  510 print"{CBM-G}{CBM-M}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}M{$a0}{$a0}{$a0}{$a0}OL{CBM-@}{CBM-@}{CBM-G}{$a0}{$a0}{CBM-@}N{$a0}{$a0} {CBM-M}
  520 print"{CBM-G}N{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}frankf. {CBM-G}{$a0}{CBM-T}LO{CBM-T}{$a0}{$a0}{$a0}{CBM-M}M{$a0}N{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}
  530 print"{CBM-G}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}<>{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0} {CBM-G}O{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}
  540 print"LL{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  600 gosub4000
  610 ifa1<>500then680
  620 print"{up}{up}{up}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P"
  630 print"{CBM-G}qth liegt ausserhalb der karte!{CBM-M}"
  640 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}"
  650 fort=1to8000:nextt
  660 getn$:ifn$<>"n"then220
  670 goto10
  680 for s=1to25
  690 poke(32768+i),42
  700 for t=1to100:next t
  710 poke(32768+i),224
  720 for t=1to100:next t
  730 next s
  740 getp$:ifp$<>"n"then220
  750 clr:run
 1000 rem laengen &breitengrad
 1010 k$=k1$:goto1030
 1020 k$=k2$
 1030 ifk$="a"then k= 1
 1040 ifk$="b"then k= 2
 1050 ifk$="c"then k= 3
 1060 ifk$="d"then k= 4
 1070 ifk$="e"then k= 5
 1080 ifk$="f"then k= 6
 1090 ifk$="g"then k= 7
 1100 ifk$="h"then k= 8
 1110 ifk$="i"then k= 9
 1120 ifk$="j"then k= 10
 1130 ifk$="k"then k= 11
 1140 ifk$="l"then k= 12
 1150 ifk$="m"then k= 13
 1160 ifk$="n"then k= 14
 1170 ifk$="o"then k= 15
 1180 ifk$="p"then k= 16
 1190 ifk$="q"then k= 17
 1200 ifk$="r"then k= 18
 1210 ifk$="s"then k= 19
 1220 ifk$="t"then k= 20
 1230 ifk$="u"then k= 21
 1240 ifk$="v"then k= 22
 1250 ifk$="w"then k= 23
 1260 ifk$="x"then k= 24
 1270 ifk$="y"then k= 25
 1280 ifk$="z"then k= 26
 1300 ifo<>1then1320
 1310 b=k:goto1330
 1320 a=k:o=1:goto1020
 1330 ifk3$="1"thenc=1
 1331 ifk3$="2"thenc=2
 1332 ifk3$="3"thenc=3
 1333 ifk3$="4"thenc=4
 1334 ifk3$="5"thenc=5
 1335 ifk3$="6"thenc=6
 1336 ifk3$="7"thenc=7
 1337 ifk3$="8"thenc=8
 1338 ifk3$="9"thenc=9
 1339 ifk3$="0"thenc=0
 1340 ifk4$="1"thend=1
 1341 ifk4$="2"thend=2
 1342 ifk4$="3"thend=3
 1343 ifk4$="4"thend=4
 1344 ifk4$="5"thend=5
 1345 ifk4$="6"thend=6
 1346 ifk4$="7"thend=7
 1347 ifk4$="8"thend=8
 1348 ifk4$="9"thend=9
 1349 ifk4$="0"thend=10:c=c-1
 1400 ifk5$="a"then e=2:f=1
 1401 ifk5$="b"then e=1:f=1
 1402 ifk5$="c"then e=2:f=2
 1403 ifk5$="e"then e=2:f=3
 1404 ifk5$="f"then e=3:f=3
 1405 ifk5$="g"then e=3:f=2
 1410 ifk5$="h"then e=3:f=1
 1420 ifk5$="i"then e=2:f=2
 1500 rem noerdliche breite_______
 1510 bx=-(3*c+f-.5)/24+b+40
 1550 rem oestliche laenge________
 1560 lx=((3*d)-e+.5)/15+(2*a)-2
 1570 be=51.3541667:le=7.5666667
 1580 bx1=bx*~/180
 1581 lx1=lx*~/180
 1582 be1=be*~/180
 1583 le1=le*~/180
 1600 km1=cos(lx1-le1)*cos(bx1)*cos(be1)+(sin(bx1)*sin(be1))
 1610 km2=atn(sqr(1-km1^2)/km1)
 1620 km3=km2*111.199
 1621 km=km3*180/~
 1700 return
 4000 i1=5000:i2=5000:i3=5000:i4=5000
 4010 ifk1$="d"then i1=0
 4015 ifk1$="e"then i1=10
 4020 ifk1$="f"then i1=20
 4030 ifk1$="g"then i1=30
 4040 ifk2$="m"then i2=0
 4050 ifk2$="l"then i2=320
 4060 ifk2$="k"then i2=640
 4070 ifk3$="0"then i3=0
 4080 ifk3$="1"then i3=40
 4090 ifk3$="2"then i3=80
 4100 ifk3$="3"then i3=120
 4110 ifk3$="4"then i3=160
 4120 ifk3$="5"then i3=200
 4130 ifk3$="6"then i3=240
 4140 ifk3$="7"then i3=280
 4145 ifk3$="8"then i3=320
 4150 ifk4$="1"then i4=0
 4160 ifk4$="2"then i4=1
 4170 ifk4$="3"then i4=2
 4180 ifk4$="4"then i4=3
 4190 ifk4$="5"then i4=4
 4200 ifk4$="6"then i4=5
 4210 ifk4$="7"then i4=6
 4220 ifk4$="8"then i4=7
 4230 ifk4$="9"then i4=8
 4240 ifk4$="0"then i4=9:i3=i3-40
 4245 ifk3$="8"andk4$="0"then i3=280:i4=9
 4250 ifi1=5000ori2=5000ori3=5000ori4=5000thena1=500:return
 4255 i=i1+i2+i3+i4
 4260 return
{CBM-A}{stop}{SHIFT-POUND}{$80}{sret}{CBM-V}{stop}{$a0}{CTRL-D}{CBM-I}{$00}{CBM-X}{$00}{CTRL-G}{left}{$00}{$84}{$e8}P{$f7}{$ee}{CBM-F}{stop}{$ee}{CBM-V}{stop}{f7}P{$ec}N{$e9}{stop}P{CTRL-K}{CBM-Z}{$e8}{stop}{sret}{$e9}{stop}{SHIFT-POUND}{CTRL-G}{sret}{CBM-F}{stop}{$60}{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{CTRL-L}{CTRL-L}{$00}{f7}{$00}{f7}{$00}{f7}{$00}{f7}{$00}{f7}{$00}{f7}{$00}{f7}{$00}{f7}{$f7}{$e7}{$00}{f7}{$00}{f7}{$00}*{CTRL-D}{$e8}{stop}{$8f}**for teacher's amendments run 1440{$00}w{CTRL-D}{$f2}{stop}{$83}"0.4  F.Pratensis: Meadow{$a0}Fescue","F",5{$00}{f3}{CTRL-D}{$fc}{stop}{$83}"0.5  A.Stolonifera: Creeping{$a0}Bent","C",5{$00}{CBM-H}{CTRL-D}{CTRL-F}{CTRL-D}{$83}"0.4  A.Pratensis: Meadow{$a0}Foxtail","M",2{$00}{$e5}{CTRL-D}{CTRL-P}{CTRL-D}{$83}"0.4  A.Ordorata: Scntd{$a0}Vernal{$a0}Grass","V",3{$00}{CTRL-U}{wht}{CTRL-Z}{CTRL-D}{$83}"0.1  M.Pratense: Common{$a0}Cow{$a0}Wheat","W",.2{$00}>{wht}${CTRL-D}{$83}"0.4  A.Millefolium: Yarrow","Y",.4{$00}{$6c}{wht}.{CTRL-D}{$83}"0.5  R.Acris: Meadow{$a0}Buttercup","B",.95{$00}{gry2}{wht}8{CTRL-D}{$83}"0.2  M.Lupulina: Black{$a0}Medick","L",.5{$00}C{wht}b{CTRL-D}{$83}"0.6  T.Repens: White{$a0}Clover","R",1.7{$00}{$f7}{wht}l{CTRL-D}{$83}"0.2  G.Conopsea: Sweet{$a0}Scntd{$a0}Orchid","O",.001{$00}{blu}{CTRL-F}v{CTRL-D}{$83}"20   Q.Robur: Common{$a0}Oak","Q",.07{$00}l{CTRL-F}{$60}{CTRL-D}{$83}" 8   B.Pubescens: Brown{$a0}Birch","B",.01{$00}{$73}{CTRL-F}{$6a}{CTRL-D}{$83}"10   I.Aquifolium: Holly","H",.4{$00}{left}{CTRL-F}{$74}{CTRL-D}{$83}" 0.3 M.Uniflora: Wood{$a0}Medick","M",3{$00}H{CTRL-F}{$7e}{CTRL-D}{$83}" 0.4 F.Altissima: Wood Fescue","F",3{$00}{$f4}{CTRL-F}{f7}{CTRL-D}{$83}" 0.6 L.Pilosa: Hairy{$a0}Woodrush","P",.5{$00}{rght}{CTRL-G}{rvof}{CTRL-D}{$83}" 0.9 D.Felix-mas:Male{$a0}fern","D",.1{$00}h{CTRL-G}{pur}{CTRL-D}{$83}" 0.5 E.Non-scriptus: Bluebell","N",2{$00}{$73}{CTRL-G}{CBM-+}{CTRL-D}{$83}" 0.2 A.Nemorosa: Wood{$a0}Anemone","A",1{$00}{$a0}{CTRL-G}{CBM-A}{CTRL-D}{$83}" 0.2 O.Acetosella: Wood Sorrel","S",.4{$00}G{CTRL-G}{SHIFT-@}{CTRL-D}{$83}"0.1 P.Vulgaris: Milkwort","M",.2{$00}{$ee}{CTRL-G}D{CTRL-D}{$83}"2   P.Aquilinum: Bracken","B",.6{$00}{grn}{dish}N{CTRL-D}{$83}"1.4 E.Tetralix: Cross{$a0}leaved{$a0}Heath","T",2{$00}@{dish}X{CTRL-D}{$83}"1.8 C.Vulgaris: Ling","L",6{$00}{$67}{dish}{$e2}{CTRL-D}{$83}"1.8 V.Myrtillus: Bilberry","V",5{$00}{lred}{dish}{$ec}{CTRL-D}{$83}"0.4 M.Cearulea: Purple Moor{$a0}Grass","P",4{$00}{CBM-C}{dish}{$f6}{CTRL-D}{$83}"0.5 N.Stricta: Mat Grass","G",3{$00}{$eb}{dish}{$00}{wht}{$83}"0.4 E.Angustifolium: Cotton{$a0}Grass","C",3{$00}{rvon}{ensh}{$0a}{wht}{$83}"0.5 C.Biervis: Moor{$a0}Sedge","S",2{$00}3{ensh}{del}{wht}{$83}"0.02Polytrichum sp.","Z",6{$00}]{ensh}{grn}{wht}{$83}"0.3 A.Arenaria: Marram{$a0}Grass","M",5{$00}{f4}{ensh}({wht}{$83}"0.4 A.Junceiformes: Couch Grass","J",4{$00}{CBM-W}{ensh}2{wht}{$83}"0.3 C.Arenaria: Sand Sedge","S",.8{$00}X{ensh}<{wht}{$83}"0.4 F.Rubra: Red{$a0}Fescue","R",4{$00}{CTRL-D}{$0a}f{wht}{$83}"0.8 S.Repens: Creeping{$a0}Willow","W",.2{$00}3{$0a}p{wht}{$83}"0.2 C.Officinalis: Scurvy{$a0}Grass","O",.03{$00}^{$0a}z{wht}{$83}"0.5 S.Maritima: Sea{$a0}Campion","C",.05{$00}{f8}{$0a}{$64}{wht}{$83}"0.2 E.Dunense: Dune{$a0}Storksbill","D",.02{$00}{CBM-W}{$0a}{$6e}{wht}{$83}"0.8 O.Repens: Restharrow","R",.7{$00}{CBM--}{$0a}{$78}{wht}{$83}"0.5 P.Anserina: Silverweed","A",.8{$00}{CTRL-K}{CTRL-K}{$82}{wht}{$83}.2,.34,.40,.58,.65,.76,.87,.94,.97,.990,1{$00}>{CTRL-K}{f8}{wht}{$83}1.010,1.03,1.06,1.13,1.94,2.35,3.42,4.60,5.35{$00}h{CTRL-K}{lred}{wht}{f2}1450{$00}p{CTRL-K}{$a0}{wht}z{CBM-R}1{$00}{swuc}{CTRL-K}{CBM-N}{wht}{gry1}59468,14:{f3}a$(40),b$(40),a(40),b(100),r(20),d(40):s{CBM-R}32767{$00}{CBM-V}{CTRL-K}{CBM-H}{wht}{orng}i{CBM-R}1{CBM-@}40:{f5}a$(i),b$(i),a(i):{$82}:p{CBM-R}50{CBM-N}{CBM-J}({CBM-F}(2){CBM-D}50){$00}R{CTRL-K}{CBM-V}{wht}{orng}i{CBM-R}1{CBM-@}20:{f5}r(i):{$82}{$00}{$f3}{CTRL-K}H{wht}{lgrn}"{clr}          {rvon}QUADRAT SURVEY{$00}{CTRL-A}{CTRL-L}R{wht}{f6}z{CBM-R}0{CBM-M}1950{$00}"{CTRL-L}{CBM--}{wht}{lgrn}"{down}{down} TEACHER'S MODIFICATIONS{$00}q{CTRL-L}{$e6}{wht}{lgrn}"{down} To {$a0}make{$a0}a{$a0}permanent{$a0}alteration{$a0}to{$a0}the{$00}{$7f}{CTRL-L}{$f0}{wht}{lgrn}"name {$a0}of{$a0}a{$a0}species{$a0}or{$a0}to{$a0}its{$a0}code{$a0}or{$a0}to{$00}{CBM-Z}{CTRL-L}{$fa}{wht}{lgrn}"its{$a0}importance{$a0}value you{$a0}must{$a0}amend{$a0}the{$00}Z{CTRL-L}{CTRL-D}{CTRL-F}{lgrn}"DATA statements{$a0}beginning{$a0}at{$a0}line 500.{$00}{CTRL-D}
{swlc}{CTRL-F}{lgrn}"You{$a0}should{$a0}then{$a0}reSAVE{$a0}the{$a0}program.{$00}4
{CTRL-X}{CTRL-F}{lgrn}"{down}{down} The{$a0}importance{$a0}value{$a0}of{$a0}a{$a0}plant{$a0}can{$a0}be{$00}{$62}
"{CTRL-F}{lgrn}"altered {$a0}for {$a0}the {$a0}duration{$a0}of{$a0}this{$a0}RUN{$00}{f4}
,{CTRL-F}{lgrn}"by{$a0}following{$a0}the{$a0}procedure{$a0}below.{$00}{SHIFT-@}
6{CTRL-F}{lgrn}"{down}{down}First  {$a0}select {$a0}the {$a0}environment{$a0}{$a0}where{$00}X
@{CTRL-F}{lgrn}"changes{$a0}are{$a0}to{$a0}be{$a0}made.{$00}{$f1}
j{CTRL-F}{lgrn}"{down}     1) Grassland{$00}{dish}{swlc}t{CTRL-F}{lgrn}"     2) Woodland{$00}{blu}{swlc}^{CTRL-F}{lgrn}"     3) Moorland{$00}a{swlc}{$68}{CTRL-F}{lgrn}"     4) Sand-dune and{$a0}slack{$00}k{swlc}{$72}{CTRL-F}a${CBM-R}""{$00}_{swlc}{$7c}{CTRL-F}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}1660{$00}{$79}{swlc}{f3}{CTRL-F}a{CBM-R}E(a$):{f6}a{CBM-W}1{CBM-A}a{CBM-E}4{CBM-M}1650{$00}{brn}{swlc}{blk}{CTRL-F}b{CBM-R}0:x{CBM-R}10{CBM-D}(a{CBM-Q}1){CBM-N}1:y{CBM-R}10{CBM-D}a{$00}{CBM-Q}{swlc}{lblu}{CTRL-F}{orng}i{CBM-R}x{CBM-@}y:b{CBM-R}b{CBM-N}a(i):{$82}{$00}{CBM-Y}{swlc}{CBM-@}{CTRL-F}c{CBM-R}100{CBM-Z}b{$00}{$e3}{swlc}{CBM-S}{CTRL-F}{lgrn}"{clr}     Species           Code  I.V.  %{$00}{$eb}{swlc}{CBM-U}{CTRL-F}{lgrn}"{down}{$00}{stop}{CTRL-O}B{CTRL-F}{orng}i{CBM-R}x{CBM-@}y:{f6}a(i){CBM-R}0{CBM-M}1760{$00}{CTRL-V}{CTRL-O}L{CTRL-F}d${CBM-R}H(a$(i),23){$00}e{CTRL-O}V{CTRL-F}{lgrn}d$;{CBM-T}25);b$(i);{CBM-T}30);a(i);{CBM-T}35);{CBM-J}(a(i){CBM-D}c{CBM-N}.5){$00}k{CTRL-O}{$e0}{CTRL-F}{$82}{$00}{$7d}{CTRL-O}{$ea}{CTRL-F}{lgrn}"{down}{down}Do{$a0}you{$a0}want{$a0}to{$a0}alter{$a0}an{$a0}importance{$a0}value?{$00}{rvof}{CTRL-O}{$f4}{CTRL-F}{lgrn}"{down}Answer{$a0}Y or N{$00}{pur}{CTRL-O}{$fe}{CTRL-F}a${CBM-R}""{$00}{CBM-A}{CTRL-O}{dish}{CTRL-G}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}1800{$00}J{CTRL-O}{rvon}{CTRL-G}{f6}a${CBM-W}{CBM-E}"y"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}1800{$00}{$e1}{CTRL-O}{red}{CTRL-G}{f6}a${CBM-R}"n"{CBM-M}{lgrn}"{clr}":{f2}1950{$00}{swlc}{CTRL-P}&{CTRL-G}{lgrn}"{down}Enter{$a0}the{$a0}code{$a0}letter{$a0}for{$a0}the{$a0}species{$00}1{CTRL-P}0{CTRL-G}{lgrn}"whose{$a0}I.V. you{$a0}want{$a0}to{$a0}alter{$00}?{CTRL-P}:{CTRL-G}a${CBM-R}"":d{CBM-R}0{$00}s{CTRL-P}d{CTRL-G}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}1860{$00}^{CTRL-P}n{CTRL-G}{orng}i{CBM-R}x{CBM-@}y{$00}{$83}{CTRL-P}x{CTRL-G}{f6}a${CBM-R}b$(i){CBM-A}F(a$){CBM-R}F(b$(i)){CBM-Q}128{CBM-M}d{CBM-R}i{$00}{f2}{CTRL-P}{$62}{CTRL-G}{$82}{$00}{gry1}{CTRL-P}{$6c}{CTRL-G}{f6}d{CBM-R}0{CBM-M}1850{$00}{CBM-V}{CTRL-P}{$76}{CTRL-G}{lgrn}"{down}Enter{$a0}the{$a0}new{$a0}importance{$a0}value.{$00}{$e9}{CTRL-P}{$80}{CTRL-G}{lgrn}"(To{$a0}eliminate{$a0}a{$a0}species{$a0}make{$a0}I.V.=0){$00}{$f3}{CTRL-P}{f4}{CTRL-G}{f1}a(d){$00}{$fd}{CTRL-P}{inst}{CTRL-G}{f2}1680{$00}*{down}{yel}{CTRL-G}{lgrn}"{down}{down}  Select{$a0}the{$a0}type{$a0}of{$a0}environment{$a0}you{$00}@{down}{CBM-POUND}{CTRL-G}{lgrn}"want{$a0}to{$a0}survey.{$00}x{down}{CBM-R}{CTRL-G}{lgrn}"{down}    1) Grassland{$00}{$6e}{down}{CBM-C}{CTRL-G}{lgrn}"    2) Woodland{$00}{$84}{down}F{CTRL-G}{lgrn}"    3) Moorland{$00}{CBM-G}{down}P{CTRL-G}{lgrn}"    4) Sand-dune{$a0}and{$a0}slack{$00}A{down}Z{CTRL-G}{lgrn}"{down} Answer{$a0}1, 2, 3 or 4{$00}K{down}{$e4}{CTRL-G}a${CBM-R}""{$00}{CBM-*}{down}{$ee}{CTRL-G}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}2030{$00}{$f9}{down}{$f8}{CTRL-G}a{CBM-R}E(a$):{f6}a{CBM-W}1{CBM-A}a{CBM-E}4{CBM-M}2020{$00}{down}{rvon}{CTRL-B}{dish}x{CBM-R}10{CBM-D}(a{CBM-Q}1){CBM-N}1:y{CBM-R}10{CBM-D}a{$00}?{rvon}{CTRL-L}{dish}{lgrn}"{clr}  You{$a0}may{$a0}expect{$a0}to{$a0}find{$a0}the{$a0}following{$00}o{rvon}{CTRL-V}{dish}{lgrn}"species:-{$00}{$6f}{rvon} {dish}{lgrn}"{down}Code Cover       Species{$00}{$7a}{rvon}*{dish}{orng}i{CBM-R}x{CBM-@}y{$00}{f6}{rvon}4{dish}{f6}a(i){CBM-R}0{CBM-M}2120{$00}{CBM-@}{rvon}>{dish}{lgrn}{CBM-T}2);b$(i);{CBM-T}5);a$(i){$00}{CBM-N}{rvon}h{dish}{$82}{$00}V{rvon}r{dish}{lgrn}"{down}{down} You{$a0}should{$a0}note{$a0}the{$a0}names{$a0}of{$a0}these{$00}{$fc}{rvon}\{dish}{lgrn}"species{$a0}and{$a0}their code{$a0}letters.{$00}){home}{$66}{dish}{lgrn}"{down}{down} Press{$a0}any{$a0}key{$a0}when{$a0}you{$a0}are{$a0}ready{$a0}to{$00}9{home}{$70}{dish}{lgrn}"continue.{$00}c{home}{$7a}{dish}a${CBM-R}""{$00}w{home}{$84}{dish}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}2180{$00}{$6f}{home}{swuc}{dish}{gry1}59468,12:{gry1}59409,52{$00}{$78}{home}{gry2}{dish}{lgrn}"{clr}{down}{$00}{$84}{home}{CBM-I}{dish}{orng}i{CBM-R}1{CBM-@}21{$00}{CBM-G}{home}{CBM-D}{dish}{lgrn}{CBM-T}18);"{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{$00}{CBM-Q}{home}{CBM-L}{dish}{$82}{$00}{SHIFT-+}{home}{SHIFT-*}{dish}{lgrn}"{home}{down}                   1   5   10   15   20{$00}{$f1}{home}E{dish}{lgrn}"this  is a plan{$00}{$0a}{del}J{dish}{lgrn}"of  the area to  1{$00}{rght}{del}T{dish}{lgrn}"be surveyed.{$00}3{del}{$de}{dish}{lgrn}"you  must enter{$00}i{del}{$e8}{dish}{lgrn}"the coordinates{$00}{$62}{del}{$f2}{dish}{lgrn}"of  the partic-  5{$00}{$78}{del}{$fc}{dish}{lgrn}"ular    quadrat{$00}{f3}{del}{CTRL-F}{ensh}{lgrn}"square.{$00}{CBM-K}{del}{CTRL-P}{ensh}{lgrn}"{down}{down}                10{$00}{CBM-V}{del}{CTRL-Z}{ensh}{lgrn}"{down}{down}{down}{down}                15{$00}{SHIFT-+}{del}${ensh}{lgrn}"{down}{down}{down}{down}                20{$00}{$e5}{del}.{ensh}a${CBM-R}""{$00}{$f0}{del}8{ensh}{orng}i{CBM-R}1{CBM-@}e{$00}{$00}{CTRL-U}b{ensh}{gry1}s{CBM-N}b(i),102{$00}{CTRL-F}{CTRL-U}l{ensh}{$82}{$00}{CTRL-V}{CTRL-U}v{ensh}{gry1}59409,60:{lgrn}{$00}0{CTRL-U}{$60}{ensh}g{CBM-R}0:{f1}"{up}horizontal";h%{$00}e{CTRL-U}{$6a}{ensh}{f6}h%{CBM-W}21{CBM-P}h%{CBM-E}0{CBM-M}2430{$00}{$7c}{CTRL-U}{$74}{ensh}{lgrn}"{up}{up}not acceptable  ":{lgrn}"              ":{lgrn}"{up}":{f2}2400{$00}{lred}{CTRL-U}{$7e}{ensh}{lgrn}"{up}{up}                "{$00}{CBM-R}{CTRL-U}{$83}{ensh}{lgrn}"                    "{$00}F{CTRL-U}{f7}{ensh}{f1}"{up}vertical";v%{$00}{SHIFT-+}{CTRL-U}{rvof}{ensh}{f6}v%{CBM-W}21{CBM-P}v%{CBM-E}0{CBM-M}2470{$00}{del}{CTRL-V}{pur}{ensh}{lgrn}"{up}{up}not acceptable  ":{lgrn}"                ":{lgrn}"{up}":{f2}2440{$00}&{CTRL-V}{CBM-+}{ensh}f{CBM-R}99{CBM-N}h%{CBM-N}40{CBM-D}v%{$00}:{CTRL-V}{CBM-A}{ensh}g{CBM-R}g{CBM-N}1:{f6}g{CBM-E}e{CBM-M}2530{$00}l{CTRL-V}{SHIFT-@}{ensh}{f6}b(g){CBM-W}{CBM-E}f{CBM-M}2520{$00}{$78}{CTRL-V}D{ensh}{lgrn}"{up}{up}already surveyed":{lgrn}"              "{$00}{f5}{CTRL-V}N{ensh}{lgrn}"{up}":{f2}2400{$00}{up}{CTRL-V}X{ensh}{f2}2480{$00}{CBM-I}{CTRL-V}{$e2}{ensh}e{CBM-R}e{CBM-N}1:b(e){CBM-R}f{$00}{CBM-Z}{CTRL-V}{$ec}{ensh}{orng}i{CBM-R}1{CBM-@}5{$00}{SHIFT-@}{CTRL-V}{$f6}{ensh}{gry1}s{CBM-N}f,122{$00}I{CTRL-V}{$00}{$0a}{orng}j{CBM-R}1{CBM-@}200:{$82}{$00}V{CTRL-V}{$0a}{$0a}{gry1}s{CBM-N}f,160{$00}{$e5}{CTRL-V}{del}{$0a}{orng}j{CBM-R}1{CBM-@}200:{$82}{$00}{$eb}{CTRL-V}{grn}{$0a}{$82}{$00}
{CTRL-W}({$0a}p1{CBM-R}{CBM-J}(p{CBM-D}r({CBM-J}(1{CBM-N}{CBM-F}(2){CBM-D}10{CBM-N}3))):b{CBM-R}0{$00}{CTRL-X}{CTRL-W}2{$0a}{orng}i{CBM-R}x{CBM-@}y{$00}<{CTRL-W}<{$0a}d(i){CBM-R}{CBM-J}(a(i){CBM-D}r({CBM-J}(1{CBM-N}{CBM-F}(2){CBM-D}20)){CBM-N}.5){$00}i{CTRL-W}f{$0a}b{CBM-R}b{CBM-N}d(i){$00}o{CTRL-W}p{$0a}{$82}{$00}z{CTRL-W}z{$0a}{orng}i{CBM-R}x{CBM-@}y{$00}{$6f}{CTRL-W}{$64}{$0a}d(i){CBM-R}{CBM-J}(d(i){CBM-D}p{CBM-Z}b){$00}{$75}{CTRL-W}{$6e}{$0a}{$82}{$00}{$7e}{CTRL-W}{$82}{$0a}{lgrn}"{clr}{home}{$00}{f4}{CTRL-W}{f8}{$0a}{orng}i{CBM-R}1{CBM-@}21{$00}{CBM-R}{CTRL-W}{lred}{$0a}{lgrn}{CBM-T}5);"{SHIFT--}";{CBM-T}15);"{SHIFT--}";{CBM-T}25);"{SHIFT--}";{CBM-T}35);"{SHIFT--}"{$00}{CBM-U}{CTRL-W}{$a0}{$0a}{$82}{$00}{$e4}{CTRL-W}{CBM-N}{$0a}{lgrn}"{home}     {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{$00}{CTRL-U}{CTRL-X}{CBM-H}{$0a}{lgrn}"{down}{down}{down}{down}{down}{down}     {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{$00}f{CTRL-X}{CBM-V}{$0a}{lgrn}"{down}{down}{down}{down}{down}{down}     {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{$00}{$77}{CTRL-X}H{$0a}{lgrn}"{down}{down}{down}{down}{down}{down}     {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{$00}{gry2}{CTRL-X}R{$0a}{lgrn}"{down}press any key to continue{$00}{CBM-J}{CTRL-X}{CBM--}{$0a}{orng}i{CBM-R}1{CBM-@}10:{f6}d(x{CBM-N}i{CBM-Q}1){CBM-R}0{CBM-M}2835{$00}G{CTRL-X}{$e6}{$0a}{orng}j{CBM-R}1{CBM-@}d(x{CBM-N}i{CBM-Q}1){$00}{$ec}{CTRL-X}{$f0}{$0a}r{CBM-R}6{CBM-N}{CBM-J}(1{CBM-N}{CBM-F}(2){CBM-D}29){CBM-N}40{CBM-D}{CBM-J}(1{CBM-N}{CBM-F}(2){CBM-D}20){$00}{$00}{CTRL-Y}{$fa}{$0a}{f6}B(s{CBM-N}r){CBM-W}27{CBM-M}2800{$00}{CTRL-Z}{CTRL-Y}{CTRL-D}{CTRL-K}{gry1}s{CBM-N}r,F(b$(x{CBM-N}i{CBM-Q}1)){CBM-Q}192{$00} {CTRL-Y}{swlc}{CTRL-K}{$82}{$00}&{CTRL-Y}{home}{CTRL-K}{$82}{$00}4{CTRL-Y}{CTRL-X}{CTRL-K}{gry1}59409,60{$00}>{CTRL-Y}"{CTRL-K}a${CBM-R}""{$00}r{CTRL-Y},{CTRL-K}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}2860{$00}{$60}{CTRL-Y}6{CTRL-K}{gry1}59468,14{$00}{f3}{CTRL-Y}@{CTRL-K}{lgrn}"{clr} Do you want to survey another{$00}{brn}{CTRL-Y}j{CTRL-K}{lgrn}"square{$a0}?{$00}{CBM-Q}{CTRL-Y}t{CTRL-K}{lgrn}"(Answer{$a0}y or n){$00}{CBM-J}{CTRL-Y}^{CTRL-K}a${CBM-R}""{$00}I{CTRL-Y}{$68}{CTRL-K}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}2920{$00}{$e3}{CTRL-Y}{$72}{CTRL-K}{f6}a${CBM-W}{CBM-E}"y"{CBM-P}a${CBM-W}{CBM-E}"n"{CBM-M}2910{$00}{$f4}{CTRL-Y}{$7c}{CTRL-K}{f6}a${CBM-R}"y"{CBM-M}2190{$00}{$00}{$00}    1 rem 3-d tic-tac-toe  (qubic)
    2 rem joseph roehrig ,box 74,
    3 rem middle village,ny 11379
    4 rem kilobaud apr 78 pg 66 &
    5 rem kilobaud jun 78 pg 20 has
    6 rem 3/4 of the errors corrected!
    7 rem program speed was improved.
    8 rem mike louder 7/13/78 213/2460505
    9 rem1148thompson ave4,glendale,ca91201
   10 dim s%(64),w%(3,56),x%(3,76),s$(64),v(76)
   15 dim a%(32,6),b%(32,6)
   20 fora=1to10:fora1=0to3:readw%(a1,a):nexta1:nexta
   30 fora=1to3:a1=a*10:fora2=1to10:fora3=0to3
   40 w%(a3,a1+a2)=w%(a3,a2)+(16*a):nexta3:nexta2:nexta
   50 fora=41to56:fora1=0to3
   60 w%(a1,a)=(a1*16)+a-40:nexta1:nexta
   70 fora=57to76:fora1=0to3:readx%(a1,a):nexta1:nexta
   72 data1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,1,5,9,13,2,6,10,14
   74 data3,7,11,15,4,8,12,16,1,6,11,16,4,7,10,13,1,22,43,64
   76 data5,22,39,56,9,26,43,60,13,26,39,52,2,22,42,62,14,26,38,50
   78 data3,23,43,63,15,27,39,51,4,23,42,61,8,23,38,53,12,27,42,57,16,27,38,49
   79 gosub2000
   80 y1=0:fora=1to64:s$(a)=" ":s%(a)=0:nexta
   81 print"may i move first?"
   82 getd$:ifd$=""then82
   84 ifd$="y"then386
   86 data1,21,41,61,1,18,35,52,4,19,34,49,4,24,44,64
   87 data13,25,37,49,13,30,47,64,16,31,46,61,16,28,40,52
   88 print:print"your moves are Q & i'm W"
   90 gosub1000:input"your board,& position";a1,a2
   98 ti$="000000":e1=a1:e2=a2
   99 ti$="000000":e1=a1:e2=a2
  100 a=((a1-1)*16)+a2
  105 ifa>64or1>athenprint"illegal move":goto90
  110 ifs%(a)<>0thenprint"you can't move there":goto90
  115 y1=y1+1
  120 s%(a)=1:s$(a)="Q"
  125 print
  130 gosub1000
  190 m5=0:fora=1to76
  191 ifa>56goto193
  192 a2=w%(0,a):a3=w%(1,a):a4=w%(2,a):a5=w%(3,a):goto194
  193 a2=x%(0,a):a3=x%(1,a):a4=x%(2,a):a5=x%(3,a)
  194 v(a)=s%(a2)+s%(a3)+s%(a4)+s%(a5)
  196 ifv(a)=4then410
  198 ifv(a)=15thenm5=a
  199 nexta:ify1=64then404
  200 ifm5<>0then360
  204 m3=-9
  205 fora=1to64:m2=0
  210 ifs%(a)<>0then350
  220 fora8=0to6
  223 ifa>32goto228
  225 a1=a%(a,a8):goto230
  228 a1=b%((a-32),a8)
  230 ifa1=0goto300
  240 a6=v(a1)
  260 ifa6=3thenm4=a:goto390
  270 ifa6=0then300
  280 if5>a6thenm2=m2+a6^a6:goto300
  290 a7=int(a6/5):ifa7=a6/5thenm2=m2+a7
  300 nexta8
  320 ifm2>m3thenm3=m2:m4=a
  350 nexta:goto390
  360 h=999
  362 fora1=0to3
  364 ifh=0goto371
  366 ifm5>56goto368
  367 a6=w%(a1,m5):goto369
  368 a6=x%(a1,m5)
  369 ifs%(a6)=0thenm5=a6
  370 ifs%(a6)=0thenh=0
  371 nexta1
  373 print
  375 s$(m5)="W":a1=int((m5-1)/16)+1:a2=m5-((a1-1)*16)
  380 print"i won with board";a1;"position";a2:gosub1000:goto382
  382 print"ready for a new game?"
  384 getb$:ifb$=""goto384
  385 goto80
  386 fori=1toval(right$(ti$,2)):r=rnd(1):nexti
  387 m4=int(r*64)
  388 ti$="000000"
  390 s$(m4)="W":s%(m4)=5
  392 a1=int((m4-1)/16)+1:a2=m4-((a1-1)*16)
  395 print
  396 y1=y1+1
  397 ify1=64goto405
  400 print"i took board";a1;"position";a2;" time=";ti$:goto90
  404 a1=e1:a2=e2
  405 print"a draw with board";a1;"position";a2:gosub1000:goto382
  410 print"you won":gosub1000:goto382
 1000 print:print:print"positions are";:fora=0to3:fora1=1to13step4:a2=30+a1
 1100 printtab(a2/2);a+a1;:nexta1:print:nexta:print:print:
 1105 fora=0to3:printtab(a*9);"board";a+1;:nexta:print
 1107 print:print
 1110 fora=1to4:fora1=0to48step16:a2=a+a1
 1120 prints$(a2);"{SHIFT--}";s$(a2+4);"{SHIFT--}";s$(a2+8);"{SHIFT--}"s$(a2+12);"  ";:nexta1
 1125 ifa=4then1130
 1127 print:fora2=1to4:print"CCCCCCC";"  ";:nexta2
 1130 print:nexta:print:print:return
 2000 fora=1to32:fora8=0to6:reada%(a,a8):nexta8:nexta
 2010 fora=33to64:fora8=0to6:readb%((a-32),a8):nexta8:nexta
 2100 return
 3000 data1,5,9,41,57,69,70,1,6,42,61,0,0,0,1,7,43,63,0,0,0,1,8,10,44,65,71,72
 3010 data2,5,45,58,0,0,0,2,6,9,46,0,0,0,2,7,10,47,0,0,0,2,8,48,66,0,0,0
 3020 data3,5,49,59,0,0,0,3,6,10,50,0,0,0,3,7,9,51,0,0,0,3,8,52,67,0,0,0
 3030 data4,5,10,53,60,73,74,4,6,54,62,0,0,0,4,7,55,64,0,0,0,4,8,9,56,68,75,76
 3040 data11,15,19,41,0,0,0,11,16,42,70,0,0,0,11,17,43,71,0,0,0,11,18,20,44
 3050 data0,0,0,12,15,45,69,0,0,0,12,16,19,46,57,58,61,12,17,20,47,63,65,66
 3060 data12,18,48,72,0,0,0,13,15,49,73,0,0,0,13,16,20,50,59,60,62,13,17,19
 3080 data51,64,67,68,13,18,52,76,0,0,0,14,15,20,53,0,0,0,14,16,54,74,0,0,0
 3100 data14,17,55,75,0,0,0,14,18,19,56,0,0,0,21,25,29,41,0,0,0,21,26,42,71
 3110 data0,0,0,21,27,43,70,0,0,0,21,28,30,44,0,0,0,22,25,45,73,0,0,0,22,26,29
 3120 data46,62,66,68,22,27,30,47,58,60,64,22,28,48,76,0,0,0,23,25,49,69,0,0,0
 3130 data23,26,30,50,61,65,67,23,27,29,51,57,59,63,23,28,52,72,0,0,0,24,25,30
 3140 data53,0,0,0,24,26,54,75,0,0,0,24,27,55,74,0,0,0,24,28,29,56,0,0,0,31,35
 3150 data39,41,68,71,73,31,36,42,62,0,0,0,31,37,43,64,0,0,0,31,38,40,44,60,70
 3160 data76,32,35,45,66,0,0,0,32,36,39,46,0,0,0,32,37,40,47,0,0,0,32,38,48,58
 3170 data0,0,0,33,35,49,67,0,0,0,33,36,40,50,0,0,0,33,37,39,51,0,0,0,33,38,52
 3180 data59,0,0,0,34,35,40,53,65,69,75,34,36,54,61,0,0,0,34,37,55,63,0,0,0
 3190 data34,38,39,56,57,72,74
 5000 end
   80 d=0
  120 print"            quest"
  130 print
  140 print"you were walking through the"
  150 print"woods, and you came across the entrance"
  160 print"of a cave, covered with brush."
  170 print
  180 print"people say that many years ago a"
  190 print"pirate hid his treasure in these"
  200 print"woods, but no one has ever found it"
  210 print"it may still be here for all i know."
  400 read m9,t1,t2
  500 dim w(42),m(6,42)
  520 for i =1 to m9
  530 read n
  540 if i=n then 570
  550 print"data base problem"i;n
  560 stop
  570 for j=1 to 6
  580 readm(j,i)
  590 next j
  600 next i
  900 print
  905 print"when you answer a question, i look at"
  906 print"only the first letter, although you can"
  907 print"type the whole word if you want."
  920 gosub 7520
 1010 n=5
 1020 m0=0
 1030 m6=0
 1040 t=t1
 1050 p=0
 1060 p1=0
 1070 for j=1 to m9
 1080 w(j)=0
 1090 next j
 1100 print
 1120 gosub 8050
 1420 m0=m0+1
 1430 rem move
 1440 gosub 6030
 1460 gosub 2100
 1480 gosub 4020
 1500 if t>0 then 1430
 1510 if n<>5 then 1440
 1710 gosub 3020
 1720 print
 1730 print"congratulation! you have got the trreasure"
 1740 print"out in";m0;
 1750 print"moves and you got"s+10"points!"
 1760 print"want to hunt again?";
 1770 a$="y n"
 1771 a2=2
 1780 gosub 5070
 1790 on a1 goto 1010,9999,1760
 2100 if t<>n then return
 2110 if t<0 then return
 2120 if m6+5<mo then return
 2200 print"do you want to take it with you";
 2210 a$="yn"
 2220 a2=2
 2230 gosub 5070
 2240 on a1 goto 2300,2400
 2250 print"well?......"
 2260 goto 2210
 2300 t=-1
 2310 print
 2320 print"ok, lets get out if here!"
 2330 return
 2400 print
 2410 print"we'll leave it here and you can explore"
 2420 print"some more."
 2430 m6=m0
 3020 s=0
 3030 if t=-1 then s=s+5
 3040 if p=1 then s=s+10
 3050 for j=2 to m9
 3060 s=s+w(j)
 3070 next j
 3080 return
 4020 if n=t2 then return
 4030 if p=1 then return
 4040 if t1=t2 then return
 4050 if t<>-1 then return
 4060 rem hes at the exit with the treasure. zap him
 4065 rem (arrgh.how did he get here,anyway?)
 4070 if n=16 then p=160
 4090 if p1>o thenp1=p1+1
 4100 if n=3 then p1=p1+1
 4120 if p1<15 then return
 4130 print
 4140 print"suddenly a pirate jumps out of the"
 4150 print"gloom and grabs the treasure from you!"
 4160 print"'hah!', he shouts, 'you found my"
 4170 print"treasure, did you?! well i'll hide"
 4180 print"it better this time!'"
 4190 print"and he disappears into the darkness"
 4200 print"with the treasure."
 4210 p=1
 4220 t=t2
 4230 return
 5070 input q$
 5200 fora1=1toa2
 5210 ifq$=mid$(a$,a1,1)thenreturn
 5220 nexta1
 5230 a1=a2+1
 5240 return
 6030 n9=n
 6050 n8=0
 6070 gosub 7100
 6090 if n=1 then 6120
 6100 n0=n
 6110 a0=a1
 6120 print
 6130 i=m(a1,n)
 6200 if i=-2theni=n9
 6210 ifd<>0 then print"debug";n;"to";i
 6220 ifi<500 then 6280
 6240 i=i-500
 6250 for j=0 goto 120
 6260 next j
 6270 goto 6200
 6280 on 1/100 goto 6350,6380
 6300 on i/100 goto 6340,6370
 6320 n=i
 6330 goto 6400
 6340 rem
 6350 n=i-100
 6355 if t=-1 then n=n+1
 6360 goto 6400
 6370 rem
 6390 if t=-1 then n=n+p
 6400 if n<>1 then 6510
 6420 for j=1 to 6
 6430 m(j,n)=2
 6440 next j
 6450 m(7-a0,n)=n0
 6510 if n8<>2then gosub 8050
 6530 w(n)=1
 6540 n8=n
 6600 if m(1,n)<>-2 then 6800
 6660 i=m(6,n)
 6670 j=-1
 6680 if m(4,n)>100*rnd(j) then i=m(5,n)
 6690 j=-1
 6700 if m(2,n)>100*rnd(j) then i=m(3,n)
 6710 ifd<>0thenprint"debug bounce to";i
 6730 goto 6200
 6800 return
 7100 print
 7110 print"                 which way?";
 7120 a$="neudwsp"
 7130 a2=7
 7140 gosub 5070
 7150 if a1<8 then 7300
 7160 print"which way do you want to go?"
 7180 gosub 7520
 7190 gosub 8050
 7200 gosub 8050
 7210 goto 7100
 7230 gosub 3020
 7240 print"you have"s"points!"
 7300 if a1<7 then 7400
 7320 gosub 3020
 7330 print"you have"s"points!"
 7350 goto 7100
 7400 return
 7520 print
 7530 print"type n,s,e,w,u or d for north,south,"
 7540 print"east,west,up or down. type p for score"
 7550 print
 7560 print
 7570 return
 8050 i=int(n/5)
 8060 j=n-5*i+1
 8100 on i+1 goto 8200,8210,8220,8230,8240,8250,8260,8270,8280,8290
 8200 on jgoto 9003,9010,9020,9030,9040
 8210 on jgoto 9050,9060,9070,9080,9090
 8220 on jgoto 9100,9110,9120,9130,9140
 8230 on jgoto 9150,9160,9170,9180,9190
 8240 on jgoto 9200,9210,9220,9230,9240
 8250 on jgoto 9250,9260,9270,9280,9290
 8260 on jgoto 9300,9310,9320,9330,9340
 8270 on jgoto 9350,9360,9370,9380,9390
 8280 on jgoto 9400,9410,9420,9430,9440
 8290 on jgoto 9450,9460,9470,9480,9490
 8300 if t>if  then 8500
 8310 print
 8320 print"the treasure is here!"
 8400 if t<>n then 8600
 8410 print
 8420 print"the treasure is here!"
 8500 if t<>t2 then 8600
 8510 if t1=t2 then 8600
 8520 if t1<>n then 8600
 8530 print
 8540 print"a note on the wall says"
 8550 print"pirates never leave there treasure"
 8560 print"twice in one place!"
 8600 return
 9003 data 42,23,12
 9010 data 1,0,0,0,0,0,0
 9011 print"you're at a dead end!"
 9012 goto 8400
 9020 data 2,-2,101,-2,0,0,0
 9021 print "you can't go in that direction"
 9022 print
 9023 goto8400
 9030 data3,33,2,1,10,106,4
 9031 print"a tunnel goes north-south."
 9032 print"there is an opening to the west"
 9037 goto 8400
 9040 data 4,3,30,2,11,2,1
 9041 print"you're on the brink of a pit"
 9047 goto 8400
 9050 data 5,8,8,15,10,8,16
 9051 print"you're outside the cave"
 9052 print"go south to enter"
 9053 goto 8400
 9060 data 6,16,3,2,10,2,2
 9061 print"you're at the home of the gnome king."
 9062 print"fortunately, he's gone for the day"
 9067 goto 8400
 9070 data 7,-2,101,-2,0,0,0
 9071 print"the gnome king is here!"
 9072 print"you'd better get out!"
 9073 print
 9077 goto 8400
 9080 data 8,18,18,15,10,18,9
 9081 print"you're lost in the woods"
 9087 goto 8400
 9090 data 9,-2,33,5,1,0,-2
 9097 goto 8400
 9100 data 10,-2,101,-2,0,0,0
 9101 print"you're not going to get far digging"
 9102 print"through rock"
 9103 print
 9107 goto 8400
 9110 data 11,1,13,4,2,1,2
 9111 print"you'rre at the bottom of a pit.a little"
 9112 print"stream flows over the rocks here."
 9117 goto 8400
 9120 data 12,36,2,1,2,1,2
 9121 print"you're at a dead end"
 9127 goto 8400
 9130 data 13,2,37,2,1,11,14
 9131 print"you're at a wide spot.there is a"
 9132 print"sooty patch where some one has rested"
 9133 print"a torch against the wall.there are"
 9134 print"jagged rocks above you."
 9137 goto 8400
 9140 data 14,13,1,19,2,31,31
 9141 print"you're in canyon.high on the wall"
 9142 print"above you is scratched the message"
 9143 print"      'bilbo was here'"
 9147 goto 8400
 9150 data 15,-2,101,-2,0,0,0
 9151 print"you're not abird you can't fly!"
 9152 print
 9157 goto 8400
 9160 data 16,5,33,2,10,1,106
 9161 print"you're in a low chamber.a tight tunnel"
 9162 print"goes east, and you can walk to the"
 9163 print"south or west,there is light"
 9164 print"to the north."
 9167 goto 8400
 9170 data 17,-2,101,-2,0,0,0
 9171 print"it's atight sqeeze you can't"
 9172 print"get back with the treasure."
 9173 print
 9177 goto 8400
 9180 data 18,-2,101,8,0,0,0
 9181 print"i don't think you can find the cave."
 9187 goto 8400
 9190 data 19,224,2,2,14,1,42
 9191 print"you're at the top of a climb."
 9192 print"below a message says"
 9193 print"      bilbo was here"
 9197 go to 8400
 9200 data 20,226,1,2,2,25,2
 9201 print"you're at the north side of a chasm,"
 9202 print"too wide to jump,ringing echoes from"
 9203 print"below are only indication of depth."
 9207 goto 8400
 9210 data 21,1,226,2,2,38,25
 9211 print"you're in axanadu.belowyou"
 9212 print"alph, the sacred river runs"
 9213 print"through caverns ,measurless to man,"
 9214 print"down to a sunless sea."
 9217 goto 8400
 9220 data 22,-2,33,13,50,29,30
 9227 goto 8400
 9230 data 23,2,1,2,31,2,2
 9231 print"you're on the ledge to the guilotine room."
 9237 goto 8400
 9240 data 24,-2,101,19,0,0,0
 9241 print"i hear the giant there!!!"
 9242 print"you'd better go back!"
 9243 print
 9247 goto 8400
 9250 data 25,21,20,2,2,1,19
 9251 print"you're in the giants~cavern.better"
 9252 print"not be here when the giant comes!"
 9257 goto 8400
 9260 data 26,-2,65,-2,50,11,14
 9261 print"you're in the quest reasearch and"
 9262 print"developement area."
 9263 print
 9264 print"i'm sorry but visitors are not"
 9265 print"allowed. you'll have to leave."
 9266 print
 9267 goto 8400
 9270 data 27,2,40,2,2,21,20
 9271 print"you're in the crystal palace.the"
 9272 print"walls resonate with"
 9273 print"awesome music."
 9277 goto 8400
 9280 data 28,-2,60,221,50,14,19
 9287 goto 8400
 9290 data 29,2,42,2,13,1,1
 9291 print"you're at the top of a giant stalagtite."
 9292 print"you could slide down,but you couldn't"
 9293 print"climb back up."
 9297 goto 8400
 9300 data 30,34,34,2,1,4,2
 9301 print"you're in a little grotto.there is a"
 9302 print"book here called jane's fighting ships,"
 9303 print"dated 1763."
 9307 goto 8400
 9310 data 31,14,14,23,2,1,2
 9311 print"you're in the guilottine room.a sharp"
 9312 print"rock balances precariuosly on the"
 9313 print"ledge above you."
 9317 goto 8400
 9320 data 32,-2,101,516,0,0,0
 9321 print"you're in a chute,scramble down the "
 9322 print"rocks!no way to stop!hang on!"
 9323 print
 9327 goto 8400
 9330 data 33,2,1,2,1,116,3
 9331 print"the tight tunnel turns a corner."
 9337 goto 8400
 9340 data 34,1,35,2,1,30,30
 9341 print"your in a little twisty maze"
 9347 goto 8400
 9350 data 35,2,1,2,37,34,36
 9351 print"you're in a little twisting maze"
 9357 goto 8400
 9360 data 36,35,2,1,37,34,12
 9361 print"you're in a twisting maze"
 9367 goto 8400
 9370 data 37,2,1,35,2,13,2
 9371 print"you're in a twisty maze"
 9377 goto 8400
 9380 data 38,2,21,2,116,1,2
 9381 print"you're in a prehistoric dwelling.on"
 9382 print"the wall are drawings of bison done in"
 9383 print"red clay.the floor is strewn with"
 9384 print"bones, the remains of acient rituals."
 9385 print"a small tunnel goes through the floor."
 9387 goto 8400
 9390 data 39,2,40,2,32,21,26
 9391 print"you're in a black hole.the"
 9392 print force of gravity is overwhelming."
 9397 goto 8400
 9400 data 40,40,40,2,2,40,41
 9401 print"you're in the labyrinthe"
 9407 goto 8400
 9410 data 41,40,40,40,2,40,39
 9411 print"you're in the labyrinthe"
 9412 print"it's very dark in here"
 9417 goto 8400
 9420 data 42,28,28,28,28,28,28
 9421 print"you're in the ashram.incense is heavy"
 9422 print"in the air,in all directions"
 9423 print"seem the same"
 9427 goto 8400
 9999 end
    0 clr:poke59468,12
    1 rem quix! copyright (c) 1978 glen fisher
    2 rem cursor #3, september, 1978
    3 rem box 550, goleta, ca. 93017
   10 rem as of 6 apr 80
   90 pg$="quix!":nm$="3":gosub62000
  100 f1=1:f2=2:rempicks display time change f1/f2 of the time
  400 fori=0to9:readpch(i):nexti
  410 data0,237,211,188,177,157,140,124,117,104
  500 w$="OP{left}{left}{down}L{SHIFT-@}":d$="  {left}{left}{down}  "
  510 dimcm$(9):cm$="{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  520 fori=0to2
  530 v$=mid$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",7*(2-i)+1,255)
  540 forj=1to3
  550 h$=mid$("{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}",11*j,255)
  560 cm$(10-(3*i+j))=v$+h$
  570 nextj
  580 nexti
  600 gosub8000
  610 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  620 printdn$;"{rght}{rght}{rght}{rght}this was:   /60 secs., length"
  630 print"{rght}{rght}{rght}{rght}best:       /60 secs., length{home}"
  700 ln=1:dl=30
  710 bl=0:bd=1e8
  720 goto2450
 1000 sq$="":t=0:wr=0
 1010 gosub5000
 1100 fori=1toln
 1110 j=int(rnd(1)*9+1):ifj=tthen1110
 1120 :sq$=sq$+mid$("123456789",j,1):t=j
 1130 nexti
 1140 gosub7000
 2000 t=1:gosub5000
 2100 gett$:ift$<>""then2105
 2101 ifti>ofthengosub6100:of=1e8
 2102 goto2100
 2105 ift$=" "thengosub6100:goto4000
 2106 ift$=chr$(13)thengosub6100:goto2300
 2110 ift$<"1"ort$>"9"then2100
 2120 gosub7600:sq=val(t$):gosub7500
 2125 gosub6000:gosub6200:of=ti+45
 2130 ift$<>mid$(sq$,t,1)then2200
 2140 ift=lnthen2250
 2150 t=t+1:goto2100
 2200 t$="{rvon}wrong!!!{rvof}":ch=-1:wr=1:goto2400
 2250 t$="correct!":ch=1:goto2400
 2300 t$="starting over":ch=0
 2310 dl=30:ln=1
 2400 gosub7600:gosub2700:gosub3000
 2405 gosub6100
 2410 ifrnd(1)*f2>=f1then2420
 2415 ifdl-ch>0thendl=dl-ch:goto2430
 2420 ifln+ch>0thenln=ln+ch
 2430 gosub5000:d=dl:dl=90:gosub7400:dl=d
 2436 geti$:ifi$<>""then2436
 2440 gosub2750:geti$:ifi$=""then1000
 2445 ifi$=" "then4000
 2450 t$="press {rvon}return{rvof}":gosub2700
 2460 geti$:ifi$=""then2460
 2465 ifi$=" "then4000
 2470 gosub2750:goto1000
 2700 print"{home}":print"{up}";tab(20-len(t$)/2);t$
 2710 return
 2750 print"{home}":print"{up}";tab(20-len(t$)/2);
 2760 printleft$("                                        ",len(t$))
 2770 return
 3000 printdn$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 3010 printright$("   "+str$(dl),3);
 3020 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";ln
 3030 ifwrordl>bdorln<blthenreturn
 3040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 3050 bd=dl:bl=ln
 3060 printright$("   "+str$(bd),3);
 3070 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";bl;
 3900 return
 4000 printdn$;"{down}{inst}{inst}{inst}{inst}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4010 t$=chr$(20):printt$;t$;t$;t$;"{up}{up}"
 4020 end
 5000 getz$:ifz$<>""then5000
 5010 return
 6000 :
 6010 poke59467,16
 6020 poke59464,0
 6030 poke59466,15
 6040 return
 6100 :
 6110 poke59467,0
 6120 poke59466,0
 6130 return
 6200 :
 6210 poke59464,pch(sq)
 6220 return
 7000 gosub6000
 7005 fori=1tolen(sq$)
 7010 sq=val(mid$(sq$,i,1))
 7020 gosub7500
 7025 gosub6200
 7030 gosub7400
 7050 gosub7600
 7060 nexti
 7065 gosub6100
 7070 return
 7400 tm=ti+dl
 7410 ifti<tmthen7410
 7420 return
 7500 gosub7700:printw$;:return
 7600 gosub7700:printd$;:return
 7700 printcm$;cm$(sq);:return
 8000 l$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":s$="          "
 8010 print"{clr}{down}   {CBM-A}";l$;"{CBM-R}";l$;"{CBM-R}";l$;"{CBM-S}"
 8020 t$="   {SHIFT--}"+s$+"{SHIFT--}"+s$+"{SHIFT--}"+s$+"{SHIFT--}"
 8030 fori=1to6:printt$:nexti
 8040 print"   {CBM-Q}";l$;"{SHIFT-+}";l$;"{SHIFT-+}";l$;"{CBM-W}"
 8050 fori=1to6:printt$:nexti
 8060 print"   {CBM-Q}";l$;"{SHIFT-+}";l$;"{SHIFT-+}";l$;"{CBM-W}"
 8070 fori=1to6:printt$:nexti
 8080 print"   {CBM-Z}";l$;"{CBM-E}";l$;"{CBM-E}";l$;"{CBM-X}"
 8090 h$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":v$="{down}{down}{down}{down}{down}{down}"
 8100 print"{home}{down}{down}";"{rght}{rght}{rght}{rght}7";h$;"8";h$;"9"
 8110 printv$;"{rght}{rght}{rght}{rght}4";h$;"5";h$;"6"
 8120 printv$;"{rght}{rght}{rght}{rght}1";h$;"2";h$;"3"
 8130 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #3  quix!"
 62005 print"{down}copyright (c) 1978  by glen fisher
 62006 gosub60500
 62010 print"{down}how good is your memory?"
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 ifleft$(in$,1)<>"y"then100
 62100 lp=1:gosub60200
 62160 print"this is a game that tests your memory.
 62170 print"the pet will display a sequence, and
 62180 print"you try to repeat the sequence. as you
 62190 print"get better, the sequence gets longer,
 62200 print"and is flashed more quickly.
 62202 print"{down}use the numeric keys to enter your
 62204 print"pattern. when you press an incorrect{$a0}
 62206 print"key, the program will say{$a0}{rvon}wrong!!!{rvof},
 62208 print"then show you a new sequence.
 62210 print"{down}you can start over by pressing the
 62220 print"{rvon}return{rvof} key.  press {rvon}space{rvof} to end
 62230 print"the game.
 62231 print"{down}quix! has sound effects! see the notes
 62232 print"for details on how to feed the sound
 62233 print"into an amplifier.
 62240 gosub60200
    0 clr:poke59468,12
    1 rem race copyright (c) 1978 ken kasmar
    2 rem cursor #2, august, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 7 may 80
   90 pg$="race":nm$="2":gosub62000
  100 crt=32768
  110 mx=2:so=40*int(5/(mx-1)):co=int(30/(mx-1))
  120 xl=37:ln=102:bl=32:py=214
  129 ifrj=1then510
  130 fori=1to9:readc(i):nexti
  140 data-41,-40,-39,-1,0,1,39,40,41
  150 ps(0)=87:ps(1)=81
  160 m$(0)="789456123":m$(1)="qweasdzxc"
  170 print"{clr}";
  210 input"{down}{down}how many players";nh
  220 ifnh<1then985
  230 ifnh>mxthenprint"only";mx;"at a time!":goto210
  240 input"{down}number of pylons";np
  250 ifnp<0thenprint"no way!":goto240
  260 ifnp>200thenprint"max of 200 pylons.":goto240
  270 input"{down}speed (1-100)";sp
  280 ifsp<1thenprint"too slow.":goto270
  290 ifsp>100thenprint"too fast.":goto270
  300 dl=100-sp
  500 dimtm$(59)
  510 fori=0to59:tm$(i)=right$("0"+mid$(str$(i),2,2),2):nexti
  540 print"{clr}";
  550 fori=crt+1tocrt+38:pokei,100:pokei+920,99:nexti
  560 fori=crt+40tocrt+880step40:pokei,103:pokei+39,101:nexti
  570 fori=crt+491tocrt+518:pokei,160:nexti
  580 fori=crt+xl+40tocrt+xl+440step40:pokei,160:nexti
  590 fori=crt+xl+120tocrt+xl+360step40:pokei,ln:nexti
  600 ifnp<1then650
  610 fori=1tonp
  620 :r=int(22*rnd(1)+1):c=int((xl-1)*rnd(1)+1)
  630 :r=crt+40*r+c:ifpeek(r)<>blthen620
  640 :poker,py:nexti
  650 forpl=0tonh-1:gosub1000:nextpl
  660 ifnh=1thensv(1)=bl
  700 getc$:ifc$<>""thengosub1300
  710 ifti<upthen700
  720 kr=0:fori=0tonh-1
  730 pl=i:ifti>rn(pl)thengosub1150
  740 pokepp(i),sv(i):pp(i)=pp(i)+pc(i)
  750 sv(i)=peek(pp(i)):pokepp(i),ps(i)
  760 ifsv(i)<>blthencr(i)=1:kr=1
  770 ifsv(i)=ps(1-i)thenpc(1-i)=0:cr(1-i)=1:kr=1
  780 nexti
  790 ifkr=0thenup=ti+dl:goto700
  800 i=0:ifsv(1)=ps(0)theni=1
  810 ifsv(i)=lnthenwn(i)=1:wn=wn+1:goto830
  820 ifcr(i)<>0thenpl=i:gosub1100
  830 i=1-i
  840 ifsv(i)=lnthenwn(i)=1:wn=wn+1:goto860
  850 ifcr(i)<>0thenpl=i:gosub1100
  860 ifwn=0then700
  900 fori=1to100:nexti
  930 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  935 ifwn=1thenprint"{rght}{rght}";
  940 print"{rvon}QQQ we have ";
  945 ifwn=1thenprint"a winner";:goto955
  950 print"some winners";
  955 print" QQQ":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  960 ifwn(1)thenprinttab(5);"{rvon}winner";
  965 ifwn(0)thenprinttab(30);"{rvon}winner";
  975 print"{home}{rvof}want to play again ?";:gosub60000
  980 ifleft$(in$,1)<>"y"thengoto985
  982 wn=0:wn(0)=0:wn(1)=0:rj=1:goto100
  985 print"{clr}{down}{down}{down}{down}{down}{down}thanks for playing."
  990 end
 1000 pokecrt+995-pl*co,ps(pl):goto1020
 1010 pokepp(pl),sv(pl)
 1020 pp(pl)=crt+800+xl-pl*so
 1025 rmin(pl)=0:rsec(pl)=0:gosub1150:rn(pl)=1e37
 1030 sv(pl)=peek(pp(pl)):pokepp(pl),ps(pl)
 1040 cr(pl)=0:pc(pl)=0:return
 1050 print"{rvon}QQQ{$a0}bug QQQ":end
 1100 sv=sv(pl):gosub1010
 1110 pl=pl-1:ifpl<0thenreturn
 1120 ifsv=ps(pl)then1100
 1130 goto1110
 1150 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 1160 printspc(29-22*pl);
 1170 sc=rsec(pl):mn=rmin(pl):gosub1500
 1180 sc=sc+1:ifsc>59thenmn=mn+1:sc=0
 1185 rsec(pl)=sc:rmin(pl)=mn:rn(pl)=ti+60
 1190 return
 1300 forj=1to9
 1310 fori=0tonh-1
 1320 :ifmid$(m$(i),j,1)=c$thenpc(i)=c(j):rn(i)=0:return
 1330 nexti
 1340 nextj
 1350 return
 1500 printtm$(mn);":";tm$(sc);
 1510 return
 1600 ifmn<10thenprint" ";
 1610 printmid$(str$(mn),2,2);":";
 1620 ifsc<10thenprint"0";
 1630 printmid$(str$(sc),2,2);
 1640 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #2  race"
 62010 print"{down}copyright (c) 1978  by ken kasmar
 62020 gosub60500
 62030 print"{down}race your car to the finish line"
 62040 print"{down}{down}want directions? ";:gosub60000
 62050 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62105 print"race is a game for either one or two"
 62110 print"players. you can select the number of"
 62120 print"'pylons' which appear on the track,"
 62130 print"and also pick your speed (try 100.)"
 62140 print
 62150 print"the cars are controlled by two keypads:"
 62160 print"{down}left player          right player"
 62170 print"      w  ......up......  8
 62180 print"      x      down        2
 62190 print"      a  ....left......  4
 62200 print"      d      right       6
 62210 print"      s  ....stop......  5"
 62220 print"{down}when you crash, you start over!
 62230 print"(and your time starts over.)
 62250 gosub60200
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} *r. v. gelder*{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}alkmaar{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
    2 print"  no copyright{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}":forx=1to2000:next:print"{clr}"
    3 rem ******tel. 072-117647******     :
    4 f$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":ge=59464:p1=32:p2=220:p3=251:p4=0:p5=151:p8=6
    5 forx=1to5:bs$(x)="{left}{left}*niet gereden*":next:gi=33728:d7=5
    6 p9=1:p0=40:d4=8:c1=39:c2=4:p6=255:p7=90:dimin(255),t(31),r(31):poke59468,14
    7 print"{clr}";tab(14);"{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}{rvon}racebaan{rvof}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}":print
    8 c3=9:c4=95:c5=7:c6=41:c7=2:c8=38:print"jE{$a0}MOET{$a0}PROBEREN OM HET{$a0}FIGUURTJE
    9 c9=3:d1=233:d2=105:d3=223:print" IN{$a0}EEN{$a0}ZO{$a0}KORT{$a0}MOGELYKE{$a0}TYD{$a0}NAAR
   10 d5=42:d6=79:print" HET{$a0}EINDE{$a0}VAN{$a0}DE{$a0}BAAN{$a0}TE{$a0}STUREN.":print
   11 print"jE{$a0}KUNT{$a0}HET{$a0}FIGUUR{$a0}BESTUREN{$a0}MET{$a0}DE
   12 print"   CYFERTOETSEN (2=NAAR{$a0}BENEDEN{$a0}9=
   13 print"   NAAR{$a0}RECHTSBOVEN ENZ.).":print
   14 print"hET{$a0}FIGUURTJE{$a0}BLYFT{$a0}BEWEGEN{$a0}ZOLANG
   15 print"      JE{$a0}DE{$a0}TOETS{$a0}INGEDRUKT{$a0}HOUDT.
   16 print"  aLS{$a0}JE{$a0}DE{$a0}KANT{$a0}RAAKT{$a0}DAN{$a0}MOET{$a0}JE
   17 print"      +- 3{$a0}SEC. WACHTEN{$a0}VOORDAT{$a0}JE
   18 print"      WEER VERDER{$a0}KUNT.":print
   19 print"jE{$a0}KUNT{$a0}KIEZEN{$a0}UIT{$a0}5{$a0}VERSCHILLENDE{$a0}
   20 print"   BANEN. oP{$a0}HET{$a0}SCOREBORD{$a0}HOUD{$a0}DE
   21 print"   COMPUTER{$a0}BY{$a0}WIE{$a0}HET{$a0}BESTE{$a0}IS{$a0}OP{$a0}
   22 print"   EEN{$a0}BEPAALDE{$a0}BAAN."
   23 print:print"       {rvon}druk space voor verder
   24 poke158,0:wait158,1
   25 print"{clr}":poke59468,12
   26 wi=0:input"{clr}{rvon}wie gaat nu ryden (naam){rvof}   {CBM-B}{left}{left}{left}";sp$
   27 ifleft$(sp$,1)="{CBM-B}"thenprint"{up}";:goto26
   28 input"{rvon}   welke route (1 t/m 5){rvof}   {CBM-B}{left}{left}{left}";c$:ifleft$(c$,1)="{CBM-B}"thenprint"{up}";:goto28
   29 c=val(c$):y=c
   30 ifc>5orc<1then28
   31 restore:gosub101
   32 rl=0:ri=2:gosub61
   33 forx=1tott-100:ri=r(x):x1=t(x)
   34 forx2=1tox1:gosub62:next:pokege,0:next:goto35
   35 poke33647,220:poke33687,220:poke32808,92:poke32848,92:poke32809,90
   36 pl=32809
   37 getc$:ifc$=""then37
   38 ti$="000000":ifti<5then40
   39 getc$:printf$"{rvon}{down}        tussentyd: "right$(ti$,3)"  sec.";:ifc$=""then39
   40 c=val(c$)
   41 ifc=p4orc=d7then39
   42 vo=pl+ve(c):v1=peek(vo):pokepl,p1:pokevo,p7:pl=vo:geta$
   43 ifv1<>p1andv1<>p2thengosub49
   44 ifv1=p2then54
   45 pokege,p3:pokege,p4
   46 ifa$<>""thenc$=a$
   47 ifpeek(p5)=p6then39
   48 goto40
   49 pokege,0:poke59409,52:sys990:poke59409,60
   50 forx=p9toc9:printf$:print"{rvon}botsing botsing botsing botsing botsing{up}{up}{up}";
   51 forx1=p4top0:pokegi+x1,p1:pokege,x1*p8:next:next
   52 poke59409,52:sys990:poke59409,60
   53 pl=pl-ve(c):pokepl,90:pokevo,v1:poke525,0:return
   54 pokege,0:print"{home}              finish                    "
   55 ty=int(ti/60*100)/100
   56 ifty<bt(y)orbt(y)=0thenbt(y)=ty:bs$(y)=sp$:wi=1
   57 poke59464,211:forx=1to1000:next:poke59464,157:forx=1to500:next
   58 poke59464,124:forx=1to1000:next:poke59464,0
   59 goto120
   60 goto60
   61 poke59464,0:poke59467,16:poke59466,15:print"{clr}":pl=32768:sys990:x=0
   62 onrigoto82,66,86,77,100,71,91,64,96
   63 goto100
   64 ifrl=p8thenpl=pl-p9
   65 pokepl-p0,p1:pokepl-c1,p1:pl=pl-p0:goto100
   66 ifrl=p8thenpl=pl+c1
   67 ifrl=c2thenpl=pl+p0
   68 t2=p1:ifrl=c3thent2=c4:pl=pl-p0
   69 ifrl=c5thenpl=pl-p0
   70 pokepl+p0,p1:pokepl+c6,t2:pl=pl+p0:goto100
   71 ifrl=c7thenpl=pl-c1
   72 ifrl=d4thenpl=pl+p9
   73 ifrl=c9thenpl=pl-c6
   74 ifrl=c3thenpl=pl-p9
   75 ifrl=c5thenpl=pl+p9
   76 pokepl+p9,p1:pokepl+c6,p1:pl=pl+p9:goto100
   77 ifrl=c7thenpl=pl-p0
   78 ifrl=p9thenpl=pl-c8
   79 ifrl=c5thenpl=pl+c7
   80 ifrl=c9thenpl=pl+p9:pokepl+p0,d1
   81 pokepl-p9,p1:pokepl+c1,p1:pl=pl-p9:goto100
   82 t2=d1:ifrl=c5thent2=p1:pokepl,d2
   83 ifrl=c2thent2=p1:pokepl,d2
   84 t1=d2:ifrl=p8thenpl=pl-p9:t1=p1
   85 pokepl+c1,t1:pokepl+p0,p1:pokepl+c6,t2:pl=pl+c1:goto100
   86 t1=d3:ifrl=p8thenpl=pl-c6:te=p9:t1=p1:goto90
   87 ifte=p9thente=p4:t1=p1
   88 ifrl=c3thent1=p1:pokepl+p9,c4
   89 ifrl=c5thent2=p1
   90 pokepl+p0,t1:pokepl+c6,p1:pokepl+d5,c4:pl=pl+c6:goto100
   91 ifrl=p8thenpl=pl-p9
   92 t2=c4:ifrl=c7thenpl=pl+p0:t2=p1:te=p9:goto95
   93 ifte=p9thente=p4:t2=p1
   94 ifrl=p9thent2=p1:pokepl,d3
   95 pokepl-c6,d3:pokepl-p0,p1:pokepl-c1,t2:pl=pl-c6:goto100
   96 t1=d2:ifrl=p8thente=p9:pl=pl+d6:t1=p1:goto99
   97 ifte=p9thente=p4:t1=p1
   98 ifrl=c9thent1=p1:pokepl+p9,d1
   99 pokepl-p0,t1:pokepl-c1,p1:pokepl-c8,d1:pl=pl-c1
  100 rl=ri:pokege,rnd(ti)*p6+p9:return
  101 data160,0,132,1,169,128,133,2,177,1,73,128,145,1,200,208,247,230,2,169
  102 data132,197,2,208,239,96,234,999
  103 as=990
  104 readis:ifis=999then106
  105 pokeas,is:as=as+1:goto104
  106 data39,40,41,-1,0,1,-41,-40,-39
  107 forx=1to9:readve(x):next
  108 data91,128,2,1,6,2,2,10,6,25,8,3,4,21,8,6,6,30,2,4,4,4,2,4,6,4,2,4,4,34
  109 data2,7,6,3,8,3,6,10,2,3,6,6,8,3,6,4,2,3,6,5,8,3,6,4,2,3,6,4
  110 data92,128,2,1,6,2,2,12,6,2,9,10,4,8,8,4,6,13,1,3,2,2,1,10,4,2,2,2,4,4,2,4
  111 data6,7,8,3,9,12,8,2,6,3,8,3,6,11,2,16,7,5,8,6,4,5,1,13,6,27
  112 data93,124,2,1,6,10,2,3,4,8,2,16,6,3,8,12,6,8,8,7,6,3,2,10,4,7,2,9,6,10
  113 data8,19,6,17,2,2,1,8,3,5,4,8,8,12,4,3,2,16,6,15
  114 data94,131,2,1,6,3,3,10,9,8,3,8,9,8,2,12,4,9,7,1,4,4,7,5,1,6,4,2,1,2,4,2
  115 data1,2,7,7,4,4,2,14,6,4,8,4,6,8,9,8,3,7,4,10,2,3,6,11,8,6,6,4,2,6,6,4
  116 data95,125,2,1,6,2,2,9,3,11,6,4,7,10,8,8,6,2,3,12,4,5,2,2,3,5,6,6,8,7
  117 data7,13,6,6,3,12,2,10,6,3,8,9,7,11,6,10,3,5,2,17,6,2
  118 forx=1to500:readro,tt:ifro-90<>cthennext
  119 forx=1tott-100:readr(x),t(x):next:return
  120 print"{clr}";:forx=1to15:print"{rvon} {rvof}";:next:print"{rvon}scorebord{rvof}";
  121 forx=1to56:print"{rvon} {rvof}";:next
  122 print"{CBM-J}baannr.{CBM-J}     winnaar     {CBM-J}    tyd:    {CBM-L}";
  123 forx=1to19:print"{CBM-J}       {CBM-J}                 {CBM-J}            {CBM-L}";:next
  124 forx=1to40:print"{rvon}{CBM-O}{rvof}";:next
  125 print:print"{home}{down}{down}":forx=1to5:printtab(3)x;tab(12)bs$(x);tab(30)bt(x)
  126 ifwi=0ory<>xthen130
  127 forx2=1to8:pokege,88
  128 print"{up}{up}"tab(12)bs$(x):forx1=1to200:next:print"{up}{up}"tab(12)"{rvon}"bs$(x)
  129 pokege,0:forx1=1to200:next:next
  130 print:next
  131 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}           {rvon}nog eens (j/n){rvof}";
  132 getc$:ifc$=""then132
  133 ifleft$(c$,1)="j"then26
  134 poke59467,0:poke59466,0:poke59464,0:end
    0 clr:pg$="racer!":nm$="24":goto62000
    1 " mike rawley
    2 " 364 santa barbara shores dr
    3 " goleta, ca 93117
    4 "
    5 " cursor #24, february, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of feb 3, 1981 9:40pm gtf
  100 nr=1:bd=9:dima(50):dimb%(50,4):gosub1560:mb=0:nf=0:nc=0:be=0
  140 print"{home}
  160 gosub2280
  180 deffnr(x)=int(x*10+.5)/10
  200 w$="":fora=1towi:w$=w$+" ":next
  220 wc$="":fora=1towi:wc$=wc$+"{CBM-@}":next
  240 wb$="":fora=1towi:wb$=wb$+"{CBM-B}":next
  260 g=16+c:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}           be right with you":forb=2to42
  280 a(b)=int(3*rnd(1)-1):t=g+4*a(b):ift<wi+2ort>36then280
  290 g=t
  300 fora=1to4:b%(b,a)=0:next:next:a(1)=-1
  320 fora=1to4:b%(1,a)=0:next
  360 ifp=0then460
  380 forb=1top
  400 e=int(43*rnd(1)+1):a=int(rnd(1)*4+1):ifb%(e,a)>0then400
  420 b%(e,a)=int(wi*rnd(1)+1):next
  460 p1=crt+20:p2=crt+wd+20:p3=crt+wd*2+20
  480 q=20-c:a=3:n=80:w=1:x=1:a$="{left}:{rvon} ":a1$="{rvof}:"
  500 print"{clr}"
  520 getb$:ifb$<>""then520
  540 printtab(q);a$;w$;"{rvof}:{up}":printtab(q+c);"{rvon}B{rvof}"
  560 printtab(q);a$;w$;"{rvof}:{up}":printtab(q+c);"{rvon}Q{rvof}"
  580 printtab(q);a$;w$;"{rvof}:{up}":printtab(q+c);"{rvon}B{rvof}"
  600 printtab(q);"{left}:";:forb=qtowi+q:printtab(b);"{rvon}C{rvof}";:next
  620 printtab(wi+q+1);":"
  640 forb=1to20
  660 printtab(q);a$;w$;a1$:next
  680 ti$="000000"
  720 pokep3+wd,160
  740 ifw=5thenx=x+1:w=1
  760 ife=1ore=5thenforb=1to40:next:goto960
  780 ifp>0thenifb%(x,w)>0thenpokecrt+wd*23+q+b%(x,w),170
  800 ifa(x)=1then880
  820 ifa(x)=0then920
  840 ifw=1thenifa1$="{CBM-*}{rvof}:"ora$=":{rvon}"thena1$="{rvof}{SHIFT-POUND}:":a$="{left}:{rvon}{SHIFT-POUND}":goto980
  860 q=q-1:a1$="{rvof}{SHIFT-POUND}:":a$="{left}:{rvon}{SHIFT-POUND}":goto980
  880 ifw=1thenifa1$="{rvof}{SHIFT-POUND}:"ora$="{left}:{rvon} "thena1$="{CBM-*}{rvof}:":a$="{left}:{CBM-*}{rvon}":goto980
  900 q=q+1:a1$="{CBM-*}{rvof}:":a$="{left}:{CBM-*}{rvon}":goto980
  920 ifa(x-1)=-1thena$="{left}:{rvon} ":a1$="{rvof}:":goto980
  940 ifa(x-1)=1thena$=":{rvon}":a1$=" {rvof}:":goto980
  960 ifa<>ethenpokep1-c(e),160
  980 fory=1ton:nexty:e=a:getb$:b=val(b$)
 1000 ifb$=""then1100
 1020 ifb=6anda<5thena=a+1:goto1100
 1040 ifb=4anda>1thena=a-1:goto1100
 1060 ifb=2andn>0thenn=n-40:goto1100
 1080 ifb=8thenn=n+40
 1100 ifx=50thenit=ti/60:goto1680
 1110 ifx=45thengosub1440
 1120 onegoto1280,1180,1220,1140,1280
 1140 printtab(q)a$w$a1$:p1=p1+1:p2=p2+1:p3=p3+1:ifpeek(p3+c(a))<>160then1860
 1160 pokep1-1,205:pokep2,209:pokep3+c(a),d(a):w=w+1:goto740
 1180 printtab(q)a$w$a1$:p1=p1-1:p2=p2-1:p3=p3-1:ifpeek(p3+c(a))<>160then1860
 1200 pokep1+1,206:pokep2,209:pokep3+c(a),d(a):w=w+1:goto740
 1220 printtab(q)a$w$a1$:ifpeek(p3+c(a))<>160then1860
 1240 pokep1,194:pokep2,209:pokep3+c(a),d(a):w=w+1:goto740
 1280 ife=5then1360
 1300 p1=p1-1
 1320 p2=p2-1:p3=p3-1:pokep2+1,195:pokep2,209:ifpeek(p3+c(a))<>160then1860
 1340 pokep3+c(a),d(a):pokep2+2,160:pokep1+2,160:goto740
 1360 p1=p1+1
 1380 p2=p2+1:p3=p3+1:pokep2-1,195:pokep2,209:ifpeek(p3+c(a))<>160then1860
 1400 pokep2-2,160:pokep1-2,160:pokep3+c(a),d(a):goto740
 1440 print"{up}";:ifa$=":{rvon}"then1500
 1460 ifw>1thenprinttab(q);"{left}:{rvon}{CBM-B}";wb$;"{rvof}:":return
 1480 printtab(q);"{left}:{rvon}{CBM-@}";wc$;"{rvof}:":return
 1500 ifw>1thenprinttab(q);":{rvon}";wb$;"{CBM-B}{rvof}:":return
 1520 printtab(q);":{rvon}";wc$;"{CBM-@}{rvof}:":return
 1560 crt=32768:wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80
 1580 ifwd=80thenprintchr$(142)
 1600 c(1)=-(wd+1):c(2)=-1:c(3)=0:c(4)=1:c(5)=-(wd-1)
 1620 d(1)=195:d(5)=195:d(2)=206:d(3)=194:d(4)=205
 1640 return
 1680 it=ti/60:f=1:nf=nf+1
 1685 print"{clr}{down}{down}you finished the race!
 1690 ifbe=0orit<bethenbe=it
 1700 goto1960
 1860 it=ti/60:f=0:nc=nc+1
 1870 pokep1-1,77:pokep1,93:pokep1+1,78
 1880 pokep2-1,67:pokep2,42:pokep2+1,67
 1900 pokep3-1,78:pokep3,93:pokep3+1,77
 1920 poke59467,16:poke59466,10
 1940 forb=1to100:poke59464,255:poke59464,200:next:poke59467,0:poke59466,0
 1950 print"{clr}{down}{down}you blew it!
 1960 a=4*(x*4+w-1):gosub2520
 1970 ifa<800thenprint"{down}you went";a;"yards"
 1980 print"{down}it took you";it$
 1990 mi=fnr(a/1760/it*3600)
 2000 print"{down}averaging"mi"mph"
 2005 iffthenifmi>mbthenmb=mi
 2010 ifbe=0then2070
 2020 it=be:gosub2520
 2030 print"{down}your best time so far is";it$
 2070 getb$:ifb$<>""then2070
 2080 print"{down}{down}another race? ";:gosub60000:ifleft$(in$,1)<>"n"then2220
 2100 print"{clr}{down}{down}in";nr;"race";:ifnr>1thenprint"s";
 2110 print", you finished";nf;"time";:ifnf<>1thenprint"s";
 2115 print",":print"{down}and crashed";nc;"time";:ifnc<>1thenprint"s";
 2120 print".":ifmb=0then2200
 2130 print"{down}your best ";:ifnf=1thenprint"(and only) ";
 2140 print"time was";:it=be:gosub2520
 2150 printit$;",":print"{down}at an average speed of";fnr(mb);"mph."
 2200 print"{down}{down}{down}{down}{down}{down}":end
 2220 nr=nr+1:print"{down}{down}same track? ";
 2240 gosub60000:ifleft$(in$,1)="n"then160
 2260 goto460
 2280 print"{down}{down}how wide a track (1-10) ? ";:gosub60000
 2300 ifin$=""thenin$="5":print"{down}{down}let's use "in$
 2320 wi=val(in$)
 2340 ifwi<1orwi>10thenprint"{down}that's not between 1 and 10!":goto2280
 2360 ifwi<>int(wi)thenprint"{down}let's make that"int(wi)
 2380 c=int(wi/2)
 2400 print"{down}{down}how many potholes (0-100) ? ";:gosub60000
 2420 ifin$=""thenin$="10":print"{down}{down}let's use ";in$:gosub2580
 2440 p=val(in$)
 2460 ifp<0orp>100thenprint"{down}that's not between 0 and 100!":goto2400
 2480 ifp<>int(p)thenprint"{down}let's make that"int(p):gosub2580
 2500 return
 2520 b=int(it/60):zt=it-b*60
 2540 it$=str$(b)+":"+mid$(str$(100+fnr(zt)),3)
 2560 return
 2580 fori=1to1250:next:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 if peek(50000)=0 then return
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by mike rawley
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}make your motorcycle move like mad
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 getin$:ifin$=""then62050
 62060 goto60300
   10 rem---race  track for 1 or 2 players--
   30 rem---main calling routine-----
   35 dim car$(2,4),crash(2),px(2),py(2),vx(2),vy(2),move$(2),dir(2)
   40 gosub 500:reminit
   50 gosub 1000:reminstruc
   60 gosub 1500:remdraw
   65 if np=1 then crash(2)=1
   70 gosub 2500:rem speed and heading
   80 for p=1 to np
   90 if crash(1)=0 or crash(2)=0 then 100
   92 print"{home}"tab(7)"{rvon}play again?";
   94 gosub 850
   96 if a$="n" then print"{clr}";:end
   98 gosub 500:goto 60
  100 if crash(p) then 160
  110 geta$
  120 if speed<>5 then 138
  122 if p=1 and a$>"9" then 110
  123 if p=2 and a$<="9" then 110
  125 if tm=0 then 140
  130 if a$="" then 110
  132 goto 140
  138 t=ti
  139 if ti<t+speed*60 then 139
  140 gosub 3000:rem accept p's move
  145 if x>36 then 92
  150 gosub 5000:rem new heading
  160 next p
  170 goto 80
  490 end
  500 rem-init---
  510 poke 59468,12
  520 blank$="{rvon}                                       {rvof}"
  540 def fnp(x)=peek(32768+40*y+x)
  545 crash(1)=0:crash(2)=0
  550 p1=1:p2=1:tm=0
  560 move$(1)="":move$(2)=""
  570 erase$(1)="{up}{rght} {down}{left}{left}{left}   {down}{left} {up}{left}{left}"
  580 erase$(2)="{up} {down}{left} {down}{left}{left}   {up}{left}"
  590 erase$(3)="{left}{up} {down}{left}   {down}{left}{left}{left} {up}"
  600 erase$(4)="{up}{left}   {down}{left}{left} {down}{left} {up}{left}"
  610 dir(1)=1:dir(2)=1
  620 rght$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  630 vx(1)=0:vx(2)=0:vy(1)=0:vy(2)=0
  650 return
  800 rem--x,y---
  810 poke 216,y-1:print
  820 print left$(rght$,x);
  830 return
  850 rem-get char
  852 p9=fnp(x)
  860 poke 158,0
  862 t3=ti
  864 if ti<t3+30thenprint"{CBM-+}{left}";:goto870
  866 if ti<t3=60thenprint" {left}";:goto870
  868 t3=ti
  870 get a$:if a$="" then 864
  882 if p9=160 then print"{rvon} {rvof}{left}";:goto 890
  884 print" {left}";
  890 return
  900 rem-----get non-empty string-----
  905 b$=""
  910 gosub 850
  920 if b$=""and a$=chr$(13) then 910
  930 if a$=chr$(13) then 960
  940 printa$;
  950 b$=b$+a$:goto 910
  960 return
 1000 rem----instructions----
 1010 print"{clr}how many players?(1 or 2) ";
 1020 gosub 850
 1030 if a$<>"1" and a$<>"2" then 1020
 1040 printa$
 1050 np=val(a$)
 1060 print"{down}you will be driving a car.  what graphic symbol do you want for your car?
 1070 for i=1 to np
 1080 print"player"i"?";
 1090 c$(i)=""
 1100 gosub 850
 1110 if a$="{rvon}" then c$(i)="{rvon}":goto 1100
 1120 c$(i)=c$(i)+a$+"{rvof}"
 1130 printc$(i)
 1140 next i
 1150 print"{down}the keys shown below are used to
 1160 print"control your acceleration (not your
 1170 print"speed.  the lines show the direction
 1180 print"of acceleration."
 1190 print"{down}   player "c$(2)"        player "c$(1)
 1200 print"   M  {SHIFT--}  N         M  {SHIFT--}  N
 1210 print"    q w e           7 8 9
 1220 print"   {SHIFT-*}a   d{SHIFT-*}         {SHIFT-*}4   6{SHIFT-*}
 1230 print"    z x c           1 2 3
 1240 print"   N  {SHIFT--}  M         N  {SHIFT--}  M
 1250 print"{down}before the race you get a chance to
 1260 print"alter the race course.  you will use
 1270 print"the 'crsr' controls to move around,
 1280 print"and the space bar to either add or
 1290 print"delete obstacles and return when through
 1300 print"press any key to go on.";
 1310 gosub 850
 1320 return
 1500 rem--draw track and allow changes--
 1510 print"{clr}"blank$
 1520 for i= 12 to 9 step -1
 1530 printleft$(blank$,i)
 1540 next i
 1550 for i=1 to 15
 1560 print"{rvon} "
 1570 nexti
 1580 print"{rvon}  ":print"{rvon}   ":print"{rvon}    "
 1590 printblank$
 1600 x=38:y=3:gosub 800
 1610 print"f{down}{left}i{down}{left}n{down}{left}i{down}{left}s{down}{left}h";
 1620 x=14:y=12:gosub 800
 1630 printleft$(blank$,25);
 1640 x=14:y=13:gosub 800
 1650 printleft$(blank$,25);
 1660 x=36:y=16:gosub 800
 1670 for i =1 to np
 1680 car$(i,1)="{left}"+c$(i)+c$(i)+c$(i)+"{up}{left}"+c$(i)+"{down}{down}{left}"+c$(i)+"{up}{left}{left}"
 1685 printcar$(i,1);
 1687 px(i)=x:py(i)=y
 1690 if i=1 then print"{down}{down}{down}{down}{down}";
 1695 y=y+5
 1700 next i
 1710 x=38:y=18:gosub 800
 1720 print"s{down}{left}t{down}{left}a{down}{left}r{down}{left}t";
 1730 print"{home}{rvon}do you want to change the track (y,n)";
 1740 gosub 850
 1750 if a$="y" then gosub 2000
 1760 print"{home}"blank$
 1770 for i=1 to np
 1780 car$(i,2)="{up}"+c$(i)+"{left}{down}"+c$(i)+"{left}{left}{down}"+c$(i)+c$(i)+c$(i)+"{left}{left}{up}"
 1790 car$(i,3)="{left}{up}"+c$(i)+"{left}{down}"+c$(i)+c$(i)+c$(i)+"{left}{left}{left}{down}"+c$(i)+"{up}"
 1800 car$(i,4)="{up}{left}"+c$(i)+c$(i)+c$(i)+"{left}{left}{down}"+c$(i)+"{left}{down}"+c$(i)+"{left}{up}"
 1810 next i
 1820 return
 2000 rem---allow alterations in track---
 2010 print"{home}"blank$
 2020 print"{home}{rvon}use crsr, spc bar, & return."
 2030 x=20:y=17
 2040 gosub 800
 2050 gosub 850
 2060 if a$=chr$(13) then 2190
 2070 if a$=chr$(29) then x=x+1:goto 2040
 2080 if a$=chr$(157) then x=x-1:goto 2040
 2090 if a$=chr$(17) then y=y+1:goto 2040
 2100 if a$=chr$(145) then y=y-1:goto 2040
 2110 if a$=chr$(32) then gosub 2300
 2120 goto 2040
 2190 return
 2300 rem---add or delete obstacle----
 2310 if fnp(x)=160 then print" ";:goto       2325
 2320 if fnp(x)=32 then print"{rvon} {rvof}";
 2325 x=x+1
 2330 return
 2500 rem----accept speed & print heading-----------------------------------
 2510 print"{home}{rvon}manual,slow,average,or fast?";
 2520 gosub 850
 2530 if a$="m" then speed= 5 :goto 2650
 2540 if a$="s" then speed= 4 :goto 2650
 2545 if a$="a" then speed= 2 :goto 2650
 2550 if a$="f" then speed= 0 :goto 2650
 2560 goto 2520
 2650 print"{home}"blank$
 2660 print"{home}{rvon}press any key to start.";
 2665 gosub 850
 2740 return
 3000 rem----acept p's move-----
 3020 x=px(p):y=py(p)
 3030 on p gosub 3500,3800:rem find p's move
 3033 m=5
 3040 px(p)=px(p)+vx(p)
 3050 py(p)=py(p)+vy(p)
 3052 if x=px(p) and y=py(p) then 3490
 3053 gosub 800
 3055 print erase$(dir(p));
 3060 gosub 4500:rem determine direction
 3100 if x<px(p) then x=x+1
 3110 if x>px(p) then x=x-1
 3120 if y<py(p) then y=y+1
 3130 if y>py(p) then y=y-1
 3135 if x>36 then print"{left}{left}{left}{left}winner!":goto 3490
 3140 gosub 4000:rem check for crash
 3150 if crash(p) then 3490
 3155 gosub 800
 3160 printcar$(p,dir(p))
 3170 goto 3052
 3490 return
 3500 rem----player 1's next move------
 3510 if a$="" then 3560
 3520 if asc(a$)>48 and asc(a$)<58 then         3555
 3530 move$(2)=move$(2)+a$
 3540 get a$
 3550 goto 3510
 3555 move$(1)=move$(1)+a$
 3560 if p1>len(move$(1)) then 3600
 3570 m=val(mid$(move$(1),p1,1))
 3580 on m gosub 3710,3720,3730,3740,3600,3760,3770,3780,3790
 3590 p1=p1+1
 3600 return
 3700 rem---change velocities-----
 3710 vx(p)=vx(p)-1:vy(p)=vy(p)+1:return
 3720 vy(p)=vy(p)+1:return
 3730 vx(p)=vx(p)+1:vy(p)=vy(p)+1:return
 3740 vx(p)=vx(p)-1:              return
 3760 vx(p)=vx(p)+1:              return
 3770 vx(p)=vx(p)-1:vy(p)=vy(p)-1:return
 3780 vy(p)=vy(p)-1:return
 3790 vx(p)=vx(p)+1:vy(p)=vy(p)-1:return
 3800 rem----player 2's next move------
 3810 if a$="" then 3860
 3820 if asc(a$)>64 then 3850
 3825 if val(a$)<1 then 3840
 3830 move$(1)=move$(1)+a$
 3840 get a$:goto 3810
 3850 move$(2)=move$(2)+a$
 3860 if p2>len(move$(2)) then 3900
 3861 m$=mid$(move$(2),p2,1)
 3862 if m$="z" then m=1
 3863 if m$="x" then m=2
 3864 if m$="c" then m=3
 3865 if m$="a" then m=4
 3866 if m$="d" then m=6
 3867 if m$="q" then m=7
 3868 if m$="w" then m=8
 3869 if m$="e" then m=9
 3880 on m gosub 3710,3720,3730,3740,3900,3760,3770,3780,3790
 3890 p2=p2+1
 3900 return
 4000 rem----check for crash---------
 4010 on dir(p) goto 4100,4150,4200,4250
 4100 if fnp(x+1)<>32orfnp(x)<>32or fnp(x-1)<>32orfnp(x-39)<>32then crash(p)=1
 4110 if fnp(x+41)<>32then crash(p)=1
 4120 goto 4300
 4150 if fnp(x-40)<>32 or fnp(x)<>32 then crash(p)=1
 4160 if fnp(x+39)<>32orfnp(x+40)<>32 or fnp(x+41)<>32 then crash(p)=1
 4170 goto 4300
 4200 if fnp(x-41)<>32or fnp(x-1)<>32 or fnp(x)<>32 then crash(p)=1
 4210 if fnp(x+1)<>32 or fnp(x+39)<>32 then crash(p)=1
 4220 goto 4300
 4250 if fnp(x-41)<>32 or fnp(x-40)<>32 or fnp(x-39)<>32 then crash(p)=1
 4260 if fnp(x+40)<>32 or fnp(x)<>32 then crash(p)=1
 4300 if crash(p)=1 then print"{left}{left}{rvon}crash{rvof}{left}{left}"
 4310 return
 4490 return
 4500 rem----determine direction------
 4510 if abs(vx(p))>abs(vy(p))and vx(p)<0   then dir(p)=1
 4520 if abs(vx(p))>abs(vy(p))and vx(p)>0 then dir(p)=3
 4530 if abs(vx(p))<abs(vy(p))and vy(p)>0 then dir(p)=4
 4540 if abs(vx(p))<abs(vy(p))and vy(p)<0 then dir(p)=2
 4990 return
 4999 rem-----redo heading-------
 5000 print"{home}"blank$
 5005 tm=tm+.5
 5010 print"{home}{rvon}vx"c$(1)"{rvon}="vx(1);tab(20)"time="tm"cycles
 5020 print"{rvon}vy"c$(1) "{rvon}="vy(1)
 5030 if np=1 then 2740
 5040 print"{rvon}vx"c$(2)"{rvon}="vx(2)
 5050 print"{rvon}vy"c$(2)"{rvon}="vy(2)
 5060 return
 10055 print"p1="p1;"p2="p2
   20 sys(1040)
    0 clr:poke59468,12
    1 rem rail copyright (c) 1980 chris l torkildson
    2 rem cursor #19 april 1980
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of 29 apr 80
   90 pg$="rail":nm$="19":gosub 62000
  100 dimg%(13,3),t%(6,11)
  200 print"{clr}"
  210 print"{down}how many trains can you handle? ";
  220 gosub60000:print:ifin$=""thennt=1:goto300
  230 nt=val(left$(in$,1))
  240 ifnt<1ornt>6thenprint:print"enter a number between 1 and 6":goto210
  300 gosub19000
  310 gosub20000
  320 print"{home}the trains are rolling!
  330 gosub22000
  340 print"{home}":forii=1to20:print:next
  350 q=0
  360 print"which gate? ";
  400 h=h+1:ifh>255thenh=0
  410 geti$:print"{CBM-+}{left}";:ifhand1thenprint" {left}";
  420 ifi$<>""thengosub21000:q=0
  430 gosub5000
  440 ifq=0then400
  600 ifq<0then700
  610 print"{home}you made it!              ":ifmt<ntthenmt=nt
  620 fori=1to1000:next:ifnt>5thenprint"you have reached the top":end
  625 getr$:ifr$<>=""then625
  630 print"{clr}want to try the next level up? ";:gosub60000
  640 ifleft$(in$,1)<>"n"thennt=nt+1:goto300
  650 goto720
  700 print"{home}{rvon}c r a s h ! !{rvof}            "
  710 fori=1to100:poke(32768+y%),32:poke(32768+y%),160:next
  715 getr$:ifr$<>""then715
  720 print"{clr}want to try that level again? ";:gosub60000
  730 ifleft$(in$,1)<>"n"then300
  740 print:print"{down}you can successfully control";mt;"trains.":end
 5000 fori1=1tont:y%=t%(i1,1)+d%(t%(i1,2))
 5010 x%=peek(32768+y%):i3%=0
 5020 fori2=1to8:ifx%=c%(i2)theni3%=i2:i2=8
 5030 next
 5040 z%=m%(i3%,t%(i1,2)):
 5042 ifz%=-200andi1=1thenq=1:i1=nt:next:return
 5045 ifz%<0thenq=-1:i1=nt:next:return
 5060 pokey%+32768,t%(i1,0):poket%(i1,1)+32768,t%(i1,3)
 5070 t%(i1,1)=y%:t%(i1,2)=z%:t%(i1,3)=x%:next:return
 9999 end
 19000 restore:x=32768:print"{clr}":z=1
 19010 ready:ify=0thenreturn
 19015 ify<0thenz=-y:goto19010
 19020 t=x:x=x+z
 19030 ify<>32thenforz=ttox-1:pokez,y:next
 19040 z=1:goto19010
 19100 data-81,32,85,-35,64,32,64,115,32,93,-34,32,1,93,-3,32,93,-35,32,93
 19110 data-3,32,93,2,-34,32,93,-4,32,-18,64,32,-11,64,32,-4,64,-4,32
 19130 data93,-17,32,3,93,-10,32,4,93,-3,32,5,93,-3,32,93,-18,32,93
 19140 data-11,32,93,-4,32,93,-3,32,93,-18,32,93,-11,32,93,-4,32,93,-3,32,93,6
 19160 data-17,32,93,-11,32,93,-4,32,93,-4,32,-18,64,75,-11,32,93,-4,32,93
 19180 data-3,32,93,7,-29,32,93,-4,32,93,-4,32,-14,64,73,-15,32,93,-4,32,93
 19200 data-3,32,93,-14,32,74,64,32,-6,64,32,-6,64,75,-4,32,93,-3,32,93
 19210 data-15,32,8,93,-5,32,9,93,-11,32,93,-3,32,93,-16,32,93,-6,32,93
 19230 data-11,32,93,-3,32,93,-16,32,93,11,-4,32,12,93,-11,32,93,-3,32,74
 19240 data-3,64,32,-12,64,32,-6,64,32,-11,64,75,-7,32,93,10,-38,32,113,0
 20000 fori=1to12:forj=0to2:readg%(i,j):nextj,i
 20010 fori=2to12:pokeg%(i,2)+32768,g%(i,int(rnd(1)+.5)):next
 20020 pokeg%(1,2)+32768,g%(1,0)
 20090 return
 20100 data64,73,117,93,74,241,64,73,260,73,64,272,73,93,277,93,74
 20110 data441,93,74,521,64,73,578,73,64,585,64,85,725,64,74,738
 20120 data64,75,745
 21000 x1%=(asc(i$)and15):ifx1%<1orx1%>12thenreturn
 21005 x2%=peek(g%(x1%,2)+32768):x3%=g%(x1%,1)
 21010 ifx2%=x3%thenx3%=g%(x1%,0)
 21020 poke(g%(x1%,2)+32768),x3%:return
 22000 fori=0to8:readc%(i):next
 22010 fori=0to8:forj=0to3:readm%(i,j):nextj,i
 22020 fori=0to3:readd%(i):next
 22030 fori=1to6:forj=0to3:readt%(i,j):nextj,i
 22090 return
 22100 data32,85,74,75,73,64,93,115,113
 22110 data-1,-1,-1,-1,-1,3,0,-1,-1,2,-1,0,2,-1,-1,1,3,-1,1,-1
 22120 data0,1,-1,-1,-1,-1,2,3,-1,-1,-1,-1,-1,-1,-1,-200
 22130 data1,-1,-40,40
 22140 data209,118,1,64
 22150 data214,721,0,74
 22160 data214,523,0,64
 22170 data214,250,0,64
 22180 data214,755,0,64
 22190 data214,85,1,64
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"CCCC";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62002 print"{down} copyright (c) 1980  by chris torkildson
 62010 gosub60500:print"{down}switch the railroad"
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 if left$(in$,1)="y" then 62100
 62040 print"{clr}":clr:goto100
 62100 lp=2:gosub60200
 62110 print"you are the master of a large"
 62120 print"{down}switchyard. you can have up to six
 62130 print"{down}locomotives ({rvon}V{rvof}) running at a time,
 62140 print"{down}depending on your skill level.
 62150 print"{down}the object is to direct a specially
 62160 print"{down}marked train ({rvon}Q{rvof}) from one siding to
 62170 print"{down}another. you do this by giving orders
 62180 print"{down}to your yard switchmen. a problem
 62190 print"{down}occurs because you cannot stop any of
 62200 print"{down}the trains.
 62220 gosub60200:print"there are twelve switches,{$a0}labeled
 62230 print"{down}a through{$a0}l. you throw the switch by
 62240 print"{down}typing its letter. throwing a
 62250 print"{down}straight switch curves the track around
 62260 print"{down}the letter.
 62280 print"{down}{down}you must try to move the special train"
 62290 print"{down}from its start on the upper right hand
 62300 print"{down}corner to the siding near the lower
 62310 print"{down}left hand corner.
 62400 gosub60200
{$7a}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-D}{$00}{blu}rally x         l1{$e6}                                                                                                                                                                        ~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{$7f}!~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{lblu}{$00}~{$00}~{$65}~{$65}~{$65}~{$65}~{$65}{$7f}{$65}~{$65}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}^{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}~{$00}{$f7}{$e7}~{$00}{$7f}!{$00}{CTRL-K}{CTRL-D}~~{yel}1037{$00}{$00}{$00}l{wht}{CTRL-V}{$a0}{blu}{SHIFT-POUND} {lgrn}{$00}{$00}{f7}{CTRL-P}{$fa} {$e7}{CTRL-D}{$a0}{blu}{CBM-O}@{CTRL-Z}{lgrn}{$00}{$00}{f7}{CTRL-P}{$f7}{CBM-+}{$7f}{CBM-J}h{$f0}{ensh}){stop}{brn}@Vhl{$de}{CTRL-D}{CBM-J}0j{blk}{stop}l{CBM-I}{CTRL-D} {pur}{wht}{CBM-Z}A{CTRL-B}04U8{$f0}0{CBM-J}8{f1}{f4}{CBM-Z}A{CTRL-B}{brn}8 {$6c}{wht}{dish}{CBM-+}{$82}(P{CTRL-Z}{CBM-G}{f4}8{$f5}8){stop}I{CTRL-B}{$f0}{stop}lW{CTRL-D}{CBM-J}88{$e9}{CTRL-A}){stop}{brn}@l{SHIFT-+}{CTRL-D}{CBM-G}{f4}{brn}8 {$6c}{wht}{dish}{CBM-+}{$82}({$f0}{grn}{$f6}8{CBM-J}8){stop}{brn}8 {$6c}{wht}{dish}{CBM-+}{$82}({$f0}b{$f6}8{$f6}8{CBM-J}8){stop}{brn}8lW{CTRL-D}{CBM-J}8{CBM-U}P{CTRL-D}V(p{rvon}I{CTRL-A}P{CTRL-D}{$f6} p{$0a}I{CTRL-B}P{CTRL-D}{$f6}(p{CTRL-B}V {$f6}0{CBM-J} {CTRL-P}{CTRL-B}{$f6} I@{blk}{CTRL-B}V {CBM-J}({CTRL-P}{CTRL-B}{$f6}(I{$70}{blk}{CTRL-B}V({CBM-J}8{brn}@ {CTRL-K}{CTRL-F}J0{stop}l*{CTRL-D} 8{dish}{CBM-+}{$7f}{f3}{f6}{CBM-J} {f1}{f8}{CBM-J}( {$f1}{CTRL-K}P{$6d}{CBM-J}@{CBM-N}{CBM-G}{$82}{$f0}{CTRL-V}{CBM-G}{f1}{$f0}{$0a}{CBM-J}{CTRL-P}{up}{$80}{CBM-G}{f1}I{down}{$f0}x{$a0}({CBM-J}{del}{up}{$80}Pp{CBM-G}{$84}I{down}P{CTRL-V}{CBM-G}{f1}{$f0}{$0a}{CBM-J}{CTRL-X}{up}{$80}{CBM-G}{f1}I{down}{$f0}<{$a0}({CBM-J}{red}{up}{$80}P4{CBM-G}{$83}{$f0}{CTRL-K}{CBM-J}{$00}{up}{$80}H{CBM-J}{CTRL-D}{up}{$80}P%{CBM-G}{f1}I{down}P{CTRL-K}{CBM-J}{dish}{up}{$80}H{CBM-J}{CTRL-L}{up}{$80}P{del}{CBM-J}{dish}{up}{$80}H{CBM-J}{CTRL-L}{up}{$80}{$a0}({CBM-J}{$00}{up}{$80}H{CBM-J}{CTRL-D}{up}{$80}{CBM-+}{f6}J0{stop}l{$e9}{CTRL-D}{$60}{f3}{$82}{CBM-H}8{CBM-J} {CTRL-X}{$79}{$60}{CTRL-Z}I@{CBM-A}{blu}{f1}{$84}{CBM-J}({CTRL-X}{$79}{$64}{CTRL-Z}I{$70}{CBM-A}{home}{f1}{f1} {$e4}{wht}{CBM-G}{$84}j){CTRL-G}{CBM-N}{$a0}{$00}{CBM-E}{$80}={$f3}{CTRL-X}{$60}I{$00}{$60}{SHIFT-POUND}~{sret}A{CTRL-B}{CBM-X}{$78}{CTRL-Z}P {CBM-J} E{CBM-W}P{wht}{$fe}{$78}{CTRL-Z}P{CTRL-U}{CBM-A}{CTRL-G}{SHIFT-POUND}{CTRL-A}{sret}A{CTRL-B}P{CTRL-K}{CBM-G}{CBM-W}U {CBM-A}{wht}{SHIFT-POUND}{stop}{sret}A{CTRL-B}{$60}{CBM-J}(E{CBM-H}P{wht}{$de}{$78}{CTRL-Z}{$f0}U{CBM-A}{CTRL-G}{SHIFT-POUND}{CTRL-B}{sret}A{CTRL-B}P{ensh}{CBM-G}{CBM-H}U({CBM-A}{stop}{$ee}A{CTRL-B}{$60}{CBM-Z}{CBM-H}{CTRL-B}{f1}{$80}{CBM-Z}{CBM-J}{CTRL-B}{f1}{orng}{CBM-G}{f1}){$fe}{$0a}{$65}{$80}{f1}{$80}{blk}{CTRL-B}{$e6}{orng}{CBM-G}{$84}jjjj{CTRL-X}{$65}{$80}{f1}{$80}{blk}{CTRL-B}{$e6}{orng}{$60}{CBM-D}{CBM-*}{CTRL-B}{CBM-O}{inst}{CTRL-B}U {$f0}{wht}{f7}{CTRL-P}{$f6}0{ensh}{CBM-O}{CBM-@}{CTRL-B}U(P{$f4}{$f0}7{CBM-D}{SHIFT-*}{CTRL-B}0{CTRL-W}{CBM-O}p{$00}U {$f0}{wht}{f7}{CTRL-P}{$f4}0{CTRL-K}{CBM-O}_{$00}U(P{$f4}{SHIFT-POUND}{CTRL-O}P{rght}{f3}{f6}{CBM-@}{$7f}{CBM-O} {$00}U {$f0}{wht}{f7}{CTRL-P}{$f6}0{CTRL-O}D{f6}{$f0}{$f7}{CBM-O}({$00}U(P{$f0}{SHIFT-POUND}{CTRL-G}{brn}h{$60}{SHIFT-POUND}~{sret}c{$e8}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{grn}{f1}{orng}{CBM-I}{$00} {$82}{CTRL-F}{CBM-G}{$80}{CTRL-X}{$69}{dish}{f1}{$80}{blk}{CTRL-B}{$e6}{orng}{$e8}{$e0}@P{$ed}{$60}{$a0}{CTRL-G}{CBM-E}{$80}hjjjj{ensh}{SHIFT-*}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{$68}){CTRL-O}{ensh}{$80}{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}jj{ensh}@{sret}o{$e8}){CTRL-O}{sret}o{$e8}{f4}{$0a}{$0a}{$0a}){CTRL-X}{sret}o{$e8}{gry2}
o{$e8}{ensh} {sret}o{$e8}{SHIFT-POUND}{$00}{sret}o{$e8}{f7}{CTRL-P}{CBM-F}{$60}{CBM-D}Z{CTRL-B} {blu}{CTRL-G}{CBM-O}F{CTRL-B}{f1}{f5}{CBM-O}P{CTRL-B}{f1}{f7}{$84}{f3}{CBM-O}){CTRL-X}{f1}{$84}{CBM-O}<{CTRL-X}{f1}{f1}{$a0}{CTRL-G}{CBM-E}{$82}{up}{$84}{f7}{CTRL-P}{$f9}{CBM-G}{f3}{CTRL-X}{$69} {CBM-N}{CBM-G}{$84}{f1}{$80}{CBM-G}{f1}{f1}{orng} {$82}{CTRL-F}{CBM-@}{f3} ={CTRL-G}{CBM-G}{f3}{CTRL-X}{$69}{$60}{$a0}{$00}{up}{$84}{CBM-@}{f3}{f7}P{CTRL-F}{CBM-Z}{SHIFT-+}{CTRL-B}{$f0}{CTRL-A}{f7}0{stop}lM{CTRL-F}{$60}{CBM-I}{$00}{CBM-O}P{CTRL-B}){CTRL-D}{$f0}{CTRL-B}{CBM-I}{CTRL-B}{CBM-O}F{CTRL-B}){CTRL-D}{$f0}{CTRL-A}{$e8}{CBM-X}!{CTRL-X}{f1}{$82}{CBM-X}%{CTRL-X}{f1}{$83}{$60}{CBM-G}{f7}jjj{CBM-N}{CBM-X}W{CTRL-X}{f1}{$84}{CBM-X}{$e5}{CTRL-X}{f1}{f1}{CBM-G}{f5}jjj{CTRL-X}{$65}{$84}{f1}{$84}{blk}{CTRL-B}{$e6}{f1}{$60}{CBM-+}{CBM-B}{CBM-C}~{CTRL-B}{CBM-O}){CTRL-X}{f1}{$80}{CBM-O}<{CTRL-X}{f1}{orng}{$a0}{CTRL-G}{SHIFT-POUND}{$00}{up}{$80}{f7}{CTRL-P}{$fb}{CBM-X}~{CTRL-B}{CTRL-X}{$69}{$60}{CBM-N} {$82}{CTRL-F}{CBM-@}{CBM-B}{$f0}{CTRL-O}H{SHIFT-*}{$0a}{$f0}{$0a}{CBM-O}~{CTRL-B}{f7}{lgrn}~{CTRL-B}H{CTRL-P}{$f1}{SHIFT-POUND}~{f1}{CBM-B}{$60}{CBM-G}{CBM-W}){$fc}{CBM-POUND}E{CBM-X}P{CTRL-K}{CBM-G}{CBM-H}){$fc}E{CBM-V}P{stop}l7{dish}{$84}{CBM-X}{CBM-G}{CBM-H}){$fc}{f1}{CBM-V}{CBM-G}{SHIFT-@}{f1}{$80}{CBM-G}{CBM-F}{f1}{orng}{$a0}{$00}{CBM-E}{$80}I{$6a}P{CTRL-D}{CBM-G}{CBM-C}{up}{$80}{CBM-G}{CBM-W}{f1}{f5}{CBM-G}{CBM-H}{f1}{f7} ={CTRL-G}{CBM-I}{$00}{CBM-G}{CBM-H}){CTRL-D}{$f0}{CTRL-B}{CBM-I}{CTRL-B}{CBM-G}{CBM-W}){CTRL-D}{$f0}{CTRL-A}{$e8}{CBM-X}{$6f}{CTRL-X}{f1}{$82}{CBM-X}{$73}{CTRL-X}{f1}{$83}{$a0}{$00}{CBM-E}{$84}{f1}{CBM-C}I {$f0}{red}8{$e9}{$60}{CBM-N}{CBM-X}){CTRL-X}{f1}{$80}{CBM-X}<{CTRL-X}{f1}{orng}{$a0}{CTRL-G}{CBM-E}{$82}{down}{$80}{lgrn}p{blu}{f7}{CTRL-P}{$f6}0{$0a}{$a0}{CTRL-G}{CBM-E}{$82}{lgrn}p{blu}{f7}{CTRL-P}{$f8}{SHIFT-POUND}p{f1}{$80}{SHIFT-POUND}{blu}{f1}{orng}{CBM-I}{$6a} {$82}{CTRL-F}{$a0}{$00}{SHIFT-POUND}{$6a}{up}{$84}{CBM-G}{$84}{f1}{SHIFT-@}{CBM-G}{f1}{f1}{CBM-F}{$60}{CBM-+}{$7f}{CBM-J} ){$fc}{f1}{$80}U{SHIFT-*}P{CTRL-K}{CBM-J}(){$fc}UHP{stop}l-{ensh}{CBM-G}{$80}{brn}{SHIFT-*}{CBM-J}(){$fc}{brn}H{CBM-X}{ensh}{stop}{$f0}{swlc}{CBM-POUND}{CBM-J}P{f1}{$80}{CBM-J}X{f1}{orng}{gry2}{$a0}{$00}{up}{$80}{$a0}{$00}{CBM-J}(){CTRL-D}{$f0}{CTRL-B}{$a0}{CTRL-B}{CBM-J} ){CTRL-D}{$f0}{CTRL-A}H{CBM-O}{gry1}{CTRL-X}{f1}{$82}{CBM-O}{gry3}{CTRL-X}{f1}{$83}{CBM-J} {f1}{f5}{CBM-J}({f1}{f7}{f3}{f6} ={CTRL-G}{CBM-+}{f6}{CBM-G}{$84}{brn}P{CBM-G}{f1}{brn}X{$a0}{$00}{CBM-E}{$84}I{$6a}{CBM-A}g{CBM-POUND}{left}{ensh}{stop}{f4}{CTRL-X}{$69}+{f1}{f6}{CBM-X}4{CTRL-X}{f1}{$80}{CBM-X}g{CTRL-X}{f1}{orng}{SHIFT-*} P{CTRL-K}{$a0}{CTRL-G}{CBM-E}{$82}{up}{$80}{f7}{CTRL-P}{$f9}0t{gry2}8{$e9}{$60}{CBM-POUND}{CBM-O}){CTRL-X}{f1}{$84}{CBM-O}<{CTRL-X}{f1}{f1}{$a0}{CTRL-G}{CBM-E}{$82}{down}{$84}{up}{$80}{f7}{CTRL-P}{$f7}{CBM-J}P{f1}{$84}{CBM-J}X{f1}{f1}P08{$e9}{$60}{CBM-POUND}{$e9}{CTRL-K}{f1}{f4}{$e4}{f4}P{wht}{CTRL-X}{$69}{$6b}P{CBM-POUND}{gry2}{ensh} {f1}{f6}{CBM-O}){CTRL-X}{f1}{$80}{CBM-O}<{CTRL-X}{f1}{orng}{$a0}{CTRL-G}{CBM-E}{$82}{down}{$80}{up}{$80}{f7}{CTRL-P}{$f7}{SHIFT-POUND}{$00}{left}{ensh}{stop}{f3}{f4}{CBM-+}{f6} {$82}{CTRL-F}{$a0}{$00}{f4}{ensh}@{up}{$84}{CBM-+}{f4}J0{stop}l:{dish}{$60}{CBM-Z}{CBM-H}{CTRL-B}{f1}{$80}{CBM-Z}{CBM-J}{CTRL-B}{f1}{orng}{SHIFT-POUND}{$00}{f1}{f3}{CBM-G}{CBM-H}j8{$e9}{CTRL-D}{f1}{f5}{CTRL-P}{CTRL-X}{SHIFT-POUND}{$00}8{$e5}{f5}{f1}{f5}{$0a}{$0a}{f1}{f3}{CBM-G}{$80}8{$e5}{f3}{f1}{$80}{CBM-A}{CTRL-B}F{orng}P{CTRL-P}{$0a}&{f3}{$0a}&{f3}{$65}{$80}{f1}{$80}{CBM-G}{f3}{$65}{orng}{f1}{orng}{CBM-G}{CBM-W}j8{$e9}{CTRL-D}{CTRL-P}
{CBM-G}{$80}8{$e9}{CTRL-A}{f1}{$80}{SHIFT-POUND}{$00}{CBM-A}{CTRL-B}F{orng}jjj{CTRL-X}{$65}{$80}{f1}{$80}{blk}{CTRL-B}{$e6}{orng}{CBM-G}{CBM-H}j8{$e9}{CTRL-D}{sret}{CBM-F}{CTRL-B}{SHIFT-POUND}{$7b}{f1}{$82}{SHIFT-POUND}{$80}{f1}{$83}{SHIFT-POUND}{CBM-T}{f1}{$84}{SHIFT-POUND}{$80}{f1}{f1}{CBM-G}{CBM-H}j{CBM-A} {CBM-G}{CBM-W}j{CBM-A}{$63}{blk}{$00}{SHIFT-POUND}{ensh}{f1}{f7}{SHIFT-POUND}{rvon}{sret}{CBM-C}{CTRL-B} {$84}{$0a} {$62}{$0a}{$ee}{CBM-F}{CTRL-B}F{f7}P{$f3}l{$e1}{$0a}{SHIFT-POUND}{$7b}{f1}{$84}{SHIFT-POUND}{$80}{f1}{f1}{SHIFT-POUND}{rvon}{sret}{CBM-C}{CTRL-B} {$84}{$0a} {$62}{$0a}{$ee}{CBM-F}{CTRL-B}{SHIFT-POUND}{CBM-T}{f1}{$82}{SHIFT-POUND}{$80}{f1}{$83}{SHIFT-POUND}K{f1}{$84}{SHIFT-POUND}{$80}{f1}{f1}{SHIFT-POUND}{dish}{f1}{f7} {$84}{$0a} {$62}{$0a}{$ee}{CBM-F}{CTRL-B}F{f7}P{$f3}{CBM-G}{$84}8{$e9}({f1}{$84}{CBM-A}{CTRL-B}F{f1} {$84}{$0a}l{$e1}{$0a}{SHIFT-POUND}{ensh}{f1}{f7}{SHIFT-POUND}{CTRL-B}{sret}{CBM-C}{CTRL-B} {$84}{$0a}{CBM-I}{CTRL-P}{$e6}{f2}{CBM-G}{f3}{CTRL-X}{$69}{dish}{f1}{f3}{SHIFT-POUND}{rvon}{sret}{CBM-C}{CTRL-B} {blk}{$0a}{SHIFT-POUND}{down}{sret}{CBM-C}{CTRL-B}{CBM-I}{CTRL-A}F{f2}{CBM-G}{f3}8{$e9}{ensh}{f1}{f3}){CTRL-G}I{CTRL-G}P{CTRL-B}F{f2} {blk}{$0a} {$62}{$0a}{$ee}{CBM-F}{CTRL-B}F{f7}P{SHIFT-*}l{$e1}{$0a}{CBM-G}{$80}{CTRL-X}{$69}{CTRL-D}{f1}{$80}{blk}{stop}{$e6}{orng}{CTRL-X}{CBM-G}{$82}{$69}p{f1}{$82}{blk}{stop}{$e6}{$83}{CTRL-X}{CBM-G}{$84}{$69}p{f1}{$84}{blk}{CTRL-B}{$e6}{f1}{$60}{CBM-G}{CBM-W}j8{$e9}{CTRL-D}{f1}{f3}{CBM-I}{$00}{f3}{f2}{CBM-Z}{CBM-F}{CTRL-B}I8{CBM-A}>{swuc}{SHIFT-@}{CTRL-B}{CBM-G}{f3}I {blk}{CTRL-D}{SHIFT-POUND}*P{rvon}){CTRL-G}{CBM-N}{CBM-@}{f2}{CBM-E}{$80}={$f3}{CTRL-X}P{CTRL-D}{SHIFT-POUND} P{CTRL-B}{SHIFT-POUND}~{CBM-D}{SHIFT-@}{CTRL-B}{up}{$82}{up}{$84}H{up}{$82}{up}{$84}{$e6}{f3}{CBM-G}{f3}){CTRL-G}P{CTRL-B}{$e6}{f2}{gry2}{CBM-N}{$e8}{$ec}{CBM-C}{CTRL-B}PC{$60}{SHIFT-POUND}*{$a0}{down}{up}{$82}{up}{$84}{f7}{CTRL-P}{$f9}{$60}{CBM-S}{CBM-*}{CTRL-B}{CBM-X}{inst}{CTRL-B}{f1}{f8}{CBM-X}{CBM-@}{CTRL-B} {$f1}{CTRL-K}Px{CBM-G}{$82}{$f0}{CTRL-L}{SHIFT-POUND}y{up}{$80}{$a0}({SHIFT-POUND}[{up}{$80}Ph{CBM-G}{$84}I{down}P{CTRL-L}{SHIFT-POUND}x{up}{$80}{$a0}({SHIFT-POUND}z{up}{$80}P6{CBM-G}{$83}{$f0}{CTRL-K}{SHIFT-POUND}z{up}{$80}H{SHIFT-POUND}[{up}{$80}P'{CBM-G}{f1}I{down}P{CTRL-K}{SHIFT-POUND}x{up}{$80}{SHIFT-POUND}yH{up}{$80}P{CTRL-V}{$a0}{$00}{SHIFT-POUND}x{up}{$80}H{SHIFT-POUND}y{up}{$80}{$a0}({SHIFT-POUND}z{up}{$80}H{SHIFT-POUND}[{up}{$80}J{CTRL-P}{gry2}{CBM-S}Z{CTRL-B}{CBM-X}F{CTRL-B}{f1}{f8}{CBM-X}P{CTRL-B} {$f1}{CTRL-K}Px{CBM-G}{$82}{$f0}{CTRL-L}{SHIFT-POUND}q{up}{$80}{$a0}({SHIFT-POUND} {up}{$80}Ph{CBM-G}{$84}I{down}P{CTRL-L}{SHIFT-POUND}p{up}{$80}{$a0}({SHIFT-POUND}r{up}{$80}P6{CBM-G}{$83}{$f0}{CTRL-K}{SHIFT-POUND}r{up}{$80}H{SHIFT-POUND} {up}{$80}P'{CBM-G}{f1}I{down}P{CTRL-K}{SHIFT-POUND}p{up}{$80}{SHIFT-POUND}qH{up}{$80}P{CTRL-V}{$a0}{$00}{SHIFT-POUND}p{up}{$80}H{SHIFT-POUND}q{up}{$80}{$a0}({SHIFT-POUND}r{up}{$80}H{SHIFT-POUND} {up}{$80}JP{CTRL-F}{CBM-Z}{SHIFT-+}{CTRL-B}{$f0}{CTRL-A}J{CTRL-P}{blk}{SHIFT-*}{$00}0#{$a0}){CBM-Z}{SHIFT-+}{CTRL-B}P{red}{CBM-G}{$83}{$f0}{CTRL-B}{$a0}{CTRL-A}{CBM-G}{$82}{$f0}{CTRL-B}{$a0}({CBM-G}{$84}I{down}{$f0}{$0a}{CBM-G}{f1}I{down}{$f0}{CTRL-D}{SHIFT-POUND}s{up}{$80}{CBM-Z}B{CTRL-B}I{ensh}{blk}{stop}l{$e7}{CTRL-D}{$60}{$a0}{$00}{$84}{$82}{$84}{$83}8{$e5}{CBM-H}{CTRL-X}{$69}{dish}{f1}{f1}I{rvon}{blk}{dish}I~P-{f1}{$83}{$84}{f1}{CBM-G}{f8}8{$e5}{CBM-W}{CTRL-X}{$69}{dish}{f1}{$84}I{rvon}{blk}{$0a}I~P{CTRL-W}{f1}{$82}{$84}{$84}{gry2}{CTRL-X}{CBM-@}{f1}{$79}{CBM-W}{CTRL-X}{f1}{$80}{CBM-O}E{CTRL-X}{$69}{$00}{f1}{orng}{$a0}{$00}{$60}{$a0}~{$60}{SHIFT-POUND}{$00}{f1}{CBM-O}{CBM-G}{CBM-Y}j{blk}{stop}l{CBM-S}{CTRL-L} {$e6}{down}{CBM-Z}D{CTRL-B}04E{CBM-J}{$f0}0{CBM-S}D{CTRL-B} {blu}
I~{$f0}&I*{$f0}"{CBM-G}{CBM-J}{f1}{f3}{CBM-Z}D{CTRL-B}{f1}{CBM-J}8{$e5}{f3}){stop}I{CTRL-B}{$f0}{CTRL-D}{$e6}{CBM-O}Px{CBM-G}{CBM-J}8{$e9}{CTRL-A}){stop}{f1}{CBM-L}lO{CTRL-L}{CBM-+}{CBM-J} {blu}
I~{$f0}{CTRL-D}I*P"{$e6}{CBM-O}{$e6}{CBM-J}{CBM-G}{CBM-J}){stop}{f1}{CBM-J}{CBM-N} {blu}
I~{$f0}{CTRL-D}I*P){$e6}{CBM-J}{$e6}{CBM-J}{CBM-G}{CBM-J}){stop}{f1}{CBM-J}{CTRL-P}{rght}{CBM-G}{CBM-J}{CBM-U}P{CTRL-D}F{CBM-H}p{rvon}I{CTRL-A}P{CTRL-D}{$e6}{CBM-W}p{$0a}I{CTRL-B}P{CTRL-D}{$e6}{CBM-H}p{CTRL-B}F{CBM-W}{$e6}{CBM-Y}{CBM-G}{CBM-J}{f1}{CBM-L} 4{ensh}{SHIFT-POUND}C{f1}{$80}{SHIFT-POUND}{orng}{f1}{orng}{CBM-I}{CTRL-A}{CBM-C}{CTRL-Y}{CTRL-Z}{CBM-E}{$80}Ip{blk}{CTRL-O}Iu{CBM-A}{CTRL-K}{CBM-G}{CBM-Y}j{CBM-A}{CTRL-F} {CTRL-A}{CTRL-U}l{$f7}{CTRL-L}J{CTRL-P}{$e5}{CBM-G}{CBM-L}P{wht} .
0{CTRL-U}I{CTRL-A}P{wht} <
0{CTRL-L}I{CTRL-B}P{wht} j
0{stop} x
{CBM-G}{CBM-B}0{stop} \{CTRL-G}l{$74}
{$a0}{$00}{CBM-X}0{CTRL-Z}{f1}{$80}{CBM-X}4{CTRL-Z}{f1}{orng}{CBM-E}{$80}{$60}{CBM-I}{stop}{CBM-C}{CTRL-X}{CTRL-Z}{CBM-X}{red}{CTRL-Z}{up}{$80}J{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{CTRL-X}{CTRL-Z}{CBM-X} {CTRL-Z}{up}{$80}J{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{CTRL-X}{CTRL-Z}{CBM-X}${CTRL-Z}{up}{$80}J{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{CTRL-X}{CTRL-Z}{CBM-X}({CTRL-Z}{up}{$80}J{CTRL-P}{$f5}{$60}{CBM-I}{stop}{CBM-C}{CTRL-X}{CTRL-Z}{CBM-X},{CTRL-Z}{up}{$80}J{CTRL-P}{$f5}{$60}{CBM-G}{CBM-Y}j{blk}{stop}l{$fd}
{CBM-G}{CBM-O}P{$7d}{CBM-G}{$7e}I{CTRL-D}{$f0}{$77}{CBM-Z}{$e1}{CTRL-B}{$f0}{$72}{CBM-G}{CBM-J}{CTRL-X}{$69}{CTRL-B}){stop}{f1}{f6}{CBM-N} {blu}
I*{$f0}{$61}I~{$f0}]{CBM-G}{CBM-U}P{ensh}{CBM-Z}E{CTRL-B}{$f0}t{SHIFT-POUND}{stop}{f1}{CBM-U} {$a0}{CTRL-U}{$a0}{swlc}{f7}0{red}{CBM-O}p{$00}h{CBM-O}_{$00}h{CBM-O}{$6e}{$00}hH{$68}{lgrn}{$6e}{$00}{$68}{lgrn}_{$00}{$68}{lgrn}p{$00}{f7}{CTRL-P}{$e1}{CBM-@}{f6}{CBM-G}{CBM-W}{CTRL-X}{$79}{$60}{CTRL-Z}{f1}p{CBM-G}{CBM-H}{CTRL-X}{$79}{$64}{CTRL-Z}{f1}_{SHIFT-POUND}2{f1}{$6e}{CBM-Z}{SHIFT-*}{CTRL-B}I{swlc}{$f0}{wht}{$ee}{SHIFT-*}{CTRL-B}{$69}{CTRL-A}F{CBM-U}{$ee}{$fd}{CTRL-B}{SHIFT-POUND}{$fa}{sret}h{$e8}{CBM-S}{SHIFT-*}{CTRL-B}0{CTRL-L}{CBM-J}{$6e}P{stop}N{SHIFT-*}{CTRL-B}V{$6e}J{CTRL-P}{$fb}{CBM-S}{SHIFT-*}{CTRL-B}0{$66}{CBM-J}p{f1}{f8}{CBM-J}_ {$f1}{CTRL-K}Px{CBM-G}{$82}{$f0}{CTRL-L}{SHIFT-POUND}u{up}{$80}{$a0}({SHIFT-POUND}w{up}{$80}Ph{CBM-G}{$84}I{down}P{CTRL-L}{SHIFT-POUND}t{up}{$80}{$a0}({SHIFT-POUND}v{up}{$80}P6{CBM-G}{$83}{$f0}{CTRL-K}{SHIFT-POUND}v{up}{$80}H{SHIFT-POUND}w{up}{$80}P'{CBM-G}{f1}I{down}P{CTRL-K}{SHIFT-POUND}t{up}{$80}{SHIFT-POUND}uH{up}{$80}P{CTRL-V}{$a0}{$00}{SHIFT-POUND}t{up}{$80}H{SHIFT-POUND}u{up}{$80}{$a0}({SHIFT-POUND}v{up}{$80}H{SHIFT-POUND}w{up}{$80}J{CTRL-P}{lblu}{$60}{CBM-Z}{SHIFT--}{CTRL-B}0'N{SHIFT--}{CTRL-B}P"{SHIFT-POUND}{del}{sret}{SHIFT--}{CTRL-B}{$ee}{$de}{CTRL-B}{CBM-Z}{$de}{CTRL-B}j{CBM-A}{$0a}{SHIFT-POUND}{$a0}{sret}{CBM-J}{orng}{sret}{CBM-L}{orng}P{$0a}{SHIFT-POUND}{gry2}{sret}{CBM-J}{orng}{SHIFT-POUND}{CBM-R}{sret}{CBM-L}{orng}N{$e9}{CTRL-B}P={SHIFT-POUND}{CTRL-F}{sret}{$e9}{CTRL-B}{CBM-D}{$eb}{CTRL-B}{CBM-Z}{$ea}{CTRL-B}I{stop}{blk}{wht}{CBM-V}S{CTRL-Z}P{stop}{CBM-V}{$e3}{CTRL-Z}N{$eb}{CTRL-B}{CTRL-P}{CTRL-O}{SHIFT-POUND}{CTRL-O}{sret}{$eb}{CTRL-B}N{$ea}{CTRL-B}P{wht}{SHIFT-POUND}{CTRL-F}{sret}{$ea}{CTRL-B}{CBM-Z}{$e8}{CTRL-B}{CTRL-P}
{CBM-Z}{$e4}{CTRL-B}{CTRL-P}b{CBM-Z}{$fd}{CTRL-B}P{stop}{swuc}h{$e8}N{$ec}{CTRL-B}P{home}{SHIFT-POUND}{wht}{sret}{$ec}{CTRL-B}{CBM-D}{$e8}{CTRL-B}0{ensh}{CBM-O}O{CTRL-Z}{sret}h{$e8}N{$e8}{CTRL-B}{CBM-D}{$ed}{CTRL-B}0{ensh}{CBM-O}{$f3}{CTRL-Z}{sret}h{$e8}N{$ed}{CTRL-B}{CBM-Z}{$fd}{CTRL-B}{$f0}{CTRL-O}{CBM-Z}{CBM-V}{CTRL-B}I{stop}P{dish}{SHIFT-POUND}{$00}{sret}h{$e8}{sret}{$fd}{CTRL-B}{CBM-Z}{$e4}{CTRL-B}0 N{$e5}{CTRL-B}{dish}{CBM-Z}{$e5}{CTRL-B}I{wht}P{dish}{SHIFT-POUND}{$00}{sret}h{$e8}N{$e4}{CTRL-B}(P{$0a}{SHIFT-POUND}{CTRL-X}{sret}{$e5}{CTRL-B}{SHIFT-POUND}\{sret}h{$e8}N{$e6}{CTRL-B}P{blu}{SHIFT-POUND}({sret}{$e6}{CTRL-B}{CBM-Z}{$e1}{CTRL-B}P{CTRL-U}{CBM-Z}B{CTRL-B}{CTRL-P}{wht}{SHIFT-POUND}{CTRL-A}{sret}B{CTRL-B}{CBM-G}{$7e}I{rvon}{$f0}{wht}{CTRL-X}{$69}{CTRL-A}{f1}{$7e}l{lred}{CTRL-G}{SHIFT-POUND}{del}{f1}{f3}{CBM-G}{$7d}{$f0}{$fc}F{$7d} {$e8}{swlc}F{f3}P{$f3}{$a0}{$00}{f8}h{$e8}{CBM-I}{CTRL-L}{CBM-G}{$7d}{$f0}{$fc}F{$7d}JP{$f7}{CBM-O}H{CTRL-Z}{sret}h{$e8}H{SHIFT-*}{CTRL-G}P{$ea}{CBM-I}${CBM-G}{$7d}{$f0}{$fc}F{$7d}JP{$f7}{SHIFT-POUND}{$00}{sret}h{$e8}{CBM-I}{CTRL-L}{CBM-G}{$7d}{$f0}{$fc}F{$7d}JP{$f7}lP{CTRL-U}{SHIFT-POUND}{$7b}{f1}{$80}{SHIFT-POUND}{$80}{f1}{orng}{SHIFT-POUND}{down}{f1}{f3}{CBM-I}{down} N{down}{SHIFT-POUND}-{f1}{CBM-H}{f1}{CBM-W}{SHIFT-POUND}*{f1}({SHIFT-POUND}6{f1} {SHIFT-POUND}{stop}{f1}@{SHIFT-POUND}{$00}{f1}{$7f}{SHIFT-POUND}{home}{sret}{$fa}{CTRL-B}{sret}{$f8}{CTRL-B}{sret}{$f9}{CTRL-B}{SHIFT-POUND}{CTRL-O}{sret}{$fb}{CTRL-B}{CBM-G}{$7d}{$f0}{$fc}F{$7d}N{$f8}{CTRL-B}P9{SHIFT-POUND}{stop}{sret}{$f8}{CTRL-B}{CBM-Z}{$fa}{CTRL-B}0/ {$e7}{CTRL-D}F {CBM-D}{$fa}{CTRL-B}{CBM-O}r{CTRL-Y}{lgrn}{$6b}{orng}){$80}{ensh} {lgrn}c{orng}N{$fa}{CTRL-B}P{CTRL-U}{$a0}{CTRL-B}{CBM-O}{$66}{CTRL-Y}{lgrn}B{orng}{f7}{CTRL-P}{$f7}{CBM-Z}{$f7}{CTRL-B}){CTRL-O}{ensh}0{sret}E{orng}N{$f9}{CTRL-B}P{CBM-Y}{SHIFT-POUND}{$0a}{sret}{$f9}{CTRL-B}{CBM-D}{$fb}{CTRL-B}{CBM-O}{del}{esc}{sret}h{$e8}N{$fb}{CTRL-B}{CTRL-P}{CBM-@}{$ee}{$f7}{CTRL-B}{$60}{$a0}.{CBM-G}{$7d}{$f0}{$fc}F{$7d}N{$e7}{CTRL-B}P{$f5}{SHIFT-POUND}{CTRL-F}{sret}{$e7}{CTRL-B}{CBM-O}${esc}{sret}h{$e8}{SHIFT-*}{rvon}P{CTRL-G}{gry2}h {$7b}{CTRL-P}{$68}{CBM-POUND}{f7}{CTRL-P}{CBM--}{$ee}{$fc}{CTRL-B}l{$fe}{CTRL-V}{SHIFT-POUND}{$00}{f1}{$80}{SHIFT-POUND}{$80}{f1}{orng}{CBM-I}{CTRL-D}{$a0}{$00}{SHIFT-POUND}{$a0}{up}{$80}{f7}P{$fb}{$e6}{orng}JP{$f2}{$a0}{CTRL-G}{CBM-O}{$fb}{CTRL-X}{lgrn}?{$80}{f7}{CTRL-P}{$f7}{$a0}{CTRL-G}{CBM-O}{stop}{CTRL-Y}{lgrn}{CBM-Y}{$80}{f7}{CTRL-P}{$f7}{$a0}{CTRL-P}{CBM-O}{CTRL-K}{CTRL-Y}{lgrn}+{$80}{f7}{CTRL-P}{$f7}{$a0} {CBM-O}{red}{CTRL-Y}{lgrn}{gry3}{$83}{f7}{CTRL-P}{$f7}{CBM-I}{CTRL-G}{CBM-C}{$69}{CTRL-Y}{CBM-X}={CTRL-Y}{lgrn}{$60}{orng}J{CTRL-P}{$f4}{SHIFT-POUND}{CBM-A}{sret}{CBM-R}{orng}{sret}{CBM-W}{orng}{$a0}{CTRL-D}{CBM-O}e{CTRL-Y}{lgrn}{$f0}{$82}{f7}{CTRL-P}{$f7}{CBM-Z}{$f6}{CTRL-B}{$f0}{wht}{ensh}{CBM-A}{sret}{esc}{$83}{CBM-Z}{$f5}{CTRL-B}{ensh}{CBM-A}{sret}{red}{$83}{SHIFT-POUND}w{f1}{$80}{SHIFT-POUND}{orng}{f1}{orng}{$a0}{CTRL-G}{$84}{f3}{CBM-I}
 N{down}{$a0}{CTRL-G}{CBM-O}{$68}{CTRL-Z}{lgrn} {$00}{CBM-O}{$70}{CTRL-Z}{lgrn}({$00}{SHIFT-POUND}{$00}{lgrn}8{$00}{lgrn}@{$00}{lgrn}0{$00}{lgrn}h{$00}{SHIFT-POUND} {lgrn}{ensh}{stop}{SHIFT-POUND}{home}{lgrn}P{$00}{SHIFT-POUND}{$83}{lgrn}X{$00}{f7}{CTRL-P}T{SHIFT-POUND}{grn}{f1}{CBM-W}{SHIFT-POUND}{$64}{f1}{CBM-H} 4{ensh}{SHIFT-POUND}C{f1}{$80}{SHIFT-POUND}{orng}{f1}{orng} .
 {$e7}{CTRL-D}{SHIFT-POUND}{home}{f1}{SHIFT-@}{SHIFT-POUND}{$83}{f1}{CBM-F}{SHIFT-POUND} {f1}{CBM-C}{CBM-I}{CTRL-A}{swuc}{$e9}{CTRL-B}{swuc}{$ec}{CTRL-B}{swuc}{CBM-V}{CTRL-B}{swuc}{$e3}{CTRL-B}{CBM-I}{CTRL-F}{swuc}{$ea}{CTRL-B}{CBM-I}{CTRL-O}{swuc}{$eb}{CTRL-B}{CBM-I}p{swuc}{$e1}{CTRL-B}J{swuc}B{CTRL-B}{CBM-D}{$f5}{CTRL-B}{f7}{CBM-O}Z{esc}{CTRL-P}{stop}{sret}B{CTRL-B}{CBM-I}{ensh}{CBM-X}{SHIFT-POUND}{CTRL-X}{left}~{CTRL-B}J{CTRL-P}{$f7}{f3}{CBM-B}{swuc}{SHIFT--}{CTRL-B}{swuc}{$e8}{CTRL-B}{swuc}{$ed}{CTRL-B}{swuc}{SHIFT-*}{CTRL-B}{swuc}{$e4}{CTRL-B}{$e8}{f3}{CBM-U}{f3}{CBM-Y}{f3}{CBM-J}{f3}{CBM-L}{swuc}{CBM-X}{CTRL-B}{swuc}{$e0}{CTRL-B}{swuc}{CBM--}{CTRL-B}{f3}{f3} k{del} J{del} {$6c}{home} J{CTRL-F}l{$71}{CTRL-U}{SHIFT-POUND}{$7b}{f1}{$80}{SHIFT-POUND}{$80}{f1}{orng}{CBM-I}{down}{f3}{f3}{SHIFT-POUND} {CBM-@}{f3}{up}{$80}{f7}{CTRL-P}{$fb}{CBM-G}{$80}{CTRL-X}{$69}({f1}{$80}{blk}{CTRL-B}{$e6}{orng}J{CTRL-P}{$e9}{$60}{CBM-I}~{swuc}D{CTRL-B}{$e8}{swuc}E{CTRL-B}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-A}P{wht}{SHIFT-POUND}{CTRL-A}{sret}E{CTRL-B}{CBM-Z}{rvon}{$e8}0{wht}{SHIFT-POUND}{CTRL-A}{sret}D{CTRL-B},{rvon}{$e8}{$70}{wht}{SHIFT-POUND}{stop}{sret}D{CTRL-B}{SHIFT-POUND}{stop}{sret}{CTRL-P}{$e8},{rvon}{$e8}{$70}{wht}{SHIFT-POUND}{$00}{sret}D{CTRL-B}{SHIFT-POUND}{CTRL-G}{sret}{CTRL-P}{$e8},{rvon}{$e8}{$70}{wht}{SHIFT-POUND}{CTRL-B}{sret}D{CTRL-B}{$60}{SHIFT-POUND}{CTRL-A}{f1}{$7d}{$6c}{rvof}{CTRL-B}{CBM-I}p{CBM-G}{$7d}{$f0}{$fc}F{$7d}JP{$f7}{$60}{CBM-I}{CTRL-K}{swlc}{CBM-M}{CTRL-X}.{CBM-POUND}{CTRL-X}**m{CBM-M}{CTRL-X}*m{CBM-M}{CTRL-X}jji~){CTRL-A}
{CBM-M}{CTRL-X}{sret}{CBM-M}{CTRL-X}JP{$e2}8{$e5}{f6}E{f6}{CBM-A}{$f9}{$0a}{$60}{CBM-Z}{CBM-L}{CTRL-B}{f1}{$80}{CBM-Z}{CBM-Y}{CTRL-B}{f1}{orng}{CBM-Z}{CBM-U}{CTRL-B}{f1}{$82}{CBM-Z}{CBM-O}{CTRL-B}{f1}{$83}{$a0}{CTRL-O}{CBM-E}{$80}{lgrn}{inst}{CTRL-B}{CBM-E}{$82}{lgrn}{CBM-@}{CTRL-B}{f7}{CTRL-P}{$f3}{CBM-D}{$f5}{CTRL-B}{CBM-O}Y{esc}0+{SHIFT-POUND}{CTRL-P}{f1}{f6}{CBM-I}{CTRL-G}{f4}h f{rvon}j{CBM-POUND}H{SHIFT-*}{CTRL-P}{$f0}{rvon}{CBM-O}{inst}{CTRL-B}h{CBM-O}{CBM-@}{CTRL-B}{f7}{lgrn}{CBM-@}{CTRL-B}{$68}{lgrn}{inst}{CTRL-B}H{CTRL-P}{$e9}F{f6}{$68}{CBM-N}J{CTRL-P}{SHIFT-+}{CBM-I}{ensh}{f4}h{SHIFT-POUND} {f1}{f6} f{rvon}{f1}{$84}{SHIFT-POUND}8{f1}{f6} f{rvon}{f1}{f1} {$e4}{wht}{$a0}{$00}{CBM-G}{$84}j){CTRL-G}{CBM-N}{CBM-E}{$80}={$f3}{CTRL-X}P{CBM--}{$68}{CBM-N}{CBM-POUND}{CBM-G}{$84}jjj{f1}{f4}H{SHIFT-*}{$0a}{$f0}{blu}{CBM-O}F{CTRL-B}jjjE{f4}P{$f1}{CBM-O}P{CTRL-B}jjj{f1}{f4}{CBM-G}{f1}jjjE{f4}PY{f4}h{CTRL-P}{CBM-S}{$a0}{CTRL-O}{CBM-G}{$84}Y{inst}{CTRL-B}{$f0}{wht}{f7}{CTRL-P}{$f6}0{ensh}{CBM-G}{f1}Y{CBM-@}{CTRL-B}P{$f4}{$f0}{$e5}{$a0}{CTRL-G}{CBM-G}{$84}jjj{f1}{f4}{f7}0{rght}{CBM-O}{$68}{CTRL-Z}jjjE{f4}P{$f3}{CBM-O}{$70}{CTRL-Z}jjj{f1}{f4}{CBM-G}{f1}jjjE{f4}P{SHIFT-+}{$f0}{CBM-C}{CBM-G}{$84}{left}F{CTRL-B}{CBM-G}{f1}{left}P{CTRL-B}J0{stop}lG{rvon}{$60}{SHIFT-POUND}({f1}{$80}{SHIFT-POUND}{$82}{f1}{orng}{CBM-S}{CBM-B}{CTRL-B}J{$f0}{blu}{$a0}{$00}{SHIFT-POUND}{SHIFT-*}{up}{$80}H{SHIFT-POUND}A{up}{$80}{$a0}({SHIFT-POUND}B{up}{$80}H{SHIFT-POUND}C{up}{$80}{CBM-G}{$80}{CTRL-X}{$69}{CTRL-B}{f1}{$80}P{$de}{$60} B{down}{CBM-I}{stop}{f3}{f5}{CBM-X}{$71}{CTRL-Y}{left}N{$80}J{CTRL-P}{$f7}{CBM-I}{CTRL-K}{CBM-X}{$75}{CTRL-Y}{left}{rght}{orng}{CBM-X}{gry3}{CTRL-Y}{left}{$e7}{orng}J{CTRL-P}{$f1}{CBM-I}{CTRL-L}{CBM-X}{orng}{CTRL-Y}{left}{$6d}{orng}{CBM-X}{swuc}{CTRL-Y}{left}{brn}{orng}J{CTRL-P}{$f1}{CBM-I}{CTRL-D}{CBM-X}{$75}{CTRL-Y}{left}{$fe}{$82}J{CTRL-P}{$f7}{CBM-I}{$0a}{CBM-C}{CBM-X}{CTRL-Y}{CBM-X}{CBM-M}{CTRL-Y}{lgrn}{$84}{$82}{CBM-X}{CBM-R}{CTRL-Y}{lgrn}{$de}{$82}J{CTRL-P}{$ee}{SHIFT-POUND}{orng}{sret}\{$82}{SHIFT-POUND}{blk}{sret}{$fc}{$82}{SHIFT-POUND}{CBM-U}{sret}{$67}{$82}{SHIFT-POUND}{CBM-H}{sret}{swuc}{$82}{SHIFT-POUND}{CBM-L}{sret}{blk}{$82}{SHIFT-POUND}{CBM-R}{sret}{CBM-Y}{$82}{CBM-I}{down}{SHIFT-POUND}-{left}3{$82}J{CTRL-P}{$fa}{CBM-G}{$7d}{$f0}{$fc}F{$7d}{CBM-Z}{$fe}~I{esc}P{ensh}{CBM-G}{CBM-+}I4P{$0a}lo{CTRL-P}{CBM-Z}#{CTRL-B}I4{$f0}{$f6}F{f5}P{CBM-*}{SHIFT-POUND}{$0a}{f1}{f5}{$e6}{f3}{CBM-G}{f3}j{SHIFT-POUND}{$a0}{blk}{CTRL-B}{SHIFT-POUND}~{sret}L{$80}{sret}S{$80}PH{$f8}{CBM-I}{$00}{CBM-G}{f3}{CTRL-X}{$6d}{$f2}{CTRL-B}{sret}{$f2}{CTRL-B}{f4}{$6d}{$f0}{CTRL-B}{sret}{$f0}{CTRL-B}{f4}{$6d}{$ee}{CTRL-B}{sret}{$ee}{CTRL-B}X{CBM-Z}{$f0}{CTRL-B}I P{CTRL-Z}{CBM-Z}{$f4}{CTRL-B}P{CTRL-U}{$ee}{CBM-B}{CTRL-B}{$ee}{$f4}{CTRL-B}{CBM-G}{$80}h{CBM-G}{orng}h {$6c}{home}{$68}{f1}{orng}{$68}{f1}{$80}{SHIFT-POUND}{$e0}{f1}{$82}{SHIFT-POUND}{$80}{f1}{$83}{$a0}{$00}{CBM-O}{$ee}{CTRL-B} {$e5}{del}{SHIFT-*}{CTRL-F}P{$f6}{SHIFT-POUND}{CBM-A}{up}{$82}{CBM-Z}{$f3}{CTRL-B}M{$f2}{CTRL-B}{CBM-Z}{$f1}{CTRL-B}{$ed}{$f0}{CTRL-B}{CBM-Z}{$ef}{CTRL-B}{$ed}{$ee}{CTRL-B}{CBM-A}1{CBM-Z}{$ee}{CTRL-B}{sret}{$ef}{CTRL-B}{CBM-Z}{$f0}{CTRL-B}{sret}{$f1}{CTRL-B}{CBM-Z}{$f2}{CTRL-B}{sret}{$f3}{CTRL-B}{SHIFT-POUND}{CTRL-A}{sret}{$fe}{CTRL-B}{SHIFT-POUND}{$68}{f1}{$82}{SHIFT-POUND}{$80}{f1}{$83}{CBM-I}{$00}{$a0}{$00}{CBM-O}{$ef}{CTRL-B} {$e5}{del}{SHIFT-*}{CTRL-F}P{$f6}{SHIFT-POUND}{CBM-A}{up}{$82}{$60}hjjjj {$f0}{del}{$68}){CTRL-O}P{dish}{$e0}{$00}P{CTRL-D}{SHIFT-*}{wht}P{wht}{$e8}{ensh}{CBM-A}{up}{$82}H{$60}{CBM-D}Z{CTRL-B}{CBM-G}{CBM-H}YP{CTRL-B}{$f0}{CTRL-D}{f7}{CTRL-P}{$f6}{$00}{CBM-G}{CBM-W}YF{CTRL-B}P{$f5}{$ee}{$e0}{CTRL-B}{SHIFT-POUND}{stop}{sret}{$e8}{CTRL-B}{$84}{CBM-B}{SHIFT-*}{$00}P{rvon}{SHIFT-POUND} {sret}{$ed}{CTRL-B}{SHIFT-POUND}{CTRL-A}{sret}{SHIFT--}{CTRL-B}{$ee}{SHIFT-+}{CTRL-B}{$ee}{CBM--}{CTRL-B}P#{gry2}{CBM-N}H{SHIFT-*}{$0a}{$f0}{$0a}{CBM-O}F{CTRL-B}{f7}{lgrn}F{CTRL-B}H{CTRL-P}{$f1}{$e8}{$e0}{$0a}{$f0}{$0a}{CBM-X}P{CTRL-B}J{left}P{CTRL-B}{$e8}{CTRL-P}{$f1}NZ{CTRL-B}{CBM-Z}{$e0}{CTRL-B}{$0a}{$0a}{$0a}{$0a}I{$a0}{$f0}&{f1}{f3} k{del}{CBM-Z}{CBM--}{CTRL-B}{$f0}{stop} k{del}{CBM-Z}{$e0}{CTRL-B}{$f8}{CTRL-X}{$69}{CTRL-A}{CBM-N}X){CTRL-P}{$f0}{wht}{SHIFT-POUND}{CBM-E}{sret}{CBM-A}{orng}{f4}{ensh}{CBM-A}{sret}{CBM-E}{orng}{$60}{SHIFT-POUND}p{f1}{f3} k{del} k{del}{CBM-Z}{CBM--}{CTRL-B}{$f0}{CTRL-F} k{del} k{del}{$60}N{$e1}{CTRL-B}{CTRL-P}{stop}{$ee}{$e1}{CTRL-B}{CBM-Z}{$e1}{CTRL-B}I{CTRL-L}P{CTRL-K}{SHIFT-POUND}{stop}{sret}{$e4}{CTRL-B}{sret}{$e5}{CTRL-B}{CBM-Z}{$e1}{CTRL-B}jjj{CBM-POUND}{CBM-Z}{$e1}{CTRL-B}){CTRL-G}P{CTRL-D}{SHIFT-POUND} P{stop}{CTRL-X}{$69}{$77}{lgrn}2{$80}{$60}{CBM-I}{$00}{f3}{$7d}{$e8}{f1}{f3}{CBM-Z}{$e1}{CTRL-B}P{stop}l:{rvon}{SHIFT-POUND}{CTRL-V}{sret}h{$e8} {$a0}{CTRL-U}{SHIFT-POUND}{CTRL-F}{f1}{f5}{CBM-G}{$7d}{$f0}{$fc}F{$7d} k{del}{CBM-G}{f5}I{CTRL-D}P{wht}{SHIFT-POUND}{$00}{sret}h{$e8}F{f5}P{$e8}{$f0}R{SHIFT-POUND}{clr} R~{SHIFT-POUND}{$e6}{sret}{clr}{CTRL-B}{SHIFT-POUND}{f1}{sret}{rvof}{CTRL-B}{CBM-Z}{$fe}~I{esc}P{wht}{SHIFT-POUND}.{sret}{rvof}{CTRL-B}{SHIFT-POUND}3{sret}{blk}{CTRL-B}{SHIFT-POUND}{rvon}{sret}{up}{CTRL-B}{$78}{SHIFT-POUND}{$8f}{f1}{blk}{sret}{CTRL-Y}{CTRL-B}{SHIFT-POUND}{CTRL-B}{f1}{up}{sret}{CTRL-Z}{CTRL-B}x _{CTRL-F}{SHIFT-POUND}{swlc}{sret}l{$e8}{$a0}{blu}{CBM-O}@{CTRL-Z}{lgrn}{$00}{$00}{f7}{CTRL-P}{$f7}H{f8}{$ef}{CTRL-B}{f8}{$f3}{CTRL-B}{f8}{$fd}{CTRL-B}H{f8}{$e7}{CTRL-B}{SHIFT-POUND} {sret}{$f1}{CTRL-B}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{CBM-I}{stop}{swuc}{CBM-B}{CTRL-B}{CBM-I}{CTRL-A}{swuc}{$f5}{CTRL-B}{swuc}{$f7}{CTRL-B}J{swuc}{$fc}{CTRL-B}{swuc}h{$e8}{swuc}{$ee}{CTRL-B}{swuc}{$f0}{CTRL-B}{swuc}{$f2}{CTRL-B}{swuc}{$f6}{CTRL-B}{swuc}{$f4}{CTRL-B}{swuc}{$fe}{CTRL-B}{CBM-D}{$f5}{CTRL-B}{CBM-V}{$e8}{esc}{CBM-X}{CBM-U}{rght}{sret}{CBM-H}{CTRL-B}{CBM-X}{SHIFT-@}{rght}{sret}{CBM-J}{CTRL-B}{CBM-X}{SHIFT-*}{CTRL-Z}{sret}{CBM-L}{CTRL-B}{CBM-X}B{CTRL-Z}{sret}{CBM-Y}{CTRL-B}{CBM-X}D{CTRL-Z}{sret}{CBM-U}{CTRL-B}{CBM-X}F{CTRL-Z}{sret}{CBM-O}{CTRL-B}{CBM-O}{CBM-D}{esc}{f1}{$7f}{CBM-O}J{esc}{sret}{CBM-*}{CTRL-B} {$6f}{rvon}{SHIFT-POUND}{$00}{sret}{SHIFT-+}{CTRL-B}{CBM-I}{ensh}{swuc}Z{CTRL-B}{SHIFT-POUND}f{sret}{$e2}{CTRL-B}{CBM-I}{CTRL-F}{CBM-D}{$f5}{CTRL-B}{CBM-O}Y{esc}{CTRL-P}{CTRL-P}{CBM-G}{$7f}h {CBM-U}{CTRL-O}{$68}{f1}{$7f}{SHIFT-POUND}#{sret}{$e2}{CTRL-B}{CBM-I}{CTRL-D}{f3}{$7e}{CBM-Z}{$fc}{CTRL-B}P{stop}l{lblu}{home} {$7b}{CTRL-P} :{rvon} 8{dish}{CBM-G}{$7d}{$f0}{$fc}N{CBM-V}{CTRL-B}P{CTRL-P}{CBM-G}{$7e}{sret}{CBM-V}{CTRL-B} 7{CTRL-L} R{CTRL-W}{CBM-Z}{CBM-X}{CTRL-B}P]{CBM-Z}B{CTRL-B}0{rvon}NB{CTRL-B}P
{CBM-D}{$f5}{CTRL-B}{f7}{CBM-O}{CBM-C}{esc}{sret}B{CTRL-B} {CTRL-P}{CTRL-D}N{$e3}{CTRL-B}P{ensh}{CBM-Z}{$e2}{CTRL-B}{sret}{$e3}{CTRL-B} {$a0}{CTRL-U} {$7a}{swlc} R{CTRL-W}{CBM-Z}{CBM-X}{CTRL-B}P-{CBM-Z}Z{CTRL-B}P!{CBM-Z}{SHIFT-+}{CTRL-B}{$f0}{red} {$e7}{CTRL-D} {$6e}{CTRL-O}{$f8}{CBM-Z}{$f5}{CTRL-B}{CTRL-X}{$69}{CTRL-A}{sret}{$f5}{CTRL-B}{CBM-Z}{$f6}{CTRL-B}{$69}{$00}{sret}{$f6}{CTRL-B}Xl{blk}{CTRL-V}{SHIFT-POUND}{$00}{f1}{$7d}l{CTRL-D}{CTRL-W}{SHIFT-POUND}{$00}{sret}h{$e8} {$e7}{CTRL-D}{SHIFT-POUND}C{f1}{$80}{SHIFT-POUND}{orng}{f1}{orng} {$66}
 :{rvon}N{CBM-B}{CTRL-B}{$f0}{grn}{CBM-D}{$f5}{CTRL-B}{f7}{CBM-O}Z{esc}{CTRL-P}{rvon}{$ee}{$f5}{CTRL-B}{CBM-Z}{$f5}{CTRL-B}I{CTRL-P}P{wht}{SHIFT-POUND}{$00}{sret}{$f5}{CTRL-B}l{blk}{CTRL-V}lR{CTRL-V}{CBM-I}{CTRL-G}{CBM-X}j{CTRL-Y}{CBM-C}{$69}{CTRL-Y}{lgrn}B{orng}J{CTRL-P}{$f4} :{rvon}{CBM-Z}{$fe}{CTRL-B}{$f0}{stop} :{stop} :{rvon}l{$60}{CTRL-V}{CBM-S}{CBM-*}{CTRL-B}{CBM-X}{inst}{CTRL-B}E{CBM-W}{$f0}{wht}J{CTRL-P}{$f6}0{ensh}{CBM-X}{CBM-@}{CTRL-B}E{CBM-H}P{$f4}{$f0}{home}{CBM-+}{$7f}{CBM-J} E{CBM-W}{$f0}{wht}J{CTRL-P}{$f7}0{ensh}{CBM-J}(E{CBM-H}P{$f5}{$ee}{CBM-X}{CTRL-B}{$60}{$e0}{$e0}{$e0}{$00}{$00}{$00}{$00}{$00}{swlc}{swlc}{swlc}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$e0}{$e0}{$e0}{$00}{$00}{$00}{$00}{$00}{swlc}{swlc}{swlc}{$00}{CTRL-A}{ensh}{down}{CTRL-Y}{CTRL-X}{CTRL-X}{CTRL-X}{CTRL-X}{$00}{dish}{CTRL-P}{CTRL-X} (08@hpx{$60}{$68}{$70}{$78}{$80}{f7}{blk}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{blu}{$e0}{$a0}{$e0}{$00}{$00}{$00}{$00}{$00}{swlc}{$0a}{swlc}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$e0}{$a0}{$e0}{$00}{$00}{$00}{$00}{$00}{swlc}{$0a}{swlc}{$00}ow_{$67}{CTRL-X}{CTRL-X}{CTRL-X}{CTRL-X}{$a0}@{$a0}{$00}{$00}{$00}{$00}{$00}{$0a}{CTRL-D}{$0a}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$a0}@{$a0}{$00}{$00}{$00}{$00}{$00}{$0a}{CTRL-D}{$0a}{$00}{$77}{$7f}{f5}{$8f}{CTRL-X}{CTRL-X}{CTRL-X}{CTRL-X}{$6b}{$6c}{$6d}{$6e}{$6f}{$70}{$71}{$72}k{$00}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$7b}{CBM-T}K{$f3}{esc}c{$6b}{clr}{CBM-F}{$e3}{CTRL-K}3[{$83}{CBM-Q}S{$fb}#{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}w{$7f}{CBM-M}O{$f7}{blu}g{$6f}{gry1}{CBM-B}{$e7}{CTRL-O}7_{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$80}@ {CTRL-P}{dish}{CTRL-D}{CTRL-B}{CTRL-A}{f7}{f2}{CBM-Z}{clr}{$83}{$8f}{rvof}{f1}{CBM-E}{CBM-Z}{brn}{blk}{$a0}{$a0}{$a0}{$a0}{f3}{brn}{f1}{f8}{$a0}{SHIFT-@}{$a0}{$77}{$77}{$77}{$77}{$77}{$77}{$77}{$77}{$77}{$7e}{blk}{rvof}{f1}{clr}{f1}{swuc}{inst}{f1}{$84}{$a0}{$82}{lgrn}{$a0}{$a0}{f7}{orng}{f8}{$a0}{f8}{orng}{$82}{$8f}{rvof}{orng}{inst}{$8f}{rvof}{lgrn}{$a0}{CBM-E}{CBM-O}{CBM-U}{CBM-E}{swuc}{f1}{gry2}{inst}{f3}{f8}{orng}{f5}{rvof}{$8f}{brn}{swuc}{$84}{CTRL-G}{CTRL-A}
{wht}{CTRL-O}{CTRL-V}{wht}{rvon} {stop}{dish}{CTRL-A}{CTRL-L}{CTRL-L}{wht}{swlc}{CTRL-G}{ensh}{swlc}{CTRL-G} {home}{del}{CTRL-A}{CTRL-G}{wht}{$a0}{$a0}{swlc}{CTRL-O}.{$00}{CTRL-A}{CTRL-B}{stop}()*+{CTRL-P}{CTRL-U}{home}{dish}{home}{del}{CTRL-A}{rvon}{del} {CTRL-B}{CTRL-U}{del}{del}{CTRL-O}{swlc}{CTRL-B}{CTRL-O}{swlc}{CTRL-U}{home}  
{CTRL-Y} {stop}{CTRL-A}{rvon}{CTRL-F}{CTRL-O}{rvon} 20000 {CTRL-P}{del}{home}{CTRL-B}{CTRL-Y} {dish}.{home}.1981 {home}
{CTRL-O}{CTRL-K}{wht}{home}{stop}{rvon}{wht}{wht}{swlc}
{CTRL-O}{CTRL-V}{wht} 
{CTRL-Y} {stop}{CTRL-A}{rvon}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}()*+,- {CTRL-Y}{CTRL-O}{CTRL-U} {CTRL-D}{ensh}{CTRL-D} {ensh}{del} !!   {del}{dish}{wht} {dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht}     {CTRL-O}{CTRL-F} {del}{dish}{wht} {CTRL-D}{CTRL-A}{CTRL-Y}. {CTRL-G}{CTRL-O} {CTRL-F}{CTRL-O}{rvon} {del}{dish}{wht} {CTRL-W}{CTRL-O}{rvon}{CTRL-L}{CTRL-D} {rvon}{wht}{stop}{CTRL-O}{rvon}{CTRL-D} {swlc}{CTRL-O}{CTRL-W} !   {$00}{CTRL-A}()@abcdefghijklmno\]^_{gry3}E{home}B{orng}{orng}{$82}{orng}pqrsxyz[bfjncgko@dhlaeimaeimcgko@dhlbfjn{$00}{CTRL-B}{$00}{$fe}{$fe}{$00}{CTRL-B}{$00}{CTRL-Z}{grn}"&{CTRL-V}{grn}"&{$68}{$68}{$68}{$68}{$68}{CTRL-F}{CTRL-F}{CTRL-F}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{CTRL-A}{CTRL-V}.{CTRL-B}({$0a}0{CTRL-L}<("{CTRL-B}{CTRL-V}{CTRL-B}{swlc}8{CTRL-L}{CTRL-L}{CTRL-L}{grn}{grn} $*,.8<bhvx{$6a}0,>{CTRL-L}(*{grn},>{CTRL-X}{CTRL-P}&4{CTRL-F}.:{CTRL-F}{CTRL-V}{CTRL-V}{grn} 0:@@hpppt{$60}{$64}{$80}{$a0}{CTRL-Z}{CTRL-Z}{blk}{CBM-A}{CTRL-Z}{CTRL-Z}{f8}{$6e}]{$7d}{$69}{$6e}e{$00}6<d{$00}{$78}{$00}{$69}{$78}{$00}{$69}{$00}{$69}{$00}{$78}{f8}V{$00}VV{$00}{CBM-N}{$00}{f8}{CBM-N}{$00}{f8}{$00}{f8}{$00}{CBM-N}V{$fb}{$00}{$fb}{$fb}{$00}!%)-1a_{$7d}!%)-1a_{$7d}!%)-1a_{$7d}!%)-1a_{$7d}{$00}eee{$70}{$69}{$7e}]{$70}sis{$70}{f8}]]{$00}dd99d992--255d555dds\\{$00}{$00}sd999dds\\{$00}{$00}sd555dds\\{$00}{f8}{$00}{f8}{$7c}{$6e}{$69}\{$6e}\rhd<{CBM-N}{$00}{CBM-N}{f8}{$69}{$6e}\d\{$6e}{f8}{$00}{$6e}{$73}{$6e}\rj{$69}{$7c}{$69}{$00}{$69}{$6e}{$69}{$6e}\d\{$6e}\{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{CTRL-B}{CTRL-A}{wht}{CTRL-A}{CTRL-B}{stop}{CTRL-A}{CTRL-B}{stop}{stop}{stop}{CTRL-A}{wht}{CTRL-A}{CTRL-B}{stop}{CTRL-A}{CTRL-B}{stop}{stop}{stop}{CTRL-A}{wht}{CTRL-A}{CTRL-B}{stop}{CTRL-A}{CTRL-B}{stop}{CTRL-B}{stop}{CTRL-F}{stop}{CTRL-D}{wht}{CTRL-G}{CTRL-D}{wht}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-G}{CTRL-G}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{CTRL-F}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{wht}{CTRL-G}{CTRL-G}{CTRL-O}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-O}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-O}{CTRL-G}{CTRL-G}{CTRL-G}{CTRL-O}{$00}{$00}~{$00}{$00}{$00}~{$00}{$00}{$00}~{$00}{$00}{$00}~{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{$00}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{CTRL-A}{$fe}{$00}{$00}{CTRL-A}{$fe}{$00}{$77}X{grn}{$fe}{$77}X{grn}{$00}{$00}{$00}{$00}{$ee}{$7e}{$f8}{grn}{$ee}{$00}{CTRL-A}{$de}{$00}{CTRL-O}W{$de}{$fe}{$a0}w{$00}{$00}{CBM-P}w{$77}{$fd}{CBM-POUND}w{$74}{wht}{CBM-Q}w{$74}{wht}+p{$75}{$f5}{$68}w{$75}{$f5}{$6b}P{CTRL-D}{wht}{dish}{CTRL-W}{$67}={$6b}{$f7}{$67}={$60}{CTRL-G}{$67}<{$7f}{$f7}{$00}{$00}{stop}{$00}{$00};{$7b}{$7f}?;{$78}{CTRL-G}?{stop}{$7b}{$77}{stop}9{stop}{$70}39{CBM-B}{$7f}3={$80}{$00}0{CTRL-A}{CBM-B}{$7f}?={CBM-B}{$7f}?={$80}{$00}{$00}{$00}{CBM-F}{$7b};={CBM-F}{$7b};={CBM-F}{$60}{stop}1{CBM-F}{$6b};5{$80}{stop}85{CBM-Y}{$7b}{stop}{CTRL-D}7{$7b};>{$00}{esc};>={SHIFT-*}{$00}{$00}={SHIFT-*}{$00}6{$00}{$76}{$ef}67{$76}{$ef}67{$70}{CTRL-O}07{$76}{$e0}60{CTRL-F}{CTRL-K}67{$de}{$eb}67{$de}{$eb}6{$00}{$00}{dish}{CTRL-F}{SHIFT--}{CBM-V}{$eb}6{SHIFT--}{CBM-V}{$eb}6{SHIFT-*}{$00}{stop}6{SHIFT--}{CBM-N}{CBM-Q}{$00}{SHIFT--}{CBM-N}{CBM-Q}>{CTRL-L}*{CBM-POUND}>{$61}{CBM-N}{CBM-Q}{CTRL-F}{$6f}{CBM-N}{CBM-Q}6{$00}{$00}{$00}{$00}~{$f8}{$00}{$00}~{$fa}{CBM-P}{yel}{$80}{$0a}{CBM-P}{yel}{CBM-X}{$ea}{$a0}{CTRL-B}{$a0}*{CBM-S}Z{CBM-Z}{CBM-N}{CBM-S}Z{CBM-POUND}{CBM-POUND}{$00}{$00}{CBM-POUND}{CBM-N}{SHIFT-+}{$fa}{CBM-N}{CBM-N}Z{CTRL-B}{f4}{$82}Z{$fa}{CBM-N}{CBM-N}Z{$82}{CBM-POUND}{CBM-POUND}{$00}{SHIFT-@}{CBM-POUND}{CBM-N}Z{$82}{CBM-Z}{CBM-N}Z{$fa}{$a0}*Z{CTRL-B}{CBM-X}{$ea}{SHIFT-+}{$fa}{$80}{dish}{$00}{$00}{CBM-B}{$fa}{SHIFT-+}{$7a}{$80}{CTRL-B}{SHIFT-+}{$7a}{$fd}{$ee}{SHIFT-*}{CTRL-B}{$80}{swlc}{$fb}Z{CBM-Z}{$ee}{$fb}Z-{$ee}{$fb}Z({$00}{stop}Z{CBM-Q}{$f7}{$e0}{$00}{CBM-Q}{CTRL-A}{$00}{$00}{$83}{$7d}{$7b}{CBM-V}{CBM-U}{$7d}{$7b}{CBM-V}{CBM-F}{$7c}{$7b}{CBM-V}{CBM-F}{$00}{$71}{CBM-A}{CBM-U}<{$75}{CBM-L}{orng}{CBM-C}{$75}{CBM-L}{CBM-X}{CBM-C}{$00}{CTRL-F}{CBM-X}{CBM-C}{$75}{CBM-L}{CBM-X}{CBM-C}{$75}{CBM-L}{orng}{CBM-C}{$71}{CBM-A}{$00}{$00}{$7b}{CBM-V}3{$ec}{$7b}{CBM-V}0{$ec}{$78}{$00}0{$ec}{$7b}{$fe}0{$00}{stop}{$00}{$7f}{CBM-S}{SHIFT-+}{$76}{$00}{swlc}{CTRL-X}{CTRL-F}{$6d}{CBM-S}{$fb}{$fe}{$6d}{$a0}{$00}{$00}{$00}.{$ef}{CBM-F}{$6d}{CBM-S}{$ef}{CBM-F}{$6d}{$a0}{stop}{CBM-F}{$00}{$00}{$00}{$00}{$ef}{$6a}{CBM-Q}{CBM-V}{$ef}*{CBM-POUND}{$00}{$ef}{CBM-N}{CBM-Q}{$f6}{CTRL-A}{CBM-N}{CBM-N}{CTRL-F}{$6c}{$00}{CTRL-B}{$f6}{$6d}{CBM-V}{$fa}{$f6}{$00}{$00}{$00}{$f0}{$f8}X{esc}{red}off end of card**label start needs a-zlabel too long*******non-alpha{$00}{CTRL-A}33>23{CTRL-B}{$00}{$80}LL{$7c}lL@{CTRL-D}55=43{$00}{$00} {CBM-D}{CBM-D}{CBM-C},L{$00}{$00}{$00}{$00}>>{dish}{blu} .{$00}{$00}{$7c}{$7c}{CTRL-P}{CTRL-P}{$fc}n. {blu}{dish}>>{$00}{$00}n{$fc}{CTRL-P}{CTRL-P}{$7c}{$7c}{$00}{$00}{$00}{$00}34=55{CTRL-D}{$00}{$00}L,{CBM-C}{CBM-D}{CBM-D} {CTRL-B}32>33{CTRL-A}{$00}@Ll{$7c}LL{$80}{$00}{$00}{$00}>>{dish}{dish}?{$72}{$00}{$00}{$7c}{$7c}{CTRL-P}{$f8}{CTRL-D}{$74}{$72}?{dish}{dish}>>{$00}{$00}{$74}{CTRL-D}{$f8}{CTRL-P}{$7c}{$7c}{$00}{$00}{$00}{$00}{grn}{blu}{blu}{blu}{blu}{grn}{$00}{$00}{$00}{$80}{$e0}{$f8}{$e0}{$80}{CTRL-X}{CTRL-X}{CTRL-X}{CTRL-X}<<{$00}{$00}{$70}{$80}{$60}{CTRL-P}{$e0}{$00}{$00}{$00}{$00}{$00}{esc}==3?{$7f}{$00}{$60}{$f8}{CBM-U}{$78}{$60}{pur}{$fe}{$7f};{CTRL-G}??{esc}{CTRL-A}{$00}{CBM-V}^{$fc}{CBM--}{$e0}{$f0}{$e0}{$00}{$00}{$00}{$00}{CTRL-B}{rght}, @{$00}{$00}0P{f7}{blk}{$6c}{CTRL-B}@${CTRL-X}  *{rght}{$00}b{CBM-I}{CTRL-D}${rvon}{rvon}{$ec}{$00}{$00}{$80}b;{$00}{$e2}{brn}{$e5}{$00}{CTRL-A}fX{$00}{clr}T{$f7}{gry1}{$e5}{$00}{blu}$h{$80}{$00}{CBM-J}{clr}{$00}{$f8}${rvon}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f0}{$f0}{$f0}{$f0}{$00}{$00}{$00}{$00}{CTRL-O}{CTRL-O}{CTRL-O}{CTRL-O}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f0}{$f0}{$f0}{$f0}{$00}{$00}{$00}{$00}{CTRL-O}{CTRL-O}{CTRL-O}{CTRL-O}{$f0}{blk}{blk}{$f0}{$00}{$00}{$00}{$00}{CTRL-O}{ensh}{ensh}{CTRL-O}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$f0}{blk}{blk}{$f0}{$00}{$00}{$00}{$00}{CTRL-O}{ensh}{ensh}{CTRL-O}{blk}{$60}{$60}{blk}{$00}{$00}{$00}{$00}{ensh}{CTRL-F}{CTRL-F}{ensh}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{blk}{$60}{$60}{blk}{$00}{$00}{$00}{$00}{ensh}{CTRL-F}{CTRL-F}{ensh}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-N}u{CBM-N}u{CBM-N}u{$00}{$00}{$80}{$00}{$80}{$00}{$80}{$00}{$00}{$00}{$80}@{$80}@{$80}@{$00}{$00}{$a0}@{$a0}@{$a0}@{$00}{$00}{$a0}p{$a0}p{$a0}p{$00}{$00}{CBM-POUND}p{CBM-POUND}p{CBM-POUND}p{$00}{$00}{CBM-POUND}t{CBM-POUND}t{CBM-POUND}t{$00}{$00}{CBM-N}t{CBM-N}t{CBM-N}t{$00}{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}u{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}    0 clr:pg$="ram":nm$="26":goto62000
    1 "hal carey
    2 "9002 berclair rd
    3 "huntsville al 35802
    4 "
    5 "cursor #26 june 1981
    6 "copyright(c)1981 the code works
    7 "box 550 goleta ca 93116
    8 "
   10 "6/18/81
  100 print"{down}"
  110 print"who's player one? ";:gosub60000:p1$=left$(in$,9)
  120 ifin$=""thenprint"{up}{up}":goto110
  130 print"{down}{down}who's player two? ";:gosub60000:p2$=left$(in$,9)
  140 ifin$=""thenprint"{up}{up}{up}{up}":goto130
  150 s1$="QQ":s2$="WW":s(1)=asc(left$(s1$,1))-128:s(2)=asc(left$(s2$,1))-128
  160 p$(1)=p1$:p$(2)=p2$
  170 print"{clr}":p=1:fx=1:y=4:x=2
  180 en=crt+wd*25:w(1)=29:w(2)=8
  210 lo(2)=crt+10*wd+26:lo(1)=crt+10*wd+11:c(2)=crt+8+wd*4:c(1)=crt+29+wd*4
  220 fori=1to40:u$=u$+"E":next
  230 m6$="you have just indicated":m7$="{down}the end of the group to move"
  240 m0$="put cursor at front":m1$="{down}of group and hit {rvon}return{rvof}"
  250 m3$="put cursor on space":m4$="{down}to move to and hit {rvon}return{rvof}"
  260 m2$="error-- begin move again"
  270 m5$="                                      "
  280 mo$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  290 fori=1to2:mo$(i)=mo$:ln=9-len(p$(i)):forj=1toln:mo$(i)=mo$(i)+" ":next:next
  320 p=3-p:w=0:gosub1080
  330 g$=""
  340 o=w:gosub450:if(th<=oh)andpy<16goto340
  350 ifpy=16thengosub1360:gosub1290:goto370
  360 gosub1260
  370 py=0:ifqt=0then320
  380 ifabs(z(1)-z(2))<>1thenq$="s"
  390 ifz(1)>z(2)then420
  400 ifz(1)<z(2)then430
  410 goto440
  420 print"{clr}{down}{down}{down}"p1$" beat "p2$" by"z(1)"game"+q$" to"z(2):end
  430 print"{clr}{down}{down}{down}"p2$" beat "p1$" by"z(2)"game"+q$" to"z(1):end
  440 print"{clr}{down}{down}{down}"p2$" tied "p1$" at"z(1)"game"+q$:end
  450 p=3-p:lt=lo(p):x=2:y=4:ifp=2thenx=7
  460 gosub1630:gosub1560
  470 x1=x:y1=y:gosub1380:ifjp<>1then460
  480 gosub1660:hx=x:hy=y:gosub1490:x1=x:y1=y:gosub1380
  490 ifg$="{clr}"then460
  500 tx=x:ty=y:ifjp>1then610
  510 ifhx<>txandhy<>tyandabs(hx-tx)<>abs(hy-ty)then880
  520 gosub1690:gosub1490:dx=x:dy=y
  530 ifg$="{clr}"then460
  540 sp=hx-tx:ifsp=0thensp=hy-ty
  550 sp=abs(sp)+1:gosub1480:ifsp=1then580
  560 x1=hx:y1=hy:forn=1tosp:gosub1380:ifjp<>1then880
  570 x1=x1-cx:y1=y1-cy:next
  580 dq=abs(dx-hx):ifdq=0thendq=abs(dy-hy)
  590 dq=dq-1:ifdq=>spthen880
  600 goto690
  610 dx=x:dy=y
  620 gosub1480
  630 x1=hx:y1=hy:forsp=0to8:gosub1380:x1=x1-cx:y1=y1-cy:
  640 ifjp<>1then660
  650 nextsp
  660 tx=hx-cx*(sp-1):ty=hy-cy*(sp-1)
  670 dq=abs(dx-hx):ifdq=0thendq=abs(dy-hy)
  680 dq=dq-1:ifdq=>spthen880
  690 x1=hx-tx:x2=dx-tx:if x1<>0 then 695
  691 ifhx<>dxandhy<>dyandabs(hx-dx)<>abs(hy-dy)then880
  692 goto710
  695 x2=dx-tx:if(x1=0)<>(x2=0)then880
  700 ifx1<>0thenif(hy-ty)/x1<>(dy-ty)/x2then880
  710 x1=hx:y1=hy:hx=tx+dq*cx:hy=ty+dq*cy
  720 n3=0:n1=0:n2=0:forn=1to8:x1=x1+cx:y1=y1+cy:gosub1380
  730 ifjp=1andn<=dq+1then880
  731 ifjp=2andn2=0thenn2=1:n3=n
  733 ifjp<>2andn2=1thenn2=2
  735 ifjp=2andn2=1thenn1=n1+1:ifn2=0thenn2=1:n3=n
  736 ifn2=2andn<=dq+1then880
  750 ifn2=0andn=dq+1then800
  760 next
  770 ifn2=0then800
  775 ifn3<>dq+1then880
  780 gosub1570:ifn1>=spthen880:hx=hx-(dq+2-n3)*cx:hy=hy-(dq+2-n3)*cy:goto800
  790 hx=hx-(dq+1-n3)*cx:hy=hy-(dq+1-n3)*cy
  800 x1=tx:y1=ty:forn=1tosp:gosub1460:x1=x1+cx:y1=y1+cy:next
  810 x1=hx:y1=hy:forn=1tosp:x1=x1+cx:y1=y1+cy:gosub1430:next
  820 oh=0:forn=c(p)toc(p)+wd*16stepwd*2
  830 ifpeek(n)=s(p)orpeek(n)=102thenoh=oh+1:gosub1620
  840 next
  850 th=0:forn=c(3-p)toc(3-p)+wd*16stepwd*2
  860 ifpeek(n)=s(3-p)orpeek(n)=102thenth=th+1:gosub1620
  870 next:return
  880 printmo$m5$:print:printm5$;
  890 gosub1570:printmo$(p)p$(p)": "m2$:forj=1to2000:next
  910 goto460
  920 pokel+i*d+1,96:pokel+1+(i+n)*d,s(p):next
  930 i=l+(n+f-1)*d-crt:x=i-wd*int(i/wd)
  940 o=w:ifx<>w(p)thenreturn
  950 py=py+1
  960 w=w+2*p-3:ifpeek(c(3-p))>127goto980
  970 pokei+crt,102:poke1+i+crt,102:return
  980 pokei+crt,102:poke1+i+crt,102:return
  990 return
 1000 t7=0:na$=p$(p):ifp=2thenna$=p2$:t7=39-len(p2$)
 1010 tn=ti+4
 1020 getg$:ifg$<>""thenprint"{home}{down}"p1$:print"{home}{down}"tab(39-len(p2$))p2$:return
 1030 ifti<tnthen1020
 1040 print"{home}{down}"tab(t7+fx-1)mid$(na$,fx,1)
 1050 fx=fx+1:iffx>len(na$)thenfx=1
 1060 print"{home}{down}"tab(t7+fx-1)"{rvon}"mid$(na$,fx,1)
 1070 goto1010
 1080 print"{home}{down}"p1$:print"{home}{down}"tab(39-len(p2$))p2$
 1090 gm=gm+1:print"{home}{down}"tab(16)"game"gm"{down}"
 1100 print"{down}won"tab(36)"won"
 1110 gosub1220
 1120 sz=7:print"{home}{down}{down}"
 1130 printtab(7);"{CBM-A}";:fori=1tosz:print"{SHIFT-*}{SHIFT-*}{CBM-R}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-S}"
 1140 forj=1tosz
 1150 printtab(7);:fori=0tosz:print"{SHIFT--}{$a0}{$a0}";:next:print"{SHIFT--}"
 1160 printtab(7);"{CBM-Q}";:fori=1tosz:print"{SHIFT-*}{SHIFT-*}{SHIFT-+}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-W}"
 1170 nextj
 1180 printtab(7);:fori=0tosz:print"{SHIFT--}{$a0}{$a0}";:next:print"{SHIFT--}"
 1190 printtab(7);"{CBM-Z}";:fori=1tosz:print"{SHIFT-*}{SHIFT-*}{CBM-E}";:next:print"{SHIFT-*}{SHIFT-*}{CBM-X}"
 1200 print"{home}{down}{down}{down}":fori=1tosz+1:printtab(8)s1$"{rght}"s1$;spc(13);s2$"{rght}"s2$"{down}":next
 1210 return
 1220 print"{home}{down}{down}{down}{down}{down}":c$=str$(z(1)):ifz(1)>=0thenc$=mid$(c$,2)
 1230 c$=left$(c$+"    ",4):printc$;
 1240 c$=right$("    "+str$(z(2)),4):printtab(35);c$;
 1250 return
 1260 z(3-p)=z(3-p)+1:p=3-p
 1270 printmo$m5$:print:printm5$;
 1280 printmo$(p);"       {rvon}"p$(p);" wins!!!{rvof}               "
 1290 gosub1220
 1300 forj=1to3100
 1310 next
 1320 printmo$:print"             ":print"            play again ? ";:gosub60000
 1330 print"{up}":qt=0:if"n"=left$(in$,1)thenqt=1
 1340 print"{up}                              "
 1350 printmo$;m5$:print:printm5$;:return
 1360 p=3-p:printmo$(p);"  {rvon}a tie!!"
 1370 return
 1380 jp=peek(crt+5+(x1*3)+(y1*wd*2)+2*wd):ifjp>128thenjp=jp-128
 1390 ifjp=s(p)thenjp=1:return
 1400 ifjp=s(3-p)thenjp=2:return
 1410 ifjp=96thenjp=3:return
 1420 return
 1430 jp=(crt+5+(x1*3)+(y1*wd*2)+2*wd)
 1440 pokejp,s(p):pokejp+1,s(p)
 1450 return
 1460 jp=(crt+5+(x1*3)+(y1*wd*2)+2*wd)
 1470 pokejp,96:pokejp+1,96:return
 1480 cx=sgn(dx-hx):cy=sgn(dy-hy):return
 1490 gosub1600:gosub1000:ifg$=cr$org$="{clr}"thenreturn
 1500 i=val(g$):ifi=0then1490
 1505 cx=int((i-1)/3):cy=1-cx:cx=i-3*cx-2
 1510 lt=l+2*wd*cy+3*cx:x=x+cx:y=y+cy:t=peek(lt)
 1520 ifx>0andx<9andy>0andy<9then1540
 1530 x=x-cx:y=y-cy:lt=l:goto1490
 1540 pokel,peek(l)and127
 1550 pokel+1,peek(l+1)and127
 1560 l=lt:pokel,peek(l)or128:pokel+1,peek(l+1)or128:goto1490
 1570 jp=(crt+5+(x*3)+(y*wd*2)+2*wd)
 1580 jl=peek(jp):ifjl<128thenreturn
 1590 pokejp,jl-128:pokejp+1,jl-128:return
 1600 getg$:ifg$<>""then1600
 1610 return
 1620 poken,102:poken+1,102:return
 1630 printmo$;m5$:print:printm5$;:print"{home}"
 1640 tb=((40-len(p$(p))-23))/2:printmo$;tab(tb)p$(p)": "m0$:printtab(tb)m1$
 1650 return
 1660 printmo$;m5$:print:printm5$;:print"{home}"
 1670 tb=((40-len(p$(p))-21))/2:printmo$;tab(tb)p$(p)": "m3$:printtab(tb)m4$
 1680 return
 1690 printmo$;m5$:print:printm5$;:print"{home}"
 1700 tb=((40-len(p$(p))-23))/2:printmo$;tab(tb)p$(p)": "m6$:printtab(tb)m7$
 1710 forj=1to1500:next:gosub1660
 1720 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by hal carey
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}get across without getting cross
 62080 print"{down}{down}{down}press {rvon}return{rvof} to continue
 62090 getin$:ifin$=""then62090
 62100 print"{clr}":clr
 62110 crt=32768:cr$=chr$(13)
 62120 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 62130 goto100
    0 clr:poke59468,12
    1 rem ratrun copyright (c) 1979 c.t. nadovich
    2 rem box 354
    3 rem croton ny 10520
    4 :
    5 rem cursor #13, sept, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of 25 sep 79 10:30am
   90 pg$="ratrun":nm$="13":gosub62000
  100 h=12:v=7:h1=h+1:w=634:v1=826
  110 i=rnd(-ti)
  130 dimxl(4),n2(4),yl(4),xr(4)
  140 fori=0to4:readxl(i),n2(i),yl(i),xr(i):nexti
  150 data8,20,-4,31,8,12,1,27,12,6,5,24,15,2,8,22,17,0,10,21
  200 cx=int(rnd(1)*h)+1:cy=int(rnd(1)*v)+1
  210 c=cx:r=cy:s=0
  220 fori=0to(v+1)*h1:pokew+i,0:pokev1+i,0:next
  230 print"{clr}{down}{down}setting up maze...";
  300 da=0:n=0:av=v1+c+r*h1:aw=w+c+r*h1:pokeaw,1:s=s+1:ifs>=h*vthen900
  320 printmid$("{rvon}{rvof}",(sand1)+1,1);"V{left}";
  410 ifc>1andpeek(aw-1)=0thenda=da+2:n=n+1
  420 ifc<handpeek(aw+1)=0thenda=da+1:n=n+1
  430 ifr>1andpeek(aw-h1)=0thenda=da+8:n=n+1
  440 if(r<vandpeek(aw+h1)=0)thenda=da+4:n=n+1
  450 n=int(rnd(1)*n)+1
  460 onda+1goto500,850,800,600,750,610,620,630,700,640,650,660,670,680,690,695
  500 s=s-1
  510 c=c+1:ifc>hthenc=1:r=r+1:ifr>vthenr=1
  520 onpeek(w+c+r*h1)+1goto510,300
  600 onngoto800,850
  610 onngoto750,850
  620 onngoto750,800
  630 onngoto750,800,850
  640 onngoto700,850
  650 onngoto700,800
  660 onngoto700,800,850
  670 onngoto700,750
  680 onngoto700,750,850
  690 onngoto700,750,800
  695 onngoto700,750,800,850
  700 r=r-1:av=av-h1:pokeav,peek(av)or1:goto300
  750 pokeav,peek(av)or1:r=r+1:av=av+h1:goto300
  800 c=c-1:av=av-1:pokeav,peek(av)or2:goto300
  850 pokeav,peek(av)or2:c=c+1:av=av+1:goto300
  900 i=rnd(1)>.5:j=rnd(1):k=rnd(1)>.5
  920 ifithenx=int(j*h)+1:y=v+(v-1)*k
  930 ifi=0theny=int(j*v)+1:x=h+(h-1)*k
  931 if(cx-x)^2+(cy-y)^2<(h^2+v^2)/9then900
  950 sx=x:sy=y
 1001 print"{clr}
 1010 fori=wtow+(v+1)*h1:pokei,0:next
 1020 d=int(rnd(1)*4)
 1030 t4=ti:poke(w+x+y*h1),1
 1045 iff=0thengosub3000:print"{home}";int(sqr((x-cx)^2+(y-cy)^2)*10+.5)/10
 1049 ifcx=xandcy=ythen6000
 1050 getq$:ifq$=""goto1050
 1060 ifq$="q"orq$="?"thenk=ti:goto6100
 1070 i=val(q$):ifi=0then1050
 1075 ifi=2thend=d+2
 1080 ifi=4thend=d-1
 1090 ifi=6thend=d+1
 1100 ifd<0thend=d+4
 1110 ifd>3thend=d-4
 1120 ifi<>8then1045
 1200 av=v1+x+y*h1:aw=w+x+y*h1
 1201 ondgoto1260,1310,1360
 1210 ify>1and(peek(av-h1)and1)theny=y-1:pokeaw-h1,1:goto1045
 1220 goto1400
 1260 ifx<hand(peek(av)and2)thenx=x+1:pokeaw+1,1:goto1045
 1290 goto1400
 1310 ify<vand(peek(av)and1)theny=y+1:pokeaw+h1,1:goto1045
 1340 goto1400
 1360 ifx>1and(peek(av-1)and2)thenx=x-1:pokeaw-1,1:goto1045
 1400 dn=23:gosub7000
 1410 printtab(16);"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{down}{rvon}no door{up}":fori=1to1000:next
 1420 printtab(16);"{up}       {left}{left}{left}{left}{left}{left}{left}{down}       {up}":goto1049
 2000 print"{clr} ";
 2020 fori=1toh:print"{CBM-@}{CBM-@}{CBM-@}";:next:print"{down}{down}"
 2100 forj=1tov:print"{CBM-M}{up}{left}{CBM-M}{up}{left}{CBM-M}{down}{down}";:fori=1toh
 2125 k=peek(v1+i+j*h1)
 2130 printmid$("{CBM-@}{CBM-@}{SHIFT-@}  {CBM-M}{CBM-@}{CBM-@}{CBM-@}   ",1+3*k,3);
 2140 ifk<2thenprint"{up}{left}{CBM-M}{up}{left}{CBM-M}{down}{down}";
 2200 print"{up}{left}";
 2210 ifpeek(w+i+j*h1)=1thenprint"{left}.";
 2250 ifi=sxandj=sythenprint"{left}{rvon} {rvof}";
 2260 ifi=cxandj=cythenprint"{left}{CBM-+}";
 2270 ifi=xandj=ythenprint"{left}";mid$("^>v<",d+1,1);
 2280 print"{rght}{down}";
 2290 next:print"{down}{down}":next:return
 3000 s=0:print"{clr}
 3005 av=v1+x+y*h1
 3010 ondgoto3200,3400,3600
 3025 ifsy=y-sandsx=xthengosub5100
 3026 ifcy=y-sandcx=xthengosub5000
 3027 k=peek(av-(s+1)*h1):ifk=0ork=2goto3100
 3030 ifpeek(av-s*h1)and2thengosub4000:goto3040
 3035 gosub4200
 3040 ifpeek(av-1-s*h1)and2thengosub4500:goto3050
 3045 gosub4700
 3050 s=s+1:ifs>4goto3900
 3060 goto3025
 3100 ifpeek(av-s*h1)and2thengosub4300:goto3110
 3105 gosub4800
 3110 ifpeek(av-1-s*h1)and2thengosub4400:goto3120
 3115 gosub4900
 3120 return
 3200 ifcy=yandcx=x+sthengosub5000
 3210 ifsy=yandsx=x+sthengosub5100
 3226 k=peek(av+s):ifk=0ork=1goto3300
 3230 ifpeek(av+s)=2thengosub4200:goto3240
 3235 gosub4000
 3240 ifpeek(av+s-h1)and1thengosub4500:goto3250
 3245 gosub4700
 3250 s=s+1:ifs>4goto3900
 3260 goto3200
 3300 ifpeek(av+s)=0thengosub4800:goto3310
 3305 gosub4300
 3310 ifpeek(av+s-h1)and1thengosub4400:goto3320
 3315 gosub4900
 3320 return
 3400 ifcy=y+sandcx=xthengosub5000
 3410 ifsy=y+sandsx=xthengosub5100
 3426 k=peek(av+s*h1):ifk=0ork=2thengoto3500
 3430 ifpeek(av-1+s*h1)and2thengosub4000:goto3440
 3435 gosub4200
 3440 ifpeek(av+s*h1)=1thengosub4700:goto3450
 3445 gosub4500
 3450 s=s+1:ifs>4goto3900
 3460 goto3400
 3500 ifpeek(av-1+s*h1)and2thengosub4300:goto3510
 3505 gosub4800
 3510 ifpeek(av+s*h1)=0thengosub4900:goto3520
 3515 gosub4400
 3520 return
 3600 ifcx=x-sandcy=ythengosub5000
 3610 ifsx=x-sandsy=ythengosub5100
 3625 k=peek(av-(s+1)):ifk=0ork=1thengoto3700
 3630 ifpeek(av-s-h1)and1thengosub4000:goto3640
 3635 gosub4200
 3640 ifpeek(av-s)and1thengosub4500:goto3650
 3645 gosub4700
 3650 s=s+1:ifs>4then3900
 3660 goto3600
 3700 ifpeek(av-s-h1)and1thengosub4300:goto3710
 3705 gosub4800
 3710 ifpeek(av-s)and1thengosub4400:goto3720
 3715 gosub4900
 3720 return
 3900 dn=11:gosub7000:printtab(19)"MN{down}{left}{left}NM{home}":return
 4000 dn=yl(s):gosub7000
 4015 ifs=0thenprinttab(xr(s));"{CBM-@}"
 4020 ifs>0ands<4thenfori=1to4-s:printtab(xr(s)+5-s)"{CBM-G}":next
 4045 ifs>0thenprinttab(xr(s))mid$("{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}",s)
 4070 ifs=4thenprinttab(xr(s))"{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}{CBM-G}"
 4071 q$="":ifs>0thenq$=mid$("{rght}{rght}{rght}{CBM-G}",s)
 4072 ifs<4thenfori=0ton2(s)+1:printtab(xr(s))"{CBM-G}"q$:next
 4075 ifs>0thenprinttab(xr(s))mid$("{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G}",s)
 4095 ifs>0ands<4thenfori=1to4-s:printtab(xr(s)+5-s)"{CBM-G}":next
 4096 ifs=0thenprinttab(xr(s))"{CBM-T}"
 4098 print"{home}
 4099 return
 4200 dn=yl(s):gosub7000
 4215 ifs=0thenprinttab(xr(s))"N":goto4230
 4220 fori=1to5-s:printtab(xr(s)+5-s-i)"N":next
 4230 dn=n2(s)+2:gosub7100
 4235 ifs=0thenprinttab(xr(s))"M":goto4249
 4240 fori=0to4-s:printtab(xr(s)+i)"M":next
 4249 print"{home}
 4250 return
 4300 j=3-s:ifs=0thenj=0
 4305 print"{home}";
 4306 ifs>0goto4328
 4307 printtab(20);:print"{down}";:fori=1to18:print"{CBM-T}";:next:print"{CBM-T}"
 4310 dn=n2(0):gosub7100
 4320 printtab(20);:fori=1to19:print"{CBM-@}";:next:goto4398
 4328 dn=yl(s):gosub7100
 4329 fori=1to5-s:printtab(j+xr(s)+2)"{CBM-G}":next
 4330 printtab(20);:fori=19toj+xr(s):print"{CBM-T}";:next:print"{CBM-G}"
 4370 ifs<4thenfori=1ton2(s):printtab(j+xr(s)+2)"{CBM-G}":next
 4380 printtab(20);:fori=19toj+xr(s):print"{CBM-@}";:next:print"{CBM-G}"
 4385 fori=1to5-s:printtab(j+xr(s)+2)"{CBM-G}":next
 4398 print"{home}
 4399 return
 4400 print"{home}";
 4406 ifs>0goto4430
 4407 print"{down}";:fori=1to11+xl(0):print"{CBM-T}";:next:print"{CBM-T}"
 4410 dn=n2(0):gosub7100
 4420 fori=1to12+xl(0):print"{CBM-@}";:next:goto4398
 4430 dn=yl(s):gosub7100
 4431 fori=1to5-s:printtab(xl(s))"{CBM-M}":next
 4432 printtab(xl(s));:print"{CBM-M}";:fori=xl(s)to17:print"{CBM-T}";:next:print"{CBM-T}"
 4470 ifs<4thenfori=1ton2(s):printtab(xl(s))"{CBM-M}":next
 4480 printtab(xl(s));:print"{CBM-M}";:fori=xl(s)to17:print"{CBM-@}";:next:print"{CBM-@}"
 4485 fori=1to5-s:printtab(xl(s))"{CBM-M}":next
 4498 print"{home}
 4499 return
 4500 dn=yl(s):gosub7000
 4515 ifs=0thenprinttab(xl(s));"{CBM-@}"
 4520 ifs>0ands<4thenfori=1to4-s:printtab(xl(s))"{CBM-M}":next
 4545 ifs>0thenprinttab(xl(s))left$("{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}",6-s)
 4565 ifs=4thenprinttab(xl(s))"{CBM-M}{CBM-M}{left}{left}{down}{CBM-M}{CBM-M}"
 4570 q$="":ifs>0thenq$=mid$("{rght}{rght}{rght}{CBM-M}",s)
 4572 ifs<4thenfori=0ton2(s)+1:printtab(xl(s))"{CBM-M}"q$:next
 4575 ifs>0thenprinttab(xl(s))left$("{CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}",6-s)
 4595 ifs>0ands<4thenfori=1to4-s:printtab(xl(s))"{CBM-M}":next
 4596 ifs=0thenprinttab(xl(s))"{CBM-T}"
 4597 print"{home}
 4599 return
 4700 dn=yl(s):gosub7000
 4715 ifs=0thenprinttab(xl(s));"M":goto4730
 4720 fori=1to5-s:printtab(xl(s)+i)"M":next
 4730 dn=n2(s)+2:gosub7100
 4735 ifs=0thenprinttab(xl(s))"N":goto4749
 4740 fori=0to4-s:printtab(xl(s)+5-s-i)"N":next
 4749 print"{home}"
 4750 return
 4800 gosub4200
 4815 dn=yl(s)+5-s:gosub7000
 4820 printtab(20);
 4825 ifs<4thenfori=1toxr(s)-21:print"{CBM-T}";:next
 4830 print"P{left}{down}";
 4835 ifs<4thenfori=1ton2(s):print"{CBM-M}{down}{left}";:next
 4840 print"{SHIFT-@}{left}{left}";
 4850 ifs<4thenfori=1toxr(s)-20-1:print"{CBM-@}{left}{left}";:next
 4851 print"{home}
 4855 return
 4900 ifs=0thenj=5:goto4910
 4902 j=0
 4910 gosub4700
 4915 dn=yl(s)+5-s:gosub7000
 4920 printtab(19);
 4925 ifs<4thenfori=1to18-xl(s)-5+s+j:print"{CBM-T}{left}{left}";:next
 4930 print"O{left}{down}";
 4935 ifs<4thenfori=1ton2(s):print"{CBM-G}{down}{left}";:next
 4940 print"L";
 4950 ifs<4thenfori=1to18-xl(s)-5+s+j:print"{CBM-@}";:next
 4951 print"{home}
 4955 return
 5000 ifs=0ors=4thenreturn
 5010 dn=18:gosub7000
 5020 ifs=3thenprinttab(20);"{up}{up}{up}.
 5030 ifs=2thenprinttab(19);"{rvon}{up}{SHIFT-POUND}{rvof}{SHIFT-POUND}{left}{left}{down}{CBM-+}N{up}{CBM-G}
 5040 ifs=1thenprinttab(18);"{down} {CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{down}N  N{CBM-G}{left}{left}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+} {CBM-G}{left}{left}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}N
 5050 return
 5100 ifs=0ors=4thenreturn
 5110 dn=20:gosub7000
 5120 ifs=3thenprinttab(19);"{up}{up}{up}{up}{up}{rvon}{CBM-I}{CBM-I}{up}{left}{left}{rvof}{CBM-I}{CBM-I}
 5130 ifs=2thenprinttab(16);"{up}{up}{up}{rvon}{SHIFT-POUND}      {CBM-*}
 5141 ifs=1thenprinttab(13);"{rvon}{SHIFT-POUND}            {CBM-*}
 5142 ifs=1thenprinttab(12);"{rvon}{SHIFT-POUND}              {CBM-*}
 5150 return
 6000 k=ti:fori=1to25:poke245,22:print:printtab(15)"delicious!":forj=1to50:nextj
 6010 poke245,22:print:printtab(15)"          ":forj=1to50:nextj,i
 6100 gosub2000
 6110 printtab(10);"{up}another? ";
 6115 sw=1:tm=0
 6120 gett$:ift$<>""then6200
 6130 ifti>tmthenprintmid$("? ",sw,1);"{left}";:tm=ti+15:sw=3-sw
 6140 goto6120
 6200 ift$="y"ort$=cr$thenprint"yes":goto200
 6210 ift$="n"thenprint"no{down}":end
 6220 goto6120
 7000 print"{home}";
 7100 ifdn>0thenforz=1todn:print"{down}";:next
 7110 return
 62000 print"{clr}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by c. t. nadovich
 62020 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:next
 62030 print"{down}find your way through a perspective maze
 62032 print"{down}your controls are:
 62034 print"{down}  8 move forward
 62035 print"{down}  4 turn left
 62036 print"{down}  6 turn right
 62038 print"{down}  2 turn around
 62040 print"{down}  ? help!
 62049 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 clr:qk=525:cr$=chr$(13):ifpeek(50000)thenqk=158
 62070 print"{clr}":goto100
    0 clr:pg$="re-num":nm$="24":goto62000
    1 " gary huckell
    2 " 5924 quiet slope drive
    3 " san diego, ca 92120
    4 "
    5 " cursor #24, feb 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 81 feb 02
  100 mc=4879:af=634:al=af+2:an=al+2:as=an+2:aa=as+2:ab=aa+2:ae=ab+2:au=ae+1
  110 deffnp(z)=peek(z)+256*peek(z+1)
  120 mb$="{down}line numbers must be from 0 to 63999."
  130 ifpeek(50000)=0thenprint"{down}{down}re-num won't work on old roms.":end
  200 forz=0to24:pokeaf+z,0:nextz
  210 forz=25to35:readt:pokeaf+z,t:nextz
  220 data3,2,16,39,232,3,100,0,10,0,0
  900 open15,8,15
 1000 print"{down}old file? ";:gosub60000:iflen(in$)=0then9000
 1010 forz=1tolen(in$):ifmid$(in$,z,1)=":"then1030
 1020 nextz:in$="0:"+in$
 1030 of$=in$
 1040 ok=0:un=2:f$=of$:dr$="read":gosub8000:iferthen1000
 1100 print"{down}new file? ";:gosub60000:iflen(in$)=0then9000
 1110 forz=1tolen(in$):ifmid$(in$,z,1)=":"then1130
 1120 nextz:in$="0:"+in$
 1130 nf$=in$
 1140 ok=63:un=3:f$=nf$:dr$="write":gosub8000:ifer=0then1400
 1150 ifer<>okthen1100
 1160 print"{down}{rght}{rght}";f$;" already exists.":print"{down}ok to delete it? ";:gosub60000
 1170 ifleft$(in$,1)<>"y"thenprint"{down}{rght}{rght}";f$;" not deleted.":goto1100
 1180 print#15,"s";f$:input#15,er,er$,tk,sc
 1190 ifer=1andtk=1then1140
 1200 ifer<>1thenprint"{down}{rght}{rght}can't delete ";f$;": ";er$:goto1100
 1210 iftk>1thenprint"{down}{rght}{rght}";tk;"files deleted???":goto1140
 1220 print"{down}{rght}{rght}can't delete ";f$:goto1100
 1400 print"{down}first line to be renumbered? ";:gosub60000
 1410 ifin$=""thenin$="0":print"{down}i'll start at line ";in$;"."
 1420 fl=val(in$)
 1430 iffl<0orfl>63999thenprintmb$:goto1400
 1500 print"{down}what should it become? ";:gosub60000
 1510 ifin$=""thenin$="100":print"{down}i'll change it to line ";in$;"."
 1520 nf=val(in$)
 1530 ifnf<0ornf>63999thenprintmb$:goto1500
 1600 print"{down}last line to be renumbered? ";:gosub60000
 1610 ifin$=""thenin$="63999":print"{down}i'll renumber through line ";in$;"."
 1620 ll=val(in$)
 1630 ifll<0orll>63999thenprintmb$:goto1600
 1700 print"{down}new line number increment? ";:gosub60000
 1710 ifin$=""thenin$="10":print"{down}i'll go up by ";in$;"."
 1720 ns=val(in$)
 1730 ifns<1orns>10000thenprint"{down}increment must be from 1 to 10000.":goto1700
 1800 print"{down}{down}renumbering lines";fl;"through";ll;"{left},
 1810 print"{down}starting with";nf;"{left}, up by";ns;"{left}."
 1820 print"{down}want to change anything? ";:gosub60000
 1830 ifleft$(in$,1)="y"then1400
 1900 print"{down}want error messages on paper? ";:gosub60000
 1910 pr=(left$(in$,1)="y")
 1920 ifpr=0thenopen4,3
 1930 ifprthenopen4,4:print"{down}make sure your printer's on."
 2000 z=int(fl/256):pokeaf,fl-256*z:pokeaf+1,z
 2010 z=int(ll/256):pokeal,ll-256*z:pokeal+1,z
 2020 z=int(nf/256):pokean,nf-256*z:pokean+1,z
 2030 z=int(ns/256):pokeas,ns-256*z:pokeas+1,z
 2040 in$=""
 2100 print"{down}{rvon}pass 1
 2110 sysmc
 2120 close2:input#15,er,er$,tk,sc
 2130 ifer<>0then7500
 2140 ifpeek(ae)then7000
 2200 un=2:f$=of$:ok=0:dr$="read":gosub8000
 2210 iferthen7900
 2215 print"{down}{rvon}pass 2
 2220 sysmc+3
 2300 ifpeek(ae)=0then2400
 2310 print#4:print#4,"line";str$(fnp(au));", used in stmt";str$(fnp(ab));" ";
 2315 ifpr=0thenprint#4
 2320 iffnp(ab)<>fnp(aa)thenprint#4,"(now stmt";str$(fnp(aa));") ";
 2325 print#4,"does not exist."
 2330 sysmc+6:goto2300
 2400 close2:close3:close15
 2410 print"{down}";of$;" now renumbered"
 2420 print"and saved as ";nf$;"."
 2430 end
 7000 print"{down}not enough memory to renumber":print"the program.":goto7900
 7500 print"{down}{rght}{rght}disk error: ";er;er$;tk;sc
 7510 goto7900
 7520 end
 7900 close2:close3:close15
 7910 end
 7999 end
 8000 openun,8,un,f$+",p,"+dr$
 8010 input#15,er,er$,tk,sc
 8020 ifer=0thenreturn
 8025 closeun:ifer=okthenreturn
 8027 ifer=60thenclose15:open15,8,15:goto8070
 8030 ifer<>29ander<>71then8100
 8040 print#15,"i";left$(f$,1)
 8050 input#15,er,er$,tk,sc
 8060 ifer<>0then8100
 8070 openun,8,un,f$+",p,"+dr$
 8080 input#15,er,er$,tk,sc
 8090 ifer=0thenreturn
 8095 closeun
 8100 print"{down}{rght}{rght}can't ";dr$;" ";f$;": ";er$
 8110 return
 9000 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 ifzfand(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by gary huckell
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}renumber (pieces of) your programs
 62035 print"{down}{down}(this program requires a disk.)
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 getz$:ifz$=""then62050
 62060 print"{clr}":clr:crt=32768:cr$=chr$(13)
 62080 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 62090 goto100
    0 clr:poke59468,12:pk=12
    1 rem reader copyright (c) 1979 glen fisher
    2 rem cursor #10, may, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of june 2, 1979
   90 pg$="reader":nm$="10":gosub 62000
  100 cr$=chr$(13)
  110 n=1000
  200 print"first address? ";:gosub60000:l=val(in$):ifin$=""then200
  210 ifl<0orl>65535then print"enter a number from 0 to 65535, please":goto200
  220 print"last address? ";:gosub60000:h=val(in$):ifin$=""then220
  230 ifh<0orh>65535then print"enter a number from 0 to 65535, please":goto220
  240 ifh<lthent=h:h=l:l=t:print"assuming";l;"to";h;"{left}, instead."
  250 n=1000
  330 printn;"data";l;"{left},";h
  340 fori=ltohstep16
  350 n=n+10:printn;"data ";
  360 k=i+15:ifk>hthenk=h
  370 forj=itok
  380 t$=mid$(str$(peek(j)),2):printt$;",";
  390 nextj
  400 print "{left} "
  410 nexti
  500 end
 59990 data""
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}pRESS {rvon}return{rvof} TO ";
 60220 ifpn=lpthenprint"BEGIN:";:goto60240
 60230 print"CONTINUE:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenpoke59468,pk:clr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;"  (C) 1979    pAGE";pn;"{down}"
 60270 return
 62000 print"{clr}{down}";tab(8);"cursor #";nm$;tab(22);pg$
 62005 print"{down}copyright (c) 1979";tab(22);"by glen fisher
 62007 fori=1to10:print"DDDD";:next
 62010 print"{down}save machine code as data statements.
 62020 print"{down}{down}want directions? ";:gosub60000
 62030 ifleft$(in$,1)="y"then62100
 62040 print"{clr}":poke59468,pk:clr:goto100
 62100 print"{clr}":poke59468,14:lp=3:gosub60200
 62110 print"reader IS INTENDED{$a0}AS{$a0}AN{$a0}ADJUNCT TO{$a0}AN
 62120 print"ASSEMBLER, SO{$a0}THAT{$a0}ASSEMBLED{$a0}CODE{$a0}CAN
 62130 print"BE{$a0}SAVED{$a0}AND{$a0}pokeD{$a0}BACK{$a0}LATER.
 62140 print"{down}reader NEEDS{$a0}TO{$a0}KNOW{$a0}THE{$a0}FIRST{$a0}AND{$a0}LAST
 62150 print"ADDRESSES{$a0}OF{$a0}THE{$a0}CODE{$a0}TO{$a0}BE{$a0}SAVED. iT
 62160 print"WILL{$a0}THEN{$a0}peek AT{$a0}THE{$a0}CODE, AND{$a0}PRINT
 62170 print"data STATEMENTS{$a0}CONTAINING{$a0}IT. tHE{$a0}data
 62180 print"STATEMENTS{$a0}WILL{$a0}BE{$a0}NUMBERED{$a0}FROM 1000
 62190 print"ON, GOING{$a0}UP{$a0}BY{$a0}10.
 62200 print"{down}tHE{$a0}EASIEST{$a0}WAY{$a0}TO USE{$a0}reader IS{$a0}TO
 62210 print"MAKE{$a0}THE{$a0}GENERATED{$a0}data{$a0}PART{$a0}OF reader,
 62220 print"AND{$a0}THEN{$a0}TO{$a0}DELETE{$a0}ALL{$a0}OF{$a0}reader AFTER-
 62230 print"WARDS.
 62240 gosub60200
 62250 print"rUN{$a0}reader, GIVING{$a0}IT{$a0}THE{$a0}ADDRESSES.
 62260 print"mOVE{$a0}THE{$a0}CURSOR{$a0}TO{$a0}THE{$a0}FIRST{$a0}data STAT-{left}{inst}E
 62270 print"MENT{$a0}ON{$a0}THE{$a0}SCREEN, AND{$a0}HIT{$a0}{rvon}return{rvof} UNTL{left}{inst}I
 62280 print"THE{$a0}CURSOR{$a0}IS{$a0}AFTER{$a0}THE{$a0}LAST{$a0}data STAT-{left}{inst}E
 62290 print"MENT. tHOSE{$a0}data STATEMENTS{$a0}HAVE{$a0}NOW
 62300 print"BEEN{$a0}MADE{$a0}PART{$a0}OF{$a0}reader.  iF{$a0}ANY data
 62310 print"STATEMENTS{$a0}WENT{$a0}OFF{$a0}THE{$a0}SCREEN, RUN
 62320 print"reader AGAIN, STOPPING{$a0}IT{$a0}JUST{$a0}AFTER IT
 62330 print"PRINTS{$a0}THE{$a0}FIRST{$a0}ONE{$a0}THAT{$a0}GOT{$a0}ADDED.
 62340 print"mAKE{$a0}THE{$a0}NEW{$a0}data PART{$a0}OF{$a0}reader THE
 62350 print"SAME{$a0}WAY{$a0}AS{$a0}BEFORE. rEPEAT{$a0}THIS{$a0}UNTIL
 62360 print"EVERYTHING{$a0}HAS{$a0}BEEN{$a0}SAVED.
 62370 gosub60200
 62400 print"fINALLY, DELETE{$a0}EVERYTHING{$a0}OF{$a0}reader,
 62410 print"AND{$a0}ADD INSTEAD:
 62420 print"{down}  100 read lo,hi
 62430 print"  110 for i=lo to hi
 62440 print"  120 read x
 62450 print"  130 poke i,x
 62460 print"  140 next i
 62470 print"  150 end
 62480 print"{down}aFTER{$a0}ALL{$a0}THAT{$a0}IS{$a0}DONE, SAVE{$a0}THE{$a0}NEWLY-
 62490 print"WRITTEN{$a0}PROGRAM SOMEWHERE, SO{$a0}YOU{$a0}DON'T
 62500 print"HAVE{$a0}TO{$a0}GO{$a0}THROUGH THAT{$a0}AGAIN. tO{$a0}RELOD{left}{inst}A
 62510 print"THE{$a0}ASSEMBLER{$a0}PROGRAM, LOAD{$a0}THE{$a0}PROGRAM
 62520 print"WITH{$a0}ALL{$a0}THE{$a0}data, AND{$a0}RUN{$a0}IT.
 62530 gosub60200
    0 clr:pg$="rebound":nm$="30":goto62000
    1 " steven larson
    2 " 947 cortland dr. s.
    3 " apple valley, mn 55124
    4 "
    5 " cursor #30, may, 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 5/28/82 mtr
  100 hg=24:rs=(96+128):deffnr(r)=rnd(1)*r:t0=102:bl=81:bc=32:k4=78:k6=77
  120 nt=0:ng=ng+1
  130 print"{clr}":gosub580
  140 fori=1towd:z=(crt+i-1):pokez,rs:q=(crt+i-1+(wd*hg)):pokeq,rs:next
  150 fori=1tohg-1:z=(crt+(wd*i)):pokez,rs:q=(crt+(wd*(i+1))-1):pokeq,rs:next
  160 d%=fnr(4):ifd%=0thend%=4
  170 a=(crt+wd*hg/2)+wd/2:ifa=tthenpoke(t+41),t0
  180 pokea,bl:ti$="000000"
  190 print"{home}{rvon}  targets hit:"nt
  200 print"{home}"tab(wd-14)"{rvon}time:";
  210 printtab(26)1-val(mid$(ti$,4,1))"{left}:";
  215 printright$("0"+mid$(str$(59-val(mid$(ti$,5))),2),2)
  220 ifti$>"000159"then500
  230 a0=a:ond%gosub300,310,320,330
  240 c=peek(a):ifc>99then340
  250 geti$:ifi$=""then340
  255 ifi$="q"then500
  260 ifi$="1"ori$="9"thenpokea,k4
  270 ifi$="5"thenpokea,bc
  280 ifi$="3"ori$="7"thenpokea,k6
  290 c=peek(a):goto340
  300 a=a+1:return
  310 a=a+wd:return
  320 a=a-1:return
  330 a=a-wd:return
  340 ifc<>bcthen380
  350 pokea,bl
  360 ifpeek(a0)=blthenpokea0,bc
  370 goto200
  380 ifc<128then410
  390 d%=d%+2:ifd%>4thend%=d%-4
  400 pokea0,bc:a=a0:goto200
  410 ifc=t0thennt=nt+1:rt=rt+1:poket,bl:pokea0,bc:gosub580:goto190
  420 ifc=k4then450
  430 if(d%=1)or(d%=3)thend%=d%+1:goto490
  440 if(d%=2)or(d%=4)thend%=d%-1:goto490
  450 if(d%=1)or(d%=3)thend%=d%-1:goto470
  460 if(d%=2)or(d%=4)thend%=d%+1
  470 ifd%=0thend%=4
  480 ifd%=5thend%=1
  490 pokea0,bc:goto200
  500 print"{clr}{down}{down}number of targets this game:"nt
  510 ifnt>maxthenmax=nt
  520 print"{down}{down}maximum thus far:"max
  530 getz$:ifz$<>""then530
  540 print"{down}{down}{down}{down}want to play again? ";:gosub60000:ifin$<>"n"then120
  550 print"{clr}":end
  580 t=int(fnr(wd*hg)+crt)
  590 if(t<(crt+wd))or(t>(crt+wd*(hg-1)))then580
  600 fori=1tohg-1:z=(crt+(wd*i)):q=(crt+(wd*(i+1))-1)
  610 if(z=t)or(q=t)then580
  620 next:poket,t0:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by steven larson
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 gosub60500
 62030 print"{down}how quick are your reflexes?"
 62070 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62080 getr$:ifr$<>""thengoto60300
 62090 goto62080
  100 q1=515:ifpeek(50003)thenq1=151
  110 poke59468,12:poke59490,30
  120 gosub1010
  130 print"{clr}":t1=0:t2=0
  140 p=int(2*rnd(1))+1:v2=0:p1=0:p2=0:ty=0:th=0
  150 q$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  160 r$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  170 print"{clr}{up}{rvon}   rebount   {rvof}"
  180 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  190 print"1{CBM-B}                               M
  200 print"2{CBM-B}                                M
  210 print"3{CBM-B}                                 M
  220 print"4{CBM-B}                                  M
  230 print"5{CBM-B}                                   M
  240 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}
  250 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N      {CBM-G}"
  260 print"{CBM-+}                                    N
  270 print"{CBM-+}                                   N
  280 print"{CBM-+}                                  N
  290 print"{CBM-+}                                 N
  300 print"{CBM-+}                                N
  310 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  320 print"{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}
  330 print"{down} 100 80  60  40
  340 po(1)=33391:po(2)=33393:po(3)=33471:po(5)=33473
  350 forn=1to5:pokepo(n),81:next
  360 forn=1to5:pokepo(n)+6,87:next
  370 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}speler 1 score";p1;"{rght}{rght}{rght}{rght}totaal";t1
  380 print"{down}speler 2 score";p2;"{rght}{rght}{rght}{rght}totaal";t2
  390 forq=1to10
  400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}speler{rvof}:";p;"{rght}{rght}{rght}{rght}{rght}{rght}rij ?:";
  410 ifp=1thenr=81:th=th+1:goto430
  420 ty=ty+1:r=87
  430 poke158,0:d=0:h=0
  440 geta$:ifa$=""then440
  450 ifval(a$)=v2then440
  460 s=val(a$):ifs>5ors<1then440
  470 v2=s
  480 ifr=81thenpokepo(th),209:goto500
  490 pokepo(ty)+6,215
  500 prints:c=0:f=32810
  510 d=s*40:d=d+f:poked,r
  520 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}druk de = toets{rvof}"
  530 y=peek(q1):ify<>1then530
  540 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}                  "
  550 y=peek(q1)
  560 ify=1thenc=c+1:goto550
  570 ifc=0theng=0:goto520
  580 c=int(c/3):g=1
  590 h=h+1:j=1
  600 ifpeek(d+g)=102thenh=c:poked,32:poked+g,81:poked+g,102:goto690
  610 ifpeek(d+g)=81thenr=81:c=int(c/4):h=0:goto680
  620 ifpeek(d+g)=87thenr=87:c=int(c/4):h=0:goto680
  630 ifpeek(d+g)=77theng=40:goto610
  640 ifpeek(d+j)=78theng=-1:j=0:goto610
  650 ifpeek(d)=77theng=40:goto680
  660 ifpeek(d)=78theng=-1:goto680
  670 poked,32:poked+g,r
  680 ifpeek(d)=102thenpoked+2,r:poked102
  690 d=d+g
  700 ifh<cthen590
  710 ifp=2thenp=0
  720 p=p+1:poke33551,32:c=0:h=0
  730 x=0:j=33128:b=100:p1=0:p2=0
  740 forn=1to16
  750 h=j+n
  760 x=x+1
  770 form=1to5
  780 ifpeek(h)=81thenp1=p1+b:goto800
  790 ifpeek(h)=87thenp2=p2+b:goto800
  800 h=h+40
  810 nextm
  820 ifx=4thenx=0:b=b-20
  830 nextn
  840 gosub980
  850 next
  860 t1=t1+p1:t2=t2+p2:gosub980
  870 print"{home}":forn=1to1000:next
  880 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} door gaan ? {rvof}";
  890 geta$:ifa$=""then890
  900 ifa$="j"then140
  910 ifa$="n"then930
  920 goto890
  930 print"{clr}"
  940 ift1>t2thenprint"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}speler 1 wint van speler 2":goto1250
  950 ift1<t2thenprint"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}speler 2 wint van speler 1":goto1250
  960 ift1=t2thenprint"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}*** gelijkspel ***":goto1250
  970 getq$:ifq$=""then970
  980 printq$p1;"{left}  ";r$t1
  990 printq$"{down}{down}";p2;"{left}  ";r$"{down}{down}";t2
 1000 return
 1010 print"{clr}   rebount   {rvof}"
 1020 print"{down}{down}{down}{down}{down}geprogrammeert door{down}{down}a.watkinson"
 1030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1040 print"{down}{down}{down}{rght}{rght}voor een 8k pet"
 1050 print"{down}{down}ned. bewerking en aanpassing oude rom"
 1060 print"{down}{down}{rght}{rght}door n.groot h.c.c. ol1377"
 1070 print"{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1080 fori=1to4000:next
 1090 print"{clr}         {rvon}   spelregels   {rvof}"
 1100 print"{down}dit is een spel voor 2 spelers."
 1110 print"{down}deze hebben ieder 5 stukken."
 1120 print"{down}speler 1 heeft Q
 1130 print"speler 2 heeft W
 1140 print"{down}de pet vraagt de speler om rij nr."
 1150 print"waar het stuk dan geplaatst wordt."
 1160 print"{down}daarna moet je de {rvon}={rvof} toets indrukken"
 1170 print"en aan de hand van de lengte van de"
 1180 print"tijd die je hem ingedrukt hebt "
 1190 print"verplaatst hij dan het stuk."
 1200 print"{down}je mag niet in de zelf rij als het "
 1210 print"stuk voor je."
 1220 print"{down}{down}{down}{down}"spc(9);"{rvon}druk een toets in."
 1230 getq$:ifq$=""then1230
 1240 return
 1250 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}wil je een nieuw spel starten"
 1260 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}type (j/n)
 1270 getq$:ifq$=""then1270
 1280 ifq$="j"thenrun
 1290 ifq$<>"n"then1260
 1300 rem
 1310 ifpeek(45058)=180then:$x,peek(45051)-48,"inhoud
    0 clr:pg$="recipe":nm$="23":goto1820
    1 " nancy rhodes
    4 "
    5 " cursor #23, dec, 1980
    6 " copyright(c)1980 the code works
    7 " box 550, goleta, ca. 93017
    8 "
   10 rem 9 dec 80
  100 lu=0:mi=20:mw=20:dimre$(mi),wd$(mw)
  110 read l$,d:if l$ <>"end"then lu=lu+1:goto110
  120 dim lu$(lu),lc(lu):
  130 du=0
  140 read l$,d: ifl$ <>"end"then du=du+1:goto140:
  150 dim du$(du),dc(du)
  160 li=0
  170 readl$:ifl$<>"end"then li=li+1:goto170
  180 dim li$(li)
  190 n=0:readn,d:ifn<>0thennf=nf+1:goto190
  200 nf=nf+2:dimfr$(nf),fr(nf)
  210 au=0
  220 readl$:ifl$<>"end"thenau=au+1:goto220
  230 dimau$(au)
  240 restore
  250 fori=1to lu:read lu$(i),lc(i):nexti
  260 read d$,d:fori=1todu:readdu$(i),dc(i):nexti
  270 readd$,d:fori=1toli:readli$(i):nexti
  280 readd$:fori=2tonf-1:readn,d:fr(i)=n/d
  290 fr$(i)=mid$(str$(n),2)+"/"+mid$(str$(d),2)
  300 nexti:fr$(1)="":fr$(nf)="":fr(nf)=1
  310 readn,d:fori=1toau:readau$(i):nexti
  315 print"please enter recipe as:
  316 print"{down}quantity unit ingredient
  317 print"{down}example: 1 1/2 cup milk{down}{down}
  320 print"press {rvon}return{rvof} when all the ingredients":print"have been entered.{down}
  330 sc=1:b=0:ct=0:po=0
  340 gosub1530:ifin$=""then380
  350 ct=ct+1:re$(ct)=in$:if ct<mi then 340
  360 print"i can't handle more than";mi;"ingredients."
  380 print"{down}how much does the recipe"
  385 print"make or serve?";
  390 gosub1530:m=0:re$(m)=in$:gosub540
  400 ifb=1thenb=0:er$="nothing entered":gosub530:goto400
  410 a=tt
  430 print"{down}how much do you want to make? ";
  450 gosub1530:m=0:re$(m)=in$:gosub540
  455 ifb=1thenb=0:er$="nothing entered":gosub530:goto455
  460 ms$=re$(0):scale=tt/a
  470 print"{down}want to use the printer? ";
  480 gosub1530:print"{down}{down}
  490 if left$(in$,1)="y"thenopen4,4:po=1
  500 if left$(in$,1)<>"y"thenopen4,3
  505 m=0:rp=0
  510 m=m+1:ifm>ctthen1420
  520 gosub540:goto510
  530 gosub1460
  540 w=0:re$=re$(m)
  550 if len(re$)>0thenifleft$(re$,1)=" "thenre$=mid$(re$,2):goto550
  555 ifw>=mwthener$="too much text":goto530
  560 fori=1tolen(re$)
  570 ifmid$(re$,i,1)<>" "then 610
  580 w=w+1:wd$(w)=left$(re$,i-1)
  590 re$=mid$(re$,i+1)
  600 goto550
  610 next i
  620 w=w+1:wd$(w)=re$
  630 rem find quantity
  640 tt=0:fr=0:dig=0
  650 forn=1 to w:r=0
  660 fork=1tolen(wd$(n))
  670 t$=mid$(wd$(n),k,1)
  680 ift$>="0"andt$<="9"then740
  690 ift$="."thener$="no decimal allowed":goto530
  700 ift$="/"andr>0thener$="too many slashes":goto530
  710 ift$="/"thenr=k:goto740
  720 ifk>1thener$="confusing number":goto530
  730 goto 810
  740 nextk
  750 ifr=0then ifdig=0andfr=0thenx=val(wd$(n)):dig=1:goto800
  760 ifr=0thener$="confusing number":goto530
  770 ifr=1orr=len(wd$(n))thener$="confusing number":goto530
  780 iffr<>0thener$="too many fractions":goto530
  790 x=val(left$(wd$(n),r-1))/val(mid$(wd$(n),r+1)):fr=1
  795 if x>=1 then er$="fraction too large":goto530
  800 tt=tt+x:nextn
  810 iffr=0anddig=0thentt=1:b=1
  830 tt=tt*scale
  840 ifm=0andn>wthenreturn
  850 ifn>wthener$="no unit":goto530
  860 rem check type
  865 if m=0 then970
  870 fori=wtonstep-1
  880 forj=1toli
  890 if wd$(i)=li$(j) then970
  900 nextj:nexti
  910 fori=ntow
  920 for j=1todu
  930 q$=wd$(i):z$=du$(j)
  940 ifq$<>z$andq$<>z$+"."andq$<>z$+"s"andq$<>z$+"s."then960
  950 tt=tt*dc(j):fw=i+1:goto1120
  960 nextj:nexti:goto1030
  970 fori=ntow:forj=1tolu
  980 q$=wd$(i):z$=lu$(j)
  990 ifq$<>z$andq$<>z$+"."andq$<>z$+"s"andq$<>z$+"s."then1010
 1000 tt=tt*lc(j):fw=i+1:goto1080
 1010 nextj:nexti
 1020 rem arb
 1030 fori=ntow:forj=1toau:ifwd$(i)=au$(j)thentt=-int(-tt)
 1040 nextj,i
 1050 unit$=""
 1060 fw=n:temp=tt:goto1150
 1070 oj=0
 1080 forj=luto1step-1
 1090 unit$=lu$(j):temp=tt/lc(j):if temp>=1then1150
 1095 iflc(j)<>lc(oj)thenoj=j
 1100 nextj:unit$=lu$(oj):goto1150
 1120 oj=0:forj=duto1step-1:temp=tt/dc(j)
 1130 unit$=du$(j):iftemp>=1then1150
 1135 ifdc(j)<>dc(oj)thenoj=j
 1140 nextj:unit$=du$(oj)
 1150 ifm=0thenreturn
 1155 iffw>wthener$="no ingredient":goto530
 1160 n=temp:i=int(n):t=n-i
 1165 for j=1tonf-1
 1170 if(fr(j)<=t)and(t<fr(j+1))then1200
 1180 nextj
 1190 stop
 1200 ifabs(fr(j)-t)>abs(fr(j+1)-t)thenj=j+1
 1210 iffr$(j)=""theni=i+fr(j)
 1220 fr$=fr$(j):if i<>0 or fr$="" then fr$=mid$(str$(i),2)+" "+fr$
 1225 if right$(fr$,1)=" " then fr$=left$(fr$,len(fr$)-1)
 1230 ifunit$<>""andtemp>1thenunit$=unit$+"s"
 1235 print#4,fr$;" ";:iflen(fr$)<7thenprint#4,spc(7-len(fr$));
 1240 print#4,unit$;:iflen(unit$)<5thenprint#4,spc(5-len(unit$));
 1245 forn=fwtow:print#4," ";wd$(n);:nextn:print#4:return
 1275 rem liquid units
 1280 data t,1,teaspn,1,teaspoon,1,tsp,1
 1290 dataounce,3,oz,3,tblsp,3,tablespn,3,tablespoon,3,tbsp,3,c,24
 1300 data cp,24,cup,24,p,48,pnt,48,pint,48,pt,48,qu,96,quart,96,qt,96
 1310 data g,384,gallon,384,gal,384
 1320 data end,2
 1325 rem dry units
 1330 data t,1,tspoon,1,teasp,1,teaspoon,1,tsp,1
 1340 data tblsp,3,tablespn,3,tablespoon,3,tbsp,3
 1350 data c,24,cp,24,cup,24,end,5
 1355 rem known liquids
 1360 data extract,milk,water,oil,juice,gallon
 1370 data vinegar,wine,sherry,brandy,liquer
 1380 data coffee,cider,syrup,honey,molasses
 1390 data cream,buttermilk,pint,pints,gallons,shot,shots,pt.,gal
 1395 data qt,qts,qt.,qts.,end
 1397 rem known fractions x,y,==x/y
 1400 data 1,8,1,4,1,3,1,2,2,3,3,4,0,0
 1405 rem indivisible arbitrary units
 1410 data egg,eggs,drop,drops,pinch,pinches,pinchs,end
 1420 print#4:print#4,"makes/serves ";ms$
 1430 ifrp=0orpo<>0then1450
 1435 print"{down}want to see the new recipe again? ";:gosub1530
 1440 ifleft$(in$,1)="y"thenprint#4:print#4:goto505
 1450 close4:end
 1460 print"{down}";er$;" in this line:{down}":print re$(m)
 1470 print"{down}please re-enter it...":print"{down}?";
 1480 rp=1
 1490 gosub1530:print"{down}
 1495 ifin$=""thenprint"please type it again":print"{down}?":goto1490
 1510 re$(m)=in$
 1520 return
 1530 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 1540 getz$:ifz$<>""then1570
 1550 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1560 goto1540
 1570 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto1610
 1580 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 1590 ifzl>254then1540
 1600 in$=in$+z$:printz$;zd$;z$;
 1610 ifz=13thenin$=mid$(in$,2):printcr$;:return
 1620 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto1540
 1630 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1530
 1640 goto1540
 1820 poke59468,12
 1830 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by nancy rhodes
 1840 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 1850 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti
 1860 print"{down}for when you have to feed an army...
 1870 print"{down}{down}press {rvon}return{rvof} to begin
 1880 gett$:ift$=""then1880
 1890 print"{clr}":clr:cr$=chr$(13):goto100
    0 clr:pg$="repair":nm$="25":goto62000
    1 " kim lantz
    2 " 15 clifford street
    3 " north sydney, ns canada b2a 1x2
    4 "
    5 " cursor #25, april, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 1may81
  100 fd=8:dr$="0:":rem i/o device
  105 td$="tape":iffd=8thentd$="disk"
  110 max=50:sv=0:mm=1000
  130 i=0:a=0:sd$="{home}":qu$=chr$(34)
  140 fori=1to39:bl$=bl$+" ":sd$=sd$+"{down}"
  150 next:cr$=chr$(13)
  160 dim amt$(max),tag(max),name$(max)
  170 dim loc$(max),tt$(4),l(4),w(4)
  175 data"        ",0 ,0
  180 data"tag #   ",6 ,8
  190 data"name    ",8 ,20
  200 data"amount  ",10,8
  210 data"location",12,20
  220 restore
  230 fori=0to4:readtt$(i),l(i),w(i):next
  240 goto640
  270 print
  280 print"press {rvon}return{rvof} for menu"
  290 gosub52000
  300 goto 650
  310 a$=mid$(str$(a1),2):l=len(a$)
  320 ifl=1thena$="$0.0"+a$:return
  330 ifl=2thena$="$0."+a$:return
  340 a$=left$(a$,l-2)+"."+right$(a$,2):a$="$"+a$
  350 return
  360 printpr$;"? ";:gosub60000:ifin$=""thentg=-1:return
  370 tg=val(in$):iftg<1ortg>99999999thenprint"{down}illegal tag.":tg=0
  380 return
  390 gosub440:ifen=0thenprint"{down}tag";tg;"isn't there."
  400 return
  410 gosub440:ifen>0thenprint"{down}tag";tg;"is already there."
  420 return
  440 ifmax<1andtg<>0thenen=0:return
  450 foren=1tomax:iftag(en)=tgthenreturn
  460 nexten:en=0:return
  480 print"{clr}";left$(sd$,l(1)-1)
  490 printtt$(1)":";mid$(str$(tag(en)),2)
  510 print"{down}";tt$(2)":";name$(en)
  520 print"{down}";tt$(3)":";amt$(en)
  540 print"{down}";tt$(4)":"loc$(en)
  550 return
  560 printleft$(sd$,l(fi))tt$(fi)":";
  570 ifov$<>""thenprint"{rvon}"ov$"{rvof}":printtt$(0);" ";
  580 l=w(fi):gosub60000:ifov$=""then590
  585 print"{up}";bl$;"{up}"
  587 ifin$=""thenin$=ov$:goto605
  590 a=val(in$):a1=int(a*100+.5)
  600 iffi=3thengosub310:in$=a$
  605 print"{up}";tt$(fi);":";
  610 ifov$<>""thenprintleft$(bl$,len(ov$));"{up}":printtab(len(tt$(fi))+1);
  615 printleft$(in$+bl$,w(fi))
  620 return
  630 :
  640 rem warm start of repairs
  650 print"{clr}";nr;"records"
  655 iffre(0)<mmthenprint"{up}";tab(18);"only";fre(0);"bytes left"
  660 fori=1 to 13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:next i:print:print
  665 print"{up}{CBM-@}{left}{down}{rvon}a{rvof}dd data{down}"
  670 print"{up}{CBM-@}{left}{down}{rvon}m{rvof}odify{down}"
  680 print"{up}{CBM-@}{left}{down}{rvon}d{rvof}elete{down}"
  690 print"{up}{CBM-@}{left}{down}{rvon}l{rvof}ist records (on screen){down}"
  700 print"{up}{CBM-@}{left}{down}{rvon}n{rvof}ame search{down}"
  710 print"{up}{CBM-@}{left}{down}{rvon}t{rvof}ag search{down}"
  720 print"{up}{CBM-@}{left}{down}{rvon}p{rvof}rint records (on printer){down}"
  730 print"{up}{CBM-@}{left}{down}{rvon}r{rvof}ead file from "td$"{down}"
  740 print"{up}{CBM-@}{left}{down}{rvon}w{rvof}rite file to "td$"{down}"
  750 print"{up}{CBM-@}{left}{down}{rvon}q{rvof}uit"
  760 :
  770 print"{down}what do you want to do";
  780 l=1:gosub3000
  790 oc$=in$:oc=0:fori=1to10
  800 ifmid$("rwamdntplq",i,1)=in$thenoc=i:i=99
  810 next
  820 ifoc=0thenprint"{left}{left}{left}";:goto 780
  825 ifnr=0andoc$<>"r"andoc$<>"a"andoc$<>"q"thenprint"{left}{left}{left}";:goto780
  827 print"{clr}{down}":fi=0
  829 rem      r   w    a    m    d    n    t    p    l
  830 onocgoto850,940,1080,1640,1250,1330,1570,1320,1310
  840 ifsvornr=0thenprint"{clr}":end
  844 print"{clr}{down}you have not saved your file yet.{down}
  845 print"are you sure you want to quit";
  846 gosub3000:ifin$="y"thenprint"{clr}":end
  848 goto640
  850 print"read from what file? ";:l=20:gosub60000:ifin$=""then640
  860 fi$=in$:dr=0:gosub50100:iferthen270
  865 input#1,t$
  866 ift$<>"*repair*"thengosub50300:print"{down}i didn't write that file":goto270
  880 input#1,t:ift<=maxthennr=t:goto890
  884 gosub50300
  885 print"{down}"fi$;" has";t;"records.":print"{down}i can handle only";max;"{left}.":goto270
  890 fori=1tonr
  895 input#1,tag(i),name$(i),amt$(i),loc$(i)
  900 iftag(i)=0andst=0then890
  910 print".";
  920 ifst>0then930
  925 next i
  927 if nr<max then for i=nr+1 to max:tag(i)=0:next i
  930 gosub50300:goto640
  940 ifnr=0thenprint"{down}nothing to save":goto270
  950 print"write into what file? ";:l=20:gosub60000:ifin$=""then640
  951 if fd<8 then 960
  952 t$=left$(in$,12)+".old"
  953 open15,8,15:print#15,"s";dr$;t$
  954 print#15,"r";dr$;t$;"=";in$
  955 close15
  960 fi$=in$:dr=1:gosub50100
  965 print#1,"*repair*"
  980 print#1,nr:fori=1tomax
  990 iftag(i)=0then1060
 1000 print#1,tag(i):gosub50000
 1010 print#1,qu$;name$(i):gosub50000
 1020 print#1,amt$(i):gosub50000
 1030 print#1,qu$;loc$(i):gosub50000
 1040 print".";
 1050 nexti
 1060 sv=1
 1070 gosub50300:goto640
 1080 ifnr<maxthentg=0:gosub440:ifen>0then1090
 1085 print"{down}no room for more.":goto270
 1090 pr$="what's the tag":gosub360:onsgn(tg)+2goto640,270
 1110 ii=en:gosub410:ifen>0then270
 1120 en=ii:tag(en)=tg
 1130 fi=2:gosub560:name$(en)=in$
 1140 fi=3:gosub560:amt$(en)=in$
 1150 fi=4:gosub560:loc$(en)=in$
 1160 nr=nr+1:goto650
 1250 pr$="delete which tag":gosub360:onsgn(tg)+2goto650,270
 1260 gosub390:ifen=0then270
 1270 gosub480
 1280 print"{down}really delete it";:gosub3000
 1290 ifin$="y"thennr=nr-1:tag(en)=0:name$(en)="":loc$(en)=""
 1300 goto640
 1310 v=3:fg=1:n=0:goto1360
 1320 v=4:fg=1:n=0:goto1360
 1330 print"search for what name? ";:gosub60000:ifin$=""then640
 1350 v=3:fg=0:n$=in$:n=len(in$)
 1360 open4,v
 1370 f=0:if v=3 then print"{clr}";
 1380 fori=1 tomax
 1385 iftag(i)=0then1520
 1390 if n>0 then if left$(name$(i),n)<>n$ then 1520
 1400 if f<4 or v=4 then 1440
 1410 print"{down}press {rvon}return{rvof} for more.";:gosub52000:f=0:print"{clr}";
 1420 ifin$<>cr$then1550
 1440 a$=mid$(str$(tag(i)),2)
 1450 print#4:print#4,tt$(1);":";a$
 1455 print#4,tt$(2);":";name$(i)
 1460 print#4,tt$(3);":";amt$(i)
 1465 print#4,tt$(4);":";loc$(i)
 1470 fg=1:f=f+1
 1520 nexti
 1530 iffg=0thenprint"{down}'";n$;"' wasn't found."
 1540 ifv=3orfg=0thenclose4:goto270
 1550 close4:goto640
 1570 pr$="search for what tag":gosub360:onsgn(tg)+2goto640,270
 1610 gosub390:ifen=0then270
 1630 gosub480:goto270
 1640 pr$="tag to modify":gosub360:onsgn(tg)+2goto640,270
 1650 gosub390:ifen=0then270
 1700 gosub480
 1710 fi=2:ov$=name$(en):gosub560
 1720 name$(en)=in$
 1740 fi=3:ov$=amt$(en):gosub560
 1750 amt$(en)=in$
 1770 fi=4:ov$=loc$(en):gosub560
 1780 loc$(en)=in$
 1800 goto640
 3000 print"? ";:zt=ti:zc=1
 3010 getin$:ifin$<>""then3050
 3020 ifti>ztthenprintmid$("? ",zc,1);"{left}";:zt=ti+20:zc=3-zc
 3030 goto 3010
 3050 zt=asc(in$)and127:print" ";:ifzt>31thenprint"{left}";in$;
 3060 return
 50000 ifti-z9<20orfd>2then50090
 50010 iffd=1thenpoke59411,53:forz=1to60:next:poke59411,61
 50020 iffd=2thenzz=peek(59456):poke59456,zzand239:forz=1to60:next:poke59456,zz
 50090 z9=ti:return
 50100 iffd>2then50200
 50110 print"{down}please rewind tape"fd"{left},":print"and then press {rvon}return
 50130 gosub52000:pokeqb,122:pokeqb+1,2:iffd=2thenpokeqb,58:pokeqb+1,3
 50150 open1,fd,dr,fi$:zp=ti:return
 50200 fl$=dr$+fi$:open15,8,15:ifdr=1thenprint#15,"s"fl$
 50210 fl$=fl$+",s,"+mid$("rrw",dr+2,1):open1,8,2,fl$
 50230 input#15,er,er$,tk,sc:ifer=0or(dr<0ander=62)thener$="":return
 50240 ifer=62then50280
 50250 close1:print"{down}"er;er$tk;sc:print"{down}fix problem and type 'cont'.":end
 50270 goto50210
 50280 print"{down}can't open "fi$" on drive "left$(fl$,1)
 50300 close1:close15:return
 52000 getin$:ifin$=""then52000
 52010 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by kim lantz
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}maintain repair directory
 62080 print"{down}{down}{down}press {rvon}return{rvof} to continue";
 62090 getin$:ifin$=""then62090
 62100 goto60300
    0 clr:pg$="rescue!":nm$="25":goto62000
    1 " nick jackiw
    2 " 5806 murrayhill pl
    3 " pittsburgh, pa 15217
    4 "
    5 " cursor #25, april, 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 29apr81
  100 gosub1000
  110 ms=1:f=3000:s=0:l=sj-1:lv=lf:hs=0:ru=0:bn=50
  112 fori=0to4:forj=0to4:x(i,j)=0:next:next
  114 forj=1tol+1:onjgosub590,600,610:nextj
  115 print"{clr}";:gosub280
  120 poke59467,16:poke59466,10:poke59464,0
  125 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  130 printdn$"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M"
  140 print"QQQQQ {$a0}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M     N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{left}{inst}{CBM-T}{down}
  150 print"            M{CBM-POUND}{CBM-POUND}{CBM-POUND}N
  155 gosub800
  160 gosub970:print"{home}":x=1:us=87:cr=32767:y=1:v=2:ad=-1:ifru=0thenru=1:gosub580
  170 pokecr+wd+x,us:gosub280:iff<=0thengosub290:goto640
  180 getd$:ifd$=""then190
  185 y=2:ss=cr+x+wd:pokess,102:pokecr+x+wd*y,us:gosub970:poke59464,99:goto320
  190 gosub230
  200 f=f-2:iff=0thengosub290:goto640
  210 pokecr+wd+x,32:x=x+y:ifx=40orx=1theny=-y
  220 goto170
  230 fori=0tol-1:x(i,2)=x(i,2)+1:ifx(i,2)<x(i,0)then 260
  240 x(i,2)=0:x$(i)=right$(x$(i),1)+left$(x$(i),len(x$(i))-1):print"{home}";
  250 printleft$(dn$,x(i,1))x$(i)"{home}";
  260 nexti:er=0:pp=peek(pp):ifpp=86orpp=90orpp=105thener=1
  270 return
  280 print"{home}fuel:"mid$(str$(f),2)"   "
  285 print"{home}"tab(12)"   score:";mid$(str$(s),2)"                 ":return
  290 poke59467,16:poke59466,15:poke59464,0:forj=1to6
  295 poke59464,246:print"{home}{rvon}out of fuel!":fori=1to99:nexti
  300 poke59464,165:print"{home}out of fuel!":fori=1to99:next i,j
  305 poke59464,0:poke59466,0:poke59467,0:for i=1 to 200:next i:lv=0:return
  320 u=0:getc$
  321 ifc$<>""thenpoke59464,81
  325 ifc$=""andpeek(qp)<>255thenc$=d$
  330 d$=c$:poke59464,0
  340 ifc$="4"thenf=f-10:gosub540:ongtgoto400,420
  350 ifc$="6"thenf=f-10:gosub560:ongtgoto400,420
  360 ifc$="5"andy>3thenf=f-50:y=y+ad
  370 pokecr+x+y*wd,32:y=y-ad:a=0:u=1:p=peek(cr+x+y*wd):goto420
  380 ifrnd(1)*30>=lthen400
  381 ky=int(rnd(1)*15+3):kx=int(rnd(1)*39)+1
  382 if ky=9 or ky=12 or ky=16 or kx=x then 400
  385 k=crt+ky*wd+kx
  390 ifpeek(k)=32orpeek(k)=96thenpokek,42
  400 gosub230:iferthen635
  410 f=f-1:gosub280:iff>0then320
  411 gosub290:f=0:goto640
  420 ifp=usorp=32orp=96thenpp=cr+x+y*wd:pokepp,us:onu+1goto370,380
  430 ifp=104thengosub470:goto320
  440 ifp=102thengosub900:gosub520:poke59464,0:goto160
  450 goto635
  470 pokecr+x+y*wd,87:hs=hs+1:poke59464,120
  480 pokecr+21*wd+hs,32
  485 jl=32:jm=190:forjk=cr+21*wd+hs+wdtocr+x+y*wd
  486 pokejk-1,jl:jl=peek(jk):pokejk,81:poke59464,jm:forj=1to30:next:jm=jm-10
  487 poke59464,0:next:us=81:gosub970
  488 pokecr+x+y*wd,us
  490 getc$:ifc$=""thengosub230:gosub850:goto490
  495 poke59464,100:forj=1to40:next
  500 pokecr+x+y*wd,104:y=y-2:ad=-ad:poke59464,0:return
  520 pokess,32:ifdfandus=81thenap=1
  525 ifdf=0thens=s+(ms+1)*10
  530 ifhs=5andap=0thens=s+bn:gosub955
  535 ifhs=5thenhs=0:ap=0:ms=ms+1:ru=0:print"{home}";dn$;"{down}{down}QQQQQ":gosub800
  537 gosub280:fori=1to750:nexti:return
  540 ifx>1thenpokecr+x+y*wd,32:x=x-1:p=peek(cr+x+y*wd):gt=2:return
  550 gt=1:return
  560 ifx<wdthenpokecr+x+y*wd,32:x=x+1:p=peek(cr+x+y*wd):gt=2:return
  570 gt=1:return
  580 l=l+1:onlgosub590,600,610,620
  590 x$(0)="{SHIFT-POUND}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0} {SHIFT-POUND}       {SHIFT-POUND}       {SHIFT-POUND}       {SHIFT-POUND}       ":x(0,0)=4:x(0,1)=12:return
  600 x$(1)="Z     Z     Z     Z     Z     Z    Z    ":x(1,0)=3:x(1,1)=16:return
  610 x$(2)="   V{$a0}   {$a0}V{$a0}   {$a0}V{$a0}   {$a0}V{$a0}   {$a0}V{$a0}  {$a0}{$a0}V   ":x(2,0)=2:x(2,1)=9:return
  620 l=l-1:pokecr+22*wd+16,100:pokecr+22*wd+14,100:return
  635 q=cr+x+int(y)*wd:z=peek(q):poke q,160:print"{home}crash!     "
  636 forj=1to4:print"{home}{rvon}crash!":forj1=1to20:poke59464,255:poke59464,0:nextj1
  637 print"{home}crash!":forj1=1to99:next:next:forj=1to500:next
  638 pokeq,z:df=1:gosub520:df=0
  640 getc$:ifc$<>""then640
  649 lv=lv-1:iflv>0thenpokess,32:goto155
  650 ifs>bsthenbs=s:bf=f
  660 ifms>bmthenbm=ms
  670 iff<0thenf=0
  675 mt=mt+ms:ft=ft+f:nt=nt+1:ts=ts+s:avg=int(ts/nt):fa=int(ft/nt)
  678 avg=int(ts/nt):fa=int(ft/nt):ma=mt/nt:ma=.1*(int(ma*10))
  680 df$="easy":ifsj>1thendf$="average":ifsj=3thendf$="hard"
  685 print"{clr}{down}{down}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}mission control report"
  687 print"{down}{down}{down}    level: "df$
  689 print"{down}"tab(27)"# of
  690 printtab(18)"score";tab(25);"missions"
  692 print"{down}    this game:"tab(19)s;tab(27)ms
  700 ifnt<2then730
  710 print"{down}    best so far:"tab(19)bs;tab(27)bm
  720 print"{down}    average:"tab(19)av;tab(27)ma
  730 print"{down}{down}    try again? ";
  740 gosub60000:ifleft$(in$,1)="n"thenpoke59467,0:poke59466,0:end
  750 print"{clr}":goto110
  800 print"{home}"dn$"{down}{down}{down}{down}mission:"ms"   game:"nt+1" shuttles left:"lv-1;:return
  850 f=f-1:gosub280:fori=1to80:nexti:return
  900 rem sound
  910 forj=100to30step-3:poke59464,j:next:poke59464,0 :return
  950 rem bonus
  955 print"{home}"tab(25)"{rvon}bonus!!!{rvof}"
  960 poke59464,150:forj=1to300:next:poke59464,100:forj=1to300:next:poke59464,50
  965 forj=1to300:next:poke59464,0:return
  970 getz$:ifz$<>""then970
  975 return
 1000 print"{clr}{down}{down}{down}{down}level of difficulty ? "
 1010 print"{down}(1= easy  2= average  3= hard){up}{up}{left}{left}{left}{left}{left}{left}{left}{left}";:gosub60000
 1020 ifval(in$)>0andval(in$)<4then1030
 1025 print:print"{down}{down}{down}i'll assume 2 ":in$="2":forj=1to600:next
 1030 ifin$="1"thenlf=5:sj=1:return
 1040 ifin$="2"thenlf=3:sj=2:return
 1050 ifin$="3"thenlf=1:sj=3:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 qp=515
 60430 ifpeek(50000)=0thenreturn
 60440 qp=151
 60450 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by nick jackiw
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}a space rescue mission!
 62080 print"{down}{down}{down}press {rvon}return{rvof} to continue";
 62085 getin$:ifin$=""then62085
 62090 goto60300
    0 clr:poke59468,12
    1 rem revers! copyright (c) 1979 glen fisher
    2 rem cursor #8, march, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of mar 5 80
   90 pg$="revers!":nm$="8":gosub62000
  100 dimbd(9,9):wh=1:bl=2:mt=0
  110 dimrc(7),cc(7)
  120 fori=0to7:readrc(i),cc(i):nexti
  130 data-1,-1,-1,0,-1,1,0,1
  132 data1,1,1,0,1,-1,0,-1
  140 dimdc(9):fori=1to9:readdc(i):nexti
  150 data6,5,4,7,-1,3,0,1,2
  240 ps$=" QW":pv$=" WQ"
  250 cr$=chr$(13)
  500 dimvl%(7,7),v(4)
  510 v(1)=2:v(2)=3:v(3)=1:v(4)=4
  520 fori=0to7:v=v(abs(3.5-i)+.5)/2
  530 forj=0to7:vl%(i,j)=vl%(i,j)+v:nextj
  540 forj=0to7:vl%(j,i)=vl%(j,i)+v:nextj
  550 nexti
  560 print"how many people are playing?":printtab(9);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{up}";tab(29);
  570 gosub60000
  580 ifin$="0"orin$="1"orin$="2"thennp=val(in$):goto600
  590 ifin$<>""then560
  595 np=1
  600 s$="        ":t$="{SHIFT--}Q{SHIFT--}W{SHIFT--}"
  605 print"{home}";s$;s$;"{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}";s$;"{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}"
  610 prints$;s$;t$;s$;t$
  615 print"start with  (1) {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W} or (2) {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W} ?"
  620 prints$;s$;t$;s$;"{SHIFT--}W{SHIFT--}Q{SHIFT--}"
  625 prints$;s$;"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}";s$;"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}{up}{up}{rght}{rght}{rght}";
  630 gosub60000:ifin$=""thenn=int(rnd(1)*2)+1:goto700
  640 ifin$="1"orin$="2"thenn=val(in$):goto700
  650 print"{down}{down}please answer '1' or '2'.":goto605
  700 fori=1to8:forj=1to8:bd(i,j)=0:nextj,i
  710 bd(4,4)=wh:bd(4,5)=bl
  720 bd(5,4)=n:bd(5,5)=3-n
  900 gosub50000
  910 forr=4to5:forc=4to5:gosub39900
  920 printmid$(ps$,bd(r,c)+1,1):nextc:nextr
  950 lr=3:hr=6:lc=3:hc=6
 1000 m=5
 1010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":print"{down}"
 1020 printtab(7);"Q";tab(32);"W"
 1030 wc=2:bc=2
 1040 print:printtab(6);wc;tab(31);bc
 2000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":ch=0
 2010 t=(mand1):iftthen2100
 2020 printtab(30);"move"
 2025 pl=bl:pl$="W":sc$="{rvon}Q{rvof}{left}"
 2030 onnp+1gosub3500,3500,3000
 2035 ifch>0thenbc=bc+1
 2040 goto2200
 2100 printtab(5);"move"
 2105 pl=wh:pl$="Q":sc$="{rvon}W{rvof}{left}"
 2110 onnp+1gosub3500,3000,3000
 2120 ifch>0thenwc=wc+1
 2200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(5);:if(mand1)=0thenprinttab(30);:ch=-ch
 2210 print"    {down}{down}{down}"
 2220 wc=wc+ch:bc=bc-ch
 2230 printtab(6);wc;"{left} ";tab(31);bc;"{left} "
 2240 ifch=0thensk=sk+1
 2250 ifch<>0thensk=0
 2260 m=m+1
 2300 ifwc+bc=64then2500
 2310 ifsk=2then2500
 2320 ifwc=0orbc=0then2500
 2400 ifr<=lrandlr>1thenlr=r-1
 2410 ifr>=hrandhr<8thenhr=r+1
 2430 ifc<=lcandlc>1thenlc=c-1
 2440 ifc>=hcandhc<8thenhc=c+1
 2450 goto2000
 2500 print"{home}the game is over."
 2510 ifwc=bcthenprint"{down}it was a tie game.":goto2600
 2520 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(4);:ifbc>wcthenprinttab(29);
 2530 print"winner"
 2600 print"{home}{down}want to play again? ";:gosub60000
 2610 in$=left$(in$,1):ifin$<>"n"then600
 2620 end
 3000 r=1:c=1:gosub39900
 3010 rv=1:tm=0
 3100 t=abs(bd(r,c))+1:pr$="{rvon}"+mid$(pv$,t,1)+"{rvof}"+mid$(ps$,t,1)
 3110 rv=1:tm=0
 3120 ifti>tmthenprintmid$(pr$,rv,2);"{left}";:rv=4-rv:tm=ti+30
 3130 gett$:ift$=""then3120
 3140 printright$(pr$,2);"{left}";
 3150 ift$>="1"andt$<="9"then3200
 3160 ift$=chr$(13)then3400
 3170 ift$=chr$(141)thench=0:return
 3180 goto3120
 3200 dr=dc(val(t$)):ifdr<0then3120
 3220 r=r+rc(dr):c=c+cc(dr)
 3230 ifr<1thenr=8
 3240 ifr>8thenr=1
 3250 ifc<1thenc=8
 3260 ifc>8thenc=1
 3270 gosub39900:goto3100
 3300 printsc$;"{left}";:gosub38000:gosub39900:goto3100
 3400 ifbd(r,c)<>mtthen3120
 3410 gosub38200:ifch=0thengosub39900:print" {left}";:bd(r,c)=mt:goto3120
 3420 return
 3500 ch=0:rm=0:cm=0:mc=-1:o=0
 3510 forr=lrtohr
 3520 forc=lctohc
 3530 ifbd(r,c)<>mtthen3610
 3540 gosub39900:printsc$;
 3550 gosub38000
 3560 ifch>0thench=ch+vl%(r-1,c-1)
 3570 ifch=mctheno=o+1:ifrnd(1)<1/othenrm=r:cm=c
 3590 ifch>mcthenrm=r:cm=c:mc=ch
 3600 print" {left}";
 3610 nextc
 3620 nextr
 3800 ifmc>0thenr=rm:c=cm:gosub38200
 3900 return
 38000 ch=0:ford=0to7
 38010 rc=rc(d):cc=cc(d)
 38020 gosub39000:ifn>0thench=ch+n
 38030 nextd
 38040 return
 38200 gosub39900:bd(r,c)=pl:printpl$;"{left}";
 38210 ch=0:ford=0to7
 38220 rc=rc(d):cc=cc(d)
 38230 gosub39000:gosub39100:ifn>0thench=ch+n
 38240 gosub39900:nextd
 38250 return
 38300 gosub39900:bd(r,c)=pl:printpl$;"{left}";
 38310 ford=0to7
 38320 rc=rc(d):cc=cc(d)
 38330 n=oe(d):gosub39400
 38340 gosub39900:nextd
 38350 return
 39000 r0=r:c0=c:rem count
 39010 fori=1to8
 39020 r0=r0+rc:c0=c0+cc:bd=bd(r0,c0)
 39030 ifbd=plthenn=i-1:return
 39040 ifbd=mtthen39070
 39050 nexti
 39070 n=-1:return
 39090 :
 39100 r0=r:c0=c:ifn<1thenreturn
 39110 fori=1ton:rem flip
 39120 r=r+rc:c=c+cc
 39130 bd(r,c)=3-bd(r,c)
 39135 gosub39900:printpl$
 39136 poke59467,16:poke59466,15:poke59464,16
 39137 poke59464,0:poke59466,0:poke59467,0
 39140 nexti:r=r0:c=c0:return
 39190 :
 39900 print"{home}"
 39910 printleft$("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",2+r+r);
 39920 printleft$("{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}",10+c+c);
 39930 return
 50000 print"{clr}{down}{down}{down}":tb=11
 50010 printtab(tb);"{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}"
 50020 t$="{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}":printtab(tb);t$
 50030 fori=1to7:printtab(tb);"{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}":printtab(tb);t$:nexti
 50040 printtab(tb);"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}"
 50050 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60260
 60210 gosub60500:print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:":goto60240
 60230 print"continue:"
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}":goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$," (c) 1979 page ";pn
 60270 gosub60500:return
 60500 for i=1to10:print"DDDD";:next i:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #13  revers!"
 62005 print"{down}copyright (c)  1979  by glen fisher
 62010 gosub 60500
 62015 print"the game of reversi: you against the pet
 62016 print"or another player.
 62020 print"{down}want directions? ";:gosub60000
 62030 in$=left$(in$,1):ifin$="y"then62100
 62040 print"{clr}":goto100
 62100 lp=1:gosub60200
 62110 print"the game of reversi dates back to the
 62120 print"1800's in england. the object is to
 62130 print"own the most pieces at the end of the
 62140 print"game.
 62150 print"{down}to move, use the numeric pad to 7 8 9
 62160 print"move the cursor around.  when    \{SHIFT--}/
 62170 print"the cursor is where you want to 4{SHIFT-*}{rvon}5{rvof}{SHIFT-*}6
 62180 print"move, press {rvon}return{rvof}. if the move  /{SHIFT--}\
 62190 print"is illegal, the cursor will re- 1 2 3
 62200 print"appear, and you will have to
 62210 print"move somewhere else.  if you have no
 62220 print"move at all, press{$a0}{rvon}shift-return{rvof}."
 62230 print"{down}while the machine is choosing its move,
 62240 print"you will see it scanning the board to
 62250 print"find its best move."
 62300 gosub60200
    0 rem
    1 rem reverse
    2 rem
    3 rem arrange digits 1-9 in correct           sequence by reversing
    4 rem
    5 rem 8k pet
    6 rem
    7 rem unknown author
    8 rem
    9 rem adapted by h. hungate
   11 rem
   12 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}         {SHIFT--}{$a0}      san mateo county     {$a0}{SHIFT--}
   13 rem"{SHIFT--}     office of education     {SHIFT--}         {SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}         {SHIFT--}          softswap           {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}         {SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}333 main street, redwood city{SHIFT--}         {SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   17 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}         {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   18 rem"{SHIFT--} programs may be copied for  {SHIFT--}         {SHIFT--} educational use & may not be{SHIFT--}
   19 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}         {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  100 poke59468,12
  110 fori=1to10:readlc$(i):next
  111 print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}                       {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  112 print"{rght}{rght}{rght}{rght}{rght}welcome to the game of {rvon}reverse{rvof}
  115 print"{down}{down}would you like  instructions?  (y/n) ";
  116 gosub 850
  117 if a$<>"y" then 370
  120 gosub980
  130 print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}reverse{rvof}{up}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-H}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}"
  140 print"{rght}{down}in this game you are given a list of"
  150 print"{down}{rght}the numbers 1-9 in random sequence."
  160 print"{down}{rght}for example, you might get this list:"
  170 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{inst}{rvon}2 3 4 5 1 6 7 8 9"
  180 print"{down}{rght}to win this game you must arrange the"
  190 print"{rght}{down}list so that it looks like this:"
  200 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{inst}{rvon}1 2 3 4 5 6 7 8 9"
  210 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}type anything to continue ";
  220 gosub950
  230 gosub 980
  240 print"{home}{down}{rght}{rght}you can change the order of the"
  250 print"{down}{rght}{rght}numbers only by reversing them from"
  260 print"{down}{rght}{rght}the left end. in our example,"
  270 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{inst}{rvon}2 3 4 5 1 6 7 8 9"
  280 print"{rght}{rght}{down}by typing '4' you will reverse the"
  281 print"{rght}{rght}{down}four numbers on the left, and get:"
  290 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-H}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{inst}{rvon}5 4 3 2 1 6 7 8 9"
  300 print"{down}{rght}{rght}now if you reverse 5 you will win:"
  310 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{inst}{rvon}1 2 3 4 5 6 7 8 9"
  320 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}type anything to continue ";
  330 gosub950
  335 gosub 980
  336 print"{home}{down}{down}{rght}{rght}do not use the {rvon}return{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} key after you"
  337 print"{rght}{rght}tell me how many to reverse."
  340 print"{down}{down}{down}{rght}{rght}to quit the game type a letter when
  350 print"{down}{rght}{rght}asked 'number to reverse?'
  360 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}type anything to begin ";:gosub950
  370 print"{clr}here we go ... the list is:":print
  375 a(1)=int((n-1)*rnd(1)+2)
  380 fork=2to9
  390 a(k)=int(9*rnd(1)+1)
  400 forj=1tok-1
  410 ifa(k)=a(j)thenj=k-1:nextj:goto390
  420 nextj,k
  450 t=0
  460 print"{clr}{rvon}                                        ";
  470 fori=1to8:print"{rvon} {down}{left}{left} ";:next
  480 print"{rvon}                                        "
  490 print"{home}";:r=9:gosub760
  500 print:print"how many shall i reverse?  "
  505 print"{down}{down}{down}{down}{down}{down}{down}{down}     (type a letter to quit){up}{up}{up}{up}{up}{up}{up}{up}{up}{left}{left}";
  510 gosub950
  520 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$
  530 r=val(a$)
  540 ifr=0then740
  550 t=t+1
  560 rem *** reverse r numbers and print new list
  570 fork=1toint(r/2)
  580 z=a(k)
  590 a(k)=a(r-k+1)
  600 a(r-k+1)=z
  610 nextk
  620 gosub760
  630 rem *** check for a win
  640 fork=1to9
  650 ifa(k)<>kthen500
  660 nextk
  670 print"{down}                          {up}{up}"
  680 print"{down}   you won in ";t;" moves!     "
  690 print"{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}do you want to play again (y/n)? ";
  700 gosub950
  710 printa$
  720 ifa$<>"n"then380
  730 print"{clr}":end
  740 print"{down}are you quitting?  (y/n)";:gosub950:ifa$="y"then730
  750 goto460
  760 rem *** subroutine print list a(1) to a(n)
  770 print"{home}{down}{down}{rght}{rght}";
  780 forj=1tor:print lc$(10);:next
  790 print"{home}{down}{down}{rght}{rght}";
  800 fork=1tor
  810 printlc$(a(k));
  820 nextk
  830 print:print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}1   2   3   4   5   6   7   8   9
  840 return
  850 data"{rght}{rvon}{SHIFT-POUND} {down}{left} {down}{left} {down}{left} {down}{left}{left}   {up}{up}{up}{up}"
  860 data"{rght}{rvon}{SHIFT-POUND} {CBM-*}{down}{left} {down}{left}{left}{left}{SHIFT-POUND} {rvof}{SHIFT-POUND}{down}{left}{left}{left}{rvon} {down}{left}   {up}{up}{up}{up}"
  870 data"{rght}{rvon}{SHIFT-POUND} {CBM-*}{down}{left} {down}{left}{left}  {down}{left}{left}{left}{rvof}{CBM-I} {rvon} {down}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{up}{up}{up}"
  880 data"{rght}{rvon}{rght}{rght}{SHIFT-POUND}{down}{left}{left}{SHIFT-POUND} {down}{left}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} {down}{left}{left}{left}   {down}{left} {up}{up}{up}{up}"
  890 data"{rght}{rvon}   {down}{left}{left}{left} {down}{left}{rvof}{CBM-*}{rvon} {CBM-*}{down}{left}{left}{left}{rvof}{CBM-I}{rght}{rvon} {down}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{up}{up}{up}"
  900 data"{rght}{rvon}{SHIFT-POUND} {CBM-*}{down}{left}{left}{left} {rght}{CBM-I}{down}{left}{left}{left}  {CBM-*}{down}{left}{left}{left} {rght} {down}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{up}{up}{up}"
  910 data"{rght}{rvon}   {down}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}{down}{left}{left}{rvon} {down}{left} {down}{left} {rght}{up}{up}{up}{up}"
  920 data"{rght}{rvon}{SHIFT-POUND} {CBM-*}{down}{left}{left}{left} {rght} {down}{left}{left}{left}   {down}{left}{left}{left} {rght} {down}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{up}{up}{up}"
  930 data"{rght}{rvon}{SHIFT-POUND} {CBM-*}{down}{left}{left}{left} {rght} {down}{left}{left}{left}{rvof}{CBM-*}{rvon}  {down}{left}{left}{left}{rvof}{CBM-I}{rvon}{rght} {down}{left}{left}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{up}{up}{up}"
  940 data"{rvof}{rght}   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}   {up}{up}{up}{up}"
  950 fori=1to10:geta$:next
  960 print"{rvon} {rvof}{left}";:fori=1to100:next:print" {left}";:fori=1to100:next:geta$:ifa$=""then960
  970 return
  980 rem subroutine for screen square
  990 print"{clr}O";:fori=1to38:print"{CBM-T}";:next:print"P";
 1000 fori=1to23:print"{CBM-G}{down}{left}{left}{CBM-M}";:next:print"L";
 1010 fori=1to38:print"{CBM-@}";:next:poke33767,122
 1020 return
    0 print"{clr}"
    5 gosub400
   10 print"{clr}"
   20 fori=1to9
   30 c(i)=int(rnd(ti)*9)+1
   40 forb=1toi:ifb=ithen60
   50 ifc(i)=c(b)then30
   60 next
   70 next
  100 b=0
  110 printtab(10);
  120 forz=1to9
  130 printc(z);
  140 next:print
  150 print"{rvon}position   1  2  3  4  5  6  7  8  9"
  155 input"{home}{up}{up}Position to reverse to:               {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";j
  160 ifj<1orj>9then180
  170 goto200
  180 print"{up}";
  190 goto150
  200 k=(j+1)/2
  210 fori=1tok
  220 a=c(i):c(i)=c(j+1-i):c(j+1-i)=a
  230 next
  240 b=b+1
  250 fori=1to9
  260 ifc(i)<>ithen110
  270 next
  275 print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}1  2  3  4  5  6  7  8  9"
  280 print"{down}{down}{down}NO.OF{$a0}GOES{$a0}TAKEN = ";b
  290 print"{down}{down}{rght}DO{$a0}YOU{$a0}WANT{$a0}ANOTHER{$a0}GO";
  300 inputa$
  310 ifleft$(a$,1)="y"then10
  315 poke59468,12
  316 print"{clr}"
  320 end
  400 poke59468,14
  410 print"      RULES{$a0}FOR{$a0}REVERSI."
  415 print"      {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
  420 print"{down}{down}{down}{rght}{rght}THE{$a0}OBJECT{$a0}OF{$a0}THIS{$a0}GAME{$a0}IS{$a0}TO{$a0}PUT{$a0}A{$a0}  {$a0}SERIES{$a0}OF{$a0}NUMBERS{$a0}INTO ORDER
  430 print"{down}{rght}  THIS{$a0}IS{$a0}DONE{$a0}BY{$a0}REVERSING{$a0}SOME{$a0}OF{$a0}THE{$a0}{$a0}{$a0}{$a0}{$a0}NUMBERS."
  440 print"{down}TO{$a0}REVERSE{$a0}THE{$a0}NUMBERS{$a0}TYPE{$a0}THE POSITION{$a0}OF{$a0}ONE{$a0}AS{$a0}SHOWN ";
  450 print"ON{$a0}THE{$a0}SCALE BELOW{$a0}THE{$a0}NUMBERS."
  460 print"{down}THE{$a0}NUMBERS{$a0}UP{$a0}TO{$a0}THAT{$a0}ONE{$a0}WILL{$a0}THEN{$a0}{$a0}{$a0}{$a0}{$a0}BE{$a0}IN{$a0}REVERSE{$a0}ORDER.
  480 print"{down}{down}{down}{down}{down}        PRESS{$a0}A{$a0}KEY{$a0}TO START:"
  490 geta$:ifa$=""then490
  500 goto10
   50 rem reversi von seizmair w.
   60 rem fuer pet 2001-8c
   70 rem speicherbedarf 7k byte
  120 dima(9,9),j4(8),c$(8),d$(2)
  134 print"{clr}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  135 print"{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}
  136 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  140 print"AAAAA    ***    reversi    ***    AAAAA
  141 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  142 print"{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}{CBM--}
  145 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  150 print"spielanleitung ? (j oder n)"
  155 ay=0
  160 get a$:ifa$=""then160
  170 ifa$="n"then370
  180 ifa$<>"j"then150
  185 print"{clr}"
  200 print"reversi wird auf einem brett mit 8*8    feldern gespielt"
  210 print"das brett ist mit a-h und 1-8 benannt."
  220 print"bei beginn sind 4 steine in der mitte"
  240 print"die steine liegen:"
  250 print"           W Q"
  260 print"           Q W"
  280 print"lege nun deinen stein so,dass er gegne-"
  290 print"rische steine,waagrecht,senkecht oder   vertikal,einschliesst.
  300 print"die eingeschlossenen steine werden zu eigenen steinen."
  310 print"werden durch einen stein mehrere reihen"
  320 print"geschlossen,werden alle steine gewertet"
  321 print
  322 print"sollte es dir nicht moeglich sein zu    setzen, so gib '0' '0' ein.
  330 print
  340 print"niemals die return-taste druecken !!!"
  370 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  390 print"soll ich mit dem weiterspielen warten"
  392 print
  400 f2=0
  410 print"( j oder n) ?"
  415 getb$:ifb$=""then415
  420 ifb$="n"then460
  430 ifb$<>"j"then410
  440 f2=1
  445 print
  450 print"ich spiele weiter wenn du es wuenschst."
  460 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  465 print"soll ich mein bestes geben (j od. n) ?"
  467 getc$:ifc$=""then467
  468 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  470 s2=0
  490 ifc$="n"then520
  500 ifc$<>"j"thenprint"{clr}":goto465
  510 s2=2
  520 b=-1
  530 w=+1
  540 d$(b+1)="Q"
  550 d$(o+1)="."
  560 d$(w+1)="W"
  570 fork=1to8
  580 readi4(k)
  590 nextk
  600 data0,-1,-1,-1,0,1,1,1
  610 fork=1to8
  620 readj4(k)
  630 nextk
  640 data1,1,0,-1,-1,-1,0,1
  650 fork=1to8
  660 readc$(k)
  670 nextk
  680 dataa,b,c,d,e,f,g,h
  700 fori=0to9
  710 forj=0to9
  720 a(i,j)=0
  730 nextj
  740 nexti
  750 a(4,4)=w
  760 a(5,5)=w
  770 a(4,5)=b
  780 a(5,4)=b
  790 c1=2
  800 h1=2
  810 n1=4
  820 z=0
  830 print"{clr}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  845 print"wuenschst du 'Q' oder 'W' ?"
  846 gete$:ife$=""then 846
  847 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  850 c=w
  860 h=b
  870 print"{up}{up}{up}"tab(30)e$
  880 ife$="Q"then920
  890 ife$<>"W"then845
  900 c=b
  910 h=w
  920 print"{down}{down}moechtest du beginnen  (j oder n> ?"
  925 getf$:if f$=""then925
  930 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  940 iff$="n"then1020
  950 iff$<>"j"then920
  955 print"{clr}"
  970 gosub3100
  980 goto1690
 1000 iff2=0then1020
 1010 print"wenn weiter dann (j) "
 1015 getk$:ifk$=""then1015
 1018 ifk$<>"j"then1010
 1020 b1=-1:aa=2:
 1030 i3=j3=0
 1040 t1=c
 1050 t2=h
 1060 rem
 1070 forj=1to8
 1080 fori=1to8
 1082 q=q+1
 1090 ifa(i,j)<>0then1380
 1120 gosub2620
 1130 iff1=0then1380
 1170 u=-1
 1180 gosub2820
 1200 ifs1=0then1380
 1210 if(i-1)*(i-8)<>0then1230
 1220 s1=s1+s2
 1230 if(j-1)*(j-8)<>0then1260
 1240 s1=s1+s2
 1260 ifs1<b1then1380
 1270 ifs1>b1then1340
 1310 r=rnd(1)
 1320 ifr>0.5then1380
 1340 b1=s1
 1350 i3=i
 1360 j3=j
 1380 nexti
 1390 nextj
 1410 ifb1>0then1480
 1430 print"ich kann nicht ziehen !!
 1435 print
 1440 ifz=1then2190
 1450 z=1
 1460 goto1690
 1480 z=0
 1490 print"ich setze {CBM-J}"c$(j3);i3"{CBM-J} und nehme{CBM-L}   {CBM-J} stk."
 1530 i=i3
 1540 j=j3
 1550 u=1
 1560 gosub2820
 1570 c1=c1+s1+1
 1580 h1=h1-s1
 1590 n1=n1+1
 1600 print"{up}"tab(27)s1
 1635 u=2
 1640 gosub3100
 1660 ifh1=0then2190
 1670 ifn1=64then2190
 1690 t1=h
 1700 t2=c
 1720 print"wo setzt du (reihe,spalte) ?"
 1725 getx$:ifx$=""then1725
 1727 gety$:ify$=""then1727
 1728 i=val(y$)
 1729 print"{up}"tab(30)x$;y$
 1730 ify$<"0"then1720
 1740 ify$>"8"then1720
 1750 ify$<>"0"then1820
 1755 print
 1760 print"kannst du setzen (j oder n)"
 1765 get g$:if g$="" then 1765
 1770 print
 1775 ifg$="j"then1720
 1780 ifg$<>"n"then1760
 1790 ifz=1then2190
 1800 z=1
 1810 goto1000
 1820 forj=1to8
 1830 ifc$(j)=x$then1870
 1840 nextj
 1850 goto1720
 1870 ifa(i,j)=0then1910
 1880 print
 1882 print"dieses feld ist besetzt !"
 1885 print
 1890 goto1720
 1910 gosub2620
 1920 iff1=1then1970
 1930 print
 1935 print"du bist nicht neben meinem stueck !
 1940 print
 1970 u=-1
 1980 gosub2820
 1990 ifs1>0then2030
 2000 print
 2002 print"du kannst keinen stein nehmen !"
 2005 print
 2010 goto1720
 2030 z=0
 2035 print"{clr}"
 2040 print"du bekommst {CBM-L}"s1"{CBM-J} stk. von mir. ("x$;y$")"
 2070 u=1
 2080 gosub2820
 2090 h1=h1+s1+1
 2100 c1=c1-s1
 2110 n1= n1+1
 2125 u=1
 2130 gosub3100
 2150 ifc1=0then2190
 2160 if   n1=64then2190
 2170 goto1000
 2190 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 2200 print"du hast {CBM-L}"h1"{CBM-J} und ich habe {CBM-L}"c1"{CBM-J} ."
 2210 fori=1to2:z(i)=int(z(i)/60):next
 2220 print
 2230 print"deine zeit:"z(1)"min  / meine zeit:"z(2)"min"
 2240 print
 2250 ifh1=c1then2290
 2260 ifh1>c1then2310
 2270 print"dieses spiel habe ich gewonnen"
 2280 goto2320
 2290 print"dieses spiel ist unentschieden"
 2300 goto2500
 2310 print"dieses spiel hast du gewonnen"
 2320 c1=c1-h1
 2330 ifc1>0then2350
 2340 c1=-c1
 2350 c1=(64*c1)/n1
 2360 print
 2370 ifc1<11then2490
 2380 ifc1<25then2470
 2390 ifc1<39then2450
 2400 ifc1<53then2430
 2410 print"das war ein perfektes spiel."
 2420 goto2500
 2430 print"das war ein sehr gutes spiel."
 2440 goto2500
 2450 print"das war ein harter kampf."
 2460 goto2500
 2470 print"das war ein maessiges spiel."
 2480 goto2500
 2490 print"anfaenger"
 2500 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 2510 print"wuenschst du noch ein spiel (j oder n) ?"
 2520 geth$:ifh$=""then2520
 2530 ifh$="j"then3220
 2540 ifh$<>"n"then2510
 2545 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 2547 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 2550 print"vielen dank fuer das schoene spiel !!!!"
 2552 print
 2555 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 2557 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 2560 end
 2620 fori1=-1to1
 2630 forj1=-1to1
 2640 ifa(i+i1,j+j1)=t2then2710
 2650 nextj1
 2660 nexti1
 2680 f1=0
 2690 return
 2710 f1=1
 2720 return
 2820 s1=0
 2830 fork=1to8
 2840 i5=i4(k)
 2850 j5=j4(k)
 2860 i6=i+i5
 2870 j6=j+j5
 2880 s3=0
 2890 ifa(i6,j6)<>t2then3070
 2910 s3=s3+1
 2920 i6=i6+i5
 2930 j6=j6+j5
 2940 ifa(i6,j6)=t1then2970
 2950 ifa(i6,j6)=0then3070
 2960 goto2910
 2970 s1=s1+s3
 2980 ifu<>1then3070
 3000 i6=i
 3010 j6=j
 3020 fork1=0tos3
 3030 a(i6,j6)=t1
 3040 i6=i6+i5
 3050 j6=j6+j5
 3060 nextk1
 3070 nextk
 3080 return
 3100 ay=ay+1:aa=aa+1:ifaa=1then3110
 3102 ifay=1then3105
 3104 z=int((ti-t)/60-1)
 3105 print
 3110 print"    a b c d e f g h"
 3120 fori=1to8
 3130 printi;
 3140 forj=1to8
 3150 print" ";
 3160 printd$(a(i,j)+1);
 3170 nextj
 3180 print
 3185 print"{up}"tab(20)i
 3190 nexti
 3192 print"{up}{up}{up}{up}{up}{up}{up}{up}"tab(26)"zugzeit"
 3195 print"{down}":ifaa>1thenprinttab(25)z"s"
 3200 print"{down}{down}{down}{down}":ifaa=1thenprint
 3205 t=ti
 3208 z(u)=z(u)+z
 3210 return
 3220 run145
 3230 end
    1 rem"{del}{del}{del}{del}{del}{del}{del}sA"@0:reversi",8
   30 fori=1to39:e$=e$+" ":next
   40 fori=1to39:e$=e$+"{left}":next
   50 n$="12345678"
   60 d$="{home}"
   70 fori=1to20:d$=d$+"{down}":next
  120 dima(9,9),i4(7),j4(7),d$(2)
  140 print"{clr}guten tag."
  150 print"{down}kennst du das spiel?";
  160 gosub6000:ifx$="j"thenprint"{rvon}ja":goto500
  170 print"{rvon}nein"
  200 print"{down}{rvon}reversi wird auf einem 8 x 8 feld,"
  210 print"gespielt."
  220 print"man muss immer versuchen,steine des"
  230 print"gegenspielers einzugrenzen.hat man"
  240 print"horizontal,vertikal oder diagonal"
  250 print"steine des gegeners durch zwei eigene"
  260 print"begrenzt,werden es alles eigene steine"
  270 print
  280 print"   {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  290 print"      {SHIFT--} W {SHIFT--} W {SHIFT--} W {SHIFT--} W {SHIFT--} Q"
  300 print"   {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
  310 print"beispiel:weiss begrenzt schwarz"
  320 print"bekommt so 4 schwarze steine."
  325 print"{up}{up}{up}{up}{rght}{rght}{rght}{rght}";
  330 fori=1to30
  335 print"Q{left}";:forl=1to200:next
  340 print" {left}";:forl=1to200:next
  345 next
  350 print"Q {SHIFT--}{$a0}Q {SHIFT--} Q {SHIFT--} Q {SHIFT--} Q{down}{down}{down}{down}"
  360 print"gib deinen zug an,indem du reihe und"
  370 print"spalte  durch buchstaben und ziffer"
  400 print"angibst,wohin du setzen willst."
  410 f2=3
  420 print"wenn du nicht ziehen moechtest,gib"
  430 print"{rvon}0{rvof} {rvon}a{rvof} ein."
  440 print
  500 b=-1:w=1
  540 d$(b+1)="W":n$(b+1)="schwarz"
  550 d$(0+1)=" "
  560 d$(w+1)="Q":n$(w+1)="{rvon}weiss"
  570 fork=0to7
  580 readi4(k),j4(k)
  590 next
  700 fori=0to9:forj=0to9
  720 a(i,j)=0
  730 nextj,i
  750 a(4,4)=w:a(5,5)=w
  770 a(4,5)=b:a(5,4)=b
  790 bc=2:wc=bc:n1=4:z=0:f2=1:s2=0:s4=0:s5=0
  800 print"{down}willst du gegen mich spielen?";
  810 gosub6000:ifx$="n"thenprint"{rvon}nein":goto970
  820 print"{rvon}ja":f2=3
  860 print"{down}soll ich mich anstrengen?";
  870 gosub6000:ifx$="n"thenprint"{rvon}nein{rvof}":goto920
  880 print"{rvon}ja{rvof}"
  910 s2=2:s4=1:s5=-2
  920 print"{down}{down}schwarz zieht zuerst."
  930 print"{down}willst du schwarz oder weiss{rvof} ? ";
  940 gosub6000:ifx$<>"w"thenprintn$(0):goto970
  950 printn$(2):f2=2
  970 print"{clr}";:gosub3100
  980 iff2=2thenprint"ok, ich ueberlege!"
 1000 t1=b:t2=w
 1200 on f2 gosub 8000,9000,8000
 1250 ifz=1then1660
 1570 bc=bc+s1+1
 1580 wc=wc-s1
 1590 n1=n1+1
 1640 gosub3100
 1660 ifwc=0orn1=64orz<0then2190
 2000 t1=w:t2=b
 2050 on f2 gosub 8000,8000,9000
 2060 ifz=1then2150
 2090 wc=wc+s1+1
 2100 bc=bc-s1
 2110 n1=n1+1
 2130 gosub3100
 2150 ifbc=0orn1=64orz<0then2190
 2170 goto1000
 2190 printd$;e$:printe$:printe$
 2200 printd$;e$"schwarz hat"bc"und {rvon}weiss hat"wc"steine.{down}"
 2250 ifbc=wcthen2290
 2260 ifbc>wcthen2310
 2270 print"QQQQQQ {rvon}weiss{rvof}";
 2280 goto2320
 2290 print"unentschieden!"
 2300 goto2500
 2310 print"{rvon}QQQQQQ{rvof} schwarz";
 2320 print" gewinnt !":bc=bc-wc
 2330 ifbc>0then2350
 2340 bc=-bc
 2350 bc=(64*bc)/n1
 2360 print"das war ein ";
 2370 ifbc<11then2490
 2380 ifbc<25then2470
 2390 ifbc<39then2450
 2400 ifbc<53then2430
 2410 print"super-spiel."
 2420 goto2500
 2430 print"walkaway."
 2440 goto2500
 2450 print"kampf."
 2460 goto2500
 2470 print"heisses spiel!"
 2480 goto2500
 2490 print"squeaker !"
 2500 print"noch ein spiel?";
 2520 gosub6000:ifx$="j"thenprint"{rvon}ja":goto700
 2530 print"{rvon}nein"
 2550 print"danke fuers spiel."
 2560 load"start",8
 2620 f1=0
 2625 fori1=-1to1
 2630 forj1=-1to1
 2640 ifa(i+i1,j+j1)=t2then2710
 2650 nextj1,i1
 2690 return
 2710 f1=1
 2720 return
 2820 s1=0
 2830 fork=0to7
 2840 i5=i4(k)
 2850 j5=j4(k)
 2860 i6=i+i5
 2870 j6=j+j5
 2880 s3=0
 2890 ifa(i6,j6)<>t2then3070
 2910 s3=s3+1
 2920 i6=i6+i5
 2930 j6=j6+j5
 2940 ifa(i6,j6)=t1then2970
 2950 ifa(i6,j6)=0 then3070
 2960 goto2910
 2970 s1=s1+s3
 2980 ifu<>1then3070
 3000 i6=i
 3010 j6=j
 3020 fork1=0tos3
 3030 a(i6,j6)=t1
 3040 i6=i6+i5
 3050 j6=j6+j5
 3060 nextk1
 3070 nextk
 3080 return
 3100 print"{home}             {rvon}   reversi   {rvof}           "
 3110 x$="   {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 3115 printe$
 3120 print"     a   b   c   d   e   f   g   h    "
 3130 print"   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 3140 fori=1to8
 3150 print" "mid$(n$,i,1)" {SHIFT--} ";
 3160 forj=1to8
 3170 printd$(a(i,j)+1)" {SHIFT--} ";
 3180 nextj
 3190 print:ifi<>8thenprintx$
 3210 nexti
 3220 print"   {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 3230 return
 4000 rem input subroutine
 4020 i=-1:j=i
 4100 fork=1to2
 4110 gosub6000
 4120 g=asc(x$)
 4130 if47<gandg<58theni=g-48:goto4170
 4140 if64<gandg<74thenj=g-64:goto4170
 4170 print"{rvon}"x$"{rvof} ";:next:return
 5000 rem blink move
 5010 printleft$(d$,2*(i-1)+5);spc(4*(j-1)+5);
 5030 x$=d$(t1+1)
 5040 fork=1to5
 5050 print" {left}";:forl=1to200:next
 5060 printx$"{left}";:forl=1to200:next
 5070 next:return
 6000 rem input with cursur
 6010 forl=0to9:getx$:next
 6020 getx$:ifx$<>""thenreturn
 6030 print"{CBM-+}{left}";:forl=1to100:next
 6040 print" {left}";:forl=1to100:next
 6050 goto6020
 7900 printd$"{down}"e$"unmoeglich.eingabe {rvon}0{rvof}-{rvon}8{rvof} und {rvon}a{rvof}-{rvon}h{rvof}"
 8000 rem move input subroutine
 8020 printd$;e$"eingabe:"n$(t1+1)"{rvof} zieht --   ";
 8030 gosub4000
 8040 ifi<0orj<0ori>8orj>8then7900
 8060 ifi<>0then8200
 8080 printd$;e$"{rvof} verzichtest du?";
 8100 gosub6000:ifx$<>"j"thenprint"{rvon}nein":goto8020
 8120 print"{rvon}ja"
 8140 ifz=1thenz=-z:return
 8160 z=1:return
 8200 if a(i,j)=0then8300
 8220 printd$"{down}"e$"feld besetzt! "n$(a(i,j)+1)
 8240 goto8400
 8300 gosub2620
 8320 iff1=1then8360
 8340 printd$"{down}"e$"grenzt kuinu steine von  "n$(t2+1)"{rvof} ein"
 8350 goto8400
 8360 u=-1
 8370 gosub2820
 8380 ifs1>0then8600
 8390 printd$"{down}"e$"grenzt nicht an"n$(t2+1)
 8400 printe$:goto8020
 8600 goto9730
 9000 rem computer decides move
 9010 b1=-1:i3=0:j3=0
 9020 fori=1to8:forj=1to8
 9040 if a(i,j)<>0then9500
 9060 gosub2620
 9080 iff1=0then9500
 9100 u=-1
 9120 gosub2820
 9140 ifs1=0then9500
 9200 if(i=1)or(i=8)thens1=s1+s2
 9210 if(j=1)or(j=8)thens1=s1+s2
 9220 if(i=2)or(i=7)thens1=s1+s5
 9230 if(j=2)or(j=7)thens1=s1+s5
 9240 if(i=3)or(i=6)thens1=s1+s4
 9250 if(j=3)or(j=6)thens1=s1+s4
 9300 ifs1<b1then9500
 9320 ifs1>b1then9400
 9340 ifrnd(1)>0.5then9500
 9400 b1=s1:i3=i:j3=j
 9500 nextj,i
 9520 ifb1>0then9700
 9540 ifs5=0then9600
 9560 s5=0:goto9000
 9600 printd$"{down}"e$n$(t1+1)"{rvof} verzichtet"
 9620 ifz=1thenz=-z:return
 9640 z=1:return
 9700 i=i3:j=j3
 9730 printd$"{down}"e$;n$(t1+1)"{rvof} zieht nach {rvon}"chr$(i+48)"{rvof} {rvon}"chr$(j+64)
 9750 gosub5000
 9800 z=0:u=1:gosub2820
 9840 printd$"{down}{down}"e$;n$(t1+1)"{rvof} gewinnt"s1"{left} stein";:ifs1>1thenprint"e";
 9850 print" von "n$(t2+1)"{rvof}"
 9900 return
 60000 data 0,1,-1,1,-1,0,-1,-1,0,-1,1,-1,1,0,1,1
    1 rem dsave"@rnd test",d0
    2 rem volker berlipp  19.2.82
   40 print"{clr}";
   50 ti$="000000":t=0:     rem
  100 r=int(rnd(1)*10+1):d=d+1:d1=int(d/10)
  110 print"{home}";ti$ :ifmid$(ti$,3,2)="00"andt=0thent=1:gosub20000
  115 ifmid$(ti$,3,2)="01"thent=0
  120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}d: ";(r0+r1+r2+r3+r4+r5+r6+r7+r8+r9)/10,d1
  200 on r goto 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000
  300 goto100
 1000 r1=r1+1:print"{home}{down}{down}1: ";r1"  "tab(20)r1-d1"  ":goto100
 2000 r2=r2+1:print"{home}{down}{down}{down}2: ";r2"{$a0}{$a0}"tab(20)r2-d1"  ":goto100
 3000 r3=r3+1:print"{home}{down}{down}{down}{down}3: ";r3"{$a0}{$a0}"tab(20)r3-d1"{$a0}{$a0}":goto100
 4000 r4=r4+1:print"{home}{down}{down}{down}{down}{down}4: ";r4"{$a0}{$a0}"tab(20)r4-d1"{$a0}{$a0}":goto100
 5000 r5=r5+1:print"{home}{down}{down}{down}{down}{down}{down}5: ";r5"{$a0}{$a0}"tab(20)r5-d1"{$a0}{$a0}":goto100
 6000 r6=r6+1:print"{home}{down}{down}{down}{down}{down}{down}{down}6: ";r6"  "tab(20)r6-d1"{$a0}{$a0}":goto100
 7000 r7=r7+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}7: ";r7"  "tab(20)r7-d1"  ":goto100
 8000 r8=r8+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}8: ";r8"  "tab(20)r8-d1"{$a0}{$a0}":goto100
 9000 r9=r9+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}9: ";r9"  "tab(20)r9-d1"{$a0}{$a0}":goto100
 10000 r0=r0+1:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}0: ";r0"  "tab(20)r0-d1"{$a0}{$a0}":goto100
 20000 open2,4,2
 20010 open1,4,1
 20020 print#2,"aaaaaa 99999- 99999- 99999- 99999- 99999-";
 20030 print#2," 99999- 99999- 99999- 99999- 99999-"
 20100 print#1,ti$,chr$(29),r1-d1,r2-d1,r3-d1,r4-d1,r5-d1,r6-d1,r7-d1,r8-d1,r9-d1,r0-d1
 20110 print#1,str$(d1),chr$(29),r1,r2,r3,r4,r5,r6,r7,r8,r9,r0
 20200 close1:close2
 20210 return
 64255 rem c volker berlipp
   20 poke1,0:poke2,22:t=rnd(-ti)
   22 ifpeek(53869)<>162thenpoke5633,234:poke5634,194:poke6122,188:poke6123,196
   25 ho$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   30 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":gosub4000
   32 getx$:ifx$<>""goto32
   34 rt=0:p0=0:p8=0:goto50
   36 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(16)"scratch!":fori=1to2000:nexti
   38 if(pe=2orpe=9orpe=1)andp8<3thenp8=p8+1
   40 if(pe=24orpe=31orpe=23)andp0<3thenp0=p0+1
   50 poke5652,10+40*p0:poke5657,134+40*p8:ontngosub500,700,800
   56 cn=0:ifrnd(1)>.4thencn=8
   60 fori=5to1step-1:printleft$(d$,12)"{rght}{rght}{rght}{rght}"i:ts=ti+60
   65 pe=peek(151):ifpe<>255andrt=0goto36
   70 ifti<tsgoto65
   80 nexti:printleft$(d$,12)"{rght}{rght}{rght}{rght}{rght} "
   96 t=ti
  100 poke59467,16:poke59464,50:poke59466,7:cn=usr(cn):poke59467,0
  110 t=(ti-t)/60:t=int(t*100+.5)/100
  120 cn=cn/8:i=4+21*cn:print"{home}"
  125 x$=str$(t):iflen(x$)>7thenx$=mid$(x$,x)
  128 dimq$(6):q$="{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}":q$(0)="{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}":q$(1)="{CBM-B}         {CBM-B}"
  130 x=fre(0):q$(2)="{CBM-B}  time:  {CBM-B}":q$(3)="{CBM-B} "+x$
  132 iflen(q$(3))<9thenq$(3)=q$(3)+" ":goto132
  134 q$(3)=q$(3)+" {CBM-B}":q$(4)="{CBM-B} seconds {CBM-B}":q$(5)=q$(1):q$(6)=q$(0)
  136 print"{up}"left$(ho$,i);:fork=0to6:printq$(k);q$;:nextk:print
  180 getx$:ifx$<>""goto180
  190 printleft$(d$,17)tab(12)"another race";:inputx$:ifleft$(x$,1)<>"n"thenrun
  200 print"{clr}":end
  500 print"{clr}{rvon}    Q laps 00 Q          W laps 00 W    {rvof}";
  530 fori=1to6:print"{rvon} {rvof}"spc(19)"{rvon} {rvof}"spc(18)"{rvon} {rvof}";:nexti
  540 fori=1to2:print"{rvon} {rvof}"spc(38)"{rvon} {rvof}";:nexti
  550 fori=1to2:print"{rvon} {rvof}"spc(9)"{rvon} {rvof}"spc(18)"{rvon} {rvof}"spc(9)"{rvon} {rvof}";:nexti
  560 print"{rvon}^{rvof}"spc(9)"{rvon}^{rvof}"spc(18)"{rvon} {rvof}"spc(9)"{rvon} {rvof}";
  570 print"{rvon}{CBM-E}{rvof}"spc(9)"{rvon}{CBM-E}{rvof}"spc(18)"{rvon} {rvof}"spc(9)"{rvon} {rvof}";
  580 fori=1to2:print"{rvon} {rvof}"spc(9)"{rvon} {rvof}"spc(18)"{rvon} {rvof}"spc(9)"{rvon} {rvof}";:nexti
  590 print"{rvon} {rvof}"spc(9)"{rvon}                    {rvof}"spc(9)"{rvon} {rvof}";:nl=8
  600 fori=1tonl:print"{rvon} {rvof}"spc(38)"{rvon} {rvof}";:nexti
  630 fori=1to39:print"{rvon} {rvof}";:nexti:print"{home}":poke32*1024+999,160
  640 ifr0=130thenprintleft$(d$,14+p0)"{rght}{rght}{CBM-Q}{rvon} {rvof}{CBM-W}{down}{left}{left}{rvon}Q{down}{left}{left}{rvof}{CBM-Q}{rvon}{CBM-P}{rvof}{CBM-W}"
  650 ifr8=130thenprintleft$(d$,17+p8)"{rght}{rght}{rght}{rght}{rght}{rght}{CBM-Q}{rvon} {rvof}{CBM-W}{down}{left}{left}{rvon}W{down}{left}{left}{rvof}{CBM-Q}{rvon}{CBM-P}{rvof}{CBM-W}"
  660 return
  700 print"{clr}{rvon}    Q laps 00 Q          W laps 00 W    {rvof}";
  740 fori=1to10:print"{rvon} {rvof}"spc(38)"{rvon} {rvof}";:nexti
  755 print"{rvon}^{rvof}"spc(9)"{rvon}^                   {rvof}"spc(9)"{rvon} {rvof}";
  760 print"{rvon}{CBM-E}{rvof}"spc(9)"{rvon}{CBM-E}                   {rvof}"spc(9)"{rvon} {rvof}";
  770 print"{rvon} {rvof}"spc(9)"{rvon}                    {rvof}"spc(9)"{rvon} {rvof}";
  780 nl=10:goto600
  800 print"{clr}{rvon}C>  Q laps 00 Q   M  N   W laps 00 W  <C{rvof}";
  810 print"{rvon} {rvof}"spc(17)"{CBM-*}{rvon}{CBM-X}{CBM-Z}{rvof}{SHIFT-POUND}"spc(17)"{rvon} {rvof}";
  820 print"{rvon} {rvof}"spc(18)"{CBM-*}{SHIFT-POUND}"spc(18)"{rvon} {rvof}";
  825 fori=1to8:print"{rvon} {rvof}"spc(38)"{rvon} {rvof}";:nexti:print"{rvon}^{rvof}"spc(38)"{rvon}^{rvof}";
  830 print"{rvon}{CBM-E}{rvof}"spc(9)"{rvon}{SHIFT-*}{rvof}"spc(18)"{rvon} {rvof}"spc(9)"{rvon}{SHIFT--}{rvof}";
  835 fori=1to9:print"{rvon} {rvof}"spc(38)"{rvon} {rvof}";:nexti
  840 print"{rvon} {rvof}"spc(18)"{rvon}{SHIFT-POUND}{CBM-*}{rvof}"spc(18)"{rvon} {rvof}";
  845 print"{rvon} {rvof}"spc(17)"{rvon}{SHIFT-POUND}NM{CBM-*}{rvof}"spc(17)"{rvon} {rvof}";
  850 print"{rvon}<C                {CBM-Z}  {CBM-X}                C{rvof}";:poke32*1024+999,190
  860 print"{home}":goto640
 4000 print"{clr}"tab(14)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(14)"{rvon} road race {rvof}"
 4005 printtab(3)"{down}an avalon hill microcomputer game."
 4010 print"(c) 1982 the avalon hill game company.  all rights reserved.
 4015 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";
 4020 print"controlled {SHIFT--}{rvon} {rvof} {rvon} {rvof} {rvon} {rvof} {rvon} {rvof}"spc(10)"{SHIFT--}controlled";
 4025 print"by keys    {SHIFT--}^ ^ ^ ^          {SHIFT--}by keys"
 4030 print"{rvon}z{rvof} {rvon}x{rvof} {rvon}c{rvof} {rvon}v{rvof}    {SHIFT--}{SHIFT--} {SHIFT--}{$a0}{SHIFT--}{$a0}{CBM-Z}turn right{SHIFT--}{rvon}0{rvof} {rvon}.{rvof} {rvon}-{rvof} {rvon}={rvof}"
 4040 print"           {SHIFT--}{SHIFT--} {SHIFT--} {SHIFT--}"spc(12)"{SHIFT--}          ";
 4045 print"           {SHIFT--}{SHIFT--} {SHIFT--} {CBM-Z}turn left   {SHIFT--} "
 4050 print"           {SHIFT--}{SHIFT--} {SHIFT--}"spc(14)"{SHIFT--}"
 4055 printtab(3)"{CBM-Q}{rvon} {rvof}{CBM-W}     {SHIFT--}{SHIFT--} {CBM-Z}accelerate    {SHIFT--}   {CBM-Q}{rvon} {rvof}{CBM-W}"
 4060 printtab(4)"{rvon}Q{rvof}      {SHIFT--}{SHIFT--}"spc(16)"{SHIFT--}    {rvon}W{rvof}"
 4066 printtab(3)"{CBM-Q}{rvon}{CBM-P}{rvof}{CBM-W}     {SHIFT--}{CBM-Z}brake           {SHIFT--}   {CBM-Q}{rvon}{CBM-P}{rvof}{CBM-W}"
 4070 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";
 4080 print" track#1:{rvon}{CBM-D}{CBM-C}{CBM-D}{rvof}{CBM-K} track#2:{rvon}{CBM-D}{CBM-I}{CBM-I}{rvof}{CBM-K} track#3:{rvon}{CBM-D}{rvof}{CBM-B}{rvon}{CBM-I}{rvof}{CBM-K}"
 4085 printtab(9)"{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-K}"spc(9)"{rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-K}"spc(9)"{rvon}{CBM-C}{CBM-B}{rvof}{CBM-I}{CBM-K}"
 5020 input"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}track#";tn:iftn<1ortn>3goto4000
 5022 input"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}max speed (50-200)";ts:ifts<50orts>200goto4000
 5040 input"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}number of laps (1-99)";l:ifl<1orl>99thenprint"{clr}":goto4000
 5050 i=int(l/10):l=i*16+int(l-i*10):poke6295,l
 5060 r0=130:r8=130:input"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}race or time trial";x$
 5070 ifleft$(x$,1)<>"t"goto5090
 5080 input"{rght}{rght}{rght}{rght}{rght}{rght}{rght}which car (left or right)";x$
 5082 ifleft$(x$,1)="l"thenr8=208
 5083 ifleft$(x$,1)="r"thenr0=208
 5090 poke5662,r0:poke5667,r8:poke5717,ts:return
    1 goto100
    2 poke59468,14:return
    3 poke59468,12:return
    4 rem
    5 rem
    6 rem
    7 rem
    8 rem
    9 rem
   10 rem
   11 rem
   12 rem
  100 gosub2:print"{clr}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}r o b o t e r - j a g d":goto400
  300 fortt=1to500:next:return
  400 print"{down}{down}{down}{down}{rght}{rght}{rght}willst du erklaerungen? {rvon}j/n
  405 getq$:ifq$=""goto405
  410 ifq$="n"goto1000
  415 ifq$<>"j"goto420
  420 print"{clr}{down}du wirst von robotern verfolgt.{down}
  430 print"du bist von einem elektrozaun umgeben.{down}
  440 print"er sieht so aus: {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}"
  450 print"{down}innerhalb des zaunes sind noch elektr.
  455 print"saelen."
  460 print"die saeulen sehen so aus : {CBM-+}{down}"
  464 print"die roboter sehen so aus : {rvon}{SHIFT-+}"
  485 print:print:print:print:print"{down}und du siehst so aus:
  486 fori=1to10:gosub700:next
  490 print"{clr}";:gosub3:printtab(15)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}Q"
  495 gosub700
  500 print"{clr}":gosub2:print"du wirst von den robotern verfolgt"
  510 print"{down}du musst versuchen sie in den zaun oder"
  520 print"{down}an die elektrosaeulen zu locken!!!!"
  522 print"{down}wer den zaun beruehrt, verbrennt in"
  530 print"{down}sekunden"
  540 print"{down}du musst folgende koordinaten beachten"
  545 fori=1to6:gosub700:next
  549 gosub3
  550 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}            7 8 9"
  560 print"            MBN"
  570 print"           4-5-6"
  580 print"            NBM"
  590 print"           1 2 3
  595 gosub700:gosub2
  696 fori=1to5:gosub700:next
  697 goto1000
  700 fori=1to2000:next:return
 1000 ar=34:dimxv(9),yv(9),rx(ar),ry(ar)
 1010 fori=1to9:readxv(i),yv(i):next
 1020 o=32768:fc=102:rc=65:pc=81:p4=59464:p6=59466:p7=59467:p1=peek(p4)
 1030 deffna(z)=o+nx+40*ny
 1040 deffnb(z)=peek(fna(z))
 1500 rn=10
 1600 print"{clr}":gosub2
 1610 print"{down}{down}waehle den schwierigkeitsgrad"
 1615 print"-----------------------------"
 1620 print"{down}{down}fuer anfaenger        -> {rvon}1"
 1630 print"{down}{down}fuer besonnene        -> {rvon}2"
 1640 print"{down}{down}fuer profis           -> {rvon}3"
 1650 print"{down}{down}fuer lebensmuede      -> {rvon}4"
 1660 getg$:ifg$=""goto1660
 1670 onval(g$)goto1700,1710,1720,1730:goto1660
 1700 sp=.9:goto2000
 1710 sp=.8:goto2000
 1720 sp=.7:goto2000
 1730 sp=.5
 2000 rl=rn:mv=0
 2100 fori=1to10:getlm$:next
 2500 gosub2:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}"rn"roboter verfolgen dich!!!!!"
 2520 gosub700
 3000 print"{clr}";:gosub3
 3010 fori=1to40:print"{CBM-+}";:next
 3020 fori=1to22:print"{CBM-+}";spc(38);"{CBM-+}";:next
 3030 fori=1to40:print"{CBM-+}";:next
 3050 pokep7,16:pokep6,14
 3100 fori=1to(50+rnd(1)*26)
 3110 nx=int(rnd(1)*37+2)
 3120 ny=int(rnd(1)*22+2)
 3150 iffnb(0)<>32goto3110
 3155 pokep4,128+128*rnd(1)
 3160 pokefna(0),fc
 3180 next
 3200 fori=1torn
 3210 nx=int(rnd(1)*38+2)
 3220 ny=int(rnd(1)*22+2)
 3230 iffnb(0)<>32goto3210
 3235 pokep4,64*rnd(1)
 3240 pokefna(0),rc
 3250 rx(i)=nx:ry(i)=ny
 3260 nexti
 3300 nx=int(rnd(1)*38+2)
 3310 ny=int(rnd(1)*22+2)
 3320 iffnb(0)<>32goto3300
 3330 pokefna(0),pc
 3340 px=nx:py=ny
 3400 fori=1to10
 3410 ifi/2=int(i/2)goto3440
 3415 pokep4,200
 3420 pokefna(0),pc+128
 3430 goto3450
 3440 pokefna(0),pc
 3450 gosub300
 3455 pokep4,0
 3460 nexti
 3470 pokep7,0
 3500 print"    bewegungen, zeit ={up}
 3600 ti$="000000"
 3700 getlm$:iflm$<"1"orlm$>"9"thenlm$="5"
 4000 printmvtab(23)mid$(ti$,4,1)":"right$(ti$,2)"{up}
 5000 getmv$
 5005 ifmv$<""thenmv$=lm$
 5010 ifmv$<"1"ormv$>"9"thenmv$=lm$
 5020 lm$=mv$
 5030 dr=asc(mv$)-48
 5100 ifdr=5goto6000
 5105 pokep7,16:pokep6,14
 5110 forj=100to60step-4
 5120 pokep4,j:next
 5130 pokep7,0
 6000 nx=px+xv(dr):ny=py+yv(dr)
 6010 iffnb(0)=rcgoto20001
 6020 iffnb(0)=fcgoto21000
 6030 pokeo+px+40*py,32
 6040 pokefna(0),pc
 6050 px=nx:py=ny
 6060 mv=mv+1
 7000 fori=1torn
 7010 ifrx(i)=0goto7930
 7020 ifrnd(1)<spgoto7930
 7100 nx=rx(i)+sgn(px-rx(i))
 7110 ny=ry(i)+sgn(py-ry(i))
 7130 pokep7,16:pokep7,14
 7140 pokep4,rnd(1)*20+(sp-.5)*100:tt=ti
 7150 ifti-tt<2goto7150
 7160 pokep7,0
 7200 iffnb(0)<>fcgoto7300
 7210 pokeo+rx(i)+40*ry(i),32
 7215 pokep7,16:pokep6,14
 7216 os=rnd(1)*50-25
 7220 forj=1to20
 7225 pokep4,200+os
 7230 pokefna(0),rc
 7240 pokefna(0),fc
 7245 pokep4,100+os
 7250 nextj
 7255 pokep7,0
 7260 rx(i)=0:rl=rl-1
 7270 ifrl=0goto25000
 7280 goto7930
 7300 iffnb(0)<>rcgoto7800
 7400 ifabs(py-ry(i))>abs(px-rx(i))goto7500
 7410 ny=ry(i)
 7420 goto7600
 7500 nx=rx(i)
 7600 iffnb(0)=fcgoto7200
 7700 iffnb(0)=rcgoto7930
 7800 iffnb(0)=pcthen20000
 7900 pokeo+rx(i)+40*ry(i),32
 7910 pokefna(0),rc
 7920 rx(i)=nx:ry(i)=ny
 7930 nexti
 8000 goto4000
 20000 zz=o+rx(i)+40*ry(i):goto20002
 20001 zz=fna(0)
 20002 z=o+px+40*py:pokep7,16:pokep6,14:pokep4,20
 20003 pokep4,80:pokez-39,110:pokez-1,93:pokep4,100
 20005 pokep4,120:pokez+1,93:pokez+39,109:pokep4,140
 20006 pokep4,160:pokez+40,64:pokez+41,125:pokep4,180
 20007 forj=1to10
 20010 pokezz,rc
 20015 pokep4,j*25
 20020 gosub20100
 20040 pokezz,rc+128
 20050 gosub20100
 20060 nextj
 20070 goto20200
 20100 tt=ti
 20110 ifti-tt<10goto20110
 20120 return
 20200 print"{home}";
 20210 gosub2:forj=1to48
 20230 ifj/3<>int(j/3)thenprint"{rvon}";:pokep4,20:goto20240
 20235 pokep4,50
 20240 print"du bist gefangen !{rvof}";
 20250 next
 20260 pokep4,255
 20270 gosub700
 20300 rn=rn-3
 20310 ifrn>0thenpokep7,0:goto2000
 20400 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 20410 fori=1to30
 20412 poke59464,100+i*5:tt=ti
 20414 ifti-tt<10goto20414
 20416 pokep4,0
 20420 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 20430 ifi/2=int(i/2)thenprint"{rvon}";
 20440 gosub2:print"sorry,du musst noch ueben!!!{up}"
 20450 tt=ti
 20455 ifti-tt<10goto20455
 20460 nexti
 20470 goto30000
 21000 pokeo+px+40*py,32
 21005 pokep7,16:pokep6,14
 21010 forj=1to20
 21015 pokep4,100
 21016 pokep4,180
 21020 fork=1to5
 21030 pokefna(0),fc
 21040 pokefna(0),pc
 21050 nextk
 21060 poke59409,52
 21070 poke59409,60
 21080 nextj
 21100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 21110 forj=1to25
 21115 pokep4,255-10*j
 21120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 21130 ifj/2<>int(j/2)thenprint"{rvon}";
 21140 print"du bist erledigt!!!!{up}"
 21150 nextj
 21160 pokep4,255
 21170 gosub700
 21200 goto20300
 25000 pokep7,16:pokep6,14
 25005 forj=1to10
 25010 pokeo+px+py*40,pc+128
 25015 pokep4,240
 25020 gosub20100
 25030 pokeo+px+40*py,pc
 25035 pokep4,40
 25040 gosub20100
 25050 nextj
 25100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 25110 forj=1to10
 25120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 25130 ifj/2=int(j/2)thenprint"{rvon}";
 25140 print" alle roboter sind weg!!{up}"
 25145 pokep4,80
 25150 gosub20100
 25155 pokep4,100
 25160 nextj
 25170 pokep4,0
 25200 rn=rn+6
 25210 ifrn<argoto2000
 25220 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 25230 gosub2:forj=1to50
 25240 print"         ";
 25250 ifj/2=int(j/2)thenprint"{rvon}";
 25260 print"du hast gewonnen
 25270 fork=10to250step20
 25280 pokep4,k:next
 25285 gosub20100
 25290 nextj
 30000 print"{down}{down}{down}{down}willst du nochmal gejagt werden? -> {rvon}j/n"
 30005 getg$:ifg$=""goto30005
 30010 ifg$="j"goto1500
 30015 ifg$<>"n"goto30005
 30020 print"{down}{down}{down}hoffentlich machst du beute"
 30030 print"{down}Vvon robotern verfolgt!"
 30050 print"{down}{down}      {rvon}servus"
 31000 pokep7,0:pokep6,0:pokep4,p1
 50000 pokep7,0:pokep6,0:pokep4,p1
 51000 data-1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1
   10 print "robot invaders"
   20 let h=0
   30 for t=1 to 25
   40 for i=1 to int(rnd(1)*300+200)
   50 next i
   60 let a=int(rnd(1)*20)
   70 let d=int(rnd(1)*15)
   80 let p$=chr$(int(rnd(1)*58+33))
   90 print chr$(147)
  100 for j=0 to d
  110 print
  120 next j
  130 print tab(a);p$
  140 for i=1 to 150
  150 get r$
  160 if r$=p$ then goto 210
  170 if r$<>"" then goto 190
  180 next i
  190 print "missed"
  200 goto 230
  210 print "a hit"
  220 let h=h+1
  230 next t
  240 print chr$(147)
  250 print "you scored ";h;"/25"
  260 end
   10 dima(3,5)
   22 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}robot nim"
   24 print"{down}{down}{down}do you want instructions (y/n)";:inputa$
   26 ifa$="n"then70
   30 print"{clr}the game is for two players."
   32 print"{down}the aim is to leave your opponent with"
   34 print"{down}only one robot left on the screen."
   36 print"{down}you take turns and on each turn say"
   37 print"{down}which row (1-3) and say how many robots"
   39 print"{down}you wish removed from that row."
   41 print"{down}you may only remove the leading robot"
   43 print"{down}when he is the last left in the row."
   45 print"{down}for sound effects,connect an amplifier"
   47 print"{down}and speaker to pins m(cb2)and n(gnd)"
   49 print"{down}of the user port using a 15-500 ohm res"
   60 print"{down}{rvon}press space key when ready"
   62 geta$:ifa$=""then62
   70 print"{clr}":aa=59467:bb=59466:cc=59464
   78 fork=1to3:forj=0to5:a(k,j)=0:next:next
   80 p=1:t=1:s$=" = ":forj=1to6
   90 print"{home}"tab(t);:gosub100
   96 t=t+7:next:goto120
  100 print"{rvon}{CBM-D} {CBM-F}{down}{left}{left}{left}{CBM-C}{CBM-I}{CBM-V}{down}{left}{left}{left}"s$"{down}{left}{left}{left}{left}{CBM-I}   {CBM-I}{down}{left}{left}{left}{left}{rvon} {CBM-I} {down}{left}{left}{left} {rvof} {rvon} ":s$="{CBM-Z}{SHIFT-*}{CBM-X}":return
  120 t=1:s$=" = ":forj=1to6
  130 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(t);:gosub100
  136 t=t+7:next
  160 t=1:s$=" = ":forj=1to6
  170 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(t);:gosub100
  176 t=t+7:next
  200 p$="{rvon} player 1.{rvof} ":ifp=2thenp$="{rvon} player 2. {rvof} "
  205 rr=0:z$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printz$p$;:input"row,number";r,n
  210 ifr<1orr>3orn<1orn>5then215
  212 goto230
  215 printz$;:print"                                       ":goto205
  230 x=0:forj=1to5:ifa(r,j)=0thenx=x+1
  240 next:ifx<nanda(r,0)=1then215
  242 ifn<=xthen250
  243 ifn=1anda(r,0)=1then215
  244 ifn>1then215
  245 rr=1
  250 x=0:fork=1to3:forj=0to5:ifa(k,j)=0thenx=x+1
  254 next:next
  256 ifx=nthenprintz$"                                       ":goto200
  270 ifp=1thenp=2:goto290
  280 ifp=2thenp=1
  290 b$="{home}":ifr>1thenb$=b$+"{down}{down}{down}{down}{down}{down}{down}"
  292 ifr=3thenb$=b$+"{down}{down}{down}{down}{down}{down}{down}"
  295 ifrr=1then4000
  300 t=8:x=0:forj=1to5:ifa(r,j)=1then360
  304 gosub330:gosub999:gosub310:gosub332:goto350
  310 forkk=1to5:printb$tab(t)"{rvon}   {down}{left}{left}{left} {CBM-I} ":fork=1to30:next
  320 printb$tab(t)"{rvon}{CBM-D} {CBM-F}{down}{left}{left}{left}{CBM-C}{CBM-I}{CBM-V}":fork=1to30:next:next:return
  330 foryy=1to10:m$=" - ":printb$tab(t)"{down}{down}{rvon}"m$:gosub2000
  331 m$=" Q ":printb$tab(t)"{down}{down}{rvon}"m$:gosub2000:next:gosub1000:return
  332 m$="{CBM-A}{SHIFT-*}{CBM-S}":printb$tab(t)"{down}{down}{rvon}"m$:gosub1000:return
  350 x=x+1:ifx=nthenj=5
  360 t=t+7:next:gosub1000
  370 foryy=1to10:printb$"{down}{down}{rght}{rvon} W ":gosub2200
  375 printb$"{down}{down}{rght}{rvon} - ":gosub2200:next:gosub380:goto400
  380 printb$" {rvon}  {CBM-F}{down}{left}{left}{left}   {down}{left}{left}{left} {CBM-Z}{SHIFT-*}":return
  400 forl=1ton:tt=8:t=1:x=2:gosub1000
  402 forff=1to5:ifa(r,ff)=0thenff=5:goto405
  404 tt=tt+7
  405 next:printb$tab(tt)"{rvon} {CBM-F} {down}{left}{left}{left}{CBM-F}{CBM-V} {down}{left}{left}{left}{SHIFT-*}{CBM-S} ":gosub1000
  410 c$=b$+"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}":printc$">";:gosub2100:print">";:gosub2100:forj=1to5
  420 ifa(r,j)=1thenfork1=1to7:print">";:x=x+1:gosub2100:next:t=t+7:goto430
  425 a(r,j)=1:j=5:t=t+7
  430 next:print:gosub500:next:goto700
  500 gosub2300
  502 printb$tab(t)"   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}   {down}{left}{left}{left}{left}    "
  510 e$="":fork=1tox:e$=e$+" ":next:printc$e$:ifl=nthenreturn
  520 gosub605:gosub1000:gosub380:return
  605 printb$" {rvon}{CBM-D} {CBM-F}{down}{left}{left}{left}{CBM-C}{CBM-I}{CBM-V}{down}{left}{left}{left}{CBM-Z}{SHIFT-*}{CBM-X}{down}{left}{left}{left}{left}{CBM-I}   {CBM-I}{down}{left}{left}{left}{left}{rvon} {CBM-I} {down}{left}{left}{left} {rvof} {rvon} ":return
  700 gosub605:foryy=1to10:printb$"{down}{down}{rght}{rvon} W ":gosub2200
  701 printb$"{down}{down}{rght}{rvon} - ":gosub2200:next:gosub1000:gosub605
  705 x=0:fork=1to3:forj=0to5:ifa(k,j)=0thenx=x+1:r=k
  710 next:next
  720 ifx<>1thenprintz$"                                       ":goto200
  722 b$="{home}":ifr>1thenb$=b$+"{down}{down}{down}{down}{down}{down}{down}"
  723 ifr=3thenb$=b$+"{down}{down}{down}{down}{down}{down}{down}"
  725 foryy=1to10:printb$"{down}{down}{rght}{rvon} W ":gosub2200
  726 printb$"{down}{down}{rght}{rvon} - ":gosub2200:next
  727 gosub1000:gosub605:gosub1000
  735 print"{clr}{down}{down}{down}{down}{down}"
  740 ifp=2thenp$="player 1 "
  750 ifp=1thenp$="player 2 "
  760 print"{rvon}"p$"is the winner!!!"
  770 print"{down}{down}{down}{down}another game (y/n)";:inputg$:ifg$="y"then70
  780 print"{down}{down}goodbye then!{down}{down}{down}":end
  998 fork=1to50:next:return
  999 fork=1to100:next:return
 1000 fork=1to500:next:return
 2000 ll=int(50*rnd(1)+205):gosub3000:return
 2100 pokeaa,16:pokebb,20:pokecc,55:gosub998:pokecc,0:pokeaa,0:return
 2200 ll=int(140*rnd(1)+45):gosub3000:return
 2300 nn=int(100*rnd(1)+100):forjj=1to8
 2310 pokeaa,16:pokebb,55:pokecc,nn:gosub998:pokecc,0:pokeaa,0
 2320 next:return
 2400 fork=1to12:ll=int(100*rnd(1)+55):gosub3000:next:return
 3000 pokeaa,16:pokebb,20:pokecc,ll:gosub998:pokecc,0:pokeaa,0:return
 4000 t=1:foryy=1to10:printb$"{down}{down}{rght}{rvon} W ":gosub2200
 4020 printb$"{down}{down}{rght}{rvon} - ":gosub2200:next
 4025 gosub1000:gosub380:gosub1000:gosub605:gosub999:gosub380:gosub1000
 4030 gosub1000:gosub1000:gosub605:printb$"{down}{down}{rght}{rvon} + ":gosub1000
 4040 gosub1000:gosub330:gosub310:gosub332:gosub1000:gosub1000
 4060 gosub2200:printb$tab(t)" . {down}{left}{left}{left} . {down}{left}{left}{left} . {down}{left}{left}{left}{left} . . {down}{left}{left}{left}{left} . {down}{left}{left}{left}{left} . ."
 4070 gosub999:printb$tab(t)"   {down}{left}{left}{left}   {down}{left}{left}{left}   {down}{left}{left}{left}{left}     {down}{left}{left}{left}{left}   {down}{left}{left}{left}{left}    "
 4080 a(r,0)=1:goto705
  100 poke59468,12
  110 print"{clr}{down}{down}{down}{down}{down}{down}";
  120 forg=1to5:read a$
  130 ifg=5thenprint:print
  140 s=(40-len(a$))/2
  150 fori=sto40-s
  160 print"{up}"tab(39-i);left$(a$,i):getb$:ifb$<>""then260
  170 forj=1to75:next
  180 next
  190 print:print:print:forj=1to500:next:next
  200 data"  the people who brought you: "
  210 data"      street  racer &       "
  220 data"         dogs of war          "
  230 data"          present           "
  240 data"      ---rollercoaster---       "
  250 fori=1to2000:next
  260 clr:fori=1to5:reada$:next
  270 print"{clr}{down}do you want instructions (y/n)"
  280 geta$:ifa$=""then280
  290 ifa$="y"thengosub2040
  300 data39,40,41,-1,0,1,-41,-40,-39
  310 fori=1to9:readm(i):next
  320 data-1,1,0,1,1,1,-1,0,0,0,1,0,-1,-1,0,-1,1,-1
  330 fori=1to9:readx(i),y(i):ym(i)=y(i)*40:next
  340 data33139,33176,33318,33475
  350 nt=1:nb=1:tg=1:fori=1to4:readmp(i):next
  360 r=10:b$=".":cp=32768+49
  370 data1,29,40,21,-1,20,-40,1,-1,6,40,1,-1,12,-40,2,1,3,-40,4,-1,1,-40,4,-1,1
  380 data-40,4,-1,1,-40,7,1,9
  390 dimpc(18),nt(18):nb=1
  400 fori=1to17:readpc(i),nt(i):next
  410 data-40,-1,1,40,41
  420 fori=1to5:readhc(i):next
  430 print"{clr}{down}skill level (1-5)"
  440 geta$:ifa$=""then440
  450 ifa$>"5"ora$<"1"then440
  460 sl=val(a$):is=sl:pc(18)=0:nt(18)=15-sl*3
  470 rem    rollercoaster x 1.0
  480 ts=6-sl
  490 gosub570
  500 o=32849
  510 yx=0:yy=0:yp=o+yx+yy*40
  520 pokeyp,90:tc=29:gg=1
  530 gosub880
  540 gosub1230
  550 gosub1400
  560 goto530
  570 print"{clr}{down}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}"
  580 print"{SHIFT-+} {SHIFT--}roller-{SHIFT--}                     {CBM-@}{CBM-@}{CBM-@}   {SHIFT-+}
  590 print"{SHIFT-+} {SHIFT--}coaster{SHIFT--}   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}      {CBM-@}{CBM-@}   M  {CBM-G}  {SHIFT-+}
  600 print"{SHIFT-+} {SHIFT--}{CBM-A}{SHIFT-*}{CBM-X}#{CBM-Z}{SHIFT-*}{CBM-S}{SHIFT--}   {SHIFT--}food{CBM-A}{CBM-X}      McM   M {CBM-G}  {SHIFT-+}
  610 print"{SHIFT-+} {SHIFT--}{SHIFT--}     {CBM-Z}{CBM-X}   {SHIFT--}i  {CBM-A}{CBM-X}        MaM   M{CBM-G}  {SHIFT-+}
  620 print"{SHIFT-+} {CBM-Z}{CBM-X}          {SHIFT--}l {CBM-A}{CBM-X}          MnM      {SHIFT-+}
  630 print"{SHIFT-+}             {SHIFT--}m{CBM-A}{CBM-X}     N{CBM-T}M    MdM     {SHIFT-+}
  640 print"{SHIFT-+}{SHIFT-+}            {SHIFT--}{CBM-A}{CBM-X}      {CBM-G}Q{CBM-M}     MyM    {SHIFT-+}
  650 print" {SHIFT-+}       OPW  {CBM-Z}{CBM-X} U{SHIFT-*}{SHIFT-*}I  M{CBM-@}N      {CBM-G}{CBM-M}    {SHIFT-+}
  660 print" {SHIFT-+}      WL{SHIFT-@}     UK  JI          {CBM-G}{CBM-M}    {SHIFT-+}
  670 print" {SHIFT-+}              {SHIFT--}mnli{SHIFT--}          {CBM-G}{CBM-M}    {SHIFT-+}
  680 print" {SHIFT-+}{SHIFT-+}             JI  UK {CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}  L{SHIFT-@}    {SHIFT-+}
  690 print"  {SHIFT-+}  {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}   J{SHIFT-*}{SHIFT-*}K    {SHIFT--}{rvon}{SHIFT-+}{SHIFT-+}{SHIFT-+}{rvof}{SHIFT--}W       {SHIFT-+}
  700 print"  {SHIFT-+}  {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}         {SHIFT--} {SHIFT--}{rvon}{SHIFT-+}{SHIFT-+}{SHIFT-+}{rvof}{SHIFT--}  OP    {SHIFT-+}
  710 print"  {SHIFT-+}                    {SHIFT--}    {rvon}{SHIFT-+}{rvof}{SHIFT--}  {CBM-G}{CBM-M}    {SHIFT-+}
  720 print"  {SHIFT-+}{SHIFT-+}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}     {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}    {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X} NsN    {SHIFT-+}
  730 print"   {SHIFT-+}{SHIFT--}   {CBM-Z}{SHIFT-*}{SHIFT-*} {SHIFT-*}{SHIFT-*}{CBM-X}   {SHIFT--}        W  NeN     {SHIFT-+}
  740 print"   {SHIFT-+}{SHIFT--} +         + {SHIFT--}  MN  OP  NcN   N{CBM-G} {SHIFT-+}
  750 print"   {SHIFT-+}{SHIFT--}   {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}   {SHIFT--}  NM  L{SHIFT-@} NiN   N {CBM-G} {SHIFT-+}
  760 print"{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-Z}{SHIFT-*} {SHIFT-*}{CBM-X}     {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}         {CBM-T}{CBM-T}    {CBM-T}{CBM-T}  {SHIFT-+}
  770 print"{SHIFT-+}           {SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}                   {SHIFT-+}
  780 print"{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}     {SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}
  790 print"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}"
  800 return
  810 rem
  820 rem       ? score
  830 rem
  840 print"{home}score:"sc:return
  850 ifhf=2thengd=1:return
  860 hf=0:return
  870 rem    you move
  880 rem      you
  890 rem
  900 geta$
  910 fz=fz+1:iffz=500thents=ts-1:fz=0:print"{home}"tab(20)"bonus level:"5-ts
  920 ifa$=""thena$=b$
  930 ifa$=" "andyb=1thenyb=2:goto950
  940 b$=a$:a=val(a$):ifasc(a$)>128then1090
  950 tp=yp+m(a):pokeyp,32
  960 ifpeek(tp)<>32then1020
  970 yp=tp
  980 ifyb=1thenbp=yp
  990 ifyb=2thenyb=0:pokebp,42
 1000 pokeyp,90
 1010 return
 1020 t1=peek(tp):ift1=219thenyc=1:poketp,32:b$="."
 1030 ift1=35thensf=40-3*sl
 1040 ift1=96andyc=1thenyc=0:poketp,91:sc=sc+200+70*nt:nt=nt+1:gosub810
 1050 ift1=42andyf=0thenyb=1:yf=1:sc=sc+(600-bc*10)*nb:nb=nb+1:goto1070
 1060 goto980
 1070 poketp,91:poke33395,32:gosub810:goto980
 1080 rem    shoot
 1090 a=val(chr$(asc(a$)-128))
 1100 b=yp
 1110 for i =1 tor:getb$
 1120 pokeyp,90:pokeb,32:b=b+m(a):if peek(b)<>32then1140
 1130 pokeb,46:next:pokeb,32:b$=".":return
 1140 a=peek(b):b$="."
 1150 if a=219thenpokeb,32
 1160 if a=65thentg=tg+1:sc=sc+tg*30+100:gosub810:pokehp,32:goto1200
 1170 if a=91thenpokeb,96
 1180 ifa=42thenbc=0
 1190 return
 1200 ifhf=2thengd=1:return
 1210 hf=0:return
 1220 rem coaster move
 1230 ifsf>0thensf=sf-1:fori=1to75:next:return
 1240 c=c+1
 1250 cp=cp+pc(gg):x=peek(cp):ifx=91then1290
 1260 ifx=102then1290
 1270 ifx=42then1530
 1280 goto2000
 1290 pokecp,102
 1300 rr=rr+1:if rr>10then rr=1
 1310 cp(rr)=cp:x=rr+1:if x>10then x=1
 1320 pokecp(x),91
 1330 if c>=tc then 1350
 1340 return
 1350 c=0: gg=gg+1:ifgg>17thengg=1:sf=25-sl*3
 1360 tc=nt(gg):return
 1370 rem
 1380 rem      him move
 1390 rem
 1400 onhfgoto1450,1530,1850
 1410 ifrnd(ti)>sl/10thenreturn
 1420 gd=0:hv=int(rnd(ti)*4+1):hp=mp(hv)+hc(hv):hc=hc(hv):hf=1
 1430 ifhv=4andrnd(ti)<.3thenbp=hp-3*hc:hf=2:bc=50-8*sl:return
 1440 return
 1450 hm=hm-1:ifhm<=0thenhm=ts:goto1470
 1460 return
 1470 pokehp,32:hp=hp+hc:tp=peek(hp):iftp=91ortp=96thenhf=2:pokehp-hc,65:goto1520
 1480 iftp=102thenhp=hp-hc:return
 1490 iftp=96thenhf=3:return
 1500 pokehp,65
 1510 return
 1520 pokehp,42:bp=hp:hp=hp-hc:bc=int(rnd(ti)*20+20):hf=2:return
 1530 bc=bc-1:ifbc>0andgd<>1thenpokebp,42:goto1850
 1540 ifbc>0thenpokebp,42:return
 1550 rem      explosion
 1560 rem
 1570 nh=0:fori=1to9:x=peek(bp+m(i)):pokebp+m(i),xor128
 1580 ifx=102thencd=1
 1590 ifx=91andyf=1andnh=0thenpokebp+m(i),96:nh=1
 1600 ifx=90thenyd=1
 1610 ifx=65thenpokehp,32:gosub850
 1620 ifx=65andyf=1thentg=tg+1:sc=sc+tg*50+300:gosub810
 1630 ifx=219thenpokebp+m(i),32
 1640 next
 1650 fori=1to9:x=peek(bp+m(i)*2):pokebp+m(i)*2,xor128
 1660 ifx=102thencd=1
 1670 ifx=91andyf=1andnh=0thenpokebp+m(i)*2,96:nh=1
 1680 ifx=90thenyd=1
 1690 ifx=65thenpokehp,32:gosub850
 1700 ifx=65andyf=1thentg=tg+1:sc=sc+tg*50+300:gosub810:pokehp,32:gosub850
 1710 ifx=219thenpokebp+m(i)*2,32
 1720 next
 1730 fori=1to9:x=peek(bp+m(i)):pokebp+m(i),xand127
 1740 next
 1750 fori=1to9:x=peek(bp+m(i)*2):pokebp+m(i)*2,xand127
 1760 next
 1770 ifcd=1then2030
 1780 ifyd=1then1920
 1790 pokebp,96:ifyf=1thenpokebp,32
 1800 bf(hv)=1:me=hv:yf=0:yb=0:ifgd<>1thenhf=3:goto1850
 1810 hf=0:return
 1820 rem
 1830 rem        move back
 1840 rem
 1850 hm=hm-1:ifhm<=0thenhm=ts:goto1870
 1860 return
 1870 pokehp,32:hp=hp-hc:ifhp=mp(hv)thenpokehp,87:hp=mp(hv)+hc:goto1900
 1880 pokehp,65
 1890 return
 1900 ifhf=2thenreturn
 1910 hf=0:return
 1920 print"{clr}{down}you were blown up by a bomb.
 1930 print"{down}you should'nt play with bombs,little boy
 1940 ra=sc*is/2:print"{down}{down}{down}you got a rating of"ra"
 1950 print"{down}{down}{down}{down}{rvon}    press any key for another patrol   {rvof}"
 1960 geta$:ifa$<>""then1960
 1970 geta$:ifa$=""then1970
 1980 run
 1990 goto2230
 2000 print"{clr}{down}the coaster crashed.
 2010 print"you are sacked for being incompetent.":goto1940
 2020 goto2230
 2030 print"{clr}{down}the coaster was bombed. you failed.":goto1940
 2040 print"{clr}{down}you are a security guard Z at one of
 2050 print"{down}the marvellous mnli fun-fairs.
 2060 print"{down}your job is to protect the
 2070 print"{down}rollercoaster {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} from sabotours A
 2080 print"{down}who will plant bombs * on the track.
 2090 print"{down}to move use number pad and shift it to  {down}shoot."
 2100 geta$:ifa$=""then2100
 2110 print"{clr}{down}to clear bombs from the track you must
 2120 print"{down}pick them up and drop them (using space)
 2130 print"away from the track. you can shoot the
 2140 print"{down}saboteurs. if the bomb explodes and
 2150 print"{down}damages the track you must replace it
 2160 print"{down}with spare track {rvon}{SHIFT-+}{rvof} from the store."
 2170 print"{down}when the coaster is on any section
 2180 print"{down}of track you may stop it by getting
 2190 print"{down}to the control panel # .
 2200 geta$:ifa$=""then2200
 2210 return
 2220 return
 2230 ifpeek(45058)=180then$x,1,peek(45051)-48,"inhoud
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}rotate
    2 print:print"copyright 1978, commodore business      machines, inc.
    3 rem version 1.0:#g1008
    4 for zz=1 to 1500:nextzz
    5 dimb$(20):w$="":b$="{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}"
    6 print"{clr}{down}do you want instructions (y/n)?{rght}";:gosub9000:print:ifa$="n"then800
    8 if a$<>"y" and a$<>"n" then 6
   15 gosub5000:fori=0to17:b$(i)=chr$(i+65):next:print"{clr}
   20 print"{down}{down}board positions are occupied at random":print"by the letters a to p.
   30 print"{down}the object of the game is to order the"
   40 print"letters by moving any four of them -
   50 print"one position at a time - in a clockwise"
   60 print"direction.  all four  letters will move."
   70 print"you specify the upper left position of"
   80 print"the four letters you wish to rotate.{down}{down}"
   90 print"{rvon}     {rvof}   {rvon}     {rvof}  this shows the direction{left}{left}{left}{left}
  100 print"{rvon}  a  {rvof}{CBM-@}{CBM-@}M{rvon}  b  {rvof}  of rotation....
  110 print"{rvon}     {rvof}  N{rvon}     {rvof}
  120 print" NM      {CBM-M}
  130 print" {CBM-M}       MN
  140 print"{rvon}     {rvof}   {rvon}     {rvof}  you press 'a' to rotate
  150 print"{rvon}  d  {rvof}N{CBM-@}{CBM-@}{rvon}  c  {rvof}  these four squares.
  160 print"{rvon}     {rvof}M  {rvon}     {rvof}
  170 geta$:ifa$=""then170
  175 forx1=1to150:geta$:next
  180 b$(1)="c":b$(2)="g":b$(5)="b":b$(6)="f"
  190 print"{clr}":gosub600:t=26
  200 print"{home}{down}{down}
  210 printtab(t);"if the board":printtab(t);"is like this
  230 printtab(t);"at the start
  245 getx$:ifx$=""then245
  270 print"{down}{down}";tab(t);"and if you
  280 printtab(t);"rotate posi-":printtab(t);"tion c, the
  300 printtab(t);"board will":printtab(t);"change.
  320 b$(1)="b":b$(2)="c":b$(5)="f":b$(6)="g":a=ti
  340 if(ti-a)<160then340
  350 gosub600
  360 print"{down}      and you win!
  380 geta$:ifa$=""then380
  385 for x1=1to150:geta$:next
  400 print"{clr}{down}{down}you also get one 'special' move per
  410 print"game which you may or may not need.
  420 print"{down}the special move allows you to exchange
  430 print"any two adjacent letters in a row or    column.
  440 print"{down}to make this move, type 'r' as your
  450 print"move (the 'r' stands for 'restricted')
  455 print"{down}then you will be asked which two lettersyou wish to exchange.  ";
  460 print"they {rvon}must{rvof} be ad- jacent.
  470 print"{down}  only one special move per game!
  480 print"{down}  to give up, type 'q' as your move.
  490 print"{down}press any key to start the game.
  510 printtab(12);"good luck!
  520 geta$:ifa$=""then520
  525 forx1=1to150:geta$:next
  530 ifa$="q"then2060
  540 goto800
  600 print"{home}";
  610 printw$"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  620 fori=0to8step4:printw$;b$
  630 printw$"{SHIFT--}{rvon}  "b$(i)"  {rvof}{SHIFT--}{rvon}  "b$(i+1)"  {rvof}{SHIFT--}{rvon}  "b$(i+2)"  {rvof}{SHIFT--}{rvon}  "b$(i+3)"  {rvof}{SHIFT--}"
  640 printw$;b$
  650 printw$"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
  660 next:printw$;b$
  670 printw$"{SHIFT--}{rvon}  "b$(12)"  {rvof}{SHIFT--}{rvon}  "b$(13)"  {rvof}{SHIFT--}{rvon}  "b$(14)"  {rvof}{SHIFT--}{rvon}  "b$(15)"  {rvof}{SHIFT--}"
  680 printw$;b$
  690 printw$"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  740 return
  800 fori=1to39:er$=er$+" ":next
  810 fori=1to39:er$=er$+"{left}":next
  820 dn$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  830 w$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1000 b$="{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}{rvon}     {rvof}{SHIFT--}"
 1010 fori=0to17:b$(i)=chr$(65+i):next
 1020 fori=0to15:t=int(16*rnd(1))
 1040 t$=b$(i):b$(i)=b$(t):b$(t)=t$:nexti
 1060 m=0:s=0:print"{clr}":r$=b$(1):b$(1)=b$(2):b$(2)=r$:goto1140
 1080 gosub1190:ifg=0then2000
 1081 printdn$;er$"letter to rotate? ";
 1100 gosub3010:ifi=16then1500
 1105 ifi=17then7000
 1110 if(i=3)or(i=7)or((10<i)and(i<16))then6000
 1115 ifi=18then7000
 1120 m=m+1:t$=b$(i)
 1130 b$(i)=b$(i+4):b$(i+4)=b$(i+5):b$(i+5)=b$(i+1):b$(i+1)=t$
 1140 print"{home}{down}{down}{down}{down}":gosub600:gosub1190:goto1080
 1190 g=0:fori=0to15:ifchr$(i+65)<>b$(i)theng=1
 1200 next:return
 1500 print"{up}{up}you made  {left}{left}";m;"{left} moves before giving up.":goto2010
 2000 print"{clr}{down}{down}you ordered the board in";m;"moves.";:m1=m1+m:gg=gg+1
 2005 ifm<2thenprint"{left}{left}. "
 2010 print"":print"{down}do you want to play again?(y/n)";
 2015 gosub9000
 2020 if a$="y"then1000
 2025 if a$<>"n" and a$<>"y" then 2015
 2030 print"":print"{down}{down}you played";gg;"games.";:ifgg<2thenprint"{left}{left}. "
 2035 if gg=0 then 2070
 2040 print"{clr}you ordered the board in an average of"
 2045 printm1/gg;"moves per game.
 2046 ifm1/gg<2thenprint"{up}"m1/gg;"move per game. "
 2050 print"that's not bad, believe me!
 2060 print"{down}thanks for playing.{up}
 2070 end
 3000 printdn$;er$"bad move, try again. ";
 3010 gosub9000
 3200 fori=0to17:ifb$(i)=a$thenprint" {left}"a$:printer$:goto3300
 3210 next:goto3000
 3300 return
 5000 print "{down}{down}{down}{down}when you have read what is on the screen press any key."
 5040 geta$:ifa$=""then5040
 5045 forx1=1to150:geta$:next
 5050 return
 6000 printdn$;er$"illegal move - try again!":t=ti+60
 6010 ifti<tthen6010
 6020 goto1080
 7000 ifr=1then7550
 7010 r=1:l=0:print"{up}{up}exchange which two letters? ";:gosub9100
 7020 forj=0to17:ifb$(j)<>x$then7060
 7025 ifb$(j+1)=y$thenl=2
 7026 ifj>0thenifb$(j-1)=y$thenl=5
 7030 ifb$(j+4)=y$thenl=4
 7031 ifj>3thenifb$(j-4)=y$thenl=6
 7032 ifl=2then7040
 7033 ifl=6then7055
 7034 ifl=5then7057
 7035 ifl<>4then7500
 7036 t$=b$(j):b$(j)=b$(j+4):b$(j+4)=t$:goto7070
 7040 t$=b$(j):b$(j)=b$(j+1):b$(j+1)=t$:goto7070
 7055 t$=b$(j):b$(j)=b$(j-4):b$(j-4)=t$:goto7070
 7057 t$=b$(j):b$(j)=b$(j-1):b$(j-1)=t$:goto7070
 7060 next
 7070 m=m+1:gosub600:goto1080
 7500 print"{up}sorry - ";x$;" and ";y$;" are not adjacent.":r=0
 7510 a=ti
 7520 if(ti-a)<90then7520
 7530 goto1080
 7550 print"{up}{up}sorry - only one special move per game.":goto7510
 9000 print"{CBM-+}{left}";:fori=c1to50:geta$:ifa$<>""thenreturn
 9010 next:print"{rvof} {left}";:fori=c1to50:geta$:ifa$<>""thenreturn
 9020 next:goto9000
 9100 print"{CBM-+}{CBM-+}{left}{left}";:fori=c1to50:getx$:ifx$<>""then9130
 9110 next:print"  {left}{left}";:fori=c1to50:getx$:ifx$<>""then9130
 9120 next:goto9100
 9130 ifx$<"a"or"p"<x$then9100
 9140 printx$;
 9150 print"{CBM-+}{left}";:fori=c1to50:gety$:ify$<>""then9180
 9160 next:print" {left}";:fori=c1to50:gety$:ify$<>""then9180
 9170 next:goto9150
 9180 ify$<"a"or"p"<y$then9150
 9190 printy$:return
 63999 end:"end of rotate property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
 5000 rem 1.9.79 umgeschrieben gerhard baumgaertner celtis-gymnasium schweinfurt
 5001 data"{home}               zero"
 5002 data"{home}{down}           {rvon}  1 "
 5003 data"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}2{CBM-T}"
 5004 data"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  3 "
 5005 data"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G} 4 "
 5006 data"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  5 "
 5007 data"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  6{CBM-M}"
 5008 data"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  7 "
 5009 data"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  8 "
 5010 data"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  9 "
 5011 data"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}10{CBM-M}"
 5012 data"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}11{CBM-T}"
 5013 data"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}12{CBM-M}"
 5014 data"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}13{CBM-T}"
 5015 data"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 14 "
 5016 data"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}15{CBM-M}"
 5017 data"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 16 "
 5018 data"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} 17 "
 5019 data"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 18 "
 5020 data"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-T}19{CBM-T}"
 5021 data"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}20{CBM-T}"
 5022 data"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-T}21{CBM-T}"
 5023 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}22 "
 5024 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 23 "
 5025 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} 24{CBM-M}"
 5026 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 25 "
 5027 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} 26 "
 5028 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 27 "
 5029 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}28 "
 5030 data"{home}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}29{CBM-T}"
 5031 data"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-T}30{CBM-T}"
 5032 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}31{CBM-T}"
 5033 data"{home}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 32 "
 5034 data"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} 33{CBM-M}"
 5035 data"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 34 "
 5036 data"{home}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}35{CBM-@}"
 5037 data"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} 36 "
 5038 data1,2,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1
 5039 data1,2,1,2,1,2,1,2,1,2,2,1,2,1,2,1,2,1
 5040 dimf$(37),cl%(36),f%(36)
 5041 fori=1to37:readf$(i):next
 5042 fori=1to36:readcl%(i):next
 5043 poke59468,14
 5045 print"{clr}";tab(10);"R{$a0}O{$a0}U{$a0}L{$a0}E{$a0}T{$a0}T{$a0}E":print tab(10);"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":print
 5050 print"Sie sind Spieler, der Computer die Bank":print
 5055 input"Wieviele Spielmarken wuenschen Sie";p:s=p:if p<=499 then 5065
 5060 print"Sie sind aber masslos!"
 5065 print"Sie besitzen";s;" Spielmarken [Taste]"
 5070 get wa$:if wa$="" then 5070
 5075 print"{clr}";tab(15);"Gewinnplan":printtab(15);"{CBM-T} {CBM-T}{$a0}{CBM-T}{$a0}{CBM-T} {CBM-T} {CBM-T}":print
 5080 printtab(14);"Richtig gesetzt";tab(33)"Falsch-":print:t$="-mal Einsatz"
 5085 u1$="die":u2$="Bank":u3$="dankt"
 5090 print"Zahl";tab(14);"36";t$;tab(33);u1$
 5095 print"n-Zahlen";tab(14);"36/n";t$
 5100 print"Reihe 1,2,3";tab(14);"3";t$;tab(33);u2$
 5105 print"Rouge-Noir";tab(14);"2";t$
 5110 print"Pair-Impair";tab(14);"2";t$;tab(33);u3$
 5115 print"Manque-Passe";tab(14);"2";t$:print:w$="Sie besitzen noch"
 5120 f$="Wieviel wollen Sie riskieren?"
 5125 print"Faites votre jeu (Setzen Sie)!":print
 5130 a$=" ":print"Wollen Sie auf eine Zahl setzen (J/N)"
 5135 get xy$:if xy$="" then 5135
 5140 if xy$="n"then 5150
 5145 gosub 5800
 5150 print"Reihe 1,2,3(1,2,3)"
 5155 get m$:if m$="" then 5155
 5160 if m$="1" or m$="2" or m$="3" then 5170
 5165 goto 5175
 5170 b$="Reihe"+m$:print w$;s-a;"Spielmarken":print f$:input b
 5175 s=s-a:print"Rouge-Noir(R/N)"
 5180 get g$:if g$="" then 5180
 5185 if g$<>"r" then 5195
 5190 c$="Rouge":goto 5205
 5195 if g$<>"n" then 5210
 5200 c$="Noir"
 5205 print w$;s-b;"Spielmarken":print f$:input c
 5210 s=s-b:print"Pair-Impair (P/I)"
 5215 get h$:if h$="" then 5215
 5220 if h$<>"p" then 5230
 5225 d$="Pair":goto 5240
 5230 if h$<>"i" then 5245
 5235 c$="Impair"
 5240 print w$;s-c;"Spielmarken":print f$:input d
 5245 s=s-c:print"Manque-Passe (M/P)"
 5250 get o$:if o$="" then 5250
 5255 if o$<>"m" then 5265
 5260 e$="Manque":goto 5275
 5265 if o$<>"p" then 5280
 5270 e$="Passe"
 5275 print w$;s-d;" Spielmarken":print f$:input e
 5280 s=s-d-e:printw$;s;"Spielmarken":print:f=a+b+c+d+e:if s>=0 then 5295
 5285 print"{clr}{down}{down}{down}Nicht so, mein Freundchen!!":print"Kein Betrug bitte!"
 5290 print"Ihr Spielkapital wird eingezogen!":goto 5710
 5295 if f<=s/2 then 5310
 5300 for i=1 to 2000:next
 5305 print"{clr}     Sie haben Mut! Nur weiter so!":goto 5320
 5310 if f>s/10 then 5320
 5315 print"Seien Sie beim naechsten Mal bitte":print"nicht so knausrig"
 5320 print:printtab(10);"{rvon}Rien ne va plus{rvof}"
 5325 for j=1 to 39:print"*";:next
 5330 for i=1 to 3000:next:print"{clr}"
 5335 for i=1 to 37:print f$(i):next
 5340 for i=1 to 25
 5345 x=int(37*rnd(ti)):printf$(x+1);
 5350 for j=1 to i^1.5:next j:print"{rvof}{left}{left}{left}{left}    "
 5355 for j=1 toi^1.5:next j:printf$(x+1):next i
 5360 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";x;:printtab(10);"alea iacta est":print
 5365 gosub 5900:for i=1 to 2000:next:print"{clr}{down}{down}"
 5370 print x;:if x=0 then 5380
 5375 goto 5390
 5380 if a$="0" then 5545
 5385 print"Ihr Einsatz ist verloren, da":print"x = ";x;"   Domage":goto 5625
 5390 if x/3=int(x/3) then 5410
 5395 if x/3=int(x/3)+2/3 then 5405
 5400 g$="Reihe1":goto 5415
 5405 g$="Reihe2":goto 5415
 5410 g$="Reihe3"
 5415 printtab(8);g$;:if x>=29 then 5445
 5420 if x>=19 then 5430
 5425 if x>=11 then 5445
 5430 if x/2=int(x/2) then 5440
 5435 h$="Rouge":goto 5455
 5440 h$="Noir":goto 5455
 5445 if x/2=int(x/2) then 5435
 5450 goto 5440
 5455 printtab(16);h$;:if x/2=int(x/2) then 5465
 5460 i$="Impair":goto 5470
 5465 i$="Pair"
 5470 printtab(23);i$;:if x<=18 then 5480
 5475 j$="Passe":goto 5485
 5480 j$="Manque"
 5485 print tab(30);j$:print:print"Gesetzt wurde auf:"
 5490 if xy$="n" then 5500
 5495 print:print" ";aa$;"     "
 5500 printtab(8);b$;tab(16);c$;tab(23);d$;tab(30);e$:print
 5505 l$="Guthaben":k$=" Einsatz wird ver"
 5510 if w=0 then 5520
 5515 if a$=x$ then 5545
 5520 if b$=g$ then 5560
 5525 if c$=h$ then 5570
 5530 if d$=i$ then 5580
 5535 if e$=j$ then 5590
 5540 goto 5595
 5545 print"1 aus";aa$;"richtig";k$;"-";36/w;"facht"
 5550 prints;"+";36/w;"*";a;"=";s+(36*a)/w;l$
 5555 s=s+((36*a)/w):goto 5520
 5560 print"Reihe richtig";k$;"-3-facht":print s;"+3*";b;"=";s+3*b;l$
 5565 s=s+3*b:goto 5525
 5570 print"Farbe richtig";k$;"-2-facht":print s;"+2*";c;"=";s+2*c;l$
 5575 s=s+2*c:goto 5530
 5580 printd$;" richtig";k$;"-2-facht":prints;"+2*";d;"=";s+2*d;l$
 5585 s=s+2*d:goto 5535
 5590 printe$;" richtig";k$;"-2-facht":prints;"+2*";e;"=";s+2*e;l$:s=s+2*e
 5595 print:print"Somit haben Sie noch":print tab(8);s;" Spielmarken"
 5600 if s>36*p then 5610
 5605 goto 5620
 5610 print"Sie haben die Bank gesprengt!"
 5615 printtab(8);"Grrrrrrrrr....!!!!!":print"trotzdem";:goto 5695
 5620 if s=0 then 5650
 5625 print:print"Sie koennen Ihr Vermoegen vergroessern!"
 5630 print"Wollen Sie noch ein weiteres Mal ":print"setzen (j/n) "
 5635 get y$:if y$="" then 5635
 5640 print:if y$="n" then 5670
 5645 goto 5065
 5650 print"Wer viel wagt, kann viel verlieren!"
 5655 print"Das sagte schon der Programmierer,als "
 5660 print"er von der Spielsucht ueberfallen wurde"
 5665 print"Uebrigens: es dankt die Bank":goto 5710
 5670 if s>p then 5695
 5675 print"Sie sind sehr massvoll und verspielen "
 5680 print"nicht ihr ganzes Geld! Ihre Frau/Mann"
 5685 print"wird einmal sehr mit Ihnen zufrieden"
 5690 print"sein!":goto 5710
 5695 print"Gut gemacht! Aber bilden sie sich"
 5700 print"darauf nur nichts ein!":print"Denn ihr Gewinn beruht auf:"
 5705 print"Wunder gibt es immer wieder!!!!"
 5710 get ac$: if ac$="" then 5710
 5715 print"{clr}":poke 59468,12
 5720 end
 5800 print"Geben Sie bei mehreren Zahlen in der"
 5805 print"Form a1/a2/....[return] ein:"
 5810 input a$:print w$;s;" Spielmarken":print f$:input a
 5815 return
 5900 aa$=a$:x$=str$(x):x$=mid$(x$,2,2):w=0:n=0:if a$=" " then 5950
 5905 for i=1 to len(a$)
 5910 we$=mid$(a$,i,1):if we$="/" then 5920
 5915 goto 5935
 5920 tr$=mid$(a$,i-n,n):n=0:w=w+1
 5925 if tr$<>x$ then 5940
 5930 a$=x$:goto 5940
 5935 n=n+1
 5940 next
 5945 w=w+1:tr$=mid$(a$,len(a$)-n,n):if tr$=x$ then a$=x$
 5950 return
   10 print chr$(142);"{clr}"
   20 printtab(20);"WQW   QWQ  W    Q W    Q  WQW   QWQ"
   30 printtab(20);"Q{$a0}{$a0}W Q{$a0}{$a0}{$a0}W  Q{$a0}{$a0}W{$a0}{$a0}{$a0}Q{$a0}{$a0}W{$a0}{$a0}Q{$a0}{$a0}{$a0}W{$a0}{$a0}Q{$a0}{$a0}W"
   40 printtab(20);"W{$a0}{$a0}Q{$a0}W{$a0}{$a0}{$a0}Q{$a0}{$a0}{$a0}WQ{$a0}{$a0}{$a0}{$a0}{$a0}WQ{$a0}{$a0}{$a0}W{$a0}{$a0}{$a0}Q{$a0}{$a0}W{$a0}{$a0}Q"
   50 printtab(20);"QWQ{$a0}{$a0}Q   W{$a0}{$a0}{$a0}QW{$a0}{$a0}{$a0}{$a0}{$a0}QW{$a0}{$a0}{$a0}Q{$a0}{$a0}{$a0}W{$a0}{$a0}QWQ"
   60 printtab(20);"W W{$a0}{$a0}W{$a0}{$a0}{$a0}Q{$a0}{$a0}W{$a0}{$a0}Q{$a0}{$a0}{$a0}W{$a0}{$a0}Q{$a0}{$a0}W{$a0}{$a0}{$a0}Q{$a0}{$a0}W W"
   70 printtab(20);"Q{$a0} Q{$a0} QWQ {$a0}Q{$a0}{$a0}{$a0}{$a0}W{$a0}Q{$a0}{$a0}{$a0}{$a0}W{$a0}{$a0}QWQ{$a0}{$a0}{$a0}Q{$a0} Q"
   80 print"{down}{down}(c) unbekannt, idee geklaut von unbekannt, diese version von";
   90 print" senil data systems"
   94 print
   95 print"    player 1";
  100 printtab(37);"steuerung";
  105 printtab(65);"player 2"
  110 print"       w";:print tab(68);"5"
  120 print"     a s d";:print tab(66);"1 2 3"
  130 print"{down}wenn ihr energiekristalle einsammelt, legt ihr eine spur."
  140 print"wer in die reinfaehrt, ist tot. ein bisschen wie tron lightcycles"
  141 print"{down}{down}das spiel hab ich auf meinem atari. ich hab es mir aus dem";
  142 print" internet geladen."
  145 get a$:if a$=""then 145
  146 print"{clr}"
  150 e1=0:e2=0:rem life energy this means the capability of laying dots
  160 x1=20:y1=13:x2=60:y2=13
  170 d1=4:d2=3:rem 1 up 2 down 3 left 4 right
  171 for t=0 to 79:poke32848+t,160:next t
  172 for t=0 to 24:poke 32848+t*80,160:next t
  173 for t=0 to 24:poke 32927+t*80,160:next t
  174 for t=0 to 79:poke 34688+t,160:next t
  175 for t=1 to 10
  176 x=int(rnd(0)*75)+2:y=int(rnd(0)*20)+3
  177 poke 32768+x+80*y,90
  178 next t
  180 print"{home}energy player 1";e1;:print tab(60);"energy player 2";e2
  195 if e1>0 then poke 32768+x1+y1*80,86
  205 if e2>0 then poke 32768+x2+y2*80,86
  210 get a$:rem thanks to all input is buffered
  220 if a$="a" and not d1=4 then d1=3:rem forbid one-move 180 poweslides
  230 if a$="d" and not d1=3 then d1=4:rem which would lead to self destruct
  240 if a$="w" and not d1=2 then d1=1
  250 if a$="s" and not d1=1 then d1=2
  260 if a$="1" and not d2=4 then d2=3
  270 if a$="3" and not d2=3 then d2=4
  280 if a$="5" and not d2=2 then d2=1
  285 if a$="2" and not d2=1 then d2=2
  286 if x1=x2 and y1=y2 then goto 1100
  290 if e1=0 then poke 32768+x1+y1*80,32
  295 if e2=0 then poke 32768+x2+y2*80,32
  300 if d1=1 then y1=y1-1
  302 if d1=2 then y1=y1+1
  305 if d1=3 then x1=x1-1
  307 if d1=4 then x1=x1+1
  310 if d2=1 then y2=y2-1
  311 if d2=2 then y2=y2+1
  312 if d2=3 then x2=x2-1
  313 if d2=4 then x2=x2+1
  320 if e2>0 then e2=e2-1
  321 if e1>0 then e1=e1-1
  330 tm=peek(32768+x1+80*y1)
  340 if tm=160 or tm=86 then goto 1010:rem player 1 loses
  345 if tm=90 then e1=e1+40
  350 tm=peek(32768+x2+80*y2)
  360 if tm=160 or tm=86 then goto 1050:rem player 2 loses
  365 if tm=90 then e2=e2+40
  370 poke 32768+x1+80*y1,81
  380 poke 32768+x2+80*y2,87
  381 print"{home}";tab(15);e1;tab(76);e2
  390 goto 195
 1010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(32);"{rvon}                "
 1020 print tab(32);"{rvon} {rvof}player 2 wins!{rvon} "
 1030 print tab(32);"{rvon}                "
 1049 end
 1050 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(32);"{rvon}                "
 1060 print tab(32);"{rvon} {rvof}player 1 wins!{rvon} "
 1070 print tab(32);"{rvon}                "
 1099 end
 1100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(29);"{rvon}                       "
 1110 print tab(29);"{rvon} {rvof}collision - no winner{rvon} {rvof}"
 1120 print tab(29);"{rvon}                       "
  100 poke59468,12
  110 rem#######copyright by ############
  120 rem dieter moeller & matthias weber
  130 rem thueringerstr.1  beethovenstr.3
  140 rem 6231 schwalbach   6407  schlitz
  150 rem########### 1980 ###############
  160 rem**********version 5.0***********
  170 rem********************************
  180 rem*eingabe der farben
  190 gosub2850
  200 print"{clr} *  rubik's cube  *  rubik's cube  *"
  210 print:print"dieses programm hilft ihnen den zauber-"
  220 print"wuerfel wieder in den originalzustand"
  230 print"zu drehen, in dem alle seiten       "
  240 print"einfarbig sind."
  250 print:print"als erstes muss der momentane zustand"
  260 print"des wuerfels beschrieben werden.
  270 print"dazu werden die farben der einzelnen "
  280 print"seiten eingegeben."
  290 print:print"die farben werden durch die anfangs-"
  300 print"buchstaben mit der ausnahme bei gelb"
  310 print"benannt."
  320 print:print"die aktuelle stelle auf der wuerfelseite";
  330 print"wird an der entsprechenden stelle mit"
  340 print"dem cursor gekennzeichnet."
  350 print:print"fehler koennen mit 'del' behoben werden.";
  360 print:print:print"bitte eine taste druecken!"
  370 getx$:ifx$=""then370
  380 print"{clr}";
  390 print"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  400 print"{SHIFT--}weiss{SHIFT--}gelb {SHIFT--}orang{SHIFT--}gruen{SHIFT--}blau {SHIFT--}rot  {SHIFT--}"
  410 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  420 print"{SHIFT--}  w  {SHIFT--}  y  {SHIFT--}  o  {SHIFT--}  g  {SHIFT--}  b  {SHIFT--}  r  {SHIFT--}"
  430 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
  440 print:print"{rvon}1.seite{rvof}:"
  450 print"legen sie nun den wuerfel vor sich hin"
  460 print"und geben sie die farben der ihnen zu-"
  470 print"gewandten seite zeilenweise an."
  480 print:print
  490 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
  500 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  510 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  520 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  530 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  540 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  550 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  560 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  570 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  580 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  590 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  600 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"
  610 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{up}{up}{up}"
  620 j=0:gosub2610
  630 gosub2800:print"{home}{down}{down}{down}{down}{down}"
  640 print"{rvon}2.seite{rvof}:"
  650 print"kippen sie nun den wuerfel nach vorne,"
  660 print"damit jetzt die obere seite ihnen zu-"
  670 print"gewendet ist."
  680 j=1:gosub2610
  690 gosub2800:print"{home}{down}{down}{down}{down}{down}"
  700 print"{rvon}3.seite{rvof}:"
  710 print"kippen sie nun den wuerfel nach vorne,"
  720 print"damit jetzt die obere seite ihnen zu-"
  730 print"gewendet ist."
  740 j=2:gosub2610
  750 gosub2800:print"{home}{down}{down}{down}{down}{down}"
  760 print"{rvon}4.seite{rvof}:"
  770 print"kippen sie nun den wuerfel nach vorne,"
  780 print"damit jetzt die obere seite ihnen zu-"
  790 print"gewendet ist."
  800 j=3:gosub2610
  810 gosub2800:print"{home}{down}{down}{down}{down}{down}"
  820 print"{rvon}5.seite{rvof}:"
  830 print"drehen sie nun den wuerfel so,dass die"
  840 print"rechte seite ihnen zugewendet ist."
  850 j=4:gosub2610
  860 gosub2800:print"{home}{down}{down}{down}{down}{down}"
  870 print"{rvon}6.seite{rvof}:"
  880 print"drehen sie nun den wuerfel zweimal so,"
  890 print"dass jeweils die rechte seite ihnen "
  900 print"zugewendet ist."
  910 j=5:gosub2610
  920 print"{clr}";
  930 fori=1to14:printspc(2*i-1);"bitte warten":next:printspc(27);"bitte warten"
  940 fori=0to8:printspc(26-2*i);"bitte warten":next:print"{home}";
  950 fori=0to9:printtab(27-3*i);"{rvon}bitte warten{rvof}":next
  960 fori=0to13:printtab(2*i);"{rvon}bitte warten{rvof}":next
  970 tr$(1)=ws$(1,4):tr$(2)=ws$(0,4):tr$(3)=ws$(4,4)
  980 tr$(4)=ws$(5,4):tr$(5)=ws$(2,4):tr$(6)=ws$(3,4)
  990 fori1=0to5:fori2=0to8:fori=1to6:ifws$(i1,i2)<>tr$(i)thennexti
 1000 ws$(i1,i2)=chr$(i+48):nexti2,i1
 1010 wb$(0,0,0)=ws$(5,8)+ws$(2,0)+ws$(3,6)
 1020 wb$(1,0,0)=ws$(2,1)+ws$(3,7)
 1030 wb$(2,0,0)=ws$(4,6)+ws$(2,2)+ws$(3,8)
 1040 wb$(0,1,0)=ws$(5,7)+ws$(2,3)
 1050 wb$(1,1,0)=ws$(2,4)
 1060 wb$(2,1,0)=ws$(4,7)+ws$(2,5)
 1070 wb$(0,2,0)=ws$(1,0)+ws$(5,6)+ws$(2,6)
 1080 wb$(1,2,0)=ws$(1,1)+ws$(2,7)
 1090 wb$(2,2,0)=ws$(1,2)+ws$(4,8)+ws$(2,8)
 1100 wb$(0,0,2)=ws$(0,6)+ws$(5,2)+ws$(3,0)
 1110 wb$(1,0,2)=ws$(0,7)+ws$(3,1)
 1120 wb$(2,0,2)=ws$(0,8)+ws$(4,0)+ws$(3,2)
 1130 wb$(0,1,2)=ws$(0,3)+ws$(5,1)
 1140 wb$(1,1,2)=ws$(0,4)
 1150 wb$(2,1,2)=ws$(0,5)+ws$(4,1)
 1160 wb$(0,2,2)=ws$(1,6)+ws$(0,0)+ws$(5,0)
 1170 wb$(1,2,2)=ws$(1,7)+ws$(0,1)
 1180 wb$(2,2,2)=ws$(1,8)+ws$(0,2)+ws$(4,2)
 1190 wb$(0,0,1)=ws$(5,5)+ws$(3,3)
 1200 wb$(1,0,1)=ws$(3,4)
 1210 wb$(2,0,1)=ws$(4,3)+ws$(3,5)
 1220 wb$(0,1,1)=ws$(5,4)
 1230 wb$(1,1,1)=""
 1240 wb$(2,1,1)=ws$(4,4)
 1250 wb$(0,2,1)=ws$(1,3)+ws$(5,3)
 1260 wb$(1,2,1)=ws$(1,4)
 1270 wb$(2,2,1)=ws$(1,5)+ws$(4,5)
 1280 rem*transformation
 1290 forz=0to2:fory=0to2:forx=0to2
 1300 sp(x,y,z)=1:i=0:j1=1:j2=1
 1310 iflen(wb$(x,y,z))<2then1400
 1320 i1=asc(left$(wb$(x,y,z),1)):i2=asc(mid$(wb$(x,y,z),2,1))
 1330 i3=57:iflen(wb$(x,y,z))=3theni3=asc(mid$(wb$(x,y,z),3,1))
 1340 ifi1>i2thenh=i1:i1=i2:i2=h:sp(x,y,z)=sp(x,y,z)+1:i=i+1
 1350 ifi2>i3thenh=i2:i2=i3:i3=h:j2=-1:i=i+1
 1360 ifi1>i2thenh=i1:i1=i2:i2=h:sp(x,y,z)=sp(x,y,z)+1:j1=-1
 1370 sp(x,y,z)=sp(x,y,z)*j2:ifi=2thensp(x,y,z)=3*j1
 1380 i3$=chr$(i3):iflen(wb$(x,y,z))<>3theni3$=""
 1390 wb$(x,y,z)=chr$(i1)+chr$(i2)+i3$
 1400 fori=0to26:ifwb$(x,y,z)=wo$(i)thenwn(x,y,z)=i
 1410 nexti
 1420 nextx,y,z
 1430 rem*eingabe-kontrolle
 1440 b%=-1
 1450 fori=0to26:b1%=0
 1460 fori1=0to2:fori2=0to2:fori3=0to2
 1470 ifwn(i1,i2,i3)=ithenb1%=1
 1480 nexti3,i2,i1
 1490 b%=b%*b1%
 1500 nexti
 1510 print:ifb%thenprint"die eingabe war korrekt":goto1560
 1520 print"die eingabe der farben war inkorrekt!"
 1530 print:print"geben sie bitte alles noch einmal ein."
 1540 fori=0to2000:nexti:clr:goto190
 1550 rem*ordnen der 1.ebene
 1560 f$="/"
 1570 k=0:x=1:y=0:z=2:gosub6110:gosub6510
 1580 k=1:x=0:y=0:z=1:gosub6110:gosub6510
 1590 k=2:x=2:y=0:z=1:gosub6110:gosub6510
 1600 k=3:x=1:y=0:z=0:gosub6110:gosub6510
 1610 k=0:x=2:y=0:z=2:gosub6110:gosub6510
 1620 k=1:x=0:y=0:z=2:gosub6110:gosub6510
 1630 k=2:x=0:y=0:z=0:gosub6110:gosub6510
 1640 k=3:x=2:y=0:z=0:gosub6110:gosub6510
 1650 rem*ordnen der 2.ebene
 1660 fori2=1to25step2:fori1=0to3:fori3=0to1
 1670 readx$:e1$(i1,i2,i3)=x$:nexti3,i1,i2
 1680 k=0:x=2:y=1:z=2:gosub6110:gosub6510
 1690 k=1:x=0:y=1:z=2:gosub6110:gosub6510
 1700 k=2:x=0:y=1:z=0:gosub6110:gosub6510
 1710 k=3:x=2:y=1:z=0:gosub6110:gosub6510
 1720 rem*ordnen der 3.ebene
 1730 fh$=left$(f$,len(f$)-1):f$="/"
 1740 h=sp(2,2,1)-1+2*(sp(1,2,2)-1)+4*(sp(0,2,1)-1)+8*(sp(1,2,0)-1)
 1750 tf$=""
 1760 ifh=15thentf$="231{rvon}312{rvof}514{rvon}145{rvof}"
 1770 ifh=12thentf$="514{rvon}145{rvof}"
 1780 ifh=10thentf$="541{rvon}415{rvof}"
 1790 ifh=9thentf$="315{rvon}153{rvof}"
 1800 ifh=6thentf$="412{rvon}124{rvof}"
 1810 ifh=5thentf$="421{rvon}214{rvof}"
 1820 ifh=3thentf$="213{rvon}132{rvof}"
 1830 f$=f$+tf$+"/"
 1840 gosub6160
 1850 i1=0:i2=0
 1860 ifwn(0,2,1)=15theni1=i1+1:i2=i2+1
 1870 ifwn(1,2,2)=25theni1=i1+1:i2=i2+2
 1880 ifwn(2,2,1)=17theni1=i1+1:i2=i2+4
 1890 ifwn(1,2,0)=7theni1=i1+1:i2=i2+8
 1900 ifi1<2thenf$=f$+"1":tf$="1":gosub6160:goto1850
 1910 tf$=""
 1920 ifi2=3thentf$="{rvon}41{rvof}4{rvon}14{rvof}11421{rvon}2{rvof}1211{rvon}2{rvof}1"
 1930 ifi2=9thentf$="{rvon}51{rvof}5{rvon}15{rvof}11541{rvon}4{rvof}1411{rvon}4{rvof}1"
 1940 ifi2=12thentf$="{rvon}31{rvof}3{rvon}13{rvof}11351{rvon}5{rvof}1511{rvon}5{rvof}1"
 1950 ifi2=6thentf$="{rvon}21{rvof}2{rvon}12{rvof}11231{rvon}3{rvof}1311{rvon}3{rvof}1"
 1960 ifi2=5thentf$="{rvon}41{rvof}4{rvon}14{rvof}11421{rvon}2{rvof}1211{rvon}2{rvof}11{rvon}21{rvof}2{rvon}12{rvof}11231{rvon}3{rvof}1311{rvon}3{rvof}1"
 1970 ifi2=10thentf$="{rvon}41{rvof}4{rvon}14{rvof}11421{rvon}2{rvof}1211{rvon}251{rvof}5{rvon}15{rvof}11541{rvon}4{rvof}1411{rvon}4{rvof}1"
 1980 f$=f$+tf$+"/":gosub6160
 1990 xp$="13{rvon}14{rvof}1{rvon}31{rvof}4":xm$="{rvon}4{rvof}13{rvon}1{rvof}41{rvon}31{rvof}":z$="541{rvon}41{rvof}41{rvon}41{rvof}41{rvon}415{rvof}":tf$=""
 2000 ifwn(0,2,0)<>6then2030
 2010 ifwn(2,2,0)=26thentf$="11"+xm$+"11":goto2150
 2020 ifwn(2,2,0)=24thentf$="11"+xp$+"11":goto2150
 2030 ifwn(2,2,0)<>8then2060
 2040 ifwn(0,2,0)=26thentf$="1"+xm$+"{rvon}1{rvof}":goto2150
 2050 ifwn(0,2,0)=24thentf$="1"+xp$+"{rvon}1{rvof}":goto2150
 2060 ifwn(2,2,2)<>26then2090
 2070 ifwn(0,2,0)=8thentf$=xm$:goto2150
 2080 ifwn(0,2,0)=24thentf$=xp$:goto2150
 2090 ifwn(0,2,2)<>24then2120
 2100 ifwn(0,2,0)=8thentf$="{rvon}1{rvof}"+xm$+"1":goto2150
 2110 ifwn(0,2,0)=26thentf$="{rvon}1{rvof}"+xp$+"1":goto2150
 2120 ifwn(2,2,0)=6thentf$=z$:goto2150
 2130 ifwn(2,2,0)=26thentf$="1"+z$+"{rvon}1{rvof}"
 2140 ifwn(2,2,0)=24thentf$=z$+"1"+z$+"{rvon}1{rvof}"
 2150 f$=f$+tf$+"/":gosub6160
 2160 kp$="{rvon}3{rvof}6326{rvon}2{rvof}12{rvon}6236{rvof}3{rvon}1{rvof}":km$="1{rvon}3{rvof}6326{rvon}21{rvof}2{rvon}6236{rvof}3":tf$=""
 2170 ifabs(sp(2,2,2))=2thentf$=km$:gosub6160:f$=f$+tf$:goto2190
 2180 ifabs(sp(2,2,2))=3thentf$=kp$:gosub6160:f$=f$+tf$:goto2190
 2190 f$=f$+"/"
 2200 ifabs(sp(2,2,0))=2thentf$="1"+km$+"{rvon}1{rvof}":gosub6160:f$=f$+tf$:goto2220
 2210 ifabs(sp(2,2,0))=3thentf$="1"+kp$+"{rvon}1{rvof}":gosub6160:f$=f$+tf$:goto2220
 2220 f$=f$+"/"
 2230 ifabs(sp(0,2,0))=2thentf$="11"+kp$+"{rvon}11{rvof}":gosub6160:f$=f$+tf$:goto2250
 2240 ifabs(sp(0,2,0))=3thentf$="11"+km$+"{rvon}11{rvof}":gosub6160:f$=f$+tf$
 2250 rem*re-transformation
 2260 b=0:h1$=f$:f$=fh$
 2270 j=0
 2280 fori=1tolen(f$):x$=mid$(f$,i,1)
 2290 ifx$="/"thenj=j+1:fr$(j)=""
 2300 ifx$<>"/"andx$<>"{rvon}"andx$<>"{rvof}"thenx$=tr$(asc(x$)-48)
 2310 fr$(j)=fr$(j)+x$:nexti
 2320 ifb=1then2350
 2330 b=1:f$=h1$:goto2280
 2340 rem*ausgabe der loesung
 2350 print"{clr}die nachfolgend aufgefuehrten farben":print
 2360 print"bedeuten operationen, die am wuerfel ":print
 2370 print"durchzufuehren sind.ein 'b' bedeutet ":print
 2380 print"z.b., dass die seite in deren mitte ":print
 2390 print"sich ein blaues feld befindet im uhr-":print
 2400 print"zeigersinn zu drehen ist;bei einem '{rvon}b{rvof}'":print
 2410 print"muss die gleiche seite entgegengesetzt":print
 2420 print"gedreht werden.":print
 2430 print"zum weiterschalten bitte {rvon}space{rvof} druecken"
 2440 print:print"folgender loesungsweg wurde gefunden:"
 2450 fori1=1toj
 2460 getx$:ifx$=""orx$<>" "thengoto2460
 2470 printfr$(i1):nexti1
 2480 print"{down}sollten sie jetzt immer noch nicht den  "
 2490 print"original-wuerfel vor sich sehen, so rate"
 2500 print"ich ihnen erst mal ihre brille zu putzen"
 2510 print"und wenn das nichts hilft, das programm "
 2520 print"noch einmal zu starten, denn dann haben "
 2530 print"sie bestimmt einmal in die falsche      "
 2540 print"richtung gedreht !"
 2550 ifpeek(45058)=180then2570
 2560 end
 2570 print"{down}[{rvon}space{rvof}]
 2580 geta$:ifa$=""then2580
 2590 $x,peek(45051)-48,"inhoud
 2600 rem****************************
 2610 rem*eingabe einer seite
 2620 fori=0to8:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";pr$(i);" ":nexti
 2630 k=0
 2640 ifk=9thenreturn
 2650 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";pr$(k);
 2660 gosub2730
 2670 ifasc(x$)=20then2700
 2680 ifx$<>"w"andx$<>"y"andx$<>"o"andx$<>"g"andx$<>"b"andx$<>"r"then2660
 2690 printx$:ws$(j,k)=x$:k=k+1:goto2640
 2700 print" {left}":ifk=0then2650
 2710 k=k-1:goto2650
 2720 rem*cursor-routine
 2730 print" {left}";:zv=0
 2740 zv=zv+1:getx$:ifx$<>""thenreturn
 2750 ifzv<20then2740
 2760 print"{rvon} {rvof}{left}";
 2770 zv=zv+1:getx$:ifx$<>""thenreturn
 2780 ifzv<40then2770
 2790 goto2730
 2800 rem*kurze pause bei der eingabe
 2810 print"{home}{down}{down}{down}{down}{down}"
 2820 fori=0to4:print"                                      ":nexti
 2830 fori=0to200:nexti
 2840 return
 2850 rem*initialisierung
 2860 restore:dimws$(5,8),wn(2,2,2),sp(2,2,2),wb$(2,2,2),wo$(26),e1$(3,26,2)
 2870 dimsm(6,2),fr$(20)
 2880 fori1=0to6:fori2=0to2:readi:sm(i1,i2)=i:nexti2,i1
 2890 fori=0to8:readx$:pr$(i)=x$:nexti
 2900 fori=0to26:readx$:wo$(i)=x$:nexti
 2910 fori2=0to26:fori1=0to3:fori3=0to2
 2920 readx$:e1$(i1,i2,i3)=x$:nexti3,i1,i2
 2930 return
 2940 data3,1,-2,2,-1,-3,1,-2,3,0,0,0,-1,-3,2,-2,3,1,-3,2,-1
 2950 data"","{rght}{rght}{rght}{rght}","{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}","{down}{down}{down}{down}","{down}{down}{down}{down}{rght}{rght}{rght}{rght}","{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}","{down}{down}{down}{down}{down}{down}{down}{down}"
 2960 data"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}","{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 2970 data"456","56","356","45","5","35"
 2980 data"145","15","135","46","6","36"
 2990 data"4","","3","14","1","13"
 3000 data"246","26","236","24","2","23"
 3010 data"124","12","123"
 3020 rem*data-1.ebene
 3030 remd1.0
 3040 data"{rvon}51{rvof}3{rvon}13{rvof}5","{rvon}5{rvof}1{rvon}2{rvof}125","41{rvon}42{rvof}12"
 3050 data"{rvon}51{rvof}5{rvon}14{rvof}14","{rvon}5{rvof}2{rvon}12{rvof}5","41{rvon}4{rvof}1{rvon}4{rvof}14"
 3060 data"","{rvon}51{rvof}5{rvon}1{rvof}411{rvon}4{rvof}","4{rvon}114{rvof}1{rvon}5{rvof}15"
 3070 data"","",""
 3080 remd1.1
 3090 data"66","53{rvon}6{rvof}",""
 3100 data"26{rvon}2{rvof}","{rvon}54{rvof}",""
 3110 data"56{rvon}56{rvof}","53",""
 3120 data"","5{rvon}6{rvof}36",""
 3130 remd1.2
 3140 data"5113{rvon}135{rvof}","5{rvon}2{rvof}12{rvon}5{rvof}","{rvon}31{rvof}3{rvon}1{rvof}3{rvon}13{rvon}"
 3150 data"51{rvon}54{rvof}14","{rvon}3{rvof}1{rvon}4{rvof}143","{rvon}31{rvof}2{rvon}12{rvof}3"
 3160 data"51{rvon}5{rvof}1{rvon}5{rvof}15","{rvon}31{rvof}3{rvon}15{rvof}15","{rvon}3{rvof}4{rvon}14{rvof}3"
 3170 data"","5{rvon}115{rvof}1{rvon}3{rvof}13","{rvon}31{rvof}3{rvon}1{rvof}511{rvon}5{rvof}"
 3180 remd1.3
 3190 data"{rvon}4{rvof}6","44{rvon}2{rvof}",""
 3200 data"{rvon}4{rvof}","{rvon}51{rvof}44",""
 3210 data"553","{rvon}5{rvof}133",""
 3220 data"6{rvon}46{rvof}","5",""
 3230 remd1.4
 3240 data"","","","","","","","","","","",""
 3250 remd1.5
 3260 data"3{rvon}6{rvof}","{rvon}33{rvof}2",""
 3270 data"55{rvon}4{rvof}","5{rvon}1{rvof}44",""
 3280 data"3","5133",""
 3290 data"{rvon}6{rvof}36","{rvon}5{rvof}",""
 3300 remd1.6
 3310 data"{rvon}1{rvof}3{rvon}13{rvof}","1{rvon}2{rvof}12","113{rvon}132{rvof}112"
 3320 data"11{rvon}4{rvof}14","2{rvon}12{rvof}","{rvon}1{rvof}2{rvon}12{rvof}1{rvon}4{rvof}14"
 3330 data"41{rvon}4{rvof}","{rvon}51{rvof}5","4{rvon}14{rvof}1{rvon}5{rvof}15"
 3340 data"115{rvon}15{rvof}","{rvon}3{rvof}13","15{rvon}153{rvof}113"
 3350 remd1.7
 3360 data"1{rvon}3{rvof}2","1122",""
 3370 data"5{rvon}4{rvof}","{rvon}1{rvof}44",""
 3380 data"{rvon}5{rvof}3","133",""
 3390 data"13{rvon}53{rvof}","55",""
 3400 remd1.8
 3410 data"113{rvon}13{rvof}","{rvon}2{rvof}12","13{rvon}132{rvof}112"
 3420 data"1{rvon}4{rvof}14","{rvon}1{rvof}2{rvon}12{rvof}","112{rvon}124{rvof}114"
 3430 data"11{rvon}5{rvof}15","4{rvon}14{rvof}","{rvon}1{rvof}4{rvon}14{rvof}1{rvon}5{rvof}15"
 3440 data"{rvon}31{rvof}3","51{rvon}5{rvof}","5{rvon}15{rvof}1{rvon}3{rvof}13"
 3450 remd1.9
 3460 data"6","{rvon}42{rvof}",""
 3470 data"","{rvon}4{rvof}6{rvon}26{rvof}",""
 3480 data"","",""
 3490 data"","",""
 3500 remd1.10
 3510 data"","","","","","","","","","","",""
 3520 remd1.11
 3530 data"{rvon}6{rvof}","32",""
 3540 data"266{rvon}2{rvof}","32{rvon}62{rvof}",""
 3550 data"","3{rvon}6{rvof}26",""
 3560 data"","",""
 3570 remd1.12
 3580 data"","","","","","","","","","","",""
 3590 remd1.13
 3600 data"","","","","","","","","","","",""
 3610 remd1.14
 3620 data"","","","","","","","","","","",""
 3630 remd1.15
 3640 data"4{rvon}2{rvof}","{rvon}1{rvof}22",""
 3650 data"15{rvon}4{rvof}","44",""
 3660 data"1{rvon}5{rvof}3","1133",""
 3670 data"6{rvon}46{rvof}5","155",""
 3680 remd1.16
 3690 data"","","","","","","","","","","",""
 3700 remd1.17
 3710 data"{rvon}3{rvof}2","122",""
 3720 data"{rvon}1{rvof}5{rvon}4{rvof}","1144",""
 3730 data"{rvon}15{rvof}3","33",""
 3740 data"{rvon}6{rvof}36{rvon}5{rvof}","{rvon}1{rvof}55",""
 3750 remd1.18
 3760 data"{rvon}4{rvof}3{rvon}13{rvof}4","{rvon}41{rvof}4{rvon}12{rvof}12","21{rvon}2{rvof}1{rvon}2{rvof}12"
 3770 data"","{rvon}41{rvof}4{rvon}1{rvof}211{rvon}2{rvof}","2{rvon}112{rvof}1{rvon}4{rvof}14"
 3780 data"","",""
 3790 data"","",""
 3800 remd1.19
 3810 data"","{rvon}236{rvof}",""
 3820 data"","",""
 3830 data"","",""
 3840 data"","",""
 3850 remd1.20
 3860 data"","3{rvon}113{rvof}1{rvon}2{rvof}12","{rvon}21{rvof}2{rvon}1{rvof}311{rvon}3{rvof}"
 3870 data"","",""
 3880 data"","",""
 3890 data"","",""
 3900 remd1.21
 3910 data"{rvon}2{rvof}","46",""
 3920 data"{rvon}26{rvof}2","4",""
 3930 data"{rvon}62{rvof}6","{rvon}66{rvof}466",""
 3940 data"{rvon}662{rvof}66","64{rvon}6{rvof}",""
 3950 remd1.22
 3960 data"","","","","","","","","","","",""
 3970 remd1.23
 3980 data"2","{rvon}36{rvof}",""
 3990 data"2{rvon}62{rvof}","66{rvon}3{rvof}66",""
 4000 data"{rvon}6{rvof}26","{rvon}3{rvof}",""
 4010 data"{rvon}66{rvof}266","{rvon}63{rvof}6",""
 4020 remd1.24
 4030 data"3{rvon}13{rvof}","11{rvon}2{rvof}12","{rvon}1{rvof}3{rvon}13{rvof}1{rvon}2{rvof}12"
 4040 data"21{rvon}2{rvof}","{rvon}41{rvof}4","2{rvon}12{rvof}1{rvon}4{rvof}14"
 4050 data"{rvon}5{rvof}15","114{rvon}14{rvof}","14{rvon}145{rvof}115"
 4060 data"{rvon}1{rvof}5{rvon}15{rvof}","1{rvon}3{rvof}13","115{rvon}153{rvof}113"
 4070 remd1.25
 4080 data"{rvon}2{rvof}46","22",""
 4090 data"115{rvon}4{rvof}","144",""
 4100 data"{rvon}115{rvof}3","{rvon}1{rvof}33",""
 4110 data"{rvon}16{rvof}36{rvon}5{rvof}","1155",""
 4120 remd1.26
 4130 data"{rvon}21{rvof}2","31{rvon}3{rvof}","3{rvon}13{rvof}1{rvon}2{rvof}12"
 4140 data"{rvon}4{rvof}14","112{rvon}12{rvof}","12{rvon}124{rvof}114"
 4150 data"1{rvon}5{rvof}15","{rvon}1{rvof}4{rvon}14{rvof}","114{rvon}145{rvof}115"
 4160 data"5{rvon}15{rvof}","11{rvon}3{rvof}13","{rvon}1{rvof}5{rvon}15{rvof}1{rvon}3{rvof}13"
 4170 rem*data-2.ebene
 4180 remd2.1
 4190 data"","","","","","","",""
 4200 remd2.3
 4210 data"{rvon}5{rvof}11{rvon}3{rvof}131151{rvon}2{rvof}11{rvon}4{rvof}14112","{rvon}5{rvof}11{rvon}3{rvof}13115113{rvon}1312{rvof}12"
 4220 data"{rvon}5{rvof}11{rvon}3{rvof}13115{rvon}1{rvof}2{rvon}1214{rvof}14","{rvon}5{rvof}11{rvon}3{rvof}1311511{rvon}4{rvof}11{rvon}5{rvof}15114"
 4230 data"","{rvon}5{rvof}11{rvon}3{rvof}13115{rvon}15{rvof}11{rvon}3{rvof}13115"
 4240 data"",""
 4250 remd2.5
 4260 data"{rvon}3{rvof}11{rvon}2{rvof}1211313{rvon}1312{rvof}12","{rvon}3{rvof}11{rvon}2{rvof}12113{rvon}2{rvof}11{rvon}4{rvof}14112"
 4270 data"{rvon}3{rvof}11{rvon}2{rvof}121131{rvon}4{rvof}11{rvon}5{rvof}15114","{rvon}3{rvof}11{rvon}2{rvof}1211311{rvon}41151{rvof}5114"
 4280 data"{rvon}3{rvof}11{rvon}2{rvof}1211311{rvon}5{rvof}11{rvon}3{rvof}13115","{rvon}3{rvof}11{rvon}2{rvof}121131114{rvon}1415{rvof}15"
 4290 data"","{rvon}3{rvof}11{rvon}2{rvof}12113{rvon}13{rvof}11{rvon}2{rvof}12113"
 4300 remd2.7
 4310 data"11{rvon}2{rvof}11{rvon}4{rvof}14112","{rvon}1{rvof}3{rvon}1312{rvof}12"
 4320 data"2{rvon}1214{rvof}14","{rvon}14{rvof}11{rvon}5{rvof}15114"
 4330 data"14{rvon}1415{rvof}15","{rvon}5{rvof}11{rvon}3{rvof}13115"
 4340 data"1{rvon}3{rvof}11{rvon}2{rvof}12113","115{rvon}1513{rvof}13"
 4350 remd2.9
 4360 data"","","","","","","",""
 4370 remd2.11
 4380 data"","","","","","","",""
 4390 remd2.13
 4400 data"","","","","","","",""
 4410 remd2.15
 4420 data"{rvon}12{rvof}11{rvon}4{rvof}14112","{rvon}1{rvof}13{rvon}1312{rvof}12"
 4430 data"12{rvon}1214{rvof}14","{rvon}4{rvof}11{rvon}5{rvof}15114"
 4440 data"114{rvon}1415{rvof}15","1{rvon}5{rvof}11{rvon}3{rvof}13115"
 4450 data"11{rvon}3{rvof}11{rvon}2{rvof}12113","{rvon}1{rvof}5{rvon}1513{rvof}13"
 4460 remd2.17
 4470 data"1{rvon}2{rvof}11{rvon}4{rvof}14112","113{rvon}1312{rvof}12"
 4480 data"{rvon}1{rvof}2{rvon}1214{rvof}14","11{rvon}4{rvof}11{rvon}5{rvof}15114"
 4490 data"4{rvon}1415{rvof}15","{rvon}15{rvof}11{rvon}3{rvof}13115"
 4500 data"{rvon}3{rvof}11{rvon}2{rvof}12113","15{rvon}1513{rvof}13"
 4510 remd2.19
 4520 data"","","","","","","",""
 4530 remd2.21
 4540 data"{rvon}4{rvof}11{rvon}5{rvof}1511411{rvon}2{rvof}11{rvon}4{rvof}14112","{rvon}4{rvof}11{rvon}5{rvof}15114{rvon}1{rvof}3{rvon}1312{rvof}12"
 4550 data"","{rvon}4{rvof}11{rvon}5{rvof}15114{rvon}14{rvof}11{rvon}5{rvof}15114"
 4560 data"",""
 4570 data"",""
 4580 remd2.23
 4590 data"","{rvon}2{rvof}11{rvon}4{rvof}14112{rvon}12{rvof}11{rvon}4{rvof}14112"
 4600 data"","","","","",""
 4610 remd2.25
 4620 data"{rvon}2{rvof}11{rvon}4{rvof}14112","13{rvon}1312{rvof}12"
 4630 data"112{rvon}1214{rvof}14","1{rvon}4{rvof}11{rvon}5{rvof}15114"
 4640 data"{rvon}1{rvof}4{rvon}1415{rvof}15","11{rvon}5{rvof}11{rvon}3{rvof}13115"
 4650 data"{rvon}13{rvof}11{rvon}2{rvof}12113","5{rvon}1513{rvof}13"
 4660 rem*operationen
 4670 remo-6
 4680 wn=wn(0,0,0):sp=sp(0,0,0):wn(0,0,0)=wn(0,0,2):sp(0,0,0)=sp(0,0,2)
 4690 wn(0,0,2)=wn(2,0,2):sp(0,0,2)=sm(sp(2,0,2)+3,2)
 4700 wn(2,0,2)=wn(2,0,0):sp(2,0,2)=sp(2,0,0)
 4710 wn(2,0,0)=wn:sp(2,0,0)=sm(sp+3,2)
 4720 wn=wn(1,0,0):sp=sp(1,0,0)
 4730 wn(1,0,0)=wn(0,0,1):sp(1,0,0)=sp(0,0,1)
 4740 wn(0,0,1)=wn(1,0,2):sp(0,0,1)=sp(1,0,2)
 4750 wn(1,0,2)=wn(2,0,1):sp(1,0,2)=sp(2,0,1)
 4760 wn(2,0,1)=wn:sp(2,0,1)=sp
 4770 return
 4780 remo-5
 4790 wn=wn(0,0,0):sp=sp(0,0,0)
 4800 wn(0,0,0)=wn(2,0,0):sp(0,0,0)=sm(sp(2,0,0)+3,1)
 4810 wn(2,0,0)=wn(2,2,0):sp(2,0,0)=sm(sp(2,2,0)+3,0)
 4820 wn(2,2,0)=wn(0,2,0):sp(2,2,0)=sm(sp(0,2,0)+3,2)
 4830 wn(0,2,0)=wn:sp(0,2,0)=sm(sp+3,0)
 4840 wn=wn(1,0,0):sp=sp(1,0,0)
 4850 wn(1,0,0)=wn(2,1,0):sp(1,0,0)=abs(sp(2,1,0)-3)
 4860 wn(2,1,0)=wn(1,2,0):sp(2,1,0)=sp(1,2,0)
 4870 wn(1,2,0)=wn(0,1,0):sp(1,2,0)=sp(0,1,0)
 4880 wn(0,1,0)=wn:sp(0,1,0)=abs(sp-3)
 4890 return
 4900 remo-4
 4910 wn=wn(0,0,0):sp=sp(0,0,0)
 4920 wn(0,0,0)=wn(0,2,0):sp(0,0,0)=sm(sp(0,2,0)+3,2)
 4930 wn(0,2,0)=wn(0,2,2):sp(0,2,0)=sm(sm(sp(0,2,2)+3,2)+3,0)
 4940 wn(0,2,2)=wn(0,0,2):sp(0,2,2)=sm(sp(0,0,2)+3,0)
 4950 wn(0,0,2)=wn:sp(0,0,2)=sm(sm(sp+3,0)+3,2)
 4960 wn=wn(0,0,1):sp=sp(0,0,1)
 4970 wn(0,0,1)=wn(0,1,0):sp(0,0,1)=sp(0,1,0)
 4980 wn(0,1,0)=wn(0,2,1):sp(0,1,0)=abs(sp(0,2,1)-3)
 4990 wn(0,2,1)=wn(0,1,2):sp(0,2,1)=sp(0,1,2)
 5000 wn(0,1,2)=wn:sp(0,1,2)=abs(sp-3)
 5010 return
 5020 remo-3
 5030 wn=wn(2,0,0):sp=sp(2,0,0)
 5040 wn(2,0,0)=wn(2,0,2):sp(2,0,0)=sm(sm(sp(2,0,2)+3,2)+3,0)
 5050 wn(2,0,2)=wn(2,2,2):sp(2,0,2)=sm(sp(2,2,2)+3,0)
 5060 wn(2,2,2)=wn(2,2,0):sp(2,2,2)=sm(sm(sp(2,2,0)+3,0)+3,2)
 5070 wn(2,2,0)=wn:sp(2,2,0)=sm(sp+3,2)
 5080 wn=wn(2,0,1):sp=sp(2,0,1)
 5090 wn(2,0,1)=wn(2,1,2):sp(2,0,1)=abs(sp(2,1,2)-3)
 5100 wn(2,1,2)=wn(2,2,1):sp(2,1,2)=sp(2,2,1)
 5110 wn(2,2,1)=wn(2,1,0):sp(2,2,1)=abs(sp(2,1,0)-3)
 5120 wn(2,1,0)=wn:sp(2,1,0)=sp
 5130 return
 5140 remo-2
 5150 wn=wn(2,2,2):sp=sp(2,2,2)
 5160 wn(2,2,2)=wn(2,0,2):sp(2,2,2)=sm(sp(2,0,2)+3,2)
 5170 wn(2,0,2)=wn(0,0,2):sp(2,0,2)=sm(sp(0,0,2)+3,0)
 5180 wn(0,0,2)=wn(0,2,2):sp(0,0,2)=sm(sp(0,2,2)+3,2)
 5190 wn(0,2,2)=wn:sp(0,2,2)=sm(sp+3,1)
 5200 wn=wn(1,2,2):sp=sp(1,2,2)
 5210 wn(1,2,2)=wn(2,1,2):sp(1,2,2)=abs(sp(2,1,2)-3)
 5220 wn(2,1,2)=wn(1,0,2):sp(2,1,2)=sp(1,0,2)
 5230 wn(1,0,2)=wn(0,1,2):sp(1,0,2)=sp(0,1,2)
 5240 wn(0,1,2)=wn:sp(0,1,2)=abs(sp-3)
 5250 return
 5260 remo-1
 5270 wn=wn(0,2,0):sp=sp(0,2,0)
 5280 wn(0,2,0)=wn(2,2,0):sp(0,2,0)=sm(sp(2,2,0)+3,0)
 5290 wn(2,2,0)=wn(2,2,2):sp(2,2,0)=sp(2,2,2)
 5300 wn(2,2,2)=wn(0,2,2):sp(2,2,2)=sm(sp(0,2,2)+3,0)
 5310 wn(0,2,2)=wn:sp(0,2,2)=sp
 5320 wn=wn(1,2,0):sp=sp(1,2,0)
 5330 wn(1,2,0)=wn(2,2,1):sp(1,2,0)=sp(2,2,1)
 5340 wn(2,2,1)=wn(1,2,2):sp(2,2,1)=sp(1,2,2)
 5350 wn(1,2,2)=wn(0,2,1):sp(1,2,2)=sp(0,2,1)
 5360 wn(0,2,1)=wn:sp(0,2,1)=sp
 5370 return
 5380 remo+1
 5390 wn=wn(0,2,0):sp=sp(0,2,0)
 5400 wn(0,2,0)=wn(0,2,2):sp(0,2,0)=sp(0,2,2)
 5410 wn(0,2,2)=wn(2,2,2):sp(0,2,2)=sm(sp(2,2,2)+3,0)
 5420 wn(2,2,2)=wn(2,2,0):sp(2,2,2)=sp(2,2,0)
 5430 wn(2,2,0)=wn:sp(2,2,0)=sm(sp+3,0)
 5440 wn=wn(1,2,0):sp=sp(1,2,0)
 5450 wn(1,2,0)=wn(0,2,1):sp(1,2,0)=sp(0,2,1)
 5460 wn(0,2,1)=wn(1,2,2):sp(0,2,1)=sp(1,2,2)
 5470 wn(1,2,2)=wn(2,2,1):sp(1,2,2)=sp(2,2,1)
 5480 wn(2,2,1)=wn:sp(2,2,1)=sp
 5490 return
 5500 remo+2
 5510 wn=wn(2,2,2):sp=sp(2,2,2)
 5520 wn(2,2,2)=wn(0,2,2):sp(2,2,2)=sm(sp(0,2,2)+3,1)
 5530 wn(0,2,2)=wn(0,0,2):sp(0,2,2)=sm(sp(0,0,2)+3,2)
 5540 wn(0,0,2)=wn(2,0,2):sp(0,0,2)=sm(sp(2,0,2)+3,0)
 5550 wn(2,0,2)=wn:sp(2,0,2)=sm(sp+3,2)
 5560 wn=wn(1,2,2):sp=sp(1,2,2)
 5570 wn(1,2,2)=wn(0,1,2):sp(1,2,2)=abs(sp(0,1,2)-3)
 5580 wn(0,1,2)=wn(1,0,2):sp(0,1,2)=sp(1,0,2)
 5590 wn(1,0,2)=wn(2,1,2):sp(1,0,2)=sp(2,1,2)
 5600 wn(2,1,2)=wn:sp(2,1,2)=abs(sp-3)
 5610 return
 5620 remo+3
 5630 wn=wn(2,2,2):sp=sp(2,2,2)
 5640 wn(2,2,2)=wn(2,0,2):sp(2,2,2)=sm(sp(2,0,2)+3,0)
 5650 wn(2,0,2)=wn(2,0,0):sp(2,0,2)=sm(sm(sp(2,0,0)+3,0)+3,2)
 5660 wn(2,0,0)=wn(2,2,0):sp(2,0,0)=sm(sp(2,2,0)+3,2)
 5670 wn(2,2,0)=wn:sp(2,2,0)=sm(sm(sp+3,2)+3,0)
 5680 wn=wn(2,2,1):sp=sp(2,2,1)
 5690 wn(2,2,1)=wn(2,1,2):sp(2,2,1)=sp(2,1,2)
 5700 wn(2,1,2)=wn(2,0,1):sp(2,1,2)=abs(sp(2,0,1)-3)
 5710 wn(2,0,1)=wn(2,1,0):sp(2,0,1)=sp(2,1,0)
 5720 wn(2,1,0)=wn:sp(2,1,0)=abs(sp-3)
 5730 return
 5740 remo+4
 5750 wn=wn(0,0,0):sp=sp(0,0,0)
 5760 wn(0,0,0)=wn(0,0,2):sp(0,0,0)=sm(sm(sp(0,0,2)+3,2)+3,0)
 5770 wn(0,0,2)=wn(0,2,2):sp(0,0,2)=sm(sp(0,2,2)+3,0)
 5780 wn(0,2,2)=wn(0,2,0):sp(0,2,2)=sm(sm(sp(0,2,0)+3,0)+3,2)
 5790 wn(0,2,0)=wn:sp(0,2,0)=sm(sp+3,2)
 5800 wn=wn(0,2,1):sp=sp(0,2,1)
 5810 wn(0,2,1)=wn(0,1,0):sp(0,2,1)=abs(sp(0,1,0)-3)
 5820 wn(0,1,0)=wn(0,0,1):sp(0,1,0)=sp(0,0,1)
 5830 wn(0,0,1)=wn(0,1,2):sp(0,0,1)=abs(sp(0,1,2)-3)
 5840 wn(0,1,2)=wn:sp(0,1,2)=sp
 5850 return
 5860 remo+5
 5870 wn=wn(0,0,0):sp=sp(0,0,0)
 5880 wn(0,0,0)=wn(0,2,0):sp(0,0,0)=sm(sp(0,2,0)+3,0)
 5890 wn(0,2,0)=wn(2,2,0):sp(0,2,0)=sm(sp(2,2,0)+3,2)
 5900 wn(2,2,0)=wn(2,0,0):sp(2,2,0)=sm(sp(2,0,0)+3,0)
 5910 wn(2,0,0)=wn:sp(2,0,0)=sm(sp+3,1)
 5920 wn=wn(1,2,0):sp=sp(1,2,0)
 5930 wn(1,2,0)=wn(2,1,0):sp(1,2,0)=sp(2,1,0)
 5940 wn(2,1,0)=wn(1,0,0):sp(2,1,0)=abs(sp(1,0,0)-3)
 5950 wn(1,0,0)=wn(0,1,0):sp(1,0,0)=abs(sp(0,1,0)-3)
 5960 wn(0,1,0)=wn:sp(0,1,0)=sp
 5970 return
 5980 remo+6
 5990 wn=wn(0,0,0):sp=sp(0,0,0)
 6000 wn(0,0,0)=wn(2,0,0):sp(0,0,0)=sm(sp(2,0,0)+3,2)
 6010 wn(2,0,0)=wn(2,0,2):sp(2,0,0)=sp(2,0,2)
 6020 wn(2,0,2)=wn(0,0,2):sp(2,0,2)=sm(sp(0,0,2)+3,2)
 6030 wn(0,0,2)=wn:sp(0,0,2)=sp
 6040 wn=wn(1,0,0):sp=sp(1,0,0)
 6050 wn(1,0,0)=wn(2,0,1):sp(1,0,0)=sp(2,0,1)
 6060 wn(2,0,1)=wn(1,0,2):sp(2,0,1)=sp(1,0,2)
 6070 wn(1,0,2)=wn(0,0,1):sp(1,0,2)=sp(0,0,1)
 6080 wn(0,0,1)=wn:sp(0,0,1)=sp
 6090 return
 6100 rem*teilfolge ausfuehren
 6110 forj3=0to2:forj2=0to2:forj1=0to2
 6120 ifwn(j1,j2,j3)=x+3*y+9*zthengoto6140
 6130 nextj1,j2,j3
 6140 tf$=e1$(k,j1+3*j2+9*j3,abs(sp(j1,j2,j3))-1):f$=f$+tf$+"/"
 6150 rem entry von 3.ebene
 6160 le=len(tf$):sg=1
 6170 fori=1tole:x$=mid$(tf$,i,1)
 6180 ifx$="{rvon}"orx$="{rvof}"thensg=sg*-1:goto6240
 6190 ifle=0thenreturn
 6200 j=(asc(x$)-48)*sg+7
 6210 ifj=12thengosub5870:goto6240
 6220 ifj=13thengosub5990:goto6240
 6230 onjgosub4680,4790,4910,5030,5150,5270,190,5390,5510,5630,5750
 6240 nexti:return
 6250 rem*kontroll-ausgaben
 6260 remk-sp-wn
 6270 print"{clr}sp(x,y,z):"
 6280 print"{down}    unten       mitte        oben"
 6290 fori1=0to2:fori2=0to2:fori3=0to2:print"{home}{down}{down}{down}{rght}{rght}";
 6300 fori=0toi2:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:nexti:print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 6310 fori=0toi3:print"{rght}{rght}{rght}";:nexti:print"{left}{left}{left}";
 6320 fori=0toi1:print"{down}{down}";:nexti:print"{up}{up}";sp(i3,i2,i1)
 6330 nexti3,i2,i1
 6340 print:print"wn(x,y,z):"
 6350 print"{down}    unten       mitte        oben"
 6360 fori2=0to2:fori1=0to2:fori3=0to2:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}";
 6370 fori=0toi2:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:nexti:print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 6380 fori=0toi3:print"{rght}{rght}{rght}";:nexti:print"{left}{left}{left}";
 6390 fori=0toi1:print"{down}{down}";:nexti:print"{up}{up}";wn(i3,i2,i1)
 6400 nexti3,i1,i2
 6410 return
 6420 remk-wb$
 6430 print:print"{clr}wb$(x,y,z):"
 6440 print"{down}{down}    unten        mitte          oben"
 6450 fori2=0to2:fori1=0to2:fori3=0to2:print"{home}{down}{down}{down}{down}{down}";
 6460 fori=0toi2:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:nexti:print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 6470 fori=0toi3:print"{rght}{rght}{rght}{rght}";:nexti:print"{left}{left}{left}{left}";
 6480 fori=0toi1:print"{down}{down}{down}";:nexti:print"{up}{up}{up}";wb$(i3,i2,i1)
 6490 nexti3,i1,i2
 6500 return
 6510 rem*kontrolle der prog.-daten
 6520 if(x+3*y+9*z=wn(x,y,z))and(sp(x,y,z)=1)then6610
 6530 print"{clr}fehler in den programmdaten rem";y+1;"{left}{left}{left}d{rght}";
 6540 i2=j1+3*j2+9*j3:printi2;
 6550 fork=0to2-(i2>9):print"{left}";:nextk:print"."
 6560 print"{down}fuer position";x+3*y+9*z;"{left}."
 6570 print"{down}bitte diese fehlermeldung an den ver-"
 6580 print"{down}fasser des programms schicken. die"
 6590 print"{down}adresse steht am anfang des programms."
 6600 print"{down}vielen dank im voraus!":end
 6610 return
    0 clr:poke59468,12
    1 rem ruler copyright (c) 1980 peter stearns
    4 :
    5 rem cursor #17, feb, 80
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 26 80
   90 pg$="ruler":nm$="17":gosub62000
  100 dimra$(4),fr$(10),ok$(10),wr$(10)
  170 data"*** perfect! ***","very good!","could be better.","fair"
  171 data"keep trying."
  172 fori=0to4:readra$(i):next
  180 data"that's right!","correct!","nice work!"
  182 data"you're good!","very good!","way to go!"
  184 data"bull's-eye!","super!","excellent!"
  186 data"perfect!"
  189 fori=1to10:readok$(i):nexti
  190 data"","{up}1{down}{left}C{down}{left}8{up}","{up}1{down}{left}C{down}{left}4{up}","{up}3{down}{left}C{down}{left}8{up}","{up}1{down}{left}C{down}{left}2{up}","{up}5{down}{left}C{down}{left}8{up}"
  192 data"{up}3{down}{left}C{down}{left}4{up}","{up}7{down}{left}C{down}{left}8{up}"
  194 fori=1to8:readfr$(i):next
  200 aa=rnd(ti)
  202 ep$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
  210 ok=0:wr=0
  220 n1=n
  226 n=int(rnd(aa)*32)+1:ifn=n1then226
  310 in=int(n/8)
  320 nu=n-8*in
  405 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
  410 print"OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
  420 print"{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}{$a0}{CBM-G}
  430 print"{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{CBM-G}
  440 print"{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}      {$a0}{CBM-G}
  450 print"{CBM-G}      1       2       3       4
  460 print"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  470 print"{home}{down}{down}{down}{down}{down}{down}
  480 print"draw a ";
  482 ifin>0thenprintin;
  484 printfr$(nu+1);" inch line{down}{down}{down}{down}{down}
  590 k=0
  610 getb$
  616 ifb$=chr$(20)andk>0thenk=k-1:printb$;
  618 ifb$=" "andk<36thenk=k+1:print"{rvon} {rvof}";
  620 ifb$<>cr$then610
  640 print:print"{up}{up}{up}";
  650 ifk>nthen820
  660 ifk<nthen900
  670 ok=ok+1
  680 print"{up}";ok$(ok):goto1100
  820 d$="long":sy$="{left}{rvon}{CBM-POUND}{rvof}{left}":goto1000
  900 d$="short":sy$="{CBM-+}"
 1000 wr=wr+1:df=abs(k-n)
 1010 print"{up}your line was ";
 1020 in=int(df/8):nu=df-8*in:ifin>0thenprintin;
 1030 printfr$(nu+1);" inch";:ifdf>8thenprint"es";
 1040 print" too ";d$;".{down}{down}"
 1050 printtab(k);:fori=1todf:printsy$;:nexti
 1100 printep$;"hit {rvon}return{rvof} to continue;
 1110 getb$:ifb$<>chr$(13)then1110
 1120 ifwr+ok<10then220
 1220 print"{clr}{down}{down}{down}{down}{down}{down}score{down}"
 1230 print"right:";ok
 1240 print"wrong:";wr
 1242 print"{down}{down}{down}";
 1250 ifwr>4thenprint"you need practice!"
 1260 ifwr<=4thenprintra$(wr)
 1300 print"{down}want to try again? ";
 1320 gosub60000
 1330 ifleft$(in$,1)<>"n"then210
 1340 end
 1500 fori=1to999:next:return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20):pn=0:lp=1
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by peter stearns{down}
 62020 gosub60500
 62030 print"{down}test your skill with a ruler.
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 gosub60200
 62110 print"the program displays a ruler marked in
 62120 print"{down}inches.  it asks you to draw a line of
 62130 print"{down}a given length.  to draw a line, hit the
 62140 print"{rvon}space{rvof} bar again and again.  to back up,
 62150 print"{down}hit the {rvon}del{rvof} key.  when you are done
 62160 print"{down}drawing a line, hit {rvon}return{rvof}.
 63000 goto60200
:{stop}{CTRL-X}{$a0}{$00}{$84}{$00}{CBM-I}{$80}{f3}{CTRL-P}{CBM-E}{CTRL-O}I {$f0}{CTRL-D}i{$80}{up}{CTRL-O}HP{$f3}{$e8}{$e0}{$84}P{$ec}{$60}+T+T{stop}{$60}~~{$fb}~~~    0 print"{clr}{rvon}routine loading!":ad=690
    1 readd:ifd<>-95then1
    2 readz:ifz<0then10
    3 pokead,z:ad=ad+1:goto2
   10 print"{clr}":c=33228
   20 a$(1)="XXXXXXXXXXX{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}MM    MM{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}XXXXXXXXXXX"
   30 a$(2)="XXXXXXXXXXXX{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}     {CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}XXXXXXXXXXX"
   40 a$(3)="XXXXXXXXXXXX{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}NN    NN{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}XXXXXXXXXX"
   50 a$(4)="KKKKKKKKKKKKKKKKK{CBM-Q}{CBM-+}   {CBM-+}{CBM-W}KKKKKKKKKKKKKKKK"
   60 a$(5)="XXXXXXXXXXXX{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-B}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}XXXXXXXXXXX"
   70 a$(6)="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}     {CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
   80 a$(7)="                {CBM-+}{CBM-+}                      "
   90 a$(8)="                       {CBM-+}{CBM-+}               "
   91 d=905:r=793:l=827
   95 goto700
  100 restore
  105 reada,q,b
  110 forf=1tob
  120 print"{home}";right$(a$(a),40-x);left$(a$(a),x);:x=x+q
  130 pokec,32:gosub200
  140 ifx=>41thenx=x-40:goto160
  150 ifx<=-1thenx=x+40
  160 ifpeek(c)=127then600
  170 ifpeek(c)<>32then500
  180 pokec,90:ifdi=1ordi=5then130
  190 next:goto105
  200 geta$:ifa$=""then200
  210 poke158,0:poke151,255:onval(a$)goto200,200,200,280,200,240,270,260,250
  220 goto200
  240 di=1:sysl:x=x+1:return
  250 di=2:sysl:sysd:x=x+1:return
  260 di=3:sysd:return
  270 di=4:sysr:sysd:x=x-1:return
  280 di=5:sysr:x=x-1:return
  290 goto200
  500 pokec,160:pokec-1,126:pokec-40,255:pokec+40,127:pokec+1,124:forv=1to20:next
  510 pokec,32:pokec-1,32:pokec-40,32:pokec+40,32:pokec+1,32:forv=1to200:next
  520 pokec,90:goto620
  600 print"{down}{down}{down}{down}{rvon}          you  won!!            "
  601 print"{rght}{rght}{rvon}got there in"int((ti-t)/60)"{left} seconds."
  610 forv=1to2000:next
  620 poke158,0:print"{down}{down}{down}{down}{down}play again (y or n)?"
  630 geta$:ifa$=""then630
  640 ifa$="y"then700
  650 end
  700 print"{home}";:forv=1to24:printa$(2);:next
  710 restore:print"{rvon}press any key to start."
  720 geta$:ifa$=""then720
  721 poke151,255
  730 di=3:x=0:pokec,90:t=ti:goto100
  800 data2,0,18,3,-1,10,1,1,10,3,-1,10,2,0,25,6,0,5,4,0,20
  810 data6,0,5,2,0,25,8,0,4,8,33,1,2,0,1,8,0,4,8,33,1,2,0,1,7,0,4,7,-33,1
  820 data2,0,4,6,0,5,4,0,8,6,0,5,2,0,10,5,0,3,2,0,18,-95
 1000 data 255,127,0,128,39,128,136
 1010 data 2,151,131,191,131,162,11
 1020 data 181,10,157,122,2,202,16
 1030 data 248,162,11,189,178,2,149
 1040 data 10,202,16,248,96,162,11
 1050 data 189,122,2,149,10,202,16
 1060 data 248,96,216,24,165,10,105
 1070 data 40,133,10,144,2,230,11
 1080 data 24,165,12,105,40,133,12
 1090 data 144,2,230,13,24,165,14
 1100 data 105,40,133,14,144,2,230
 1110 data 15,96,216,56,165,18,233
 1120 data 40,133,18,176,2,198,19
 1130 data 56,165,20,233,40,133,20
 1140 data 176,2,198,21,96,32,190
 1150 data 2,162,25,32,43,3,32
 1160 data 222,2,202,208,247,32,211
 1170 data 2,96,160,39,177,12,72
 1180 data 177,10,145,12,136,208,249
 1190 data 104,145,12,96,32,190,2
 1200 data 162,25,32,77,3,32,222
 1210 data 2,202,208,247,32,211,2
 1220 data 96,160,1,177,10,72,177
 1230 data 12,145,10,200,192,40,208
 1240 data 247,104,145,10,96,32,190
 1250 data 2,162,24,160,40,177,10
 1260 data 145,16,136,208,249,160,40
 1270 data 177,14,145,10,136,208,249
 1280 data 32,222,2,202,208,241,160
 1290 data 40,177,16,145,10,136,208
 1300 data 249,32,211,2,96,32,190
 1310 data 2,162,24,160,40,177,20
 1320 data 145,16,136,208,249,160,40
 1330 data 177,18,145,20,136,208,249
 1340 data 32,1,3,202,208,241,160
 1350 data 40,177,16,145,20,136,208
 1360 data 249,32,211,2,96
 1370 data -1
    0 clr:poke59468,12
    1 rem safe! by gary marsa
    2 rem 320 terrace apt. 2-s
    3 rem flushing, mi 48433
    4 :
    5 rem cursor #26, jun, 1981
    6 rem copyright (c) 1981 the code works
    7 rem box 550,goleta,ca.93017
    8 :
   10 rem as of 18 june 81
   90 pg$="safe!":nm$="26":gosub62000
  100 c$="{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  110 print"{clr}{down}{down}{down}do you have sound? ";:gosub60000:ifleft$(in$,1)="n"thenns=1
  130 s2=59467:s1=s2-1:s0=s1-2:s=255:pokes2,16:pokes1,85:pokes0,0
  140 forj=826to858:readb:pokej,b:next
  150 data169,128,141,72,3,141,77,3,160,4,162,0,189,0,128,73,128
  160 data157,0,128,232,208,245,238,72,3,238,77,3,136,208,234,96
  170 print"{clr}";tab(17)"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":printtab(17)"{SHIFT--}0:00{SHIFT--}":printtab(17)"{CBM-Z}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{CBM-X}"
  180 printtab(10)"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
  190 printtab(10)"{CBM-G}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-M}
  200 printtab(10)"{CBM-G}{SHIFT--}";tab(28)"{rvon}{CBM-K}{rvof}{CBM-M}
  210 printtab(10)"{CBM-G}{SHIFT--}";tab(28)"{rvon}{CBM-K}{rvof}{CBM-M}
  220 fori=1to3:printtab(10)"{CBM-G}{SHIFT--}";tab(28)"{SHIFT--}{CBM-M}":next
  230 printtab(10)"{CBM-G}{SHIFT--} UI";tab(28)"{SHIFT--}{CBM-M}
  240 printtab(10)"{CBM-G}{SHIFT--} JK";tab(28)"{SHIFT--}{CBM-M}
  250 printtab(10)"{CBM-G}{SHIFT--} {CBM-D}";tab(28)"{SHIFT--}{CBM-M}      {CBM-@}
  260 printtab(10)"{CBM-G}{SHIFT--} {CBM-C}{rvon}{CBM-I}{CBM-I}{rvof}{CBM-V}";tab(28)"{SHIFT--}{CBM-M}     {CBM-M}{rvon}Q{rvof}{CBM-G}
  270 printtab(10)"{CBM-G}{SHIFT--}";tab(28)"{SHIFT--}{CBM-M}     {CBM-M}{rvon}Q{rvof}{CBM-G}
  280 printtab(10)"{CBM-G}{SHIFT--}";tab(28)"{SHIFT--}{CBM-M}      {CBM-T}
  290 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-G}{SHIFT--}";tab(28)"{rvon}{CBM-K}{rvof}{CBM-M}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";
  300 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-G}{SHIFT--}";spc(16)"{rvon}{CBM-K}{rvof}{CBM-M}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";
  310 printspc(10)"{CBM-G}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-M}       U{SHIFT-*}{SHIFT-*}";
  320 printspc(10)"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}    ={rvon} {rvof}{SHIFT-*}K
  330 printtab(11)"M{CBM-@}N";tab(26)"M{CBM-@}N
  340 printc$"{up}{left}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{down}{left}{left}{left}{left}{left}{left}{SHIFT--}    {SHIFT--}{down}{left}{left}{left}{left}{left}{left}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  350 sa=crt+6*wd+23:l=0:gosub1000:r=-1:y=0
  355 u1=42:u2=41:u3=64:ifwd=80thenu1=180:u2=182:u3=81
  360 fori=1to4:c(i)=int(50*rnd(1)):next
  370 co$="":fori=1to4:s$="r":ifi/2=int(i/2)thens$="l"
  380 co$=co$+s$+mid$(str$(c(i)),2):ifi<4thenco$=co$+"-"
  390 next:x=int(49*rnd(1)+1)
  400 fori=1to2:forj=0to49:printc$;:ifj<10thenprint" ";
  410 printj"{left} ":next:next
  420 forj=0tox:printc$;:ifj<10thenprint" ";
  430 printj"{left} ":next
  440 tl=3600+60*int(61*rnd(1)):ti$="000000":t=ti
  450 print"{home}{down}";tab(18)mid$(ti$,4,1)":"right$(ti$,2)
  460 ify=1thenl=l+1:gosub1000:r=notr:y=0:gosub1050:ifl=4thenpokeqk,0:goto710
  470 ifpeek(qp)=u1then810
  480 ifpeek(qp)=u2then900
  485 ifpeek(qp)=u3then1300
  490 ifti-t<tlthen450
  500 ifwd=40thensys826
  505 fori=1to60:pokes0,80:forj=1to10:next
  510 pokes0,0:forj=1to10:next:next
  520 print"{home}{rvon}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I":print"{rvon}{SHIFT--}  turn  {SHIFT--}":print"{rvon}{SHIFT--} around {SHIFT--}
  530 print"{rvon}{SHIFT--} slowly.{SHIFT--}":print"{rvon}{SHIFT--} {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} {SHIFT--}":print"{rvon}{SHIFT--} you're {SHIFT--}
  540 print"{rvon}{SHIFT--} under  {SHIFT--}":print"{rvon}{SHIFT--} arrest!{SHIFT--}":print"{rvon}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  550 print"{rvon}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K":fori=1to3000:next
  560 pokes1,51:fori=1to12:forj=175to117step-1:pokes0,j:next
  570 forj=117to175:pokes0,j:next:next:pokes0,0:pokes1,85
  580 print"{clr}the combination was: {rvon}"co$
  590 printtab(9)"{down}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  600 printtab(9)"{CBM-Z}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-I}{SHIFT-*}{SHIFT-*}{CBM-I}{SHIFT-*}{SHIFT-*}{CBM-I}{SHIFT-*}{SHIFT-*}{CBM-I}{SHIFT-*}{SHIFT-*}{CBM-I}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-X}
  610 fori=1to7:printtab(11)"{SHIFT--} {rvon} {rvof}  {rvon} {rvof}  {rvon} {rvof}  {rvon} {rvof}  {rvon} {rvof} {SHIFT--}":next
  620 printtab(11)"{SHIFT--} {rvon} {rvof}{CBM-@}N{rvon} {rvof}{CBM-@} {rvon} {rvof} {CBM-@}{rvon} {rvof}M{CBM-@}{rvon} {rvof} {SHIFT--}
  630 fori=1to3:printtab(11)"{SHIFT--} {rvon} {rvof}{CBM-G} {CBM-@}{SHIFT-@} {rvon} {rvof} L{CBM-@} {CBM-M}{rvon} {rvof} {SHIFT--}":next
  640 printtab(11)"{SHIFT--} {rvon} {rvof}M{CBM-@}{CBM-@}{SHIFT-@} {rvon} {rvof} L{CBM-@}{CBM-@}N{rvon} {rvof} {SHIFT--}
  650 printtab(9)"{CBM-A}{SHIFT-*}{CBM-E}{SHIFT-*}{rvon}{CBM-O}{rvof}{SHIFT-*}{SHIFT-*}{rvon}{CBM-O}{rvof}{SHIFT-*}{SHIFT-*}{rvon}{CBM-O}{rvof}{SHIFT-*}{SHIFT-*}{rvon}{CBM-O}{rvof}{SHIFT-*}{SHIFT-*}{rvon}{CBM-O}{rvof}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-S}
  660 printtab(9)"{SHIFT--}";tab(29)"{SHIFT--}
  670 printtab(9)"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}":j$="jailbird"
  675 forj=1to3000:next
  680 goto1300
  710 print"{home}{down}";tab(18)mid$(ti$,4,1)":"right$(ti$,2):ifti-t<tlthen730
  720 goto500
  730 geta$:ifa$<>chr$(13)then710
  735 tt=val(ti$)
  740 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(13)"{CBM-I}":fori=1to2:printtab(13)"{CBM-K}   ":next
  750 printtab(13)"{CBM-V}":fori=1to2000:next:gosub1100:fori=1to4000:next
  760 print"{clr}the combination was: {rvon}"co$
  770 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{CBM-R}{$a0}{CBM-R}{down}{left}{left}{left}{SHIFT--}{$a0}{SHIFT--}{down}{left}{left}{left}J{CBM-R}K{down}{left}{left}{SHIFT--}{down}{left}{CBM-E}{rght}{up}{up}U{SHIFT-*}I{down}{left}{left}{left}{SHIFT--}{$a0}{SHIFT--}{down}{left}{left}{left}J{SHIFT-*}K{up}{up}{CBM-S}{$a0}{CBM-S}{down}{left}{left}{left}";
  780 print"{SHIFT--}{$a0}{SHIFT--}{down}{left}{left}{left}J{SHIFT-*}{CBM-E}{rght}{rght}{up}{up}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}I{down}{left}{left}{left}{left}{left}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{down}{left}{left}{left}{left}{left}{CBM-E}{$a0}{CBM-E}{$a0}{CBM-E}{up}{up}U{SHIFT-*}I{down}{left}{left}{left}U{SHIFT-*}{CBM-W}{down}{left}{left}{left}J{SHIFT-*}{CBM-E}";
  790 print"{up}{up}{up}{up}{rght}{rght}{CBM-S}{down}{left}{SHIFT--}{down}{left}{left}{left}U{SHIFT-*}{CBM-W}{down}{left}{left}{left}{SHIFT--}{$a0}{SHIFT--}{down}{left}{left}{left}J{SHIFT-*}{CBM-E}{up}{up}U{SHIFT-*}I{down}{left}{left}{left}{CBM-Q}{SHIFT-*}{CBM-X}{down}{left}{left}{left}J{SHIFT-*}K{rght}{rght}{up}{up}{up}.{down}{left}{CBM-S}{down}{left}{SHIFT--}{down}{left}{CBM-E}";
  800 print"{rght}{up}{up}{up}{SHIFT--}{down}{left}{SHIFT-+}{SHIFT-*}{down}{left}{left}{SHIFT--}{down}{left}JK{rght}{up}{up}{up}{rvon}{CBM-K}{down}{left}{CBM-K}{rvof}{down}{left}{CBM-C}{down}{left}{CBM-C}{down}{down}"
  805 forj=1to3000:next:goto1300
  810 y=0:ifr=-1thenl=0:gosub1000
  820 x$=mid$(str$(x),2):ifx<10thenx$=" "+x$
  830 x1$=mid$(str$(x+1),2):ifx+1<10thenx1$=" "+x1$
  840 ifx=49thenx1$=" 0"
  850 printc$x$"  ":gosub990:printc$right$(x$,1)"  "left$(x1$,1):gosub990
  860 printc$"  "x1$:gosub990:printc$" "x1$" ":gosub990
  870 x=x+1:ifx=50thenx=0
  880 ifx=c(l+1)andr=0theny=1:pokes0,s:pokes0,0:fori=1to25:next
  890 pokes0,s:pokes0,0:goto490
  900 y=0:ifr=0thenl=0:r=-1:gosub1000
  910 x$=mid$(str$(x),2):ifx<10thenx$=" "+x$
  920 x1$=mid$(str$(x-1),2):ifx-1<10thenx1$=" "+x1$
  930 ifx=0thenx1$="49"
  940 printc$"  "x$:gosub990:printc$right$(x1$,1)"  "left$(x$,1):gosub990
  950 printc$x1$"  ":gosub990:printc$" "x1$" ":gosub990
  960 x=x-1:ifx=-1thenx=49
  970 ifx=c(l+1)andr=-1theny=1:pokes0,s:pokes0,0:fori=1to25:next
  980 pokes0,s:pokes0,0:goto490
  990 fori=1to50:next:return
 1000 pokesa,48+l:return
 1050 ifns=0thenreturn
 1055 forj=1to110:next:return
 1100 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:cu$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
 1110 d$=cu$+"{CBM-I}{down}{left}{rvon} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left}{CBM-O}{rvof}{left}"+cu$
 1120 print"{CBM-A}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{CBM-Z}";d$;
 1130 print"{SHIFT-*}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1140 print"{SHIFT-*}{down}{left} {down}{left}{CBM-A}{down}{left}{CBM-W}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}W{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1150 print"{SHIFT-*}{down}{left} {down}{left}{SHIFT-*}{down}{left}${down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left}{CBM-A}{down}{left}{SHIFT--}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1160 print"{SHIFT-*}{down}{left} {down}{left}{CBM-R}{down}{left}{SHIFT--}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left}{SHIFT-*}{down}{left}Z{down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}W{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1170 print"{SHIFT-*}{down}{left} {down}{left}{SHIFT-*}{down}{left}${down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left}{CBM-S}{down}{left}{SHIFT--}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1180 print"{SHIFT-*}{down}{left} {down}{left}{CBM-S}{down}{left}{CBM-Q}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}W{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1190 print"{SHIFT-*}{down}{left} {down}{left} {down}{left}{CBM-S}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left}{CBM-A}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1200 print"{CBM-R}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{CBM-X}{down}{left}{CBM-T}{down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1210 print"{CBM-R}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{CBM-Z}{down}{left}{CBM-T}{down}{left}{CBM-A}{down}{left}{CBM-W}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1220 print"{SHIFT-*}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left}{SHIFT-*}{down}{left}${down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}W{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1230 print"{SHIFT-*}{down}{left} {down}{left} {down}{left}U{down}{left}J{down}{left}{CBM-T}{down}{left}{CBM-S}{down}{left}{SHIFT--}{down}{left}{CBM-E}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1240 print"{SHIFT-*}{down}{left} {down}{left}{CBM-O}{down}{left}K{down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}Q{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1250 print"{SHIFT-*}{down}{left} {down}{left}{CBM-O}{down}{left}J{down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1260 print"{SHIFT-*}{down}{left} {down}{left} {down}{left}I{down}{left}K{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$;
 1270 print"{SHIFT-*}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{CBM-T}{down}{left} {down}{left} {down}{left} {down}{left}{SHIFT-*}{down}{left}{SHIFT-*}";d$
 1280 forj=1to50:poke59464,int(rnd(10)*24+20):forjj=1to20:nextjj,j
 1285 poke59464,0:return
 1300 gm=gm+1
 1305 pokeqk,0:print"{clr}{down}{down}the combination was {rvon}"co$
 1320 sq$="s":ifgm=1thensq$=""
 1325 iftt>0thenwq=wq+1
 1327 print"{down}{down}games played:"gm
 1330 ifwgthen print"{down}{down}after"gm"game"sq$" you have succeeded"wq"time"sq$
 1340 iftt>0and(tt<bsorbs=0)thenbs=tt
 1345 ifbs=0then1390
 1360 ifttthenprint"{down}time this game:"tab(12)int(tt/100)"{left}:"right$(str$(tt),2)"{down}"
 1380 print"best time yet:"tab(12)int(bs/100)"{left}:"right$(str$(bs),2)"{down}"
 1390 print"{down}{down}{down}want to try again ? ";:gosub60000
 1400 tt=0
 1410 ifleft$(in$,1)<>"n"then170
 1420 pokes0,0:pokes1,0:pokes2,0:print"{clr}":end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:qp=515:qv=1:cr$=chr$(13)
 60410 if peek(50000)<>0 then qk=158:qp=151
 60425 wd=40:crt=32768:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60426 ifwd=80thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(39)chr$(143);
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by gary marsa
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}the safe way to be a burglar
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto60300
   10 open4,4:cmd4
   15 print:print:print:print:print
   20 print"                              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
   25 print"                           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}              ."
   30 print"                        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}               .."
   35 print"                       {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                  ."
   40 print"                     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}..........         ."
   45 print"                     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  oooooooo.....    ."
   50 print"                      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   ooooooooooo....../"
   55 print"                     $$${CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   oooo.ooooooo    ////"
   60 print"                    $$$$$$        oooooooooo.o   /////"
   65 print"                    $$$$$$        oooooooooooo   /////  ......"
   70 print"                    $$$$            oooooooooo     /****     .."
   75 print"                     {CBM-+}{CBM-+}{CBM-+}                ****o      *******    ..."
   80 print"                   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                         *********     ."
   85 print"                 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}          **             **********    ."
   90 print"                {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     ******            {CBM-+} ********     ."
   95 print"              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} ******                {CBM-+}{CBM-+}{CBM-+}{CBM-+}//////////{CBM-+}{CBM-+}"
  100 print"            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      *******                {CBM-+}{CBM-+}{CBM-+}{CBM-+}//////////{CBM-+}{CBM-+}{CBM-+}"
  105 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       ***********             {CBM-+}{CBM-+}{CBM-+}/////// ////{CBM-+}{CBM-+}{CBM-+}"
  110 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      **********              {CBM-+}{CBM-+}{CBM-+}{CBM-+}/        ///{CBM-+}{CBM-+}{CBM-+}"
  115 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       ********{CBM-+}            {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}/// /////////{CBM-+}{CBM-+}{CBM-+}"
  120 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}        ****  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   /////////{CBM-+}{CBM-+}{CBM-+}"
  125 print"         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                         {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}///{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  130 print"          {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  135 print"           {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     ]]]]]]]]]]]]]]]]]        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  140 print"              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}]]]]]]]]]]]]]]]]]]]]]]]]  ]]]]  ]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  145 print"                ]]]]]]]]]]]]]]]]]]]]]]]]]]]  ]]]    ]]]]]]]"
  150 print"                ]]]]]]]]]]]]]]]]]]]]]]]]]]]  ]]]]  ]]]]]]]]]"
  155 print"                ]]]]]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}        ]]]]]]]]"
  160 print"                ]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  165 print"              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  170 print
  175 print"        .   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  180 print"        .     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       {CBM-+}...."
  185 print"        .        {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}                           .."
  190 print"        ..                                                       ."
  195 print"          ...                                             .      ."
  200 print"             ...                              {CBM-+}.........       ..."
  205 print"                ...                      {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}          ...."
  210 print"                  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      ...."
  215 print"                 {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} .."
  220 print"              {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  225 print"             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  230 print"          ]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  235 print"          ]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
  240 print"          ]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}]]"
  245 print"          ]]]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}]]]]]]]"
  250 print"        ]]]]]]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}]]]]]]]]]]"
  255 print"      ]]]]]]]]]]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}     {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}]]]]]]]]]]]]]"
  260 print"   ]]]]]]]]]]]]]]]]]]]]]{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}       {CBM-+}{CBM-+}{CBM-+}{CBM-+}]]]]]]]]]]]]]]"
  265 print"]]]]]]]]]]]]]]]]]]]]]]]]] {CBM-+}{CBM-+}             ]]]]]]]]]]]]]]]    ]]]]"
  270 print"]']]]]]]]]]]]]]]]]]]]]]]                 ]]]]]]]]]]]]]]]]]]]]]]]"
  275 print" ]]]]]]]]]]]]]]]]]] ]]]                   ]]]]]]]]]]]]]]]]]]]]]"
  280 print"   ]]]]]]]]]]]]]]                         ]]]]]]]]]]]]]]]]]]]]"
  285 print"     ]]]]]]]]]]]]]                            ]]]]]]]]]]]]]]]"
  290 print"      ]]]]]]]]]]]]]                             ]]]]]]]]]]]"
  295 print"       ]]]]]]]]]]]]]]                            ]]]]]]]]"
  300 print"        ]]]]]]]]]]]]                              ]]]]]"
  305 print"          ]]]]]]]]"
  310 print:print:print:print:print
  315 print#4:close4
 64000 sys 7328
    1 e1=5000:e2=e1
    2 fora=826to837:readt:pokea,t:next
    3 poke59490,255
    4 poke59467,16:poke59466,15:poke59464,0
    5 print"{clr}"
    6 f$="{rght}{rght}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}"
    7 t$="{rght}{rght}                                   "
   10 a$="   {down}{left}{left}{left} {CBM-I} {down}{left}{left}{left}{rvon}{CBM-I}{CBM-I}{CBM-I}{rvof}{down}{left}{left}{left}{left}    "
   20 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   30 c$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}"+a$
   40 a1=19:a2=3
   50 printleft$(b$,a1);a$;left$(b$,a2);c$
   51 e1=e1-5:e2=e2-5:ife2<0thene2=0
   52 ife1<0thene1=0
   53 print"{home} energy= {left} "e2" {left}{left}           energy= {left} "e1"{left}     "
   54 ife1=e2ande1=0thenprint"{home}{down}{down}draw":fort=0to900:next:goto40000
   55 ife1=<0thenprint"{home}{down}{down} left won":fort=0to900:next:goto40000
   56 ife2=<0thenprint"{home}{down}{down} right won":fort=0to900:next:goto40000
   60 poke827,5:sys826:v=peek(1017)
   61 poke827,3:sys826:w=peek(1017)
   62 poke827,7:sys826:u=peek(1017)
   63 ifv=191thengosub2000:tt=1
   64 ifv=254thengosub1000:tu=1
   65 ifv=190thengosub1000:gosub2000:tu=1:tt=1
   66 pokernd(ti)*920+32848,46
   70 iftt=0and(w=191orw=190)thena2=a2-1:ifa2<3thena2=3
   80 iftt=0and(u=191oru=190)thena2=a2+1:ifa2>20thena2=20
   90 iftu=0and(w=254orw=190)thena1=a1-1:ifa1<2thena1=2
  100 iftu=0and(u=254oru=190)thena1=a1+1:ifa1>19thena1=19
  125 tt=0:tu=0
  130 goto50
 1000 printleft$(b$,a1+1);f$:forcx=1to10:next:gosub30000:printleft$(b$,a1+1);t$
 1005 e2=e2-100
 1008 poke59464,0
 1020 ifa1=a2ora1=a2-1thene1=e1-500:poke59459,255:poke59459,0
 1030 return
 2000 printleft$(b$,a2);f$:forcx=1to10:next:gosub20000:printleft$(b$,a2);t$
 2002 e1=e1-100
 2003 poke59464,0
 2005 ifa1=a2-1ora1=a2-2thene2=e2-500:poke59459,255:poke59459,0
 2010 return
 10000 data162,7,142,16,232,173,18,232,141,249,3,96
 20000 poke59464,a2*4
 20010 return
 30000 poke59464,a1*4
 30010 return
 40000 print"{home}{down}another go?"
 40010 poke158,0
 40020 geta$:ifa$=""then40020
 40025 ifa$="y"thenrun
 40030 poke59464,0:poke59466,254:poke59467,0:poke59490,30
    1 sys1037
   10 poke 59468,255
   20 print chr$(142)
   30 sys 8192:new
    0 rem ++++++++++++++++++++++++++++++++
    1 rem + 23 game disk i 'schiettent'  +
    2 rem ++++++++++++++++++++++++++++++++
    3 rem
    4 r=0
    5 dim z(23):poke59468,12
    6 print"{clr}{down}{down}{down}            schieten"
    7 print"       {down}{down}{down}{down}druk op '{rvon}1{rvof}' om te vuren.
    8 print"{down}{down}{down}{down}{rvon}druk op de spatiebalk
    9 geto$:ifo$=""goto9
   10 print"{clr}
   11 a$(0)=" {left}{down}{down}{down}{rvon}{CBM-K}{up}{up}{up}{left}"
   12 a$(1)="{down}{down} {left}{up}{up}{up}{rvon}{CBM-K}{up}{left}"
   13 d$(0)="V"
   14 d$(2)=" "
   15 g$(0)="{CBM--}":g$(1)=" "
   16 poke59467,0
   17 print"{home}"
   18 t=t+s
   19 k=1:x=1:s=100:c=10:r=r+1
   20 r$=str$(r)
   21 ifr=5goto88
   22 fori=0to 22:print" ":z(i)=0:next
   23 fori=1to4
   24 z(int(rnd(rnd(-ti))*19+2))=1
   25 next
   26 print"{home}"
   27 fori=1to21
   28 printtab(37);g$(z(i))
   29 next
   30 print"     {rvon}ronde{rvof}      {rvon}teller{rvof}     {rvon}punten{rvof}"
   31 print"     {CBM-G}";r$;" {CBM-M}      {CBM-G} 10 {CBM-M}     {CBM-G}100 {CBM-M}"
   32 print"     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}      {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}     {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";
   33 print"{home}"
   34 k=1
   35 k=abs(k-1):x=1
   36 i=1
   37 printa$(k)
   38 get a$
   39 ifa$="1"thengosub44
   40 ifc=0goto17
   41 i=i+1
   42 ifi=19goto35
   43 goto37
   44 poke59467,16:poke59464,120
   45 poke59466,31
   46 form=1to10:next
   47 poke59467,0
   48 print"{down}{rght}Q";
   49 y=36
   50 ifk=0thenw=i+2:goto52
   51 w=20-i
   52 ifz(w)>0theny=38
   53 print"{left} Q";
   54 x=x+1
   55 ifx<>ygoto53
   56 ifx=36then print"{left} {rght}{rght}";:poke59467,16:poke59466,99:goto 68
   57 z(w)=z(w)+1
   58 forj=1to4
   59 print"{left}{rvon}Q{rvof}";
   60 poke59467,16
   61 poke59464,150:poke59466,31
   62 form=1to20:next
   63 print"{left}Q";
   64 poke59464,95:poke59466,31
   65 form=1to20:next
   66 next
   67 s=s+120
   68 s=s-5*(38-x)
   69 poke59467,0
   70 s=s-z(w)*10
   71 c=c-1
   72 forj=1to23-w
   73 print
   74 next
   75 ifs<0thens=0
   76 s$=str$(s):c$=str$(c)
   77 printtab(18);"  {left}{left}{left}";c$;tab(28);right$(s$,3)
   78 print"{home}"
   79 forj=1tow:print"{down}";:next
   80 print"{left}{left}";d$(38-x);
   81 ifx<>38goto85
   82 poke59467,16
   83 poke 59464,67
   84 poke59466,35
   85 poke59467,0
   86 x=1:print"{left} {left}{left}{up}{up}"
   87 return
   88 print"{clr}"
   89 poke59467,16
   90 poke59466,1
   91 print"{down}{down}{down}"
   92 forj=1to8
   93 printtab(11);"** spel is uit **
   94 forh=1to3
   95 poke59464,int(rnd(rnd(-ti))*50+110)
   96 next
   97 printtab(11);"{rvon}** spel is uit **{rvof}{up}"
   98 forh=1to3
   99 poke59464,int(rnd(rnd(-ti))*50+40)
  100 next
  101 next
  102 print:print
  103 forh=1to39:print"Z";:poke59464,200-4*h:next:print
  104 poke59467,0:poke59466,0
  105 print"{down}{down}{down}{down}met 40 schoten op 4 doelen :
  106 print"{down}totaal";t;"punten!"
  107 poke59467,16:poke59464,120
  108 forh=1to100:poke59466,rnd(rnd(-ti))*255
  109 next
  110 poke59467,0:poke59466,0
  111 s=t
  112 poke634,23:poke0,96
  113 a%=s/(255*255):poke635,a%
  114 s=s-255*255*a%
  115 a%=s/(255):poke636,a%
  116 s=s-255*a%
  117 a%=s:poke637,a%
  118 poke638,255
  119 $x,peek(45051)-48,"menu
    5 print"{clr}{down}    *** {rvon}schiffe versenken ***{rvof}{down}{down}"
   10 print"prima, dass sie mit mir 'schiffe ver-
   15 print"senken' spielen wollen. sie und ich
   20 print"muessen versuchen schiffe zu
   25 print"finden, die der andere auf einem
   30 print"10x10 - feld versteckt hat. die punkte
   35 print"auf dem feld sind gekennzeichnet durch
   40 print"zeile und spalte. 6,7 z.b. bezeichnet
   45 print"den punkt in zeile 6 und spalte 7.
   50 print"verstecken sie nun ihre schiffe.
   55 print
   60 print"viel glueck!
   65 print
   70 print"irgendeine taste druecken
   75 getv$:ifv$=""then75
   80 dima$(5),s(5),l$(5),m$(11,11),c$(10,10),h$(11,11),x(4),y(4),s$(4)
   85 print"{clr}"
   90 fori=1to5:reada$(i),s(i),l$(i):next
   95 data"flugzeugtraeger",4,"f","schlachtschiff",3,"s","kreuzer",2,"k","u-boot"
  100 data2,"u","pt-boot",1,"p"
  105 fori=0to11:forj=0to11:m$(i,j)=" ":h$(i,j)=".":nextj,i
  110 fori=1to10:forj=1to10:m$(i,j)=".":c$(i,j)=".":nextj,i
  115 fori=1to4:s$(i)=" ":next
  120 print"geben sie die endpunkte ihrer schiffe
  125 print"ein, von oben nach unten oder von
  130 print"links nach rechts, die nummer gibt
  135 print"die laenge des schiffes an.
  140 print
  145 print"irgendeine taste druecken"
  150 getv$:ifv$=""then150
  155 print"{clr}";
  160 gosub855
  165 fork=1to5:gosub765
  170 print"{home}{down}{down}";tab(22);a$(k);s(k)+1:printtab(22);:inputx1,y1,x2,y2
  175 gosub875
  180 ifx1>10orx2>10ory1>10ory2>10thengosub865:goto170
  185 ifx1<>x2andy1<>y2orx1<1orx2<1ory1<1ory2<1thengosub865:goto170
  190 ifx2-x1<>s(k)andy2-y1<>s(k)thengosub865:goto170
  195 forj=x1tox2:forl=y1toy2
  200 ifm$(j,l)<>"."thengosub940:goto170
  205 nextl,j
  210 forj=x1tox2:forl=y1toy2:m$(j,l)=l$(k):nextl,j
  215 nextk:gosub765
  220 gosub875:print"{home}{down}";tab(23);"nun verstecke":printtab(23);"ich meine"
  225 printtab(23);"schiffe."
  230 cd=int(rnd(1)*3+1):ifcd=1thenc1=2:c2=1:c3=3:c4=2:c5=1:c6=3
  235 ifcd=2thenc1=1:c2=1:c3=2:c4=2:c5=3:c6=3
  240 ifcd=3thenc1=3:c2=1:c3=1:c4=2:c5=2:c6=3
  245 fori=1to5
  250 z=rnd(1)
  255 ifz>.5thenx1=int(rnd(1)*(10-s(i))+1):y1=int(rnd(1)*10+1):y2=y1
  260 ifz>.5thenx2=x1+s(i):goto270
  265 y1=int(rnd(1)*(10-s(i))+1):x1=int(rnd(1)*10+1):x2=x1:y2=y1+s(i)
  270 forj=x1tox2:fork=y1toy2:ifrnd(1)>.85then280
  275 ifh$(j,k+1)<>"."orh$(j+1,k)<>"."orh$(j-1,k)<>"."then250
  280 ifh$(j,k)<>"."orh$(j,k-1)<>"."then250
  285 nextk,j
  290 forj=x1tox2:fork=y1toy2:h$(j,k)=l$(i):nextk,j
  295 nexti:print:printtab(23);"also,":printtab(23);"auf gehts!":print
  300 ifcc=17thenprinttab(23);"sie haben":printtab(23);"gewonnen!!":goto575
  305 ifcm=17then315
  310 goto325
  315 printtab(23);"sie haben ver-":printtab(23);"loren. sie haet-":printtab(23);"ten noch";
  320 print17-cc;"mal":printtab(23);"treffen muessen.
  325 ifcm=17thengosub600:goto575
  330 printtab(23);"ihr schuss":printtab(23);:inputa,b
  335 gosub875
  340 ifa>10orb>10ora<1orb<1thengosub865:goto330
  345 ifh$(a,b)<>"."thenc$(a,b)=h$(a,b):goto355
  350 c$(a,b)="*"
  355 ifh$(a,b)<>"."thencc=cc+1:h$(a,b)="."
  360 onhgoto465,520,520,520
  365 ifs$(1)=" "ands$(2)=" "ands$(3)=" "thenr=0:goto395
  370 forqi=1to4:ifs$(qi)<>" "then380
  375 nextqi
  380 fori=1to5:ifs$(qi)=l$(i)then390
  385 nexti
  390 s$(qi)=" ":h=1:x=x(qi):y=y(qi):goto465
  395 a=int(rnd(1)*10+1):b=int(rnd(1)*10+1):ifcm=15andgf=1then435
  400 bs=b:as=a
  405 ifb>3thenb=b-3:goto405
  410 ifa>3thena=a-3:goto410
  415 ifcm=15thencg=cg+1:ifcg=50thengf=1
  420 ifa=c1andb=c2ora=c3andb=c4ora=c5andb=c6then430
  425 goto395
  430 a=as:b=bs
  435 ifm$(a,b)="x"orm$(a,b)="*"goto395
  440 ifcm>=12andpx=1orcm=15thengosub625:ifsp<slthen395
  445 ifm$(a,b)="."thenm$(a,b)="*":gosub765:h=0:cg=0:goto300
  450 h=1:x=a:y=b:fori=1to5:ifm$(a,b)=l$(i)then460
  455 nexti
  460 m$(a,b)="x":cm=cm+1:gosub765:goto300
  465 z=int(rnd(1)*4+1):onzgosub725,720,735,730
  470 ifm$(x+p,y+q)="x"orm$(x+p,y+q)="*"orm$(x+p,y+q)=" "then465
  475 sl=0:sp=1:a=x:b=y:onzgosub630,630,675,675,:ifsp>=s(i)+1then485
  480 goto465
  485 ifm$(x+p,y+q)="."thenm$(x+p,y+q)="*":gosub765:goto300
  490 ifm$(x+p,y+q)<>l$(i)thenr=r+1:s$(r)=m$(x+p,y+q):m$(x+p,y+q)="x"
  495 ifm$(x+p,y+q)<>l$(i)thencm=cm+1:gosub765:x(r)=x+p:y(r)=y+q:goto300
  500 m$(x+p,y+q)="x":cm=cm+1:h=2:gosub765:p=p*2:q=q*2
  505 ifh=s(i)+1thenh=0:gosub965
  510 ifi=5thenpx=1
  515 goto300
  520 ifm$(x+p,y+q)="."thenm$(x+p,y+q)="*":goto530
  525 goto535
  530 onzgosub720,725,730,735:gosub765:goto300
  535 ifm$(x+p,y+q)="*"orm$(x+p,y+q)=" "thenck=1:onzgosub720,725,730,735
  540 ifck=1then550
  545 ifm$(x+p,y+q)="x"thenonzgosub720,725,730,735
  550 ck=0:ifm$(x+p,y+q)<>l$(i)thenr=r+1:s$(r)=m$(x+p,y+q):m$(x+p,y+q)="x"
  555 ifm$(x+p,y+q)<>l$(i)thencm=cm+1:x(r)=x+p:y(r)=y+q:gosub765:goto300
  560 m$(x+p,y+q)="x":cm=cm+1:h=h+1:gosub765:gosub740
  565 ifh=s(i)+1thenh=0:gosub965
  570 goto300
  575 getv$:ifv$=""then575
  580 gosub875
  585 printtab(23);"wollen sie":printtab(23)"nocheinmal":printtab(23)"spielen"
  590 printtab(23);:inputf$:iff$="ja"thenrun
  595 forzi=1to3000:next:load"start",8
  600 print"{home}";:print
  605 forhh=1to10:printtab(3);:foryy=1to10:printh$(hh,yy);" ";:next:print:next
  610 print:print:print
  615 forhh=1to10:print;tab(3);:foryy=1to10:printc$(hh,yy);" ";:next:print:next
  620 return
  625 sl=17-cm:sp=1
  630 forf=a+1toa+4:iff>10then650
  635 ifm$(f,b)<>"x"andm$(f,b)<>"*"thensp=sp+1:goto645
  640 goto650
  645 nextf
  650 forf=a-1toa-4step-1:iff<1then670
  655 ifm$(f,b)<>"x"andm$(f,b)<>"*"thensp=sp+1:goto665
  660 goto670
  665 nextf
  670 ifsp>=slthenreturn
  675 sp=1:forf=b+1tob+4:iff>10then695
  680 ifm$(a,f)<>"x"andm$(a,f)<>"*"thensp=sp+1:goto690
  685 goto695
  690 nextf
  695 forf=b-1tob-4step-1:iff<1then715
  700 ifm$(a,f)<>"x"andm$(a,f)<>"*"thensp=sp+1:goto710
  705 goto715
  710 nextf
  715 return
  720 p=-1:q=0:return
  725 p=1:q=0:return
  730 p=0:q=-1:return
  735 p=0:q=1:return
  740 ifp>0thenp=p+1
  745 ifp<0thenp=p-1
  750 ifq>0thenq=q+1
  755 ifq<0thenq=q-1
  760 return
  765 print"{home}";tab(3);"1 2 3 4 5 6 7 8 9 10"
  770 fore=1to10
  775 ife=10then785
  780 goto790
  785 print"10";:goto795
  790 printe;
  795 forj=1to10:print;tab(3);m$(e,j);" ";:next:print:next
  800 print:print
  805 printtab(3);"1 2 3 4 5 6 7 8 9 10"
  810 fore=1to10
  815 ife=10then825
  820 goto830
  825 print"10";:goto835
  830 printe;
  835 forj=1to10:printtab(3);c$(e,j);" ";:next:print:next
  840 gosub875
  845 return
  850 end
  855 print"{home}";
  860 return
  865 print"{home}";tab(23);"spassvogel"
  870 return
  875 print"{home}";tab(23);"                "
  880 printtab(22)"                 "
  885 printtab(22)"                 "
  890 printtab(22)"                 "
  895 printtab(22)"                 "
  900 printtab(22)"                 "
  905 printtab(22)"                 "
  910 printtab(22)"                 "
  915 printtab(22)"                 "
  920 printtab(22)"                 "
  925 printtab(22)"                 "
  930 printtab(22)"                 {home}"
  935 return
  940 print"{home}{down}{down}{down}{down}{down}{down}";tab(23);"2 schiffe
  945 printtab(23);"koennen nicht
  950 printtab(23);"den gleichen
  955 printtab(23);"platz besetzen.
  960 return
  965 printtab(23)"gesunken!!":print:printtab(23)"blubb, blubb"
  970 printtab(23)"blubb, blubb,
  975 printtab(23)"auf wiedersehen":printtab(23)a$(i);"!":print
  980 return
 65241 rudolf schineis spitzwegstr 42          858 bayreuth tel 0921/68877
    1 poke59468,14:goto40000
    5 dimz(10),z%(255):print"{clr}000000";tab(14)"000":my=1:sw=2:poke59409,60
   10 an$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}"
   20 en$="{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
   29 a$(0)=an$+":::"+en$
   30 fori=1to7:a$(i)=an$+right$(str$((i)*100),3)+en$:next:h$=a$(4):a$(4)=a$(0)
   35 x1=59:x2=47:x3=102:x4=58:x5=41
   40 ob=32768:m=40:z=12:s=20:c=60:in=2
   45 a$(0)=h$:h1=1:h2=32:h3=25:a$(8)=a$(4):h5=11:h6=10:h7=9.55
   46 pokeob+z*m+s,102:b$="4":ih=-1
   47 geta$:ifa$=""then47
   48 ti$="000000":z%(0)=z*m+s:goto100
   50 h4=ob+z*m+s:ifpeek(h4)<>h2then2000
   55 b$=a$:pokeh4,c:pokez%(in)+ob,h2
   70 z%(in+ih)=h4-ob:in=in+h1:ih=-h1:ifin=sw+h1thenin=h0:ih=sw
   90 a=rnd(h1)*h6:ifa>h7thengosub4000
   92 print"{home}";ti$
   95 geta$:ifa$=""then120
   97 ifti$>"000459"then5000
  100 onval(a$)goto180,200,220,250,90,300,320,350,370
  110 goto90
  120 a$=b$:onval(a$)goto185,205,225,255,90,305,325,355,375
  130 goto90
  180 c=109
  185 ifz=h3-h1then2000
  190 ifs=0then2000
  195 z=z+h1:s=s-h1:goto50
  200 c=22
  205 ifz=h3-h1then2000
  210 z=z+h1:goto50
  220 c=125
  225 ifz=h3-h1then2000
  230 ifs=m-h1then2000
  235 z=z+h1:s=s+h1:goto50
  250 c=60
  255 ifs=0then2000
  260 s=s-h1:goto50
  300 c=62
  305 ifs=m-h1then2000
  310 s=s+h1:goto50
  320 c=112
  325 ifz=0then2000
  330 ifs=0then2000
  335 z=z-h1:s=s-h1:goto50
  350 c=30
  355 ifz=0then2000
  360 z=z-h1:goto50
  370 c=110
  375 ifz=0then2000
  380 ifs=m-h1then2000
  385 z=z-h1:s=s+h1:goto50
 2000 ifpeek(h4)=102then3000
 2010 forj=0to10:pokeh4,32:fori=0to100:next:pokeh4,160:fori=0to100:next:next
 2020 goto5000
 3000 h8=h4
 3010 if(peek(h8-h1)<x1andpeek(h8-h1)>x2)orpeek(h8-h1)=x3thenh8=h8-h1:goto3010
 3015 if(peek(h8-m)<x1andpeek(h8-m)>x2)orpeek(h8-m)=x3thenh8=h8-m:goto3015
 3021 ifpeek(h8+x5)<>x4then3030
 3022 my=int(rnd(1)*19)-9:h9=0:i9=43:ifsgn(my)=-1thenh9=128:i9=45
 3023 fori=0to4:forj=0to2:poke(h8+i+j*40),i9+h9:next:next:pokeh8+41,abs(my)+48+h9
 3024 pokeh8+42,48+h9:pokeh8+43,48+h9
 3025 fori=0to600:next
 3026 pokeh8+41,abs(my)+48
 3030 we=we+(peek(h8+41)-48)*100*sgn(my):my=1:print"{home}"tab(15-len(str$(we)))"  "we
 3040 fori=0to4:forj=0to2:pokeh8+j*40+i,32:next:next:goto50
 3999 print"{clr}"
 4000 fork=0to8:a=int(rnd(1)*1000):ifpeek(ob+a)=x3then4020
 4010 next:goto4060
 4020 h8=ob+a
 4030 if(peek(h8-h1)<x1andpeek(h8-h1)>x2)orpeek(h8-h1)=x3thenh8=h8-h1:goto4030
 4040 if(peek(h8-m)<x1andpeek(h8-m)>x2)orpeek(h8-m)=x3thenh8=h8-m:goto4040
 4050 fori=0to4:forj=0to2:pokeh8+j*40+i,32:next:next:goto4010
 4060 a=int(rnd(1)*9):sw=sw+2
 4070 b=int(rnd(1)*35):d=int(rnd(1)*20+1)
 4080 forj=-1to3:fori=-1to5:ifpeek(ob+b+i+(d+j)*m)=h2thennext:next:goto4100
 4090 goto4070
 4100 print"{home}":print"{home}"tab(b);:ifd>0thenfori=0tod-1:print"{down}";:next:printa$(a)
 4110 return
 4500 geta$:ifa$=""then4500
 4510 clr:goto5
 5000 print"{home}";tab(22)"{rvon}game over{rvof}"
 5005 fori=0to9:geta$:next
 5010 geta$:ifa$=""then5010
 5015 poke59409,52:readma
 5020 ifwe<=mathen5030
 5022 print"{clr}{down}{down}6000data"we:print"gO5100{home}";
 5024 poke158,2:poke623,13:poke624,13:end
 5030 restore:fl=1:print"{clr}":poke59409,60
 5100 print"{clr}":readma,ze,an
 5130 poke59409,60:ifan=0then5500
 5140 print"{clr}dIE LETZTEN{$a0}pUNKTZAHLEN{$a0}WAREN:"
 5150 print"dATUM    pUNKTE  nAME"
 5160 fori=1toan:readda$,p$,n$:printda$tab(16-len(p$))p$tab(17)n$:next
 5170 iffl=1thenfl=0:goto4500
 5500 print"{rvon}sIE{$a0}HABEN{$a0}DIE{$a0}bESTLEISTUNG{$a0}ERZIELT{rvof}"
 5505 print"iHRE{$a0}pUNKTZAHL:"ma
 5510 print"gEBEN{$a0}sIE DAS{$a0}dATUM{$a0}EIN (30.02.80)":inputda$
 5520 print"gEBEN{$a0}sIE{$a0}iHREN{$a0}nAMEN{$a0}EIN":inputna$:na$=left$(na$,22)
 5525 da$=left$(da$,8):poke59409,52
 5530 print"{clr}{down}{down}"ze"data"da$","ma","na$
 5540 print"6010data"ze+10","an+1
 5550 print"goto5{home}";
 5560 poke158,3:poke623,13:poke624,13:poke625,13:end
 6000 data 24400
 6010 data 6080 , 12
 6020 data14.04.80, 9800 ,harald moser
 6030 data14.04.80, 12100 ,harald moser
 6040 data14.04.80, 17900 ,harald moser
 6045 data19.05.82, 18700 ,dirk simon
 6050 data15.04.80, 20800 ,frank schumacher
 6053 data07.12.81, 20800 ,klaus peter
 6054 data08.12.81, 20900 ,klaus peter
 6055 data07.12.81, 23700 ,gisbert v.e.
 6060 data17.04.80, 23700 ,frank schumacher
 6070 data28.04.80, 24400 ,harald moser
 6071 data07.01.82, 25200 ,gisbert v.e.
 6072 data21.02.82, 26000 ,gisbert v.e.
 40000 print"{clr}{down}{down}{down}             schlange                                --------
 40010 print"{down}{down}kENNEN{$a0}sIE{$a0}DIE{$a0}sPIELREGELN ? (j/n)
 40020 geta$:ifa$=""then40020
 40030 ifa$="j"then5
 40040 ifa$<>"n"then40000
 40050 print"{up}{up}{up}dER{$a0}sINN{$a0}DES{$a0}sPIELES{$a0}BESTEHT{$a0}DARIN,  "
 40060 print"MOEGLICHST{$a0}VIELE{$a0}pUNKTE{$a0}ZU{$a0}ERREICHEN."
 40070 print"dIE{$a0}pUNKTE{$a0}WERDEN{$a0}GEZAEHLT,{$a0}WENN{$a0}sIE"
 40080 print"MIT{$a0}DEM{$a0}kOPF{$a0}iHRER{$a0}sCHLANGE{$a0}EINES DER"
 40090 print"rECHTECKE{$a0}BERUEHREN. eS{$a0}WIRD{$a0}JEWEILS"
 40100 print"DIE{$a0}pUNKTZAHL{$a0}GEZAEHLT, DIE{$a0}IN{$a0}DEM"
 40110 print"rECHTECK{$a0}STEHT. dIE{$a0}pUNKTZAHLEN{$a0}GEHEN{$a0}"
 40120 print"VON{$a0}100 BIS 700. rECHTECKE OHNE{$a0}pUNKT-"
 40130 print"ZAHLEN{$a0}KOENNEN{$a0}wERTE{$a0}VON -900 BIS{$a0}900"
 40140 print"ANNEHMEN. dAS{$a0}sPIEL{$a0}NACH{$a0}5 mINUTEN{$a0}BE-"
 40150 print"ENDET, ODER WENN{$a0}sIE{$a0}MIT{$a0}DER{$a0}sCHLANGE{$a0}"
 40160 print"DEN{$a0}rAND{$a0}ODER{$a0}DIE{$a0}EIGENE{$a0}sCHLANGE{$a0}BE-"
 40170 print"RUEHREN."
 40180 print"dIE{$a0}sCHLANGE{$a0}WIRD{$a0}MIT{$a0}DEN{$a0}tASTEN:"
 40190 print"'2' '4' '6' '8' GELENKT,{$a0}UND{$a0}ZWAR{$a0}MIT"
 40200 print"DER '2' NACH{$a0}UNTEN, MIT{$a0}DER{$a0}'4' NACH"
 40210 print"LINKS USW.
 40220 print"dRUECKEN{$a0}sIE{$a0}EINE{$a0}tASTE{$a0}UND{$a0}AUF{$a0}GEHT'S"
 40230 geta$:ifa$=""then40230
 40240 goto5
    0 rem auteur t.v.nuland boekel nl                    tel. 04922-1365
    1 :
    2 poke59468,12:poke59467,16:poke59464,0
    3 poke59466,16:p5=150:gosub86
    4 x5$="789/456*123+0.-=":dimq(16),w(16):fori=1to16:readq(i):next
    5 data2,2,2,2,8,8,8,8,14,14,14,14,20,20,20,20
    6 fori=1to16:readw(i):next
    7 data16,22,28,34,16,22,28,34,16,22,28,34,16,22,28,34
    8 dims(15),r(15)
    9 fori=1to15:reads(i):next
   10 data8,8,8,8,9,9,9,9,10,10,10,10,11,11,11
   11 fori=1to15:readr(i):next
   12 data4,5,6,7,4,55,,7,4,5,6,7,4,5,6
   13 print"{clr}{down}{down}{down}geef een tekst van precies 15 letters,"
   14 print"de laatste letter komt precies onder '*'":printtab(16)"*"
   15 inputs$:iflen(s$)<>15thenp5=250:gosub86:goto13
   16 p5=50:gosub86
   17 print"{clr}"tab(14)"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
   18 printtab(14)"{SHIFT--}7    {SHIFT--}8    {SHIFT--}9    {SHIFT--}/    {SHIFT--}"
   19 fori=1to4:printtab(14)"{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0} {$a0}{$a0}{SHIFT--} {$a0}{$a0}{$a0}{$a0}{SHIFT--}":next
   20 printtab(14)"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
   21 printtab(14)"{SHIFT--}4    {SHIFT--}5    {SHIFT--}6    {SHIFT--}*    {SHIFT--}"
   22 fori=1to4:printtab(14)"{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0} {$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0} {$a0}{$a0}{SHIFT--}":next
   23 printtab(14)"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
   24 printtab(14)"{SHIFT--}1    {SHIFT--}2    {SHIFT--}3    {SHIFT--}+    {SHIFT--}"
   25 fori=1to4:printtab(14)"{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0} {$a0}{$a0}{SHIFT--}":next
   26 printtab(14)"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
   27 printtab(14)"{SHIFT--}0    {SHIFT--}.    {SHIFT--}-    {SHIFT--}=    {SHIFT--}"
   28 fori=1to4:printtab(14)"{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0} {$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{$a0}{SHIFT--}":next
   29 printtab(14)"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{home}":s=0:d=1:gosub57
   30 dimc(15):a(1)=2:a(2)=8:a(3)=14:a(4)=20:b(1)=16:b(2)=22:b(3)=28:b(4)=34
   31 dima$(4,4),z$(16):a$(4,4)="":fori=1to4:forj=1to4
   32 x=int(1+rnd(7)*15):ifc(x)=1goto32
   33 c(x)=1:print"{home}";:fork=1toa(i):print"{down}";:next
   34 x$=mid$(s$,x,1):x$=x$+x$:a$(i,j)=x$:z$(d)=x$
   35 printtab(b(j))"{rvon}U{SHIFT-*}{SHIFT-*}I{down}{left}{left}{left}{left}{SHIFT--}"x$"{SHIFT--}{down}{left}{left}{left}{left}{SHIFT--}"x$"{SHIFT--}{down}{left}{left}{left}{left}J{SHIFT-*}{SHIFT-*}K"
   36 d=d+1:ifd<16thennext:next
   37 p5=30:gosub86
   38 gosub69
   39 getg$:ifg$=""goto39
   40 fore1=1to16:ifg$<>mid$(x5$,e1,1)thennexte1:goto39
   41 a=q(e1):b=w(e1)
   42 xx=0:fork=1to4:forl=1to4:xx=xx+1
   43 ifa$(k,l)=""thenq=a(k):w=b(l):o=k:p=l:xy=xx
   44 ifa=a(k)andb=b(l)thenx$=a$(k,l):n=k:m=l:yx=xx
   45 next:next
   46 ifabs(w-b)<>6andabs(w-b)<>0goto38
   47 ifabs(q-a)<>6andabs(q-a)<>0goto38
   48 ifabs(q-a)=6andabs(w-b)=6goto38
   49 ifq=aandb=wgoto38
   50 p5=75:gosub86
   51 print"{home}";:fork=1toa:print"{down}";:next
   52 printtab(b)"    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    {down}{left}{left}{left}{left}    "
   53 print"{home}";:fork=1toq:print"{down}";:next
   54 printtab(w)"{rvon}U{SHIFT-*}{SHIFT-*}I{down}{left}{left}{left}{left}{SHIFT--}"x$"{SHIFT--}{down}{left}{left}{left}{left}{SHIFT--}"x$"{SHIFT--}{down}{left}{left}{left}{left}J{SHIFT-*}{SHIFT-*}K"
   55 a$(n,m)="":a$(o,p)=x$:z$(xy)=x$:z$(yx)=""
   56 s=s+1:print"{home}{down}{down}{down}{down}"tab(3)s:goto38
   57 print"{home}{down}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
   58 print"{SHIFT--}zet nummer{SHIFT--}":print"{SHIFT--}          {SHIFT--}":print"{SHIFT--}          {SHIFT--}"
   59 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
   60 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I":print"{SHIFT--}*copyright{SHIFT--}"
   61 print"{SHIFT--}(c)1978(c){SHIFT--}":print"{SHIFT--}t.v.nuland{SHIFT--}"
   62 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{home}"
   63 print"{home}{down}{down}{down}{down}{down}{down}{down}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I":print"{SHIFT--}te maken: {SHIFT--}"
   64 print"{SHIFT--}   "mid$(s$,1,4)"   {SHIFT--}":print"{SHIFT--}   "mid$(s$,5,4)"   {SHIFT--}"
   65 print"{SHIFT--}   "mid$(s$,9,4)"   {SHIFT--}":print"{SHIFT--}   "mid$(s$,13,3)"    {SHIFT--}"
   66 print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
   67 print"{down}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I":print"{SHIFT--} nog  ?   {SHIFT--}"
   68 print"{SHIFT--} letters. {SHIFT--}":print"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K":return
   69 v=0:fort=1to15
   70 ifleft$(z$(t),1)<>mid$(s$,t,1)then73
   71 print"{home}":fori=1tos(t):print"{down}";:next:printtab(r(t))"{rvon}"left$(z$(t),1)"{rvof}"
   72 v=v+1:goto74
   73 print"{home}":fori=1tos(t):print"{down}";:next:printtab(r(t))mid$(s$,t,1)
   74 next:ifv=15goto77
   75 print"{down}{down}{down}"tab(6)15-v;"{left} ":ifv=14thenprinttab(8)". ":return
   76 printtab(8)"s.":return
   77 forj=0to9:poke59464,250-j*25:print"{down}{down}{down}{rght}!!hoera!!":print"{rght}!hebbes!
   78 fori=1to200:next
   79 print"{up}{up}{rght}         ":print"{rght}         {up}{up}{up}{up}{up}":fori=1to200:next:poke59464,0
   80 next:print"{down}{down}{down}{rght}nog een":print"{rght}keer ? j/n"
   81 getg$:ifg$="j"thenrun
   82 ifg$<>"n"goto81
   83 print"{clr}{down}bedankt voor het spelen!"
   84 p5=225:gosub86
   85 poke59466,0:poke59467,0:goto87
   86 poke59464,p5:fori8=1to100:next:poke59464,0:return
   87 end
   90 rem fixed line 76        .mad. 2016
 65535 sys(1392)
    1 rem scrambled word           july1980
    2 rem unscramble letters to spell a           given word
    3 rem
    4 rem 8k pet
    5 rem
    6 rem author and source unknown
    7 rem
   12 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}         {SHIFT--}{$a0}      san mateo county     {$a0}{SHIFT--}
   13 rem"{SHIFT--}     office of education     {SHIFT--}         {SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}         {SHIFT--}          softswap           {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}         {SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}333 main street, redwood city{SHIFT--}         {SHIFT--}ca 94063 (415)364-5600 ex4401{SHIFT--}
   17 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}         {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   18 rem"{SHIFT--} programs may be copied for  {SHIFT--}         {SHIFT--} educational use & may not be{SHIFT--}
   19 rem"{SHIFT--} sold. copyright 1981 cue,inc{SHIFT--}         {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  100 rem ***************************
  110 rem *                         *
  120 rem *     scrambled word      *
  130 rem *                         *
  140 rem *    kid-proofed by qj    *
  150 rem *     july 17, 1980       *
  160 rem *                         *
  170 rem ***************************
  180 :
  190 :
  200 print"{clr}{down}{down}{down}"tab(8)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  210 printtab( 8)"{rvon}a scrambled word game{down}{down}{down}"
  220 dim b$(20),a(20)
  230 restore
  240 a$=""
  250 b$=""
  260 c$=""
  270 for z = 1 to 20
  280 a(z) = 0
  290 next z
  300 a =int(30*rnd(ti)+1)
  310 for b=1 to a
  320 read a$
  330 ifa$="end" then restore: b=b-1
  340 next b
  350 c=len(a$)
  360 for e=1 toc
  370 d=int(c*rnd(ti)+1)
  380 if a(d)=1 then 370
  390 b$(e)=mid$(a$,d,1)
  400 b$=b$+b$(e)
  410 a(d)=1
  420 next e
  430 if a$=b$ then 360
  440 print"unscramble:    ";:gosub2000:print b$:ww=0
  445 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  450 print"what's your guess? ";
  460 gosub1060
  470 print:print
  480 c$=in$
  490 ifa$=c$ then 560
  500 goto 530
  510 gosub3100:ww=ww+1:ifww<3thengosub3000 :goto445
  515 print"  the answer is: "a$:print
  520 goto 580
  530 w=w+1:goto510
  560 print"correct!!":print
  570 r=r+1
  580 print"{down}score:  correct"r"   wrong "w:
  585 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  590 print"{rvon}another word?  (y/n){rvof}";
  600 getqq$:ifqq$<>"y"andqq$<>"n"then600
  610 ifqq$="y" then print"{clr}{down}{down}{down}":goto240
  650 print"{clr}{down}you answered:{down}{down}"
  660 t=w+r
  670 x=int(r/t*100+.5)
  680 y=int(w/t*100+.5)
  690 print
  700 printx"% correct       "y" % wrong"
  710 print
  720 end
  740 data hobby,built,divert,flower
  750 data grimy,smart,engine,muffin
  760 data rusty,destroy,icebox,debtor
  770 data school,henna,arcade,purple
  780 data rainy,lapel,frozen,cipher
  790 data nutty,magic,pastry,solace
  800 data booty,clout,drowsy,winnow
  810 data felon,diced,throw,cloudy
  820 data daring,baffle,invite,enamel,dahlia,object
  830 data wince,cress,drug,invert
  840 data snort,motif,chorus,gender
  850 data pouch,exact,button,oriole
  860 data yokle,armor,vandal,picket
  870 data limit,gaudy,single,doubly
  880 data souse,fuzzy,affray,estate
  890 data cleft,steed,outbid,widest
  900 data linear,thyme,dismal,helmet
  910 data clove,hitch,duplex,artery
  920 data wedge,taffy,quaver,butter
  930 data enact,joint,thrush,wisdom
  940 data doubt,queen,marina,beheld
  950 data begin,canal,ghost,nimble
  960 data yield,abyss,employ,fasten
  970 data album,twine,ransom,bedeck
  980 data igloo,whine,grimly,solid
  990 data lousy,apron,bangle,anklet
 1000 data finish,prefer,iodine,dabble
 1010 data gutter,nickle,poison,outing,mobile,ramrod
 1020 data nerve,chime,hymnal,factor
 1030 data chair,awoke,arouse,siphon
 1040 data zigzag,donkey,spent,vanity,famous,infuse
 1050 data end,end
 1060 rem
 1070 rem cursor input routine...pet users club vol 1,#6...qj...9/1/79
 1080 cr$=chr$(13)
 1090 rem set fl=1 for old style pets.
 1100 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 1110 getz$:ifz$<>""then1140
 1120 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 1130 goto1110
 1140 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto1180
 1150 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 1160 ifzl>254then1110
 1170 in$=in$+z$:printz$;zd$;z$;
 1180 ifz=13thenin$=mid$(in$,2):printcr$;:return
 1190 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:          goto1110
 1200 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto1100
 1210 goto1110    
 2000 print"{up}{CBM-A}";:forx=1tolen(b$):print"{SHIFT-*}";:next:print"{CBM-S}"
 2010 printspc(15) "{SHIFT--}";:forx=1tolen(b$):print" ";:next:print"{SHIFT--}"
 2020 printspc(15) "{CBM-Z}";:forx=1tolen(b$):print"{SHIFT-*}";:next:print"{CBM-X}"
 2030 printtab(16)"{up}{up}";
 2040 return
 3000 forxx=1to500:next
 3010 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(19)"                   ":return
 3100 printspc(19)"sorry!!";: forxx=1to500:next:print"{left}{left}{left}{left}{left}{left}{left}{left}        ":return
:{stop}{$00}{$00}{$00}{$00}{$00}{$00}~~scramble~~~~~~~~~$:scramble~~~~~~~~{CBM-F}~{$00}~~~~~~~~~~~~~~~~~~~~~~~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-B}~{$00}~{CTRL-P}{CTRL-B}{ensh}{CTRL-P}{CTRL-B}{$00}~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-@}W{$00}~~{$00}{$00}{CTRL-P}{CTRL-D}{$00}{$00}{$00}....{yel}1048{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00} 0{CTRL-K}l{CTRL-P}{home}{$00}{$00}h{CBM-S}{$f2}{$83}{CBM-D}{$f3}{$83}{$e8}{$e8}{$e8}{f7} {CTRL-Y}{wht}{$ea}{CBM-I}{CTRL-A} v{wht}{$a0}%{$68}{up}D{$ee}{$f2}{$83}{CBM-Z}{$f2}{$83}I){blk}{dish}N{$f3}{$83}{SHIFT-POUND}{CTRL-A}{sret}{$f2}{$83}{$e6}{blu}P{CTRL-B}{$e6} {$a0}m{SHIFT-POUND} {up}D{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}_{$a0}{$a0}{CBM-*} {$e9}{$a0}{$a0} {$a0}{$e9}{$a0} {$e9}{$a0}{$a0}{CBM-*}  {$a0}{$e9}{$a0}{CBM-*}{$e9}{$a0}{CBM-*} {$a0}{$a0}{$a0}{CBM-*} {$a0}  {$e9}{$a0}{$a0}{CBM-*}    {$a0} {$a0}   {$a0}{$69}  {$a0}  {$a0}  {$a0}{$69} {$a0}{$69} {$a0} {$a0}  {$a0} {$a0}  {$a0}{$79}{$79}{$a0}    {$a0} {$a0}   {$a0}   {$a0}  {$a0}  {$a0}  {$a0}  {$a0} {$a0}  {$a0} {$a0}  {$a0}{$77}{$77}{$77} _{$a0}{$a0}{$69} _{$a0}{$a0} {$a0}   _{$a0}{$a0}{$ec}{CBM-*} {$a0}  {$a0}  {$a0} {$a0}{$a0}{$a0}{$69} _{$a0} _{$a0}{$a0}{$69} 8{CBM-Z}{$fb}{$83}{$6d}{$fe}{$83}{$6d}~{$83}{sret}{$fa}{$83}{CBM-I}{CTRL-D}{CBM-X}{$fa}{$83}{left}{$fb}{$83}J{CTRL-P}{$f7}{$60}{f4}{CTRL-X}{$69}{CBM-B}{f1}D{SHIFT-POUND}{$83}{$69}{$00}{f1}E{CBM-G}D8{$e9}({f1}D{CBM-A}{CTRL-B}FE{f7}{CTRL-P}{$f2}{$a0}p{$60}{$e0}{$00}P
QD{$f0}{stop} J{ensh}{SHIFT-POUND} {up}D{f7}{$60}{CBM-N}{SHIFT-POUND} QD{$f0}{stop}{$ee}{$f5}{$83}{f4}{up}D{f7}{$60}{SHIFT-POUND}> 6{wht}{SHIFT-POUND}{$a0} 6{wht}{SHIFT-POUND}C 6{wht}{$e0}{$00}P{CTRL-F}{SHIFT-POUND} {up}DP{CTRL-D}{SHIFT-POUND}{$7c}{up}D{$a0}&{SHIFT-POUND}{CBM-*}l6{wht}{CBM-S}{$f7}{$83}{CBM-D}{$f6}{$83} {CTRL-Y}{wht}{SHIFT-POUND}{$00}{CBM-N}{sret}{$f5}{$83} v{wht}{SHIFT-POUND}X{f1}{blu}{SHIFT-POUND}{$7f}{f1} {CBM-I}{CTRL-W}{$a0}q{CBM-E}{blu}I{$66}{$f0}?I^{$f0};Iq{$f0}7I{grn}P1{$e0}{CTRL-W}{$f0}-{gry2}{CTRL-X}{$69}({CBM-POUND}{CBM-E}{blu}I{$66}P{del}{f4}h {$00}{wht}I{CTRL-F}{$68}{CBM-N}{blk}{ensh}{gry2}8{$e9}({CBM-POUND}{SHIFT-POUND}{grn}P{CTRL-P}{gry2}8{$e9}q{CBM-POUND}{SHIFT-POUND}{grn}{up}{blu}{gry2}{CTRL-X}{$69}){CBM-POUND}{SHIFT-POUND} {f7}{up}{blu}HH{SHIFT-*}{$78}P{CBM-R}{f7}{SHIFT-POUND} {up}{blu}{CTRL-X}{CBM-G}{blu}{$69}({f1}{blu}{blk}{CTRL-B}{$e6} J{CTRL-P}{left}{CBM-Z}V{CTRL-B}P{wht}N{$f6}{$83}P{esc} {$70}{CTRL-U}j{CBM-A}{stop}{$ee}{$f6}{$83}j{CBM-A}{stop}{$ee}{$f7}{$83}j{CBM-A}{stop}N{$f6}{$83}j{CBM-A}{stop}N{$f7}{$83}{CBM-I}{CTRL-D}{CBM-Z}{$f7}{$83}I{CTRL-D}{CBM-A}{stop}{swuc}{$f7}{$83}I({blk}{wht}{CBM-I}({swuc}{$f7}{$83}{CBM-I}{CTRL-A}{CBM-Z}{$f6}{$83}I{CTRL-A}{CBM-A}{stop}{swuc}{$f6}{$83}I{CTRL-W}{blk}{wht}{CBM-I}{CTRL-W}{swuc}{$f6}{$83}{CBM-S}{$f7}{$83}{CBM-D}{$f6}{$83} {CTRL-Y}{wht}{CBM-I}{CTRL-A} v{wht}{CBM-Z}{$f5}{$83}P{CTRL-A}{$60}l
{$0a} {$00}{wht}8{$e9}{wht}{CBM-A}{$fc}{$69}{stop}{CTRL-X}{$6d}{$f9}{$83}E{CTRL-A}{CTRL-P}{CTRL-D}{$69}{CTRL-D}P{CTRL-F}E{CTRL-B}0{CTRL-B}{$e9}{CTRL-D}{sret}{$f9}{$83}j{$ea}{CBM-N}{SHIFT-POUND}{$e7}{f1}{blu}{SHIFT-POUND}{$83}{f1} {$a0}{$00}{SHIFT-POUND}{$66}{up}{blu}8{CBM-G}{blu}{$e9}({f1}{blu}{CBM-A}{CTRL-B}F JP{$ee} {$00}{wht}{$a0}{$00}{CBM-I}qI {blk}{swlc}{CBM-I}^I0{blk}{dish}{CBM-I}{grn}Ip{blk}{CTRL-B}{CBM-I} {f4}{up}{blu}{$60} {$80}{CTRL-U}{$ea}{$ea}Pj{CBM-Z}Q{CTRL-B}Pe h
{CBM-I}{$00}{CBM-Z}{$84}{CTRL-B}{$f0}{CTRL-G}{CBM-I}{CTRL-B}{CBM-Z}{f3}{CTRL-B}P{rvon}{$fe}{$84}{CTRL-B}{CBM-Z}{$f7}{$83}{left}{$80}{CTRL-B}{CBM-Z}{$f6}{$83}8{$e9}{CTRL-A}{left}{orng}{CTRL-B}{CBM-S}{$f7}{$83}{CBM-D}{$f6}{$83} {CTRL-Y}{wht}{SHIFT-POUND}({$ed}{$f7}{$83}{CBM-N}{$f0}{down}H{CBM-E}DI {$f0}{stop}l{CTRL-L}{CTRL-G}{SHIFT-POUND}-{up}DJP{$ef}{$60}I{$66}{$f0}{$fb}{CBM-N}{SHIFT-POUND}*{up}D{f4}IqP{wht}{SHIFT-POUND}{CTRL-X}l@{CTRL-G}I^P{wht}{SHIFT-POUND}pl{$60}
I{grn}{$f0}{CTRL-A}{$60}{gry2}{CTRL-X}{$69}({CBM-POUND}{CBM-E}DI{$66}{$f0}{CTRL-D}{SHIFT-POUND}{CTRL-Y}P{$e9}{SHIFT-POUND}{CTRL-Y}P{down}{CTRL-X}{$6d}V{CTRL-B}{blk}{CTRL-B}{SHIFT-POUND}~{sret}V{CTRL-B}{$60}{CBM-N} q{CTRL-G}{f4}{$f8}{CTRL-X}{$6d}S{CTRL-B}{sret}S{CTRL-B}{CBM-Z}T{CTRL-B}{$69}{$00}{sret}T{CTRL-B}{CBM-Z}U{CTRL-B}{$69}{$00} {f2}{rvon}X{$60}{CBM-I}{$00} {$70}{CTRL-G}{CBM-X}{$84}{CTRL-B}{$f0}?{$fe}{$84}{CTRL-B}I{stop}{blk}{down}I{wht}{blk}{$0a}I{CTRL-G}{blk}{stop}{$de}{$80}{CTRL-B}{$de}{$80}{CTRL-B}{$de}{orng}{CTRL-B}{$fe}{$80}{CTRL-B}{CBM-X}{$80}{CTRL-B}{$f0}(I({CBM-A}${CBM-C}{orng}{CTRL-B}{CBM-X}{$80}{CTRL-B} {CTRL-Z}{wht}{$a0}o{CBM-E}DI {$f0}
{SHIFT-POUND}{$00}{left}{$84}{CTRL-B}{CBM-E}D {CTRL-L}{CTRL-G}{CBM-I}{CTRL-B}{$60}{SHIFT-POUND}*{up}DP{$f7}{SHIFT-POUND}{$00}{left}{$84}{CTRL-B}{$f0}{$f0}{SHIFT-POUND}{CTRL-A} q{CTRL-G}{CBM-Z}V{CTRL-B}8{$e9}{CTRL-A}{CBM-A}{CTRL-B}{SHIFT-POUND}{$00}{sret}V{CTRL-B}{CBM-I}{CTRL-F}{$a0}{CTRL-Y} {CTRL-Y}{wht}{CBM-Z}X{CTRL-B} +{dish}{$a0}x{CBM-I}{CTRL-B}{CBM-X}S{CTRL-B}){$f0}jjjj +{dish}{CBM-X}S{CTRL-B}){CTRL-O} +{dish}J{CTRL-P}{$e9}{$a0}{$64}{CBM-Z}V{CTRL-B}jjjI{dish}{blk}{CTRL-K}{$e9}{dish}{CBM-N}{SHIFT-POUND}{$a0}{up}DH{f4}P{$f1}{CBM-N}{CBM-X}#{dish}{up}D{$a0}{$72}{CBM-Z}W{CTRL-B}l+{dish} {$65}{$74}{$75}{$61}{$f6}{$ea}{$e7}{CTRL-X}{$69}0{up}DH{$60} {$80}{CTRL-U}{$ea}{$ea}{$f0}{wht}{SHIFT-POUND}{$00}{sret}Q{CTRL-B}{$60}{CBM-I}{$00}{CBM-Z}{$84}{CTRL-B}{$f0}{stop} {lgrn}{CTRL-G}{CBM-I}{CTRL-B}{CBM-Z}{f1}{CTRL-B}{$f0}{$ee}l{lgrn}{CTRL-G} {$00}{wht}{CBM-I}{$00} {$60}{dish} {$00}{wht}{CBM-I}{CTRL-A}8{$e9}{wht}{CBM-A}{$fc}{$69}{stop}{CTRL-X}{$7d}{$f8}{$83}I{CTRL-B}{CBM-A}{CTRL-D}{SHIFT-POUND}{CTRL-B}P{CTRL-F}I{down}{blk}{CTRL-B}{SHIFT-POUND}{CTRL-P}{left}{$f8}{$83}{$60} s{dish}{CBM-Z}{$f8}{$83}j{CBM-N}{$a0}{$00}{SHIFT-POUND}o{f1}{blu}{SHIFT-POUND}{$80}{f1} {SHIFT-POUND}{$66}{up}{blu}{CBM-G}{blu}{CTRL-X}{$69}({f1}{blu}{blk}{CTRL-B}{$e6} JP{$ee}{CBM-Z}{$f9}{$83}j{CBM-N}{SHIFT-POUND}{$e7}{f1}{blu}{SHIFT-POUND}{$83}{f1} {SHIFT-POUND}{$66}{up}{blu}8{CBM-G}{blu}{$e9}({f1}{blu}{CBM-A}{CTRL-B}F JP{$ee} {$00}{wht}{CBM-I}qI {blk}{dish}{CBM-I}^I0{blk}{CTRL-B}{CBM-I} {f4}{$a0}{$00}{up}{blu}{$60}h{CBM-E}DI {$f0}$Iz{$f0} Iw{$f0}{red}I-{$f0}{dish}I*{$f0}{CTRL-D}{$68}l
{$0a}{SHIFT-POUND}V{up}D{SHIFT-POUND}{$00}{left}{blk}{CTRL-B}{$68}{SHIFT-POUND}  q{CTRL-G}{$60}{$68}{up}D{$60}{CBM-I}{CTRL-G}{CBM-X}{gry2}{CTRL-B}{CBM-POUND}{CBM-X}{blk}{CTRL-B}{$f0}k {CTRL-Z}{wht}{SHIFT-POUND}  W{dish}{CBM-X}{blk}{CTRL-B}{$f0}>{CBM-Z}{SHIFT-POUND}{CTRL-B}{$f0}{stop}{$de}{blk}{CTRL-B}{CBM-X}{$a0}{CTRL-B}{$f0}
{$a0}{$00}{CBM-E}DI{$66}P{CTRL-W}{$de}{$a0}{CTRL-B}P{CTRL-U}{$a0}H{CBM-E}DI{$66}P{wht}{$fe}{$a0}{CTRL-B}P{dish}{$de}{gry2}{CTRL-B}P{stop}{$fe}{gry2}{CTRL-B}{CBM-X}{gry2}{CTRL-B}{CBM-POUND}{CBM-X}{blk}{CTRL-B} {CTRL-Z}{wht}{SHIFT-POUND}z W{dish}J{CTRL-P}{SHIFT-POUND}{CBM-I}{CTRL-G}{CBM-X}{CBM-A}{CTRL-B}{$f0}1{CBM-X}{CBM-U}{CTRL-B}{CBM-POUND}{CBM-X}{CBM-A}{CTRL-B} {CTRL-Z}{wht}{CBM-E}DI {$f0}{home}Iw{$f0}{CTRL-O}I-{$f0}{CTRL-K}I*{$f0}{CTRL-G}Iz{$f0}{stop}l
{$0a}{SHIFT-POUND} {up}D{$de}{CBM-A}{CTRL-B}{$f0}{wht}{SHIFT-POUND}w{f7}{up}DJ{CTRL-P}G{$60}N{CBM-N}{CTRL-B}P) {$00}{wht}8{$e9}{dish}{CBM-A}{$fc}{$69}{CTRL-P}{sret}{CBM-N}{CTRL-B}{CBM-I}{CTRL-G}{CBM-X}{blk}{CTRL-B}{$f0}{stop}J{CTRL-P}{$f8}{CBM-Z}{$fe}{$83}){CTRL-A}{left}{$a0}{CTRL-B}{SHIFT-POUND}{swlc}{left}{gry2}{CTRL-B}{SHIFT-POUND}'{left}{blk}{CTRL-B}{$60}{SHIFT-POUND}*QD{$f0}{stop}{$ee}{$f5}{$83}{$60}{$ea}{CBM-I}{CTRL-G}{CBM-X}{CBM-A}{CTRL-B}{$f0}{CTRL-D}J{CTRL-P}{$f8}{$60}{f4}h {$00}{wht}{CBM-POUND}{$68}{SHIFT-*} {CBM-A}{$f4}{CBM-N}{gry2}8{$e9}{CTRL-G}{CBM-A}{$fb}{$69}{CTRL-P}{left}{CBM-U}{CTRL-B}{SHIFT-POUND}'{left}{CBM-A}{CTRL-B}{$60}{CBM-I}/{SHIFT-POUND}{$00}{left}{blk}{CTRL-B}J{CTRL-P}{$fa}{SHIFT-POUND}{wht}{sret}{CBM-N}{CTRL-B}{$60}{CBM-S}{$f7}{$83}{CBM-D}{$f6}{$83} {CTRL-Y}{wht}{SHIFT-POUND}{CTRL-P}{sret}{$e0}{CTRL-B}{$a0}{$00} @{down}{$a0}%{SHIFT-POUND}{$67}{up}DH{SHIFT-POUND}m{up}DH{SHIFT-POUND}{$64}{up}D{$a0}p{SHIFT-POUND}>{up}D{f7}{f7}{SHIFT-POUND}@{up}D{f7}{SHIFT-POUND}{$6d}{up}D{$a0}{$77}{SHIFT-POUND}{$63}{up}D{f7}{up}D{$a0}{$00} @{down}{$a0}o{SHIFT-POUND}*{up}D{$a0}{$00} @{down}{$a0}%{SHIFT-POUND} {up}DH{SHIFT-POUND}m{up}DH{SHIFT-POUND}]{up}DH{SHIFT-POUND}n{up}D{$a0}p{SHIFT-POUND}@{up}D{f7}{f7}{up}D{SHIFT-POUND} {f7}l{$00}{rvon}{$00}{CBM-Z}{CBM-D}{CTRL-B}P{$67} {$00}{wht}I0{CBM-A}] {$00}{wht}{CBM-S}{$f9}{$83}8{$e9}{CTRL-G}{CBM-A}{$fc}{$69}{CTRL-P}{$e0}{CTRL-X}{blk}{CTRL-B}i~{sret}{CBM-D}{CTRL-B}I{$00}0# {$00}{wht}8{$e9} {CBM-A}{$fc}{$69}"{CBM-N}{CBM-Z}{$f8}{$83}{swuc}{$f8}{$83}8{$ed}{$f8}{$83}0{CTRL-D}I{CTRL-B}{CBM-A}{CTRL-B}{SHIFT-POUND}{CTRL-B}{sret}{$f8}{$83}l{$80}{dish} {$00}{wht}8{$e9} {CBM-A}{$fc}{$69}"{CBM-N}{CBM-Z}{$f9}{$83}{swuc}{$f9}{$83}8{$ed}{$f9}{$83}0{CTRL-D}I{CTRL-B}{CBM-A}{CTRL-B}{SHIFT-POUND}{CTRL-B}{sret}{$f9}{$83}l{$80}{dish}0!N{CBM-D}{CTRL-B}P{$f6} {$00}{wht}8{$e9}{CTRL-F}{CBM-A}{$fc}{$69}{CTRL-L}{sret}{$f9}{$83}{SHIFT-POUND}08{$ed}{$f8}{$83}{$ed}{$f9}{$83}{sret}{$f9}{$83}l{$80}{dish}{$ee}{CBM-D}{CTRL-B}P{$f8} {$00}{wht}8{$e9}{CTRL-F}{CBM-A}{$fc}{$69}{CTRL-L}{sret}{$f8}{$83}{SHIFT-POUND}08{$ed}{$f8}{$83}{$ed}{$f9}{$83}{sret}{$f8}{$83}l{$80}{dish}{SHIFT-POUND}{$00}{CBM-I}w{left}{$80}{CTRL-B}J{CTRL-P}{$fa}{$60}%{$00}{$00}{$00}{$00}{$78}{SHIFT-POUND}{$60}{f1}{blk}{SHIFT-POUND}{CTRL-K}{f1}{up}{SHIFT-POUND}{$00}{sret}h{$e8}{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-A}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}{$e0}{CTRL-B}x{$60}{$00}h{f4}h{gry2}h{CBM-Z}{$e0}{CTRL-B}Pm{CBM-Z}{$e1}{CTRL-B}j{CBM-A}{CTRL-X}I0{CBM-A}{stop}{$ee}{$e1}{CTRL-B}{$ee}{$e1}{CTRL-B}{CBM-Z}{$e1}{CTRL-B}{sret}h{$e8}{$68}{CBM-POUND}{$68}{CBM-N}{$68}l{$00} I {blk}{ensh}N{$e1}{CTRL-B}N{$e1}{CTRL-B}l{$7a}{CTRL-K}{CBM-Z}X{CTRL-B}I{CTRL-A}P{CTRL-G}{SHIFT-POUND}{$80}{sret}{$e1}{CTRL-B}PWI{CTRL-B}{$f0}{$e8}I{stop}P{CTRL-D}{SHIFT-POUND}{$e0}P{$ef}I{CTRL-D}{$f0}{$e9}{SHIFT-POUND} P{$e7}I{CTRL-A}P6{CBM-Z}{$e2}{CTRL-B}P{CTRL-O}{SHIFT-POUND}{CTRL-P}{sret}{$e2}{CTRL-B}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{SHIFT-POUND} {sret}{$e3}{CTRL-B}{CBM-Z}{$e3}{CTRL-B}{CTRL-X}{$69}{CTRL-B}{sret}{$e3}{CTRL-B}{sret}h{$e8}N{$e2}{CTRL-B}P{$a0}{CBM-I}{$00}{swuc}h{$e8}{swuc}{$e0}{CTRL-B}{$e8}{swuc}j{$e8}P{rvof}{$e8}P{$8f}I{CTRL-P}P{CTRL-K}lP{rvon}{$00}{$e6}{wht}{home}{CTRL-A}{CTRL-B}{$00}{$00}{CBM-Z}{$e2}{CTRL-B}P{$0a}{SHIFT-POUND}{CTRL-P}{sret}{$e2}{CTRL-B}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{CBM-Z}{$e2}{CTRL-B}j{blk}{CTRL-D}{SHIFT-POUND}{SHIFT-*}P{CTRL-B}{SHIFT-POUND}{$00}{sret}h{$e8}N{$e2}{CTRL-B}P{CBM-F}{$f0}{CBM-F}0{stop}l{brn}
 {$e1}{down}l{CTRL-P}{home}{SHIFT-POUND} {CBM-I}{$fa}{left}~{$7f}{left}{$f9}{$80}{left}{$f3}{orng}{left}{$ed}{$82}JP{$f1}{SHIFT-POUND}{$e9}{sret}p{$80}{SHIFT-POUND}{$a0}{sret}q{$80}{sret}r{$80}{sret}{$6b}{$80}{sret}{$70}{$80}{sret}{$78}{$80}{sret}{$a0}{$80}{sret}{clr}{$80}{sret}{CBM-F}{$80}{sret}{gry2}{$80} {$80}{rvon}{SHIFT-POUND}{CBM-*}{sret}s{$80}{CBM-I}{$a0}{CBM-X}_{CTRL-D}{left}G{$80}JP{$f7}{SHIFT-POUND}{CTRL-Y}{sret}{$f3}{$83}{SHIFT-POUND}{dish}{sret}{$f2}{$83}{SHIFT-POUND}
{f1} {SHIFT-POUND}{$a0}{f1}{blu}{$a0}{$00}{CBM-E}{blu}{$f0}{rvon}I~{$f0}9  {CTRL-D}{CBM-I} {f7}P{$fd}JP{$fa}l{$76}
{SHIFT-POUND}{CTRL-O}{sret}{$f3}{$83}{SHIFT-POUND}{CTRL-A}{sret}{$f2}{$83}{$e6}DP{CTRL-B}{$e6}E{CBM-I}{$00}{SHIFT-POUND} {$a0}o{up}D{f7}{up}D{f7}{up}D{$a0}%{up}D{$e6}{blu}P{CTRL-B}{$e6} l{f4}{CTRL-L}{$a0}{stop}{SHIFT-POUND} {lgrn}{inst}{$83}{f7}P{$fa}{sret}{$6d}{$83}{SHIFT-POUND}{$83}{f1}E{SHIFT-POUND}^{f1}D{$a0}{$00}{CBM-I}{CTRL-B}{CBM-X}S{CTRL-B}){$f0}jjjj +{dish}{CBM-X}S{CTRL-B}){CTRL-O} +{dish}J{CTRL-P}{$e9}{CBM-I}{$00}{f7}P{$fd}JP{$fa} {$a0}{CTRL-O}{CBM-Z}{rvon}{$e8}I{$ef}{$f0}m{$ea}{SHIFT-POUND}{$00}{sret}o{$e8} {$80}{CTRL-U}{$ea}{$ea}P{$e9}l{$00}{CTRL-P}{$00}{home}{del}{wht}{CTRL-P}:1 {home}{stop}{CTRL-O}{rvon}{wht}:000000 {CTRL-F}{CTRL-U}{wht}{CTRL-L}:{$a0}{$a0}{$a0}{$a0} {CTRL-F}{ensh}{CTRL-G}{dish}{del}{wht}{rvon}{home}:4{CBM-S}{$e0}{CTRL-B}{$e0}{CTRL-B}{$f0}{ensh}{CBM-I}{CTRL-A}{swuc}{$e0}{CTRL-B}J{swuc}{$e2}{CTRL-B}{$ee}Q{CTRL-B}{$60}{$6c}{$fb}~{$00}IpP{CTRL-O} l{CTRL-G}{CBM-I}{CTRL-B}{swuc}{$e0}{CTRL-B}{CBM-I}{$00}{swuc}{$e2}{CTRL-B}{SHIFT-POUND}pll{CTRL-G} {$80}{CTRL-U}{$ea}{$ea}{$f0}{cyn}l{f4}{CTRL-L}{SHIFT-POUND} {CBM-I}{$fa}{left}~{$7f}{left}{$f9}{$80}{left}{$f3}{orng}{left}{$ed}{$82}JP{$f1}{CBM-I}{$78}{CBM-X}{blu}{CTRL-O}{left}{$8f}{orng}Jl%{CTRL-L}{$00}{dish}{CTRL-O}{CTRL-W} {CTRL-F}{CTRL-A}{rvon} {stop}{CTRL-A}{swlc} {CTRL-Y}{CTRL-O}{CTRL-U} {ensh}{swlc}{CTRL-V}{CTRL-A}{CTRL-D}{wht} {CTRL-O}{CTRL-U}{rvon}{$00} {home} {CTRL-Y} {home} {del} {wht} 
  ?     ({stop})1981 {CTRL-B}{CTRL-Y} {swlc}.{CTRL-K}{rvon}{CTRL-U}{wht}{CTRL-G}{wht}{rvon}                                        {clr}{$83}{$8f}{rvof}{f1}{$a0}{orng}{$84}{lred}{orng}{swuc}{$83}{f1}{$a0}{inst}{orng}{$82}{f8}{f1}{SHIFT-@}     {grn} =   25 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}                     {CTRL-F}{CTRL-L}{CTRL-Y} {grn} =   50 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}                         ^ =  200 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}                      {$82}{orng}{clr}{f1} = 2000 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home}                                        *** {wht}{CTRL-V}{wht}{rvon}{CTRL-Y} 2500 {CTRL-P}{CTRL-O}{ensh}{swlc}{del}{home} {wht}{CTRL-X}{del}{rvon}{CTRL-A} {CTRL-F}{ensh}{CTRL-G}{dish}{del}{wht}{rvon} ***                                                  {f7}{f2}{f5}{f7}{$a0}{clr}{$83}{$8f}{rvof}{f1}{$a0}{SHIFT-@}{$a0}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}                                                             {CTRL-Y}{CTRL-O}{CTRL-U}{rvon} {home}{stop}{CTRL-O}{rvon}{wht} :                ~~~~~~~~{CBM-I}'{CBM-X}X{CTRL-O}{ensh}{$80}{left}{gry2}{$83}J{CTRL-P}{$f5}{f7}P{$fd}JP{$fa} {$80}{CTRL-U}{$ea}{$ea}{$f0}{CTRL-P}{CBM-I}'{CBM-X}X{CTRL-O}{left}{gry2}{$83}J{CTRL-P}{$f7}{f7}P{$fd}JP{$fa}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-P}{rvon}{wht}{home}{home} {CTRL-F}{ensh}{rvon}{wht} - {CTRL-B}{CTRL-U}{del}{del}{CTRL-O}{swlc} {del}{CTRL-O} {home}{del}{CTRL-A}{rvon}{del} {home}{stop}{rvon}{CTRL-A}
{CTRL-B}{CTRL-L}{wht} ! {SHIFT-POUND}{$00}{CBM-I}w{left}{$80}{CTRL-B}J{CTRL-P}{$fa}{CBM-I}{CTRL-D}{swuc}W{CTRL-B}{CBM-I}~{swuc}V{CTRL-B}{CBM-I}{CTRL-A}{swuc}X{CTRL-B}{CBM-I}'{CBM-X} 
{left}{$00}{$80}J{CTRL-P}{$f7}{SHIFT-POUND}{CTRL-B}{sret}{$f9}{$83}{sret}{$f8}{$83}{CBM-I}{CTRL-D}{swuc}{$f7}{$83}{$a0}{CTRL-P}{f8}{$f6}{$83} {CTRL-Y}{wht}{CBM-I}{CTRL-A} v{wht}{SHIFT-POUND} {CBM-I}{$e6}{left}'{$80}{left}
{orng}{left}{$f3}{orng}{left}Y{$82}JP{$f1}{CBM-I}'{SHIFT-POUND}{$66}{left}{SHIFT-*}{$83}J{CTRL-P}{$fa} {CBM-Z}{down}{$ea}{$ea}l{$60}{CTRL-U}P{CTRL-O}{$ee}Y{CTRL-B} {$7a}{wht} {$6b}{CTRL-G} 2{dish}l{f1}{CTRL-P}{SHIFT-POUND}{$00}{sret}Y{CTRL-B} {$7a}{wht} ?{dish} D{CTRL-G} 2{dish} {SHIFT-@}{CTRL-F}{CBM-Z}X{CTRL-B}I{CTRL-A}P{home}{SHIFT-POUND}{CTRL-B}{f1}{CTRL-A}{SHIFT-POUND} {f1}{CTRL-B} _{CTRL-F}{$a0}{CTRL-P} g{down}l{$60}{CTRL-P}I{CTRL-B}P{red} {$7d}{dish} {CTRL-P}{down} {gry3}{ensh}{$a0}{dish} @{down} {CTRL-P}{down} {gry3}{ensh}{$a0}{dish} g{down}l{$60}{CTRL-P}I{stop}P{red} {$7d}{dish} {CTRL-P}{down} U{ensh}{$a0}{dish} @{down} {CTRL-P}{down} U{ensh}{$a0}{dish} g{down}l{$60}{CTRL-P}I{CTRL-D}P<{SHIFT-POUND}{grn}{f1}{CTRL-A}{SHIFT-POUND}-{f1}{CTRL-B} {$00}{wht}I{$a0}{CBM-A}{swlc}Ip{CBM-A}{CTRL-F}){stop}{$69}{CTRL-A}P{CTRL-F}{SHIFT-POUND}{$fd}P{CTRL-B}{SHIFT-POUND}{$00} {$69}{CTRL-F}{$a0}{CTRL-P} g{down}l{$60}{CTRL-P}{CBM-Z}{SHIFT-POUND}{CTRL-B}{$f0}{dish}{SHIFT-POUND}{$00}{sret}{SHIFT-POUND}{CTRL-B}l{CTRL-F}{ensh}{$ee}{SHIFT-POUND}{CTRL-B}P{$f8}I{wht}P{CTRL-K} {$80}{$0a}{$a0}{CTRL-P} g{down}l{$60}{CTRL-P} 0{home}{CTRL-X}{blk}{$f2}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}JP{$fd}{f7}P{$fa}{$60} @{down}{$ee}{CBM-S}{CTRL-B}P{stop}{$ee}{CBM-P}{CTRL-B}{CBM-Z}{CBM-P}{CTRL-B}I{CTRL-A}P{CTRL-G}{CBM-Z}{CBM-S}{CTRL-B}I{$80}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{$00}{sret}{CBM-P}{CTRL-B}{sret}{CBM-S}{CTRL-B}{$ee}X{CTRL-B}{CBM-Z}X{CTRL-B}I{CTRL-B}P{CTRL-X} {$fd}{ensh}{CBM-Z}{$f9}{$83}I{$0a}{blk}
NX{CTRL-B}{SHIFT-POUND}{CTRL-A}{sret}{CBM-P}{CTRL-B}{SHIFT-POUND}{$7e}{sret}{CBM-S}{CTRL-B}{$60}{CBM-Z}X{CTRL-B}I{wht}P{CTRL-P}{SHIFT-POUND}{CTRL-B}{sret}{$f8}{$83}{SHIFT-POUND}{$f5}{sret}{CBM-D}{CTRL-B}{SHIFT-POUND} {sret}{$f9}{$83}{$60}I{CTRL-F}P{red}{SHIFT-POUND}{CTRL-P}{sret}{$f8}{$83}P. @{CTRL-K}{CBM-I}{CTRL-D}{swuc}{$f7}{$83}{$a0}{CTRL-P}{f8}{$f6}{$83} {CTRL-Y}{wht}{CBM-I}{CTRL-A}lv{wht}I{wht}P{SHIFT-+}{CBM-Z}{$f8}{$83}I {blk}T{SHIFT-POUND}{CTRL-A}{sret}{CBM-P}{CTRL-B}{SHIFT-POUND}{$7e}{sret}{CBM-S}{CTRL-B}NX{CTRL-B}{$60}{SHIFT-POUND}{$00}{sret}{CBM-P}{CTRL-B}{$60}{$78} {$60}{del}{CBM-I}{CTRL-P}{swuc}{$e0}{CTRL-B}{$ea}{swuc}{$e0}{CTRL-B}{$a0}{$00}JP{$fd}{f7}P{$fa}N{$e0}{CTRL-B}P{$f5}x{$60}{$00}{$00}{$00}{up}D{$a0}{$78}{SHIFT-POUND}m{up}D{f7}{SHIFT-POUND}]{up}D{f7}{SHIFT-POUND}n{up}D{$a0}{$00} @{down} @{down} @{down}NW{CTRL-B}{CBM-Z}W{CTRL-B}{$f0}{blu}{SHIFT-POUND}~{sret}V{CTRL-B}{SHIFT-POUND}{$00}{sret}{CBM-P}{CTRL-B}{sret}{CBM-S}{CTRL-B}{SHIFT-POUND}{$00}{CBM-I}r{left}{$80}{CTRL-B}J{CTRL-P}{$fa}{SHIFT-POUND}{dish}{sret}{CBM-N}{CTRL-B}l{CTRL-Y}{CTRL-P}{CBM-I}{CTRL-A}{$a0}{CTRL-A} {CTRL-Y}{wht}{CBM-I}{CTRL-B}{CBM-X}S{CTRL-B}){$f0}jjjj{ensh}{$80} +{dish}{CBM-X}S{CTRL-B}){CTRL-O}{ensh}{$80} +{dish}J{CTRL-P}{$e5}{$a0}p{CBM-O}{$e9}{swlc}QD{$f0}o{CBM-A}r{$a0}p{CBM-E}D{lgrn}{$e9}{swlc}H{SHIFT-*}vlH{rvon}{sret}{SHIFT-*}{$80}{SHIFT-POUND}%{sret};{CTRL-K}{$60}{sret}U{CTRL-B}X{CBM-Z}T{CTRL-B}M;{CTRL-K}{blk}&{CBM-Z};{CTRL-K}P{CTRL-G}{CBM-Z}T{CTRL-B}I{$74}{CBM-A}{CTRL-Z}{$f8}{CBM-Z};{CTRL-K}{CTRL-X}{$69}%{sret};{CTRL-K}X{$ee}W{CTRL-B}{CBM-Z}W{CTRL-B}I{CTRL-P}{blk}{wht}{SHIFT-POUND}{ensh}{sret}W{CTRL-B}{$60}{$00}{$00}{$00}{$00}H{SHIFT-*}v{blk}{CBM-G}l{$80}
{blk}{CBM-Q}lE{rvon}{$00}{$00}{$00}{CBM-Z}{$e2}{CTRL-B}I~{$f0}{$0a}{SHIFT-POUND}~{sret}{$e2}{CTRL-B}{SHIFT-POUND}{$80}{sret}{$e1}{CTRL-B} {$00}{wht}I{$80}{blk}{wht}{sret}h{$e8}P{wht}{SHIFT-POUND}{$00}{sret}h{$e8}N{$e1}{CTRL-B}{$f0}{stop}l{$80}{CTRL-K}{SHIFT-POUND}{$00}{sret}h{$e8}{sret}{$e0}{CTRL-B}{sret}{$e1}{CTRL-B}{sret}{$e2}{CTRL-B}l{$80}{CTRL-K}{$00}{$00}{$00}{$00}{$00}{$78}{SHIFT-POUND}u{f1}{blk}{SHIFT-POUND}{$e4}{f1}{up}x{SHIFT-POUND}{$00}{sret}j{$e8}{sret}k{$e8}{sret}h{$e8}{$ea}{$ea}{$ea}l0{CTRL-L}{$00}{$00}{$00}{$00}{$00}N{$f8}{$83}{CBM-Z}{$f8}{$83}00P{down}{SHIFT-POUND}{CTRL-P}{sret}{$f8}{$83} {$a0}{home}{SHIFT-POUND}{$66}{sret}{CBM-B}{$83}{sret}{gry1}{$83}{$60}I{dish}{CBM-A}{CTRL-P} {$a0}{home} {$00}{wht}I{CTRL-P}{CBM-A}{$f1}{SHIFT-POUND}{SHIFT-*}{sret}{$f8}{$83}{$60}{SHIFT-POUND}{$66}{sret}{$e7}{$83}{sret}o{$80}{$60} {$a0}{home}{CBM-Z}{$f8}{$83}I{CBM-A}{blk}{CTRL-F}{SHIFT-POUND}{$00}{sret}{$f9}{$83}{$60}8{$e9}{f8}{CBM-POUND}{CBM-I}{wht}{CBM-O}{gry2}{$83}I-P{CTRL-K}8.{$f9}{$83}{CBM-Z}{$f9}{$83}){dish}P{$60}{f4}h{$e8}{$e8}{$e8}{CBM-Z}{$f9}{$83}{$0a}JP{$fc}{$68}lH{home}{SHIFT-POUND}{$6f}{f1}{blu}{SHIFT-POUND}{$83}{f1} {$a0}{$00}{CBM-I}{CTRL-P}{SHIFT-POUND}{$66}{up}{blu}{CBM-G}{blu}8{$e9}({f1}{blu}{CBM-A}{CTRL-B}F JP{$ee}{SHIFT-POUND}{$66}{sret}{$e7}{$83}{sret}o{$80}{$60}{$00}{CBM-N}{SHIFT-POUND}{$80}{blk}{CTRL-B}{SHIFT-POUND}{$00}]{$f8}{CTRL-K}{lgrn}{gry2}{$83}HJP{CBM-Y}{SHIFT-POUND}{$66}{sret}{gry1}{$83}{sret}{$77}{$80}{sret}{cyn}{$80}{sret}G{$80}{sret}{$ef}{$80}{sret}{CBM-B}{$83}{$60}{$00}{$00}{$78}{$ea}{$ea}{$ea}{f8}{$f8}{$83}{SHIFT-POUND}{CTRL-O}{sret}{$f9}{$83}{SHIFT-POUND}{CTRL-O}{sret}j{$e8}{$ea}{$ea}{$ea}{CBM-D}{$f8}{$83}{CBM-I}{wht}{CBM-Z}{$f9}{$83}){$80}{rght}{$f8}{CTRL-K}{lgrn}{gry2}{$83}HJP{$f1}{SHIFT-POUND}{$80}m{$f9}{$83}{sret}{$f9}{$83}{CBM-I}{$f0}{swuc}h{$e8}{$a0}{$00}{f7}P{$fd}JP{$f5}{CBM-Z}{$f9}{$83}){CTRL-O}{$f0}{CTRL-F}N{$f9}{$83}l{$fc}{home}x{SHIFT-POUND}{del}{sret}{$f9}{$83}{SHIFT-POUND}p l{CTRL-G}N{$f9}{$83}{CTRL-P}{$f6}{SHIFT-POUND}{CTRL-A}{sret}X{CTRL-B}l%{rvon}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{SHIFT-POUND}{$f9}{f1}D{SHIFT-POUND}{orng}{f1}E{$a0}{$00}{CBM-I}{CTRL-B}{CBM-X}S{CTRL-B}){$f0}jjjj +{dish}{CBM-X}S{CTRL-B}){CTRL-O} +{dish}J{CTRL-P}{$e9}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$78}{SHIFT-POUND}{$f7}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{$0a}{$0a}{blk}{CTRL-W}N{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{$0a}{CBM-A}{dish}N{$f6}{$83}{$ee}{$f7}{$83}x{$60}{$0a}{CBM-A}{dish}N{$f7}{$83}N{$f6}{$83}x{$60}{SHIFT-POUND}{$f4}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{$0a}{blk}{$e5}{$0a}{blk}!N{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{$0a}{$0a}{blk}{CTRL-L}N{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}{$0a}{CBM-A}{dish}{$ee}{$f7}{$83}{$ee}{$f6}{$83}x{$60}{$0a}{CBM-A}{CTRL-F}{$ee}{$f6}{$83}N{$f7}{$83}x{$60}{$00}{$00}{$00}{swuc}{$7f}{CTRL-U}{CBM-I}{$fb}{lblu}{CBM-S}{$7f}{CTRL-U}{CBM-Z}Y{CTRL-B}l{$63}{CTRL-P}{$00} {$00}{CTRL-U}{CBM-Z}o{$e8}{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$78}{SHIFT-POUND} -o{$e8}{$f0}{$0a}{SHIFT-POUND}{$f4}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-A}x{$60}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}h{$00}{$00}{$00}{$0a}{$00}{$00}{$00}A{$00}{$00}{$00}{$00}{$00}{$00}{dish}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~~{$f7}~~~{$f7}~~~{$f5}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-V}~~~~~~~~~~~{CBM-A}"{rvon}error":{$80}{$00}{esc}{CTRL-V}{SHIFT-*}{dish}{orng}i{CBM-R}y{CBM-@}y{CBM-Q}7{SHIFT-POUND}{CBM-Q}1{$00}8{CTRL-V}J{dish}{f6}m%(x,i){CBM-R}0{CBM-M}n{CBM-R}y{CBM-Q}i{CBM-Q}1:{f2}2280{$00}z{CTRL-V}T{dish}{f6}m%(x,i){CBM-R}9{CBM-M}n{CBM-R}y{CBM-Q}i{CBM-Q}1:f%{CBM-R}1:{f2}2280{$00}{$64}{CTRL-V}{$de}{dish}{$82}:n{CBM-R}7{$00}{clr}{CTRL-V}{$e8}{dish}{orng}i{CBM-R}1{CBM-@}n:l(i){CBM-R}m%(x{CBM-Q}1,y{CBM-Q}i):r(i){CBM-R}m%(x{CBM-N}1,y{CBM-Q}i):{$82}{$00}{left}{CTRL-V}{$f2}{dish}{f2}2480{$00}{CBM-N}{CTRL-V}{$fc}{dish}{orng}i{CBM-R}x{CBM-@}x{CBM-N}7{$00}G{CTRL-V}{CTRL-F}{ensh}{f6}m%(i,y){CBM-R}0{CBM-M}n{CBM-R}i{CBM-Q}x{CBM-Q}1:{f2}2340{$00}{$e9}{CTRL-V}{CTRL-P}{ensh}{f6}m%(i,y){CBM-R}9{CBM-M}f%{CBM-R}1:n{CBM-R}i{CBM-Q}x{CBM-Q}1:{f2}2340{$00}{$f3}{CTRL-V}{CTRL-Z}{ensh}{$82}:n{CBM-R}7{$00}"{CTRL-W}${ensh}{orng}i{CBM-R}1{CBM-@}n:l({CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I} {$a0}{$00}{f7}P{$fd}JP{$fa}lu{$e4}{CBM-N}{CBM-N}{CBM-N}  100 print "screenmap 64  - jim butterfield"
  110 dim s(255),c$(2)     :rem s() is 64 byte chunks
  120 c$(1)=">> character screen <<":c$(2)=">> hi res screen <<"
  130 print
  140 print "this program helps you set up"
  150 print "customized screens on your 64"
  160 print " .. to ease your program task".
  170 print
  180 s0=16384
  190 print "will you want:"
  200 print "1. characters
  210 print "2. high res
  220 input "1 or 2";c4
  230 if c4<1 or c4>2 goto 190
  240 c9=4:if c4=2 goto 310
  250 print "will you want to build
  260 print "   a custom character set (y/n)";
  270 input y$:y$=left$(y$,1)
  280 if y$="y" goto 310
  290 if y$<>"n" goto 240
  300 c9=0:c=64
  310 print
  320 print "pick a memory block:"
  330 for j=0 to 3
  340 if c4=2 or c9>0 or j=0 or j=2 then print j;": ";j*s0;"to";(j+1)*s0-1
  350 next j
  360 print "your choice (0 to 3)";:if c4=2 then print "(1 or 3 best)";
  370 input b0:if b0<0 or b0>3 goto 310
  380 if b0=0 then for j=0 to 3:s(j)=2:next j
  390 if b0=0 or b0=2 then for j=64 to 127:s(j)=1:next j
  400 rem
  410 s=96*c4-64:printc$(c4)
  420 on c4 gosub 1200,1300
  430 input "are you ready for data";y$
  440 if left$(y$,1)<>"y" goto 430
  450 print "{clr}{down}{down}"
  460 print "     video locations ";
  470 print
  480 if b5=32 then print "high resolution."
  490 if c4=1 then print "text screen"
  500 print "video matrix:";b0*s0+v*64;"to";b0*s0+(v+16)*64-1
  510 print "(sprite pointers at";b0*s0+v*64+1016;"to";b0*s0+v*64+1023;")"
  520 if c4=1 and c9=0 then print "standard character set.":c=64:goto 540
  530 print "character base:";b0*s0+c*64;"to";b0*s0+(c+s)*64-1
  540 print
  550 print "poke:  setup restore"
  560 x1=56576:x2=7-b0:x3=7:gosub 1900
  570 if x2<>x3 then print "(memory block)"
  580 x1=53272:x2=v+c/16:x3=20:gosub 1900
  590 if x2<>x3 then print "(vid.mat & char.base)"
  600 if c4=1 then gosub 1800
  610 x1=53265:x2=b5+27:x3=27:gosub 1900
  620 if x2<>x3 then print "(hi res)"
  630 input "will you want sprites";y$
  640 if y$="n" goto 730
  650 if y$<>"y" goto 630
  660 print "sprites may be placed at:"
  670 f=-1
  680 for j=0 to 255
  690 if s(j)=0 and f=-1 then gosub 1000
  700 if s(j)<>0 and f<>-1 then gosub 1100
  710 next j
  720 if f<>-1 then gosub 1100
  730 print:if b0=3 goto 840
  740 s1=0:s2=0
  750 if b0=0 then s1=32:s2=255
  760 if b0=2 then s1=0:s2=63
  770 if s1=s2 goto 810
  780 for j=s1 to s2
  790 if s(j)>1 goto 810
  800 next j:goto 830
  810 print "careful:"
  820 print "basic is usually in 2049 to 40959"
  830 end
  840 s$="sprites"
  850 for j=64 to 127 step 16
  860 if s(j)>0 then s$="** warning! **"+chr$(13)+"addresses"
  870 next j
  880 print s$;" from 53248 to 57343 are"
  890 print "tough to get at"
  900 end
 1000 p=j
 1010 f=0
 1020 return
 1100 print s0*b0+p*64;"to";s0*b0+j*64-1;"(sprites";p;"to";j-1;")"
 1110 f=-1
 1120 return
 1200 rem
 1210 if c9>0 then print "the character set may be at:":gosub 1400
 1220 print "video matrix (screen memory)...":gosub 1600
 1230 return
 1300 b5=b5+32
 1310 print "the hi-res screen may be at:":gosub 1400
 1320 print "video matrix (color memory)...":gosub 1600
 1330 return
 1400 n=0:for j=0 to 255 step s
 1410 if s(j)>0 or s(j+s-1)>0 goto 1430
 1420 print "(";j/s;")";b0*s0+j*64;"to";b0*s0+(j+s)*64-1:n=n+1:c=j/s
 1430 next j
 1440 if n<2 goto 1480
 1450 print "your choice (0 to";(j-s)/s;")";
 1460 input c0:if c0<0 or c0>c goto 1400
 1470 c=c0
 1480 c=c*s
 1490 for j=c to c+s-1:s(j)=3:next j
 1500 print
 1510 return
 1600 for j=0 to 255 step 16
 1610 if s(j)>0 or s(j+15)>0 goto 1630
 1620 print "(";j/16;")";b0*s0+j*64;"to";b0*s0+(j+16)*64-1:v=j/16
 1630 next j
 1640 print "your choice (0 to";v;")";
 1650 input c0:if c0<0 or c0>v goto 1640
 1660 v=c0
 1670 v=v*16
 1680 for j=v to v+15:s(j)=3:next j
 1690 print
 1700 return
 1800 x1=648:x2=b0*64+v/4:x3=4:gosub 1900
 1810 if x2<>x3 then print "(connect 'print')"
 1820 return
 1900 print left$(str$(x1)+"     ",6);" ";
 1910 print right$("  "+str$(x2),3);" ";
 1920 if x2<>x3 then print "   ";right$("  "+str$(x3),3);" ";
 1930 if x2=x3 then print "(normal value)
 1940 return
    7 print chr$(142)
    8 poke 59468,14
    9 rem for t=1 to 45 then enter sys16384 twice second time will kill the computer
   10 for t=1 to 53
   20 read a
   30 poke 16383+t,a
   40 next t
   50 data 162,0,169,128,93,0,128,157,0,128,232,224,0,208,243,238,6,64,238,9,64
   60 data 173,6,64,201,135,240,3,76,0,64,169,128,93,0,135,157,0,135,232,224,216
   70 data 208,243,169,128,141,6,64,141,9,64,96
   80 print"Aktivieren des Programms mit sys16384"
   10 print"{clr}{down}{down}{down}{down}{down}{down}";tab(10);"sea battle"
   20 print"{down}creative computing morristown new jersey"
   30 fora=1to1000:nexta:print"{clr}"
  265 clr
  270 dim a(10,10),d(9)
  280 print"what is your name ";:inputn$:print
  310 rem
  320 fori=1to10
  322 forj=1to10:a(i,j)=0:nextj
  328 nexti
  330 rem
  340 forgx=1to23:readg$:nextgx
  350 forx=3to6
  360 fory=3to5:reada(x,y):nexty
  390 nextx
  400 rem
  410 s1=5:s2=4
  420 a(s1,s2)=2
  430 rem
  440 s=int(rnd(1)*16)+14
  445 rem
  450 restore
  451 forgx=1to7:readg$:nextgx
  460 forx=1to(int(rnd(1)*4)+1)*2-1
  470 readd8,d9
  480 nextx
  490 forx=1tos
  500 x1=int(rnd(1)*9)+1
  510 x2=int(rnd(1)*9)+1
  520 ifa(x1,x2)<>0then500
  530 a(x1,x2)=3
  540 nextx
  550 print"you must destroy ";s;" enemy ships to win":printtab(10);"***";n$;"***
  560 rem
  570 s3=int(rnd(1)*10)+1:s4=int(rnd(1)*10)+1
  590 ifa(s3,s4)<>0then570
  600 a(s3,s4)=4
  610 rem
  620 forx=1toint(rnd(1)*8)+8
  630 x1=int(rnd(1)*10)+1:x2=int(rnd(1)*10)+1
  650 ifa(x1,x2)<>0then630
  660 a(x1,x2)=5
  670 nextx
  680 rem
  690 forx=1to4
  700 x1=int(rnd(1)*8)+2:x2=int(rnd(1)*8)+2
  720 ifa(x1,x2)<>0then700
  730 a(x1,x2)=6
  735 rem
  740 restore
  741 forgx=1to7:readg$:nextgx
  750 fory=1toint(rnd(1)*8)+1
  760 readm1,m2
  770 nexty
  780 nextx
  790 rem
  800 fori=1to9:d(i)=0:nexti
  810 c=30:p=6000:f=2500:t=10:m=3:d=100:d2=2
  880 forpause=0to700:next pause
  882 gosub1680
  884 print"the commands are:":print
  885 print"#0:navigation       #5:stat/dam report
  886 print"#1:sonar            #6:headquarters
  887 print"#2:torpedo control  #7:sabotage
  888 print"#3:polaris missile  #8:power conversion
  889 print"#4:manuevering      #9:surrender
  895 print:print"what are your orders ";n$;
  900 inputo
  910 on int(o+1) goto 1040,2001,2220,2680,3250,3410,3700,3880,4400,4660
 1040 rem
 1050 ifd(1)>=0then1080
 1060 print"engines are under repair ";n$;".
 1070 goto895
 1080 ifc>8then1110
 1090 print"not enough crew to man engines ";n$;".
 1100 goto895
 1110 d1=1-((.23+rnd(1)/10)*(-(b<=50)))
 1120 gosub6080
 1130 print"power avail=";p;". power to use";:inputp1
 1150 ifp1<0orp1>pthen1130
 1160 ifp1<=1000then1210
 1170 ifrnd(1)<.43then1210
 1180 print"atomic pile goes supercrit ";n$;
 1190 print" !!! headquarters will warn all subs"
 1195 print"to clear from radioactive area!!!
 1200 goto6180
 1210 x=s1:y=s2:q1=1
 1240 forx2=1toint(int(p1/100+.5)*d1+.5)
 1250 ifx+x1>0andx+x1<11andy+y1>0andy+y1<11then1280
 1260 print"you can't leave the area ";n$;"!!
 1270 goto1340
 1280 ona(x+x1,y+y1)+1goto1290,1330,1630,1390,1440,1470,1490
 1290 x=x+x1:y=y+y1:p=p-100
 1320 goto1520
 1330 print"you almost ran aground ";n$;"!!
 1340 a(x,y)=2:a(s1,s2)=0
 1360 s1=x:s2=y
 1380 goto4690
 1390 ifd>50then1290
 1400 print"you rammed a ship!!! you're both sunk!!
 1410 s=s-1
 1420 ifs=0then6260
 1430 goto6180
 1440 ifd>50then1290
 1450 print"you rammed your headquarters!!!!!
 1455 print:print"you're both sssuunnkkk!!!
 1460 goto6180
 1470 print"you've been blown up by a mine!!!
 1480 goto6180
 1490 ifrnd(1)<.21then1630
 1510 goto6180
 1520 rem
 1530 forx3=x-2 to x+2
 1540 fory3=y-2 to y+2
 1550 ifx3<1orx3>10ory3<1ory3>10then1610
 1560 ifa(x,y)<>6then1610
 1570 ifrnd(1)<.25then1500
 1580 ifq1=0then1610
 1590 print"you just had a narrow escape with a"
 1595 print:print"sea monster";n$;"!!
 1600 q1=0
 1610 nexty3
 1620 nextx3
 1630 nextx2
 1640 print"navigation complete. power left=";p;".
 1650 ifp>0then1340
 1660 print"atomic pile has gone dead!!!!!
 1665 print:print"sub sinks, crew suffocates
 1670 goto6180
 1680 rem
 1690 ifd(2)>=0then1720
 1700 print"sonar is under repair ";n$;".
 1705 print"unable to give you a map"
 1710 return
 1720 ifc>5then1790
 1730 print"not enough crew to work sonar ";n$;".
 1740 return
 1790 rem
 1800 print"{clr}"
 1810 forx=1to10
 1820 fory=1to10
 1830 data "   ","***","(x)","\s/","!h!"," $ ","-#-"
 1840 ifa(x,y)<>0then1880
 1850 if x<>1andx<>10andy<>1andy<>10then1880
 1860 print" . ";
 1870 goto1950
 1880 restore
 1890 forx1=1toa(x,y)+1
 1900 reada$
 1910 nextx1
 1920 ifd<50andrnd(1)<.23anda(x,y)<>1anda(x,y)<>2then1860
 1930 if rnd(1)<.15anda(x,y)>2then1860
 1940 printa$;
 1950 nexty
 1960 print
 1970 nextx
 1980 p=p-50:ifp>0thenreturn
 1995 goto1660
 2001 ifd(2)>0then2004
 2002 print"directional sonar is under repair."
 2003 goto895
 2004 ifc>5then2020
 2005 print"not enough crew to work sonar."
 2006 goto895
 2010 rem
 2020 for i=1to5:b(i)=0:nexti
 2030 print"direction-# of ships-distances
 2040 restore
 2041 forgx=1to7:readg$:nextgx
 2050 forx=1to8:readx1,y1
 2070 x3=0
 2080 forx4=1to10
 2090 ifs1+x1*x4<1ors1+x1*x4>10ors2+y1*x4<1ors2+y1*x4>10then2140
 2100 ifa(s1+x1*x4,s2+y1*x4)<>3then2130
 2110 x3=x3+1:b(x3)=x4
 2130 nextx4
 2140 ifx3=0then2200
 2150 print"  ";x;"        ";x3;"       ";
 2160 forx4=1tox3:printb(x4);:nextx4
 2190 print
 2200 nextx
 2210 goto1980
 2220 rem
 2230 ifd(3)>=0then2260
 2240 print"torpedo tubes under repair!
 2250 goto895
 2260 ifc>=10then2290
 2270 print"not enough crew to fire torpedoes.
 2280 goto895
 2290 iftthen2320
 2300 print"no torpedoes left.
 2310 goto895
 2320 ifd<2000then2360
 2330 ifrnd(1)>.5then2360
 2340 print"pressure implodes sub upon firing.
 2345 print"you're ccrruusshheedd!!
 2350 goto6180
 2360 gosub6080
 2370 x=s1:y=s2
 2390 forx2=1toint(7+5*(-(d>50))-rnd(1)*4+.5)
 2400 ifx+x1>0andx+x1<11andy+y1>0andy+y1<11then2460
 2410 print"torpedoes out of sonar range..ineffectual.
 2420 t=t-1:p=p-150
 2440 ifp>0then4690
 2450 goto1660
 2460 ona(x+x1,y+y1)+1goto2470,2510,2650,2540,2580,2610,2630
 2470 x=x+x1:y=y+y1
 2490 print"..!..";
 2500 goto2650
 2510 print"you took out some island!!
 2520 a(x+x1,y+y1)=0
 2530 goto2420
 2540 print"ouch!! you got one!!
 2550 s=s-1:ifs<>0then2520
 2570 goto6260
 2580 print"you blew up your headquarters!!
 2590 s3=0:s4=0:d2=0
 2600 goto2520
 2610 print"blam!! shot wasted on mine!!":goto2520
 2630 print"a sea monster had a torp for lunch!!":goto2420
 2650 nextx2
 2660 print"dud.":goto2420
 2680 rem
 2690 ifd(4)>=0then2720
 2700 print"missile silos are under repair.":goto895
 2720 ifc>23then2750
 2730 print"not enough crew to lunch a missile.":goto895
 2750 ifm<>0then2780
 2760 print"no missiles left.":goto895
 2780 ifd>50andd<2000then2850
 2790 print"recommend that you do not fire at this
 2795 print"depth...proceed";:inputa$
 2810 ifleft$(a$,1)="n"then880
 2820 ifrnd(1)<.5then2850
 2830 print"missiles explode upon firing!!!
 2835 print:print"you're ddeeaaddddd!!
 2840 goto6180
 2850 gosub6080
 2860 print"fuel (lbs.)";:inputf1
 2880 iff1>0andf1<=fthen2910
 2890 print"you have";f;"lbs. left.
 2900 goto2860
 2910 f2=int(f1/75+.5)
 2920 ifs1+x1*f2>0ands1+x1*f2<11ands2+y1*f2>0ands2+y1*f2<11then2980
 2930 print"missile out of sonar tracking. lost."
 2940 m=m-1:f=f-f1:p=p-300
 2970 goto2440
 2980 d3=0:d4=0:d5=0:d6=0
 2990 forx=si+x1*f2-1tos1+x1*f2+1
 3000 fory=s2+y1*f2-1tos2+y1*f2+1
 3010 ifx<1orx>10ory<1ory>10then3140
 3020 d3=d3-(a(x,y)=3)
 3030 d4=d4-(a(x,y)=6)
 3040 d5=d5-(a(x,y)=5)
 3050 d6=d6-(a(x,y)=1)
 3060 ifa(x,y)<>4then3100
 3070 print"you've destroyed your headquarters!!
 3080 d3=0:s4=0:d2=0
 3090 goto3130
 3100 ifa(x,y)<>2then3130
 3110 print"you've just destroyed yourself!! dummy!
 3120 goto6180
 3130 a(x,y)=0
 3140 nexty
 3150 nextx
 3160 ifd6=0then3180
 3170 print"you blew up some island.
 3180 ifd5=0then3200
 3190 print"you destroyed";d5;"mines"
 3200 ifd4=0then3220
 3210 print"you got";d4;"sea monsters!! good work.
 3220 print"you destroyed";d3;"enemy ships!!
 3230 s=s-d3:ifs<=0then6260
 3240 goto2940
 3250 rem
 3260 ifd(5)>0then3290
 3270 print"ballast controls are being repaired.":goto895
 3290 ifc>12then3320
 3300 print"there are not enough men to work the
 3305 print:print"controls ";n$;".":goto895
 3320 print"new depth";:inputd1
 3340 ifd1>=0andd1<3000then3370
 3350 print"hull crushed by pressure!!
 3360 goto6180
 3370 p=p-int(abs((d-d1)/2+.5))
 3380 print"manuever complete. power loss=";int(abs((d-d1)/2+.5))
 3390 d=d1
 3400 goto4690
 3410 rem
 3420 ifd(6)>=0then3450
 3430 print"no reports are able to get through.":goto895
 3450 ifc>3then3480
 3460 print"no one left to give the report.":goto895
 3480 print"# of enemy ships.......";s
 3490 print"# of power units left..";p
 3500 print"# of torpedoes left....";t
 3510 print"# of missiles left.....";m
 3520 print"# of crewmen left......";c
 3530 print"lbs. of fuel left......";f
 3540 print
 3550 print"want damage report";
 3560 inputa$
 3570 ifleft$(a$,1)="n"then880
 3580 print"no  item             dam
 3590 print"EE  EEEE             EEE
 3595 print"(+=g , 0=nuetral , -=bad)
 3596 print
 3600 rem
 3620 rem restore
 3630 forx=1to9
 3640 u$(1)="engines":u$(2)="sonar  ":u$(3)="torpedoes":u$(4)="missiles"
 3645 u$(5)="manuever":u$(6)="status":u$(7)="headquar.":u$(8)="sabotage"
 3648 u$(9)="converter"
 3650 printx;" ";u$(x),d(x)
 3660 nextx
 3690 goto880
 3700 rem
 3710 ifd(7)>=0then3740
 3720 print"headquarters is damaged. unable to help!
 3730 goto880
 3740 ifd2<>0then3770
 3750 print"headquarters is deserted.
 3760 goto880
 3770 ifsqr((s1-s3)^2+(s2-s4)^2)<=2andd<51then3800
 3780 print"unable to comply with docking orders.
 3790 goto880
 3800 print"divers from headquarters bring out
 3805 print:print"supplies and men.
 3810 p=4000:t=8:m=2:f=1500:c=25:d2=d2-1
 3870 goto4690
 3880 rem
 3890 ifd(8)>=0then3920
 3900 print"hatches inaccessible. no sabotage possible.":goto895
 3920 ifc>10then3950
 3930 print"not enough crew to go on mission.":goto895
 3950 d3=0:d4=0
 3960 forx=s1-2tos1+2
 3970 fory=s2-2tos2+2
 3980 ifx<1orx>10ory<1ory>10then4010
 3990 d3=d3-(a(x,y)=3):d4=d4-(a(x,y)=6)
 4010 nexty
 4020 nextx
 4030 ifd3<>0then4060
 4040 print"no ships in range.":goto895
 4060 print"there are";d3;"ships in range.
 4070 print"how many men are going";:inputq1
 4090 ifc-q1>=10then4120
 4100 print"you must leave at least 10 men on board.":goto4070
 4120 d5=int(d3/q1+.5):d6=0
 4140 forx=s1-2tos1+2
 4150 fory=s2-2tos2+2
 4160 ifd3/q1>1-rnd(1)andrnd(1)+d3/q1<.9then4220
 4170 ifa(x,y)<>3then4220
 4180 d6=d6+1:a(x,y)=0:s=s-1:ifs=0then6260
 4220 nexty
 4230 nextx
 4240 printd6;"ships were destroyed.
 4250 d6=0:d7=0
 4260 forx=1toq1:d7=d7-(rnd(1)>.6):nextx
 4290 forx=1toq1-d7
 4300 d6=d6-(rnd(1)<.15)
 4310 nextx
 4320 ifd4=0then4360
 4330 print"a sea monster smells the men on the way
 4340 print"back. ";d7;"men were eaten!!
 4350 c=c-d7
 4360 printd6;"men were lost through accidents.
 4370 c=c-d6
 4380 p=p-int(10*q1+rnd(1)*10)
 4390 goto4690
 4400 rem
 4410 if d(9)>=0then4440
 4420 print"power converter is damaged.":goto895
 4440 ifc>5then4470
 4450 print"not enough men to work the converter.":goto895
 4470 print"option? (1=fuel to power, 2=reverse)";:inputo
 4490 on o goto 4510,4580
 4500 goto4470
 4510 rem
 4520 print"fuel avail=";f;". convert";:inputc1
 4535 let fuel=f
 4540 ifc1>fuelor c1<0then4520
 4550 f=f-c1:p=p+int(c1/3)
 4570 goto4640
 4580 rem
 4590 print"power avail=";p-1;". convert";:inputc1
 4610 ifc1>p-1orc1<0then4590
 4620 p=p-c1:f=f+int(c1+3)
 4640 print"conversion complete.
 4642 print"power.....=";p;". fuel...=";f
 4650 goto4690
 4660 rem
 4670 print"coward!! you're not very patriotic!!
 4680 goto6180
 4690 rem
 4700 q=0
 4710 forx=s1-4tos1+4
 4720 fory=s2-4tos2+4
 4730 ifx<1orx>10ory<1ory>10then4760
 4740 ifa(x,y)<>3then4760
 4750 q=q+(rnd(0)/sqr((s1-x)^2+(s2-y)^2))/4
 4760 nexty
 4770 nextx
 4780 ifqthen4810
 4790 print"no ships in range to depth charge you!
 4800 goto5210
 4810 print"depth charges off ";
 4820 ifrnd(1)>.5then4850
 4830 print"port side ";n$;"!!!
 4840 goto4860
 4850 print"starboard side ";n$;"!!!
 4860 ifq>.13orrnd(1)>.92then4890
 4870 print"no real damage sustained.
 4880 goto5210
 4890 ifq>.36orrnd(1)>.96then4940
 4900 print"light, superficial damage.
 4910 p=p-50
 4920 d(int(rnd(1)*9)+1)=-rnd(1)*2
 4930 goto5210
 4940 ifq>.6or rnd(1)>.975then5020
 4950 print"moderate damage. repairs needed.
 4960 p=p-75+int(rnd(1)*30)
 4970 fory=1to2
 4980 x=int(rnd(1)*9)+1
 4990 d(x)=d(x)-rnd(1)*8
 5000 nexty
 5010 goto5210
 5020 ifq>.9orrnd(1)>.983then5100
 5030 print"heavy damage!! repairs immediate!!!
 5040 p=p-(200+int(rnd(1)*76))
 5050 forx=1to4+int(rnd(1)*2)
 5060 y=int(rnd(1)*9)+1
 5070 d(y)=d(y)-rnd(1)*11
 5080 nextx
 5090 goto5210
 5100 print"damage critical!!! we need help!!
 5132 rem
 5170 print"help arrives in time!!
 5180 goto5040
 5210 rem
 5220 ifd(1)>=0ord(3)>=0ord(4)>=0ord(5)>=0ord(7)>=0then5260
 5230 goto2420
 5240 print"damage too much!!! you're sunk!!
 5250 goto6180
 5260 rem
 5270 print:print:print"--**result of last enemy manuever**--
 5280 forx=1to10
 5290 fory=1to10
 5300 ifa(x,y)<>3then5690
 5310 rem
 5320 w=d8:v=d9
 5340 ifx+w>0andx+w<11andy+v>0andy+v<11then5420
 5350 forx0=9to1step-1
 5360 ifa(x-w*x0,y-v*x0)<>0then5400
 5370 a(x-w*x0,y-v*x0)=3:a(x,y)=0
 5390 goto6000
 5400 nextx0
 5410 stop
 5420 ona(x+w,y+v)+1goto5430,5460,5530,5460,5560,5600,5650
 5430 a(x+w,y+v)=3
 5440 a(x,y)=0
 5450 goto6000
 5460 rem
 5470 restore
 5471 forgx=1to7:readg$:nextgx
 5480 forx0=1toint(rnd(1)*8)+1
 5490 readw,v
 5500 nextx0
 5510 ifx+w<1orx+w>10ory+v<1ory+v>10then5470
 5520 goto5420
 5530 ifd>50then5460
 5540 print"**you've been rammed by a ship**
 5550 goto6180
 5560 ifrnd(1)<.15then5460
 5570 print"your headquarters was rammed!!
 5580 s3=0:s4=0:d2=0:a(x+w,y+v)=0
 5590 goto5620
 5600 ifrnd(1)<.7then5460
 5610 print"**ship destroyed by a mine**!!
 5620 s=s-1
 5630 ifs<>0then5440
 5640 goto6260
 5650 ifrnd(1)<.8then5460
 5660 print"**ship eaten by sea monster*!!":s=s-1
 5680 goto5630
 5690 rem
 5700 ifa(x,y)<>6then6000
 5710 ifx+m1<1orx+m1>10ory+m2<1ory+m2>10then5760
 5720 ona(x+m1,y+m2)+1goto5730,5760,5830,5850,5900,5730,5930
 5730 a(x+m1,y+m2)=6:a(x,y)=0
 5750 goto6000
 5760 rem
 5770 restore
 5771 forgx=1to7:readg$:nextgx
 5780 forx0=1toint(rnd(1)*8)+1
 5790 readm1,m2
 5800 nextx0
 5810 ifx+m1<1orx+m1>10ory+m2<1ory+m2>10then5760
 5820 goto5720
 5830 print"you've been eaten by a sea monster!!
 5840 goto6180
 5850 ifrnd(1)>.2then5760
 5860 print"**ship eaten by sea monster*!!":s=s-1:ifs>0then5730
 5890 goto6260
 5900 print"**a sea monster ate you're headquarters!
 5910 s3=0:s4=0:d2=0
 5920 goto5730
 5930 ifrnd(1)<.75then5760
 5940 print"***a sea monster fight***
 5950 ifrnd(1)<.8then5980
 5960 print"and one dies!!
 5970 goto5730
 5980 print"it's a tie!!
 5990 goto5760
 6000 nexty
 6010 nextx
 6020 rem
 6030 fory=1to9
 6040 x=int(rnd(1)*9)+1
 6050 d(x)=d(x)+(rnd(1)*(2+rnd(1)*2))*(1+(-(d<51)or-(d>2000)))*(-(d(x)<3))
 6060 nexty
 6070 goto880
 6080 rem
 6090 data -1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,-1,-1
 6100 print"course (1-8)";:inputc1
 6120 ifc1<1orc1>8then6100
 6130 restore
 6131 forgx=1to7:readg$:nextgx
 6140 forx9=1toint(c1+.5)
 6150 readx1,y1
 6160 nextx9
 6170 return
 6180 rem
 6190 print"there are still";s;"enemy ships left!!
 6200 print"you will be demoted to rand of deck
 6205 print"scrubber.
 6210 clr:fora=1to5000:next
 6220 print:print:print"{clr}";"{down}{down}{down}{down}";tab(10);"new game
 6230 fora=1to3000:next:print"{clr}"
 6240 goto265
 6250 stop
 6260 print"good work!! you got them all!!
 6270 print"promotion and commendations!!
 6280 goto6210
 6290 rem
 6300 data 1,1,1,1,1,1,1,0,1,1,0,1
 6320 end
    1 print"{clr}"
    2 printtab(15);"seabattle"
    3 printtab(10);"creative computing"
    4 printtab(8);"morristown, new jersey"
    5 print"{down}{down}{down}"
    6 dim a(20,20),d(9)
    7 n$="popeye"
    8 print
    9 rem
   10 for i=1 to 20
   11 for j=1 to 20
   12 a(i,j)=0
   13 next j
   14 next i
   15 rem
   16 restore
   17 forzz=1to32:readzz$:nextzz
   18 for x=7 to 13
   19 for y=7 to 12
   20 read a(x,y)
   21 next y
   22 next x
   23 rem
   24 s1=10: s2=10
   25 a(s1,s2)=2
   26 rem
   27 s=int(rnd(1)*16)+15
   28 restore
   29 forzz=1to16:readzz$:nextzz
   30 for x=1 to(int(rnd(1)*4)+1)*2-1
   31 read d8,d9
   32 next x
   33 for x=1 to s
   34 x1=int(rnd(1)*20)+1
   35 x2=int(rnd(1)*20)+1
   36 if a(x1,x2)<>0 then 34
   37 a(x1,x2)=3
   38 next x
   39 print"you must destroy";s;"enemy ships to win "
   40 printn$"."
   41 rem
   42 s3=int(rnd(1)*20)+1
   43 s4=int(rnd(1)*20)+1
   44 if a(s3,s4)<>0 then 42
   45 a(s3,s4)=4
   46 rem
   47 for x=1 to int(rnd(1)*8)+8
   48 x1=int(rnd(1)*20)+1
   49 x2=int(rnd(1)*20)+1
   50 if a(x1,x2)<>0 then 48
   51 a(x1,x2)=5
   52 next x
   53 rem
   54 for x=1 to 4
   55 x1=int(rnd(1)*18)+2
   56 x2=int(rnd(1)*18)+2
   57 if a(x1,x2)<>0 then 55
   58 a(x1,x2)=6
   59 restore
   60 forzz=1to16:readzz$:nextzz
   61 for y=1 to int(rnd(1)*8)+1
   62 read m1,m2
   63 next y
   64 next x
   65 rem
   66 for i=1 to 9
   67 d(i)=0
   68 next i
   69 c=30
   70 p=6000
   71 f=2500
   72 t=10
   73 m=3
   74 d=100
   75 d2=2
   76 rem
   77 print"{down}{down}{down}what are your orders ";n$;"?"
   78 geto$:ifo$=""then78
   79 ifo$="?"then84
   80 ifo$="-"theno=10:goto83
   81 ifval(o$)<1orval(o$)>9then78
   82 o=val(o$)
   83 on int(o) goto 96,160,224,270,327,343,371,389,441,467
   84 print"the commands are:"
   85 print"  #1:navigation"
   86 print"  #2:sonar"
   87 print"  #3:torpedo control"
   88 print"  #4:polaris missile control"
   89 print"  #5:manuevering"
   90 print"  #6:status/damage report"
   91 print"  #7:headquarters"
   92 print"  #8:sabotage"
   93 print"  #9:power conversion"
   94 print"  #-:surrender"
   95 goto 76
   96 rem
   97 if d(1) >=0 then 100
   98 print"engines are under repair ";n$;"."
   99 goto 76
  100 if c>8 then 103
  101 print"not enough crew to man the engines ";n$;"."
  102 goto 76
  103 d1=1-((.23+rnd(1)/10)*(-(d <=50)))
  104 gosub 612
  105 print"power available=";p;". power to use"
  106 input p1
  107 if p1<0 or p1>p then 105
  108 if p1 <= 1000 then 113
  109 if rnd(1)<.43 then 113
  110 print"atomic pile goes supercritical ";n$;"!!! headquarters"
  111 print"will warn all subs to stay from radioactive area!!!"
  112 goto 622
  113 x=s1
  114 y=s2
  115 q1=1
  116 for x2=1 to int(int(p1/100+.5)*d1+.5)
  117 if x+x1>0 and x+x1<21 and y+y1>0 and y+y1<21 then 120
  118 print"you can't leave the area ";n$;"!!"
  119 goto 126
  120 on a(x+x1,y+y1)+1 goto 121,125,155,131,136,139,141
  121 x=x+x1
  122 y=y+y1
  123 p=p-100
  124 goto 144
  125 print"you almost ran aground ";n$;"!!"
  126 a(x,y)=2
  127 a(s1,s2)=0
  128 s1=x
  129 s2=y
  130 goto 470
  131 if d>50 then 121
  132 print"you rammed a ship!!! you're both sunk ";n$;"!!"
  133 s=s-1
  134 if s=0 then 630
  135 goto 622
  136 if d>50 then 121
  137 print"you rammed your headquarters!! you're sunk!!"
  138 goto 622
  139 print"you've been blown up by a mine ";n$;"!!"
  140 goto 622
  141 if rnd(1)<.21 then 155
  142 print"you were eaten by a sea monster ";n$;"!!"
  143 goto 622
  144 rem
  145 for x3=x-2 to x+2
  146 for y3=y-2 to y+2
  147 if x3<1 or x3>20 or y3<1 or y3>20 then 153
  148 if a(x,y)<>6 then 153
  149 if rnd(1)<.25 then 142
  150 if q1=0 then 153
  151 print"you just had a narrow escape with a sea monster ";n$;"!!"
  152 q1=0
  153 next y3
  154 next x3
  155 next x2
  156 print"navigation complete. power left=";p;"."
  157 if p>0  then 126
  158 print" atomic pile has gone dead!!! sub sinks, crew suffocates"
  159 goto 622
  160 rem
  161 if d(2) >=0 then 164
  162 print"sonar is under repair ";n$;"."
  163 goto 76
  164 if c>5 then 167
  165 print"not enough crew to work sonar ";n$;"."
  166 goto 76
  167 print"option #";
  168 input o
  169 on int(o+1) goto 171,201
  170 goto 167
  171 print"{clr}"
  172 printtab(22)"symbols":printtab(22)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  173 print"{down}"tab(22)"{CBM-+} = island"
  174 print"{down}"tab(22)"{rvon}Z{rvof} = your sub"
  175 print"{down}"tab(22)"{rvon}>{rvof} = enemy ship"
  176 print"{down}"tab(22)"{CBM-B} = your h.q."
  177 print"{down}"tab(22)"{rvon}.{rvof} = undersea mine"
  178 print"{down}"tab(22)"{rvon}X{rvof} = sea monster"
  179 print"{down}"tab(22)": = unknown"
  180 print"{home}"
  181 for x=1 to 20
  182 for y=1 to 20
  183 data "{rvon}+{rvof}","{CBM-+}","{rvon}Z{rvof}","{rvon}>{rvof}","{rvon}{CBM-B}{rvof}","{rvon}.{rvof}","{rvon}X{rvof}"
  184 if a(x,y)<>0 then 188
  185 if x<>1 and x<>20 and y<>1 and y<>20 then 188
  186 print":";
  187 goto 195
  188 restore
  189 for x1=1 to a(x,y)+1
  190 read a$
  191 next x1
  192 if d<50 and rnd(1)<.23 and a(x,y)<>1 and a(x,y)<>2 then 186
  193 if rnd(1)<.15 and a(x,y)>2 then 186
  194 printa$;
  195 next y
  196 print
  197 next x
  198 p=p-50
  199 if p>0 then 76
  200 goto 158
  201 rem
  202 for i=1 to 5
  203 b(i)=0
  204 next i
  205 print"direction   #of ships    distances"
  206 restore:forzz=1to16:readzz$:nextzz
  207 for x=1 to 8
  208 read x1,y1
  209 x3=0
  210 for x4=1 to 20
  211 if s1+x1*x4<1 or s1+x1*x4>20 or s2+y1*x4<1 or s2+y1*x4>20 then 216
  212 if a(s1+x1*x4,s2+y1*x4)<>3 then 215
  213 x3=x3+1
  214 b(x3)=x4
  215 next x4
  216 if x3=0 then 222
  217 print"   ";x tab(13)x3tab(30);
  218 for x4=1 to x3
  219 printb(x4);
  220 next x4
  221 print
  222 next x
  223 goto 198
  224 rem
  225 if d(3)>=0 then 228
  226 print"torpedo tubes are under repair ";n$;"."
  227 goto 76
  228 if c >=10 then 231
  229 print"not enough crew to fire torpedo ";n$;"."
  230 goto 76
  231 if t then 234
  232 print"no torpedos left ";n$;"."
  233 goto 76
  234 if d<2000 then 238
  235 if rnd(1)>.5 then 238
  236 print" pressure implodes sub upon firing... you're crushed!!"
  237 goto 622
  238 gosub 612
  239 x=s1
  240 y=s2
  241 forx2=1toint(7+5*(-(d>50))-rnd(1)*4+.5)
  242 if x+x1>0 and x+x1<21 and y+y1>0and y+y1<21 then 248
  243 print"torpedo out of sonar range....ineffectual ";n$;"."
  244 t=t-1
  245 p=p-150
  246 if p>0 then 470
  247 goto 158
  248 on a(x+x1,y+y1)+1 goto 249,253,267,256,260,263,265
  249 x=x+x1
  250 y=y+y1
  251 print"..!..";
  252 goto 267
  253 print"you took out some island ";n$;"."
  254 a(x+x1,y+y1)=0
  255 goto 244
  256 print"ouch!!! you got one ";n$;"!"
  257 s=s-1
  258 if s<>0 then 254
  259 goto 630
  260 print"you blew up your headquarters ";n$;"!!!"
  261 s3=0: s4=0: d2=0
  262 goto 254
  263 print"blan!! shot wasted on a mine ";n$;"!!!"
  264 goto 254
  265 print" a sea monster had a torpedo for lunch ";n$;"!!"
  266 goto 244
  267 next x2
  268 print"dud."
  269 goto 244
  270 rem
  271 if d(4) >= 0 then 274
  272 print"missile silos are under repair ";n$;"."
  273 goto  76
  274 if c>23 then 277
  275 print"not enough crew to launch a missile ";n$;"."
  276 goto 76
  277 if m<>0 then 280
  278 print"no missiles left ";n$;"."
  279 goto 76
  280 if d>50 and d<2000 then 287
  281 print"recommend that you do not fire at this...proceed";
  282 input a$
  283 if left$(a$,1)="n" then 76
  284 if rnd(1)<.5 then 287
  285 print"missile explodes upon firing ";n$;"!! you're dead!!"
  286 goto 622
  287 gosub 612
  288 print"fuel (lbs.)";
  289 input f1
  290 if f1>0 and f1 <=f then 293
  291 print"you have";f;"lbs. left ";n$;"."
  292 goto 288
  293 f2=int(f1/75+.5)
  294 if s1+x1*f2>0 and s1+x1*f2<21 and s2+y1*f2>0 and s2+y1*f2<21 then 300
  295 print"missile out of sonar tracking ";n$;"."
  296 m=m-1
  297 f=f-f1
  298 p=p-300
  299 goto 246
  300 d3=0: d4=0: d5=0: d6=0
  301 for x=s1+x1*f2-1 to s1+x1*f2+1
  302 for y=s2+y1*f2-1 to s2+y1*f2+1
  303 if x<1 or x>20 or y<1 or y>20 then316
  304 d3=d3-(a(x,y)=3)
  305 d4=d4-(a(x,y)=6)
  306 d5=d5-(a(x,y)=5)
  307 d6=d6-(a(x,y)=1)
  308 if a(x,y)<>4 then 312
  309 print"you've destroyed your headquarters ";n$;"!!!"
  310 d3=0: s4=0: d2=0
  311 goto 315
  312 if a(x,y)<> 2 then 315
  313 print"you just destroyed yourself ";n$;!!!   dummy!!!"
  314 goto 622
  315 a(x,y)=0
  316 next y
  317 next x
  318 if d6=0 then 320
  319 print"you blew out some island ";n$;"."
  320 if d5=0 then 322
  321 print"you destoyed";d5;"mines ";n$;"."
  322 if d4=0 then 324
  323 print"you got ";d4;"sea monsters ";n$;"!!!   good work!!"
  324 print"you destroyed";d3;"enemy ships ";n$;"!!!"
  325 s=s-d3
  326 goto 296
  327 rem
  328 if d(5) >=0 then 331
  329 print"ballast controls are being repaired    ";n$;"."
  330 goto 76
  331 if c>12 then 334
  332 print"there are not enough crew to work the   controls ";n$;"."
  333 goto 76
  334 print"new depth";
  335 input d1
  336 if d1>=0 and d1<3000 then 339
  337 print"hull crushed by pressure ";n$;"!!"
  338 goto 622
  339 p=p-int(abs((d-d1)/2+.5))
  340 print"manuever complete; power loss=";int(abs((d-d1)/2+.5))
  341 d=d1
  342 goto 470
  343 rem
  344 if d(6) >= 0 then 347
  345 print"no reports are able to get through ";n$;"."
  346 goto 76
  347 if c>3 then 350
  348 print"no one left to give the report ";n$;"."
  349 goto 76
  350 print"# of enemy sheps left.......";s
  351 print"# of power units left.......";p
  352 print"# of torpedos left..........";t
  353 print"# of missiles left..........";m
  354 print"# of crewmen left...........";c
  355 print"lbs. of fuel left...........";f
  356 print
  357 print"what damage report";
  358 input a$
  359 if left$(a$,1)="n" then 369
  360 print"   item    damage(+good,0nuetral,-bad)"
  361 print"   ----    ------"
  362 data"engines","sonar","torpedos","missiles","manuevering"
  363 data "status","headquarters","sabotage","converter"
  364 restore:forzz=1to7:readzz$:nextzz
  365 for x=1 to 9
  366 read a$
  367 print a$tab(12)d(x)
  368 next x
  369 print"you are at location (";s1;",";s2;")."
  370 goto 76
  371 rem
  372 if d(7) >=0 then 375
  373 print"headquarters is damaged. unable to help ";n$;"."
  374 goto 76
  375 if d2<>0 then 378
  376 print"headquarters is deserted ";n$;"."
  377 goto 76
  378 if sqr((s1-s3)^2+(s2-s4)^2) <= 2 and d<51 then 381
  379 print"unable to comply with docking orders ";n$;"."
  380 goto 76
  381 print"divers fron headquarters bring out supplies and men."
  382 p=4000
  383 t=8
  384 m=2
  385 f=1500
  386 c=25
  387 d2=d2-1
  388 goto 470
  389 rem
  390 if d(8)>=0 then 393
  391 print"hatches inaccessible ";n$;". no sabotages possible."
  392 goto 76
  393 if c>10 then 396
  394 print"not enough crew to go on a mission     ";n$;"."
  395 goto 76
  396 d3=0: d4=0
  397 for x=s1-2 to s1+2
  398 for y=s2-2 to s2+2
  399 if x<1 or x>20 or y<1 or y>20 then 402
  400 d3=d3-(a(x,y)=3)
  401 d4=d4-(a(x,y)=6)
  402 next y
  403 next x
  404 if d3<>0 then 407
  405 print"no ships in range ";n$;"."
  406 goto 76
  407 print"there are";d3;"ships in range ";n$;"."
  408 print"how many men are going ";n$;
  409 input q1
  410 if c-q1 >= 10 then 413
  411 print"you must leave at least 10 men on board ";n$;"."
  412 goto 408
  413 d5=int(d3/q1+.5)
  414 d6=0
  415 for x=s1-2 to s1+2
  416 for y=s2-2 to s2+2
  417 if d3/q1>1-rnd(1) and rnd(1)+d3/q1<.9 then 423
  418 if a(x,y)<>3 then 423
  419 d6=d6+1
  420 a(x,y)=0
  421 s=s-1
  422 if s=0 then 630
  423 next y
  424 next x
  425 printd6;"ships were destroyed ";n$;"."
  426 d6=0: d7=0
  427 for x=1 to q1
  428 d7=d7-(rnd(1)>.6)
  429 next x
  430 for x=1 to q1-d7
  431 d6=d6-(rnd(1)<.15)
  432 next x
  433 if d4=0 then 437
  434 print"a sea monster smells the men on the way back!!!"
  435 printd7"men were eaten ";n$;"!!"
  436 c=c-d7
  437 printd6"men were lost through accidents        ";n$;"."
  438 c=c-d6
  439 p=p-int(10*q1+rnd(1)*10)
  440 goto 470
  441 rem
  442 if d(9) >=0 then 445
  443 print"power converter is damaged ";n$;"."
  444 goto 76
  445 if c>5 then 448
  446 print"not enough men to work the converter ";n$;"."
  447 goto 76
  448 print"option? (1=fuel to power, 2=power to fuel)";
  449 input o
  450 on o goto 452,459
  451 goto 448
  452 rem
  453 print"fuel available=";f;". convert";
  454 input c1
  455 if c1>f or c1<0 then 453
  456 f=f-c1
  457 p=p+int(c1/3)
  458 goto 465
  459 rem
  460 print"power available=";p-1;". convert";
  461 input c1
  462 if c1>p-1or c1<0 then 460
  463 p=p-c1
  464 f=f+int(c1*3)
  465 print"conversion complete. power=";p;".fuel=;f;"."
  466 goto 470
  467 rem
  468 print"cowward!! you're not very patriotic ";n$;"!!"
  469 goto 622
  470 rem
  471 q=0
  472 for x=s1-4 to s1+4
  473 for y=s2-4 to s2+4
  474 if x<1 or x>20 or y<1 or y>20 then 477
  475 if a(x,y)<>3 then 477
  476 q=q+(rnd(1)/sqr((s1-x)^2+(s2-y)^2))
  477 next y
  478 next x
  479 if q then 482
  480 print"no ships in range to depth charge you ";n$;"!!"
  481 goto 525
  482 print"depth charges off";
  483 if rnd(1)>.5 then 486
  484 print"port side ";n$;"!!!"
  485 goto 487
  486 print"starboard side ";n$;"!!!"
  487 if q>.13 or rnd(1)>.92 then 490
  488 print"no real damage sustained ";n$;"."
  489 goto 525
  490 if q>.36 or rnd(1)>.96 then495
  491 print"light,superficial damage ";n$;"."
  492 p=p-50
  493 d(int(rnd(1)*9)+1)=-rnd(1)*2
  494 goto 525
  495 if q>.6 or rnd(1)>.975 then 503
  496 print"moderate damage. repairs needed."
  497 p=p-75+int(rnd(1)*30)
  498 for y=1 to 2
  499 x=int(rnd(1)*9)+1
  500 d(x)=d(x)-rnd(1)*8
  501 next y
  502 goto 525
  503 if q>.9or rnd(1)>.983 then 511
  504 print"heavy damage!! repairs immediate ";n$;"!!!"
  505 p=p-(200+int(rnd(1)*76))
  506 for x=1 to 4+int(rnd(1)*2)
  507 y=int(rnd(1)*9)+1
  508 d(y)=d(y)-rnd(1)*11
  509 next x
  510 goto 525
  511 print"damage critical!!!!  we need help!!!!"
  512 a$="vravukxcnvpcrhfdrsaxqurlqtrhxyacvfzyitlcbssyykdqipcaegogpcnotsio"
  513 x=int(rnd(1)*16)+1
  514 print"send 'help' in code. here is the        code:";mid$(a$,x,4);
  515 rem
  516 forzz=1to1000:nextzz
  517 print"{left}{left}{left}{left}xxxx"
  518 input "enter code";b$
  519 print
  520 if b$<>mid$(a$,x,4) then 523
  521 print"fast work ";n$;"!! help arrives in time to save you!!!"
  522 goto 505
  523 print"message garbled ";n$"...no help arrives!!!"
  524 goto 622
  525 rem
  526 if d(1) >=0 or d(3) >=0 or d(4) >= 0ord(5)=>0 or d(7) >=0 then 530
  527 if d(8) >=0 or d(9) >= 0 then 530
  528 print"damage too much ";n$;"!!!   you're sunk!!"
  529 goto 622
  530 rem
  531 print:print:print "--***result of last enemy manuever***--"
  532 for x=1 to 20
  533 for y=1 to 20
  534 if a(x,y)<>3 then 573
  535 rem
  536 w=d8
  537 v=d9
  538 if x+w>0 and x+w<21 and y+v>0 and y+v<21 then 546
  539 for x0=19 to 1 step -1
  540 if a(x-w*x0,y-v*x0)<> 0 then 544
  541 a(x-w*x0,y-v*x0)=3
  542 a(x,y)=0
  543 goto 604
  544 next x0
  545 stop
  546 on a(x+w,y+v)+1 goto 547,550,557,550,560,564,569
  547 a(x+w,y+v)=3
  548 a(x,y)=0
  549 goto 604
  550 rem
  551 restore:forzz=1to16:readzz$:nextzz
  552 for x0=1 to int(rnd(1)*8)+1
  553 read w,v
  554 next x0
  555 if x+w<1 or x+w>20 or y+v<1 or y+v>20 then 551
  556 goto 546
  557 if d>50 then 550
  558 print"***you've been rammed by a ship";,;n$;"!!!"
  559 goto 622
  560 if rnd(1)<.15 then 550
  561 print"***your headquarters was rammed ";n$;"!!!"
  562 s3=0: s4=0: d2=0: a(x+w,y+v)=0
  563 goto 566
  564 if rnd(1)<.7 then 550
  565 print"***ship destroyed by a mine ";n$;"!!!"
  566 s=s-1
  567 if s<>0 then 548
  568 goto 630
  569 if rnd(1)<.8 then 550
  570 print"***ship eaten by a monster ";n$;"!!"
  571 s=s-1
  572 goto 567
  573 rem
  574 if a(x,y)<>6 then 604
  575 if x+m1<1 or x+m1>20 or y+m2<1 or y+m2>20 then 580
  576 on a(x+m1,y+m2)+1goto577,580,587,589,594,577,597
  577 a(x+m1,y+m2)=6
  578 a(x,y)=0
  579 goto 604
  580 rem
  581 restore:forzz=1to16:readzz$:nextzz
  582 for x0=1 to int(rnd(1)*8)+1
  583 read m1,m2
  584 next x0
  585 if x+m1<1 or x+m1>20 or y+m2<1 or y+m2>20 then 580
  586 goto 576
  587 print"***you've been eaten by a sea monster ";n$;"!!"
  588 goto 622
  589 if rnd(1)>.2 then 580
  590 print"***ship eaten be a monster ";n$;"!!"
  591 s=s-1
  592 if s<>0 then 577
  593 goto 630
  594 print"***a sea monster ate your headquarters ";n$;"!!"
  595 s3=0: s4=0: d2=0
  596 goto 577
  597 if rnd(1)<.75 then 580
  598 print"***a sea monster fight ";n$;"!!!";
  599 if rnd(1)<.8 then 602
  600 print"and one dies!!"
  601 goto 577
  602 print"it's a tie!!"
  603 goto 580
  604 next y
  605 next x
  606 rem
  607 fory=1to9
  608 x=int(rnd(1)*9)+1
  609 d(x)=d(x)+(rnd(1)*(2+rnd(1)*2))*(1+(-(d<51) or -(d>2000)))*(-(d(x)<3))
  610 next y
  611 goto 76
  612 rem
  613 data-1,0,-1,1,0,1,1,1,1,0,1,-1,0,-1,-1,-1
  614 print"course (1-8)";
  615 input c1
  616 if c1<1 or c1>8 then 614
  617 restore:forzz=1to16:readzz$:nextzz
  618 for x9=1 to int(c1+.5)
  619 read x1,y1
  620 next x9
  621 return
  622 rem
  623 print"there are still";s;"enemy ships left ";n$;"."
  624 print"you will be demoted to rank of deck     scrubber!!!"
  625 print"what another game";
  626 input a$
  627 if left$(a$,1)<>"y" then 629
  628 clr:goto 6
  629 end
  630 print"good work ";n$;"!!! you got them all!!!"
  631 print"promotion and commendations will be give immediately!!!"
  632 n$="admiral"
  633 goto 625
  634 rem
  635 data 0,1,1,1,0,0,0,1,1,1,1,0,1,1,1,0,1,1,1,1,0,0,0,1
  636 data  1 ,1,0,0,1,1,0,1,1,0,1,0,0,0,1,0,0,0
  637 end
    1 print"{clr}"
    2 print"{down}{down}{down}{down}{down}{down}{down}";tab(15);"{rvon}seabattle"
    3 print:printtab(8);"rewritten march 10, 1980
    4 print:printtab(12);"by fred mulder
    5 printtab(5);"{down}{down}{down}{down}{down}{down}{down}{down}hit any key to continue listing
    6 print"{down}this is a 13k prog
    8 gosub 6000
    9 poke59468,14
   10 print"  tHIS IS{$a0}THE{$a0}GAME{$a0}OF{$a0}sea battle !!!
   20 print"{down}tHE{$a0}OBJECT{$a0}OF{$a0}THE{$a0}GAME{$a0}IS{$a0}TO{$a0}DESTROY{$a0}
   30 print"{down}ALL OF{$a0}THE{$a0}ENEMY{$a0}SHIPS{$a0}IN{$a0}YOUR{$a0}20 BY 20
   40 print"{down}AREA WITH{$a0}THE{$a0}VARIOUS{$a0}WEAPONS{$a0}IN{$a0}YOUR
   50 print"{down}SUBMARINE'S{$a0}ARSENAL.  yOU{$a0}MUST{$a0}DO{$a0}THIS,
   60 print"{down}HOWEVER, WITHOUT{$a0}LETTING THE{$a0}ENEMY{$a0}
   70 print"{down}DESTROY YOU{$a0}FIRST.
   80 print"{down}{down}tHERE{$a0}ARE{$a0}SEVERAL{$a0}INTERESTING{$a0}HAZARDS
   90 print"{down}IN{$a0}THIS{$a0}GAME.  tHEY{$a0}INCLUDE:
  100 print:printtab(3);".. dEPTH{$a0}CHARGES{$a0}FROM{$a0}ENEMY{$a0}SHIPS
  110 print:printtab(3);".. vERY{$a0}HUNGRY{$a0}sea monsters!!
  120 print:printtab(3);".. AND{$a0}HIDDEN{$a0}UNDERWATER{$a0}MINES.
  130 gosub 6000
  140 print"tHE{$a0}DEPTH{$a0}CHARGES{$a0}ARE{$a0}EFFECTIVE TO{$a0}ANY
  150 print"{down}DEPTH, BUT{$a0}THEY{$a0}LOSE{$a0}THEIR{$a0}EFFECTIVENESS
  160 print"OVER{$a0}DISTANCES, SO{$a0}THE{$a0}FARTHER{$a0}YOU{$a0}ARE
  170 print"{down}FROM{$a0}THE{$a0}SHIPS, THE{$a0}BETTER!
  180 print"{down}tHE{$a0}sEA{$a0}mONSTERS TAKE{$a0}A{$a0}MEANDERING
  190 print"{down}COURSE{$a0}THROUGH{$a0}YOUR{$a0}AREA{$a0}THAT{$a0}MAY{$a0}BRING
  200 print"{down}IT{$a0}CLOSE{$a0}ENOUGH{$a0}TO{$a0}ATTACK{$a0}YOU.  yOU
  210 print"{down}RARELY{$a0}SURVIVE.  tHEY{$a0}ALSO{$a0}LIKE{$a0}TO{$a0}EAT
  220 print"{down}YOUR{$a0}TORPEDOES, BUT{$a0}MISSILES{$a0}KILL{$a0}THEM.
  225 gosub6000
  230 print"{down}tHE{$a0}ENEMY{$a0}SHIPS{$a0}MOVE{$a0}ON{$a0}EVERY{$a0}TURN, IN
  240 print"{down}A{$a0}FIXED{$a0}COURSE, UNLESS{$a0}THEY{$a0}ENCOUNTER
  250 print"{down}OBSTACLES.  tHEY{$a0}WILL{$a0}GET{$a0}BLOWN{$a0}UP{$a0}BY
  260 print"{down}MINES, AND{$a0}GET{$a0}EATEN{$a0}BY{$a0}SEA{$a0}MONSTERS{$a0}TOO
  265 print:printtab(15);"{rvon}orders
  270 print"{down}{down}yOU{$a0}HAVE{$a0}10 ORDERS{$a0}THAT{$a0}YOU{$a0}MAY{$a0}GIVE.
  280 print"{down}THEY{$a0}ARE:
  290 gosub6000
  300 print"{down}#0: navigation - tHIS{$a0}COMMAND{$a0}ALLOWS
  310 print"{down}YOU{$a0}TO{$a0}MOVE{$a0}IN{$a0}A{$a0}PARTICULAR{$a0}DIRECTION
  320 print"{down}AND DISTANCE{$a0}ACROSS{$a0}YOUR{$a0}AREA.  tHE
  330 print"{down}DIRECTION{$a0}IS{$a0}DETERMINED{$a0}BY{$a0}THE{$a0}GRAPH
  340 print"{down}8  1  2  AT{$a0}LEFT.  tHERE ARE{$a0}8
  350 print"{down} \ ^ /   DIRECTIONS{$a0}TO{$a0}MOVE{$a0}IN, AND
  360 print"{down}7 -*- 3  THEY{$a0}ARE{$a0}THE{$a0}SAME{$a0}ANYTIME{$a0}YOU
  370 print"{down} / ! \   ARE{$a0}ASKED{$a0}FOR{$a0}A{$a0}COURSE.  FOR
  380 print"{down}6  5  4  EXAMPLE, TO{$a0}MOVE{$a0}nORTH, YOU
  390 print"{down}WOULD{$a0}USE{$a0}COURSE{$a0}#1.
  393 gosub6000
  395 printtab(10);" tHE{$a0}COMPUTER{$a0}WILl
  400 print"{down}ALSO{$a0}ASK{$a0}FOR{$a0}AN{$a0}AMOUNT{$a0}OF{$a0}POWER.  IT
  410 print"{down}TAKES{$a0}100 UNITS{$a0}TO{$a0}MOVE{$a0}YOUR{$a0}SUB{$a0}1
  420 print"{down}SPACE.  beware OF{$a0}OBSTACLES!!
  430 print"{down}iF{$a0}YOU{$a0}USE{$a0}MORE{$a0}THAN{$a0}1000 UNITS{$a0}IN{$a0}A{$a0}
  440 print"{down}TURN, THERE{$a0}IS{$a0}AN{$a0}OVERLOAD{$a0}DANGER,
  450 print"{down}SO{$a0}BE{$a0}careful!!
  460 gosub6000
  470 print"{down}#1: sonar - tHIS{$a0}COMMAND{$a0}GIVES{$a0}
  480 print"{down}DIRECTIONAL INFORMATION, SHOWING{$a0}THE
  490 print"{down}DIRECTIONS AND{$a0}DISTANCES{$a0}IN{$a0}WHICH
  500 print"{down}THERE ARE{$a0}ENEMY SHIPS.  tHIS{$a0}IS
  510 print"{down}USEFUL{$a0}FOR{$a0}SHOOTING{$a0}AT LONG{$a0}RANGES,
  520 print"{down}WHERE{$a0}IT{$a0}IS{$a0}DIFFICULT TO{$a0}TELL{$a0}IF{$a0}A
  530 print"{down}SHIP{$a0}IS{$a0}IN{$a0}A DIRECT{$a0}LINE WITH{$a0}YOU.
  690 gosub 6000
  700 print"#2: torpedo control - tHIS{$a0}COMMAND{$a0}
  710 print"{down}ALLOWS{$a0}YOU{$a0}TO{$a0}SHOOT{$a0}1 OF{$a0}YOUR{$a0}10
  720 print"{down}TORPEDOES.  tHE{$a0}COMPUTER{$a0}WILL{$a0}ONLY
  730 print"{down}REQUIRE{$a0}THE{$a0}DIRECTION{$a0}TO{$a0}SHOOT, USING
  740 print"{down}THE{$a0}INDICTOR{$a0}AS{$a0}SHOWN{$a0}PREVIOUSLY.
  760 print"{down}1 TORPEDO{$a0}GETS{$a0}ONE{$a0}SHIP.
  770 gosub6000
  780 print"#3: - polaris missile control - tHIS
  790 print"{down}COMMAND{$a0}ALLOWS YOU{$a0}TO{$a0}LAUNCH{$a0}ONE{$a0}OF{$a0}
  800 print"{down}YOUR{$a0}MISSILES AGAINST{$a0}THE{$a0}ENEMY.
  810 print"{down}tHE{$a0}COMPUTER{$a0}WILL{$a0}ASK{$a0}FOR{$a0}COURSE{$a0}AND
  820 print"{down}FUEL.  iT{$a0}TAKES{$a0}75LBS OF{$a0}FUEL{$a0}TO{$a0}BOOST
  830 print"{down}A{$a0}MISSILE{$a0}1 SPACE.  sINCE{$a0}THEY{$a0}ARE SO
  840 print"{down}MUCH{$a0}MORE{$a0}POWERFUL, THEY{$a0}WILL
  850 print"{down}COMPLETELY{$a0}DESTROY{$a0}THE{$a0}SPACE{$a0}THEY{$a0}LAND
  860 print"{down}ON, PLUS{$a0}ALL{$a0}OF{$a0}THE{$a0}IMMEDIATE{$a0}ADJACENT
  870 print"{down}ONES.  mISSILES{$a0}DESTROY{$a0}EVERYTHING!!!
  880 gosub 6000
  890 print"#4: manuevering - tHIS{$a0}COMMAND{$a0}ALLOWS
  900 print"{down}YOU{$a0}TO{$a0}CHANGE{$a0}THE{$a0}DEPTH{$a0}YOU'RE{$a0}AT.
  910 print"{down}yOU{$a0}MAY{$a0}WANT{$a0}TO{$a0}DO{$a0}THIS{$a0}IF{$a0}YOU{$a0}ARE
  920 print"{down}BADLY{$a0}DAMAGED, BECAUSE{$a0}REPAIRS{$a0}CAN{$a0}GO
  930 print"{down}ON{$a0}TWICE{$a0}AS{$a0}FAST{$a0}BELOW{$a0}2500 FT. AND
  940 print"{down}ABOVE{$a0}50 FT. THAN{$a0}IN BETWEEN.  yOU
  950 print"{down}START{$a0}THE{$a0}GAME{$a0}AT{$a0}100 FT.  yOU{$a0}USE{$a0}UP
  960 print"{down}ABOUT{$a0}1 POWER{$a0}UNIT{$a0}FOR{$a0}EVERY{$a0}2 FEET
  970 print"{down}YOU{$a0}CHANGE.
  980 gosub6000
  990 print"#5: status/damage report -tHIS{$a0}COMMAND{$a0}
 1000 print"{down}GIVES{$a0}YOU{$a0}THE{$a0}STATUS{$a0}OF{$a0}YOUR{$a0}SUB.  iT
 1010 print"{down}TELLS{$a0}YOU{$a0}HOW{$a0}MUCH{$a0}IS{$a0}LEFT{$a0}IN{$a0}YOUR
 1020 print"{down}ARSENAL, WHICH{$a0}ITEMS{$a0}ARE{$a0}DAMAGED, AND
 1030 print"{down}HOW{$a0}MUCH. (- = bad  + = good  0 = so/so)
 1040 gosub6000
 1050 print"#6: headquarters - tHIS{$a0}COMMAND{$a0}ALLOWS
 1060 print"{down}SCUBA{$a0}DIVERS{$a0}FROM{$a0}YOUR{$a0}HEADQUARTERS
 1070 print"{down}TO{$a0}REPLENISH{$a0}YOUR{$a0}SUPPLY{$a0}OF{$a0}WEAPONS
 1080 print"{down}AND{$a0}MEN.  yOU MUST{$a0}BE{$a0}AT{$a0}50 FEET{$a0}OR{$a0}
 1090 print"{down}LESS{$a0}AND{$a0}2 OR{$a0}LESS{$a0}SPACES{$a0}AWAY{$a0}TO{$a0}DO
 1100 print"{down}THIS{$a0}HOWEVER, AND{$a0}YOU{$a0}CAN{$a0}ONLY{$a0}DO
 1110 print"{down}IT{$a0}TWICE.
 1120 gosub6000
 1130 print"#7: sabotage (scuba) - tHIS COMMAND{$a0}
 1140 print"{down}ALLOWS{$a0}YOU{$a0}TO{$a0}SEND{$a0}MEN{$a0}OUT{$a0}ON{$a0}A{$a0}
 1150 print"{down}SABOTAGE{$a0}MISSION{$a0}AGAINST{$a0}ENEMY{$a0}SHIPS.
 1160 print"{down}yOU{$a0}MAY{$a0}ONLY{$a0}GO{$a0}AGAINST{$a0}SHIPS WITHIN
 1170 print"{down}3 SPACES{$a0}OF{$a0}YOU, AND{$a0}YOU{$a0}MUST{$a0}LEAVE
 1180 print"{down}AT{$a0}LEAST{$a0}10 MEN{$a0}ON{$a0}BOARD{$a0}THE{$a0}SUB AT{$a0}ALL
 1190 print"{down}TIMES TO{$a0}RUN{$a0}IT.
 1200 gosub6000
 1210 print"#8: power conversion - tHIS{$a0}COMMAND
 1220 print"{down}ALLOWS{$a0}YOU{$a0}TO{$a0}CHANGE{$a0}FUEL{$a0}TO{$a0}POWER,
 1230 print"{down}OR{$a0}VICA-VERSA.
 1240 print"{down}{down}#9: surrender - tHIS{$a0}COMMAND{$a0}IS{$a0}ONLY
 1250 print"{down}FOR{$a0}{rvon}cowards{rvof} AND{$a0}{rvon}traitors{rvof}!!
 1260 print"{down}yOU{$a0}START{$a0}THE{$a0}GAME{$a0}WITH{$a0}THE{$a0}FOLLOWING:
 1270 print"{down}   6000 UNITS{$a0}OF{$a0}POWER : 10 TORPEDOES
 1280 print"{down}   2500 LBS. OF{$a0}FUEL   :  3 MISSILES
 1290 print"{down}      1 HEADQUARTERS
 1300 print"{down}  AND{$a0}A{$a0}RANDOM{$a0}NO. OF{$a0}ENEMY{$a0}SHIPS.
 1310 gosub6000
 1320 print"i LEFT{$a0}SOME{$a0}INTERESTING{$a0}DETAILS{$a0}OUT
 1330 print"{down}OF{$a0}THE{$a0}INSTRUCTIONS, TO{$a0}MAKE{$a0}PLAYING
 1340 print"{down}THE{$a0}GAME{$a0}THE{$a0}FIRST FEW{$a0}TIMES{$a0}MORE
 1350 print"{down}INTERESTING.
 1360 print"{down}{down}yOU{$a0}START{$a0}OUT{$a0}THE{$a0}GAME{$a0}IN{$a0}THE{$a0}ISLAND'S
 1370 print"{down}LAGOON, AND{$a0}IT{$a0}IS{$a0}YOUR{$a0}DUTY{$a0}TO{$a0}SEEK{$a0}OUT
 1380 print"{down}AND{$a0}DESTROY{$a0}THE{$a0}ENEMY{$a0}AT{$a0}ALL{$a0}COSTS!!!
 1390 gosub6000
 1400 gosub10500
 1410 gosub6000
 1411 gosub11390
 5888 end
 5998 poke59468,12
 5999 end
 6000 geta$:ifa$=""then6000
 6001 print"{clr}":return
 10500 print"WHEN{$a0}THE{$a0}GAME{$a0}STARTS, A{$a0}MAP{$a0}WILL{$a0}BE
 10510 print"{down}BE{$a0}DRAWN{$a0}SHOWING{$a0}ALL{$a0}NECESSARY{$a0}DATA.
 10520 print"{down}THE{$a0}FOLLOWING{$a0}IS{$a0}YOUR{$a0}GUIDE:
 10580 print"{down}{down} '*'   INDICATES{$a0}DRY{$a0}LAND
 10590 print"{down} '$'   IS{$a0}AN{$a0}UNDERWATER{$a0}MINE
 10600 print"{down}'\s/'  IS{$a0}AN{$a0}ENEMY{$a0}SHIP
 10610 print"{down}'-#-'  IS{$a0}A{$a0}SEA{$a0}MONSTER
 10620 print"{down}'!h!'  IS{$a0}YOUR{$a0}HEADQUARTERS
 10630 print"{down}'(x)'  IS{$a0}YOU!!
 10635 gosub6000
 10640 print"{down}{down}eVERY{$a0}SO{$a0}OFTEN, A{$a0}'.' WILL{$a0}APPEAR
 10650 print"{down}IN{$a0}THE{$a0}MAP.  tHIS{$a0}IS{$a0}A{$a0}MALFUNCTION
 10660 print"{down}OF{$a0}THE{$a0}SONAR, SO{$a0}THE{$a0}OBJECT{$a0}THERE ISN'T
 10670 print"{down}IDENTIFIED.  iF{$a0}YOU{$a0}ARE{$a0}ABOVE{$a0}50 FEET,
 10680 print"{down}WAVES{$a0}WILL{$a0}ALSO{$a0}SHOW{$a0}UP{$a0}AS{$a0}'.'.
 10690 return
 11390 print:printtab(17);"{rvon}good luck"
 11400 print:print:print"now loading {rvon}sea battle
 11410 load"seabattle"
    0 clr:poke59468,12
    1 rem search copyright (c) 1979 hal carey
    2 rem 9002 berclair rd.
    3 rem huntsville, al 35802
    4 :
    5 rem cursor #14 oct 79
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000(c) 1979 cursor magazine
    8 :
   10 rem as of nov 14 79
   90 pg$="search":nm$="14":gosub62000
  100 mw=25:rem max # words
  120 dimw$(mw+1),u%(mw),dx(mw),loc(mw),dd$(mw),ft%(mw)
  130 r=rnd(-ti)
  140 bl$="                                       "
  145 e$="{home}{rvon}"+bl$+"{home} "
  160 fori=1to8:readd(i):next
  170 data-41,-40,-39,-1,1,39,40,41
  180 al$="abcdefghijklmnopqrstuvwxyz"
  190 readl$:ifl$=""then240
  200 t=val(l$):l$=right$(l$,1)
  210 fori=1tot-1:al$=al$+l$:nexti
  220 goto190
  230 data5e,5t,5a,5o,5n,4r,4i,4s,4h,4d,3l,3f,3c,3m,3u,2g,2y,2p,2w,2b,
  240 print"want to supply your own words? ";:gosub60000
  250 ifleft$(in$,1)<>"y"then390
  260 print"{clr}{down}{down}what is the puzzle about? ";:gosub60000
  270 sj$=in$
  280 print"{down}please enter the words (up to";mw;"{left}).
  290 print"{down}press {rvon}return{rvof} when done.
  300 n=1:ml=0
  310 print"{down}word";n;"{left}: ";:gosub60000
  320 ifin$=""andn=1then310
  325 ifin$=""then420
  340 z=len(in$):fori=1toz:l$=mid$(in$,i,1)
  350 ifl$<"a"orl$>"z"thenprint"letters only, please.":goto310
  360 nexti:ifz>mlthenml=z
  370 w$(n)=in$:n=n+1:ifn<=mwthen310
  380 goto420
  390 ifsj$<>""thenn=n+1:goto420
  400 readsj$:n=0:ml=0
  410 readw$:n=n+1:ifw$=""then420
  413 w$(n)=w$:z=len(w$):ifz>mlthenml=z
  416 goto410
  420 print"{clr}"e$"{down}{left}{left}  "
  430 fori=1to22:print"{left}{rvon}  ":next
  440 print"{left}{rvon}"bl$" {left}{inst} {home}"
  450 zl=1e5:zt=zl:zr=0:zb=zr
  460 w$(n)="":n=n-1:printe$;"the subject is '";sj$;"'.":tm=ti+200
  470 forx=1ton:dx(x)=0
  480 next:nf=n:gosub1450
  485 ifti<tmthen485
  490 w=1:printe$
  500 fori=1ton:ft%(i)=0:nexti
  510 f=0:ifdx(w)then910
  520 w$=w$(w):print"{home}{rvon} ";w$
  530 u=0:forc=1ton:ifdx(c)<>0thenu=u+1:u%(u)=c
  540 next:ifu>0then560
  550 f=1:dx(w)=d(1+int(8*rnd(1))):lc=33308-int(.5*len(w$))*dx(w):goto800
  560 fori=1tou:r=1+int(u*rnd(1)):t=u%(i):u%(i)=u%(r):u%(r)=t:next
  570 forc=1tou:uc=u%(c):c$=w$(uc)
  580 forl=1tolen(w$)
  590 l$=mid$(w$,l,1)
  600 forz=1tolen(c$)
  610 z$=mid$(c$,z,1)
  620 ifz$<>l$goto770
  630 ss=mid$(c$,z,len(w$))=w$
  640 ford=8to1step-1
  650 r=int(rnd(1)*d)+1
  660 t=d(r):d(r)=d(d):d(d)=t
  670 dx(w)=t
  680 lc=loc(uc)+dx(uc)*z-dx(w)*l
  690 q9=peek(lc):pokelc,102
  700 ifssanddx(uc)=tthen760
  710 forv=1tolen(w$)
  720 gosub1620
  730 ch=peek(lc+v*dx(w))
  740 ifch<>32andch<>asc(mid$(w$,v,1))-64then760
  750 nextv:pokelc,q9:goto800
  760 pokelc,q9:nextd
  770 nextz
  780 nextl
  790 nextc:goto910
  800 fori=1tolen(w$):pokelc+i*dx(w),asc(mid$(w$,i,1))-64:next
  810 loc(w)=lc:f=1
  820 gosub1670:dx=dx(w)
  830 ifdx=1thendd$=" r "
  840 ifdx=-1thendd$=" l "
  850 ifdx=40thendd$=" d "
  860 ifdx=-40thendd$=" u "
  870 ifdx=-39thendd$="u-r"
  880 ifdx=-41thendd$="u-l"
  890 ifdx=41thendd$="d-r"
  900 ifdx=39thendd$="d-l"
  910 dd$(w)=dd$:ft%(w)=f:w=w+1:nf=nf-f
  920 printe$
  930 ifnf=0then970
  940 ifw<=nthen510
  950 f=0:fori=1ton:f=f+ft%(i):nexti
  960 iff>0then490
  970 zt=zt+8:zb=zb+8
  980 printe$;"sorting words"
  990 gosub1530
 1000 printe$"put in paper, hit any key.
 1020 open4,4:pd$=left$(bl$,ml+1)
 1030 getg$:ifg$=""goto1030
 1040 printe$"printing answer";:print#4,"answer to "sj$:print#4
 1060 i$="":p$="  ":p2$="  ":fori=1tozr-zl+1:i$=right$(str$(i),2)
 1070 p$=p$+left$(i$,1)+" ":p2$=p2$+right$(i$,1)+" ":next
 1080 print#4,p$:print#4,p2$
 1090 forl=zttozbstep40:p$=chr$((l-zt)/40+65)+" "
 1100 forp=zltozr:c=peek(l+p):l$="-":ifc<>32thenl$=chr$(c+64)
 1130 p$=p$+l$+" ":next:print#4,p$:next:print#4
 1140 t$="start  dir   words":print#4,t$;mid$(pd$,6);t$
 1150 t$="------------------":print#4,t$;mid$(pd$,6);t$
 1160 h=int((n+1)/2):fori=1toh
 1170 w=i:gosub1390:w=i+h:ifw<=nthenprint#4,mid$(pd$,len(w$(i)));:gosub1390
 1190 print#4:nexti:print#4:print#4
 1210 printe$;"press key for puzzle"
 1220 getg$:ifg$=""goto1220
 1230 print#4:print#4
 1240 printe$"printing puzzle";:print#4,"find"n;sj$:print#4:print#4
 1250 forl=zttozbstep40:p$=""
 1270 forp=zltozr:c=peek(l+p):l$=chr$(c+64)
 1290 ifc=32thenl$=mid$(al$,int(rnd(1)*len(al$))+1,1)
 1300 p$=p$+l$+" ":nextp:print#4,p$:nextl:print#4:print#4
 1330 fori=1toh:print#4,w$(i);mid$(pd$,len(w$(i)));w$(i+h):nexti
 1350 print#4:print#4
 1360 close4:print"{clr}{down}{down}want another puzzle? ";:gosub60000
 1370 ifleft$(in$,1)<>"n"then240
 1380 end
 1390 ifdx(w)=0thenprint#4,"didn't fit  ";w$(w);:return
 1395 ll=loc(w)+dx(w)-zt-zl:ly=int(ll/40):lx=ll-40*ly
 1400 print#4," "chr$(ly+65)"-"right$(str$(lx+1),2)"  "dd$(w)"  "w$(w);:return
 1410 datafruits,passionfruit,grapefruit,strawberry,cantaloupe,watermelon
 1420 datanectarine,raspberry,blueberry,tangerine,pineapple,muskmelon,honeydew
 1430 dataapricot,coconut,rhubarb,banana,orange,cherry,peach,apple,grape,lemon
 1440 datapear,plum,""
 1450 ifn<2thenreturn
 1460 forw=2ton:w$=w$(w)
 1470 fori=w-1to1step-1:iflen(w$)<=len(w$(i))then1500
 1490 w$(i+1)=w$(i):nexti:i=0
 1500 w$(i+1)=w$:nextw:return
 1530 ifn<2thenreturn
 1535 forw=2ton
 1540 w$=w$(w):dx=dx(w):dd$=dd$(w):lc=loc(w)
 1550 fori=w-1to1step-1:ifw$>=w$(i)then1590
 1570 j=i+1:w$(j)=w$(i):dx(j)=dx(i):dd$(j)=dd$(i):loc(j)=loc(i):nexti:i=0
 1590 j=i+1:w$(j)=w$:dx(j)=dx:dd$(j)=dd$:loc(j)=lc:nextw:return
 1620 q0=lc+v*dx(w):q1=peek(q0):pokeq0,160
 1650 q2=q1*q0:pokeq0,q1:return
 1660 q0=l+p:goto1630
 1670 cf=lc+dx(w)-8:cl=lc+len(w$)*dx(w)-8
 1680 c0=40*int(cf/40):cf=cf-c0
 1690 c1=40*int(cl/40):cl=cl-c1
 1700 ifc0<ztthenzt=c0
 1710 ifc0>zbthenzb=c0
 1720 ifc1<ztthenzt=c1
 1730 ifc1>zbthenzb=c1
 1740 ifcf<zlthenzl=cf
 1750 ifcf>zrthenzr=cf
 1760 ifcl<zlthenzl=cl
 1770 ifcl>zrthenzr=cl
 1780 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by hal carey{down}
 62020 gosub60500
 62030 print"{down}construct word-search puzzles
 62040 print"{down}{down}this program needs a printer!"
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin.
 62090 gett$:ift$=""then62090
 62100 goto60300
    2 sec$="{rvon}SECONDS{$a0}REMAINING{rvof} ":scr$="{rvon}SCORE{rvof} "
    5 a=143:ifpeek(57088)=0then10
    6 poke4529,a:poke4530,0:poke5248,a:poke5249,0:poke5327,151:poke5328,0:rem.m
    8 sec$="{rvon}seconds remaining{rvof} ":scr$="{rvon}score{rvof} "
   10 poke59468,14:print"{clr}                SEAWOLF
   12 print"                {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":print
   15 print"   Copyright{$a0}1978 by{$a0}Creative{$a0}Software":print
   18 print"   Do{$a0}you{$a0}want{$a0}instructions (Y or{$a0}N)"
   20 getc$:ifc$="N"orc$="n"thenprint:goto64
   22 ifc$<>"Y"andc$<>"y"then20
   25 print:print"   In{$a0}this{$a0}fast{$a0}moving{$a0}target{$a0}game{$a0}you{$a0} are{$a0}the{$a0}skipper of{$a0}";
   28 print"a{$a0}submarine.  Your{$a0}  goal -- to{$a0}sink{$a0}the{$a0}ships{$a0}flashing{$a0}a-   cross{$a0}";
   31 print"the upper{$a0}part{$a0}of{$a0}the{$a0}screen.":print
   34 print"   If{$a0}you{$a0}hit{$a0}a{$a0}ship{$a0}in{$a0}the{$a0}bottom{$a0}line{$a0}you{$a0}score{$a0}5 points; ";
   37 print"the{$a0}middle line --  15 points; the{$a0}top line -- 50 points.":print
   40 print"   You{$a0}have{$a0}as{$a0}many{$a0}torpedoes{$a0}as{$a0}you{$a0}canshoot, but{$a0}if{$a0}you{$a0}hit ";
   43 print"a{$a0}mine{$a0}or{$a0}ship,   you{$a0}won't{$a0}be{$a0}able{$a0}to{$a0}reload{$a0}and{$a0}fire{$a0}a- gain ";
   46 print"until{$a0}the{$a0}object{$a0}you{$a0}hit{$a0}has{$a0}disap-peared completely.":print
   49 print"   Hit{$a0}any{$a0}key{$a0}to{$a0}go{$a0}on."
   50 getc$:ifc$=""then50
   55 print"{clr}   The{$a0}game{$a0}lasts{$a0}60 seconds.  Through- out{$a0}the{$a0}game the{$a0}time ";
   58 print"remaining{$a0}and{$a0}the{$a0}score{$a0}will{$a0}appear{$a0}on{$a0}the{$a0}top{$a0}line{$a0}of{$a0}the";
   61 print"screen.  {rvon}If{$a0}you{$a0}score{$a0}over 800 points,  you{$a0}get{$a0}an{$a0}extra ";
   62 print"{rvon}30 seconds{$a0}of{$a0}play!":print
   64 print"   Your torpedo{$a0}gun{$a0}can{$a0}move{$a0}either{$a0}leftor{$a0}right{$a0}along{$a0}the{$a0}bottom ";
   67 print"of{$a0}the{$a0}screen.In{$a0}order{$a0}to move{$a0}it, you{$a0}must use{$a0}eitherthe{$a0}";
   70 print"single (S) or dual (D) joystick, or the{$a0}keyboard (K).  ";
   73 print"{rvon}Which{$a0}will{$a0}you{$a0}be{$a0}   using (S, D, or K)?{rvof}":print
   76 getc$:ifc$=""then76
   77 ifc$="S"orc$="s"then200
   78 ifc$="D"orc$="d"then300
   79 ifc$<>"K"andc$<>"k"then76
   80 print" Press{$a0}'4' to{$a0}move{$a0}the{$a0}gun{$a0}left, '6' to{$a0}move{$a0}the{$a0}gun{$a0}right, ";
   83 print"and the{$a0}space{$a0}bar{$a0}tofire{$a0}torpedoes."
   85 poke5310,25:poke5330,1:poke5336,8:poke5342,16:poke5356,234
   90 print:print"   Hit{$a0}any{$a0}key{$a0}to{$a0}go{$a0}on.
   95 getc$:ifc$=""then95
  100 gosub500:print:print"   Hit{$a0}any{$a0}key{$a0}to{$a0}start."
  105 getc$:ifc$=""then105
  110 poke59468,12:print"{clr}";sec$;tab(27);scr$
  120 sys5618
  130 t1=peek(4347)and15:t2=(peek(4347)and240)/16
  135 t3=peek(4346)and15:t4=(peek(4346)and240)/16
  140 sr=t1+10*t2+100*t3+1000*t4
  142 poke59468,14
  145 print"{clr}   Your{$a0}score{$a0}was"sr:print
  147 print"   Previous{$a0}high{$a0}score{$a0}was"phs:print
  150 ifsr<=phsthen170
  155 phs=sr:print"   You{$a0}now{$a0}are{$a0}the{$a0}sharpest{$a0}shooter{$a0}in{$a0} this session{$a0}of ";
  160 print"SEAWOLF!":print
  170 print"   Want{$a0}to{$a0}play{$a0}again (Y or{$a0}N)?"
  175 getc$:ifc$="Y"orc$="y"then100
  180 ifc$<>"N"andc$<>"n"then175
  190 end
  200 gosub400:goto85
  300 gosub400
  310 poke5310,12:poke5330,12:poke5336,4:poke5342,8:poke5356,227:goto90
  400 print"   To{$a0}move{$a0}left, push{$a0}the{$a0}joystick{$a0}left;to{$a0}move{$a0}right, push{$a0}the ";
  410 print"joystick{$a0}right. To{$a0}fire, push{$a0}the{$a0}firing{$a0}button (Atari ";
  420 print" joysticks) or{$a0}pull{$a0}up (Fairchild joy-   sticks).":print
  430 print"   If{$a0}you{$a0}are{$a0}using{$a0}the{$a0}dual{$a0}joystick{$a0}  interface, use{$a0}the{$a0}RIGHT ";
  440 print"plug, as{$a0}viewedfrom{$a0}the{$a0}FRONT.":return
  500 print"{clr}   Which{$a0}level{$a0}of{$a0}skill{$a0}do you{$a0}wish{$a0}to  try: 1. Expert ";
  510 print" 2. Novice?"
  520 getc$:ifc$=""then520
  530 ifc$="1"thenc=1:cc=31:goto560
  540 ifc$="2"thenc=2:cc=127:goto560
  550 goto520
  560 poke4308,c+1:poke4292,c:poke4276,c-1:poke4822,cc:return
    0 rem* by carl thelen
    5 print"{clr}***************{rvon}sea battle{rvof}****************"
    7 print"player #1, what is your name";
    9 inputb$
   10 print"player #2, what is your name";
   11 inputb$
   12 print"{up}{up}{up}  this is a two-player sea battle game.
   14 print"each player has four ships:  1 battle-
   16 print"ship, 1 cruiser, and 2 destroyers.
   18 print"ship type   guns  range  hull  torpedoes
   20 print"{up}battleship   4    10      5      0
   22 print"cruiser      2     8      3      0
   24 print"destroyer    1     5      2      2
   26 print" range means how far the guns can fire.
   28 print"each ship has enough ammunition to keep it firing for eight turns.  yo
   30 print" should  not have to worry about ammo, but don't waste it.
   32 print"torpedoes have a range of 5 squares.
   34 print"player number one has ships 1, 2, 3,
   36 print"and 4.  ship #1 is a battleship, #2
   38 print"is a cruiser, and #'s 3 and 4 are
   40 print"destroyers.
   42 print"player number two has ships 5, 6, 7,
   44 print"and 8.  ship #5 is a battleship, #6
   46 print"is a cruiser, and #'s 7 and 8 are
   48 print"destroyers.
   50 print"press any button to continue.
   52 geta$:ifa$=""then52
   54 print"{clr}   the ships can move one square
   56 print"vertically, horizontally, or diagonally.
   58 print"when i ask you where a certain ship will
   60 print"move to, type in the x,y coordinates
   62 print"of the square it will move into.
   64 print"when i ask you what ship a certain ship
   65 print"will fire at, just input the number of
   66 print"the target ship.  if that ship will not
   68 print"fire that turn, type in '0'.  the same
   70 print"goes for torpedoes.
  190 y$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  200 h(1)=5:h(2)=3:h(3)=2:h(4)=2:h(5)=5:h(6)=3:h(7)=2:h(8)=2:h(0)=1
  210 g(1)=4:g(2)=2:g(3)=1:g(4)=1:g(5)=4:g(6)=3:g(7)=1:g(8)=1:t(3)=2:t(4)=2
  220 t(7)=2:t(8)=2:r(1)=10:r(2)=8:r(3)=5:r(4)=5:r(5)=10:r(6)=8:r(7)=5:r(8)=5
  230 fori=1to4:x(i)=1:nexti
  240 fori=5to8:x(i)=10:nexti
  320 y(1)=7:y(2)=8:y(3)=9:y(4)=10:y(5)=4:y(6)=3:y(7)=2:y(8)=1
  340 a(1)=28:a(2)=16:a(3)=8:a(4)=8:a(5)=28:a(6)=16:a(7)=8:a(8)=8
  460 print"to start, hit any button
  470 geta$:ifa$=""then470
  480 print"{clr}
  490 goto990
  500 t=t+1:print"{home}turn #"t"{left}  "
  510 print"x  y1  2  3  4  5  6  7  8  9  10"
  520 forx=1to10:printx;
  525 ifx=10thenprint"{left}";
  527 fory=1to10:fori=1to10
  530 ifx(i)<>xthen600
  540 ify(i)<>ythen600
  550 printi"{left}{left}{left}<{rght}>";
  560 goto620
  600 nexti
  610 print" . ";
  620 nexty
  630 print
  640 nextx
  650 return
  990 gosub500
 1000 fori=1to8
 1005 ifh(i)<=0thennexti
 1007 ifi>=9then1900
 1009 gosub4000
 1017 printy$;"where will ship #"i"move to (x,y)";
 1020 inputx,y
 1030 ifx<(x(i)-1)orx>(x(i)+1)then1200
 1040 ify<(y(i)-1)ory>(y(i)+1)then1200
 1050 x(i)=x:y(i)=y
 1060 nexti
 1070 goto1500
 1200 print"illegal move":goto1009
 1500 gosub500
 1503 fori=1to8
 1510 ifg(i)<=0orh(i)<=0ora(i)<=0thennexti
 1515 ifi=9then1820
 1600 gosub4000
 1604 printy$;"ship #"i"has"g(i)"guns,"h(i)"{left} hull,"t(i)"torpedoes,"a(i)"units";
 1606 print"of ammunition
 1610 print"what ship will ship #"i" fire at";
 1620 inputl
 1625 ifl=0then1820
 1630 ifl>8then1600
 1635 a(i)=a(i)-g(i)
 1640 q=sqr(((x(i)-x(l))^2)+((y(i)-y(l))^2))
 1650 ifq>r(i)thenh=0
 1660 ifq>r(i)then1800
 1700 h=int(g(i)*(4/(q+.5))*rnd(1))
 1705 ifh=0then1800
 1710 form=1toh
 1720 p=int(3*rnd(1))
 1730 ifp=0thenh(l)=h(l)-1
 1740 ifp=1theng(l)=g(l)-1
 1750 ifp=3thent(l)=t(l)-2
 1760 nextm
 1770 ifg(l)<0theng(l)=0
 1780 ift(l)<0thent(l)=0
 1790 ifh(l)<0thenh(l)=0
 1795 ifh(l)=0thenx(l)=0
 1800 print"ship #"l;"took ";h;" hits!"
 1810 ifh(l)=0thenprint"{rvon}ship #"l;" is sunk!"
 1820 nexti
 1830 ifh(1)<=0andh(2)<=0andh(3)<=0andh(4)<=0then5000
 1840 ifh(5)<=0andh(6)<=0andh(7)<=0andh(8)<=0then6000
 1900 fori=1to8:ift(i)=0orh(i)=0thennexti
 1905 ifi=9then3000
 1907 gosub4000
 1910 printy$;"what ship will ship #"i"{left} fire torpedoes
 1920 print"{up}at                                      "
 1922 input"{up}{up}{up}{rght}{rght}";l
 1925 ifl=0then2100
 1930 q=int(sqr((x(i)-x(l))^2)+((y(i)-y(l))^2))
 1940 print"how many torpedoes";
 1950 inputa
 1960 ifa<=t(i)then2000
 1970 print"you don't have that many torpedoes!
 1980 goto1940
 2000 h=0:fork=1toa
 2010 ifint(q*rnd(1))=0thenh=h+1
 2020 nextk
 2023 ifq>5thenh=0
 2026 print"ship #"l" was hit by "h" torpedoes!
 2030 h(l)=h(l)-(h*2)
 2040 ifh(l)<=0thenh(l)=0
 2050 ifh(l)=0thenx(l)=0
 2100 ifh(l)<=0thenprint"ship #"l" is sunk!"
 2120 t(i)=t(i)-a
 2130 nexti
 3000 goto1000
 4000 printy$;
 4010 fork=1to12:print"                                        ";
 4020 nextk:return
 5000 print"{clr}ships 1, 2, 3, and 4 are sunk!
 5010 print"you win,"a$"!"
 5020 end
 6000 print"{clr}ships 5, 6, 7, and 8 are sunk!
 6010 print"you win,"b$"!"
 6020 end
   80 sys3840
   90 getg$:ifg$<>chr$(13)then90
  100 sys3297
  110 sc=peek(2164)+peek(2165)*256
  120 print"{home}";sc;"soldiers fell.";
  130 ifhi=0thenhi=sc:goto170
  140 print" the record ";
  150 ifsc>hithenprint"was";hi:hi=sc:goto170
  160 print"is";hi
  170 getg$:ifg$<>chr$(13)then170
  180 goto80
    5 goto 500
   10 print"Classic Computing 2008"
   20 print chr$(14);
   30 print"SENIL{$a0}DATA{$a0}SYSTEMS{$a0}PRESENTS{$a0}4{$a0}IN{$a0}1"
   40 print"1 - Zahlenraten"
   50 print"2 - TRON"
   60 print"3 - Matrix fuer Arme"
   70 print"4 - Scrolltext"
   80 rem erstmals ein programm mit assembler
   90 input "Was solls sein";a
  100 if a=1 then goto 1000
  110 if a=2 then goto 2000
  120 if a=3 then goto 3000
  130 if a=4 then goto 4000
  140 end
  500 for t=0 to 57
  510 read a
  520 poke 28672+t,a
  530 next t
  540 goto 10
  550 data 162,0,189,0,128,157,0,96,201,32,208,2,160,1
  555 data 224,255,240,23
  560 data 232,189,0,128,201,32,208,4,192,1,240,6,160,0
  570 data 76,02,112,169,170,157,0,96,96
  575 data 160,0
  580 data 238,4,112,238,7,112,238,17,112,238,35,118,76,0,112
 1000 input"Von 1 bis";b
 1010 z=int(rnd(0)*b)+1
 1020 c=0:ti$="000000"
 1030 input"Was hast du geraten";g
 1040 c=c+1
 1050 if g>z then print"Meine Zahl ist kleiner"
 1060 if g<z then print"Meine Zahl ist groesser"
 1070 if g=z then goto 1100
 1080 goto 1030
 1100 print"Du hast es geschafft!{$a0}Mit";c;"Versuchen und einer Zeit von{$a0}";ti$
 1110 goto 10
 2000 print"TRON{$a0}fuer 2 Spieler"
 2010 print"Tastaturbelegung: Spieler 1         Spieler 2"
 2020 print"                     w                 5"
 2030 print"                   a s d             1 2 3"
 2040 print"Beliebige Taste zum Loslegen druecken!"
 2050 get a$:if a$=""then 2050
 2060 print chr$(142):print"{clr}"
 2070 for t=0 to 79
 2080 poke 32768+t,160
 2090 poke 34688+t,160
 2100 next t
 2110 for t=1 to 24
 2120 poke 32768+80*t,160
 2130 poke 32847+80*t,160
 2140 next t
 2150 x1=20:x2=60:y1=12:y2=12:d1=4:d2=3
 2160 rem 1 oben 2 unten 3 links 4 rechts
 2170 get a$
 2180 if a$="w" and not d1=2 then d1=1
 2190 if a$="s"and not d1=1 then d1=2
 2200 if a$="a" and not d1=4 then d1=3
 2210 if a$="d" and not d1=3 then d1=4
 2220 if a$="5" and not d2=2 then d2=1
 2230 if a$="2"and not d2=1 then d2=2
 2240 if a$="1" and not d2=4 then d2=3
 2250 if a$="3" and not d2=3 then d2=4
 2260 if d1=1 then y1=y1-1
 2270 if d1=2 then y1=y1+1
 2280 if d1=3 then x1=x1-1
 2290 if d1=4 then x1=x1+1
 2300 if d2=1 then y2=y2-1
 2310 if d2=2 then y2=y2+1
 2320 if d2=3 then x2=x2-1
 2330 if d2=4 then x2=x2+1
 2340 if x1=x2 and y1=y2 then goto 2700
 2350 if not peek(32768+x1+80*y1)=32 then goto 2500
 2360 if not peek(32768+x2+80*y2)=32 then goto 2600
 2370 poke 32768+x1+80*y1,160
 2380 poke 32768+x2+80*y2,102
 2390 goto 2170
 2500 poke 32768+x1+80*y1,35
 2510 for t=1 to 300:next t
 2520 print chr$(14)
 2530 print"{clr}Spieler 2 hat gewonnen!"
 2540 goto 10
 2600 poke 32768+x2+80*y2,35
 2610 for t=1 to 300:next t
 2620 print chr$(14)
 2630 print"{clr}Spieler 1 hat gewonnen!"
 2640 goto 10
 2700 poke 32768+x2+80*y2,35
 2710 for t=1 to 300:next t
 2720 print chr$(14)
 2730 print"{clr}Kollision - Unentschieden!"
 2740 goto 10
 3000 poke 32768+int(rnd(2)*80),int(rnd(0)*255)
 3010 poke 32768+int(rnd(3)*80),int(rnd(0)*255)
 3020 print"{home}";chr$(149)
 3030 get a$:if a$=""then goto 3000
 3040 goto 10
 4000 print"{clr}Loesche den Bildschirm und tippe den Text hier ein."
 4010 print"Maximal 22 Zeilen darf er lang sein. Dann SHIFT+RETURN druecken"
 4020 print"und 'cont'eintippen."
 4030 stop
 4040 sys 28672
 4050 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 4060 t=0
 4070 poke 33807,peek(24576+t)
 4080 t=t+1
 4090 if peek(24576+t)=170 then t=0
 4100 print" "+chr$(20);
 4110 get a$:if a$=""then goto 4070
    0 clr:poke59468,12
    1 rem shark copyright (c) 1978 glenfisher
    2 rem cursor #1, july, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
    5 rem
   10 rem as of 15 may 80
   90 pg$="shark":nm$="1":gosub62000
  100 wd=40:ht=25:crt=32768:sf=30:bt=(ht-2)*wd
  173 rt=10:cr$=chr$(13)
  174 bl=32:sh=113:dv=81:sw=87:tr=86:be=102
  175 print"{clr}{down}{down}{down}"
  176 print"how many traps? ";:gosub60000:nt=val(in$)
  177 ifnt>25thenprint"trying to make swimming dangerous?":goto176
  178 ifnt<1thenprint"that's a challenge?":goto176
  179 print"how many swimmers? ";:gosub60000:ns=val(in$)
  180 ifns>100thenprint"health regulations prohibit that many.":goto179
  181 ifns<1thenprint"on a starvation diet?":goto179
  182 print"how many divers? ";:gosub60000:nd=val(in$)
  183 ifnd>25thenprint"diving isn't that popular!":goto182
  184 ifnd<1thenprint"sharks aren't an endangered species":goto182
  185 es=0:kd=0
  186 deffnr(n)=int((n-1)/3)-1:deffnc(n)=n-3*int((n-1)/3)-2
  187 dimss(ns,1),ds(nd,1)
  188 fori=0to500:nexti
  189 print"{clr}  swimmers eaten:         escaped:"
  190 fori=0tosf
  191 pokecrt+wd+i,tr:pokecrt+i+bt,tr
  192 nexti
  193 fori=wdtobtstepwd
  194 pokecrt+i,tr
  195 forj=sf+1towd-1
  196 pokecrt+i+j,be
  197 nextj
  198 nexti
  199 fori=1tont
  200 gosub10000
  210 pokeloc,tr
  220 nexti
  230 fori=1tons
  240 gosub10000
  245 ss(i,0)=row:ss(i,1)=col
  250 pokeloc,sw
  260 nexti
  270 fori=1tond
  280 gosub10000
  285 ds(i,0)=row:ds(i,1)=col
  290 pokeloc,dv
  300 nexti
  310 gosub10000:pokeloc,sh
  320 sr=row:sc=col
  325 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}   shark = {CBM-E}   swimmer = W   diver = Q";
  330 print"{home}":print"{up}";tab(18);kd;tab(34);es
  500 gosub10100
  520 pokeold,bl
  530 fori=1todist
  540 old=old+cc+wd*rc
  545 sc=sc+cc:sr=sr+rc
  550 ifpeek(old)=swthengosub10300:pokeold,bl:goto570
  560 ifpeek(old)<>blthengoto5000
  570 nexti
  580 pokeold,sh
  590 ifnd<1then790
  600 fori=1tond
  610 rm=ht+1:cm=wd+1
  620 row=ds(i,0):col=ds(i,1)
  625 old=crt+wd*row+col
  626 pokeold,bl
  630 rc=sgn(sr-row):ifrc=0thenrc=1
  631 cc=sgn(sc-col):ifcc=0thencc=1
  635 loc=old+rc*wd+cc
  640 forj=rcto-rcstep-rc
  650 fork=ccto-ccstep-cc
  660 ch=peek(loc):ifch=blorch=shthen720
  680 loc=loc-cc
  690 nextk
  700 loc=loc+3*cc-wd*rc
  710 nextj
  715 bug=1:goto50000
  720 row=row+j:col=col+k
  730 loc=crt+wd*row+col
  740 ds(i,0)=row:ds(i,1)=col
  750 ch=peek(loc):pokeold,bl:pokeloc,dv
  760 ifch=shthencause=1:goto5100
  765 ifch<>blthenbug=2:goto50000
  770 nexti
  790 ct=ns
  800 fori=1tons
  810 row=ss(i,0):col=ss(i,1)
  820 rc=sgn(row-sr):ifrc=0thenrc=sgn((ht-row)-row):ifrc=0thenrc=1
  830 old=crt+wd*row+col
  840 loc=old+wd*rc+1
  850 forj=rcto-rcstep-rc
  860 fork=1to-1step-1
  865 ch=peek(loc)
  870 ifabs(row+j-sr)+abs(col+k-sc)>1and(ch=blorch=be)then930
  880 loc=loc-1
  890 nextk
  900 loc=loc+3-wd*rc
  910 nextj
  920 j=0:k=0:loc=old
  930 row=row+j:col=col+k
  935 pokeold,bl
  940 ifpeek(loc)=bethengosub10500:goto960
  945 pokeloc,sw
  950 ss(i,0)=row:ss(i,1)=col
  960 nexti
  970 ifct=nsthen500
  980 fori=1toct
  990 ifss(ns,0)<0thenns=ns-1:goto990
 1000 ifss(i,0)<0thenss(i,0)=ss(ns,0):ss(i,1)=ss(ns,1):ns=ns-1
 1010 nexti
 1020 goto500
 5000 ch=peek(old)
 5010 ifch=dvandrnd(1)<.5thengosub10300:goto570
 5030 ifch=dvthencause=1:goto5100
 5040 ifch=bethenpokeold,sh+128:cause=2:goto5100
 5050 ifch=trthencause=3:goto5100
 5090 bug=3:goto50000
 5100 fori=1tocause:readm$:nexti
 5110 print"{home}{down} {rvon}VVV{rvof} ";m$;"!! {rvon}VVV{rvof}   "
 5200 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 5210 print"do you want to play again? ";:gosub60000:t9$=in$
 5220 ifleft$(t9$,1)="y"thenclr:goto100
 5250 print"{clr}{down}{down}{down}{down}{down}{down}thanks for playing."
 5260 end
 5500 data"the diver got you"
 5510 data"you beached yourself"
 5520 data"you got trapped"
 5530 data"you got the last swimmer"
 5540 data"the last swimmer just escaped"
 6010 end
 10000 row=int(rnd(1)*(ht-3))+2:col=int(rnd(1)*sf)+1
 10010 loc=crt+wd*row+col:ifpeek(loc)<>blthen10000
 10017 ifloc>crt+999then10000
 10020 return
 10100 old=crt+wd*sr+sc:tm=ti:dk=-1
 10105 getc$:ifc$<>""then10105
 10110 getc$:ifc$<>""then10160
 10120 ifti<tmthen10110
 10130 ifdkthenpokeold,bl
 10140 ifnotdkthenpokeold,sh
 10150 dk=notdk:tm=rt+ti:goto10110
 10160 te=(asc(c$)and127)-asc("0")
 10170 ifte<1orte>9then10110
 10180 dist=1:rc=fnr(10-te):cc=fnc(te)
 10190 ifasc(c$)<128thendist=2
 10200 return
 10250 tm=ti+dl
 10260 ifti<tmthen10260
 10270 return
 10300 ch=peek(old):dl=5
 10305 pokeold,sh
 10310 forii=1to4
 10320 gosub10250:pokeold,ch
 10330 gosub10250:pokeold,sh
 10340 nextii
 10350 pokeold,bl
 10360 ifch=swthen10420
 10370 forii=1tond
 10380 ifds(ii,0)=srandds(ii,1)=scthen10400
 10390 nextii:bug=4:goto50000
 10400 ds(ii,0)=ds(nd,0):ds(ii,1)=ds(nd,1):nd=nd-1
 10410 return
 10420 forii=1tons
 10430 ifss(ii,0)=srandss(ii,1)=scthen10450
 10440 nextii:bug=5:goto50000
 10450 ss(ii,0)=ss(ns,0):ss(ii,1)=ss(ns,1):ns=ns-1:kd=kd+1
 10455 print"{home}";tab(18);str$(kd);"  "
 10460 ifns>0thenreturn
 10470 cause=4:goto5100
 10500 dl=1:loc=crt+wd*row+(sf+1)
 10510 forii=sf+1towd-1
 10520 pokeloc,sw+128:gosub10250
 10530 pokeloc,be:loc=loc+1
 10540 nextii
 10550 ss(i,0)=-1
 10560 ct=ct-1:es=es+1
 10565 print"{home}";tab(34);str$(es);"  "
 10570 ifct>0thenreturn
 10580 cause=5:goto5100
 20000 dl=20
 20010 gosub10250:pokeloc,ch
 20020 gosub10250:pokeloc,dv
 20030 goto20010
 20100 dl=16:ch=peek(old)
 20110 gosub10250:pokeold,(ch+128)and255
 20120 gosub10250:pokeold,ch
 20130 goto20110
 50000 t$=str$(bug):t=len(t$)+3
 50010 print"{home}{CBM-D}{rvof}";
 50020 forij=1tot:print"{CBM-I}";:nextij
 50030 print"{CBM-F}":print"{rvon}{CBM-K}bug";t$;"{rvof}{CBM-K}"
 50040 print"{CBM-C}{rvon}";
 50050 forij=1tot:print"{CBM-I}";:nextij
 50060 print"{rvof}{CBM-V}"
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #1  shark
 62010 print"{down}copyright (c) 1978  by glen fisher"
 62020 gosub60500
 62030 print"{down}eat all the swimmers, before they escape
 62040 print"{down}want directions? ";:gosub60000
 62050 ifin$<>"y"then100
 62100 lp=2:gosub60200
 62130 print"you are a shark '{CBM-E}'
 62140 print"that eats swimmers 'W'
 62150 print"while avoiding divers 'Q'
 62160 print"as well as traps 'V'
 62170 print
 62180 print"use the number keys to move.
 62185 print"
 62190 print"the '5' key is your current location.
 62195 gosub60200
 62200 print"for example, to move two spaces
 62210 print"to the right, press the '6' key
 62220 print
 62230 print"     7  8  9
 62240 print"      M B N
 62250 print"
 62260 print"     4C 5 C6
 62270 print"
 62280 print"      N B M
 62290 print"     1  2  3
 62300 print
 62310 print"shifting a number moves one space
 62320 print"in that direction (instead of two)
 62325 gosub60200
    0 clr:poke59468,12
    1 rem program copyright (c) 1980 peter stearns
    4 :
    5 rem cursor #18 march 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of 25 mar 80
   90 pg$="sheep":nm$="18":gosub62000
  100 dimsp(9),mo(9)
  110 restore:fori=1to9:readn:sp(i)=33530+n:next
  111 data 1,2,3,41,42,43,81,82,83
  119 print:print"{clr}"
  120 print"{down}{down}{down}{down}
  130 printtab(20);"    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  140 printtab(20);"   {rvon}{SHIFT-POUND}{CBM-*}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}M
  150 printtab(20);"  {rvon}{SHIFT-POUND}  {CBM-*}{rvof}          M
  160 printtab(20);" {rvon}{SHIFT-POUND} {CBM-POUND}{CBM-POUND} {CBM-*}{rvof}          M
  170 printtab(20);"{rvon}{SHIFT-POUND}  {CBM-+}{CBM-+}  {CBM-*}{rvof}          M
  180 printtab(20);"{rvon}       {CBM-N}           "
  190 fori=1to4:printtab(20);"{rvon}   {CBM-+}{CBM-+}  {CBM-N}           ":nexti
  230 print"{home}{down}";:fori=1to11:print"{rght}XXXXXXXXXXXX":nexti
  300 fori=1to40:poke32767+i,35:poke33687+i,35:poke33727+i,34:nexti
  310 fori=1to921step40:poke32767+i,35:poke32806+i,35:nexti
  320 dp=33431:pokedp,81
  330 fori=1to9:pokesp(i),94:next
  340 ti$="000000":t0=0:gosub360
  350 gosub900
  354 ct=0:goto110
  360 rem...scaring
  370 fori=1to9
  375 ifsp(i)=0thenforj=1to150:nextj:goto570
  390 dr=0:sn=1:df=dp-sp(i):ifdf<1thendf=-df:sn=-1
  394 ifdf-int(df/40)*40>4then454
  400 ifdf<5thendr=-1
  410 ifdf>41anddf<45thendr=-1
  420 ifdf=40ordf=80ordf=81ordf=79ordf=120thendr=-40
  430 ifdf<40anddf>35thendr=-39
  440 ifdf=41ordf=82ordr=103thendr=-41
  450 dr=dr*sn:ce=dr
  454 j=0
  460 n=int(rnd(1)*7)-2:j=j+1:ifj>3thendr=-dr:ifj>6then570
  470 ifn>2thenn=ce
  480 ifn=-2thenn=-40
  490 ifn=2thenn=40
  500 n=dr+n:ifn=0thenn=mo(i)
  510 mo(i)=n
  520 ifpeek(sp(i)+n)=88then550
  530 ifpeek(sp(i)+n)=230thengosub740:goto 590
  540 ifpeek(sp(i)+n)<>32then460
  550 :
  560 pokesp(i),32:sp(i)=sp(i)+n:pokesp(i),94
  570 geta$:ifa$<>""thengosub620
  580 gosub690:ifdr<>0andj<4then390
  590 gosub820:ifct>8thenreturn
  600 nexti
  610 goto360
  620 rem...dog move
  630 ifa$<"1"ora$>"9"thenreturn
  640 a=val(a$)
  650 ifa>6thena=a-48
  660 ifa<4anda>0thena=a+38
  670 ifa>3anda<7thena=a-5
  680 return
  690 rem...dog move
  700 ifa=0thenreturn
  710 ifpeek(dp+a)<>32then730
  720 pokedp+a,81:pokedp,32:dp=dp+a
  730 return
  740 rem...sheep in
  750 pokesp(i),32:pokesp(i)+n,94
  760 forj=1to50:nextj
  770 pokesp(i)+n,230
  780 ct=ct+1
  790 poke33316+ct,222
  800 sp(i)=0
  810 return
  820 rem...time
  830 z=int((ti-t0)/60)
  832 ify=zthen return
  840 y=z:print"{home}";tab(29);"{down}{down}{down}{down}{down}{down}{down}{down}";z
  850 return
  900 print:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}want to play again";
  910 zt=ti:zc=2
  920 geta$:ifa$<>""then950
  930 ifti>=ztthenprintmid$(" ?",zc,1);"{left}";:zt=ti+15:zc=3-zc
  940 goto920
  950 ifa$="y"ora$=cr$thenprint"? yes":return
  960 ifa$<>"n"then920
  970 print"? no":forj=1to200:nextj
  980 print"{clr}{down}{down}":end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by peter stearns{down}
 62020 gosub60500
 62030 print"{down}shepherding in 10 easy lessons
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"faithful sheepdog shep (Q) must herd the
 62120 print"sheep into the barn.     7 8 9
 62130 print"                          M{SHIFT--}N
 62140 print"to move shep, use the    4C5C6
 62150 print"                          NBM
 62160 print"number pad.              1 2 3
 62170 print"{down}   keep the sheep out of the crops;
 62180 print"{down}shep is not allowed in there.
 62190 gosub60200
    0 rem
    1 rem
    2 rem
    3 rem
    4 rem
    5 rem
    6 rem
    7 rem
   18 printchr$(142):goto2000
   19 clr:z=20:print"{clr}"
   20 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
   30 printtab(18)"{rvon}{SHIFT-POUND} {CBM-*}{rvof}"
   40 printtab(17)"{rvon}     {rvof}{left}{left}{left}";
   50 geta$
   85 gosub432
  100 ifz<8then180
  110 geta$:ifa$=" "thengosub360
  114 z=z-1
  115 gosub460
  120 print"{left}{left}{left}{rvon}     {rvof} {up}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND} {CBM-*}{rvof} {down}{left}{left}{left}";
  156 gosub460
  158 gosub460
  160 geta$:ifa$=" "thengosub360
  170 goto100
  180 ifz>63then100
  185 geta$:ifa$=" "thengosub360
  190 z=z+1
  195 gosub460
  200 print"{left}{left} {rvon}     {rvof}{up}{left}{left}{left}{left}{left} {rvon}{SHIFT-POUND} {CBM-*}{rvof}{down}{left}{left}";
  333 gosub460
  336 gosub460
  340 geta$:ifa$=" "thengosub360
  350 goto180
  360 print"{up}";
  365 gosub460
  370 print"{up}+{up}{left}{SHIFT--}";
  381 gosub460
  390 print"{down}{left} {left}{up} {left}";
  400 x=x+2
  405 ifx>=23then420
  410 goto370
  420 x=0
  424 print"{up} {left}{down}";
  425 ifm$="+"orm$="{SHIFT--}"then490
  426 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  427 j=j+1:ifj=20then1000
  428 return
  430 y=y+1:poke32767+w+r,32:poke32768+r+w,32:ify>=22then1000
  432 w=sin(ti)*1000:w=w-int(w):w=w*10:w=int(w)
  433 w=w*80
  435 ifz<18thencc=1:r=79:return
  436 ifz>22thencc=0:r=1:return
  437 cc=int(rnd(1)*2):ifcc=1thenr=79:return
  438 r=1:return
  460 ifcc=1then30000
  461 m=peek(32767+r+w)
  462 n=peek(32768+r+w)
  464 ifm=93orm=43thenk=k+1:goto476
  465 ifn=93orn=43thenk=k+1:goto476
  468 r=r+1
  469 poke32766+r+w,32
  470 poke32767+r+w,233:poke32768+r+w,223
  471 ifr=79thengosub430
  472 return
  475 ifr=80thenr=0
  476 poke32727+r+w,32:poke32728+r+w,32:poke32807+r+w,32:poke32808+r+w,32
  481 fori=1to5:poke32767+r+w,233:poke32768+r+w,223:forl=1to40:next:poke32767+r+w,32
  482 poke32768+r+w,32:fort=1to40:next
  483 next
  484 poke32767+r+w,35:fori=1to1:next
  485 poke32766+r+w,35:poke32768+r+w,35:poke32727+r+w,35:poke32807+r+w,35:fori=1to1:next
  487 poke32765+r+w,35:poke32769+r+w,35
  488 fori=1to1:next:poke32847+r+w,35:poke32687+r+w,35:poke32805+r+w,35:poke32809+r+w,35
  489 poke32725+r+w,35:poke32729+r+w,35:poke32764+r+w,35:poke32770+r+w,35:fori=1to1:next
  490 poke32647+r+w,35:poke32887+r+w,35:poke32763+r+w,35:poke32771+r+w,35:poke32684+r+w,35
  491 poke32690+r+w,35:poke32850+r+w,35:poke32844+r+w,35:fori=ito1:next
  492 poke32607+r+w,35:poke32927+r+w,35:poke32762+r+w,35:poke32772+r+w,35
  493 poke32643+w+r,35:poke32651+r+w,35:poke32883+r+w,35:poke32891+r+w,35
  494 fori=1to1:next
  495 poke32761+r+w,35:poke32773+r+w,35:fori=1to400:next
  496 poke32767+r+w,32:fori=1to2:next
  497 poke32766+r+w,32:poke32768+r+w,32:poke32727+r+w,32:poke32807+r+w,32:fori=1to5:next
  498 poke32765+r+w,32:poke32769+r+w,32
  499 fori=1to3:next:poke32847+r+w,32:poke32687+r+w,32:poke32805+r+w,32:poke32809+r+w,32
  500 poke32725+r+w,32:poke32729+r+w,32:poke32764+r+w,32:poke32770+r+w,32:fori=1to4:next
  501 poke32647+r+w,32:poke32887+r+w,32:poke32763+r+w,32:poke32771+r+w,32:poke32684+r+w,32
  502 poke32690+r+w,32:poke32850+r+w,32:poke32844+r+w,32:fori=ito7:next
  503 poke32607+r+w,32:poke32927+r+w,32:poke32762+r+w,32:poke32772+r+w,32
  504 poke32643+w+r,32:poke32651+r+w,32:poke32883+r+w,32:poke32891+r+w,32
  505 fori=1to10:next
  506 poke32761+r+w,32:poke32773+r+w,32:fori=1to15:next
  650 print"{home}";
  660 forp=1toz:print"{rght}";
  670 next
  671 r=0
  675 fori=1to300:next:goto432
 1000 print"{clr}{down}{down}{down}":ifk=0thenprinttab(9)"kein einziger treffer":goto1028
 1001 ifk=1thenprint"  sie haben nur 1 ufo getroffen":goto1028
 1002 ifk<10thenprint"      sie haben"k"ufos getroffen":goto1028
 1003 ifk<=15thenprint" sie haben immerhin"k"ufos abgeschossen":goto1028
 1004 printtab(16)k"ufos":print"   toll!!  kommen sie aus der branche?"
 1028 j=0:print:print:printtab(8)"wollen sie noch einmal?"
 1029 getm$:ifm$=""then1029
 1030 ifm$="j"thenclr:goto10000
 1040 ifm$<>"n"then1029
 1050 end
 2000 print"{clr}":print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rght}{rght}{rght} {rght}{rght}     {rght}{rght}     "
 2001 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} "
 2002 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght}    {rght}{rght}{rght} {rght}{rght}{rght} "
 2003 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} "
 2004 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght}     "
 2005 print:print
 2006 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}     {rght}{rght}     {rght}{rght}    "
 2007 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}{rght} "
 2008 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}     {rght}{rght} {rght}{rght}  {rght}{rght} {rght}{rght}{rght} "
 2009 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght} {rght}{rght} {rght}{rght}{rght} "
 2010 print"{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}{rght}{rght} {rght}{rght}{rght} {rght}{rght}     {rght}{rght}    "
 2011 fori=1to1000:next
 2012 print"{clr}{down}{down}{down}{down}{down}{down}{down}":poke59468,14:print:printtab(3)"kennen sie das spiel noch nicht?"
 2015 print:print"   dann druecken sie innerhalb von"
 2020 print"        10 sekunden eine taste!"
 2021 h=ti
 2022 ifti-h>600thenpoke59468,12:goto10000
 2023 geta$:ifa$=""then2022
 2024 goto20000
 3430 y=y+1:poke32767+w+r,32:poke32768+r+w,32:ify>=22then1000
 10000 t=ti
 10010 ifti-t<=60then11000
 10020 ifti-t<=60then10020
 10030 ifti-t<=120then12000
 10040 ifti-t<=120then10040
 10050 ifti-t<=180then13000
 10060 ifti-t<=180then10060
 10070 ifti-t<=240then14000
 10080 ifti-t<=240then10080
 10090 ifti-t<=300then15000
 10100 ifti-t<=300then10100
 10120 goto19
 11000 poke59409,52:print"{clr}":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}";:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 11010 print"{rvon}     {down}{left}{left}{left}{left}{left} {down}{left} {down}{left}    {CBM-*}{down}{left} {down}{left} {down}{left}{left}{left}{left}{left}    {rvof}{SHIFT-POUND}";:poke59409,62:goto10020
 12000 poke59409,52:print"{clr}"
 12010 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 12020 print"{rvon} {down}{left} {rght}{rght} {down}{left}{left}{left}{left} {rght}{rght} {down}{left}{left}{left}{left} {rght}{rght} {down}{left}{left}{left}{left}     {down}{left}{left} {down}{left} ":poke59409,62:goto10040
 13000 poke59409,52:print"{clr}":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 13010 print"{rvon}     {down}{left} {down}{left} {down}{left}{left}{left}{left}    {down}{left} {down}{left} {down}{left}{left}{left}{left}{left}     {rvof}":poke59409,62:goto10060
 14000 poke59409,52:print"{clr}":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 14010 print"{rvon}    {CBM-*}{down}{left} {down}{left} {down}{left}{left}{left}{left}{left}{SHIFT-POUND}   {rvof}{SHIFT-POUND}{rvon}{down}{left}{left}{left}{left}{left} {down}{left} {down}{left}     {rvof}":poke59409,62:goto10080
 15000 poke59409,52:print"{clr}":print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 15010 print"  {rvon}{SHIFT-POUND} {down}{left}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left}{left}{rvof}{CBM-I}{rvon} {rvof}{CBM-I}":poke59409,62:goto10100
 20000 print"{clr}":printspc(10):print"s p i e l r e g e l":printspc(9)
 20001 print"====================="
 20002 print:print"ufo-jagd ist ein spiel fuer jedes alter."
 20003 print"es kommt dabei besonders auf reaktion"
 20004 print"und ausdauer an. nun zum spielverlauf!":print
 20005 print"am unteren bildschirmrand erscheint ihr "
 20006 print"raumschiff, von dem aus sie die raketen "
 20007 print"mittels der taste space abfeuern."
 20008 print"sie sollen dabei moeglichst viele der"
 20009 print"ufos,die in verschiedenen hoehen den"
 20010 print"bildschirm von links nach rechts oder"
 20011 print"umgekehrt passieren, abschiessen. die"
 20012 print"treffer werden dabei gezaehlt."
 20013 print"sie haben 20 raketen munition."
 20015 print:print:printtab(11)"alles verstanden?"
 20020 print:printtab(6)"druecken sie nun eine taste"
 20030 gets$:ifs$=""then20030
 20040 print"{clr}":poke59468,12:goto10000
 30000 m=peek(32767+r+w)
 30020 n=peek(32768+r+w)
 30030 ifm=93orm=43thenk=k+1:goto476
 30040 ifn=93orn=43thenk=k+1:goto476
 30045 r=r-1
 30050 poke32769+r+w,32
 30060 poke32767+r+w,233:poke32768+r+w,223
 30070 ifr=0thengosub430
 30080 return
    5 print"{clr}"
   10 print"{rvon}                                       "
   15 print"{rvon} {rvof}                                     {rvon} "
   17 print"{rvon} {rvof}        track                        {rvon} "
   20 print"{rvon} {rvof}                                     {rvon} "
   33 print"{rvon} {rvof}                                     {rvon} "
   40 print"{rvon} {rvof}        h = horizonal                {rvon} "
   41 print"{rvon} {rvof}        v = vertical                 {rvon} "
   43 print"{rvon} {rvof}        d = diagonal                 {rvon} "
   44 print"{rvon} {rvof}        m = mixed                    {rvon} "
   45 print"{rvon} {rvof}                                     {rvon} "
   47 print"{rvon} {rvof}                                     {rvon} "
   50 print"{rvon} {rvof}                                     {rvon} "
   55 print"{rvon} {rvof}                                     {rvon} "
   70 print"{rvon}                                        "
   71 input a$
   75 if a$ = "h" goto 1500
   80 if a$ = "v" goto 100
   90 if a$ = "d" goto 500
  100 print"{clr}"
  103 clr
  105 r=int(rnd(1)*24)+1
  110 for i=1 to 25
  120 get c$
  130 if c$="f" then f=1:z=i-1:v=1
  140 if f=0 goto 195
  150 y=z
  160 v=v+1
  170 x=v
  180 gosub 1750
  190 if x>=r  goto 310
  193 goto 220
  195 y=i
  200 x=1
  210 gosub 1750
  220 y=25-i
  230 c=y
  240 x=r
  250 gosub 1750
  253 for j=1 to 25
  255 next j
  260 next i
  270 goto 100
  310 print"you missed by ";c-z;" spaces"
  320 for j=1 to 500
  330 next j
  340 goto 100
  500 print"{clr}"
  503 clr
  505 r=int(rnd(1)*15)+24
  510 for i=1 to 25
  520 get c$
  530 if c$="f" then f=1:z=i-1:v=i
  540 if f=0 goto 595
  545 z=z-1
  550 y=z
  555 v=v+1
  560 x=v
  580 gosub 1750
  590 if x>=25 goto 710
  593 goto 620
  595 y=i
  600 x=i
  610 gosub 1750
  620 y=25-i
  630 c=y
  640 x=r-i
  650 gosub 1750
  660 next i
  670 goto 500
  710 print"you missed by ";c-z;" spaces"
  720 for j=1 to 500
  730 next j
  740 goto 500
 1500 rem*shoot*
 1510 rem*not an orginal game by conrad*
 1513 clr
 1515 print"{clr}"
 1517 r=int(rnd(1)*24)+1
 1520 for i=1 to 40
 1530 get c$
 1540 if c$="f" then f=1:z=i-1:v=24
 1550 if f=0 goto 1610
 1570 x=z
 1575 v=v-1
 1580 y=v
 1585 gosub 1750
 1590 if y<=r  goto 1800
 1600 goto 1640
 1610 x=i
 1620 y=24
 1630 gosub 1750
 1640 x=40-i
 1650 c=x
 1660 y=r
 1670 gosub 1750
 1680 next i
 1690 goto 1500
 1750 rem*write out to tv*
 1760 poke 32768+40*y+x,102
 1770 return
 1800 rem*game over*
 1810 if z=c-1 then print"it's a hit": goto 1830
 1820 print"you missed by ";c-z;" spaces"
 1830 for j=1 to 500
 1840 next j
 1850 goto 1500
 1890 end
    0 print"{clr}":b=33728:c=b:k=32828:r=1
    1 q=2000
    5 poke59467,16:poke59466,15:poke59464,0
   10 a=peek(151)
   11 print"{home}energy = "q"{left}    "
   12 ifq<0thenq=0:goto2000
   40 pokec,32
   41 pokec-40,32
   45 poke59464,255-(255*(c-33728)/40)
   50 c=b
   60 pokeb,224
   61 pokec-40,93
   62 poke59464,0
   70 ifrnd(ti)>.4999999thenr=r*-1
   71 k=k+r
   72 ifk<32808ork>33007thenk=k-r
   80 pokel,32
   81 l=k
   82 pokek,224
   83 poke59464,255*(k-32808)/40:ifa=41thenb=b+1:q=q-18:ifb>33767thenb=b-1
   84 ifa=42thenb=b-1:q=q-18:ifb<33729thenb=b+1
   85 poke59464,0:ifpeek(152)=1thenq=q-98:goto100
   90 goto10
  100 forn=c-80toc-920step-40
  110 poken,93
  115 poke59464,255*(n-32768)/1000
  120 next
  130 forn=c-80toc-920step-40
  140 poken,32
  150 next
  155 ifn=k-40thenprint"{home}you got it        ":goto10000
  200 goto10
 2000 print"{clr}out of energy ":goto20000
 10000 poke59459,255:poke59459,0
 10010 poke59464,0
 20000 poke59464,0:poke158,0:input"another go";a$
 20010 ifleft$(a$,1)="y"thenrun
 20020 poke59464,0:poke59466,254:poke59467,0
    5 poke59468,14
    6 gosub500
    7 poke59467,16:poke59466,15
    8 poke59464,0
   10 dima%(9):a%(1)=104:x%=102:r%=1:g%=0
   20 fori=2to9:a%(i)=102:next
  100 print"{clr}";:forj=1to9:print:next
  110 print"{down}{down}          {CBM-K}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I} ^ {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-K}{rvof}{up}{up}{up}"
  115 print"          {rvon}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}{rvof}"
  120 print"          {CBM-K}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-K}{rvof}{down}"
  125 print"          {rvon}{CBM-C}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}{CBM-V}{rvof}"
  130 input"{home}Delay(1-9)";s%
  140 ifs%>9ors%<1then130
  150 d%=int(50/s%):h%=0
  200 fork=1to9
  210 y%=a%(k):a%(k)=x%
  220 x%=y%
  230 poke33177+(2*k),x%
  231 poke59464,k*25
  240 next:g%=g%+1
  250 fort=1tod%:next
  260 geta$:ifa$=""then200
  270 h%=h%+1:a%(5)=206-a%(5):poke33187,a%(5)
  280 ifa%(5)=104thenr%=r%+1:goto200
  285 poke59459,255:poke59459,0
  290 r%=r%-1:ifr%<>0then200
  295 fora=33179to33194:pokea,102:ifa=33187thenpokea,104
  296 next
  300 print"Goes"g%"Shots"h%
  309 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
  310 print"{rvon}   Press space to start another game.   {rvof}";
  311 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  320 poke158,0
  321 poke59464,0
  322 poke33187,102
  330 geta$:ifa$=""then330
  335 ifa$<>" "thenpoke59468,12:poke59466,254:poke59467,0:poke59464,0:print"{clr}":end
  340 run
  499 end
  500 print"{clr}     Shooting gallery."
  510 print"     {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
  520 print"{down}{down}{rght}You are the arrow:({rvon}^{rvof})
  530 print"{down} You must shoot the black marks
  540 print"{down} If you miss one,another will appear"
  550 print"{down}{down}{down}{down}{down}{down}Press a key to go."
  560 geta$:ifa$=""then560
  570 return
   70 printchr$(142)
   80 sys3968
   90 getg$:ifg$<>chr$(13)then90
  100 sys3297
  110 sc=peek(2164)+peek(2165)*256
  120 print"{home}";sc;"soldiers fell.";
  130 ifhi=0thenhi=sc:goto170
  140 print" the record ";
  150 ifsc>hithenprint"was";hi:hi=sc:goto170
  160 print"is";hi
  170 getg$:ifg$<>chr$(13)then170
  180 goto80
   70 printchr$(142)
   80 sys3968
   90 getg$:ifg$<>chr$(13)then90
  100 sys3297
  110 sc=peek(2164)+peek(2165)*256
  120 print"{home}";sc;"soldiers fell.";
  130 ifhi=0thenhi=sc:goto170
  140 print" the record ";
  150 ifsc>hithenprint"was";hi:hi=sc:goto170
  160 print"is";hi
  170 getg$:ifg$<>chr$(13)then170
  180 goto80
  500 rem**sinners by mac oglesby on 2/78
  510 rem**from calculators/computers
 1000 rem***initialization
 1100 dimd(6,6),p(12,6),m(4),r(4),c(4)
 1105 dimh(2,3),u(4)
 1110 forj=1to4:readm(j),r(j),c(j):nextj
 1120 data85,-1,0,82,0,1,68,1,0,76,0,-1
 1130 forj=1to5:fork=1to5:d(j,k)=64+(j-1)*5+k:nextk:nextj
 1140 fori=1to2:forj=1to3
 1150 :h(i,j)=1+int(5*rnd(1))
 1160 :fork=1toj-1
 1170 :::ifk<jthenif h(i,j)=h(i,k)then1150
 1180 :nextk
 1190 nextj:nexti
 1200 forj=1to3:d(h(1,j),h(2,j))=666:nextj
 1210 s1$="{rvon}{CBM-D}a{CBM-F}{down}{left}{left}{left} {SHIFT--} {down}{left}{left}{left} = {rvof}"
 1215 s2$="{rvon}{CBM-D}z{CBM-F}{down}{left}{left}{left} {SHIFT--} {down}{left}{left}{left} = {rvof}"
 1220 fd$="{SHIFT-+}{CBM-R}{SHIFT-+}{down}{left}{left}{left}{CBM-A}Q{CBM-S}{down}{left}{left}{left}###"
 1230 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s1$;"{rght}{rght}{up}{up}";fd$;"{rght}{rght}{up}{up}";s2$;"{down}{down}{down}"
 1240 print"welcome to  {down}{down}{down}{down}{down}s i n n e r s"
 1250 print"{down}{down}{down}{down}{down}want instructions (yes or no)?";:gosub6000
 1260 ifb$="yes"then gosub9000
 2000 rem***generate computer's move
 2100 mo=0
 2110 forj=1to5:fork=1to5
 2120 :ifd(j,k)<>666then2180
 2130 forl=1to4
 2140 ::ifd(j+r(l),k+c(l))<65ord(j+r(l),k+c(l))>89then2170
 2150 :::mo=mo+1:p(mo,1)=j:p(mo,2)=k
 2160 :::p(mo,3)=j+r(l):p(mo,4)=k+c(l)
 2170 :nextl
 2180 nextk:nextj
 2190 ifmo>0then2300
 2200 gosub8000:print"the baddies can't move"
 2210 print"the sinners lose!!!":end
 2300 sc=sc+1
 2310 fori=1to3:forj=moto1step-1
 2320 :t9=1+int(j*rnd(1))
 2325 ::temp=d(p(t9,3),p(t9,4))
 2330 ::d(p(t9,1),p(t9,2))=32
 2340 ::d(p(t9,3),p(t9,4))=666
 2350 ::ifi<3then2400
 2360 ::gosub8000:print"the sinners are winners!!!":end
 2400 :fork=1to5
 2410 :r9=0:c9=0
 2420 :forl=1to5
 2430 ::ifd(k,l)=666thenr9=r9+1:ifr9>ithen2500
 2440 ::ifd(l,k)=666thenc9=c9+1:ifc9>ithen2500
 2450 :nextl
 2460 :nextk:gosub8000:ifsc<22then3000
 2470 :print"no more sinners!!":end
 2500 :d(p(t9,1),p(t9,2))=666
 2510 :d(p(t9,3),p(t9,4))=temp
 2520 :ift9=jthen2560
 2530 ::forj0=1to4:u(j0)=p(j,j0):nextj0
 2540 ::forj0=1to4:p(j,j0)=p(t9,j0):nextj0
 2550 ::forj0=1to4:p(t9,j0)=u(j0):nextj0
 2560 nextj:nexti
 3000 rem***player's move
 3100 print"sinner's move? ";
 3110 gosub6000
 3120 ifasc(a$)=13then3200
 3130 :printa$;:b$=b$+a$:goto3110
 3200 ifb$="i"thengosub9000:gosub8000:goto3100
 3210 ifb$="h"thengosub8000:gosub7000:goto3100
 3220 ifb$="r"thengosub8000:print"the sinners give up!!!":end
 3230 ifb$="b"thengosub8000:goto3100
 3250 iflen(b$)<>2then3500
 3260 sr=asc(left$(b$,1))
 3300 :forj=1to5:fork=1to5
 3310 ::ifd(j,k)=srthenr=j:c=k:goto3360
 3320 :nextk:nextj
 3330 goto3500
 3360 dr=asc(right$(b$,1))
 3400 forj=1to4
 3410 :ifdr<>m(j)then3450
 3420 ::ifd(r+r(j),c+c(j))<>32then3500
 3430 ::d(r+r(j),c+c(j))=d(r,c):d(r,c)=32:goto2000
 3450 nextj
 3500 print:print"something is wrong..."
 3510 print"   type h for help."
 3520 print"   type i for instructions."
 3530 print"   type b to see the board."
 3540 goto3100
 6000 rem***get player's input
 6010 b$=""
 6100 geta$:ifa$=""then6100
 6110 ifasc(a$)=13then return
 6120 :printa$;:b$=b$+a$:goto6100
 7000 rem***help routine
 7100 print"legal moves:";
 7110 forj=1to5:fork=1to5
 7120 :ifd(j,k)<65ord(j,k)>89then7160
 7130 ::forl=1to4
 7140 ::ifd(j+r(l),k+c(l))=32thenprint" ";chr$(d(j,k));chr$(m(l));
 7150 ::nextl
 7160 :nextk:nextj
 7170 print
 7200 return
 8000 rem***print the board routine
 8100 print"{clr}";
 8110 forj=1to5:print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 8120 :fork=1to5
 8125 ::ifd(j,k)<90thenlr$=chr$(d(j,k))
 8130 ::ifd(j,k)=666thenprintfd$;
 8140 ::ifd(j,k)>64and d(j,k)<90thenprint"{rvon}{CBM-D}";lr$;"{CBM-F}{down}{left}{left}{left} {SHIFT--} {down}{left}{left}{left} = {rvof}";
 8150 ::ifd(j,k)=32thenprint"{rght}{rght}{rght}{down}{down}";
 8160 ::ifk<5thenprint"{rght}{rght}{up}{up}";
 8170 :nextk
 8180 :print"{down}"
 8190 nextj:return
 9000 rem***instructions
 9100 print"{clr}three of the baddies -or devils - (moved by pet)"
 9110 print"play against a group of condemned"
 9120 print"sinners (moved by you!!!)"
 9130 print
 9140 print"the playing field has 25 spaces,"
 9150 print"5 rows and 5 columns."
 9160 print
 9170 print"a sinner may move into any adjacent"
 9180 print"empty space. a baddie moves into an"
 9190 print"adjacent space which contains a sinner,"
 9200 print"who is thereby captured and removed."
 9210 print"there are no diagonal moves and no"
 9220 print"jumps."
 9230 print
 9240 print"the sinners win if all the baddies are"
 9250 print"in a line horizontally or vertically."
 9260 print"the sinners lose if the baddies, at"
 9270 print"their turn, can't capture a sinner."
 9280 print:print:print
 9290 print"press return to continue.";
 9300 gosub6000
 9310 print"{clr}  u":print
 9320 print"l + r":print
 9330 print"  d":print
 9340 print
 9350 print"to move a sinner, type two letters:"
 9360 print"the first letter names the sinner
 9370 print"and the second letter tells the direct- ion you want to go."
 9380 print
 9390 print"for example, ju means sinner j"
 9400 print"wants to move up^."
 9410 print
 9420 print"also, you may want to type:"
 9430 print"  r when you want to stop the game."
 9440 print"  i for these instructions"
 9450 print"  h for a list of legal moves"
 9460 print"  b to see the board."
 9470 print:print
 9480 print"hit return to start the game."
 9490 print"there will then be a short pause."
 9500 gosub6000
 9510 return
:{stop}{$00}{$00}{$00}{$00}{$00}{$00}{f3}~{CBM-E}!i{$80}{up}!HP{$f7}{$e8}{$e0}{$84}P{$f0}{$60}{dish}{dish}${dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{ensh}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}~~~~{blu}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{dish}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{dish}{dish}{dish}{dish}{ensh}{dish}{dish}{CBM-@}W{$00}{dish}{dish}{ensh}{$00}b{CTRL-D}{$00}{$00}{$8f}  to receive a micrograms inc.            catalog write to:{$00}{$84}{CTRL-D}{CTRL-A}{$00}{$8f}       micrograms inc.                         p.o. box 2146{$00}F{CTRL-D}{CTRL-B}{$00}{$8f}       loves park,                             il 61130-0146{$00}{CTRL-P}{wht}{stop}{$00}{$8f}                                           or telephone 815/964-2464{$00}{CTRL-V}{wht}{CTRL-D}{$00}:{$00}{$64}{wht}{wht}{$00}{$8f}  m3c -six second club- 8k,s               copyright micrograms 1981 {SHIFT-+}LK{$00}{swuc}{wht}{CTRL-F}{$00}{$8f}                                   :{$00}{gry2}{wht}{CTRL-G}{$00}{sret}1500{$00}{$a0}{wht}{dish}{$00}z{CBM-R}6{$00}{CBM-S}{wht}{ensh}{$00}{sret}2000:{f2}61{$00}M{wht}{$0a}{$00}{lgrn}"{up}{rght}{CBM-@}{down}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{CBM-T}{up}":{swuc}{$00}{CBM--}{wht}{CTRL-K}{$00}{lgrn}"{rght}{SHIFT--}{down}{left}{SHIFT--}":{swuc}{$00}{$ef}{wht}{CTRL-L}{$00}{lgrn}"{rght}P{down}{left}O{down}{left}{CBM-T}{up}":{swuc}{$00}{CTRL-B}{CTRL-F}
{$00}{lgrn}"{rght}P{down}{left}P{down}{left}{CBM-T}{up}":{swuc}{$00}{rvon}{CTRL-F}{swlc}{$00}{lgrn}"{rght}L{CBM-G}{down}{left}{CBM-G}":{swuc}{$00}%{CTRL-F}{CTRL-O}{$00}{lgrn}"{rght}O{down}{left}P{down}{left}{CBM-T}{up}":{swuc}{$00}9{CTRL-F}{CTRL-P}{$00}{lgrn}"{up}{rght}{CBM-@}{down}{left}L{down}{left}L{CBM-G}":{swuc}{$00}i{CTRL-F}{down}{$00}{lgrn}"{rght}{CBM-T}{CBM-G}{down}{left}{CBM-G}":{swuc}{$00}{$68}{CTRL-F}{rvon}{$00}{lgrn}"{up}{rght}{CBM-@}{down}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{left}{CBM-M}{CBM-T}{CBM-G}{down}{left}{left}{CBM-T}{up}":{swuc}{$00}{$80}{CTRL-F}{home}{$00}{lgrn}"{CBM-M}P{down}{left}P{down}{left}{CBM-T}{up}":{swuc}:{$8f}{SHIFT-+}LK{$00}{CBM-G}{CTRL-F}{del}{$00}{lgrn}"{left}B{down}{left}B{up}{up}{rght}{CBM-@}{down}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{CBM-T}{up}":{swuc}{$00}{SHIFT-@}{CTRL-F}{CTRL-U}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}{SHIFT--}{down}{left}{SHIFT--}":{swuc}{$00}R{CTRL-F}{CTRL-V}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}P{down}{left}O{down}{left}{CBM-T}":{swuc}{$00}{$eb}{CTRL-F}{CTRL-W}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}P{down}{left}P{down}{left}{CBM-T}{up}":{swuc}{$00}{CTRL-A}{CTRL-G}{CTRL-X}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}L{CBM-G}{down}{left}{CBM-G}":{swuc}{$00}{CTRL-Y}{CTRL-G}{CTRL-Y}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}O{down}{left}P{down}{left}{CBM-T}":{swuc}{$00}3{CTRL-G}{CTRL-Z}{$00}{lgrn}"{left}B{down}{left}B{up}{up}{rght}{CBM-@}{down}{left}L{down}{left}L{CBM-G}":{swuc}{$00}i{CTRL-G}{esc}{$00}{lgrn}"{left}B{down}{left}B{up}{rght}{CBM-T}{CBM-G}{down}{left}{CBM-G}":{swuc}{$00}{$73}{CTRL-G}{red}{$00}{lgrn}"{left}B{down}{left}B{up}{up}{rght}{CBM-@}{down}{left}{left}{CBM-M} {CBM-G}{down}{left}{left}{left}{CBM-M}{CBM-T}{CBM-G}{down}{left}{left}{CBM-T}{up}":{swuc}:{$8f}{SHIFT-+}LK{$00}{f6}{CTRL-G}{rght}{$00}{lgrn}"{left}B{down}{left}B{up}{CBM-M}P{down}{left}P{down}{left}{CBM-T}":{swuc}{$00}{CBM-X}{CTRL-G}{grn}{$00}{f6}g${CBM-R}"a"{CBM-P}a1{CBM-R}n1{CBM-N}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{gry1}216,4:{sret}55:{swuc}{$00}{$f2}{CTRL-G}{blu}{$00}{f6}g${CBM-R}"a"{CBM-P}((10{CBM-D}a2){CBM-N}a1){CBM-R}n1{CBM-N}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}{$00}{del}{dish} {$00}{f6}g${CBM-R}"a"{CBM-M}{lgrn}{CBM-T}16)"{up}{up}{rvon} wrong  {down}{down}{down}"{$00}f{dish}!{$00}{f6}g${CBM-R}"a"{CBM-M}{lgrn}{CBM-T}8)"the correct answer is"n1{CBM-N}n2:{$8f}{SHIFT-+}LK{$00}{$71}{dish}#{$00}{f6}g${CBM-R}"s"{CBM-P}a1{CBM-R}n1{CBM-Q}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}{$00}{CBM-+}{dish}${$00}{f6}g${CBM-R}"s"{CBM-P}((10{CBM-D}a2){CBM-N}a1){CBM-R}n1{CBM-Q}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}{$00}H{dish}%{$00}{f6}g${CBM-R}"s"{CBM-M}{lgrn}{CBM-T}16)"{up}{up}{rvon} wrong  {down}{down}{down}"{$00}{$f5}{dish}&{$00}{f6}g${CBM-R}"s"{CBM-M}{lgrn}{CBM-T}8)"the correct answer is"n1{CBM-Q}n2{$00} {ensh}({$00}{f6}g${CBM-R}"m"{CBM-P}a1{CBM-R}n1{CBM-D}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}{$00}z{ensh}){$00}{f6}g${CBM-R}"m"{CBM-P}((10{CBM-D}a2){CBM-N}a1){CBM-R}n1{CBM-D}n2{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}:{$8f}{SHIFT-+}LK{$00}{$7c}{ensh}*{$00}{f6}g${CBM-R}"m"{CBM-M}{lgrn}{CBM-T}16)"{up}{up}{rvon} wrong  {down}{down}{down}"{$00}{SHIFT-POUND}{ensh}+{$00}{f6}g${CBM-R}"m"{CBM-M}{lgrn}{CBM-T}8)"the correct answer is"n1{CBM-D}n2{$00}P{ensh}-{$00}{f6}g${CBM-R}"d"{CBM-P}a1{CBM-R}q{CBM-M}c{CBM-R}c{CBM-N}1:{yel}826:{yel}826:{sret}55:{swuc}{$00}{$f7}{ensh}.{$00}{f6}g${CBM-R}"d"{CBM-M}{lgrn}{CBM-T}17)"{up}{rvon} wrong  {down}{down}{down}{down}{down}{down}{down}{down}{down}"{$00}${$0a}/{$00}{f6}g${CBM-R}"d"{CBM-M}{lgrn}{CBM-T}8)"the correct answer is"q"{down}{down}"{$00}v{$0a}2{$00}{gry1}59467,16:{gry1}59466,13:{gry1}59464,255:{orng}n{CBM-R}1{CBM-@}50:{$82}:{$8f}{SHIFT-+}LK{$00}{$75}{$0a}3{$00}{gry1}59466,0:{gry1}59467,0:{gry1}59464,0{$00}{CBM-M}{$0a}4{$00}{lgrn}{CBM-T}4)"{rvon}{down}{down}{down}push any number key to continue":{sret}58{$00}{CBM-O}{$0a}5{$00}{CBM-K}x$:{f6}x${CBM-R}""{f2}53{$00}{CBM-B}{$0a}6{$00}{swuc}{$00}{$ec}{$0a}7{$00}{gry1}59467,16:{gry1}59466,130:{gry1}59464,25:{orng}n{CBM-R}1{CBM-@}50:{$82}{$00}
{CTRL-K}8{$00}{gry1}59466,0:{gry1}59467,0:{gry1}59464,0:{swuc}{$00}!{CTRL-K}:{$00}{orng}n{CBM-R}1{CBM-@}10:{CBM-K}x$:{$82}:{swuc}{$00}{$6a}{CTRL-K}={$00}{lgrn}"{clr}{down}{down}{down}{down}{down}{down}do you want to join the {rvon}a{rvof}ddition,{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}s{rvof}ubtraction,";{$00}{CBM-P}{CTRL-K}>{$00}{lgrn}"{rght}{rvon}m{rvof}ultiplication, {rvon}d{rvof}ivision,{rght}{rght}{down}or {rvon}c{rvof}ombination facts club?"{$00}{$e8}{CTRL-K}?{$00}{lgrn}"{down}{down}{down}push {rvon}a{rvof}, {rvon}s{rvof}, {rvon}m{rvof}, {rvon}d{rvof}, or {rvon}c{rvof}.":gc{CBM-R}0:{sret}58:{$8f}{SHIFT-+}LK{$00}{$fa}{CTRL-K}@{$00}{CBM-K}g$:{f6}g${CBM-R}""{f2}64{$00}
{CTRL-L}a{$00}{sret}55:ts{CBM-R}ti:t{CBM-R}20{$00} {CTRL-L}b{$00}{f6}g${CBM-R}"n"{CBM-M}c{CBM-R}0:{f2}8{$00}0{CTRL-L}c{$00}{f6}gg${CBM-R}"c"{f2}80{$00}?{CTRL-L}d{$00}{f6}g${CBM-R}"a"{f2}91{$00}n{CTRL-L}e{$00}{f6}g${CBM-R}"s"{f2}91{$00}]{CTRL-L}f{$00}{f6}g${CBM-R}"m"{f2}91{$00}{$6c}{CTRL-L}g{$00}{f6}g${CBM-R}"d"{f2}91{$00}{$83}{CTRL-L}h{$00}{f6}g${CBM-R}"c"{CBM-M}gg${CBM-R}g$:{f2}80{$00}{CBM-F}{CTRL-L}i{$00}{lgrn}"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}":{sret}55:gc{CBM-R}gc{CBM-N}1:{f6}gc{CBM-E}8{f2}61:{$8f}{SHIFT-+}LK{$00}C{CTRL-L}k{$00}{f2}64{$00}{$e7}{CTRL-L}p{$00}gg{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}4{CBM-N}1):{f6}gg{CBM-R}1{CBM-M}g${CBM-R}"a":{f2}68{$00}{$fc}{CTRL-L}q{$00}{f6}gg{CBM-R}2{CBM-M}g${CBM-R}"s":{f2}68{$00}{down}
r{$00}{f6}gg{CBM-R}3{CBM-M}g${CBM-R}"m":{f2}68{$00}&
s{$00}{f6}gg{CBM-R}4{CBM-M}g${CBM-R}"d":{f2}68{$00}l
[{$00}{f6}c{CBM-R}0{CBM-M}{lgrn}"{clr}{rght}"{CBM-J}((ti{CBM-Q}ts){CBM-Z}60){CBM-T}32)c:{f2}100{$00}{f1}
\{$00}{f6}c{CBM-E}0{CBM-M}{lgrn}"{clr}{rght}"{CBM-J}((ti{CBM-Q}ts){CBM-Z}60);"+"{CBM-T}14)(((ti{CBM-Q}ts){CBM-Z}60){CBM-Z}c){CBM-T}32)c{$00}{CBM-@}
^{$00}{f6}c{CBM-E}9{CBM-P}((ti{CBM-Q}ts){CBM-Z}60){CBM-Z}c{CBM-W}z{f2}1000{$00}{$de}
{$64}{$00}{f6}g${CBM-R}"d"{CBM-M}dv{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}9){CBM-N}1:q{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}9){CBM-N}1:dd{CBM-R}{CBM-J}(dv{CBM-D}q):n1{CBM-R}dd{$00}{$ef}
{$65}{$00}{f6}un{CBM-W}{CBM-E}31{CBM-M}{gry1}y,f{$00}{CTRL-V}{swlc}{$66}{$00}{f6}g${CBM-R}"d"{CBM-P}dd{CBM-E}9{CBM-M}n1{CBM-R}{CBM-J}(dd{CBM-Z}10):t{CBM-R}18:{f2}183{$00}1{swlc}{$67}{$00}{f6}g${CBM-R}"d"{CBM-M}t{CBM-R}21:{f2}183:{$8f}{SHIFT-+}LK{$00}{$6c}{swlc}{$68}{$00}{f6}g${CBM-R}"d"{CBM-M}n1{CBM-R}{CBM-J}(dd{CBM-Q}(10{CBM-D}n1)):{lgrn}"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}":t{CBM-R}21:{f2}183{$00}{CBM-@}{swlc}{$6e}{$00}{f6}g${CBM-R}"d"{CBM-M}{lgrn}{CBM-T}17)"{CBM--}{up}{left}{CBM--}{up}{left}{CBM--}{up}{left}{CBM--}{up}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":n2{CBM-R}dv:t{CBM-R}13:{f2}255{$00}N{swlc}{CBM-H}{$00}n1{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}10):{f6}g${CBM-R}"s"{CBM-M}n1{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}19){CBM-N}1{$00}{$e2}{swlc}{CBM-Y}{$00}{f6}g${CBM-R}"d"{CBM-M}{lgrn}"{down}{down}{down}{down}"{$00}{$f4}{swlc}{CBM-U}{$00}{f6}g${CBM-W}{CBM-E}"d"{CBM-M}t{CBM-R}20{$00}{wht}{CTRL-O}{CBM-O}{$00}{lgrn}{CBM-T}t)"{down}{down}{down}{down}{down}";{$00}{home}{CTRL-O}H{$00}{f6}n1{CBM-R}0{CBM-M}{sret}10{$00}!{CTRL-O}I{$00}{f6}n1{CBM-R}1{CBM-M}{sret}11{$00}/{CTRL-O}J{$00}{f6}n1{CBM-R}2{CBM-M}{sret}12{$00}={CTRL-O}K{$00}{f6}n1{CBM-R}3{CBM-M}{sret}13{$00}k{CTRL-O}L{$00}{f6}n1{CBM-R}4{CBM-M}{sret}14{$00}y{CTRL-O}M{$00}{f6}n1{CBM-R}5{CBM-M}{sret}15{$00}{$67}{CTRL-O}N{$00}{f6}n1{CBM-R}6{CBM-M}{sret}16{$00}{$75}{CTRL-O}O{$00}{f6}n1{CBM-R}7{CBM-M}{sret}17{$00}{$83}{CTRL-O}P{$00}{f6}n1{CBM-R}8{CBM-M}{sret}18{$00}{up}{CTRL-O}Q{$00}{f6}n1{CBM-R}9{CBM-M}{sret}19{$00}{$a0}{CTRL-O}R{$00}{f6}n1{CBM-R}10{CBM-M}{sret}20{$00}{CBM-P}{CTRL-O}S{$00}{f6}n1{CBM-R}11{CBM-M}{sret}21{$00}{CBM-V}{CTRL-O}T{$00}{f6}n1{CBM-R}12{CBM-M}{sret}22{$00}M{CTRL-O}U{$00}{f6}n1{CBM-R}13{CBM-M}{sret}23{$00}{CBM--}{CTRL-O}V{$00}{f6}n1{CBM-R}14{CBM-M}{sret}24{$00}{$f0}{CTRL-O}W{$00}{f6}n1{CBM-R}15{CBM-M}{sret}25:{$8f}{SHIFT-+}LK{$00}~{CTRL-O}X{$00}{f6}n1{CBM-R}16{CBM-M}{sret}26{$00}{swlc}{CTRL-P}Y{$00}{f6}n1{CBM-R}17{CBM-M}{sret}27{$00}{rght}{CTRL-P}Z{$00}{f6}n1{CBM-R}18{CBM-M}{sret}28{$00},{CTRL-P}{SHIFT-+}{$00}{f6}n1{CBM-R}19{CBM-M}{sret}29{$00}g{CTRL-P}{CBM--}{$00}{f6}g${CBM-R}"d"{CBM-P}dd{CBM-W}10{CBM-A}t{CBM-R}21{f2}110{$00}\{CTRL-P}{$e1}{$00}{f6}g${CBM-R}"d"{CBM-P}dd{CBM-E}9{f2}104{$00}{$80}{CTRL-P}{$fa}{$00}n2{CBM-R}{CBM-J}({CBM-F}(1){CBM-D}10):{f6}g${CBM-R}"s"{CBM-P}n2{CBM-E}n1{f2}250{$00}{f2}{CTRL-P}~{$00}{f2}260{$00}{CBM-A}{CTRL-P}{CTRL-D}{CTRL-A}{lgrn}"{home}"{CBM-T}t)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:{f6}g${CBM-R}"d"{CBM-M}{lgrn}"{down}";{$00}{CBM-V}{CTRL-P},{CTRL-A}{f6}n2{CBM-R}0{CBM-M}{sret}10{$00}L{CTRL-P}-{CTRL-A}{f6}n2{CBM-R}1{CBM-M}{sret}11{$00}Z{CTRL-P}.{CTRL-A}{f6}n2{CBM-R}2{CBM-M}{sret}12{$00}{$e8}{CTRL-P}/{CTRL-A}{f6}n2{CBM-R}3{CBM-M}{sret}13{$00}{$f6}{CTRL-P}0{CTRL-A}{f6}n2{CBM-R}4{CBM-M}{sret}14{$00}{CTRL-D}{down}1{CTRL-A}{f6}n2{CBM-R}5{CBM-M}{sret}15{$00}{rvon}{down}2{CTRL-A}{f6}n2{CBM-R}6{CBM-M}{sret}16{$00} {down}3{CTRL-A}{f6}n2{CBM-R}7{CBM-M}{sret}17{$00}.{down}4{CTRL-A}{f6}n2{CBM-R}8{CBM-M}{sret}18{$00}a{down}5{CTRL-A}{f6}n2{CBM-R}9{CBM-M}{sret}19:{$8f}{SHIFT-+}LK{$00}{$64}{down}m{CTRL-A}{f6}g${CBM-R}"m"{CBM-M}{lgrn}{CBM-T}18)"{up}V{down}{down}{left}{left}{left}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"{$00}{f5}{down}p{CTRL-A}{f6}g${CBM-R}"a"{CBM-M}{lgrn}{CBM-T}18)"{up}{SHIFT-+}{down}{down}{left}{left}{left}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"{$00}{CBM-N}{down}s{CTRL-A}{f6}g${CBM-R}"s"{CBM-M}{lgrn}{CBM-T}18)"{up}C{down}{down}{left}{left}{left}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"{$00}B{down}^{CTRL-A}{f6}g${CBM-R}"m"{CBM-P}n1{CBM-D}n2{CBM-E}9{f2}430{$00}Z{down}{$60}{CTRL-A}{f6}g${CBM-R}"a"{CBM-P}n1{CBM-N}n2{CBM-E}9{f2}430{$00}{$f2}{down}{$62}{CTRL-A}{f6}g${CBM-R}"s"{CBM-P}n1{CBM-Q}n2{CBM-E}9{f2}430{$00}{wht}{rvon}{$68}{CTRL-A}{orng}i{CBM-R}1{CBM-@}10:{CBM-K}a$:{$82}i{$00}{CTRL-X}{rvon}{$72}{CTRL-A}{CBM-K}a$:{f6}a${CBM-R}""{f2}370{$00}v{rvon}{$73}{CTRL-A}{f6}a${CBM-R}"r"{CBM-M}{lgrn}"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}try again":{orng}n{CBM-R}1{CBM-@}2000:{$82}{$00}{$69}{rvon}{$74}{CTRL-A}{f6}a${CBM-R}"r"{CBM-M}c{CBM-R}0:{f2}9{$00}{$7c}{rvon}{$75}{CTRL-A}{f6}a${CBM-R}"n"{CBM-M}c{CBM-R}0:{f2}8{$00}{CBM-I}{rvon}{$76}{CTRL-A}{f6}g${CBM-R}"d"{CBM-M}{lgrn}{CBM-T}21)"{up}{up}{up}{up}{up}{up}{up}";:{f2}379:{$8f}{SHIFT-+}LK{$00}{CBM-A}{rvon}{$77}{CTRL-A}{lgrn}{CBM-T}20)"{down}";{$00}{CBM-X}{rvon}{$7b}{CTRL-A}a1{CBM-R}E(a$){$00}K{rvon}{blk}{CTRL-A}{f6}a1{CBM-R}0{CBM-M}{sret}10{$00}Y{rvon}{up}{CTRL-A}{f6}a1{CBM-R}1{CBM-M}{sret}11{$00}{$e7}{rvon}{rvof}{CTRL-A}{f6}a1{CBM-R}2{CBM-M}{sret}12{$00}{$f5}{rvon}{clr}{CTRL-A}{f6}a1{CBM-R}3{CBM-M}{sret}13{$00}{stop}{home}{inst}{CTRL-A}{f6}a1{CBM-R}4{CBM-M}{sret}14{$00}{down}{home}{brn}{CTRL-A}{f6}a1{CBM-R}5{CBM-M}{sret}15{$00}{blu}{home}{lred}{CTRL-A}{f6}a1{CBM-R}6{CBM-M}{sret}16{$00}-{home}{gry1}{CTRL-A}{f6}a1{CBM-R}7{CBM-M}{sret}17{$00};{home}{gry2}{CTRL-A}{f6}a1{CBM-R}8{CBM-M}{sret}18{$00}i{home}{lgrn}{CTRL-A}{f6}a1{CBM-R}9{CBM-M}{sret}19{$00}q{home}{lblu}{CTRL-A}{sret}30{$00}y{home}{CBM-@}{CTRL-A}{f2}67{$00}{$6c}{home}{CBM-S}{CTRL-A}{orng}i{CBM-R}1{CBM-@}10:{CBM-K}a$:{$82}i{$00}{$7f}{home}{CBM-P}{CTRL-A}{CBM-K}a$:{f6}a${CBM-R}""{f2}431{$00}{CBM-X}{home}{CBM-A}{CTRL-A}{f6}a${CBM-R}"r"{CBM-M}{lgrn}"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}try again":{orng}n{CBM-R}1{CBM-@}2000:{$82}{$00}{CBM--}{home}{CBM-R}{CTRL-A}{f6}a${CBM-R}"r"{CBM-M}c{CBM-R}0:gg${CBM-R}"":{f2}9:{$8f}{SHIFT-+}LK{$00}{$ef}{home}{CBM-W}{CTRL-A}{f6}a${CBM-R}"n"{CBM-M}c{CBM-R}0:{f2}8{$00}{$fc}{home}{CBM-U}{CTRL-A}a2{CBM-R}E(a$){$00}{esc}{del}{$ea}{CTRL-A}{lgrn}"{home}"{CBM-T}16)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";{$00}){del}{$f4}{CTRL-A}{f6}a2{CBM-R}0{CBM-M}{sret}10{$00}7{del}{$f5}{CTRL-A}{f6}a2{CBM-R}1{CBM-M}{sret}11{$00}e{del}{$f6}{CTRL-A}{f6}a2{CBM-R}2{CBM-M}{sret}12{$00}s{del}{$f7}{CTRL-A}{f6}a2{CBM-R}3{CBM-M}{sret}13{$00}{$61}{del}{$f8}{CTRL-A}{f6}a2{CBM-R}4{CBM-M}{sret}14{$00}{$6f}{del}{$f9}{CTRL-A}{f6}a2{CBM-R}5{CBM-M}{sret}15{$00}{$7d}{del}{$fa}{CTRL-A}{f6}a2{CBM-R}6{CBM-M}{sret}16{$00}{f6}{del}{$fb}{CTRL-A}{f6}a2{CBM-R}7{CBM-M}{sret}17{$00}{lgrn}{del}{$fc}{CTRL-A}{f6}a2{CBM-R}8{CBM-M}{sret}18{$00}{CBM-D}{del}{$fd}{CTRL-A}{f6}a2{CBM-R}9{CBM-M}{sret}19:{$8f}{SHIFT-+}LK{$00}{CBM-B}{del}{dish}{CTRL-B}{CBM-K}a$:{f6}a${CBM-R}""{f2}520{$00}L{del}
{CTRL-B}a1{CBM-R}E(a$){$00}{$eb}{del}&{CTRL-B}{lgrn}"{home}"{CBM-T}20)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";{$00}{$f9}{del}x{CTRL-B}{f6}a1{CBM-R}0{CBM-M}{sret}10{$00}{CTRL-G}{CTRL-U}y{CTRL-B}{f6}a1{CBM-R}1{CBM-M}{sret}11{$00}{CTRL-U}{CTRL-U}z{CTRL-B}{f6}a1{CBM-R}2{CBM-M}{sret}12{$00}#{CTRL-U}[{CTRL-B}{f6}a1{CBM-R}3{CBM-M}{sret}13{$00}1{CTRL-U}\{CTRL-B}{f6}a1{CBM-R}4{CBM-M}{sret}14{$00}?{CTRL-U}]{CTRL-B}{f6}a1{CBM-R}5{CBM-M}{sret}15{$00}m{CTRL-U}^{CTRL-B}{f6}a1{CBM-R}6{CBM-M}{sret}16{$00}[{CTRL-U}_{CTRL-B}{f6}a1{CBM-R}7{CBM-M}{sret}17{$00}{$69}{CTRL-U}{$60}{CTRL-B}{f6}a1{CBM-R}8{CBM-M}{sret}18{$00}{$77}{CTRL-U}{$61}{CTRL-B}{f6}a1{CBM-R}9{CBM-M}{sret}19{$00}{$7f}{CTRL-U}{CBM-C}{CTRL-B}{sret}30{$00}{f5}{CTRL-U}F{CTRL-B}{f2}67{$00}{CBM-O}{CTRL-U}{$e8}{stop}{lgrn}"{home}{down}{rvon}seconds"{CBM-T}15)"sec./prob."{CBM-T}32)"right":{$8f}{SHIFT-+}LK{$00}{$f4}{CTRL-U}{$f2}{stop}{orng}s{CBM-R}1{CBM-@}50:{lgrn}"{home}"{CBM-T}12)"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}congratulations!":{gry1}59467,16{$00}3{CTRL-V}{$f7}{stop}{gry1}59466,20:{gry1}59464,220:{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"{CBM-T}12)"{rvon}congratulations!"{$00}n{CTRL-V}{$fc}{stop}{gry1}59466,180:{gry1}59464,40:{$82}{$00}{$64}{CTRL-V}{CTRL-A}{CTRL-D}{gry1}59467,0:{gry1}59466,0{$00}{$7c}{CTRL-V}{CTRL-D}{CTRL-D}{f6}z{CBM-R}1.5{CBM-A}z{CBM-W}1.5{CBM-M} {sret}1050{$00}{lblu}{CTRL-V}{CTRL-F}{CTRL-D}{lgrn}{CBM-T}12)"{down}{down}{down}you have joined"{$00}S{CTRL-V}{CTRL-G}{CTRL-D}{f6}gg${CBM-R}"c"{CBM-M}{lgrn}{CBM-T}4)"{down}the"z"second combination club!":{f2}1090{$00}
{CTRL-W}{dish}{CTRL-D}{f6}g${CBM-R}"a"{CBM-M}{lgrn}{CBM-T}5)"{down}the"z"second addition club!":{f2}1090:{$8f}{SHIFT-+}LK{$00}e{CTRL-W}{$0a}{CTRL-D}{f6}g${CBM-R}"s"{CBM-M}{lgrn}{CBM-T}3)"{down}the"z"second subtraction club!":{f2}1090{$00}{$80}{CTRL-W}{CTRL-L}{CTRL-D}{f6}g${CBM-R}"m"{CBM-M}{lgrn}{CBM-T}3)"{down}the"z"second multiplication club!":{f2}1090{$00}{CBM-J}{CTRL-W}{swlc}{CTRL-D}{f6}g${CBM-R}"d"{CBM-M}{lgrn}{CBM-T}6)"{down}the"z"second division club!":{f2}1090{$00}{$f1}{CTRL-W}{CTRL-Z}{CTRL-D}{lgrn}"{clr}":{orng}n{CBM-R}1{CBM-@}15:{lgrn}"{rght}{rght}{rght}{rvon}you are an honorary microprocessor!"{$00}"{CTRL-X}{red}{CTRL-D}{gry1}59466,25:{gry1}59467,16:{orng}q{CBM-R}255{CBM-@}25{SHIFT-POUND}{CBM-Q}10:{gry1}59464,q:{$82}{$00}t{CTRL-X}{grn}{CTRL-D}{orng}r{CBM-R}25{CBM-@}255{SHIFT-POUND}10:{gry1}59464,r:{$82}:{$82}:{gry1}59467,0:{gry1}59466,0:{swuc}{$00}{swuc}{CTRL-X}b{CTRL-D}{f6}z{CBM-E}1.5{CBM-M}{lgrn}{CBM-T}5)"{down}{down}{down}{rvon}push any number key to continue":{$8f}{SHIFT-+}LK{$00}G{CTRL-X}c{CTRL-D}{f6}z{CBM-R}1.5{CBM-A}z{CBM-W}1.5{CBM-M}{lgrn}{CBM-T}5)"{down}{rvon}push any number key to continue"{$00}{CBM--}{CTRL-X}d{CTRL-D}{f6}z{CBM-E}4{CBM-M}z{CBM-R}z{CBM-Q}1:{f2}1107{$00}{$f8}{CTRL-X}e{CTRL-D}{f6}z{CBM-W}4.1{CBM-P}z{CBM-E}2{CBM-M}z{CBM-R}z{CBM-Q}.2:{f2}1107{$00}{rvon}{CTRL-Y}f{CTRL-D}{f6}z{CBM-W}2.1{CBM-M}z{CBM-R}{CBM-J}(10{CBM-D}z{CBM-Q}1){CBM-Z}10{$00}{CTRL-Z}{CTRL-Y}s{CTRL-D}{sret}58{$00}.{CTRL-Y}t{CTRL-D}{CBM-K}h$:{f6}h${CBM-R}""{f2}1108{$00}={CTRL-Y}u{CTRL-D}c{CBM-R}0:gg${CBM-R}""{$00}d{CTRL-Y}v{CTRL-D}{f2}9{$00}]{CTRL-Y}{CBM--}{wht}{orng}j{CBM-R}826{CBM-@}848:{f5}i:{gry1}j,i:{$82}{$00}{CBM-T}{CTRL-Y}{$e6}{wht}{$83}162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247,232{$00}{CBM-F}{CTRL-Y}{$f0}{wht}{$83}224,132,208,240,96{$00}A{CTRL-Y}{$fa}{wht}{swuc}{$00}{$fc}{CTRL-Y}P{CTRL-G}{lgrn}"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}the"z"second club":{lgrn}{CBM-T}15)"{down}copyright":{$8f}{SHIFT-+}LK{$00}1{CTRL-Z}Q{CTRL-G}{lgrn}{CBM-T}12)"{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}":{lgrn}{CBM-T}10)"{rvon}    micrograms    "{$00}{$62}{CTRL-Z}R{CTRL-G}{lgrn}{CBM-T}12)"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}":{lgrn}{CBM-T}17)"1981":un{CBM-R}B(30{CBM-S}2){$00}{lred}{CTRL-Z}U{CTRL-G}{lgrn}"{down}{down}{down}{rght}{rght}{rght}{rght}to join the"z"second club get":y{CBM-R}59411{$00}C{CTRL-Z}Z{CTRL-G}{lgrn}"{down}{rght}more than 9 problems right in less{down}"{$00}{$ec}{CTRL-Z}{$e4}{CTRL-G}{lgrn}"{rght}than"z"seconds per problem.":f{CBM-R}60{$00}"{esc}{$ee}{CTRL-G}{lgrn}"{down}{down}{down} Nto restart during a game, push {rvon}r{rvof}.M":{$8f}{SHIFT-+}LK{$00}3{esc}{$f1}{CTRL-G}{lgrn}" {CBM-G}"{CBM-T}35)"{CBM-M}"{$00}{$65}{esc}{$f3}{CTRL-G}{lgrn}" M     to begin anew, push {rvon}n{rvof}.      N":{sret}58{$00}{CBM-K}{esc}{$f6}{CTRL-G}{lgrn}{CBM-T}4)"{rvon}{down}push any number key to start":{f6}B(15{CBM-D}60){CBM-W}{CBM-E}31{f2}1500{$00}{CBM-J}{esc}{$f7}{CTRL-G}{CBM-K}r$:{f6}r${CBM-R}""{f2}2039{$00}H{esc}{$f8}{CTRL-G}{f6}r${CBM-R}"n"{CBM-M}c{CBM-R}0:{f2}8{$00}N{esc}{$f9}{CTRL-G}{swuc}{$00}{$00}{$00}{wht}j{$00}{f4}t@{$00}{$00}i{$00}{$84}0{$00}{$00}{$00}z{$00}{$83} {$00}{$00}{$00}un{f1}{$78}{$00}{$00}{$00}y{$00}{blk}{$68}{home}{$00}{$00}f{$00}{f3}{$70}{$00}{$00}{$00}n{$00}{$84}0{$00}{$00}{$00}x{$80}{$00}{$00}{$00}{$00}{$00}r{$80}{CTRL-A}y{$7e}{$00}{$00}gc{$00}{$00}{$00}{$00}{$00}g{$80}{CTRL-A}{$f5}{CTRL-L}{$00}{$00}ts{blk}){$8f}{$00}{$00}t{$00}{f1} {$00}{$00}{$00}dv{orng}{$00}{$00}{$00}{$00}q{$00}{orng}{$00}{$00}{$00}{$00}dd{orng}{$00}{$00}{$00}{$00}n1{f1}{$00}{$00}{$00}{$00}n2{$83}{$00}{$00}{$00}{$00}a{$80}{CTRL-A}{rght}{$7e}{$00}{$00}a1{$82}{$00}{$00}{$00}{$00}c{$00}{$84} {$00}{$00}{$00}s{$00}{f3}l{$00}{$00}{$00}h{$80}{$00}{$00}{$00}{$00}{$00}gG{CTRL-A}s{$7e}{$00}{$00}a2{orng}{$00}{$00}{$00}{$00}gg{$82}{$00}{$00}{$00}{$00}    0 clr:pg$="skeet!":nm$="28":goto62000
    1 " bob carr
    2 " 3902 w. rovey
    3 " phoenix, az 85019
    4 "
    5 " cursor #28, nov 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca 93116
    8 "
   10 " as of 20nov81
  100 rem
  270 print"{clr}{down}{down}{down}enter names in 6 or fewer letters
  280 print"{down}{down}who is team a's captain? ";:gosub60000:ifin$=""thenin$="team{$a0}a
  290 t$=left$(in$,6):
  300 print"{down}{down}who is team b's captain? ";:gosub60000:ifin$=""thenin$="team{$a0}b
  310 m$=left$(in$,6)
  320 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon} {CBM-*}"spc(36)" {left}{inst}{SHIFT-POUND}"
  330 print"{rvon}  {CBM-*}"spc(34)"{SHIFT-POUND} {left}{inst} {rvof}"
  340 print" {CBM-M}"spc(36)" {left}{inst}{inst}{CBM-G}"
  350 print"{rvon}{SHIFT-+}{rvof}{CBM-M}"spc(36)"{rvon}{SHIFT-+}{rvof}{left}{inst}{CBM-G}"
  360 print" {CBM-M}"spc(36)"{CBM-G}"
  370 print" {CBM-+}{CBM-POUND}{CBM-+}"spc(32)"{CBM-+}{CBM-POUND}{CBM-+}
  380 print" {CBM--}{CBM-+}{CBM-POUND}"spc(30)"{CBM-POUND}{CBM--}{CBM-+}{CBM--}{CBM-G}
  390 print"{CBM-+}{CBM-POUND}{CBM-+}{CBM-POUND}{CBM-+}"spc(30)"{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{left}{inst}{CBM--}"
  400 print" {CBM-+}{CBM-+}{CBM-+}"spc(31)"{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}
  410 print" {CBM-+}{CBM-+}{CBM-POUND}{CBM--}"spc(29)"{CBM-POUND}{CBM--}{CBM-+}{CBM--}{CBM-+}
  420 print"  {CBM-Q}K{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT--}
  430 print"{rght}{CBM-POUND}{CBM-POUND}{CBM-POUND}";:forx=1to32:print"{CBM-+}";:next:print"{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  440 forx=1to39:print"{CBM-Y}";:next:pokecrt+wd*24+39,119:poke59467,16:h=59466:g=59464
  450 print"{home}"t$:print"{home}"tab(40-len(m$))"{rvon}"m$
  455 z$="{up}{up}{up}{up}{up}{up}{up}{up}{up}"
  460 a$="M{down}{rvon}{CBM-*}{rvof}{CBM-R}I{left}{left}{left}{down}{rvon}{CBM-C}{CBM-C}{rvof}K{left}{left}{left}{down}{CBM-*}{rvon} {rvof}{CBM-K}{left}{left}{left}{down}{CBM-M}{rvon} {rvof}{CBM-H}{left}{left}{left}{down}{rvon}{SHIFT-POUND} {rvof}{left}{left}{left}{down}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon} {left}{left}{left}{down} {rght} {left}{left}{left}{down}{CBM-V}{rght}{CBM-V}{rvof}"
  470 b$="N{left}{left}{left}{left}{down}U{CBM-R}{rvon}{SHIFT-POUND}{rvof}{left}{left}{left}{down}J{rvon}{CBM-V}{CBM-V}{rvof}{left}{left}{left}{down}{rvon}{CBM-K} {rvof}{SHIFT-POUND}{left}{left}{left}{down}{CBM-N}{rvon} {rvof}{CBM-G}{left}{left}{down}{rvon} {CBM-*}{left}{left}{down} {rvof}{CBM-*}{rvon}{CBM-*}{left}{left}{left}{down} {rght} {rvof}"
  480 b$=b$+"{left}{left}{left}{down}{rvon}{CBM-C}{rght}{CBM-C}{rvof}"
  490 c$="{left} {CBM-G}{left}{left}{left}{down}U{CBM-R}{rvon}{CBM-*}{rvof}{left}{left}{left}{down}J{rvon}{CBM-V}{CBM-V}{rvof}{left}{left}{left}{down}{rvon}{CBM-K} {rvof}{SHIFT-POUND}{left}{left}{left}{down}{CBM-N}{rvon} {rvof}{CBM-H}{left}{left}{left}{down}{CBM-L}{rvon} {CBM-*}{rvof}{left}{left}{left}{down}{CBM-N}{rvon}{CBM-N} {rvof}{left}{left}{left}{down}{CBM-N}{rvon}{CBM-N} {rvof}"
  500 c$=c$+"{left}{left}{left}{down}{CBM-D}{CBM-K}{rvon}{CBM-C}{rvof}"
  510 a$=a$+"{left}{left}{left}{left}"+z$:b$=b$+z$:c$=c$+"{left}"+z$:z$=""
  520 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  530 e$="  {left}{left}{left}{left}{left}{down}       {left}{left}{left}{left}{left}{left}{left}{down}       {left}{left}{left}{left}{left}{left}{left}{down}       {left}{left}{left}{left}{left}{left}{left}{down}       {left}{left}{left}{left}{left}{left}{left}{down}"
  540 e$=e$+"       {left}{left}{left}{left}{left}{left}{left}{down}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{left}{left}{left}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-*}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT-POUND}{home}"
  550 pokeh,14:pokeg,0:bb=.5:goto660
  560 ifz$="q"then1275
  565 bb=bb+.5:ifp>0then600
  570 forz=1to2:pokeg,250:forx=1to200:next:pokeg,0:forx=1to99:next:next
  580 ifbb=int(bb)thenf=f+1:goto620
  590 e=e+1:goto620
  600 forz=1top:gosub1210:next:pokeg,0
  610 ifbb=int(bb)thene=e+p:p=0
  620 f=f+p:p=0:print"{home}{down}{down}"e:print"{home}{down}{down}"spc(36)f
  630 ife=fthen660
  640 ife>20ande>fandbb<>int(bb)orf>20andf>eandbb<>int(bb)then1230
  650 forx=1to999:next:pokeh,15:pokeg,50:forx=1to50:next:pokeh,14:pokeg,0
  660 db=0:printd$e$:gosub1300:c=rnd(1):l=l+1:ifbb=2.5thenbb=.5
  670 ifl>10thenl=1
  680 ch=1:aa=16:a=crt+11*wd:b=crt+wd*11+39
  690 ifl<>9then705
  700 printd$"{left}{left}{left}{rvon}doubles{rvof}":forz=1to4:pokeg,100:forx=1to75:next:pokeg,0:next
  705 printd$;"{left}{left}{left}{left}{left}press a key"
  710 getz$:ifz$=""then710
  715 printd$;"{left}{left}{left}{left}{left}           "
  717 ifz$="q"then1275
  720 pokeg,90:forz=1to20:next:pokeg,0
  730 ifbb>1orl>8then750
  740 printd$a$;:gosub870:goto960
  750 ifl>8then770
  760 printd$b$;:gosub870:goto880
  770 printd$"{left}{left}{left}       "d$c$;:gosub870:n=81
  780 forx=1to10:pokea,32:a=a-wd+1:pokea,81:pokeb,32:b=b-wd-1:pokeb,81
  790 forz=1to10:next:ifaa=16thengosub1040
  800 gosub1100:next:forx=1to19:pokea,32:a=a+1:pokea,n:pokeb,32:b=b-1:pokeb,81
  810 ifaa=16thengosub1040
  820 gosub1100:ifpeek(b+wd)=46thend=b:p=p+4:db=1:gosub1120:db=0:goto1120
  830 ifpeek(a+wd)=46thend=a:p=p+2:db=1:gosub1120
  840 gosub1100:next:forx=1to10:pokea,32:a=a+wd+1:pokea,n:pokeb,32:b=b+wd-1
  850 pokeb,81:ifaa=16thengosub1040
  860 gosub1100:next:pokea,32:pokeb,32:print" ":goto560
  870 forx=1toc*3000:next:return
  880 forx=1to10:pokea,32:a=a-wd+1:pokea,81:ifaa=16thengosub1040
  890 gosub1080:ifc<.25thenforz=1to40:next:gosub1080
  900 next:forx=1to20:pokea,32:a=a+1:pokea,81:ifaa=16thengosub1040
  910 gosub1080:ifc<.25thenforz=1to30:next:gosub1080
  920 next:forx=1to9:pokea,32:a=a+wd+1:pokea,81:ifaa=16thengosub1040
  930 gosub1080:ifpeek(a)=46thend=a:p=p+2:goto1120
  940 ifpeek(a+wd+1)=58orpeek(a+wd-1)=46thend=a+wd+1:p=p+1:goto1120
  950 next:pokea,32:aa=16:print" ":goto560
  960 forx=1to10:pokeb,32:b=b-wd-1:pokeb,81:ifaa=16thengosub1040
  970 gosub1060:ifc<.25thenforz=1to40:next:gosub1060
  980 next:forx=1to19:pokeb,32:b=b-1:pokeb,81:ifaa=16thengosub1040
  990 gosub1060:ifc<.25thenforz=1to30:next:gosub1060
 1000 next:forx=1to10:pokeb,32:b=b+wd-1:pokeb,81:ifaa=16thengosub1040
 1010 gosub1060:ifpeek(b)=46thend=b:p=p+2:goto1120
 1020 ifpeek(b+wd+1)=46orpeek(b+wd-1)=46thend=b+wd-1:p=p+1:goto1120
 1030 next:pokeb,32:aa=16:print" ":goto560
 1040 getz$:ifz$<>""thenaa=0
 1050 return
 1060 ifaa<14thenprint" {left}{left}{up}.{left}";:aa=aa+1
 1065 ifaa=14thenprint" {left}";:aa=aa+1
 1070 return
 1080 ifaa<14thenprint" {up}.{left}";:aa=aa+1
 1085 ifaa=14thenprint" {left}";:aa=aa+1
 1090 return
 1100 ifaa<15andch=1thenprint" {left}{up}.{left}";:aa=aa+1
 1105 ifaa=15thenprint" {left}";
 1110 return
 1120 pokeg,31:print" ":pokeg,200:pokeh,50:pokea,32:pokeb,32:poked,42
 1130 poked-1,160:pokeg,50:poked+1,160:poked-wd,160:poked+wd,160
 1140 pokeh,15:forz=150to255step5:pokeg,z:next
 1150 poked-1,64:poked+1,64:poked-wd,93:poked+wd,93
 1160 poked-wd-1,77:poked+wd+1,77:poked-wd+1,78:poked+wd-1,78:poked,170
 1170 pokeh,31:forz=200to10step-5:pokeg,z:next:poked,32
 1180 poked-1,32:poked+1,32:poked-wd-1,32:poked+wd+1,32:poked-wd+1,32
 1190 poked+wd-1,32:poked+wd,32:poked-wd,32:pokeg,0:ifdb=1thenn=32:aa=17:return
 1200 forx=1to500:next:goto560
 1210 pokeh,51:forx=99to25step-1:pokeg,x:next:forx=99to50step-2:pokeg,x:next
 1220 forx=50to150step1:pokeg,x:next:pokeg,0:return
 1230 print"{home}"t$:print"{home}"tab(40-len(m$))m$
 1240 print"{home}{down}";:ife<fthenprintspc(34);
 1250 print"{rvon}winner{rvof}{left}{left}{left}{left}{left}{left}";
 1260 pokeh,31:forz=1to3:print"      {left}{left}{left}{left}{left}{left}";:forx=200to20step-1:pokeg,x:next
 1270 pokeg,0:print"{rvon}winner{rvof}{left}{left}{left}{left}{left}{left}";:forx=1to500:next:next
 1275 getz$:ifz$<>""then1275
 1280 printd$e$:printspc(12);"{down}{down}{down}play again? ";:gosub60000
 1285 ifleft$(in$,1)="n"then1340
 1290 e=0:f=0:goto320
 1300 forz=crttocrt+39:ifpeek(z)=32then1330
 1310 pokez,(peek(z)+128)and255
 1330 next:return
 1340 poke59467,0:end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 qp=515:ifpeek(50000)thenqp=151
 60430 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by bob carr
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}can you hit the birdie?
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62085 getin$:ifin$=""then62085
 62090 ifleft$(in$,1)<>"y"then60300
   90 fork=1to10:getg$:next
  100 sys3968
  110 getg$:ifg$=""then110
  120 ifg$="d"org$="D"thensys7680
  130 ifg$="w"org$="W"thensys7824
  140 ifg$="t"org$="T"thensys7760
  150 ifg$="s"org$="S"thensys1452:goto90
  160 goto100
   80 printchr$(142):poke0,18
   90 fork=1to10:getg$:next
  100 sys3968
  105 sys6968
  110 getg$:ifg$=""then110
  120 ifg$="d"org$="D"thensys7680
  130 ifg$="w"org$="W"thensys7824
  140 ifg$="t"org$="T"thensys7760
  150 ifg$="s"org$="S"thensys1452:goto90
  160 goto105
    1 rem ***********************
    2 rem *       s k i !       *
    3 rem *                     *
    4 rem *by stephen prokopchuk*
    5 rem *                     *
    6 rem ***********************
    7 rem        copy me!
    8 rem    i like to travel!
    9 rem ***********************
   10 rem*  the secret to this *
   11 rem*    program is the   *
   12 rem*  technique of using *
   13 rem*  shifted spaces in  *
   14 rem*areas the skier does *
   15 rem* not belong. shifted *
   16 rem* spaces register as  *
   17 rem*"96" instead of "32."*
   18 rem***********************
   19 rem this program works properly on
   20 rem 40 column 4.0 machines only
   21 rem
   22 rem
   24 lv=1:poke59467,0:gosub1100
   25 iflv=1thenpp=10:wt=11
   26 iflv=2thenpp=9:wt=13
   27 iflv=3thenpp=7:wt=10
   28 iflv=4thenpp=2:wt=8
   29 data 72,152,72,138,72,169,19,32,210,255,165,84,240,9,169,17,32,210
   30 data 255,198,84,208,247,165,85,240,9,169,29,32,210,255,198,85,208,247
   35 data 104,170,104,168,104,96
   40 fori=826to867:reada:pokei,a:nexti
   42 rem *****************************
   43 rem *the previous is m/l routine*
   44 rem *to re-position the cursor. *
   45 rem *****************************
   50 print"{clr}";:po=18:poke224,10
   51 fori=1to26:print"  {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}  ":rem screen of
   52 nexti           :rem shifted spaces
   53 tr$(1)="{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}"
   54 tr$(2)="{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}"
   55 tr$(3)="{rvon}{SHIFT-POUND}{$a0}{$a0}{CBM-*}{rvof}"
   56 tr$(4)="{rvon}{SHIFT-POUND}  {CBM-*}{rvof}"
   62 lp=10:rp=31:cr$="4":ch=1:e=-1:wg=1:kl=0:ti$="000000":fc=10
   80 xa=33146:xb=33147:xc=33148:ma=826:xd=224
   81 el$="{rght}{rght}   {rght}{down}{left}{left}{left}{left}{left}{left}{rght}{rght}  {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}    {rght}{down}{left}{left}{left}{left}{left}{left}"
   82 el$=el$+"{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}  {rght}{rght}{rght}{down}{left}{left}{left}{left}{left}{left}  {rght}{rght}{rght}{rght}"
   83 er$=" {rght} {rght}{rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}  {rght}{rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}    {rght}{rght}"
   84 er$=er$+"{down}{left}{left}{left}{left}{left}{left}{rght}   {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}{rght}  {rght}{rght}{down}{left}{left}{left}{left}{left}{left}{rght}{rght}{rght}  {rght}"
   85 lm$="{rght}{rght}{CBM-D} {CBM-F}{down}{left}{left}{left}QN{down}{left}{left}{left}N{rvon} {rvof}M{down}{left}{left}{left}{CBM-T}{rvon} {rvof}{CBM-T}{down}{left}{left}{left}NNNN{down}{left}{left}{left}{left}MVN{down}{left}{left}{left}NN{down}{left}{left}{left}NN
   86 rm$="{CBM-D}{$a0}{CBM-F}{down}{left}{left}MQ{down}{left}{left}N{rvon} {rvof}M{down}{left}{left}{left}{CBM-T}{rvon} {rvof}{CBM-T}{down}{left}{left}{left}{left}MMMM{down}{left}{left}{left}MVN{down}{left}{left}MM{down}{left}MM
   97 rem **********
   98 rem *the game*
   99 rem **********
  100 get a$:bp=po:op=po+kl
  101 ifa$=cr$thena$=""
  102 pokexd,128:print"{home}time:"ti$"      ski!       feet:"ft:pokexd,10
  103 ft=ft+1
  104 fori=xa-18+op to xb-18+op:p=peek(i):ifp=96thennext
  105 ifi<>xc-18+opthen1050
  120 ifa$="4"thench=1:gosub980:gosub900:cr$=a$:e=-1:wg=1:kl=0:op=po
  130 ifa$="6"thench=2:gosub980:gosub950:cr$=a$:e=1:wg=0:kl=3:op=po
  142 si=int(rnd(1)*2)+0:ifsi=1andfc<4andt2=0thent1=int(rnd(1)*2)+0:t2=1
  143 ift2=1thengosub1300
  144 gosub980:poke84,25:poke85,0:sysma:gosub1000:po=po+e:ifwg=1thengosub900:goto100
  145 gosub950:goto100
  897 rem *************
  898 rem *subroutines*
  899 rem *************
  900 poke84,1:poke85,po:sysma
  910 printlm$
  920 return
  950 poke84,1:poke85,po:sysma
  960 printrm$
  970 return
  980 poke84,1:poke85,bp:sysma
  981 ifcr$="4"thengosub1400
  982 ifcr$="6"thengosub1405
  985 return
 1000 fc=fc+1:iffc>wtthenfc=0:goto1002
 1001 iffc<>15then1010
 1002 fp=int(rnd(1)*25)+1:iffp-lp>wt or fp-lp<(-wt)then1002
 1003 poke84,20:poke85,fp:sysma:lp=fp:nf=nf+1:s$="":ifnf>9thens$="{left}":ifnf=21then1015
 1004 print"{CBM-M}{rvon}"mid$(str$(nf),2,2)"{rvof}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvon}"mid$(str$(nf),2,2)"{rvof}{CBM-G}"s$;
 1005 print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-M}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-M}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-G}"
 1006 return
 1010 poke84,22:poke85,0:sysma
 1012 print"  {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}  "
 1013 ifint(rnd(1)*10)+1>ppthenpoke32768+880+int(rnd(1)*37)+2,81
 1014 return
 1015 print:print"{down} course completed!"
 1020 goto1200
 1050 ifp=32thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}out of bounds! disqualified!":goto1200
 1051 ifp=81thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}crash! hit a rock!":goto1200
 1052 ifp=233orp=223thenprint"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}crash! hit a tree!":goto1200
 1060 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}crash! you hit a flag!":goto1200
 1100 print"{clr}";
 1101 print"      {rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon} {rvof} {rvon} {rvof}"
 1102 print"      {rvon} {rvof}   {rvon} {rvof}{SHIFT-POUND}  {rvon} {rvof} {rvon} {rvof}"
 1103 print"      {CBM-*}{rvon} {CBM-*}{rvof} {rvon} {CBM-*}{rvof}  {rvon} {rvof} {rvon} {rvof}"
 1104 print"        {rvon} {rvof} {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof} {rvon} {rvof}  "
 1105 print"      {CBM-*}{rvon} {rvof}{SHIFT-POUND} {rvon} {rvof} {CBM-*} {rvon} {rvof} {rvon} {rvof}"
 1109 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 1110 print"{rght}{rght}{CBM-D} {CBM-F}{down}{left}{left}{left}QN{down}{left}{left}{left}N{rvon} {rvof}M{down}{left}{left}{left}{CBM-T}{rvon} {rvof}{CBM-T}{down}{left}{left}{left}NNNN{down}{left}{left}{left}{left}MVN{down}{left}{left}{left}NN{down}{left}{left}{left}NN";
 1111 lv$(1)="beginner":lv$(2)="intermediate":lv$(3)="expert":lv$(4)="suicidal"
 1115 print"{up}{up}{up}{left}{left}{left}{left}{left}{CBM-M}M{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N{CBM-G}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}N{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-M}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-G}"
 1117 print"by stephen prokopchuk"
 1120 print"{down}{down}{down}{rvon}4{rvof}-left"
 1130 print"{down}{rvon}6{rvof}-right"
 1131 print"{down}{down}{down}{down}     press return to select course"
 1132 print"{down}{down}{down}        press space to start{up}{up}{up}{up}{up}{up}{up}"
 1140 print"{down}"chr$(34)"guide your man in between all 20 flags"chr$(34)
 1141 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}          "lv$(lv)" slope       "
 1150 ford=1to50:nextd:poke158,0
 1160 geta$:ifa$=""then1160
 1165 ifa$=chr$(13)thenlv=lv+1:iflv>4thenlv=1
 1166 ifa$=chr$(13)then1141
 1167 data 92,73,61,73,61
 1170 return
 1200 poke59467,16:poke59466,100:poke59464,0
 1210 ifp=96then gosub900:for v=1to5:reada:poke59464,a:ford=1to200:nextd:nextv
 1211 ifp<>96thenpoke59464,255
 1212 ford=1to100:nextd:poke158,0
 1213 poke59467,0:ford=1to2500:geta$:ifa$=""thennextd:run
 1214 run
 1300 ift1=1thent1=35
 1301 poke84,22:poke85,t1:sys(826):t3=t3+1
 1302 printtr$(t3):ift3=4thent3=0:t1=0:t2=0
 1303 return
 1400 printel$:return
 1405 printer$:return
    2 poke59467,16:poke59466,15:poke59464,0
   10 print"{clr}              ****slalom****
   20 print"                  {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
   30 print"{down}{down}{down}{down}     {down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start:-"
   40 geta$:ifa$=""then40
  200 dim gd(7),gl(7),gr(7)
  210 for g=1 to 6:gd(g)=1+5*g:next
  300 print"{clr}      {down}{down}"
  310 print"during play{down}"
  320 print"key {CBM-C}={CBM-V} to reverse up/down motion"
  330 print"key {CBM-C}@{CBM-V}to reverse left/right motion"
  335 ifx=0thenx=1:goto370
  340 print"new course?key y(yes)or n(no){down}{down}"
  350 input r$
  360 if r$="n"then500
  370 print"{down}"
  371 print"gate width?key w(wide)"
  372 print"               m(medium)"
  373 print"               n(narrow)"
  375 input r$
  380 if r$="w"then gw=4:goto400
  381 if r$="m"then gw=3:goto400
  382 if r$="n"then gw=2:goto400
  383 goto370
  400 for g=1 to 6
  410 gl(g)=int(rnd(.6)*15+1)
  420 gr(g)=gl(g)+gw
  430 next
  500 print"{clr}      {down}"
  510 for i=1 to 38:print"{rvon} ";:next:print
  520 for i=1 to 19
  525 print"{rvon} ";spc(36);" "
  530 next
  540 for i=1 to 38:print"{rvon} ";:next
  600 for g=1 to 6
  605 s=1+5*g
  610 print"{home}{down}{down}"
  620 for i=1 to 19
  630 if i>gl(g)and i<gr(g)thenprint:goto650
  640 printspc(s);"{rvon} {rvof}"
  650 next i,g
  700 i0=10:j0=1
  710 lr=1:ud=-1
  720 g=1
  730 t=ti
  740 rem this is
 1000 i1=i0+ud:j1=j0+lr
 1010 ifj1=36 then1500
 1020 ifi1>gl(g)andi1<gr(g)andj1=gd(g)-1then1300
 1050 ifi1=0ori1=20thenud=-ud:i1=i1+ud:poke59464,100
 1060 ifj1=gd(g-1)orj1=gd(g)then lr=-lr:j1=j1+lr:poke59464,200
 1070 gosub1400
 1100 get c$
 1105 poke59464,0
 1110 if c$="="then ud =-ud:goto1000
 1120 if c$="@"then lr =-lr:goto1000
 1130 goto 1000
 1300 j1=j1+1:gosub 1400
 1310 j1=j1+1:gosub 1400
 1320 for i=1 to gw-1
 1330 poke32768+40*(gl(g)+2+i)+gd(g),176+g
 1335 poke59459,255:poke59459,0
 1340 next
 1350 g=g+1
 1360 goto1000
 1400 poke 32768+40*(2+i0)+j0,32
 1410 poke 32768+40*(2+i1)+j1,42
 1420 i0=i1:j0=j1
 1430 return
 1500 gosub1400
 1510 t=int((ti-t)/60)
 1520 print"{home}";spc(20);"time";t;"secs"
 1530 for i=1 to 3000:next
 1540 input"{home}another go";z$
 1550 ifleft$(z$,1)="y"then300
 1560 poke59464,0:poke59466,254:poke59467,0:end
    0 clr:pg$="slide":nm$="30":goto62000
    1 " kevin pickell
    2 " 3553 baycrest ave.
    3 " port coquitlam,b.c. canada v3b 2w7
    4 "
    5 " cursor #30, may 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 82 may 25
  100 ml=2095
  110 sysml
  200 sys(ml+3)
  210 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}want to play again? ";:gosub60000
  220 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(15);"         "
  230 print"{down}                         "
  240 if left$(in$,1)<>"n"then200
  250 end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by kevin pickell
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}catch a falling rock...
 62040 crt=32768:cr$=chr$(13)
 62050 pokecrt,96:ifpeek(crt+1024)<>96thenprintchr$(142);
 62060 goto 100
   10 sys7408
   20 rem{del}{del}{del}{del}{del}{del}{del}
{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}*** slime ***
{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by: jim summers
{down}{rght}{rght}{rght}{rght}{rght}(c){rght}1982 - all rights reserved
{down}{down}{rght}type "run" and press {rvon}return
{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}to start.


    0 clr:poke59468,12:pk=12
    1 rem slot! copyright (c) 1979 mark heaney
    2 rem cursor #9, april, 1979
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of dec 21 79
   90 pg$="slot!":nm$="9":gosub 62000
  100 rem
  103 rem
  104 rem i dedicate this to my
  105 rem wonderful wife debbie
  106 rem
  107 rem               love mark
  110 pc=59464:tn=pc+2:mu=tn+1
  160 i$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":n$="3 of a kind"
  170 bl$="              {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  180 cr$=chr$(13)
  190 p$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  200 a$="this is the":b$="  game of  ":c$="***slots***":tb=14
  210 forn=1to6:reada$(n):nextn:forn=1to6:readb$(n):nextn
  230 forn=1to10:readc$(n):nextn:forn=1to4:readw$(n):nextn
  250 data" cherry ","  plum  "," lemon  "," orange "," cursor "," cherry "
  260 data" cherry ","  plum  "," lemon "," orange "," cursor ","  plum  "
  270 data" cherry ","  plum  "," lemon "," orange "," cursor "," cherry "
  280 data"  plum  "," lemon "," orange "," orange "
  290 data"xcursormagx","slotby mark","jenniferisa","debbiehlove"
  300 data" cherry ","  plum  "," lemon  "," orange "
  310 gosub440:gosub600:gosub730:gosub1900
  315 forn=1to4:readw$(n):nextn:tb=15
  330 gosub440
  340 t=t-m:print"{home}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{left}{left}{left}{left}{left}{left}{up}*"
  350 ift>0thenprint"{home}money ahead ":printbl$;:print"$";t
  360 ift<0thenprint"{home}money behind":printbl$;:print"$";abs(t)
  370 ift=0thenprint"{home}you are even":print"              "
  380 printi$;:gosub1810
  390 print"{down}{down}    place your bet..$ ";:gosub2020:ifin$="0"then2140
  395 ifin$<>""thenm=val(in$)
  400 ifm=0thengosub1790:goto380
  410 ifm>5000then1970
  420 ifm<1then1990
  430 goto890
  440 print"{clr}":print"{home}";
  445 r$="{SHIFT--}{CBM-+}{SHIFT--}{rvon}           {rvof}{SHIFT--}{CBM-+}{SHIFT--} ":q$="{SHIFT--}{CBM-+}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}{CBM-+}{SHIFT--} "
  450 printtab(11);"        *
  455 printtab(11);"   U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I
  460 printtab(11);"U{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}I
  465 printtab(11);"{SHIFT--}{CBM-+}cursor+casino{CBM-+}{SHIFT--}
  470 printtab(11);"{SHIFT--}{CBM-+}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-+}{SHIFT--}
  475 printtab(11);r$
  480 printtab(11);r$;"UI
  485 printtab(11);r$;"{SHIFT--}{SHIFT--}
  490 printtab(11);q$;"{CBM-Q}{CBM-W}
  495 printtab(11);r$;"{SHIFT--}{SHIFT--}
  500 printtab(11);r$;"{SHIFT--}{SHIFT--}
  505 printtab(11);r$;"{SHIFT--}{SHIFT--}
  510 printtab(11);q$;"{SHIFT--}{SHIFT--}
  515 printtab(11);r$;"{SHIFT--}{SHIFT--}
  520 printtab(11);r$;"{left}{left}{CBM-Q}{SHIFT-*}{CBM-W}{SHIFT--}
  525 printtab(11);r$;"{left}{left}{CBM-Q}{SHIFT-*}{CBM-E}{CBM-X}
  530 printtab(11);"{SHIFT--}{CBM-+}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-+}{SHIFT--}
  535 r$="{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}"
  540 printtab(11);r$:printtab(11);r$
  545 printtab(11);"J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  550 return
  600 gosub2200:poketn,1
  605 print"{home}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  610 fori=1to6
  615 print"  {left}{left}{down}UI{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{down}{CBM-Q}{CBM-W}{left}{left}{up}{up}";:gosub2270:nexti
  620 print"  {left}{left}{down}UI{left}{left}{down}{CBM-Q}{CBM-W}{left}{left}{down}{CBM-W}{SHIFT--}{left}{left}{up}{up}{up}";:gosub2270:gosub1940
  625 print"UI{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{down}{CBM-Q}{CBM-W}{left}{left}{down}{CBM-W}{SHIFT--}{left}{left}{up}{up}{up}{up}";
  630 fori=1to5:print"UI{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{down}{CBM-Q}{CBM-W}{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{up}{up}{up}{up}";:nexti
  635 gosub2260
  640 return
  700 tt=ti
  710 ifti-tt<150then710
  720 return
  730 m$="{rght}{rght}{rght}{rght}{rght}{rght}":l$="{home}{down}{down}{down}{down}{down}"
  735 gosub2200:poketn,1
  740 fori=1to8:forw=1to4:printl$
  745 pokepc,128-4*w
  750 print"{rvon}";tab(tb)w$(w);"{down}{down}{down}"
  760 print"{rvon}";tab(tb)w$(w);"{down}{down}{down}"
  770 print"{rvon}";tab(tb)w$(w):nextw,i
  775 printl$;"{down}{rvon}";tab(tb)a$
  776 gosub2260:poketn,3
  780 fori=1to4:forw=1to4:printl$
  785 pokepc,128-4*w
  790 print"{rvon}";tab(tb)a$;"{down}{down}{down}"
  795 print"{rvon}";tab(tb)w$(w);"{down}{down}{down}"
  800 print"{rvon}";tab(tb)w$(w):nextw,i
  805 printl$;"{down}{down}{down}{down}{down}{rvon}";tab(tb)b$
  806 gosub2260:poketn,15
  810 fori=1to8:forw=1to4:printl$
  815 pokepc,128-4*w
  820 print"{rvon}";tab(tb)a$;"{down}{down}{down}"
  822 print"{rvon}";tab(tb)b$;"{down}{down}{down}"
  825 print"{rvon}";tab(tb)w$(w):nextw,i
  830 printl$;"{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}";tab(tb)c$
  835 gosub2260:gosub2250:return
  890 gosub600
  940 a=int(6*rnd(1)+1):b=int(5*rnd(1)+1):c=int(9*rnd(1)+1)
  950 a$=a$(a):b$=b$(b):c$=c$(c):gosub730
 1000 tk=0:m$="this"
 1010 onagoto1100,1150,1200,1250,1300,1100
 1100 ifb<>1thenx=.5:m$="one {rvon}cherry{rvof}":goto1400
 1110 ifc=1orc=6thenx=5:m$="three {rvon}cherry{rvof}s":tk=1:goto1400
 1120 ifc=5thenx=4:m$="special i":goto1400
 1130 x=2:m$="two {rvon}cherry{rvof}s":goto1400
 1150 ifb<>2andb<>6then340
 1160 ifc=2orc=7thenx=8:m$="three {rvon}plum{rvof}s":tk=1:goto1400
 1170 ifc=5thenx=4:m$="special ii":goto1400
 1180 goto340
 1200 ifb<>3then340
 1210 ifc=3orc=8thenx=9:m$="three {rvon}lemon{rvof}s":tk=1:goto1400
 1220 ifc=5thenx=5:m$="special iii":goto1400
 1230 goto340
 1250 ifb<>4then340
 1260 ifc=4orc=9orc=10thenx=9:tk=1:m$="three {rvon}orange{rvof}s":goto1400
 1270 ifc=5thenx=5:m$="special iv":goto1400
 1280 goto340
 1300 ifb<>5orc<>5then340
 1310 n$="**jackpot**":gosub1540:n$="3 of a kind"
 1320 x=25:m$="wow!!! jackpot"
 1400 iftkthengosub1540
 1410 gosub1810:printp$;m$;" pays";x;"{left}:1":gosub1580
 1420 iftk=0thengosub1660
 1430 goto340
 1530 return
 1540 forw=1to10:fork=1to3:print"{home}"
 1550 printtab(14)"           ":nextk:ford=1to3:print"{home}"
 1560 printtab(14)n$
 1570 nextd:nextw:return
 1580 rem **pay off***
 1590 s=x*m:t=t+s+m
 1600 printi$:print
 1610 print"{rght}{rght}your bet was $";m;" you won $";s;"                            "
 1620 iftkthengosub1900
 1630 return
 1660 foru=1to17
 1670 print"{home}";tab(19)"*"
 1680 tt=ti
 1690 ifti-tt<5then1690
 1700 print"{home}";tab(19)" "
 1710 tt=ti
 1720 ifti-tt<3then1720
 1730 nextu:return
 1790 printi$;"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}you forgot to bet":gosub1900:return
 1810 rem
 1840 printi$;"{up}"
 1850 er$="                                       "
 1860 printer$:printer$:printer$:printer$;i$;
 1890 return
 1900 rem
 1910 tt=ti
 1920 ifti-tt<100then1920
 1930 return
 1940 tt=ti
 1950 ifti-tt<20then1950
 1960 return
 1970 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";"house limit is $5000.00":gosub700:m=0:gosub440
 1980 goto340
 1990 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";"minimum bet is $1.00":gosub700:m=0:gosub440
 2000 goto340
 2010 end
 2020 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 2030 getz$:ifz$<>""then2060
 2040 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 2050 goto2030
 2060 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto2100
 2070 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 2080 ifzl>254then2030
 2090 in$=in$+z$:printz$;zd$;z$;
 2100 ifz=13thenin$=mid$(in$,2):printcr$;:return
 2110 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto2030
 2120 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto2020
 2130 goto2030
 2140 print"{home}{down}":end
 2200 pokemu,16:pokepc,0:return
 2250 pokepc,0:poketn,0:pokemu,0:return
 2260 forq=1to7:pokepc,70:pokepc,0:nextq:return
 2270 pokepc,70:pokepc,0:return
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}";:poke59468,pk:clr:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 for i=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #9  slot!"
 62002 print"{down}copyright (c) 1979  by mark heaney
 62004 gosub 60500
 62010 print"{down}the notorious one-armed{$a0}bandit"
 62020 print"{down}{down}want directions? ";:gosub2020
 62030 ifleft$(in$,1)="y" then 62100
 62040 print"{clr}";:poke59468,pk:clr:goto100
 62100 lp=2:gosub60200
 62102 gosub 60500
 62105 print"this slot machine,{$a0}like all others, is
 62110 print"very easy to operate: you pay your
 62120 print"money and pull the handle.
 62130 print"{down}before each pull, the pet will ask you
 62140 print"how much you want to bet. you may bet
 62150 print"any amount from{$a0}$1 to{$a0}$5000. to stop
 62160 print"playing, bet{$a0}0. hitting only {rvon}return{rvof}
 62170 print"will repeat your previous bet.
 62180 print"{down}there are eleven different payoffs,
 62190 print"listed on the next page. if you win
 62200 print"one, you also get your bet back.
 62210 print"{down}finally, note that this machine is
 62220 print"unusual in that the house has no edge.
 62230 print"in the long run you should neither win
 62240 print"nor lose anything.
 62245 gosub 60500
 62250 gosub60200
 62255 gosub 60500
 62260 print"possible payoffs:{down}
 62270 print"1 cherry",,"pays .5:1
 62280 print"2 cherrys",,"pays  2:1
 62290 print"3 cherrys",,"pays  5:1
 62300 print"3 plums",,"pays  8:1
 62310 print"3 lemons",,"pays  9:1
 62320 print"3 oranges",,"pays  9:1
 62330 print"{down}special i",,"pays  4:1
 62340 print"special{$a0}ii","pays{$a0} 4:1
 62350 print"special iii","pays  5:1
 62360 print"special iv","pays  5:1
 62370 print"{down}*jackpot*",,"pays 25:1
 62380 print"{down}(a combination counts as{$a0} 2 cherries
 62390 print"only when the top and middle symbols
 62400 print"are cherries, not top and bottom.)
 62425 gosub 60500
 62430 gosub60200
    0 :poke53280,8:poke53281,0:print"{wht}"
    1 print"{clr}"
    2 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}welcome to the world of slots!!!{rvof}"
    3 print
    4 print"  {rvon}you will be playing a dollar machine{rvof}"
    5 print
    6 print"       do you want instructions ?"
    7 print
    8 input"               yes or no";a$
    9 ifa$="n"goto39
   10 print"{clr}"
   11 print"     it will cost you $1.00.
   12 print"     each time the handle is pulled":gosub35
   13 print:print"     this will be shown at the top:
   14 print"     right corner of the machine.":gosub35
   15 print:print"     your winnings will be shown in"
   16 print"     the payoff tray at the bottom ":gosub35
   17 print:print"     if you decide to take"
   18 print"     your winnings and run
   19 print"     please press the {rvon}q key{rvof} to quit":gosub35
   20 print:print"     at that time your winnings and"
   21 print"     losses will be tallyed and shown":gosub35
   22 print:print"             {rvon}  good-luck!!!{rvof}":forv=1to1500:nextv
   23 print:print"     oh!!!---by the way please
   24 print"     don't tip our helper!!!!!"
   25 print"                   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":gosub35:goto37
   35 for i=1to3000:nexti:return
   37 print:print"       {rvon}press space key to continue{rvof}"
   38 get k$:ifk$=""then38
   39 print"{clr}"
   40 print"         O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
   41 print"         {CBM-G}jack-pot{CBM-M}  U{SHIFT-*}I
   42 print"         L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}  {SHIFT--}Q{SHIFT--}
   43 print" U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}J{SHIFT-*}{SHIFT-*}I     {rvon}{SHIFT-POUND}{CBM-@}{CBM-@}{CBM-@}{CBM-*}{rvof}
   50 print" {SHIFT--}O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}PO{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}PO{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{SHIFT--}     {rvon}NL {SHIFT-@}M{rvof}
   60 print" {SHIFT--}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}{CBM-G}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{CBM-M}{SHIFT--}UI  {rvon}{SHIFT-POUND}{CBM-M}{CBM-D}{SHIFT--}{CBM-F}{CBM-G}{CBM-*}
   70 print" {SHIFT--}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{SHIFT--}HG  {rvon}{SHIFT--}N{CBM-G}{CBM-E}{CBM-M}M{SHIFT--}{rvof}
   80 print" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}HG  {rvon}{SHIFT--}{CBM-G}MSN{CBM-M}{SHIFT--}
   90 print" {CBM-+}                        {CBM-+}HG  {rvon}{SHIFT--}{CBM-G}{SHIFT-@}{rvof} {rvon}L{CBM-M}{SHIFT--}{rvof}
   95 print" {CBM-+} {CBM-U} {CBM-U} {CBM-U}-----------500.00 {CBM-+}H{rvon}{CBM-W}{rvof}M {CBM-*}{SHIFT-POUND}   {CBM-*}{SHIFT-POUND}
  100 print" {CBM-+} S S S-----------100.00 {CBM-+}HGMMNN{$a0}{SHIFT--}{$a0}MM
  110 print" {CBM-+} A A A------------75.00 {CBM-+}HG MNJ{SHIFT-*}{SHIFT-*}{SHIFT-*}KMM
  115 print" {CBM-+} Z Z Z------------50.00 {CBM-+}HG    M N NN
  120 print" {CBM-+} Q Q Q------------25.00 {CBM-+}HG     {rvon} {rvof} NN
  125 print" {CBM-+} W W W------------10.00 {CBM-+}HG    N M{rvon} {rvof}
  130 print" {CBM-+} W W ------------- 6.00 {CBM-+}HG   {CBM-M} {CBM-G}{CBM-G}{SHIFT-POUND}
  135 print" {CBM-+} W---------------- 3.00 {CBM-+}HG   {CBM-M}   {CBM-G}
  140 print" {CBM-+}                        {CBM-+}HG   {CBM-M}   {CBM-G}
  145 print" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}winnings{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}HG    {CBM-T}{rvon}{SHIFT--}{rvof}{CBM-T}
  150 print" {CBM-+}QQQQQQQQ{CBM-J}      {CBM-L}QQQQQQQQ{CBM-+}HG     {rvon}{SHIFT--}{rvof}
  160 print" {CBM-+}{CBM-+}QQQQQQQ{CBM-J}      {CBM-L}QQQQQQQ{CBM-+}{CBM-+}JK{CBM-+}   {CBM-M}{SHIFT--}{CBM-G}
  170 print" {CBM-+}{CBM-+}{CBM-+}QQWWWW{CBM-J}      {CBM-L}WWWWQQ{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-M}{SHIFT--}{CBM-G}
  180 print" {CBM-+}{CBM-+}QQQQQQQ{CBM-U}{CBM-U}{CBM-U}JK{CBM-U}{CBM-U}{CBM-U}QQQQQQQ{CBM-+}{CBM-+}      {CBM-M}{SHIFT--}{CBM-G}"      
  185 print" {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}      N{CBM-E}M"
  191 print"{home}"
  192 print"{home}press"
  193 print"space"
  194 print" bar "
  195 get a$:if a$=""then 195
  196 ifa$="q"then30000
  197 print"{up}{up}{up}     "
  198 print"     "
  199 print"     "
  205 gosub40000
  210 print"{home}"
  211 print"{down}{down}{down}{down}{rght}{rght}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
  212 for i=1 to 20
  213 print"{up}{rght}{rght}{CBM-G}{rvon}      {rvof}{CBM-M}{CBM-G}{rvon}      {rvof}{CBM-M}{CBM-G}{rvon}      {rvof}
  214 print"{up}{rght}{rght}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}{CBM-G}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-M}
  215 next
  580 print"{up}{up}
 2010 d=int(6*rnd(1))+1
 2020 if d=1 then printtab(2)  "{CBM-G}  {CBM-U}   {CBM-M}";
 2030 if d=2 then printtab(2)  "{CBM-G}  S   {CBM-M}";
 2040 if d=3 then printtab(2)  "{CBM-G}  A   {CBM-M}";
 2050 if d=4 then printtab(2)  "{CBM-G}  Z   {CBM-M}";
 2060 if d=5 then printtab(2)  "{CBM-G}  Q   {CBM-M}";
 2070 if d=6 then printtab(2)  "{CBM-G}  W   {CBM-M}";
 2100 print"{up}
 2120 e=int(6*rnd(1))+1
 2130 if e=1 then printtab(10)  "{CBM-G}  {CBM-U}   {CBM-M}";
 2140 if e=2 then printtab(10)  "{CBM-G}  S   {CBM-M}";
 2150 if e=3 then printtab(10)  "{CBM-G}  A   {CBM-M}";
 2160 if e=4 then printtab(10)  "{CBM-G}  Z   {CBM-M}";
 2170 if e=5 then printtab(10)  "{CBM-G}  Q   {CBM-M}";
 2180 if e=6 then printtab(10)  "{CBM-G}  W   {CBM-M}";
 2200 print"{up}
 2210 for i=1 to 1
 2220 f=int(6*rnd(1))+1
 2230 if f=1 then printtab(18)  "{CBM-G}  {CBM-U}   {CBM-M}";
 2240 if f=2 then printtab(18)  "{CBM-G}  S   {CBM-M}";
 2250 if f=3 then printtab(18)  "{CBM-G}  A   {CBM-M}";
 2260 if f=4 then printtab(18)  "{CBM-G}  Z   {CBM-M}";
 2270 if f=5 then printtab(18)  "{CBM-G}  Q   {CBM-M}";
 2280 if f=6 then printtab(18)  "{CBM-G}  W   {CBM-M}";
 2900 gosub7000
 3000 goto191
 7000 p=0
 7065 print"{home}"
 7080 p=0
 8000 if d=6 then p=3.00
 8005 if d+e=12 thenp=6.00
 8010 ifd+e+f=18 thenp=12.00:gosub60000
 8020 ifd=5thend=100:ife=5thene=100:iff=5thenf=100
 8030 ifd+e+f=300thenp=25.00:gosub60000
 8035 ifd=4thend=200:ife=4thene=200:iff=4thenf=200
 8040 ifd+e+f=600thenp=50.00:gosub60000
 8045 ifd=3thend=300:ife=3thene=300:iff=3thenf=300
 8050 ifd+e+f=900thenp=75.00:gosub60000
 8055 ifd=2thend=400:ife=2thene=400:iff=2thenf=400
 8060 ifd+e+f=1200thenp=100.00:gosub60000
 8065 ifd+e+f=3thenp=500.00:gosub60000
 8900 w=p+w
 9000 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$";w
 10000 return
 30000 print"{clr}"
 30005 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}    {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}"
 30010 print"    {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}"
 30020 print"   {rvon}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{rvof}"
 30025 print"   {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 30027 print"{home}"
 30030 print"{down}{down}{down}{down}{down}{down}{down}{down}    {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}              {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}"
 30035 print"    {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}    thanks    {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}"
 30040 print"   {rvon}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{rvof}     for    {rvon}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{rvof}
 30041 print"   {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}   playing  {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}
 30042 print"{home}"
 30045 print"{down}{down}{down}    {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}                      {CBM-*}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}"
 30050 print"    {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}                      {rvon}{SHIFT-POUND}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}{rvof}"
 30055 print"   {rvon}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{rvof}                    {rvon}{SHIFT-POUND}$${CBM-*}{SHIFT-POUND}$${CBM-*}{rvof}"
 30060 print"   {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}                    {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}"
 30208 print"{down}{down}{down}{down}{down}{down}{down}{down}"
 30209 print
 30210 print
 30211 print
 30250 end
 40000 print"{home}":printtab(27)"{down}{down}{down}{down}"
 40005 fory=1to4
 40010 printtab(27)"{up}  "
 40020 printtab(27)"UI"
 40030 nexty
 40040 for x=1to8
 40046 printtab(27)"{up}UI"
 40047 printtab(27)"H{rvon}{CBM-W}{rvof}"
 40060 printtab(27)"{up}{up}  {down}"
 40061 nextx
 40062 forx=1to9
 40063 printtab(27)"{up}HG"
 40064 printtab(27)"{up}{up}H{rvon}{CBM-W}{rvof}"
 40065 nextx
 40066 printtab(27)"H{rvon}{CBM-W}{rvof}{up}"
 40067 fory=1to3
 40068 printtab(27)"{up}HG{$a0}"
 40069 printtab(27)"{up}{up}UI"
 40070 nexty
 40075 c=c-1  :print"{home}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}$";c
 50000 return
 60000 fori=1to15
 60005 for a=1to15
 60010 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{rvon}jack-pot{rvof}"
 60015 nexta
 60020 forh=1to15
 60030 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}jack-pot{up}"
 60040 nexth
 60050 nexti
 63000 return
    5 print"{clr}"
   10 dimr(2),d(2),c(2),s(2),m(6),t(4),s$(2)
   20 m(1)=60:m(2)=30:m(4)=33:m(5)=62
   25 t(1)=209:t(2)=215:t(3)=90:t(4)=42
   26 m$="040105020000000010050000000000000000002400"
   55 print"speed";:inputspeed
   66 print"length";:inputle
  100 print"{clr}":r(1)=5:c(1)=1:c(2)=40:r(2)=20:d(1)=2:d(2)=-2
  102 s$(1)=chr$(5)+chr$(1):s$(2)=chr$(20)+chr$(40)
  103 forx=1tole-1:s$(1)=s$(1)+"QQ":s$(2)=s$(2)+"QQ":next
  105 p=1:gosub999:p=2:gosub999:f=0:b=0
  110 forx=1tospeed
  120 geti$:ifi$<>""goto135
  130 next:goto170
  135 ifi$<"1"ori$>"x"goto130
  140 i=val(mid$(m$,asc(i$)-48,1))-3:ifi=-3goto130
  145 ifi$<"a"goto160
  150 d(1)=i:p=1:gosub999:goto130
  160 d(2)=i:p=2:gosub999:next
  170 forp=1to2
  174 r=asc(mid$(s$(p),le*2-1,1)):c=asc(mid$(s$(p),le*2,1))
  180 p=p+2:gosub999
  200 ifabs(d(p))=2goto240
  205 r(p)=r(p)+d(p)
  210 ifr(p)=0thenr(p)=25
  220 ifr(p)=26thenr(p)=1
  230 goto270
  240 c(p)=c(p)+d(p)/2
  250 ifc(p)=0thenc(p)=40
  260 ifc(p)=41thenc(p)=1
  270 s$(p)=chr$(r(p))+chr$(c(p))+left$(s$(p),(le-1)*2)
  282 a=asc(mid$(s$(p),le*2-5,1)):q=asc(mid$(s$(p),le*2-4,1))
  284 ifa=209goto287
  285 poke32727+a*40+q,t(2+p):ifr<>209thenpoke32727+r*40+c,32
  287 next
  289 forp=1to2
  290 pe=peek(32727+40*r(p)+c(p)):ifpe=t(5-p)goto500
  292 ifpe<>32goto400
  294 gosub999
  296 next
  297 ifb>0goto600
  298 iff=0goto110
  300 iff=2goto350
  305 print"{home}winner is";w;"       "
  310 s(w)=s(w)+1
  315 print"score is now";s(1);"to";s(2)
  320 print"another game?"
  330 geti$:ifi$=""goto330
  340 ifi$="n"thenend
  345 ifi$="y"goto100
  346 ifi$="s"goto55
  349 goto330
  350 print"{home}        tie game!!     ":goto315
  400 f=f+1:w=3-p:ifp=1goto294
  405 ifc(1)=c(2)andr(1)=r(2)goto350
  420 goto294
  500 b=b+1:w=p:goto294
  600 ifb=2goto350
  610 goto305
  999 ifp>2goto1001
 1000 poke32727+c(p)+40*r(p),m(3+d(p)):return
 1001 p=p-2:poke32727+c(p)+40*r(p),t(p):return
    2 rem game: snark version 3.0
    3 rem built from 9-18-79 to 10-1-79
    4 rem @ vince mills
  100 rem------- header bloc -------
  105 poke 59468,12
  110 print "{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I"
  120 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}"
  130 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{CBM-+}{rvon}       {rvof}{CBM-+}{SHIFT--}"
  140 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{CBM-+}{rvon} snark {rvof}{CBM-+}{SHIFT--}"
  150 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{CBM-+}{rvon}       {rvof}{CBM-+}{SHIFT--}"
  160 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{SHIFT--}"
  170 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K"
  172 for i0=1 to 10:l=sqr(2):next
  173 cs$="{CBM-+}" : cr$=" "
  175 print "{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}       do you want instructions? ";
  182 gosub 850 : if a$= "y" then gosub 7000:gosub 8000:goto 9000
  199 gosub 7000 : goto 9000
  850 rem ------- get single char -----
  855 t=ti
  857 if ti<t+20 then print cs$+"{left}";:goto 870
  860 if ti<t+40 then print cr$+"{left}";:goto 870
  865 t=ti
  870 get a$ : if a$="" then 857
  875 if flg>=2 and asc(a$)=20 then return
  880 if flg>=1 and asc(a$)<48 then 857
  890 if flg>=1 and asc(a$)>57 then 857
  950 if asc(a$)<>13  then print a$;
  951 return
  960 return
 5000 rem ------- winner bloc -----
 5010 poke 59468,14
 5020 print "{clr}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 5030 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{SHIFT--}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{SHIFT--}"
 5040 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{SHIFT--}{SHIFT-POUND}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{CBM-*}{SHIFT--}"
 5045 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{SHIFT--}{SHIFT-POUND}{SHIFT--}              {SHIFT--}{CBM-*}{SHIFT--}"
 5050 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{SHIFT--}{SHIFT-POUND}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{CBM-*}{SHIFT--}"
 5060 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{SHIFT--}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{CBM-*}{SHIFT--}"
 5070 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 5071 for i7=1 to 5.5 step .5
 5072 print "{home}";
 5073 if i7-int(i7)=.5 then 5075
 5074 print "{rvof}"; : goto 5076
 5075 print "{rvon}";
 5076 print "{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} yOU gOT hIM! "
 5077 zz=sqr(2)
 5078 next i7
 5080 print "{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}iN";cnt;"tRIES"
 5090 print "{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}wANT{$a0}TO{$a0}PLAY{$a0}AGAIN?           {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 5095 flg=0
 5100 cs$="{CBM-+}"
 5110 gosub 850
 5120 if a$="y" then goto 199
 5999 print "{clr}":end
 6000 rem ------- data bloc -----
 6010 data "the snark is hiding somewhere under "
 6020 data "the grid above. your job is to pin- "
 6030 data "point it's exact location.  to play "
 6040 data "this game properly, go get a compass"
 6050 data "and some snark paper now.           "
 6060 data "                                    "
 6070 data "                                    "
 6080 data "                                    "
 6090 data "here's how we can catch the snark.  "
 6100 data "i will ask you for the x and y coor-"
 6110 data "dinates of a gridpoint; this is our "
 6120 data "starting point.  mark this point on "
 6130 data "your snark paper.  then, draw a     "
 6140 data "circle of any size on your paper    "
 6150 data "with the compass.  i will then ask  "
 6160 data "you for the radius of the circle.   "
 6170 data "when you tell me the radius of your "
 6180 data "circle, i'll let you know if the    "
 6190 data "snark is inside, outside or on the  "
 6200 data "boundary of the circle. when you    "
 6210 data "you think you know the coordinates  "
 6220 data "of the snark, type a zero (0) for   "
 6230 data "the radius.                         "
 6240 data "             good luck!             "
 7000 rem ------- screen grid --------
 7005 rem subroutine
 7009 print"{clr}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} grid {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} guesses {CBM-+}{CBM-+}{CBM-+}  {CBM-I}"
 7010 print" {CBM-A}{rvon}9{rvof}{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}    {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}";
 7020 print"{home}{down}{down}{down}";
 7030 for i0=8 to 1 step -1
 7040 print" {SHIFT--}{rvon}"+right$(str$(i0),1)+"{rvof}{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
 7050 next i0
 7060 print" {CBM-Z}{rvon}0{rvof}{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}"
 7070 print"  {CBM-C}{rvon}0 1 2 3 4 5 6 7 8 9 "
 7075 print"   {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 7080 print"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}       {CBM-*}{rvon}  {CBM-*}"
 7090 return
 8000 rem ------- instruction block ---
 8001 restore
 8005 print "{home}{down}{down}{down}{down}{down}";
 8010 for i0=1 to 8                   
 8020 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   {rvof}         {rvon}   {rvof}";
 8030 next i0
 8040 print "{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} ";
 8050 for i0=1 to 8
 8060 print"{rght}{SHIFT--}"
 8070 next i0
 8080 print " {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}";
 8090 for i=1 to 8
 8100 print "{up}{left}{SHIFT--}";
 8110 next
 8120 for i=1 to 500 :next
 8125 for u=1 to 3
 8130 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}";
 8140 for i=1 to 8
 8150 read aa$:print aa$+"{rght}{rght}{rght}{rght}";
 8160 next i
 8170 flg=0
 8180 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press any key to continue.";
 8190 cs$="{rvon}^{rvof}":cr$=" "
 8200 gosub 850
 8210 next u
 8999 return
 9000 rem -------- game bloc --------
 9001 x=int(10*rnd(1)):cnt=1
 9002 y=int(10*rnd(1))
 9003 poke 59468,12
 9010 print "{home}{down}{down}{down}{down}{down}";
 9013 for i =1 to 9
 9015 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   {rvof}         {rvon}   {rvof}";
 9017 next
 9020 print "{rght}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {rvon}   {rvof}         {rvon}   {rvof}";
 9030 for i0=1 to 8
 9040 print "{rght}{SHIFT--}                     {SHIFT--} {rvon}   {rvof}         {rvon}   {rvof}";
 9050 next
 9060 print "{rght}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}                ";
 9070 print "                                     {home}";
 9080 print "{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}what are the grid-"
 9090 print "{up}{rght}{rght}{rght}point coordinates?"
 9100 print "{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}(";
 9120 cr$="{CBM-+}" : cs$=" "
 9130 flg=1
 9140 gosub 850 : a=val(a$)
 9150 print",";
 9160 flg=2
 9170 gosub 850
 9175 if a$=chr$(20) then print "{left}{left}   {left}{left}{left}";:goto 9130
 9180 b=val(a$):print")";
 9185 d2=(x-a)*(x-a)+(y-b)*(y-b)
 9190 print"{up}{up}{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}                  "
 9200 print "{up}{rght}{rght}what is the radius?"
 9210 print "{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Q";
 9220 flg=1:gosub 850 : r=val(a$)
 9230 if a=x and b=y and r=d2 then 5000
 9240 if d2=0 then 5000
 9250 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}the snark is";
 9260 if d2=r*r then print " {rvon}on{rvof} "
 9270 if d2<r*r then print " {rvon}inside{rvof} "
 9280 if d2>r*r then print " {rvon}outside{rvof}"
 9290 print"{rght}{up}{rght}your circle.
 9295 for i=1 to 500:nexti
 9300 a1$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 9310 a2$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 9320 print "{home}";
 9330 print left$(a1$,((a*2)+3));
 9340 print left$(a2$,(11-b));
 9350 if cnt>9  then print right$(str$(cnt),1);
 9360 if cnt<10 then print "{rvon}"+right$(str$(cnt),1)+"{rvof}";
 9370 print "{home}";
 9375 ifcnt<19 thenprintright$(a2$,cnt+4);
 9376 ifcnt>18 thenprintright$(a2$,cnt-14);
 9380 print left$(a1$,25)+"{rvon}#";
 9390 print right$(str$(cnt),2)+"{rvof} (";
 9400 print right$(str$(a),1)+","+right$(str$(b),1)+")Q";
 9410 print right$(str$(r),1)+" {rvon}";
 9420 if d2=r*r then print "on {rvof}{home}";
 9430 if d2<r*r then print "in {rvof}{home}";
 9440 if d2>r*r then print "out{rvof}{home}";
 9450 cnt=cnt+1
 9460 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
 9470 for i=1 to 8
 9480 print " {SHIFT--}                     {SHIFT--} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 9490 next
 9505 print "{home}";
 9510 goto 9080
 9999 return
   10 rem snoopy booth
   20 s$=" ":x$="*"
   30 forx=1to7:s$=s$+s$:x$=x$+x$:nextx
   40 open1,4
   50 reada:ifa=0thenprint#1,"":goto50
   55 ifa=999thenend
   60 print#1,left$(x$,a);
   70 reada:ifa=0thenprint#1,"":goto50
   75 ifa=999thenend
   80 print#1,left$(s$,a);:goto50
  130 data79,0,79,0,2,75,2,0,2,75,2,0,2,75,2,0,2,75,2,0,2,75,2,0,2,75,2,0
  140 data2,19,8,32,4,4,2,2,2,2,2,0
  150 data2,7,2,2,2,2,2,1,10,11,2,7,2,9,5,2,3,2,3,1,2,0
  160 data2,3,2,2,2,2,2,2,2,1,2,6,2,3,4,5,2,5,2,3,4,3,1,2,3,1,3,2,3,1,2,0
  170 data2,3,2,2,2,2,2,2,2,1,2,10,6,4,2,5,2,2,6,2,1,2,3,1,1,1,1,2,1,1,1,1,2,0
  180 data2,3,2,2,2,2,2,2,2,1,2,10,2,2,2,4,2,2,1,2,2,2,2,2,2,2,1,2,2,2,1,1,1
  181 data2,1,1,1,1,2,0
  190 data2,3,2,2,2,2,2,2,2,1,2,10,2,2,2,4,2,1,3,1,2,2,2,2,2,2,4,3,1,1,1
  191 data2,1,1,1,1,2,0
  200 data2,3,2,2,2,2,2,2,2,1,2,3,3,4,2,2,2,4,2,1,3,1,2,2,2,2,2,2,3,4,1,1,4
  201 data1,1,1,2,0
  210 data2,3,6,2,2,2,2,1,2,2,5,3,2,2,2,4,2,1,3,1,2,2,2,2,2,2,3,4,1,2,2,2
  211 data1,1,2,0
  220 data2,3,6,2,2,2,2,1,2,4,3,3,6,4,2,1,3,1,2,2,6,2,3,4,1,2,2,2,1,1,2,0
  230 data2,3,2,2,2,2,2,2,2,1,2,4,3,3,6,4,2,1,3,1,2,2,6,2,1,1,2,3,1,6,1,1,2,0
  240 data2,3,2,2,2,2,2,2,2,1,2,4,2,4,6,4,2,1,3,1,2,2,6,2,1,1,2,3,1,6,1,1,2,0
  250 data2,3,2,2,2,2,2,2,2,1,2,4,2,4,2,2,2,4,2,1,3,1,2,2,2,2,2,2,1,1,3,2,1
  251 data6,1,1,2,0
  260 data2,3,2,2,2,2,2,2,2,1,2,4,2,4,2,2,2,4,4,1,4,2,2,2,2,2,1,2,3,1,1,6,1
  261 data1,2,0
  270 data2,3,2,2,2,2,6,2,5,6,2,2,2,5,2,3,2,3,2,2,2,2,1,3,2,1,1,6,1,1,2,0
  280 data2,3,2,2,2,3,4,4,3,52,2,0
  290 data2,75,2,0,2,75,2,0,2,75,2,0,2,75,2,0
  300 data2,6,5,11,4,2,4,2,2,3,2,18,2,14,2,0
  310 data2,6,6,1,2,2,2,2,5,2,5,1,2,3,2,11,1,6,2,14,2,0
  320 data2,6,2,3,1,1,2,2,2,2,1,3,2,1,1,2,2,1,2,3,2,10,2,6,2,14,2,0
  330 data2,6,2,3,1,1,2,2,2,2,1,3,2,1,1,2,2,1,2,3,2,9,3,4,6,12,2,0
  340 data2,6,2,2,2,1,2,2,2,2,1,3,2,1,1,2,2,1,2,3,2,11,1,3,2,1,2,14,2,0
  350 data2,6,2,1,2,2,2,2,2,2,1,2,2,2,1,2,2,1,2,2,3,11,1,3,2,1,2,14,2,0
  360 data2,6,4,3,2,2,2,2,4,3,4,2,2,2,3,11,1,3,2,1,2,14,2,0
  370 data2,6,3,4,2,2,2,2,2,5,2,4,2,1,3,12,1,4,6,12,2,0
  380 data2,6,2,5,2,2,2,2,2,5,2,4,5,13,1,6,2,14,2,0
  390 data2,6,2,5,2,2,2,2,2,5,2,6,2,14,1,6,2,14,2,0
  400 data2,6,2,5,6,2,2,5,2,6,2,14,1,6,2,14,2,0
  410 data2,6,2,5,6,2,2,5,2,6,2,13,3,5,2,14,2,0
  420 data2,6,2,5,6,2,2,5,2,6,2,12,5,20,2,0
  430 data2,6,2,6,4,10,2,6,2,37,2,0
  440 data2,75,2,0
  450 data2,75,2,0
  460 data2,75,2,0
  470 data2,75,2,0
  480 data2,75,2,0
  490 data2,75,2,0
  500 data2,75,2,0
  510 data2,75,2,0
  520 data2,75,2,0
  530 data2,75,2,0
  540 data79,0
  550 data2,2,2,67,2,2,2,0
  560 data2,2,2,67,2,2,2,0
  570 data2,2,2,67,2,2,2,0
  580 data2,2,2,67,2,2,2,0
  590 data2,2,2,67,2,2,2,0
  600 data2,2,2,67,2,2,2,0
  610 data2,2,2,67,2,2,2,0
  620 data2,2,2,67,2,2,2,0
  630 data2,2,2,67,2,2,2,0
  640 data2,2,2,67,2,2,2,0
  650 data2,2,2,67,2,2,2,0
  660 data2,2,2,67,2,2,2,0
  670 data2,2,2,67,2,2,2,0
  680 data2,2,2,67,2,2,2,0
  690 data2,2,2,18,10,39,2,2,2,0
  700 data2,2,2,17,14,36,2,2,2,0
  710 data2,2,2,14,4,4,3,3,4,35,2,2,2,0
  720 data2,2,2,13,4,4,1,2,2,3,3,35,2,2,2,0
  730 data2,2,2,13,2,15,2,35,2,2,2,0
  740 data2,2,2,12,3,16,2,34,2,2,2,0
  750 data2,2,2,11,2,19,2,33,2,2,2,0
  760 data2,2,2,10,3,20,2,32,2,2,2,0
  770 data2,2,2,10,3,20,2,32,2,2,2,0
  780 data2,2,2,10,3,21,3,30,2,2,2,0
  790 data2,2,2,10,3,14,2,1,3,3,10,21,2,2,2,0
  800 data2,2,2,10,2,13,4,3,4,2,5,3,4,17,2,2,2,0
  810 data2,2,2,10,2,11,2,23,2,17,2,2,2,0
  820 data2,2,2,10,2,38,3,14,2,2,2,0
  830 data2,2,2,10,2,39,3,13,2,2,2,0
  840 data2,2,2,10,1,41,3,12,2,2,2,0
  850 data2,2,2,10,1,42,2,12,2,2,2,0
  860 data2,2,2,9,2,43,2,11,2,2,2,0
  870 data2,2,2,9,2,1,1,2,2,38,1,11,2,2,2,0
  880 data2,2,2,9,1,2,1,1,4,37,2,10,2,2,2,0
  890 data2,2,2,9,1,2,2,1,4,23,5,9,2,9,2,2,2,0
  900 data2,2,2,9,1,2,8,20,8,8,2,9,2,2,2,0
  910 data2,2,2,9,1,2,8,20,8,8,2,9,2,2,2,0
  920 data2,2,2,9,1,2,8,20,8,8,2,9,2,2,2,0
  930 data2,2,2,9,1,2,9,20,6,9,2,9,2,2,2,0
  940 data2,2,2,9,1,2,10,33,2,10,2,2,2,0
  950 data2,2,2,9,1,2,10,33,2,10,2,2,2,0
  960 data2,2,2,9,1,2,10,33,2,10,2,2,2,0
  970 data2,2,2,9,2,1,10,32,2,11,2,2,2,0
  980 data2,2,2,10,1,1,8,1,1,31,2,12,2,2,2,0
  990 data2,2,2,10,1,1,8,1,1,29,3,13,2,2,2,0
 1000 data2,2,2,10,1,2,7,1,3,10,19,14,2,2,2,0
 1010 data2,2,2,11,1,1,7,1,4,8,6,28,2,2,2,0
 1020 data2,2,2,11,1,2,6,1,5,6,2,33,2,2,2,0
 1030 data2,2,2,12,2,1,5,1,2,3,2,4,2,33,2,2,2,0
 1040 data2,2,2,14,1,2,2,2,1,5,8,32,2,2,2,0
 1050 data2,2,2,15,2,3,2,4,10,31,2,2,2,0
 1060 data2,2,2,16,5,6,2,6,2,30,2,2,2,0
 1070 data2,2,2,18,1,7,2,8,1,30,2,2,2,0
 1080 data2,2,2,22,4,4,10,27,2,2,2,0
 1090 data2,2,2,21,4,2,6,3,6,25,2,2,2,0
 1100 data2,2,2,20,2,16,3,1,1,24,2,2,2,0
 1110 data2,2,2,4,17,18,24,4,2,2,2,0
 1120 data2,2,2,3,2,14,4,3,8,3,3,22,2,3,2,2,2,0
 1130 data2,2,2,2,2,16,7,5,3,2,3,23,2,2,2,2,2,0
 1140 data2,2,2,1,2,31,5,25,2,1,2,2,2,0
 1150 data2,2,4,63,4,2,2,0
 1160 data2,2,71,2,2,0
 1170 data2,2,2,67,2,2,2,0
 1180 data2,2,2,67,2,2,2,0
 1190 data2,2,2,67,2,2,2,0
 1200 data6,67,6,0
 1210 data6,67,6,0
 1220 data2,75,2,0,2,75,2,0
 1230 data2,6,7,1,2,2,2,1,6,6,6,1,2,1,2,1,6,1,6,1,2,2,2,9,2,0
 1240 data2,6,7,1,2,2,2,1,6,6,6,1,2,1,2,1,6,1,6,1,2,2,2,9,2,0
 1250 data2,9,2,3,2,2,2,1,2,10,2,2,2,1,2,1,2,1,2,2,2,1,2,2,2,1,2,2,2,9,2,0
 1260 data2,9,2,3,6,1,5,7,6,1,2,1,2,1,6,1,6,1,6,9,2,0
 1270 data2,9,2,3,6,1,5,7,6,1,2,1,2,1,6,1,6,1,6,9,2,0
 1280 data2,9,2,3,6,1,5,7,6,1,2,1,2,1,6,1,6,1,6,9,2,0
 1290 data2,9,2,3,2,2,2,1,2,10,2,5,2,1,2,1,2,5,2,7,2,11,2,0
 1300 data2,9,2,3,2,2,2,1,6,6,2,5,5,1,2,5,2,7,2,11,2,0
 1310 data2,9,2,3,2,2,2,1,6,6,2,5,5,1,2,5,2,7,2,11,2,0
 1320 data2,75,2,0
 1330 data2,75,2,0
 1340 data2,75,2,0
 1350 data2,75,2,0
 1360 data2,75,2,0
 1370 data2,35,17,23,2,0
 1380 data2,35,17,23,2,0
 1390 data2,35,2,13,2,23,2,0
 1400 data2,16,2,3,6,8,2,13,2,23,2,0
 1410 data2,16,2,3,6,8,2,13,2,23,2,0
 1420 data2,16,2,3,2,12,2,13,2,23,2,0
 1430 data2,16,2,3,2,12,2,2,2,1,2,2,2,2,2,23,2,0
 1440 data2,16,2,3,6,8,2,2,2,1,3,1,2,2,2,23,2,0
 1450 data2,16,2,7,2,8,2,2,2,1,6,2,2,23,2,0
 1460 data2,16,2,7,2,8,2,2,2,1,6,2,2,23,2,0
 1470 data2,16,2,3,6,8,2,2,2,1,2,1,3,2,2,23,2,0
 1480 data2,16,2,3,6,8,2,2,2,1,2,2,2,2,2,23,2,0
 1490 data2,35,2,2,2,1,2,2,2,2,2,23,2,0
 1500 data2,35,2,13,2,23,2,0
 1510 data2,35,17,23,2,0
 1520 data2,35,17,23,2,0
 1530 data2,75,2,0
 1540 data2,75,2,0
 1550 data2,75,2,0
 1560 data2,75,2,0
 1570 data2,75,2,0
 1580 data79,0,79,0
 1590 data999
    5 rem copyright (c) 1979, isi (p)
    7 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}shuffling cards for a game of solitaire!"
    8 print:print:print:print"    i'll be ready in a few seconds
   10 forx=1toval(right$(ti$,2))
   11 r=rnd(1):nextx
   20 dim f(7,18),s(4),d(52),s$(4)
   21 s$(1)="S":s$(2)="Z":s$(3)="A":s$(4)="X"
   30 forx=0to7:fory=0to18:f(x,y)=0:nexty:nextx
   40 forx=0to4:s(x)=0:nextx
   50 forx=0to52:d(x)=0:nextx
  100 rem shuffle cards in deck
  110 forx=1to52
  120 r=int(rnd(1)*52+1)
  130 ifd(r)>0then120
  140 d(r)=x:nextx
  200 rem deal cards into piles
  210 r=52:forx=1to7:fory=1tox
  220 f(x,y)=d(r)+100
  230 d(r)=0:r=r-1:nexty
  240 f(x,x)=f(x,x)-100:nextx
  400 rem display everything
  410 c=3:gosub3000
  500 rem command input
  502 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
  505 l=3:gosub5000
  510 print"d=deck,row#1-7,c=card,q=quit; play={rght}{rght}?{left}{left}{left}";:inputp$:p=val(p$)
  515 if(p>7)or(p<0)then990
  517 ifp>0then700
  520 ifp$="c"thengosub3200:goto500:rem next card
  530 ifp$<>"q"goto600
  535 rem quitter!
  540 forx=1to7:fory=1to18
  550 iff(x,y)>100thenf(x,y)=f(x,y)-100
  560 nexty:nextx
  570 gosub3100
  575 l=3:gosub5000
  580 print"sorry, better luck next time !!!":end
  600 ifp$<>"d"goto990
  601 rem from deck to ...
  602 ifd(1)=0then995
  603 v=d(c):s1=int((d(c)-1)/13)+1
  604 ifv>13thenv=v-13:goto604
  605 l=1:gosub4000
  610 print"from deck to (a=aces, row#1-7){rght}{rght}?{left}{left}{left}";:inputr$
  615 ifr$<>"a"then650
  618 rem deck to aces
  620 ifs1<>(d(c)+12)/13then630
  623 ifs(s1)>0then995
  626 goto640
  630 ifd(c)<>s(s1)+1then995
  640 s(s1)=d(c):x=s1:gosub1000:gosub6000:goto500
  650 rem deck to row
  655 r=val(r$)
  660 y=1:if(r<1)or(r>7)then990
  665 ify>18then995
  670 iff(r,y)<>0theny=y+1:goto665
  675 ify>1then680
  677 ifv=13then690
  678 goto995
  680 v1=f(r,y-1)
  682 ifv1>13thenv1=v1-13:goto682
  683 ifv<>v1-1then995
  684 s2=int((f(r,y-1)-1)/26):s1=int((s1-1)/2)
  685 ifs1=s2then995
  690 f(r,y)=d(c):print"please wait while i fix the cards !"
  695 gosub6000:gosub3100:goto500
  700 rem from row to ...
  702 y=0:iff(p,1)=0then995
  704 rem single card in row?
  705 y=y+1:ify>18then995
  708 y2=f(p,y):ify2>100then705
  710 iff(p,y+1)<>0thengoto730
  716 ify2>13theny2=y2-13:goto716
  717 goto749
  720 rem from what card in row?
  730 l=1:gosub4000
  735 print"from row"p"card (a,2-10,j,q,k){rght}{rght}?{left}{left}{left}";:inputy$:y1=val(y$)
  740 ify$="a"theny1=1
  741 ify$="j"theny1=11
  742 ify$="q"theny1=12
  743 ify$="k"theny1=13
  744 if(y1=0)or(y1>13)then990
  745 ify>18then995
  746 y2=f(p,y):ify2>100theny=y+1:goto745
  747 ify2>13theny2=y2-13:goto747
  748 ify1<>y2theny=y+1:goto745
  749 r=f(p,y):l=1:gosub4000
  750 print"from ";:gosub2050:print" row"p"to (a=aces,row#1-7){rght}{rght}?{left}{left}{left}";:inputa$
  751 rem from row/card to ...
  752 s1=int((f(p,y)-1)/13)+1
  755 ifa$<>"a"then800
  756 rem from row/card to aces
  757 iff(p,y+1)>0then995
  758 ifs1<>(f(p,y)+12)/13then765
  760 ifs(s1)>0then995
  762 goto770
  765 iff(p,y)<>s(s1)+1then995
  770 s(s1)=f(p,y):f(p,y)=0:iff(p,y-1)>100thenf(p,y-1)=f(p,y-1)-100
  775 print"please wait while i fix the cards !"
  780 gosub3100:x=s1:gosub1000:goto500
  800 rem from row/card to row
  810 q=val(a$)
  815 z=1:if(q<1)or(q>7)then990
  820 ifz>18then995
  825 iff(q,z)<>0thenz=z+1:goto820
  830 ifz>1then850
  835 ify2=13then880
  840 goto995
  850 v1=f(q,z-1)
  855 ifv1>13thenv1=v1-13:goto855
  860 ify2<>v1-1then995
  865 s2=int((f(q,z-1)-1)/26):s1=int((s1-1)/2)
  870 ifs1=s2then995
  880 iff(p,y-1)>100thenf(p,y-1)=f(p,y-1)-100
  882 f(q,z)=f(p,y):f(p,y)=0
  885 y=y+1:z=z+1
  890 iff(p,y)<>0then882
  895 print"please wait while i fix the cards !"
  900 gosub3100:goto500
  950 rem errors!
  990 print"invalid response!":goto997
  995 print"illegal play!"
  997 t=ti
  998 if(ti-t)<50goto998
  999 goto500
 1000 rem display aces
 1010 print"{home}{down}{down}{down}{down}";
 1012 forx1=1tox:print"{down}{down}";:nextx1
 1020 if(s(x)=0)and(x>2)thenprint"{CBM-@}{CBM-@}";s$(x):return
 1025 ifs(x)=0thenprint"{rvon}  ";s$(x);"{rvof}":return
 1030 r=s(x):gosub2050:print:return
 2000 rem display cards in piles
 2005 r=f(x,y)
 2010 ifr=0thenprint"   ";:return
 2020 ifr>100thenprint"VVV";:return
 2050 rem print card
 2055 r1=r
 2056 ifr1>13thenr1=r1-13:goto2056
 2057 ifr<27thenprint"{rvon}";
 2060 onr1goto2101,2102,2103,2104,2105,2106,2107,2108,2109,2110,2111,2112,2113
 2101 print" a";:goto2200
 2102 print" 2";:goto2200
 2103 print" 3";:goto2200
 2104 print" 4";:goto2200
 2105 print" 5";:goto2200
 2106 print" 6";:goto2200
 2107 print" 7";:goto2200
 2108 print" 8";:goto2200
 2109 print" 9";:goto2200
 2110 print"10";:goto2200
 2111 print" j";:goto2200
 2112 print" q";:goto2200
 2113 print" k";
 2200 r9=int((r-1)/13)+1
 2210 prints$(r9);"{rvof}";:return
 3000 rem display aces & rows
 3030 print"{clr}rows  C1C  C2C  C3C  C4C  C5C  C6C  C7C"
 3032 print"{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":print"aces{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}":print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 3034 forx=1to4:gosub1000:nextx
 3040 gosub3100
 3050 gosub3500
 3060 return
 3100 rem update row display
 3110 print"{home}{down}{down}";:fory=1to18
 3112 y9=y-11:ify<12theny9=1
 3114 printtab(4+((y9-1)*5));
 3120 forx=y9to7:printspc(2);:gosub2000
 3150 nextx:print:nexty:return
 3200 rem next 3rd card in deck
 3220 ifd(1)=0then3500
 3250 c=c+3
 3260 if(c>24)thenc=3
 3270 ifd(c)+d(c-1)+d(c-2)=0thenc=3
 3280 ifd(c)=0thenc=c-1:goto3280
 3500 rem update deck display
 3510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}deck{down}"
 3520 print"                           ":print"{up}";
 3530 ifd(1)=0thenprint"   ";:goto3550
 3540 r=d(c):gosub2050
 3550 x=0:fory=1to24:ifd(y)<>0thenx=x+1:nexty
 3560 printtab(10);"(";x;"cards left )"
 3570 return
 4000 rem back up lines then clear
 4010 forl1=1tol:print"{up}";:nextl1
 5000 rem blank lines!
 5010 forl1=1tol
 5020 print"                                       "
 5030 nextl1
 5040 forl1=1tol:print"{up}";:nextl1:return
 6000 rem remove card from deck & disp
 6010 forx=cto24:d(x)=d(x+1):nextx
 6020 ifd(1)=0then6050
 6030 c=c-1:ifc<1thenc=3
 6040 ifd(c)=0thenc=c-1:goto6040
 6050 gosub3500:return
    0 sr$="you have no sword to do it with. oh my! the sorcerer has just"
    1 gb$="a gold bar falls out!"
    2 d1$="okay. gulp gulp gulk. something seems   different now..."
    3 di$="you're not holding it hence it is       impossible to  drink it."
    4 cm$=chr$(44)
    5 x=rnd(-ti):x=0
    6 nw$(1)="nice weather we've been having lately."
    7 nw$(2)="hello"
    8 qt$=chr$(34)
    9 vt$="the movement of the painting reveals a  vault in the wall. the vault is"
   10 print"{clr}{down}      sorcerer's castle adventure"
   11 vt$=vt$+" locked."
   12 print:gt$(1)="wheeee!":gt$(2)="are you enjoying yourself?"
   13 sr$=sr$+" killed you!"
   14 print"{down}{down}{down}            by greg hassett
   15 print:sk$="the sorcerer died and then vanished.    his septor remains."
   16 print"{down}{down}{down}    converted to pet by john o'hare"
   17 db$="you must supply a direct object."
   18 deffnr(q)=int(rnd(1)*q)+1
   19 cp=49:s1$="i don't see it here.":s2$="don't be ridiculous.":goto1700
   20 goto1500
   30 iffnr(85)=20then1170
   40 ifzz>2andfnr(100)=50then1240
   50 iffnr(27)=8then1330
   60 t=t+1:gosub1430:ifvb$="ala"thenifcp=32thencp=17:goto20
   65 ifvb$="ala"thenprint"nothing happened.":goto60
   70 ifvb=-1and(no>21andno<30)thenvb=1
   80 ifno$="jes"thenprint"i see no jester here.":goto60
   90 ifvb$="cro"thenif(cp=52orcp=53)thenifcp=53thencp=52:goto20
   95 if vb$="cro"thenif(cp=52orcp=53)then20
  100 ifvb$="tur"thenprint"you have used"t"turns so far.":goto60
  110 ifvb<>30and(vb>10orvb=20orvb=6)andno$=""thenprintdb$:goto60
  120 ifvb$="hi"thenprintnw$(fnr(2)):goto60
  130 ifno$="gun"thenno=1
  140 ifvb=30then1070
  150 ifno$="bag"thenno=5
  160 ifvb=-1andno<>0and(no<22orno>29)thenprint"you must supply a verb.":goto60
  170 ifvb<1andno=0thenprint"i don't know how to "qt$n1$qt$" anything.":goto60
  180 ifvb=6and(no$="eve"orno$="all")then200
  190 ifno=0andvb>10thenprint"i don't know what a "qt$n1$qt$" is.":goto60
  200 onvbgoto210,280,20,350,380,400,460,470,480,490,510,520,550,640,660,740,770
  205 onvb-17goto830,840,840,550,920,920,940,950,980,1010,1040,1050,1070
  210 if(no<22orno>29)andno$<>""thenprint"i don't know how to do that.":goto60
  220 ifno$=""thenprint"where?":goto60
  230 ifno>25thenno=no-4
  240 no=no-22:ifp(cp,no)=0thenprint"there is no way to go in that direction.":goto60
  250 ifcp=1andno=1anddf=0thenprint"the castle door is locked.":goto60
  260 ifcp=17andno=1andcf=0thenprint"the crack is too small for you to follow":goto60
  270 cp=p(cp,no):goto20
  280 ifob(no,0)=-1thenprint"you've already got it!":goto60
  290 ifno=0thenprint"whats a "n1$"?":goto60
  300 ifob(no,0)<>cpthenprints1$:goto60
  310 ifno=17orno=21orno=20orno=16thenprints2$:goto60
  320 ifzz+1>7thenprint"you are unable to carry any more.":goto60
  330 ifno=9andpf=0thenprintvt$:pf=1:ob(16,0)=cp:ob(9,0)=-1:zz=zz+1:goto60
  340 print"okay.":zz=zz+1:ob(no,0)=-1:goto60
  350 ifzz=0thenprint"you are emptyhanded.":goto60
  360 print"you are holding the following:":fori=1tolo:ifob(i,0)=-1thenprintob$(i)
  370 nexti:goto60
  380 j=0:fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
  385 nexti
  390 print"out of a maximum of 225 points, you have";j;"points.":goto60
  400 ifno<>0andob(no,0)<>-1thenprint"you're not carrying it!":goto60
  410 ifno$<>"eve"andno$<>"all"then440
  420 ifzz=0thenprint"you're not carrying anything!":goto60
  425 fori=1tolo:ifob(i,0)=-1thenob(i,0)=cp
  430 nexti:zz=0:print"ok.":goto60
  440 ifno=0thenprint"i've never heard of a "n1$".":goto60
  450 ob(no,0)=cp:print"dropped.":zz=zz-1:goto60
  460 print"sorry, this is your adventure, no mine!":goto60
  470 print"{clr}":input"press <return> when ready to ***save***{$a0}{$a0}{$a0}{left}{left}{left}";a$
  475 print"{clr}{down}saving.":fori=1tolo:print#1,ob(i,0):nexti:print#1,cp:print#1,t
  476 print#1,df;cm$;vf;cm$;cf;cm$;pf;cm$;sf%;cm$;wf;cm$;zz:print"done.":goto20
  480 print"{clr}":input"press <return> when ready to ***load***{$a0}{$a0}{$a0}{left}{left}{left}";a$
  485 print"{clr}{down}loading":fori=1toloinput#1,ob(i,0):nexti:input#1,cp,t,df,vf,cf,pf,sf%,wf,zz
  490 input"do you really want to quit now";qn$:ifleft$(qn$,1)<>"y"then60
  495 input"are you sure";q2$:ifleft$(q2$,1)<>"y"thenprint"i didn't think so.":goto60
  500 goto1370
  510 print"alright...";n1$:goto60
  520 ifob(no,0)<>-1thenprintdi$:goto60
  530 ifno<>7thenprints2$:goto60
  540 printd1$:zz=zz-1:ob(7,0)=0:cf=1:goto60
  550 ifno<>31andno<>16andno<>30thenprint"i don't know how to open such a thing.":goto60
  560 ifno=16andob(16,0)<>cpthenprint"what vault?":goto60
  570 ifno=16andob(2,0)<>-1thenprint"you don't have the key.":goto60
  580 ifno=16thenprint"the vault is open":vf=1:ifob(15,0)=0thenprintgb$:ob(15,0)=cp
  590 ifno=16then60
  600 ifno=31then1140
  610 ifcp<>1thenprint"what door?":goto60
  620 ifob(2,0)<>-1thenprint"you don't seem to have the key.":goto60
  630 print"the door is open.":df=1:goto60
  640 ifob(no,0)<>-1thenprint"you are not carrying it.":goto60
  650 print"i've known strange people, but attacking"ob$(no);"?":goto60
  660 ifno=20then710
  670 ifno=17thenprint"what knight ?":goto60
  680 ifno=21thenprint"i see no pirate here.":goto60
  690 ifob(i,0)<>-1thenprint"you are not currently holding that.":goto60
  700 print"it isn't alive!":goto60
  710 ifcp<>32thenprint"what sorcerer?":goto60
  720 ifob(8,0)<>-1thenprintsr$:fori=1to3000:nexti:goto1370
  730 printsk$:ob(14,0)=cp:ob(20,0)=0:goto60
  740 ifob(no,0)<>-1thenprint"you don't have that right now.":goto60
  750 ifno<>3thenprint"how do you expect to read ";ob$(no);"?":goto60
  760 print"it says:  magic word:  alakazam.":goto60
  770 ifob(no,0)<>-1andob(no,0)<>cpthenprint"i don't see that here.":goto60
  780 ifob(1,0)<>-1thenprint"you don't have a gun!":goto60
  790 ifno=17thenprint"the bullet dissolves as it hits the     armor.":goto60
  800 print"the golden bullet from the golden pistolvaporizes that."
  810 ifob(no,0)=-1thenzz=zz-1
  820 ob(no,0)=0:goto60
  830 ifob(no,0)=-1thenprints2$
  835 print"you're not holding it.":goto60
  840 ifno=16orno=30orno=31then870
  850 ifob(no,0)<>-1thenprint"you're not holding that to my knowledge.":goto60
  860 print"i don't know how to close such a thing.":goto60
  870 ifno=16andob(16,0)<>cpthenprint"what wault?":goto60
  880 ifno=16thenprint"the vault is closed and locked.":vf=0:goto60
  890 ifno=31then1110
  900 ifcp<>1thenprint"what door?":goto60
  910 print"the door is closed and locked.":df=0:goto60
  920 ifob(no,0)<>-1thenprint"you're not holding it.":goto60
  930 print"no, these items have to be used on the  next adventure, too.":goto60
  940 print"the value of that is"ob(no,1)"points.":goto60
  950 ifob(no,0)<>-1thenprint"you don't seem to have it.":goto60
  960 ifno<>8thenprint"wow is this fun!":goto60
  970 print"whoosh!":goto60
  980 ifob(no,0)<>-1thenprint"you're not currently carrying it.":goto60
  990 ifno<>8thenprints2$:goto60
 1000 print"it is already razor sharp.":goto60
 1010 ifob(no,0)<>-1thenprint"tu ne le portes pas(you're not carrying it.":goto60
 1020 ifno<>19thenprint"how?":goto60
 1030 print"very good! now you can go to the second grade!":goto60
 1040 print"try drop.":goto60
 1050 print"i can only tell you what is in the room with you, sorry."
 1060 print"i cannot find anything.":goto60
 1070 ifcp<>44thenprintgt$(fnr(2))
 1080 ifcp<>44then60
 1090 ifwf=0thenprint"the window is only slightly ajar.":goto60
 1100 print"okay...you fall safely in the pile of   leaves.":cp=48
 1101 print"you seem to be lost in a forest of      spruce trees.":goto60
 1110 ifcp<>44thenprint"what window? i don't see a window!":goto60
 1120 ifwf=0thenprint"it is already closed.":goto60
 1130 print"having opened it earlier, you find it   impossible to close.":goto60
 1140 ifcp<>44thenprint"waht window?":goto60
 1150 ifwf=1thenprint"it is already open.":goto60
 1160 print"through a great effort, you open the"
 1161 print"window, there is a pile of leaves       outside the window.":wf=1:goto60
 1170 print"holy moly! a black knight walked in to  kill you!":gosub1430
 1180 ifvb<>17orno<>17then1210
 1190 ifob(1,0)<>-1thenprint"you have no gun!":goto1210
 1200 print"the knight disintigrated.":goto60
 1210 print"the knight is running towards you.......";
 1220 iffnr(5)=2thenprint"it kills you!":fori=1to3000:nexti:goto1370
 1230 print"it misses you
 1232 print"and crashes into a wall...wait! he has disappeared!":goto60
 1240 print"a pirate just appeared and chartled,"
 1250 print"well shiver me timbers! not another one!";
 1255 print"har har har, i'll just snatch all this"
 1260 print"booty and hide it deep in the maze."
 1270 rem
 1280 print"with that he takes all of your treasure!"
 1290 fori=1tolo:ifob(i,0)<>-1then1320
 1300 ifob(i,1)=0then1320
 1310 ob(i,0)=fnr(6)+34:zz=zz-1
 1320 nexti:goto60
 1330 print"jingle jingle jingle!":print"chester the jester pops up and chants,-"
 1340 printc$(fnr(8)-1):print" tee hee hee!"
 1350 print"and then vanishes in a cloud of pink    smoke."
 1360 goto60
 1370 print"{clr}":j=0:fori=1tolo:ifob(i,0)=1thenj=j+ob(i,1)
 1380 nexti
 1390 print"out of a maximum of 225 points, you havescored"j"points."
 1400 print"{down}hope you had fun!":end
 1410 print"whazzat?"
 1420 stop
 1430 input"**what do you want to do  {$a0}{left}{left}{left}";cm$
 1435 if cm$="{$a0}"then1430
 1440 n1$="":v1$="":no=0:vb=0:no$="":vb$=""
 1450 cm=len(cm$):fori=1tocm:ifmid$(cm$,i,1)<>" "thenv1$=v1$+mid$(cm$,i,1):nexti
 1460 vb$=left$(v1$,3):fori=1tonv:ifvb$(i)=vb$thenvb=i:goto1480
 1465 nexti
 1470 vb=-1:n1$=v1$:goto1490
 1480 iflen(v1$)+1>len(cm$)thenno=0:return
 1485 n1$=right$(cm$,len(cm$)-1-len(v1$))
 1490 no$=left$(n1$,3):fori=1tonn:ifno$(i)=no$thenno=i:return
 1493 nexti
 1495 return
 1500 print"{clr}":print"you're ";p$(cp):fori=1tolo
 1510 ifob(i,0)=cpthenprint"*there is ";ob$(i)" here."
 1520 nexti
 1530 ifcp=1anddf=0thenprint"the door is locked."
 1540 ifcp=18andvf=0andob(16,0)=18thenprint"the vault is locked."
 1550 ifcp=17andcf=0thenprint"a small crack leads southward."
 1560 ifcp=1anddf=1thenprint"the door is open."
 1570 ifcp=18andvf=1andob(16,0)=18thenprint"the vault is open."
 1580 ifcp=44andwf=0thenprint"the window is slightly ajar."
 1590 ifcp=17andcf=1thenprint"a towering hole leads southward."
 1600 ifcf=0thenp(17,1)=0
 1610 ifcp=44andwf=1thenprint"the window is wide open.  there is a"
 1615 ifcp=44andwf=1thenprint"rather large pile of leaves outside the window."
 1620 k=0:print"you can go ";:fori=0to3:ifp(cp,i)=0then1650
 1630 ifk=1thenprint", ";
 1640 printd$(i);:k=1
 1650 nexti:ifk=0thenprint"nowhere!"
 1660 ifk=1thenprint
 1670 p(17,1)=18
 1680 print"=======================================":goto30
 1690 o=0:return
 1700 np=53:lo=35:nn=31:nv=30:dimp(np,3),p$(np),vb$(nv),no$(nn),ob(lo,1),ob$(lo)
 1710 p$(1)="outside a medieval castle, the   pavement has  an inscription:"
 1711 p$(1)=p$(1)+chr$(13)+"leave all treasure here say 'score'."
 1715 data 5,8,3,2,4,7,1,0,6,7,0,1
 1720 p$=" side of the castle.":p$(2)="at the west"+p$:p$(3)="at the east"+p$
 1730 p$(4)="in a vast forest stretching out  of sight.":data4,2,4,4,53,0,6,1
 1740 p$(5)=p$(4):p$(6)=p$(4):data6,6,6,5
 1750 p$(7)="at the south"+p$+" there is a tower with a small window in"
 1755 p$(7)=p$(7)+" the far, far distance.":data2,0,0,0
 1760 p$(8)="in a splendid chamber 30         feet high.":data1,11,0,10
 1770 p$(9)="in a damp, musty library.":data0,10,0,0
 1780 p$(10)="in the master bedroom.":data9,0,8,0
 1790 p$="in a vast corridor stretching outof sight to the ":p$(11)=p$+"south."
 1795 data 8,12,14,0
 1800 p$(12)=p$+"north and south.":data11,13,15,0
 1810 p$(13)=p$+"north.":data12,0,16,17
 1820 p$="in a bedroom with a ":p$(14)=p$+"stone floor.":p$(15)=p$+"wooden floor
 1825 p$(16)=p$+"dirt floor.":data0,0,0,11,0,0,0,12,0,33,0,13
 1830 p$(17)="in a dusty pantry. markings in   the dust read, go south to dungeon.
 1835 data 0,18,13,0
 1840 p$(18)="in a primitive art gallery.":data17,19,0,19
 1850 p$(19)="in a maze of twisty little       passages."
 1860 p$(20)="in a twisty maze of little       passages."
 1870 p$(21)="in a little maze of twisty       passages."
 1880 p$(22)="in a twisting maze of little     passages."
 1890 p$(23)="in a little twisty maze of       passages."
 1900 data0,20,18,0,20,22,20,19,21,21,22,23,21,22,20,22,21,24,23,23
 1910 p$(24)="in the kitchen.":data23,27,25,0,0,27,26,24,29,28,30,25
 1920 p$(25)="in the dining room.":p$(26)="in the alcove to the study."
 1925 p$(27)="in the office of the sorcerer (?)":data24,0,28,0
 1930 p$(28)="in the drawing room.":data0,0,0,27,0,26,0,0,0,31,0,26
 1940 p$(29)="in the parlor.":p$(30)="in the study.":p$(31)="in the sitting room."
 1950 p$(32)="in the dungeon!":data0,0,0,0,0,0,0,0
 1960 fori=1tonp:forj=0to3:readp(i,j):nextj:nexti:p(31,fnr(4)-1)=32
 1970 p$(33)="in a primeval conference room.":data16,0,35,0
 1980 p$(34)="in the tower. it overlooks a huge"
 1981 p$(34)=p$(34)+"kingdom down a monsterous mountain, the grass is greener "
 1982 p$(34)=p$(34)+"than green itself.":data0,0,36,0
 1990 p$(35)="in a maze of twisty little       passages, all alike."
 1995 fori=36to40:p$(i)=p$(35):nexti:data36,35,35,33,38,34,37,35,36,0,39,0,40,39
 1996 data39,36,38,37,39,38,41,38,0,0,42,40,0,0
 2000 p$(41)="at the brink of a huge pit."
 2001 p$(43)="in a barren cubical, with        passages leading off to the"
 2002 p$(43)=p$(43)+" north       and south.":p$(42)="in the pit. a good passage"
 2003 p$(42)=p$(42)+" exits to the north."
 2010 p$(44)="at the end of the castle. you cansee a forest out a small window."
 2015 data43,0,41,0,44,42,0,0,0,0,0,0
 2020 p$(45)="lost in a dark forest made up    chiefly of spruce trees."
 2025 fori=46to48:p$(i)=p$(45):nexti:data45,46,45,49,45,47,46,50,45,51,47,48,50
 2026 data48,47,48
 2030 p$(49)="on an old path made by horses in mideval times."
 2035 p$(51)="in the middle of a clearing, to  the south is a bridge."
 2037 p$(52)="on the north side of the bridge."
 2038 p$(53)="on the south side of the bridge."
 2039 data 0,50,45,0,49,48,46,0,0,52,47,0,51,53
 2040 data0,0,52,5,0,0,pis,key,boo,rug,coi,sap,liq,swo,pai,opa,sil,pen,pil,sep
 2045 data bar,vau,kni,cup,cro,sor,pir,nor,sou,eas,wes,n,s,e,w,doo,win
 2050 datago,get,loo,inv,sco,dro,hel,sav,loa,qui,say,dri,ope,hit,kil,rea,sho,eat
 2055 dataclo,loc,unl,des,bre,val,swi,sha,wea,thr,fin,jum
 2060 fori=1tonn:readno$(i):nexti:fori=1tonv:readvb$(i):nexti
 2070 data a gold pistol,4,10,a set of keys,2,0,a book on sorcery,9,0
 2072 data a persian rug,10,15,a bag of coins,3,15,a priceless saphire,14,10
 2074 data a flask of liquid,15,0,a golden sword,42,10,a priceless painting,18,15
 2080 data a giant opal,22,15,a set of silverware,24,15,a platinum pen,27,5
 2082 data a velvet pillow,43,20,the sorcerer's septor,0,50,a gold bar,0,20
 2084 data a vault in the wall,0,0,a black knight,0,0,a pewter cup,25,15
 2086 data a kings crown,30,10,xxx
 2090 data32,0,an evil pirate,0,0
 2100 fori=1to21:readob$(i),ob(i,0),ob(i,1):nexti
 2110 data north,south,east,west
 2120 fori=0to3:readd$(i):nexti
 2130 p$(19)=p$(19)+chr$(13)+"a note on the wall reads: this is not {$a0} the maze"
 2135 p$(19)=p$(19)+" where the pirate hides his     treasure. --gh"
 2140 ob$(20)="an evil high sorcerer just    waiting to cast a spell on you."
 2150 p$(50)="at the end of the path, with     forest surrounding you in all"
 2155 p$(50)=p$(50)+" directions except north, where you were before."
 2160 p(50,3)=48:p$(47)=p$(47)+chr$(13)+"to the south there seems to be light."
 2170 fori=52to53:p$(i)=p$(i)+chr$(13)+"across the bridge is more forest.":next
 2180 p(36,2)=37
 2190 c$(0)="pay attention in the maze, to the       wording of the phrase! "
 2195 c$(0)=c$(0)+"if you do you'll be un-mazed."
 2200 c$(1)="gulp gulp gulp, drink it down, i'm not  such a stupid clown!"
 2210 c$(2)="out a window you may fall, just look out, that is all!"
 2220 c$(3)="the knights can't be killed, as far as iknow, if you find they can"
 2225 c$(3)=c$(3)+" please tell  me so!"
 2230 c$(4)="don't bring the sword to the sorcerers  place.  if you do, he might"
 2235 c$(4)=c$(4)+" confront youface to face!"
 2240 c$(5)="hocus pocus, alakazam! don't read the   book or you'll be sorry!"
 2250 c$(6)="passages that all seem alike can seem   quite different, just hope"
 2255 c$(6)=c$(6)+" you're right!"
 2260 c$(7)="not all treasure lies under a roof, some might be under a tree!"
 2270 goto20
    1 print"{clr}":poke59468,12
    2 forn=0to9:readd$:next:aa=59467:bb=59466:cc=59464:pokeaa,16:goto4
    3 pokebb,55:forvx=v1tov2stepv3:pokecc,vx:forjx=1tov4:next:next:pokecc,0:return
    4 print"{clr}{rvon} the floor of hazard "
    5 deffna(r)=int(r*rnd(1)):r=rnd(ti)
    6 p9=fna(20)+10:print"{down}{rvon} your power is";p9"{left} ":x$="n":gosub179:goto8
    7 gosub93:print"{clr}{rvon} the floor of "l$(lv+3)" ":print"{down}{rvon} your power is";p9"{left} "
    8 x=0:y=32:c1=1:w=0:n=102
    9 st$=" ":gosub95:n=102:forp=32968to33767:pokep,n:next:gosub64
   10 p=33465:p1=32968:iflv<>0goto22
   11 gosub66:gosub89:p1=33003:gosub66:gosub89:p1=33568:gosub66:gosub89
   12 p1=33603:gosub66:gosub89
   13 n=fna(8)+1:onngosub14,15,16,17,18,19,20,21:goto22
   14 ex=33087:return
   15 ex=33005:return
   16 ex=32970:return
   17 ex=33048:return
   18 ex=33648:return
   19 ex=33730:return
   20 ex=33687:return
   21 ex=33765:return
   22 p1=33383:gosub66:gosub89:poke33465,83:gosub93
   23 iflv<>0orp<>exgoto103
   24 goto156
   25 ifabs(lv)<2then31
   26 n=fna(300):ifn>9then31
   27 restore:forr=0ton:readd$:next:p9=p9-r:ifp9<1thenp9=0
   28 print"{home}{rvon} a curse of "d$;"ness ";:v1=10:v2=210:v3=20:v4=60:gosub3
   29 print"- power now"p9:gosub92
   30 ifp9<1thenr=20:goto150
   31 forn=1to100:getd$:ifd$<>""thenn=100
   32 next:ifd$="e"ord$="w"ord$="n"ord$="s"then34
   33 d$=x$
   34 gosub39:ifq<>0thenq=0:goto23
   35 iff=1thengosub130:goto25
   36 ifst$="u"thenlv=lv+1:goto7
   37 ifst$="d"thenlv=lv-1:goto7
   38 pokep,y:y=x:p=p3:pokep,83:v1=255:v2=v1:v3=1:v4=5:gosub3:goto23
   39 f=0:gosub56:gosub60
   40 iff<>0thenreturn
   41 ifd$="e"thenp3=p+1
   42 ifd$="w"thenp3=p-1
   43 ifd$="n"thenp3=p-40
   44 ifd$="s"thenp3=p+40
   45 x=peek(p3):ifx=209thenf=1:return
   46 x$=d$:ifx<>102thengosub96:return
   47 n=fna(8)+1:ifn>2thengosub74:goto45
   48 pokep3,189:print"{home}{rvon} stairs:up,down,stay ":v1=220:v2=20:v3=-5:v4=9:gosub3
   49 ti$="000000"
   50 ifti$<"000002"then52
   51 gosub93:print"{rvon} stairs vanish ":pokep3,102:gosub74:gosub93:goto45
   52 getst$:ifst$="s"then51
   53 ifst$="u"andlv<>3thenreturn
   54 ifst$="d"andlv<>-3thenreturn
   55 goto50
   56 p1=32968:p2=33007
   57 forn=1to20:ifp=p1andd$="w"thenf=1
   58 ifp=p2andd$="e"thenf=1
   59 p1=p1+40:p2=p2+40:next:return
   60 p1=32968:p2=33728
   61 forn=1to40:ifp=p1andd$="n"thenf=1
   62 ifp=p2andd$="s"thenf=1
   63 p1=p1+1:p2=p2+1:next:return
   64 a(0)=209:b(0)=209:d(0)=209:e(0)=209:a(1)=209:a(3)=209:e(1)=209:e(3)=209
   65 a(4)=209:b(4)=209:d(4)=209:e(4)=209:return
   66 a(2)=32:b(2)=32:c(0)=32:c(1)=32:c(2)=32:c(3)=32:c(4)=32
   67 d(2)=32:e(2)=32:b(1)=209:b(3)=209:d(1)=209:d(3)=209:return
   68 a(2)=32:b(1)=209:b(3)=209:b(2)=32:c(0)=32:c(1)=32:c(2)=32:c(3)=32:c(4)=32
   69 d(0)=209:d(1)=209:d(2)=209:d(3)=209:d(4)=209:e(0)=209:e(1)=209:e(2)=209
   70 e(3)=209:e(4)=209:return
   71 a(2)=209:b(1)=209:b(2)=209:b(3)=209:c(0)=32:c(1)=32:c(2)=32
   72 c(3)=32:c(4)=32
   73 d(1)=209:d(3)=209:d(2)=32:e(2)=32:return
   74 r=fna(2)+1:ifr<2thengosub81:goto76
   75 r=fna(5)+1:onrgosub66,68,71,84,87
   76 ifd$="s"thenp1=p+38
   77 ifd$="n"thenp1=p-202
   78 ifd$="e"thenp1=p-79
   79 ifd$="w"thenp1=p-85
   80 gosub89:return
   81 a(2)=32:b(0)=209:b(4)=209:b(1)=32:b(2)=c1:b(3)=32:c(0)=32:c(1)=c1:c(2)=32
   82 c(3)=c1:c(4)=32:d(0)=209:d(4)=209:d(1)=32:d(2)=c1:d(3)=32:e(2)=32
   83 c1=c1+1:return
   84 a(2)=32:b(1)=209:b(3)=209:b(2)=32:c(0)=32:c(1)=32:c(2)=32:c(3)=209
   85 a(2)=32:b(1)=209:b(3)=209:b(2)=32:c(0)=32:c(1)=32:c(2)=32:c(3)=209
   86 c(4)=209:d(1)=209:d(3)=209:d(2)=32:e(2)=32:return
   87 a(2)=32:b(1)=209:b(3)=209:b(2)=32:c(0)=209:c(1)=209:c(2)=32:c(3)=32
   88 c(4)=32:d(1)=209:d(3)=209:d(2)=32:e(2)=32:return
   89 forn=0to4
   90 pokep1,a(n):pokep1+1,b(n):pokep1+2,c(n):pokep1+3,d(n):pokep1+4,e(n)
   91 p1=p1+40:next:v1=80:v2=250:v3=5:v4=1:gosub3:return
   92 forn=1to1500:next
   93 print"{home}";:forn=1to4
   94 print"                                       ":next:print"{home}":return
   95 forn=1to10:getd$:next:return
   96 ift1=0andx=32thenreturn
   97 ift1=1goto100
   98 t1=1:gosub117:w=1:ifq=0goto102
   99 goto101
  100 w=w+1:ifw<3then102
  101 w=0:t1=0
  102 return
  103 n=fna(50):ifn>=abs(lv)then107
  104 lw=fna(10):gosub115:print"{home}{rvon} a wandering ";wm$(lw);" "
  105 m9=int((abs(lv)*15)*10*rnd(1)+1):print"{down}{rvon} with a power of";m9;"{left} "
  106 v4=1:goto161
  107 ifabs(lv)=3goto25
  108 n=fna(80):ifn>1then25
  109 v1=99:v2=10:v3=-1:v4=1:gosub3
  110 iflv=0andn=0then113
  111 iflv<1goto113
  112 lv=lv+1:print"{home}{rvon}trap! you dematerialise ":goto114
  113 lv=lv-1:print"{home}{rvon} pit! you fall "
  114 gosub92:goto7
  115 forn=1to22:v1=255:v2=55:v3=-50:v4=1:pokep,83:gosub3
  116 v1=10:v2=110:v3=20:pokep,170:gosub3:next:return
  117 r=int((abs(lv)+1)*5*rnd(1)+1):ifr<3then152
  118 r=fna(21):ifr<20then120
  119 n=fna(20):ifn>3then118
  120 print"{home}{rvon}"tab(10)" a ";m$(r);" "
  121 v1=254:v2=250:v3=-2:v4=500:gosub3:gosub95:gosub93
  122 ifr=20then141
  123 print"{home}{rvon} fight,approach,withdraw ":ti$="000000"
  124 ifti$>"000003"thengosub93:goto140
  125 getf$:iff$=""then124
  126 gosub93:iff$="w"thenq=1:gosub130:return
  127 iff$="f"goto141
  128 iff$<>"a"then124
  129 goto134
  130 ifx$="w"thenx$="e":return
  131 ifx$="e"thenx$="w":return
  132 ifx$="n"thenx$="s":return
  133 x$="n":return
  134 ifabs(lv)=0thenp1=5:p2=8
  135 ifabs(lv)=1thenp1=6:p2=8
  136 ifabs(lv)=2thenp1=7:p2=9
  137 ifabs(lv)=3thenp1=9:p2=10
  138 n=fna(12)+1:ifn>p2goto149
  139 ifn>p1goto148
  140 p9=p9-1:print"{home}{rvon} it attacks and";
  141 print"{rvon} fearful combat ensues ":gosub115
  142 gosub93:dm=int((abs(lv)*20)*rnd(1))+abs(lv)+1:ifr=20thendm=dm+100
  143 ifdm>=p9goto150
  144 pokep,83:gosub93:print"{home}{rvon} victorious ";
  145 n=fna(abs(lv)+2)*3:ifn>2thenp9=p9-dm:print"but hurt ";:goto147
  146 p9=p9+dm
  147 print"{rvon}- power now";p9"{left} ":gosub92:gosub95:goto152
  148 print"{home}{rvon} it smiles enigmatically ":gosub92:goto138
  149 print"{home}{rvon} it's friendly!":gosub92:goto152
  150 print"{clr}{rvon} a ";m$(r);" killed you "
  151 print"{rvon}{down} riches lost:":gosub157:end
  152 r1=fna(15)+1:ifr1<3thenreturn
  153 n=int((abs(lv)+3)*30*rnd(1)+5):r1=fna(10)
  154 print"{home}{rvon}"tab(10);n;"{left} ";t$(r1);" ":tt(r1)=tt(r1)+n
  155 forn=1to20:v1=25:v2=25:v3=1:v4=9:gosub3:next:gosub92:return
  156 print"{clr}{rvon} out!  {down} treasure:":gosub157:end
  157 x=0:print:forn=0to9:iftt(n)=0then159
  158 print"{rvon}"tt(n);"{left} ";t$(n);" ":x=1
  159 next:ifx=0thenprint"{down}{rvon} an empty sack! "
  160 return
  161 gosub95:gosub92:print"{home}{rvon} cast ":p1=-1:p2=0:ti$="000000"
  162 ifti$>"000002"thenprint"{home}{rvon} too late!":goto177
  163 getd$:ifd$=""then162
  164 gosub93:forr=0to9:ifd$<>left$(t$(r),1)then167
  165 print"{home}{rvon} "t$(r)" ";:iftt(r)<10then167
  166 p1=r:print"daze the "wm$(lw)" ":v4=v4+1
  167 iftt(r)>9thenp2=p2+tt(r)
  168 next:v1=250:v2=10:v3=-20:forn=1to9:gosub3:next
  169 ifp2=0thengosub93:print"{rvon} helpless!":goto177
  170 ifp1<>-1then174
  171 print"{rvon} - no effect ":v4=1
  172 m9=m9+int((abs(lv)*5)*rnd(1)+1):gosub173:goto161
  173 print"{down}{rvon} ";wm$(lw);"'s power now";m9;"{left} ":return
  174 n=fna(7):tt(p1)=tt(p1)-(n+4):gosub93:print"{home}{rvon}";tt(p1)"{left} "t$(p1)" left "
  175 m9=m9-((p1+1)*(fna(20-abs(lv)))):ifm9>0thengosub173:goto161
  176 print"{down}{rvon} the "wm$(lw)" has fled ":pokep,83:gosub92:goto107
  177 gosub115:print"{clr}{down}{rvon} the ";wm$(lw);" killed you ":goto151
  178 dataweak,hungri,thirsti,tired,cold,hot,nervous,sick,dizzi,dark
  179 dimm$(20):forn=0to20:readm$(n):next:forn=0to9:readt$(n):next:forn=0to9
  180 readwm$(n):next:forn=0to6:readl$(n):next:return
  181 datamummy,harpy,lizard man,medusa,giant spider,ghoul,giant,gray ooze
  182 dataslime eel,minotaur,sting jelly,purple worm,wraith,dragon,spectre
  183 datazombie,yellow mold,troll,lurker,hell hound,"{left}{left}the s*o*r*c*e*r*e*r"
  184 dataamethysts,bloodstones,cornelians,diamonds,emeralds,gold pieces,opals
  185 datapearls,rubies,sapphires
  186 datashrieker,yehti,skeleton,berserker,enfeebler,manticore,cockatrice
  187 dataparalyser,vampire,goblin,evil,peril,harm,hazard,woe,calamity,terror
    1 rem**bob chappell**sorcerer's castle****mk ii**1/6/80****
    2 print"{clr}":poke59468,12
    3 print"{clr}  -----------------------"
    4 print"  {rvon} the sorcerer's castle "
    5 print"  -----------------------"
    6 print"{down}   high in the mountains of tritania
    7 print"lives zarak,the sorcerer,long ago
    8 print"banished from human society because of
    9 print"his evil deeds.
   10 print"{down}   his castle,from which few people
   11 print"have ever returned alive,is full of
   12 print"caves and tunnels,and is built on
   13 print"seven levels.
   14 print"{down}   the sorcerer is very rich and has
   15 print"concealed his treasure in various caves
   16 print"around the castle.but beware!-there is
   17 print"usually one of zarak's hideous monsters
   18 print"guarding each cave.
   19 print"{down}{rvon} press any key to continue "
   20 geta$:ifa$=""goto20
   21 print"{clr}   the caves and levels mysteriously
   22 print"shift so that if you remain in or
   23 print"revisit a cave,there might be another
   24 print"monster (or treasure) there.if you
   25 print"return to a floor previously explored,
   26 print"the positions of the tunnels and caves
   27 print"will also have moved.
   28 print"{down}   at the beginning of your adventure,
   29 print"you are given a certain amount of
   30 print"power which increases or decreases in
   31 print"different circumstances.when you enter
   32 print"a cave,you will be told what monster,if
   33 print"any,is lying in wait.
   34 print"you will have to decide if you wish to
   35 print"{rvon} fight,approach or withdraw           "
   36 print"{rvon}(by keying f,a or w) - decide quickly!
   37 print"{down}if you approach,you may find the
   38 print"monster is friendly (this time!),and
   39 print"you may go on your way unmolested.
   40 print"{down}{rvon} press any key to continue "
   41 geta$:ifa$=""goto41
   42 print"{clr}   however,should the monster prove
   43 print"hostile,it will attack immediately and
   44 print"gain an advantage by surprise.
   45 print"the outcome of a battle will be that
   46 print"you or the monster is killed.if you are
   47 print"strong enough to overcome the monster,
   48 print"you may find that your power has been
   49 print"depleted (due to injuries received) or
   50 print"that you have gained in strength by
   51 print"the experience.any treasure in the cave
   52 print"becomes yours.
   53 print"{down}   in the tunnels,and provided the way
   54 print"ahead is clear,you continue moving
   55 print"{rvon} north,south,east or west.          "
   56 print"{rvon}(change course by keying n,s,e or w)"
   57 print"{down}this change has to be done at the last
   58 print"moment for maximum efficiency.
   59 print"you automatically retrace your steps if
   60 print"your way is blocked.
   61 print"{down}{rvon} press any key to continue "
   62 geta$:ifa$=""goto62
   63 print"{clr}   the symbol {rvon}Q{rvof} represents rock -
   64 print"    you cannot pass through it.
   65 print"{down}   the symbol {CBM-+} represents the unknown.
   66 print"{down}   all caves are lettered to distinguish
   67 print"them from each other and from tunnels.
   68 print"{down}{down}there is only one exit
   69 print"{down}{rvon}     - repeat - only one exit     "
   70 print"{down}from the castle.it can be found in one
   71 print"of the eight corner-exits of
   72 print"{rvon}{down}     the floor of hazard.       "
   73 print"{down}the exit may shift to a new position if
   74 print"you leave {rvon} the floor of hazard.
   75 print"{down}{down}{rvon} press any key to continue "
   76 geta$:ifa$=""goto76
   77 print"{clr}   every so often,you will come to a "
   78 print"stairway and must decide (quickly)
   79 print"{down}{rvon}     to go up,down or stay    "
   80 print"{rvon}    (by keying u,d or s.      "
   81 print"{down}{down}{down}be warned - the further up or down
   82 print"you venture,the more monsters there are
   83 print"and the more nasty is their nature."
   84 print"there are other dangers,too.
   85 print"{down}however,more treasure is to be found at
   86 print"the higher and lower levels.
   87 print"(and you may need it).
   88 print"{down}{down}{down}{rvon} press any key to continue "
   89 geta$:ifa$=""goto89
   90 print"{clr}   more frequently than you will like,
   91 print"and without warning,you may find your-
   92 print"-self being attacked by one of the
   93 print"many {rvon} wandering monsters {rvof} which prowl
   94 print"round the castle,seeking whom they may
   95 print"destroy. since these monsters are too
   96 print"unearthly to defeat in normal combat,
   97 print"your only hope is to cast treasure at
   98 print"them. all the sorcerer's treasure has
   99 print"magical properties,the higher the
  100 print"initial letter of the treasure,the more
  101 print"powerful it's effect. you must have
  102 print"at least 10 pieces of one type of
  103 print"treasure for it to be used and you must
  104 print"respond quickly
  105 print"{down}{rvon}    (by keying a,b,c,d,e,g,o,p,r,or s) "
  106 print"{down} a=amethyst:b=bloodstone:c=cornelian
  107 print" d=diamond:e=emerald:g=gold piece
  108 print" o=opal:p=pearl:r=ruby:s=sapphire
  109 print"{down}{rvon} press any key to continue "
  110 geta$:ifa$=""goto110
  111 print"{clr}  any treasure cast does two things:-
  112 print"{down}1. it usually weakens the monster.
  113 print"{down}2. being magical,some of it returns to
  114 print"   your sack.
  115 print"{down}not having enough (or any) treasure,
  116 print"{down}or casting non-existent treasure,
  117 print"{down}or casting too late,could have dire
  118 print"{down}consequences for you.
  119 print"{down}{down}{down}{rvon} press any key to continue "
  120 geta$:ifa$=""goto120
  121 print"{clr}   just two more warnings.if you meet
  122 print"the sorcerer himself,take care!! he is
  123 print"both powerful and hostile.
  124 print"{down}   secondly,there are pits and traps
  125 print"concealed in the caves and tunnels.
  126 print"if you encounter one of these,you will
  127 print"find yourself on a more dangerous floor.
  128 print"{down}{down}{rvon} press any key to continue "
  129 geta$:ifa$=""goto129
  130 print"{clr}   plan of the castle{down}
  131 printtab(10)"{rvon}                           "
  132 printtab(10)"{rvon}     floor of terror       "
  133 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  134 printtab(10)"{rvon}     floor of calamity     "
  135 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  136 printtab(10)"{rvon}     floor of woe          "
  137 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  138 print"   ground {rvon}     floor of hazard       "
  139 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  140 printtab(10)"{rvon}     floor of harm         "
  141 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  142 printtab(10)"{rvon}     floor of peril        "
  143 printtab(10)"{rvon}CCCCCCCCCCCCCCCCCCCCCCCCCCC"
  144 printtab(10)"{rvon}     floor of evil         "
  145 printtab(10)"{rvon}                           "
  146 print"{down}{down}{rvon} press any key to continue "
  147 geta$:ifa$=""goto147
  148 print"{clr}  you start in the middle of
  149 print"{down}      {rvon} the floor of hazard."
  150 print"{down}your quest is to obtain as much
  151 print"{down}treasure as possible and escape from
  152 print"{down}the castle.above all,
  153 print"{down}      try to stay alive.
  154 print"      EEEEEEEEEEEEEEEEEE
  155 print"{down}{down}{rvon} optional.                        "
  156 print"{rvon} connect an amplifier and speaker "
  157 print"{rvon} to the cb2(m) - use a 50/500 ohm "
  158 print"{rvon} resistor - and ground(n) pins of "
  159 print"{rvon} the user port,and you will get   "
  160 print"{rvon} sound effects.                   "
  161 print"{down}{down}{rvon} when ready to start,press any key."
  162 geta$:ifa$=""goto162
  163 print"{clr}{down}{down}{down}{down}{down}{down}{rvon} hold on to your seat.you are now being "
  164 print"{rvon} transported through time and space to "
  165 print "{down}{down}       {rvon}                        "
  166 print"       {rvon} the sorcerer's castle! "
  167 print"       {rvon}                        "
  168 print"{down}{down}is disk in drive 0?"
  169 geta$:ifa$=""then169
  170 ifa$<>"y"then169
  171 load"0:sorcerer castle",8
    0 clr:poke59468,12
    1 rem sound! copyright (c) 1979 ken matthews
    2 rem box1348 26447-28b ave
    3 rem aldergrove,bc v0x 1a0 canada
    4 :
    8 rem cursor #7, february, 1979
    9 rem box 550, goleta, ca. 93017
   10 rem as of 6 mar 80
   90 pg$="sound!":nm$="7":gosub 62000
  100 print:print"{clr}";
  120 nw=peek(49152)>0
  500 readn$:ifn$<>"/*"then500
  510 forl=832to878:readx:pokel,x:nextl:ifnw=0thensys(832)
  520 a$="{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}
  530 open9,0,0
  700 print"U"a$"I";:p=59464
  710 print"{SHIFT--}     cursor sound effects library     {SHIFT--}";
  720 print"J"a$"K":restore
  730 readn$:if n$="/*" then 750
  740 n=n+1:print tab(4);chr$(n+64);" ...";n$:goto 730
  750 printmid$("returnbreak ",6*nw+7,6);"...quit"
  760 poke59467,16
  800 print left$("{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",7+n);"    sound effect? ";:l=1
  810 getk$:if k$<>"" then print " ":goto850
  820 ifti>=tm then printmid$("{rvon}V{left}{rvof}",l);:l=3-l:tm=ti+30
  830 goto 810
  850 ifk$="{stop}"ork$=chr$(13)then950
  860 k=asc(k$)-64:ifk<1 or k>n then 800
  870 rem
  880 print"{home}{rvof}{down}{down}{down}    ";:restore
  890 forl=1tok:print"{down}";:reads$:next:print"{rvon}"k$" ..."s$
  900 onkgosub1000,1100,1200,1300,1400,1500,1600,1700,2000,1900,2100,2200
  910 ifk<13goto930
  920 k=k-12:onkgosub2300,2400,2500,2700,2800
  930 poke59464,0:print"{up}{rvof}{rght}{rght}{rght}{rght}";k$;" ...";s$
  940 goto 800
  950 poke59467,0:poke59466,0:poke59464,0
  960 close 9:print"{clr}{down}{down}{down}":ifnw=0thensys(845)
  999 end
 1000 rem
 1005 poke59466,15
 1020 forr=0to100step5
 1040 poke59464,r:x=tan(r):next
 1048 forr=99to0step-5
 1049 poke59464,r:x=tan(r):next
 1070 return
 1100 rem
 1105 poke59466,15:forl=1to5
 1110 forr=0to100step5
 1115 poke59464,r:forx=1to2:next:next
 1120 next:return
 1140 poke59464,r:x=tan(x):next
 1148 forr=99to0step-5
 1149 poke59464,r:x=tan(x):next
 1170 return
 1200 rem
 1205 poke59466,2
 1206 forl=1to4
 1210 forr=100to255step40
 1220 poke59464,r:next:forx=1to500:next
 1225 forr=255to100step-40
 1230 poke59464,r:next:forx=1to500:next
 1250 next:return
 1300 rem
 1310 poke59466,85
 1320 forr=50to150:poke59464,r:forx=1to30:next:next
 1325 print"{up}         {rvon}b o o m{rvof}    "
 1330 poke59466,1:poke59464,255:forx=1to400:next
 1370 return
 1400 rem
 1410 poke59466,13
 1420 forr=185to80step-3:poke59464,r:next
 1425 pokep,0:forl=1to200:next
 1430 forr=205to105step-3:poke59464,r:next
 1440 forr=105to255step3:poke59464,r:next
 1450 return
 1500 rem
 1510 poke59466,9
 1515 forl=1to10
 1520 forr=250to180step-1
 1530 poke59464,r
 1540 next:next
 1590 return
 1600 rem
 1610 poke59466,15:t=3
 1620 pokep,188:forx=1to200:next
 1630 pokep,251:forx=1to100:next:gosub1680
 1635 pokep,251:forx=1to100:next
 1640 pokep,225:forx=1to200:next
 1650 pokep,251:forx=1to300:next
 1652 pokep,0:forx=1to150:next
 1655 pokep,199:forx=1to200:next:t=50:gosub1680
 1660 pokep,188:forx=1to150:next
 1670 return
 1680 poke59464,0:forx=1tot:next:return
 1700 rem
 1710 poke59466,15
 1720 t=3
 1730 pokep,237:forx=1to300*t:next:gosub1790
 1735 pokep,237:forx=1to200*t:next:gosub1790
 1740 pokep,237:forx=1to100*t:next:gosub1790
 1742 pokep,237:forx=1to300*t:next:gosub1790
 1745 pokep,199:forx=1to300*t:next:gosub1790
 1750 pokep,211:forx=1to200*t:next:gosub1790
 1755 pokep,237:forx=1to100*t:next:gosub1790
 1760 pokep,237:forx=1to200*t:next:gosub1790
 1765 pokep,251:forx=1to100*t:next:gosub1790
 1770 pokep,237:forx=1to300*t:next
 1790 pokep,0:forx=1to5:next:return
 1900 rem
 1910 poke59466,15
 1920 forl=1to30:poke59464,10+100*rnd(1)
 1930 fori=1to6:next:next:return
 2000 rem
 2010 poke59466,15:t=3
 2015 pokep,255:forx=1to100:next:gosub2680
 2020 pokep,191:forx=1to100:next:gosub2680
 2025 pokep,152:forx=1to100:next:gosub2680
 2030 pokep,128:forx=1to200:next:gosub2680
 2035 pokep,152:forx=1to100:next:t=0:gosub2680
 2040 pokep,128:forx=1to400:next
 2050 return
 2100 rem
 2110 poke59466,9
 2120 forl=1to50:pokep,238:pokep,251:next:return
 2200 rem
 2205 poke59466,15
 2220 forj=1to5
 2230 pokep,255:forl=1to60:next
 2235 pokep,0:forl=1to100^rnd(1)*20:next
 2240 pokep,128:forl=1to60:next
 2245 pokep,0:forl=1to100^rnd(1)*20:next
 2246 forx=1to100:next
 2250 next
 2260 poke59466,63
 2270 poke p,255:for l=1 to 500:next l
 2290 return
 2300 rem
 2310 poke59466,15
 2320 forl=1to200:pokep,150:pokep,200:pokep,255:next:return
 2400 rem
 2410 poke59466,29
 2430 forl=160to0step-.3:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next
 2490 next:return
 2500 rem
 2510 poke59466,3
 2520 forl=200to235step.7:pokep,l:pokep,l+5:pokep,l+20:forz=1to20:next:next
 2521 forl=1to100:poke59467,0:poke59466,16:poke59467,16:poke59466,3:next
 2530 forl=235to170step-.6:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next:next
 2535 forl=170to220step3:pokep,l:next
 2540 forl=220to129step-.5:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next:next
 2545 forl=129to220step3:pokep,l:next
 2550 forl=200to120step-.4:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next:next
 2555 forl=120to180step3:pokep,l:next
 2560 forl=180to140step-.2:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next:next
 2570 forl=140to200step2:pokep,l:pokep,l+5:pokep,l+15:forz=1to0:next:next
 2575 p=59464:l=200:poke59467,16:poke59466,51
 2580 forx=1to50:pokep,l:pokep,l+7:pokep,l+14:next
 2590 poke59464,0:return
 2680 poke59464,0:forx=1tot:next:return
 2700 rem
 2710 poke59466,85
 2720 forl=1to10
 2730 forl1=152to56step-8:poke59464,l1:next
 2740 poke59464,0:forl1=1toint(rnd(1)*200):next:next:return
 2800 rem
 2810 poke59466,85
 2820 forl=1to20
 2830 forl1=1to14:poke59464,l1*16:next
 2840 next:return
 8999 rem
 9000 datapiano gliss,laser fire
 9010 datafrench police,bombs away,wolf ,"dive! dive! dive!",shave-n-haircut
 9020 datadirge,charge!!!,r2d2,raspberry,ping pong,death ray,vanishing saucer
 9030 dataeat my dust,birdie,scramble,/*
 9799 rem machine code by j. butterfield          -disables brk key
 9800 data120,169,99,141,25,2,169,3,141,26,2,88,96,120,169,133,141,25,2,169,230
 9810 data141,26,2,88,96,169,0,72,72,72,72,76,133,230,32,90,3,234,169,255,141,9
 9820 data2,76,126,230
 60200 :
 60210 print"{down}press {rvon}return{rvof} to begin
 60240 gett$:ift$=""then60240
 60250 print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #7  sound!"
 62002 print"{down}copyright (c) 1979  by ken matthews"
 62004 gosub 60500
 62010 print"{down}assorted sound effects"
 62020 print"{down}{down}the effects are lettered from a through
 62030 print"q. type in the letter of the effect you
 62040 print"want when you're asked 'sound effect?'.
 62060 gosub60200
 62080 return
  100 printchr$(142):sys4760
   10 sys1037
    2 rem 240,9
    3 ifpeek(50003)thenpoke42,150:poke43,26:poke158,0
    4 ifpeek(50003)thenpoke6654,peek(144):poke6655,peek(145):run9
    5 poke124,150:poke125,26:poke6654,133:poke6655,230
    6 poke525,0:run9
    9 print"{clr}":ifpeek(6653)<>99thenprint"{down}{down}"spc(10)"galaxy invaders":goto15
   10 fori=0to15:a=peek(6400+i):poke32768+i,a:next
   15 q=peek(50003):poke2,2-2*q:poke1,25+119*q:poke6653,99
   16 poke59468,12
   20 print"{down}{down} move your man using '.' and '='
   21 print"fire your gun with 'space'
   22 print"score by hitting enemy
   23 print"destroy all enemy men to begin new rack
   24 print"'{CBM-B}{CBM-B}' has high random value
   30 print"game ends if all your men are killed or
   35 print"enemy overruns you
   40 print"stop game with '['
   45 print"    commands:
   50 print"'b'-begin game
   55 print"'e'- exit program
   60 print"'c'-change parameters
  100 input"    command{$a0}{$a0}{$a0}{CBM-B}{left}{left}{left}";c$
  110 ifc$="e"thenprint:print"thank you for playing":end
  120 ifc$="b"then500
  130 ifc$<>"c"then100
  140 restore:print"{clr}code #      description"
  150 fori=1to20:reada$,b$:print" "a$")    "b$:nexti
  200 data" 1",myster move counter," 2",mystery launch counter
  210 data" 3",e col spacing," 4",# of men," 5",e step size (1-7)," 6"
  220 dataextra e cols/rack," 7",initial # cols," 8",e row spacing," 9"
  230 datainitial e height (1-9),10,e height drop/rack,11,e move counter
  235 data12,gun hits passing missle width
  240 data14,man move counter,15,missle move counter,16,gun move counter,19
  250 datamissle launch counter,20,missle launch rnd compare #
  260 data22,delay counter,23,"{rvon}begin",24,repeat instructions
  280 print"other numbers may destroy program!
  290 input"code{$a0}#   {CBM-B}{left}{left}{left}";c
  300 ifc=23then500
  310 ifc=24thenrun20
  320 ifc<1orc>22then140
  410 print"was"peek(4818+c);:input" - new value   {CBM-B}{left}{left}{left}";d:poke4818+c,255andd:goto140
  500 print"{clr}":sys3480:run
   10 sys(1039)
   10 sys(1039)
    0 clr:poke59468,12
    1 rem space! copyright (c) 1979 greg erker
    2 rem cursor #8, march, 1979
    3 rem box 550, goleta, ca. 93017
    4 rem line 150 rom dependent
    5 :
   10 rem as of mar 5 80
   90 pg$="space!":nm$="8":gosub62000
  100 dimxc(9),yc(9)
  110 ch=33226:lm=200:de=46:df=32
  120 fori=1to9:readxc(i),yc(i):nexti
  130 forj=830to937:readx:pokej,x:next
  140 forj=7936to8191step2:pokej,rnd(5)*256:pokej+1,rnd(5)*4+128:next
  150 qp=515:qs=516:ifpeek(49152)thenqp=151:qs=152
  200 print"want the noises? ";:gosub8000:mu=(yn<>0)
  210 print
  400 data-.5,.5,0,.5,.5,.5,-.5,0,0,0,.5,0,-.5,-.5,0,-.5,.5,-.5
  500 en=5000:print
  510 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(16);"O   P"
  520 printtab(18);"{down}W":printtab(16);"{down}L   {SHIFT-@}"
  530 t$="{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  540 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}O{CBM-T}";t$;t$;"P{left}{inst}{CBM-T}"
  545 t$=mid$(str$(en),2):t$=t$+left$("{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}",8-len(t$))
  550 print"{CBM-G}energy-{$a0}{$a0} ";t$;"{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}hits-{$a0}{$a0}{$a0}0 {$a0}{$a0}{$a0}{CBM-M}{left}{inst}"
  560 t$="{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  570 print"L{CBM-@}";t$;t$;"{SHIFT-@}{left}{inst}{CBM-@}{up}"
  580 poke827,100:poke826,41:sys(830):sd=41
  900 x=int(rnd(5)*40):y=int(rnd(5)*21)
  910 ls=32768:c1=32:c2=32:c3=c2
  930 fora=1to1000:next:pokech,87
 1000 d=int(rnd(5)*9+1):ifd=5then1000
 1020 l=int(rnd(5)*10+1)
 1030 xc=xc(d):yc=yc(d)
 1100 forj=1tol
 1120 x=x+xc:y=y+yc
 1130 ifx>39thenx=0
 1140 ify>20.5theny=0
 1150 ifx<0thenx=39
 1160 ify<0theny=21
 2000 k=peek(qp):ifk=255thensd=41:kp=0:goto2500
 2010 kp=1:ifk=26thenx=x+1:y=y-1:sd=2:goto2500
 2020 ifk=18theny=y-1:sd=1:goto2500
 2030 ifk=25thenx=x-1:y=y-1:sd=0:goto2500
 2040 ifk=42thenx=x+1:sd=42:goto2500
 2050 ifk=34thensd=41:goto2500
 2060 ifk=41thenx=x-1:sd=40:goto2500
 2070 ifk=58thenx=x+1:y=y+1:sd=82:goto2500
 2080 ifk=50theny=y+1:sd=81:goto2500
 2090 ifk=57thenx=x-1:y=y+1:sd=80:goto2500
 2100 kp=0
 2500 ps=x+32768+int(y)*40
 2510 en=en-1+5*(kp<>0):ifen<lmthen6000
 2520 print"{up}";tab(10);en;"{left}{$a0}{$a0}"
 2530 poke826,sd:ifsd<>41thensys(830)
 2540 pokels,c1:pokels+1,c2:pokels-1,c3
 2550 c1=peek(ps):c2=peek(ps+1):c3=peek(ps-1)
 2551 ifc1=dethenc1=df
 2552 ifc2=dethenc2=df
 2553 ifc3=dethenc3=df
 2560 pokeps,81:pokeps+1,115:pokeps-1,107:ls=ps
 2570 ifpeek(qs)=0then3000
 2600 pokech,215:ifmu=0then2640
 2610 poke59467,16:poke59466,15:poke59464,0
 2620 fora=10to80step10:poke59464,a:nexta
 2630 poke59464,0:poke59466,0:poke59467,0
 2640 pokech,87
 2650 en=en-100:print"{up}";tab(10);en;"{left}  "
 2660 print"{up}";tab(10);en;"{left}{$a0}{$a0}"
 2670 ifc1<>87andc2<>87andc3<>87then3000
 2680 pokeps,46:pokeps+1,64:pokeps-1,64:pokeps+40,93:pokeps-40,93
 2690 ifmu=0then2730
 2700 poke59467,16:poke59466,15:poke59464,0
 2710 fora=250to100step-25:poke59464,a:nexta
 2720 poke59464,0:poke59466,0:poke59467,0
 2730 pokeps-41,77:pokeps+41,77:pokeps-39,78:pokeps+39,78
 2740 pokeps,32:pokeps+1,32:pokeps-1,32:pokeps+40,32:pokeps-40,32
 2750 pokeps-41,32:pokeps+41,32:pokeps-39,32:pokeps+39,32
 2760 h=h+1:print"{up}";tab(32);h;"{left} "
 2770 ifen>=lmthen900
 2780 goto6000
 3000 nextj
 3010 goto1000
 6000 print"{up}";tab(10);en;"{left}{$a0}{$a0}":ifmu=0then6040
 6010 poke59467,16:poke59466,15:poke59464,0
 6020 fork=1to5:forl=200to100step-2:poke59464,l:nextl:nextk
 6030 poke59464,0:poke59466,0:poke59467,0
 6040 gett$:ift$<>""then6040
 6050 print"{home}attention: you have only enough"
 6060 print"energy to return to base.{down}"
 6070 ifz=0andh>0thenprint"you did very well on your first missio.{left}{inst}n":goto6600
 6090 ifh>50thenb=-1:a$="incredible":goto6500
 6100 ifh>35thena$="superb":b=5:goto6500
 6110 ifh>25thena$="excellent":b=4:goto6500
 6120 ifh>15thena$="very good":b=3:goto6500
 6130 ifh>10thena$="good":b=2:goto6500
 6135 ifh>5thena$="fair":b=1:goto6500
 6140 ifh>0thena$="passable":b=0:goto6500
 6150 print"you didn't hit anything! you'd best
 6160 print"practice for a while.":goto6600
 6500 print"your shooting was ";a$;". as a bonus,"
 6510 print"you have been awarded ";:if b>1 then print"a";b;"{left}-week r&r pass."
 6520 if b=0 then print"a weekend pass."
 6530 if b=-1then print"the terran medal of honor!"
 6600 print"{down}want another mission? ";:gosub 8000
 6610 h=0:z=1
 6620 if yn<>0 then 500
 6630 print:end
 8000 sw=1:tm=0
 8010 gett$:ift$<>""then8050
 8020 ifti>tmthenprintmid$("{CBM-+} ",sw,1);"{left}";:sw=3-sw:tm=ti+30
 8030 goto8010
 8050 ift$="n"thenyn=0:return
 8060 ift$="y"thenyn=1:return
 8070 ift$=chr$(13)thenyn=-1:return
 8080 goto8010
 50200 data162,0,172,59,3,185,0,31,133,98,185,1,31,133,99,161,98,201,46,208,4,169
 50210 data32,129,98,185,0,31,56,233,41,153,0,31,185,1,31,233,0,153,1,31,185,0
 50220 data31,24,109,58,3,153,0,31,185,1,31,105,0,153,1,31,201,132,208,5,169,128
 50230 data153,1,31,201,127,208,5,169,131,153,1,31,185,0,31,133,98,185,1,31,133
 50240 data99,161,98,201,32,208,4,169,46,129,98,136,136,192,254,240,3,76,67,3,96
 60200 ifpn=0then60250
 60210 gosub60500:print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:":goto60240
 60230 print"continue:"
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}":goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn
 60270 gosub60500:return
 60500 for i=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #8  space!"
 62002 print"{down}copyright (c) 1979  greg erker"
 62004 gosub 60500
 62010 print"{down}keep earth safe from invasion"
 62020 print"{down}{down}want instructions? ";:gosub8000
 62030 ifyn>0then62100
 62040 print"{clr}";:goto100
 62100 lp=4:gosub60200
 62110 print"you are in deep space, far from earth.
 62120 print"{down}you (and several hundred others) are on
 62130 print"{down}a mission for the terran defense force
 62140 print"{down}to destroy an invading enemy fleet.
 62150 print"{down}your ship is equipped with a computer-
 62160 print"{down}aided sighting device.  to reduce con-
 62170 print"{down}fusion, it displays only enemy ships.
 62180 print"{down}your weapon is a compact, high-power
 62190 print"{down}laser, which can pierce any known sub-
 62200 print"{down}stance. it uses a considerable amount
 62206 gosub 60200
 62210 print"of energy to fire, so you shouldn't be
 62220 print"{down}wasteful with it."
 62240 print"{down}{down}your controls are as follows:
 62250 print"{down}pressing a {rvon}shift{rvof} key fires the laser.
 62260 print"{down}either{$a0}{rvon}shift{rvof} key may be used. if the
 62270 print"{down}enemy ship is centered in your sights,
 62280 print"{down}(directly over the circle), you are
 62290 print"{down}assured of a hit.
 62296 gosub 60200
 62370 print"the numeric keypad controls the turning
 62380 print"{down}of your ship. the{$a0}{rvon}8{rvof} key turns your ship
 62390 print"{down}upward. the {rvon}2{rvof} key turns it down and the
 62392 print"{down}{rvon}4{rvof} turns it to the left, while the {rvon}6{rvof}
 62394 print"{down}key turns it to the right.
 62400 print"{down}note that even when you're not moving,
 62410 print"{down}a small amount of energy is used to
 62420 print"{down}maintain the ship's systems. also,
 62423 gosub 60200
 62430 print"{down}remember that the buttons move your
 62440 print"{down}ship, and not the stars in the back-
 62450 print"{down}ground.
 62451 printtab(15)"{down}{down}{down}{down}{rvon}good luck{rvof}{down}{down}"
 62460 gosub 60200
    5 clr:sq$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   10 rem ***star trek 1.2***
   11 print"{clr}{down}{down} navigational skill? (1-5)":print"{down}{down} 1 maiden voyage"
   12 print"{down} 2 amateur astronaut":print"{down} 3 shows enterprise"
   13 print"{down} 4 courageous captain":print"{down} 5 galactic greased lightning"
   14 geta$:ifa$=""then14
   18 ifval(a$)<1orval(a$)>5then14
   19 n=(5-val(a$))*2
   20 print"{clr}one moment please while i arrange the   galaxy"
   30 fori=768to831:pokei,int(rnd(1)*8):next
   34 d1=17+int(rnd(1)*5):d2=96:d3=32:d4=3
   35 d=768+int(rnd(1)*64):ifpeek(d)andd2then35
   36 dd=int(rnd(1)*d4+1):d1=d1-dd:dd=dd*d3orpeek(d):poked,dd:ifd1>1then35
   37 ifd4=1then50
   38 d1=3+int(rnd(1)*4):d2=24:d3=8:d4=1:goto35
   50 fori=768to831:kh=(peek(i)and96)/32:kl=kl+kh
   55 bh=(peek(i)and24)/8:bl=bl+bh:next
   60 si=10+rnd(1)*2+n
   70 print"{clr}you must destroy"kl"klingons in"left$(str$(si),8)" stardates."
   72 print"you have"bl"starbases."
   73 print"{down}{down}  satisfactory ? (y/n)"
   74 geta$:ifa$=""then74
   75 ifa$="y"then79
   76 ifa$="n"then5
   77 goto74
   79 open1,3
   80 dimo%(7,7),p(2,7,1),p$(4):fori=1to39:b$=b$+" ":next:l$=chr$(13)
   90 deffnr(x)=int(rnd(x)*8):p$(1)="Q":p$(2)="b":p$(3)="k":p$(4)="e"
  100 e=5000:pt=25:s=500:it=ti
  105 xq=fnr(1):yq=fnr(1)
  110 xs=fnr(1):ys=fnr(1):d=768+xq+yq*8
  120 gosub12000
  130 gosub63000:so=1
  140 printsq$"{down}"
  141 d=768+xq+yq*8:kk=(peek(d)and96)/32
  142 pd=(20+80*rnd(1))*kk
  143 ifpd<=0then157
  150 ifd0=1thenprint"{down}{down}enterprise protected by starbase.{up}{up}":goto157
  151 print"{down}{down}"pd"{left} unit hit on the enterprise.{up}{up}"
  152 s=s-pd
  153 ifs<100*kkthenprint"{down}{down}shields dangerously low!{up}{up}"
  154 ifs<0thene=e+100*s:s=0
  155 ife<0thenprint"{clr}";:goto405
  157 sd=si-(ti-it)/3600:ifso=1thengosub10000
  159 printsq$"                   "l$"{up}command? ";
  160 gosub2100:co$=aa$:c$=left$(co$,1):printb$:printb$:printb$:printb$
  161 ifc$="c"thenso=0:gosub60000:goto140
  170 ifc$="l"thengosub30000:goto140
  175 ifso=0thengosub63000:gosub10000:so=1
  180 ifc$="s"then600
  190 ifc$="f"then700
  200 ifc$="m"then300
  210 goto500
  300 printsq$"{down}"
  310 gosub900
  320 print"distance? ";:gosub2100:w$=aa$:w=val(w$)
  325 ifw=0then140
  330 ife<wthenprint"{up}{up}{up}not enough energy":printb$:printb$:print"{up}{up}":goto310
  340 e=e-w:ifd0<>1thend$=" ":x=xs:y=ys:gosub50000
  345 m$="e":gosub40000:d0=0
  350 ifd$<>" "then360
  352 ifo%(xs,ys)<>2theno%(xs,ys)=0
  354 o%(x,y)=4:xs=x:ys=y:d$="e":gosub50000:goto140
  360 ifd$<>"Q"then390
  370 printsq$"{down}hit star.     ":print"sent through space warp."
  375 print"shields stripped.
  380 s=0:fori=1to500:next:goto105
  390 ifd$<>"k"then430
  400 print"{clr}fatal collision with a klingon.":kl=kl-1
  405 print"the enterprise has been destroyed,"
  407 ifkl=0thenprint"you are posthumously awarded the":print"medal of honor.":goto820
  410 print"with"kl"klingons left.":print"the federation is lost."
  420 input"do want to play again";a$:ifleft$(a$,1)="y"thenrun
  425 end
  430 ifd$<>"b"then450
  440 d0=1:e=5500:pt=25:s=0:o%(xs,ys)=0:xs=x:ys=y:goto140
  450 ifd$<>"{SHIFT-+}"then480
  460 ifw<1thenw=1
  465 xq=xq+int(w*cc+.5):yq=yq+int(w*ss+.5)
  470 if(xq<0)or(xq>7)or(yq<0)or(yq>7)then105
  475 goto110
  500 printsq$"{down}";
  510 print"commands are:  fire    ","move
  520 printtab(15)"shields","lrs"
  530 printtab(15)"chart"
  540 goto140
  600 e=e+s:s=0:printsq$"{down}";
  605 print"you have"e"units available."
  610 input"how many units to shields      {left}{left}{left}{left}{left}{left}";a$:a=val(a$)
  620 ifa>eora>999thenprint"{up}{up}{up}":goto605
  630 e=e-a:s=a:print"{down}{down}"b$"{up}":goto140
  700 ifpt=0thenprintsq$"{down}you are out of torpedoes.":goto140
  710 pt=pt-1:gosub900
  715 ifa>2*~then140
  720 m$="Z"
  730 w=2:gosub40000
  740 if(d$="{SHIFT-+}")or(d$="Q")then140
  750 ifd$="k"then800
  760 ifd$="b"then850
  800 restore:forj=1to15:readd$:gosub50000:next:kl=kl-1:o%(x,y)=0:d=768+xq+yq*8
  810 q=peek(d):dd=((qand96)-32)or(qand159):poked,dd:ifkl>0then140
  815 print"{clr}congratulations ";
  820 print"the federation is saved.":goto420
  850 restore:forj=1to15:readd$:gosub50000:next:bl=bl-1:o%(x,y)=0:d=768+xq+yq*8
  855 q=peek(d):dd=((qand24)-8)or(qand231):poked,dd
  860 printsq$
  870 print"congratulations,":print"you destroyed a star base."
  880 print"you have"bl"bases left. good luck!!":goto140
  900 printsq$
  910 print"angle? ";:gosub2100:a$=aa$:a=val(a$):a=a*~/180:ss=-sin(a):cc=cos(a)
  920 return
 1000 data"{rvon}k{rvof}","W","W","Q","Q","Q","Q","{SHIFT-+}","{SHIFT-+}","{SHIFT-+}","V","V","*","{rvon} {rvof}"," "
 2100 i=pos(0)
 2105 get#1,c$:print"{left}";:ifc$=chr$(34)thenc$="'"
 2110 a$(0)=c$+"{left}":a$(1)="{rvon}"+c$+"{rvof}{left}":a=ti:n=0
 2120 geta$:ifa$<>""then2160
 2130 ifti-a>20thenn=not(n):a=ti
 2136 sd=si-(ti-it)/3600
 2137 ifsd<=0thenprint"{clr}time's up ";:goto410
 2140 printa$(n+1);
 2150 goto2120
 2160 printa$(0);:ifa$=chr$(13)then2200
 2162 ifasc(a$)=148thenprinta$" {left}";:goto2105
 2165 ifa$=chr$(34)thena$="'"
 2170 printa$;:goto2105
 2200 printa$"{up}"tab(i);:aa$="":fori=1to10:get#1,a$:aa$=aa$+a$:next:aa$=aa$+" "
 2210 print:return
 10000 rem **update status**
 10005 d=768+xq+yq*8:gosub20000
 10010 print"{home}{down}{down}":printtab(29)"stardate"left$(str$(sd)+"  ",3)
 10020 printtab(29)"condition ";:ifpeek(d)and96thend$="{rvon}r{rvof}":goto10035
 10030 d$="g"
 10035 ifd0=1thend$="{rvon}d{rvof}"
 10040 printd$tab(69)"{down}quad.  "right$(str$(xq),2)","right$(str$(yq),1)
 10050 printtab(29)"sector "right$(str$(xs),2)","right$(str$(ys),1)
 10060 printtab(29)"energy"left$(str$(e)+"    ",5)
 10070 printtab(29)"p.torp "right$("  "+str$(pt),4)
 10080 printtab(29)"shields"left$(str$(s)+"  ",4)
 10090 printtab(29)"klingons "right$("  "+str$(kl),2)
 10100 return
 11000 rem**read**
 11010 print"{home}{down}{down}":printtab(4);
 11015 ifx=0then11025
 11020 fori=1tox:print"{rght}{rght}{rght}";:next
 11025 ify=0then11040
 11030 fori=1toy:print"{down}{down}";:next
 11040 get#1,d$
 11050 return
 12000 rem **set p**
 12010 d=768+xq+yq*8:gosub20000:fori=0to7:forj=0to7:o%(i,j)=0:next:next
 12020 fork=0to2
 12025 o%(xs,ys)=4
 12030 ifd(k)=0then12080
 12040 forl=1tod(k)
 12050 x=fnr(1):y=fnr(1):ifo%(x,y)<>0then12050
 12060 o%(x,y)=k+1
 12070 nextl
 12080 nextk:return
 15000 rem **frame draw**
 15010 print"{clr}"tab(3);
 15020 fori=0to7
 15030 printispc(q+1)"{left}";
 15040 next
 15050 print:printtab(2)"{CBM-A}";:forj=1tor:print"{SHIFT-*}";:next:print"{CBM-S}"
 15060 fori=0to7
 15070 print"  {SHIFT--}"spc(r)"{SHIFT--}":printi"{left}{SHIFT--}"spc(r)"{SHIFT--}"
 15080 next
 15090 print"  {CBM-Z}";:fori=1tor:print"{SHIFT-*}";:next:print"{CBM-X}"
 15100 return
 20000 rem*pullout*
 20010 d(0)=peek(d)and7
 20020 d(1)=int((peek(d)and24)/8)
 20030 d(2)=int((peek(d)and96)/32)
 20040 dd=peek(d):dd=ddor(128):poked,dd
 20050 return
 30000 rem **draw lrs**
 30005 printsq$"{down}";
 30010 fory=yq-1toyq+1
 30020 forx=xq-1toxq+1
 30022 fork=0to2:d(k)=0:next
 30025 ifx<0orx>7ory<0ory>7then30060
 30030 d=768+y*8+x
 30050 gosub20000
 30060 fork=0to2
 30070 d$(k)=mid$(str$(d(k)),2,1)
 30080 next:printtab(15)d$(2)d$(1)d$(0);" ";
 30090 next:print:next:return
 40000 rem **mover**
 40005 xi=xs+cc:yi=ys+ss
 40010 forc=1tow*8:x=int(xi+.5):y=int(yi+.5)
 40015 if(x<0)or(x>7)or(y<0)or(y>7)thend$="{SHIFT-+}":return
 40020 gosub11000:ifd$<>" "thenreturn
 40030 d$=m$:gosub50000:d$=" ":gosub50000:xi=xi+cc:yi=yi+ss:next:return
 50000 rem **place**
 50010 print"{home}{down}{down}":printtab(4);
 50015 ifx=0then50025
 50020 fori=1tox:print"{rght}{rght}{rght}";:next
 50025 ify=0then50040
 50030 fori=1toy:print"{down}{down}";:next
 50040 printd$
 50050 return
 60000 rem **draw gal. map**
 60010 r=32:q=1:gosub15000:print"{home}{down}{down}{down}"tab(3);
 60020 fori=0to7
 60030 forj=0to7
 60040 fork=0to2:d(k)=0:next
 60050 d=768+j+i*8:ifint(peek(d)/128)=0then60120
 60060 gosub20000
 60065 ifj=xqandi=yqthenprint"{rvon}";
 60070 fork=0to2
 60080 d$(k)=mid$(str$(d(k)),2,1):next
 60090 printd$(2);d$(1);d$(0);"{rvof} ";
 60100 next:print"{down}":printtab(3);:next
 60110 print:print:return
 60120 d$(2)="*":d$(1)="*":d$(0)="*":goto60090
 63000 rem **draw srs**
 63010 r=24:q=0:gosub15000:forx=0to7:fory=0to7
 63020 ifo%(x,y)<>0thend$=p$(o%(x,y)):gosub50000
 63030 next:next:gosub10000:return
    1 print"{clr}";
   10 print:print:printtab(12);"spacewar part 1"
   20 rem by t.n.ronayne, detroit,mi
   30 rem revised from creative computing by marshall miller, merced,ca
   60 print:print:print"what is your name";:inputa$
   95 a2$=left$(a1$,1):if a2$="y" then 630
  100 print:print "greetings, ";a$;", this is darth vadar."
  110 print"i am about to wipe the floor with you,"
  115 print"but, for the sake of sport, i will give"
  120 print"you a sporting chance to defend yourself";
  130 print"and--perhaps, though i sincerely doubt"
  135 print"it--get me instead."
  140 print:print"do you think that instructions will"
  150 print"help you, ";a$;:input b$
  155 if left$(b$,1)="n" then 380
  158 print"{clr}"
  160 print:print:print"history tape-data library: galdate";int(rnd(1)*100+8000)
  180 print:print
  190 print"you are captain of the millenium falcon.";
  191 print"you and your copilot, wookie chewbacca,"
  192 print"are mercenaries, plying your trade"
  200 print"throughout the galaxy."
  210 print"  after taking on four passengers, luke"
  220 print"skywalker, ben (obi-wan) kenobi,and"
  230 print"two droids, see-threepio and r2d2, and"
  231 print"escaping the imperial forces at mos"
  235 print"eisley, in the tatooine system you have"
  240 print"rescued the princess leia organa of"
  250 print"alderhaan from the clutches of the evil"
  255 print"grand moff tarkin, and the dark lord of"
  260 print"the sith, darth vadar."
  270 print:print:printtab(5);"(press space bar to continue)"
  272 get aa$: if aa$="" then 272
  273 print"{clr}"
  280 print:print:print:print: print"   your mission is to reach the rebel"
  285 print"forces base located on yavin-4. lord"
  290 print"vadar is between you and your goal. his"
  295 print"ship has exactly the same armament as"
  300 print"yours, and the same amount of power"
  305 print"available. you must defeat him in order"
  310 print"to reach safety, and deliver your"
  325 print"precious cargo-the princess leia, and"
  326 print"the detailed plans of the death star"
  330 print"stored in the memory circuits of the"
  340 print"droid, r2d2."
  350 print:print"do you wish further information,";a$;:input b$
  360 if b$="n" then 380
  370 gosub2210
  380 print:print"do you wish armament information ";a$;:input b$
  390 if b$="n" then 620
  395 print"{clr}"
  397 print:print:print:print:print:print
  400 printtab(7);"here are your vital data:"
  410 print:print"you are equipped with 100,000 units of"
  420 print"energy. when you run out, ";a$;","
  425 print"darth vadar will destroy you."
  427 print:print:printtab(5);"(press space bar to continue)"
  428 get aa$: ifaa$="" then 428
  440 print"type";tab(8);"description";tab(20);"range(km)";tab(30);"fuel drain"
  450 print"  1";tab(8)"heavy guns";tab(20);"0-11000";tab(30);"10 units"
  460 print:print"  2";tab(8);"warheads"tab(20);"10,000-";tab(30);"100 units"
  462 printtab(22)"100,000"
  470 print:print"  3";tab(8);"laser"tab(20);"100,000-";tab(30);"1000 units"
  472 printtab(22);"{up}200,000"
  480 print:print tab(16);"options"
  490 print:print"  4";tab(8);"approach";tab(30);"100 units"
  500 print:print"  5";tab(8);"retreat";tab(30);"100 units"
  510 print:print"  6";tab(8);"we will continue to travel"
  512 printtab(8);"toward yavin-4 at .9c and gain"
  520 printtab(8);"energy, although we are"
  525 print tab(8);"vulnerable to attack."
  530 print:print"  7";tab(8);"enter hyperspace"
  532 print: print tab(5)"(press space bar to continue)"
  535 get aa$:if aa$="" then 535
  536 print"{clr}"
  540 print tab(17);"{down}{down}{down}{down}enemy:"
  550 print"the enemy has the same capabilities you have."
  560 print"{down}{down}{down}{down}each time a ship is hit, the energy"
  565 print"drain from the screens is equal to the"
  570 print"the amount of energy expended by the"
  580 print"striking weapon x 10 (except lasers,"
  582 print"which are equal to an expenditure that"
  585 print"varies with distance to target)."
  586 print: printtab(5);"(press space bar to continue)"
  587 get aa$:ifaa$="" then 587
  590 print"{clr}"
  600 print"{down}{down}{down}note: you are continually being drawn"
  605 print"toward your opponent. watch your range"
  607 print"closely, ";a$;"!"
  620 print"{down}{down}this is computer control."
  630 print:print"load game on other side of tape":end
 2210 print"{clr}"
 2212 print"{down}{down}{down}{down}you are bound for yavin-4, which is one"
 2213 print"light-year distant (a light year is"
 2222 print"equal to 9.454^12 kilometers)."
 2223 print"you are able to travel at .9c (c=light"
 2224 print"velocity = 299792.5 kps) with power"
 2225 print"consumed exactly offsetting power"
 2226 print"generated. however, traveling at .9c"
 2250 print"will put you at yavin-4 in 1.1 years,"
 2255 printa$;", and you have only sufficient"
 2260 print"life support for one year oftravel"
 2265 print "(chewbacca eats a lot)."
 2280 print:printtab(5);"(press space bar to continue)"
 2285 get aa$:if aa$="" then 2285
 2287 print"{clr}"
 2290 print:print:print: print"to overcome this time factor, you may"
 2295 print"enter hyperspace and travel at a maximum";
 2300 print"velocity of 518,041,440 kps for a period";
 2305 print"of one hour at a time. theoretically,"
 2310 print"by so doing, you would reach your goal"
 2315 print"in 5.1 hours by traveling continously"
 2320 print"in hyperspace. however, the engines must";
 2325 print"rest after each hyperspace jump, and any";
 2330 print"attempt to enter hyperspace twice in a"
 2335 print"row results in blowing up the engines"
 2340 print"leaving you stuck in hyperspace forever."
 2345 print:printtab(5);"(press space bar to continue)"
 2346 get aa$:if aa$="" then 2346
 2347 print"{clr}"
 2348 print:print:print
 2360 print"a hyperspace jump uses a great deal of"
 2365 print"energy, varying by a power of the"
 2366 print"hyperfactor [hf] selected. jumps are"
 2370 print"specified from hf-1, 1 c to hf-12, 1728c"
 2390 print"these are as follows:"
 2400 print
 2410 for i=1 to 12
 2420 printtab(3);"h-f";i;tab(11);"velocity  ";299792 .5*i^3;tab(33);"kps"
 2430 next i:print
 2435 print:printtab(5);"(press space bar to continue)"
 2438 getaa$:ifaa$="" then 2438
 2439 print"{clr}"
 2440 print:print "hyperdrive consumes energy at a"
 2445 print"minimum of 10,000 units and a maximum"
 2450 print"of 21,074 units, as follows:"
 2460 print:for i=1 to 12
 2470 printtab(1);"hf -";i;tab(13);"power consumed - ";int(i^.3*10000)
 2480 nexti:print
 2490 print"hyperspace navigation tends to be"
 2495 print"somewhat erratic, resulting in"
 2500 print"navigation errors; the higher the"
 2505 print"hf, the higher the error."
 2520 return
   10 print"{clr}{down}{down}{down}{down}";tab(12);"spacewar part 2"
   20 print:print:print
   30 print"what is your name";
   40 input a$
   50 q=1
  500 print:print"do you wish to allow the on-board"
  510 print"computers to battle against one"
  520 print"another, ";a$;
  530 input a1$
  540 a2$=left$(a1$,1)
  630 b1=9.4542566e12
  640 p=100000:p(1)=100000:a=int(rnd(1)*200000)
  650 print"{clr}we are leaving planetary orbit, ";a$
  660 print:print"vadar approaching at";a;"km."
  670 print"distance to yavin-4 is";b1:print"kilometers."
  680 print"{down}{down}{down}{down}may the force be with you, ";a$
  690 print:print:print:print
  700 ifa2$<>"y"then800
  710 d9=d9+1
  715 o=int(rnd(1)*2+1)
  720 c=int(rnd(1)*3.14159*(rnd(1)*3.14159))
  730 if a>200050 then1410
  735 if c=0then 720
  737 if a>5000 then 750
  740 if c=4 then720
  750 if c=4then 720
  752 if c=5 then 720
  755 if c<>6 then 770
  760 if p>5000 then 720
  770 if c<7 then 780
  772 if c=7 then790
  775 if c>7 then 720
  780 n=0
  785 b1=b1-(2.231186e10)
  787 goto 880
  790 if n>0 then720
  792 goto 880
  800 print:print:print"what are your instructions, ";a$;
  805 input c
  810 d9=d9+1
  820 o=int(rnd(1)*8+1)
  830 if a>2000050 then840
  835 goto 850
  840 if c<6 then 1090
  850 if c<7 then 860
  855 if c=7 then 880
  860 n=0
  870 b1=b1-(2.331186e10)
  880 ifc=1 then 1100
  882 if c=2 then 1180
  885 if c=3 then 1250
  890 if c=4 then 1310
  892 if c=5 then 1350
  895 if c=6 then 1410
  900 if a2$<>"y" then 950
  910 h=int(rnd(1)*10+1)
  920 if p-(10000*h^.3)<500 then 720
  930 if h=0 then 910
  940 print:print"entering hyperspace"
  942 goto 970
  950 if c>7 then 1080
  952 print"please indicate hyperfactor";:input h
  960 if h<13 then 970
  962 goto 950
  970 p=p-(10000*(h^.3))
  972 n=n+1
  975 print"computing course at hf:";h
  980 h9=h9+1
  990 if p<100 then 1890
  992 if b1-((h^3*299792.5)*60^2)<1e6 then 1780
 1000 if n>1 then 1870
 1002 a=a+((h^3*299792.5)*60^2)
 1005 if o=1 then 2140
 1010 o2=int(rnd(1)*4+1)
 1012 if o2=1 then 2140
 1015 if o2=4 then 2120
 1020 b1=b1-((h^3*299792.5)*(int(3.14159^3*rnd(1)+29)^2))
 1030 print"sorry, navigation error put us off line."
 1032 if o2=3 then 1060
 1040 if p(1)-(h^.3*10000)<10000 then 1480
 1050 print"he followed!"
 1052 p(1)=p(1)-(10000*(h^.3))
 1055 a=int(rnd(1)*200000)
 1057 goto 1420
 1060 print"no sign of enemy;cruising at .9c."
 1062 b1=b1-(2.33118e10)
 1070 if b1<1e5 then 1960
 1072 goto 1720
 1080 if a2$<>"y" then 1090
 1082 goto 700
 1090 printa$;", let's not crack under
 1092 print"pressure. check your range!"
 1095 goto 700
 1100 if a>11005 then 1080
 1110 p=p-10
 1112 print:print"guns have been fired...";
 1120 if o=1 then 1130
 1122 print"enemy maneuvering to avoid..."
 1125 goto 1140
 1130 print"awaiting damage assessment...";
 1140 if o=1 then 1160
 1150 print"missed- drat!"
 1152 goto 1420
 1160 print"hit-- his power is down!!"
 1170 p(1)=p(1)-100
 1172 goto 1420
 1180 if a>100000 then 1080
 1182 if a<10000 then 1080
 1190 p=p-100
 1192 print:print"we have launched a warhead...";
 1195 o1=int(rnd(1)*2)+1
 1200 if o1=1 then 1210
 1202 print"enemy maneuvering..."
 1205 goto 1220
 1210 print"he is trying to avoid...";
 1220 if o=1 then 1230
 1222 print"missed...drat!"
 1225 goto 1420
 1230 print"got him!!"
 1240 p(1)=p(1)-1000
 1242 goto 1420
 1250 if a<100000 then 1080
 1252 p=p-1000
 1256 print:print"laser fired"
 1260 o1=int(rnd(1)*2+1)
 1270 if o1=1 then 1280
 1272 print"i think...i think..."
 1280 print"...maybe...";
 1282 if o=1 then 1290
 1285 print"missed...phooey."
 1287 goto 1420
 1290 print"got 'em...good shooting,"
 1291 printa$;"!"
 1300 p(1)=p(1)-((200000-a/1e5)*3000)
 1302 goto 1450
 1310 print:print"     approaching, ";a$
 1320 b=int(rnd(1)*40000+10000)
 1322 a=a-b
 1325 p=p-100
 1327 ifa<1 then 1340
 1330 goto 1420
 1340 print:print:print:print tab(14)">collision<"
 1342 print:print:print:printtab(10)"both ships destroyed..."
 1345 goto 1900
 1350 print:print"retreating, ";a$
 1360 b= rnd(1)*40000+10000
 1362 a=a+b
 1365 p=p-100
 1367 if a>200050 then 1380
 1370 goto 1420
 1380 print a$;", your range is" a;", but we cannot run, range is now 200,000"
 1390 a=200000
 1400 if o=1 then 1820
 1402 goto 1420
 1410 print:print"resting, ";a$
 1412 p=p+1000
 1420 print:print
 1422 if o=1 then 1450
 1430 print"enemy ship intelligence report:"
 1440 print"range:";int(a);tab(20);"power:";int(p(1))
 1450 if a>200050 then 1480
 1460 if p(1)<100 then 1950
 1462 if p(1)<5000 then 1800
 1465 if a>175000 then 1820
 1470 if a<5000 then 1850
 1472 goto 1520
 1480 if p(1)-(10000*h^.3)<2000 then 18001490p(1)=p(1)-(10000*h^.3)
 1492 o1=int(rnd(1)*4+1)
 1500 print:print"vadar has entered hyperspace....."
 1502 if o1=4 then 2110
 1510 a=int(rnd(1)*40000+10000)
 1512 print" is on us!"
 1520 if b1<1.5e6 then 1960
 1530 r=int(rnd(1)*3.14159+1)
 1532 o=int(rnd(1)*2+1)
 1540 if r=1 then 1660
 1542 if r=2 then 1620
 1545 if r=4 then 1810
 1550 if a<100000then 1530
 1552 p(1)=p(1)-1000
 1560 print:print"enemy fires laser...";
 1570 o1=int(rnd(1)*2+1)
 1572 if o1=1 then 1580
 1575 print"uh-oh..."
 1577 goto 1590
 1580 print"screens at full power...";
 1590 if o=1 then1600
 1592 print"...missed...whew!"
 1595 goto 1720
 1600 if o1=2 then 1610
 1602 print"...oooff...";
 1610 print"they got us!"
 1612 p=p-(((200000-a)/1e5)*3000)
 1615 goto 1720
 1620 if a>100000 then 1530
 1622 if a <10000 then 1530
 1630 p(1)=p(1)-100
 1632 print"enemy warhead is launched..."
 1640 if o=1 then 1650
 1642 print"...missed...ha!"
 1645 goto 1720
 1650 p=p-1000
 1652 print"...hit...our power down"
 1655 goto 1720
 1660 if a>11000 then 1530
 1662 p(1)=p(1)-10
 1665 print"enemy has fired a shell"
 1670 print"i am attempting to avoid...";
 1680 if o=1 then 1710
 1682 print"missed!"
 1690 if o=1 then 1720
 1692 print"that'll show what clean living does"
 1700 print"for you, ";a$" "
 1702 goto 1720
 1710 print"direct hit!!!    power down!"
 1712 p=p-100
 1720 if a2$="n" then 1725
 1721 print:print:print tab(5);"(press space bar to continue)"
 1722 get zz$:if zz$="" then 1722
 1723 print"{clr}"
 1725 print:print:print"status of millennium falcon"
 1730 a=int(a*.98)
 1740 print"range:";int(a);tab(15);"power "int(p)
 1742 if p<1 then 2000
 1750 if o=1 then 1770
 1752 print"distance to yavin-4";b1:print"kilometers"
 1760 q=q+1
 1762 print"days in transit:";d9;
 1765 print"    hyper-jumps ";h9
 1770 if d9>=365then 1990
 1772 if b1>1e6 then 1790
 1780 if o=1 then 1960
 1782 print"we are going to collide with yavin-4!"
 1785 goto 1900
 1790 goto 700
 1800 p(1)=p(1)+1000
 1802 print:print"enemy ship resting."
 1805 goto 1720
 1810 if a<150000then 1530
 1812 if a>200050 then 1450
 1820 b=rnd(1)*40000+10000:a=a-b
 1822 print:print"enemy ship approaching, ";a$
 1830 p(1)=p(1)-100
 1840 goto 1720
 1850 b=rnd(1)*40000+10000:a=a+b:print"{down}enemy ship retreating, ";a$
 1860 p(1)=p(1)-100:goto 1720
 1870 print "you have just entered hyperspace twice.."
 1875 print"...engines blown...we're stuck here"
 1880 print"forever!!!":goto 1900
 1890 print"you just hypered away all of our power."
 1900 printa$;", that was a pretty dumb thing to"
 1905 print"do. your mission was to deliver your"
 1910 print"passengers and the vital information to"
 1920 print"yavin-4, not get everybody killed."
 1930 print"{down}{down}what a nerd."
 1940 goto 2040
 1950 print"enemy ship's power gone...no life forms":print"present":goto 1980
 1960 print"ha,ha!! vadar got too close to our"
 1965 print"hidden base. ground based heavy lasers"
 1970 print"have destroyed his ship."
 1980 print:print"mission successful":goto 2040
 1990 print"we have been in transit for more than"
 1995 print"one year."
 2000 printtab(10);"darth vadar is the victor..."
 2010 print"life support functions gone...life":print"support fading....."
 2025 print:print
 2030 print" c{down}r{down}e{down}w{down} {down}d{down}y{down}i{down}n{down}g{down}{down}.{down}.{down}.{down}.{down}.{down}."
 2035 for zz=1 to 3000:next
 2040 print
 2050 print
 2060 print
 2070 print
 2080 print"play again";
 2090 input b$:n=0:if left$(b$,1)="y"then 500
 2100 goto2530
 2110 print"he is being sucked into a black hole!":goto 1980
 2120 print"oops...we are being sucked into a":print"black hole....sorry about that."
 2130 goto 2030
 2140 o2=int(rnd(1)*3.14159+1)
 2145 b1=b1-((h^3*299792.5)*(60^2))
 2150 if b1<1e6 then 2120
 2160 if p(1)-(j^.3*10000)<10000 then 1480
 2170 print"enemy followed us through"
 2180 p(1)=p(1)-(10000*(h^.3)):a=int(rnd(1)*200000):if o2=4 then 2200
 2190 goto 1420
 2200 p=p+1000:p(1)=p(1)+1000
 2202 goto 1720
 2530 end
  100 sys3136
  100 sys3136
    1 rem"copyright leonard k. sweatman 1978.  all rights reserved.
    2 rem" spacefight  -  #g1010  v1.0 4/7/78
  100 clr:dim c$(2,9),d%(9),f%(2),v(2,2),g%(2),x%(2)
  150 dim c%(2),s(9),p%(9),r%(2),a%(2),n$(2)
  200 b=32768:e=33767:c%(1)=81:c%(2)=87:x%(1)=2:x%(2)=1:i$="Q":i=1
  400 for j=1 to 9:read c$(1,j),c$(2,j),d%(j),p%(j):next j
  610 print"{clr}{down}{down}{down}{down}{down}{down}"spc(13)i$"{up}N_{SHIFT-*}blast gun"
  620 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  who will pilot this ship? ";:gosub63000:n$(i)=ww$
  630 n$(i)=left$(n$(i),8):if i=2 goto 660
  650 i=2:i$="W":goto 610
  660 f%(1)=1+int(rnd(1)*7):f%(2)=1+int(rnd(1)*7)
  665 v(1,1)=32809+int(rnd(1)*417):v(1,2)=v(1,1)+d%(f%(1))
  675 v(2,1)=33726-int(rnd(1)*417):v(2,2)=v(2,1)+d%(f%(2))
  690 r%(1)=0:r%(2)=0:t1=ti:print "{clr}"
  700 for k=1 to 75:get i$
  800 if i$<>"" goto 1000
  900 next k:for i=1 to 2:j=f%(i):gosub 4900
  950 if z%=0 goto 975
  960 gosub 3000
  965 goto 5800
  975 next i:goto 700
 1000 for i=1 to 2:for j=1 to 9
 1100 if i$=c$(i,j) goto 1400
 1200 next j:next i:goto 700
 1400 if j=9 goto 1600
 1500 gosub 4900
 1550 if z%=0 goto 700
 1575 gosub 3000
 1585 goto 5800
 1600 l%=f%(i):j%=7:r%(i)=r%(i)+1
 1650 if l%=3 or l%=7 then j%=9
 1700 for k=1 to j%
 1750 s(k)=v(i,2)+d%(l%)*k
 1800 if s(k)<b or s(k)>e goto 2600
 1850 if s(k)<>v(x%(i),1) goto 2000
 1900 fp=s(k):gosub 3000
 1950 a%(i)=a%(i)+1:goto 6000
 2000 if peek(s(k))=c%(x%(i)) then poke s(k),102:k=k+1:goto 2200
 2050 if peek(s(k))=c%(i) goto 2500
 2100 poke s(k),46:next k
 2150 k=k-1:poke s(k),c%(i)
 2200 for l=1 to 50:next l
 2225 if k=1 goto 700
 2250 for l=1 to k-1
 2300 poke s(l),32:next l:goto 700
 2500 if k=1 goto 700
 2550 poke s(k-1),c%(i):goto 2200
 2600 if k=1 goto 700
 2650 goto 2150
 3000 poke fp,42:for j=1 to 7 step 2
 3100 if fp+d%(j)>=b and fp+d%(j)<=e then poke fp+d%(j),42
 3200 next j:return
 4900 z%=0:if f%(i)=j then bp=v(i,2):fp=v(i,2)+d%(j):goto 5150
 5000 bp=v(i,1):fp=v(i,1)+d%(j):f%(i)=j
 5150 if fp>=b and fp<=e goto 5175
 5160 l=-4:if j<=4 then l=4
 5165 j=j+l:goto 5000
 5175 if peek(fp)=c%(x%(i)) goto 5160
 5200 if peek(fp)=c%(i) then z%=1
 5300 poke v(i,1),32:poke v(i,2),32
 5400 poke bp,c%(i):poke fp,p%(j)
 5500 v(i,1)=bp:v(i,2)=fp:return
 5800 g%(i)=g%(i)+1:i=x%(i)
 6000 t1=(ti-t1)/60:k=int(t1/60):l=int(t1-(k*60)):j%=len(n$(1))/2
 6025 for j=1 to 300:get i$:next j
 6050 print "{clr}s p a c e f i g h t  s c o r e b o a r d"
 6100 print tab(141-j%)n$(1)spc(13-j%-len(n$(2))/2)n$(2)
 6200 print tab(21)"QC"spc(10)"CW"
 6300 print tab(80)"blast fired":print "  this game"spc(9)r%(1)spc(10)r%(2)
 6400 print tab(80)"total hits made"spc(5)a%(1)spc(10)a%(2)
 6600 print tab(80)"total collisions"spc(4)g%(1)spc(10)g%(2)
 6700 print tab(130-len(n$(i))/2)n$(i)" wins in"k"min"l"sec"
 6800 print tab(82)"want to battle again ? (y=yes,n=no)"
 6900 get i$:if i$="y" goto 660
 7000 if i$="n" then end
 7100 goto 6900
 8400 data w,8,-40,66,e,9,-39,78,d,6,1,67,c,3,41,77,x,2,40,66
 8500 data z,1,39,78,a,4,-1,67,q,7,-41,77,s,5,0,0
 8600 data -40,66,-39,78,1,67,41,77,40,66
 8700 data 39,78,-1,67,-41,77,0,0
 63000 ww$="":rem general input 1.3
 63020 print"{CBM-+}{left}";:forvv=1to50:getqq$:ifqq$<>""thenvv=51:goto63100
 63040 next:print" {left}";:forvv=1to50:getqq$:ifqq$<>""thenvv=51:goto63100
 63050 next:goto63020
 63100 next:ifasc(qq$)=13thenprint" {left}";:return
 63110 ifasc(qq$)=20then63200
 63120 ifasc(qq$)=34thenqq$="'"
 63130 ifqq$<" "or"z"<qq$then63020
 63140 ww$=ww$+qq$:iflen(ww$)>254thenww$=""
 63160 print" {left}"qq$;:goto63020
 63200 iflen(ww$)<1then63000
 63210 iflen(ww$)=1thenprintqq$;:goto63000
 63220 ww$=left$(ww$,len(ww$)-1):printqq$;:goto63020
 63999 end:rem" end of spacefight property ofl.k.sweatman{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    0 poke59459,0:gosub1:goto15
    1 poke59468,12
    2 zg=60:rty=.9:rtl=.99
    3 poke59467,16:poke59466,15
    4 poke59464,255
    5 ee=200
    6 ms$="   {down} {left}{left} O{up}{left} {CBM-@}{CBM-I}{CBM-@} {left}{down}{CBM-T}{left}{left}{left}{left}{left}{down}{left} {CBM-T}{up}{CBM-@}{CBM-@}{CBM-@}{down}{CBM-T} {left}{up}{left} {left}P {left}{down}{left}{left}{left}{left}{CBM-V} {CBM-C}"
    7 sc=0:gu=0:nm=0
   10 deffnc(sc)=5+sc+(5-int((int(ss)-32768)/80-2))*5
   14 return
   15 print"{clr}            space invaders"
   20 print"            {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
   21 print"{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by d.j.wylie{down}{down}{down}{down}{down}"
   22 print"{down}{down}{down}{down}"
   30 print"{down}{down}      press {CBM-C}space{CBM-V} to start,"
   40 print"  or {CBM-C}return{CBM-V} for instructions"
   50 geta$:ifa$=chr$(13)then5000
   60 ifa$=" "thenpoke59464,100:goto70
   65 goto50
   70 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}type difficulty rating-(1-9)":getdr$:dr=val(dr$)
   71 ifdr<1then70
   72 ifdr>9then70
   73 dr=1*(10^(dr+2))
   74 poke59468,12
   75 poke59464,200
   80 ti$="000000"
   90 gu$="  {SHIFT--}  {left}{left}{down}{left}{left}{left}  {CBM-+}  "
  100 print"{clr}"
  101 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  102 print"     {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    "
  103 print"     {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    "
  104 print"     {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    "
  105 print"     {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    {rvof}    {rvon}    "
  106 p$="":print"{home}":fora=1to6step2
  110 a$(a)="  A X A X A X A X A X "
  120 a$(a+1)="  X A X A X A X A X A "
  121 next
  122 print"{home}                                       "
  123 print"{home}{down}                                       "
  124 print"{home}{down}{down}{down}                                       "
  125 forg=1to17
  126 poke59464,250
  130 print"{home}     score ="sc"      energy "ee"{left}  {home}":poke59464,0
  131 ifzg=0then2005
  140 print"{down}{down}"
  150 fora=1to6
  155 ifee<=0then9000
  180 printtab(g)a$(a)
  190 print
  195 getn$:ifn$<>""thenp$=n$
  200 next
  210 gosub400:p$="":ifol=1thenol=0:goto3000
  215 ifrnd(ti)>rtlthenp$="":gosub10000
  220 next
  230 forg=17to1step-1
  235 poke59464,250
  240 print"{home}     score ="sc"      energy "ee"{left}  {home}":poke59464,0
  241 ifzg=0then2005
  245 print"{down}{down}"
  250 fora=1to6
  255 ifee<=0then9000
  280 printtab(g)a$(a)
  290 print
  295 getn$:ifn$<>""thenp$=n$
  300 next
  305 gosub400:p$="":ifol=1thenol=0:goto3000
  306 ifrnd(ti)>rtlthenp$="":gosub10000
  310 next
  320 goto125
  400 ee=ee-3
  405 ifsc>=9999oree>=9999then60000
  410 ifpeek(151)=41thengu=gu+1:ee=ee-1
  416 ifgu>38thengu=38
  418 ifpeek(151)=42thengu=gu-1:ee=ee-1
  419 ifgu<0thengu=0
  420 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(gu)gu$:poke151,255:forx1=0to10:next
  421 ifpeek(151)=41thengu=gu+1:ee=ee-1
  422 ifgu>38thengu=38
  423 ifpeek(151)=42thengu=gu-1:ee=ee-1
  424 ifgu<0thengu=0
  430 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(gu)gu$
  440 ifpeek(152)<>1thenp$="":goto486
  441 p$=""
  445 ee=ee-10
  450 forss=33570+guto32848step-40:ifpeek(ss)=32then469
  451 ifpeek(ss)=160orpeek(ss)=224thenpoke59459,255:poke59459,0:goto475
  452 ifpeek(ss)=65orpeek(ss)=88thensc=fnc(sc):ee=fnc(ee):ee=ee+20
  455 ifpeek(ss)<>65andpeek(ss)<>88then469
  456 pokess,42:poke59459,255:poke59459,0:xz=(int(ss)-32768)/80-1:xy=int(int(gu-g)+2)
  458 s$=a$(xz)
  459 c$=left$(s$,xy)+" "+right$(s$,21-xy):zg=zg-1
  460 a$(xz)=c$
  468 goto475
  469 pokess,93:poke59464,(ss-32768)/4:
  470 next
  475 forsp=33570+gutossstep-40
  480 pokesp,32
  485 next
  486 ifsc*dr<rtythen500
  487 cc=(int(rnd(ti)*6)*2+4)*40+gu+32770
  488 ifpeek(cc)<>65andpeek(cc)<>88then500
  489 fordd=cc+40to33767step40:ifpeek(dd)<>32andpeek(dd)<>65andpeek(dd)<>88then600
  490 ifpeek(151)<>255then493
  491 pokedd,93:poke59464,(dd-32768)/4:next
  493 forff=cc+40toddstep40:ifpeek(ff+40)=102thennm=nm+1:gosub1000:ifnm=>3thenol=1:return
  494 pokeff,32:next
  500 getp$:p$="":return
  600 poke59459,255:poke59459,0:goto493
  999 end
 1000 poke59459,255:poke59459,0:return
 2000 forsp=33570+gutossstep-40
 2001 pokesp,32
 2002 next
 2005 print"{home}you have destroyed all the aliens!!    ":zg=60
 2010 print"    well done."
 2020 print"{down}{rght}{rght}{rght}press {CBM-C}space{CBM-V}to continue":print"    or {CBM-C}return{CBM-V} to restart"
 2025 forrr=1to20:geta$:next
 2030 geta$:ifa$=""then2030
 2040 ifa$=" "thenzg=60:gosub20000:goto106
 2045 ifa$=chr$(13)thengosub1:goto70
 2050 fora=32768to33767:pokea,224:poke59464,(a-32768)/4:next:print"{clr}":fora=1to1000:next
 2055 fora=1to20
 2056 poke59464,200
 2060 print"{home}{down}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{up}"
 2065 poke59464,100
 2070 print"ready.":next:clr:print"{home}";:poke59466,0:poke59467,0:poke59464,0:end
 3000 print"{home}you are zapped!!-you scored "sc"{left}   ":
 3001 fornn=0to2:fornp=1to21:readno,nm:pokeno+ff,nm:poke59464,nm
 3002 poke59459,255:poke59459,0:next:restore:next:nm=0
 3005 ifsc>1000thenprint"excellent."
 3006 ifsc>500andsc<=1000thenprint"very good"
 3007 ifsc>100andsc<=500thenprint"good"
 3008 ifsc<=100andsc>50thenprint"rather poor"
 3009 ifsc<=50andsc>0thenprint"poor"
 3010 ifsc=0thenprint"you're rubbish aren't you!!"
 3020 goto2020
 4000 data39,64,41,64,80,93,40,224,40,32,40,81,40,42,40,32,0,93
 4010 data-1,77,1,78,79,78,81,77
 4020 data39,32,41,32,80,32,-1,32,1,32,79,32,81,32,0,32
 5000 print"{clr}":poke59468,14
 5001 print" INSTRUCTIONS"
 5002 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 5003 print"{down}{rght}{rght}THIS{$a0}IS{$a0}A{$a0}GAME{$a0}IN{$a0}WHICH{$a0}ALIENS{$a0}ARE"
 5005 print"{rght}ATTACKING{$a0}YOU.
 5007 print"{down}{rght}{rght}YOU{$a0}HAVE{$a0}ONE{$a0}WEAPON,A{$a0}HIGH{$a0}POWERED"
 5009 print"{rght}DISRUPTER{$a0}BEAM."
 5010 print"{rght}{down}THIS{$a0}WEAPON{$a0}WILL{$a0}DESTROY{$a0}ONLY{$a0}ONE{$a0}ALIEN{$a0}AT{$a0}ONCE."
 5012 print"{down}  YOU{$a0}HAVE{$a0}4{$a0}BLOCK{$a0}HOUSES{$a0}WHICH{$a0}YOU{$a0}MAY{$a0}   HIDE{$a0}BEHIND."
 5014 print" {rvon}but{rvof} :--"
 5015 print"{down}{rght}{rght}{rght}{rght}{rght}THE{$a0}ALIENS{$a0}ALSO{$a0}HAVE{$a0}WEAPONS!!!"
 5017 print"{down}{rght}THEIR{$a0}FIRE{$a0}POWER{$a0}IS{$a0}SIMILAR{$a0}TO{$a0}YOURS,  BUT{$a0}YOU{$a0}CAN{$a0}STAND{$a0}3{$a0}HITS."
 5020 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}PRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}CONTINUE.."
 5030 forgg=1to20:geta$:next
 5040 geta$:ifa$=""then5040
 5050 print"{clr}"
 5060 print" EVERY{$a0}SO{$a0}OFTEN{$a0}THE{$a0}{CBM-C}MOTHER SHIP{CBM-V}"
 5070 print" WILL{$a0}APPEAR{$a0}AT{$a0}THE{$a0}TOP{$a0}OF{$a0}THE{$a0}SCREEN."
 5080 print"{down}IF{$a0}THIS{$a0}IS{$a0}SHOT{$a0}1000 WILL{$a0}BE{$a0}ADDED{$a0}TO    {$a0}YOUR SCORE."
 5090 print"{down}{down}BE{$a0}WARNED!{down}YOUR{$a0}ENERGY{$a0}WILL{$a0}RUN{$a0}OUT      {$a0}VERY{$a0}FAST-"
 5100 print" THE{$a0}ONLY{$a0}WAY{$a0}TO{$a0}GET{$a0}MORE{$a0}IS{$a0}TO HIT     ";
 5105 print"ALIENS-SO{$a0}SHOOT{$a0}SOME{$a0}AS{$a0}SOON{$a0}"
 5110 print" AS{$a0}YOU{$a0}CAN,AND{$a0}MAKE{$a0}SURE{$a0}YOU{$a0}HIT{$a0}ONE!."
 5120 print"{down}{down}THE{$a0}DIFFICULTY{$a0}RATING{$a0}ONLY{$a0}AFFECTS       THE{$a0}NUMBER{$a0}OF{$a0}TIMES{$a0}THE{$a0}ALIENS
 5130 print"FIRE."
 5131 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}PRESS{$a0}ANY{$a0}KEY{$a0}TO{$a0}CONTINUE.."
 5132 forgg=1to20:geta$:next
 5133 geta$:ifa$=""then5133
 5134 print"{clr} TO{$a0}MOVE{$a0}YOUR{$a0}WEAPON{$a0}LEFT{$a0}USE{$a0}THE{$a0}"
 5135 print" {CBM-C}4{CBM-V}KEY.TO{$a0}MOVE{$a0}IT{$a0}RIGHT{$a0}USE{$a0}THE"
 5136 print" {CBM-C}6{CBM-V}KEY.TO{$a0}FIRE{$a0}PRESS{$a0}THE {CBM-C}shift{CBM-V} KEY."
 5137 print" {down}THESE{$a0}KEYS{$a0}SHOULD{$a0}NOT{$a0}BE{$a0}JABBED{$a0}AT,BUT{$a0}{$a0}PRESSED{$a0}FIRMLY."
 5138 print" {down}THEIR{$a0}ACTION{$a0}WILL{$a0}AUTOMATICALLY{$a0}REPEAT{$a0}{$a0}{$a0}IF{$a0}THEY{$a0}ARE{$a0}HELD{$a0}DOWN"
 5150 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{down}PRESS{$a0}A{$a0}KEY TO{$a0}START"
 5990 forgg=1to20:geta$:next
 6000 geta$:ifa$=""then6000
 6001 print"{home}"
 6002 goto70
 7000 pokess,42:xz=(int(ss)-32768)/80-1:xy=int(int(gu-g)+2)
 7001 poke59459,255:poke59459,0
 7005 s$=a$(xz)
 7010 c$=left$(s$,xy)+" "+right$(s$,21-xy):zg=zg-1
 7020 a$(xz)=c$
 7030 return
 9000 print"{home} out of energy!!!!! you scored "sc:ee=100
 9010 goto3005
 10000 fortt=0to30:print"{home}{down}"tab(tt);ms$
 10002 p$=""
 10005 ee=ee-1
 10006 poke59464,100
 10011 print"{home}     score ="sc"      energy "ee"{left}   ":poke59464,0
 10018 ifpeek(151)=255andpeek(152)=0thennext:goto10140
 10019 ifpeek(151)=41thengu=gu+1:ee=ee-1
 10020 ifgu>38thengu=38
 10030 ifpeek(151)=42thengu=gu-1:ee=ee-1
 10040 ifgu<0thengu=0
 10050 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(gu)gu$
 10060 ifpeek(152)<>1thenforty=1to20:next:next:goto10140
 10065 forss=33570+guto32848step-40
 10066 cd=peek(ss)
 10070 ee=ee-1
 10100 pokess,93:poke59464,(ss-32768)/4:ifcd=32then10120
 10105 ifcd=65orcd=88thensc=fnc(sc):ee=fnc(ee):ee=ee+20:gosub7000:goto10130
 10107 ifcd=160orcd=224thenpoke59459,255:poke59459,0:goto10130
 10110 ifcd=99orcd=124orcd=126orcd=100thenm$="":sc=sc+1000:ee=ee+200:goto30000
 10120 next
 10130 forlp=33570+gutossstep-40:pokelp,32:next:nexttt
 10140 print"{home}                                       "
 10141 print"{home}{down}                                       "
 10142 print"{home}{down}{down}                                       "
 10143 print"{home}{down}{down}{down}                                       "
 10144 print"{home}"
 10145 p$="h"
 10150 return
 16930 forlp=33570+gutossstep-40:pokelp,32:next:goto10140
 20000 print"{home}":fords=1to15:print"                                       ":next
 20005 print"{home}"
 20010 return
 30000 poke59459,255:poke59459,0
 30010 goto16930
 59999 end
 60000 print"{home} you win a replay!!!!                   "
 60005 print"{home}{down}"
 60010 fora=1to9
 60020 print"                                       ";
 60030 next
 60040 foryyy=0to3000:next:run
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}         {rvon}spacetalk
    2 print"{down}{down}copyright 1978 leonard k. sweatman.       all rights reserved
    4 rem" space talk  -  #g1010 v1.0 4/7/78
    5 fori=1to1500:next
   50 rem **spacetalk** instructions for spacefight
   55 rem this program prints out instructions
   56 rem  for the game spacefight,which it then automatically loads.
   90 dim s$(1):s$(0)="......Q":s$(1)="       "
  100 print"{clr}"spc(9)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  110 rem prints border of universe
  200 printtab(9)"{rvon} s p a c e f i g h t ":print
  300 print"     a battle in deep space for two"
  400 print"players.  each player battles to gain"
  500 print"control of the universe by firing short"
  600 print"range energy burst at his opponent in an";
  700 print"effort to destroy him.  if you fire at"
  800 print"your opponent and make a direct hit, his";
  900 print"ship will explode and you win.  but if"
 1000 print"you miss, your energy burst will remain"
 1100 print"in space.  if your ship comes in contact";
 1200 print"with the energy burst, it will explode"
 1300 print"and you lose.  however, the burst will"
 1400 print"now repell your opponent and he may"
 1500 print"destroy it if he wishes."
 1600 print"     a force field surrounds your ship"
 1700 print"that repels your opponent and prevents"
 1800 print"collision.  galaxy boundaries exist at"
 1900 print"the top and bottom of the screen that"
 2000 print"repel any ship coming in contact with"
 2100 print"them.    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 2200 printspc(9)"{rvon} type 'c' to continue "
 2250 rem the "get" advances the screen
 2300 get i$:if i$<>"c" goto 2300
 2400 print"{clr}if a ship or energy burst exits the"
 2500 print"galaxy on either side of the screen, it"
 2600 print"will re-enter on the other side."
 2700 print"     each player pilots his ship and"
 2800 print"fires energy burst by using his own set"
 2900 print"of keys on the keyboard.  when a key is"
 3000 print"depressed, the ship will advance in the"
 3100 print"direction associated with the key.  the"
 3200 print"nine keys associated with each ship"
 3300 print"are defined as follows:":print
 3350 rem following is a description of
 3360 rem the operation the ships
 3400 print"     M   B   N"spc(11)"M   B   N"
 3500 print"      Q  Q  Q"spc(13)"W  W  W"
 3600 print"       q w e"spc(15)"7 8 9":print
 3700 print"     CQa s dQC"spc(11)"CW4 5 6WC":print
 3800 print"       z x c"spc(15)"1 2 3"
 3900 print"      Q  Q  Q"spc(13)"W  W  W"
 4000 print"     N   B   M"spc(11)"N   B   M":print
 4100 print"the center key in each group will fire"
 4200 print"that ship's energy burst."
 4300 printspc(9)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 4400 printspc(9)"{rvon} type 'c' to continue ";
 4500 get i$:if i$<>"c" goto 4500
 4600 print"{clr}     when spacefight begins, each"
 4700 print"ship is displayed and a request is made"
 4800 print"for the pilot's name.  cumulative"
 4900 print"statistics are maintained and displayed"
 5000 print"at the end of each match."
 5100 print"{down}{down}"spc(15)"QC{down}{down}":print"      {CBM-@}"
 5200 print"type '{rvon}i{rvof}' to repeat the instructions.":print"      {CBM-@}"
 5250 rem
 5300 print"type '{rvon}l{rvof}' to load the spacefight program.";:print"      {CBM-@}"
 5350 rem
 5400 print"type '{rvon}t{rvof}' to terminate.":print"{up}{up}{up}{up}{up}{up}{up}{up}{up}"spc(17);
 5500 for j=0 to 1
 5600 for i=1 to 100:get i$:if i$="i" goto 100
 5700 if i$="l" goto 9999
 5800 if i$="t" goto 6000
 5900 next i:prints$(j)"{left}{left}{left}{left}{left}{left}{left}";:next j:goto 5500
 6000 print"{clr}":end
 7000 rem this rem is to increase the size
 8000 rem of the loading program to make
 8050 rem it bigger than spacefight.
 9999 print"{clr}{down}{down}{down}*l":print"{home}":poke158,1:poke623,13
 63999 end:rem"end of spacetalk property of l.k.sweatman{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
  100 print"{clr}           {down}{down}{down}{down}{down}{down}{down}{down}space attack"
  105 poke59468,14
  110 fora=1to1000::next
  120 print"{clr}  SIX{$a0}ALIENS{$a0}HAVE{$a0}PENETRATED{$a0}eARTHS"
  130 print"OUTER{$a0}DEFENSES."
  140 print"{down}{down}{down}    AS{$a0}{$a0}COMMANDER{$a0}OF{$a0}THE{$a0}ONLY{$a0}AVAILABLE"
  150 print" DEFENSE{$a0}SHIP,YOUR{$a0}MISSION{$a0}IS{$a0}TO"
  160 print" DESTROY{$a0}THEM."
  170 print"{down}{down}{down}YOU{$a0}MUST{$a0}POSITION{$a0}YOUR SIGHTS{$a0}"
  180 print" SO{$a0}THAT{$a0}THE{$a0}ALIEN{$a0}IS{$a0}CENTRAL,"
  190 print" AND{$a0}THEN{$a0}FIRE."
  200 print"{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}CONTINUE"
  210 geta$:ifa$=""then210
  220 print"{clr}     CONTROLS{$a0}ARE:"
  230 print"{down}     4 TO{$a0}MOVE{$a0}sights LEFT,"
  240 print"{down}     6 TO{$a0}MOVE{$a0}sights RIGHT,"
  250 print"{down}     8 TO{$a0}MOVE{$a0}sights UP,"
  260 print"{down}     2 TO{$a0}MOVE{$a0}sights DOWN."
  270 print"{down}     5 TO{$a0}FIRE YOUR WEAPON."
  280 print"{down}{down} DAMAGE{$a0}FROM{$a0}ENEMY{$a0}ATTACK{$a0}WILL{$a0}GRADUALLY"
  290 print" DESTROY{$a0}YOUR{$a0}AIM-SO{$a0}DON'T{$a0}DELAY!!"
 1500 print"{down}{down}{down}{down}{down}       PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}START"
 1600 geta$:ifa$=""then1600
 1700 poke59468,12
 1740 print"{clr}ratings: b beginner"
 1760 print"         n novice"
 1780 print"         v veteran"
 1800 print"{down}{down}{down}{down}{down}rating?"
 1810 getr$:ifr$=""then1810
 1820 ifr$="b"thenra=350:goto1880
 1840 ifr$="n"thenra=200:goto1880
 1860 ifr$="v"thenra=50
 1880 print"{clr}"
 1900 yc=10:xc=8:gosub2860
 1920 print"tally ho-and good luck"
 1940 forn=1to500:nextn
 1960 mi=1:hi=1:print"{clr}"
 1980 gosub4100
 2000 gosub2380
 2020 yc=int(8*rnd(1)+10)
 2040 xc=int(20*rnd(1)+5)
 2060 gosub2860
 2080 gosub2740
 2100 print"{home}"
 2120 gosub3780
 2140 getd$:d=peek(151):ifd=255then2120
 2160 gosub2860
 2180 ifd=42thenxc=xc+1
 2200 ifd=41thenxc=xc-1
 2220 ifd=50thenyc=yc+1
 2240 ifd=18thenyc=yc-1
 2260 ifd=34then3000
 2265 ifyc>17oryc<6then2140
 2266 ifxc<1orxc>33then2140
 2280 gosub3600
 2300 gosub2860
 2320 gosub2740
 2340 goto2100
 2360 fori=1to2000:nexti:end
 2380 print"{home}{down}{down}{down}{down}":print"            {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 2400 print"                  {CBM-M} {CBM-G}"
 2420 print"                  {CBM-M} {CBM-G}"
 2440 print"                  {CBM-M} {CBM-G}"
 2460 print"{rvon}{CBM-K}{rvof}                                     {CBM-K}"
 2480 print"{rvon}{CBM-K}{rvof}                                     {CBM-K}"
 2500 print"{rvon}{CBM-K}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}                           {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-K}"
 2520 print"{rvon}{CBM-K}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}             {SHIFT-+}             {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-K}"
 2540 print"{rvon}{CBM-K}{rvof}                                     {CBM-K}"
 2560 print"{rvon}{CBM-K}{rvof}                                     {CBM-K}"
 2580 print"                  {CBM-M} {CBM-G}"
 2600 print"                  {CBM-M} {CBM-G}"
 2620 print"                  {CBM-M} {CBM-G}"
 2640 print"            {rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
 2660 return
 2740 print"ZC{rvon}{CBM-O}{rvof}CZ"
 2760 p=yc:q=xc
 2780 return
 2860 s1=32768+40*yc+xc
 2880 s3=int(s1/256)
 2900 s2=s1-256*s3
 2920 poke196,s2:poke197,s3:return
 3000 ifyc=12then3060
 3020 gosub3220
 3040 goto2060
 3060 ifxc=17then3120
 3080 gosub3220
 3100 goto2060
 3120 yc=12:xc=16:gosub2860:gosub4320:gosub2380
 3140 yc=21:xc=10:gosub2860
 3160 print"enemy destroyed =";hi
 3180 hi=hi+1:ifhi=7then3360
 3200 goto2020
 3220 p=yc:q=xc:yc=22:xc=10:gosub2860
 3240 print"number missed =";mi:mi=mi+1
 3260 yc=p:xc=q:gosub2860
 3280 return
 3360 yc=22:xc=10:gosub2860
 3380 mi=mi-1
 3400 print"{home}":yc=12:xc=7:gosub2860
 3420 print"planet earth has been saved"
 3430 fori=1to1100:next
 3440 print"{clr}performance =";int(6/(6+mi)*100);"%"
 3460 if6/(6+mi)*100>75thenra=ra-75:ifra<15thenra=25
 3480 if6/(6+mi)*100<51thenra=ra+50
 3500 gosub4100:yc=24:xc=0:gosub2860
 3520 print"{rvon}do you want another mission?"
 3530 poke158,0
 3540 getq$:ifq$=""then3540
 3560 ifq$<>"y"thenend
 3580 goto1960
 3600 s1=32768+40*p+q
 3620 s3=int(s1/256)
 3640 s2=s1-256*s3
 3660 poke196,s2:poke197,s3
 3680 print"     "
 3700 return
 3780 t=t+1
 3800 ift>rathen3900
 3820 return
 3900 ifxc>36then3980
 3920 ifyc<12then3980
 3940 xc=xc-1:yc=yc+1:gosub3600:gosub2860:gosub2740:print"{home}"
 3960 goto4000
 3980 xc=xc+1:yc=yc-1:gosub3600:gosub2860:gosub2740:print"{home}":goto4000
 4000 ifyc>18oryc<5thenprint"{clr}{down}{down}{down}{down}{down}{down}{down}they gotcha":goto2360
 4020 t=0:return
 4100 ifra<=50thenq$="rating = vetran pilot":goto4160
 4120 ifra>=350thenq$="rating = beginner":goto4160
 4140 q$="rating = novice pilot"
 4160 yc=2:xc=8:gosub2860
 4180 print"                       "
 4200 yc=2:xc=8:gosub2860
 4220 printq$
 4240 return
 4320 restore
 4340 forj=1to15
 4360 readl,m
 4380 pokel,m
 4400 nextj
 4420 return
 4440 data33267,42,33266,42,33268,42
 4460 data33227,42,33307,42,33267,32
 4480 data33265,42,33269,42,33266,32
 4500 data33268,32,33227,32,33307,32
 4520 data33269,32,33265,32,33267,91
  100 gosub1240
  110 sp=250:cr$="crash":s1=5
  120 a$="    39 40 41- 1(m)  1-41-40-39
  130 a1$="    1-39-40-41 -1 39 40 41)
  140 gosub1740
  150 forq=1to(rnd(ti)*4):readd$:next
  160 m$="  +41-39+01000+39-41-01000+40-40000"
  170 for ga=1todr
  180 print"{clr}"
  190 poke59409,52
  200 onp1goto210,1470
  210 print"   {CBM-D}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-*}{rvon}s N{CBM-*}{rvof}     {rvon}{SHIFT-POUND}M r{rvof}{SHIFT-POUND} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-F}"
  220 print"   {rvon}{SHIFT-POUND}      {CBM-*}{rvof} {CBM-*}{rvon}N r{CBM-*}{rvof}   {rvon}{SHIFT-POUND}s M{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}          {CBM-*}{rvof} "
  230 print"  {rvon}{SHIFT-POUND}        {CBM-*}{rvof}     M{$a0}N     {rvon}{SHIFT-POUND}            {CBM-*}{rvof}"
  240 print" {rvon}{SHIFT-POUND}          {rvof}{CBM-G}     V     {rvon}{SHIFT-POUND}              {rvof}"
  250 print"{left}{CBM-G}{CBM-M}{rvon}   {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-*}{rvon}   {$a0}{rvof}{CBM-G}    N M   {rvon}{SHIFT-POUND}     {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvon}    {rvof}"
  260 print"{left}{CBM-G}{CBM-M}{rvon}   {rvof}{CBM-G} {$a0}{CBM-M}{rvon}    {CBM-*}{rvof}         {CBM-M}{rvon}     {rvof}{SHIFT-POUND}  {$a0}{CBM-@}{CBM-@}{SHIFT-@}{rvon}    {rvof}"
  270 print"{left}{CBM-G}{CBM-M}{rvon}   {rvof}{CBM-G}   {CBM-*}{rvon}    {CBM-*}{rvof}        {CBM-M}{rvon}    {rvof}{SHIFT-POUND}{$a0}  {rvon}{SHIFT-POUND}       "
  280 print"{left}{CBM-G}{CBM-M}{rvon}   {rvof}{CBM-G}    {CBM-*}{rvon}    {CBM-*}{rvof}       {CBM-M}{rvon}    {rvof}{CBM-G}{$a0} {rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND}"
  290 print"{CBM-M}{rvon}   {rvof}{CBM-G}     {CBM-*}{rvon}    {CBM-*}{rvof}      {rvon}{SHIFT-POUND}   {$a0}{rvof}{CBM-G} {rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND} "
  300 print"{CBM-M}{rvon}   {rvof}{CBM-G}      {CBM-*}{rvon}    {CBM-*}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvon}{SHIFT-POUND}   {$a0}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}  "
  310 print"{CBM-M}{rvon}   {rvof}{CBM-G}       {CBM-*}{rvon}            {rvof}{SHIFT-POUND} {CBM-M}{rvon}    {rvof}{SHIFT-POUND}      "
  320 print"{CBM-M}{rvon}   {rvof}{CBM-G}        {CBM-*}{rvon}         {$a0}{rvof}{SHIFT-POUND}  {CBM-M}{rvon}    {rvof}        "
  330 print"{up}{CBM-M}{rvon}   {rvof}{CBM-G}         {CBM-*}{rvon}       {$a0}{rvof}{SHIFT-POUND}   {CBM-M}{rvon}    {rvof} :time:   "
  340 print"{up}{CBM-M}{rvon}   {rvof}{CBM-G}          {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}    {CBM-M}{rvon}    {rvof} :    :  "
  350 print"{up}{CBM-M}{rvon}   {rvof}{CBM-G}                      {CBM-M}{rvon}    {rvof}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  360 print"{up}{CBM-M}{rvon}   {rvof}{CBM-G}    {rvon}{SHIFT-POUND}   :    {CBM-*}{rvof}        {CBM-M}{rvon}    {rvof} speed: "
  370 print"{up}{CBM-M}{rvon}   {rvof}{CBM-G}{$a0}  {rvon}{SHIFT-POUND}    :     {CBM-*}{rvof}       {CBM-M}{rvon}    {rvof}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  380 print"{up}{CBM-M}{rvon}   {CBM-*}{rvof}{CBM-@}{CBM-@}{rvon}{SHIFT-POUND}   {rvof}{SHIFT-POUND}    {CBM-*}{rvon}   {CBM-*}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvon}{SHIFT-POUND}    {rvof} round: "
  390 print"{up}{CBM-M}{rvon}            {CBM-B}                 {rvof}{SHIFT-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  400 print"{up} {CBM-*}{rvon}           {CBM-B}                {rvof}{SHIFT-POUND} driver: "
  410 print"{up}  {CBM-*}{rvon}          {CBM-B}               {rvof}{SHIFT-POUND}  {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}"
  420 print"{up}   {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}           "
  430 s=33447:r1=33527:d=33607:t1=34:i=33580
  440 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":c$=b$
  450 poke59409,60
  460 pokei,102:poked,(ga+176 )
  470 gosub1050
  480 ti$="000000":printb$
  490 sp=0:ri=1:d=0
  500 on ggoto510,650,520,660,2070,2080
  510 printb$;tab(t1);"{rvon}";right$(ti$,4)
  520 geti$:ifval(i$)=0then750
  530 m=val(mid$(a$,((val(i$))*3+1),3))
  540 pokei,160:i=i+m:p=peek(i)
  550 ifp=160then630
  560 ifp=102then630
  570 ifp=255andi>i-mthen:i=i+2-sgn(sp):r=r+1:poker1,(176+r)
  580 ifp=255andi>i-mthen:on(sgn(r-r2)+2)goto630,1100,1100
  590 ifp=174then:gosub920:goto630
  600 ifp=170andd=0then:gosub970:goto630
  610 ifp=186andi>i-mthen:gosub1010:goto630
  620 gosub840
  630 ifsp=0then:i=i-m
  640 pokei,102:forq=1to(250-sp*50):next:goto500
  650 printb$;tab(t1);"{rvon}";right$(ti$,4)
  660 geti$:ifi$="a"ori$="s"thengoto750
  670 if i$= "<" then:ri=ri+1
  680 if i$= ">" then:ri=ri-1
  690 ifri<1then:ri=8
  700 ifri>8then:ri=1
  710 m=val(mid$(a1$,(3*ri),3))
  720 ifsp=0then500
  730 goto540
  740 ife=254then:i$="s"
  750 ifi$=""andsp<>0then540
  760 ifi$="a"then:sp=sp+1
  770 ifi$="s"then:sp=sp-1
  780 ifsp>s1then:sp=s1
  790 ifsp<0then:sp=00
  800 pokes,(176+sp)
  810 ifsp=0then500
  820 goto540
  830 return
  840 ifpeek(i-m)=160then:i=i-m
  850 forq=1to10
  860 printc$;tab(16);"{down}"cr$:forz=1to30:next
  870 printc$;tab(16);"{down}{rvon}"cr$:forz=1to30:next
  880 next
  890 printc$;tab(16);"{down}     "
  900 sp=0:pokes,176+sp:m=0
  910 return
  920 ifm=41then:return
  930 cr$="o i l"
  940 gosub840
  950 cr$="crash"
  960 return
  970 d=1:readp$:ifp$<>"a"then:printc$;tab(9);p$:goto990
  980 restore:goto970
  990 s1=2
 1000 return
 1010 r=r+1:s1=5:i=i+1:poker1,(176+r)
 1020 forq=1to1000:next
 1030 d=0:printc$;tab(9);"                 ":return
 1040 data "  reifenschaden",getriebeschaden,"  oelverlust  "," auftanken   ",a
 1050 forq=1tosc+2
 1060 h=rnd(1)*999+32768
 1070 ifpeek(h)<>160then1060
 1080 pokeh,170:forl=1to100:next
 1090 next:return
 1100 t%(ga)=val(ti$):t$=ti$:r=0:s1=5
 1110 printc$;tab(9);"{rvon}{CBM-B}{CBM-B} f i n i s h {CBM-B}{CBM-B}{rvof}":forq=1to1000:next:next
 1120 if dr=1then1980
 1130 for q=1todr-1
 1140 fory=1to dr-1
 1150 ift%(y)>t%(y+1)then:gosub2030
 1160 nexty,q
 1170 print"{clr}klassement :                  min:sec
 1180 forq=1todr
 1190 t$(q)=str$(t%(q)):iflen(t$(q))<4then:t$(q)="00"+t$(q)
 1200 t$(q)=mid$(t$(q),2,len(t$(q))-3)+":"+right$(t$(q),2)
 1210 print"{down}";q".platz :"dr$(q);tab(23);"zeit :   ";t$(q)
 1220 next
 1230 goto1990
 1240 print"{clr}"
 1250 print"                   {CBM-@}{CBM-@}{CBM-@}{CBM-@}
 1260 print"                  NUI  {CBM-T}E{rvon}{CBM-Y}{CBM-U}{rvof}{CBM-O}   {CBM-P}{CBM-@}
 1270 print"                {CBM-@}N JK   {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{rvon} {CBM-Y}{rvof}{CBM-O}N{CBM-T}
 1280 print"        {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T}      .         {CBM-*}"
 1290 print"       N{rvon} egli's-speed-racer'''  {rvof}{CBM-F}
 1300 print"      {rvon}{SHIFT-POUND}   {rvof}{SHIFT-POUND}UI{CBM-*}{rvon}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{rvof}{SHIFT-POUND}UI{CBM-*}{rvon}{CBM-POUND}{CBM-POUND}{CBM-POUND}{rvof}{SHIFT-POUND}
 1310 print"      {CBM-T}{CBM-Y}{CBM-U}{CBM-U}MJKN{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}MJKN{CBM-U}{CBM-Y}{CBM-T}"
 1320 print"           {CBM-T}{CBM-T}            {CBM-T}{CBM-T}
 1330 p=1
 1340 foru=1to15
 1350 fort=0to39stepp
 1360 poke(33088+t),32
 1370 forq=1to10:next:poke(33088+t),127:next
 1380 p=p+1:next
 1390 print"{down}{down}{down}{down}{down}";tab(15);"s p e e d - r a c e r "
 1400 printtab(15);"{down}programmed by :
 1410 printtab(16);"beat egli"
 1420 printtab(17);"po-box 7  8622 wetzikon
 1430 printtab(18);"{down}copyright 1979  ch "
 1440 forq=1to5000:next
 1450 return
 1460 forq=1to5000:next:return
 1470 print"{clr}   {rvon}{SHIFT-POUND}       {CBM-*}{rvof}      {rvon}{SHIFT-POUND}                 {CBM-*}{rvof}
 1480 print"  {rvon}{SHIFT-POUND}         {CBM-*}{rvof}    {rvon}{SHIFT-POUND}           >       {CBM-*}{rvof}
 1490 print" {rvon}{SHIFT-POUND}           {CBM-*}{rvof}   {rvon}                     {CBM-*}{rvof}
 1500 print"{rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}   {CBM-*}{rvon}    {CBM-*}{rvof}  {rvon}    {CBM-*}{rvof}            {CBM-*}{rvon}    {rvof}
 1510 print"{rvon}    {rvof}{SHIFT-POUND}     {CBM-*}{rvon}    {CBM-*}{rvof} {CBM-*}{rvon}    {CBM-*}{rvof}           {rvon}{SHIFT-POUND}    {rvof}
 1520 print"{rvon}    {rvof}       {CBM-*}{rvon}    {CBM-*}{rvof} {CBM-*}{rvon}    {rvof}          {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}
 1530 print"{rvon}>   {rvof}        {CBM-*}{rvon}    {rvof}  {rvon}    {rvof}         {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}
 1540 print"{rvon}    {rvof} :time:  {rvon}    {rvof}  {rvon}    {rvof}     {rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND}
 1550 print"{rvon}    {rvof}         {rvon}    {rvof}  {rvon}    {rvof}    {rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND}
 1560 print"{rvon} x  {rvof}         {rvon}    {rvof}  {rvon}    {rvof}   {rvon}{SHIFT-POUND}       {rvof}{SHIFT-POUND}
 1570 print"{rvon}    {rvof} round   {rvon}    {rvof}  {rvon}    {rvof}   {rvon}    {rvof}{SHIFT-POUND}
 1580 print"{rvon}    {rvof} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {rvon}    {CBM-*}{SHIFT-POUND}    {rvof}   {rvon}    {rvof}
 1590 print"{rvon}    {rvof} speed   {rvon}          {rvof}   {rvon}    {CBM-*}{rvof}
 1600 print"{rvon}  x {rvof} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND} {CBM-*}{rvon}        {rvof}{SHIFT-POUND}{rght}  {CBM-*}{rvon}         {CBM-*}{rvof}
 1610 print"{rvon}    {rvof} driver   {CBM-*}{rvon}      {rvof}{SHIFT-POUND}     {CBM-*}{rvon}         {CBM-*}{rvof}
 1620 print"{rvon}    {rvof} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}  {CBM-*}{rvon}    {rvof}{SHIFT-POUND}       {CBM-*}{rvon}         {CBM-*}{rvof}
 1630 print"{rvon}    {rvof}                              {CBM-*}{rvon}    {rvof}
 1640 print"{rvon}  ..{CBM-*}{rvof}                              {rvon}    {rvof}
 1650 print"{rvon}.....{CBM-*}{rvof}      {rvon}{SHIFT-POUND}    :      {CBM-*}{rvof}         {rvon}{SHIFT-POUND}    {rvof}
 1660 print"{CBM-*}{rvon}.....{CBM-*}{rvof}    {rvon}{SHIFT-POUND}     :       {CBM-*}{rvof}       {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}
 1670 print" {CBM-*}{rvon}.....{CBM-*}{rvof}  {rvon}{SHIFT-POUND}   {rvof}{SHIFT-POUND}       {CBM-*}{rvon}   {CBM-*}{rvof}     {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}"
 1680 print"  {CBM-*}{rvon}...           {CBM-B}                  {rvof}{SHIFT-POUND}"
 1690 print"   {CBM-*}{rvon}.            {CBM-B}                 {rvof}{SHIFT-POUND}  "
 1700 print"    {CBM-*}{rvon}            {CBM-B}                {rvof}{SHIFT-POUND}   "
 1710 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}":c$=b$+"{down}{down}{down}{down}{down}{down}{down}{down}"
 1720 s=33259:r1=33179:d=33340:t1=6:i=33664
 1730 goto450
 1740 print"{clr}s p e e d - r a c e r
 1750 print"{down}autorennen - simulation
 1760 print"{down}wieviele fahrer ? (1-9)"
 1770 gosub1960:dr=i
 1780 forq=1to dr
 1790 print"{down}name fahrer "q;"   *{left}{left}{left}";:inputdr$(q):next
 1800 print"{down}welche piste ?  1 - leicht{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}2 - schwieriger
 1810 gosub 1960:p1=i
 1820 print"{down}welche steuerung? 1 - tastatur langsam
 1830 print"                  2 - < > langsam
 1840 print"                  3 - tastatur schnell
 1850 print"                  4 - < > schnell
 1860 print"                  5 - joystick langsam"
 1870 print"                  6 - joystick schnell"
 1880 gosub 1960:g=i
 1890 print"{down}wieviele schikanen ? (1-9)"
 1900 gosub1960
 1910 sc=i
 1920 print"{down}wieviele runden ? (1-9)
 1930 gosub1960
 1940 r2=i+1
 1950 return
 1960 geti$:ifval(i$)=0then1960
 1970 i=val(i$):return
 1980 print"{clr}{down}{down}{down}{down}{down}{down}ihre zeit :   ";right$(t$,4)
 1990 print"{down}{down}noch ein rennen ? (j/n)"
 2000 geti$:ifi$="j"then:run110
 2010 ifi$<>"n"then2000
 2020 end
 2030 t%=t%(y):z$=dr$(y)
 2040 t%(y)=t%(y+1):dr$(y)=dr$(y+1)
 2050 t%(y+1)=t%:dr$(y+1)=z$
 2060 return
 2070 printb$;tab(t1);"{rvon}";right$(ti$,4)
 2080 e=peek(59471)
 2090 ife/2-int(e/2)=0then:i$="a":goto740
 2100 z=val(mid$(m$,((e-233)/2*3),3))
 2110 ifz<>0then:m=z
 2120 geti$:ifi$="a"ori$="s"then750
 2130 goto540
    0 clr:poke59468,12
    1 rem spot copyright (c) 1980 art carpet
    2 rem 28278 enderly st
    3 rem canyon country ca 91351
    4 :
    5 rem cursor #17, feb 1980
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1980 cursor magazine
    8 :
   10 rem as of feb 26 80
   90 pg$="spot":nm$="17":gosub62000
  100 bl$="                                       ":gosub1340
  190 v=0:print"{clr}{down}{down}            1   2   3   4   5   6   7
  200 a$="          {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  210 b$="          {SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}{$a0}{$a0}{$a0}{SHIFT--}
  220 c$="          {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
  230 d$="          {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  240 printa$:fort=1to5:printb$:printb$:printc$:next:printb$:printb$:printd$
  250 ifga<>0then290
  260 dima(7,6),b(42)
  270 a$(1)="{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}":a$(2)="{rvon}   {down}{left}{left}{left}   {rvof}":a$(3)="   {down}{left}{left}{left}   "
  280 fort=1to42:readz:b(t)=z+32768:next
  290 ga=1:fort=1to6:fory=1to7:v=v+1:a(y,t)=b(v):next:next:v=0
  300 x=int(rnd(ti)*2+1):at=0
  310 j=0:pokeql,24:print"{up}";bl$
  320 gosub2000
  330 pokeql,20:print"{up}";a$(x);"{down}{down}":printn$(x);"'s move";:
  340 gosub2100
  360 ifval(r$)<1orval(r$)>7then340
  370 print:pokeql,24:print"{up}";bl$:pokeql,20:print"{up}";a$(3)
  380 m=val(r$)
  390 fort=1to6
  400 ifa(m,t)<9thenj=j+1
  410 ifj=6then310
  420 next:j=0
  430 at=at+1
  440 fort=6to1step-1
  450 ifa(m,t)>8then470
  460 next
  470 v=m*4+7:h=t*3+2
  480 fork=1to2:tw=ti
  490 pokeql,h:print"{up}"tab(v)a$(x)
  500 ifti<tw+10then500
  510 pokeql,h:print"{up}"tab(v)a$(3)
  520 ifti<tw+20then520
  530 next:pokeql,h:print"{up}"tab(v)a$(x)
  540 a(m,t)=x^3
  550 rem check for horiz win
  560 forc=1to4
  570 ifa(c,t)+a(c+1,t)+a(c+2,t)+a(c+3,t)=4*(x^3)then590
  580 next:goto640
  590 m(1)=c:t(1)=t
  600 m(2)=c+1:t(2)=t
  610 m(3)=c+2:t(3)=t
  620 m(4)=c+3:t(4)=t
  630 goto950
  640 rem vert win?
  650 forc=1to3
  660 ifa(m,c)+a(m,c+1)+a(m,c+2)+a(m,c+3)=4*(x^3)then680
  670 next:goto730
  680 m(1)=m:t(1)=c
  690 m(2)=m:t(2)=c+1
  700 m(3)=m:t(3)=c+2
  710 m(4)=m:t(4)=c+3
  720 goto950
  730 rem l to r diag?
  740 fork=1to4
  750 forc=6to4step-1
  760 ifa(k,c)+a(k+1,c-1)+a(k+2,c-2)+a(k+3,c-3)=4*(x^3)then780
  770 next:next:goto830
  780 m(1)=k:t(1)=c
  790 m(2)=k+1:t(2)=c-1
  800 m(3)=k+2:t(3)=c-2
  810 m(4)=k+3:t(4)=c-3
  820 goto950
  830 rem check for r to l diag
  840 fork=7to4step-1
  850 forc=6to4step-1
  860 ifa(k,c)+a(k-1,c-1)+a(k-2,c-2)+a(k-3,c-3)=4*(x^3)then880
  870 next:next:goto930
  880 m(1)=k:t(1)=c
  890 m(2)=k-1:t(2)=c-1
  900 m(3)=k-2:t(3)=c-2
  910 m(4)=k-3:t(4)=c-3
  920 goto950
  930 ifat=42then1036
  940 x=3-x:goto310
  950 pokeql,23:print"{up}";tab(10)n$(x)" is the winner !"
  960 fori=1to5
  970 forz=1to4
  980 m=m(z):t=t(z)
  990 v=m*4+7:h=t*3+2
 1000 pokeql,h:print"{up}"tab(v)a$(3)
 1010 forp=1to100:next
 1020 pokeql,h:print"{up}"tab(v)a$(x)
 1030 next:next:goto1040
 1036 pokeql,23:print"{up}stalemate! "
 1040 pokeql,24:print"{up}want to play again? ";:v=0:gosub60000
 1050 ifleft$(in$,1)<>"n"thenga=1:print"{clr}":goto190
 1060 end
 1080 data171,175,179,183,187,191,195,291,295,299,303,307,311,315,411,415
 1090 data419,423,427,431,435,531,535,539,543,547,551,555,651,655,659,663
 1100 data667,671,675,771,775,779,783,787,791,795
 1340 print"{clr}{down}{down}{down}who's playing black? ";:gosub60000:n$(1)=in$
 1350 print"{down}{down}who's playing white? ";:gosub60000:n$(2)=in$
 1360 return
 2000 getz$:ifz$<>""then2000
 2010 return
 2100 zt=ti:zc=2
 2110 getr$:ifr$<>""then2140
 2120 ifzt<=tithenprintmid$(" ?",zc,1);"{left}";:zc=3-zc:zt=ti+15
 2130 goto2110
 2140 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1980   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 ql=245:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 ql=216
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by art carpet
 62020 gosub60500
 62030 print"{down}four in a row to win...
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=1:gosub60200
 62110 print"the object of spot is to get four pieces
 62120 print"in a row, in any direction.  unlike tic-
 62130 print"tac-toe, the pieces fall to the bottom
 62140 print"{down}of the column in which they are put.
 62150 print"{down}{down}needless to say, your usual trick moves
 62160 print"{down}from tic-tac-toe won't work here.
 62170 gosub60200
:{stop}{CTRL-O}{$00}{$00}{$00}{CTRL-A}{$00}~~sprachuhr/20.06{dish}Ps0:sprachuhr/20.06W{$60}H{SHIFT-*}{CTRL-G}P{$fb}{$a0}{$00}{$60}{$78}{SHIFT-POUND}{$00}{f1}{$00}{SHIFT-POUND}{$6f}{sret}{$fe}{stop}{f1}{CTRL-A}{SHIFT-POUND}{$76}{sret}~{stop}{$60} {$6f}{stop}{CBM-I}{$00}{$a0}{$00}{CBM-E}{$00}h{$68}{$0a}h{CBM-A}{CTRL-G}{SHIFT-POUND}L{sret}l{$e8}P{wht}{SHIFT-POUND}{$ec}{sret}l{$e8} {$67}{stop}{$e8}{$e0}{dish}P{$e7}{$68}{$e6}{$00}P{CTRL-G}{$e6}{CTRL-A}{CBM-Z}~{stop}E{CTRL-A}PRx{$60}{CTRL-G}{$e6}{CTRL-A}{CBM-Z}~{stop}E{CTRL-A}PRx{$60}{$60}E{CTRL-A}PLx{$60}x{$60}{$7f}{$77}{$77}{$77}{$77}{$77}{$7f}{$73}{$77}{$77}{$77}{$7f}{$77}{$77}{$77}{$77}{$7a}{$77}{$77}{$77}{$77}{$7f}{$76}{$77}{$77}{$77}{$73}{$77}{$6f}{$76}{$77}{$7e}w{$77}{$75}{$77}{$77}{$f7}{$77}{$75}{$77}{$76}{$77}{$76}{$76}{$77}{$67}7{$76}{$f7}{$80}{$00}~{$6f}{$76}{$00}${CTRL-D}{$0a}{$00}{gry1}42,129:{gry1}43,16:{gry1}52,00:{gry1}53,28:{pur}{$00}*{CTRL-D}{del}{$00}{$8f}{$00}b{CTRL-D}{grn}{$00}{$8f} heinz-e. obermann{$00}h{CTRL-D}({$00}{$8f}{$00}{$7b}{CTRL-D}2{$00}{$8f}                              ***************{$00}{CBM-S}{CTRL-D}<{$00}{$8f}                              ** sprachuhr **{$00}{$e1}{CTRL-D}f{$00}{$8f}                              ***************{$00}{del}{wht}p{$00}{$8f}                              **  21.06.81 **{$00}g{wht}z{$00}{$8f}                              ***************{$00}{$79}{wht}{$64}{$00}{$8f}                             **  cbm 8000 **{$00}{CBM-Q}{wht}{$6e}{$00}{$8f}                             ***************{$00}{CBM-E}{wht}{$78}{$00}{$8f}{$00}{$eb}{wht}{$82}{$00}{lgrn}G(142):k0{CBM-R}33768:k{CBM-R}1.333:{f3}g(15),b(2,25),te(17),ta(17){$00}{CTRL-Z}{CTRL-F}{f8}{$00}{$83}32,108,124,225,126,127,226,251,123,98,255{$00}d{CTRL-F}{lred}{$00}{$83}254,97,252,236,160:{orng}im{CBM-R}0{CBM-@}15:{f5}g(im):{$82}{$00}{sret}{CTRL-F}{$a0}{$00}{$83}28,32,123,127,28,34,36,40,42,46,48,52,54,59,60,65,68,73,75,79,81,86{$00}C{CTRL-F}{CBM-N}{$00}{$83}88,93,96,101,103,108,111,118,118,122,0,0,123,127{$00}{$e4}{CTRL-F}{CBM-H}{$00}hi{CBM-R}7:{orng}i{CBM-R}1{CBM-@}17:{f5}te(i):{f5}ta(i):{$82}{$00}{dish}{CTRL-G}{CBM-V}{$00}{lgrn}"{clr}";{CBM-T}31)"{rvon} a n a l o g u h r "{$00};{CTRL-G}H{$00}{lgrn}{CBM-T}23)"{down}{down}{down}ueberschreiben sie diese zeit mit ":{lgrn}{$00}{$79}{CTRL-G}R{$00}{lgrn}{CBM-T}23)"der richtigen zeit und druecken sie ":{lgrn}{CBM-T}36)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"{$00}{CBM-K}{CTRL-G}{CBM--}{$00}{lgrn}{CBM-T}23)"dann auf die {rvon}return{rvof}-taste:"{$00}X{CTRL-G}{$e6}{$00}{lgrn}{CBM-T}38)"{down}{down}{down}{down}";H(ti$,2);" ";J(ti$,3,2);" ";J(ti$,5,2){$00}{$f8}{CTRL-G}{$f0}{$00}{lgrn}{CBM-T}23);:{f1}"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";a${$00} {dish}{$fa}{$00}ti${CBM-R}H(a$,2){CBM-N}J(a$,4,2){CBM-N}I(a$,2):{lgrn}"{clr}";{$00}h{dish}{CTRL-D}{CTRL-A}{gry1}k0,87:r{CBM-R}12:c1{CBM-R}k{CBM-D}r:{orng}l{CBM-R}1{CBM-@}12:a{CBM-R}l{CBM-D}.524{$00}{$70}{dish}{swlc}{CTRL-A}kd{CBM-R}k0{CBM-N}{CBM-J}(c1{CBM-D}{CBM-B}(a){CBM-N}.5){CBM-Q}80{CBM-D}{CBM-J}(r{CBM-D}{CBM-V}(a){CBM-N}.5){$00}{gry3}{dish}{CTRL-X}{CTRL-A}{gry1}kd,176{CBM-N}E(I(D(l),1)):{f6}l{CBM-W}{CBM-E}12{CBM-M}{gry1}kd{CBM-Q}80,100{$00}Y{dish}"{CTRL-A}{$82}:{orng}l{CBM-R}10{CBM-@}12:a{CBM-R}l{CBM-D}.524:kd{CBM-R}k0{CBM-N}{CBM-J}(c1{CBM-D}{CBM-B}(a){CBM-N}.5){CBM-Q}80{CBM-D}{CBM-J}(r{CBM-D}{CBM-V}(a){CBM-N}.5){CBM-Q}1{$00}{$f7}{dish},{CTRL-A}{gry1}kd,177:{f6}l{CBM-W}{CBM-E}12{CBM-M}{gry1}kd{CBM-Q}80,100{$00}{$fd}{dish}6{CTRL-A}{$82}{$00}<{ensh}@{CTRL-A}r{CBM-R}20:{orng}l{CBM-R}1{CBM-@}60:a{CBM-R}l{CBM-D}.10472:c{CBM-R}{CBM-V}(a):s{CBM-R}k{CBM-D}{CBM-B}(a):{orng}l{CBM-R}1{CBM-@}60:a{CBM-R}l{CBM-D}.10472{$00}{$75}{ensh}j{CTRL-A}c{CBM-R}{CBM-V}(a):s{CBM-R}k{CBM-D}{CBM-B}(a):x{CBM-R}41{CBM-N}{CBM-J}(r{CBM-D}s{CBM-N}.5):y{CBM-R}25{CBM-N}{CBM-J}(r{CBM-D}c{CBM-N}.5):{sret}700:{$82}{$00}{up}{ensh}t{CTRL-A}{lgrn}"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}**********"{$00}H{ensh}^{CTRL-A}{lgrn}"{rght}{rght}{rght}*{rvon}";H(ti$,2);":";J(ti$,3,2);":";I(ti$,2);"{rvof}*"{$00}{SHIFT--}{ensh}{$68}{CTRL-A}{lgrn}"{rght}{rght}{rght}**********"{$00}{rght}{$0a}{$72}{CTRL-A}su${CBM-R}H(ti$,2):su{CBM-R}E(su$):mi${CBM-R}J(ti$,3,2):mi{CBM-R}E(mi$):su{CBM-R}su{CBM-N}mi{CBM-Z}60{$00}n{$0a}{$7c}{CTRL-A}a(1){CBM-R}su{CBM-D}.5236:r(1){CBM-R}10:a(2){CBM-R}mi{CBM-D}.10472:r(2){CBM-R}16{$00}{$80}{$0a}{f3}{CTRL-A}{orng}i{CBM-R}1{CBM-@}2:a{CBM-R}a(i):r{CBM-R}r(i):{f6}a{CBM-E}6.283185{CBM-M}a{CBM-R}a{CBM-Q}6.283185{$00}{CBM-K}{$0a}{blk}{CTRL-A}{up}{CBM-J}(1{CBM-N}.636{CBM-D}a){f2}410,420,430,440{$00}{CBM-L}{$0a}{lblu}{CTRL-A}xa{CBM-R}41:ya{CBM-R}25:{f2}450{$00}K{$0a}{CBM-@}{CTRL-A}xa{CBM-R}41:ya{CBM-R}24:{f2}450{$00}{$e0}{$0a}{CBM-S}{CTRL-A}xa{CBM-R}40:ya{CBM-R}24:{f2}450{$00}{$f0}{$0a}{CBM-U}{CTRL-A}xa{CBM-R}40:ya{CBM-R}25{$00}{$fb}{$0a}B{CTRL-A}{sret}550:{$82}{$00}({CTRL-K}L{CTRL-A}se${CBM-R}I(ti$,2):se{CBM-R}E(se$):as{CBM-R}se{CBM-D}.10472:{sret}680{$00}f{CTRL-K}V{CTRL-A}m${CBM-R}J(ti$,4,1):s${CBM-R}I(ti$,1){$00}[{CTRL-K}{$e0}{CTRL-A}{f6}s${CBM-R}I(ti$,1){CBM-M}480{$00}{$83}{CTRL-K}{$ea}{CTRL-A}{gry1}ms,mz:as{CBM-R}.10472{CBM-D}E(J(ti$,5,2)):{sret}680{$00}{CBM-D}{CTRL-K}{$f4}{CTRL-A}s${CBM-R}I(ti$,1):se${CBM-R}J(ti$,5,2):se{CBM-R}E(se$){$00}A{CTRL-K}{$fe}{CTRL-A}{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}";{$00}{$ee}{CTRL-K}{dish}{CTRL-B}{lgrn}"{rvon}";H(ti$,2);":";J(ti$,3,2)":";I(ti$,2){$00}{wht}{CTRL-L}{rvon}{CTRL-B}{f6}m${CBM-R}J(ti$,4,1){CBM-M}480{$00}.{CTRL-L}{red}{CTRL-B}i1{CBM-R}1:{sret}810:{sret}900:i1{CBM-R}2:{sret}900:{gry1}ms,mz:{f2}370{$00}{$62}{CTRL-L}&{CTRL-B}c{CBM-R}{CBM-V}(a):s{CBM-R}k{CBM-D}{CBM-B}(a):xe{CBM-R}xa{CBM-N}{CBM-J}(r{CBM-D}s{CBM-N}.5):ye{CBM-R}ya{CBM-N}{CBM-J}(r{CBM-D}c{CBM-N}.5){$00}{$77}{CTRL-L}0{CTRL-B}{f6}ya{CBM-R}ye{CBM-M}sg{CBM-R}0:{f2}590{$00}{f8}{CTRL-L}:{CTRL-B}{f6}xa{CBM-R}xe{CBM-M}sq{CBM-R}0:{f2}630{$00}{CBM-U}{CTRL-L}d{CTRL-B}sg{CBM-R}(ye{CBM-Q}ya){CBM-Z}(xe{CBM-Q}xa):sq{CBM-R}1{CBM-Z}sg:{f6}{CBM-L}(sg){CBM-E}1{CBM-M}630{$00}{$ed}{CTRL-L}n{CTRL-B}fl{CBM-R}0:is{CBM-R}1:{orng}x{CBM-R}xa{CBM-@}xe{SHIFT-POUND}{CBM-H}(xe{CBM-Q}xa):y{CBM-R}{CBM-J}(sg{CBM-D}(x{CBM-Q}xe){CBM-N}ye{CBM-N}.5){$00}{CTRL-A}
x{CTRL-B}{f6}fl{CBM-R}0{CBM-M}fl{CBM-R}1:{f2}620{$00}{red}
{$62}{CTRL-B}{sret}700:b(i,is){CBM-R}m:is{CBM-R}is{CBM-N}1{$00}$
{$6c}{CTRL-B}{$82}:{swuc}{$00}d
{$76}{CTRL-B}fl{CBM-R}0:is{CBM-R}1:{orng}y{CBM-R}ya{CBM-@}ye{SHIFT-POUND}{CBM-H}(ye{CBM-Q}ya){$00}^
{$80}{CTRL-B}x{CBM-R}{CBM-J}(sq{CBM-D}y{CBM-N}xa{CBM-Q}sq{CBM-D}ya{CBM-N}.5){$00}{$72}
{f4}{CTRL-B}{f6}fl{CBM-R}0{CBM-M}fl{CBM-R}1:{f2}670{$00}{sret}
{inst}{CTRL-B}{sret}700:b(i,is){CBM-R}m:is{CBM-R}is{CBM-N}1{$00}{brn}
{yel}{CTRL-B}{$82}:{swuc}{$00}N
{CBM-POUND}{CTRL-B}r{CBM-R}20:c{CBM-R}{CBM-V}(as):s{CBM-R}k{CBM-D}{CBM-B}(as):x{CBM-R}41{CBM-N}{CBM-J}(r{CBM-D}s{CBM-N}.5):y{CBM-R}25{CBM-N}{CBM-J}(r{CBM-D}c{CBM-N}.5){$00}~
{CBM-R}{CTRL-B}ms{CBM-R}34708{CBM-N}{CBM-J}(x{CBM-Z}2){CBM-Q}80{CBM-D}{CBM-J}(y{CBM-Z}2):mz{CBM-R}B(ms):{gry1}ms,160:{swuc}{$00}{red}{swlc}{CBM-C}{CTRL-B}m{CBM-R}34708{CBM-N}{CBM-J}(x{CBM-Z}2){CBM-Q}80{CBM-D}{CBM-J}(y{CBM-Z}2){$00}3{swlc}F{CTRL-B}{f6}m{CBM-W}32768{CBM-A}m{CBM-E}34746{CBM-M}{swuc}{$00}d{swlc}P{CTRL-B}j1{CBM-R}B(m):k1{CBM-R}0{$00}v{swlc}Z{CTRL-B}{f6}j1{CBM-R}g(k1){CBM-M}760{$00}{$6f}{swlc}{$e4}{CTRL-B}{f6}k1{CBM-W}{CBM-E}15{CBM-M}k1{CBM-R}k1{CBM-N}1:{f2}730{$00}{$78}{swlc}{$ee}{CTRL-B}k1{CBM-R}0{$00}{orng}{swlc}{$f8}{CTRL-B}j1{CBM-R}1{$00}{lred}{swlc}{CTRL-B}{stop}{f6}y{CBM-Q}2{CBM-D}{CBM-J}(y{CBM-Z}2){CBM-M}j1{CBM-R}2{$00}{CBM-N}{swlc}{CTRL-L}{stop}{f6}x{CBM-Q}2{CBM-D}{CBM-J}(x{CBM-Z}2){f2}800{$00}{CBM-O}{swlc}{CTRL-V}{stop}j1{CBM-R}12{CBM-Q}4{CBM-D}j1{$00}K{swlc} {stop}{gry1}m,g(j1{CBM-A}k1):{swuc}{$00}{$ea}{swlc}*{stop}h{CBM-R}E(H(ti$,2)):{f6}h{CBM-E}12{CBM-M}h{CBM-R}h{CBM-Q}12{$00}{blu}{CTRL-O}4{stop}me{CBM-R}E(J(ti$,4,1)):mx{CBM-R}E(J(ti$,3,1)):se{CBM-R}E(I(ti$,2)){$00}7{CTRL-O}>{stop}i{CBM-R}17:i{CBM-R}h{CBM-N}2:{f6}h{CBM-R}1{CBM-M}i{CBM-R}h{$00}{$6c}{CTRL-O}h{stop}{sret}890:i{CBM-R}16:{sret}890:i{CBM-R}mx{CBM-N}2:{sret}890:i{CBM-R}me{CBM-N}2:{sret}890:i{CBM-R}15:{sret}890{$00}{$84}{CTRL-O}r{stop}mi{CBM-R}10{CBM-D}mx{CBM-N}me:se{CBM-R}se{CBM-N}7{$00}{CBM-L}{CTRL-O}\{stop}{f6}se{CBM-E}59{CBM-M}se{CBM-R}se{CBM-Q}60:mi{CBM-R}mi{CBM-N}1:{f6}mi{CBM-E}59{CBM-M}mi{CBM-R}mi{CBM-Q}60:h{CBM-R}h{CBM-N}1{$00}{$e8}{CTRL-O}{$66}{stop}t${CBM-R}I(D(h{CBM-N}100),2){CBM-N}I(D(mi{CBM-N}100),2){CBM-N}I(D(se{CBM-N}99),2){$00}{$f5}{CTRL-O}{$70}{stop}ti${CBM-R}t$:{swuc}{$00}{grn}{CTRL-P}{$7a}{stop}{gry1}873,hi:{gry1}885,te(i):{gry1}892,ta(i):{yel}897:{swuc}{$00}<{CTRL-P}{$84}{stop}{orng}iz{CBM-R}1{CBM-@}22:{gry1}b(i1,iz),32:{$82}:{swuc}{$00}{$00}{$00}i1,iz),32:{$82}:{swuc}{$00}{$00}{$00}g{$00}w{$00}{CTRL-A}{$00}{CTRL-P}{f3}{$00}{$00}{$00}{$00}{f5}x{$00}{$00}{$00}{f5}{$78}{$00}{$00}{$00}{f7}{$61}{$00}{$00}{$00}{f5}{$7c}{$00}{$00}{$00}{f5}{$7e}{$00}{$00}{$00}{f7}{$62}{$00}{$00}{$00}{f7}{$7b}{$00}{$00}{$00}{f5}{$76}{$00}{$00}k0{blk}{stop}{$e8}{$00}{$00}k{$00}{orng}*{cyn}{CBM-V}{$77}im{f1}{$00}{$00}{$00}{$00}hi{$83}{$60}{$00}{$00}{$00}i{$00}{f1}{CTRL-P}{$00}{$00}{$00}a{$80}{dish}{$de}{esc}{$00}{$00}r{$00}{$84}@{$00}{$00}{$00}c1{$84}{$7f}{$ef}{left}{CBM-W}l{$00}{$83}{$00}{$00}{$00}{$00}a{$00}{$82}{CTRL-F}${SHIFT--}/kd{blk}{wht}V{$00}{$00}g{$00}w{$00}{CTRL-A}{$00}{CTRL-P}{f3}{$00}{$00}{$00}{$00}{f5}x{$00}{$00}{$00}{f5}{$78}{$00}{$00}{$00}{f7}{$61}{$00}{$00}{$00}{f5}{$7c}{$00}{$00}{$00}{f5}{$7e}{$00}{$00}{$00}{f7}{$62}{$00}{$00}{$00}{f7}{$7b}{$00}{$00}{$00}{f5}{$76}{$00}{$00}{$00}{f5}d{$00}{$00}{$00}{f7}{$7f}{$00}{$00}{$00}{f7}{$7e}{$00}{$00}{$00}{f5}b{$00}{$00}{$00}{f7}{$7c}{$00}{$00}{$00}{f7}{$6c}{$00}{$00}{$00}{f7} {$00}{$00}{$00}b{$00}{$8f}{CTRL-A}{CTRL-B}{$00}{CTRL-Z}{$00}{stop}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}te{$61}{$00}{CTRL-A}{$00}{rvon}{$00}{$00}{$00}{$00}{$00}{f1}{$60}{$00}{$00}{$00}{f5}{$76}{$00}{$00}{$00}{f1}{$60}{$00}{$00}{$00}{f3}{CTRL-P}{$00}{$00}{$00}{f3}({$00}{$00}{$00}{f3}@{$00}{$00}{$00}{f3}x{$00}{$00}{$00}{f3}{$70}{$00}{$00}{$00}{f5}{dish}{$00}{$00}{$00}{f5}{CTRL-V}{$00}{$00}{$00}{f5}"{$00}{$00}{$00}{f5}0{$00}{$00}{$00}{f5}@{$00}{$00}{$00}{f5}n{$00}{$00}{$00}{f5}^{$00}{$00}{$00}{f5}{$6c}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}ta{$61}{$00}{CTRL-A}{$00}{rvon}{$00}{$00}{$00}{$00}{$00}{f3}{$00}{$00}{$00}{$00}{f5}{$7e}{$00}{$00}{$00}{f3}{dish}{$00}{$00}{$00}{f3} {$00}{$00}{$00}{f3}8{$00}{$00}{$00}{f3}p{$00}{$00}{$00}{f3}{$6c}{$00}{$00}{$00}{f5}{CTRL-B}{$00}{$00}{$00}{f5}{rvon}{$00}{$00}{$00}{f5}{grn}{$00}{$00}{$00}{f5},{$00}{$00}{$00}{f5}:{$00}{$00}{$00}{f5}j{$00}{$00}{$00}{f5}x{$00}{$00}{$00}{f5}{$6c}{$00}{$00}{$00}{f5}{$74}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}te{$61}{$00}{CTRL-A}{$00}{rvon}{$00}{$00}{$00}{$00}{$00}{f1}{$60}{$00}{$00}{$00}{f5}{$76}{$00}{$00}{$00}{f1}{$60}{$00}{$00}{$00}{f3}{CTRL-P}{$00}{$00}{$00}{f3}({$00}{$00}{$00}{f3}@{$00}{$00}{$00}{f3}x{$00}{$00}{$00}{f3}{$70}{$00}{$00}{$00}{f5}{dish}{$00}{$00}{$00}{f5}{CTRL-V}{$00}{$00}{$00}{f5}"{$00}{$00}{$00}{f5}0{$00}{$00}{$00}{f5}@{$00}{$00}{$00}{f5}n{$00}{$00}{$00}{f5}^{$00}{$00}{$00}{f5}{$6c}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}ta{$61}{$00}{CTRL-A}{$00}{rvon}{$00}{$00}{$00}{$00}{$00}{f3}{$00}{$00}{$00}{$00}{f5}{$7e}{$00}{$00}{$00}{f3}{dish}{$00}{$00}{$00}{f3} {$00}{$00}{$00}{f3}8{$00}{$00}{$00}{f3}p{$00}{$00}{$00}{f3}{$6c}{$00}{$00}{$00}{f5}{CTRL-B}{$00}{$00}{$00}{f5}{rvon}{$00}{$00}{$00}{f5}{grn}{$00}{$00}{$00}{f5},{$00}{$00}{$00}{f5}:{$00}{$00}{$00}{f5}j{$00}{$00}{$00}{f5}x{$00}{$00}{$00}{f5}{$6c}{$00}{$00}{$00}{f5}{$74}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}a{$00}>{$00}{CTRL-A}{$00}{CTRL-K}{$00}{$00}{$00}{$00}{$00}{$80}i{CTRL-O}{$f9}{$71}{$82}i{CTRL-O}{$f9}{$71}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}r{$00}>{$00}{CTRL-A}{$00}{CTRL-K}{$00}{$00}{$00}{$00}{$00}{$84} {$00}{$00}{$00}{f1}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}2013014{CTRL-F}~013014{CTRL-F}~013014{CTRL-F}~14u{down}013014{CTRL-F}~4{$7f}{down}013014{CTRL-F}~013014{CTRL-F}~013014{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~13{CTRL-B}~013013{CTRL-F}~3{CTRL-A}~013013{CTRL-F}~013013{CTRL-F}~013013{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~12{CTRL-B}~013012{CTRL-F}~2{CTRL-A}~013012{CTRL-F}~013012{CTRL-F}~013012{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~013011{CTRL-F}~1{CTRL-A}~013011{CTRL-F}~0{$78}{down}013011{CTRL-F}~11{CTRL-B}~013011{CTRL-F}~30{CTRL-O}{down}013006{CTRL-F}~01{CTRL-A}{down}013006{CTRL-F}~013006{CBM-I}{down}06{CTRL-B}~ 106{CTRL-D}~0130{CTRL-D}~30{CTRL-B}~ 130{CTRL-D}~01{CTRL-B}~ 101{CTRL-D}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~00{CTRL-B}~013000{CTRL-F}~0{CTRL-A}~013000{CTRL-F}~013000{CTRL-F}~013000{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~59{CTRL-B}~012959{CTRL-F}~9{CTRL-A}~012959{CTRL-F}~012959{CTRL-F}~012959{CTRL-F}~012958{CTRL-F}~012958{CTRL-F}~012958{CTRL-F}~012958{CTRL-F}~012901, files scratched,01,00{$00}srachuhr/21.06
{$00}01, 01, files scratched,01,00{$00}prachuhr/20.06
{$00} 3{CTRL-B}~ 2{CTRL-B}~ 1{CTRL-B}~14{CTRL-B}~0134{CTRL-D}~34{CTRL-B}~01{CTRL-B}~01 34 14{CBM-+}{CTRL-P}013414{CTRL-F}~013414{CTRL-F}~013414{CTRL-F}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-C}#CG{CTRL-O}{grn}>{$00}{$f8}~{$e1}{$e0}{blu}{f5}{$f8}{blu}{CTRL-L}>{red}{$78}0{CBM-*}{blu}{$f8}{$7f}{CBM-B}{CTRL-O}{f5}>{CTRL-F}>>{$78}{$f0}{$f8}C{$e3}{$8f}{$83}<{blu}{$f0}{$f8}{$71}CC{$8f}{$82}{$7c}?{$f0}{$f9}{f5}{$e1}{$f0}C{SHIFT-*}{blu}{CTRL-O}{$f8}{$7e}{$63}{$e0}{$f0}GAO{CTRL-G}{$fe}?{$e3}{$f8}>{$00}{$f8}{CTRL-O}{$e1}~{f5}{$f8}{$7f}{CTRL-O}{swuc}{$7e}{swlc}{$f8}{$79}A{$e7}{blu}{CTRL-G}C{blu}{CTRL-B}{$7c}?{$e0}~{f5}A{$e1}{$8f}{$80}>{blu}{$f8}~{$e3}{$f0}{$7c}{$63}{$e0}{CTRL-G}{$83}~{red}{$f8}{$7c}>{$70}{$f8}{stop}A~{$fc}{$7f}~C{$ef}{blu}{$00}{$78}{$7b}{$e7}{CTRL-L}{$f8}{$f8}{$7c}{$e1}{$e0}{CTRL-O}{$8f}{$fc}{$f1}{$8f}{CTRL-O}{f5}{$fe}>{$00}{$f1}{$8f}{$fe}1{$f0}{$70}{$f3}{f5}{$80}?;~~{yel}{blu}{CTRL-O}{$f8}~{$80}{CBM-V}9{$f8}{CTRL-G}{$e1}C{yel}<{$e0}{CTRL-O}L{$7f}{$00}{$f1}{SHIFT-*}{$7f}G{$f8}{stop}{$f8}{blu}{$e0}{$7e}{CTRL-F}{blu}{$e3}{yel}!~{CTRL-G}{$fc}{blu}{f8}{CTRL-G}{$f8}G{CTRL-X}g{$fc}~{$e1}{$f8}0~{$71}F{CTRL-A}{$fe}?{$f8}{$f3}8{$ef}{$f8}G{CTRL-A}~~{$fc}{$f0}L{$7f}{$fc}{$e0}{$00}~~{$f8}{$e0}&7{$fe}{$e0}{$00}{CBM-*}~{$f8}{$7e}{stop}{CTRL-G}~{$f8}{$00}{blu}~{$fe}7{$00}{$83}~{$fc}{$00}{CTRL-G}~~?{$00}@~{$fe}{$00}{CTRL-G}~~{$8f}{SHIFT-*}{$e0}?~{$00}{esc}~~{$8f}{$80}{$00}{$7f}~{$00}{CTRL-O}~~{cyn}{$80}{$60}{$7f}~{$00}{CTRL-O}~~{cyn}{$80}{$00}{$7f}{$fe}{$00}{CTRL-K}~~{cyn}{SHIFT-*}{CTRL-B}~~{$00}{CTRL-G}~~{left}{f7}{$80}?~{$f0}{$00}{CTRL-O}~~{$f0}{CTRL-A}~~{$80}{$00}~~{$fb}{$00}{CTRL-O}~{$fc}{$00}{stop}~~{$fc}{$00}~~{SHIFT-*}{$00}?~{$fb}{$80}{CTRL-O}~{$fc}{$00}{CTRL-A}~~{$f8}{$00}~~{SHIFT-*}{$00}{$7f}~{$fe}{$00}{blu}~{$f0}{$00}{CTRL-G}~{$fe}{$e0}{CTRL-G}~{$fc}{$00}{$00}~~{CBM-U}{$00}~~{$80}{$00}?~{$fe}{$00}?~{$f4}{$00}{blu}~~{SHIFT-*}{CTRL-G}~{$fc}{$00}{$00}~~{$f8}{CTRL-A}~{$fe}{$00}{$00}~~{$f8}{$00}{$7f}~{SHIFT-*}{$00}{$7f}~{$f3}{$00}{blu}~{$f0}{$00}{CTRL-O}~~{$00}{CTRL-G}~{$fc}{$00}{CTRL-A}~~{$f8}{CTRL-A}~~{$00}{$00}~~{$f0}{$00}{$7f}~{SHIFT-*}{$00}{$7f}~{$fc}{$00}{blu}~{$f2}{$00}{CTRL-A}~~{SHIFT-*}{CTRL-O}~{$f9}{$00}{stop}~~{SHIFT-*}{stop}~{$fe}{SHIFT-*}{stop}~~{$e0}{CTRL-A}~~{$00}{CTRL-A}~~{$f8}{$00}{$7f}~H{$00}{$7f}~~{$00}{blu}~{$e6}{$00};~~{$00}{CTRL-O}~{$fd}{$80}{CTRL-O}~~{SHIFT-*}{stop}~{$fe}{$60}{CTRL-A}{cyn}~{$f4}{CTRL-A}~~{gry2}{$00}{$ef}~{$fc}{$00}?~{$e6}{$00}{$7b}~~{$80}{blu}~{$f9}{$00}{blu}~~{$e0}{CTRL-O}~{$fc}{SHIFT-*}{CTRL-O}{$fc}~{$f0}{stop}~{$fe}{$60}{stop}~~{$f0}{CTRL-A}~{$fe} {stop}~~{$f0}{stop}~{$fe} {CTRL-A}{$fe}~{$f0}{CTRL-A}~{$fe} {stop}~~{$e0}{CTRL-A}~~0{stop}~~{$f8}{CTRL-A}~{$fe} {stop}~~{$f8}{CTRL-A}~~{SHIFT-*}{stop}~~{$f0}{$00}~~{$60}{stop}~~{$f8}{$00}~~{$00}{stop}~~~{$00}{$7f}~~{$80}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~{CBM-V}{CBM-Y}~{$fd}u{CBM-Q}{SHIFT-POUND}{CBM-N}{CBM-B}{CBM-N}{$7b}{$75}U]{$6d}{$ea}{$fe}{$ee}V{$6e}{$fe}{$77}{CBM-J}{$67}{$6a}z{$e6}{CBM-B}{CBM-Q}{CBM-Z}{CBM-Q}[vU{CBM-Q}~~{$7a}u{CBM-N}{$ea}{CBM-J}]u{CBM-Y}{CBM-N}{CBM-N}{CBM-Q}w{$ee}{CBM-Z}{brn}{CBM-Z}{$ed}r{CBM-Q}{$f5}{CBM-R}{$de}{$f5}{$6b}{CBM-B}{$ea}{CBM-N}{brn}{$ea}{CBM-B}U{CBM-J}{$6a}{CBM-N}v{$ea}uW{CBM-N}{CBM-Z}{$7b}{CBM-I}{$65}u5{$73}{SHIFT-@}{$de}{$fd}{CBM-S}{CBM-P}{$de}{CBM-Q}{SHIFT-+}Uv{CBM-N}{$8f}={$f7}{CBM-N}~{SHIFT--}{$f2}{CBM-J}^{CBM-Z}w_Q{$fd}{$77}{$75}{$eb}w{$f9}{$fb}{gry3}W{$7d}{CBM--}{$7e}~{$6a}{CBM-W}rW{CBM-Q}F*{$ef}{CBM-Z}O_{$6f}{$fa}{$f2}{$f3}{left}{$75}{swlc}{$75}{$fd}{$7d}~{CBM-*}{CBM-*}{$7e}{pur}{$7f}{$f7}Z{$e7}]{CBM-N}u{$7e}{$ea}u{$8f}{CBM-N}{CBM-P}{CBM-X}{$f7}{$ef}{cyn}{$6f}{CBM-*}~{$fd}{$fb}{$eb}O{CBM-N}{$fd}_{$fd}{$fb}{CBM-*}~{$fe}{CBM-V}{$75}{$7b}{$7f}u{$f4}{$ef}~~~{$ed}{$fb}~{$7f}{CBM-*}{$8f}{$ef}~{$fe}{$7d}~{CBM-P}{CBM-V}{CBM-P}{$f9}~{$fd}{$ef}{CBM-B}~~~~{$f7}~{$7f}~~{$e3}{CBM-N}{CBM-P}~~~~~{$eb}{$eb}~{$7f}{$f7}{$fe}~{$fd}{$7e}~~~?~{$fb}~W{CBM-*}~~~~~{$fb}~~~~~~~~~~~~~~~{$f3}{CBM-*}~~~~~~~~~~~~~~~~{$ef}~~~~~{$f1}~~~~~~~~~~~~~~~~{$ef}~{CBM-B}~~{$fb}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fd}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$ef}~~~~{$fd}{$eb}{CBM-Y}{$fd}w{$fa}{$f5}z{CBM-P}{CBM-J}u^{CBM-N}{CBM-N}{CBM-Q}{CBM-J}uuj{CBM-N}{CBM-N}{CBM-N}{CBM-Q}{CBM-G}{SHIFT--}{CBM-*}{CBM-Q}{CBM-J}uuw{$76}{CBM-*}{CBM-B}Z{CBM-Q}{$e9}uu{$ef}{CBM-I}{CBM-Q}{CBM-Y}{$6b}{SHIFT-+}{CBM-S}{CBM-Q}{CBM-S}z{$7d}u[{SHIFT-@}{CBM-V}{CBM-Q}{$fa}6Uu{CBM-N}{$6a}{inst}{CBM-Q}{$f2}{CBM-Q}Z{CBM-X}z{CBM-X}^{CBM-O}{CBM-Z}{CBM-N}{CBM-N}{CBM-Z}{brn}n{CBM-Q}wz{$f5}{$6a}{$ea}{$ed}wuw_z{CBM-S}{$eb}{CBM-O}SW{brn}v{CBM-N}{$f5}9{$f5}{$eb}T{CBM-Q}{$f7}{CBM-B}\{$6b}{$79}{$65}{$fd}{$6b}{$6f}O/{$7d}{$7f}{$ed}{$7f}{$fd}~{$fd}{$ef}{CBM-Y}{$fe}~~~~~~~~{$ef}~~~~~~~~~~?~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$83}~~~~~~~~{$f0}~~~~~~~~~{CTRL-O}~~~~~~~~{$f0}~~~~~~~~~{$83}~~~~~~~~~{cyn}~~~~~~~~{$f0}{CTRL-O}~~~~~~~~{SHIFT-*}?~{$f1}~~~~~~{CTRL-A}~~{$00}{$7f}~~~~{$f0}{CTRL-O}~{$e0}{stop}{$fe}{stop}~~~{$80}~{$fc}{$00}?{$f0}{CTRL-O}~~{$f0}{blu}~{$00}{CTRL-G}{$fe}{$00}~~{blk}{stop}~{SHIFT-*}{$00}~{SHIFT-*}{blu}~{SHIFT-*}{$00}~{$e0}{$00}?{$f0}{CTRL-O}~{$f0}{$00}?{$fc}{$00}{CTRL-G}{$fc}{CTRL-A}~~{$00}{CTRL-G}~{$00}{CTRL-A}~{$80}{$7f}~{$f8}{CTRL-A}~{SHIFT-*}{$00}{$7f}{$e0}{blu}~{$f8}{$00}?{$f8}{$00}{blu}{$fc}{stop}~~{SHIFT-*}{CTRL-O}{$fe}{$00}{stop}~{$80}~A{$f0}{$00}~{$e0}{$00}{$7f}{$f0}{CTRL-O}~~{$00}{blu}{$fc}{$00}{CTRL-O}{$fe}{CTRL-A}~~{$f8}{stop}~{$80}{$00}~{SHIFT-*}?{$f0}{SHIFT-*}{$00}{$7f}{$f0}{$00}?{$f0}{CTRL-G}~{$fc}{$00}{blu}{$fc}{$00}{CTRL-G}{$fe}{stop}~{$fe}{$00}{stop}~{$80}{$00}~{SHIFT-*}{$7f}~{$f8}{$00}~{$e0}{$00}?{$f0}{CTRL-O}~{$f4}{$00}{blu}{$fc}{$00}{CTRL-O}{$fc}{stop}~~{$80}{stop}~{$00}{CTRL-A}~{$80}{$7f}{$f7}{SHIFT-*}{$00}~{$e0}{$00}{$7f}{$e0}{blu}~{$e0}{CTRL-P}{blu}{$fc}{$00}{CTRL-O}{$fc}{stop}~{$fc}{CTRL-B}{stop}~{$80}{CTRL-A}~{$80}~{$fc}{CTRL-G}{SHIFT-*}{$7f}{$e0}{$00}?{$e0}{blu}~{$e0}{CTRL-P}{blu}{$fc}{$00}{CTRL-O}{$fc}{CTRL-G}~{$f0}{$00}{CTRL-G}{$fe}{$00}{CTRL-G}{$fe}{CTRL-A}~{$fe}{$80}{stop}~{$00}{CTRL-A}~{$00}~{$fe}{$00}{CTRL-A}~{$80}{$00}~{$80}~~{$00}{CTRL-A}~{SHIFT-*}{$00}~{$80}{$7f}~{$80}{CTRL-A}~{SHIFT-*}{$00}~{$80}{$7f}~{$80}{CTRL-A}~{$80}{$00}~{$80}~{$fc}{$00}{stop}~{$00}{CTRL-A}~{$00}~~{$00}{CTRL-O}{$fe}{$00}{CTRL-G}{$fe}{CTRL-A}~{$fe}{$00}{blu}{$fc}{$00}{CTRL-O}{$fc}{CTRL-G}~{$fc}{$00}{$7f}{$f8}{$00}?{$f0}{blu}~{$f0}{CTRL-A}~{SHIFT-*}{$00}~{SHIFT-*}{$7f}~{SHIFT-*}{CTRL-O}~{$00}{stop}{$fe}{stop}~~{$00}{$7f}{$f0}{$00}?{$e0}{blu}{$f0}{$70}{stop}~{$00}{CTRL-A}~{CTRL-A}~{f5}{$80}?{$f0}{$00}{blu}{$f0}{blu}{$f8}{$f8}{stop}~{$00}{CTRL-A}~{CTRL-A}~{f5}{$80}?{$f8}{$00}{blu}{$f0}{blu}{$f8}0{stop}~{$00}{CTRL-A}~{CTRL-A}~C{$80}?{$f0}{$00}{blu}{$f0}{blu}{$f8}8{stop}~{$00}{CTRL-A}{$fe}{stop}{$fe}{CTRL-A}{$e0}{$7f}{$e0}8{blu}{SHIFT-*}{$7f}{SHIFT-*}{CTRL-D}{stop}{$fe}{CTRL-G}{$83}{$fc}{CTRL-O}{$fc}{CTRL-G}{SHIFT-*}{$7f}{$e0} {$7f}{orng}~{$80}{$fc}{CTRL-O}{$fc}{blu}{CTRL-G}{$f8}{blu}{$f0}?{$80}~~{$e1}~{CTRL-G}{$fc}{CTRL-G}{SHIFT-*}{blu}~~~~~{orng}{$fc}{stop}~~~~~{$f7}~{$fd}~~~~~{$f8}~~~~~~~~~~{$fe}~~~~{$fe}~{$e3}~~~~~{$fe}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~6{$fa}{$79}C{CBM-*}{$84}<{$fc}{SHIFT-POUND}{$fd}{$ef}?{$f8}{$71}{$e3}{$83}{$8f}G{blu}?{$8f}>{$f8}{$73}~~{$7f}{$7c}{$f8}{$ef}~~{$e3}{$fb}~{$fe}~~{$8f}{blu}>{$f8}{$f1}~~{$fb}{$f3}{$f3}{$f3}{$f9}{$f1}{$f1}{$e3}{$f0}{$f3}{$f1}{$e1}~GO{cyn}{blu}{CTRL-O}~~~~{$f9}{$fb}{$e7}{$ef}{CBM-*}~{cyn}~~~{$fb}~~~~~~~~~~~~~{$fe}~{$fe}~{$7e}>{CTRL-O}~~~~~{$f7}~~~~~~~~~~A~{$e0}~{CBM-*}{$e3}{$fb}~{$e0}~{$f8}?{swlc}?{blu}{CTRL-O}{$ef}~{orng}{$f8}{$00}{$fc}{blu}{$fc}{$7e}{CTRL-O}~{$e0}{$7e}{dish}?{CTRL-G}G~~~~{$83}{$f8}{$00}{$fc}>{$7f}{$fe}?~{$f8}{blu}{SHIFT-*}{CTRL-O}{SHIFT-*}~{$8f}{$83}{$e0}>{$00}{$fe}{CTRL-L}{$7e}{CTRL-O}{cyn}{$f0}~{$8f}{$ee}{CTRL-O}A{$8f}{orng}~{$fc}?A{$f0}{$83}{$f0}{$63}{$f0}{$79}{$f3}{$e1}{$f0}{$8f}{SHIFT-*}{$7f}{$00}{$7e}{CTRL-O}{$7f}{$f0}{$fc}{blu}{$e7}{CTRL-O}A{$8f}{$83}O{$fe}{blu}{f3}{$fe}{stop}{$f0}{stop}{$e0}{$79}CA{$e3}{$8f}{$80}{$7e}{CTRL-L}{$7c}{blu}{$78}{$fc}{blu}{$f1}{$f0}{CTRL-O}{SHIFT-*}{$8f}A~{$8f}{f5}{$fe}?{$00}{$fc}{$00}{$f8}?{$f1}{$f0}{$f9}C{$e0}{CTRL-O}{SHIFT-*}{CTRL-O}{$83}~{blu}{$8f}{$fc}?{$00}{$7e}{$00}{$f8}?{$f1}{$f0}~C{$f0}{CTRL-G}{$e1}{CTRL-O}{$83}{grn}{grn}{grn}{$78}{$7f}{$a0}{$7e} {$f8}!{$e1}{$e1}{$e7}{f5}{$f8}{CTRL-G}{$e3}{CTRL-O}{f3}{grn}{grn}<{$f8}?{$80}{$7e}{$70}{$f8}c{$e1}{$e7}{$8f}{CTRL-F}{$7c}{stop}{$f3}{CTRL-O}{$84}>{CTRL-O}{$f0}{$7f}{stop}{$e0}{blu}{CBM-U}{$7e}{$60}{$f0}?{stop}{$f8}>{SHIFT-*}~{$83}{$fe}{CTRL-O}{$71}{$f0}?C{$f8}{CTRL-G}{$fe}{blu}{$f0}{$73}~{stop}{$fe}{blu}{$e0}?{$e0}O{$00}{CTRL-O}{$f0}{$7b}C{$fc}{CTRL-G}{$fe}{down}{$f3}{CTRL-D}~{f5}{$fc}#{f7}{$7f}{SHIFT-*}{blu}{$f0}{CTRL-O}{$f8}{$67}{f8}{$70}{f5}{$fc}{$61}{$de}{$00}~{$80}~~{$80}{$7f}L{stop}{$fe}{home}~{CTRL-A}~{$f0}{CTRL-O}~{$80}?{$e0}?{$f8}{stop}~{$00}~{$f0}{CTRL-G}{$fe}{$00}~{SHIFT-*}?{$e0}{stop}~{$00}{blu}{$f8}{$8f}~{CTRL-A}~{$00}{$7f}{$f8}{CTRL-A}~{$e0}?{$fc}{CTRL-G}{$f0}{$8f}~{$80}{CTRL-O}{$fe}{CTRL-G}~{CBM-O}{$fe}3~{$e0}{stop}~{$e0}?{$fe}{$6f}{CTRL-L}~{$f8}{$00}{$7f}{$f8}{CTRL-O}~{CBM-O}{CTRL-D}{$7f}{$fc}{$00}?{$fe}{stop}~{pur}B?{$fe}{$00}?~{CTRL-A}~~{SHIFT-*}?{$fe}{$00}{blu}{$fe}{CTRL-A}~{$fe}{$00}{$7f}{$fe}{$00}{CTRL-O}~{$00}~{$fe}{$00}~{$fc}{$00}?{$fc}{stop}~{$f8}{stop}~{$f0}{$00}~{$f8}{blu}~{SHIFT-*}{blu}~{$80}{CTRL-G}~{$e0}{$7f}{$fe}{CTRL-A}~{$fe}{$00}{$7f}~{$00}{$7f}{$e0}{CTRL-O}~{SHIFT-*}{CTRL-G}~{$7f}{$fe}{$fc}{CTRL-G}~{$f8}{$00}~~~{$fe}{$00}~{$fe}{$00}?~~{$f7}@?~{SHIFT-*}{CTRL-O}~~{$fc}{$00}{CTRL-O}~{$f0}{stop}~~~{$fc}{stop}~{$f8}{CTRL-A}~~~{cyn}{CTRL-A}~~{$00}{CBM-B}~~~{$80}~~{$80}{CTRL-O}~~E{$80}{$7f}~{SHIFT-*}_~~L{SHIFT-*}{$7f}~{$ee}{$6e}~~~{$f0}?~{$f4}{blu}~~~{$e0}{CTRL-O}~~{$7f}~~~{$fe}{stop}~~?~~~~L~~{CBM-*}~~{CBM-B}~{$f9}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f3}~~~~~~~~~~~~~~~{$f1}O~~~~~{$ef}{CBM-B}~~~~~~~~~~~~~~~{$8f}~~~{$e7}{CBM-U}~~~~~{$7f}{$7f}~{CBM-*}{CBM-B}~~~~{$7f}{$7c}{$f3}L{$fb}O~~{$fe}~{$fc}~{cyn}~{$fe}~~7~{$ef}~~{$fe}~{$ef}{CBM-C}{$ef}{$7d}{$e7}{$fd}~~~{$f1}~{CBM-B}{$e3}={$7f}~{$e7}{$f8}~{CBM-X}O{$fe}~G{$fb}{cyn}~~{$7f}{$f3}{grn}{$f7}{$fe}{$79}{CBM-F}~{$de}~{CBM-*}{$7d}~~{$7e}~~{$e7}~{$f3}F=~~{$fe}~{CBM-*}{$f3}O<{$e7}{yel}{$e7}{sret}{$e7}{CBM-O}~{cyn}~~~{$e2}N{$63}{$8f}{$7f}{$ef}~{CBM-C}~~{CTRL-G}{$fb}{$e3}{red}{$63}~{$fe}~{$7d}{$ef}{$e7}{CTRL-O}{$f1}O{CTRL-X}~~{$f8}{$fb}{$fd}G>{$71}{CBM--}{$e7}{$ef}{$fb}{$8f}<~{$ef}~{$f7}{CBM-V}{$fb}{cyn}={$f8}9{$ef}{$73}{swuc}{$73}{CBM-*}1~{CBM-E}O{$fb}N{$7f}{$ef}{$67}{$fe}G{$fc}L{$78}O{$fc}N{red}~L~~{$fc}~~{$fe}{$77}{pur}{$f3}{pur}{$e7}9O{$79}~{$fb}={CBM-B}9{$f6}7{$fe}{$ee}{$7f}{$ee}{$7f}3~{$7b}{gry2}O{SHIFT--}~~~{CBM-B}{$fe}{$67}{CBM-*}~{$67}~~~~~~~~{lgrn}~~{$f0}{$00}~{$fc}c{$7f}~{$00}{CTRL-O}~{$f0}{$00}{$e0}?~{$e0}{CTRL-A}?~{SHIFT-*}{CTRL-G}{$80}{blu}~{$f0}{$00}~~{$e0}{CTRL-G}{f7}{blu}~{$f0}{$00}{$67}~{$f8}{CTRL-A}{SHIFT-*}?~{$fc}{$00}{blu}~{$fc}{$00}p{CTRL-K}~~{$00}'~~{$00}<{$00}{$7f}~{SHIFT-*}{CTRL-D}~~{$e0}{stop}{CTRL-P}{$7f}~{$f8}{$00}'~{$f8}{CTRL-A}{$f2}{CTRL-K}~~{$00}{$00}~~{$e0}<{$82}~~{$e0}{$00}{$7f}~{$f0}{CTRL-F}{$00}~~{$fc}{$00}{blu}~{$f0}{CTRL-A}{f7}{CTRL-G}~{$fc}{$00}{CTRL-O}~{$f8}{$00}{$f0}{CTRL-A}~~{$00}{CTRL-G}~~{SHIFT-*}{$fc}{CTRL-A}~~{$80}{$00}~~{$80}{blu} ~~{$f0}{$00}{$7f}~{SHIFT-*}{CTRL-G}H{CTRL-O}~{$fc}{$00}?~{SHIFT-*}{CTRL-O}{$e2}{CTRL-A}~{$fc}{$00}{blu}~{SHIFT-*}{CTRL-O}{$f1}{stop}~{$f8}{$00}{$7f}~{$80}o{$f8}{$83}~{$f8}{$00}?{$fc}{$00}{$7f}{$f8}{stop}~{$f8}{CTRL-A}~{$fc}{$00}~{$e0}{CTRL-G}~{SHIFT-*}{CTRL-A}~{SHIFT-*}{rght}{$fe}{$00}{CTRL-O}~{$80}{blu}{$fe}{CTRL-A}~{SHIFT-*}{CTRL-A}{CBM-*}{$f8}{$00}?{$e0}{CTRL-O}~{$00}{stop}~{$f0}{CTRL-A}{$7f}{$80}?{SHIFT-*}{CTRL-L}{CTRL-O}~{SHIFT-*}{blu}{$fe}{CTRL-G}{$fe} {$60}{$77}{$f7}{$00}?{$f0}{blu}{$f0}{CTRL-G}{$e1}~{pur}{$00}~A~{f3}>{blu}{$fc}{$e0}{$e7}F{blu}{$f8}{$73}{$e0}~C{CTRL-O}{red}{$78}~G{$f8}{CTRL-O}{$fc}<{$e1}~{f5}{$fc}{$7f}{$00}~CF{CTRL-O}{$fe}{$7f}{$8f}{$e0}?{$f8}{$78}{CTRL-A}{$f8}~{$e1}G{CTRL-G}~{CTRL-O}{$00}>{grn}{$7c}{$70} ~C{$e0}GCO{CTRL-O}{$00}{$7f}{$f8}{$f8}{$79}{$f0}{$e3}C{SHIFT-*}{blu}{$fe}>{swlc}{$7c}{$7d}{$f1}{$e0}{CTRL-G}{$ef}{blu}{CTRL-G}{CBM-B}{blu}{$f8}{$7c}{stop}~{f5}AOO{$fe}?{CTRL-A}~{$f3}{$f0}{$fb}{$e1}~{CTRL-A}{$80}{$7f}{$fd}{$f8}?{$f8}~{CBM-B}{$f0}?{$fc}{$7e}{blu}{$fe}{$7f}~{$fe}{CTRL-O}~{blu}{CTRL-G}{CBM-B}{blu}{$ef}~{CTRL-G}~~{$83}O{$8f}{$e3}~{$83}~~{$e1}~~~~{$e0}~{$fb}{$f0}{$f7}~~~{$f8}{$7f}~{$fc}{$7f}~~~~{blu}~~~~~{blu}{$ef}C~~~~~G~~?~~~?{$f1}{$fc}{$7f}{$f1}~~~~{$fc}{$7f}~~~~~~~{blu}~~{blu}{$7f}~~~{$f3}~~~~~~~~~~~~~~~~~~{$fe}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>~~~~~~{$fd}{$e3}{$e7}~{CBM-B}{$fd}~~~~~~~{CTRL-O}~~~{$fc}9~~~~O~~~~~~{$fe}{$fc}?~~~~{$f9}G~G{CBM-*}~~~~~{$f9}~~{$f7}{CBM-B}~~~~~~~~{$e7}~~~~~{$fe}{$f8}{$e3}{$f3}~{$8f}{$8f}{$f7}~~{$7f}{$f7}G{cyn}{grn}{$7f}~{$7f}{CBM-B}~{$fb}~{$f0}{$f9}~{$ef}G~{CTRL-W}{$e7}?{$7f}~~?{$fd}{$fc}~~~{$e0}{blu}{$f9}~{$8f}~F?~~{$7f}{$78}{$78}{$70}{$fb}~{cyn}{$00}~~O~~{$e7}{$fb}F~{$7f}{$fd}~{$fd}{$fd}Xk~~{$f8}{$fe}8{$7f}{$e1}~~~{cyn}{$fb}{$fe}1{$e7}A~{$e3}{blu}~~~~{$fe}{blu}~~{swlc}~{$fb}~~A{CTRL-O}{$7f}~{$fb}{$e3}~~~~~~{$f3}~{cyn}{CBM-V}~'{$f3}{$7f}~~{$e7}~~~~~~~~~~~~~~{$e7}{$f7}~~~~~~~~~~{$7f}~~~~{$f7}{$fc}{CTRL-O}~{$00}?{$f8}{CTRL-O}~{$80}A~{$e0}{stop}~{orng}~{$e0}{$7f}{orng}~{SHIFT-*}{stop}~{orng}~{SHIFT-*}{blu}{orng}~{SHIFT-*}{stop}~{stop}~{f3}{CTRL-O}{$80}~{$f0}{CTRL-A}~{$80}~{$e1}{f5}{SHIFT-*}?{$f8}{$00}~{SHIFT-*}{$7f}{$e0}{stop}{$f0}{blu}{$fe}{$00}{$7f}{$e0}{blu}{$f8}{CTRL-A}{$fc}{stop}~{$80}{blu}{$f8}{CTRL-G}{$fe}{$00}?{$00}~{$e0}{stop}~{$00}~{SHIFT-*}{CTRL-O}{SHIFT-*}{blu}{$fc}{$00}{$7f}{$e0}{CTRL-O}{$f8}{CTRL-A}{$fe}{stop}~{$80}{CTRL-O}{$fe}{$00}~{$80}{$7f}{$80}~{$f0}{stop}~{$00}?{$f8}{CTRL-G}{$e0}?{$fe}{$00}{$7f}{$f0}{CTRL-G}~{$00}{$78}{CTRL-O}{$fe}{$00}{$7f}{$e1}{CBM-B}{$f8}~{$f0}{CTRL-G}~{$f0}{$00}{$73}~~~{$fc}{stop}~{$f8}{$00}?~~~{$fc}{$00}~{$fe}{$00}{CTRL-A}~~{$fd}~{$e0}{blu}~{$f8}{$00}{$7f}~~~{$f8}{$00}~~{$80}{$00}~~~{SHIFT-*}{CTRL-G}~{$fe}{$00}{CTRL-A}~~~{$00}?~{$f8}{$00}{CTRL-A}~~{$e0}{stop}~~{SHIFT-*}{CTRL-A}~~~{$00}{blu}~{$fc}{$00}{blu}~~{$e0}{stop}~~{$00}{$00}{$7f}~{$f8}{CTRL-A}~~{$e0}{$00}{CTRL-O}~{$fc}{$00}{$7f}~{$f0}{$00}{$7f}~~{$00}?~{$f8}{$00}?~~{$00}?~{$fc}{$00}{blu}~~{$00}?~{$fe}{$00}{blu}~{$fe}{$00}?~{$fe}{$00}~~~{$00}?~{$f8}{$00}{blu}~{$fc}{$00}~~{$f8}{$00}?~{$f8}{CTRL-A}~~{$e0}{stop}~~{$e0}{stop}~~{SHIFT-*}{CTRL-Y}~~{$80}{CTRL-O}~{$fc}{$00}?~~{$00}~~~{stop}~~{$fe}{$00}{$7f}~{$fc}{CTRL-O}{$f3}~{$fc}{CTRL-G}~~{$fe}~G~{$fc}{stop}~~{$fc}{$7f}~~~{$77}~~~~{blu}~~~~~~~{CBM-B}~~~~~~~~~~~~~~~~{$e7}{swuc}{$7e}?{$7f}{CBM--}~~{$fe}~~~{$ef}{$fb}~N{$7f}{$7b}{cyn}{CBM-*}{$ee}{$7e}{$de}{$7f}G{$7c}{$7f}~F{CTRL-O}{$7f}{CBM-U}{CBM-*}~{$f0}w~9{$ef}{yel}~{$f3}{$f7}{$fb}{CBM-*}~{f8}~{$f9}P{$7b}~A?{blu}{$e3}{$ef}{$de}{$78}{$fc}~{$e7}{$ef}{$ef}N{$7b}{$f3}{CTRL-G}~{CTRL-O}~{rvof}{grn}{$7f}~G~{CBM-*}{$fc}{$e3}~~~{$80}~{$f8}{$77}{SHIFT-*}>~{$fc}{$ef}{$fe}{grn}<{$fc}~O<{$7f}G~{$f7}N?~{$fc}{$e8}{$e0}{CTRL-F}{$fe}{$7e}<{$fe}{$7b}~{CBM-*}={CBM-*}~{$f3}~{$fe}~~{$f9}~{$ef}L~{cyn}~{$8f}~~{CBM-B}{$fb}{cyn}5~{CBM-P}~~~{CBM-*}{$e1}{$fc}?~{$e7}~{red}{ensh}?{$f0}{$f1}~{$80}~{$f7}{$f8}{$7f}{$f3}{$8f}~{cyn}{home}{$de}{$63}~;~~~~{$fe}{$7f}{$e7}{$fb}{$fe}3~~~O{CBM-C}~G~~~{$f9}{left}?~{$fe}~{CBM-*}~{$e3}~{$f1}~{CBM-*}~~~{$f9}~~~{$f7}{CBM-C}{$7f}~~~{$e7}{CTRL-O}~~~{$f7}~{$fd}~{$f8}~{blu}~{$7f}~~~{$fb}~~~~~~~~~~~~~{cyn}{$fe}~~{$f3}~~{f8}{$7e}{$e7}~~{ensh}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fe}~~~~~~~~~~{$ef}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-V}~~~~~~~~~~~{$f7}~~~~~{$7b}{$f7}~{CBM-B}{$7e}{$f9}{$eb}~{$6f}{CBM-B}~~{$fb}jRV{gry1}{CBM-J}{$ef}{$fb}~{$ef}{$7f}~~{$7b}{$f6}{CBM-Y}{$fd}{CBM-P}~{CBM-*}{$7f}{$7f}{$7f}{CBM-C}~{CBM-X}~{$7f}{SHIFT-+}s~{$ef}~{CBM-Y}{$fe}{$ee}~~{$6f}M{gry3}{CBM-R}{$77}{CBM-*}YZVU{$6f}{CBM-L}{$fe}{CBM-+}{CBM-*}{$de}w{$fe}NZvW{$69}{$ee}{$6d}{SHIFT-+}{$6d}{CBM-X}{CBM-Z}{left}{$fb}{$ea}{$6f}{$65}{CBM-Z}{$ef}{SHIFT-+}{$7c}K7{$6a}{$69}{CBM-Z}k3{$7b}?r{$6d}{CBM-B}6{$fa}{$73}wUO{$6b}{$6d}{$fc}M{CBM-Y}{$fa}{$ed}~{$fe}R[{$6d}{CBM-Q}{CBM-Z}{CBM-Z}{CBM-Q}*{$6f}{$6d}{$6d}{$ec}{$e4}Rn{$6e}{$76}{CBM-J}{CBM-C}{CBM-D}{SHIFT--}{SHIFT-POUND}{CBM-J}{CBM-L}{rvof}{$6a}{$76}{$64}{CBM--}{$ec}{$64}MU{CBM-Q}%{CBM-Q}y{left}{CBM-J}VS{$69}{CBM-Z}{CBM-G}{SHIFT--}{CBM-X}{CBM-I}{CBM-Q}w{$de}{CBM-L}{$6d}{SHIFT--}{$ed}{$fe}lYWY{$f7}{SHIFT-POUND}{$fb}{CBM-J}{cyn}{$ea}{SHIFT--}{SHIFT-@}u{CBM-+}u{$6a}{CBM-J}{$6a}{CBM-G}{lblu}{CBM-Q}w{$fe}{SHIFT-POUND}{$f5}{$7f}{$7f}UuU{$ed}{$f7}_~{$fe}{CBM-N}U{$fa}{CBM-X}~{$f5}{CBM-Q}~~{$fe}{$ef}~~~~~~{$fc}{$00}~~{$fe}?~{SHIFT-*}{CTRL-O}~{$00}{CTRL-G}~{SHIFT-*}{CTRL-O}~{$80}~{$fe}{$00}{$7f}{$f8}{CTRL-A}~{$e0}{SHIFT-*}~{$fe}{$00}{$7f}{$e0}{CTRL-G}~{$00}{$f0}{$63}~{$00}?{$f0}{CTRL-G}~{$00}~{$00}~{$e0}{CTRL-G}{$fc}{CTRL-A}~{$80}?{$e0}{CTRL-O}{$fe}{$00}~{$80}?{$e0}{blu}{$fc}{CTRL-A}~{$e0}{CTRL-O}{$f8}{stop}{$fe}{CTRL-A}~{$e0}{CTRL-O}~{$00}{$7f}{SHIFT-*}{blu}{$e2}{CTRL-O}~{$00}{$7f}{$fc}{CTRL-A}~{CTRL-A}{CBM-B}{$e1}{blu}{$fb}{$00}~{$f0}{CTRL-G}{$fc}{$00}~{$80}~{$f8}{stop}~{$80}{blu}{$f8}{CTRL-G}{$fc}{CTRL-G}?{$e0}{blu}{$fe}{$00}~{SHIFT-*}?{$f8}3{$fe}{stop}~{$e0}{CTRL-O}{$fe}{stop}{$fe}{$00}?{$80}{blu}{$f8}{$00}~{$e0}?{$fc}{stop}{blk}{$8f}~{$00}?{$fc}{CTRL-G}{$f9}{f8}{$e1}?{$fe}{$00}{blu}{$fe}{stop}~{$f6}{$00}~{$fc}{$00}{$7f}{$f8}{blu}~{$f8}{stop}~{$fc}{stop}~{$f8}{$00}~{$fc}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~>{blu}{blu}{blu}~{$7f}~~~~{$f0}{$e1}~{$f3}~~{$fc}{$fc}{$7f}~O>{CBM-M}{$7c}{$fc}{$f7}{$77}{CBM-Q}G{swuc}8{$ea}{CBM-W}{brn}J{gry3}{$78}{$74}{CBM-Z}{$de}N^U{$ea}{$f6}{$66}{$f6}{$ed}*w{CBM-Y}{$6b}s{CBM-Q}8{$7a}{brn}.d{CBM-Z}{$6a}U{CBM-Z}{brn}{CBM-J}{$7b}^{$f5}{CBM-@}{CBM-G}{$6a}jzPUR{brn}{CBM-W}{CBM-N}{home}{SHIFT-@}U{$ec}T{CBM-G}{CBM-G}{CBM-G}-{$6a}vu{CBM-G}{CBM-Q}zv{CBM-J}{CBM-G}+r{brn}{CBM-M}#:rVT{SHIFT-POUND}{gry3}:ru{CBM-G}{CBM-Q}v{CBM-Z}*S{CBM-Q}{$6a}{$de}{CBM-Q}zu{CBM-Z}j{$7e}{brn}{CBM-B}{sret}{$73}u{CBM-O}{CBM-Q}u{CBM-F}{CBM-J}{CBM-N}s{$6a}&{$74}{$76}{$6d}{CBM-Q}{CBM-Z}{clr}-{$72}{CBM-J}{CTRL-W}{gry3}{CBM-O}{SHIFT-POUND}{$69}{$65}{CBM-POUND}V{CBM-Z}{CBM-D}{CBM-X}{$6a}JW"Mj{SHIFT-@}u{CBM-I}{CBM-@}m{SHIFT-@})]{CBM-R}{SHIFT-POUND}wz{SHIFT--}{$fd}{CBM-B}k{CBM-W}7iuZ.uRT{CBM-Z}{SHIFT-@}{CTRL-V}{CBM-P}W{$62}{$f6}{sret}t{SHIFT-POUND}{CBM-Z}vV{CBM-Q}k{CBM-L}w{CBM-N}u{CBM-G}{CBM-Q}{$75}{CBM-J}{CBM-R}{CBM-N}{CBM-N}tw[{$6d}{CBM-S}{CBM-V}{SHIFT-+}{$6f}-U{SHIFT-+}Vn{$6d}Z{CBM-@}{CBM-N}{$f5}{sret}{CBM-Q}wUu{CBM-X}{$7d}{$fb}n{brn}{CBM-H}u{lred}{CBM-L}{CBM-S}{lblu}{CBM-J}Oz{CBM-B}{yel}U{CBM-N}U{CBM-Q}t{CBM-J}{$6a}{CBM-+}v{CBM-Y}]{CBM-G}{$75}{SHIFT-@}{CBM-*}{CBM-N}{CBM-Q}{$75}v{CBM-X}{SHIFT-+}~^{$75}{$ed}{CBM-F}g{$fe}{CBM-P}{$eb}u{$fe}{CBM-P}^{CBM-B}{$77}w{CBM-P}{CBM-*}{$ed}{$f3}n{CBM-V}{$de}{CBM-S}{$f7}:{$7f}{CBM-V}{$f7}{$f3}{SHIFT-@}{$ee}{$f7}{$fb}{CBM-*}{$fe}{$fb}~~{$fb}~{$7d}{$7d}D{CBM-S}{$fb}{$ef}{$7f}~{$f7}~{$f7}{$fa}{$ef}~_{CBM-*}{CBM-*}~{$ef}{$7d}{$7f}{$7f}~~{$ef}~~{$fe}~~~{$fb}~{CBM-B}~~~{CBM-P}~~{$fa}~~~~~~{$7f}~~~~~~{$8f}~{$7f}~~~~~~~~~~~~~~{blu}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$ef}W{CBM-Q}_{CBM-B}~~~~~~~~{$ea}{$7f}~~~{$f7}{$fe}{CBM-Q}u{CBM-Q}u{CBM-F}~{$fe}~{$ef}{CBM-B}~~{$ef}~~~{$de}{$fe}{CBM-*}{$fd}w~{CBM-N}{CBM-Y}u{SHIFT-@}{CBM-X}u{CBM-N}{CBM-Q}w{CBM-S}{$75}[{CBM-Q}u{CBM-Q}u{$ea}{brn}{$7a}]{CBM-Q}{$7f}{$fb}{$76}{CBM-Q}~u{$ea}{cyn}/U{CBM-B}_{$fd}{$f9}{$ef}{CBM-B}{$e5}{$74}zEu_{$fe}~{SHIFT--}{$f2}{pur}{CBM-Y}y_{$67}{$7e}~{$de}{$f7}{$ef}~{CBM-Q}{$7f}{CBM-N}{SHIFT-@}{CBM-O}{SHIFT-POUND}{$67}5{$ea}{$6b}{SHIFT--}{SHIFT-+}{CBM-L}i{$6f}{$f5}5KZ{SHIFT-POUND}{$e3}{CBM-*}{$fd}{yel}{$f3}UY{CBM-F}{CBM-N}{SHIFT-+}{CBM-G}{CBM-N}jz{CBM-N}{CBM-L}{$76}Jy{$f7}-z{$f5}{CBM-J}{$ef}Z{CBM-S}~{CBM-V}{lred}{$e5}{CBM-Z}{$6d}{$f6}{$fd}{CBM-V}U{$f5}m{brn}{f6}{$fb}5{CBM-Z}{CBM-P}~ZK{$f6}{$eb}{$6f}9{CBM-N}o{$6d}{brn}{rvof}S/{$6f}3{CBM-X}{CBM-G}'{SHIFT-POUND}{CBM-J}{CBM-Z}{CBM-Z}{$6e}k{CBM-V}S]NY{SHIFT--}{$66}{CBM-R}{CBM-J}{CBM-X}-{SHIFT-@}K{$6a}{$69}5{rvof}Y{CBM-R}l[{$75}{brn}{$f3}{CBM-V}{$6b}&{CBM-N}{CTRL-Z}d{clr}{$6b}{SHIFT-@}Y{SHIFT-+}{CBM-F}{CBM-D}{clr}{lblu}{$6e}{$f6}{SHIFT--}Y{CBM-F}{CBM-L}{$e6}K{CBM-R}{$e9}{CBM-W}={CBM-J}vu{$f4}{yel}ZZZ{$f7}{CBM-Q}{CBM-R}{$7e}{$fe}{$68}{CBM-*}{$79}{$77}{$ed}Y{$ef}{$6d}{$ec}{$e8}I{CBM-Q}{CBM-N}{$ee}{$ed}{SHIFT-+}{gry1}{CBM-L}{$ec}{SHIFT-+}{SHIFT--}{lgrn}{$e6}=u{CBM-F}{CBM-L}{CBM-P}w{$7f}{$fb}U{CBM-I}N{CBM-G}u{$6e}]{$7b}{CBM-S}{CBM-P}{$62}:{$73}{cyn}{$63}{inst}{CBM-Q}{swuc}{$f3}_{$71}W{$75}F{CBM-O}F{CBM-POUND}{$e7}{CBM-U}G{$7b}{$f7}u{$77}z{$ea}{CBM-F}{rvof}{$f3}{cyn}~{$f5}{SHIFT--}~{$fd}{$7d}~~{$7f}{$fb}{CBM-B}~~{$fb}~~~~~~~{CBM-*}{$fb}{SHIFT-*}{$7f}~{$f8}{$00}{$7f}~{$00}{CTRL-O}~{$f8}{$00}{$7f}~{SHIFT-*}{f8}{$00}~~{$80}{$00}~~{$00}X{CTRL-A}~~{SHIFT-*}{$00}~~{$00}{$00}{CTRL-A}~~{$80}{$00}~~{$00}{dish}{CTRL-A}~~{$e0}{$00}{$7f}~{SHIFT-*}{$00}{$80}~~{$e0}{$00}?~{$fc}{$0a}{$00}{$7f}~{$f0}{$00}{cyn}~{$e4}{$00}{$00}?~{$f8}{$00}{CTRL-G}~{$f8}{$00}{dish}{blu}~~{$00}{down}~{$fd}{$00}{CTRL-B}{CTRL-F}~~{SHIFT-*}{CTRL-A}~~{$e0}{$00}{CTRL-A}~~{SHIFT-*}{$00}{$7f}~{$f8}{$00}@{$7f}~{$f8}{$00}{blu}~{$fe}{$00}{CTRL-P}?~{$fc}{$00}{CTRL-O}~{$fe}{$00}{$00}{blu}~{$fc}{$00}{CTRL-G}~{$fe}{$00}{$00}{blu}~{$fc}{$00}{CTRL-O}~~{$80}{$00}{blu}~{$f8}{$00}{CTRL-O}~~{$80}{rvon}{blu}~{$fc}{$00}{CTRL-G}~~{$00} ?~{$f8}{$00}{CTRL-O}~{$fc}{$00}{$00}~~{$e0}{$00}{$7f}~{$f8}{$00}{CTRL-G}~~{$00}{CTRL-A}~~{$00}{$00}?~{$f8}{$00}{CTRL-G}~{$fe}{$00}{CTRL-A}~~{$80}{CTRL-A}~~{$80}{$00}{blu}~{$f0}{$00}{blu}~{$f0}{$00}{CTRL-A}~~{$00}{stop}~{$fc}{$00}{CTRL-A}{CBM-B}~{SHIFT-*}{$00}~{$fc}{$00}{CTRL-P}{CTRL-O}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$ef}~~~~~~~~~~{$e0}{stop}~{$fe}{$00}{$7f}~{$00}{$7f}{$fc}{$00}{$7f}{$f8}{stop}~{SHIFT-*}{CTRL-G}~{$e0}{CTRL-G}~{$00}?{$f8}{$00}~{$f0}{$00}~{$e0}{CTRL-O}{$fe}{$00}{CTRL-G}~{SHIFT-*}{CTRL-G}{$fe}{$00}~{$f8}{$00}?~{$00}?{$f0}{CTRL-O}{$fc}{$00}@~{$f8}{CTRL-A}~{$8f}~{CTRL-A}{$fa}{CTRL-A}~{$80}{$7f}{dish}~~~{$80}{blu}{$fc}{CTRL-G}{$f0}?{$e7}~{$fe}{SHIFT-*}?{$fc}{stop}{$80}~{yel}~{$f8}{$00}{$7f}{$fb}{$e4}{CTRL-G}{$fe}{$73}~{$fc}{CTRL-A}~{$fc}{$00}?~~~{$f0}{CTRL-G}~{$e0}{$00}{$7f}~~~{SHIFT-*}?~{$80}{CTRL-A}~~~{$fc}{$00}~{$fe}{$70}{CTRL-G}~~{$ef}{$fc}{stop}~{$fd}{SHIFT-*}{CTRL-G}~~~{$fc}{$00}{$7f}~{$fe}{$00}?~~{$e0}{CTRL-G}~~{SHIFT-*}{stop}~~~{$00}{$7f}~{$fc}{$00}#~~{$f0}{stop}~~{$e0}{stop}~~~{$00}{blu}~{$fe}{$00}{blu}~~{$f8}{CTRL-A}~~{$e0}{$00}{CTRL-O}~~{$80}{blu}~~{$00}{$00}~~{$f0}{CTRL-A}~~{$f0}{$00}?~~{$00}?~{$fe}{$00}{blu}~~{$e0}{stop}~~{SHIFT-*}{$00}?~{$fe}{$00}~~{$f8}{$00}{CTRL-O}~~{$80}{blu}~~{$00}{$00}~~{$f0}{stop}~~{SHIFT-*}{$00}?~{$fe}{$00}{$7f}~{$f8}{$00}{stop}~~{$80}{CTRL-O}~~{$00}{$00}{$7f}~{$f8}{$00}~~{$e0}{$00}?~~{$80}{blu}~{$fe}{$00}{$00}~~{$f8}{stop}~~{SHIFT-*}{$00}{blu}~{$fe}{$00}?~{$fc}{$00}{stop}~~{$e0}{stop}~~{$80}{$00}{$7f}~{$fe}{$00}{$7f}~{$f8}{$00}{CTRL-G}~~{SHIFT-*}{CTRL-O}~~{$80}{$00}{$7f}~{$f8}{$00}{$7f}~{$f8}{$00}{CBM-*}~~{$80}{CTRL-O}~~{$00}{ensh}~~{$f0}{CTRL-A}~~{$e0}{CTRL-A}~~~{$00}~~{$fc}{$00}{stop}~~{SHIFT-*}{CTRL-O}~~{$80}{CTRL-A}~~{$e8}{$00}~~{$f0}{$00}{CTRL-O}~~{$00}{blu}~{$fe}{$00}{stop}~{$fe} {CTRL-G}~{$fe}{SHIFT-*}{blu}~~{$fc}{$00}~~{$f8}{CTRL-A}~~~{SHIFT-*}{blu}~{$f7}{$00}{$7f}~~{$f8}{stop}~{$fe}{$e7}{CBM-B}~~~{$00}{$7f}~~~~~~{$e3}{$8f}~~~~~~~{$fb}~~~~{$fd}~~{$fb}~~~~~{CBM-B}~~~~~~~{$f9}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{cyn}{CTRL-G}{$83}{$fe}{blu}{grn}{grn}{$f0}~~~~~{CBM-*}OO{$8f}G{$e7}{$8f}{$e7}~{$f1}{$f1}~~~{$8f}{f5}{$f0}?{CTRL-G}{$fc}?{$f0}{$f8}{$e1}{$e1}{$e3}{f5}CO{CTRL-G}{f5}{CTRL-O}{grn}<{blu}{CTRL-O}{$7c}{blu}{$00}{$7c}<8{$f8}{CTRL-G}C{$fe}{CTRL-G}{$e0}>{grn}{stop}~{$83}{$e0}{$e7}C{$e1}{$8f}{CTRL-O}{$84}>{CTRL-A}{$f0}{$7f}A{$f1}{stop}C{$e0}{blu}{CTRL-X}{$7e}{blu}{$f8}{$7c}{$00}{$f0}{$f8}{stop}G{CTRL-O}C~{CTRL-G}{$80}{blu}{CTRL-O}{$00}{$7c}{$e0}{$f8}{$79}{$e0}{$f8}c{$e1}{$e1}{CTRL-O}{red}{blu}{CTRL-O}<{blu}{$00}{$78}{$7c}{stop}C{CTRL-G}AO{CTRL-G}C{blu}{CTRL-O}{CTRL-L}{$7c}{$60}{$f8}{$78}{$e0}{$f8}cCA{cyn}{red}>{grn}{$7c}>{CTRL-A}{$f0}{$f8}>{red}{blu}{CTRL-O}>{blu}{CTRL-O}{$f8}{$f8}>>{blu}{CTRL-O}{yel}{CTRL-O}{CTRL-O}{$fc}{$7c}{grn}{grn}{blu}{CTRL-O}{yel}{grn}{grn}{grn}8{$78}{$78}{$7c}<{$70}{$78}{$f0}{$f1}{$e3}CA{$f0}{$f3}AO{f5}{f3}><?{CTRL-O}>{blu}{$f0}{$fc}{stop}CA{$f0}{$7f}{SHIFT-*}{$7e}{blu}{$f8}{$7c}<?{CTRL-O}{$f8}{CTRL-O}{swlc}{$7e}{blu}{CTRL-O}A{$f0}?{stop}CC{$e3}AN{blu}{CTRL-G}{$e6}{$f8}{$7c}{$7c}{$7e}{CTRL-G}D{grn}{$7e}o{CTRL-G}{$e3}G{$e3}{$77}{$78}{blu}{blu}?{$f8}{$f8}{$7c}{CTRL-O}{blu}{$e3}~{blu}{cyn}{$f3}<<>>{blu}{$fb}{CBM-B}{blu}{$83}{$f0}{$f0}{$f9}{$f1}{$f3}{$f3}{$f0}{$f0}{$f1}{$e0}{$fc}9{$f1}{$fb}{$fb}{$f7}~{$e3}{$e3}~{$7e}{$7b}~{$fb}~{red}{$f8}{$fc}{$7f}~~~~~~?~{$fd}~~~~~~~{CTRL-O}{blu}{f5}G{CBM-*}~~?~~~~~~~{$fd}={$fc}{$fe}{$7c}~{$fd}~~~~{CBM-*}~~~{CBM-*}~~{$fb}{$fd}{$fd}{$f3}GC{f5}CC{f5}~~{CTRL-O}?{$7f}{$fe}{$fc}{$f8}{$f0}{$f9}{$f7}{cyn}~~~?{$7f}~W{cyn}{$7f}??~{$fc}{$f8}~~~{CBM-*}GO~~{$fc}~~O~~~{$f7}{CBM-B}~~~~~>??~~{$fe}{$7f}~{$fc}{$fb}~~{CBM-V}>{$f9}{$f3}{CBM-*}~~~~~~{$e3}{$ef}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f7}z{$79}{CBM-I}O{dish}3{$73}{SHIFT-POUND}_{cyn}{$7e}{SHIFT-+}${CBM-Y}{CBM-V}{$f3}[7{$6f}{CBM-J}{CBM-V}>{CBM-H}{SHIFT-@}W{CBM-J}{$e7}{CBM-Y}{CBM-H}{$fb}{$f9}{$e9}{$7d}={$e4}{$f5}{lred}{CBM-L}{$de}9+{$ed}{CBM-B}{CBM-*}{CBM-*}{$7f}{$de}{$77}O7{CBM-B}~{$f3}~~W~~?~?~~{CBM-*}~O{$fb}~~{$e7}~~{CTRL-G}~~~~~~~~~~~{$fd}~~~~~~~~{$7f}~~~~{CBM-B}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f8}{$00}{blu}~{$fc}{$00}~~{$fc}{$00}~~~~{$80}{CTRL-O}~~~~~~~{$f8}{$00}~~{$e0}{$00}~~~~{SHIFT-*}{CTRL-O}~~{$00}{$00}{$7f}~~{$fc}{$00}{$7f}~{$f8}{$00}{CTRL-G}~~~{$e0}{stop}~~{SHIFT-*}{$00}?~~~{$00}{blu}~~{$00}{stop}~~~{$fe}{$00}?~{$fc}{$00}{CTRL-O}~~~{$f0}{CTRL-A}~~{SHIFT-*}{CTRL-A}~~~~{SHIFT-*}{CTRL-G}~~{$80}{$00}{$7f}~~~{$00}?~{$fc}{$00}{CTRL-A}~~~{$f8}{$00}~~{$e0}{$00}~~~{$fc}{$e0}{CTRL-G}~~{SHIFT-*}{$00}{$7f}~~~{$00}{blu}~{$fe}{$00}{CTRL-O}~~~{$f8}{$00}~~{$f0}{$00}~~~~{$e0}{stop}~~{$80}{$00}~~~~{$80}{blu}~{$f8}{$00}{CTRL-G}~~~{$fe}{$00}~~{$e0}{$00}{blu}~~{$f1}{SHIFT-*}~~{$80}{$00}~~~~{$fe}{CTRL-A}~~{$00}{CTRL-O}~{$fe}{$7f}{cyn}{CBM-V}{CTRL-G}~~{$00}{blu}~{$7e}{$7e}{$7e}8?{$fe}<{$00}{$7f}{$fe}?{$f8}{$fe}{SHIFT-*}~{$fc}8{CTRL-G}~~~C{$fd}{CTRL-A}~{$fc}{CTRL-X}{blu}~~~{cyn}{$f0}{CTRL-G}~{$f8}{$00}?{f5}~~{blu}{$e0}{blu}{$f3}{$f8}{$00}{$7f}{CTRL-O}~~~{$80}{$7f}O{$e0}{CTRL-A}~~~{$e3}{$fc}{stop}{$fe}?{$00}{CTRL-O}~~~{$7f}{$f8}{blu}{$e1}{$f8}{$00}?{$8f}~{$f8}~{$00}{$7f}{$8f}{SHIFT-*}{CTRL-A}~{$fe}?{$e7}{$fe}{stop}{$fc}{$7e}{$00}{blu}~{$e3}{$fc}?{SHIFT-*}?~{$e0}{$00}{$fc}{$7e}?{$ef}{$fc}{CTRL-A}~{$fe}{$00}{blu}{CBM-*}C~~{SHIFT-*}?~{$83}{CTRL-A}~~~{$f9}{$fc}{CTRL-A}~{$fc}0{blu}~~~{blu}{$80}{blu}~{grn}{stop}~~{blu}{$e3}{$fc}{$83}~{$e7}{$80}{CTRL-G}{CBM-*}O>?{CTRL-P}{$7f}{$f9}{$e0}A{$e3}G{$8f}{blu}8{CTRL-O}~{$f8}@{$7f}~~{$f1}{CBM-*}{CTRL-A}~{$fe}{$00}{stop}~~{$f8}~0{$ef}~{$f8}{CTRL-A}{cyn}{$fb}{$fe}?D3~{$f8}{$00}{CTRL-O}~~9F{ensh}~{$f8}{$00}7~~{cyn}{$f2}{$00}~~{$00}{stop}~~~~{$80}{$7f}{$fe}{$80}{stop}~~{CBM-*}~{$80}~~{SHIFT-*}{stop}~~{CBM-B}~{$00}~~{$80}{CTRL-G}~~{$73}{$a0}{stop}~~{$00}{CTRL-O}~{$fe}{$7f}{$f0}{CTRL-O}~{$f8}{$00}?~{$fb}~{$60}{blu}~{$f0}{$00}{$7f}~~~{$80}{$7f}~{$f0}{stop}~~{$fd}~{$80}?~{$fe}{$00}{CTRL-G}~~{$fc}{$00}{$7f}~{$f0}{$00}{$7f}~~{$f0}{CTRL-G}~~{$00}{CTRL-G}~~~{SHIFT-*}{CTRL-G}~{$fe}{$00}{stop}~~{$fe}{$00}~~{$f8}{$00}{CTRL-G}~~{$f8}{$00}~~{$e0}{$00}{$7f}~~{$e0}{stop}~~{$00}{$00}~~~{$00}{blu}~{$fe}{$00}{CTRL-O}~~{$fc}{$00}~~{$f0}{$00}_~~{$e0}{stop}~~{SHIFT-*}{CTRL-O}~~~{$00}{blu}~~{$00}{CTRL-G}~~{$fc}{$00}~~{$f0}{CTRL-A}{CBM-B}~~{SHIFT-*}{CTRL-O}~~{$80}{CTRL-O}~~{$fc}{$00}~~{$f8}{$00}~~~{$e0}{stop}~~{$80}{stop}~~{$fe}{$00}~~{$f8}{$00}{stop}~~{$e0}{CTRL-O}~~{$80}{wht}~~{$fc}{CTRL-A}~~{$f0}{$00}{$7f}~~{$80}{CTRL-O}~{$f8}{$00}?~~{$f0}{CTRL-G}~~{$e0}{$00}{CBM-B}~{$fe}{CTRL-A}~~{$fc}{$00}~~{CBM-B}{$80}{blu}~~{$00}{CTRL-O}~~{$f0}{stop}~~{SHIFT-*}{$00}~~{$fe}{$00}{$7f}~{CBM--}{$00}{$7f}~~{SHIFT-*}{blu}~~{$00}{CTRL-A}~~{$f8}{$00}~~{$e0}{CTRL-A}~~~{$00}{$7f}~{$fc}{$00}{stop}~~{SHIFT-*}?~{$fd}{$80}{CTRL-O}~~{$f0}{$00}~~{$e0}{CTRL-A}~~{$fe}{$00}{$7f}~{CBM-U}{$00}{$7f}~~{$80}?~~{$00}{CTRL-O}~~{$f0}{CTRL-G}~~{SHIFT-*}{$00}~~{$fe}{$00}~~{$f8}{$00}{$7f}~~{SHIFT-*}{CTRL-O}~{$fe}{$00}{CTRL-A}~~{$f0}{CTRL-G}~~{SHIFT-*}{$00}?~{$fe}{$00}~~{$f0}{$00}_~~{SHIFT-*}{CTRL-O}~{$fe}{$00}{CTRL-G}~~{$f8}{CTRL-G}~~{SHIFT-*}{$00}{blu}~{$fe}{$00}~~{$f8}{$00}?~~{SHIFT-*}?~{$fe}{$00}{CTRL-O}~~{$f0}{CTRL-O}~~{$80}{stop}~~{$fc}{stop}~~0{CTRL-A}~{$fe}~{$00}~~{$fc}{$00}?~{$fe}{SHIFT-*}{CTRL-O}~~{$00}{CTRL-O}~~{$f0}{stop}~~{SHIFT-*}{$00}?~{$fe}{$00}~~{$f3}{$00}?~~{SHIFT-*}?~{$fe}{$e1}~~~{$fc}c~~{$fe}?~~~{$e0}{blu}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fe}{$7f}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CBM-B}~~~~~~~{CBM-*}~~~~~~~~{$fe}{CBM-*}~~~~~~~~~~~{$7f}~~~{CBM-B}~{CBM-Z}~{$7b}{$fb}{SHIFT-+}{$76}{home}{CBM-V}{CBM-H}{CBM-Z}{CBM-Q}[{$fe}{$f5}={CBM-F}z{$f2}{CBM-@}O{CBM-Y}{$6b}Z{$f5}{$6a}[~jT{$f6}Kn{CBM-L}n{CBM-J}{CBM-N}z{CBM-J}{CBM-N}z{CBM-Z}O{CBM-L}{$ed}{$6b}U{CBM-S}_{$fa}U{$f3}{CBM-F}{$eb}{CBM-N}{CBM-Q}u]s{SHIFT-@}*w{$6b}Sr{CBM-J}{$6d}{CBM-@}^v{CBM-F}R{CBM-Y}{$fa}{CBM--}{CBM-P}z{$f1}{SHIFT-+}U{CTRL-Z}{CBM-Y}{CTRL-Z}{CBM-J}{$6e}{$f3}N{f6}T{$fc}{$7b}{gry1}:G{CBM-N}{SHIFT-+}{$de}w{yel}{CBM-Z}{$f1}GU{CBM-N}{$7e}{$7a}]{$7d}{$f5}{$f5}{$ef}{CBM-Q}{$de}{CBM-V}{$ee}{$f7}?~{$fe}~~^~{CBM-B}{$f5}{$fb}{$f9}~~O~{$fc}{$7f}{cyn}W{$fc}{$e7}{CBM-C}{$ef}{blu}~{CBM-V}{$6f}~~~~~~~~{$f9}O~{$fd}~{CBM-C}{$e3}~{$fe}{$f1}~~{$e7}{$f8}O~{f8}G{$fc}{$84}~{$fc}#~{$e0}{$00}~{$f1}{f2}~{$80}{stop}~{$e0}{stop}~{$f2}?{$fc}F{CTRL-A}~{$f0}{$00}~{gry2}g{$f9}{$fc}{CTRL-D}~{$f8}{$00}?{$f9}{CTRL-O}~1{$00}{$7f}~{$00}{blu}{$fc}{SHIFT-*}~{CBM--}@{blu}~{$80}{CTRL-G}~0{blu}{$fe}{CTRL-D}{stop}~{$e0}{CTRL-A}~{$f0}{blu}~{SHIFT-*}{$00}~{$fc}{$00}?{$f9}{$00}~{$f8}@?{$fe}{$00}{CTRL-O}~{$00}?{$fc}{SHIFT-*}'~{SHIFT-*}{stop}~{blk}{CTRL-O}~{$a0}{CTRL-A}~{$f8}{$00}{$7f}{$fc}{CTRL-A}~{$f1}{$00}{$7f}~{$00}{CTRL-O}~{$00}?~{$00}{CTRL-O}~{SHIFT-*}{stop}~{$f8}{CTRL-G}~{gry2}{stop}~{$f8}{$00}{blu}{$fe}{$00}~{$fe}{$00}?~{$00}{stop}~{SHIFT-*}{CTRL-O}{$fd}{SHIFT-*}{CTRL-O}~{$e0}{$00}~{$f0}{wht}~{$80}{CTRL-A}~{$fc}{$00}{blu}{$fe}{$00}?{$f8}{$00}{$7f}~{$00}{CTRL-G}~{$80}{CTRL-O}~{$00}{CTRL-O}~{SHIFT-*}{CTRL-A}~{$f0}{CTRL-A}~{CBM-U}{stop}~{$f8}{$00}{$7f}{$fc}{$00}{$7f}{$fe}{$00}~{$fe}{$00}{blu}{$fe}{$00}{blu}{$fe}{$00}~{$fe}{$00}{blu}~{$80}{CTRL-G}~{$00}{$7f}~{$00}{CTRL-O}~{$e0}{stop}~{SHIFT-*}?~{$80}{stop}~{$e0}{stop}~{$80}{blu}~{$80}{CTRL-G}~{SHIFT-*}{home}{$fc}{$00}{blu}~{$80}{CTRL-O}~@?{$f8}{$00}{blu}~{$00}{blu}{$fc}~~{$f0}{$00}{$7f}{$fe}{$00}{$7f}{$fd}~~{$f2}{$00}~{$f8}{$00}O~~{CBM-B}{$f2}{stop}~{$e0}{stop}?~{$f0}{red}@{CTRL-O}~{SHIFT-*}{$00}~~{$f0}{$fe}{SHIFT-*}{$7f}{$fe}{$00}{CTRL-G}~~{lgrn}{SHIFT-*}{CTRL-A}~{$f8}{$00}?~{$fc}O{SHIFT-*}{CTRL-O}~{SHIFT-*}{CTRL-A}~~F{$73}{$82}{$7f}~{$80}{stop}~~{cyn}{$fe}{$00}{blu}~{$f8}{$00}{CTRL-O}~~{$00}{blu}~{$fe}{$00}{esc}~~{$f0}{CTRL-O}~{$fd}{$80}{CTRL-G}~~{$f0}{stop}~~{$e0}{CTRL-A}~~{$fe}{$00}~~{CBM-U}{$00}~~~{$00}{$7f}~{$f8}{$00}{blu}~~{$00}?~{$fe}{$00}{blu}~~{$80}{CTRL-G}~{$fe}{$00}{blu}~~{$80}{CTRL-G}~~{$00}{CTRL-G}~~{$e0}{CTRL-G}~~{$80}{$00}~~{$e0}{CTRL-G}~~{SHIFT-*}{stop}~~{$f0}{CTRL-A}~~{$e0}{$00}~~{$f8}{CTRL-A}~~{$e0}{$00}{blu}~{$f8}{stop}~~{$e0}{$00}~~{$f8}{CTRL-A}~~{$f0}{CTRL-A}~~{$f8}{CTRL-A}~{$fe}{$60}{CTRL-A}{CTRL-O}~{$f8}{CTRL-A}~~{$f0}{$00}?~{$f8}{$00}~~{$f0}{$00}{$7f}~{$fc}{CTRL-A}~~{$70}{$00}~~{$fc}{CTRL-A}~~{$f0}{$00}~~{$f0}{CTRL-A}~~{$f0}{$00}~~{$fc}{CTRL-A}~~{$70}{$00}~~{$fe}{$00}~~{$f0}{$00}?~{$fc}{CTRL-A}~~{$70}{$00}{CBM-*}~{$fe}{$00}?~{$f0}{$00}~~{$fc}{$00}~~{$f0}{$00}{CTRL-O}~{$fe}{$00}~~{$f0}{CTRL-D}{blu}~{$f0}{$00}?~{$f0}{$00}~{$fb}{$fc}{CTRL-A}~~{$f0}{$00}{blu}~{$fc}{CTRL-A}~~{$e0}{$00}~~{$f8}{stop}~{$fe}{$e2}{CTRL-O}~~{$f8}{stop}~~{SHIFT-*}{CTRL-A}~~{$f8}{CTRL-G}~{$fd}D{blu}~{$e7}{$80}{CTRL-G}~~D?~{$ef}{$f0}{CTRL-G}~{$f9}{f7}{blu}~{CBM-*}{$f0}{CTRL-G}~~{f7}{CTRL-O}{$fb}O{$f0}{CTRL-G}~{$fb}{gry2}?{$f7}~{$e0}{CTRL-G}~~0{$7f}~~{$e0}{blu}~{$fe}{$60}~{CBM-*}~{SHIFT-*}?~{$fc}A~{cyn}~{$80}?~{$fd}C~~~{$80}{$7f}~~O{$fe}~~{f8}{$7f}~~O{$fc}~~D?~~~{$fc}~~{$f1}{blu}~~{$ef}{$fe}{$7f}~~~~~~~{CTRL-A}{$83}~~~~~~{cyn}~~~~~~~G~~~~~~~{$f7}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fb}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fc}N{$79}N{$f1}{CBM-*}{$f7}{$fe}{$fb}~~{$fb}{gry2}{$f7}~~~~{$f3}~~9~9{cyn}~O~~~~{$e3}?~~{$f7}~{$f6}{$f1}{blu}~{CTRL-A}~{blu}~{stop}~{CBM-B}D{$7f}{$84}{$7f}{f7}O~{red}{$e1}{cyn}{$e0}{blu}{$f2}{blu}{$fe}'~{$70}O{$f0}{CTRL-O}{$f1}{CTRL-O}~{CBM-B}{$fe}{$61}~{$f0}{blu}{$f0}{blu}~~{rght}C~{SHIFT-*}{$7f}{SHIFT-*}{$7f}~~{CTRL-O}{$e0}{$7f}{$e0}{CTRL-O}~?~~~{$f0}~{$f0}{CTRL-G}{$f8}{CTRL-O}~O~L{$7f}{$fc}{stop}{$fe}{stop}~G~{$fc}?{$fe}{CTRL-A}~{$00}~C{$de}{$ee}{CTRL-O}~{$00}~{$80}~{$e1}~{$f3}{CTRL-G}~{$80}{$7f}{SHIFT-*}{$7f}{$f8}g=C~{SHIFT-*}{blu}{$e0}{blu}{$fe}{CTRL-Y}{$fc}A~{$e0}{CTRL-G}{$fe}{blu}~{red}{$ef}{$80}~{$f8}{stop}{$fe}{CTRL-A}~8{$e6}{$70}~{$f8}{CTRL-A}~{$80}~{$fc}{stop}H{$7f}{$fe}{$00}~{$f8}~~{$00}{$00}{$7f}~{$00}{CTRL-O}~{CBM-*}~{$e0}0~~{$00}{CTRL-O}~{sret}~F{$00}~{$fe}{$00}{blu}{$fe}{down}~{$00}{CTRL-A}~{$fc}{$00}{blu}{$fc}{stop}~{$70}{CTRL-G}~{$f0}{$00}~{$f8}{CTRL-O}~{$e0}{blu}~{SHIFT-*}{CTRL-A}~{SHIFT-*}?~{$00}{$7f}~{$00}{CTRL-O}{$fe}{CTRL-A}~{$f8}{CTRL-G}~{$f0}{$00}{$7f}{$fc}{$00}~{$80}{blu}~{$00}{CTRL-G}~{$e0}{CTRL-G}{$fe}{stop}~{$f8}{$00}{$7f}{$f0}{CTRL-A}~{$e0}?~{$80}{CTRL-G}~{$e0}{CTRL-G}{$fc}{CTRL-A}~{$f0}{$00}~{$fc}{$00}~{$00}~{$fe}{$00}{blu}~{$00}{blu}{$f0}{CTRL-O}~{SHIFT-*}{stop}~{$e0}{stop}{$fe}{CTRL-G}~{$f8}{$00}~{$fc}{$00}~{$80}{CBM-*}{$fe}{$00}?~{$00}{blu}{$e0}?~{$80}{CTRL-O}~{SHIFT-*}{CTRL-O}{$f0}{blu}~{SHIFT-*}{stop}~{$f0}{CTRL-A}{$f0}{blu}~{$e0}{stop}~{$f8}{$00}{$f0}{blu}~{$e0}{stop}~{$f0}{CTRL-G}{$f0}{$7f}~{SHIFT-*}{CTRL-O}~{$80}{CTRL-G}{$e0}~~{$80}{blu}{$fe}{$00}{blu}{$80}~{$fe}{$00}{$7f}{$f8}{CTRL-A}~{CTRL-O}~{$f8}{CTRL-A}~{$fc}?~{CTRL-G}~{$fc}{CTRL-G}~{$f0}~~{f5}~~~~{$f0}~~{$f1}~~~~{$f8}{$fb}~~~~~~{$fe}{$7f}{$ef}~~~~~~~~{$fb}~{$7e}{blu}~~~~~{$e7}~~{$f8}{$7f}{$7f}O~~{$7f}{$e9}~~{$fe}~~{$7e}{$7b}~{$f9}~{$7f}?~{$8f}{f8}{$fd}~{cyn}~G?~{$f3}{$f2}H~{CBM-*}{lgrn}{$e9};~{CBM-B}{$f0}{$ef}{$f3}O?~~{$7f}{CBM-B}{$f5}S~{$7f}{CBM-*}{CBM-B}G~{CBM-*}C{$f7}{SHIFT-+}{$e1}{$f7}~~{$fe}{$7f}{$f3}~{$e3}{cyn}?{$fe};{$f9}{$ef}N{$fd}{$f7}K{CBM-*}{$fe}{$68}{$ed}{$fd}{$ef}{CBM-B}{$e9}{f1}{$fa}{$7b}{$fc}{$fd}U{$ef}K{yel}{$fe}~{$f3}{$6b}{CBM-Y}{swuc}M{CBM-X}{$e7}{$e7}{$fb}~{CBM-*}~{$f7}{$f6}{$f3}{$de}{$f6}{$7f}{CBM-U}{$61}{$fe}~{$ec}O{CBM-B}?c{CBM-V}?'{$6d}~:{$71}{SHIFT-+}{SHIFT--}{CBM-Y}{$de}{$7c}{$ef}{left}{$de}{CTRL-G}{yel}{blu}{$f8}{$f1}{$fc}{$7b}{$e1}{$e9}{$f7}.{$7f}M{SHIFT-+}o{$fe}{$7f}M{$f9}{$e6}{$ef}o?{$ec}{$fb}{CBM-E}Y{CBM-*}{gry1}n{cyn}{CBM-*}~{$78}K~{$7e}{$7f}{$e1}{$f1}G~{cyn}={$e7}ON{$77}~{$e3}{yel}{$f6}{$fc}{$f5}{$f2}{$f9}WC?{$e7}{blu}{CBM-O}{$e3}{$e1}{$e7}O{CTRL-O},{$78}7~{$e7}{$71}{CBM-X}~{sret}{$de}<{$f3}{$e3}{CBM-W}~{$8f}~{SHIFT-+}{$f1}{$f9}{cyn}{CBM-W}{CTRL-O}?{$6d}{$fc}~{$ef}G{$ef}{$77}{$f3}~~~~{yel}{$f1}~{lgrn}~{$7f}{esc}{$f6}{$7d}{$fd}~{$e3}{gry1}?{CBM-B}{$e7}{$e7}{CBM-B}{$7f}{CBM-X}~9{$f0}{$ef}{$f3}~{cyn}{$78}{$fc}{$fd}{$e7}c~{f5}~{$7c}{$e7}~~~?{$ef}{$fd}~~~9~{$7c}{$7f}~{$e3}{yel}~{$fe}~~{lblu}~{$fe}{$7c}~~{$e7}~~~{cyn}{$fe}{blu}??~{$7f}~{grn}{$79}~~{$ef}{$ef}~~~~~~{blu}{$8f}{$7c}{$7c}{$e7}{$f7}{$f1}~~~~G{cyn}~{$fe}~{$fd}O~~~~~~~~~{CBM-B}{$e7}~~~~~~~~~~{$e7}~~{$7f}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$7f}~~~~~~~~{$fd}~~~~~~~~~~U{$7f}{$f5}{$fe}{CBM-Y}{$7e}~{$7e}{$fb}U{$6e}{$ee}{$ea}{CBM-P}{$f5}U_u_zZ{CBM-F}{brn}v{CBM-N}{CBM-J}v{CBM-N}{CBM-J}{$6f}z{CBM-N}{SHIFT-POUND}{CBM-W}*{gry1}{CBM-P}R{$6d}{$f6}{CBM-N}{CBM-*}jT{$6a}{$ea}{$6d}{$6a}{CBM-J}U{$6a}{SHIFT-+}{$6b}{clr}{$7e}{$6a}{CBM-N}SkV{CBM-Q}u{CBM-X}z{$fd}{CBM-Q}{$6b}{CBM-H}{CBM-P}r{CBM-S}{CBM-J}{$6d}{$e9}{$7a}U{$7b}{$fe}{SHIFT-@}{$fa}{CTRL-G}{CBM-F}{CBM-Q}{$6b}{$e9}v{$6f}v{CBM-P}{$7e}{$e5}_*[{$fd}W{$ea}{CBM-H}{$7b}{CBM-Y}6{$f7}*{CBM-J}{lblu}{SHIFT-POUND}{SHIFT-+}{$6b}{$e9}{$7b}{$7d}[~WT{$fa}{$f7}{CBM-B}{$f6}~~~{CBM-P}~~~C{CBM-*}{$7f}~~~{$7d}{$fd}{CBM-B}{CBM-Y}{CBM-B}~{$7f}~~~~~~~~~~~~~~~~~~~~{$fb}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{CTRL-A}~~{$80}~~~~~{$f0}{CTRL-A}~{$f0}{stop}~~~~~{$80}~~{$80}{CTRL-O}~{f5}~~{$fc}{CTRL-G}~{$fc}{$00}{$7f}{$f0}{CTRL-O}~~{$e0}?~{$e0}{CTRL-A}~{$e0}{blu}~{$e7}{CTRL-A}~{$fe}{$00}~{$f8}{stop}~~{red}{CTRL-O}~{SHIFT-*}{CTRL-G}~{$00}{blu}{$fc}?{$e0}?{$fc}{$00}{$7f}{$f8}{CTRL-A}~{SHIFT-*}~{SHIFT-*}~{$f0}{CTRL-A}~{SHIFT-*}{CTRL-G}~{CTRL-G}{$fc}{CTRL-G}~{$00}{blu}{$fc}{$00}~{SHIFT-*}?{$e0}{CTRL-O}{$fe}{$00}?{$f0}{CTRL-G}{$fc}{$00}~{$00}~{$e0}{stop}~{$00}~{$80}{blu}{$f0}{stop}~{$80}{blu}{$f8}{CTRL-G}{$fe}{$00}~{$80}{blu}{$fc}{$00}~{$80}{$7f}{$f0}{stop}{$f8}{$00}~{$e0}{CTRL-G}{$fc}{stop}~{$00}?{$80}{stop}~{$00}?{$e0}{blu}{$f8}{CTRL-A}{$fc}{$00}?{$f8}{CTRL-A}~{$00}~{SHIFT-*}{blu}{SHIFT-*}{stop}~{$00}?{$e0}{blu}{$f8}{stop}{$fc}{$00}?{$f8}{CTRL-A}{$fe}{CTRL-A}~{$80}?{$80}{CTRL-G}~{$00}?{$e0}{blu}{$f8}{stop}{$f8}{$00}?{$f0}{stop}~{CTRL-A}~{$80}?{$80}{stop}~{$00}?{$f0}?{$f8}{stop}~{$00}{$7f}{$f0}{stop}{$fe}{CTRL-A}~{$00}{$7f}{$80}{blu}{$fc}{$00}~{$80}{$7f}{$e0}{CTRL-O}{$f0}{CTRL-G}~{$00}{$7f}{$e0}{CTRL-O}{$fc}{CTRL-A}{$fc}{CTRL-G}~{$00}?{$f8}{stop}{$fe}{$00}{$7c}{CTRL-O}~{SHIFT-*}{CTRL-O}{$f8}{stop}~{$00}{$60}?{$fe}{$00}?{$f8}{CTRL-G}~{$00}{$00}~{$fc}{$00}~{$e0}{CTRL-G}{$fe}{$00}{CTRL-G}~{$e0}{CTRL-G}~{$00}?{$f8}{$00}{$7f}{$fe}{$00}?{$f8}{CTRL-A}~{$80}{CTRL-G}~{$e0}{stop}~{$80}{blu}{$f0}{$00}{$7f}{$fc}{$00}{$7f}{$f8}{stop}~{$00}{CTRL-O}~{$80}{CTRL-O}~{$00}{$7f}{$f0}{stop}~{$f0}{CTRL-A}~{SHIFT-*}{stop}{$fe}{$00}{$7f}{$fc}{$00}{$7f}{$fc}{$00}{$7f}{$00}{blu}~{$00}{blu}~{$00}?{SHIFT-*}{CTRL-G}~{$80}{CTRL-O}~{$80}{CTRL-O}{$e0}{CTRL-G}~{SHIFT-*}{CTRL-G}~{SHIFT-*}{CTRL-O}{$e0}{CTRL-G}~{$80}{CTRL-G}~{$80}{CTRL-O}{SHIFT-*}{CTRL-O}~{$00}{CTRL-O}~{$00}{blu}{$80}?{$fe}{$00}?{$fc}{$00}>{$00}~{$f8}{$00}~{$fc}{$00}{$f0}?~{SHIFT-*}{CTRL-G}~{$80}{CTRL-G}{orng}~{$fe}{$00}?{$f8}{$00}{$78}{CTRL-O}~{$e0}{stop}~{$e0}{stop}{$00}~{$fe}{$00}?~{$00}{$fe}{CTRL-G}~{$f8}{CTRL-A}~{SHIFT-*}{CTRL-O}{$f0}{blu}~{SHIFT-*}{$7f}~{stop}~A~~{f5}{$7f}{$f8}{$7f}{$f3}C~~~{$f7}CG~~~~~~{blu}{CBM-*}~~~~~~~~~~~{$ef}{$fe}{$7f}{$e7}~{$f7}~~~~{$fd}{$f8}~~{$ef}?~~{$ef}~~{grn}{$fe}{$ef}~~{$e0}{$7e}{blu}~{$f9}{$f3}{$e7}~{swuc}
~{$fc}{$e3}~{$ef}~~~~~{$f7}~{$80}{cyn}~~/{CBM-*}~{red}3{$f3}{$e3}~{$e3}O~~{$f7}{cyn}O~{$e7}{$f0}{$f7}~{pur}{$7f}{$e7}{CBM--}?~~?~~{CBM--}{$f3}{$8f}{$f7}{CTRL-F}<~{$fc}{$ee}{$fb}~<{$f9}{SHIFT--}{$fd}{CBM-B}~{CBM-T}{$de}{$7d}{$f1}{$fb}{$f9}~~~~{$e7}{$e7}{CBM-B}~{CBM-V}{$f5}O{CBM-*}{$71}{$f3}?~{$fb}{$f1}~{CBM-*}I{blu}~{$f9}C{$fb}~{yel}{$7c}{$fe}~G{$ef}{$8f}{$fe}^{blu}?{CBM-B}{$fe}{$f3}{$f7}~{CBM-W}{$7f}{$ef}O{SHIFT-+}{$fd}{$73}{$fb}C{$de}{$e7}g{$f3}~{SHIFT--}{CBM--}{$f9}{$f8}{$f7}{$7f}?{$e7}{$e0}{$fd}~~{CBM-C}{$f7}~~{$fe}>{$f5}{$f0}{$fd}Ww{$f0}{esc}{CBM-C}{$fe}{$e1}~{$f7}{$7c}{$f3}~?{$fe}/C{CBM-X}~{$fb}/{$f9}{CBM-W}{$fe}{$7d}W~{$f9}~{CTRL-L}{$f7}{$f3}~{cyn}{CBM-M}{$f4}{$fc}S{CBM-G}{$e3}{CBM-*}~~{blu}~{$ef}{$e3}{$e3}{CBM-B}={$fe}8~~{$7f}{esc}{$8f}{$7c}{$77}~{$f3}{$f3}{$f2}{$7f}{$7c}{$7b}{$f8}{CBM-B}{$f6}{$8f}{$7e}{$e7}{$71}{$e3}{CBM-F}{$67}{CBM-V}>{$79}{$f3}C{blu}{yel}{$fe}{$7f}{SHIFT-+}{$f1}~K{swuc}{$7f}~{$fe}{$7f}{$7c}{$f1}{$f3}{$e7}{$f8}~{CBM-*}{CBM-B}{grn}{$fc}{$e1}~M{$fc}>{$73}{CBM-B}o{$fc}~{$e7}{red}{$f9}{$de}{$77}F{$7c}{$ef}O{$73}=~C{$83}O{grn}><{$fc}{$e3}{$77}{f5}~{yel}?{blu}{$83}{CBM-*}{red}?{$79}{CBM-E}~N{$e7}z{CBM-B}>={$f9}{$e0}CC{cyn}{f8}{$fc}{$73}{$f3}{$8f}{swuc}{$7f}{$70}{$f3}{gry2}~{$ef}{CTRL-O}{$fe}{$7f}~{$e3}{$f0}{$f3}~~O{$8f}{$ef}{f5}G{$fc}?{$fb}{$e3}{$f7}~{$de}{$f9}{$f1}~{CBM-B}~{CBM-V}~~{f5}~~~{$e7}~{$fe}?~{$f3}~{$fd}~~O~~~~~{$f3}~~~~{cyn}~~~~~~~~~{$7f}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$f6}{$7f}~~~~~~~~{$80}{blu}~~~~~~~{$fc}{$00}~~{$e0}~~~~~{$f0}{stop}~~{$00}?~~~~{$e0}{CTRL-G}~{$fe}{$00}?~~~~{SHIFT-*}{CTRL-O}~{$fc}{$00}{blu}~~~~{SHIFT-*}{blu}~{$fc}{$00}~~~~~{$00}?~{$f8}{stop}~~~~{$f6}{$00}~~{$f0}{stop}~~~~{$f8}{CTRL-A}~~{SHIFT-*}{blu}~~~~{CBM-A}{CTRL-G}~~{$00}{blu}~~~~{SHIFT-*}{CTRL-O}~{$fe}{$00}g~~~~{SHIFT-*}{blu}~{$fc}{$00}?~~~~{SHIFT-*}{blu}~{$fc}{$00}{blu}~~~~{$00}{$7f}~{$f8}{$00}{$7f}~~~{$fe}{$00}{$7f}~{$f0}#~~~~{$fe}{$00}{$7f}~{$e0}{CTRL-A}~~~~{$fc}{$00}~~{SHIFT-*}{CTRL-G}~~~~X{stop}~~{$80}{stop}~~~~{CBM-A}#~~{$80}{CTRL-K}~~~~{$f0}{CTRL-G}~~{$00}{CTRL-O}~~~~{$f0}{CTRL-G}~~{cyn}~~~~~{$e0}{stop}~~~~~~~~{SHIFT-*}{stop}~~~~~~~~{SHIFT-*}{CTRL-G}~~~~~~~~{$80}{CTRL-O}~~N~~~~~{$00}{blu}~~~~~~~{$fe}{$00}?~~~~~~~{$fc}{$00}{$7f}~~~~~~~{$f8}{$00}~~~~~~~~{$f0}{CTRL-A}~~~~~~~~{SHIFT-*}{CTRL-G}~~~~~~~~{$80}{CTRL-O}~{$fd}{$80}~~~~{$fe}{$00}?~~~~~~~{$fc}{$00}~~~~~~~~{$e0}{CTRL-G}~~~~~~~{$fe}{$00}?~~{CBM-*}~~~~{$e0}{CTRL-G}~{$fc}{$00}~~~~~{$00}~~{SHIFT-*}{stop}~~~~{$f8}{CTRL-G}~{$fc}{$00}?~~~~{SHIFT-*}?~{$f0}{$00}~~~~{$fe}{CTRL-A}~~{$80}?~~~~{$80}{CTRL-O}~{$f8}{CTRL-A}~~~~{$fc}{$00}{$7f}~{SHIFT-*}{blu}~~~~{$f0}{CTRL-G}~{$fc}{CTRL-A}~~{$8f}~~{$00}?~{$e0}{CTRL-O}~~~~{$fc}{stop}~~{$00}~~{$e0}~~{SHIFT-*}?~{$f0}{CTRL-O}~{$fe}{CTRL-G}~{$fc}{stop}~~{$00}~{CBM-*}{$f8}~{$fb}{$00}{$7f}~{$e0}{blu}{$fc}~~~{$80}{CTRL-O}~{$f0}{stop}~~~~{$f0}{stop}~{$fe}{$00}~{SHIFT-*}{$7f}~{$fc}{$00}~{$fe}{$00}?{$f8}?~{$fc}{$00}{$7f}~{SHIFT-*}{blu}{$fc}{CTRL-O}~~{$00}{blu}~{$e0}{CTRL-O}~{f5}~~{$80}{CTRL-O}~{$f0}{stop}~{cyn}~~{$e0}{CTRL-G}~{$f0}{stop}~{CBM-U}{CTRL-G}~{$f0}{CTRL-O}~{$f0}{stop}~{$fc}{CTRL-O}~{$e0}{CTRL-O}~{$f0}{CTRL-O}~{$f0}{blu}G{SHIFT-*}?~{SHIFT-*}?~{$80}{$fc}>{$00}~{$fe}{$00}?{$fc}{CTRL-A}~{$f0}{CTRL-G}~{$f0}{$00}~{$f0}{CTRL-O}~{$80}?~{$80}{CTRL-O}~{$80}{$63}{$f8}{$00}~{$fc}{$00}{$7f}{$fc}{$00}{$7f}{SHIFT-*}{CTRL-O}~{$e0}{CTRL-G}~{SHIFT-*}{stop}{$fc}{$00}~{$fc}{$00}?{$fe}{$00}?{$80}{CTRL-O}~{$e0}{CTRL-A}~{$e0}{stop}{$de}{$00}{$7f}~{CTRL-A}O{blu}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Y{$66}{blu}{$f0}{$6f}<{CBM-A}Ky{$fd}{CBM-M}~~~~~~~{CBM-B}~{$fe}~~~~~~~~~~~~~~~~~~~{cyn}{CTRL-X}?~{SHIFT-*}{blu}~{$e3}{$f8}?~{$00}?{$f8}{stop}~{$80}{CTRL-G}~{$e0}{CTRL-O}{$fe}{$00}~{$e0}0~{$fe}{CTRL-A}~{SHIFT-*}{CTRL-O}{$fc}{$00}{CTRL-O}~{SHIFT-*}{CTRL-O}{$f8}{CTRL-A}~{$e0}{$00}~{$ee}{$00}~{$80}?{$f1}{$00}{CTRL-G}~{$e0}{CTRL-G}{$fe}{ensh}~{swuc}8{blu}~{$00}{$7f}{$e0}{$7f}{SHIFT-*}?{$80}~{$f8}{blu}{$fe}{CTRL-A}~{grn}{$f0}{stop}~{$00}{$7f}{$f0}{CTRL-O}{$fc}{$7f}{$e0}{CTRL-O}{$fc}{CTRL-A}~C~{$e1}~{$80}?{$f0}{CTRL-O}{$e7}~{$f8}{$ef}{$fe}{$00}~{SHIFT-*}{rght}{cyn}~A>{$f0}{CTRL-A}~{$e0}{$e0}{blu}~{cyn}~{$f0}{CTRL-G}~{$e1}{$80}~{$fe}9{$f7}{$f0}{CTRL-O}~C{wht}~~~~{$80}{blu}~{$80}{CTRL-A}~{$f0}{CTRL-O}~{$fc}{blu}~~{$83}~~~~{$fc}{$00}{$7f}~{$84}8{$7f}~~{$f0}{CTRL-A}~{$fe}{$00}{$f9}~~~{$e0}{CTRL-G}~{$fe}{$77}~~~~{$80}{CTRL-O}~{$f8}{stop}~~~{$fe}{$00}{$7f}~{$e0}{CTRL-O}~~~{$f8}{CTRL-A}~~{$00}{$7f}~~~{$e0}{CTRL-G}~{$fe}{CTRL-A}~~~~{$00}?~{$f0}{CTRL-G}~~~{$fc}{$00}~~{$80}?~~~{$f0}{CTRL-G}~~{CTRL-A}~~~~{$80}?~{$f8}{CTRL-G}~~~{$fc}{$00}~~B?~~~{$f0}{stop}~~{CTRL-P}~~~~{SHIFT-*}{blu}~{$f8}c~~~{$fe}{CTRL-A}~~{$e1}{blu}~~~{$e0}{CTRL-G}~~{$fb}~~~~{$80}?~{$fb}~~~~{$fc}{CTRL-A}~~{$e7}{CBM-B}~~~~~~~~~~~~{CBM-*}~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$00}{$00}?~~~~~~{$80}{$7f}~{$f8}{$00}~~{$f8}?~{$fe}{$00}?~~{$80}{$7f}~{$f0}{stop}~~{$f8}{stop}~{$f0}{$00}{blu}{$fe}{$00}~~{CTRL-A}~{$e0}{$00}{CTRL-G}{$fc}{stop}~{$e0}{CTRL-O}~{$e0}{$00}?{$fe}{$00}{CTRL-A}{$fc}{CTRL-A}~{$f3}{$e0}{CTRL-G}~{$80}{$60}?{$80}?{$fe}{$00}{$00}{$7f}{$f0}{blu}{stop}{$f8}{stop}~{$f0}{$00}{CTRL-G}~{$00}{$60}{$7f}{$80}{blu}~{$80}{$00}{$7f}{$f8}{$00}{CTRL-G}{$fc}{$00}~~{$00}{stop}~{SHIFT-*}{$00}{blu}{$e0}{CTRL-O}~{$fc}{$00}{blu}{$fe}{$00}{CTRL-A}~{$00}{$7f}~{SHIFT-*}{$00}~{$f0}{$00}{CTRL-O}{$f0}{stop}~{$fe}{$00}{CTRL-O}~{$00}{CTRL-A}~{$00}?~{SHIFT-*}{$00}~{$f8}{$00}{CTRL-O}{$f8}{CTRL-A}~{$fe}{$00}{CTRL-O}~{$00}{CTRL-A}~{$00}{blu}~{$e0}{$00}~{$f0}{$00}{blu}{$f0}{CTRL-A}~{$fe}{$00}{blu}{$fe}{$00}{stop}{$fe}{$00}?~{SHIFT-*}{CTRL-A}~{$e0}{$00}{$7f}{SHIFT-*}{CTRL-G}~{$f0}{$00}?{$fc}{$00}{CTRL-O}{$f8}{$00}{$7f}{$fe}{$00}{CTRL-G}~{$00}{CTRL-A}~{$00}{CTRL-O}~{SHIFT-*}{$00}~{$e0}{$00}?{SHIFT-*}{CTRL-A}~{$f8}{$00}?{$fc}{$00}{CTRL-O}{$f0}{$00}{$7f}{$fe}{$00}{CTRL-O}{$fe}{$00}{stop}{$fc}{$00}{CTRL-O}~{$00}{stop}~{$80}{CTRL-A}~{$00}{stop}~{$80}{$00}~{SHIFT-*}{CTRL-G}~{$00}{$00}~{SHIFT-*}{$00}~{$e0}{CTRL-G}~{$00}{$00}~{$e0}{$00}~{$e0}{CTRL-G}~{$00}{$00}~{$e0}{$00}~{$e0}{CTRL-G}{$fe}{$00}{$00}~{$e0}{CTRL-A}~{SHIFT-*}{CTRL-O}{$fc}{$00}{$00}~{$e0}{CTRL-A}~{$80}?{$fc}{CTRL-G}{orng}~{SHIFT-*}{CTRL-G}~{$00}~{$f0}{swlc}{CTRL-G}{$fe}{$00}{blu}{$fc}{stop}~{SHIFT-*}{$78}{blu}~{$80}~{$e0}?{$fe}{CTRL-G}{SHIFT-*}~{$f8}{CTRL-G}~{CTRL-A}~{$f0}{$7c}{CTRL-O}~{$80}{$7f}{$f0}{blu}{$fe}{CTRL-G}{$80}~{$f8}{CTRL-G}~{CTRL-A}~{$e0}{$fc}{CTRL-G}~{$00}{$7f}{$f0}?{$fe}{CTRL-O}{$80}{$7f}{$e0}{CTRL-G}~{stop}{$f3}{$e0}{$f8}{CTRL-G}{$fe}{$00}{$7f}{$f0}{$7f}{$de}{CTRL-O}{$00}{$7f}{$e0}{CTRL-G}~{CTRL-G}{$e0}{$e1}{$f8}{CTRL-G}{$fc}{$00}~{$e0}{$7f}{$fe}{blu}{$00}{$7f}{SHIFT-*}{CTRL-G}{$fe}{CTRL-G}{$f8}{$e1}{$f8}{CTRL-G}{$fc}{$00}~{$e0}{$7e}{CTRL-O}{blu}{$00}?{SHIFT-*}{CTRL-G}~{stop}{$f0}{$f8}{$f8}{stop}{$fe}{$00}{$7f}>?{CTRL-O}{CTRL-O}{SHIFT-*}{blu}{$e0}{stop}{$f3}A{$f0}{$f8}{$fc}{CTRL-A}~{$00}?{CTRL-O}{blu}{f5}G{SHIFT-*}{CTRL-O}{$f0}{CTRL-A}{$f0}{$f1}{$f8}{$7e}?{$00}{$7f}{$80}{blu}{f5}{$8f}C{$e3}{$e0}{stop}{$f8}{$70}{$f8}{$7c}{$7e}{blu}{blu}{CTRL-D}{blu}G{f5}C{$e3}{$f0}{$f0}{$f8}{$60}{$fe}<>?{blu}{$8f}{f5}A{stop}{$f1}{$f1}{$f0}{$fc}{$fe}{$7e}{blu}{CTRL-L}{blu}O{f5}{$83}{$f3}~{$f0}{$f8}{$78}{$7f}>{grn}{blu}{$8f}~{f5}CA~{$f0}{$f8}{$fc}{$7e}{$f8}>{grn}{blu}{CTRL-G}{f5}{f5}C{$e3}C{$e1}{$f0}?~~{$fc}?{$fc}??{$e1}~~~{$f7}~A{$f1}~{$e3}~~~~{$fe}?~~{blu}~~~~{$e3}~~~~~~~~~~~~~~~~{cyn}O~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~{$fd}{$e7}~~~~~~~~~~~~~~~~~~~~~~{SHIFT-*}{stop}~~~~~~~~{SHIFT-*}{CTRL-A}~~~~~~~~{$80}{CTRL-G}~~~~~~~~{$80}{CTRL-O}~~~~~~~~{SHIFT-*}{CTRL-G}~~{$e3}{$f7}~~~~{SHIFT-*}{CTRL-G}~~{$f3}~~~~~{$e0}{CTRL-G}~~{$f0}O~~~~{$e0}{stop}~~{$f8}{SHIFT-*}{CBM-B}~~~{SHIFT-*}{stop}~~{$fc}~~~~~{SHIFT-*}{CTRL-G}~~{$f8}{CBM-B}~~{$fb}{$f3}{stop}{blu}{$fe}{CTRL-X}{CTRL-A}~~~~{SHIFT-*}{stop}~{$fe}{$00}{stop}~~{$7f}~{$e0}{CTRL-G}~{SHIFT-*}{stop}C~{$e3}~~{SHIFT-*}{CTRL-G}~{SHIFT-*}{stop}G{$e3}{$e1}~{$f8}{$00}{blu}~{$00}{CTRL-G}{f5}{$f7}{$e1}~{$fc}{$00}{blu}~{$00}C~~{$f0}~{$f8}{$00}?~{CTRL-A}{$fc}~~~~{$fe}{$00}?{$fe}{CTRL-A}{$f3}{$fc}{$7f}{$7f}~{SHIFT-*}{$00}~{$fc}{CTRL-G}A{$f8}~~~{$fc}{$00}~{$f8}{CTRL-G}{$e7}{$f0}~~~{$f0}{stop}~{$e0}{blu}~{CTRL-G}~{$83}~{$80}{CTRL-O}~{$80}{$7f}{$fc}{blu}{$fe}{blu}{$fe}{$00}{blu}~{$00}{blu}{$fc}{stop}{$f8}{$7f}{$fc}{$00}~{$f0}{CTRL-A}~{SHIFT-*}~{$e1}~{$80}{CTRL-G}~{$80}{CTRL-O}~{CTRL-G}~{grn}{$7e}{$00}?{$fc}{$00}{$7b}{$f0}{$83}{$e7}G{$8f}{$00}~{$fc}{$00}?{$f8}{$00}{$7f}{$f1}{$80}{CTRL-O}~{$e0}{CTRL-A}~F{CTRL-G}~{$80}{$00}~{$fc}{$00}?~{$00}o{$fe}{$00}{CTRL-O}~{$e0}{CTRL-A}~L{$00}~{$e0}{CTRL-A}~{$fc}{$00}?~{$80}{blu}{$fe}{$00}{blu}~{SHIFT-*}{CTRL-A}~{$f8}{CTRL-A}~{SHIFT-*}{CTRL-A}~{$fc}{$00}{blu}~{$80}{CTRL-O}~{$00}{blu}~{SHIFT-*}{CTRL-A}~{$f8}{$00}~{$f0}{$00}~{$fe}{$00}{blu}~{$80}{CTRL-O}~{$00}{CTRL-O}~{$e0}{$00}~{$fc}{$00}~{$f0}{$00}~{$fe}{$00}{CTRL-O}~{SHIFT-*}{CTRL-O}~{$00}{CTRL-O}~{$e0}{$00}~{$fc}{$00}~{$f8}{$00}{$7f}~{$00}{CTRL-O}~{SHIFT-*}{stop}~{$80}{CTRL-G}~{$f0}{$00}{$7f}{$fe}{$00}?{$f8}{$00}?~{$80}{stop}~{$f0}{CTRL-A}~{$f0}{$00}~{$fe}{$00}{blu}~{SHIFT-*}{CTRL-O}~{$80}{CTRL-G}~{$f0}{$00}{$7f}~{$00}?{$fe}{$00}{CTRL-O}~{$e0}{CTRL-A}~{$fc}{$00}~{$f8}{$00}{$7f}~{$00}{CTRL-G}~{$e0}{stop}~{$e0}{$00}~{$fe}{$00}{CTRL-O}~{SHIFT-*}{CTRL-O}~{$80}{stop}~{$fc}{$00}{blu}~{SHIFT-*}{CTRL-O}~{$00}{stop}~{$f8}{$00}{blu}~{SHIFT-*}{CTRL-O}~{$00}{ensh}~{$f8}{$00}?~{SHIFT-*}{blu}~{$00}{CTRL-A}~{$f0}{$00}{blu}{$fd}{SHIFT-*}{CTRL-O}~{$80}{CTRL-A}~{$f8}{$00}{CTRL-O}~{$e0}{CTRL-G}~{SHIFT-*}{$00}{$7f}~{$00}{CTRL-G}~{$f0}{stop}~{$e0}{$00}{blu}~{$80}{stop}~{$fc}{$00}~{$f8}{$80}{CTRL-O}~{$e0}{$00}~~{$00}{blu}{$fc}0{stop}~{$fc}{$00}?~{SHIFT-*}{CTRL-O}~{$00}{$00}{$7f}~{$80}{CTRL-G}~{$f8}{CTRL-A}~{$f8}{$00}{CTRL-G}~{$f0}{$00}~{$fd}{SHIFT-*}{CTRL-O}~{SHIFT-*}{$00}{$7f}~{$00}{CTRL-G}~{$f2}{stop}~{$fe}{$00}{CTRL-A}~{$fe}{$00}{blu}~{$fc}{blu}~{$fc} {$63}~{$fc}{$00}{$7f}~~~~{$f0}{CTRL-A}{cyn}~{$f0}{CTRL-A}~~~~{$fd}{$f1}{$83}{blu}~{$e0}{CTRL-A}~~~~~{$ef}{$80}{$7f}~{$e0}{CTRL-A}~~~~~F{$00}?~{SHIFT-*}{CTRL-G}~~~~~{$fe}{CTRL-A}~~{SHIFT-*}{CTRL-O}~~~~~~{f5}~~{$f0}?~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~00103080312080312    5 poke59468,12:poke59466,16:poke59467,16:poke59464,0
    6 gosub200
   10 print"{clr}             N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M"
   11 print"       {SHIFT-@}L   {CBM-M} spukhaus {CBM-G}"
   12 print"       PO    M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N"
   13 print"       NM"
   14 print"      N  M              {rvon}  {rght} {rght} {rght}  "
   15 print"     N    M             {CBM-*}{rvon}       {rvof}{SHIFT-POUND}"
   16 print"     {rvon}      {rvof}              {rvon}       "
   17 print"     {rvon}  {rvof}{SHIFT-@}L{rvon}  {rvof}              {rvon}   {rvof}{SHIFT-@}L{rvon}  "
   18 print"     {rvon}  {rvof}PO{rvon}  {rvof}              {rvon}   {rvof}PO{rvon}  "
   19 print"     {rvon}      {rvof}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}       "
   20 print"     {rvon}      {rvof}              {rvon}       "
   21 print"     {rvon}  {rvof}{SHIFT-@}L{rvon}  {rvof}   NM     NM  {rvon}   {rvof}{SHIFT-@}L{rvon}  "
   22 print"     {rvon}  {rvof}PO{rvon}  {rvof}   OP     OP  {rvon}   {rvof}PO{rvon}  {CBM-*}"
   23 print"     {rvon}      {rvof}   L{SHIFT-@}     L{SHIFT-@}  {rvon}       {rvof}{CBM-*}{rvon}{CBM-*}"
   24 print"  {CBM-@}  {rvon}      {rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvon}       {rvof} {CBM-*}{rvon}{CBM-*}"
   25 print" NN{CBM-G} {rvon}      {rvof}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvon}       {rvof}  {CBM-*}{rvon}{CBM-*}"
   26 print"{CBM-M}{CBM-M}+{CBM-G} {rvon}      {CBM-K}       {rvof}{SHIFT-POUND}  {CBM-*}{rvon}         {rvof}M  {CBM-*}{rvon}{CBM-*}"
   27 print"{CBM-M}{CBM-M} {CBM-G} {rvon}  {rvof}{SHIFT-@}L{rvon}  {CBM-K}  {rvof}{SHIFT-@}L{rvon}   {rvof} {CBM-+}{CBM-+} {rvon}  {rvof}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{rvon}  {rvof} M  {CBM-*}{rvon}{CBM-*}"
   28 print"{CBM-M}{CBM-M}N  {rvon}  {rvof}PO{rvon}  {CBM-K}  {rvof}PO{rvon}   {rvof} {CBM-+}{CBM-+} {rvon}  {rvof}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{rvon}  {rvof}  M  {CBM-*}{rvon}{CBM-*}{left}{left}"
   30 print" {CBM-T}   {rvon}  {rvof}PO{rvon}  {CBM-K}  {rvof}PO{rvon}   {rvof} {CBM-+}{CBM-+} {rvon}  {rvof}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{SHIFT-@}{rvon}  {rvof}   M  {CBM-*}"
   31 print"     {rvon}      {CBM-K}       {rvof}N{CBM-T}{CBM-T}M{rvon}         {rvof}    M  "
   32 print"     {rvon}      {CBM-K}      {CBM-N}{rvof}O{CBM-T}{CBM-T}P{rvon}{CBM-H}        {rvof}     M"
   33 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvon}      {CBM-K}      {rvof}{SHIFT-POUND}    {CBM-*}{rvon}         {rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}M"
   34 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{home}"
   35 fora=1to100:poke59464,rnd(ti)*255:next:poke59464,0
   36 fortt=1to1000:next
   40 print"{clr}":poke59468,14:print"Du stehst vor dem Schloss des Grafen"
   45 print"Dracula.Er hat Jane gefangen,du musst "
   50 print"sie retten.Um sie zu  erreichen musst    du Dracula und seinen Gehilfe
   60 print"toeten."
   99 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}Druecke {rvon}S{rvof} fuer Start.":geta$:ifa$<>"s"then99
  100 print"{clr}{down}{down}{down}{down}{down}bitte warten.":poke59468,12
  110 goto 1000
  200 print"{clr}           {rvon}{SHIFT-POUND}      {CBM-*}{rvof}"
  210 print"           {rvon}   {rvof}{SHIFT-POUND}"
  220 print"           {rvon}   {rvof}"
  230 print"           {rvon}   {rvof}"
  240 print"           {rvon}   {rvof}  opyrights"
  250 print"           {rvon}   {rvof}"
  260 print"           {rvon}   {CBM-*}"
  270 print"           {CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
  280 print"{down}{down}{down}{down}{down}pet adaption 1983 by"
  290 a$="martin vitek "
  300 b$="andre fachat  &   chris mills"
  305 forx=1to10
  310 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rvon}";a$:print"{down}&{down}{down}";b$:poke59464,150
  315 fort=1to100:nextt
  330 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";a$:print"{down}&{down}{down}{rvon}";b$:poke59464,250
  335 fort=1to100:nextt
  340 nextx
  400 return
 1000 readaa,bb:forz=aatobb:readw:pokez,w:next
 1005 data826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33
 1010 data200,208,247,232,224,132,208,240,96,0
 1015 dimz$(7,18):a=18
 1020 rem
 1025 poke59466,16:poke59467,16:li=0
 1030 gosub3035
 1035 yy=int(rnd(1)*3)+1
 1040 ifyy=1thenlt=1
 1045 ifyy=2thenzt=1
 1050 ifyy=3thenet=1
 1055 ti$="000000":ze=14:zn=ze+6:gz=30
 1060 goto1570
 1065 zi=1:gosub2895
 1070 ifse=1thenprintq$"{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}!"
 1075 ifdb=1thenprintq$"{rvon}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}+"
 1080 gosub3015
 1085 printq$;
 1090 print"eingangshalle"
 1095 forq=1to2000:next:gosub3015
 1100 gosub2700
 1105 gosub3015:gosub2140
 1110 ifvn$="n"orvn$="geh tuer"thenonyygoto1280,1175,1740
 1115 ifvn$="s"thengosub2745:h=1
 1120 ifvn$="o"thengosub2725:h=1
 1125 ifvn$="w"orvn$="geh treppe"orvn$="hoch"thenonyygoto1805,1455,1600
 1130 iflg-6=<0then1140
 1135 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-6,7)="fenster"thengosub2840:h=1
 1140 ifse=1andvn$="nimm streichholz"thense=0:sh=2:gosub2835:h=1
 1145 ifvn$=""then1100
 1150 rem
 1155 ifdb=1andvn$="nimm kreuz"thendb=0:h=1:gosub2835
 1160 ifh=1thenforq=1to2000:next:h=0:goto1100
 1165 gosub2760
 1170 forq=1to2000:next:goto1100
 1175 zi=4:gosub2895
 1180 ifaa=1thenprintq$"{rvon}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-+}"
 1185 gosub3015
 1190 printq$;
 1195 print"speisekammer"
 1200 forq=1to2000:next:gosub3015
 1205 gosub2700
 1210 gosub3015:gosub2140
 1215 ifvn$="s"thenonyygoto1280,1065,1600
 1220 ifvn$="geh loch"orvn$="n"thenonyygoto1940,1740,1940
 1225 iflg-6=<0then1240
 1230 ifhb<>1andleft$(vn$,4)="sieh"andmid$(vn$,lg-6,7)="schrank"thengosub2840:h=1
 1235 ifhb=1andleft$(vn$,4)="sieh"andmid$(vn$,lg-6,7)="schrank"thengosub2675
 1240 ifvn$=""then1205
 1245 ifvn$="w"orvn$="o"thengosub2725:h=1
 1250 ifhb=1andvn$="nimm hammer"thenh=1:hb=2:gosub2835
 1255 ifes=1andvn$="iss"thenprintq$"ok hast gegessen":es=0:h=1
 1260 iftr=1andvn$="trink"thenprintq$"ok hast getrunken":tr=0:h=1
 1265 ifaa=1andvn$="lies zettel"thenh=1:aa=0:gosub2860:h=1:ss=1
 1270 ifh=1thenforq=1to2000:next:goto1205
 1275 gosub2760:forq=1to2000:next:goto1205
 1280 zi=2:gosub2895
 1285 ifks=1thenprint"{rvon}{red}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}A"
 1290 ifab=1thenprintq$"{rvon}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-+}"
 1295 gosub3015
 1300 printq$"esszimmer"
 1305 forq=1to2000:next:gosub3015
 1310 h=0:gt=0:lz=0
 1315 gosub2700
 1320 gosub3015:gosub2005:gosub2140
 1325 ifvn$="s"thenonyygoto1065,1455,1455
 1330 ifvn$="o"orvn$="n"andlz=0orvn$="w"andgt=0thengosub2725:h=1
 1335 iflg-4=<0then1345
 1340 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="tisch"thengosub2680
 1345 ifvn$="geh luke"andlz=0thenprintq$"ist verschlossen":h=1
 1350 ifvn$="oeffne luke"thengosub2830:lz=1:h=1
 1355 iflg-4=<0then1365
 1360 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="kamin"thengosub2685
 1365 ifvn$="zieh hebel"thenprintq$"geht nicht":h=1
 1370 ifvn$="drueck hebel"thengosub2765:gt=1:h=1
 1375 iflz=1thenifvn$="geh luke"orvn$="n"thenonyygoto1175,1940,1940
 1380 ifvn$=""then1315
 1385 ifgt=1andet=0thenifvn$="geh tuer"orvn$="w"thenonyygoto1600,1805,2845
 1390 ifge=1andet=1thenifvn$="geh tuer"orvn$="w"then2025
 1395 ifge=1andet=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1400 ifgt=1thenifet=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1405 ifgt=1thenifet=1thenifvn$="geh tuer"orvn$="w"thengosub2805:h=1
 1410 ifgt=1andsc=1and(vn$="w"orvn$="geh tuer")then2025
 1415 ifks=1andvn$="nimm kerze"thengosub2835:ks=0:h=1:ke=2
 1420 ifab=1andvn$="lies zettel"thenh=1:gosub2860:ab=0
 1425 iflg-4=<0then1440
 1430 ifbb<>1andleft$(vn$,4)="sieh"andmid$(vn$,len(vn$)-4,5)="stuhl"thengosub2840:h=1
 1435 ifbb=1andleft$(vn$,4)="sieh"andmid$(vn$,len(vn$)-4,5)="stuhl"thengosub2690
 1440 ifbb=1andvn$="nimm schluessel"thenh=1:sc=1:bb=0:gosub2835
 1445 ifh=1thenforq=1to2000:next:h=0:goto1315
 1450 gosub2760:forq=1to2000:next:goto1315
 1455 zi=3:gosub2895
 1460 ifkl=1thenprintq$"{rvon}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-N}"
 1465 gosub3015
 1470 printq$"labor"
 1475 forq=1to2000:next:gosub3015
 1480 gosub2700
 1485 gosub3015:gosub2005:gosub2140
 1490 ifge=1andlt=1thenifvn$="n"orvn$="geh tuer"then2025
 1495 ifge=1andlt=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1500 ifvn$=""then1480
 1505 iflt=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1510 iflt=1thenifvn$="geh tuer"orvn$="n"thengosub2805:h=1
 1515 iflt=0thenifvn$="oeffne tuer"orvn$="n"thenonyygoto2845,1280,1280
 1520 ifvn$="w"orvn$="s"thengosub2760:h=1
 1525 ifvn$="o"thenonyygoto1940,1065,1740
 1530 ifkl=1andvn$="nimm kerze"thengosub2835:ke=2:h=1:kl=2
 1535 iflg-4=<0then1550
 1540 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="regal"andha<>1thengosub2840:h=1
 1545 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="regal"andha=1thengosub2675
 1550 ifvn$="nimm hammer"andha=1thengosub2835:h=1:ha=2
 1555 ifvn$="trink"thenprint"{clr}{down}{down}das war gift":print"du bist tot":gosub2665:end
 1560 ifh=1thenforq=1to2000:next:h=0:goto1480
 1565 gosub2760:forq=1to2000:next:goto1480
 1570 vn$="":remprint"{clr}{down}{down}{down}du stehst vor dem spukhaus":vn$=""
 1575 rem print"{down}{down}{down}es ist 14.00 uhr":print"{down}suche jane"
 1580 forq=1to10:poke59464,200+q*2:forqq=1to80:nextqq
 1585 poke59464,210+q*2:forqq=1to100:nextqq,q:forq=1to23
 1590 poke59464,230+q*1.1:poke59464,230-q*1.1:nextq:poke59464,0
 1595 goto1065
 1600 zi=5:gosub2895
 1605 ifsz=1thenprintq$"{rvon}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}!"
 1610 gosub3015
 1615 ifgj=1thenprintq$"{rvon}{red}{up}{up}{rght}{rght}{rght}{rght}{rght}^"
 1620 printq$"schlafzimmer"
 1625 forq=1to2000:next:gosub3015:h=0
 1630 gosub2700
 1635 gosub3015:gosub2005:gosub2140
 1640 ifge=1thenifzt=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1645 ifge=1thenifzt=1thenifvn$="geh tuer"orvn$="n"then2025
 1650 ifzt=0thenifvn$="n"orvn$="geh tuer"thenonyygoto1740,2845,1175
 1655 ifzt=1thenifvn$="oeffne tuer"thengosub2825:h=1
 1660 ifzt=1thenifvn$="geh tuer"orvn$="n"thengosub2805
 1665 ifvn$="o"orvn$="geh loch"thenonyygoto1280,1740,1065
 1670 ifvn$="w"orvn$="geh balkon"then1925
 1675 iflg-6=<0then1690
 1680 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-6,7)="teppich"andpf<>1thengosub2840:h=1
 1685 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-6,7)="teppich"andpf=1thengosub2695
 1690 ifvn$="nimm pflock"andpf=1thengosub2835:h=1:pf=2
 1695 iflg-3=<0then1710
 1700 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-3,4)="wand"thengosub2840:h=1
 1705 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-3,4)="bild"thengosub2840:h=1
 1710 ifvn$=""then1630
 1715 ifpe=1andvn$="schlaf"thengosub2995:pe=0:h=1
 1720 ifgj=1andvn$="nimm messer"thengj=0:me=0:h=1:printq$"ok hast genommen"
 1725 ifsz=1andvn$="nimm streichholz"thensz=0:sh=2:gosub2835
 1730 ifh=1thenforq=1to2000:next:h=0:goto1630
 1735 gosub2760:forq=1to2000:next:goto1630
 1740 gosub2715
 1745 print"{clr}{down}{down}{red}gabel"
 1750 print"{down}du kannst nach":print"{down}(o)":print"{down}(w)":print"{down}(s)"
 1760 k1=1:h=0:gosub2700
 1765 gosub3015:gosub2140
 1770 ifvn$="s"thenonyygoto1600,1175,1065
 1775 ifvn$="o"thenonyygoto1805,1940,1805
 1780 ifvn$="w"thenonyygoto1940,1600,1455
 1785 ifvn$="n"thengosub2725:h=1
 1790 ifvn$=""then1760
 1795 ifh=1thenforq=1to2000:next:h=0:goto1760
 1800 gosub2760:forq=1to2000:next:goto1760
 1805 zi=6:gosub2895
 1810 ifgi=1thenprint"{rvon}{red}{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}^"
 1815 ifda=1thenprintq$"{rvon}{red}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}+"
 1820 gosub3015
 1825 printq$"dachboden"
 1830 forq=1to2000:next:gosub3015
 1835 gosub2700
 1840 gosub3015:gosub2140
 1845 ifvn$="o"orvn$="geh luke"thenonyygoto1065,1280,1940
 1850 ifvn$="w"orvn$="geh tuer"thenonyygoto1740,1940,1740
 1855 ifvn$="n"orvn$="s"thengosub2725:h=1
 1860 iflg-4=<0then1875
 1865 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="truhe"thenifph<>1thengosub2840:h=1
 1870 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="truhe"thenifph=1thengosub2695
 1875 ifvn$="nimm pflock"andph=1thengosub2835:h=1:ph=2
 1880 iflg-4=<0then1895
 1885 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="paket"andb1=0thengosub2840:h=1
 1890 ifleft$(vn$,4)="sieh"andmid$(vn$,lg-4,5)="paket"andb1=1thengosub2690
 1895 ifvn$="nimm schluessel"andb1=1thenb1=0:printq$"ok hast genommen":h=1:sc=1
 1900 ifvn$=""then1835
 1905 ifgi=1andvn$="nimm messer"thenme=0:gi=0:h=1:gosub2835
 1910 ifda=1andvn$="nimm kreuz"thenda=0:h=1:gosub2835
 1915 ifh=1thenforq=1to2000:next:h=0:goto1835
 1920 gosub2760:forq=1to2000:next:goto1835
 1925 print"{clr}{down}{down}{down}{red}du bist im garten":print"{down}du kannst nur durch die eingangstuer"
 1930 print"{down}wieder ins spukschloss":gosub3015:gosub2140
 1935 forq=1to4000:next:goto1065
 1940 gosub2715
 1945 print"{clr}{down}{down}{red}du bist auf dem flur                    {down}du kannst nach"
 1950 print"{down}osten  (o),{home}{down}{down}{down}{down}{down}{down}{down}{down}sueden (s),":print"{down}westen (w)"
 1955 k1=1:r=0:gosub2700
 1960 gosub3015:gosub2140
 1965 ifvn$="o"thenonyygoto1740,1805,1280
 1970 ifvn$="s"thenonyygoto1175,1280,1175
 1975 ifvn$="w"thenonyygoto1455,1740,1805
 1980 ifvn$="n"thengosub2725:h=1
 1985 ifh=1thenforq=1to2000:next:h=0:goto1955
 1990 ifvn$=""then1955
 1995 gosub2760:forq=1to2000:next:h=0
 2000 goto1955
 2005 rem
 2010 ifvn$="mit schluessel"thenifsc=1thenge=1:h=1:bb=0:aa=0:gosub2830
 2015 ifvn$="mit schluessel"thenifsc=0thenprintq$"hast keinen":h=1
 2020 return
 2025 zi=7:gosub2895
 2030 gosub3015
 2035 printq$"du bist in der gruft"
 2040 forq1=1to2000:next:gosub3015
 2045 h=0
 2050 gosub2700:gosub3015
 2055 gosub2140
 2060 ifvn$="s"thenonyygoto1455,1600,1280
 2065 ifha=2andpf=2orha=2andph=2orhb=2andpf=2orhb=2andph=2then2075
 2070 goto2085
 2075 ifze=>18orze=<7then2125
 2080 ifvn$="kill dracula"thenh=1:d3=1:goto2090
 2085 ifd3=0thengoto2125
 2090 ifdu=0thenprintq$"womit ?":h=1
 2095 ifd1=0andvn$="mit hammer"thendu=du+1:d2=1:h=1
 2100 ifd2=0andvn$="mit pflock"thendu=du+1:d2=1:h=1
 2105 ifdu=1andd4=0thenprintq$"und womit noch ?":h=1:d4=1
 2110 ifdu=2then2120
 2115 goto2125
 2120 printq$"du hast dracula ":print"getoetet":dr=1:h=1:gosub2640
 2125 rem
 2130 ifh=1thenforq=1to2000:next:h=0:goto2050
 2135 gosub2760:forq=1to2000:next:goto2050
 2140 printq$"{down}{down}":lg=len(vn$):sl=0:ii=int(val(ti$)/100):ifii>0then2150
 2145 goto2225
 2150 forij=1toii:sl=1
 2155 ze=ze+1:ifze=>24thenze=0
 2160 zn=zn+1:ifzn=>24thenzn=0
 2165 ifzn=2thenop=op+1:ifop=1thenli=0
 2170 ifzn=3thenop=0
 2175 ifzn=>0andzn<2orzn=>12andzn<14thenli=1:a=0
 2176 ifzn>=2andzn<12thena=3
 2177 ifzu=14thenli=0
 2180 ifzn=14thenli=0:a=18
 2181 rem  ifzu<2orzu>23thenifli=0thena=3:goto2185
 2182 rem  ifzu<6orzu>20thena=0:goto2185
 2183 rem a=18
 2185 rem
 2190 ifgh=1then2225
 2195 ifgg=1then63999
 2200 x=int(rnd(1)*5)+1:ifx=5then2210
 2205 goto2225
 2210 gosub2625:gh=1:x=int(rnd(1)*2)+1:ifx=1thengi=1
 2215 ifx=2thengj=1
 2220 me=1:gz=ze:gk=zi:print"such das messer":hh=1
 2225 rem
 2230 ifgz=zeandme=0andgk=ziandvn$="kill gehilfe"then2240
 2235 goto2260
 2240 x=int(rnd(1)*2)+1:ifx=1then2255
 2245 print"der gehilfe ist ver-":print"jagt":gosub2655
 2250 hh=1:h=1:gh=0:gk=0:gz=30:gosub2900:goto2260
 2255 print"gehilfe tot":hh=1:gz=30:h=1:gg=1:gk=0:gosub2640:gosub2900
 2260 ifgz+1=zeandme=0thengh=0:hh=1:gk=0:gz=30:goto2270
 2265 goto2275
 2270 print"du hast den gehilfen":print"verjagt":gosub2655:gosub2900
 2275 ifgz+2=zeandme=1then2960
 2280 ifgk<>ziork1=1then2290
 2285 printq$"{rvon}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}W";chr$(17);"{rvon}{red}{left}{CBM-+}";chr$(17);"{rvon}{red}{left}a":printq$"{down}{down}{down}"
 2290 rem
 2295 ifze=de+1thendq=0
 2300 ifii<1then2335
 2305 ifze=>6ordr=1then2385
 2310 ifdd=1then2335
 2315 x=int(rnd(1)*3)+1:ifx<>2then2385
 2320 dq=dq+1:ifdq=1thenprint"such das kreuz":hh=1:gosub2625
 2325 dd=1:dz=zi:de=ze:x=int(rnd(1)*2)+1:ifx=1thenda=1:goto2335
 2330 db=1
 2335 ifze=deanddz=zithenifda=0anddb=0thenifvn$="zeig kreuz"then2350
 2340 ifze=de+1thenifdd=1then2965
 2345 goto2375
 2350 print"du hast dracula":print"verjagt":hh=1:dd=0:dz=0:h=1:gosub2655:gosub2895
 2355 rem ifrnd(1)>.25thenha=1
 2360 rem ifrnd(1)>.25thenhb=1
 2365 rem ifrnd(1)>.25thenph=1
 2370 rem ifrnd(1)>.25thenpf=1
 2375 ifdz<>ziork1=1ordd=0orze>6then2385
 2380 printq$"{rvon}{red}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}X";chr$(17);"{rvon}{red}{left}{CBM-+}";chr$(17);"{rvon}{red}{left}a":printq$"{down}{down}{down}
 2385 rem
 2390 gosub2715
 2395 ifze=de+1thendq=0
 2400 ifzl=1thensu=su+1:ifsu=1thenprint"such den zettel":goto2410
 2405 goto2425
 2410 x=int(rnd(1)*2)+1:ifx=1thenaa=1:goto2420
 2415 ab=1
 2420 hh=1
 2425 ifze<21andss=1andad=zethensq=sq+1:ifsq=1thenhh=1:goto2440
 2430 ifze=>21andss=1thenifad=>20thensq=sq+1:ifsq=1thenhh=1:goto2440
 2435 goto2455
 2440 print"such den schlues-":print"sel jetzt"
 2445 x=int(rnd(1)*2)+1:ifx=1thenbb=1:goto2455
 2450 b1=1
 2455 ifze=>9andze<11thenee=ee+1:ifee=1thenprint"du musst was essen":es=1:hh=1
 2460 ifze=>11andes=1then2940
 2465 ifze=>12thenee=0
 2470 ifze=>15andze<17thentt=tt+1:iftt=1thenprint"du musst was trinken":tr=1:hh=1
 2472 ifze=>3andze<5thentt=tt+1:iftt=1thenprint"du musst was trinken":tr=1:hh=1
 2475 ifze=>17andtr=1orze=>5andze<12andtr=1then2945
 2480 ifze=>18orze=>6andze<7thentt=0
 2485 ifze=18thengosub2610
 2490 ifze=20thenks=0:kl=0:se=0:sz=0
 2495 ifze=>20andze<22thenpp=pp+1:ifpp=1thenprint"du musst schlafen":pe=1:hh=1
 2500 ifze=>22andpe=1then2950
 2505 ifze>22thenpp=0
 2510 ifze<>18then2545
 2515 kk=kk+1:ifkk<>1then2545
 2520 ke=1:sh=1
 2525 x=int(rnd(1)*2)+1:ifx=1thenks=1:goto2535
 2530 kl=1
 2535 x=int(rnd(1)*2)+1:ifx=1thense=1:goto2545
 2540 sz=1
 2545 ifke=2andsh=2thenli=1
 2550 ifze=9thenke=0:sh=0:li=0:kk=0
 2555 ifge=1thenhp=hp+1:ifhp<>1then2585
 2560 ifge=0then2585
 2565 x=int(rnd(1)*2)+1:ifx=1thenpf=1:goto2575
 2570 ph=1
 2575 x=int(rnd(1)*2)+1:ifx=1thenha=1:goto2585
 2580 hs=1
 2585 ifdr=1andgg=1then2970
 2590 ifvn$="warte"thenwa$=ti$:wait197,64:wait197,32:ti$=wa$:h=1
 2595 ifhh=1thenforq=1to2000:nextq:hh=0
 2600 ifsl=1thennext:ti$="000000"
 2605 k1=0:jj=0:ii=0:return
 2610 lu=lu+1:iflu>1thenreturn
 2615 ifze=20thenlu=0
 2620 printq$;"es wird dunkel":hh=1:return
 2625 forq=180to130step-1:poke59464,q:next
 2630 forq=255to220step-1:poke59464,q:poke59464,q:poke59464,q:poke59464,q:nextq
 2635 poke59464,0:return
 2640 forq=1to10:poke59464,230:forqq=1to30:nextqq
 2645 poke59464,240:forqq=1to30:nextqq,q
 2650 poke59464,0:return
 2655 forqq=1to5
 2660 forq=220to240:poke59464,q:nextq,qq:poke59464,0:return
 2665 forqq=250to128step-5:poke59464,qq:forj=1to30:nextj
 2670 poke59464,0:forj=1to30:nextj,qq:return
 2675 printq$"da ist ein hammer":h=1:return
 2680 printq$"da ist eine luke":h=1:return
 2685 printq$"da ist ein hebel":h=1:return
 2690 printq$"da ist ein schluessel":h=1:return
 2695 printq$"da ist ein pflock":h=1:return
 2700 gosub3015:vn$=""
 2705 geta$:ifa$=""thengosub2715:goto2705
 2710 printq$;:input"{rght}{rght}{rght}{$a0}{left}{left}{left}";vn$:return
 2715 zu=ze+val(mid$(ti$,3,2))
 2716 ifzu>21orzu<5thenifli=0thena=3:goto2720
 2717 ifzu<6orzu>=18thena=0:goto2720
 2718 ifzu=14thenli=0
 2720 print"{home}{red}es ist"zu"{left}."right$(ti$,2)" uhr "q$"{down}":return
 2725 rem
 2730 printq$"richtung nicht"
 2735 print"moeglich"
 2740 return
 2745 printq$"eingangstuer ist"
 2750 print"zugeschlossen"
 2755 return
 2760 printq$"befehl falsch":return
 2765 ifli=1thenprint"{home}{red}"
 2770 ifli=0thenprint"{home}{blk}"
 2775 print"{rvon}{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}OP"
 2780 print"{rvon}{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{CBM-G}{CBM-M}"
 2785 print"{rvon}{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{CBM-G}{CBM-M}"
 2790 print"{rvon}{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{CBM-G}{CBM-M}"
 2795 print"{rvon}{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}L{SHIFT-@}"
 2800 return
 2805 rem
 2810 printq$"tuer ist zugeschlos-"
 2815 print"sen"
 2820 forq=1to2000:next:zl=zl+1:return
 2825 printq$"womit ?":return
 2830 printq$"ist geoeffnet":return
 2835 printq$"ok hast genommen":h=1:return
 2840 printq$"da ist nichts von":print"interesse":h=1:return
 2845 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}tuer ist zugeschlos-"
 2850 print"sen"
 2855 h=1:zl=1:onyygoto1560,1730,1450
 2860 x=int(rnd(1)*3)+1
 2865 ad=ze:ss=1
 2870 forjk=1tox:ad=ad+1:ifad=>24thenad=0
 2875 next
 2880 printq$"{down}{down}such den schluessel"
 2885 print"in"x"stunden"
 2890 return
 2895 print"{clr}"
 2900 gosub2715:vn$=""
 2905 ifli=1thenprint"{home}{red}"
 2910 ifli=0thenprint"{home}{blk}"
 2912 ifa=3then2930
 2915 fori=1to18
 2920 printchr$(a);z$(zi,i)
 2925 next:print
 2930 gosub2140:gosub2005:h=0:return
 2935 end
 2940 print"{clr}{down}{down}{down}du bist verhungert":gosub2665:end
 2945 print"{clr}{down}{down}{down} du bist verdurstet":gosub2665:end
 2950 print"{clr}{down}{down}{down}du bist vor muedigkeit"
 2955 print"{down}tot umgefallen":gosub2665:end
 2960 print"{clr}{down}{down}der gehilfe draculas  {down}hat dich getoetet":gosub2665:end
 2965 gosub3700:gosub2665:end
 2970 print"{clr}{down}{down}{down}du hast gewonnen{home}{down}{down}{down}{down}{down}du hast jane befreit":poke59464,0
 2975 forq=1to3:forqq=160to250step20:poke59464,qq:forj=1to80:nextj,qq
 2980 poke59464,0:forj=1to80:nextj:forqq=240to200step-20:poke59464,qq
 2985 fori=1to80:sys826:nexti,qq,q:poke59464,0
 2990 end
 2995 zt$=ti$:ti$="000000":gosub3015:poke59464,140:poke59464,128
 3000 printq$"du musst noch"ti%"{left} "
 3005 ifti=>7200thenti$=zt$:ze=ze+2:zn=zn+2:poke59464,0:return
 3010 ti%=120-ti/60:printq$"{down}{down}minuten schlafen":goto3000
 3015 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 3020 fori=1to5
 3025 print"                     "
 3030 next:return
 3035 z$(1,1)="         M                   N  "
 3040 z$(1,2)="          M                 N   "
 3045 z$(1,3)="           M               N    "
 3050 z$(1,4)="            M             N     "
 3055 z$(1,5)="             O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P      "
 3060 z$(1,6)="             {CBM-G}    O{CBM-T}{CBM-T}{CBM-T}P  {CBM-M}      "
 3065 z$(1,7)="             {CBM-G}    {CBM-G}   {CBM-M}  {CBM-M}      "
 3070 z$(1,8)="        O{CBM-T}P  {CBM-G}    {CBM-G}   {CBM-M}  {CBM-M}      "
 3075 z$(1,9)="        {CBM-G} {CBM-M}  {CBM-G}    {CBM-G}   {CBM-M}  {CBM-M}      "
 3080 z$(1,10)="        {CBM-G} {CBM-M}  {CBM-G}    {CBM-G}o  {CBM-M}  {CBM-M}      "
 3085 z$(1,11)="        {CBM-G} {SHIFT-@}  {CBM-G}    {CBM-G}   {CBM-M}  {CBM-M}      "
 3090 z$(1,12)="        {CBM-G}{SHIFT-@}{SHIFT-@}  {CBM-G}    {CBM-G}   {CBM-M}  {CBM-M}      "
 3095 z$(1,13)="        LL{SHIFT-@} N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M     "
 3100 z$(1,14)="        L{CBM-@}{SHIFT-@}N               M    "
 3105 z$(1,15)="        {CBM-G}        O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P    M   "
 3110 z$(1,16)="        {CBM-G}       H       G    M  "
 3115 z$(1,17)="        {CBM-G}       G       H     M "
 3120 z$(1,18)="       N        L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}      M"
 3125 z$(2,1)="++++++++++M             N       "
 3130 z$(2,2)="+++++++++++M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N        "
 3135 z$(2,3)="++++++++++++{CBM-G}          {CBM-G}        "
 3140 z$(2,4)="++++++++++++{CBM-G}          {CBM-G}     FDP"
 3145 z$(2,5)="++++++++++++{CBM-G}          {CBM-G}  FDP  {CBM-M}"
 3150 z$(2,6)="++++++++++++{CBM-G}          {CBM-G} O{CBM-G} {CBM-M}  {CBM-M}"
 3155 z$(2,7)="++++++++++++{CBM-G}{CBM-M}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}O{CBM-T}{CBM-G} {CBM-G} {CBM-G}{CBM-G} {CBM-M}  {CBM-M}"
 3160 z$(2,8)="++++++++++++{CBM-G}{CBM-M} {CBM-M} UK{CBM-G} {CBM-G} {CBM-G} {CBM-G}O{CBM-T}P{CBM-T}{CBM-T}P"
 3165 z$(2,9)="++++++++++++{CBM-G}{CBM-M} {CBM-M}UKJ{CBM-G} {CBM-G} {CBM-G} L{CBM-G} {CBM-M}  {CBM-M}"
 3170 z$(2,10)="++++++++++++{CBM-G}{CBM-M}{$a0}KJIKJ {CBM-G} {CBM-G}{$a0} DF{SHIFT-@}  {CBM-M}"
 3175 z$(2,11)="++++++++++++{CBM-G}{CBM-M}N~~~~~M{CBM-G} {CBM-G}     DF{SHIFT-@}"
 3180 z$(2,12)="++++++++++++{CBM-G} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P  {CBM-G}        "
 3185 z$(2,13)="+++++++++++N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M        "
 3190 z$(2,14)="++++++++++N    O{CBM-T}{CBM-T}{CBM-T}P {CBM-M}M M       "
 3195 z$(2,15)="+++++++++N    H     G{SHIFT-@} {CBM-G} M      "
 3200 z$(2,16)="++++++++N     G     H M{CBM-G}  M     "
 3205 z$(2,17)="+++++++N      L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}OO{CBM-G}   M    "
 3210 z$(2,18)="++++++N       {CBM-M}     {CBM-G}{CBM-G} {CBM-G}    M   "
 3215 z$(6,1)="                 NM             "
 3220 z$(6,2)="                N  M            "
 3225 z$(6,3)="               N    M           "
 3230 z$(6,4)="              N      M          "
 3235 z$(6,5)="             N        M         "
 3240 z$(6,6)="            N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M        "
 3245 z$(6,7)="           N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}{CBM-T}M       "
 3250 z$(6,8)="          N        {CBM-M}W    M      "
 3255 z$(6,9)="         N         N{CBM-+}M    M     "
 3260 z$(6,10)="        N           {CBM-G}{CBM-G}     M    "
 3265 z$(6,11)="       N                    M   "
 3270 z$(6,12)="      N{CBM-G}       O{CBM-T}{CBM-T}{CBM-T}{CBM-T}P       {CBM-M}M  "
 3275 z$(6,13)="       {CBM-G}O{CBM-T}{CBM-T}{CBM-T}{CBM-G}  L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}       {CBM-M}   "
 3280 z$(6,14)="       {CBM-G}{CBM-G}   {CBM-G}               {CBM-M}   "
 3285 z$(6,15)="       {CBM-G}{CBM-G}   {CBM-G}          {CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-M}   "
 3290 z$(6,16)="       {CBM-G}{CBM-G} U{CBM-S}{CBM-G}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-M}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-G}{CBM-M}   "
 3295 z$(6,17)="       {CBM-G}{CBM-G}   {CBM-G}  OOP{CBM-T}PP {CBM-M}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-G}{CBM-M}   "
 3300 z$(6,18)="       {CBM-G}{CBM-G}   {CBM-G} {CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}{CBM-M}{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}{CBM-G}{CBM-M}   "
 3305 z$(4,1)="  {CBM-T}DF                        FD{CBM-T}"
 3310 z$(4,2)="     {CBM-T}DF                  FD{CBM-T} {CBM-B} "
 3315 z$(4,3)="{CBM-B}    {CBM-D}  {CBM-T}DF{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}FD{CBM-T}  {CBM-B}   "
 3320 z$(4,4)="     {CBM-V} {CBM-K}  {CBM-M}   {CBM-B}    {CBM-F}   {CBM-G}{CBM-B}  {CBM-K}  {CBM-F} "
 3325 z$(4,5)=" {CBM-K}      {CBM-B} {CBM-M} {CBM-K} N{CBM-T}MNM{CBM-C}   {CBM-G} {CBM-B}  {CBM-K}   "
 3330 z$(4,6)="   {CBM-B}   {CBM-F}  {CBM-M}  {CBM-M}     M {CBM-K} {CBM-G}  {CBM-K}  {CBM-D}  "
 3335 z$(4,7)="          {CBM-M}   M  NM {CBM-G}  {CBM-G}        "
 3340 z$(4,8)="          {CBM-M}    {CBM-T}{CBM-T}  {CBM-T}   {CBM-G}        "
 3345 z$(4,9)="          {CBM-M}            {CBM-G}        "
 3350 z$(4,10)="          {CBM-M}  N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M  {CBM-G}        "
 3355 z$(4,11)="          {CBM-M}  O{CBM-T}{CBM-T}P{CBM-T}{CBM-T}{CBM-T}P  {CBM-G}        "
 3360 z$(4,12)="          {CBM-M}  {CBM-G}  {CBM-M}UI {CBM-M}  {CBM-G}        "
 3365 z$(4,13)="          N{CBM-T}{CBM-T}{CBM-G}  {CBM-M}JK {CBM-M}{CBM-T}{CBM-T}M        "
 3370 z$(4,14)="         N   L{CBM-@}{CBM-@}{SHIFT-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}   M       "
 3375 z$(4,15)="        N                M      "
 3380 z$(4,16)="       N                  M     "
 3385 z$(4,17)="      N                    M    "
 3390 z$(4,18)="     N                      M   "
 3395 z$(5,1)="          M              N      "
 3400 z$(5,2)="  ODF      M            N       "
 3405 z$(5,3)="  {CBM-G}  {CBM-T}DF    M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N        "
 3410 z$(5,4)="  {CBM-G}     ODF  {CBM-G}        {CBM-M}         "
 3415 z$(5,5)="  {CBM-G}     {CBM-G}  P {CBM-G}        {CBM-M}         "
 3420 z$(5,6)="  {CBM-G}     {CBM-G}  {CBM-M} {CBM-G}     {CBM-@}{CBM-@}{CBM-@}{CBM-M}         "
 3425 z$(5,7)="  {CBM-G}     {CBM-G}  {CBM-M} {CBM-G}O{CBM-T}{CBM-T}{CBM-T}{CBM-G}{CBM-G}W{CBM-M}{CBM-M}         "
 3430 z$(5,8)="  {CBM-G}     {CBM-G}  {CBM-M} {CBM-G}{CBM-G}   {CBM-G}{CBM-G}a{CBM-M}{CBM-M}         "
 3435 z$(5,9)="  {CBM-G}     {CBM-G}  {CBM-M} {CBM-G}{CBM-G} U{SHIFT-*}{CBM-G}{CBM-G}X{CBM-M}{CBM-M}         "
 3440 z$(5,10)="  {CBM-G}     {CBM-G}  {CBM-M} {CBM-G}{CBM-G}   {CBM-G}{CBM-T}{CBM-T}{CBM-T}{CBM-M}         "
 3445 z$(5,11)="  {CBM-G}     LFD{CBM-T} LL{CBM-@}{CBM-@}{CBM-@}L{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}         "
 3450 z$(5,12)="  {CBM-G}  {CBM-@}FD    N        {CBM-@}{CBM-@}M  NM    "
 3455 z$(5,13)="  LFD      N        {CBM-M}M {CBM-T}{CBM-T}MM {CBM-T}{CBM-T}M "
 3460 z$(5,14)="          N       {CBM-@}{CBM-@}{SHIFT-@}MM   M{CBM-T}{CBM-G} N "
 3465 z$(5,15)="         N       {CBM-M}ZZZMMM   M{CBM-T}{CBM-T}  "
 3470 z$(5,16)="        N         GZZZMMM   M   "
 3475 z$(5,17)="       N          HZZZZMMM   M  "
 3480 z$(5,18)="      N           {CBM-M}ZZZZZMMO{CBM-T}{CBM-T}P  "
 3485 z$(3,1)="                 NM             "
 3490 z$(3,2)="                N  M            "
 3495 z$(3,3)="               N    M           "
 3500 z$(3,4)="              N      M          "
 3505 z$(3,5)="             N        M         "
 3510 z$(3,6)="            N N{CBM-T}M {CBM-A}{SHIFT-*}I  M        "
 3515 z$(3,7)="           N A  A{SHIFT-*}{CBM-X} {CBM-Z}Q  M       "
 3520 z$(3,8)="          N  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}  M      "
 3525 z$(3,9)="         N   {CBM-@}{CBM-@}{SHIFT-@}L{CBM-@}{CBM-@} {CBM-A}{CBM-S}C   M     "
 3530 z$(3,10)="        N   MA{SHIFT-*}XIJ{SHIFT-*}KA      M    "
 3535 z$(3,11)="       N {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} M   "
 3540 z$(3,12)="      N                      M  "
 3545 z$(3,13)="     N  O{CBM-T}{CBM-T}{CBM-G}                  M "
 3550 z$(3,14)="    N{CBM-G}  {CBM-G}  {CBM-G}                  {CBM-M}M"
 3555 z$(3,15)="     {CBM-G}  {CBM-G}U{SHIFT-*}{CBM-G}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}        {CBM-M} "
 3560 z$(3,16)="     {CBM-G}  {CBM-G}  {CBM-G}  CCCCCCCC        {CBM-M} "
 3565 z$(3,17)="     {CBM-G}  {CBM-G}  {CBM-G}  {CBM-T}P{CBM-T}{CBM-T}{CBM-T}{CBM-T}O{CBM-T}        {CBM-M} "
 3570 z$(3,18)="     {CBM-G}  {CBM-G}  {CBM-G}   {CBM-M}    {CBM-G}         {CBM-M} "
 3575 z$(7,1)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3580 z$(7,2)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3585 z$(7,3)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3590 z$(7,4)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3595 z$(7,5)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3600 z$(7,6)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3605 z$(7,7)="VVVVVVVVVVVVVVVVVVVVVVVVVVVVVVVV"
 3610 z$(7,8)="VVVVVVVVVVVVM             NVVVVV"
 3615 z$(7,9)="VVVVVVVVVVVV M           N VVVVV"
 3620 z$(7,10)="VVVVVVVVVVVV {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G} VVVVV"
 3625 z$(7,11)="VVVVVVVVVVVV {CBM-M}           {CBM-G} VVVVV"
 3630 z$(7,12)="VVVVVVVVVVVV {CBM-M}           {CBM-G} VVVVV"
 3635 z$(7,13)="VVVVVVVVVVVV {CBM-M} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-G} VVVVV"
 3640 z$(7,14)="VVVVVVVVVVVV {CBM-M}N         M{CBM-G} VVVVV"
 3645 z$(7,15)="VVVVVVVVVVVV {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G} VVVVV"
 3650 z$(7,16)="VVVVVVVVVVVV {CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G} VVVVV"
 3655 z$(7,17)="VVVVVVVVVVVV N NM     NM M VVVVV"
 3660 z$(7,18)="VVVVVVVVVVVVN N  M   N  M MVVVVV"
 3665 q$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 3670 return
 3700 print"{clr}{down}{down}"
 3710 print"               {rvon}{SHIFT-POUND}      {CBM-*}"
 3715 print"              {rvon}{SHIFT-POUND}        {CBM-*}{rvof}"
 3720 print"             {rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND} {CBM-*}{SHIFT-POUND} {CBM-*}{rvon}  {CBM-*}"
 3725 print"            {rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND}{CBM-@}{CBM-P}{CBM-@}  {CBM-@}{CBM-P}{CBM-@}{CBM-*}{rvon} {CBM-*}"
 3730 print"            {rvon} {rvof}{SHIFT-POUND}  {CBM-@}    {CBM-@}  {CBM-*}{rvon} "
 3735 print"           UI {CBM-T}=W=  =W={CBM-T} UI"
 3740 print"           B      IU      B"
 3745 print"           J{CBM-X}     JK     {CBM-Z}K"
 3750 print"            {CBM-M}     {CBM-@}{CBM-@}     {CBM-G}"
 3755 print"            {CBM-M} C=DPOPOD=C {CBM-G}"
 3760 print"            {CBM-M}   {CBM-T}POPO{CBM-T}   {CBM-G}"
 3765 print"             M   {CBM-M}{CBM-G}{CBM-M}{CBM-G}   N"
 3770 print"              M        N"
 3775 print"               {CBM-T}{CBM-T}M{CBM-@}{CBM-@}N{CBM-T}{CBM-T}"
 3780 print"{down}{down}dracula hat dich gebissen!!!":gosub2665
 3785 input"{down}nochmal";y$:ify$="j"thenrun
 3790 return
   10 dimn(10):dimn$(5)
   20 printchr$(147)
   30 gosub510
   40 letw$=""
   50 letd=5
   60 letg=0
   70 fori=1to10:letn(i)=0:nexti
   80 leti=1
   90 gosub430
  100 letm=int(rnd(1)*99+1)
  110 print:print"where will you put ";m
  120 print:inputp$
  130 ifp$="d"andg<dthenletg=g+1:goto90
  140 ifp$="d"thenprint"you can't":goto120
  150 letp=val(p$)
  160 ifp<1orp>10thengoto120
  170 ifn(p)>0thenprint"already full":goto120
  180 letn(p)=m
  190 letf=0
  200 forl=pto10
  210 ifn(l)<mandn(l)<>0thenletf=1
  220 nextl
  230 forl=1top
  240 ifn(l)>mandn(l)<>0thenletf=1
  250 nextl
  260 iff=1thengoto360
  270 leti=i+1:ifi<11thengoto90
  280 letd=d-1:ifd=0thengoto330
  290 print"well done, go to grade ";d
  300 print:print"you are now a ";n$(d)
  310 letw$=""
  320 goto400
  330 print"terrific - you have reached"
  340 print"the grade of super spy"
  350 stop
  360 print"wrong! not good enough"
  370 print:print"you are still a ";
  380 printn$(d)
  390 letw$="still"
  400 print:print"do you want to try again? (y/n)"
  410 inputa$:ifa$="y"thengoto60
  420 stop
  430 printchr$(147)
  440 print:print"you are ";w$;" a ";n$(d)
  450 print
  460 forj=1to10
  470 printj;
  480 ifn(j)>0thenprintn(j);
  490 print:nextj
  500 return
  510 fori=1to5:readn$(i)
  520 nexti
  530 return
  540 data"vis","spy","junior spy"
  550 data"spying assistant","trainee spy"
    1 poke59468,12:p=48-peek(1)
    2 x=667:y=0:z=135:yy=525
    3 ifpthenx=540:y=16200:z=53:pokez,63:print"{clr}cbm 3001":yy=158:goto5
    4 print"{clr}pet 2001"
    5 print"              destruct
    6 print"              {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
    7 print"{down}ziel des spieles ist, die auf dem bild-
    8 print"{down}schirm dargestellten felderreihen (1..6)";
    9 print"{down}mit dem ball abzubauen. dabei muss mit
   10 print"{down}hilfe des gewoelbten schlaegers verhin-
   11 print"{down}dert werden, dass der ball den unteren
   12 print"{down}bildschirmrand verlaesst. der schlaeger
   13 print"{down}wird mittels der tasten '!' und{$a0}'#' nach
   14 print"links bzw. rechts bewegt.
   15 print:print"NMNMNMNMNMNMN viel spass! MNMNMNMNMNMNM {down}
   16 rem copysa
   17 data 165,55,133,57,165,56,133,58,96
   18 rem compx
   19 data 56,152,229,53,133,53,152,229,54,133,54,96
   20 rem compy
   21 data 56,152,229,63,133,63,152,229,64,133,64,96
   22 rem main
   23 data 160,0,32,190,3,165,51,133,52,165,61,133,62
   24 rem new position
   25 data 24,165,53,101,50,133,50,165,54,101,51,133,51
   26 data 24,165,63,101,60,133,60,165,64,101,61,133,61
   27 rem setup sa
   28 data 132,56,165,61,10,10,101,61,42,38,56,42,38,56,42,38,56
   29 data 101,51,133,55,152,101,56,9,128,133,56
   30 rem test (sa)
   31 data 177,55,201,32,240,12,165,55,197,57,208,37,165,56,197,58,208,31
   32 data 198,65,208,172,165,66,133,65
   33 rem clear(sao)&set new point
   34 data 169,32,145,57,165,50,42,165,60,42,42,41,3,170,181,84,145,55
   35 data 32,122,2,208,142
   36 rem limit reached
   37 data 165,61,201,24,144,1,96,201,1,176,3,32,143,2
   38 data 165,51,240,4,201,39,144,6,32,131,2,76,160,2,165,61,240,249
   39 data 201,18,144,38
   40 rem pitch
   41 data 32,143,2,165,51,56,229,67,170,165,50,42,138,42,170,165,53,24,117,76
   42 data 133,53,181,76,16,4,169,255,208,1,152,101,54,133,54,76,160,2
   43 rem hit field
   44 data 32,20,1,165,52,197,51,240,30,36,54,48,11,165,37,208,2,198,38,198,37
   45 data 24,144,6,230,37,208,2,230,38,177,37,234,234,48,3,32,131,2
   46 rem test y crash
   47 data 32,20,1,165,62,197,61,240,40,36,64,48,15,169,216,24,101,37,133,37
   48 data 169,255,101,38,133,38,208,12,169,40,24,101,37,133,37,152,101,38
   49 data 133,38,177,37,234,234,48,3,32,143,2
   50 rem delete field
   51 data 169,32,145,55,234,198,59,240,3,76,160,2,96
   52 rem process input
   53 data 32,29,1,165,88,240,4,132,88,16,19,165,68,240,35,106,176,8,230,67
   54 data 169,39,197,67,176,4,198,67,48,244,164,67,162,8,192,5,144,8,192,43
   55 data 176,8,181,41,145,39,200,202,16,240,160,0
   56 data 173,9,2,201,239,208,2,104,104,96
   57 data-1
   58 data 108,131,32,111,98,248,247,248,98,111,32
   59 data 0,05,05,0,0,37,131,37,131,190,0,10,10,16,0,2,2,04,0,0
   60 data 232,240,244,248,252,254,0,0,2,4,8,12,16,24,126,123,124,108,1
   61 rem copy sa
   62 data 165,55,133,37,165,56,133,38,96
   63 rem get input
   64 data 120,173,16,232,41,240,141,16,232,173,18,232,205,18,232
   65 data 208,248,88,73,3,41,3,201,3,144,4,37,69,176,8
   66 data 170,240,5,73,3,133,69,138,133,68
   67 data 169,32,44,64,232,240,251,44,64,232,208,251,96
   68 data-1
   69 rem frame
   70 data169,96,141,0,128,141,39,128,141,192,131,141,231,131,166
   71 data15,169,0,133,15,169,128,133,16,160,38,169,100,145,15
   72 data136,208,251,169,120,101,15,133,15,169,160,168,24,169,40,101,15,133
   73 data15,169,0,101,16,133,16,152,73,70,160,38,145,15,136,208,251,202
   74 data208,229,169,192,133,15,169,131,133,16,160,38,169,46,145
   75 data15,136,208,251,162,0,160,39,134,15,169,128,133,16,24
   76 data169,40,101,15,133,15,169,0,101,16,133,16,169,103,129
   77 data15,169,101,145,15,136,177,15,200,201,46,208,227,96,-1
   78 rem data transfer for 3001
   79 data162,55,181,35,157,0,63,202,208,248,162,55,189,107,63,149,35,202,208,248
   80 data32,155,2
   81 data162,55,181,35,157,107,63,202,208,248,162,55,189,0,63,149,35,202,208,248
   82 data96,-1
   83 rem load program
   84 fori=634to1023
   85 readn:ifn<0goto88
   86 pokei,n:next
   87 print"err":end
   88 fori=y+39toy+88
   89 readn:pokei,n:next
   90 fori=276to360
   91 readn:ifn<0goto94
   92 pokei,n:next
   93 print"err":end
   94 z0=peek(z)-1:pokez,z0:z0=z0*256
   95 fori=z0toz0+130:readn:ifn<0then98
   96 pokei,n:next
   97 print"err":end
   98 ifp=0then104
   99 poke1011,155:poke1012,0
  100 fori=540to590
  101 readn:ifn<0then104
  102 pokei,n:next
  103 print"err":end
  104 print"schraeger balleinwurf? (j/n)
  105 getc$:ifc$=""goto105
  106 g=c$="n"
  107 print"{up}balkenzahl? (1...6)           "
  108 getc$:ifc$=""goto108
  109 bz=asc(c$)-48:ifbz<1orbz>6thenbz=5
  110 print"{up}gewuenschte geschwindigkeit? (1...9)";
  111 goto147
  112 poke59409,52
  113 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  114 poke15,bz:sys(z0)
  115 poke59409,60
  116 pokey+59,38*bz:pokey+57,37:pokey+58,131
  117 pokey+63,16:pokey+64,0:pokey+67,20:pokey+88,1
  118 pokey+51,20
  119 f=0:t=0
  120 fori=1to1000:next:goto131
  121 p=peek(y+59):f=f+1:t0=ti:sys(x):t0=ti-t0:t=t+t0
  122 p=p-peek(y+59):ifpeek(y+59)=0goto141
  123 ifp<>1thenprint"{up}{up}{up}{up}{rght}{rght}{rght}{rght}";p;"felder";
  124 ifp=1thenprint"{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}1 feld";
  125 print" in";int(t0/60);"sek. abgeraeumt"
  126 print"{rght}{rght}{rght}{rght}";f;"fehler -";peek(y+59);"feld";
  127 ifpeek(y+59)<>1thenprint"er";
  128 print" uebrig.{up}{up}"
  129 fori=1to1200:next
  130 fori=1to2:print"{rght}{rght}{rght}{rght}                                  ":next:print"{down}"
  131 pokey+53,0:pokey+54,0:pokey+61,10
  132 pokey+51,1+int(rnd(2)*38):ifggoto140
  133 i=rnd(2):n=abs(i-.5)
  134 ifn<0.1thenn=24
  135 ifn<0.3thenn=16
  136 ifn<0.4thenn=8
  137 ifn<1thenn=0
  138 pokey+54,0:ifi<0.5andnthenpokey+54,255:n=256-n
  139 pokey+53,n
  140 fori=1to500:next:goto121
  141 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}bei";bz;"balken
  142 print"{rght}{rght}{rght}{rght}{rght}alle felder in";f;"durchgaengen"
  143 print"{rght}{rght}{rght}innerhalb von";int(t/60);"sekunden bei{$a0}
  144 print"{rght}geschwindigkeit ";peek(y+66);" abgeraeumt.
  145 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}neues spiel oder neue
  146 print"{rght}{rght}{rght}{rght}{rght}{rght}geschwindigkeit? (j,n,1...9)
  147 pokeyy,0
  148 getc$:ifc$=""goto148
  149 ifc$="n"goto152
  150 ifc$>"0"andc$<="9"thenpokey+66,asc(c$)-48
  151 goto112
  152 end:goto145
    1 print"{clr}              squash"
    2 print"              {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}"
    3 print"{down}{down}{down}{down}{down}8 moves the bat up,2 down"
    4 g=100
    7 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}press a key to start"
    8 geta$:ifa$=""then8
    9 poke59464,0:poke59467,16:poke59466,15
   10 print"{clr}":poke59468,12:ti$="000000"
   15 bb=1:ss=10
   20 print"{down} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
   30 fora=1to21
   40 print"{CBM-M}                                    {$a0}{$a0}"
   50 next
   55 print"{up}{up}"
   60 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
   61 print" {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{up}"
   65 poke32848,108:poke33688,124
   66 print"{home} time= "ti$"  ball no"bb"{left} score= "ss"{left}  "
   70 n=-39:ifrnd(ti)>.499999thenn=41
   71 d=int(rnd(ti)*18)+33340
   72 poked,101:poked+40,101:poked-40,101
   75 m=int(rnd(ti)*20)*40+32889
   80 a=peek(151)
   81 poked,32:poked-40,32:poked+40,32
   85 ifa=18thend=d+40:ifd>33660thend=d-40
   86 ifa=50thend=d-40:ifd<32920thend=d+40
   87 poked,101:poked-40,101:poked+40,101
  100 ifa=18thendd=40
  180 ifpeek(n+m)=32then1000
  181 ifg>=90thenpoke59464,(g-90)*7
  190 g=peek(n+m)
  195 poke59464,0
  200 ifg=99andn=41thenn=-39:goto180
  210 ifg=99andn=39thenn=-41:goto180
  220 ifg=100andn=-39thenn=41:goto180
  230 ifg=100andn=-41thenn=39:goto180
  240 ifg=96thenpokem,32:goto1171
  250 ifg=101andn=41thenn=39:ss=ss+1
  260 ifg=101andn=-39thenn=-41:ss=ss+1
  270 ifg=103andn=-41thenn=-39
  280 ifg=103andn=39thenn=41
  290 ifg=108org=124thenn=n*-1:goto180
 1000 pokem,32:m=m+n:pokem,81
 1010 goto1310
 1171 bb=bb+1:ss=ss-1
 1172 print"{home} time= "ti$"  ball no"bb"{left} score= "ss"{left}  "
 1173 ifbb=10orss=0orval(ti$)>200then2000
 1183 poked,32:poked-40,32:poked+40,32:goto70
 1290 ifg=108or124thenn=n*-1:goto180
 1300 goto3000
 1310 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"ti$;spc(19);ss
 1320 goto80
 2000 print"{clr}{down}{down}{rght}{rght}you have used "bb-1" ball";:ifbb<>2thenprint"s";
 2005 print:print
 2010 print"{rght}{rght}you have had ";:a=val(mid$(ti$,3,2)):printa"minute";
 2012 ifa<>1thenprint"s";
 2015 print:print
 2020 print"  and";:a=val(right$(ti$,2)):printa"second";
 2022 ifa<>1thenprint"s";
 2025 print" of play":print
 2030 print"  your score is "ss
 2035 print
 2036 forg=1to20:geta$:next:a$=""
 2040 print"{down}{down}{down}{down}{rght}{rght}{rght}press{CBM-C}1{CBM-V}to go again"
 2050 geta$:ifa$=""then2050
 2060 ifa$="1"thenclr:goto10
 2070 poke59464,0:poke59466,254:poke59467,0
 3000 end
  100 poke59468,12:print"{clr}"tab(9)"***   starburst   ***"
  110 print"{down}you are under attack from a massive"
  120 print"{down}fleet of primitive aliens, who are bomb"
  130 print"{down}-ing you with homing atomic bombs."
  140 print"{down}{down}fortunately, your jamming devices take"
  150 print"{down}care of them, making them move randomly."
  160 print"they must be destroyed, however, before"
  170 print"{down}they hit your missile launcher [{CBM-W}{CBM-Q}] or"
  180 print"{down}your cities [{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}]."
  190 print"{down}{down}{down}press any key to continue."
  200 geta$:ifa$=""goto200
  210 print"{clr}aim your anti missile missiles [Q] with"
  220 print"{down}the neumeric keypad: 8=up, 2=down, 4="
  230 print"{down}left, 6=right. when the sights [V] are"
  240 print"{down}in the desired position, press {rvon}space{rvof} to"
  250 print"{down}launch your missile. up to 5 misiles may"
  260 print"be in flight at one time."
  270 print"{down}{down}good luck: the planet is depending upon"
  280 print"{down}you!"
  290 print"{down}{down}press any key to start."
  300 geta$:ifa$=""goto300
  310 dimmx(6),my(6),om(6),t(6),ex(11),ey(11),mv(11)
  320 a$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  330 d$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  340 deffnr(p)=p*rnd(1)
  350 print"{clr}"d$"ED{SHIFT-*}C{SHIFT-*}{rvon}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{rvof}{SHIFT-*}CDCEDE{CBM-T}EC{CBM-W}{CBM-Q}{SHIFT-*}FCR{CBM-@}RCFR{CBM-@}{rvon}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{rvof}{CBM-@}R{home}"
  360 om=0:cx=20:cy=10:em%=1+fnr(9):fori=1toem%
  370 ex(i)=fnr(40):ey(i)=fnr(10):mv(i)=3-fnr(6)
  380 next:vl%=20+fnr(30):print"{home}score"sc"value"vl%"hits"ht
  390 t=ti
  400 ifti-t>120goto550
  410 ifom=0thengosub670:goto400
  420 fori=1toom:gosub670
  430 printleft$(d$,my(i))left$(a$,mx(i))" "
  440 my(i)=my(i)-1:mx(i)=mx(i)+om(i):ifmy(i)<2thengosub1090
  450 printleft$(d$,my(i))left$(a$,mx(i))"Q";
  460 ifmy(i)<>t(i)goto540
  470 print"{left}{left}{left}{up}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{rvon}W{rvof}{CBM-+}{CBM-+}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{up}{up}{left}{left}{left}{left}{left}";
  480 forj=1toem%
  490 ifabs(ex(j)-mx(i))>3orabs(ey(j)-my(i))>1goto530
  500 fork=j+1toem%:ex(k-1)=ex(k):ey(k-1)=ey(k)
  510 mv(k-1)=mv(k):next:em%=em%-1:ht=ht+1:sc=sc+vl%
  520 ifem%<=0goto340
  530 next:print"     {down}{left}{left}{left}{left}{left}     {down}{left}{left}{left}{left}{left}     ":gosub1090
  540 next:goto400
  550 fori=1toem%:gosub670
  560 printleft$(d$,ey(i)+1)left$(a$,ex(i)+1)"{left}{up}."
  570 ey(i)=ey(i)+1:ex(i)=ex(i)+mv(i)
  580 ifex(i)<1thenex(i)=1:mv(i)=-mv(i)
  590 ifex(i)>39thenex(i)=39:mv(i)=-mv(i)
  600 ifey(i)<24goto660
  610 printd$left$(a$,ex(i)-1)"{CBM-POUND}{CBM-POUND}{CBM-POUND}";
  620 if(ex(i)>4andex(i)<12)or(ex(i)>19andex(i)<23)or(ex(i)>31andex(i)<39)goto820
  630 forj=i+1toem:ex(j-1)=ex(j):ey(j-1)=ey(j):mv(j-1)=mv(j):next
  640 em%=em%-1:next:ifem%>0goto390
  650 goto340
  660 printleft$(d$,ey(i))left$(a$,ex(i))"{CBM-POUND}":next:goto390
  670 getin$:ifin$<>""thenv$=in$
  680 ifin$=" "thenv$="":goto800
  690 printleft$(d$,cy)left$(a$,cx)" "
  700 ifv$="2"thency=cy+1:goto740
  710 ifv$="4"thencx=cx-1:goto740
  720 ifv$="6"thencx=cx+1:goto740
  730 ifv$="8"thency=cy-1
  740 ifcx<3thencx=3
  750 ifcx>37thencx=37
  760 ifcy<2thency=2
  770 ifcy>20thency=20
  780 printleft$(d$,cy)left$(a$,cx)"V"
  790 return
  800 ifom=5thenreturn
  810 om=om+1:t(om)=cy:mx(om)=20:my(om)=23:om(om)=(cx-20)/(23-cy):return
  820 fork=33767to32768step-1:pokek,peek(k)or128:next
  830 hc=ex(i)-2
  840 ifex(i)<6thenhc=6
  850 ifex(i)>34thenhc=34
  860 printleft$(d$,24)left$(a$,hc);
  870 print"{rvon}K  J";
  880 print"{up}{left}{left}{left}{left}{rvon}{SHIFT--}  {SHIFT--}";
  890 print"{up}{left}{left}{left}{left}{rvon}{SHIFT--}  {SHIFT--}";
  900 print"{up}{left}{left}{left}{left}{rvon}H  B";
  910 print"{up}{left}{left}{left}{left}{rvon}H  B";
  920 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}J{SHIFT-*}F{SHIFT-*}I  U{SHIFT-*}F{SHIFT-*}K";
  930 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}B          H";
  940 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}B          H";
  950 print"{up}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}U{SHIFT-*}{SHIFT-*}CCDDCC{SHIFT-*}{SHIFT-*}I";
  960 fork=1to1000:next
  970 print"{home}":forj=1to350:i=32768+fnr(1000):onfnr(4)goto980,990,1000
  980 pokei,170:goto1010
  990 pokei,171:goto1010
 1000 pokei,102
 1010 next
 1020 printleft$(d$,12)left$(a$,15)"the end.":fori=1to5000:next
 1030 print"{clr}you scored"sc"with"ht"hits."
 1040 print:print"do you want another game?"
 1050 getv$:ifv$=""goto1050
 1060 ifv$="y"thenrun310
 1070 ifv$<>"n"goto1050
 1080 stop
 1090 fork=i+1toom:om(k-1)=om(k):t(k-1)=t(k):mx(k-1)=mx(k):my(k-1)=my(k):next
 1100 om=om-1:return
    3 rem         written by .....                     ----------------------
    7 rem      ** walter e stewart **                  ----------------------
   10 poke 59467,16:poke 59466,81
   20 poke59468,14:goto 760
   30 print"{clr}";:poke59468,12
   35 b$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":s=ti
   40 a=32768:n=int(rnd(~)*5)+2:for i=1to 10
   50 t(i)=8:l(i)=int(rnd(~)*500)+500:next i
   60 gosub 180
   80 for i=1ton
   90 if l(i)<1 or l(i)>960 then l(i)=901
  100 poke(a+l(i)),t(i)
  110 x=int(rnd(~)*3)-1
  115 poke 59464,0
  120 if int(l/40)>int(l(i)/40)and x<>0thenx=40
  130 if int(l/40)<int(l(i)/40)and x<>0thenx=-40
  135 if int(l/40)=int(l(i)/40)then poke 59464,120:poke 59464,60
  140 l(i)=l(i)+x
  145 if l(i)=l goto 360
  150 next i
  155 poke 59464,0
  160 get e$:e=val(e$):if e>0 thene1=e:goto 260
  163 e2=peek(515)
  164 ife2<> 255 then e=e1:goto 260
  165 e1=0
  166 print"{clr}":ifh=1thenprint"{rvon}a hit{rvof}!!!{home}":poke59464,200:if ti-s>4750 goto 500
  170 gosub 180:gosub 250:goto 80
  180 printb$;:if ti-s>3000 then 205
  190 print:print spc(12)"{CBM-@}RF{SHIFT-*}CDE{CBM-T}{CBM-G} {CBM-M}{CBM-T}EDC{SHIFT-*}FR{CBM-@}"
  200 print"    {CBM-@}RF{SHIFT-*}CDE{CBM-T}       NEEEM       {CBM-T}EDC{SHIFT-*}FR{CBM-@}":return
  205 if ti-s>5000 goto230
  210 printspc(20)"N{CBM-T}M":printspc(12)"{CBM-@}RF{SHIFT-*}CDE{CBM-T}{CBM-G}W{CBM-M}{CBM-T}EDC{SHIFT-*}FR{CBM-@}
  220 goto 200
  230 printspc(20)"{CBM-@}{CBM-@}{CBM-@}":printspc(12)"{CBM-@}RF{SHIFT-*}CDE{CBM-T}   {CBM-T}EDC{SHIFT-*}FR{CBM-@}":if h=1 then 520
  235 print"{home}{rvon}you passed up the target":goto 700
  240 print"    {CBM-@}RF{SHIFT-*}CDE{CBM-T}                   {CBM-T}EDC{SHIFT-*}FR{CBM-@}":return
  250 poke(a+l),asc("V")-128:return
  260 if e=1then l=l+39
  270 if e=2then l=l+40
  280 if e=3then l=l+41
  290 if e=4then l=l-1
  295 if e=5 then poke 59464,255:poke 59464,9:poke59464,128:j2=j2+1
  300 if e=5andl=901 and ti-s>3000then h=1
  305 if j2=2 and h<>1 then print"{home}{rvon}you missed with both shots":goto 490
  310 if e=6then l=l+1
  320 if e=7then l=l-41
  330 if e=8then l=l-40
  340 if e=9then l=l-39
  344 if l>999 then l=999
  346 if l<0 then l=0
  350 goto 166
  360 c=41:d=40:e=39
  370 for f=1to3
  380 poke(a+l-c),asc("M")-128
  390 poke(a+l-d),asc("B")-128
  400 poke(a+l-e),asc("N")-128
  410 poke(a+l-f),asc("C")-128
  420 poke(a+l+f),asc("C")-128
  430 poke(a+l+e),asc("N")-128
  440 poke(a+l+d),asc("{SHIFT--}")-128
  450 poke(a+l+c),asc("M")-128
  460 print"{clr}":c=c+41:d=d+40:e=e+39
  470 next f
  475 if h=1 then print"you blew up Q{rvon}death star{rvof}Q but ";
  480 print"{rvon}you've been vaporized"
  490 goto 700
  500 if l>=860 and l<=862 or l=>900 and l<=902thenprint"{down}{rvon}pull up{rvof}!{home}"
  510 goto 170
  520 gosub 240
  530 if l>=860 and l<=862 or l=>900 and l<=902then 690
  540 a=32767:c=41:d=40:e=39:l=901
  550 for f=1to9
  560 poke(a+l-c),asc("M")-128
  570 poke(a+l-d),asc("{SHIFT--}")-128
  580 poke(a+l-e),asc("N")-128
  590 poke(a+l-f),asc("{SHIFT-*}")-128
  600 poke(a+l+f),asc("{SHIFT-*}")-128
  610 for i=0to 12 step 3
  615 poke 59464,f*i
  620 next i
  640 print"{clr}":c=c+41:d=d+80:e=e+39
  650 next f
  660 poke(a+l-d),asc("Q")-128
  666 poke 59464,0
  670 for i=1to12:next:print"{clr}";
  675 print"{rvon}great job{rvof} !!{rvon}you saved the rebellion{rvof} and {rvon}your self{rvof} !!!!!"
  680 goto 700
  690 poke (a+l),asc("Q")-128:print"{home}{down}{down}{down}{rvon}crash{rvof}!!!"
  700 print"play again?":poke 59464,0
  710 get a$:if a$="y" then run 35
  720 if a$ ="n"goto 740
  730 goto 710
  740 print"may the force be with you"
  750 poke 59467,0:poke 59466,0:poke 59464,0:end
  760 dima$(12):datas,t,a,r," ",f,i,g,h,t,e,r
  770 for i=1 to 12:reada$(i)
  780 next:print"{clr}"
  790 for i=1to120:a=int(rnd(~)*1000)+1
  800 poke 59464,a/4:poke32767+a,asc(".")
  810 if i/10=int(i/10)thenprinta$(i/10)"{down}";
  820 next:for i=1 to 2000
  830 next:print"{clr}{rvon}nEED INSTRUCTIONS{rvof} ?"
  835 poke59464,0
  840 get a$:if a$="n"goto30
  850 if a$="y"goto870
  860 goto 840
  870 print"{clr} yOU ARE{$a0}THE{$a0}CAPTAIN{$a0}OF{$a0}THE{$a0}x-WING CALL- ED THE'star fighter'.{down}"
  880 print" yOUR{$a0}MISSION{$a0}IS{$a0}TO{$a0}DESTROY{$a0}{rvon}death star{rvof}.{down}"
  890 print" yOU'LL HAVE 2 PHOTON TORPEDOES TO{$a0}SHOOT WITH.{down}"
  900 print" yOU{$a0}MUST{$a0}STAY{$a0}AWAY FROM THE{$a0}t.i.e.S 'h' SO{$a0}YOU{$a0}WON'T BE HIT.{down}"
  910 print" yOU{$a0}MUST{$a0}FLY{$a0}TILL{$a0}YOU{$a0}CAN SEE THE TOWER THEN{$a0}GET{$a0}AS{$a0}LOW{$a0}IN{$a0}THE ";
  920 print"TRENCH,THEN     {$a0}FIRE.{down}"
  925 print" yOU MUST GET OUT{$a0}OF{$a0}THE{$a0}TRENCH OR{$a0}YOU   WILL{$a0}CRASH{$a0}INTO{$a0}THE{$a0}TOWER."
  930 print"{down}hIT '{rvon}return{rvof}'TO CONTINUE."
  940 if peek(515)<>27 then 940
  950 print"{clr}";:poke59468,12
  960 print"          up         {CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}"
  970 print"          NM         {SHIFT--}7{SHIFT--}8{SHIFT--}9{SHIFT--}"
  980 print"          {CBM-M}{CBM-G}         {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
  990 print"   left <{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}> right {SHIFT--}4{SHIFT--} {SHIFT--}6{SHIFT--}"
 1000 print"          {CBM-M}{CBM-G}         {CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}"
 1010 print"          MN         {SHIFT--}1{SHIFT--}2{SHIFT--}3{SHIFT--}"
 1020 print"         down        {CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}            ";
 1025 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1030 print"{down} {CBM-A}{SHIFT-*}{CBM-S}            'V'=you"
 1040 print" {SHIFT--}5{SHIFT--} is to fire
 1050 print" {CBM-Z}{SHIFT-*}{CBM-X}            'h'=the enemy"
 1060 print"{down}{down}    {CBM-@}RF{SHIFT-*}CDE{CBM-T}{CBM-G}{$a0}{CBM-M}{CBM-T}EDC{SHIFT-*}FR{CBM-@} is the trench"
 1070 print"CDE{CBM-T}        L{CBM-@}{SHIFT-@}"
 1080 print"{down}{down}  N{CBM-T}M{down}{left}{left}{left}{CBM-G}W{CBM-M}{down}{left}{left}{left}L{CBM-@}{SHIFT-@}{up}  is the tower     shoot at the W"
 1090 print"{down}press '{rvon}return{rvof}' to start your mission"
 1100 if peek(515)>27 then 1100
 1110 goto 30
    1 rem orion-copyright 1978,automated simulations
    5 q=9:c%=32727:t%=0:b$="energy left="
   12 dimd%(9*q,1),x%(q,1),y%(q,1),sn%(q,1),h%(q,1),p%(9)
   15 dimns(1),ma%(q,1),bn%(q,1),tn%(q,1),f%(q,1),gn%(q,1),v%(8),w%(8)
   16 data0,-1,1,-1,1,0,1,1,0,1,-1,1,-1,0,-1,-1
   17 fori=1to8:readv%(i),w%(i):nexti
   20 print"{clr}"tab(9);"*******************":printtab(9);"* starfleet orion *"
   22 printtab(9);"* battle  program *":printtab(9);"*******************{down}"
   24 print"random ready,enter r{down}"
   25 geta$:r=rnd(1):ifa$<>"r"goto25
   30 print"enter scenario":inputa$
   50 open1,1,0,a$
   55 fori=0to1:input#1,a$:ns(i)=val(a$)
   60 forj=0tons(i):fork=0to8:input#1,a$:d%(j+k*q,i)=val(a$):nextk
   80 input#1,a$:x%(j,i)=val(a$):input#1,a$:y%(j,i)=val(a$)
   85 input#1,a$:ma%(j,i)=val(a$)
   87 ifx%(j,i)=0thenx%(j,i)=1+rnd(1)*40
   88 ify%(j,i)=0theny%(j,i)=1+rnd(1)*20
   90 nextj:nexti
   95 input#1,a$:pl=val(a$)
  100 fori=0to9 :input#1,a$:p%(i)=val(a$):nexti
  125 input#1,a$:b%=val(a$):input#1,a$:m%=val(a$):close1:goto210
  140 ifa>40thena=40
  141 ifa<1thena=1
  142 ifb>20thenb=20
  143 ifb<1thenb=1
  144 return
  146 d%(e,ij)=d%(e,ij)-1:h=h-1:return
  150 inputj:j=j-1
  170 ij=0:ifj>99thenij=1:j=j-100
  190 gosub195:forjj=1to3:print"                                       ":nextjj
  195 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":forjj=0to10:pokec%+jj+961,32:nextjj:return
  200 print"{clr}":gosub190:fori=0to1:forj=0tons(i)
  204 a=c%+x%(j,i)+40*y%(j,i):b=49+j+128*i:pokea,b:nextj:nexti
  206 ifpl=1thenpokec%+x%(0,1)+40*y%(0,1),81
  207 return
  210 gosub200:k=0:gosub195
  225 geta$:ifa$="c"thengosub190:goto225
  227 ifa$="s"goto310
  228 ifa$="o"goto410
  229 ifa$="m"goto705
  230 goto225
  310 gosub190:print"enter ship":gosub150
  320 print"ener"d%(j+6*q,ij);"drv"d%(j,ij);"beam"d%(j+q,ij);"shld"d%(j+2*q,ij)
  330 print"lnch"d%(j+3*q,ij);"msl"d%(j+4*q,ij);"torp"d%(j+5*q,ij):goto225
  410 mn=0:gosub190:print"enter ship":gosub150:n=j:ii=ij:ifn>=qorn<0goto225
  418 lx%=x%(n,ii):iflx%>40thenprint"not in play":goto225
  419 ly%=y%(n,ii):iff%(n,ii)>0thenprint"already entered":goto225
  420 e=d%(n+6*q,ii):gn%(n,ii)=0:dr=d%(n,ii)
  422 f%(n,ii)=1:ifpl*(n+1)*ii=1goto465
  425 print"x move (-left) mass=";int(ma%(n,ii)/36*100+.5)/100:inputxn:gosub190
  427 print"y move (-down)":inputyn:yn=-yn:gosub190
  430 de=int(ma%(n,ii)*sqr(xn*xn+yn*yn)/36+.99)
  450 ifde>ethenprint"energy short":goto425
  454 ifde>drthenprint"drive short":goto425
  456 a=lx%+xn:b=ly%+yn
  458 ifa>0anda<41andb>0andb<21goto464
  460 print"enter y for escape":inputa$:ifa$<>"y"goto425
  462 x%(n,ii)=726:y%(n,ii)=-819:goto225
  464 x%(n,ii)=a:y%(n,ii)=b:e=e-de:dr=dr-de:lx%=a:ly%=b:ife=0goto225
  465 ifm%=0ordr=0goto478
  466 a=dr:ife<athena=e
  467 print"tractor,max="a:inputl:gosub190:ifl=0goto478
  468 ifabs(l)>drthenprint"drive short":goto467
  469 ifabs(l)>ethenprint"energy short":goto467
  470 print"target":gosub150:ifj<0orj>qgoto470
  472 dr=dr-abs(l):e=e-abs(l):a=lx%-x%(j,ij):b=ly%-y%(j,ij)
  473 de=sqr(a*a+b*b):ll=l/((de/3+1)*ma%(j,ij)/36):ifde=0goto466
  474 s%=a*ll/de:ll=b*ll/de
  475 ifl>0thenifabs(s%)>abs(a)orabs(ll)>abs(b)thens%=a:ll=b
  476 a=x%(j,ij)+s%:b=y%(j,ij)+ll:gosub140:x%(j,ij)=a:y%(j,ij)=b
  477 ifdr>0ande>0goto466
  478 ifd%(n+q,ii)<=0goto530
  480 printb$;e;" beam":inputb:gosub190
  490 ifb>d%(n+q,ii)orb>ethenprint"too much":goto480
  505 ifb<=0goto530
  508 bn%(n,ii)=b:e=e-b
  510 print"target"
  520 inputb:b=b-1:gosub190
  524 ifb%=0thenh=100-100*ii:ifb<horb>(q+h)goto510
  530 tn%(n,ii)=b:ife=0goto225
  531 ifd%(n+2*q,ii)<=0goto551
  532 printb$;e;" shield":inputs%:gosub190
  540 ifs%>eors%>d%(n+2*q,ii)thenprint"too much":goto531
  545 ifs%<=0goto551
  550 e=e-s%:sn%(n,ii)=s%:ife=0goto225
  551 l=n+3*q:rs=d%(l+q,ii):ifd%(l,ii)=0orrs=0goto660
  552 printb$;e;"missiles":inputmn:gosub190
  554 ifmn<=0goto660
  560 ifmn>egoto552
  570 ifmn>d%(l,ii)thenprint"launch tubes short":goto552
  580 ifmn>rsthenprint"missiles short":goto552
  590 e=e-mn:d%(l+q,ii)=rs-mn
  610 forj=1tomn
  620 print"x,y (-left&down)":inputxn,yn:gosub190
  630 yn=-yn:ifsqr(xn*xn+yn*yn)-.01>p%(ii+4)thenprint"too far":goto620
  635 ifk>=99thenprint"too many missiles":goto650
  636 a=lx%+xn:b=ly%+yn:gosub140
  640 k=k+1:poke633+k,int(a):poke825+k,int(b):poke732+k,ii
  650 nextj
  660 ll=d%(n+5*q,ii):ife=0ord%(n+3*q,ii)=mnorll=0goto225
  670 print"torpedo direction (1 is up)":inputl:gosub190
  680 ifl>0thend%(n+5*q,ii)=ll-1
  682 gn%(n,ii)=l:goto225
  705 gosub190:t%=t%+1:print"turn"t%:fori=1to800:nexti
  706 gosub200:fori=0to1:forj=0tons(i):h%(j,i)=0:f%(j,i)=0:nextj:nexti
  710 forii=0to1:forn=0tons(ii)
  720 ifbn%(n,ii)<=0goto800
  730 j=tn%(n,ii):gosub170:ify%(j,ij)>20goto800
  740 d=sqr((x%(n,ii)-x%(j,ij))^2+(y%(n,ii)-y%(j,ij))^2)
  750 ifd=0goto760
  751 ifrnd(1)>(ma%(j,ij)^.67/(d*3.2*.9^d%(n+7*q,ii)+4))goto800
  760 l=bn%(n,ii)*10/(d+5)-d%(j+8*q,ij)
  762 a=c%+x%(j,ij)+40*y%(j,ij):b=peek(a)
  764 fori=1to25:pokea,102:l=sqr(l*l):pokea,b:l=sqr(l*l):nexti
  770 ifl>0thenh%(j,ij)=h%(j,ij)+int(l+.5)
  800 bn%(n,ii)=0:nextn:nextii
  818 ifk=0goto880
  820 forn=1tok:forij=0to1:forj=0tons(ij):k%=peek(633+n):j%=peek(825+n)
  825 b=abs(x%(j,ij)-k%):l%=abs(j%-y%(j,ij)):l=peek(732+n)
  826 a=p%(l)-d%(j+8*q,ij):ifa<0thena=0
  830 ifb=0andl%=0thenh%(j,ij)=h%(j,ij)+a:goto850
  832 e=p%(l+2)-d%(j+8*q,ij):ife<0goto850
  840 ifb<=1andl%<=1thenh%(j,ij)=h%(j,ij)+e
  850 nextj:nextij
  860 pokec%+k%+40*j%,42:nextn
  880 gosub1100:forij=0to1:forj=0tons(ij)
  892 h=h%(j,ij)-sn%(j,ij):sn%(j,ij)=0
  895 m=3:fori=0to7:m=m+d%(j+i*q,ij):nexti
  900 ifpl*ij*(j+1)=1andm=3orh<=0goto992
  910 r=rnd(1)*m:rs=0:rs=rs+d%(j+q,ij):ifr<rsthene=j+q:gosub146:goto990
  930 rs=rs+d%(j,ij):ifr<rsthene=j:gosub146:goto990
  940 e=j+2*q:rs=rs+d%(e,ij):ifr<rsthengosub146:goto990
  950 e=j+3*q:rs=rs+d%(e,ij):ifr<rsthengosub146:goto990
  960 e=j+4*q:rs=rs+d%(e,ij)/4:ifr>rsgoto970
  966 d%(e,ij)=d%(e,ij)-4:h=h-1:ifd%(e,ij)<0thend%(e,ij)=0
  969 goto990
  970 e=j+5*q:rs=rs+d%(e,ij)/2:ifr>rsgoto978
  974 d%(e,ij)=d%(e,ij)-2:h=h-1:ifd%(e,ij)<0thend%(e,ij)=0
  977 goto990
  978 e=j+6*q:rs=rs+d%(e,ij)+3:ifr>rsgoto910
  979 ifd%(e,ij)=0goto984
  980 gosub146:goto990
  984 ifpl*(j+1)*ij=1goto990
  985 e=c%+x%(j,ij)+40*y%(j,ij):pokee,102
  986 j%=46:e=e-41:pokee,j%:pokee+2,j%:pokee+80,j%:pokee+82,j%
  987 bn%(j,ij)=0:pokee-41,j%:pokee-37,j%:pokee+119,j%:pokee+123,j%
  988 x%(j,ij)=726:y%(j,ij)=-819:goto992
  990 ifh>0goto910
  992 nextj:nextij
  995 forj=1to800:j=j:nextj:goto210
 1100 fori=0to1:form=0tons(i)
 1103 l=gn%(m,i):vv=v%(l):ww=w%(l)
 1105 j=0:a=x%(m,i):b=y%(m,i):ifl=0goto1492
 1119 l%=vv+40*ww:ll=sqr(vv^2+ww^2)
 1130 l=c%+a+40*b+l%:j=j+ll:ifj>p%(i+8)goto1492
 1210 ifa+vv>40orb+ww>20goto1492
 1212 ifa+vv<1orb+ww<1goto1492
 1220 ifvv<>0andww<>0goto1300
 1230 e=1:goto1400
 1232 l%=40*ww+vv:l=l+l%:e=7:goto1400
 1240 d=1:ifww=0thend=40
 1250 l=l+d-l%:e=2:goto1400
 1252 l=l+d+l%:e=8:goto1400
 1255 l=l-3*d-l%:e=3:goto1400
 1262 l=l-d+l%:e=9:goto1400
 1300 e=4:goto1400
 1302 l=l+l%:e=10:goto1400
 1305 l=l-vv-l%:e=5:goto1400
 1312 l=l+l%-vv:e=11:goto1400
 1315 l=l-2*l%+3*vv:e=6:goto1400
 1330 l=l+vv:e=12:goto1400
 1350 a=a+vv:b=b+ww:pokec%+a+40*b,43
 1380 pokec%+a+40*b,32
 1390 goto1119
 1400 n=peek(l):ifn=32goto1406
 1401 ifn>48thenifn<50+qgoto1408
 1402 ifn>176thenifn<178+qgoto1408
 1404 ifn=42orn=81goto1408
 1406 onegoto1232,1252,1262,1302,1312,1330,1240,1255,1350,1305,1315,1350
 1408 pokel,43:mn=n
 1410 ifn=81thenn=177
 1412 ifn=42goto1490
 1415 ii=0:ifn>129thenii=1:n=n-128
 1420 n=n-49:ifn>q-1goto1490
 1425 e=p%(i+6)-d%(n+8*q,ii):ife<0thene=0
 1430 h%(n,ii)=h%(n,ii)+e
 1490 pokel,mn
 1492 gn%(m,i)=0:nextm:nexti:return
    1 rem builder, copyright 1978,automated simulations
    5 q=9
   11 dimd%(9*q,1),hd%(7*q,1),p%(9)
   12 dimx%(q,1),y%(q,1),ns(1),ma%(q,1)
   13 print"{clr}"tab(9);"*********************":printtab(9);"*  starfleet orion  *"
   14 printtab(9);"* scenario  builder *":printtab(9);"*********************{down}"
   15 print"this program builds scenario data tapes"
   16 print"for starfleet orion. to read out to"
   17 print"the end of the last scenario before"
   18 print"adding the next, enter yes (you must"
   19 print"know the name of that scenario)."
   20 inputc$:ifmid$(c$,1,1)="y"goto1000
   21 print"enter scenario to be built":inputa$
   22 print"insert previously positioned data tape"
   23 open1,1,1,a$:pl=0
   24 print"is #101 a planet":inputa$:ifmid$(a$,1,1)="y"thenpl=1
   27 fori=0to1:ps=0
   28 print"{clr}space battle initialization"
   30 print"player ";i+1:print"number of ships"
   40 inputns(i):ns(i)=ns(i)-1
   45 ifns(i)>q-1thenprint"too many ships":goto30
   46 print"enter damage (direct hit and near miss)  and range for missiles"
   47 inputp%(i),p%(i+2),p%(i+4):print"enter damage and range for torpedos"
   48 inputp%(i+6),p%(i+8)
   50 forj=0tons(i)
   51 print"ship";j+1
   53 ifj>0thenprint"is this ship the same as the previous   ship":inputc$
   54 ifj>0andmid$(c$,1,1)="y"thengosub3000:goto105
   56 print"energy,hits":inputd%(j+6*q,i),hd%(j+6*q,i)
   58 hd%(j+6*q,i)=d%(j+6*q,i)-hd%(j+6*q,i)
   60 print"drive,hits":inputd%(j,i),hd%(j,i):hd%(j,i)=d%(j,i)-hd%(j,i)
   70 print"beam,hits":inputd%(j+q,i),hd%(j+q,i)
   75 hd%(j+q,i)=d%(j+q,i)-hd%(j+q,i)
   80 print"shield,hits":inputd%(j+2*q,i),hd%(j+2*q,i)
   85 hd%(j+2*q,i)=d%(j+2*q,i)-hd%(j+2*q,i)
   86 print"enter armor thickness in inches":inputd%(j+8*q,i)
   90 print"launch tubes,hits":inputd%(j+3*q,i),hd%(j+3*q,i)
   95 hd%(j+3*q,i)=d%(j+3*q,i)-hd%(j+3*q,i)
  100 print"missiles,hits":inputd%(j+4*q,i),hd%(j+4*q,i)
  101 hd%(j+4*q,i)=d%(j+4*q,i)-hd%(j+4*q,i)
  102 print"torpedos,hits":inputd%(j+5*q,i),hd%(j+5*q,i)
  104 hd%(j+5*q,i)=d%(j+5*q,i)-hd%(j+5*q,i)
  105 print"x,y":inputx%(j,i),y%(j,i)
  106 ifx%(j,i)>40orx%(j,i)<0thenprint"x out of range":goto105
  108 ify%(j,i)=0goto110
  109 y%(j,i)=21-y%(j,i):ify%(j,i)>20ory%(j,i)<0thenprint"y out of range":goto105
  110 s=d%(j+2*q,i):b=d%(j,i):e=d%(j+6*q,i)
  111 ma%(j,i)=int(d%(j+4*q,i)/4+d%(j+3*q,i)+s+d%(j+q,i)+b+e+d%(j+5*q,i)/2)
  115 a=d%(j+8*q,i)*.291594029*ma%(j,i)^(2/3):ma%(j,i)=ma%(j,i)+a
  116 f%(j,i)=0:print"beam quality":inputb
  117 d%(j+7*q,i)=b
  118 print"ship's mass is";int(ma%(j,i)/.36+.5)/100
  119 pt%=hd%(j+6*q,i)+hd%(j,i)+hd%(j+2*q,i)+hd%(j+3*q,i)
  120 pt%=pt%+int(hd%(j+5*q,i)/2+hd%(j+4*q,i)/4+a/4+(b+5)/10*hd%(j+q,i)+.5)
  121 print"ship's point value is";pt%:ps=ps+pt%
  122 print"do you want to revise this ship,"
  123 inputc$
  124 ifmid$(c$,1,1)="y"thenj=j-1:ps=ps-pt%
  125 nextj
  126 print"{clr}summary order of battle"
  127 print"#  ener drv beam shld lnch msl torp arm"
  128 forj=0tons(i)
  129 a=d%(j,i):b=d%(j+q,i):c=d%(j+2*q,i)
  130 e=d%(j+3*q,i):f=d%(j+4*q,i):g=d%(j+5*q,i)
  132 h=d%(j+6*q,i):k=d%(j+8*q,i)
  135 printj+1;h;tab(8);a;tab(13);b;tab(18);c;tab(23);e;tab(27);f;tab(32);g;k
  140 a=hd%(j,i):b=hd%(j+q,i):c=hd%(j+2*q,i)
  145 e=hd%(j+3*q,i):f=hd%(j+4*q,i):g=hd%(j+5*q,i)
  147 h=hd%(j+6*q,i)
  150 printtab(3);h;tab(8);a;tab(13);b;tab(18);c;tab(23);e;tab(27);f;tab(32);g
  170 nextj
  171 print"{down}missiles-damage:"p%(i);p%(2+i);" range:"p%(4+i)
  172 print"torpedos-damage:"p%(6+i);" range:"p%(8+i)
  175 print"{down}total point value=";ps
  180 print"do you want to revise this side":inputc$:ifmid$(c$,1,1)="y"theni=i-1
  190 nexti
  200 fori=0to1:a$=str$(ns(i)):print#1,a$
  210 forj=0tons(i):fork=0to8
  220 ifk>=7thena$=str$(d%(j+k*q,i)):print#1,a$
  225 ifk<7thena$=str$(hd%(j+k*q,i)):print#1,a$
  230 gosub2248
  231 nextk
  232 a$=str$(x%(j,i)):print#1,a$
  233 gosub2248
  234 a$=str$(y%(j,i)):print#1,a$
  235 gosub2248
  236 a$=str$(ma%(j,i)):print#1,a$
  237 gosub2248
  240 nextj:nexti
  244 a$=str$(pl)
  246 print#1,a$
  248 gosub2248
  250 fori=0to9:a$=str$(p%(i))
  252 print#1,a$
  254 gosub2248
  256 nexti
  260 print"can a ship beam others on the same side"
  270 bl=0:inputa$:ifmid$(a$,1,1)="y"thenbl=1
  280 a$=str$(bl)
  290 print#1,a$:gosub2248:bl=0
  300 print"are tractor beams permitted":inputa$:ifmid$(a$,1,1)="y"thenbl=1
  310 a$=str$(bl)
  320 print#1,a$:gosub2248
  330 close1
  340 print"scenario complete"
  350 end
 1000 print"enter name of last scenario"
 1010 inputc$
 1020 open1,1,0,c$
 1030 fori=0to1
 1040 input#1,a$:ns(i)=val(a$)
 1050 forj=0tons(i):fork=0to8
 1060 input#1,a$
 1080 nextk
 1090 input#1,a$
 1100 input#1,a$
 1110 input#1,a$
 1120 nextj:nexti
 1140 input#1,a$
 1150 fori=0to9:input#1,a$:nexti
 1160 input#1,a$
 1165 input#1,a$
 1170 close1
 1180 gosub2248:gosub2248
 1190 print"{down}**press stop**{down}"
 1200 goto21
 2248 forl=1to10:poke59411,53:nextl:poke59411,61
 2250 return
 3000 fork=0to8
 3010 d%(j+k*q,i)=d%(j-1+k*q,i)
 3020 ifk<7thenhd%(j+k*q,i)=hd%(j-1+k*q,i)
 3030 nextk
 3040 return
:{stop}{CTRL-L}{wht}{$e9}{$a0}{$a0}{$a0}{$a0}{$61} {$e9}{$a0}{CBM-*}  {$a0}{$ef}{CBM-*}{$00}{CTRL-L}{CTRL-F}_{CBM-*} {$a0}   {$a0}{$62}{$a0}  {$a0}{$f7}{$69}{$00}{$0a}{CTRL-G}{$f7}{$f7}{$f7}{$69} {$a0}   {$a0} {$a0}  {$a0}_{$f7}{$f7}{$f7}{$00}{$0a}{ensh}{$a0}{$ef}{$ef} {$e9}{$a0}{CBM-*} {$a0}{$ef}{CBM-*} {$e9}{$e2}{CBM-*} {$a0}{$e2}{$e2}{$00}{$0a}{$0a}{$a0}{$62}{$7b} {$f6} {$f5} {$a0}{$f7}{$69} {$a0}   {$a0}{$62}{$00}{$0a}{CTRL-K}{$a0}  {$60}_{$a0}{$69} {$a0}_{$f7}{$f7}{$a0}{$62}{$69} {$a0}{$62}{$62}{$00}{$00}{rvon}{CTRL-O}{CTRL-W}{CTRL-O}{CTRL-W}!{$00}{CTRL-L}{down}{CTRL-A} {swlc}{wht}{CTRL-W} {dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht}!{$00}{$00}{dish}{CTRL-P}{ensh}{swlc}{ensh}{del}{ensh}{CTRL-A}{CTRL-L} {wht}{swlc}{wht}{rvon}{CTRL-G}{CTRL-Y} {CTRL-U}{swlc}{ensh}{del}{home}:{$00}{CTRL-K}{home}{dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht}:{$00}{$00}{$80}]{$7a}{$00}{CTRL-P}{CBM-Y}{$63}{$00}{CTRL-K}{CTRL-D}{$0a}{$00}{yel}1037{$00}{$00}{$00}{SHIFT-POUND}{clr} R~{SHIFT-POUND}{$00}{CBM-I}@{left}P{CTRL-B}J{CTRL-P}{$fa}{SHIFT-POUND}{CTRL-P}{sret}O{CTRL-B}P{$6e}{$ee}D{CTRL-B}l1{$e6}lp{CTRL-D} :{CTRL-O} k{CTRL-O} {$82}{CTRL-O} X{CTRL-D}{CBM-Z}D{CTRL-B}I{CTRL-F}{blk}{$f9}{SHIFT-POUND}{$00}{sret}D{CTRL-B}{CBM-Z}{rvon}{$e8}I{$ee}{$f0}{$de}{CBM-Z}{CBM-D}{CTRL-B}{CTRL-P}{$e5} {f7}{CTRL-O}{SHIFT-POUND}{$00}{f1}{yel} {$e9}{CTRL-O}8{CBM-O}P{CTRL-B}{$ed}{CBM-A}{CTRL-B}{CBM-O}{$e0}{CTRL-B}{$ed}{CBM-E}{CTRL-B}{CBM-O}{$f0}{CTRL-B}{$ed}{CBM-R}{CTRL-B}{CBM-A}"{CBM-Z}{CBM-A}{CTRL-B}{lgrn}P{CTRL-B}{CBM-Z}{CBM-E}{CTRL-B}{lgrn}{$e0}{CTRL-B}{CBM-Z}{CBM-R}{CTRL-B}{lgrn}{$f0}{CTRL-B} {clr}{CTRL-O}{CBM-I}{$00} {CBM-E}{CTRL-O}{CBM-I}{$7c} {CBM-E}{CTRL-O} {$f2}{CTRL-O} {clr}{CTRL-O}{CBM-I}{$00} {CBM-E}{CTRL-O}{CBM-I}{gry2} {CBM-E}{CTRL-O}{CBM-I}{CTRL-O} {$e9}{CTRL-O}{CBM-O}{$f0}{CTRL-B} %{swlc}{CBM-O}{$e0}{CTRL-B}  {swlc}{CBM-O}P{CTRL-B}  {swlc}{gry2}{ensh}0{sret}{yel}{$82} {$f2}{CTRL-O}I {$f0}{stop}l,{CTRL-D}{SHIFT-POUND}{CBM-B}{sret}{yel}{$82} {$f2}{CTRL-O}{$0a}{$0a}{$0a}{$0a}{$f0}{$f7}{sret}O{CTRL-B}PFX {f6}
{CBM-Z}{CBM-N}{CTRL-B}P{CTRL-L}{CBM-Z}{CBM-Q}{CTRL-B}P{CTRL-G}{SHIFT-POUND}{CTRL-A}{sret}{CBM-D}{CTRL-B}P{home}{$f8}{CBM-Z}{CBM-N}{CTRL-B}8{$e9}{CTRL-A}{sret}{CBM-N}{CTRL-B}{CBM-Z}{CBM-Q}{CTRL-B}{$e9}{$00}{sret}{CBM-Q}{CTRL-B}X{CBM-I}{CBM-F}{CBM-Z}{CBM-Q}{CTRL-B}  {swlc}{CBM-Z}{CBM-N}{CTRL-B}  {swlc}P{stop}l9{CTRL-F}{$ee}{CBM-V}{CTRL-B}{CBM-Z}{CBM-X}{CTRL-B}P{$67}{CBM-D}{lred}{CTRL-B}{CBM-O}{$00}CI{CTRL-B}{CBM-A}{$eb}{CBM-Z}{CBM-D}{CTRL-B}P{$e6}{SHIFT-POUND}{CTRL-A}{sret}{CBM-X}{CTRL-B}{$ee}{lred}{CTRL-B}{CBM-D}{CBM-V}{CTRL-B}{CBM-O}{$00}D{CTRL-P}{CTRL-O}){blu}{sret}{CBM-O}{CTRL-B}{CBM-O}{down}D){CTRL-O}{sret}{CBM-F}{CTRL-B}{CTRL-P}{$0a}{SHIFT-POUND}{home}{sret}{CBM-O}{CTRL-B}{SHIFT-POUND}{$0a}{sret}{CBM-F}{CTRL-B}{CBM-O}{$00}E){CTRL-G}{CBM-POUND}{CBM-O}{$80}{grn}{sret}{CBM-B}{CTRL-B}{CBM-O}{f7}{grn}{sret}{SHIFT-*}{CTRL-B}{CBM-O}{$00}H){CTRL-G}{CBM-POUND}{CBM-O}{$80}{grn}{sret}A{CTRL-B}{CBM-O}{f7}{grn}{sret}B{CTRL-B}{SHIFT-POUND}{$00}{sret}{CBM-U}{CTRL-B}{sret}{SHIFT-@}{CTRL-B}l/{CTRL-F}{CBM-Z}{CBM-X}{CTRL-B}I{$0a}P={$a0}g{SHIFT-POUND}{$00}{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{CBM-R}{CBM-Z}C{CTRL-B}j{CBM-A}{down}{CBM-E}{CBM-E}{ensh}{$80}{up}{CBM-E}{f7}{SHIFT-*}~P{$f5}F{CBM-R}0{$f1}{CTRL-P}{CTRL-O}{CBM-E}{CBM-E}){$7f}{up}{CBM-E}{f7}{SHIFT-*}~P{$f5}F{CBM-R}0{$f1}NC{CTRL-B}P{$7b}{SHIFT-POUND}{$00}{sret}{CBM-X}{CTRL-B}l9{CTRL-F} {$e0}{swlc}{CBM-Z}{CBM-C}{CTRL-B}{$69}{$60}{sret}{CBM-C}{CTRL-B}{blk}{stop}{$ee}{CBM-X}{CTRL-B}{CBM-Z}{CBM-X}{CTRL-B}I{$0a}P{rvon}{SHIFT-POUND}{$0a}{sret}C{CTRL-B}{SHIFT-POUND}{CTRL-P}{sret}{CBM-S}{CTRL-B}{SHIFT-POUND}{$64}{sret}{CBM-Z}{CTRL-B}l9{CTRL-F}{CBM-Z}{CBM-U}{CTRL-B}{CTRL-X}{$6d}{CBM-B}{CTRL-B}{sret}{CBM-U}{CTRL-B}{CBM-Z}{CBM-O}{CTRL-B}{$6d}{SHIFT-*}{CTRL-B}{CBM-D}{lblu}{CTRL-B}{CTRL-X}{$79}{SHIFT-POUND}{CTRL-Y}{sret}{CBM-O}{CTRL-B}0)I'{CBM-A}%{CBM-Z}{SHIFT-@}{CTRL-B}{CTRL-X}{$6d}A{CTRL-B}{sret}{SHIFT-@}{CTRL-B}{CBM-Z}{CBM-F}{CTRL-B}{$6d}B{CTRL-B}{CBM-D}{lblu}{CTRL-B}{CTRL-X}{$79}A{CTRL-Y}{sret}{CBM-F}{CTRL-B}0{ensh}I{CTRL-U}{CBM-A}{wht} {$79}{swlc}{$f0}{wht}{SHIFT-POUND}{$00}{sret}{CBM-X}{CTRL-B}N{CBM-Z}{CTRL-B}P{swlc}{CBM-Z}{CBM-S}{CTRL-B}0{ensh}{$0a}{sret}{CBM-S}{CTRL-B}{SHIFT-POUND}{$64}{sret}{CBM-Z}{CTRL-B}{CBM-I}{CBM-G}{CBM-Z}{CBM-S}{CTRL-B}  {swlc}{CBM-I}{CBM-J}{CBM-Z}{CBM-R}{CTRL-B} %{swlc}{CBM-Z}{CBM-E}{CTRL-B}  {swlc}{CBM-Z}{CBM-A}{CTRL-B}  {swlc}{SHIFT-POUND}{CTRL-O}{CBM-I}{$00}{$a0}{stop}{SHIFT--}{$69}{CTRL-Y}{$f0}{swlc}{$e8}{$e8}{$e0}{dish}P{$f5}8{$e9}{CTRL-A}{CBM-I}{$00}l{$6e}{CTRL-F}h{f4}{lgrn}{blk}{CTRL-Y}{$68}{f7}{CTRL-P}{$e9}{CBM-I}{$00}{swuc}{gry2}{CTRL-B}{CBM-X}{blk}{CTRL-Y}{CBM-N}{swuc}{brn}{CTRL-B}{CBM-X}{$69}{CTRL-Y}{$f0}4{sret}{rvof}{CTRL-B}{CBM-X}{$71}{CTRL-Y}{sret}{blk}{CTRL-B}{CBM-X}{$79}{CTRL-Y}{sret}{up}{CTRL-B} O{CTRL-G}{CBM-S}{brn}{CTRL-B}{CBM-X}{$e0}{CTRL-Y}P{stop} {$ea}{CTRL-F}{CBM-X}{$69}{CTRL-Y}{$f0}{rvon}{sret}{rvof}{CTRL-B}{CBM-X}{$71}{CTRL-Y}{sret}{blk}{CTRL-B}{CBM-X}{$79}{CTRL-Y}{sret}{up}{CTRL-B} {$7c}{CTRL-G}{$ee}{gry2}{CTRL-B}{CBM-Z}{gry2}{CTRL-B}I{CTRL-D}P{stop}lf{dish}{CBM-N}{CBM-X}{blk}{CTRL-Y}{CBM-N}{swuc}{brn}{CTRL-B}l{lred}{CTRL-F} {$7c}{CTRL-G} {wht}{swlc}{CBM-D}{lred}{CTRL-B}{$ee}{lred}{CTRL-B}{$79}{$00}{$e0}h){CTRL-B}{CBM-POUND}{CTRL-X}{CBM-X}{$70}{CTRL-Y}{$79}{$80}{CTRL-Y}{left}{$70}{CTRL-Y}{CBM-X}{$71}{CTRL-Y}{$79}{orng}{CTRL-Y}{left}{$71}{CTRL-Y}{$68}j){CTRL-B}{CBM-POUND}{CTRL-X}{CBM-X}{$78}{CTRL-Y}{$79}{$80}{CTRL-Y}{left}{$78}{CTRL-Y}{CBM-X}{$79}{CTRL-Y}{$79}{orng}{CTRL-Y}{left}{$79}{CTRL-Y}{CBM-X}{$69}{CTRL-Y}{$0a}{$0a}{CBM-C}{f7}{CTRL-Y}{CTRL-P}{CTRL-B}{$0a}{$0a}{CBM-D}{gry1}{CTRL-B}{CTRL-P}{CTRL-B}i~{CTRL-X}{$7d}{$68}{CTRL-Y}{left}{$68}{CTRL-Y}{SHIFT-POUND}{$00}{CBM-D}{gry1}{CTRL-B}{CTRL-P}{CTRL-B}{SHIFT-POUND}{CTRL-O}{$7d}{$69}{CTRL-Y}){CTRL-O}{left}{$69}{CTRL-Y}{CBM-X}{$71}{CTRL-Y}0
Ip{blk}{CTRL-P}{SHIFT-POUND}{$00}{left}{$68}{CTRL-Y}{left}{$69}{CTRL-Y}{$60}IH{CBM-A}{stop}ly{CTRL-G}{CBM-X}{$79}{CTRL-Y}0{CTRL-G}I+{blk}{$ef}ly{CTRL-G}I{$ea}{CBM-A}{$e8}ly{CTRL-G} "{dish}{CBM-S}{inst}{CTRL-B}0&{$e0}{CTRL-U}{CBM-A}"{CBM-X}{$60}{CTRL-P}{f1}{CBM-E}{CBM-X}@{CTRL-P}{f1}{CBM-R}{CBM-Z}{clr}{CTRL-B}0{home}I'{CBM-A}{CTRL-O}{CTRL-X}{$65}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{f1}{CBM-E}{CBM-E}{$00}{CBM-I}{$00}{orng}{CBM-E}HP{CTRL-B}{$e6}{CTRL-A}{CBM-E}{$00}P{CTRL-A}{$60}{CTRL-X}{$6d}{clr}{CTRL-B}{sret}{clr}{CTRL-B}HP{CTRL-B}{$e6}{CTRL-A}{CBM-E}{$00}{$f0}{stop}{$ee}{inst}{CTRL-B}HP{CTRL-B}{$e6}{CTRL-A}l{$7f}{CTRL-G} "{dish}{CBM-S}{inst}{CTRL-B}0&{$e0}{CTRL-U}{CBM-A}"{CBM-X}{$60}{CTRL-P}{f1}{CBM-E}{CBM-X}@{CTRL-P}{f1}{CBM-R}{CBM-Z}{clr}{CTRL-B}0{home}I'{CBM-A}{CTRL-O}{CTRL-X}{$65}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{f1}{CBM-E}{SHIFT-POUND} {CBM-I}{$00}{orng}{CBM-E}HP{CTRL-B}{$e6}{CTRL-A}{CBM-E}{$00}P{CTRL-A}{$60}{CTRL-X}{$6d}{clr}{CTRL-B}{sret}{clr}{CTRL-B}HP{CTRL-B}{$e6}{CTRL-A}{CBM-E}{$00}{$f0}{stop}{$ee}{inst}{CTRL-B}HP{CTRL-B}{$e6}{CTRL-A}lR{CTRL-G}{CBM-S}{rvof}{CTRL-B}{CBM-X}{$00}{CTRL-P}{f1}{$00}{CBM-X}{CTRL-P}{CTRL-P}{f1}{CTRL-A}{CBM-Z}{blk}{CTRL-B}8{$fd} {CTRL-P}{sret}{clr}{CTRL-B}{CBM-Z}{up}{CTRL-B}8{$fd}0{CTRL-P}{sret}{inst}{CTRL-B}{$a0}{$00}{$60}{CBM-I}#{CBM-Z}{SHIFT-+}{CTRL-Y}{CTRL-X}{$7d}{pur}{CTRL-Z}I{del}{blk}{CTRL-B}{$e9}{del}{CBM-POUND}{CBM-O}{$60}{CTRL-P}{f1}{CBM-E}{CBM-O}@{CTRL-P}{f1}{CBM-R}{CBM-Z}Y{CTRL-Y}{CTRL-X}{$7d}{$78}{CTRL-Z}I&{blk}{CTRL-B}{$e9}&{CTRL-X}{$65}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{f1}{CBM-E}{$a0}{$00}{CBM-E}{CBM-E}){$7f}I.P{CTRL-D}{SHIFT-POUND} {up}{CBM-E}J{CTRL-P}A{CBM-S}{lblu}{CTRL-B}{CTRL-X}{CBM-Z}Y{CTRL-Y}{$7d}{SHIFT-POUND}{CTRL-Y}0{ensh}I&{blk}{CTRL-B}{$e9}&l{cyn}{dish}{CTRL-X}{$69}&{sret}Y{CTRL-Y}{CTRL-X}{CBM-Z}{SHIFT-+}{CTRL-Y}{$7d}A{CTRL-Y}0{ensh}I{del}{blk}{CTRL-B}{$e9}{del}l{CBM-Y}{dish}{CTRL-X}{$69}{del}{sret}{SHIFT-+}{CTRL-Y}{CBM-I}#{CBM-Z}{SHIFT-+}{CTRL-Y}{CTRL-X}{$7d}{pur}{CTRL-Z}I{del}{blk}{CTRL-B}{$e9}{del}{CBM-POUND}{CBM-O}{$60}{CTRL-P}{f1}{CBM-E}{CBM-O}@{CTRL-P}{f1}{CBM-R}{CBM-Z}Y{CTRL-Y}{CTRL-X}{$7d}{$78}{CTRL-Z}I&{blk}{CTRL-B}{$e9}&{CTRL-X}{$65}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{f1}{CBM-E}{$a0}{$00}{CBM-E}{CBM-E}){$7f}I P{CTRL-D}{SHIFT-POUND}.{up}{CBM-E}J{CTRL-P}A{CBM-I}{CTRL-F}{$ee}{lred}{CTRL-B}{CBM-X}{$69}{CTRL-Y}{$f0}{CTRL-G}JJ{CTRL-P}{$f7}li{ensh}{CBM-D}{lred}{CTRL-B}{CBM-O}{$00}{SHIFT-*}0{CTRL-D}jl{red}{ensh}IP{blk}-{left}{$71}{CTRL-Y}{CBM-O}{CTRL-B}{SHIFT-*}0{wht}jjl-{ensh}I{$f0}{blk}{red}{left}{$79}{CTRL-Y}H{CBM-O}{$00}{SHIFT-*}){$80}{left}{f7}{CTRL-Y}{CBM-Z}{gry1}{CTRL-B}{CTRL-P}{dish}{SHIFT-POUND}{CTRL-O}{left}{$69}{CTRL-Y}li{ensh}{$fe}{$69}{CTRL-Y} {swlc}{CTRL-L}{CBM-I}{CTRL-F}{$a0}{$00}{CBM-X}{$e8}{CTRL-Y}{f1}{CBM-E}{CBM-X}{$e9}{CTRL-Y}{f1}{CBM-R}{CBM-X}{$f0}{CTRL-Y}{up}{CBM-E}JJ{CTRL-P}{$ed}{CBM-Z}{CBM-I}{CTRL-B}{$f0}{CTRL-F}N{CBM-I}{CTRL-B}l{$80}{ensh}{CBM-Z}{pur}{CTRL-B}{$f0}
{CBM-Z}{gry1}{CTRL-B}i{$80}{sret}{gry1}{CTRL-B}{SHIFT-POUND}0{sret}{CBM-I}{CTRL-B}{CBM-Z}{gry1}{CTRL-B}{CBM-Z}{gry1}{CTRL-B}{CTRL-P}{CTRL-D}{CBM-I}{CTRL-G}P{CTRL-B}{CBM-I}{CTRL-F}{SHIFT-POUND}{CBM-Q}{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{CBM-R} {swlc}
{CBM-I}{dish}{SHIFT-POUND}{f2}{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{$00} {swlc}
{CBM-I}{CTRL-F}{SHIFT-POUND}{CTRL-Y}{sret}{CBM-T}{CTRL-B}{SHIFT-POUND}{CTRL-V}{sret}{CBM-@}{CTRL-B}{CBM-X}{$69}{CTRL-Y}{$f0}7{CBM-X}{$71}{CTRL-Y}0{$0a}{$ee}{CBM-T}{CTRL-B}I'{blk}{stop}{$ee}{CBM-T}{CTRL-B}{CBM-X}{$79}{CTRL-Y}0{$0a}{$ee}{CBM-@}{CTRL-B}I{CTRL-U}{blk}{stop}{$ee}{CBM-@}{CTRL-B}{CBM-D}{CBM-@}{CTRL-B}{CBM-O}{$60}{CTRL-P}{CTRL-X}{$6d}{CBM-T}{CTRL-B}{f1}{CBM-E}{CBM-O}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{$a0}{$00}{SHIFT-POUND}{f7}{up}{CBM-E}JJ{CTRL-P}{CBM-L}{CBM-Z}{SHIFT-POUND}{CTRL-B}{$f0}5{CBM-Z}{CBM-G}{CTRL-B}{$f0}{stop}8{$e9}{CTRL-F}{CBM-N}{SHIFT-POUND}{CBM-T}8{$fd}j{rght}{f1}{CBM-E}{SHIFT-POUND}{orng}{f1}{CBM-R}{f4}{CTRL-X}{$69}3{CBM-N} {swlc}
{CBM-Z}{CBM-G}{CTRL-B}P{home}{SHIFT-POUND}{$00}{sret}{SHIFT-POUND}{CTRL-B}{CBM-Z}{CBM-P}{CTRL-B}{CTRL-P}{ensh}{CBM-Z}{CBM-S}{CTRL-B}jjj 5{swlc}l2{$0a}l{CBM-V}{$0a}{CBM-Z}{SHIFT-POUND}{CTRL-B}P{$f8}{CBM-S}{CBM-P}{CTRL-B}0{$f3}{CBM-Z}{CBM-W}{CTRL-B}P5{CBM-X}{$69}{CTRL-Y}{sret}{CBM-Y}{CTRL-B}jj{CTRL-X}{$69}{CTRL-G}{sret}{CBM-H}{CTRL-B}{CBM-X}{$71}{CTRL-Y}{sret}{CBM-J}{CTRL-B}{CBM-X}{$79}{CTRL-Y}{sret}{CBM-L}{CTRL-B}{SHIFT-POUND}{$00}{left}{$69}{CTRL-Y}{left}{$e0}{CTRL-Y}{CBM-Z}{CBM-S}{CTRL-B} 5{swlc}{CBM-I}{CTRL-A}{swuc}{CBM-W}{CTRL-B}{SHIFT-POUND}* o{swlc}l{CBM-V}{$0a}{CBM-N}{SHIFT-POUND}  o{swlc}{$ee}{CBM-W}{CTRL-B}{CBM-S}{CBM-W}{CTRL-B}{$ec}{CBM-H}{CTRL-B}{$f0}{dish}{SHIFT-POUND}* o{swlc}l{CBM-V}{$0a}{CBM-Z}{CBM-J}{CTRL-B}{sret}{blk}{CTRL-B}{CBM-Z}{CBM-L}{CTRL-B}{sret}{up}{CTRL-B}{CBM-Z}{CBM-Y}{CTRL-B}{sret}{rvof}{CTRL-B} O{CTRL-G}{SHIFT-POUND}{$00}{sret}{CBM-K}{CTRL-B}{sret}{CBM-W}{CTRL-B}{SHIFT-POUND}{$80}{sret}{CBM-P}{CTRL-B}{SHIFT-POUND}@{f1}{CBM-E}{SHIFT-POUND}{$82}{f1}{CBM-R}{CBM-I}{wht} {swlc}
{CBM-S}{CBM-G}{CTRL-B}P4{CBM-Z}{CBM-+}{CTRL-B}P{CTRL-X}{CBM-Z}{gry3}{CTRL-B}{$f0}{dish}{CBM-I}{CTRL-A}{swuc}{CBM-G}{CTRL-B}l{$f7}{$0a}{CBM-Z}{CBM-POUND}{CTRL-B}{$f0}zN{CBM-POUND}{CTRL-B}l4{CTRL-K}N{CBM-+}{CTRL-B}P{wht}{SHIFT-POUND}{$00}{sret}{CBM-POUND}{CTRL-B}{CBM-I}{$0a}{SHIFT-POUND}i{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{CBM-R}l{swlc}
{SHIFT-POUND}{stop}{sret}{CBM-M}{CTRL-B}{CBM-Z}{CBM-G}{CTRL-B}{$0a}{$0a}m{CBM-M}{CTRL-B}{$0a}{CBM-N}{CBM-X}{$74}{blu}{f1}{CBM-E}{CBM-X}{$75}{blu}{f1}{CBM-R}{f4}j{CBM-POUND}{CBM-V}P{blu} {swlc}
N{CBM-M}{CTRL-B}{CTRL-P}{$de}{$ee}{CBM-POUND}{CTRL-B}{$ee}{CBM-G}{CTRL-B}{CBM-Z}{CBM-G}{CTRL-B}I{CTRL-G}{CBM-A}{$69}I{CTRL-L}P{wht}{SHIFT-POUND}{$00}{sret}{CBM-G}{CTRL-B}{SHIFT-POUND}i{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{CBM-R}{CBM-I}{ensh} {swlc}
{CBM-Z}{CBM-POUND}{CTRL-B}j{$f0}{CTRL-W}{CBM-N}{SHIFT-POUND}{$66}{$e0}{CTRL-L}{blk}{$0a}J{$e0}{CTRL-L}{CBM-A}{$fb}{$a0}0{f8}{CBM-+}{CTRL-B}{left}{gry2}{$83}JP{$fa}{CBM-Z}{CBM-D}{CTRL-B}{$f0}0{SHIFT-POUND}{$00}{sret}{gry3}{CTRL-B}{SHIFT-POUND}{CBM-U}{f1}{CBM-E}{SHIFT-POUND}{$82}{f1}{CBM-R}{CBM-I}{CTRL-L} {swlc}
{CBM-Z}E{CTRL-B}{$f0}{wht}NE{CTRL-B}P{del}{CBM-Z}{CBM-G}{CTRL-B}P{CTRL-O}{CBM-Z}{CBM-W}{CTRL-B}P{$0a}{CBM-Z}{CBM-X}{CTRL-B}P{wht}{SHIFT-POUND}{$80}{sret}{CBM-D}{CTRL-B}{$60}{CBM-Z}{CBM-P}{CTRL-B}{CTRL-P}{$6f}{CBM-Z}{CBM-T}{orng}){$7f}I {$f0}{$66}I.{$f0}{$62}{SHIFT-POUND}{CTRL-A}{sret}{SHIFT-POUND}{CTRL-B}{$a0}{stop}{f8}{lgrn}{CTRL-B}{CBM-V}{blk}{CTRL-Y}{CBM-X}{$69}{CTRL-Y}{$f0}?{CBM-X}{$71}{CTRL-Y}{sret}{clr}{CTRL-B}{CBM-X}{$79}{CTRL-Y}{sret}{inst}{CTRL-B}{swuc}{brn}{CTRL-B}{CBM-X}{$69}{CTRL-Y}{CBM-N}{CBM-C}{CBM-@}{rght}H{CBM-O}p{rght}I{$80}{$f0}!{CTRL-X}{$6d}{clr}{CTRL-B}I{home}{$f0}{CTRL-D}HlN{CTRL-K}H{CBM-O}p{rght}{CTRL-X}{$6d}{inst}{CTRL-B}I{$0a}P{$e0}{CBM-Z}{brn}{CTRL-B}{sret}{CBM-P}{CTRL-B}l{CTRL-B}{CTRL-L}N{lgrn}{CTRL-B}{CBM-D}{lgrn}{CTRL-B}0{ensh}l{CBM-A}{CTRL-K}{CBM-N}{SHIFT-POUND}{CTRL-A}{left}{$e0}{CTRL-Y}{CBM-Z}{CBM-G}{CTRL-B}l+{CTRL-K}{CBM-Z}{left}{CTRL-B}{CTRL-P}{stop}l{$68}
{CBM-S}{yel}{CTRL-B}{CBM-X}{$60}{CTRL-P}{CTRL-X}{$69}{swlc}{f1}{CBM-E}{CBM-X}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{CBM-I}{CTRL-A} {swlc}
{CBM-I}{CTRL-F}{CBM-X}{$60}{CTRL-P}{$6d}{cyn}{CTRL-B}{f1}{CBM-E}{CBM-X}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{CBM-I}{stop} {swlc}
{CBM-Z}{yel}{CTRL-B}I{CTRL-O}{$f0}{ensh}N{yel}{CTRL-B}N{cyn}{CTRL-B}N{cyn}{CTRL-B} >
P{CTRL-F}{SHIFT-POUND}~{sret}{left}{CTRL-B}{$60}{CBM-S}{yel}{CTRL-B}{CBM-X}{$60}{CTRL-P}{CTRL-X}{$69}{swlc}{f1}{CBM-E}{CBM-X}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{CBM-I}{$00} {swlc}
{CBM-I}{CTRL-F}{CBM-X}{$60}{CTRL-P}{$6d}{cyn}{CTRL-B}{f1}{CBM-E}{CBM-X}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{CBM-I}{CTRL-B} {swlc}
{CBM-Z}{yel}{CTRL-B}I{CTRL-O}{$f0}{CTRL-A}{$60}{CBM-S}{left}{CTRL-B}{SHIFT-POUND}x{CTRL-X}{$7d}{$71}{CTRL-Y}{f1}{CBM-E}{SHIFT-POUND}{$82}{f1}{CBM-R}{$a0}{$00}{SHIFT-POUND}{yel}{up}{CBM-E}{CBM-C}{$79}{CTRL-Y}{CBM-O}{$60}{CTRL-P}{CTRL-X}{$69}{CTRL-Y}{f1}{CBM-E}{CBM-O}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{SHIFT-POUND}{cyn}{$a0}{$00}{up}{CBM-E}{CBM-Z}{$a0}{CTRL-B}{$f0}{CTRL-D}N{$a0}{CTRL-B}{$60}{CBM-X}{$71}{CTRL-Y}I{home}{$f0}{CTRL-A}{$60}{CBM-X}{$79}{CTRL-Y}I{$0a}{$f0}{CTRL-A}{$60}{CBM-Z}{CBM-K}{CTRL-B}P{CTRL-K}{SHIFT-POUND} {left}{$e0}{CTRL-Y}{sret}{CBM-K}{CTRL-B}l{CTRL-D}
N{CBM-K}{CTRL-B}P{CTRL-V}{SHIFT-POUND}{$0a}{sret}{$a0}{CTRL-B}{CBM-Z}{left}{CTRL-B}M{CBM-P}{CTRL-B}{$f0}{wht}{SHIFT-POUND}{$00}{left}{$e0}{CTRL-Y}{CBM-I}{wht}P{CTRL-B}{CBM-I}{CTRL-D}{SHIFT-POUND}@{f1}{CBM-E}{SHIFT-POUND}{$82}{f1}{CBM-R}{f4}{$0a}{CBM-N}{CBM-X}{$00}{CTRL-Z}{f1}{$00}{CBM-X}{CTRL-A}{CTRL-Z}{f1}{CTRL-A}{$a0}{$00}{CBM-E}{$00}{up}{CBM-E}{$e6}{$00}P{CTRL-B}{$e6}{CTRL-A}{CBM-E}{$00}P{CTRL-A}{$60}{CTRL-X}{$65}{CBM-E}{f1}{CBM-E}{blk}{CTRL-B}{$e6}{CBM-R}{$e6}{$00}P{$e4}{$e6}{CTRL-A}l{rght}
{CBM-S}{left}{CTRL-B}{CBM-X}{$71}{CTRL-Y}I{swlc}{blk}{rght}I{CTRL-Y}{CBM-A}{CTRL-Y}{CBM-X}{$79}{CTRL-Y}I{CTRL-F}{blk}{rvon}I{CTRL-O}{CBM-A}{swlc}{CBM-X}{$69}{CTRL-Y}){CTRL-O}{$f0}{CTRL-G}I
{CBM-A}{stop}{SHIFT-POUND}{CTRL-A}{$60}{SHIFT-POUND}{$00}{$60}{CBM-I}{$00}{swuc}{left}{CTRL-B} >
P{CTRL-L}{$e8}{$e8}{$e0}{CTRL-G}{blk}{$f2}{SHIFT-POUND}~{sret}{left}{CTRL-B}{$60}{SHIFT-POUND}{del}{sret}{yel}{CTRL-B}{SHIFT-POUND}#{sret}{cyn}{CTRL-B}l{CTRL-V}{CTRL-L}{CBM-Z}{CBM-K}{CTRL-B}P{del}{CBM-Z}{CBM-D}{CTRL-B}P{CTRL-O}{CBM-I}{CTRL-O}{swuc}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}I~P{dish}J{CTRL-P}{$f3}{SHIFT-POUND}~l{CBM-B}
i~{$a0}{$00}j{CBM-A}{CTRL-D}Hl{CBM-Z}
{f4}{$0a}{$0a}{$0a}{sret}{lgrn}{CTRL-B}{gry2}
{lgrn}{CTRL-B}{CBM-I}{$00}{SHIFT--}{gry2}{CTRL-Y}{$f0}{wht}{$e8}{$e0}{$0a}P{$f6}{f4}{$0a}{sret}{lblu}{CTRL-B}{CBM-S}{brn}{CTRL-B}{CBM-Z}{CBM-D}{CTRL-B}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-D}{sret}{CTRL-P}{$e8}{CBM-Z}{rvon}{$e8}){CTRL-A}P{dish}{SHIFT-POUND}{CTRL-A}{sret}{gry3}{CTRL-B}l{$f2}
{SHIFT-POUND}{$00}{sret}{gry3}{CTRL-B}{CBM-Z}{rvon}{$e8}){CTRL-B}P{CTRL-F}{SHIFT-POUND}{CTRL-A}{sret}{pur}{CTRL-B}{$60}{SHIFT-POUND}{$00}{sret}{pur}{CTRL-B}{$60}{CBM-D}{lblu}{CTRL-B}{CBM-S}{brn}{CTRL-B}{CTRL-X}{CBM-X}{$71}{CTRL-Y}{$79}{SHIFT-POUND}{CTRL-Y}{left}{$71}{CTRL-Y}{CTRL-X}{CBM-X}{$79}{CTRL-Y}{$79}A{CTRL-Y}{left}{$79}{CTRL-Y}{$60}h *{swlc}{$68}){CTRL-O}l.{swlc}jjjj{ensh}{CBM-A}{left}{$00}{$83}{$e8}{$60}{$f8}{CTRL-X}{$6d}{CBM-A}{CTRL-B}{sret}{CBM-A}{CTRL-B}{CBM-Z}{CBM-E}{CTRL-B}{$69}{$00}{sret}{CBM-E}{CTRL-B}{CBM-Z}{CBM-R}{CTRL-B}{$69}{$00}{sret}{CBM-R}{CTRL-B}X{$60}{sret}{brn}{CTRL-B}{CBM-X}{CBM-H}{rght}{f1}{CBM-E}{CBM-X}{CBM-V}{rght}{f1}{CBM-R}{CBM-C}H{rght}{CBM-I}{$00}{CBM-Z}{brn}{CTRL-B}{orng}{CBM-E}{CBM-O}R{rght}{$f0}
H{CTRL-X}{$65}{CBM-E}{f1}{CBM-E}{blk}{$ee}{$e6}{CBM-R}l{$61}{swlc}{$60}{CBM-D}{CBM-X}{CTRL-B}{CBM-V}{$76}{grn}{CBM-X}{blk}{grn}{$f0}[{sret}{brn}{CTRL-B}{$e8}{CBM-Z}{CBM-O}{CTRL-B}8{$fd}{blk}{grn}{sret}{clr}{CTRL-B}{$e8}{CBM-X}{blk}{grn}{CTRL-X}{$6d}{CBM-F}{CTRL-B}{sret}{inst}{CTRL-B}{$e8}{CBM-D}{inst}{CTRL-B}01{SHIFT-*}{CTRL-U}{CBM-A}-{CBM-O}{$60}{CTRL-P}{f1}{CBM-E}{CBM-Z}{clr}{CTRL-B}0#I'{CBM-A}{blu}{CTRL-X}{$65}{CBM-E}{f1}{CBM-E}{CBM-O}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{$ee}{lred}{CTRL-B}{CBM-D}{lred}{CTRL-B}{CBM-O}{$00}P){stop}{CBM-POUND}{CBM-O}{$72}{grn}{$a0}{$00}{up}{CBM-E}N{brn}{CTRL-B}{$f0}{CBM-+}{$ee}{clr}{CTRL-B}l{yel}{swlc}{$60}{CBM-D}{CBM-X}{CTRL-B}{CBM-V}{$76}{grn}{CBM-X}{blk}{grn}{$f0}n{sret}{brn}{CTRL-B}{$e8}{CBM-Z}{CBM-O}{CTRL-B}8{$fd}{blk}{grn}{sret}{clr}{CTRL-B}{$e8}{CBM-X}{blk}{grn}{CTRL-X}{$6d}{CBM-F}{CTRL-B}{sret}{inst}{CTRL-B}{$e8}{CBM-D}{inst}{CTRL-B}0${SHIFT-*}{CTRL-U}{CBM-A} {CBM-O}{$60}{CTRL-P}{f1}{CBM-E}{CBM-Z}{clr}{CTRL-B}0{CTRL-V}I'{CBM-A}{rvon}{CTRL-X}{$65}{CBM-E}{f1}{CBM-E}{CBM-O}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{$a0}{$00}{SHIFT-POUND} {up}{CBM-E}N{brn}{CTRL-B}{$f0}{CBM-W}{$ee}{clr}{CTRL-B}l{wht}{CTRL-O}{$60}{SHIFT-POUND}{clr} R~{CBM-I}{$a0}{CBM-X}?{esc}{left}g{$83}JP{$f7}{$60}{SHIFT-POUND}{$00}{CBM-I}>{left}{blk}{CTRL-B}J{CTRL-P}{$fa}{sret}{$a0}{CTRL-B}{CBM-I}{CTRL-F}{left}{$e0}{CTRL-Y}{left}{$69}{CTRL-Y}JJ{CTRL-P}{$f6}{SHIFT-POUND}{$80}{sret}{left}{CTRL-B}{sret}{CBM-P}{CTRL-B}{CBM-Z}O{CTRL-B}{sret}{CBM-Q}{CTRL-B}{SHIFT-POUND}{$64}{sret}{CBM-Z}{CTRL-B}{SHIFT-POUND}{CTRL-P}{sret}{CBM-S}{CTRL-B}{SHIFT-POUND}{grn}{sret}E{CTRL-B}{$60}{SHIFT-POUND}#{CBM-I}{CTRL-D}P{CTRL-D}{SHIFT-POUND}.{CBM-I}{$e6}{$78}{f1}{blk}{f3}{up}x{$60}{$a0}g{SHIFT-POUND}{$00}{f1}{CBM-E}{SHIFT-POUND}{$83}{f1}{CBM-R}{CBM-E}{CBM-E}I.{$f0}{CTRL-D}{SHIFT-POUND} {up}{CBM-E}{f7}{SHIFT-*}~P{$f1}F{CBM-R}0{$ed}{$60}{CBM-X}:{stop}P{CTRL-A}{$60}{sret}{blk}{CTRL-B}{$e8}{CBM-X}:{stop}{sret}{up}{CTRL-B}{$e8}{CBM-D}{up}{CTRL-B}{CBM-X}:{stop}P{stop}{$e8}P{$e4}h{CBM-O}{$60}{CTRL-P}{CTRL-X}{$6d}{blk}{CTRL-B}{f1}{CBM-E}{CBM-O}@{CTRL-P}{$69}{$00}{f1}{CBM-R}{$68}{$a0}{$00}{up}{CBM-E}{$ee}{blk}{CTRL-B}PY{$60}{CBM-Z}O{CTRL-B}jjjj{CBM-POUND}{$60} {$e4}~{$f0}{$fb}{$60}jjjj{CBM-POUND}{$60}j{CBM-POUND}{$80}{$80}{$83}{f8}{CBM-@}{CBM-O}{$e0}
x{CBM-F}h{CTRL-W}{$e6}{stop}&{CBM-T}{CTRL-P}{CTRL-P}{CTRL-P}{CTRL-P}{CTRL-P}{CTRL-P}{CTRL-P}{down}{down}{down}{rvon}{home}{home}{CTRL-U}{CTRL-V}{CTRL-W}${$00}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{stop}{stop}{CTRL-D}{wht}{wht}{CTRL-F}{CTRL-F}{CTRL-G}{CTRL-G}${$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-B}{stop}{stop}{stop}{CTRL-D}{CTRL-D}{wht}{wht}{CTRL-F}{CTRL-G}{$80}{$80}{$80}{$80}{$80}{$80}{$80}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$83}{$83}{$83}{$83}{$83}$$$$$$${$00}(p{$78}{$a0}H{$f0}{CTRL-X}@{$68}{blk}{CBM-U}{$e0}{dish}0x{$80}{CBM-POUND}P{$f8} h{$70}{gry2}{SHIFT-*}$$$$$$${dish}{$00}{$00}{$67}{CTRL-A}{$00}@{CTRL-A}{$00}{$65}{$00}{$00}{$6c}{CTRL-B}{$00}{$7b}{$fe}{CTRL-A}{$e1}{CTRL-A}{$00}q{CTRL-A}{$00}{$61}{$fe}{CTRL-A}{$7c}{CTRL-A}{$00} {CTRL-A}{$00}{$7e}{$00}{$00}{$61}{CTRL-B}{$00}{$e1}{$fe}{CTRL-A}{$61}{CTRL-A}{$00}q{CTRL-A}{$00}{$e1}{$fe}{CTRL-A}{$61}{CTRL-B}{$00}{$e1}{$00}{$00}{$6c}{CTRL-D}{$00}{$7b}{$fc}{CTRL-A}{$e1}{CTRL-D}{$00}{$61}{$fc}{CTRL-A}{$e1}{CTRL-A}{$00}={CTRL-A}{$00}q{CTRL-A}{$00}={CTRL-A}{$00}{$61}{$fc}{CTRL-A}{$e1}{CTRL-D}{$00}{$61}{$fc}{CTRL-A}{$7c}{CTRL-D}{$00}{$7e}{$00}{$00}{$61}{CTRL-D}{$00}{$e1}{$fc}{CTRL-A}{$61}{CTRL-B}{$00}r{CTRL-B}{$00}{$e1}{$fc}{CTRL-A}B{CTRL-A}{$00}={CTRL-A}{$00}q{CTRL-A}{$00}={CTRL-A}{$00}{SHIFT--}{$fc}{CTRL-A}{$61}{CTRL-B}{$00}e{CTRL-B}{$00}{$e1}{$fc}{CTRL-A}{$61}{CTRL-D}{$00}{$e1}{$00}{$00}{$6c}{CTRL-F}{$00}{$7b}{$fa}{CTRL-A}{$e1}{CTRL-F}{$00}{$61}{$fa}{CTRL-A}{$e1}{CTRL-B}{$00}u{CTRL-A}{$00}d{CTRL-A}{$00}i{CTRL-B}{$00}{$61}{$fa}{CTRL-A}{$e1}{CTRL-A}{$00}={CTRL-A}{$00}{$75}{CTRL-A}{$00}q{CTRL-A}{$00}{$76}{CTRL-A}{$00}={CTRL-A}{$00}{$61}{$fa}{CTRL-A}{$e1}{CTRL-B}{$00}j{CTRL-A}{$00}r{CTRL-A}{$00}k{CTRL-B}{$00}{$61}{$fa}{CTRL-A}{$e1}{CTRL-F}{$00}{$61}{$fa}{CTRL-A}{$7c}{CTRL-F}{$00}{$7e}{$00}{$00}m{CTRL-F}{$00}n{$fa}{CTRL-A}{$65}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$67}{$fa}{CTRL-A}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}u{CTRL-A}{$00}d{CTRL-A}{$00}i{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{$fa}{CTRL-A}{$6b}{CTRL-A}{$00}={CTRL-A}{$00}{$75}{CTRL-A}{$00}q{CTRL-A}{$00}{$6a}{CTRL-A}{$00}={CTRL-A}{$00}{$73}{$fa}{CTRL-A}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}j{CTRL-A}{$00}r{CTRL-A}{$00}k{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{$fa}{CTRL-A}{$65}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$67}{$fa}{CTRL-A}n{CTRL-F}{$00}m{$00}{$00}h{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}u{CTRL-A}{$00}e{CTRL-A}{$00}i{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}{$6b}{CTRL-A}{$00}={CTRL-A}{$00}{$74}{CTRL-A}{$00}q{CTRL-A}{$00}{$67}{CTRL-A}{$00}={CTRL-A}{$00}{$73}{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}j{CTRL-A}{$00}{$64}{CTRL-A}{$00}k{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}g{$f8}{CTRL-A}h{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}g{$00}{$00}{$67}{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{CTRL-A}{$00}u{CTRL-A}{$00}e{CTRL-A}{$00}i{CTRL-A}{$00}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}={CTRL-A}{$00}={CTRL-A}{$00}{$74}{CTRL-A}{$00}q{CTRL-A}{$00}{$67}{CTRL-A}{$00}={CTRL-A}{$00}={CTRL-A}{$00}]{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{CTRL-A}{$00}j{CTRL-A}{$00}{$64}{CTRL-A}{$00}k{CTRL-A}{$00}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}]{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}]{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f6}{CTRL-A}{$67}{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}{$65}{$00}{$00}h{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}]{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}]{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}t{CTRL-D}{$00}y{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}{$6b}{CTRL-A}{$00}{$64}{CTRL-A}{$00}l{CTRL-A}{$00}n{CTRL-A}{$00}{$63}{CTRL-A}{$00}m{CTRL-A}{$00}{$7a}{CTRL-A}{$00}{$64}{CTRL-A}{$00}{$73}{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}]{CTRL-A}{$00}={CTRL-A}{$00}={CTRL-A}{$00}{$65}{CTRL-A}{$00}w{CTRL-A}{$00}{$67}{CTRL-A}{$00}={CTRL-A}{$00}={CTRL-A}{$00}]{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}{$6b}{CTRL-A}{$00}{$63}{CTRL-A}{$00}o{CTRL-A}{$00}m{CTRL-A}{$00}{$64}{CTRL-A}{$00}n{CTRL-A}{$00}p{CTRL-A}{$00}{$63}{CTRL-A}{$00}{$73}{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}t{CTRL-D}{$00}y{CTRL-A}{$00}]{CTRL-A}{$00}]{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}]{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}]{CTRL-A}{$00}g{$f6}{CTRL-A}h{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}g{$00}{$00}{$67}{CTRL-A}{$00}m{$0a}{$00}n{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}n{CTRL-A}{$00}{$63}{CTRL-A}{$00}m{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}-{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{$65}{CTRL-A}{$00}w{CTRL-A}{$00}{$67}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}-{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}m{CTRL-A}{$00}{$64}{CTRL-A}{$00}n{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-D}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f4}{CTRL-A}{$67}{CTRL-A}{$00}n{$0a}{$00}m{CTRL-A}{$00}{$65}{$00}{$00}h{CTRL-A}{$00}m{$0a}{$00}n{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}{$60}{CTRL-A}{$00}t{CTRL-A}{$00}t{CTRL-B}{$00}{$64}{CTRL-B}{$00}y{CTRL-A}{$00}y{CTRL-A}{$00}{$60}{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}m{CTRL-A}{$00}t{CTRL-A}{$00}t{CTRL-A}{$00}n{CTRL-A}{$00}r{CTRL-A}{$00}m{CTRL-A}{$00}y{CTRL-A}{$00}y{CTRL-A}{$00}n{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}-{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}y{CTRL-A}{$00}w{CTRL-A}{$00}t{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}-{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}n{CTRL-A}{$00}t{CTRL-A}{$00}t{CTRL-A}{$00}m{CTRL-A}{$00}e{CTRL-A}{$00}n{CTRL-A}{$00}y{CTRL-A}{$00}y{CTRL-A}{$00}m{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}{$60}{CTRL-A}{$00}t{CTRL-A}{$00}t{CTRL-B}{$00}{$63}{CTRL-B}{$00}y{CTRL-A}{$00}y{CTRL-A}{$00}{$60}{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}y{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}t{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}g{$f4}{CTRL-A}h{CTRL-A}{$00}n{$0a}{$00}m{CTRL-A}{$00}g{$00}{$00}{$67}{CTRL-A}{$00}m{CTRL-L}{$00}n{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{$0a}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-B}{$00}n{CTRL-A}{$00}{$63}{CTRL-A}{$00}m{CTRL-B}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$7a}{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}p{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}l{CTRL-A}{$00}{$65}{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}-{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00} {CTRL-A}{$00}o{CTRL-A}{$00}w{CTRL-A}{$00}{$7a}{CTRL-A}{$00} {CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}-{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}{$67}{CTRL-A}{$00}p{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}l{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}o{CTRL-A}{$00}{$65}{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-B}{$00}m{CTRL-A}{$00}{$64}{CTRL-A}{$00}n{CTRL-B}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{$0a}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}n{CTRL-L}{$00}m{CTRL-A}{$00}{$65}{$00}{$00}{$67}{CTRL-A}{$00}m{CTRL-L}{$00}n{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{$0a}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}m{dish}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-F}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{stop}{$00}{$64}{stop}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-B}{$00}n{CTRL-A}{$00}{$60}{CTRL-A}{$00}m{CTRL-B}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}m{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$7a}{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}p{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}l{CTRL-A}{$00}{$65}{CTRL-A}{$00}n{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}-{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00} {CTRL-A}{$00}o{CTRL-A}{$00}w{CTRL-A}{$00}{$7a}{CTRL-A}{$00} {CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}{CBM-X}{CTRL-A}{$00}-{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}{$67}{CTRL-A}{$00}p{CTRL-A}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}l{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-A}{$00}o{CTRL-A}{$00}{$65}{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{CTRL-B}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{CTRL-B}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$67}{stop}{$00}{$63}{stop}{$00}{$65}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{CTRL-A}{$00}n{CTRL-F}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$67}{CTRL-A}{$00}n{CTRL-A}{$00}n{dish}{$00}m{CTRL-A}{$00}m{CTRL-A}{$00}{$65}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}{$60}{CTRL-A}{$00}n{$0a}{$00}m{CTRL-A}{$00}{$60}{CTRL-A}{$00}{$65}{$f2}{CTRL-A}{$67}{CTRL-A}{$00}n{CTRL-L}{$00}m{CTRL-A}{$00}{$65}{$00}{$00}${CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$e0}{CTRL-B}{pur}{CTRL-A}0{stop}{$60}{stop}e={CBM-P}{$00}{blu}X{$68}+{$de}{CTRL-U}{$f2}{esc}{$70}{red}{$0a}{del}{$80}{$00}{$80}~{$00}{$00}{$00}{$00}{$80}{$00}{$00}{$00}{$80}{$00}{$80}{$00}{CTRL-B}{$00}{CTRL-F}{CTRL-D}{$00}{$00}{$00}{$00}{CTRL-W}{grn}{CTRL-V}'.&7>6{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~{$00}{$00}{$00}{CTRL-A}{$00}~{$00}{$00}{$00}{CTRL-A}{$00}~{$00}{$00}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~{$00}~{$00}~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{blu}{$00}{swlc}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}s{orng}{CBM-K}{orng}{CBM-G}{orng}{$f3}{orng}]{$00}@{$00}@{$00}]{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{SHIFT-*}{CTRL-Z}X{CTRL-Z}{$f0}{CTRL-Z}{dish}{esc} {esc}0{esc}{$e0}{esc}{$e8}{esc}{$f0}{esc}{$fa}{red}{$6a}{red}{$63}{blu}{$63}{blu}{$00}{$00}{$00}{$00}{$00}{$00}{rvon}{red}{swlc}{red}{$0a}{red}{dish}{red}{CTRL-V}{red}&{red}4{red}@{red}h{red}n{red}{$68}{red}{CBM-I}{red}{yel}{red}{lblu}{red}{gry2}{red}{CBM-+}{red}{CBM-L}{red}D{red}P{red}X{red}{$de}{red}{$68}{red}{$e2}{red}{$e4}{red}{$e6}{red}{$f2}{red}{$f4}{red}{$f6}{red}{$68}{red}r{red}t{red}v{red}{$62}{red}{$64}{red}{$66}{red}{$68}{red}({rght}*{rght},{rght}6{rght}@{rght}@{rght}{$00}{$00}{$00}{$00}{CTRL-Z}{stop}{del}{stop}{CTRL-X}{rght}{blu}{$00}{CTRL-G}{CTRL-V}{CTRL-F}{rght}{CTRL-W}&{CTRL-G}{CTRL-Z}{CTRL-X}{esc}{CTRL-K}{red}{del}{esc}{rvon}"{CTRL-V}{esc}{down}!{$00}{blu}{CTRL-A}{CTRL-U}{CTRL-L}{stop}{rvon}{CTRL-P}{CTRL-L}{CTRL-O}{ensh}{CTRL-D}
{stop}{dish}{CTRL-B}{CTRL-F}{home}{CTRL-F}{CTRL-F}{swlc}{CTRL-O}{stop}{CTRL-K}{wht}{dish}{CTRL-L}{ensh}{down}{CTRL-L}{$0a}
{CTRL-B}{CTRL-F}{CTRL-K}{$0a}{CTRL-P}{CTRL-P}{CTRL-L}{swlc}
{stop}{CTRL-G}{CTRL-O}{$6d}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$71}{CTRL-A}{$7d}{$00}{$00}{$00} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {$00}{$00}{$00}{$6e}({$73}({$73}({$73}({$73}({$73}({$73}({$73}({$7d}{$00}{$00}{$00}{$00}{$00}{$00}{$00} ( ( ( ( ( ( ( ( {$00}{$00}{$00}{$00}{$00}{$00}{$00}{f8}{CTRL-A}{$8f}{CTRL-A}{$83}{CTRL-A}{f6}{CTRL-A}{f1}{CTRL-A}{$84}{CTRL-A}{CBM-K}{$00}{$00}{$00} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {$00}{$00}{$00}{$a0}{f8}{orng}{clr}{f1}{rvof}{$a0}{rvof}{f1}{orng}{$84}{lgrn}{CBM-S}{lred}{orng}{f8}{brn}{f1}{$a0}{clr}{f7}{f3}{inst}{$a0}{$a0}{f8}{rvof}{clr}{$a0}{clr}{$83}{$8f}{rvof}{f1}{$a0}{f3}{brn}{f1}{f8}{$a0}{$a0}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$e4}{$a0}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{$a0}   {$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{$e7}           {$e5}{CBM-E}{CBM-A}{blk}{inst}{clr}{SHIFT--}{$a0}{$a0}{$a0}{$a0}{SHIFT--}{$a0}   {$a0}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{CBM-A}{CBM-A}{CBM-A}{CBM-A}{$a0}{$83}{CBM-S}{CBM-E}{CBM-O}{CBM-Y}{CBM-O}{$a0}{orng}{clr}{inst}{orng}{rvof}{$a0}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}{CBM-Z}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{$a0}   {$a0}{$a0}{gry3}{$82}{lgrn}{$a0}{clr}{CBM-S}{sret}{CBM-S}{left}{$a0}{f3}{CTRL-A}{orng}{CTRL-A}{clr}{CTRL-A}{inst}{$00}{clr}{CTRL-A}{f8}{CTRL-A}{$8f}{CTRL-A}{gry1}{$00}{$7a}{CTRL-A}{$7a}{CTRL-A}{$7a}&{$7a}{CTRL-A}{$7a}{CTRL-A}{$7a}&{$7a}{CTRL-A}{$7a}{CTRL-A}{$7a}{$00}{$00}{$00}{$00}{$00}{$00}{$00}m)m)m)m)m)m)m{$00} ) )m)m)m)m)m)m{$00} ) )m)m)m)m)m{$00} ) )m)m)m)m{$00} )m)m)m{$00} )m)m{$00} )m{$00}m)m)m)m)m)m) ) {$00}m)m)m) {$00}{$8f}{CTRL-A}{lred}{CTRL-A}{f1}{CTRL-A}{rvof}{CTRL-A}{f7}{CTRL-A}{f1}{CTRL-A}{orng}{CTRL-A}{inst}{CTRL-A}{f1}{CTRL-A}{$84}{CTRL-A}{CBM-K}f-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{CTRL-A}-{$00}{$00}{$00}n'n'n'n'n'n'n{$00} ' 'n'n'n'n'n'n{$00} ' 'n'n'n'n'n{$00} ' 'n'n'n'n{$00} 'n'n'n{$00} 'n'n{$00} 'n{$00}n'n'n'n'n'n' ' {$00}n'n'n' {$00}{f8}{CTRL-A}{orng}{CTRL-A}{clr}{CTRL-A}{f1}{CTRL-A}{rvof}{CTRL-A}{$a0}{CTRL-A}{rvof}{CTRL-A}{f1}{CTRL-A}{orng}{CTRL-A}{$84}{CTRL-A}{lgrn}f {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {CTRL-A} {$00}  *{$00}{$00}{$00};';{CTRL-A}{$00}{CTRL-A};';{$00}{CTRL-V}'>{CTRL-A} {CTRL-A}<'{CTRL-A}{$00} ' {CTRL-B} ' {$00}{$a0}{CTRL-A}{$00}{$00}{$00}((({$80}{$00}{$00}{$80}{CTRL-A}{$00}{$00}{$00}~{$00}{$80}{$00}{CTRL-A}{CTRL-A}{$00}{$00}{$00}~{$00}{$00}~{$80}{CTRL-A}{CTRL-A}{$00}{CTRL-A}~{CTRL-A}{CTRL-A}{$00}{$00}{$00}~{$00}{CTRL-A}~{$00}~~~{$80}{CTRL-A}{CTRL-B}{$00}{CTRL-B}~{CTRL-B}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{$00}{CTRL-A}~{CTRL-A}{$fe}{CTRL-A}{CTRL-B}{$00}{CTRL-A}{$00}{$00}{$00}~{$00}{$fe}{$00}{CTRL-B}~{CTRL-A}~{$00}~~~{$fe}~{CTRL-A}{$fe}{$00}{$fe}~{$fe}{$80}{$00}{$00}{$00}{$00}{$00}{stop}{stop}{$0a}{$0a}{$0a}{$0a}{CTRL-U}{CTRL-U}{CTRL-U}(({CBM-T}{CBM-T}{$7a}sr*{CTRL-B}{SHIFT-+}{CBM-A}{f6}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{$80}{$80}{$80}{$00}{$00}{CTRL-A}{CTRL-F}{swlc}{grn}:^{$7a}{blk}{$00}{CTRL-B}''{CTRL-B}{$00}'{CTRL-B}%{CTRL-D}%{CTRL-B}'{$00}{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-B}{CTRL-A}${CTRL-D}${CTRL-A}{CTRL-B}{CTRL-A}%{CTRL-A}{CTRL-A}{$00}{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-D}{CTRL-A}"{CTRL-A}{CTRL-D}{CTRL-A}"{CTRL-A}{CTRL-D}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{$00}{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}#{CTRL-A}{CTRL-D}{CTRL-A}!{CTRL-A}{CTRL-F}{CTRL-A} {CTRL-A}{CTRL-F}{CTRL-A} {CTRL-A}{CTRL-F}{CTRL-A}!{CTRL-A}{CTRL-D}{CTRL-A}#{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}%{CTRL-A}{CTRL-A}{$00}%{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}!{CTRL-B}{CTRL-D}{CTRL-B}!{CTRL-F}!{dish}{blu}{CTRL-A}{dish}{CTRL-A}{blu}{dish}!{CTRL-F}#{CTRL-D}%{CTRL-A}{CTRL-A}'{$00}{CTRL-F}%"{stop}{CTRL-F}{stop}{grn}{dish}{$6d}{CTRL-B}{$0a}{CTRL-B}{$6d}{dish}{grn}{stop}{CTRL-F}{stop}"%{CTRL-F}{$00}%{CTRL-F}g{CTRL-L}c{swlc}b{swlc}b{swlc}c{CTRL-L}g{CTRL-F}%{$00}{$ec}{$fb}{$fc}{$fe}{$00}{CTRL-A}{wht}{CTRL-O}{CTRL-Y})?[{$7d}{CBM-G}{$00}p{$00}{$00}{$00}@{$80}{$00}~~{$00}{$00}{$00}{$00}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{$00}{$00}{CTRL-A}{$00}~{stop}{CTRL-A}{$00}{CTRL-A}{$00}{CTRL-A}{$00}{stop}{CTRL-A}~{stop}{CTRL-A}{$00}{stop}{CTRL-A}{CTRL-A}{$00}{stop}{CTRL-A}{$fe}{wht}{CTRL-B}~{wht}{CTRL-B}{$00}{wht}{CTRL-B}{CTRL-A}{stop}{CTRL-A}{CTRL-B}{$00}{stop}{CTRL-A}{$fd}{wht}{CTRL-B}{$fe}{CTRL-G}{stop}~{CTRL-G}{stop}{$00}{CTRL-G}{stop}{CTRL-A}{wht}{CTRL-B}{CTRL-B}{stop}{CTRL-A}{stop}{$00}{stop}{CTRL-A}{$fc}{wht}{CTRL-B}{$fd}{CTRL-G}{stop}{$fe}{ensh}{CTRL-D}~{ensh}{CTRL-D}{$00}{ensh}{CTRL-D}{CTRL-A}{CTRL-G}{stop}{CTRL-B}{wht}{CTRL-B}{stop}{stop}{CTRL-A}{CTRL-D}{$00}{wht}{CTRL-B}{$fb}{CTRL-G}{stop}{$fc}{ensh}{CTRL-D}{$fd}{CTRL-K}{wht}{$fe}{CTRL-K}{wht}~{CTRL-K}{wht}{$00}{CTRL-K}{wht}{CTRL-A}{CTRL-K}{wht}{CTRL-B}{ensh}{CTRL-D}{stop}{CTRL-G}{stop}{CTRL-D}{wht}{CTRL-B}{wht}{$00}{wht}{CTRL-B}{$fa}{CTRL-G}{stop}{$fb}{ensh}{CTRL-D}{$fc}{CTRL-K}{wht}{$fd}
{CTRL-F}{$fe}
{CTRL-F}~
{CTRL-F}{$00}
{CTRL-F}{CTRL-A}
{CTRL-F}{CTRL-B}{CTRL-K}{wht}{stop}{ensh}{CTRL-D}{CTRL-D}{CTRL-G}{stop}{wht}{wht}{CTRL-B}{CTRL-F}{$00}{CTRL-G}{stop}{$f9}{ensh}{CTRL-D}{$fa}{CTRL-K}{wht}{$fb}
{CTRL-F}{$fc}{CTRL-O}{CTRL-G}{$fd}{CTRL-O}{CTRL-G}{$fe}{CTRL-O}{CTRL-G}~{CTRL-O}{CTRL-G}{$00}{CTRL-O}{CTRL-G}{CTRL-A}{CTRL-O}{CTRL-G}{CTRL-B}{CTRL-O}{CTRL-G}{stop}
{CTRL-F}{CTRL-D}{CTRL-K}{wht}{wht}{ensh}{CTRL-D}{CTRL-F}{CTRL-G}{stop}{CTRL-G}{$00}{CTRL-G}{CTRL-A} {CTRL-A}{CTRL-A}{CTRL-A} {CTRL-A}
{CTRL-A} {CTRL-A}{wht}j{CTRL-O}{CTRL-B}{CTRL-V}{CTRL-B}{wht}{CTRL-B}{rvon}{$00}{ensh}{CTRL-P}{down}{ensh}{$80}{rght}{$80}{CTRL-B}{$83}{del}{$83}{ensh}{$80}{rght}{$80}{CBM-H}{$82}B{$82}{ensh}{$80}{rght}{$80}{$66}{$82}{$70}{$82}{ensh}{$80}{rght}{$80}?{$82}g{$82}{ensh}{$80}{rght}{$80}{CTRL-X}{$82}{grn}{$82}[{$80}{$6b}{$80}{$f1}{orng}{$f5}{orng}{CBM-Z}{$80}{CBM-O}{$80}J{orng}L{orng}~{$80}{CTRL-G}{orng}J{orng}L{orng}({orng}.{orng}J{orng}L{orng}q{orng}u{orng}J{orng}L{orng}{$7a}{orng}{$7c}{orng}J{orng}L{orng}{CTRL-P}{esc}{esc}{CTRL-P}{down}{red}{red}{down}{rvon}{rght}{rght}{rvon}{home}{grn}{grn}{home}{del}{blu}&-{CTRL-U} '.{CTRL-V}!(/{CTRL-W}")0{CTRL-X}#*1{CTRL-Y}$+2{CTRL-Z}{CTRL-Z}{CTRL-Z}{CTRL-Z}  200 rem
  210 print"{clr}"
  215 clr
  220 print:print:print:print
  221 print"                {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}*{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  222 print"   {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}    M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N"
  223 print"   M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}   M        N N"
  224 print"         {CBM-G}{CBM-M}{CBM-T}{CBM-T}       N N"
  225 print"      {CBM-@}{CBM-@}{CBM-@}{CBM-G}{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N N{CBM-@}{CBM-@} "
  226 print"      M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N"
  227 print
  228 print" the uss enterprise --- ncc1701"
  230 print:print:print:print:print
  270 z$="                         "
  330 dimg(8,8),c(9,2),k(3,3),n(3),z(8,8),d(8)
  370 t=int(rnd(1)*20+20)*100:t0=t:t9=25+int(rnd(1)*10):d0=0:e=3000:e0=e
  440 p=10:p0=p:s9=200:s=0:b9=0:k9=0:x$="":x0$=" is "
  470 def fnd(d)=sqr((k(i,1)-s1)^2+(k(i,2)-s2)^2)
  475 def fnr(r)=int(rnd(r)*7.98+1.01)
  480 rem**initialize enterprize's position
  490 q1=fnr(1):q2=fnr(1):s1=fnr(1):s2=fnr(1)
  530 fori=1to9:c(i,1)=0:c(i,2)=0:nexti
  540 c(3,1)=-1:c(2,1)=-1:c(4,1)=-1:c(4,2)=-1:c(5,2)=-1:c(6,2)=-1
  600 c(1,2)=1:c(2,2)=1:c(6,1)=1:c(7,1)=1:c(8,1)=1:c(8,2)=1:c(9,2)=1
  670 fori=1to8:d(i)=0:nexti
  710 a1$="navsrslrsphatorshedamcomxxx"
  810 rem*setup what exists in galaxy...
  815 rem*k3=# klingons b3=# starbases s3=#stars
  820 fori=1to8:forj=1to8:k3=0:z(i,j)=0:r1=rnd(1)
  850 ifr1>.98thenk3=3:k9=k9+3:goto980
  860 ifr1>.95thenk3=2:k9=k9+2:goto980
  870 ifr1>.8thenk3=1:k9=k9+1
  980 b3=0:ifrnd(1)>.96thenb3=1:b9=b9+1
 1040 g(i,j)=k3*100+b3*10+fnr(1):nextj:nexti:ifk9>t9thent9=k9+1
 1100 ifb9<>0then1200
 1150 ifg(q1,q2)<200theng(q1,q2)=g(q1,q2)+100:k9=k9+1
 1160 b9=1:g(q1,q2)=g(q1,q2)+10:q1=fnr(1):q2=fnr(1)
 1200 k7=k9:ifb9<>1thenx$="s":x0$=" are "
 1230 print"    your orders are as follows:- "
 1240 print"{down}{down}destroy the";k9;"klingon war-ships which"
 1245 print"have invaded the galaxy,before they can"
 1250 print"attack the federation headquarters on"
 1260 print"stardate";t0+t9;" this gives you";t9;"days"
 1265 print"there";x0$;" ";b9;"starbase";x$;" in the"
 1270 print"galaxy for resupplying your ship."
 1280 print"{down}press any key to accept command"
 1300 geta$:ifa$=""then1300
 1310 rem**here anytime new quadrant entered
 1320 z4=q1:z5=q2:k3=0:b3=0:s3=0:g5=0:d4=.5*rnd(1):z(q1,q2)=g(q1,q2)
 1390 ifq1<1orq1>8orq2<1orq2>8then1600
 1430 gosub9030:print:ift0<>tthen1490
 1450 print"{clr}"
 1460 print"your mission begins with your starship  located in the galactic quadrant"
 1470 printg2$;".":goto1500
 1490 print"now entering ";g2$;" quadrant..."
 1500 print:k3=int(g(q1,q2)*.01):b3=int(g(q1,q2)*.1)-10*k3
 1540 s3=g(q1,q2)-100*k3-10*b3:ifk3=0then1590
 1560 print"combat area   condition red":ifs>200then1590
 1580 print"   shields dangerously low"
 1590 fori=1to3:k(i,1)=0:k(i,2)=0:nexti
 1600 fori=1to3:k(i,3)=0:nexti:q$=z$+z$+z$+z$+z$+z$+z$+left$(z$,17)
 1660 rem**position enterprise in quadrant,then place "k3" klingons &
 1670 rem**"b3" starbases & "s3" stars elsewhere
 1680 a$="<*>":z1=s1:z2=s2:gosub8670:ifk3<1then1820
 1720 fori=1tok3:gosub8590:a$="{SHIFT-+}W{SHIFT-+}":z1=r1:z2=r2
 1780 gosub8670:k(i,1)=r1:k(i,2)=r2:k(i,3)=s9*(.5+rnd(1)):nexti
 1820 ifb3<1then1910
 1880 gosub8590:a$=">Q<":z1=r1:b4=r1:z2=r2:b5=r2:gosub8670
 1910 fori=1tos3:gosub8590:a$=" * ":z1=r1:z2=r2:gosub8670:nexti
 1980 gosub6430
 1990 ifs+e>10thenife>10ord(7)=0then2060
 2020 print"{down}** fatal error ** you've just stranded"
 2025 print"your ship in space without sufficient"
 2030 print"maneuvering energy,and the shield --"
 2035 print"control is incapable of cross feeding"
 2036 print"to the engine room!!":goto6220
 2040 print"control is incapable of cross feeding"
 2050 print"to the engine room!!":goto6220
 2060 input"command";a$
 2080 fori=1to9:ifleft$(a$,3)<>mid$(a1$,3*i-2,3)then2160
 2140 onigoto2300,1980,4000,4260,4700,5530,5690,7290,6270
 2160 nexti:print"enter one of the following:"
 2180 print" nav (to set course)"
 2190 print" srs (for short range sensor scan)"
 2200 print" lrs (for long range sensor scan)"
 2210 print" pha (to fire phasers)"
 2220 print" tor (to fire photon torpedoes)"
 2230 print" she (to raise or lower shields)"
 2240 print" dam (for damage control reports)"
 2250 print" com (to call on library-computer)"
 2260 print" xxx (to resign your command)":print:goto1990
 2290 rem**course control begins here
 2300 input"course (0-9)";c1:ifc1=9thenc1=1
 2310 ifc1>=1andc1<9then2350
 2330 print"lt. sulu reports,'incorrect course data,sir!":goto1990
 2350 x$="8":ifd(1)<0thenx$="0.2"
 2360 print"warp factor (0-";x$;")";:inputw1:ifd(1)<0andw1>.2then2470
 2380 ifw1>0andw1<=8then2490
 2390 ifw1=0then1990
 2420 print"chief engineer scott reports 'the engines won't take warp ";w1;"!"
 2430 goto1990
 2470 print"warp engines are damaged. maximum speed = warp 0.2":goto1990
 2490 n=int(w1*8+.5):ife-n>=0then2590
 2500 print"engineering reports insufficient energy available for maneuvering at ":
 2510 print"warp";w1;"!"
 2530 ifs<n-eord(7)<0then1990
 2550 print"deflector control room acknowleges";s;"units of energy presently"
 2560 print"deployed to shields."
 2570 goto1990
 2580 rem**klingons move/fire on moving starship...
 2590 fori=1to3:ifk(i,3)=0then2700
 2610 a$="   ":z1=k(i,1):z2=k(i,2):gosub8670:gosub8590
 2660 k(i,1)=z1:k(i,2)=z2:a$="{SHIFT-+}W{SHIFT-+}":gosub8670
 2700 nexti:gosub6000:d1=0:d6=w1:ifw1>=1thend6=1
 2770 fori=1to8:ifd(i)>=0then2880
 2790 d(i)=d(i)+d6:ifd(i)>-.1andd(i)<0thend(i)=-.1:goto2880
 2800 ifd(i)<0then2880
 2810 ifd(i)<>1thend1=1:print"damage control report: ";
 2840 printtab(8);:r1=i:gosub8790:printg2$;" repair completed."
 2880 nexti:ifrnd(1)>.2then3070
 2910 r1=fnr(1):ifrnd(1)>=.6then3000
 2930 d(r1)=d(r1)-(rnd(1)*5+1):print"damage control report:  ";
 2960 gosub8790:printg2$;" damaged":print:goto3070
 3000 d(r1)=d(r1)+rnd(1)*3+1:print"damage control report: ";
 3030 gosub8790:printg2$;" state of repair improved":print
 3060 rem**begin moving starship
 3070 a$="   ":z1=int(s1):z2=int(s2):gosub8670
 3110 x1=c(c1,1)+(c(c1+1,1)-c(c1,1))*(c1-int(c1)):x=s1:y=s2
 3140 x2=c(c1,2)+(c(c1+1,2)-c(c1,2))*(c1-int(c1)):q4=q1:q5=q2
 3170 fori=1ton:s1=s1+x1:s2=s2+x2:ifs1<1ors1>=9ors2<1ors2>=9then3500
 3240 s8=int(s1)*24+int(s2)*3-26:ifmid$(q$,s8,2)="  "then3360
 3320 s1=int(s1-x1):s2=int(s2-x2):print"warp engines shut down at sector";s1;","s2
 3350 print"due to bad navigation":goto3370
 3360 nexti:s1=int(s1):s2=int(s2)
 3370 a$="<*>":z1=int(s1):z2=int(s2):gosub8670:gosub3910:t8=1
 3430 ifw1<1thent8=.1*int(10*w1)
 3450 t=t+t8:ift>t0+t9then6220
 3470 rem**see if docked then get comand
 3480 goto1980
 3490 rem**exceeded quadrant limits
 3500 x=8*q1+x+n*x1:y=8*q2+y+n*x2:q1=int(x/8):q2=int(y/8):s1=int(x-q1*8)
 3550 s2=int(y-q2*8):ifs1=0thenq1=q1-1:s1=8
 3590 ifs2=0thenq2=q2-1:s2=8
 3620 x5=0:ifq1<1thenx5=1:q1=1:s1=1
 3670 ifq1>8thenx5=1:q1=8:s1=8
 3710 ifq2<1thenx5=1:q2=1:s2=1
 3750 ifq2>8thenx5=1:q2=8:s2=8
 3790 ifx5=0then3860
 3800 print"lt. uhura reports message from starfleet command:- permission to attempt"
 3810 print"crossing of galactic perimeter is hereby denied. shut down your engines."
 3830 print"chief engineer scott reports:- warp eng-shut down at sector";s1;",";s2
 3840 print"of quadrant";q1;",";q2
 3850 ift>t0+t9then6220
 3860 if8*q1=q2=8*q4+q5then3370
 3870 t=t+1:gosub3910:goto1320
 3900 rem**maneuver energy s/r **
 3910 e=e-n-10:ife>=0thenreturn
 3930 print"shield control supplies energy to complete the maneuver."
 3940 s=s+e:e=0:ifs<=0thens=0
 3980 return
 3990 rem***long range sensor scan code
 4000 ifd(3)<0thenprint"long range sensors are inoperable":goto1990
 4030 print"long range scan for quadrant";q1;",";q2
 4040 o1$="-------------------":printo1$
 4060 fori=q1-1toq1+1:n(1)=-1:n(2)=-2:n(3)=-3:forj=q2-1toq2+1
 4120 ifi>0andi<9andj>0andj<9thenn(j-q2+2)=g(i,j):z(i,j)=g(i,j)
 4180 nextj:forl=1to3:print": ";:ifn(l)<0thenprint"*** ";:goto4230
 4210 printright$(str$(n(l)+1000),3);" ";
 4230 nextl:print":":printo1$:nexti:goto1990
 4250 rem**phaser control code begins here
 4260 ifd(4)<0thenprint"phasers inoperative":goto1990
 4265 ifk3>0then4330
 4270 print"science officer spock reports:- "
 4280 print"sensors show no enemy ships in this     quadrant.":goto1990
 4330 ifd(8)<0thenprint"computer failure hampers accuracy"
 4350 print"phasers locked on target,total energy"
 4360 print"available =";e;"units"
 4370 input"number of units to fire";x:ifx<=0then1990
 4400 ife-x<0then4360
 4410 e=e-x:ifd(7)<0thenx=x*rnd(1)
 4450 h1=int(x/k3):fori=1to3:ifk(i,3)<=0then4670
 4480 h=int((h1/fnd(0))*(rnd(1)+2)):ifh>.15*k(i,3)then4530
 4500 print"sensors show no damage to enemy at ";k(i,1);",";k(i,2):goto4670
 4530 k(i,3)=k(i,3)-h:printh;"unit hit on klingon at:---"
 4540 print"sector";k(i,1);","k(i,2)
 4550 ifk(i,3)<=0thenprint"*** klingon destroyed ***":goto4580
 4560 print"(sensors show";k(i,3);"units remaining)":goto4670
 4580 k3=k3-1:k9=k9-1:z1=k(i,1):z2=k(i,2):a$="   ":gosub8670
 4650 k(i,3)=0:g(q1,q2)=g(q1,q2)-100:z(q1,q2)=g(q1,q2):ifk9<=0then6370
 4670 nexti:gosub6000:goto1990
 4690 rem**photon torpedo code begins here
 4700 ifp<=0thenprint"all photon torpedoes expended":goto1990
 4730 ifd(5)<0thenprint"photon tubes are not operational":goto1990
 4760 input"photon torpedo course (1-9)";c1:ifc1=9thenc1=1
 4780 ifc1>=1andc1<9then4850
 4790 print"ensign chekov reports, 'incorrect course data, sir!'"
 4800 goto1990
 4850 x1=c(c1,1)+(c(c1+1,1)-c(c1,1))*(c1-int(c1)):e=e-2:p=p-1
 4860 x2=c(c1,2)+(c(c1+1,2)-c(c1,2))*(c1-int(c1)):x=s1:y=s2
 4910 print"torpedo track:"
 4920 x=x+x1:y=y+x2:x3=int(x+.5):y3=int(y+.5)
 4960 ifx3<1orx3>8ory3<1ory3>8then5490
 5000 print"     ";x3;",";y3:a$="   ":z1=x:z2=y:gosub8830
 5050 ifz3<>0then4920
 5060 a$="{SHIFT-+}W{SHIFT-+}":z1=x:z2=y:gosub8830:ifz3=0then5210
 5110 print"*** klingon destroyed ***":k3=k3-1:k9=k9-1:ifk9<=0then6370
 5150 fori=1to3:ifx3=k(i,1)andy3=k(i,2)then5190
 5180 nexti:i=3
 5190 k(i,3)=0:goto5430
 5210 a$=" * ":z1=x:z2=y:gosub8830:ifz3=0then5280
 5260 print"star at";x3;",";y3;"absorbed torpedo energy.":gosub6000:goto1990
 5280 a$=">Q<":z1=x:z2=y:gosub8830:ifz3=0then4760
 5330 print"*** starbase destroyed ***":b3=b3-1:b9=b9-1
 5360 ifb9>0ork9>t-t0-t9then5400
 5370 print"that does it captain!! you are hereby   relieved of command"
 5380 print"and sentenced to 99 stardates at hard   labor on cygnus 12!!"
 5390 goto6270
 5400 print"starfleet command reviewing you record  to consider court martial!":d0=0
 5430 z1=x:z2=y:a$="   ":gosub8670
 5470 g(q1,q2)=k3*100+b3*10+s3:z(q1,q2)=g(q1,q2):gosub6000:goto1990
 5490 print"torpedo missed":gosub6000:goto1990
 5520 rem**shield control
 5530 ifd(7)<0thenprint"shield control inoperable":goto1990
 5560 print"energy available =";e+s;:input"number of units to shields";x
 5580 ifx<0ors=xthenprint"<shields unchanged>":goto1990
 5590 ifx<=e+sthen5630
 5600 print"shield control reports 'this is not the federation treasury.'"
 5610 print"<shields unchanged>":goto1990
 5630 e=e+s-x:s=x:print"deflector control room report:"
 5660 print" 'shields are now at";int(s)"units per your comand, sir'":goto1990
 5680 rem**damage control
 5690 ifd(6)>=0then5910
 5700 print"damage control report not available":ifd0=0then1990
 5720 d3=0:fori=1to8:ifd(i)<0thend3=d3+.1
 5760 nexti:ifd3=0then1990
 5780 print:d3=d3+d4:ifd3>=1thend3=.9
 5810 print"the technicians are standing by to"
 5815 print"effect repairs to your ship. they"
 5816 print"estimate that it will take";.01*int(100*d3);"stardates!"
 5820 print"to repair!!"
 5840 print"{down}will you authorize the repair order"
 5850 input"(y or n)";a$
 5860 ifa$<>"y"then1990
 5870 fori=1to8:ifd(i)<0thend(i)=0
 5890 nexti:t=t+d3+.1
 5910 print:print"device              state of repair"
 5915 print"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC":forr1=1to8
 5920 gosub8790:printg2$;left$(z$,25-len(g2$));int(d(r1)*100)*.01
 5950 nextr1:print:ifd0<>0then5720
 5980 goto1990
 5990 rem**klingons shooting
 6000 ifk3<=0thenreturn
 6010 ifd0<>0thenprint"starbase shields protect the enterprise":return
 6040 fori=1to3:ifk(i,3)<=0then6200
 6060 h=int((k(i,3)/fnd(1))*(2+rnd(1))):s=s-h:k(i,3)=k(i,3)/(3+rnd(0))
 6080 printh;"unit hit on enterprise from sector";k(i,1);",";k(i,2)
 6090 ifs<=0then6240
 6100 print" <shields down to";s;"units>":ifh<20then6200
 6120 ifrnd(1)>.6orh/s<=.02then6200
 6140 r1=fnr(1):d(r1)=d(r1)-h/s-.5*rnd(1):gosub8790
 6170 print"damage control reports '";g2$;" damaged by the hit'"
 6200 nexti:return
 6210 rem**end of game
 6220 print"it is stardate";t:goto6270
 6240 print:print"the enterprise has been destroyed. the  federation will be conquered"
 6250 goto6220
 6270 print"there were";k9;"klingon battle-cruisers"
 6275 print"left at the end of your mission!"
 6290 print:print:ifb9=0then6360
 6310 print"the federation is in need of a new star-ship commander for a similar";
 6320 print" mission ..."
 6325 print"{down}if there is a volunteer,let him or her  step forward and enter ----"
 6330 input" 'aye'";a$:ifa$="aye"then200
 6360 end
 6370 print"{down}{down}    *** congratulations captain!! ***"
 6375 print"{down}the last klingon battle cruiser"
 6380 print"menacing the federation has been"
 6381 print"destroyed!!"
 6400 print"{down}your efficiency rating is";1000*(k7/(t-t0))^2:goto6290
 6420 rem**short range sensor scan & start up subroutine
 6430 fori=s1-1tos1+1:forj=s2-1tos2+1
 6450 ifint(i+.5)<1orint(i+.5)>8orint(j+.5)<1orint(j+.5)>8then6540
 6490 a$=">Q<":z1=i:z2=j:gosub8830:ifz3=1then6580
 6540 nextj:nexti:d0=0:goto6650
 6580 d0=1:c$="docked":e=e0:p=p0
 6620 print"shields dropped for docking purposes":s=0:goto6720
 6650 ifk3>0thenc$="*red*":goto6720
 6660 c$="green":ife<e0*.1thenc$="yellow"
 6720 ifd(2)>=0then6770
 6730 print:print"***short range sensors are out ***":print:return
 6770 print"  1  2  3  4  5  6  7  8"
 6775 o1$="CCCCCCCCCCCCCCCCCCCCCCCCC":printo1$:fori=1to8:print" ";
 6820 forj=(i-1)*24+1to(i-1)*24+22step3:printmid$(q$,j,3);:nextj
 6825 print
 6830 onigoto6850,6900,6960,7020,7070,7120,7180,7240
 6850 print"{up}1{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}stardate";int(t*10)*.1:print:goto7260
 6900 print"{up}2{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}c0ndit. ";c$:print:goto7260
 6960 print"{up}3{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}quadrant";q1;",";q2:goto7260
 7020 print"{up}4{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}sector  ";s1;",";s2:goto7260
 7070 print"{up}5{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}phot-torp";int(p):print:goto7260
 7120 print"{up}6{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}tot-engy";int(e+s):print:goto7260
 7180 print"{up}7{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}shields";int(s):print:goto7260
 7240 print"{up}8{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}klingons";int(k9)
 7260 nexti:printo1$:return
 7280 rem**library computer code
 7290 ifd(8)<0thenprint"computer disabled":goto1990
 7320 input"computer active and awaiting command";a:ifa<0then1990
 7350 print:h8=1:ona+1goto7544,7900,8070,8500,8150,7400
 7360 print"functions available from library-computer:"
 7370 print" 0 = cumulative galactic record"
 7372 print" 1 = status report"
 7374 print" 2 = photon torpedo data"
 7376 print" 3 = starbase nav data"
 7378 print" 4 = direction/distance calculator"
 7380 print" 5 = galaxy 'region name'map":print:goto7320
 7390 rem**setup to change cum gal record
 7400 h8=0:g5=1:print"               the galaxy":goto7550
 7530 rem**cum galactic record
 7543 print:print"       "
 7544 print"computer record of galaxy for:-":print"quadrant";q1;","q2
 7546 print
 7550 print"     1   2   3   4   5   6   7   8"
 7560 o1$="    CCC{$a0}CCC{$a0}CCC{$a0}CCC{$a0}CCC{$a0}CCC{$a0}CCC{$a0}CCC"
 7570 printo1$:fori=1to8:printi;:ifh8=0then7740
 7630 forj=1to8:print" ";:ifz(i,j)=0thenprint"***";:goto7720
 7700 printright$(str$(z(i,j)+1000),3);
 7720 nextj:goto7850
 7740 z4=i:z5=1:gosub9030:j0=int(12-.5*len(g2$)):printtab(j0);g2$;
 7800 z5=5:gosub9030:j0=int(28-.5*len(g2$)):printtab(j0);g2$;
 7850 print:printo1$:nexti:print:goto1990
 7890 rem**statas report
 7900 print"  status report:":x$="":ifk9>1thenx$="s"
 7940 print"klingon";x$;" left: "k9
 7960 print"your mission must be completed in";.1*int((t0+t9-t)*10)
 7965 print"stardates"
 7970 x$="s":ifb9<2thenx$="":ifb9<1then8010
 7980 print"the federation is maintaining";b9
 7985 print"starbase";x$;" in the galaxy."
 7990 goto5690
 8010 print"your stupidity has left you on your own in the galaxy --- you have no"
 8020 print"starbase's left!":goto5690
 8060 rem**torpedo,base nav d/d calc
 8070 ifk3<=0then4270
 8080 x$="":ifk3>1thenx$="s"
 8090 print"the direction from enterprise to"
 8095 print"klingon battle-cruser";x$
 8100 h8=0:fori=1to3:ifk(i,3)<=0then8480
 8110 w1=k(i,1):x=k(i,2)
 8120 c1=s1:a=s2:goto8220
 8150 print"direction / distance calculator:"
 8160 print"you are at quadrant ";q1;",";q2:print"           sector   ";s1;",";s2
 8170 print"please enter":input" initial coordinates (x,y)";c1,a
 8200 input"  final coordinates (x,y)";w1,x
 8220 x=x-a:a=c1-w1:ifx<0then8350
 8250 ifa<0then8410
 8260 ifx>0then8280
 8270 ifa=0thenc1=5:goto8290
 8280 c1=1
 8290 ifabs(a)<=abs(x)then8330
 8310 print"direction =";c1+(((abs(a)-abs(x))+abs(a))/abs(a)):goto8460
 8330 print"direction =";c1+(abs(a)/abs(x)):goto8460
 8350 ifa>0thenc1=3:goto8420
 8360 ifx<>0thenc1=5:goto8290
 8410 c1=7
 8420 ifabs(a)>=abs(x)then8450
 8430 print"direction =";c1+(((abs(x)-abs(a))+abs(x))/abs(x)):goto8460
 8450 print"direction =";c1+(abs(x)/abs(a))
 8460 print"distance =";sqr(x^2+a^2):ifh8=1then1990
 8480 nexti:goto1990
 8500 ifb3<>0thenprint"from enterprise to starbase:":w1=b4:x=b5:goto8120
 8510 print"mr.spock reports 'sensors show no starbases in this quadrant.'":goto1990
 8580 rem**find empty place in quadrant
 8590 r1=fnr(1):r2=fnr(1):a$="   ":z1=r1:z2=r2:gosub8830:ifz3=0then8590
 8600 return
 8670 s8=int(z2-.5)*3+int(z1-.5)*24+1
 8675 iflen(a$)<>3thenprint"error":stop
 8680 ifs8=1thenq$=a$+right$(q$,189):return
 8690 ifs8=190thenq$=left$(q$,189)+a$:return
 8700 q$=left$(q$,s8-1)+a$+right$(q$,190-s8):return
 8780 rem***prints device name
 8790 onr1goto8792,8794,8796,8798,8800,8802,8804,8806
 8792 g2$="warp engins":return
 8794 g2$="short range sensors":return
 8796 g2$="long range sensors":return
 8798 g2$="phaser control":return
 8800 g2$="photon tubes":return
 8802 g2$="damage control":return
 8804 g2$="shield control":return
 8806 g2$="library-computer":return
 8820 rem**string comparison in quadrant array
 8830 z1=int(z1+.5):z2=int(z2+.5):s8=(z2-1)*3+(z1-1)*24+1:z3=0
 8890 ifmid$(q$,s8,3)<>a$thenreturn
 8900 z3=1:return
 9010 rem**quadrant name in g2$ fromz4,z5 (=q1,q2)
 9020 rem**call with g5=1 to get region name only
 9030 ifz5<=4thenonz4goto9040,9050,9060,9070,9080,9090,9100,9110
 9035 goto9120
 9040 g2$="antares":goto9210
 9050 g2$="rigel":goto9210
 9060 g2$="procyon":goto9210
 9070 g2$="vega":goto9210
 9080 g2$="canopus":goto9210
 9090 g2$="altair":goto9210
 9100 g2$="sagittarius":goto9210
 9110 g2$="pollux":goto9210
 9120 onz4goto9130,9140,9150,9160,9170,9180,9190,9200
 9130 g2$="sirius":goto9210
 9140 g2$="deneb":goto9210
 9150 g2$="capella":goto9210
 9160 g2$="betelgeuse":goto9210
 9170 g2$="aldebaran":goto9210
 9180 g2$="regulus":goto9210
 9190 g2$="arcturus":goto9210
 9200 g2$="spica"
 9210 ifg5<>1thenonz5goto9230,9240,9250,9260,9230,9240,9250,9260
 9220 return
 9230 g2$=g2$+" i":return
 9240 g2$=g2$+" ii":return
 9250 g2$=g2$+" iii":return
 9260 g2$=g2$+" iv":return
   30 gosub50010
   40 cd$="{rvof}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":a1$="nltsmr"
   45 ca$="{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1530 z1=g%(q1,q2)/100:k3=int(z1):b3=int((z1-k3)*10):s3=g%(q1,q2)-100*k3-10*b3
 1570 fori=0to2:forj=0to2:k%(i,j)=0:next:next
 1600 fori=0to7:forj=0to7:g$(i,j)=" ":next:next
 1630 g$(s1,s2)="A":ifk3=0goto1680
 1650 fori=0tok3-1:gosub7100:g$(z1,z2)="Z"
 1670 k%(i,0)=z1:k%(i,1)=z2:k%(i,2)=s9+3*int(t-t0)*rnd(u):next
 1680 ifb3<>0thengosub7100:g$(z1,z2)="{CBM-+}":b4=z1:b5=z2
 1710 ifs3=0goto1770
 1720 fori=0tos3-1:gosub7100:g$(z1,z2)="*":next:ifpn<>0goto1770
 1750 print"{clr}":pn=0
 1770 print"{home}  0 1 2 3 4 5 6 7  ";:i=0
 1780 p1=1:p2=0:gosub7200:print" O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P ";
 1790 p1=2*i+2:gosub7200:printmid$(str$(i),2,1);:m1=0
 1800 print"{CBM-G}               {CBM-M} ";:ifm1<>0goto1790
 1820 ifi<>7thenp1=2*i+3:gosub7200:print" ";:m1=1:i=i+1:goto1800
 1840 p1=17:gosub7200:print" L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} ";
 1850 ifd%(1)<0goto1930
 1860 fori=0to7:p1=2*i+2:p2=2:gosub7200:forj=0to7
 1900 printg$(i,j);:ifj<7thenprint" ";
 1920 next:next:goto1940
 1930 gosub7400
 1940 ifpn<>0goto2040
 1960 p1=1:p2=19:gosub7200:print"{rvon} stardate  condition ";
 1970 fori=2to16:p1=i:gosub7200
 1990 print"{rvon} {rvof}         {rvon} {rvof}         {rvon} ";:next
 2000 p1=17:gosub7200:print"{rvon}                     ";
 2010 p1=5:p2=20:gosub7200:print"{rvon}quadrant     sector";
 2020 p1=9:gosub7200:print"{rvon}energy      shields";
 2030 p1=13:gosub7200:print"{rvon}torpedoes  klingons{rvof}";
 2040 gosub7300
 2090 ifd0<>0goto2200
 2110 fori=s1-1tos1+1:forj=s2-1tos2+1:ifi<0ori>7orj<0orj>7goto2160
 2150 ifg$(i,j)="{CBM-+}"goto2170
 2160 next:next:goto2200
 2170 d0=1:c$="docked":e=e0:p=p0:s=0
 2175 z2=d%(1):fori=0to7:d%(i)=0:next:t=t+1
 2183 ifz2>=0goto2200
 2185 pn=1:goto1770
 2200 gosub7300:ift>t0+t9goto5500
 2280 p1=18:p2=0:gosub7200:print"               ":gosub7200
 2285 input"command";x$
 2300 fori=1to6:ifleft$(x$,1)<>mid$(a1$,i,1)thennext:goto2280
 2410 p1=19:gosub7200:forj=1to5:forj1=1to3:print"             ";
 2420 next:ifj<5thenprint
 2425 next:p1=19:gosub7200
 2430 onigoto2450,2900,3450,3720,4010,1750
 2450 input"course,distance";c1,w1:ifd%(0)>=0orw1<=.2goto2575
 2520 print"engines damaged-max .2";:goto2280
 2530 n=int(8*w1+.5):ifn<1goto2280
 2540 p1=20:p2=0:gosub7200:print"not enough energy";:ifm1=5goto2740
 2570 goto2280
 2575 n=int(8*w1+.5):ifn<1goto2280
 2580 ifk3=0goto2630
 2590 fori=0tok3-1:ifk%(i,2)<=0goto2620
 2600 z1=k%(i,0):z2=k%(i,1):x$=" ":gosub7500:gosub7100:k%(i,0)=z1
 2610 k%(i,1)=z2:x$="Z":gosub7500
 2620 next:gosub5000
 2630 p1=w1:ifw1>1thenp1=1
 2635 m1=d%(1):fori=0to7:ifd%(i)<0thend%(i)=d%(i)+p1
 2660 next:ifrnd(u)>.2goto2692
 2670 p1=int(8*rnd(u)):ifrnd(u)<.4thend%(p1)=d%(p1)-int(5*rnd(u)+1):goto2692
 2690 d%(p1)=d%(p1)+int(3*rnd(u)+1)
 2692 ifm1<0andd%(1)>=0thend%(1)=d%(1)-9999
 2693 ifm1>=0andd%(1)<0thengosub7400
 2695 d0=0:x3=s1:y3=s2:q3=8*q1+q2:e1=e:m1=0:gosub6000
 2710 onm1goto1,2720,2750,2740,2540:stop
 2720 s1=z1:s2=z2:p1=22:p2=0:gosub7200
 2730 print"automatic stop for safety";
 2740 ifd%(1)<-9000thend%(1)=d%(1)+9999:goto2185
 2745 goto2090
 2750 x=8*q1+x3+2*n*x1:y=8*q2+y3+2*n*x2
 2760 q1=int(x/8):q2=int(y/8):m1=0
 2770 s1=int(x-q1*8):s2=int(y-q2*8)
 2780 ifq1<0thenm1=1:q1=0:s1=0
 2790 ifq1>7thenm1=1:q1=7:s1=7
 2800 ifq2<0thenm1=1:q2=0:s2=0
 2810 ifq2>7thenm1=1:q2=7:s2=7
 2820 t=t+(n-i/2+1)/10:e=e1-n-10:ife<0thens=s+e:e=0:ifs<0thens=0
 2850 gosub7300:ifm1=0goto2880
 2860 p1=22:p2=0:gosub7200:print"not allowed to leave galaxy";
 2880 ifq3=8*q1+q2thenz1=s1:z2=s2:x$="A":gosub7500:goto2090
 2890 pn=1:goto1530
 2900 p1=20:p2=0:gosub7200:ifd%(2)>=0goto2930
 2920 print"lr sensors damaged";:goto2280
 2930 fori=q1-1toq1+1:forj=q2-1toq2+1
 2960 z$="---":ifi<0ori>7orj<0orj>7goto3030
 2990 za=g%(i,j):gosub7800:z$=right$(z$,3):z%(i,j)=g%(i,j)
 3030 ifi=q1andj=q2thenz$="{rvon}"+z$+"{rvof}"
 3040 print"    "z$;:next:p1=p1+1:gosub7200:next:goto2280
 3450 ifd%(4)>=0goto3470
 3460 print"photon tubes damaged";:goto2280
 3470 ifp<=0thenprint"no torpedoes";:goto2280
 3480 m1=1:ife<2goto2540
 3490 input"course";c1:p=p-1:e=e-2:gosub7300:n=100:gosub6000
 3530 p1=21:p2=0:gosub7200:ifm1<>2goto3710
 3540 ifg$(x,y)="*"goto3710
 3545 c$=g$(x,y):z1=x:z2=y:j=7:gosub7600:ifc$="{CBM-+}"goto3640
 3560 k3=k3-1:k9=k9-1:fori=0to2:ifz1<>k%(i,0)orz2<>k%(i,1)thennext
 3600 k%(i,2)=0:gosub7300:p1=21:p2=0:gosub7200:print"{rvon} klingon destroyed {rvof}";
 3620 ifk9<=0goto5550
 3630 g%(q1,q2)=100*k3+10*b3+s3:goto3710
 3640 p1=21:p2=0:gosub7200:print"{rvon} starbase destroyed !!! {rvof}";:b3=b3-1:b9=b9-1
 3660 ifb9<=0goto5560
 3670 d0=0:goto3630
 3710 gosub5000:goto2200
 3720 p1=23:p2=0:gosub7200:ifd%(6)>=0goto3750
 3730 print"shield control broken";:goto2280
 3750 input"units to shields";x:ifx>e+sthenx=e+s
 3770 ifx<0thenx=0
 3780 e=e+s-x:s=x:gosub7300:goto2200
 4010 ifd%(7)<0thenprint"map not available";:goto2280
 4140 print"{clr}     0   1   2   3   4   5   6   7"
 4150 print:fori=0to7:printi;
 4160 forj=0to7:ifz%(i,j)<0thenz$="  ?":goto4167
 4165 za=z%(i,j):gosub7800:z$=right$(z$,3)
 4167 ifq1=iandq2=jthenz$="{rvon}"+z$+"{rvof}"
 4170 printz$" ";:next:print:print:next:print:print"hit key when ready"
 4180 getx$:ifx$=""goto4180
 4195 goto1750
 5000 ifk3<=0thenreturn
 5010 ifd0=1thenreturn
 5045 e1=0:z1=s1:z2=s2:fori=0to2:ifk%(i,2)<=0goto5150
 5060 p1=sqr((k%(i,0)-s1)^2+(k%(i,1)-s2)^2):m1=int((k%(i,2)/p1)*(rnd(u)+2))
 5070 s=s-m1:ifs<0goto5190
 5080 gosub7300:e1=e1+m1:ifm1<20goto5150
 5090 ifrnd(u)>.6orm1/s<=.02goto5150
 5100 d2=m1/s+.5*rnd(u):r1=int(8*rnd(u))
 5110 d%(r1)=d%(r1)-d2
 5120 z1=s1:z2=s2:j=4:gosub7600:gosub7300
 5130 ifr1<>1goto5150
 5140 ifd%(1)<=0thengosub7400
 5150 next
 5160 p1=24:p2=0:gosub7200
 5170 print"{rvon}"str$(e1)" unit hits on enterprise {rvof}";
 5180 return
 5190 z1=s1:z2=s2:j=7:gosub7600:print"{clr}enterprise destroyed":end
 5500 print"{clr}time's up!!!"
 5540 end
 5550 print"{clr}you've won!!":end
 5560 print"{clr}you're fired!!!":end
 6000 c1=(c1-int(c1/360)*360)/45
 6003 x1=(c%(c1,0)+(c%(c1+1,0)-c%(c1,0))*(c1-int(c1)))/2
 6006 x2=(c%(c1,1)+(c%(c1+1,1)-c%(c1,1))*(c1-int(c1)))/2
 6010 z3=s1:z4=s2:z1=z3:z2=z4:z$="A":fori=1to2*n:z3=z3+x1:z4=z4+x2
 6030 t=t+.05/(1+m1):ifm1=0thene=e-int((n+10)/(2*n)+.5)
 6040 ife<0thenm1=5:e=0:goto6090
 6050 x=int(2*z3+.5)/2:y=int(2*z4+.5)/2:ifz1=xandz2=ygoto6170
 6055 ifx<0orx>7ory<0ory>7thenm1=3:goto6130
 6060 ifm1=1theny$=".":goto6130
 6070 s1=int(x+x1):s2=int(y+x2):ifs1<0ors1>7ors2<0ors2>7thenm1=6:goto6115
 6075 ifg$(s1,s2)=" "goto6120
 6080 m1=2
 6090 ifz1=int(z1)andz2=int(z2)thens1=z1:s2=z2:goto6160
 6100 s1=int(z1+x1):s2=int(z2+x2)
 6110 x=s1:y=s2:goto6120
 6115 ifi=2*nthenm=3
 6120 y$="A":z$=" "
 6130 x$=z$:gosub7500:ifm1=3thenreturn
 6140 ifm1=1thenifint(x)=xandint(y)=ythenifg$(x,y)<>" "thenm1=2:return
 6150 z1=x:z2=y:x$=y$:gosub7500:ifm1=4thenreturn
 6160 gosub7300:z$=" ":ifm1=2orm1=5thenreturn
 6170 ifm1<>6thennext:m1=4:goto6110
 6180 m1=3:goto6120
 7100 z1=int(8*rnd(u)):z2=int(8*rnd(u))
 7110 ifg$(z1,z2)<>" "goto7100
 7120 return
 7200 print"{home}";left$(cd$,p1+1);left$(ca$,p2+1);:return
 7300 p1=3:p2=21:gosub7200:za=int(t*10)/10:gosub7800:printz$;
 7320 p1=7:p2=21:gosub7200:printq1","q2;
 7330 p2=31:gosub7200:prints1","s2;:p1=11:p2=21:gosub7200:za=e:gosub7800
 7350 printz$;:p2=31:gosub7200:za=s:gosub7800:printz$;
 7360 p1=15:p2=21:gosub7200:za=p:gosub7800:printz$;
 7370 p2=31:gosub7200:za=k9:gosub7800:printz$;
 7380 z$="green ":ifd0<>0thenz$="docked":goto7395
 7385 ifk3<>0thenz$=" {rvon}red{rvof}  ":goto7395
 7390 ife<e0/30thenz$="{rvon}amber{rvof} "
 7395 p1=3:p2=32:gosub7200:printz$:return
 7400 p2=2:fori1=1to15:p1=i1+1:gosub7200:print"               ";:next
 7430 p1=9:p2=2:gosub7200
 7440 print"{rvon}sr sensors inop{rvof}";:return
 7500 ifint(z1)=z1andint(z2)=z2theng$(z1,z2)=x$
 7510 ifd%(1)>=0thenp1=2*(z1+1):p2=2*(z2+1):gosub7200:printx$
 7520 return
 7600 y$=g$(z1,z2):z$="{CBM-+}"+y$:z$=z$+z$+z$+" "
 7610 fori1=1toj:x$=mid$(z$,i1,1):gosub7500:next:return
 7800 z$="     "+mid$(str$(za),2,len(str$(za))-1):z$=right$(z$,6):return
 50010 print"{clr}star trek          version 17  23/07/78"
 50020 print:input"do you need instructions";a1$
 50030 ifleft$(a1$,1)="y"goto50460
 50040 ifleft$(a1$,1)<>"n"goto50010
 50050 print:print"please wait while i set up the galaxy!"
 50060 dim k%(2,2),d%(7),g%(7,7),z%(7,7)
 50070 dimg$(7,7),n$(2),c%(8,1)
 50080 data0,-1,-1,-1,0,1,1,1,0,1,1,0,-1,-1,-1,0,1,1
 50090 fori=0to1:forj=0to8:readc%(j,i):next:next
 50100 u=ti*rnd(ti):k9=0:b9=0:s=0:d0=0
 50110 t=100*(20+int(20*rnd(u))):t0=t:t9=40
 50120 e0=3000:e=e0:p=15:p0=p:s9=150
 50130 q1=int(8*rnd(u)):q2=int(8*rnd(u))
 50140 s1=int(8*rnd(u)):s2=int(8*rnd(u))
 50150 fori=0to7:forj=0to7
 50160 z1=rnd(u):ifz1>.98thenk3=3:goto50200
 50170 ifz1>.95thenk3=2:goto50200
 50180 ifz1>.8thenk3=1:goto50200
 50190 k3=0
 50200 k9=k9+k3
 50210 z1=rnd(u):ifz1>.96thenb3=1:goto50230
 50220 b3=0
 50230 b9=b9+b3
 50240 s3=int(8*rnd(u)+1)
 50250 g%(i,j)=100*k3+10*b3+s3
 50260 z%(i,j)=-1:next:next
 50270 ifb9<>0goto50310
 50280 b9=1:ifg%(5,2)>=200goto50300
 50290 g%(5,2)=g%(5,2)+100:k9=k9+1
 50300 g%(5,2)=g%(5,2)+10
 50310 x$="":c$=" is "
 50320 ifb9>1thenx$="s":c$=" are "
 50330 print:print"your orders:-":print
 50340 print"destroy the ";k9;"klingon warships by"
 50350 print"stardate ";t0+t9;".  there";c$;
 50360 printb9;"starbase";x$;
 50370 print"in the galaxy for resupplying your ship"
 50380 print:print:input"are you ready";x$
 50390 ifleft$(x$,1)<>"y"goto50100
 50400 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 50410 print"mission begins with the enterprise in:"
 50420 printtab(10);"  quadrant ";q1;",";q2
 50430 print:print"please wait while the enterprise is"
 50440 print"prepared for your mission"
 50450 formx=1to5000:nextmx:return
 50460 print"{clr}instructions for star trek"
 50470 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 50480 print:print"the galaxy is divided into 64 quadrants"
 50490 print"in an 8V8 square.":print:print"each quadrant is also divided into"
 50500 print"64 sectors, again 8V8":print
 50510 print:print"you will be assigned a starting point"
 50520 print"somewhere in the galaxy."
 50530 print:print"your mission: to seek & destroy the"
 50540 print"klingon warships which are menacing"
 50550 print"the federation.":print
 50560 print:print:print"press any key to continue"
 50570 geta1$:ifa1$=""goto50570
 50580 print"{clr}the following commands are available:-"
 50590 print:print"n (for navigate) allows you to travel."
 50600 print"    you set the course in degrees,thus:"
 50610 print:print"                  90"
 50620 print"                   {SHIFT--}"
 50630 print"              180CCACC0"
 50640 print"                   {SHIFT--}"
 50650 print"                  270"
 50660 print:print"    any angle may be set, from 0-359"
 50670 print:print"    you also set the distance (not"
 50680 print"    speed), in units equal to the size"
 50690 print"    of a quadrant. use small values"
 50700 print"    (eg .3) to travel within a quadrant":print
 50710 print"t (for photon torpedo) is your weapon:"
 50720 print"    you set its course in degrees,as"
 50730 print"    for navigation."
 50740 print:print:print"press any key to continue"
 50750 geta1$:ifa1$=""goto50750
 50760 print"{clr}(commands, cont)"
 50770 print:print"l (for long range sensors) shows you"
 50780 print"    what's in quadrants adjacent to"
 50790 print"    the one you're in, thus:-"
 50800 print:print"             kbs  kbs  kbs"
 50810 print"             kbs  {rvon}kbs{rvof}  kbs"
 50820 print"             kbs  kbs  kbs"
 50830 print:print"    where k, b, and s are the numbers"
 50840 print"    of klingons, starbases and stars.":print
 50850 print"m (for map) gives you a complete map"
 50860 print"    of the galaxy in the kbs form,as"
 50870 print"    recorded by the l command. it is"
 50880 print"    not updated except by using 'l'."
 50890 print:print:print"press any key to continue"
 50900 geta1$:ifa1$=""goto50900
 50910 print"{clr}(commands, cont)":print
 50920 print"s (for shield control) allows you to"
 50930 print"    set the energy level on the shields"
 50940 print"    protecting the enterprise - if they"
 50950 print"    get too low watch out!!":print
 50960 print"r (for reset) will reset your control"
 50970 print"    panel should you get it in a mess."
 50980 print"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
 50990 print"the enterprise will rarely suffer"
 51000 print"damage whilst travelling, but will"
 51010 print"often be damaged by klingon fire"
 51020 print"during battle.   this damage will"
 51030 print"affect your controls, etc.  during"
 51040 print"a voyage your crew will attempt to put"
 51050 print"things right, but the only sure way"
 51060 print"is to dock at a starbase - if you can"
 51070 print"find one!"
 51080 print:print:print"press any key to continue"
 51090 geta1$:ifa1$=""goto51090
 51100 print"{clr}time passes whilst you are travelling"
 51110 print"or fighting.  you will also be using"
 51120 print"up energy.   docking at a starbase is"
 51130 print"the only way to replenish supplies of"
 51140 print"energy and torpedoes.":print
 51150 print"while you are docked, the strong shields";
 51160 print"of the starbase will protect the"
 51170 print"enterprise from klingon fire.":print
 51180 print"the control panel will be shown next."
 51190 print"the 'condition' is one of:-"
 51200 print:print"  green   no klingons around"
 51210 print:print"  {rvon}red{rvof}     combat zone - beware"
 51220 print:print"  docked  alongside starbase"
 51230 print:print"  {rvon}amber{rvof}   energy very low"
 51240 print:print:print"press any key to continue"
 51250 geta1$:ifa1$=""goto51250
 51260 print"{clr}  0 1 2 3 4 5 6 7"
 51270 print" O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P {rvon} stardate  condition {rvof}";
 51280 print"0{CBM-G}    *          {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51290 print" {CBM-G}               {CBM-M} {rvon} {rvof}   3312  {rvon} {rvof}   {rvon}red{rvof}   {rvon} {rvof}";
 51300 print"1{CBM-G}          *    {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51310 print" {CBM-G}          ^    {CBM-M} {rvon} quadrant     sector {rvof}";
 51320 print"2{CBM-G}        star   {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51330 print" {CBM-G}               {CBM-M} {rvon} {rvof}  5 , 2  {rvon} {rvof}  3 , 3  {rvon} {rvof}";
 51340 print"3{CBM-G}      A        {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51350 print" {CBM-G}      ^        {CBM-M} {rvon} energy      shields {rvof}";
 51360 print"4{CBM-G}enterprise     {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51370 print" {CBM-G}               {CBM-M} {rvon} {rvof}   2310  {rvon} {rvof}  1226   {rvon} {rvof}";
 51380 print"5{CBM-G}{CBM-+}_starbase     {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51390 print" {CBM-G}               {CBM-M} {rvon} torpedoes  klingons {rvof}";
 51400 print"6{CBM-G}               {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51410 print" {CBM-G}               {CBM-M} {rvon} {rvof}    12   {rvon} {rvof}    17   {rvon} {rvof}";
 51420 print"7{CBM-G}    Z_klingon  {CBM-M} {rvon} {rvof}         {rvon} {rvof}         {rvon} {rvof}";
 51430 print" L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} {rvon}                     {rvof}"
 51440 print:print"what the control panel looks like"
 51450 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 51460 print:print"press any key to continue"
 51470 geta1$:ifa1$=""goto51470
 51480 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}that's all of the instructions,  except"
 51490 print"one last point:"
 51500 print:print"    you must destroy all the klingons"
 51510 print"{rvon}{down} in only 40 stardates !!":print:print
 51520 printtab(13);"good hunting"
 51530 print:print:print"press any key to continue"
 51540 geta1$:ifa1$=""goto51540
 51550 print"{clr}star trek          version 17  23/07/78"
 51560 goto50050
    1 rem sound&prog.mods: duncan langford
    2 poke59468,12
    5 sq$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":rem15,s#2
    8 dimo%(7,7),p(2,7,1),p$(4):fori=1to39:b$=b$+" ":next:l$=chr$(13)
    9 deffnr(x)=int(rnd(x)*8):p$(1)="Q":p$(2)="b":p$(3)="k":p$(4)="e"
   11 rem"property of leonard tramiel {del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   20 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}one moment please, while i arrange
   25 print"{down}the galaxy...
   30 fori=768to831:pokei,int(rnd(1)*8):next
   34 d1=17+int(rnd(1)*5):d2=96:d3=32:d4=3
   35 d=768+int(rnd(1)*64):ifpeek(d)andd2then35
   36 dd=int(rnd(1)*d4+1):d1=d1-dd:dd=dd*d3orpeek(d):poked,dd:ifd1>1then35
   37 ifd4=1then50
   38 d1=3+int(rnd(1)*4):d2=24:d3=8:d4=1:goto35
   50 si=22+int(rnd(1)*5)
   55 fori=768to831:kh=(peek(i)and96)/32:kl=kl+kh
   60 bh=(peek(i)and24)/8:bl=bl+bh:next
   65 print"{clr}{down}{down}{down}{down}{down}{down}":x(7)=kl:x(8)=val(left$(str$(si),8))
   70 print"you must destroy"kl"klingons
   71 print"{down}in "x(8);" stardates.
   72 print"{down}{down}you have"bl"starbases.{down}{down}{down}"
   75 szz=1:input"sound";ss$:ifleft$(ss$,1)<>"y"thenszz=0
  100 e=5000:p=25:s=500:it=ti:open1,3
  104 def fnr(x)=int(rnd(x)*8)
  105 xq=fnr(1):yq=fnr(1)
  110 xs=fnr(1):ys=fnr(1):d=768+xq+yq*8
  130 gosub12000:gosub63000:so=1
  140 printsq$"{down}":d=768+xq+yq*8
  142 pd=int((20+80*rnd(1))*(peek(d)and96)/32)
  143 ifpd<=0then156
  144 ifd0=1thenprint"enterprise protected by starbase.":goto156
  145 s=s-pd:ifszz<>1then151
  146 gosub63500:fori=1topd/3:poke59464,100:poke59464,140:next:gosub63600
  151 print"enterprise hit:shields down";pd;"{left} units! "
  153 ifs<100thenprint" * shields dangerously low! *"
  154 ifs<0thene=e+100*s:s=0:ife<0thengoto4200
  156 sd=si-(ti-it)/3600
  157 ifso=1thengosub10000
  158 ifsd<=0thenprint"{clr}time's up ";:end
  159 a7=1:gosub5000:goto161
  160 inputco$:c$=left$(co$,1)
  161 printb$:printb$:printb$:printb$:ifc$="c"thenso=0:gosub60000:goto140
  170 ifc$="l"thengosub30000:goto140
  175 ifso=0thengosub63000:gosub10000:so=1
  180 ifc$="s"then600
  190 ifc$="f"then700
  200 ifc$="m"then300
  210 goto500
  300 printsq$"{down}":gosub900
  320 input"distance";w$:w=val(w$)
  325 ifw=0then140
  330 ife<wthenprint"{up}{up}{up}not enough energy":printb$:printb$:print"{up}{up}":goto320
  340 e=e-w:ifd0<>1thend$=" ":x=xs:y=ys:gosub50000
  341 ifszz<>1then345
  342 gosub63500:fori=255to10step-14/w:poke59464,i:poke59464,i-10:tt=ti
  343 ifti-tt<1then343
  344 next:gosub63600
  345 m$="e":gosub40000:d0=0
  350 ifd$<>" "then360
  352 ifo%(xs,ys)<>2theno%(xs,ys)=0
  354 o%(x,y)=4:xs=x:ys=y:d$="e":gosub50000:goto140
  360 ifd$<>"Q"then390
  370 printsq$"{down}hit star.     ":print"sent through space warp."
  375 print"shields stripped."
  380 s=0:fori=1to500:next:goto105
  390 ifd$<>"k"then430
  400 end
  430 ifd$<>"b"then450
  440 d0=1:e=5500:p=25:s=0:o%(xs,ys)=0:xs=x:ys=y:goto140
  450 ifd$<>"{SHIFT-+}"then480
  460 ifw<1thenw=1
  465 xq=xq+int(w*cc+.5):yq=yq+int(w*ss+.5)
  470 if(xq<0)or(xq>7)or(yq<0)or(yq>7)then105
  475 goto110
  500 printsq$"{down}";
  510 print"commands are:  {rvon}f{rvof}ire    ","{rvon}m{rvof}ove
  520 printtab(15)"{rvon}s{rvof}hields","{rvon}l{rvof}rs"
  530 printtab(15)"{rvon}c{rvof}omputer map"
  540 goto140
  600 e=int(e+s):s=0:printsq$"{down}";
  605 print"you have"e"units available."
  610 input"how many units to shields      {left}{left}{left}{left}{left}{left}";a$:a=val(a$)
  620 ifa>eora>999thenprint"{up}{up}{up}":goto605
  621 ifszz<>1then630
  622 gosub63500:poke59464,30:tt=ti
  623 ifti-tt<20then623
  624 poke59464,25:tt=ti
  625 ifti-tt<50then625
  626 poke59464,30:tt=ti
  627 ifti-tt<20then627
  628 gosub63600
  630 e=e-a:s=a:goto140
  700 ifp=0thenprintsq$"{down}you are out of torpedoes.":goto140
  710 p=p-1:gosub900
  715 ifa>2*~then140
  720 m$="."
  730 w=2:gosub40000
  740 if(d$="{SHIFT-+}")or(d$="Q")then140
  750 ifd$="k"then800
  760 ifd$="b"then850
  800 restore:forj=1to15:readd$:gosub50000:next:kl=kl-1:o%(x,y)=0:d=768+xq+yq*8
  810 q=peek(d):dd=((qand96)-32)or(qand159):poked,dd:ifkl>0then140
  820 x(9)=val(left$(str$(sd)+"  ",3))
  825 print"{clr}{down}{down}{down}congratulations!!!!
  830 print"DDDDDDDDDDDDDDDDDDD
  835 print"{down}{down}the federation is saved!!":end
  850 restore:forj=1to15:readd$:gosub50000:next:bl=bl-1:o%(x,y)=0:d=768+xq+yq*8
  855 q=peek(d):dd=((qand24)-8)or(qand231):poked,dd
  860 printsq$:print"congratulations,":print"you destroyed a star base."
  880 print"you have"bl"bases left. good luck!!":goto140
  900 printsq$
  910 input"angle";a$:a=val(a$):a=a*~/180:ss=-sin(a):cc=cos(a):return
 1000 data"{rvon}k{rvof}","W","W","Q","Q","Q","Q","{SHIFT-+}","{SHIFT-+}","V","{CBM-+}","{CBM-+}","*","{rvon} {rvof}"," "
 3800 goto10000
 4200 print"{clr}{down}{down}the enterprise has been
 4300 print"destroyed{down}":end
 5000 printsq$"                   "l$"{up}command ?{up}";:z=-1:a=ti
 5100 fori=1to225:next:z=z*-1
 5200 getc$:ifpeek(d)and96thenifti-a>500thenprint"{down}";:poke33539,32:goto142
 5300 ifa7=1thenprint"{down}":a7=0
 5400 ifpeek(d)and96thengoto6500
 5500 ifc$=""thenifz=1thenpoke33539,160:goto5100
 5600 ifc$=""thenpoke33539,32:goto5100
 5700 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";c$
 6000 poke33539,32:return
 6500 ifszzthengosub63500:poke59464,20:fori=1to55:nexti:gosub63600
 6700 ifz=-1thenpoke33007,32:goto5500
 6800 poke33007,146:goto5500
 10000 d=768+xq+yq*8:gosub20000
 10010 print"{home}{down}{down}":printtab(29)"stardate"left$(str$(sd)+"  ",3)
 10020 printtab(29)"condition ";
 10030 d$="g"
 10035 ifd0=1thend$="{rvon}d{rvof}"
 10040 printd$tab(69)"{down}quad.  "right$(str$(xq),2)","right$(str$(yq),1)
 10050 printtab(29)"sector "right$(str$(xs),2)","right$(str$(ys),1)
 10060 printtab(29)"energy"left$(str$(e)+"    ",5)
 10070 printtab(29)"p.torp "right$("  "+str$(p),4)
 10080 printtab(29)"shields"left$(str$(s)+"  ",4)
 10090 printtab(29)"klingons "right$("  "+str$(kl),2)
 10100 return
 11000 print"{home}{down}{down}":printtab(4);:rem*read*
 11015 ifx=0then11025
 11020 fori=1tox:print"{rght}{rght}{rght}";:next
 11025 ify=0then11040
 11030 fori=1toy:print"{down}{down}";:next
 11040 get#1,d$
 11050 return
 12000 d=768+xq+yq*8:gosub20000:fori=0to7:forj=0to7:o%(i,j)=0:next:next
 12020 fork=0to2
 12025 o%(xs,ys)=4
 12030 ifd(k)=0then12080
 12040 forl=1tod(k)
 12050 x=fnr(1):y=fnr(1):ifo%(x,y)<>0then12050
 12060 o%(x,y)=k+1
 12070 nextl
 12080 nextk:return
 15000 print"{clr}"tab(3);
 15020 fori=0to7
 15030 printispc(q+1)"{left}";
 15040 next
 15050 print:printtab(2)"{CBM-A}";:forj=1tor:print"{SHIFT-*}";:next:print"{CBM-S}"
 15060 fori=0to7
 15070 print"  {SHIFT--}"spc(r)"{SHIFT--}":printi"{left}{SHIFT--}"spc(r)"{SHIFT--}"
 15080 next
 15090 print"  {CBM-Z}";:fori=1tor:print"{SHIFT-*}";:next:print"{CBM-X}"
 15091 ifszz<>1orc$<>"c"thenreturn
 15092 gosub63500:poke59466,1:forqq=1to2:forcw=205to255step10:poke59464,cw
 15093 nextcw,qq:gosub63600:return
 20000 d(0)=peek(d)and7
 20020 d(1)=int((peek(d)and24)/8)
 20030 d(2)=int((peek(d)and96)/32)
 20040 dd=peek(d):dd=ddor(128):poked,dd
 20050 return
 30000 ifszzthengosub63500:fori=1to15:forh=24to16step-1:poke59464,h:nexth,i
 30002 gosub63600
 30005 printsq$"{down}";
 30010 fory=yq-1toyq+1
 30020 forx=xq-1toxq+1
 30022 fork=0to2:d(k)=0:next
 30025 ifx<0orx>7ory<0ory>7then30060
 30030 d=768+y*8+x
 30050 gosub20000
 30060 fork=0to2
 30070 d$(k)=mid$(str$(d(k)),2,1)
 30080 next:printtab(15)d$(2)d$(1)d$(0);" ";
 30090 next:print:next:return
 40000 xi=xs+cc:yi=ys+ss
 40010 forc=1tow*8:x=int(xi+.5):y=int(yi+.5)
 40015 if(x<0)or(x>7)or(y<0)or(y>7)thend$="{SHIFT-+}":return
 40016 ifszz<>1orm$<>"."thengoto40020
 40017 gosub63500:fori=80to160step10:poke59464,i:next:gosub63600
 40020 gosub11000:ifd$<>" "thenreturn
 40030 d$=m$:gosub50000:d$=" ":gosub50000:xi=xi+cc:yi=yi+ss:next:return
 50000 print"{home}{down}{down}":printtab(4);
 50015 ifx=0then50025
 50020 fori=1tox:print"{rght}{rght}{rght}";:next
 50025 ify=0then50040
 50030 fori=1toy:print"{down}{down}";:next
 50040 printd$
 50045 ifm$="."thengosub63500:poke59464,100:fori=1to10:nexti:gosub63600
 50050 return
 60000 r=32:q=1:gosub15000:print"{home}{down}{down}{down}"tab(3);
 60020 fori=0to7
 60030 forj=0to7
 60040 fork=0to2:d(k)=0:next
 60050 jj=jj+1:d=768+j+i*8:ifint(peek(d)/128)=0then60120
 60060 gosub20000
 60065 ifj=xqandi=yqthenprint"{rvon}";
 60070 fork=0to2
 60080 d$(k)=mid$(str$(d(k)),2,1):next
 60090 printd$(2);d$(1);d$(0);"{rvof} ";:next:ifszz<>1then60100
 60091 ifjj>60thenjj=0:goto60100
 60092 gosub63500:poke59466,1:forqq=1to2:forcw=205to255step10:poke59464,cw
 60093 nextcw,qq:gosub63600
 60100 print"{down}":printtab(3);:next
 60110 print:print:return
 60120 d$(2)="*":d$(1)="*":d$(0)="*":goto60090
 63000 r=24:q=0:gosub15000:forx=0to7:fory=0to7
 63020 ifo%(x,y)<>0thend$=p$(o%(x,y)):gosub50000
 63030 next:next:gosub10000:return
 63500 poke59467,16:poke59466,14:return
 63600 poke59467,0:poke59466,0:return
 63700 gosub63500:poke59466,1:forcw=1to5:fori=205to255step10:poke59464,i:nexti
 63800 nextcw:gosub63600
 63900 sou=2
 63950 printsou
    3 print"{clr}":clr
    5 z1$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
    6 z2$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
    7 z3$="                                       "
   10 dimd%(5),k1%(7),k2%(7),k3%(7),s%(7,7),q%(7,7),d$(5),da$(5)
   20 q$="{SHIFT-+}ekb*":da$(2)="  M{SHIFT--}N1.5":da$(3)=" 5CeC1":da$(4)="  N{SHIFT--}M"
   30 cu=19:da$(5)=" 6 7 8":da$(1)=" 4 3 2":d$(0)="warp engines":d$(3)="phasers"
   40 d$(1)="short range sensors":d$(2)="long range sensors"
   70 d$(4)="torpedoes":d$(5)="galactic records"
   75 print"{down}{down}{down}{down}{down}{down}{rvon}star trek is working on your mission!
  100 deffnd(n)=sqr((k1%(i)-s1)^2+(k2%(i)-s2)^2)^.4
  110 gosub610:gosub450:q1=x:q2=y:x=8:y=1:x1=.2075:y1=6.28:x2=3.28:y2=1.8:a=.96
  120 c=100:w=10:s9=400:t9=3540+int(rnd(1)*40):goto140
  130 k=k+(n<x2)+(n<y2)+(n<.28)+(n<.08)+(n<.03)+(n<.01):k9=k9-k:goto160
  140 t0=3520:t=t0:e0=int(rnd(1)*1500+3000):e=e0:p0=int(rnd(1)*3+7):p=p0
  145 fori=0to7
  150 forj=0to7:k=0:n=rnd(1):ifn<x1thenn=n*64:k=(n<y1)-y:goto130
  160 b=(rnd(1)>a):b9=b9-b:q%(i,j)=k*c+b*w-int(rnd(1)*x+y):next j,i
  170 ifk9>(t9-t0)thent9=t0+k9
  180 ifb9>0then210
  190 gosub450:q%(x,y)=q%(x,y)-10:b9=1
  210 print"{down}objective:destroy";k9;"klingon cruisers in";t9-t0;"years"
  220 print:print"the number of bases is";b9:gosub605:k0=k9
  230 a=0:ifq1<0orq1>7orq2<0orq2>7thenn=0:s=0:k=0:goto250
  240 n=abs(q%(q1,q2)):q%(q1,q2)=n:s=n-int(n/10)*10:k=int(n/100)
  250 b=int(n/10-k*10):gosub450:s1=x:s2=y
  260 fori=0to7:forj=0to7:s%(i,j)=1:next j,i:s%(s1,s2)=2
  270 fori=0to7:k3%(i)=0:x=8:ifi>=kgoto280
  272 gosub460:s%(x,y)=3:k3%(i)=rnd(ti)*400+200:ifrnd(1)<0.05thenk3%(i)=1200
  280 k1%(i)=x:k2%(i)=y:next:i=s
  290 ifb>0thengosub460:s%(x,y)=4
  300 ifi>0thengosub460:s%(x,y)=5:i=i-1:goto300
  310 gosub550:ifd%(1)>0thengosub480:i=1:goto620
  370 gosub7000:gosub4000:gosub3000
  375 ifa=0thengosub480:gosub4000
  380 goto650
  450 x=int(rnd(1)*8):y=int(rnd(1)*8):return
  460 gosub450:ifs%(x,y)>1then460
  470 return
  480 ifk<1thenreturn
  490 if c$="docked"thengosub8000:print"base protects enterprise":return
  500 fori=0to7:ifk3%(i)<=0thennext:return
  510 h=k3%(i)*1.2*rnd(1):h=1+int(h/fnd(0)):e=e-h
  520 gosub8000:print"hit of";h;"from";k1%(i)+1;"-";k2%(i)+1;:next:return
  550 fori=s1-1tos1+1:forj=s2-1tos2+1
  560 ifi<0ori>7orj<0orj>7then580
  570 ifs%(i,j)<>4then580
  572 c$="docked":forn=0to5:ifd%(n)>0thengosub8000:print"enterprise repaired":n=5
  574 nextn:e=e0:p=p0:gosub610:i=s1+1:j=s2+1:nextj,i:return
  580 nextj,i:ifk>0thenc$="red":return
  590 ife<e0*.2thenc$="yellow":return
  600 c$="green":return
  605 print"ok?";
  608 gete$:ife$=""then 608
  609 print "{rvon} {rvof}";:return
  610 forn=0to5:d%(n)=0:next:return
  620 gosub3000:printd$(i);" damaged";
  630 gosub8000:printd%(i);"years for repair":ifa=1thenreturn
  650 gosub8000:print"command?";:gosub608:gosub2900
  660 ifa<1ora>6then680
  670 onagoto710,310,1250,1140,690,1300
  680 cu=25
  681 for j=0to5:gosub8000
  682 print"{rvon}";left$(d$(j),1);"{rvof}=";d$(j)
  683 for i=1to200:nexti
  684 nextj:goto650
  690 ifd%(4)>0thenprint"space crud blocking tubes";:i=4:goto630
  700 n=15:ifp<1thenprint"no torpedoes left":goto650
  710 cu=19:forj=1to5:gosub8000:printda$(j):next:print"{up}{up}";
  720 printtab(12)"course (1-8.9)";
  730 inputc:ifc<1orc>8.9then650
  740 ifa=5thenp=p-1:goto900
  750 printtab(12);:input"warp (0-12)";w:ifw<=0orw>12then650
  760 ifw<=.2ord%(0)<=0then780
  770 gosub8000:printd$(0);" damaged, max is .2";:i=0
  775 gosub630:forj=0to800:nextj:goto710
  780 ifrnd(1)>.33then870
  800 x=int(rnd(1)*6):ifrnd(1)>.7then830
  810 d%(x)=d%(x)+int(6-rnd(1)*5):gosub8000:print "{rvon}space storm: ";
  820 printd$(x);" broken{rvof}":i=x:gosub630:d%(x)=d%(x)+1:goto870
  830 fori=xto5:ifd%(i)>0then860
  850 next:fori=0tox:ifd%(i)>0 then860
  855 next:goto870
  860 d%(i)=1:gosub8000:print"{rvon}*scotty  hits it with a hammer*{rvof}"
  870 fori=0to5:ifd%(i)=0then890
  880 d%(i)=d%(i)-1:ifd%(i)<=0thend%(i)=0:gosub8000:printd$(i);" are fixed"
  890 next:n=int(w*8):e=e-3*n:t=t+1:s%(s1,s2)=1
  900 y1=s1+.5:x1=s2+.5:ift>t9then1370
  910 y=(c-1)*.785398:x=cos(y):y=-sin(y)
  915 e$="e":y4=s1:x4=s2
  918 ifa=5thene$="Q":x4=8
  920 fori=1ton:y1=y1+y:x1=x1+x:y2=int(y1):x2=int(x1)
  930 ifx2<0orx2>7ory2<0ory2>7theni=n:next:goto1110
  950 ifs%(y2,x2)=1thengosub2000:next:goto1060
  960 i=n:next:ifa=5thengosub2000:y3=y2:x3=x2:gosub2500:gosub6000
  970 gosub3000:ifa=1thenprint"blocked by ";
  975 ons%(y2,x2)-3goto1040,1020
  980 print"klingon";:ifa=1then1050
  990 fori=0to7:ify2<>k1%(i)then1010
 1000 ifx2=k2%(i)thenk3%(i)=0
 1010 next:k=k-1:k9=k9-1:goto1070
 1020 print"star";:ifa=5thens=s-1:goto1070
 1030 goto1050
 1040 print"starbase";:ifa=5thenb=2:goto1070
 1050 print" at sector";y2+1;"-";x2+1:y2=int(y1-y):x2=int(x1-x)
 1060 s1=y2:s2=x2:s%(s1,s2)=2:goto1090
 1070 print" destroyed!";:ifb=2thenb=0:print"....good work!";
 1080 print:s%(y2,x2)=1:q%(q1,q2)=k*100+b*10+s:ifk9<1then1400
 1090 gosub550
 1100 gosub480:gosub4000:goto650
 1110 ifa<>5then1120
 1113 y3=y4:x3=x4:gosub2500:print"{SHIFT-+}{left}";
 1115 gosub3000:print"m i s s e d !":goto1090
 1120 q1=int(q1+w*y+(s1+.5)/8):q2=int(q2+w*x+(s2+.5)/8)
 1130 q1=q1-(q1<0)+(q1>7):q2=q2-(q2<0)+(q2>7):goto230
 1140 i=3:ifd%(i)>0then620
 1150 gosub3000:input"phasers ready.units to fire";x:ifx<=0then650
 1160 ifx>ethenprint"you've only got";e:goto1150
 1170 e=e-x:fori=0to7:ifk3%(i)<=0then1230
 1180 h=int(x):k3%(i)=k3%(i)-h:gosub8000
 1185 if k3%(i)<0thenh=h+k3%(i)
 1190 print"hit of"h"on k at"k1%(i)+1"-"k2%(i)+1",";
 1200 ifk3%(i)>0thenprintk3%(i);"left";:i=7:next:goto1235
 1210 print "{rvon}*destroyed*{rvof}";:y3=k1%(i):x3=k2%(i):gosub2500:gosub6000
 1220 k=k-1:k9=k9-1:s%(k1%(i),k2%(i))=1:q%(q1,q2)=q%(q1,q2)-100:x=x-h
 1230 next i
 1235 ifk9<1then1400
 1240 goto1090
 1250 gosub3000:cu=24:i=2:ifd%(i)>0then620
 1260 print d$(i);" for quadrant";q1+1;"-";q2+1
 1270 fori=q1-1toq1+1:forj=q2-1toq2+1:print"  ";
 1280 ifi<0ori>7orj<0orj>7thenprint"***";:goto1350
 1290 q%(i,j)=abs(q%(i,j)):goto1340
 1300 i=5:ifd%(i)>0then620
 1310 print"{clr}cumulative galactic space map for":print"  stardate";t
 1312 print"  quadrant";q1+1;"-";q2+1:print
 1315 print"    1   2   3   4   5   6   7   8{down}"
 1320 fori=0to7:printi+1;:forj=0to7
 1330 ifq%(i,j)<0thenprint"***";:goto1350
 1340 e$=str$(q%(i,j)):e$="00"+mid$(e$,2)
 1345 if i=q1andj=q2 thenprint"{rvon}";right$(e$,3);"{rvof}";:goto1350
 1347 print right$(e$,3);
 1350 print" ";:next:print"      ":next:ifa<>3thengoto1355
 1352 fori=0to1800:next:gosub480:gosub4000:goto650
 1355 gosub605:gosub480:fori=0to400:next :print"{clr}":gosub3000:goto310
 1360 fori=1to2500:next:print"{clr}{down}{down}{down}it is stardate";t:print:fori=0to1800:nexti
 1365 return
 1370 gosub1360:print "thanks to your bungling the federation  will be";
 1380 print" conquered by the remaining";k9;" klingons!":print
 1390 print"you are demoted to cabin boy!":print:k0=0:goto1420
 1400 gosub1360:print"  the federation and your ass have been saved !":print
 1410 print"you are promoted to admiral":print
 1415 print"you slaughtered";k0-k9;" klingons in"t-t0;" yrs.":print
 1420 print"rating =";int(1000*(k0-k9)/(t-t0)):print
 1430 input"try again";e$:ifleft$(e$,1)="y"then3
 1435 end
 2000 y3=y2:x3=x2:gosub2500:printe$
 2050 ifx2=x4andy2=y4thenreturn
 2100 y3=y4:x3=x4:ifx4<8thengosub2500:print"{SHIFT-+}"
 2200 y4=y2:x4=x2:return
 2500 printleft$(z1$,y3*2+3);left$(z2$,x3*2+2);
 2600 return
 2900 forx3=1to6:ife$=left$(d$(x3-1),1)then 2980
 2920 next:printe$:a=7:goto2990
 2980 print"{rvon}";d$(x3-1):a=x3:fori=1to400:next
 2990 cu=19:gosub8000:return
 3000 forx3=1to6:gosub8000:next:return
 4000 ife<=0goto1370
 4005 print"{home}{down}"left$(z2$,20)"years=   {left}{left}{left}"t9-t
 4050 printtab(20)"condition "c$" "
 4100 printtab(20)"quadrant="q1+1"-"q2+1
 4200 printtab(20)"energy=     {left}{left}{left}{left}{left}"int(e):printtab(20)d$(4)"="p
 4250 printtab(20)"klingons left=   {left}{left}{left}";k9
 4300 return
 6000 restore:forx3=1to7:read e$:print e$;:fory3=1to60:nexty3:nextx3:return
 6400 data"+{left}","{rvon} {rvof}{left}","V{left}"," {left}","{up}{left}U{rght}I{down}{down}{left}{left}{left}J{rght}K{up}{left}{left}","{up}{left} {rght} {down}{down}{left}{left}{left} {rght} {up}{left}{left}","{SHIFT-+}{left}"
 7000 print"{clr}{CBM-A}{SHIFT-*}1{SHIFT-*}2{SHIFT-*}3{SHIFT-*}4{SHIFT-*}5{SHIFT-*}6{SHIFT-*}7{SHIFT-*}8{SHIFT-*}{CBM-S}":print"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--} {SHIFT--} {SHIFT--}"
 7100 fori=0to7:print"{left}";i+1;"{left}{SHIFT-*}";:forj=0to7:printmid$(q$,s%(i,j),1);"{SHIFT-*}";:next
 7200 print"{CBM-W} "
 7300 print"{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}{$a0}{SHIFT--}":next:print"{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}":return
 8000 cu=cu+1:ifcu>24thencu=20
 8100 printleft$(z1$,cu);z3$:printleft$(z1$,cu);:return
   10 rem  *  space shooter
   20 rem  *  by  dave howe
   30 rem  *  916-445-7926
   40 rem
   42 print"{clr}        s p a c e  s h o o t e r"
   43 poke 59468,14
   44 print"{down}  yOUR AUTO SENSOR HAS LOCKED ONTO AN"
   45 print"ENEMY VESSLE.  tHE FINAL AIMING IS UP"
   46 print"TO YOU."
   47 print"  yOUR SPEED DETERMINES DIFFICULTY."
   48 print"1 = slow"
   49 print"2 = medium"
   50 print"2 = medium"
   51 print"3 = fast"
   52 input "select speed now ";q$
   53 print
   54 print"*note* using sound makes it necessary"
   55 print"to turn off your pet or poke 59464,0
   56 print"poke 59466,0 and poke 59467,0 to
   57 print"load a new program.
   60 if q$ <"4" and q$ > "0" then 65
   62 print"{down}{down}only difficulty 1 - 3 allowed"
   63 for w=1 to 2000:next
   64 goto52
   65 print"{down} fire BY{$a0}PRESSING{$a0}THE{$a0}{rvon}f{rvof} KEY"
   66 print"{down}aIM BY PRESSING THE {rvon}4{up}8{down}6{left}{left}{down}2{up}{rght}{rvof} KEYS"
   67 print"{down}{rvon}4{rvof} mAKES{$a0}THE{$a0}TARGET{$a0}MOVE{$a0}LEFT"
   68 print"{rvon}8{rvof} mAKES{$a0}THE{$a0}TARGET{$a0}MOVE{$a0}UP"
   69 print"{rvon}6{rvof} mAKES{$a0}THE{$a0}TARGET{$a0}MOVE{$a0}RIGHT"
   70 print"{rvon}2{rvof} mAKES{$a0}THE{$a0}TARGET{$a0}MOVE{$a0}DOWN"
   71 print"{down}yOU HAVE 60 SECONDS BEFORE THE"
   72 print"ENEMY{$a0}SHOOTS{$a0}BACK  -  AND{$a0}HE{$a0}DOESN'T"
   73 print"MISS.          good luck":print"{down}press b to begin"
   74 get w$:ifw$=""then74
   75 q=val(q$)
   76 v$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   77 h$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   78 r$="{CBM-Q}{SHIFT-*}Q{SHIFT-*}{CBM-W}{left}{left}{left}{up}{CBM-R}"
   79 re$="     {left}{left}{left}{up} "
   80 g$="{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT--}{down}{left}{SHIFT-+}{down}{left}{SHIFT-+}{left}{left}{left}{left}{left}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{rght}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{down}{left}{SHIFT-+}{down}{left}{SHIFT--}{down}{left}{SHIFT--}"
   85 poke 59468,12
   90 print"{clr}";
   91 print"{rvon}                                        ";
   92 for w=1 to 22
   93 print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";
   94 next
   95 print"{rvon}                                        ";
   96 v=18:h=33:vo=18:ho=33
   99 ti$="000000"
  100 printleft$(v$,vo);left$(h$,ho);re$
  110 printg$
  115 printleft$(v$,v);left$(h$,h);r$
  116 printleft$(v$,24);"{rvon} time ";right$(ti$,2);"           enemy";cs;" you";hs
  117 if ti$>"000060"then1000
  120 get i$:ifi$=""then 140
  125 d$=i$
  130 ifd$="2"ori$="4"ori$="8"ori$="6"then140
  132 ifd$="f"thengoto 200
  135 goto 120
  140 vo=v:ho=h
  145 on(val(d$)/2)goto150,155,160,165
  150 v=v+q:goto180
  155 h=h-(q+1):goto180
  160 h=h+(q+1):goto180
  165 v=v-q
  180 rv=int(rnd(1)*3)-1
  185 rh=int(rnd(1)*3)-1
  190 v=v+rv:h=h+rh
  191 ifv<3then v=3
  192 ifh<1thenh=1
  193 if v>23thenv=23
  194 if h>34thenh=34
  195 goto 100
  200 rem fire
  210 printleft$(v$,21);tab(28);
  212 print"M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M{left}{left}{up} {left}{left}{up}M"
  220 printleft$(v$,21);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N{up} {up}N{up} {up}N{up} {up}N{up} {up}N{up} {up}N{up} {up}N{up} {up}N{up} {up}N"
  221 fori=1to3
  222 poke59466,85:poke59467,16
  223 poke59464,100:poke59464,75:poke59464,100:poke59464,50:poke59464,0
  224 nexti
  230 printleft$(v$,21);tab(28);
  232 print" {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} {left}{left}{up} "
  240 printleft$(v$,21);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} {up} "
  280 if peek(33187)= 114 then 400
  285 if peek(33187)= 81 then 400
  290 if peek(33267)= 81 then 400
  295 if peek(33226)= 81 then 400
  296 if peek(33228)= 81 then 400
  300 goto 140
  400 rem    direct hit
  401 for l=1 to 1
  402 for dh=1to9
  403 x=int(rnd(1)*245)
  404 ifx<100then403
  410 printleft$(v$,12);left$(h$,4);"*     *    *  * *  *   *      *"
  419 printleft$(v$,6-(dh-6));left$(h$,(20+dh));" {down}{left} {down}{left} "
  420 printleft$(v$,6-(dh-5));left$(h$,(21+dh));"Q{down}{left}{SHIFT--}{down}{left}{CBM-E}"
  421 poke59464,dh+x
  422 poke59464,0
  429 printleft$(v$,17+(dh-6));left$(h$,(19-dh));" "
  430 printleft$(v$,17+(dh-5));left$(h$,(18-dh));"{CBM-R}"
  439 printleft$(v$,13-(dh));left$(h$,(20-dh));" {left}{up} "
  440 printleft$(v$,12-(dh));left$(h$,(19-dh));"{SHIFT--}{left}{up}{CBM-R}"
  450 printleft$(v$,2);left$(h$,19);"*{left}{down}{down}{down}{down}*{left}{down}{down}{down}{down}*{left}{$f6}{down}*{left}{down}*{left}{left}{down}{down}{down}*{left}{down}{down}{down}{down}*"
  452 printleft$(v$,2);left$(h$,19);" {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} "
  454 printleft$(v$,14);left$(h$,19);" {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} {left}{down} "
  480 next
  482 printleft$(v$,6-(dh-6));left$(h$,(20+dh));" {down}{left} {down}{left} "
  483 printleft$(v$,17+(dh-6));left$(h$,(19-dh));" "
  484 printleft$(v$,13-(dh));left$(h$,(20-dh));" {left}{up} "
  485 next
  490 hs=hs+1
  495 if hs>csthenq=q+1
  500 if q>4thenq=4
  520 goto 90
 1000 rem   you loose
 1010 print"{clr}{down}{down}{down}{down}{down}"
 1050 print"                  {rvon}   {rvof}           "
 1055 print"                   {rvon} {rvof}{$a0}{$a0}          "
 1060 print"         {rvon} {rvof}        {CBM-D}{rvon} {rvof}{CBM-F}{$a0}       {rvon} {rvof}  "
 1065 print"         {rvon}          {rvof}~{rvon}          {rvof}     "
 1070 print"         {rvon} {rvof}        {rvon}   {rvof}        {rvon} {rvof}"
 1075 print"                  {CBM-Z}{SHIFT-+}{CBM-X}  {$a0}{$a0}{$a0}          "
 1080 for w=1 to 1000:next
 1084 for w9=1 to 1
 1085 for w=1to12
 1086 printleft$(v$,w+12);"                  J{SHIFT-*}K"
 1087 poke59466,85:poke59467,16
 1088 poke59464,50:poke59464,100:poke59464,150:poke59464,100:poke59464,50
 1090 poke59464,0
 1091 next w
 1094 for w8=1to 12
 1095 printleft$(v$,w8+12);"                                      "
 1096 next w8
 1097 next w9
 1110 printleft$(v$,22);tab(18);"ouch!"
 1112 poke59464,250:poke59464,0
 1115 for w=1 to 2000:next
 1200 cs=cs+1
 1210 q=q-1:if q<1then q=1
 1219 print"{clr}"
 1220 goto 90
    0 clr:poke59468,12
    1 rem states copyright (c) 1979 art carpet
    2 rem 28278 enderly st.
    3 rem canyon country ca 91351
    4 :
    5 rem cursor #11, june, 1979
    6 rem box 550, goleta, ca. 93017
    7 :
   10 rem as of july 6 1979
   90 pg$="states":nm$="11":gosub62000
  100 dimt(24),e(50),a$(50),b$(50)
  145 kk=25
  146 cr$=chr$(13)
  170 forx=1to50:reada$(x):next:forx=1to50:readb$(x):next
  180 gosub880
  185 co=0:ic=0
  190 print"{clr}";:gosub800
  200 ifco+ic=ttthen1020
  210 ifc=1then240
  220 ifc=2then430
  230 goto980
  240 d$=b$(t(m)):b$(t(m))="{rvon}"+b$(t(m))+"{rvof}"
  250 forx=1tod:printchr$(x+64)". ";a$(t(x)):next
  260 print"{home}"tab(25)b$(t(m))
  270 getin$:ifin$<>""then270
  280 print"{home}{down}{down}";tab(25);
  285 gosub60000:ifin$=""then280
  290 j=asc(in$)-64
  295 ifj>0andj<=dthen300
  296 gosub1150:goto280
  300 print"{home}{down}{down}"tab(25)a$(t(j))
  310 ifj<>mthen320
  315 print"{home}{down}{down}{down}{down}";tab(25);"correct":co=co+1:dl=125
  316 tb=m-1:gosub1200:print"{rght}{rght}{rght}{rvon}";a$(t(m))
  317 goto380
  320 print"{home}{down}{down}{down}{down}"tab(25)"incorrect":dl=300
  330 ic=ic+1:b$=a$(t(m)):a$(t(m))="{rvon}"+a$(t(m))+"{rvof}"
  340 print"{home}";:forx=1tod:printchr$(x+64)". ";a$(t(x)):next:a$(t(m))=b$
  350 forx=1to3000:next
  360 gosub1130
  370 print"{home}";:forx=1tod:printtab(25)b$(t(x)):next
  380 b$(t(m))=d$
  390 gosub1250:goto190
  430 d$=a$(t(m)):a$(t(m))="{rvon}"+a$(t(m))+"{rvof}"
  440 forx=1tod:printchr$(x+64)". ";b$(t(x)):next
  450 print"{home}"tab(25)a$(t(m))
  460 getin$:ifin$<>""then460
  470 print"{home}{down}{down}";tab(25);
  475 gosub 60000:ifin$=""then470
  480 j=asc(in$)-64
  485 ifj>0andj<=dthen490
  486 gosub1150:goto470
  490 print"{home}{down}{down}"tab(25)b$(t(j))
  500 ifj<>mthen510
  503 print"{home}{down}{down}{down}{down}";tab(25)"correct":co=co+1:dl=125
  505 tb=m-1:gosub1200:print"{rght}{rght}{rght}{rvon}";b$(t(m))
  506 goto570
  510 print"{home}{down}{down}{down}{down}"tab(25)"incorrect":dl=300
  520 ic=ic+1:b$=b$(t(m)):b$(t(m))="{rvon}"+b$(t(m))+"{rvof}"
  530 print"{home}";:forx=1tod:printchr$(x+64)". ";b$(t(x)):next:b$(t(m))=b$
  540 forx=1to3000:next
  550 gosub1130
  560 print"{home}";:forx=1tod:printtab(25)a$(t(x)):next
  570 a$(t(m))=d$
  580 gosub1250
  590 goto190
  620 dataalabama,alaska,arizona,arkansas,california,colorado
  630 dataconnecticut,delaware,florida,georgia,hawaii,idaho
  640 dataillinois,indiana,iowa,kansas,kentucky,louisiana,maine
  650 datamaryland,massachusetts,michigan,minnesota,mississippi
  660 datamissouri,montana,nebraska,nevada,"new hampshire","new jersey"
  670 data"new mexico","new york","north carolina","north dakota",ohio
  680 dataoklahoma,oregon,pennsylvania,"rhode island","south carolina"
  690 data"south dakota",tennessee,texas,utah,vermont,virginia
  700 datawashington,"west virginia",wisconsin,wyoming
  710 datamontgomery,juneau,phoenix,"little rock",sacramento,denver
  720 datahartford,dover,tallahassee,atlanta,honolulu,boise
  730 dataspringfield,indianapolis,"des moines",topeka,frankfort
  740 data"baton rouge",augusta,annapolis,boston,lansing,"st. paul"
  750 datajackson,"jefferson city",helena,lincoln,"carson city",concord
  760 datatrenton,"santa fe",albany,raleigh,bismarck,columbus
  770 data"oklahoma city",salem,harrisburg,providence,columbia,pierre
  780 datanashville,austin,"salt lake city",montpelier,richmond
  790 dataolympia,charleston,madison,cheyenne
  800 forx=1tod:t(x)=0:next:forx=1to50:e(x)=0:next:m=0
  810 forx=1tod
  820 r%=rnd(ti)*50+1
  830 ife(r%)=1then820
  840 t(x)=r%:e(r%)=1
  850 next
  860 r%=rnd(ti)*d+1:m=r%
  870 return
  880 print"{clr}":ifgq>0then910
  885 print"how hard should the game be?"
  890 print"{down}1 (easy) to 100 (hard) ? ";:gosub60000
  895 d=val(in$):ifd<1ord>100thengoto880
  900 d=int((d-1)/99*22)+2
  910 print"{down}{down}do you want to...
  920 print"{down}1: guess states
  930 print"{down}2: guess capitals
  940 print"{down}3: combination
  945 print"{down}pick one: ";:gosub 60000:c=val(in$)
  950 ifc<1orc>3thenprint"{up}                                ":print"{up}{up}{up}":goto945
  960 print"{down}{down}how many questions shall i ask? ";:gosub60000:tt=val(in$)
  965 iftt<1thenprint"what kind of quiz is that?":goto960
  970 iftt>100thenprint"don't overtax yourself.":goto960
  975 return
  980 r%=rnd(ti)*2+1
  990 ifr%=0then980
 1000 ifr%=1then240
 1010 ifr%=2then430
 1020 print"{clr}{down}{down}out of";tt;"question";:iftt<>1thenprint"s";
 1030 print", you got";co;"of them":print"(or";
 1040 printint(co/tt*100+.5);"{left}%) correct.
 1045 gq=gq+tt:gc=gc+co
 1050 print"{down}want to try again? ";:gosub60000
 1060 ifleft$(in$,1)<>"n"thengoto180
 1065 print"{clr}{down}{down}you were asked";gq;"question";:ifgq<>1thenprint"s";
 1070 print", of which":print"you got";gc;"(or";int(gc/gq*100+.5);"{left}%) correct.
 1099 print"{down}":end
 1100 print"{home}{down}{down}";
 1110 forz=1to10:printtab(25);"              ":next z
 1120 return
 1130 print"{home}";:goto1110
 1150 printtab(25);"{up}type a letter"
 1160 printtab(25);"from a to ";chr$(64+d);"."
 1170 forz=1to1000:nextz
 1180 gosub1100
 1190 return
 1200 print"{home}";:iftb>=1thenforz=1totb:print"{down}";:nextz
 1210 return
 1250 td=ti+dl
 1260 ifti<tdthen1260
 1270 return
 7000 print"{down}{up}":forkk=1to25
 7010 print"{rght}";
 7015 nextkk
 7020 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:if z$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn
 60265 gosub60500
 60270 return
 60500 fori=1to10:print"DDDD";:next:print:return
 62000 print"{clr}{down}";tab(9);"cursor #11   states
 62010 print"{down} copyright (c) 1979   by art carpet{down}
 62020 gosub60500
 62030 print"{down}guess states and capitals of the u.s.a.
 62040 print"{down}{down}want instructions? ";:gosub60000:ifleft$(in$,1)="y"then62100
 62050 print"{clr}";:clr:goto100
 62100 lp=1:gosub60200
 62110 print"{down}this program will drill you in matching
 62120 print"{down}the capitals and states of the united
 62130 print"{down}states. amaze your friends with your
 62140 print"{down}inexhaustable fount of knowledge of
 62150 print"{down}this arcane (and archaic) field.
 62160 print"{down}{down}besides, you might have to teach
 62170 print"{down}geography someday!{down}
 62200 gosub60500:gosub60200
   10 print"{clr}"
   20 g=33268
   30 print"****************************************":print:print:print
   40 print"             **************"
   50 print"             *sternenfalle*
   60 print"             **************"
   70 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}****************************************"
   80 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   90 print:print:print
  100 input"wieviele crash's";x
  110 input"geschwindigkeit (1-100)";z:z=100-z
  115 input"{rvon}s{rvof}terne oder {rvon}g{rvof}emischt";a$
  130 ti$="000000":b=0
  150 print"{clr}"
  160 s=int(40*rnd(1))
  165 ifq1=10thenq1=0:q=int(rnd(8)*256):goto167
  166 q1=q1+1
  167 ifa$="s"thenq=42
  170 printtab(s)chr$(q)
  180 ifpeek(g)<>32andpeek(g)<>81then260
  190 pokeg,81
  200 fori=0toz:next
  210 a=peek(151)
  220 ifa=26ora=49theng=g-1
  230 ifa=18ora=50theng=g+1
  240 goto160
  260 print"crash nr"b+1:b=b+1
  270 ifb=xthen290
  280 goto160
  290 print"ende"
  300 print"ihre zeit:"ti$
  310 print"wollen sie nochmal (j/n)":poke158,0
  320 inputa$
  330 ifa$="j"then10
  340 end
  100 dims(5),p(5),z(5),c(5)
  110 x=1
  120 a=int((rnd(x)/10)*100+.5)/100
  130 t5=0:x9=0:n1=0:n2=0:e1=0:e2=0
  140 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}this is the game of"
  150 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}stock market"
  160 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}do you want instruction's?"
  170 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}type {rvon}y{rvof} for yes or {rvon}n{rvof} for no.";
  180 getz$:ifz$=""then180
  190 ifz$="y"thengoto230
  200 ifz$="n"thengoto490
  210 print:print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you made a mistake!"
  220 goto170
  230 print"{clr}this program plays the stock market. you"
  240 print"will be given $10,000 and may buy or "
  250 print"{down}sell stocks. the stock prices will be "
  260 print"{down}generated randomly and therefore this"
  270 print"{down}model does not represent exactly what"
  280 print"{down}happens on the exchange. a table of"
  290 print"{down}available stocks, thier prices, and the"
  300 print"{down}number of shares in your portfolio will"
  310 print"{down}be printed. following this, the initials"
  320 print"of each stock will be printed with a ?"
  330 print"{down}here you indicate a transaction."
  340 print"{down}   {rvon}press any key to continue!"
  350 geta$:ifa$=""then350
  360 print"{clr}to buy a stock type +nnn,to sell a stock"
  370 print"type -nnn, where nnn is the number of"
  380 print"{down}shares. a brokerage fee of 1% will be"
  390 print"{down}charged on all transactions. note that"
  400 print"{down}if a stocks value drops to zero it may"
  410 print"{down}rebound to a positive value again! you"
  420 print"{down}have $10,000 to invest. use integers"
  430 print"{down}for all your inputs. (note: to get a"
  440 print"{down}'feel' for the market run for at least"
  450 print"{down}ten days)"
  460 print"{down}    --------- good luck ----------"
  470 print"{down}  {rvon}press any key to continue!"
  480 geta$:ifa$=""then480
  490 rem
  500 s(1)=50
  510 s(2)=42
  520 s(3)=125
  530 s(4)=26
  540 s(5)=5
  550 t8=int(4.99*rnd(x)+1)
  560 ifrnd(x)>.5then580
  570 a=-a
  580 rem
  590 gosub1630
  600 rem
  610 fori=1to5
  620 p(i)=0
  630 z(i)=0
  640 nexti
  650 print"{clr}{down}"
  660 c=10000
  670 print"stock","","initials","price"
  680 print"int.ballistic miss","  ibm",s(1)
  690 print"red cross of aust.","  rca",s(2)
  700 print"brocken hill pty.","  bhp",s(3)
  710 print"aust.bankrupt co.","  abc",s(4)
  720 print"shanes book store","  sbs",s(5)
  730 rem
  740 z4=z5:z5=0:t=0
  750 fori=1to5
  760 z5=z5+s(i)
  770 t=t+s(i)*p(i)
  780 nexti
  790 z5=int(100*(z5/5)+.5)/100
  800 z6=int((z5-z4)*100+.5)/100
  810 rem
  820 d=t+c
  830 ifx9>0then860
  840 print"{down}adelaide stock exchange avg. =";z5
  850 goto880
  860 print"{down}adelaide stock exchange avg. =";z5
  870 print"{down}that's a net change of:";z6
  880 print
  890 t=int(100*t+.5)/100
  900 print"{down}total stock assets are $";t
  910 c=int(100*c+.5)/100
  920 print"{down}total cash assets are  $";c
  930 d=int(100*d+.5)/100
  940 print"{down}total assets are       $";d
  950 print
  960 print"press {rvon}1{rvof} to buy or sell or {rvon}0{rvof} to pass"
  970 geta$:ifa$=""then970
  980 ifa$="0"thenz(1)=0:z(2)=0:z(3)=0:z(4)=0:z(5)=0:goto1110
  990 ifa$<>"1"thengoto960
 1000 print"{down}what is your transaction in:-"
 1010 print"i.b.m.";
 1020 inputz(1)
 1030 print"r.c.a.";
 1040 inputz(2)
 1050 print"b.h.p.";
 1060 inputz(3)
 1070 print"a.b.c.";
 1080 inputz(4)
 1090 print"s.b.s.";
 1100 inputz(5)
 1110 print
 1120 rem
 1130 p5=0
 1140 rem
 1150 s5=0
 1160 for i=1to5
 1170 letz(i)=int(z(i)+.5)
 1180 ifz(i)<=0then1210
 1190 p5=p5+z(i)*s(i)
 1200 goto1250
 1210 s5=s5-z(i)*s(i)
 1220 if-z(i)<=p(i)then1250
 1230 print"{down}you have oversold a stock; try again."
 1240 goto1000
 1250 nexti
 1260 rem
 1270 t5=p5+s5
 1280 rem
 1290 b5=int(.01*t5*100+.5)/100
 1300 rem
 1310 rem
 1320 c5=c-p5-b5+s5
 1330 ifc5>=0then1370
 1340 print"{down}you have used $";-c5;" more than you"
 1350 print"have!"
 1360 goto1000
 1370 c=c5
 1380 rem
 1390 fori=1to5
 1400 p(i)=p(i)+z(i)
 1410 nexti
 1420 rem
 1430 gosub1630
 1440 rem
 1450 rem
 1460 fori=1to20
 1470 printchr$(135);
 1480 nexti
 1490 print"   ***** end of day's trading *****"
 1500 print
 1510 ifx9<1then1520
 1520 print"stock price  holdings  value  net change"
 1530 print"i.b.m.";s(1)tab(14);p(1)tab(22);s(1)*p(1)tab(32);c(1)
 1540 print"r.c.a.";s(2)tab(14);p(2)tab(22);s(2)*p(2)tab(32);c(2)
 1550 print"b.h.p.";s(3)tab(14);p(3)tab(22);s(3)*p(3)tab(32);c(3)
 1560 print"a.b.c.";s(4)tab(14);p(4)tab(22);s(4)*p(4)tab(32);c(4)
 1570 print"s.b.s.";s(5)tab(14);p(5)tab(22);s(5)*p(5)tab(32);c(5)
 1580 x9=1
 1590 print
 1600 print
 1610 goto730
 1620 rem
 1630 rem
 1640 ifn1<0then63999
 1650 i1=int(4.99*rnd(x)+1)
 1660 n1=int(4.99*rnd(x)+1)
 1670 e1=1
 1680 ifn2>0then1720
 1690 i2=int(4.99*rnd(x)+1)
 1700 n2=int(4.99*rnd(x)+1)
 1710 e2=1
 1720 rem
 1730 n1=n1-1
 1740 n2=n2-1
 1750 rem
 1760 fori=1to5
 1770 x1=rnd(x)
 1780 ifx1>.25then1810
 1790 letx1=.25
 1800 goto1890
 1810 ifx1>.5then1840
 1820 x1=.5
 1830 goto1890
 1840 ifx1>.75then1870
 1850 x1=.75
 1860 goto1890
 1870 x1=0
 1880 rem
 1890 w3=0
 1900 ife1<1then1950
 1910 ifint(i1+.5)<>int(i+.5)then1950
 1920 rem
 1930 w3=10
 1940 e1=0
 1950 ife2<1then2010
 1960 ifint(i2+.5)<>int(i+.5)then2010
 1970 rem
 1980 w3=w3-10
 1990 e2=0
 2000 rem
 2010 c(i)=int(a*s(i))+x1+int(3-6*rnd(x)+.5)+w3
 2020 c(i)=int(100*c(i)+.5)/100
 2030 s(i)=s(i)+c(i)
 2040 ifs(i)>0then2080
 2050 c(i)=0
 2060 s(i)=0
 2070 goto2090
 2080 s(i)=int(100*s(i)+.5)/100
 2090 nexti
 2100 rem
 2110 t8=t8-1
 2120 ift8<1then2140
 2130 return
 2140 rem
 2150 rem
 2160 t8=int(4.99*rnd(x)+1)
 2170 a=int((rnd(x)/10)*100+.5)/100
 2180 s4=rnd(x)
 2190 ifs4<=.5then2210
 2200 a=-a
 2210 return
 2220 print"{down}{down}   {rvon}hope you had fun!!"
 2230 end
    0 clr:pg$="stop!":nm$="28":goto62000
    1 "by: randall lockwood
    2 " 90 dyke rd
    3 " setauket, ny 11733
    4 "
    5 " cursor #28, nov 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca. 93116
   10 " 19nov81 4:00pm
  100 u$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":b$="        "+cr$
  110 tn=15:sp=wd*2:c$="                   "
  120 dimt(12),x1(12),p1(12),p(12),r(4),rr(6,1)
  130 dimps%(2,12),gc(2),w%(12),x(12),pf(2,12),pn$(2),ps$(2)
  140 print"{clr}{down}want to play against the pet? ";
  150 ln=254:gosub60000:print:pet=(left$(in$,1)<>"n")
  160 ifpetthenpn$(1)="you":pn$(2)="i":ps$(1)="your":ps$(2)="my":goto210
  170 fori=1to2:print"player";i;"{left}'s name? ";:gosub60000
  180 ifin$=""thenin$="player "+chr$(i+48)
  190 pn$(i)=left$(in$,8):ps$(i)=pn$(i)+"'s"
  200 nexti
  210 gc(1)=81:gc(2)=87
  215 fori=2to12:t(i)=12-2*abs(7-i):next
  230 fori=2to12:p(i)=crt+3*i-2+(14+t(i))*wd:next
  240 z$="{CBM-@}{CBM-@} ":print"{clr}":print"{up}";tab(19);" 7{down}
  250 printtab(16)" 6 "z$" 8{down}
  260 printtab(13);" 5 "z$z$z$" 9{down}
  270 printtab(10);" 4 "z$z$z$z$z$"10{down}
  280 printtab(7);" 3 "z$z$z$z$z$z$z$"11{down}
  290 print"     2 "z$z$z$z$z$z$z$z$z$"12{down}
  300 print"    "z$z$z$z$z$z$z$z$z$z$z$"{down}
  310 print"    "z$z$z$z$z$z$z$z$z$z$z$"{down}
  320 printtab(7);z$z$z$z$z$z$z$z$z$"{down}
  330 printtab(10);z$z$z$z$z$z$z$"{down}
  340 printtab(13)z$z$z$z$z$"{down}
  350 printtab(16)z$z$z$"{down}
  360 printtab(19);z$"{home}
  400 fori=1to2:forj=2to12:ps%(i,j)=0:pf(i,j)=0:nextj:cw(i)=0:nexti
  410 forj=2to12:w%(j)=0:nextj
  470 pl=2
  475 print"{home}";tab(31);"the dice
  480 c=3
  490 pl=pl+1:ifpl>2thenpl=1
  510 fori=2to12:x(i)=0:next:fr=0
  515 print"{home}";c$
  520 print"{home}";ps$(pl);" turn  ";chr$(gc(pl)+128)
  540 ifpl=2andpetthen1200
  545 gosub2200:ifr$="q"thenprint"{clr}":end
  546 ifr$="r"then870
  580 printu$;"{rvon} stop ":t=ti+300
  590 forj=2to12
  600 ifx(j)=0then720
  605 sd=135/2^(pf(pl,j)/12):gosub2600
  610 ifpf(pl,j)<=t(j)then680
  620 cw(pl)=cw(pl)+1:w%(j)=1
  630 fork=1tot(j)+1:pokep(j)-sp*k,gc(pl):pokep(j)-sp*k+1,gc(pl)
  650 nextk
  670 goto720
  680 ifps%(pl,j)>0thenpokep(j)-sp*ps%(pl,j)+pl-1,100
  690 pokep(j)-sp*pf(pl,j)+pl-1,gc(pl)
  710 ps%(pl,j)=pf(pl,j)
  720 gosub2650:nextj
  723 ifti<tthen723
  725 printu$;b$
  730 ifcw(pl)>=3then1100
  740 goto480
  870 printu$;"{rvon} zap!! "
  875 sd=255:tn=25:gosub2600
  880 forz=1to750:next
  885 gosub2650
  890 printu$;"       ":forj=2to12
  900 ifx(j)=0then960
  910 ifpf(pl,j)<=t(j)thenpokep(j)-sp*pf(pl,j)+pl-1,100:goto950
  930 printleft$(u$,13-t(j));tab(3*j-2);right$(str$(j),2)
  950 pf(pl,j)=ps%(pl,j)
  960 nextj:goto480
 1000 gosub2490
 1020 t=m(1):gosub1900
 1030 t=m(2):gosub1900
 1040 ifpl=2andpetthenforz=1to2000:next
 1050 goto540
 1100 z$="s":ifpetthenz$=""
 1105 restore:i=1:z=18:t=ti
 1110 print"{home}";c$:fork=1to30
 1115 print"{home}"chr$(z);pn$(pl);" win";z$:t=ti+6
 1120 ifk=ithenreadsd,i:i=k+i:gosub2650:gosub2600
 1125 ifti<tthen1125
 1130 z=(z+128)and255
 1140 nextk
 1145 gosub2650
 1150 printu$;"again?":gosub60000
 1160 ifleft$(in$,1)="n"thenend
 1170 goto240
 1180 data 214,4,214,2,214,6,202,2,214,2,255,2,241,2,214,0
 1200 ifc>0then1230
 1210 j=0:fori=2to12:ifx(i)thenj=j+i:ifpf(pl,i)>t(i)then580
 1215 next:j=j/3
 1217 ifrnd(1)*(7-abs(7-j))>frthen1230
 1220 goto580
 1230 gosub2300:printu$"{rvon}thinking"
 1240 ts=0:fori=1tonp
 1250 r1=rr(i,0):r2=rr(i,1)
 1260 gosub1400
 1290 nexti
 1300 printu$;b$
 1310 ifts=0then870
 1330 goto1000
 1400 forz=2to12:x1(z)=x(z):p1(z)=ps%(pl,z):nextz:c1=c
 1410 sc=0:t=r1:gosub1500:t=r2:gosub1500
 1420 ifsc>tsthents=sc:m(1)=r1:m(2)=r2:m=i
 1430 return
 1500 ifx1(t)=0andc1=0thenreturn
 1501 ifw%(t)orp1(t)>t(t)thenreturn
 1505 sc=sc+1
 1520 ifx1(t)thensc=sc+2
 1530 ifp1(t)=t(t)thensc=sc+5
 1540 ifx1(t)=0thenc1=c1-1
 1550 p1(t)=p1(t)+1:x1(t)=1:return
 1800 printu$;"which pair?":ln=3:gosub60000
 1810 printu$;"           ":printb$
 1815 ifleft$(in$,1)="q"thenv=0:r$="q":return
 1820 ifin$=""andnp=1thenin$="1"
 1825 ifin$=""then1800
 1830 m=val(in$):ifin$="0"thenreturn
 1835 ifm<1orm>npthen1800
 1837 gosub2490
 1840 v=0:t=rr(m,0):gosub1900
 1850 t=rr(m,1):gosub1900
 1860 return
 1900 ifw%(t)thenreturn
 1910 i=pf(pl,t):ifi<>ps%(pl,t)then1950
 1920 ifc>0thengosub2000:x(t)=1:c=c-1
 1930 return
 1950 ifi<=t(t)thengosub2000
 1960 return
 2000 sd=255/2^(pf(pl,t)/12):gosub2600
 2005 ifpf(pl,t)=ps%(pl,t)then2020
 2010 pokep(t)-sp*pf(pl,t)+pl-1,100
 2020 pf(pl,t)=pf(pl,t)+1
 2030 pokep(t)-sp*pf(pl,t)+pl-1,214
 2040 v=1:fr=fr+1:gosub2650:return
 2200 ifc=3then2235
 2205 printu$;"{rvon}r{rvof}{up}{left}{CBM-@}{down} or {rvon}s{rvof}{up}{left}{CBM-@}{down}?    "
 2210 ln=3:gosub60000:r$=left$(in$,1)
 2215 print"{up}{up}{up}";b$;b$;b$;
 2220 ifr$="s"orr$="q"thenreturn
 2230 ifr$<>""andr$<>"r"then2205
 2235 r$="r":gosub2300
 2240 v=0:gosub1800:ifvthen2205
 2250 return
 2300 print"{home}{down}":printtab(30);b$:print"{down}";tab(30);b$
 2305 print"{home}{down}":fori=1to6:printb$;:next
 2310 fori=1to4:r(i)=int(6*rnd(1)+1):next
 2320 print"{home}{down}":printtab(33);"{rvon}";chr$(r(1)+48);"{rght}{rght}";chr$(r(2)+48)
 2330 print"{down}{down}"tab(33);"{rvon}";chr$(r(3)+48);"{rght}{rght}";chr$(r(4)+48)
 2340 t=r(1)+r(2)+r(3)+r(4)
 2350 np=0:fori=1to3:forj=i+1to4
 2360 r1=r(i)+r(j):r2=t-r1
 2370 ifnp=0then2410
 2380 form=1tonp
 2390 ifrr(m,0)=r1andrr(m,1)=r2then2420
 2400 nextm
 2410 np=np+1:rr(np,0)=r1:rr(np,1)=r2
 2420 nextj,i
 2430 print"{home}{down}":form=1tonp:gosub2500:nextm
 2440 return
 2490 printleft$("{home}{down}{down}{down}{down}{down}{down}{down}",m+2);"{rvon}";
 2500 printmid$(str$(m),2);":";
 2510 printright$(str$(rr(m,0)),2);" ";
 2520 printright$(str$(rr(m,1)),2)
 2530 return
 2600 poke59467,16:poke59466,tn:poke59464,sd:tn=15:return
 2650 poke59464,0:poke59466,0:poke59467,0:return
 2995 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60005 getz$:ifz$<>""then60005
 60010 getz$:ifz$<>""then60060
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60060 ifz$=chr$(34)then60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>lnthen60010
 60100 in$=in$+z$:printz$;"{left}";z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141andzl>1thenforz=2tozl:print" {left}{left}";:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by randall lockwood
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}don't push your luck...
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62085 getin$:ifin$=""then62085
 62090 goto60300
   70 rem ** string thing (vic & c64) **
   80 rem **     jim butterfield      **
   90 rem string must be first variable
  100 a$="abcdefghijklmnopq"
  110 a$=a$+a$+a$+a$+a$
  120 a$=a$+a$+a$
  130 rem above sets string for max (255)
  200 data 160,2,177,45,153,137,0,200,192,6
  210 data 208,246,162,1,32,198,255
  220 data 32,228,255,201,13,240,15,164,142,145
  230 data 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
  250 forj=896to937:readx:pokej,x:t=t+x:nextj
  260 ift<>6120thenstop
  400 open1,8,2,"tough data"
  410 rem:  next sys same as 'input#1,a$'
  420 sys896
  425 rem:  l=size of input (could be 0)
  430 l=peek(142)
  440 print left$(a$,l)
  450 if st=0 goto 420
  460 close 1
    5 clr
    6 rem**bitte nicht saven!!!**
    7 rem         al
   10 open1,4
   15 print#1,tab(38);"***"
   20 print#1,tab(36);"*...*"
   25 print#1,tab(36);"*.....**"
   30 print#1,tab(35);"*........****"
   35 print#1,tab(34);"*....***......*******"
   40 print#1,tab(33);"*...**   ****.....**"
   45 print#1,tab(32);"*....*        *****"
   50 print#1,tab(11);"*.*                 *....*           *"
   55 print#1,tab(10);"*...**    / // //****/....*  ***      *"
   60 print#1,tab(10);"*.....**///........../----/*/..       *"
   65 print#1,tab(10);"*.......*...................//  *    *"
   70 print#1,tab(9);"*.........*.................//   *   *"
   75 print#1,tab(9);"*........*..................//   *   *"
   80 print#1,tab(10);"*./.......*...............//     *  *"
   85 print#1,tab(10);"*//........**.............//     * *"
   90 print#1,tab(9);"*/////.......******......../  /--  *"
   95 print#1,tab(9);"*//...........*    **....../ /**** *"
  100 print#1,tab(8);"*..............*      *.....//*    ***"
  105 print#1,tab(8);"*............**        *...../*      *"
  110 print#1,tab(7);"*...........**           *.....*.      *"
  115 print#1,tab(7);"*.........**       /     *.....* @@@   *"
  120 print#1,tab(7);"*.....****.*      //      *....@@@@@  *"
  125 print#1,tab(8);"*...**....**       ****...*..**@@@@@****"
  130 print#1,tab(8);"*....**....*     *     **  ***  @@@.....*"
  135 print#1,tab(9);"*....***...*    *      **   +++ *.......*"
  140 print#1,tab(10);"**....***..*   *    @@@@  +++++ ***....*"
  145 print#1,tab(10);"**.........**  **  @@@@@@ +++++    **..*"
  150 print#1,tab(13);"***......*   **  @@@@* ++++       **"
  155 print#1,tab(16);"**.....*   **  @@.* +++        **"
  160 print#1,tab(17);"**.....**    ***.*          *"
  165 print#1,tab(19);"*/....*** *..*        @@  *"
  170 print#1,tab(20);"*/......**..*      @@@  *"
  175 print#1,tab(22);"**....*..*     @@@   *"
  180 print#1,tab(23);"**......*         **"
  185 print#1,tab(25);"*******//////***"
  190 print#1,tab(30);"*       /..*"
  195 print#1,tab(29);"*        /...*"
  200 print#1,tab(28);"**        //...*"
  205 print#1,tab(27);"**   /     //....**"
  210 print#1,tab(26);"**   /       //....***"
  215 print#1,tab(26);"/    /       //......**"
  220 print#1,tab(25);"//   //        /.......***"
  225 print#1,tab(25);"//   //        //........***"
  230 print#1,tab(24);"//    ///        **..........***"
  235 print#1,tab(25);"/     //         **............**"
  240 print#1,tab(25);"//     //          **............**"
  245 print#1,tab(26);"/     ///       /*...............*"
  250 print#1,tab(26);"//     /// /   **...........****..*"
  255 print#1,tab(27);"**    / / /   *..........**....*.**"
  260 print#1,tab(27);"**             **........*......***     *"
  265 print#1,tab(26);"*..*          *.........**.........*     **"
  270 print#1,tab(26);"*..**         *.........*..........*    *.*"
  275 print#1,tab(25);"*....**       *.........*...........*   *../"
  280 print#1,tab(25);"*.....**      *.........*...........*  *.../"
  285 print#1,tab(24);"*.......**    *.........*............***...//"
  290 print#1,tab(24);"*........**   *.........*..strolchi..*...../"
  295 print#1,tab(16);"**********........** **.........*...........*.....//"
  300 print#1,tab(13);"***   *     ****.....* ********...*.********..*.....//"
  305 print#1,tab(12);"*     *     *   **...***...........**        *.*....//"
  310 print#1,tab(01);"*******************************************************";
  315 print#1,"****************"
  320 close1,4
    5 printchr$(142):poke59468,14
   10 set=0:print"{clr}             SUPER{$a0}GLOOPER"
   20 print"{down}{down}The object of this game is to 'GLOOP'"
   30 print"all of the dots on the board whilst"
   40 print"avoiding the glooper eaters which will"
   50 print"chase after you relentlessly."
   60 print"{down}You control 'SUPER GLOOPER' using the"
   70 print"numeric keys as shown below -"
   75 print  "{down}{down}     ^
   80 print"     {SHIFT--}       you may use either the '5' "
   90 print"     8       or the '2' to move down    "
  100 print"<{SHIFT-*} 4 5 6 {SHIFT-*}>  - you'll probably find     "
  110 print"     2       that the '5' is better -"
  115 print"     {SHIFT--}"
  120 print"     V       and you have to be P.D.Q.
  130 gosub 600
  140 print"( {rvon}P{rvof}retty {rvon}D{rvof}amn {rvon}Q{rvof}uick) to avoid the"
  150 print"glooper eaters.  These are penned up to"
  160 print"start with but after certain numbers of"
  170 print"dots have been glooped they come after"
  180 print"you."
  190 print"{down}The number by the top exit from the
  200 print"board shows how many 'eaters' will chase"
  210 print"{up}you. When you have cleared the board the"
  220 print"{up}number will increase (to a maximum of 4)"
  230 print"There are plenty of good sound effects"
  240 print"- just connect a user port soundbox (you"
  250 print"{up}can get a good one from SUPERSOFT!)."
  260 print"{down}Once the eaters are released there are"
  280 print"two ways to avoid being caught.  Firstly"
  290 print"{up}you can leave the board by one of the"
  300 print"exits and reappear on the other side of"
  310 print"the board.  The 'eaters' cannot follow."
  315 gosub600
  320 print"{down}You can also 'gloop' one of the 4 larger"
  330 print"{up}dots at the corners of the board.  This"
  340 print"seems to refresh the parts that other"
  350 print"dots cannot reach and the glooper eaters"
  360 print"{up}change colour and rush off as fast as"
  362 print"they can."
  365 print"{down}Unfortunately for them this is not quite"
  370 print"{up}fast enough and if you chase after them"
  380 print"you can gloop them for extra points."
  400 print"Watch out though - they will suddenly"
  410 print"change back and set about you again."
  420 print"{down}When an 'eater' is caught it goes back"
  430 print"in the pen (but not for long!)"
  440 print"{down}You have three super gloopers per game"
  450 print"and the number left (including the one"
  460 print"you are playing) is shown top right."
  465 gosub600
  470 print"When 'SUPER GLOOPER' is up and running"
  480 print"press any key to start the game."
  490 print"{down}The RUN/STOP key will return you to
  500 print"Basic at any time during the program."
  522 print"{down}Just to make it more interesting for"
  523 print"less nimble players there is a random"
  524 print"reset feature which restores the dots
  525 print"and ups the number of glooper eaters!"
  542 print"{down}{down}{down}{down}The game is on the other side of the"
  544 print"cassette - press {rvon}RETURN{rvof} when you are"
  546 print"ready to load 'SUPER GLOOPER'.
  548 print"{down}{down}{down}{down}{rvon}Press space bar for instructions again"
  550 poke158,0:set=1:gosub620
  600 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  610 print"      {rvon}Press space bar to continue{rvof}";:poke 158,0
  620 get a$:if a$="" goto 620
  625 if(set) and a$=chr$(13)goto 700
  640 if a$<>" " goto 620
  650 if (set) goto 10
  660 print "{clr}":return
  700 print"{clr}":poke59468,12
  730 load
:{stop}{stop}{$00}{$00}{$00}{CTRL-A}{$00}{$00}~sg3{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}s0:sg3{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~~~~~~~~modified t howe may 2002~~~~~~~~saves 033a-1f00~~~~~~~~~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00} {$00}{$00}{$00}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}~l{$f6}{up}{$fe}{inst}~{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}P{$e7}{CTRL-P}{SHIFT-POUND}{$0a}{sret}{CTRL-A}{$68}{$60}{SHIFT-POUND}_{sret}j{blu}{SHIFT-POUND}{CTRL-X}{sret}k{blu}j {$00}~{$00}~{$00}
{CTRL-D}{$0a}{$00}{yel}(5217){$00}{$00}{$00}{$ea}{$00}{CTRL-A}{CTRL-A}{dish}{$00}r{grn}{$f0}{CBM-H}{$64}{$00}{$00}{$00}{$00}{$00} {stop}{CTRL-X} {CTRL-P}{wht} {CTRL-L}{CTRL-F} {CTRL-B}{CTRL-G}{CBM-Z}{CTRL-P}{CTRL-D}{$f0}{CTRL-F} {CTRL-A}
l%{CTRL-D}{CBM-Z}{CTRL-U}{CTRL-D}P{CTRL-X}N{down}{CTRL-D}{CBM-Z}{down}{CTRL-D}{CTRL-P}{CTRL-P}{SHIFT-POUND}s{sret}{CTRL-U}{CTRL-D}{SHIFT-POUND}{CTRL-A}{sret}{down}{CTRL-D} {$00}{swlc}l%{CTRL-D}N{rvon}{CTRL-D}{CBM-Z}{rvon}{CTRL-D}{$f0}{CTRL-B}PH{SHIFT-POUND}{CTRL-A}{sret}{rvon}{CTRL-D}{CBM-Z}0{ensh}I{$66}{$f0}{CBM-C}{CBM-I}{$00}{CBM-Z}{down}{CTRL-D}P{CTRL-F} {up}{CTRL-D}l{$7c}{CTRL-D} {f7}{CTRL-D}l%{CTRL-D}{$e8} {f7}{CTRL-D}{$e8} {f7}{CTRL-D}{$e8} {f7}{CTRL-D}8{CBM-Z}{CTRL-U}{CTRL-D}{SHIFT--}{CTRL-V}{CTRL-D}{CBM-A}c{CBM-X}{esc}{CTRL-D}Pc{SHIFT-POUND}{CTRL-A}{left}{esc}{CTRL-D}{f4}{$0a}{CBM-N}{CBM-X}@{ensh}{sret}{CBM-Z}{CTRL-D}{CBM-X}a{ensh}{sret}{CBM-S}{CTRL-D}{SHIFT-POUND} {sret}J{orng}{SHIFT-POUND}{$ef}{left}@{ensh}{SHIFT-POUND}{orng}{left}a{ensh}{SHIFT-POUND}{CTRL-L}{left}h{ensh}{SHIFT-POUND}{CTRL-P}{left}i{ensh}{f4}j{CBM-N}{SHIFT-POUND} {left}p{ensh}{CBM-Z}{home}{CTRL-D}{sret}{rvon}{CTRL-D} I{dish}{$68}{$68}l%{CTRL-D}{$ec}{del}{CTRL-D}{$f0}{$f6}{$60},{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}l{$8f}{CTRL-B}I{orng}L{orng}a{$82}d{$82}{CTRL-K}{rvon}{swlc}{rvon}{CTRL-K}{CTRL-U}{swlc}{CTRL-U}{SHIFT-POUND}{clr} R~{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}{$00}{sret}{$60}{dish}{sret}{$61}{dish}{sret}{CTRL-P}{CTRL-D}{SHIFT-POUND}{CTRL-A}{sret}{down}{CTRL-D}{SHIFT-POUND}r{sret}{CTRL-U}{CTRL-D}{SHIFT-POUND}{CTRL-F}{sret}({dish}{SHIFT-POUND}{$82}{sret}){dish}{SHIFT-POUND}{CTRL-L}{sret}1{ensh}{SHIFT-POUND}'{sret}2{ensh}{$a0}{$00}{CBM-O}{$00}{wht}{lgrn}@{ensh}{CBM-O}{dish}{wht}{lgrn}h{ensh}H{SHIFT-*}{dish}P{$ef}{$a0}{$00}{SHIFT-POUND} {lgrn}p{ensh}{SHIFT-POUND}{$00}{lgrn}t{ensh}{lgrn}{esc}{CTRL-D}H{SHIFT-*}{CTRL-D}P{$ee}{SHIFT-POUND}{$00}{sret}{$7f}{wht}{sret}{$82}{wht}{SHIFT-POUND}{CTRL-P}{sret}{$80}{wht}{SHIFT-POUND}{$80}{sret}{$83}{wht}{CBM-I}{$00}{CBM-X}{$e8}{home}{left}{$e8}{$83}I{$60}{$f0}{rvon}{$ee}{$7f}{wht}P{stop}{$ee}{$80}{wht}{$ee}{$82}{wht}P{$e9}{$ee}{$83}{wht}P{$e4}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}0{ensh}I{$a0}P{CTRL-F}{sret}{CTRL-P}{CTRL-D}l9{CTRL-K}lB{$0a}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}{$63}
{gry2}j{CBM-POUND}{CBM-O}p{ensh}I.P{stop}N{CTRL-U}{CTRL-D}{gry2}{$0a}{CBM-POUND}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}{$6b}{wht}{sret}{CBM-A}{CTRL-K}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}((X{$00}{$00}{CTRL-A}{$00}{$00}{$00}~{$00}{CBM-G}{gry1}I~{$f0}6I{CTRL-D}P{stop}{$6c}{$fc}~{sret}&{CTRL-F}){$f0}jjjj{sret}4{CTRL-F}{SHIFT-POUND}{CTRL-F}){CTRL-O}{CTRL-X}{$e9}{CTRL-G}{CBM-A}{CTRL-B}{SHIFT-POUND}{$00}{$0a}{$0a}{CTRL-X}{$69}{$00}{CBM-N}{$f0}
0{CTRL-D}I{CTRL-L}0{CTRL-D}{SHIFT-POUND}{$00}{$f0}{stop}{CBM-X}{$00}{CTRL-F}{sret}{$00}{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CBM-I}~{CBM-Z}{$00}{CTRL-G}P{stop}l{SHIFT-+}{CTRL-G}0{CTRL-B}{CBM-I}{$00}{swuc}{esc}{CTRL-G}{CTRL-X}{$6d}({dish}{sret}{$65}{CTRL-G}{SHIFT-POUND}{$00}{$6d}){dish}{sret}{$66}{CTRL-G}I{$80}P{rght}{CBM-Z}{$65}{CTRL-G}I{home}P{CTRL-V}{CTRL-X}{CBM-Z}({dish}{$69}{gry2}{sret}{$65}{CTRL-G}{SHIFT-POUND}{stop}{$6d}){dish}{sret}{$66}{CTRL-G}{SHIFT-POUND}{CTRL-Y}l{$61}{CTRL-G}I{$83}P{rght}{CBM-Z}{$65}{CTRL-G}I{$fb}P{CTRL-V}8{CBM-Z}({dish}{$e9}{gry2}{sret}{$65}{CTRL-G}{CBM-Z}){dish}{$e9}{stop}{sret}{$66}{CTRL-G}{SHIFT-POUND}{$00}{sret}1{ensh}{CBM-Z}{CBM-L}{orng}{$ea}{$ea}{$ea}I.P{ensh} {$6d}{dish}N{CTRL-U}{CTRL-D}l{CBM-Q}{CTRL-G}I {$f0}0IqP%{SHIFT-POUND}{$66}{sret}0{ensh}{CBM-I}{$00}{$a0}{$00}{CBM-X}t{ensh}Y{$78}{ensh}P{dish}{CBM-O}{$7a}{ensh}{left}t{ensh}P{wht}H{SHIFT-*}{CTRL-D}P{$ee}{$e8}{$e0}{CTRL-D}P{$e4}{$f0}{CTRL-G}I{$66}P3{sret}{CTRL-A}{CTRL-G}{SHIFT-POUND}  '{dish}{CBM-Z}{$65}{CTRL-G}{sret}({dish}{CBM-Z}{$66}{CTRL-G}{sret}){dish}{CBM-Z}{$00}{CTRL-G}0{swlc}I(P{wht}{$ee}1{ensh}P{down}{$ee}2{ensh}P{CTRL-L}IXP{wht}N1{ensh}P{stop}N2{ensh}{CBM-D}{$00}{CTRL-G}P{CTRL-B}{$a0}{stop}{CBM-O}+{dish}{sret}.{dish} '{dish}{CBM-Z}{CTRL-A}{CTRL-G}{$f0}{dish} {CBM-V}{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-A}{CTRL-G}{CBM-Z}.{dish}{SHIFT-POUND} {sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{CBM-O},{dish}{sret}/{dish} '{dish} {$82}{ensh}{SHIFT-POUND} {sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-G}{$60}{sret}{CTRL-F}{$82}{$60}{$00}{$ec}{$6c}{$ec}{$6c}{CTRL-A}{CTRL-A}{$00}hN2{dish}P{$fb}N1{dish}P{$f6}N0{dish}P{$f1}{SHIFT-POUND}{CTRL-A}{sret}0{dish}{sret}1{dish}{$68}{$60}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CBM-N}{$ec}{$6c}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$0a}{CBM-Z}{del}{CTRL-D}){CTRL-G}{CBM-N}{CTRL-X}{$f8}{CBM-Z}{$61}{dish}{$7d}{$62}{dish}{sret}{$61}{dish}{blk}{dish}{SHIFT-POUND}{$00}{$6d}{$60}{dish}{sret}{$60}{dish}X{$a0}{CTRL-F} {gry3}{dish}{CBM-Z}{$60}{dish} {$fc}~{CBM-Z}{$61}{dish} {$fc}~{$60}{SHIFT-POUND}{home} R~{SHIFT-POUND}{rght} R~{f7}P{$fa}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}{$60}{swuc}h{$e8}{SHIFT-POUND}{CTRL-B}{sret}1{dish}{SHIFT-POUND}{$80}{sret}2{dish} 3{dish}JJ{CTRL-P}{$ec}{$60}{CBM-N}k{f4}h{CBM-I}{wht}{SHIFT-POUND}~{sret}H{dish}{$a0}{CTRL-Y}{sret}h{$e8}{SHIFT-POUND}{CTRL-B}{sret}1{dish} 3{dish}8{CBM-Z}H{dish}{$e9}{CTRL-D}{sret}H{dish}{f7}P{$e9}{gry2}{sret}h{$e8}{SHIFT-POUND}{$0a}{sret}1{dish} 3{dish}{CTRL-X}{CBM-Z}H{dish}{$69}pJPO{$68}{CBM-N}{$60}{$fc}{$7c}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fb}{$7b}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$a0}{CTRL-L}'{CTRL-A}{CTRL-B}{CTRL-B}{home}{grn}{CTRL-D}{stop}{CTRL-D}{CTRL-A}XX{CTRL-A}{$00}{$f4}{orng}{CBM-K}{orng}{$6c}{$82}d{$82}{CTRL-L}{CTRL-U}
{CTRL-O}{CTRL-L}{CTRL-X}{swlc}{CTRL-U}    X~({CTRL-A}X{CTRL-A}{CTRL-A}X({CTRL-A}{CTRL-A}((~~(X~~X(~~(X~~XX{CTRL-A}{CTRL-A}X({CTRL-A}{CTRL-A}(X{CTRL-A}(~X{CTRL-A}X{CTRL-A}{$00}~{f8}9{ensh}{SHIFT-POUND}{$00}{sret}:{ensh}{CBM-Z}0{ensh}I{$66}P N4{ensh}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-B}{sret}4{ensh}N7{ensh}{CBM-Z}7{ensh}P
{sret}{CBM-A}{CTRL-K}{SHIFT-POUND}{$a0}{sret}0{ensh}{SHIFT-POUND}{grn}{sret}7{ensh}{CBM-Z}:{ensh}{CBM-N}{CBM-X}t{ensh}{sret}={ensh}{f4}{$0a}{CBM-N}{CBM-X}@{ensh}{sret}{CBM-T}{CTRL-K}{CBM-X}a{ensh}{sret}{CBM-@}{CTRL-K}{CBM-X}h{ensh}8{$ed}1{ensh}{sret}5{ensh}{CBM-X}i{ensh}8{$ed}2{ensh}{sret}6{ensh}{CBM-Z}5{ensh}0{CTRL-K}{CBM-I}{CTRL-A}{CBM-Z}6{ensh}0{CTRL-X}{CBM-I}
P{rght}8{SHIFT-POUND}{$00}{$ed}5{ensh}{sret}5{ensh}{CBM-I}{wht}{CBM-Z}6{ensh}0{CTRL-D}{CBM-I}{ensh}{CTRL-P}{ensh}8{SHIFT-POUND}{$00}{$ed}6{ensh}{sret}6{ensh}8{$ed}5{ensh}0{wht}{f4}{CTRL-X}{$69}{CTRL-B}{CBM-N}{CBM-Z}0{ensh}I{$a0}P{swlc}{CBM-X}w{ensh}{sret};{ensh}{CBM-X}x{ensh}{sret}<{ensh}P{CTRL-L}{CBM-X}{$67}{ensh}{sret};{ensh}{CBM-X}{$68}{ensh}{sret}<{ensh}{SHIFT-POUND}{$00}{sret}8{ensh}{sret}3{ensh}{sret}{$7e}{ensh}{sret}{$7f}{ensh}{sret}{$80}{ensh}{sret}{orng}{ensh}{CBM-I}~{CBM-Z}8{ensh}{CBM-POUND}{CBM-O}{$78}{ensh}0{CTRL-B}{CBM-I}{$00}{swuc}{$63}{$0a}{CTRL-X}{$6d}{CBM-T}{CTRL-K}{sret}{cyn}{$0a}{SHIFT-POUND}{$00}{$6d}{CBM-@}{CTRL-K}{sret}{$a0}{$0a}I{$80}P{del}{CBM-Z}{cyn}{$0a}I{home}P
{CBM-I}~{SHIFT-POUND}({sret}>{ensh}{sret}3{ensh}lt{$0a}I{$83}P{del}{CBM-Z}{cyn}{$0a}I{$fb}P
{CBM-I}~{SHIFT-POUND}X{sret}>{ensh}{sret}3{ensh}lt{$0a}{CBM-Z}9{ensh}{CBM-N}{CBM-Z}d{$82}M0{ensh}{$f0}$I.{$f0}/I {$f0}+Iq{$f0}'{SHIFT--},{dish}P{CTRL-K}{CBM-Z}3{ensh}{$f0}{rght}l{CBM-A}{wht}l9{CTRL-K}{CBM-Z}3{ensh}{$f0}{stop}l{f3}{CTRL-K}{$ee}8{ensh}{CBM-Z}8{ensh}I{CTRL-D}{$f0}{esc}{CBM-I}~lp{$0a}{CBM-Z}3{ensh}P[{CBM-Z}={ensh}Y{$7a}{ensh}{$f0}{CTRL-F}{CBM-O}{$78}{ensh}{lgrn}{$7e}{ensh}lJ{$0a}{$a0}{$00}{CBM-O}{$7e}{ensh}M;{ensh}{$f0}*H{SHIFT-*}{CTRL-D}P{$f3}{$a0}{$00}{CBM-O}{$7e}{ensh}M<{ensh}{$f0}{esc}H{SHIFT-*}{CTRL-D}P{$f3}{$a0}{$00}{CBM-O}{$7e}{ensh}{$f0}{dish}{sret}>{ensh}M={ensh}{$f0}{CTRL-G}H{SHIFT-*}{CTRL-D}P{$ee}{$f0}{CTRL-K}{sret}>{ensh}{$ee}3{ensh}{CBM-I}~lq{$0a}{$ee}3{ensh}{CBM-I}~{CBM-Z}>{ensh}lt{$0a}{CBM-Z}:{ensh}{CBM-N}{CBM-Z}>{ensh}{left}t{ensh}{CBM-X}p{ensh} {CBM-I}{CTRL-K}{f4}{$0a}{CBM-N}{CBM-Z}{cyn}{$0a}{sret}{CBM-T}{CTRL-K}{sret}{lblu}{CTRL-K}{left}@{ensh}{CBM-Z}{$a0}{$0a}{sret}{CBM-@}{CTRL-K}{sret}{gry3}{CTRL-K}{left}a{ensh}{CBM-Z}>{ensh}0{swlc}I(P{wht}{$fe}h{ensh}P{down}{$fe}i{ensh}P{CTRL-L}IXP{wht}{$de}h{ensh}P{stop}{$de}i{ensh} {brn}{CTRL-K}{$ee}:{ensh}{CBM-Z}:{ensh}I{CTRL-D}{$ea}{$f0}{stop}l{CBM-H}{ensh}{$60}{CBM-Z}:{ensh}{CBM-N}{CBM-Z}d{$82}{left}p{ensh}{CBM-Z}0{ensh}{sret}d{$82}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}200~ {$ec} {$00}{$00} @{$60}{$80} {CBM-A}{dish}{$ee}{CBM-A}{CTRL-K}{CBM-Z}{CBM-A}{CTRL-K}{$0a}{CTRL-X}{$69}0{sret}{CBM-E}{CTRL-K}8{CBM-Z}({dish}{sret}"{CTRL-L}{$e9}{CTRL-A}{sret}{$f4}{CTRL-K}{sret}{$fd}{CTRL-K}{sret}{CTRL-W}{CTRL-L}{CBM-Z}){dish}{sret}){CTRL-L}{$e9}{$00}{sret}{$f5}{CTRL-K}{sret}{$fe}{CTRL-K}{sret}{CTRL-X}{CTRL-L}{CBM-I}{CTRL-B}{CBM-X}{$a0}{$83}{left}{CBM-J}{CTRL-K}{CBM-X}{CBM-E}{CTRL-K}{left}{$a0}{$83}J{CTRL-P}{$f1}{SHIFT-POUND}~{sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{CBM-I}{$00}{CBM-X}{CBM-J}{CTRL-K}{$f0}{CTRL-F}{left}{$a0}{$83}{$e8}P{$f5}{CBM-I}{$00}{CBM-X}@{ensh}I{CBM-K}P{CTRL-G}{CBM-X}a{ensh}I{$83}{$f0}{CTRL-D}{$e8}{$e8}P{$ee}{SHIFT-POUND}{$f1}{left}@{ensh}{SHIFT-POUND}{orng}{left}a{ensh}{SHIFT-POUND}{CTRL-L}{left}h{ensh}{SHIFT-POUND}{rvon}{left}i{ensh}{f4}j{CBM-N}{CBM-X}p{ensh}I.P{stop}N{CTRL-U}{CTRL-D}{SHIFT-POUND} {left}p{ensh}{SHIFT-POUND}{$00}{left}t{ensh}{left}{esc}{CTRL-D}{CBM-Z}{CBM-A}{CTRL-K}{CBM-N}{CTRL-X}{$f8}{CBM-Z}{$61}{dish}{$7d}{CBM-O}{CTRL-K}{sret}{$61}{dish}{blk}{dish}{SHIFT-POUND}{$00}{$6d}{$60}{dish}{sret}{$60}{dish}X {f2}{dish}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}p2{$00}{$00}{$00}{$00}{$00}{SHIFT-POUND}~{$a0}{$00}{sret}h{$e8}{SHIFT-POUND}{stop}{sret}1{dish} 3{dish}8{CBM-Z}h{$e8}{$e9}{wht}H{SHIFT-*}{grn}P{$ea}{SHIFT-POUND}{$00}{sret}h{$e8}{SHIFT-POUND}{$80}{sret}1{dish} 3{dish} {CBM-G}
 {CBM-G}
{CBM-Z}{$00}
{$0a}{CBM-N}{SHIFT-POUND} {left}!{$80}N{$00}
P{stop}l{CTRL-Z}{CTRL-O}{CBM-Z}({dish}{sret}o
{CBM-Z}){dish}{sret}p
{SHIFT-POUND} {sret}{CBM-B}{$82}{$a0}{CTRL-F}{CBM-O}@{ensh}{sret}{$62}
{CBM-O}a{ensh} P{wht}{SHIFT-POUND} {sret}{$71}{$82}{f7}{f7}{CTRL-P}{$eb}{SHIFT-POUND}{$e0}{sret}{$6b}{wht}{SHIFT-POUND}{home}{sret}{$73}{wht}{SHIFT-POUND}{$83}{sret}{$78}{wht}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} {$71}{swlc}{$ea}{$ea}{$ea}{$ea}{$ea} /{wht}{SHIFT-POUND}{$00}{sret}{CTRL-P}{CTRL-D}{sret}{$6b}{wht}{SHIFT-POUND}{CTRL-P}{sret}{$73}{wht}{SHIFT-POUND}{$80}{sret}{$78}{wht}{SHIFT-POUND} {$ea}{sret}{rvon}{CTRL-D}{$60}{SHIFT-POUND}{$00}{f1}p{SHIFT-POUND}{$80}{f1}q{CBM-I}{$00}{$a0}({CBM-E}pi{$80}{up}p{f7}P{$f7}{CTRL-X}{CBM-G}p{$69}({f1}p{blk}{CTRL-B}{$e6}q{SHIFT-POUND}{rvon}{sret}1{dish} 3{dish}{f4}{$0a}{$0a}{$0a}{sret}h{$e8}{$e8}{$e0}{CTRL-Y}PV{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}{$0a} 3{swlc} x{swlc}JP{$f7} {$71}{swlc}{CBM-Z}{del}{CTRL-D}I{stop}{$f0}{CTRL-F}{$ee}{del}{CTRL-D}{$ee}{sret}{CTRL-P}{SHIFT-POUND}({sret}{$6b}{wht} %{wht}{SHIFT-POUND}{$00} {$e8}{wht}{SHIFT-POUND}{$a0}{sret}0{ensh}{SHIFT-POUND}{grn}{sret}7{ensh}{$60}{$a0}{$00}{CBM-O}{$00}{$80}i{$80}{lgrn}{$00}{$80}H{SHIFT-*}{$00}P{$f3}{$ee}7{swlc}{$ee}<{swlc}{CBM-Z}7{swlc}I{$84}P{$e6}{SHIFT-POUND}{$80}{sret}7{swlc}{sret}<{swlc}{$60}{SHIFT-POUND}{CTRL-B}{sret}1{dish}{$a0}{CTRL-F}{f8}h{$e8} 3{dish}HH{SHIFT-*}{$64}P{$f4}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{$a0}{$fe}{f8}h{$e8}{SHIFT-POUND}{CTRL-G}{sret}1{dish} 3{dish}{f7}{f7}P{$f1}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}({$00}P{swlc}{CBM-Z}{f4}{swlc}{sret}{CBM-K}{swlc}{sret}{CBM-N}{swlc}{CBM-Z}{f6}{swlc}{sret}{CBM-I}{swlc}{sret}{CBM-Q}{swlc}{$a0}{$00}{CBM-O}P{swlc}{sret}h{$e8}{$f0} H{CBM-O}P{swlc}H{CBM-N}{f8}{f7}{swlc}{SHIFT-POUND}{stop}{sret}{f2}{swlc}{$a0}{$fb}{f7}P{$fd}N{f2}{swlc}P{$f6}JP{$ee}{CBM-D}{f7}{swlc}PX{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{CBM-N}{CBM-N}{$74}{$80}{CTRL-A}{wht}{$74}{$60}{CTRL-A}{wht}{$74} {CTRL-A}{wht}{$74}{$80}{CTRL-A}{wht}{$61}{$60}{CTRL-A}{wht}{$67} {CTRL-A}{wht}{$67}{$60}{CTRL-A}{wht}{$74} {CTRL-A}{wht}{$74}{$60}{$82} {CTRL-A}{wht}{$74}{$a0}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-O}{$00}{$a0}{CTRL-D}{CTRL-L}{$00}{CTRL-A}(~X * {CTRL-G}{CTRL-A}
{wht}  {CTRL-O}{CTRL-V}{wht}{rvon} *  {f8}{swlc}{SHIFT-POUND}{CTRL-A}{sret}{stop}{CTRL-O}{SHIFT-POUND}'{sret}{$00}{CTRL-O}{SHIFT-POUND}{CTRL-X}{sret}{CTRL-A}{CTRL-O}{SHIFT-POUND}{$00}{sret}{$62}{CTRL-O}{SHIFT-POUND}{$80}{sret}{$63}{CTRL-O}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-D}{CTRL-O}{CBM-I}{CTRL-A}{$a0}{$00}{gry2}h{$a0}~{CBM-X}{wht}{CTRL-O}0{CTRL-B}{$a0}{$00}{f8}u{CTRL-O}{CTRL-X}{$6d}{$62}{CTRL-O}{sret}{$62}{CTRL-O}{SHIFT-POUND}~{$6d}{$63}{CTRL-O}{sret}{$63}{CTRL-O}{$68}{CBM-POUND}{CBM-Z}{CTRL-B}{CTRL-O}{sret}{$ec}{orng}H{f4}){CTRL-A}{$f0}{CTRL-G}L{$00}{CTRL-O}PP{$f0}{wht}L{CTRL-A}{CTRL-O}PI{$e8}{$e0}{wht}PB{SHIFT-POUND}{CTRL-Y}{sret}1{dish} 3{dish}N{$00}{CTRL-O}N{$00}{CTRL-O}N{CTRL-A}{CTRL-O}N{CTRL-A}{CTRL-O}{CTRL-X}{SHIFT-POUND}){$6d}{$62}{CTRL-O}{sret}{$62}{CTRL-O}{SHIFT-POUND}{$00}{$6d}{$63}{CTRL-O}{sret}{$63}{CTRL-O}{CBM-Z}{CTRL-B}{CTRL-O}i{$80}{sret}{CTRL-B}{CTRL-O}{CBM-Z}{CTRL-D}{CTRL-O}I{CTRL-L}{$f0}{down}{$a0}{CTRL-O}{CBM-O}{$0a}{CTRL-O}{lgrn}{$ec}{orng}{f7}{CTRL-P}{$f7}{$ee}{CTRL-D}{CTRL-O}l;{CTRL-O}{CBM-Z}{stop}{CTRL-O}I{dish}{$f0}{swlc}{CBM-Z}{CTRL-B}{CTRL-O}i{$80}{sret}{CTRL-B}{CTRL-O}{$ee}{stop}{CTRL-O}l"{CTRL-O}{$68}{$68}l{blu}{CTRL-D}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{home}{stop}{CTRL-O}{rvon}{wht} 00000    {dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht} 00000    {$ec} {$ec} {$ec}{$70}@@@@@@@@@@@@@@@{$6e} ].] {$70}@@@@@@@@@@{$72}{$72}@@@@{$6e}]...q...........] ].] ].....q....]]....]].u@@i.u@@@@@@i.] ].]{CBM-E}].u@@@@@@i.]].ui.]].j@@k.j@@@@@@k.{$6d}@{$7d}.{$6d}@{$7d}.j@@@@@@k.jk.]].]]...................................]].]].u@@i.u@@@@@@@@@@i.u@@@@@@i.ui.u@@@k].]].]  ].j@@iu@@@@@@k.j@@@@@i].]].j@@@i].]].]  ]....]]..............]].]].....]].]].]  ].ui.]].ui.{$70}@@@@{$6e}.ui.]].]ji.ui.]].]].j@@k.]].jk.]].]    ].]].jk.j@k.]].jk.]]......]]....]].]    ].]]........]]....]{$6b}@@@@i.]j@@@@k].]    ].]j@@@@@@i.]j@@i.]{$6b}@@@@k.]u@@@@i].]    ].]u@@@@@@k.]u@@k.]]......]]....]].]    ].]]........]]....]].u@@i.]].ui.]].]    ].]].ui.u@i.]].ui.]].]  ].jk.]].jk.{$6d}@@@@{$7d}.jk.]].]uk.jk.]].]].]  ]....]]..............]].]].....]].]].]  ].u@@kj@@@@@@i.u@@@@@k].]].u@@@k].]].j@@k.j@@@@@@@@@@k.j@@@@@@k.jk.j@@@i].]]...................................]].]].u@@i.u@@@@@@i.{$70}@{$6e}.{$70}@{$6e}.u@@@@@@i.ui.]].]].j@@k.j@@@@@@k.] ].] ].j@@@@@@k.]].jk.]]...q...........] ].] ].....q....]]....]{$6d}@@@@@@@@@@@@@@@{$7d} ].] {$6d}@@@@@@@@@@{$71}{$71}@@@@{$7d}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-A}:{stop}{$00}{blu}{clr}{rvon}super glooper{rvof}{CBM-G}GI{$00}P{CTRL-O}{CBM-G}HI{blu}P{ensh}{CBM-G}TI{CTRL-A}P{stop}l{CBM-F}{CTRL-B}{SHIFT-POUND}]{$a0}{$00}{lgrn}{$00}{wht}H{SHIFT-*}{$00}P{$f8}{SHIFT-POUND} {lgrn}llll{$00}P{$f8}{$00}{CBM-Z}{$00}{SHIFT-*}Il{$f0}{blu}{SHIFT-POUND}{$e7}{sret}{clr}{dish}{sret}{lgrn}{dish}{sret}1{CTRL-X}{sret}7{CTRL-X}{SHIFT-POUND}{$75}{sret}{rvof}{dish}{sret}{gry2}{dish}{sret}0{CTRL-X}{sret}6{CTRL-X}l{blu}{CTRL-D}{SHIFT-POUND}W{sret}{clr}{dish}{sret}{lgrn}{dish}{sret}1{CTRL-X}{sret}7{CTRL-X}{SHIFT-POUND}"{sret}{rvof}{dish}{sret}{gry2}{dish}{sret}0{CTRL-X}{sret}6{CTRL-X}{CBM-Z}{CTRL-U}{$e6}P{stop}l{blu}{CTRL-D}{SHIFT-POUND}l{sret}{CTRL-Y}{CTRL-F}{SHIFT-POUND}P{sret}{CTRL-Z}{CTRL-F}{SHIFT-POUND}{grn}{sret}{esc}{CTRL-F}{SHIFT-POUND}{stop}{sret}{home}{CTRL-F}l{blu}{CTRL-D} "                            {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{$00}{SHIFT-POUND}{$00}{f1}{yel}{CTRL-X}{CBM-Z}{$60}{dish}M{CTRL-A}{CTRL-X}{blk}@P{ensh}{CTRL-X}{CBM-Z}{CTRL-B}{CTRL-X}M{$61}{dish}{CBM-A}5{CBM-Z}{$60}{dish}{sret}{CTRL-A}{CTRL-X}{CBM-Z}{$61}{dish}{sret}{CTRL-B}{CTRL-X}{$a0}{CTRL-Z} {gry3}{dish}{CBM-Z}{CTRL-A}{CTRL-X} {$fc}~{CBM-Z}{CTRL-B}{CTRL-X} {$fc}~{CBM-Z}{CTRL-Z}{$80}{sret}{CTRL-Z}{CTRL-P}{CBM-Z}{esc}{$80}{sret}{esc}{CTRL-P}{CBM-Z}{red}{$80}{sret}{red}{CTRL-P}{CBM-Z}{rght}{$80}{sret}{rght}{CTRL-P}{CBM-Z}{$f1}{stop}{sret}\{del}{CBM-Z}{$f6}{stop}{sret}]{del}l[{del} {$e0}{stop}{SHIFT-POUND}{CBM-E}{sret}{sret}{CTRL-P}{SHIFT-POUND}{$00}{sret}{del}{CTRL-D}{SHIFT-POUND}{stop}{sret}{$00}
{SHIFT-POUND}{clr} R~{CBM-I}{$00}{swuc}{$00}{CTRL-X} {$e4}~Pq {$e2}{CTRL-Z}{$ee}{$00}{CTRL-X}{CBM-Z}{$00}{CTRL-X}I{stop}0{CTRL-L}I{CTRL-D}P{CTRL-P}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-X}l{CBM-K}{CTRL-X}{SHIFT-POUND}{CBM-H}{sret}1{dish} 3{dish}{$e8}{$e8}{$e0}{$60}PT {CBM-A}{dish}{SHIFT-POUND}{$00}{sret}{$7f}{wht}{SHIFT-POUND}{red}{sret}{$80}{wht}{SHIFT-POUND}h{sret}{$82}{wht}{SHIFT-POUND}{orng}{sret}{$83}{wht} {$7c}{wht}{SHIFT-POUND}{dish}{sret}0{dish}{SHIFT-POUND}~{sret}1{dish} 3{dish}l{$71}{CTRL-X}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}'{$a0}{CTRL-A}{$a0}{$00} {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A}{$a0}{CTRL-A}{$a0}% {CTRL-A} {CTRL-A}{$a0}{CTRL-A}{$a0}{$00} {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} {$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}({$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$a0}'{$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}{CTRL-A} {CTRL-A}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$69}&{$a0}{CTRL-A}_{CTRL-A}{CBM-*}&{$a0}{CTRL-B}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$6c}{CTRL-A}{$62}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}({$a0}({$a0}({$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$e9}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{CBM-*}%{$a0}{stop}{$a0}%{$a0}{stop}{$a0}%{$a0}{stop}{$a0}%_{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$69}{$00}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$70}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{f3}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{pur}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CBM-A}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}D{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$e0}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$f8}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CTRL-F}{CTRL-Z}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CTRL-F}{CTRL-Z}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{pur}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CBM-A}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}D{CTRL-Y}{$72}{orng}{$72}{orng}{$72}{orng}{$72}{orng}{$76}{orng}{$76}{orng}{$76}{orng}{$76}{orng}{$7a}{orng}{$7a}{orng}{$7a}{orng}{$7a}{orng}{$7e}{orng}{$7e}{orng}{$7e}{orng}{$7e}{orng}{$82}{orng}{$82}{orng}{$82}{orng}{$82}{orng}{f1}{$82}{f1}{$82}{f1}{$82}{f1}{$82}{f2}{$82}{f2}{$82}{f2}{$82}{f2}{$82}{sret}{$82}{sret}{$82}{sret}{$82}{sret}{$82}{rvof}{$82}{rvof}{$82}{rvof}{$82}{rvof}{$82}{gry1}{$82}{gry1}{$82}{gry1}{$82}{gry1}{$82}{gry3}{$82}{gry3}{$82}{gry3}{$82}{gry3}{$82}{cyn}{$82}{cyn}{$82}{cyn}{$82}{cyn}{$82}{$a0}{$00}{CBM-X}{$82}{CTRL-Z}{sret}{CTRL-F}{esc}{CBM-X}{$83}{CTRL-Z}{sret}{CTRL-G}{esc}{CBM-X}"{CTRL-Z}{sret}{stop}{esc}{sret}{$0a}{esc}{CBM-X}#{CTRL-Z}{sret}{CTRL-D}{esc}{sret}{CTRL-K}{esc}{CBM-O}{CTRL-B}{esc}{sret}{wht}{esc}H{CBM-O}{ensh}{esc}{$f0}{rvon}{CTRL-X}{$6d}{CTRL-F}{esc}{sret}{CTRL-F}{esc}{SHIFT-POUND}{$00}{$6d}{CTRL-G}{esc}{sret}{CTRL-G}{esc}HP{$e2}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}  n  nnnnnn  nn  nn  n                    {$a0}{$a0}{$a0} {$a0} {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0}                     {$a0}   {$a0} {$a0} {$a0} {$a0} {$a0}   {$a0} {$a0}                     {$a0}{$a0}{$a0} {$a0} {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}  {$a0}{$a0}{$69}                       {$a0} {$a0} {$a0} {$a0}   {$a0}   {$a0}_{CBM-*}                     {$a0}{$a0}{$a0}n{$a0}{$a0}{$a0}n{$a0}n  {$a0}{$a0}{$a0}n{$a0} {$a0}n                                                       n  nnn   n n  n n n  nn  nn  n          {$a0}{$a0}{$a0} {$a0}   {$e9}{$a0}{$a0}{CBM-*} {$e9}{$a0}{$a0}{CBM-*} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0}           {$a0}   {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0} {$a0} {$a0}   {$a0} {$a0}           {$a0}{$6c}{$62} {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}  {$a0}{$a0}{$69}           {$a0} {$a0} {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0}   {$a0}   {$a0}_{CBM-*}           {$a0}{$a0}{$a0}n{$a0}{$a0}{$a0}n_{$a0}{$a0}{$69} _{$a0}{$a0}{$69} {$a0}n  {$a0}{$a0}{$a0}n{$a0} {$a0}n                                                                                           {CTRL-A}{CTRL-U}{del}{dish}{CTRL-O}{rvon}: {CTRL-D}.{wht}.{CTRL-A}{swlc}{del}{dish}{CTRL-O}{swlc}{CTRL-Y}  (1981)             ===========================      {$60} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}I1{blk}{$0a}I9{CBM-A}{CTRL-F}{CBM-N}{CBM-X}F{grn}P{CTRL-B}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}({$00}~({CTRL-A}{$00}X{$00}{$7a}{CTRL-B}{CTRL-A}:{stop}{$00}{blu}{clr}{rvon}super glooper{rvof}{CBM-G}GI{$00}P{CTRL-O}{CBM-G}HI{blu}P{ensh}{CBM-G}TI{CTRL-A}P{stop}l{CBM-F}{CTRL-B}{SHIFT-POUND}]{$a0}{$00}{lgrn}{$00}{wht}H{SHIFT-*}{$00}P{$f8}{SHIFT-POUND} {lgrn}llll{$00}P{$f8}{$00}{CBM-Z}{$00}{SHIFT-*}Il{$f0}{blu}{SHIFT-POUND}{$e7}{sret}{clr}{dish}{sret}{lgrn}{dish}{sret}1{CTRL-X}{sret}7{CTRL-X}{SHIFT-POUND}{$75}{sret}{rvof}{dish}{sret}{gry2}{dish}{sret}0{CTRL-X}{sret}6{CTRL-X}l{blu}{CTRL-D}{SHIFT-POUND}W{sret}{clr}{dish}{sret}{lgrn}{dish}{sret}1{CTRL-X}{sret}7{CTRL-X}{SHIFT-POUND}"{sret}{rvof}{dish}{sret}{gry2}{dish}{sret}0{CTRL-X}{sret}6{CTRL-X}{CBM-Z}{CTRL-U}{$e6}P{stop}l{blu}{CTRL-D}{SHIFT-POUND}l{sret}{CTRL-Y}{CTRL-F}{SHIFT-POUND}P{sret}{CTRL-Z}{CTRL-F}{SHIFT-POUND}{grn}{sret}{esc}{CTRL-F}{SHIFT-POUND}{stop}{sret}{home}{CTRL-F}l{blu}{CTRL-D} "                            {stop}{$00}{$00}{$00}{CTRL-A}{$00}{$00}~sg3{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}s0:sg3{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}~~~~~~~~lifted from tape by tim howe    may 2002. enjoy!~~~~~~~~{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00} {$00}{$00}{$00}{sret}j{$e8}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}~l{$f6}{up}{$fe}{inst}~{SHIFT-POUND}{CTRL-P}{sret}k{$e8}{SHIFT-POUND}{CTRL-O}P{$e7}{CTRL-P}{SHIFT-POUND}{$0a}{sret}{CTRL-A}{$68}{$60}{SHIFT-POUND}_{sret}j{blu}{SHIFT-POUND}{CTRL-X}{sret}k{blu}j {$00}~{$00}~{$00}{CTRL-L}{CTRL-D}{$0a}{$00}{yel}(0699){$00}{$00}{$00}{$ea}{$00}{CTRL-A}{CTRL-A}{dish}{$00}r{grn}{$f0}{CBM-H}{$64}{$00}{$00}{$00}{$00}{$00} {stop}{CTRL-X} {CTRL-P}{wht} {CTRL-L}{CTRL-F} {CTRL-B}{CTRL-G}{CBM-Z}{CTRL-P}{CTRL-D}{$f0}{CTRL-F} {CTRL-A}
l%{CTRL-D}{CBM-Z}{CTRL-U}{CTRL-D}P{CTRL-X}N{down}{CTRL-D}{CBM-Z}{down}{CTRL-D}{CTRL-P}{CTRL-P}{SHIFT-POUND}s{sret}{CTRL-U}{CTRL-D}{SHIFT-POUND}{CTRL-A}{sret}{down}{CTRL-D} {$00}{swlc}l%{CTRL-D}N{rvon}{CTRL-D}{CBM-Z}{rvon}{CTRL-D}{$f0}{CTRL-B}PH{SHIFT-POUND}{CTRL-A}{sret}{rvon}{CTRL-D}{CBM-Z}0{ensh}I{$66}{$f0}{CBM-C}{CBM-I}{$00}{CBM-Z}{down}{CTRL-D}P{CTRL-F} {up}{CTRL-D}l{$7c}{CTRL-D} {f7}{CTRL-D}l%{CTRL-D}{$e8} {f7}{CTRL-D}{$e8} {f7}{CTRL-D}{$e8} {f7}{CTRL-D}8{CBM-Z}{CTRL-U}{CTRL-D}{SHIFT--}{CTRL-V}{CTRL-D}{CBM-A}c{CBM-X}{esc}{CTRL-D}Pc{SHIFT-POUND}{CTRL-A}{left}{esc}{CTRL-D}{f4}{$0a}{CBM-N}{CBM-X}@{ensh}{sret}{CBM-Z}{CTRL-D}{CBM-X}a{ensh}{sret}{CBM-S}{CTRL-D}{SHIFT-POUND} {sret}J{orng}{SHIFT-POUND}{$ef}{left}@{ensh}{SHIFT-POUND}{orng}{left}a{ensh}{SHIFT-POUND}{CTRL-L}{left}h{ensh}{SHIFT-POUND}{CTRL-P}{left}i{ensh}{f4}j{CBM-N}{SHIFT-POUND} {left}p{ensh}{CBM-Z}{home}{CTRL-D}{sret}{rvon}{CTRL-D} I{dish}{$68}{$68}l%{CTRL-D}{$ec}{del}{CTRL-D}{$f0}{$f6}{$60},{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}l{$8f}{CTRL-B}I{orng}L{orng}a{$82}d{$82}{CTRL-K}{rvon}{swlc}{rvon}{CTRL-K}{CTRL-U}{swlc}{CTRL-U}{SHIFT-POUND}{clr} R~{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}{$00}{sret}{$60}{dish}{sret}{$61}{dish}{sret}{CTRL-P}{CTRL-D}{SHIFT-POUND}{CTRL-A}{sret}{down}{CTRL-D}{SHIFT-POUND}r{sret}{CTRL-U}{CTRL-D}{SHIFT-POUND}{CTRL-F}{sret}({dish}{SHIFT-POUND}{$82}{sret}){dish}{SHIFT-POUND}{CTRL-L}{sret}1{ensh}{SHIFT-POUND}'{sret}2{ensh}{$a0}{$00}{CBM-O}{$00}{wht}{lgrn}@{ensh}{CBM-O}{dish}{wht}{lgrn}h{ensh}H{SHIFT-*}{dish}P{$ef}{$a0}{$00}{SHIFT-POUND} {lgrn}p{ensh}{SHIFT-POUND}{$00}{lgrn}t{ensh}{lgrn}{esc}{CTRL-D}H{SHIFT-*}{CTRL-D}P{$ee}{SHIFT-POUND}{$00}{sret}{$7f}{wht}{sret}{$82}{wht}{SHIFT-POUND}{CTRL-P}{sret}{$80}{wht}{SHIFT-POUND}{$80}{sret}{$83}{wht}{CBM-I}{$00}{CBM-X}{$e8}{home}{left}{$e8}{$83}I{$60}{$f0}{rvon}{$ee}{$7f}{wht}P{stop}{$ee}{$80}{wht}{$ee}{$82}{wht}P{$e9}{$ee}{$83}{wht}P{$e4}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}0{ensh}I{$a0}P{CTRL-F}{sret}{CTRL-P}{CTRL-D}l9{CTRL-K}lB{$0a}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}{$63}
{gry2}j{CBM-POUND}{CBM-O}p{ensh}I.P{stop}N{CTRL-U}{CTRL-D}{gry2}{$0a}{CBM-POUND}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{sret}{$6b}{wht}{sret}{CBM-A}{CTRL-K}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}((X{$00}{$00}{CTRL-A}{$00}{$00}{$00}~{$00}{CBM-G}{gry1}I~{$f0}6I{CTRL-D}P{stop}{$6c}{$fc}~{sret}&{CTRL-F}){$f0}jjjj{sret}4{CTRL-F}{SHIFT-POUND}{CTRL-F}){CTRL-O}{CTRL-X}{$e9}{CTRL-G}{CBM-A}{CTRL-B}{SHIFT-POUND}{$00}{$0a}{$0a}{CTRL-X}{$69}{$00}{CBM-N}{$f0}
0{CTRL-D}I{CTRL-L}0{CTRL-D}{SHIFT-POUND}{$00}{$f0}{stop}{CBM-X}{$00}{CTRL-F}{sret}{$00}{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CBM-I}~{CBM-Z}{$00}{CTRL-G}P{stop}l{SHIFT-+}{CTRL-G}0{CTRL-B}{CBM-I}{$00}{swuc}{esc}{CTRL-G}{CTRL-X}{$6d}({dish}{sret}{$65}{CTRL-G}{SHIFT-POUND}{$00}{$6d}){dish}{sret}{$66}{CTRL-G}I{$80}P{rght}{CBM-Z}{$65}{CTRL-G}I{home}P{CTRL-V}{CTRL-X}{CBM-Z}({dish}{$69}{gry2}{sret}{$65}{CTRL-G}{SHIFT-POUND}{stop}{$6d}){dish}{sret}{$66}{CTRL-G}{SHIFT-POUND}{CTRL-Y}l{$61}{CTRL-G}I{$83}P{rght}{CBM-Z}{$65}{CTRL-G}I{$fb}P{CTRL-V}8{CBM-Z}({dish}{$e9}{gry2}{sret}{$65}{CTRL-G}{CBM-Z}){dish}{$e9}{stop}{sret}{$66}{CTRL-G}{SHIFT-POUND}{$00}{sret}1{ensh}{CBM-Z}{CBM-L}{orng}{$ea}{$ea}{$ea}I.P{ensh} {$6d}{dish}N{CTRL-U}{CTRL-D}l{CBM-Q}{CTRL-G}I {$f0}0IqP%{SHIFT-POUND}{$66}{sret}0{ensh}{CBM-I}{$00}{$a0}{$00}{CBM-X}t{ensh}Y{$78}{ensh}P{dish}{CBM-O}{$7a}{ensh}{left}t{ensh}P{wht}H{SHIFT-*}{CTRL-D}P{$ee}{$e8}{$e0}{CTRL-D}P{$e4}{$f0}{CTRL-G}I{$66}P3{sret}{CTRL-A}{CTRL-G}{SHIFT-POUND}  '{dish}{CBM-Z}{$65}{CTRL-G}{sret}({dish}{CBM-Z}{$66}{CTRL-G}{sret}){dish}{CBM-Z}{$00}{CTRL-G}0{swlc}I(P{wht}{$ee}1{ensh}P{down}{$ee}2{ensh}P{CTRL-L}IXP{wht}N1{ensh}P{stop}N2{ensh}{CBM-D}{$00}{CTRL-G}P{CTRL-B}{$a0}{stop}{CBM-O}+{dish}{sret}.{dish} '{dish}{CBM-Z}{CTRL-A}{CTRL-G}{$f0}{dish} {CBM-V}{CTRL-K}{SHIFT-POUND}{$00}{sret}{CTRL-A}{CTRL-G}{CBM-Z}.{dish}{SHIFT-POUND} {sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{CBM-O},{dish}{sret}/{dish} '{dish} {$82}{ensh}{SHIFT-POUND} {sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-G}{$60}{sret}{CTRL-F}{$82}{$60}{$00}{$ec}{$6c}{$ec}{$6c}{CTRL-A}{CTRL-A}{$00}hN2{dish}P{$fb}N1{dish}P{$f6}N0{dish}P{$f1}{SHIFT-POUND}{CTRL-A}{sret}0{dish}{sret}1{dish}{$68}{$60}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CBM-N}{$ec}{$6c}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{CTRL-A}{CTRL-A}{CTRL-B}{stop}{CTRL-D}{wht}{CTRL-F}{CTRL-G}{dish}{ensh}{$0a}{CBM-Z}{del}{CTRL-D}){CTRL-G}{CBM-N}{CTRL-X}{$f8}{CBM-Z}{$61}{dish}{$7d}{$62}{dish}{sret}{$61}{dish}{blk}{dish}{SHIFT-POUND}{$00}{$6d}{$60}{dish}{sret}{$60}{dish}X{$a0}{CTRL-F} {gry3}{dish}{CBM-Z}{$60}{dish} {$fc}~{CBM-Z}{$61}{dish} {$fc}~{$60}{SHIFT-POUND}{home} R~{SHIFT-POUND}{rght} R~{f7}P{$fa}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}{$60}{swuc}h{$e8}{SHIFT-POUND}{CTRL-B}{sret}1{dish}{SHIFT-POUND}{$80}{sret}2{dish} 3{dish}JJ{CTRL-P}{$ec}{$60}{CBM-N}k{f4}h{CBM-I}{wht}{SHIFT-POUND}~{sret}H{dish}{$a0}{CTRL-Y}{sret}h{$e8}{SHIFT-POUND}{CTRL-B}{sret}1{dish} 3{dish}8{CBM-Z}H{dish}{$e9}{CTRL-D}{sret}H{dish}{f7}P{$e9}{gry2}{sret}h{$e8}{SHIFT-POUND}{$0a}{sret}1{dish} 3{dish}{CTRL-X}{CBM-Z}H{dish}{$69}pJPO{$68}{CBM-N}{$60}{$fc}{$7c}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$fb}{$7b}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$a0}{CTRL-L}'{CTRL-A}{CTRL-B}{CTRL-B}{home}{grn}{CTRL-D}{stop}{CTRL-D}{CTRL-A}XX{CTRL-A}{$00}{$f4}{orng}{CBM-K}{orng}{$6c}{$82}d{$82}{CTRL-L}{CTRL-U}
{CTRL-O}{CTRL-L}{CTRL-X}{swlc}{CTRL-U}    X~({CTRL-A}X{CTRL-A}{CTRL-A}X({CTRL-A}{CTRL-A}((~~(X~~X(~~(X~~XX{CTRL-A}{CTRL-A}X({CTRL-A}{CTRL-A}(X{CTRL-A}(~X{CTRL-A}X{CTRL-A}{$00}~{f8}9{ensh}{SHIFT-POUND}{$00}{sret}:{ensh}{CBM-Z}0{ensh}I{$66}P N4{ensh}{$f0}{CTRL-A}{$60}{SHIFT-POUND}{CTRL-B}{sret}4{ensh}N7{ensh}{CBM-Z}7{ensh}P
{sret}{CBM-A}{CTRL-K}{SHIFT-POUND}{$a0}{sret}0{ensh}{SHIFT-POUND}{grn}{sret}7{ensh}{CBM-Z}:{ensh}{CBM-N}{CBM-X}t{ensh}{sret}={ensh}{f4}{$0a}{CBM-N}{CBM-X}@{ensh}{sret}{CBM-T}{CTRL-K}{CBM-X}a{ensh}{sret}{CBM-@}{CTRL-K}{CBM-X}h{ensh}8{$ed}1{ensh}{sret}5{ensh}{CBM-X}i{ensh}8{$ed}2{ensh}{sret}6{ensh}{CBM-Z}5{ensh}0{CTRL-K}{CBM-I}{CTRL-A}{CBM-Z}6{ensh}0{CTRL-X}{CBM-I}
P{rght}8{SHIFT-POUND}{$00}{$ed}5{ensh}{sret}5{ensh}{CBM-I}{wht}{CBM-Z}6{ensh}0{CTRL-D}{CBM-I}{ensh}{CTRL-P}{ensh}8{SHIFT-POUND}{$00}{$ed}6{ensh}{sret}6{ensh}8{$ed}5{ensh}0{wht}{f4}{CTRL-X}{$69}{CTRL-B}{CBM-N}{CBM-Z}0{ensh}I{$a0}P{swlc}{CBM-X}w{ensh}{sret};{ensh}{CBM-X}x{ensh}{sret}<{ensh}P{CTRL-L}{CBM-X}{$67}{ensh}{sret};{ensh}{CBM-X}{$68}{ensh}{sret}<{ensh}{SHIFT-POUND}{$00}{sret}8{ensh}{sret}3{ensh}{sret}{$7e}{ensh}{sret}{$7f}{ensh}{sret}{$80}{ensh}{sret}{orng}{ensh}{CBM-I}~{CBM-Z}8{ensh}{CBM-POUND}{CBM-O}{$78}{ensh}0{CTRL-B}{CBM-I}{$00}{swuc}{$63}{$0a}{CTRL-X}{$6d}{CBM-T}{CTRL-K}{sret}{cyn}{$0a}{SHIFT-POUND}{$00}{$6d}{CBM-@}{CTRL-K}{sret}{$a0}{$0a}I{$80}P{del}{CBM-Z}{cyn}{$0a}I{home}P
{CBM-I}~{SHIFT-POUND}({sret}>{ensh}{sret}3{ensh}lt{$0a}I{$83}P{del}{CBM-Z}{cyn}{$0a}I{$fb}P
{CBM-I}~{SHIFT-POUND}X{sret}>{ensh}{sret}3{ensh}lt{$0a}{CBM-Z}9{ensh}{CBM-N}{CBM-Z}d{$82}M0{ensh}{$f0}$I.{$f0}/I {$f0}+Iq{$f0}'{SHIFT--},{dish}P{CTRL-K}{CBM-Z}3{ensh}{$f0}{rght}l{CBM-A}{wht}l9{CTRL-K}{CBM-Z}3{ensh}{$f0}{stop}l{f3}{CTRL-K}{$ee}8{ensh}{CBM-Z}8{ensh}I{CTRL-D}{$f0}{esc}{CBM-I}~lp{$0a}{CBM-Z}3{ensh}P[{CBM-Z}={ensh}Y{$7a}{ensh}{$f0}{CTRL-F}{CBM-O}{$78}{ensh}{lgrn}{$7e}{ensh}lJ{$0a}{$a0}{$00}{CBM-O}{$7e}{ensh}M;{ensh}{$f0}*H{SHIFT-*}{CTRL-D}P{$f3}{$a0}{$00}{CBM-O}{$7e}{ensh}M<{ensh}{$f0}{esc}H{SHIFT-*}{CTRL-D}P{$f3}{$a0}{$00}{CBM-O}{$7e}{ensh}{$f0}{dish}{sret}>{ensh}M={ensh}{$f0}{CTRL-G}H{SHIFT-*}{CTRL-D}P{$ee}{$f0}{CTRL-K}{sret}>{ensh}{$ee}3{ensh}{CBM-I}~lq{$0a}{$ee}3{ensh}{CBM-I}~{CBM-Z}>{ensh}lt{$0a}{CBM-Z}:{ensh}{CBM-N}{CBM-Z}>{ensh}{left}t{ensh}{CBM-X}p{ensh} {CBM-I}{CTRL-K}{f4}{$0a}{CBM-N}{CBM-Z}{cyn}{$0a}{sret}{CBM-T}{CTRL-K}{sret}{lblu}{CTRL-K}{left}@{ensh}{CBM-Z}{$a0}{$0a}{sret}{CBM-@}{CTRL-K}{sret}{gry3}{CTRL-K}{left}a{ensh}{CBM-Z}>{ensh}0{swlc}I(P{wht}{$fe}h{ensh}P{down}{$fe}i{ensh}P{CTRL-L}IXP{wht}{$de}h{ensh}P{stop}{$de}i{ensh} {brn}{CTRL-K}{$ee}:{ensh}{CBM-Z}:{ensh}I{CTRL-D}{$ea}{$f0}{stop}l{CBM-H}{ensh}{$60}{CBM-Z}:{ensh}{CBM-N}{CBM-Z}d{$82}{left}p{ensh}{CBM-Z}0{ensh}{sret}d{$82}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}200~ {$ec} {$00}{$00} @{$60}{$80} {CBM-A}{dish}{$ee}{CBM-A}{CTRL-K}{CBM-Z}{CBM-A}{CTRL-K}{$0a}{CTRL-X}{$69}0{sret}{CBM-E}{CTRL-K}8{CBM-Z}({dish}{sret}"{CTRL-L}{$e9}{CTRL-A}{sret}{$f4}{CTRL-K}{sret}{$fd}{CTRL-K}{sret}{CTRL-W}{CTRL-L}{CBM-Z}){dish}{sret}){CTRL-L}{$e9}{$00}{sret}{$f5}{CTRL-K}{sret}{$fe}{CTRL-K}{sret}{CTRL-X}{CTRL-L}{CBM-I}{CTRL-B}{CBM-X}{$a0}{$83}{left}{CBM-J}{CTRL-K}{CBM-X}{CBM-E}{CTRL-K}{left}{$a0}{$83}J{CTRL-P}{$f1}{SHIFT-POUND}~{sret}1{dish}{SHIFT-POUND}~{sret}2{dish} 3{dish}{CBM-I}{$00}{CBM-X}{CBM-J}{CTRL-K}{$f0}{CTRL-F}{left}{$a0}{$83}{$e8}P{$f5}{CBM-I}{$00}{CBM-X}@{ensh}I{CBM-K}P{CTRL-G}{CBM-X}a{ensh}I{$83}{$f0}{CTRL-D}{$e8}{$e8}P{$ee}{SHIFT-POUND}{$f1}{left}@{ensh}{SHIFT-POUND}{orng}{left}a{ensh}{SHIFT-POUND}{CTRL-L}{left}h{ensh}{SHIFT-POUND}{rvon}{left}i{ensh}{f4}j{CBM-N}{CBM-X}p{ensh}I.P{stop}N{CTRL-U}{CTRL-D}{SHIFT-POUND} {left}p{ensh}{SHIFT-POUND}{$00}{left}t{ensh}{left}{esc}{CTRL-D}{CBM-Z}{CBM-A}{CTRL-K}{CBM-N}{CTRL-X}{$f8}{CBM-Z}{$61}{dish}{$7d}{CBM-O}{CTRL-K}{sret}{$61}{dish}{blk}{dish}{SHIFT-POUND}{$00}{$6d}{$60}{dish}{sret}{$60}{dish}X {f2}{dish}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}p2{$00}{$00}{$00}{$00}{$00}{SHIFT-POUND}~{$a0}{$00}{sret}h{$e8}{SHIFT-POUND}{stop}{sret}1{dish} 3{dish}8{CBM-Z}h{$e8}{$e9}{wht}H{SHIFT-*}{grn}P{$ea}{SHIFT-POUND}{$00}{sret}h{$e8}{SHIFT-POUND}{$80}{sret}1{dish} 3{dish} {CBM-G}
 {CBM-G}
{CBM-Z}{$00}
{$0a}{CBM-N}{SHIFT-POUND} {left}!{$80}N{$00}
P{stop}l{CTRL-Z}{CTRL-O}{CBM-Z}({dish}{sret}o
{CBM-Z}){dish}{sret}p
{SHIFT-POUND} {sret}{CBM-B}{$82}{$a0}{CTRL-F}{CBM-O}@{ensh}{sret}{$62}
{CBM-O}a{ensh} P{wht}{SHIFT-POUND} {sret}{$71}{$82}{f7}{f7}{CTRL-P}{$eb}{SHIFT-POUND}{$e0}{sret}{$6b}{wht}{SHIFT-POUND}{home}{sret}{$73}{wht}{SHIFT-POUND}{$83}{sret}{$78}{wht}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea} {$71}{swlc}{$ea}{$ea}{$ea}{$ea}{$ea} /{wht}{SHIFT-POUND}{$00}{sret}{CTRL-P}{CTRL-D}{sret}{$6b}{wht}{SHIFT-POUND}{CTRL-P}{sret}{$73}{wht}{SHIFT-POUND}{$80}{sret}{$78}{wht}{SHIFT-POUND} {$ea}{sret}{rvon}{CTRL-D}{$60}{SHIFT-POUND}{$00}{f1}p{SHIFT-POUND}{$80}{f1}q{CBM-I}{$00}{$a0}({CBM-E}pi{$80}{up}p{f7}P{$f7}{CTRL-X}{CBM-G}p{$69}({f1}p{blk}{CTRL-B}{$e6}q{SHIFT-POUND}{rvon}{sret}1{dish} 3{dish}{f4}{$0a}{$0a}{$0a}{sret}h{$e8}{$e8}{$e0}{CTRL-Y}PV{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-I}{$0a} 3{swlc} x{swlc}JP{$f7} {$71}{swlc}{CBM-Z}{del}{CTRL-D}I{stop}{$f0}{CTRL-F}{$ee}{del}{CTRL-D}{$ee}{sret}{CTRL-P}{SHIFT-POUND}({sret}{$6b}{wht} %{wht}{SHIFT-POUND}{$00} {$e8}{wht}{SHIFT-POUND}{$a0}{sret}0{ensh}{SHIFT-POUND}{grn}{sret}7{ensh}{$60}{$a0}{$00}{CBM-O}{$00}{$80}i{$80}{lgrn}{$00}{$80}H{SHIFT-*}{$00}P{$f3}{$ee}7{swlc}{$ee}<{swlc}{CBM-Z}7{swlc}I{$84}P{$e6}{SHIFT-POUND}{$80}{sret}7{swlc}{sret}<{swlc}{$60}{SHIFT-POUND}{CTRL-B}{sret}1{dish}{$a0}{CTRL-F}{f8}h{$e8} 3{dish}HH{SHIFT-*}{$64}P{$f4}{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{$a0}{$fe}{f8}h{$e8}{SHIFT-POUND}{CTRL-G}{sret}1{dish} 3{dish}{f7}{f7}P{$f1}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}({$00}P{swlc}{CBM-Z}{f4}{swlc}{sret}{CBM-K}{swlc}{sret}{CBM-N}{swlc}{CBM-Z}{f6}{swlc}{sret}{CBM-I}{swlc}{sret}{CBM-Q}{swlc}{$a0}{$00}{CBM-O}P{swlc}{sret}h{$e8}{$f0} H{CBM-O}P{swlc}H{CBM-N}{f8}{f7}{swlc}{SHIFT-POUND}{stop}{sret}{f2}{swlc}{$a0}{$fb}{f7}P{$fd}N{f2}{swlc}P{$f6}JP{$ee}{CBM-D}{f7}{swlc}PX{SHIFT-POUND}{$00}{sret}h{$e8}{$60}{CBM-N}{CBM-N}{$74}{$80}{CTRL-A}{wht}{$74}{$60}{CTRL-A}{wht}{$74} {CTRL-A}{wht}{$74}{$80}{CTRL-A}{wht}{$61}{$60}{CTRL-A}{wht}{$67} {CTRL-A}{wht}{$67}{$60}{CTRL-A}{wht}{$74} {CTRL-A}{wht}{$74}{$60}{$82} {CTRL-A}{wht}{$74}{$a0}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-O}{$00}{$a0}{CTRL-D}{CTRL-L}{$00}{CTRL-A}(~X * {CTRL-G}{CTRL-A}
{wht}  {CTRL-O}{CTRL-V}{wht}{rvon} *  {f8}{swlc}{SHIFT-POUND}{CTRL-A}{sret}{stop}{CTRL-O}{SHIFT-POUND}'{sret}{$00}{CTRL-O}{SHIFT-POUND}{CTRL-X}{sret}{CTRL-A}{CTRL-O}{SHIFT-POUND}{$00}{sret}{$62}{CTRL-O}{SHIFT-POUND}{$80}{sret}{$63}{CTRL-O}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-D}{CTRL-O}{CBM-I}{CTRL-A}{$a0}{$00}{gry2}h{$a0}~{CBM-X}{wht}{CTRL-O}0{CTRL-B}{$a0}{$00}{f8}u{CTRL-O}{CTRL-X}{$6d}{$62}{CTRL-O}{sret}{$62}{CTRL-O}{SHIFT-POUND}~{$6d}{$63}{CTRL-O}{sret}{$63}{CTRL-O}{$68}{CBM-POUND}{CBM-Z}{CTRL-B}{CTRL-O}{sret}{$ec}{orng}H{f4}){CTRL-A}{$f0}{CTRL-G}L{$00}{CTRL-O}PP{$f0}{wht}L{CTRL-A}{CTRL-O}PI{$e8}{$e0}{wht}PB{SHIFT-POUND}{CTRL-Y}{sret}1{dish} 3{dish}N{$00}{CTRL-O}N{$00}{CTRL-O}N{CTRL-A}{CTRL-O}N{CTRL-A}{CTRL-O}{CTRL-X}{SHIFT-POUND}){$6d}{$62}{CTRL-O}{sret}{$62}{CTRL-O}{SHIFT-POUND}{$00}{$6d}{$63}{CTRL-O}{sret}{$63}{CTRL-O}{CBM-Z}{CTRL-B}{CTRL-O}i{$80}{sret}{CTRL-B}{CTRL-O}{CBM-Z}{CTRL-D}{CTRL-O}I{CTRL-L}{$f0}{down}{$a0}{CTRL-O}{CBM-O}{$0a}{CTRL-O}{lgrn}{$ec}{orng}{f7}{CTRL-P}{$f7}{$ee}{CTRL-D}{CTRL-O}l;{CTRL-O}{CBM-Z}{stop}{CTRL-O}I{dish}{$f0}{swlc}{CBM-Z}{CTRL-B}{CTRL-O}i{$80}{sret}{CTRL-B}{CTRL-O}{$ee}{stop}{CTRL-O}l"{CTRL-O}{$68}{$68}l{blu}{CTRL-D}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{home}{stop}{CTRL-O}{rvon}{wht} 00000    {dish}{ensh}{CTRL-G}{dish} {home}{stop}{CTRL-O}{rvon}{wht} 00000    {$ec} {$ec} {$ec}{$70}@@@@@@@@@@@@@@@{$6e} ].] {$70}@@@@@@@@@@{$72}{$72}@@@@{$6e}]...q...........] ].] ].....q....]]....]].u@@i.u@@@@@@i.] ].]{CBM-E}].u@@@@@@i.]].ui.]].j@@k.j@@@@@@k.{$6d}@{$7d}.{$6d}@{$7d}.j@@@@@@k.jk.]].]]...................................]].]].u@@i.u@@@@@@@@@@i.u@@@@@@i.ui.u@@@k].]].]  ].j@@iu@@@@@@k.j@@@@@i].]].j@@@i].]].]  ]....]]..............]].]].....]].]].]  ].ui.]].ui.{$70}@@@@{$6e}.ui.]].]ji.ui.]].]].j@@k.]].jk.]].]    ].]].jk.j@k.]].jk.]]......]]....]].]    ].]]........]]....]{$6b}@@@@i.]j@@@@k].]    ].]j@@@@@@i.]j@@i.]{$6b}@@@@k.]u@@@@i].]    ].]u@@@@@@k.]u@@k.]]......]]....]].]    ].]]........]]....]].u@@i.]].ui.]].]    ].]].ui.u@i.]].ui.]].]  ].jk.]].jk.{$6d}@@@@{$7d}.jk.]].]uk.jk.]].]].]  ]....]]..............]].]].....]].]].]  ].u@@kj@@@@@@i.u@@@@@k].]].u@@@k].]].j@@k.j@@@@@@@@@@k.j@@@@@@k.jk.j@@@i].]]...................................]].]].u@@i.u@@@@@@i.{$70}@{$6e}.{$70}@{$6e}.u@@@@@@i.ui.]].]].j@@k.j@@@@@@k.] ].] ].j@@@@@@k.]].jk.]]...q...........] ].] ].....q....]]....]{$6d}@@@@@@@@@@@@@@@{$7d} ].] {$6d}@@@@@@@@@@{$71}{$71}@@@@{$7d}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{$00}{$00}{SHIFT-POUND}{$00}{f1}{yel}{CTRL-X}{CBM-Z}{$60}{dish}M{CTRL-A}{CTRL-X}{blk}@P{ensh}{CTRL-X}{CBM-Z}{CTRL-B}{CTRL-X}M{$61}{dish}{CBM-A}5{CBM-Z}{$60}{dish}{sret}{CTRL-A}{CTRL-X}{CBM-Z}{$61}{dish}{sret}{CTRL-B}{CTRL-X}{$a0}{CTRL-Z} {gry3}{dish}{CBM-Z}{CTRL-A}{CTRL-X} {$fc}~{CBM-Z}{CTRL-B}{CTRL-X} {$fc}~{CBM-Z}{CTRL-Z}{$80}{sret}{CTRL-Z}{CTRL-P}{CBM-Z}{esc}{$80}{sret}{esc}{CTRL-P}{CBM-Z}{red}{$80}{sret}{red}{CTRL-P}{CBM-Z}{rght}{$80}{sret}{rght}{CTRL-P}{CBM-Z}{$f1}{stop}{sret}{CBM-J}{CTRL-B}{CBM-Z}{$f6}{stop}{sret}{CBM-L}{CTRL-B}l{CBM-H}{CTRL-B} {$e0}{stop}{SHIFT-POUND}{CBM-E}{sret}{sret}{CTRL-P}{SHIFT-POUND}{$00}{sret}{del}{CTRL-D}{SHIFT-POUND}{stop}{sret}{$00}
{SHIFT-POUND}{clr} R~{CBM-I}{$00}{swuc}{$00}{CTRL-X} {$e4}~Pq {$e2}{CTRL-Z}{$ee}{$00}{CTRL-X}{CBM-Z}{$00}{CTRL-X}I{stop}0{CTRL-L}I{CTRL-D}P{CTRL-P}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-X}l{CBM-K}{CTRL-X}{SHIFT-POUND}{CBM-H}{sret}1{dish} 3{dish}{$e8}{$e8}{$e0}{$60}PT {CBM-A}{dish}{SHIFT-POUND}{$00}{sret}{$7f}{wht}{SHIFT-POUND}{red}{sret}{$80}{wht}{SHIFT-POUND}h{sret}{$82}{wht}{SHIFT-POUND}{orng}{sret}{$83}{wht} {$7c}{wht}{SHIFT-POUND}{dish}{sret}0{dish}{SHIFT-POUND}~{sret}1{dish} 3{dish}l{$71}{CTRL-X}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}%{$a0}{CTRL-A}{$a0}'{$a0}{CTRL-A}{$a0}{$00} {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A}{$a0}{CTRL-A}{$a0}% {CTRL-A} {CTRL-A}{$a0}{CTRL-A}{$a0}{$00} {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} % {CTRL-A} {CTRL-A} {CTRL-A} {$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}({$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$a0}'{$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}{CTRL-A} {CTRL-A}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$69}&{$a0}{CTRL-A}_{CTRL-A}{CBM-*}&{$a0}{CTRL-B}{$a0}{$00}{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}&{$a0}({$a0}{CTRL-A}{$6c}{CTRL-A}{$62}&{$a0}{CTRL-B}{$a0}&{$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$a0}({$a0}({$a0}({$a0}({$a0}{CTRL-A}{$a0}{CTRL-A}{$a0}{$00}{$e9}{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{CBM-*}%{$a0}{stop}{$a0}%{$a0}{stop}{$a0}%{$a0}{stop}{$a0}%_{CTRL-A}{$a0}{CTRL-A}{$a0}{CTRL-A}{$69}{$00}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$70}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{f3}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{pur}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CBM-A}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}D{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$e0}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{$f8}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CTRL-F}{CTRL-Z}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CTRL-F}{CTRL-Z}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{pur}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}{CBM-A}{CTRL-Y}{$00}{CTRL-Y} {CTRL-Y}h{CTRL-Y}D{CTRL-Y}{$72}{orng}{$72}{orng}{$72}{orng}{$72}{orng}{$76}{orng}{$76}{orng}{$76}{orng}{$76}{orng}{$7a}{orng}{$7a}{orng}{$7a}{orng}{$7a}{orng}{$7e}{orng}{$7e}{orng}{$7e}{orng}{$7e}{orng}{$82}{orng}{$82}{orng}{$82}{orng}{$82}{orng}{f1}{$82}{f1}{$82}{f1}{$82}{f1}{$82}{f2}{$82}{f2}{$82}{f2}{$82}{f2}{$82}{sret}{$82}{sret}{$82}{sret}{$82}{sret}{$82}{rvof}{$82}{rvof}{$82}{rvof}{$82}{rvof}{$82}{gry1}{$82}{gry1}{$82}{gry1}{$82}{gry1}{$82}{gry3}{$82}{gry3}{$82}{gry3}{$82}{gry3}{$82}{cyn}{$82}{cyn}{$82}{cyn}{$82}{cyn}{$82}{$a0}{$00}{CBM-X}{$82}{CTRL-Z}{sret}{CTRL-F}{esc}{CBM-X}{$83}{CTRL-Z}{sret}{CTRL-G}{esc}{CBM-X}"{CTRL-Z}{sret}{stop}{esc}{sret}{$0a}{esc}{CBM-X}#{CTRL-Z}{sret}{CTRL-D}{esc}{sret}{CTRL-K}{esc}{CBM-O}{CTRL-B}{esc}{sret}{wht}{esc}H{CBM-O}{ensh}{esc}{$f0}{rvon}{CTRL-X}{$6d}{CTRL-F}{esc}{sret}{CTRL-F}{esc}{SHIFT-POUND}{$00}{$6d}{CTRL-G}{esc}{sret}{CTRL-G}{esc}HP{$e2}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}  n  nnnnnn  nn  nn  n                    {$a0}{$a0}{$a0} {$a0} {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0}                     {$a0}   {$a0} {$a0} {$a0} {$a0} {$a0}   {$a0} {$a0}                     {$a0}{$a0}{$a0} {$a0} {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}  {$a0}{$a0}{$69}                       {$a0} {$a0} {$a0} {$a0}   {$a0}   {$a0}_{CBM-*}                     {$a0}{$a0}{$a0}n{$a0}{$a0}{$a0}n{$a0}n  {$a0}{$a0}{$a0}n{$a0} {$a0}n                                                       n  nnn   n n  n n n  nn  nn  n          {$a0}{$a0}{$a0} {$a0}   {$e9}{$a0}{$a0}{CBM-*} {$e9}{$a0}{$a0}{CBM-*} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0} {$a0}{$a0}{$a0}           {$a0}   {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0} {$a0} {$a0}   {$a0} {$a0}           {$a0}{$6c}{$62} {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0}{$a0}{$a0} {$a0}{$a0}  {$a0}{$a0}{$69}           {$a0} {$a0} {$a0}   {$a0}  {$a0} {$a0}  {$a0} {$a0}   {$a0}   {$a0}_{CBM-*}           {$a0}{$a0}{$a0}n{$a0}{$a0}{$a0}n_{$a0}{$a0}{$69} _{$a0}{$a0}{$69} {$a0}n  {$a0}{$a0}{$a0}n{$a0} {$a0}n                                                                                           {CTRL-A}{CTRL-U}{del}{dish}{CTRL-O}{rvon}: {CTRL-D}.{wht}.{CTRL-A}{swlc}{del}{dish}{CTRL-O}{swlc}{CTRL-Y}  (1981)             ===========================      {$60} {CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}I1{blk}{$0a}I9{CBM-A}{CTRL-F}{CBM-N}{CBM-X}F{grn}P{CTRL-B}{SHIFT-POUND}{$00}{sret}{$00}{CTRL-G}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}({$00}~({CTRL-A}{$00}X{$00}    0 rem++++ holybonn/dwe-productions ++++
    5 print"{clr}";:poke59468,12:printtab(16)"{rvon}s u p e r{rvof}{down}"
   10 print" {rvon}QQ{CBM-*}{rvof}  {$a0}{rvon}{SHIFT-POUND}Q{CBM-*}{rvof}   {rvon}{SHIFT-POUND}Q{CBM-*}{rvof}{$a0}{$a0} {rvon}Q{rvof}   {$a0} {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}{SHIFT-POUND}Q{CBM-*}{rvof} {$a0} {rvon}QQQ{rvof}";
   15 print" {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof}     {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof}"
   20 print" {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof}     {rvon}QQQ{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}QQ{rvof}"
   25 print" {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof}     {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof} {rvon}Q{rvof}   {rvon}Q{rvof}"
   30 print" {rvon}QQ{rvof}{SHIFT-POUND}{$a0}{$a0} {CBM-*}{rvon}Q{rvof}{SHIFT-POUND} {$a0}{$a0}{CBM-*}{rvon}Q{rvof}{SHIFT-POUND}   {rvon}QQQ{rvof}{$a0}{$a0} {rvon}Q{rvof} {rvon}Q{rvof}   {CBM-*}{rvon}Q{rvof}{SHIFT-POUND}   {rvon}Q{rvof}"
   35 print"{down}{down}        ************************"
   40 print"        * holybonn productions *"
   45 print"        *      j.schaper       *"
   50 print"        *     bonnweg 193      *"
   55 print"        * 3137 nj  vlaardingen *"
   60 print"        *    tel:010-743662    *"
   65 print"        *                      *"
   70 print"        * last update  11/1980 *"
   75 print"        *  dwe/prd.010-332530  *"
   80 print"        ************************{down}"
   85 print"{down}wilt u instructies (j/n) ?"
   90 geta$:ifa$<>"j"anda$<>"n"thengosub225:goto90
   95 ifa$="n"then245
  100 print"{clr}als muis bent u in een doolhof gezet."
  105 print"probeer zo vlug mogelijk de kaas        te vinden."
  110 print"u ziet in perspectief de gangen en murenvoor u uit."
  115 print"{down}u kunt met:":print"{down}    toets '8' een stap vooruit doen"
  120 print"    toets '4' links om draaien"
  125 print"    toets '6' rechts om draaien"
  130 print"    toets '2' helemaal omdraaien"
  135 print"{down}om het zoeken te vereenvoudigen, "
  140 print"kunt u als u wilt: "
  145 print"{down}1. de afstand tot de kaas bijhouden"
  150 print"   (rechts boven)"
  155 print"2. de kijkrichting bijhouden"
  160 print"   (midden boven)"
  165 print"3. sporen achterlaten"
  170 print"   (witte streepjes op de vloer)
  175 print"{down}voor vervolg druk op {rvon}shift/toets{rvof}":wait152,1
  180 print"{clr}een wit vlak op de vloer geeft"
  185 print"het startpunt aan."
  190 print"{down}linksboven wordt de tijd bijgehouden"
  195 print"{down}als u de kaas hebt gevonden, of"
  200 print"u geeft het zoeken op, "
  205 print"druk dan toets 'h' van help in."
  210 print"{down}u krijgt het doolhof dan van boven af   te zien met daarin:"
  215 print"{down}  '{CBM-+}' is het startpunt.":print"{down}  '{CBM-F}' is waar u was."
  220 print"{down}  'S' is waar u bent gestopt.":print"{down}  'Z' is de gezochte kaas!":goto240
  225 poke33635,160:forq=1to250:next
  230 poke33635,32:forq=1to250:next
  235 return
  240 print"{down}voor vervolg druk op {rvon}shift/toets{rvof}":wait152,1
  245 t1$="59.59.9":s=4412:t=4405:rem{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}:rem last update 11/80 dwe
  250 print"{clr}wilt u de afstand tot de kaas j/n"
  255 geta$:ifa$<>"j"anda$<>"n"then255
  260 a=8:ifa$="j"thena=a+2
  265 print"{down}wilt u de kijkrichting j/n"
  270 geta$:ifa$<>"j"anda$<>"n"then270
  275 ifa$="j"thena=a+4
  280 print"{down}wilt u sporen achterlaten j/n"
  285 geta$:ifa$<>"j"anda$<>"n"then285
  290 ifa$="j"thena=a+1
  295 pokes,a:print"{clr}"
  300 print"even een doolhof maken"
  305 printtab(32);"^":print
  310 printtab(32);"{rvon}8{rvof}":print
  315 printtab(28);"< {rvon}4{rvof}   {rvon}6{rvof} >":print
  320 printtab(32);"{rvon}2{rvof}":print
  325 printtab(32);"v"
  330 printtab(30);"{down}{down}{down}{rvon}h{rvof} help"
  334 sys(6656):rem{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
  335 print"{home}{down}{down}"tab(39)"{rvon}d{down}{left}r{down}{left}u{down}{left}k{down}{left} {down}{left}o{down}{left}p{down}{left} {down}{left}s{down}{left}h{down}{left}i{down}{left}f{down}{left}t{down}{left}/{down}{left}t{down}{left}o{down}{left}e{down}{left}t{down}{left}s{down}{left}{rvof}";
  340 wait152,1:print"{clr}":t$=""
  345 fora=0to6:t$=t$+chr$(peek(t+a)):next
  350 ifpeek(s)<8thenprint"u hebt het opgegeven in: ";t$:goto370
  355 print"u hebt de kaas gevonden in: ";t$
  360 ift$<t1$thent1$=t$
  365 print"{down}het record is nu ";t1$
  370 print"{down}wilt u het nog eens proberen j/n"
  375 geta$:ifa$<>"j"anda$<>"n"then375
  380 ifa$="j"goto245
  385 end
  100 print "{down}supermon+64    jim butterfield"
  110 sys(peek(43)+256*peek(44)+71)
   10 rem supermon instr
 1100 gosub10000
 1200 print"{down}{down}{rvon} simple assembler "
 1300 print"{down}.{rvon}a{rvof} {rvon}2000{rvof} {rvon}lda{rvof} {rvon}#$12
 1310 print".a 2002 {rvon}sta{rvof} {rvon}$8000,x
 1320 print".a 2005 {rvon}(return)
 1330 print".
 1340 print"     in the above example the user
 1350 print"started assembly at 1000 hex.  the
 1360 print"first instruction was load a register
 1370 print"with immediate 12 hex.  in the second
 1380 print"line the user did not need to type the
 1390 print"a and address.  the simple assembler
 1400 print"prompts with the next address.  to exit
 1410 print"the assembler type a return after the
 1420 print"the address prompt.  syntax is the same
 1430 print"as the disassembler output.
 1450 gosub9000
 1500 print"{down}{down}{rvon}  disassembler "
 1510 print"{down}.{rvon}d{rvof} {rvon}2000{rvof}
 1520 print"{down}(screen clears)
 1530 print".,  2000 a9 12       lda #$12
 1540 print".,  2002 9d 00 80    sta $8000,x
 1550 print".,  2005 aa          tax
 1560 print".,  2006 aa          tax
 1570 print"(full page of instructions)
 1600 print"{down}     disassembles 22 instructions
 1610 print"starting at 1000 hex.  the three bytes
 1620 print"following the address may be modified.
 1630 print"use the crsr keys to move to and modify
 1640 print"the bytes.  hit return and the bytes
 1650 print"in memory will be changed.  {rvon}supermon{rvof}
 1660 print"will then disassemble that page again.
 1690 gosub9000
 1700 print"{down}{down}{rvon} printing disassembler "
 1710 print"{down}.{rvon}p{rvof} {rvon}2000,2040{rvof}
 1720 print"2000 a9 12       lda #$12
 1730 print"2002 9d 00 80    sta $8000,xy.
 1740 print"2005 aa          tax
 1750 print"   ...."
 1760 print"203f a2 00       ldx #$00
 1770 print"{down}to engage printer, set up beforehand:
 1775 print"     {rvon}open 4,4:cmd4
 1780 print"{down}on 4.0, access the monitor via a call
 1785 print"sys 54386 (*not* a break) command
 1790 gosub 9000
 1800 print"{down}{down}{rvon} single step "
 1810 print"{down}.{rvon}i
 1820 print"     allows a machine language program
 1830 print"to be run step by step.
 1840 print"{down}call register display with .{rvon}r{rvof} and set
 1850 print"the pc address to the desired first
 1860 print"instruction for single stepping.
 1870 print"the .{rvon}i{rvof} will cause a single step to
 1880 print"execute and will disassemble the next.
 1890 print"{down}controls:
 1900 print"  {rvon}<{rvof} for single step;
 1910 print"  {rvon}rvs{rvof} for slow step;
 1920 print"  {rvon}space{rvof} for fast stepping;
 1930 print"  {rvon}stop{rvof} to return to monitor."
 1940 print"[on business keyboards--
 1950 print"      use {rvon}8{rvof},{rvon}_{rvof},{rvon}6{rvof} and {rvon}stop{rvof}].
 1990 gosub9000
 2000 print"{down}{down}{down}{rvon} fill memory "
 2010 print"{down}{down}.{rvon}f{rvof} {rvon}1000{rvof} {rvon}1100{rvof} {rvon}ff
 2020 print"{down}     fills the memory from 1000 hex to
 2030 print"1100 hex with the byte ff hex.
 2090 gosub9000
 2100 print"{down}{down}{down}{rvon} go run "
 2110 print"{down}.{rvon}g
 2120 print"{down}     go to the address in the pc
 2130 print"register display and begin run code.
 2140 print"all the registers will be replaced
 2150 print"with the displayed values."
 2160 print"{down}.{rvon}g{rvof} {rvon}1000
 2170 print"{down}     go to address 1000 hex and begin
 2180 print"running code.
 2190 gosub9000
 2200 print"{down}{down}{down}{rvon} hunt memory "
 2210 print"{down}.{rvon}h{rvof} {rvon}c000{rvof} {rvon}d000{rvof} {rvon}'read
 2220 print"{down}     hunt thru memory from c000 hex to
 2230 print"d000 hex for the ascii string {rvon}read{rvof} and
 2240 print"print the address where it is found.  a
 2250 print"maximum of 32 characters may be used.
 2260 print"{down}.{rvon}h{rvof} {rvon}c000{rvof} {rvon}d000{rvof} {rvon}20{rvof} {rvon}d2{rvof} {rvon}ff
 2270 print"{down}     hunt memory from c000 hex to d000
 2280 print"hex for the sequence of bytes 20 d2 ff
 2290 print"and print the address.  a maximum of 32
 2300 print"bytes may be used.
 2390 gosub9000
 2400 print"{down}{rvon} load "
 2401 print"{down}.{rvon}l{rvof}
 2402 print"{down}   load any program from cassette #1.
 2403 print"{down}.{rvon}l{rvof} {rvon}";chr$(34);"ram test";chr$(34)
 2404 print"{down}   load from cassette #1 the program
 2405 print"named {rvon}ram test{rvof}.
 2410 print"{down}.{rvon}l{rvof} {rvon}";chr$(34);"ram test";chr$(34);",08{rvof}
 2420 print"{down} load from disk (device 8) the program
 2430 print"named {rvon}ram test{rvof}.
 2440 print"{down}this command leaves basic pointers
 2450 print"unchanged.
 2490 gosub9000
 2500 print"{down}{down}{rvon} memory display "
 2510 print"{down}.{rvon}m{rvof} {rvon}0000{rvof} {rvon}0080
 2520 print"{down}.:  0000 00 01 02 03 04 05 06 07
 2530 print".:  0008 08 09 0a 0b 0c 0d 0e 0f
 2540 print"{down}     display memory from 0000 hex to
 2550 print"0080 hex.  the bytes following the
 2560 print"address may be modified by editing and
 2570 print"then typing a return.
 2590 gosub9000
 2600 print"{down}{down}{rvon} register display "
 2610 print"{down}.{rvon}r
 2620 print"{down}     pc  irq  sr ac xr yr sp
 2630 print".;  0000 e62e 01 02 03 04 05
 2640 print"{down}     displays the register values saved
 2650 print"when {rvon}supermon{rvof} was entered.  the values
 2660 print"may be changed with the edit followed
 2670 print"by a return.
 2671 print"{down}  use this instruction to set up the
 2672 print"pc value before single stepping with"
 2673 print".{rvon}i{rvof}
 2690 gosub9000
 2700 print"{down}{down}{down}{rvon} save"
 2710 print"{down}.{rvon}s{rvof} {rvon}";chr$(34);"program name";chr$(34);",01,0800,0c80"
 2720 print"{down}     save to cassette #1 memory from
 2730 print"0800 hex up to but not including 0c80
 2740 print"hex and name it {rvon}program name{rvof}.
 2750 print"{down}.{rvon}s{rvof} {rvon}";chr$(34);"0:program name";chr$(34);",08,1200,1f50"
 2760 print"{down}    save to disk drive #0 memory from
 2770 print"1200 hex up to but not including 1f50
 2780 print"hex and name it {rvon}program name{rvof}.
 2790 gosub9000
 2800 print"{down}{down}{down}{down}{rvon} transfer memory "
 2810 print"{down}.{rvon}t{rvof} {rvon}1000{rvof} {rvon}1100{rvof} {rvon}5000
 2820 print"{down}     transfer memory in the range 1000
 2830 print"hex to 1100 hex and start storing it at
 2840 print"address 5000 hex.
 2890 gosub9000
 3200 print"{down}{down}{down}{rvon} exit to basic "
 3210 print"{down}.{rvon}x
 3220 print"{down}     return to basic ready mode.
 3230 print"the stack value saved when entered will
 3240 print"be restored.  care should be taken that
 3250 print"this value is the same as when the
 3260 print"monitor was entered.  a clr in
 3270 print"basic will fix any stack problems.
 3290 gosub9000
 3500 print"{up}        summary                     "
 3505 print"commodore monitor instructions:"
 3510 print"{rvon}g{rvof} go run
 3520 print"{rvon}l{rvof} load from tape or disk
 3530 print"{rvon}m{rvof} memory display
 3540 print"{rvon}r{rvof} register display
 3550 print"{rvon}s{rvof} save to tape or disk
 3560 print"{rvon}x{rvof} exit to basic
 3595 print"{down}supermon additional instructions:"
 3600 print"{down}{rvon}a{rvof} simple assembler
 3610 print"{rvon}d{rvof} disassembler
 3620 print"{rvon}f{rvof} fill memory
 3630 print"{rvon}h{rvof} hunt memory
 3640 print"{rvon}i{rvof} single instruction
 3650 print"{rvon}p{rvof} printing disassembler
 3660 print"{rvon}t{rvof} transfer memory
 4000 gosub9000
 4010 print"{up}{rvon}supermon{rvof} will load itself into the
 4020 print"top of memory .. wherever that happens
 4030 print"to be on your machine.
 4040 print"{down}   you may then save the machine code
 4050 print"for faster loading in the future.
 4060 print"{down}be sure to note the sys command which
 4070 print"links {rvon}supermon{rvof} to the commodore
 4080 print"monitor.
 5000 gosub9000
 8000 goto1200
 9000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} hit any key to continue {rvof}";
 9010 fori=1to10:geta$:next
 9020 geta$:ifa$=""then9020
 10000 print"{clr}        {rvon} s u p e r m o n 2 / 4 {rvof}"
 10010 print"{down}commands - user input in {rvon} reverse "
 10040 return
  100 print"{clr}{rvon}{rght}{rght}{rght}{rght}super 64-mon
  110 print"{down}               
  120 print"{down} ..jim butterfield
  130 sys(peek(43)+256*peek(44)+127)
    0 poke59464,0:poke59467,16:poke59466,15:print"{clr}":goto5
    1 print"{home} 123456789012345678901234567890123456789"
    2 return
    5 cf$="                                       "
    6 cd$=cf$+cf$+cf$+cf$+cf$+"  "
   10 ac$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   12 mn=10:an=6:n=an+mn:sm=300:sf=200
   14 print "{down}you have";mn;"mobiles and";an;"artillery"
   16 print"{down}units":for i=1 to 2000:next
   18 print"{clr}"
   19 gosub1
   20 dimmm(mn),mf(mn),mx(mn),my(mn ),af(an),ax(an),ay(an)
   22 for i=1to mn:mm(i)=30:mf(i)=10:next:for i=1 to an:af(i)=30:next
   24 goto28
   26 print"{clr}":gosub1:for i=1to 39:print"{home}";left$(ac$,i);right$(str$(i),1):next
   28 for i=1to 19:print"{home}";left$(dn$,i);right$(str$(i),1):next
   30 for i=1to19:for j=1 to 39:r=100*rnd(1)
   32 ifr>97 then print "{home}";left$(ac$,j);left$(dn$,i);"*"
   34 next j,i
   36 for i=1 to mn
   38 gosub74:print"enter coordinates(x,y)of mobile #";i
   40 inputx,y:ifx<2orx>39ory<1ory>19then gosub78:goto38
   42 gosub84:if peek (r1)=42 then gosub80:goto38
   44 if peek(r1)<>32 then gosub82:goto38
   46 i$=str$(i):mx(i)=x:my(i)=y
   48 print"{home}";left$(ac$,x);left$(dn$,y);"{rvon}";right$(i$,1);"{rvof}":next
   50 for i=1 toan
   52 gosub74:print"enter coordinates of artillery#";i
   54 input x,y:if x<2orx>39ory<1ory>19thengosub78:goto52
   56 gosub84:ifpeek(r1)=42thengosub80:goto52
   58 if peek(r1)<>32 then gosub82:goto52
   60 print"{home}";left$(ac$,x);left$(dn$,y);"{rvon}a{rvof}":ax(i)=x:ay(i)=y:next
   62 tx=int(10*rnd(1)+30):ty=int(19*rnd(1)+1)
   64 if peek(32768+tx+40*ty)=42or peek(32768+tx+40*ty)=129then62
   66 sx=1:sy=int(19*rnd(1)+1):if peek(32768+sx+40*sy)=42then 66
   68 print"{home}{rght}";left$(dn$,sy);"{rvon}s{rvof}":gosub74:print"{home}";left$(dn$,18);:goto100
   70 r=rnd(1):get r$:if r$""then70
   72 return
   74 print"{home}";left$(dn$,20);:fork=1to199:print" ";:next
   76 print"{home}";left$(dn$,20);:return
   78 print"illegal value";: return
   80 print"not in a crater!";:return
   82 print"square occupied!";:return
   84 r1=32768+x+40*y:return
  100 ac$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  110 print"{home}";:fori=1to40:print" ";:next:gosub1220
  120 gosub1520 :ifr1=0then140
  130 gosub1240 :print"you move":gosub1230
  140 gosub1010 :gosub1240 :f=0:fori=1tomn:f=f+mf(i):next
  150 fori=1toan:f=f+af(i):next
  160 iff=0thenprint"you have no fire power left!!":gosub1230 :goto480
  180 print"your attack"
  190 gosub1230 :fori=1tomn:ifmf(i)=0then330
  200 h=int(mf(i)*rnd(1)/sqr((mx(i)-sx)^2+(my(i)-sy)^2)+0.9)
  210 gosub1240 :print"mobile #";i;"attacking-firepower";mf(i)
  220 print"armament or engines(a/e)?":gosub1260
  230 ifr$="a"then260
  240 ifr$="e"then290
  250 gosub1240 :print"answer a or e":gosub1260 :goto230
  260 sf=sf-h:ifsf<1thensf=0
  270 ifh=0thengosub1450 :goto320
  280 gosub1430 :printsf;:goto320
  290 sm=sm-h:ifsm<1thensm=0
  300 ifh=0thengosub1450 :goto320
  310 gosub1440 :printsm;
  320 gosub1230 :gosub1220 :ifsf=0andsm<10then1540
  330 next:fori=1toan:ifaf(i)=0then470
  340 h=int(af(i)*rnd(1)/sqr((ax(i)-sx)^2+(ay(i)-sy)^2)+0.9)
  350 gosub1240 :print"artillery #";i;"attacking-firepower";af(i)
  360 print"armament or engines(a/e)?":gosub1260
  370 ifr$="a"then400
  380 ifr$="e"then430
  390 gosub1240:print"answer a or e":gosub1260 :goto370
  400 sf=sf-h:ifsf<1thensf=0
  410 ifh=0thengosub1450 :goto460
  420 gosub1430 :printsf;:goto460
  430 sm=sm-h:ifsm<1thensm=0
  440 ifh=0thengosub1450 :goto460
  450 gosub1440 :printsm;
  460 gosub1230 :gosub1220 :ifsf=0andsm<10then1540
  470 next
  480 ift=1then1550
  490 gosub1520 :ifr1=0then510
  500 gosub1240 :print"you move again":gosub1230 :gosub1010
  510 ift=2then770
  520 ifsm<10thengosub1500 :goto770
  530 gosub1240 :print"supertank moving":gosub1230
  540 forl=1toint(sm/100+.9)
  550 ifabs(sy-ty)<.5*abs(sx-tx)theny=sy:goto570
  560 y=sy+sgn(ty-sy)
  570 ifsx=txandy<>tythenx=sx+1:goto590
  580 x=sx+sgn(tx-sx)
  590 j=0
  600 ifx<1orx>39ory<1ory>19thenj=j+1:goto650
  610 gosub1350:ifpeek(r1)=42orpeek(r1)=129thenj=j+1:goto650
  620 ifpeek(r1)><32thengosub1360
  630 print"{home}";left$(ac$,sx);left$(dn$,sy);" "
  640 print"{home}";left$(ac$,x);left$(dn$,y);"{rvon}s{rvof}":sx=x:sy=y:goto750
  650 x=sx:y=sy:onjgoto660,670,680,690,700,710,720,730,740
  660 x=sx+1:goto600
  670 x=sx+1:y=sy-1:goto600
  680 x=sx+1:y=sy+1:goto600
  690 y=sy-1:goto600
  700 y=sy+1:goto600
  710 x=sx-1:goto600
  720 x=sx-1:y=sy-1:goto600
  730 x=sx-1:y=sy+1:goto600
  740 gosub(
  750 gosub1230:ifsx=txandsy=tythent=1:goto770
  760 next
  770 ift=2andf=0then1550
  780 ifsf=0then1000
  790 fori=1tomn:ifmn(i)=0andmf(i)=0then900
  800 gosub1240:print"supertank attacking mobile #";i:gosub1230
  810 h=int(sf*rnd(1)/(n*sqr((sx-mx(i))^2+(sy-my(i))^2))+.9)
  820 ifh=0thengosub1450:goto900
  830 ifmm(i)/30>=mf(i)/10then860
  840 mf(i)=mf(i)-h:ifmf(i)<1thenmf(i)=0
  850 gosub1430:printmf(i);:goto880
  860 mm(i)=mm(i)-h:ifmm(i)<1thenmm(i)=0
  870 gosub1440 :printmm(i);
  880 ifmm(i)=0andmf(i)=0thengosub1460
  890 gosub1230
  900 next:fori=1toan:ifaf(i)=0then980
  910 gosub1240 :print"supertank attacking artillery #";i:gosub1230
  920 h=int(sf*rnd(1)/(n*sqr((sx-ax(i))^2+(sy-ay(i))^2))+.9)
  930 ifh=0thengosub1450 :goto980
  940 af(i)=af(i)-h:ifaf(i)<1thenaf(i)=0
  950 gosub1430 :printaf(i);
  960 ifaf(i)=0thengosub1480
  970 gosub1230
  980 next
  990 ifn=0then1550
 1000 goto120
 1010 fori=1tomn:ifmm(i)<5then1210
 1020 gosub1240 :print"move mobile#";i
 1030 print"up to";int(mm(i)/10+.5);"spaces-firepower is";mf(i)
 1040 forj=1toint(mm(i)/10+.5):gosub1260:r=val(r$):ifr=0thenr=5
 1050 x=mx(i):y=my(i):onrgoto1060,1070,1080,1090,1170,1100,1110,1120,1130
 1060 x=mx(i)-1:y=my(i)+1:goto1140
 1070 y=my(i)+1:goto1140
 1080 x=mx(i)+1:y=my(i)+1:goto1140
 1090 x=mx(i)-1:goto1140
 1100 x=mx(i)+1:goto1140
 1110 x=mx(i)-1:y=my(i)-1:goto1140
 1120 y=my(i)-1:goto1140
 1130 x=mx(i)+1:y=my(i)-1
 1140 ifx<1orx>39ory<1ory>19then1280
 1150 gosub1350 :ifpeek(r1)<>32andpeek(r1)<>147then1280
 1160 ifpeek(r1)=147then1290
 1170 print"{home}";left$(ac$,mx(i));left$(dn$,my(i));" "
 1180 print"{home}";left$(ac$,x);left$(dn$,y);"{rvon}";right$(str$(i),1);"{rvof}"
 1190 mx(i)=x:my(i)=y
 1200 next
 1210 next:return
 1220 print"{home}supertank's firepower";sf;"{left} engines";sm;"{left}  ":return
 1230 return
 1240 print"{home}";left$(dn$,20);cd$;
 1250 print"{home}";left$(dn$,20);:return
 1260 poke59464,200:getr$:ifr$=""then1260
 1265 poke59464,0
 1270 return
 1280 gosub1240:print"illegal move!forfeit turn":j=3:gosub1230:goto1200
 1290 gosub1240 :print"ramming supertank"
 1300 h=int((10+mm(i)+mf(i))*rnd(i)+5):sm=sm-h:ifsm<0thensm=0
 1310 print"you've destroyed";h;"engines";:gosub1230:gosub1220
 1320 print"{home}";left$(ac$,mx(i));left$(dn$,my(i));" "
 1330 ifsm<10andsf=0then1540
 1340 mm(i)=0:mf(i)=0:n=n-1:j=3:goto1200
 1350 r1=32768+x+40*y:return
 1360 i=peek(r1)-176:ifi=0theni=10
 1370 h=int(rnd(1)*(10+mm(i)+mf(i))+5):sm=sm-h:ifsm<0thensm=0
 1380 gosub1240:print"supertank rams mobile #";i
 1390 print"losing";h;"engines";:gosub1230:gosub1220
 1400 ifsm<10andsf=0then1540
 1410 mm(i)=0:mf(i)=0:n=n-1:ifsm<10thengosub1500:l=3
 1420 return
 1430 printh;"hits on missile launchers-now";:return
 1440 printh;"hits on engines now";:return
 1450 print"no hits scored";:return
 1460 gosub1240:print"mobile #";i;"destroyed":n=n-1
 1470 print"{home}";left$(ac$,mx(i));left$(dn$,my(i));" ":return
 1480 gosub1240:print"artillery #";i;"destroyed":n=n-1
 1490 print"{home}";left$(ac$,ax(i));left$(dn$,ay(i));" ":return
 1500 gosub1240:print"supertank cannot move"
 1510 print"now you must disarm it to win":t=2:gosub1230:return
 1520 r1=0:fork=1tomn:ifmn(k)>4thenr1=r1+1
 1530 next:return
 1540 print"{clr}congratulations!!";chr$(13);"you have beaten supertank":goto1710
 1550 print"{clr}sorry!! you have failed to prevent a":print"{down}nuclear holocaust"
 1551 poke59490,255
 1555 poke59459,255:poke59459,0
 1560 print"{down}{down}"
 1570 print"     M      {up}{SHIFT--}{down}       N"
 1580 print"     {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}"
 1590 print"    {rvon}{SHIFT-POUND}                {CBM-*}{rvof}"
 1600 print"    {CBM-*}{rvon}                {rvof}{SHIFT-POUND}"
 1610 print"     {CBM-T}{CBM-Y}{CBM-U}{rvon}{CBM-I}        {rvof}{CBM-U}{CBM-Y}{CBM-T}
 1620 print"         {CBM-*}{rvon}      {rvof}{SHIFT-POUND}"
 1630 print"     N    {rvon}      {rvof}    M"
 1640 print"          {CBM-*}{rvon}    {rvof}{SHIFT-POUND}"
 1650 print"           {rvon}    {rvof}"
 1660 print"        N  {CBM-*}{rvon}  {rvof}{SHIFT-POUND}   M"
 1670 print"            {rvon}  {rvof}"
 1680 print"            {rvon}  {rvof}"
 1690 print"     {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T}  {CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}"
 1696 poke59490,30
 1700 fort=0to100:poke59459,255:poke59459,0:next
 1710 poke59464,0:poke59466,254:poke59467,0
 1720 end
    0 rem copyright (c) 1978,                     instant software, inc. (p)
    1 dims(2):v=32767
    2 gosub3000
    4 print"{clr}enter a number from 1 to 99,":input"{down}1=expert : 99=beginner";nt
    6 iff4=1then9:remstrt
    7 bb=int(rnd(2)*64+63):ifrnd(2)<.5thenbb=bb+128:ifbb=160then7
    9 print"{clr}";
   10 fori=v+1tov+40:forj=0to120step40:pokei+j,160:nextj:pokei+960,160
   32 ifbb<>32thenfori3=160to920step40:pokei+i3,bb:nexti3
   50 nexti:fori=v+1to33728step40:pokei,160:pokei+39,160:nexti
   60 pokei,160:pokei+39,160:iff0=0then100
   90 fori=1toint(rnd(2)*25)+3:print"{home}":forj=1toint(rnd(2)*37+1):print"{rght}";:nextj
   92 forj=1toint(rnd(2)*18+3):print"{down}";:nextj:print"{rvon}  {down}{left}{left}  {down}{left}{left}  ":nexti
  100 y1=0:x1=0:y2=0:x2=0:h1=int(rnd(2)*8+8):h2=int(rnd(2)*8+24)
  110 v1=int(rnd(2)*8+8):v2=int(rnd(2)*8+8)
  120 y1=int(rnd(2)*3-1)
  123 ify1=0thenx1=int(rnd(2)*3-1):ifx1=0then120
  130 y2=int(rnd(2)*3-1)
  133 ify2=0thenx2=int(rnd(2)*3-1):ifx2=0then130
  150 ifpeek(v+x1+y1*40)=bbthen100
  155 ifpeek(v+x2+y2*40)=bbthen100
  160 ifpeek(v+x1+y1*40)=160then100
  165 ifpeek(v+x2+y2*40)=160then100
  200 print"{home}{rvon}{down} on zero"
  210 fori=1to999:nexti
  220 print"{home}{rvon}{down}        "
  230 ti$="000000"
  250 tm=val(ti$):print"{home}{down}{rvon}   ";2-tm:iftm<3then250
  260 print"{home}{rvon}{down}     {home}{rvof}";
  300 geta$:fori=1tont:nexti
  310 ifa$="w"theny1=1:x1=0
  320 ifa$="x"theny1=-1:x1=0
  330 ifa$="a"thenx1=-1:y1=0
  340 ifa$="d"thenx1=1:y1=0
  350 ifa$="8"theny2=1:x2=0
  360 ifa$="2"theny2=-1:x2=0
  370 ifa$="4"thenx2=-1:y2=0
  380 ifa$="6"thenx2=1:y2=0
  430 ifpeek(v+1+h1+x1+40*(v1-y1))=bbthenh1=h1+x1:v1=v1-y1:goto460
  450 ifop=1thenf=1:goto1000
  451 x1=1:y1=0:ifrnd(2)<.5thenx1=0:y1=1
  455 ifrnd(2)<.55thenx1=-x1:y1=-y1
  460 k1=v+1+h1+40*v1:pokek1,209
  470 ifpeek(v+1+h2+x2+40*(v2-y2))=bbthenh2=h2+x2:v2=v2-y2:goto500
  480 ifop=1thenf=0:goto1000
  481 x2=1:y2=0:ifrnd(2)<.5thenx2=0:y2=1
  485 ifrnd(2)<.5thenx2=-x2:y2=-y2
  500 k2=v+1+h2+40*v2:pokek2,218
  600 remchkfrwn
  610 ifpeek(k1-1)=bbthen650
  620 ifpeek(k1+1)=bbthen650
  630 ifpeek(k1+40)=bbthen650
  640 ifpeek(k1-40)=bbthen650
  645 f=1:goto1000
  650 ifpeek(k2-1)=bbthen300
  660 ifpeek(k2+1)=bbthen300
  670 ifpeek(k2+40)=bbthen300
  680 ifpeek(k2-40)=bbthen300
  690 f=0:goto1000
 1000 remwin
 1025 s(f+1)=s(f+1)+1
 1030 printspc(15);"{home}{down}{rvon}score{rvof}"
 1040 print"{rvon}{up}     {left}";s(1);spc(25);s(2)
 1045 iff=0thenprint"{home}{down}{rvon}***{rght}{rght}{rght}{rght}{rght}***":goto1075
 1050 print"{home}{rvon}{down}";spc(28);"***{rght}{rght}{rght}{rght}{rght}***{rvof}"
 1075 fori=1to3000:next
 1090 ifs(1)<5thenifs(2)<5then6
 1092 goto2000
 2000 print"{clr}      g a m e   o v e r"
 2020 print"{down}{down}{down}       press 's' to stop"
 2030 print"{down}{down}        'n' for new game"
 2040 geta$:ifa$="s"thenstop
 2050 ifa$="n"thenrun
 2060 goto2040
 3000 input"{clr}instructions ";a$
 3020 ifleft$(a$,1)<>"y"then4000
 3030 print"{clr}{down}this is a game called supertrap."
 3040 print"{down}it takes two players.  in version 1,"
 3050 print"{down}the object is to block in your opponent"
 3060 print"{down}so that he/she cannot move."
 3070 print"{down}{down}in version 2, the object is to let"
 3080 print"{down}your opponent be the first to run"
 3090 print"{down}into a white area.{down}{down}{down}"
 3091 print"{up}hit a key to continue":geta$:iflen(a$)<1then3091
 3092 print"{clr}the player on the right uses keys"
 3093 print"{down}'4', '8', '6', & '2' for"
 3094 print"{down}left, up, right, & down."
 3095 print"{down}{down}the player on the left uses"
 3096 print"{down}'a', 'w', 'd', & 'x'.":print"{down}{down}hit a key to start"
 3120 geta$:iflen(a$)<1then3120
 4000 input"{clr}standard game";a$:ifleft$(a$,1)="y"thenf0=0:op=2:f4=1:bb=32:return
 4002 input"{clr}standard background";a$:ifleft$(a$,1)="y"thenbb=32:f4=1
 4005 input"{clr}do you want obstacles";a$:f0=0:ifleft$(a$,1)="y"thenf0=1
 4010 input"{clr}option 1 or 2";op:op=op-1
 4020 return
    0 goto10
    1 fori=1to1000:next:ifpeek(sa)<>160thenprint"{clr}":ifd(2)>=0then6775
    2 ifd(2)<0thenprint"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
    3 fori=1to1000:next:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":fori=1to14:printde$;:next
    4 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
    5 fori=33168to33193:pokei,peek(i)or128:pokei,peek(i)and127:ifpeek(158)=0thennext:goto5
    6 i=fre(i):geta$:a=val(a$):goto1
   10 print"{clr}{down}{down}"tab(16)"{rvon}startrek{down}{down}{down}{down}{down}{down}":clr:sa=32768
  270 z$="                        ":de$="{down}":fori=1to81:de$=de$+" {del}":next
  330 dimg(8,8),c(9,2),k(3,3),n(3),z(8,8),d(8)
  370 t=int(rnd(1)*20+20)*100:t0=t:t9=25+int(rnd(1)*10):d0=0:e=3000:e0=e
  440 p=10:p0=p:s9=200:s=0:b9=0:x$="":x0$=" is
  470 deffnd(d)=sqr((k(i,1)-s1)^2+(k(i,2)-s2)^2)
  475 deffnr(r)=int(rnd(r)*7.98+1.01)
  490 q1=fnr(1):q2=fnr(1):s1=fnr(1):s2=fnr(1)
  530 fori=1to9:c(i,1)=0:c(i,2)=0:next
  540 c(3,1)=-1:c(2,1)=-1:c(4,1)=-1:c(4,2)=-1:c(5,2)=-1:c(6,2)=-1
  541 c(4,2)=-1:c(5,2)=-1:c(6,2)=-1
  600 c(1,2)=1:c(2,2)=1:c(6,1)=1:c(7,1)=1:c(8,1)=1:c(8,2)=1:c(9,2)=1
  670 fori=1to8:d(i)=0:next
  820 fori=1to8:forj=1to8:k3=0:z(i,j)=0:r1=rnd(1)
  850 ifr1>.98thenk3=3:k9=k9+3:goto980
  860 ifr1>.95thenk3=2:k9=k9+2:goto980
  870 ifr1>.80thenk3=1:k9=k9+1
  980 b3=0:ifrnd(1)>.96thenb3=1:b9=b9+1
 1040 g(i,j)=k3*100+b3*10+fnr(1):next:next:ifk9>t9thent9=k9+1
 1100 ifb9<>0then1200
 1150 ifg(q1,q2)<200theng(q1,q2)=g(q1,q2)+100:k9=k9+1
 1160 b9=1:g(q1,q2)=g(q1,q2)+10:q1=fnr(1):q2=fnr(1)
 1200 k7=k9:ifb9<>1thenx$="s":x0$=" are
 1230 print"{rvon}your orders{down}
 1240 print"destroy the"k9"klingons which have
 1250 print"invaded the galaxy before they{sret}can attack federation h.q.
 1260 print"on stardate"t0+t9".{sret}you have"t9"days.  there "x0$
 1270 printb9"starbase"x$".
 1280 print"{down}press {rvon}space{rvof} to accept mission
 1300 i=rnd(1):geta$:ifa$=""then1300
 1320 z4=q1:z5=q2:k3=0:b3=0:s3=0:g5=0:d4=.5*rnd(1):z(q1,q2)=g(q1,q2)
 1390 ifq1<1orq1>8orq2<1orq2>8then1600
 1430 gosub9030:print:ift0<>tthen1490
 1470 print"you are in quadrant, '"g2$"'.":goto1500
 1490 print"now entering "g2$" quadrant.
 1500 print:k3=int(g(q1,q2)*.01):b3=int(g(q1,q2)*.1)-10*k3
 1540 s3=g(q1,q2)-100*k3-10*b3:ifk3=0then1590
 1560 print"{rvon}combat area{sret}{rvon}condition red":ifs>200then1590
 1580 print"{rvon}shields low
 1590 fori=1to3:k(i,1)=0:k(i,2)=0:next
 1600 q$="":fori=1to3:k(i,3)=0:next:fori=1to7:q$=q$+z$:next:q$=q$+left$(z$,17)
 1680 a$="{CBM-Y}{CBM-B}{CBM-U}":z1=s1:z2=s2:gosub8670:ifk3<1then1820
 1720 fori=1tok3:gosub8590:a$="UAI":z1=r1:z2=r2
 1780 gosub8670:k(i,1)=r1:k(i,2)=r2:k(i,3)=s9*(0.5+rnd(1)):next
 1820 ifb3<1then1910
 1880 gosub8590:a$="{CBM-*}Z{SHIFT-POUND}":z1=r1:b4=r1:z2=r2:b5=r2:gosub8670
 1910 fori=1tos3:gosub8590:a$=" * ":z1=r1:z2=r2:gosub8670:next
 1980 gosub1:gosub6430
 1990 ifs+e>10thenife>10ord(7)=0then2060
 2020 print"{down}**{rvon}fatal error{rvof}**{sret}ship stranded in space!
 2030 print"due to your incompetance, the dilithium
 2040 print"crystals are fully discharged!
 2050 print"(you're out of gas)":goto6220
 2060 gosub2180:print"command ?":gosub5
 2140 onagoto2300,1980,4000,4260,4700,5530,5690,7290,15000
 2150 goto1990
 2180 print"{home}{up}":printtab(27)"1-navigation":printtab(27)"2-sr.sensors":printtab(27)"3-lr.sensors
 2190 printtab(27)"4-phasers  ":printtab(27)"5-torpedoes":printtab(27)"6-shields "
 2200 printtab(27)"7-damage rpt":printtab(27)"8-computer":printtab(27)"9-corbomite
 2210 return
 2300 input"{down}course (1-9){$a0}{$a0}{$a0}{left}{left}{left}";a$:c1=val(a$):ifc1=9thenc1=1
 2310 ifc1>=1andc1<9then2350
 2320 ifc1=0thengosub1:goto1990
 2330 print"sulu reports, 'bad course data, sir!'":goto1990
 2350 x$="8":ifd(1)<0thenx$="0.2"
 2360 print"warp factor (0-"x$;:input"){$a0}{$a0}{$a0}{left}{left}{left}";a$:w1=val(a$):ifd(1)<0andw>.2then2470
 2380 ifw1>0andw1<=8then2490
 2390 ifw1=0then1990
 2420 print"scotty reporting sir! 'the
 2430 print"engines won't take warp "w1"!'":goto1990
 2470 print"warp engines {rvon}damaged{rvof}!{sret}maximum speed = warp 0.2":goto1990
 2490 n=int(w1*8+.5):ife-n>=0then2590
 2500 print"scotty reports: 'insufficient energy{sret}for warp"w1"!'
 2530 ifs<n-eord(7)<0then1990
 2550 print"control room reports{sret}"s"energy units now{sret}deployed to shields":goto1990
 2560 print"presently deployed to shields.
 2590 fori=1tok3:ifk(i,3)=0then2700
 2610 a$="   ":z1=k(i,1):z2=k(i,2):gosub8670:gosub8590
 2660 k(i,1)=z1:k(i,2)=z2:a$="UAI":gosub8670
 2700 next:gosub6000:d1=0:d6=w1:ifw1>=1thend6=1
 2770 fori=1to8:ifd(i)>=0then2880
 2790 d(i)=d(i)+d6:ifd(i)>-.1andd(i)<0thend(i)=-.1:goto2880
 2800 ifd(i)<0then2880
 2810 ifd1<>1thend1=1:print"damage control report:
 2840 r1=i:gosub8790:print"{rvon}"g2$" repaired!
 2880 next:ifrnd(1)>.2then3070
 2910 r1=fnr(1):ifrnd(1)>=.6then3000
 2930 d(r1)=d(r1)-(rnd(1)*5+1):print"damage control report:
 2960 gosub8790:printg2$" {rvon}damaged{down}":goto3070
 3000 d(r1)=d(r1)+rnd(1)*3+1
 3070 a$="   ":z1=int(s1):z2=int(s2):gosub8670
 3110 x1=c(c1,1)+(c(c1+1,1)-c(c1,1))*(c1-int(c1)):x=s1:y=s2
 3140 x2=c(c1,2)+(c(c1+1,2)-c(c1,2))*(c1-int(c1)):q4=q1:q5=q2
 3170 fori=1ton:s1=s1+x1:s2=s2+x2:ifs1<1ors1>=9ors2<1ors2>=9then3500
 3240 s8=int(s1)*24+int(s2)*3-26:ifmid$(q$,s8,2)="  "then3360
 3320 s1=int(s1-x1):s2=int(s2-x2):print"warp engine shut down at:
 3350 print"sector"s1","s2"due to bad nav":goto3370
 3360 next:s1=int(s1):s2=int(s2)
 3370 a$="{CBM-Y}{CBM-B}{CBM-U}":z1=int(s1):z2=int(s2):gosub8670:gosub3910:t8=1
 3430 ifw1<1thent8=.1*int(10*w1)
 3450 t=t+t8:ift>t0+t9then6220
 3480 goto1980
 3500 x=8*q1+x+n*x1:y=8*q2+y+n*x2:q1=int(x/8):q2=int(y/8):s1=int(x-q1*8)
 3550 s2=int(y-q2*8):ifs1=0thenq1=q1-1:s1=8
 3590 ifs2=0thenq2=q2-1:s2=8
 3620 x5=0:ifq1<1thenx5=1:q1=1:s1=1
 3670 ifq1>8thenx5=1:q1=8:s1=8
 3710 ifq2<1thenx5=1:q2=1:s2=1
 3750 ifq2>8thenx5=1:q2=8:s2=8
 3790 ifx5=0then3860
 3800 print"message from starfleet commamd:
 3810 print"'permission to attempt crossing of{sret}galactic perimeter is {rvon}denied
 3830 print"chief engineer scott reports:{sret}'warp engines shut down at
 3840 print"sector"s1","s2"of quadrant"q1","q2".'
 3845 fora=1to2e3:next
 3850 ift>t0+t9then6220
 3860 if8*q1+q2=8*q4+q5then3370
 3870 t=t+1:gosub3910:goto1320
 3910 e=e-n-10:ife>=0thenreturn
 3930 print"energy diverted from shields!"
 3940 s=s+e:e=0:ifs<=0thens=0
 3980 return
 4000 ifd(3)<0thenprint"long range sensors {rvon}inoperable":goto1990
 4030 print"{down}long range scan for quadrant"q1","q2"{down}{down}
 4040 o1$="{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}":printo1$
 4060 fori=q1-1toq1+1:n(1)=-1:n(2)=-2:n(3)=-3:forj=q2-1toq2+1
 4120 ifi>0andi<9andj>0andj<9thenn(j-q2+2)=g(i,j):z(i,j)=g(i,j)
 4180 next:forl=1to3:print"{SHIFT--} ";:ifn(l)<0then print"{CBM-+}{CBM-+}{CBM-+} ";:goto4230
 4210 printright$(str$(n(l)+1000),3)" ";
 4230 nextl:print"{SHIFT--}":printo1$:next:goto1990
 4260 ifd(4)<0thenprint"phasers inoperative":goto1990
 4265 ifk3>0then4330
 4270 print"spock reports 'no enemy ships in area'":goto1990
 4330 ifd(8)<0thenprint"computer failure hampers accuracy"
 4350 print"phasers locked on target!
 4360 print"energy available ="e"units
 4370 input"number of units to fire{$a0}{$a0}{$a0}{left}{left}{left}";x:ifx<=0then1990
 4400 ife-x<0then4360
 4410 e=e-x:ifd(7)<0thenx=x*rnd(1)
 4450 h1=int(x/k3):fori=1to3:ifk(i,3)<=0then4670
 4480 h=int((h1/fnd(0))*(rnd(1)+2)):ifh>.15*k(i,3)then4530
 4500 print"no damage to klingon at "k(i,1)"{left},"k(i,2):goto4670
 4530 k(i,3)=k(i,3)-h:printh"unit hit on clingon at sector"k(i,1)","k(i,2)
 4550 ifk(i,3)<=0thenprint"{rvon}*** klingon destroyed ***":pokesa,224:goto4580
 4560 print"{rvon}sensors show{rvof}"int(k(i,3)+.5)"units remaining":goto4670
 4580 k3=k3-1:k9=k9-1:z1=k(i,1):z2=k(i,2):a$="  ":gosub8670
 4650 k(i,3)=0:g(q1,q2)=g(q1,q2)-100:z(q1,q2)=g(q1,q2):ifk9<=0then6370
 4670 next:gosub6000:gosub1:goto1990
 4700 ifp<=0thenprint"what torpedoes?":goto 1990
 4730 ifd(5)<0thenprint"photon tubes non operational":goto1990
 4760 input"photon torpedeo course (1-9) {$a0}{$a0}{left}{left}{left}";c1:ifc1=9thenc1=1
 4780 ifc1>=1anddc1<9then4850
 4790 print"chekov reports,{sret}'incorrect course data, sir!'
 4800 goto1990
 4850 x1=c(c1,1)+(c(c1+1,1)-c(c1,1))*(c1-int(c1)):e=e-2:p=p-1
 4860 x2=c(c1,2)+(c(c1+1,2)-c(c1,2))*(c1-int(c1)):x=s1:y=s2
 4910 print"torpedo track:
 4920 x=x+x1:y=y+x2:x3=int(x+.5):y3=int(y+.5)
 4960 ifx3<1orx3>8ory3<1ory3>8then5490
 5000 printx3","y3:a$="   ":z1=x:z2=y:gosub8830
 5050 ifz3then4920
 5060 a$="UAI":z1=x:z2=y:gosub8830:ifz3=0then5210
 5110 print"{rvon}***klingon destroyed***":k3=k3-1:k9=k9-1:pokesa,224:ifk9<=0then6370
 5150 fori=1to3:ifx3=k(i,1)andy3=k(i,2)then5190
 5180 next:i=3
 5190 k(i,3)=0:goto5430
 5210 a$=" * ":z1=x:z2=y:gosub8830:ifz3=0then5280
 5260 print"you can't destroy stars, silly!":gosub6000:goto1990
 5280 a$="{CBM-*}Z{SHIFT-POUND}":z1=x:z2=y:gosub8830:ifz3=0then4670
 5330 print"***{rvon}starbase destroyed{rvof}***":b3=b3-1:b9=b9-1
 5400 print"starfleet command reviewing your record
 5410 print"to consider court martial!":d0=0
 5430 z1=x:z2=y:a$="   ":gosub8670
 5470 g(q1,q2)=k3*100+b3*10+s3:z(q1,q2)=g(q1,q2):gosub6000:gosub1:goto1990
 5490 print"torpedo missed":gosub6000:goto1990
 5530 ifd(7)<0thenprint"shield control inoperable":goto1990
 5560 print"energy available =";e+s:input"number of units to shields{$a0}{$a0}{$a0}{left}{left}{left}";x
 5580 ifx<0ors=xthenprint"<shields unchanged>":goto1990
 5590 ifx<=e+sthen5630
 5600 print"shield control reports  'this is not{sret}the federation treasury.'"
 5610 print"<shields unchanged>":goto1990
 5630 e=e+s-x:s=x:print"deflector control room report:
 5660 print"'shields now at"int(s)"units":goto1990
 5690 ifd(6)>=0then5910
 5700 print"damage report not available":ifd0=0then1990
 5720 d3=0:fori=1to8:ifd(i)<0thend3=d3+.1
 5760 next:ifd3=0then1990
 5780 print:d3=d3+d4:ifd3>=1thend3=.9
 5810 print"technicians standing by to repair the{sret}enterprise.
 5820 print"estimated repair time:".01*int(100*d3)"stardates
 5840 input"should they go ahead{$a0}{$a0}{$a0}{left}{left}{left}";a$
 5860 ifa$<>"y"then 1990
 5870 fori=1to8:d(i)=rnd(i):next:t=t+d3+.1
 5910 print"{rvon}device"spc(14)"status":forr1=1to8
 5920 gosub8790:printg2$left$(z$,20-len(g2$));:ifd(r1)>=0thenprint"ok":goto5950
 5930 print"{left}"int(-d(r1)*1e4)/100"units damage"
 5950 next:ifd0then5720
 5980 goto1990
 6000 ifk3<=0thenreturn
 6010 ifd0<>0thenprint"starbase shields protect the enterprise":return
 6040 fori=1to3:ifk(1,3)<=0then6200
 6060 h=int((k(i,3)/fnd(1))*(2+rnd(1))):s=s-h:k(i,3)=k(i,3)/(3+rnd(0))
 6070 ifh=0then6200
 6080 printh"unit hit on enterprise from"k(i,1)","k(i,2):ifs<=0then6240
 6100 print"<shields now"s"units>":ifh<20then6200
 6120 ifrnd(1)>.6orh/s<=.02then6200
 6140 r1=fnr(1):d(r1)=d(r1)-h/s-.5*rnd(1):gosub8790:printg2$"{rvon}damaged"
 6200 next:return
 6220 print"stardate:"t:goto6270
 6240 print"{down}{rvon}the enterprise has been destroyed.
 6250 print"the federation will be conquered":goto6220
 6270 print"there were"k9"klingon battle cruisers
 6280 print"left at the end of your mission.{down}{down}
 6290 ifb9=0then6360
 6310 print"the federation is in need of a captain
 6320 print"for a similar mission.{down}{down}
 6330 input"any volunteers";a$:ifasc(a$)=89then10
 6360 end
 6370 print"{clr}congradulations, captain!{sret}the last klingon battle cruiser
 6380 print"menacing the federation has been{sret}{rvon}destroyed.{down}
 6400 print"your efficincy rating is"1000*(k7/(t-t0))^2:goto6290
 6430 fori=s1-1tos1+1:forj=s2-1tos2+1
 6450 ifint(i+.5)<1orint(i+.5)>8orint(j+.5)<1orint(j+.5)>8then6540
 6490 a$="{CBM-*}Z{SHIFT-POUND}":z1=i:z2=j:gosub8830:ifz3=1then6580
 6540 nextj,i:d0=0:goto6650
 6580 d0=1:c$="docked":e=e0:p=p0
 6620 print"shields dropped for docking purposes":s=0:goto6720
 6650 ifk3>0thenc$="*{rvon}red{rvof}*":goto6720
 6660 c$="green":ife<e0*.1thenc$="yellow"
 6720 ifd(2)>=0then6770
 6730 print:print"{clr}{rvon}short range sensors are out":return
 6770 ifpeek(sa+1)><160thenprint"{clr}
 6772 gosub6775:gosub6850:return
 6775 o1$="{rvon}  1  2  3  4  5  6  7  8  ":print"{home}{up}"o1$:fori=1to8
 6780 a$=right$(str$(i),1):print"{rvon}"a$"{rvof}";
 6820 printmid$(q$,24*(i-1)+1,24)"{rvon}"a$:next:printo1$:return
 6850 print"{rvon}{down}{down}ship's log -- stardate:"int(t)"{left}."right$(str$(int(10*rnd(1))),1)
 6900 print"condition:"c$:gosub9030:print"quadrant: "g2$:print"sector:"s1"{left},"s2:print"photon to";
 7070 print"rpedoes:"int(p):print"total energy:"int(e+s):print"shields:"int(s)
 7240 print"klingons remaining:"int(k9):return
 7290 ifd(8)<0thenprint"sorry.":goto1990
 7320 gosub7370:print"instruction ?":gosub5
 7350 h8=1:onagoto7545,7900,8070,8500,8150,7400
 7360 goto7320
 7370 print"{home}":printtab(27)"1-gal.record":printtab(27)"2-status rpt":printtab(27)"3-torp. data
 7372 printtab(27)"4-nav. data":printtab(27)"5-crse calc":printtab(27)"6-gal. map  "
 7374 fori=1to3:printtab(27)"            ":next:return
 7400 h8=0:g5=1:ifh8=0thenprint"{clr}             {rvon}the milky way{down}{down}":goto7550
 7545 print"{clr}     {rvon}galactic record: quadrant"q1"{left},"q2"{down}{down}
 7550 print"     1   2   3   4   5   6   7   8
 7555 ifh8=0thenprint"    {rvon}i   ii  iii iv  i   ii  iii iv "
 7560 o1$="    --- --- --- --- --- --- --- ---
 7570 printo1$:fori=1to8:printi;:ifh8=0then7740
 7630 forj=1to8:print" ";:ifz(i,j)=0thenprint":::";:goto7720
 7650 ifi=q1andj=q2thenprint"{rvon}";
 7700 printright$(str$(z(i,j)+1000),3)"{rvof}";
 7720 nextj:goto7850
 7740 z4=i:z5=1:gosub9030:j0=int(12-.5*len(g2$)):printtab(j0)"{rvon}"g2$;
 7800 z5=5:gosub 9030:j0=int(28-.5*len(g2$)):printtab(j0)g2$;
 7850 print:printo1$:next:print"press {rvon}space{rvof} when done":wait158,255:geta$:gosub1:goto1990
 7900 print"{rvon}status report":x$="":ifk9>1thenx$="s"
 7940 print"klingon";x$;" left: ";k9
 7960 print"time remaining:".1*int((t0+t9-t)*10);"stardates
 7970 x$="s":ifb9<2thenx$="":ifb9<1then8020
 7980 printb9"starbase"x$:goto5690
 8020 print"!{rvon}you have no starbases left{rvof}!":goto5690
 8070 ifk3<=0then4270
 8080 x$="":ifk3>1thenx$="s"
 8090 print"from us to klingon battle cruiser"x$
 8100 h8=0:fori=1to3:ifk(i,3)<=0then8480
 8110 w1=k(i,1):x=k(i,2)
 8120 c1=s1:a=s2:goto8220
 8150 print"{rvon}navigation computer:
 8160 print"you are at    quadrant"q1"{left},"q2"sector"s1"{left},"s2
 8170 input"enter initial coordinates (x,y)  {$a0}{left}{left}{left}";c1,a
 8200 input"enter final   coordinates (x,y)  {$a0}{left}{left}{left}";w1gosubx
 8220 x=x-a:a=c1-w1:ifx<0then8350
 8250 ifa<0then8410
 8260 ifx>0then8280
 8270 ifa=0thenc1=5:goto8290
 8280 c1=1
 8290 ifabs(a)<=abs(x)then8330
 8310 print"direction =";c1+(((abs(a)-abs(x))+abs(a))/abs(a)):goto8460
 8330 print"direction =";c1+(abs(a)/abs(x+1e-25)):goto8460
 8350 ifa>0thenc1=3:goto8420
 8360 ifx<>0thenc1=5:goto8290
 8410 c1=7
 8420 ifabs(a)>=abs(x)then8450
 8430 print"direction =";c1+(((abs(x)-abs(a))+abs(x))/abs(x)):goto8460
 8450 print"direction =";c1+(abs(x)/abs(a))
 8460 print"distance =";sqr(x^2+a^2):ifh8=1then1990
 8480 nexti:goto1990
 8500 ifb3<>0thenprint"from enterprise to starbase:":w1=b4:x=b5:goto8120
 8510 print"mr. spock reports:  'sensors show{sret}no starbases in this quadrant":goto1990
 8590 r1=fnr(1):r2=fnr(1):a$="   ":z1=r1:z2=r2:gosub8830:ifz3=0then8590
 8600 return
 8670 s8=int(z2-.5)*3+int(z1-.5)*24+1
 8675 if len(a$)<>3thena$="   "
 8680 ifs8=1thenq$=a$+right$(q$,189):return
 8690 ifs8=190thenq$=left$(q$,189)+a$:return
 8700 q$=left$(q$,s8-1)+a$+right$(q$,190-s8):return
 8790 onr1goto8792,8794,8796,8798,8800,8802,8804,8806
 8792 g2$="warp drive":return
 8794 g2$="s. r. sensors":return
 8796 g2$="l. r. sensors":return
 8798 g2$="phasers":return
 8800 g2$="photon torps":return
 8802 g2$="damage control":return
 8804 g2$="shield control":return
 8806 g2$="computer":return
 8830 z1=int(z1+.5):z2=int(z2+.5):s8=(z2-1)*3+(z1-1)*24+1:z3=0
 8890 ifmid$(q$,s8,3)<>a$thenreturn
 8900 z3=1:return
 9000 end
 9030 ifz5<=4thenonz4goto9040,9050,9060,9070,9080,9090,9100,9110
 9035 onz4goto9130,9140,9150,9160,9170,9180,9190,9200
 9040 g2$="antares":goto9210
 9050 g2$="rigel":goto9210
 9060 g2$="procyon":goto9210
 9070 g2$="vega":goto9210
 9080 g2$="canopus":goto9210
 9090 g2$="altair":goto9210
 9100 g2$="sagittarius":goto9210
 9110 g2$="pollux":goto9210
 9130 g2$="sirius":goto9210
 9140 g2$="deneb":goto9210
 9150 g2$="capella":goto9210
 9160 g2$="betelgeuse":goto9210
 9170 g2$="aldebaran":goto9210
 9180 g2$="regulus":goto9210
 9190 g2$="arcturus":goto9210
 9200 g2$="spica"
 9210 ifg5<>1thenonz5goto9230,9240,9250,9260,9230,9240,9250,9260
 9220 return
 9230 g2$=g2$+" i":return
 9240 g2$=g2$+" ii":return
 9250 g2$=g2$+" iii":return
 9260 g2$=g2$+" iv":return
 15000 fora=satosa+1e3:ifpeek(a)<>127thennext
 15010 forb=185to176step-1:pokea,b:c=int(ti/60)
 15020 ifint(ti/60)=cthen15020
 15030 next:b$="{rvon}{rght}":fora=1to24:b$=b$+" ":next
 15040 print"{home}":fora=1to8:printb$:next:print"{home}{down}{down}{down}{down}{rght}corbomite destroys
 15050 print"{rght}the quadrant{down}{down}{down}{down}{down}{down}":goto6310
  100 dimg%(7,7),q%(7,7),e%(9,4),n$(5),h$(8),d(5)
  110 def fnd(z)=sqr((c-q1)^2+(d-q2)^2)
  120 s$=".*bkrvne"
  130 data "warp drive","short-range scan","long-range scan","phasers"
  140 data "photon torpedos","galactic records"
  150 forj=0to5:readn$(j):nextj
  160 print"{rvon} star trek {rvof}  jim butterfield"
  170 data star,starbase,klingon,romulan,vallician,nubian
  180 forj=1to6:readh$(j):nextj
  190 t=ti:e9=0:b9=0:r0=10
  200 t=t/1000:d=rnd(-t):ift>=1goto200
  210 input"{down}easy/medium/tough game";z$
  220 d1=abs(asc(z$)-64.5)/14:print"{down}wait.."
  230 forc=0to7:ford=0to7
  240 s=int(rnd(1)*8)+1:b=int(rnd(1)+.04)
  250 e=int((rnd(1)<.2075)*(log(rnd(1))*d1-1)):ife>9thene=9
  260 b9=b9+b:v=sgn(e)*int(rnd(1)+.2):r=sgn(e)*int(rnd(1)+.2)
  270 r0=r0+sgn(e):ifr+v>ethene=r+v
  280 e9=e9+e:g%(c,d)=0-(400*e+40*b+4*s+2*v+r)
  290 nextd,c
  300 f8=3000:p8=10:gosub 1630
  310 if b9=0thengosub1170:g%(x,y)=g%(x,y)-40:b9=1
  320 y9=50:ife9>y9theny9=e9
  330 print"{down}your mission:":print"neutralize";e9;"enemy craft in";y9;"years"
  340 print"number of starbases=";b9:t=-rnd(1):y8=y9:y0=y9:r0=r0+(e9-b9)*.25
  350 gosub 1170:c=x:d=y:gosub1170:n1=x:n2=y:n0=1
  360 t1=rnd(1):t2=rnd(t-c/8-d/64)
  370 g1=c:g2=d:g=0:gosub870:ifnot(k)theng=abs(g%(c,d)):g%(c,d)=g
  380 n3=abs(g1-n1):n4=abs(g2-n2):gosub1690:n5=(n3+n4=0andn0=1)
  390 forc=0to7:ford=0to7:q%(c,d)=0:nextd,c:n6=(n3<2andn4<2andn0=1)
  400 ifs+b=0goto450
  410 forj=1tos+b
  420 gosub 1170:ifq%(x,y)>0goto420
  430 q%(x,y)=1:ifj=bthenq%(x,y)=2
  440 nextj
  450 t1=rnd(-t1):ifn6thenprint"distress call received from nubian"
  460 for j=0to9:e%(j,3)=400:ifj>ethene%(j,3)=0:goto500
  470 gosub1170:ifq%(x,y)>0goto470
  480 k=7:ifj>0thenk=3:ifj=vorj=rthenk=3+j
  490 ife=1andv=2andj>0thenk=5
  500 q%(x,y)=k:e%(j,0)=k:e%(j,1)=x:e%(j,2)=y:nextj
  510 q1=e%(0,1):q2=e%(0,2):ifn5thengosub1170:ifq%(x,y)>0goto510
  520 ifn5thenq%(x,y)=6
  530 ifn0=2thengosub820:q%(c,d)=6
  540 gosub1420
  550 gosub1180:forc=0to7:ford=0to7:x$=mid$(s$,q%(c,d)+1,1):ifd(1)>0thenx$=" "
  560 printx$;:nextd:print" ";
  570 on c+1gosub1290,1300,1310,1330,1340,1350,1360,1370
  580 nextc:iff9<1ory9<.5goto1810
  590 input"command  {CBM-B}{left}{left}{left}";z$:a=asc(z$)-48
  600 print"{up}          ":print"{up}";:ifa>0anda<7goto620
  610 forj=0to5:printj+1;"{left}=";n$(j):nextj:goto590
  620 printn$(a-1);" ";
  630 gosub1650:ifa1anda>2thengoto590
  640 ifa=5andp9=0thenprint"exhausted":goto590
  650 ifa=1ora=5thengosub1380:ifz1=0goto590
  660 y9=y9-.1:print:onagoto670,550,880,1050,970,920
  670 w=10:ifd(0)>0thenw=.2
  680 print"{up}                    "
  690 print"{up}warp distance(0 to";w;"{left})  {CBM-B}{left}{left}{left}";:inputz:ifz>wgoto680
  700 f9=f9-16*z:ifz<=0goto590
  710 gosub1420:d0=0
  720 q%(q1,q2)=0:y9=y9-.3:q1=q1+.5:q2=q2+.5
  730 c=q1+x1:d=q2+y1:z=z-z1
  740 gosub870:ifkgoto860
  750 h=q%(c,d)
  760 ifh>0thenprint"blocked by ";h$(h);" at";int(c)+1;int(d)+1:goto780
  770 q1=c:q2=d:ifz>z1/2goto730
  780 q1=int(q1):q2=int(q2):q%(q1,q2)=7:ifn0<2orh=6goto550
  790 gosub1260
  800 c=int(q1-x1+.5):d=int(q2-y1+.5):gosub870:ifkorq%(c,d)<>0thengosub820
  810 q%(c,d)=6:goto550
  820 x=sgn(rnd(1)-.5):y=sgn(rnd(1)-.5):ifx*y=0goto820
  830 forc=q1-xtoq1+xstepx:ford=q2-ytoq2+ystepy:gosub870:ifkgoto850
  840 ifq%(c,d)=0thenreturn
  850 nextd:nextc:return
  860 z2=z/z1/8:c=int(g1+c/8+x1*z2):d=int(g2+d/8+y1*z2):y9=y9-.5:goto360
  870 k=(c<0orc>=8ord<0ord>=8):return
  880 forc=g1-1tog1+1:ford=g2-1tog2+1
  890 gosub870:ifkthenprint"*** ";:goto910
  900 g=abs(g%(c,d)):g%(c,d)=g:gosub 1670
  910 nextd:print:nextc:goto590
  920 forc=0to7:ford=0to7
  930 g=g%(c,d):ifg<0thenprint"... ";:goto960
  940 ifc=g1andd=g2thenprint"{rvon}";
  950 gosub 1670
  960 nextd:print:nextc:goto590
  970 print"track:";:p9=p9-1:c=q1+.5:d=q2+.5
  980 c=c+x1:d=d+y1
  990 gosub870:ifkthenprint"missed!":goto1800
 1000 printchr$(c+49);",";chr$(d+49);"/";
 1010 q=q%(c,d):ifq=0goto980
 1020 print:ifq=4thenprint"romulans are immune to photon torps!":goto1800
 1030 ifq=6thenn0=0:j=0:goto1040
 1035 forj=1to8:ife%(j,1)<>int(c)ore%(j,2)<>int(d)thennextj
 1040 e%(j,3)=0:gosub1720:goto1800
 1050 input"energy units to fire  {CBM-B}{left}{left}{left}";y:ify=0goto590
 1060 ify>f9thenprint"only got";int(f9-1):goto1050
 1070 f9=f9-y
 1080 ifv=0goto1110
 1090 print"fool! never use phasers on a vallician!"
 1100 print"you've burnt them out!":d(3)=int(y9):goto590
 1110 k=e:fori=1to9
 1120 c=e%(i,1):d=e%(i,2):q=q%(c,d):ife%(i,3)<=0goto1160
 1130 f=y/(k*(fnd(0)^.4)):e5=e%(i,3)-f:e5=int(e5):e%(i,3)=e5:f=int(f+.9)
 1140 printf;"unit hit on ";h$(q);" at ";chr$(c+49);",";chr$(d+49);"(";e5;"left)"
 1150 ife5<=0thengosub1720
 1160 nexti:goto1800
 1170 x=int(rnd(1)*8):y=int(rnd(1)*8):return
 1180 gosub1480:c$="green":iff9<500thenc$="{rvon}yellow{rvof}"
 1190 d0=0:ife>0thenc$="{rvon}red{rvof}"
 1200 forc=q1-1toq1+1:ford=q2-1toq2+1:gosub870:ifkgoto1230
 1210 ifq%(c,d)=2thengosub1630
 1220 ifq%(c,d)=6thenn0=2
 1230 nextd,c:ifd0=1andn0=2thenn0=0:gosub1610
 1240 ifn0=2andasc(c$)=71thenc$="towing"
 1250 return
 1260 forc=0to7:ford=0to7
 1270 ifq%(c,d)=6thenq%(c,d)=0
 1280 nextd,c:return
 1290 print"years";y8;tab(33);"4 3 2":return
 1300 print"stardate";3525-y8;tab(34);"M{SHIFT--}N":return
 1310 print"status:";c$;tab(33);"5{SHIFT-*} {SHIFT-*}1":return
 1320 next d1
 1330 print"quadrant:";g1+1;g2+1;tab(34);"N{SHIFT--}M":return
 1340 print"sector:";q1+1;q2+1;tab(33);"6 7 8":return
 1350 print"energy:";int(f9):return
 1360 print"photon torpedos:";p9:return
 1370 print"enemy left:";e9:return
 1380 input"course(1-8.9)  {CBM-B}{left}{left}{left}";c:ifc<1orc>=9thenz1=0:return
 1390 c=(c-1)*~/4:x1=-sin(c):y1=cos(c)
 1400 z1=abs(x1):ifz1<abs(y1)thenz1=abs(y1)
 1410 x1=x1/z1:y1=y1/z1:z1=1/8/z1:return
 1420 ifd0=1goto1630
 1430 fori=1to9:c=e%(i,1):d=e%(i,2):e5=e%(i,3):q=q%(c,d):ife%(i,3)<=0goto1470
 1450 h=e5*.4*rnd(1):e%(i,3)=e5-h+.9:h=h/(fnd(0)^.4):f9=f9-h
 1460 printint(h+1);"unit hit from ";h$(q);" at ";chr$(c+49);",";chr$(d+49)
 1470 iff9>.5thennexti
 1480 y7=int(y9)-y8:ify7=0thenreturn
 1490 forj=0to5:ifd(j)>0thengosub1580
 1500 nextj
 1510 y8=int(y9):if rnd(1)>.25thenreturn
 1520 x=int(rnd(1)*6):ifrnd(1)>.5goto1560
 1530 d(x)=int(7-rnd(1)*5):print"***space storm: ";n$(x);" damaged***"
 1540 r0=r0+.5
 1550 printd(x);"years to repair":return
 1560 forj=xto5:ifd(j)>0thenprint"***new repair technique--":goto1600
 1570 nextj:return
 1580 d(j)=d(j)+y7:ifd(j)<1thengosub1600
 1590 return
 1600 d(j)=0:printn$(j);" fixed***":return
 1610 print"nubians thank you - they have improved"
 1620 print"your craft..":f8=4000:p8=12:gosub1260
 1630 c$="docked":d0=1:f9=f8:p9=p8:forj=0to5:ifd(j)>0thengosub1600
 1640 nextj:return
 1650 x=a-1:a1=(d(x)>0):ifa1thenprint" damaged;";:gosub1550
 1660 return
 1670 g=int(g/4):x1=int(g/100):printchr$(x1+48);:g=g-x1*100
 1680 x1=int(g/10):printchr$(x1+48);:printchr$(g-x1*10+48);:print"{rvof} ";:return
 1690 e=int(g/400):g=g-e*400:b=int(g/40)
 1700 g=g-b*40:s=int(g/4):g=g-s*4:v=int(g/2)*2:r=g-v:return
 1710 g=g-b*40:s=int(g/4):g=g-s*4:v=int(g/2)*2:r=g-v
 1720 print"***";h$(q);" destroyed***"
 1730 q%(c,d)=0
 1740 ifq=1thenx=4
 1750 ifq=2orq=6thenprint"..nice work!":ifq=2thenx=40
 1760 ifq=3thenx=400:e9=e9-1
 1770 ifq=4thenx=401:e9=e9-1
 1780 ifq=5thenx=402:e9=e9-1
 1790 g=g%(g1,g2)-x:g%(g1,g2)=g:print:gosub1690:return
 1800 gosub1420
 1810 if e9>0andy9>.5andf9>1goto590
 1820 s=int(1e3*r0/(y0-y9))
 1830 ife9>0goto1870
 1840 print"congratulations!  mission accomplished"
 1850 ifs>890thenprint"well played!"
 1860 print"{down}rating:";s:goto1910
 1870 ify9>.5goto1900
 1880 print"your mission has failed..."
 1890 print"you are demoted to cabin boy.":goto1910
 1900 print"bungler!  the enterprise is destroyed!"
 1910 input "{down}another game";z$
 1920 ifasc(z$)<>78goto190
  100 poke59468,14
  101 poke59490,255
  102 nz=2.6:ny=59464
  105 poke59467,16:poke59466,95:poke59464,0
  110 print"{clr}";tab(10)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  115 printtab(10)"{rvon}Rules of sweeper
  117 printtab(10)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  120 print"{down}{down}Sweeper is a fast action game in which"
  130 print"you need to think fast and move fast."
  140 print"{down}Nine numbers {rvon}1{rvof} to {rvon}9{rvof} will appear on the"
  150 print"screen - And all you need to do is"
  160 print"sweep them up.Each number adds to your "
  170 print"score,then reappears on the screen in"
  180 print"another position."
  190 print"{down}To move hold down one of the numbers"
  200 print"from 1 to 9 (Other than 5).For example"
  210 print"you should press 8 to move upwards,2"
  220 print"to move downwards,or 6 to go right.It"
  230 print"is like the points of the compass."
  240 poke158,0
  250 print"       {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  260 print"       {rvon}Press any key to start"
  270 print"       {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  280 getw$:ifw$=""then280
  290 dimd%(255)
  300 d%(58)=-41:d%(50)=-40:d%(57)=-39:d%(42)=-1:d%(41)=1:d%(26)=39:d%(18)=40
  310 d%(25)=41
  320 print"{clr}":t=0:s=0
  330 fori=32808to33728step40:pokei,225:pokei+39,97:next
  340 fori=32809to32846:pokei,98:pokei+920,226:next
  350 j=0:p=32988:pokep,102
  360 fori=1to9:gosub460:next:ti$="000000"
  370 pn=d%(peek(166))+p
  380 ts$=right$(ti$,2):print"{home}Score";s;tab(32)"Time ";ts$:ifts$="30"then490
  390 ifpn=pthen370
  400 p1=peek(pn)and127
  405 pokeny,(p1-32)*nz
  410 ifp1=97orp1=98then370
  420 i=val(chr$(p1)):ifi=0thenj=0:goto440
  430 j=i:s=s+j:gosub460
  440 pokep,32:p=pn:pokep,102
  450 goto370
  460 r=32809+920*rnd(ti)
  470 ifpeek(r)<>32then460
  480 poker,176+i:return
  490 fori=1to1000:next
  500 gosub560:print"{clr}{down}{rght}{rght}Score:";s;tab(23)"Rating: ";r$
  510 poke158,0
  520 fori=1to200:next
  525 print"{down}{down}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  526 poke59464,0
  530 print"{rvon}{rght}{rght}{rght} Press space to start another game "
  535 print"{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  540 getx$:ifx$=""then540
  545 ifx$<>" "thenpoke59490,30:poke59466,254:poke59467,0:poke59464,0:poke59468,12
  546 ifx$<>" "thenprint"{clr}":end
  550 goto320
  560 ifs<50thenr$="Dummy":return
  570 ifs<65thenr$="Granny":return
  580 ifs<80thenr$="Learner":return
  590 ifs<95thenr$="Average":return
  600 ifs<110thenr$="Good":return
  610 ifs<125thenr$="Pro":return
  620 r$="**Ace**":return
    0 clr:dimd(18):goto62000
    2 " shawn meehan
    4 " 378 n kellogg ave
    6 " santa barbara, ca 93111
    8 "
   10 " michael rowley
   11 " 364 s.b. shores dr
   12 " goleta, ca 93117
   13 "
   14 " cursor #26 june 1981
   15 " copyright(c) 1981 the code works
   16 " box 550, goleta, ca 93116
   17 "
   18 " as of 17jun81
   20 reada,b:forx=atob:ready:pokex,y:next
   22 data826,849,162,128,160,0,132,33,134,34,177,33,73,128,145,33,200,208,247
   24 data232,224,132,208,240,96,0
   26 gosub246:print"{home}{home}{clr}":forx=1tot:y=int(wd*20*rnd(ti)+ct+wd*4)
   28 pokey,b:pokey+1,b:pokey+wd,b:pokey-1,b:pokey-wd,b:next:forz=1to2:s=3-2*z
   30 forx=0to2:forv=0to2:y=(p(z)+(wd*x*s)+v*s):pokey,32:nextv,x,z
   32 forx=ct+wd*2toct+wd*3-1:pokex,a:pokex+wd*22,a:nextx
   34 forx=cttoct+wd*24stepwd:pokex,a:pokex+wd-1,a:nextx:forz=1to2:gosub130:next
   36 poket(1),r(1):poket(2),r(2):pokeg(1),b(6):pokeg(2),b(4):forx=1towd-2
   38 print"{home}"tab(x)"{rvon} ":next:print"{home}"tab(wd/2-2)"{rvon}{CBM-M}QQ{CBM-G}{down}{left}{left}{left}QQ":forx=1to2
   40 print"{home}{rvon}"tab(q(x)-1)"tanks"tab(q1(x)-1)"shots"tab(q2(x)-1)"mines":next
   42 forx=1to2:print"{home}{down}"tab(q(x))c(x)tab(q1(x))s(x)tab(q2(x))m(x):next
   44 getb$:ifb$=""then44
   46 l=2:m=1:ifb$="{rvon}"thenl=1:goto98
   48 ifb$="0"then98
   50 b=val(b$):ifb>0then54
   52 l=1:m=2:gosub132
   54 ifb=5thenv=o(l):x=i(v):e=g(l)+x:goto72
   56 ifo(l)<>bthen68
   58 ifpeek(g(l)+i(b))<>32then44
   60 poket(l),32:g(l)=g(l)+i(b):t(l)=t(l)+i(b):poket(l),r(l):pokeg(l),b(b)
   62 a=0:forv=1top:ift(l)=d(v)thena=1
   64 next:ifa=0then44
   66 e=t(l):m=l:l=3-m:goto124
   68 ifpeek(t(l)+i(b))<>32then44
   70 o(l)=b:pokeg(l),32:g(l)=t(l)+i(b):pokeg(l),b(b):goto44
   72 poke59467,16:poke59466,15:s=15:goto76
   74 s=s+5:poke59464,s:pokee,32:e=e+x
   76 ifpeek(e)=32ands<240thenpokee,b(v):goto74
   78 poke59467,0:poke59466,0:s(l)=s(l)-1:print"{home}{down}"tab(q1(l))s(l)"{left} "
   80 getb$:ifb$<>""then80
   82 ifpeek(e)=209orpeek(e)=160ors=240then92
   84 ife=g(m)then204
   86 ife=t(m)then158
   88 poke59467,16:poke59466,15:forx=1to12:pokee,86:poke59464,rnd(1)*200
   90 pokee,91:next:pokee,32:poke59467,0:poke59466,0
   92 ifs(l)<1thens=1:gosub104:z=l:l=m:m=z:poket(m),214:goto178
   94 ifs(l)=int(ss/3)thens=2:gosub104
   96 goto44
   98 ifm(l)=0then44
  100 p=p+1:m(l)=m(l)-1:print"{home}{down}"tab(q2(l))m(l):d(p)=t(l)
  102 poket(l),209:forx=1to80:next:poket(l),r(l):goto44
  104 poke59467,16:x=0:e=500:onsgoto116,118,120,122
  106 x=x+1:poke59466,15:poke59464,s
  108 printtab(q3(z))b$:forb=1toe:next:poke59466,0
  110 gosub130:ifx<3thenforb=1toe/2:next:goto106
  112 getb$:ifb$<>""then112
  114 poke59467,0:poke59466,0:return
  116 z=l:b$="{rvon}out of shots{up}":s=110:goto106
  118 e=250:z=l:b$="{rvon} low shots  {up}":s=90:goto106
  120 z=m:b$="{rvon} last tank  {up}":s=200:goto106
  122 e=800:z=l:b$="{rvon} the winner {up}":s=50:goto106
  124 y=0:poke59467,16:poke59466,44:poke59464,250:z=m
  126 print"{home}{down}{down}"tab(q3(z))"{rvon} hit a mine {up}":ify=1then158
  128 forx=1to250:next:poke59466,0:gosub130:forx=1to150:next:y=1:goto126
  130 print"{home}{down}{down}"tab(q3(z))"{rvon}            {up}":return
  132 ifb$="z"thenb=1:return
  134 ifb$="x"thenb=2:return
  136 ifb$="c"thenb=3:return
  138 ifb$="a"thenb=4:return
  140 ifb$="s"thenb=5:return
  142 ifb$="d"thenb=6:return
  144 ifb$="q"thenb=7:return
  146 ifb$="w"thenb=8:return
  148 ifb$="e"thenb=9:return
  150 ifpeek(152)<>1thenreturn
  152 forx=1to2:print"{home}{down}{down}"tab(q3(x))"{rvon}shift pushed{rvof}":next
  154 ifpeek(152)>0then154
  156 forz=1to2:gosub130:next:return
  158 poke59467,16:poke59466,44:fory=1to12:poke59464,205:ifwd=40thensys826
  160 pokee-wd-1,77:pokee-wd,66:pokee-wd+1,78:poke59464,225
  162 pokee-1,45:pokee,42:pokee+1,45:poke59464,245
  164 pokee+wd-1,78:pokee+wd,66:pokee+wd+1,77:poke59464,185
  166 next:poke59467,0:poke59466,0:poke59464,0
  168 pokee-wd-1,108:pokee-wd,32:pokee-wd+1,123
  170 pokee-1,32:pokee,32:pokee+1,32
  172 pokee+wd-1,124:pokee+wd,32:pokee+wd+1,126:poket(l),r(l):pokeg(l),b(o(l))
  174 z=m:gosub130:a=0:forb=1top:ift(m)=d(b)thena=b
  176 next:d(a)=0
  178 c(m)=c(m)-1:m(m)=r:print"{home}{down}"tab(q(m))c(m)tab(q2(m))m(m)
  180 v=3-2*m:t(m)=p(m):g(m)=t(m)+v:o(m)=v+5:ifc(m)=1thens=3:gosub104
  182 ifc(m)=0thens=4:gosub104:goto210
  184 getb$:ifb$<>""then184
  186 ifpeek(t(m))<>32then192
  188 a=0:fory=1top:ift(m)=d(y)thena=1
  190 next:ifa=0then194
  192 t(m)=t(m)+wd*v:goto186
  194 z=0:g(m)=t(m)+v:o(m)=v+5
  196 z=z+1:ifpeek(g(m))=32then202
  198 ifz=2then192
  200 o(m)=o(m)-3*v:g(m)=t(m)+i(o(m)):goto196
  202 poket(m),r(m):pokeg(m),b(o(m)):s(m)=ss:print"{home}{down}"tab(q1(m))s(m):goto92
  204 poket(m),214:poke59467,16:poke59466,15:poke59464,100:forb=1to10
  206 forx=1to4:poke59464,100-10*x:pokeg(m),b(x):nextx,b:pokeg(m),a(o(m))
  208 poke59467,0:poke59466,0:goto178
  210 print"{clr}{down}{down}{down}{down}{down}{down}"tab(11)"{rvon}player "l"{left}{left}{left}#{rght} wins!"
  212 ifc(l)=1thenprinttab(9)"{down}with his last tank!"
  214 ifc(l)=2thenprinttab(9)"{down}with two tanks left!"
  216 ifc(l)=3thenprinttab(8)"{down}without losing a tank!"
  218 getb$:ifb$<>""then218
  220 w(l)=w(l)+1:l(l)=l(l)+c(l)-1:printtab(11)"{down}{down}{down}{down}another battle? ";:gosub60000
  222 ifleft$(in$,1)<>"n"then26
  224 print"{clr}{down}{down}"tab(10)"after"w(1)+w(2)"battle";:ifw(1)+w(2)>1thenprint"s";
  226 printcr$tab(10)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}";:l=1:m=2:ifw(1)+w(2)>1thenprint"{CBM-T}";
  228 ifw(l)=0then238
  230 printcr$"{down}{down}{down}player #"l"won";
  232 ifw(m)>0thenprintw(l)"time";:ifw(l)>1thenprint"s";:goto236
  234 ifw(l)>1thenprint" everytime"
  236 printcr$"{down}and had"l(l)"unused tank";:ifl(l)<>1thenprint"s";
  238 m=1:l=l+1:ifl=2then228
  240 poke59467,0:poke59466,0:printcr$"{down}{down}":end
  242 ct=32768:wd=40:pokect,96:ifpeek(ct+1024)<>96thenwd=80:printchr$(142)
  244 cr$=chr$(13):t=50:ss=8:r=1:goto20
  246 p(1)=ct+wd*4+2:r(1)=170:t(1)=p(1):p(2)=ct+wd*23-3:r(2)=102:t(2)=p(2)
  248 q(1)=2:q1(1)=8:q2(1)=14:q3(1)=3:q(2)=23:q1(2)=29:q2(2)=35:q3(2)=25:p=0
  250 c(1)=3:c(2)=3:a=209:b=127:forx=1to18:d(x)=0:next:ifwd=40then254
  252 q(1)=5:q1(1)=18:q2(1)=31:q3(1)=14:q(2)=45:q1(2)=58:q2(2)=71:q3(2)=54
  254 b(3)=77:b(7)=77:b(1)=78:b(9)=78:b(4)=67:b(6)=67:b(2)=93:b(8)=93:o(1)=6
  256 i(1)=wd-1:i(2)=wd:i(3)=wd+1:i(4)=-1:i(6)=1:i(7)=-wd-1:i(8)=-wd:i(9)=-wd+1
  258 a(1)=40:a(2)=74:a(3)=41:a(4)=85:a(6)=75:a(7)=40:a(8)=73:a(9)=41:o(2)=4
  260 g(1)=t(1)+1:g(2)=t(2)-1:print"{clr}  {down}{down}{down}{down}{down}{down}{down}{down}what skill level(1-10)"
  262 print"{down}  10 is the hardest     {up}{up}? ";:gosub60000:ifin$=""then270
  264 t=val(in$):ift<1ort>10thent=50:ss=8:r=1:goto260
  266 ifint(t)<>tthent=int(t):print"{down}{down}{down}  let's use "t:gosub276
  268 r=int((t+1)/3):ss=6+2*int(t/3):t=t*10:goto274
  270 ifw(1)+w(2)>0thenprint"{down}{down}{down}  let's use"t/10"again":gosub276:goto274
  272 print"{down}{down}{down}  i'll assume "t/10:gosub276
  274 s(1)=ss:s(2)=ss:m(1)=r:m(2)=r:return
  276 forx=1to1250:next:return
 60000 in$=" ":s=ti:x=2:zd$=chr$(20)
 60010 getb$:ifb$<>""then60070
 60020 ifs<=tithenprintmid$(" {CBM-+}",x,1)"{left}";:x=3-x:s=ti+15
 60030 goto60010
 60070 z=asc(b$):e=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenb$=chr$((z+128)and255)
 60090 ife>254then60010
 60100 in$=in$+b$:printb$zd$b$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20ande>1thenin$=left$(in$,e-1):print"{left}";:goto60010
 60130 ifz=141thenb$=chr$(-20*(e>1)):forz=2toe:printb$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12:print"{clr}{down}{down}"tab(12)"tank!  by shawn meehan
 62007 print"{home}{down}{down}{down}"tab(19)"&  mike rowley"
 62010 print"{down}       cursor #26  copyright (c) 1981{down}
 62020 forx=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nextx:print"{left}{left}{left}{SHIFT-*}"
 62030 print"{down}patton vs.the desert fox":print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62050 getin$:ifin$=""then62050
 62060 goto242
   10 rem hello
   40 dimcp%(16),cf%(16),cs%(16,8),k$(16),sa%(16),fa%(16),ra%(16),gn%(16),ma%(16)
   42 dimkp(8,16),ca%(16)
   44 fori=1to 16:readfa%(i),sa%(i),ra%(i),gn%(i),ma%(i):nexti
   45 data 3,2,3,40,8
   46 data 4,2,1,60,7
   47 data 7,2,2,100,11
   48 data 5,4,3,80,8
   49 data 9,4,3,130,7
   50 data3,3,3,60,0
   51 data3,3,3,100,0
   52 data3,3,3,130,0
   53 data4,3,2,60,11
   54 data5,3,2,80,11
   55 data4,4,4,60,6
   56 data4,4,4,80,6
   57 data7,5,3,100,6
   58 data7,5,3,120,6
   59 data3,3,3,80,0
   60 data3,3,3,100,0
   70 forj=1to16:cp%(j)=0:cf%(j)=1:nextj:tn=1
   74 fori=1to8:hp%(i)=0:hf%(i)=1:nexti
   76 fori=1to24:poke12368+i,0:poke12392+i,0:poke12427+i,1:nexti
   78 fori=1to8:forj=1to16:kp(i,j)=0:nextj:nexti
   80 poke 12418,int(255*rnd(2)):poke12420,int(255*rnd(4))
  100 print"{clr}           ***tanktics***{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}copyright"
  102 print"              1981 by":print:print"            avalon hill"
  104 print"        microcomputer games"
  110 print"which scenario? ";:q=5:gosub10000:sc=q:ifq>5orq=0then110
  120 print"how many tanks for you? ";:q=8:gosub10000:hn=q:cn=q+q:hl=q:cl=cn
  121 ifq=0thenprint"- try again":goto120
  130 poke12426,hn:poke12427,cn:print"so i get";cn;" tanks"
  135 fori=1tohn
  140 print"type of tank ";chr$(i+64);" ?";:q=5:ifsc=2orsc=4thenq=8
  150 gosub10000:ifq=0orq>8thenprint"illegal tank type (1-8)":goto140
  155 ht%(i)=q:nexti
  210 ft=3:ct=15:ifsc=3orsc=5thenft=0:goto230
  220 print"type of my tanks? ";:q=6:gosub10000:ct=q+8
  225 ifq=0orq>6thenprint"illegal tank type (1-6)":goto220
  230 poke12486,ma%(ct):print:print"please stand by":print:ifsc>3thengoto280
  235 gosub13000:tg=gp:dt=gp:ifsc=3thenfm=tg:goto250
  240 gosub13000:fm=gp:gosub15000:ifrg<11thengoto240
  250 tp=fm:gosub11000:ifsc=2thendt=tg:goto270
  260 gosub13000:dt=gp:gosub15000:ifrg<11thenfm=tp:goto260
  265 tp=fm:fm=tg:gosub15000:ifrg<11thenfm=tp:goto260
  270 fm=dt:gosub12000:goto295
  280 gosub13000:tg=gp:ifgp>499thengoto280
  285 gosub13000:ifgp<2000thengoto285
  290 fm=gp:gosub11000:gosub12000
  295 gosub16000:np=-sr:a=int(tg/100):poke12361,a:poke12362,tg-100*a
  297 sys(14038)
  300 a=fre(0):gosub16000:print"{clr}";:fori=1tohn
  310 b$=" ":ifhf%(i)=0thenb$="*"
  320 a$="":ifhp%(i)<2699thena$=" "
  321 nm=int(hp%(i)/100):ifnm<27thenhp$=chr$(nm+64)+str$(hp%(i)-nm*100):goto324
  322 hp$=chr$(nm+38)+chr$(nm+38)+str$(hp%(i)-nm*100)
  324 kz=hp%(i)-nm*100:ifkz>9thenk$="":goto330
  326 k$=" "
  330 printb$;chr$(i+64);b$;" ";ht%(i);a$;hp$;k$;hf%(i)
  331 ha%(i)=1:nexti
  350 print"{home}";:forj=1to16:fm=cp%(j)
  360 ifj=hn+2thenprint"objective:";
  370 ifj=hn+3thenprint;:nm=int(tg/100):ifnm<27thenprintchr$(nm+64);(tg-nm*100);
  375 ifj=hn+3andnm>26thennm=nm-26:printchr$(nm+64);chr$(nm+64);(tg-nm*100);
  380 ifj=hn+4thenprint" turn:";tn;
  390 ifj=hn+5thenprint" score:";sr;
  400 printtab(12);:ifj>cnthengoto500
  410 c$="":ifcp%(j)<2699thenc$=" "
  420 d$=" ":ifcf%(j)=0thend$="*"
  430 fg=0:fori=1tohn:ifhf%(i)=0orcf%(j)=0thencs%(j,i)=1:goto450
  440 poke12366,i-1:poke12367,j+7:sys(13284):cs%(j,i)=peek(12365)
  445 ifpeek(12365)=0thenfg=1
  450 nexti
  460 printtab(15);d$;chr$(j+64);d$;
  467 ifcf%(j)=0orfg=0thengoto500
  468 nm=int(cp%(j)/100):ifnm<27thencp$=chr$(nm+64)+str$(cp%(j)-nm*100):goto470
  469 cp$=chr$(nm+38)+chr$(nm+38)+str$(cp%(j)-nm*100)
  470 z$="  ":ifcp%(j)-nm*100>9thenz$=" "
  471 printc$;cp$;z$;cf%(j);
  480 fork=1tohn:ifcs%(j,k)=0thenprintchr$(k+64);
  490 nextk
  500 print:nextj:print
  600 print"which tank? ";:q=9:gosub10000:i=q:ifq=9thengoto1100
  610 ifi>hnorha%(i)<1orhf%(i)=0thenprint"try again{up}{up}":goto600
  620 ha%(i)=0:print"orders   {CBM-B}         {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  622 inputk$:ifk$="{CBM-B}"thengoto1000
  624 y=18:gosub9000:gosub 21100
  626 ifleft$(k$,1)="f"thengoto900
  630 ifleft$(k$,1)="q"thennp=np/2:goto2000
  640 ifleft$(k$,1)="l"thengoto810
  645 ifleft$(k$,1)="0"thengoto1000
  650 gp=hp%(i):gx=peek(12368+i):gy=peek(12392+i):poke12309,gx:poke12310,gy
  660 mx=0:fork=1tolen(k$):a=asc(mid$(k$,k,1))
  665 ifa<49ora>56thenprint"huh?              {up}{up}":k=len(k$):nextk:goto620
  670 dr=a-48:ifdr<7thengoto720
  675 ifdr=9thengoto800
  680 mx=mx+2:ifmx>ma%(ht%(i))thengosub17000:goto800
  690 ifdr=7thena=hf%(i)-1:ifa=0thena=6
  700 ifdr=8thena=hf%(i)+1:ifa=7thena=1
  710 hf%(i)=a:goto800
  720 poke12346,dr:sys(13225):sys(13173):mx=mx+peek(12345)
  730 ifmx>ma%(ht%(i))thengosub17000:k=len(k$):goto800
  740 poke12424,i-1:sys(13536):fg=peek(12425)
  750 iffg>0thenprint"bumped into # ";chr$(fg+64):gosub18000:k=len(k$):goto800
  770 hp%(i)=100*peek(12309)+peek(12310):hf%(i)=dr
  780 poke12423,30:sys(13575):j=peek(12425)
  785 ifj>0thengosub19000:k=len(k$)
  800 nextk:goto1000
  810 fg=0:printchr$(i+64);" sees ";:forj=1tocn
  812 ifcs%(j,i)=0thenprintchr$(j+64);:fg=1
  820 nextj:iffg=0thenprint"nothing":gosub18000
  830 print"{up}{up}":goto620
  900 iflen(k$)>1then j=0:a=asc(mid$(k$,2,1)):ifa>64anda<82thenj=a:j=j-64
  905 ifj<1orj>cnthenprint:print"fire order garbled{up}{up}":goto620
  910 ifcs%(j,i)>0orcf%(j)=0thenprint"target not visible{up}{up}":goto620
  920 fm=hp%(i):dt=cp%(j):gosub15000:gp=dt:gosub14000
  930 f=cf%(j):ss=ht%(i):vt=ct:gosub20000
  940 iff>0thenprint"you missed!               ":gosub18000:goto1000
  950 print"my tank ";chr$(j+64);" is burning":gosub19050
 1000 a$="":ifhp%(i)<2699thena$=" "
 1010 b$="(":c$=")":ifhf%(i)=0thenb$="*":c$="*"
 1011 nm=int(hp%(i)/100):ifnm<27thenhp$=chr$(nm+64)+str$(hp%(i)-nm*100):goto1015
 1012 hp$=chr$(nm+38)+chr$(nm+38)+str$(hp%(i)-nm*100)
 1015 kz=hp%(i)-nm*100:ifkz>9thenk$="":goto1020
 1017 k$=" "
 1020 y=i-1:gosub9000:printb$;chr$(i+64);c$;" ";ht%(i);a$;hp$;
 1021 printk$;hf%(i)
 1030 gx=int(hp%(i)/100):gy=hp%(i)-100*gx:poke12368+i,gx:poke12392+i,gy
 1040 poke12427+i,hf%(i):ifcl=0orhl=0thengoto2000
 1050 fg=0:fori=1tohn:ifha%(i)=1andhf%(i)>0thenfg=1
 1060 nexti:gosub21000:iffg=1theny=17:gosub9000:goto600
 1100 tn=tn+1:gosub21000:y=20:gosub9000:print"my turn"
 1200 ss=ct:forj=1 to cn:ca%(j)=1:if cf%(j)=0 then ca%(j)=0:goto1250
 1210 fori=1tohn:ifhf%(i)=0thengoto1240
 1220 poke12367,i-1:poke12366,j+7:sys(13284):ifpeek(12365)=0thengoto1240
 1230 vt=ht%(i):f=hf%(i):rg=peek(12302):u=peek(12344):gosub20100:kp(i,j)=pb
 1240 nexti
 1250 nextj
 1300 a=ft:forj=1tocn:ifca%(j)=0thengoto1320
 1310 fori=1tohn:ifkp(i,j)=>athena=kp(i,j):l=i:k=j
 1315 nexti
 1320 nextj:ifa=ftthenj=0:goto1400
 1330 sys(14134):printchr$(k+64);" fires at ";chr$(l+64);" --- ";
 1335 ifkp(l,k)<rnd(3)*10thenprint"a miss.{up}":goto1350
 1340 print"a hit!{up}":hf%(l)=0:poke12427+l,0:hl=hl-1:forj=1tocn:kp(l,j)=0:nextj
 1350 ca%(k)=0:fori=1tohn:kp(i,k)=0:nexti
 1360 fg=0:fork=1tocn:ifca%(k)-1thenfg=1:k=cn
 1370 nextk:iffg=0thengoto1600
 1380 goto1300
 1400 j=j+1:ifj>cnthengoto1600
 1410 ifca%(j)=0thengoto1400
 1420 a=0:if100*peek(12451+j)+peek(12467+j)=tgthena=ma%(ct)
 1422 fori=1tohn:a=a+kp(i,j):nexti:a=ma%(ct)-int(a/2):ifa<2thena=2
 1425 poke12488,a
 1430 poke12423,j-1:poke12487,0:sys(13614):ca%(j)=0
 1435 cp%(j)=100*peek(12376+j)+peek(12400+j):cf%(j)=peek(12435+j)
 1440 i=peek(12495):ifi>0thensys(14134):gosub19000
 1450 ifpeek(12487)>0thengoto1400
 1460 a=0:fori=1tohn:ifkp(i,j)>athena=kp(i,j):l=i:k=j
 1470 nexti:ifa>0thengoto1330
 1480 goto1400
 1600 ifhl>0andcl>0thengoto300
 2000 gosub21000:y=18:gosub9000:print"end of game!":gosub16000
 2010 print"final score is";sr:print"press 1 to play again":q=9:gosub10000
 2020 ifq=1thengoto70
 2030 end
 9000 print"{home}";:ify=0thenreturn
 9010 foryy=1toy:print:nextyy:return
 10000 b$="":print"  {left}{left}";:getb$:ifb$=""then10000
 10004 a=asc(b$):ifa>47anda<58thena=val(b$):printb$:ifa<=qthenq=a:return
 10006 ifa>64anda<82thenprintb$:a=a-64:ifa<=qthenq=a:return
 10008 ifa=88thenq=9:printb$:return
 10011 q=0:return
 11000 fx=int(fm/100):fy=fm-100*fx:poke12288,fx:poke12289,fy:forj=1tocn
 11010 a=1:gosub11500:gosub11600:iffg>0thengoto11010
 11020 gx=int(tp/100):poke12376+j,gx:poke12400+j,int(tp-100*gx)
 11030 cp%(j)=tp:nextj:return
 11500 ifsc>3anda+sc<>5thengoto11530
 11510 sys(13466):gp=100*peek(12309)+peek(12310):tp=gp:return
 11530 ifa=0thengoto11560
 11540 gp=800+100*int(4*rnd(4))+int(j*22/cn+4*rnd(5)-2):gosub14000
 11550 tp=gp:return
 11560 print"position of tank ";chr$(i+64):print "  hex-letter ";:inputgp$
 11562 print"  hex-number ";:inputgy
 11564 iflen(gp$)=1thengp=(asc(gp$)-64)*100+gy:goto11569
 11565 goto11560
 11569 gx=int(gp/100):gy=gp-100*gx
 11570 ifgx>12orgx<8orgy>24orgy<1thengoto11560
 11580 gosub14000:ifmc>6thengoto11560
 11590 tp=gp:return
 11600 poke12423,j-1:sys(13575):fg=peek(12425):return
 12000 fx=int(fm/100):fy=fm-100*fx:poke12288,fx:poke12289,fy:fori=1tohn
 12010 a=0:gosub11500:gosub12600:iffg>0thengoto12010
 12020 gx=int(tp/100):poke12368+i,gx:poke12392+i,int(tp-100*gx)
 12030 hp%(i)=tp:nexti:return
 12600 poke12424,i-1:sys(13536):fg=peek(12425):return
 13000 gp=int(24.9*rnd(7)+4)*100+int(16.9*rnd(8)+4):gosub14000
 13010 ifmc>6thengoto13000
 13020 return
 14000 gx=int(gp/100):gy=gp-100*gx:poke12309,gx:poke12310,gy
 14010 sys(13173):mc=peek(12345):u=peek(12344):return
 15000 tx=int(dt/100):fx=int(fm/100):ty=dt-100*tx:fy=fm-100*fx
 15010 poke12288,fx:poke12289,fy:poke12290,tx:poke12291,ty
 15020 sys(12902):rg=peek(12302):return
 16000 sr=(((cn-cl)/2)^2-(hn-hl)^2)*10+np-3*tn:fm=tg:tp=50:fori=1tohn
 16010 dt=hp%(i):gosub15000:sr=sr-rg:ifrg<tpandhf%(i)>0thentp=rg
 16020 nexti:a=50:forj=1tocn:dt=cp%(j):gosub15000:sr=sr+rg/2
 16030 ifrg<aandcf%(j)>0thena=rg
 16040 nextj:sr=sr+50:ifa<tpthensr=sr-100
 16050 sr=int(sr):return
 17000 print"movement points exceeded":gosub18000:k=len(k$):return
 18000 forab=1to899:nextab:return
 19000 q=rnd(3)+1
 19010 print"overrun: ";:ifq>1.5thengoto19100
 19020 print"your tank ";chr$(i+64);" got my tank ";chr$(j+64)
 19050 cf%(j)=0:cl=cl-1:forl=1tohn:cs%(j,l)=1:nextl
 19060 y=j-1:gosub9000:printtab(15)
 19070 print"*";chr$(j+64);"*"
 19095 poke12435+j,0:y=22:gosub9000:return
 19100 hf%(i)=0:print"my tank ";chr$(j+64);" got your tank ";chr$(i+64)
 19101 hl=hl-1:poke12427+i,0
 19110 gosub18000:return
 20000 gosub20100:ifpb>rnd(2)*10thenf=0
 20010 return
 20100 dr=f-peek(12298):ifdr<1thendr=dr+6
 20110 f=sa%(vt):ifdr=3thenf=fa%(vt)
 20120 ifdr=6thenf=ra%(vt)
 20130 pb=gn%(ss)/(rg*u*f):return
 21000 y=16:gosub9000:forq=1to7:gosub21100:nextq
 21010 return
 21100 print"                                       ":return
    1 clr
    5 a$="------------hit--any--key------------":print"{clr}":goto334
   10 print"         {red}{CBM-*}{rvon} {CBM-*}{rvof} {yel}{rvon}  {CBM-*}{rvof} {blu}{rvon}  {CBM-*}{rvof} {grn}{rvon}  {CBM-*}{rvof} {pur}{rvon}  {CBM-*}{rvof}{cyn}{CBM-*}{rvon} {CBM-*}{rvof}"
   20 print"          {red}{rvon} {rvof}  {yel}{rvon} {rvof} {rvon} {rvof} {blu}{rvon} {rvof} {rvon} {rvof} {grn}{rvon} {rvof}   {pur}{rvon} {rvof}   {cyn}{rvon} {rvof}"
   30 print"          {red}{rvon} {rvof}  {yel}{rvon}   {rvof} {blu}{rvon}   {rvof} {grn}{rvon} {rvof}   {pur}{rvon} {CBM-*}{rvof}  {cyn}{rvon} {rvof}
   40 print"          {red}{rvon} {rvof}  {yel}{rvon} {rvof} {rvon} {rvof} {blu}{rvon} {CBM-*}{rvof}  {grn}{rvon} {rvof} {rvon}{CBM-*}{rvof} {pur}{rvon} {rvof}   {cyn}{rvon} {rvof}
   50 print"          {red}{rvon} {rvof}  {yel}{rvon} {rvof} {rvon} {rvof} {blu}{rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof} {grn}{rvon} {rvof} {rvon} {rvof} {pur}{rvon} {rvof}   {cyn}{rvon} {rvof}
   60 print"          {red}{CBM-*}  {yel}{CBM-*} {CBM-*} {blu}{CBM-*} {CBM-*} {cyn}{grn}{CBM-*}{rvon}  {rvof} {pur}{CBM-*}{rvon} {CBM-*}{rvof}{cyn} {CBM-*}"
   61 printspc(4)"         {down}{red}c o m m a n d":return
  200 print"{blk}"
  201 getg$
  210 a$=right$(a$,1)+mid$(a$,1,39)
  215 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"a$;:fori=1to100:nexti
  220 ifg$=""then201
  221 getg$:return
  225 fori=1to1000:nexti:fori=1to15:readb$:getg$
  230 fori1=1to11+b
  235 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"spc(i1)" "b$:nexti1
  245 d=20:fori1=1to10
  248 print"{home}";:fori2=1tod+1:print"{down}";:nexti2:printspc(11+b+1)" {up}{left}"b$
  255 d=d-1:nexti1:b=b+1:nexti:return
  300 fori1=1to6:ifq>0thenq=(10*rnd(1)+1)
  301 x=int(34*rnd(1)+32850):xx=int(q+7*rnd(1)):x=x+xx*40
  302 ifx<32848orx>33687then301
  310 x1=x-41:x2=x-40:x3=x-39:x4=x+1:x5=x+41:x6=x+40:x7=x+39:x8=x-1
  320 pokex,160:pokex1,108:pokex2,227:pokex3,123:pokex4,231:pokex5,126:pokex6,228:pokex7,124:pokex8,229
  325 fori=254to154step-3:tp=sin(78*e):nexti
  330 pokex1,32:pokex2,32:pokex3,32:pokex4,32:pokex5,32:pokex6,32:pokex7,32:pokex8,32:pokex,32
  331 poke36874,0:nexti1:return
  334 gosub10:gosub225:gosub200:gosub300:q=1
  335 print"{clr}{rvon}page 1{rvof}
  336 print"{down}{down} {red}the earth is in a fix! aliens from someunknown galaxy are
  337 print"flying over cities and bombarding them  with atomic missiles.
  341 print"{down}{pur} it's up to you and the xq3 laser to    save earth!
  342 gosub200:gosub300
  410 print"{clr}{rvon}page 2{rvof}
  411 print"{down}{grn}{rvon}           introduction                {rvof}";
  420 print"{pur}{down}  the {rvon}object{rvof} of the game is to shoot downas many missiles as ";
  421 print"you can.
  425 print"{blu}{down} to do this you must  move your {rvon}target  sight{rvof} to the tip of each
  430 print"missile and fire your laser.
  435 print"{down} the target sight(+) is moved by {rvon}holding{rvof}{rvon}down{rvof} the a,z,or {rvon};{rvof},{rvon}?{rvof} keys.
  438 gosub200:gosub300
  449 print"{clr}{rvon}page 3{rvof}
  455 print"{down}{rvon}      target sight controls           {rvof}{down}"
  456 print"O{CBM-T}P
  460 print"{CBM-G}a{CBM-M} up
  461 print"L{CBM-@}{SHIFT-@}            left     right
  462 print"
  463 print"O{CBM-T}P            O{CBM-T}P       O{CBM-T}P
  464 print"{CBM-G}z{CBM-M} down       {CBM-G};{CBM-M}       {CBM-G}?{CBM-M}
  465 print"L{CBM-@}{SHIFT-@}            L{CBM-@}{SHIFT-@}       L{CBM-@}{SHIFT-@}{down}
  470 print"{red} the {rvon}space bar{rvof} fires  the laser directly toward the target sight";
  475 print" and it explodes when it reaches it.":gosub200:gosub300
  484 print"{clr}{rvon}page 4{rvof}
  485 print"{down}{grn} when a missile is  destroyed it        vaporizes and disappears.
  490 print"{down} if a missile is not stopped, it may    blow up one of your ammunition ";
  491 print"bases."
  510 print"{down} you have 6 bases. each base contains  2minutes of ammunition.
  535 print"{down} if you lose a base, the ammunition     within it is also lost.
  540 print"{down} as the game progresses, the ammunition supply shrinks.
  541 gosub200:gosub300
  542 print"{clr}{rvon}page 5{rvof}
  545 print"{down}{pur}there are 5 skill levels {rvon}(1,2,3,4,and 5){rvof}
  555 print"{blu}{down} on level 1 the target sight can be    {rght}moved down near the bases.
  556 print"{down} on levels 2 to 5 the sight can not be  moved down as far.
  557 print" {down}you will understand this better as you play the game.
  558 gosub200:gosub300
  674 print"{clr}{rvon}page 6{rvof}
  700 print"{down}{rvon}ponts{rvof} are awarded for each missile      destroyed.
  710 print"{rvon}{down}bonus points{rvof} are awarded for each  base
  720 print"that remains when the game ends.
  730 print"{down}to start the game over hit the {rvon}space bar{rvof}
  740 print"if you want to zero the high score hit  {rvon}run/stop{rvof} and type ";
  750 print"{rvon}poke 826,0{rvof}":print"then hit {rvon}return{rvof} and ";
  760 print"re-run the program.
  770 print"{down}to load target command type {rvon}load{rvof} and    hit {rvon}return{rvof}
  999 datab,y, ,c,l,i,f,f, ,d,u,d,z,i,k
 1000 clr
    0 rem{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}{CTRL-B}{CTRL-A}@aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
    5 dimer(4,18):pe=1029:ifpeek(826)=111then7
    6 poke826,111:poke827,0:poke828,0:poke829,0:poke59467,16:poke59466,16:poke59464,0
    7 gosub675:qz=32:qq=33108:ti$="000000":tm=43200
    9 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";
   10 print"{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{$a0}{$a0}"
   20 print"{$a0}{$a0}{$a0}{rvon}{CBM-C} {rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{CBM-C} {rvof}{$a0}{$a0}{$a0}{$a0}{rvon}{CBM-C} {rvof}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{rvon} {CBM-V}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon} {CBM-V}{rvof}{$a0}{$a0}{$a0}{$a0}{rvon} {CBM-V}{rvof}{$a0}{$a0}"
   30 print"{$a0}{rvon}                  {CBM-C}{CBM-V}                  {rvof}{$a0}{$a0}"
   35 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}high score="peek(827)*10+peek(828)*200"_level"peek(829)
   36 print"{home}
   55 fore=33728to32768step-40:pokee,96:nexte:fore=32768to32807:pokee,96:nexte
   60 fore=32807to33767step40:pokee,96:nexte
  130 ifti>tmthen750
  135 fori=0to4:q2=q2+1
  136 ifm(i)=0thengosub340
  138 ifm(i)=1thengosub300:nexti:goto130
  139 ifjj(i)=1then200
  140 ifpeek(pe+n(i))=1thenpk=40:p=225
  145 ifpeek(pe+n(i))=2thenpk=41:p=127
  150 ifpeek(m(i)+pk)=223orpeek(m(i)+pk)=233orpeek(m(i)+pk)=96thengoto600
  151 m(i)=m(i)+pk:pokem(i),p:n(i)=n(i)+1:x(i)=x(i)+1:er(i,x(i))=m(i)
  155 gosub400
  160 nexti:goto130
  200 ifpeek(pe+n(i))=1thenpk=40:p=97
  210 ifpeek(pe+n(i))=2thenpk=39:p=255
  220 ifpeek(m(i)+pk)=223orpeek(m(i)+pk)=233orpeek(m(i)+pk)=96thengoto600
  225 m(i)=m(i)+pk:pokem(i),p:n(i)=n(i)+1:x(i)=x(i)+1:er(i,x(i))=m(i)
  230 gosub400
  240 nexti:goto130
  300 x=int(6*rnd(1)+1):ifx<>1thenreturn
  310 x=int(6*rnd(1)+1):n(i)=x*22-22:ifn(i)=0thenn(i)=1
  320 jj(i)=int(2*rnd(1)+1):x=int(22*rnd(1)+32777):m(i)=x:s(i)=x:x(i)=0:return
  340 m(i)=1:fore=1tox(i):pokeer(i,e),32:nexte:qz=32:return
  400 q=0:getg$:ifg$=" "then500
  404 ifpeek(rc)=65thenq=-40:q1=-80
  405 ifpeek(rc)=90thenq=40:q1=80+40*lv
  410 ifpeek(rc)=44thenq=1:q1=2
  415 ifpeek(rc)=77thenq=-1:q1=-2
  420 pokeqq,qz:ifpeek(qq+q1)=96orpeek(qq+q1)=223orpeek(qq+q1)=233then440
  425 qq=qq+q:qz=peek(qq):pokeqq,43
  440 pokeqq,43:return
  500 x1=qq-41:x2=qq-40:x3=qq-39:x4=qq+1:x5=qq+41:x6=qq+40:x7=qq+39:x8=qq-1
  501 ifad=1then610
  505 poke33588,101:poke33587,28:poke33588,47
  510 pokeqq,160:pokex1,108:pokex2,227:pokex3,123:pokex4,231:pokex5,126:pokex6,228:pokex7,124:pokex8,229
  512 ifad=1then645
  513 poke33587,96:poke33588,96
  515 qz=32:poke59464,255:fore=0to4
  520 ifx1=m(e)orx2=m(e)orx3=m(e)orx4=m(e)orx5=m(e)orx6=m(e)orx7=m(e)orx8=m(e)thentx=1
  525 ifqq=m(e)thentx=1
  526 iftx=1thensc=sc+1:m(e)=0:tx=0
  527 poke59466,100-e:nexte
  530 pokex1,32:pokex2,32:pokex3,32:pokex4,32:pokex5,32:pokex6,32:pokex7,32:pokex8,32:pokeqq,32
  532 ifad=1then650
  535 poke59464,0:poke59466,16:return
  600 ad=1:xx=qq:qq=m(i)+pk:goto500
  610 ifpeek(qq)<>96thentm=tm-1800
  615 ifpeek(x4)<>96thentm=tm-1800
  620 ifpeek(x5)<>96thentm=tm-1800
  625 ifpeek(x6)<>96thentm=tm-1800
  630 ifpeek(x7)<>96thentm=tm-1800
  635 ifpeek(x8)<>96thentm=tm-1800
  640 goto530
  645 da=2:fore=70to0step-2:poke59464,e:nexte:goto530
  650 ifda<>2then510
  660 pokex8,96:pokeqq,96:pokex4,96
  670 pokex5,96:pokex6,96:pokex7,96:qq=xx:m(i)=0:da=0:ad=0:goto155
  675 rc=151:goto690
  680 ifpeek(151)=6thenrc=151:goto690
  681 ifpeek(515)=6thenrc=515:goto690
  683 goto680
  690 print"{clr}pick a skill level....   (1,2,3,4,or 5)
  691 rem
  692 rem
  700 fori=1to15:getg$:nexti
  725 getg$:ifg$=""then725
  730 lv=val(g$):iflv<1orlv>5then725
  735 lv=lv-1:return
  750 fori=128to245step2:poke59464,i:print"{home}        out    of    ammunition!!
  751 poke59464,i+10:print"{home} {rvon}       out    of    ammunition!!      {rvof}":getg$
  752 poke59464,0:nexti
  753 b1=int(tm/200):b2=int(sc/2)
  754 ifb1*10+b2*200>peek(827)*10+peek(828)*200thenpoke827,b1:poke828,b2:poke829,lv+1
  755 print"{home}                                       "
  756 print"{home}{rght}{rvon}your score="b1*10+b2*200"_level"lv+1
  759 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                                       ";
  760 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rvon}high score="peek(827)*10+peek(828)*200"_level"peek(829)
  765 getg$:ifg$=""then765
  770 clr:run
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(6)"{rvon}target pong
    2 print"copyright 1978, commodore business      machines,  inc.
    3 for zz=1to1000:nextzz
    4 rem target pong - #g1004
   10 px=1:dimn%(9),pn$(9),ps%(9),pm%(9)
   20 print"{clr}           {rvon}target pong"
   25 print"{down}{down}try to hit the target -- W"
   30 print"experiment by pressing   {rvon}n{rvof}  and  {rvon}m{rvof}"
   35 print"{down}number of players (1-9)? ";:gosub1021:py=x
   36 print"{down}{rvon}press return after each name":gosub1100
   38 print:print:printtab(7)"{rvon}press return to begin"
   40 geta$:ifa$<>chr$(13)then40
   42 pl=pl+1:ifpl>pythenpl=1
   45 b$="{rvon}                                        ":v$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   50 ts=ti:tx=ts+6000:pc=1:pk=33268:d=1:rem  **  draw border *
   60 print"{clr}"b$"{home}{rvon}    player"pl"  -  "left$(pn$(pl),10)spc(12);
   70 fori=1to22:print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";
   75 next:print"{rvon}  press ! to quit  --  difficulty ="(20-n%(pl))/2"{left}"left$(b$,4);
   80 t=int(rnd(1)*900+32768):if(33248<t)and(t<33288)then80
   82 td=1:nn=n%(pl)
   85 ifpeek(t)<>32then80
   90 poket,87:rem    *** begin ***
   99 rem
  100 forii=1tonn:ifpeek(pe)=81thenpokepe,32
  120 pe=pk:geti$:ifi$<>""then500
  125 ifpeek(pk+d)<>32then300
  130 pk=pk+d:pokepk,81:next:poket,32:t=t+td*d
  135 ifpeek(t)<>32thentd=-td:t=t+td*d
  140 poket,87:goto100
  300 ifti>txthenps=0:goto810
  302 ifpeek(pk+d)=78thenpk=pk+d:d=d-sgn(d)*41:goto100
  305 ifpeek(pk+d)=77thenpk=pk+d:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40):goto99
  310 d=-d:ifpeek(pk-d)=87then800
  315 goto100:rem         ^*direct hit*^
  500 ifi$="n"then600
  505 ifi$="m"then700
  510 ifi$="!"thenps=0:goto810
  520 goto125
  600 o=d:pc=pc+1:pokepk,78
  605 d=d-sgn(d)*41:goto100
  606 ifpeek(pk+d)=78thenpk=pk+d
  700 o=d:pc=pc+1:pokepk,77
  705 ifo=-1thend=-40:rem    "M"
  710 ifo=40thend=1
  715 ifo=1thend=40
  720 ifo=-40thend=-1
  725 goto100
  800 ps=1000-12*(pc-1)-int((ti-ts)/6):ifps<0thenps=1
  810 ps%(pl)=ps
  812 pm%(pl)=int((pm%(pl)*(px-1)+ps)/px)
  820 print"{clr}{down}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  822 print"{rght}{rght}{rght}{rvon}{SHIFT--}{$a0} player   {SHIFT--} dif {SHIFT--} score {SHIFT--} avrge {SHIFT--}"
  826 print"{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  828 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  830 fori=1topy
  832 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof} "pn$(i)(20-n%(i))/2" {SHIFT--} "ps%(i)tab(29)"{SHIFT--} "pm%(i)tab(37)"{rvon}{SHIFT--}"
  834 next
  836 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  838 print"{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
  840 printspc(10)"{rvon}this is game number"px
  844 print"{home}";:forkk=1to4+pl:print"{down}";:next:print"{rght}{rght}{rght}{rght}*":forkk=pltopy:print"{down}";:next
  850 ifpl=pythengosub900:fori=1topy:ps%(i)=0:next:px=px+1:goto38
  860 print"{down}{down}{down}{down}"spc(8)"{rvon}press return to continue":goto40
  900 print"{down}{down}{down}{down}"spc(4)"{rvon}change difficulties (y/n)?{rvof} ";:gosub1011
  910 ifa$="n"thenreturn
  920 print"{clr}{down}{down}{down}player number? ";:gosub1021:xx=x:ifx>pythen920
  928 a$=pn$(xx):aa=10
  930 ifmid$(a$,aa,1)=" "andaa>1thenaa=aa-1:goto930
  932 a$=left$(a$,aa)+"'s ":print"{down}{down}"a$"current difficulty is"(20-n%(xx))/2
  934 printspc(len(a$))"average score is"pm%(xx)
  936 printspc(len(a$))"score last game was"ps%(xx)
  940 print"{down}new difficulty level (1-9)? ";:gosub1021:n%(xx)=20-x*2
  950 print:print"{down}change another (y/n)? ";:gosub1011:ifa$="y"then920
  960 return
 1001 fori=1to100:geta$:ifa$<>""then1005
 1002 next:print"{rvon} {left}";
 1003 fori=1to100:geta$:ifa$<>""then1005
 1004 next:print"{rvof} {left}";:goto1001
 1005 ifval(a$)=0then1001
 1006 print"{rvof}"a$:s=val(a$):return
 1011 fori=1to100:geta$:ifa$<>""then1015
 1012 next:print"{rvon} {left}";
 1013 fori=1to100:geta$:ifa$<>""then1015
 1014 next:print"{rvof} {left}";:goto1011
 1015 ifa$<>"y"anda$<>"n"then1011
 1016 print"{rvof}"a$:return
 1021 fori=1to100:geta$:ifa$<>""then1025
 1022 next:print"{rvon} {left}";
 1023 fori=1to100:geta$:ifa$<>""then1025
 1024 next:print"{rvof} {left}";:goto1021
 1025 ifa$<"1"ora$>"9"then1021
 1026 print"{rvof}"a$:x=val(a$):return
 1100 print"{down}":fork=1topy:print"name of player"k"? {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1102 gosub1200
 1110 print:print"difficulty level for player"k"(1-9)? ";:gosub1021:n%(k)=20-2*x
 1120 next:return
 1200 b$=""
 1210 forj=1to50:geta$:ifa$<>""then1220
 1212 next:print"{rvon}{CBM-@}{left}";:forj=1to50:geta$:ifa$<>""then1220
 1214 next:print"{rvof}{CBM-@}{left}";:goto1210
 1220 a=asc(a$):ifa=13thenprint"{rvof}{CBM-@}":goto1250
 1222 ifa=20andlen(b$)>1thenb$=left$(b$,len(b$)-1):print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto1210
 1224 ifa=20andlen(b$)=1thenb$="":print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto1210
 1226 ifa=32or(64<aanda<98)thenprint"{rvof}"a$;:b$=b$+a$:iflen(b$)>9then1250
 1228 goto1210
 1250 b$=b$+"          ":pn$(k)=left$(b$,10)+"{SHIFT--} ":return
 63999 end:rem" end of target pong property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    0 clr:poke59468,12
    1 rem tcard copyright (c) 1979 glen fisher
    2 rem inspired by a program by herb sandy
    3 rem box 1535, corinth, ms 38834
    4 :
    5 rem cursor #13, sept, 1979
    6 rem box 550, goleta, ca. 93017
    7 rem lines 61000-65000 (c) 1979 cursor magazine
    8 :
   10 rem as of sep 25 79
   90 pg$="tcard":nm$="13":gosub62000
  100 gosub8600:ifei$<>""thenne=ne+1:goto100
  110 readt$:ift$<>""thennp=np+1:goto110
  200 mt=10:dimin(mt),ou(mt),rg(np),ov(np),np$(np)
  210 restore:fori=1tone:gosub8600:nexti:readt$
  220 fori=1tonp:readnp$(i):nexti:readt$
  300 hr=60:hd=12*hr
  900 restore
 1000 fore=1tone
 1010 gosub8600
 1020 ei$=ei$+" ("+en$+")"
 1030 print"{clr}{down}{down}employee ";ei$
 1040 fori=1tonp:rg(i)=0:ov(i)=0:nexti:rt=0:ot=0
 1100 forp=1tonp
 1110 print"{down}enter times for ";np$(p);":"
 1120 n=1
 1200 gosub7000:ifin<0thenn=n-1:goto1400
 1260 in(n)=in:ou(n)=ou
 1270 n=n+1:ifn<=mtthen1200
 1280 print"i can only handle";mt;"intervals":n=n-1:goto1400
 1400 ifn>0then1500
 1410 print"{down}skip employee ";ei$;" for ";np$(p);"? ";:gosub60000
 1420 ifleft$(in$,1)<>"y"then1110
 1430 ifp<>1then2100
 1440 print"{down}skip employee ";ei$;" altogether? ";:gosub60000
 1450 ifleft$(in$,1)<>"y"then2100
 1460 goto2400
 1500 print"{down}";ei$;" for ";np$(p)
 1520 print" #    in        out"
 1530 fori=1ton
 1540 printright$(str$(i),2);" ";
 1550 tm=in(i):gosub8500:printtm$;"  ";
 1560 tm=ou(i):gosub8500:printtm$
 1570 nexti
 1600 print"{down}any changes? ";:gosub60000
 1610 ifin$=""orleft$(in$,1)="n"then2000
 1700 print"{down}which entry? ";:gosub60000
 1710 ifin$=""then1500
 1720 i=val(in$):ifi>0andi<=nthen1750
 1730 ifi<>n+1ori>mtthenprint"numbers from 1 to";n;"{left}, please":goto1700
 1740 ifi=n+1thenn=n+1
 1750 gosub7000:ifit<0then1700
 1760 in(i)=in:ou(i)=ou:goto1700
 2000 tm=0:fori=1ton
 2010 et=ou(i)-in(i):ifet<0thenet=et+hd+hd
 2020 tm=tm+et:nexti
 2030 print"{down}{down}employee ";ei$;" for ";np$(p);"{down}"
 2040 gosub7200:print"work time: ";tm$
 2050 gosub7100:rg(p)=rg:ov(p)=ov:rt=rt+rg:ot=ot+ov
 2060 ifov=0then2100
 2070 print"{down}regular: ";:tm=rg:gosub7200:printtm$;
 2080 print"   overtime: ";:tm=ov:gosub7200:printtm$
 2100 print"{rght}{rght}{rght}{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{down}{down}
 2110 nextp
 2120 print"{down}{down}press any key for summary"
 2130 gett$:ift$=""then2130
 2200 print"{clr}";ei$;"  ssn ";ss$:print"{down}";wg$;"  ";
 2210 ifms$="m"thenprint"married";
 2211 ifms$="s"thenprint"single";
 2219 ifms$<>"m"andms$<>"s"thenprintms$;"???";
 2220 print"  ";ex$;" exemption";:ifex$<>"1"thenprint"s";
 2225 print:printtab(10);"{down}  reg     over{down}"
 2230 fori=1tonp:printnp$(i);tab(10);
 2240 tm=rg(i):gosub7200:printtm$;
 2250 tm=ov(i):gosub7200:print"  ";tm$
 2260 nexti
 2270 printtab(10);" {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}   {SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":printtab(10);
 2280 tm=rt:gosub7200:printtm$;
 2290 tm=ot:gosub7200:print"  ";tm$
 2300 ifp=npthen2400
 2305 print"{down}{down}press any key to continue";
 2310 gett$:ift$=""then2310
 2400 nexte
 2500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}want to run this again? ";:gosub60000
 2510 ifleft$(in$,1)="y"then900
 2520 end
 7000 pr$="{down} in":gosub8000:in=tm:ifin<0thenreturn
 7010 pr$="out":gosub8000:iftm<0thenprint"in time ignored.":goto7000
 7020 ou=tm:return
 7100 ov=0:rg=tm:iftm<=8*hrorright$(wg$,1)="e"thenreturn
 7110 rg=8*hr:ov=tm-rg:return
 7200 h=int(tm/hr):m=tm-h*hr
 7210 tm$=right$(" "+str$(h),3)+":"+right$(str$(100+m),2):return
 8000 printpr$;": ";
 8100 gosub60000:ifin$=""thentm=-1:return
 8110 gosub9000:ifz=1thenprint"hour not given":goto8000
 8120 h=val(left$(in$,z-1)):in$=mid$(in$,z+1):ifz$=":"then8200
 8130 ifh<100thenm=0:goto8300
 8140 t=int(h/100):m=h-t*100:h=t
 8160 goto8300
 8200 gosub9000:m=val(left$(in$,z-1))
 8210 in$=mid$(in$,z+1)
 8220 ifz<>3thenprint"minutes must be two digits":goto8000
 8300 ifh<1orh>12thenprint"no such hour":goto8000
 8310 ifm<0orm>59thenprint"no such minute":goto8000
 8315 ifz$=" "thenz$=left$(in$,1):in$=mid$(in$,2):goto8315
 8320 pm=0:ifz$="a"orz$="m"then8400
 8330 ifz$="p"orz$="n"thenpm=1:goto8400
 8340 ifz$<>""thenprint"use am,pm,noon,or midnite":goto8000
 8350 ifh<6or(h=6andm=0)orh=12thenpm=1
 8400 tm=h*60+m:iftm>=hdthentm=tm-hd
 8410 ifpmthentm=tm+hd
 8420 return
 8500 z=tm:pm=0:ifz>=hdthenpm=1:z=z-hd
 8510 ifz<hrthenz=z+hd
 8515 ifz<hrthenz=z+hd+hd
 8520 h=int(z/60):m=z-h*60
 8530 tm$=right$(str$(h),2)+":"+right$(str$(100+m),2)+" ":ifpmthentm$=tm$+"{rvon}"
 8535 tm$=tm$+mid$("ap",1+pm,1)+"m{rvof}"
 8540 return
 8600 readei$:ifei$=""thenreturn
 8610 readen$,ss$,wg$,ms$,ex$
 9000 forz=1tolen(in$):z$=mid$(in$,z,1)
 9010 ifz$<"0"orz$>"9"thenreturn
 9020 nextz:z=len(in$)+1:z$="":return
 9997 rem
 9998 rem code, name, ssn, wage,        single/married,# of exemptions
 9999 rem
 10000 data001,"fg",550-13-9042,9.50,s,1
 10010 data002,"sam d",533-83-7002,2.75e,m,3
 10020 data003,"dp",000-00-0000,1.25,s,0
 10030 data""
 11000 data"mon","tue","wed","thu","fri",""
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60205 gosub60500
 60210 print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthen60300
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979   page";pn
 60265 gosub60500
 60270 return
 60300 print"{clr}":clr:gosub60400:goto100
 60400 qk=525:ql=245:qm=134:qp=515:qq=234:qs=516:qv=1:cr$=chr$(13)
 60410 ifpeek(50000)=0thenreturn
 60420 qk=158:ql=216:qm=52:qp=151:qq=205:qs=152:qv=2
 60430 return
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1979  by glen fisher{down}
 62020 gosub60500
 62030 print"{down}perform time card calculations
 62080 print"{down}{down}{down}want directions? ";:gosub60000
 62090 ifleft$(in$,1)<>"y"then60300
 62100 lp=4:gosub 60200
 62110 print"this program is designed to help you
 62120 print"{down}process time cards. it can be customized
 62130 print"for your business by changing the data
 62140 print"{down}statements at lines 10000 and 11000.
 62150 print"{down}{down}for each employee in the data statements
 62160 print"at line 10000, you will be asked for
 62170 print"{down}'in' and 'out' times for each day in the
 62180 print"data statement at 11000.
 62185 gosub60200
 62190 print"time can be entered several ways. for
 62200 print"{down}example '8', '8:00', '8a', and '8am' all
 62210 print"mean '8:00am'.
 62220 print"{down}{down}{down}{rvon}note{rvof}: we assume (unless you specify
 62230 print"{down}otherwise) that 6:01-11:59 are 'am', and
 62240 print"12:00-6:00 are 'pm'.
 62241 print"{down}{down}(if you don't care to remember that rule
 62242 print"you can always specify either am or pm.)
 62249 gosub60200
 62250 print"12 o'clock (noon) can be expressed as:
 62260 print"{down}12:00pm, 12:00noon or 12n
 62270 print"{down}{down}12 midnight, as you might guess, is:
 62280 print"{down}12:00am, 12:00midnight or 12m
 62290 print"{down}{down}you can skip an employee by pressing
 62300 print"{down}{rvon}return{rvof} when asked for the time-in.
 62301 print"{down}if you enter an incorrect 'in' time,
 62302 print"{down}you can press {rvon}return{rvof} when asked for
 62303 print"{down}the out time. when you do this, you'll
 62304 print"{down}be asked again for the 'in' time.
 62309 gosub60200
 62310 print"when asked 'any changes', you can give
 62320 print"{down}the line you want to change. if you want
 62330 print"to add another time entry, give a number
 62340 print"one higher than the highest entry. (for
 62350 print"{down}example, if there are three entries,
 62360 print"{down}then give entry number 4 to add a new
 62370 print"{down}entry.)  you will then be asked for the
 62380 print"{down}new times.
 62390 gosub60200
   10 rem telengard v4.18
   20 rem (c)copyright 1981 by
   30 rem microcomputer games, inc.
   40 rem  all rights reserved
   45 poke59468,12:printchr$(142)
   50 gosub31000:poke135-82*pt,125:poke133-82*pt,125:clr
 1000 ss=-1:sc=32767:i=rnd(-ti*sc):gosub31000:sp=245-pt*29
 1002 ifptthenpoke148,peek(65532):poke149,peek(65533)
 1005 deffnup(h)=hand3:deffnlf(h)=int(h/4)and3:deffnr(h)=int(rnd(1)*h+1)
 1009 deffns(h)=int(h/256):deffnrd(i)=i-int(i/10)*10
 1015 s$="strintwiscondexchr":cm$="wxadshqpc82465{rght}"+chr$(20)+"{down}.{home}/*+"
 1020 mo$="gnoll   kobold  skeletonhobbit  zombie  orc     fighter mummy   "
 1025 mo$=mo$+"elf     ghoul   dwarf   troll   wraith  ogre    minotaur"
 1030 mo$=mo$+"giant   specter vampire demon   dragon  "
 1035 t$="refusesilvergold  gems  jewels"
 1100 dimp(3,3),s(5),sf(11),mi$(10),ma$(10),i(10),sp$(36),b(4),ex%(100)
 1103 dimm%(20),l%(20),h%(20),z$(9,2):xo=1.6915:yo=1.4278:zo=1.2462:w0=4694
 1105 mi$(1)="sword":ma$(1)=mi$(1):mi$(2)="armor":ma$(2)=mi$(2)
 1115 mi$(3)="shield":ma$(3)=mi$(3):mi$(4)="elven cloak":ma$(4)="elvn clk"
 1125 mi$(5)="elven boots":ma$(5)="elvn bts"
 1130 mi$(6)="ring of regeneration":ma$(6)="ring reg"
 1135 mi$(7)="ring of protection":ma$(7)="ring prot"
 1140 mi$(8)="scroll of rescue":ma$(8)="scrl resc"
 1145 mi$(9)="potion of healing":ma$(9)="pot heal"
 1150 mi$(10)="potion of strength":ma$(10)="pot strg"
 1155 b$="red   yellowgreen blue"
 1160 fori=1to36:readsp$(i):next:fori=1to20:m%(i)=0:next:fori=0to2:fork=0to9
 1161 readz$(k,i):nextk,i:gosub20500
 1162 datamagic missle,sleep,cure light wounds,light,turn undead,prot/evil,web
 1164 datalevitate,cause light wnds,detect traps,charm,strength,lightning bolt
 1166 datacure serious wnds,continual light,invisibility,hold monster
 1168 dataphantsml forces,pass wall,fireball,cause serious wnd,flesh to stone
 1169 datafear,finger of death,teleport,astral walk,power word kill,ice storm
 1170 datawall of fire,plague,time stop,raise dead,holy symbol,word of recall
 1172 datarestoration,prismatic wall
 1173 data salty,bold,loud,old,goodly,worthy,lofty,fine,rocky,aged
 1174 dataroad,eye,tooth,dragon,mug,demon,wharf,bridge,meade,ale
 1175 datatavern,alehouse,cellar,club,inn,house,inn,lodge,meadhall,resthouse
 1190 gosub32000:ifssthenifpeek(0)<>254thensys32139:poke0,254
 1200 print"{clr}           welcome to{down}{down}{down}":print"  {rvon}{SHIFT-POUND}    {rvof}{SHIFT-POUND}
 1206 print"   {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}    {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}                           {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}";
 1207 print"  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND} {CBM-*}{rvof} {rvon}{SHIFT-POUND}  {CBM-*}{rvof} {rvon}{SHIFT-POUND}{$a0}{$a0}{$a0}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}   {rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}  {CBM-*}{SHIFT-POUND}   {rvof}{SHIFT-POUND}
 1208 print" {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-I}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-I}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND} {rvof} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}
 1209 print"{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{CBM-I} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{CBM-I} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{rvon}  {rvof}{SHIFT-POUND} {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND}   {CBM-*}{rvon}  {rvof}{SHIFT-POUND}
 1210 print"                   {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}":print"                {rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}
 1213 print"{down}{down}would you like to:":print"   {rvon}s{rvof}tart a new character or"
 1214 print"   {rvon}r{rvof}ead in an old one?";
 1215 gosub16000:ifc$="{CBM-+}"then1215
 1216 ifc$<>"r"thenprint"start":gosub19000:goto1400
 1217 print"read":sys32164:poke59411,53:open1:input#1,nm$:printnm$" found"
 1218 input#1,vs:ifvs<4.18thenprint"%incorect version character":gosub19000:run
 1220 fori=0to5:input#1,s(i):next
 1230 input#1,lv:input#1,gd:input#1,tg:input#1,ex:input#1,ch:input#1,hp
 1240 input#1,cx:input#1,cy:input#1,cz:input#1,su:input#1,cs
 1250 fori=1to10:input#1,i(i):input#1,sf(i):next:input#1,sf(11)
 1260 fori=1to20:input#1,m%(i):input#1,l%(i):input#1,h%(i):next
 1265 gosub19800:forq=1to4:input#1,b(q):next
 1270 fori=0to100:input#1,ex%(i):next
 1285 ifcz=0thencz=1
 1286 ifcz<0thenprint"%this character is not in the dungeon!":gosub19000:run
 1290 print nm$;" read":close1:ifssthensys32139
 1295 gosub19000:print"{clr}";:gosub20300:gosub30025:sy=1
 1296 ifptthenpoke148,peek(65532):poke149,peek(65533)
 1298 goto2000
 1300 close2:gosub19000:print"{clr}";:gosub20300:gosub30025:sy=1:goto2000
 1400 print"{clr}<ret> to use stats"
 1500 fori=0to5:q=0:forq1=1to3:q=q+int(rnd(1)*6+1):nextq1:s(i)=q
 1510 printmid$(s$,i*3+1,3);str$(s(i));"  ":next
 1515 gosub16000:ifc$<>chr$(13)then1400
 1520 hp=s(3):ch=hp:gd=0:tg=0:cz=1:lv=1:fori=1to10:i(i)=0:sf(i)=0:next:sf(11)=0
 1600 gosub19800:cx=25:cy=13:ex=0:su=1:cs=1:print"{clr}your name,  noble sire? ";
 1602 gosub16200:ifd$=""thend$="demo":printd$;
 1604 nm$=d$:print
 1610 print"you are now descending into the"
 1620 print"depths of the telengard dungeon...":print"{down}{down}{down}{rvon}beware....{rvof}";
 1630 gosub19000:gosub19000:print"{clr}":l=1:gosub20300:gosub15000:sy=1:goto3000
 2000 fori=1to11:sf(i)=sf(i)-1:next:l=cz:gosub17000:ifsy=1thengosub15000
 2010 sy=1:ifi(6)=0orch=hpthen3000
 2015 ch=ch+i(6):ifch>hpthench=hp
 2020 gosub20300
 3000 ifrnd(1)>.3then4000
 3001 ifsf(6)>0andrnd(1)>.2then4000
 3005 poke33099,35:m=int(rnd(1)*20+1):ifsf(7)>0andm<5then3005
 3006 ifint(rnd(1)*20+1)<=i(4)then20900
 3007 ml=int((rnd(1)^1.5)*(cz*2+2)+1):gosub20700
 3008 ifsf(3)>0andun=1andrnd(1)>.8then3005
 3010 gosub16500:gosub19700:print"you have encountered a lvl"ml;m$
 3011 ifsf(9)>0andm<16andm<>11thengosub17500:goto4000
 3012 i=peek(sp):pokesp,18:print
 3013 printtab(23)"{rvon}lvl"str$(ml)" "m$:pokesp,i-1:print
 3015 pokesp,i-1:print:mh=int((rnd(1)^.5)*ml*m+1):l=ml
 3017 ifrnd(1)>.95thenonint(rnd(1)*3+1)goto3030,3045,3072
 3020 ifm<>9then3040
 3025 ifrnd(1)>.04*s(5)then3040
 3030 print"the "m$" likes your body":print"he heals you to full strength":ch=hp
 3037 gosub20300:gosub19000:gosub20600:poke33099,32:goto4000
 3040 ifm<>4orrnd(1)<.05*s(5)then3070
 3045 print"the "m$" makes a quick move":gosub19000
 3050 fori=1to10:ifi(i)>0then3054
 3052 next:print"you have nothing he wants to steal!":goto3037
 3054 i=int(rnd(1)*10+1):ifi(i)<1then3054
 3056 print"he steals ";:ifi<8thenprint"your "mi$(i):i(i)=0:goto3037
 3060 print"a "mi$(i):i(i)=i(i)-1:goto3037
 3070 ifm<>20orrnd(1)*30>s(5)then3090
 3072 i=int(rnd(1)*7+1):ifi(i)>=mlthen3090
 3074 c=ml-i(i):c=int(rnd(1)*c+1):i(i)=i(i)+c
 3076 print"the "m$" likes you!":gosub17500
 3078 print"he gives you a "mi$(i)" +"i(i):gosub20300:gosub17500
 3080 poke33099,32:gosub20600:goto4000
 3090 ifrnd(1)>.5+s(4)*.02then3300
 3100 print"{rvon}f{rvof}ight, {rvon}c{rvof}ast, or {rvon}e{rvof}vade:";:gosub16000
 3102 ifc$="{CBM-+}"thenprint"wait"
 3105 fori=1to7:ifmid$("fce0.-{CBM-+}",i,1)=c$then3115
 3110 next:print:print"the "m$" is not amused":gosub17500:goto3100
 3115 onigoto3200,3400,3700,3200,3400,3700,3300
 3200 i=int(rnd(1)*20)+lv+i(1)+s(0)/2:print"fight"
 3202 ifsf(1)>0theni=i+4
 3204 ifi<10thenprint"you missed...":goto3300
 3205 i=int(rnd(1)*8+rnd(1)*lv*2+i(1)+1):ifsf(1)>0theni=i+5
 3207 print"you do"i"points damage"
 3210 mh=mh-i:ifmh>0then3300
 3220 print"it died..."
 3223 poke33099,32:e=ml*m*10:ex=ex+e:gosub19000
 3225 gosub20600:print"you gain"e"experience points":gosub20300:gosub18000
 3230 gosub17500:goto3900
 3300 db=1:pa=0:dr=0:mb=0:goto3330
 3305 i=int(rnd(1)*20)+ml-i(2)-i(3)+mb
 3306 ifm>16andm<20andsf(4)>0theni=i-6
 3310 ifi<10thenprint"it missed...":gosub17500:goto3100
 3315 i=int((rnd(1)*8+rnd(1)*ml*2+1)*db):print"it does"i"points damage"
 3320 ch=ch-i:gosub20260:ifch<1then9000
 3321 gosub19000:ifrnd(1)>drorsf(4)>0then3326
 3322 gosub17000:print"it drains a level!!!":ex=int(ex/2)
 3323 iflv=1thenex=-1
 3324 gosub18000:gosub17500:goto3100
 3326 ifrnd(1)>pathengosub17500:goto3100
 3327 gosub17000:print"you're paralized!!!!":gosub17500:goto3300
 3330 ifm=13thendr=.1:goto3305
 3335 ifm=17thendr=.2:goto3305
 3340 ifm=18thendr=.3:pa=.3:goto3305
 3345 ifm=10thenpa=.5:goto3305
 3350 ifm<>19then3365
 3352 gosub17500
 3355 ifrnd(1)>.6thenprint"it uses it's sword!!!":mb=4:db=3:goto3305
 3360 print"it uses it's whip!!":mb=2:db=2:goto3305
 3365 ifm<>20then3305
 3370 ifrnd(1)>.3thenmb=5:db=2:goto3305
 3375 print"the dragon breaths fire!!!":gosub17500
 3378 i=int(rnd(1)*20*ml+1):ifrnd(1)<.05*s(3)then3382
 3380 print"you partially dodge it":i=int(i/2+.5)
 3382 print"you burn for"i"points damage":goto3320
 3400 d=1:goto21000
 3700 q=int(rnd(1)*18+1):print"evade"
 3705 ifq<s(4)+i(5)then3710
 3707 print"you're rooted to the spot":gosub17500:gosub16500:goto3300
 3710 ifsf(8)>0thenc=fnr(4):goto3795
 3715 onfnr(4)goto3720,3730,3740,3750
 3720 c=1:iffnup(l%)<3then3795
 3730 c=2:iffnup(p(2,1))<3then3795
 3740 c=3:iffnlf(l%)<3then3795
 3750 c=4:iffnlf(p(1,2))<3then3795
 3760 c=1:iffnup(l%)<3then3795
 3770 c=2:iffnup(p(2,1))<3then3795
 3780 c=3:iffnlf(l%)<3then3795
 3790 goto3707
 3795 gosub20600:gosub17000:goto8120
 3900 ifrnd(1)>.5then4002
 4000 ifrnd(1)>.2then6000
 4002 t=0:ifrnd(1)>.85thent=1
 4005 poke33099,36:gosub16500:c=0:ifrnd(1)>.7then4100
 4007 print"you see some ";:i=int(rnd(1)*5)
 4010 printmid$(t$,i*6+1,6):print"<ret> to pick up:";
 4011 ift=1thenifsf(2)>0andrnd(1)>.1thenprint:print"you detect traps!";
 4012 gosub16000:ifc$=chr$(13)then4020
 4015 print"leave it":gosub17500:goto6000
 4020 print"snarf it":ift=0then4040
 4025 q=int(rnd(1)*3*l+1):gosub17000
 4030 print"it's trapped!":print"you suffer"q"points damage"
 4035 ch=ch-q:gosub20260:ifch<1thengosub19000:goto9000
 4040 j=int(rnd(1)*i*l*200+1):print"it's worth"j"gold"
 4045 gd=gd+j:ifi=0andrnd(1)>.8thengosub20300:gosub17000:goto4200
 4050 gosub20300:goto4900
 4100 ifrnd(1)>.5then4200
 4105 print"you have found a treasure chest!!"
 4110 print"<ret> to open it:";
 4115 ift=1thenifsf(2)>0andrnd(1)>.1thenprint:print"you detect traps!";
 4120 gosub16000:ifc$<>chr$(13)thenprint"ignore it":goto6000
 4125 print"open it":ift=0then4140
 4130 gosub17500:print"chest explodes!!!!!":i=int(rnd(1)*10*cz+1):ch=ch-i
 4135 print"you suffer"i"points damage":gosub20260:ifch<1then9000
 4140 gosub17500:i=int(rnd(1)*1000*l^2+1)
 4145 ifrnd(1)>.9thenprint"inside, there is only cobwebs...":goto4900
 4150 print"inside is"i"gold pieces!":gd=gd+i:gosub20300:ifrnd(1)>.5then4900
 4155 c=1:gosub17500
 4200 i=int(rnd(1)*10+1):print"you see a ";
 4205 j=int(rnd(1)^.5*(l+1)+1):ifi>7thenprintmi$(i):goto4215
 4210 printmi$(i)" +"j
 4215 print"<ret> to pick it up:";:gosub16000:ifc$=chr$(13)then4225
 4220 print"leave it":goto4240
 4225 ifi<>1ort<>1then4235
 4230 print:print"it's a hostile sword!!":i=int(rnd(1)*i*5+1)
 4232 print"you suffer"i"damage points":ch=ch-i:gosub20300:ifch<1then9000
 4234 goto4900
 4235 print"it's yours!":i(i)=i(i)+1:ifi<8theni(i)=j
 4237 gosub20300
 4240 ifc=1andrnd(1)>.5thengosub17500:goto4200
 4900 poke33099,32:gosub17500
 4910 ifrnd(1)>.5thengosub30000:ifm<>0then3010
 6000 x=cx:y=cy:z=cz-1:gosub10010:j=fns(h%):i=fns(l%)
 6005 ifcz=1thenj=0
 6010 ifi>9theni=i-9:goto6010
 6012 ifj>9thenj=j-9:goto6012
 6013 ifcz=50andi=4theni=0
 6014 ifi=0andj<>4then8000
 6015 ifj=4then6500
 6020 onigoto6100,6300,6400,6500,6600,6700,6800,6900,7100
 6100 ifcz<>1then6200
 6102 j=4:goto6500
 6103 m$=z$(fnrd(cx*cy),0)+" "
 6104 m$=m$+z$(fnrd(cx+cy),1)+" "+z$(fnrd(cx*3+cy*7),2)+" "
 6105 gosub17000:sys839:poke33140,86
 6106 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{CBM-*}{down}{left}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-*}{rvon}{CBM-*}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}  {CBM-*}{rvon}{CBM-*}{down}{left}{left}{left}{left}{left}{left}      {left}{left}{left}{left}{left}{left}";
 6107 print"{down}{rvon} {down}{left} {down}{left}      {up}{left} {up}{left} {rvof}";:poke33140,86:print"{down}{down}{rght}{rght}{rght}{rght}{rght}":print
 6108 print"   "z$(fnrd(cx*cy),0):print"    "z$(fnrd(cx+cy),1)
 6109 print"     "z$(fnrd(cx*3+cy*7),2)
 6110 gosub16600:print"inn";:gosub16500:print"you have found the ";left$(m$,20)
 6111 print"they cash in your gold":ex=ex+gd:tg=tg+gd:gd=0:gosub20300
 6115 gosub18000:gosub30200:gosub17000:ch=hp:print"you have"tg"in the safe"
 6116 fori=0to11:sf(i)=0:next
 6119 cs=su:print"you spend the night":gosub19000
 6120 print"you feel better":gosub20300:gosub17000
 6125 print"press <ret> to return to dungeon,"
 6130 print"<home> save character on tape:";
 6135 gosub16000:ifc$="{CBM-+}"then6135
 6140 ifc$="{home}"thenprint:goto8600
 6142 ifc$<>chr$(13)thenprint"???":gosub17500:goto6125
 6145 print"reenter":gosub17500:cz=1:goto2000
 6200 gosub16600:print"elv";:gosub16500:print"you feel heavy for a moment"
 6210 gosub19000:cz=cz-1:goto2000
 6300 ifcz=50then6200
 6302 gosub16600:print"pit";:gosub16500:print"you see a pit"
 6303 ifsf(5)>0thenprint"you are hovering above a pit":goto6310
 6305 ifint(rnd(1)*20)>s(4)+i(5)then6330
 6310 print"do you want to descend?";:gosub16000:if c$="y"orc$="9"then6320
 6315 print"no":gosub17500:goto8000
 6320 print"yes":goto6335
 6330 print"you fall in!!":l=3:gosub20000:gosub19000
 6335 cz=cz+1:goto2000
 6400 gosub16600:print"tpt":gosub16500
 6403 print"zzap!! you've been teleported...":gosub30200
 6405 if((cx+cy)and1)=0thencz=cz-1:if((cx+cy)and2)=2thencz=cz+2
 6410 cx=cx+cz*8+cy*13:cy=cy+cz*6+cx*17
 6415 ifcx>200thencx=cx-200:goto6415
 6420 ifcy>200thency=cy-200:goto6420
 6425 ifcz=0thencz=1
 6430 ifcz>50thencz=50
 6435 ifrnd(1)>.8then6405
 6440 goto2000
 6500 gosub16600:ifj=4thenprint"/";
 6505 ifi=4thenprint"\";
 6510 gosub17000:print"you have found a circular stairway"
 6512 ifj=4andcz=1thenprint"you see {rvon}light{rvof} above"
 6515 print"do you want to ";:ifj=4thenprint"go {rvon}u{rvof}p, ";
 6525 ifi=4thenprint"go {rvon}d{rvof}own, ";
 6530 print:print"or {rvon}s{rvof}tay on the same level?";:gosub16000
 6532 ifc$="{CBM-+}"thenc$="s"
 6535 if(i<>4and(c$="d"orc$="1"))or(j<>4and(c$="u"orc$="7"))then6550
 6540 ifc$="u"orc$="7"thenprint"up":cz=cz-1:ifcz>0then2000
 6542 ifcz<=0then6103
 6545 ifc$="d"orc$="1"thenprint"down":cz=cz+1:goto2000
 6547 ifc$="s"orc$="5"thenprint"stay":gosub17000:goto8000
 6550 print"???":goto6510
 6600 gosub16600:print"alt":gosub17000:print"you have found a holy altar"
 6605 print"press <ret> to worship";:gosub16000:ifc$=chr$(13)then6630
 6610 ifrnd(1)>.7thengoto8000
 6615 print:print"dirty pagan trash!":gosub16600:print"#  ";
 6620 m=int(rnd(1)*20+1):gosub20700:ifun=0then6620
 6625 gosub17500:goto3007
 6630 print:print"press <ret> to donate money";:gosub16000
 6632 ifc$<>chr$(13)then6610
 6634 print:print"how much gold?";:gosub20800:gosub17000
 6636 ifc>gdthenprint"you don't have that much!";:goto6615
 6640 ifc<50*czthenprint"{up}";:goto6615
 6645 gd=gd-c:gosub20300:ifrnd(1)<c/(gd+c)then6660
 6655 print"thank you for your donation":gosub17500:goto8000
 6660 i=int(rnd(1)*7+1):ifsf(i)<0thensf(i)=0
 6665 sf(i)=sf(i)+int(rnd(1)*100*c/(gd+c)+1)
 6680 print"you've been heard":gosub17500:goto8000
 6700 gosub16600:print"fnt":gosub17000:print"you have found a fountain"
 6701 c=int(rnd(1)*5+1)
 6702 print"with running "mid$("whitegreenclearred  black",c*5-4,5)" water"
 6705 print"<ret> to drink some:";:gosub16000:ifc$=chr$(13)then6715
 6710 gosub17000:goto8000
 6715 gosub17000:ifrnd(1)>.6then6750
 6717 ifrnd(1)>1-c*.15then6730
 6720 print"you feel better":gosub19000:i=int(rnd(1)*3*cz+1)
 6725 print"you heal"i"points":ch=ch+i:ifch>hpthench=hp
 6727 gosub20260:gosub17500:goto8000
 6730 ifrnd(1)>.15*cthen6745
 6735 print"it's poison!!!":i=int(rnd(1)*3*cz+1):print"you lose"i"hit points"
 6740 ch=ch-i:gosub20260:ifch<1then9000
 6742 gosub17500:goto8000
 6745 gosub20100:gosub20300:gosub17500:goto8000
 6750 ifrnd(1)>.4thenprint"you feel refreshed!":gosub17500:goto8000
 6752 ifrnd(1)>.5then6780
 6755 ifrnd(1)>.5then6770
 6760 print"magical power surges through your body":cs=cs+int(rnd(1)*4*cz+1)
 6765 print"you now have"cs" spells":gosub20250:gosub17500:goto8000
 6770 print"you have been dispossessed!!":fori=1to10:i(i)=0:next:gosub19000
 6775 gosub17500:print"{clr}":gosub20300:gosub15000:gosub30025:goto8000
 6780 print"you feel refreshed!":gosub17500:print"actually you're drunk!!"
 6785 ifsf(11)<0thensf(11)=0
 6786 sf(11)=sf(11)+int(rnd(1)*16+1):gosub15000:gosub17000:goto8000
 6800 gosub16600:print"gcb":gosub17000:print"you see a large gray misty cube"
 6805 print"<ret> to walk in:";:gosub16000:ifchr$(13)<>c$then8000
 6810 ifrnd(1)>.2then6815
 6812 cz=int(rnd(1)*50+1):goto6820
 6815 print:print"a number from 1 to 50:";:gosub20800:ifc$="{CBM-+}"then6812
 6817 ifc<1orc>50thenprint"no you fool!!";:gosub17500:goto6810
 6818 cz=c
 6820 sys839:print"{home}{down}{down}{rght}you float":print"     in space....";:goto2000
 6900 gosub16600:print"thr";:gosub17000:print"you see a jewel encrusted throne"
 6905 print"do you want to {rvon}p{rvof}ry some jewels,"
 6910 print"{rvon}s{rvof}it down, {rvon}r{rvof}ead the runes,":print"or {rvon}i{rvof}gnore it:";
 6915 gosub16000:ifc$="i"orc$="{CBM-+}"thenprint"ignore":gosub17500:goto8000
 6920 ifc$<>"p"then6950
 6925 print"pry":gosub17500:ifrnd(1)>.7then7030
 6930 ifrnd(1)>.4then7025
 6935 print"they pop into your greedy hands!!":i=int(rnd(1)*1000*cz+1)
 6940 print"they are worth"i"gold":gd=gd+i:gosub20300:gosub17500:goto8000
 6950 ifc$<>"s"then6985
 6955 print"sit";:gosub17500:ifrnd(1)>.7then7030
 6960 ifrnd(1)>.6then7025
 6965 ifrnd(1)>.4then6403
 6970 print"a loud gong sounds!";:gosub17500:ifrnd(1)<.5then6975
 6973 ex=int(ex/2):iflv=1thenex=-1
 6974 gosub18000:goto8000
 6975 iflv>czthenprint"nothing happens...";:goto7010
 6980 ex=1000*2^lv:gosub18000:goto8000
 6985 ifc$<>"r"then7015
 6990 print"read";:gosub17500
 6992 ifrnd(1)>.7then7030
 6995 ifrnd(1)<s(1)*.05then7005
 7000 print:print"you don't understand them...";:goto7010
 7005 print:print"a mysterious magic grips you..":gosub20200
 7010 gosub17500:goto8000
 7015 print"???";:gosub17500:goto6900
 7025 print"nothing happens...";:goto7010
 7030 m=int(rnd(1)*20+1):gosub19700
 7032 print"the "m$" king returns!!":gosub17500:gosub16600:gosub20700
 7035 print"   ";:poke33099,35:ml=int(rnd(1)*cz*5)+5:goto3010
 7100 gosub16600:print"saf":gosub17000
 7105 print"you see a small box with four colored"
 7110 print"lights. {rvon}p{rvof}ush buttons or {rvon}i{rvof}gnore:";:gosub16000
 7115 ifc$<>"p"thenprint"ignore":gosub17500:goto8000
 7120 print"push":gosub17500:cb=1
 7125 print"push {rvon}r{rvof}ed, {rvon}g{rvof}reen, {rvon}y{rvof}ellow, {rvon}b{rvof}lue":print"or {rvon}s{rvof}top:";
 7130 gosub16000:ifc$="s"orc$="{CBM-+}"thenprint"stop";:gosub17500:goto8000
 7135 forc=1to4:ifc$=mid$(b$,c*6-5,1)thenm$=mid$(b$,c*6-5,6):goto7145
 7140 next:print"???":gosub17500:goto7125
 7145 gosub19705:printm$:ifb(cb)<>cthen7170
 7150 cb=cb+1:ifcb<5thengosub17500:goto7125
 7155 print"it opens!!!!  ";:gosub17500:print"inside you find jewels worth"
 7160 gosub19800:i=int(rnd(1)*20000*cz^2+1):printi"in gold!!":gd=gd+i:gosub20300
 7165 gosub17000:goto8000
 7170 i=int(rnd(1)*2*cz+1):print"an electric bolt shoots through you!!"
 7175 gosub17500:print"you suffer"i"points damage":ch=ch-i:gosub20260
 7180 ifch<1then9000
 7185 gosub17500:goto8000
 8000 m=0:gosub16500:gosub17000:print"->";:gosub16000:ifc$="{CBM-+}"thenc$="s"
 8100 forc=1to22:ifmid$(cm$,c,1)=c$then8117
 8110 next
 8115 print"{left}{left}no";:fori=1to200:next:goto8000
 8117 ifc>9thenc=c-9
 8118 ifsf(11)>0andc<6thenprint"you're confused ->";:c=fnr(5)
 8120 oncgoto8150,8200,8250,8300,8350,8800,8700,8900,8970,8600,8910,8925,8945
 8150 iffnup(l%)>2andsf(8)<1orcy=1then8115
 8155 print"north";:cy=cy-1:gosub30100:goto2000
 8200 iffnup(p(2,1))>2andsf(8)<1orcy=200then8115
 8205 print"south";:cy=cy+1:gosub30100:goto2000
 8250 iffnlf(l%)>2andsf(8)<1orcx=1then8115
 8255 print"west";:cx=cx-1:gosub30100:goto2000
 8300 iffnlf(p(1,2))>2andsf(8)<1orcx=200then8115
 8305 print"east";:cx=cx+1:gosub30100:goto2000
 8350 print"stay":forq=33099to33101:pokeq,32:next:gosub30000:ifm<>0then3010
 8355 sy=0:goto2000
 8600 print"store ";nm$", ";:ifnm$<>"demo"then8602
 8601 print:print"%cannot store demonstration character!":goto8696
 8602 ifssthensys32164
 8603 poke243-pt*29,122:poke244-pt*29,2:open1,1,1,nm$
 8604 print#1,nm$:print#1,4.18:fori=0to5:print#1,s(i):next:poke59411,53
 8605 print#1,lv:print#1,gd:print#1,tg:print#1,ex:print#1,ch:print#1,hp
 8607 print#1,cx:print#1,cy:print#1,cz:print#1,su:print#1,cs
 8610 fori=1to10:print#1,i(i):print#1,sf(i):next:print#1,sf(11)
 8620 fori=1to20:print#1,m%(i):print#1,l%(i):print#1,h%(i):next
 8625 fori=1to4:print#1,b(i):next
 8630 fori=0to100:print#1,ex%(i):next
 8690 close1:printnm$" stored":ifssthensys32139
 8691 run
 8696 gosub17500:ifcz=0then6125
 8698 goto8000
 8700 print"quit":print"are you sure?";:gosub16000
 8702 ifc$<>"y"andc$<>"9"thenprint"no":gosub17500:goto8000
 8710 print"yes":print"good bye cruel world!!":gosub19000:goto9000
 8800 sys839:print"{home} clr  csr^ csr_ del"
 8810 print"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}":print"{SHIFT--}str {SHIFT--}re- {SHIFT--}help{SHIFT--}quit{SHIFT--}"
 8820 print"{SHIFT--} chr{SHIFT--}plot{SHIFT--}    {SHIFT--}    {SHIFT--}":print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 8830 print"{SHIFT--}7   {SHIFT--}8{rvon}{SHIFT-POUND}{CBM-*}{rvof} {SHIFT--}9   {SHIFT--}scrl{SHIFT--}/":print"{SHIFT--} up {SHIFT--} {CBM-M}{CBM-G} {SHIFT--}yes {SHIFT--}resc{SHIFT--}"
 8845 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}":print"{SHIFT--}4{rvon}{SHIFT-POUND}{rvof}{CBM-@} {SHIFT--}5   {SHIFT--}6{CBM-@}{rvon}{CBM-*}{rvof} {SHIFT--}pot {SHIFT--}*"
 8860 print"{SHIFT--} {CBM-*}{CBM-T} {SHIFT--}stay{SHIFT--} {CBM-T}{SHIFT-POUND} {SHIFT--}heal{SHIFT--}":print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 8870 print"{SHIFT--}1   {SHIFT--}2{CBM-M}{CBM-G} {SHIFT--}3   {SHIFT--}pot {SHIFT--}+":print"{SHIFT--}down{SHIFT--} {CBM-*}{SHIFT-POUND} {SHIFT--} no {SHIFT--}strg{SHIFT--}"
 8880 print"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}":print"{SHIFT--}0   {SHIFT--}.   {SHIFT--}-   {SHIFT--}list{SHIFT--}="
 8890 print"{SHIFT--}fght{SHIFT--}cast{SHIFT--}run {SHIFT--}spls{SHIFT--}":print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 8892 print"{down}{rght}{rght}{rght}cbm graphics keypad"
 8896 gosub17000:print"hit any key to continue...";:gosub16000:gosub17500
 8898 gosub15000:goto8000
 8900 print"re-plot":gosub19000:print"{clr}";:gosub20300:gosub15000
 8905 gosub30025:goto8000
 8910 print"use scroll of rescue"
 8915 ifi(8)<1then8920
 8917 i(8)=i(8)-1:cx=25:cy=13:cz=1:print"***zap!!***":gosub19000:gosub30200
 8918 gd=0:gosub20300:goto2000
 8920 print"you don't have one!!"
 8922 gosub17500:goto8000
 8925 print"drink healing potion":ifi(9)<1then8920
 8935 i(9)=i(9)-1:gosub20300:ch=ch+fnr(20):ifch>hpthench=hp
 8940 print"you feel better!":gosub20300:goto8922
 8945 print"drink strength potion":ifi(10)<1then8920
 8950 ifsf(1)<0thensf(1)=0
 8955 sf(1)=sf(1)+10+int(rnd(1)*20):print"strength flows through your body"
 8960 i(10)=i(10)-1:gosub20300:goto8922
 8970 d=0:goto21000
 9000 gosub17000:print"you died!!":gosub17500:ifsf(10)>0then27205
 9002 print"{clr}{down}{down}{down}{down}{down}another ";:iflv<4thenprint"not so ";
 9005 print"mighty adventurer":print"bites the dust{down}{down}{down}{down}"
 9010 print"do you want to try again?";
 9012 gosub16000:ifc$="n"orc$="3"then9020
 9013 ifc$="{CBM-+}"then9012
 9015 print"yes":clr:goto1000
 9020 print"no":print"{down}{down}so long.....":goto32767
 10010 q=x*xo+y*yo+z*zo+(x+xo)*(y+yo)*(z+zo)
 10020 h%=(q-int(q))*w0:if fns(h%)>5thenh%=h%and255
 10025 ifint(h%/256)>0thenh%=(int((q*10-int(q*10))*15+1)*256)or(h%and255)
 10030 ifx=1orx=201thenh%=h%or12
 10035 ify=1ory=201thenh%=h%or3
 10040 return
 10050 ifw<2thenreturn
 10055 forq=0to6:pokesc+l%+q,160:nextq:ifw>2thenreturn
 10060 forq=2to4:pokesc+l%+q,64:nextq:return
 10075 ifw<2thenreturn
 10080 forq=0to6:pokesc+l%+q*40,160:nextq:ifw>2thenreturn
 10085 forq=2to4:pokesc+l%+q*40,66:nextq:return
 15000 z=cz:forq2=0to3:y=cy+q2-1:forq1=0to3:x=cx+q1-1:gosub10010
 15005 p(q2,q1)=h%:next:next:sys839:gosub16500:print"{up}{up}"
 15007 ss=-1:fori=1to11:ifsf(i)<1then15011
 15009 ifpos(0)>19thenprint:print"{up}{up}";
 15010 printmid$("strgdtrplghtprotlevtinvsfearastwtmstrseddrnk",i*4-3,4)":";
 15011 next:iffnup(p(1,1))>1orfnlf(p(0,1))>1then15015
 15012 l%=4:w=fnup(p(0,0)):gosub10050
 15015 iffnup(p(1,0))>1orfnlf(p(1,1))>1then15025
 15020 l%=4:w=fnlf(p(0,0)):gosub10075
 15025 iffnup(p(1,1))>1then15040
 15030 l%=10:w=fnup(p(0,1)):gosub10050:w=fnlf(p(0,1)):gosub10075
 15035 l%=16:w=fnlf(p(0,2)):gosub10075
 15040 iffnup(p(1,1))>1orfnlf(p(0,2))>1then15045
 15042 l%=16:w=fnup(p(0,2)):gosub10050
 15045 iffnlf(p(1,2))>1orfnup(p(1,2))>1then15055
 15050 l%=22:w=fnlf(p(0,3)):gosub10075
 15055 iffnlf(p(1,2))>1then15080
 15060 l%=256:w=fnup(p(1,2)):gosub10050:l%=262:w=fnlf(p(1,3)):gosub10075
 15070 l%=496:w=fnup(p(2,2)):gosub10050
 15080 iffnup(p(2,1))>1orfnlf(p(2,2))>1then15085
 15082 l%=736:w=fnup(p(3,2)):gosub10050
 15085 iffnlf(p(1,2))>1orfnup(p(2,2))>1then15100
 15090 l%=502:w=fnlf(p(2,3)):gosub10075
 15100 iffnup(p(2,1))>1then15120
 15105 l%=496:w=fnlf(p(2,2)):gosub10075
 15110 l%=730:w=fnup(p(3,1)):gosub10050:l%=490:w=fnlf(p(2,1)):gosub10075
 15120 iffnup(p(2,1))>1orfnlf(p(2,1))>1then15125
 15122 l%=724:w=fnup(p(3,0)):gosub10050
 15125 iffnlf(p(1,1))>1orfnup(p(2,0))>1then15140
 15130 l%=484:w=fnlf(p(2,0)):gosub10075
 15140 iffnlf(p(1,1))>1then15155
 15145 l%=484:w=fnup(p(2,0)):gosub10050
 15150 l%=244:w=fnlf(p(1,0)):gosub10075:w=fnup(p(1,0)):gosub10050
 15155 l%=250:w=fnlf(p(1,1)):gosub10075:w=fnup(p(1,1)):gosub10050
 15160 l%=256:w=fnlf(p(1,2)):gosub10075:l%=490:w=fnup(p(2,1)):gosub10050
 15200 poke33140,86:l%=p(1,1):ifsf(3)<=0thenreturn
 15300 iffns(p(0,0))=0then15320
 15305 iffnup(p(1,0))<2andfnlf(p(1,1))<2then15315
 15310 iffnup(p(1,1))>1orfnlf(p(0,1))>1then15320
 15315 poke32894,102
 15320 iffns(p(0,1))<>0andfnup(p(1,1))<2thenpoke32900,102
 15340 iffns(p(0,2))=0then15360
 15345 iffnup(p(1,1))<2andfnlf(p(0,2))<2then15355
 15350 iffnup(p(1,2))>1orfnlf(p(1,2))>1then15360
 15355 poke32906,102
 15360 iffns(p(1,2))<>0andfnlf(p(1,2))<2thenpoke33146,102
 15380 iffns(p(2,2))=0then15400
 15385 iffnup(p(2,2))<2andfnlf(p(1,2))<2then15395
 15390 iffnup(p(2,1))>1orfnlf(p(2,2))>1then15400
 15395 poke33386,102
 15400 iffns(p(2,1))<>0andfnup(p(2,1))<2thenpoke33380,102
 15420 iffns(p(2,0))=0then15440
 15425 iffnup(p(2,0))<2andfnlf(p(1,1))<2then15435
 15430 iffnup(p(2,1))>1orfnlf(p(2,1))>1then15440
 15435 poke33374,102
 15440 iffns(p(1,0))<>0andfnlf(p(1,1))<2thenpoke33134,102
 15499 return
 16000 forq=1to100:getc$:ifc$=""then16010
 16005 ifc$<>chr$(3)thenreturn
 16006 print"{rvon}no r/s{left}{left}{left}{left}{left}{left}";:fori7=1to500:next:print"{rvof}      {left}{left}{left}{left}{left}{left}";:goto16000
 16010 next:ifnm$="demo"then16000
 16015 c$="{CBM-+}":return
 16200 d$=""
 16205 print"{CBM-@}";
 16206 getc$:ifc$=""then16206
 16210 print"{left} {left}";:ifc$=chr$(13)thenreturn
 16215 ifc$<>chr$(20)then16235
 16220 iflen(d$)=0then16205
 16225 print"{left} {left}";:iflen(d$)<2then16200
 16230 d$=left$(d$,len(d$)-1):goto16205
 16235 iflen(d$)>=30or((c$<"0"orc$>"9")and(c$<"a"orc$>"z"))then16205
 16240 d$=d$+c$:printc$;:goto16205
 16500 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:return
 16600 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:return
 17000 sys826:gosub16500:return
 17500 gosub19000:goto17000
 18000 ifex<1000*2^lvthen18040
 18010 gosub17000:print"you went up a level!";:lv=lv+1:j=int(rnd(1)*s(3)+1)
 18015 ch=ch+j:hp=hp+j:ifex>1000*2^lvthenex=1000*2^lv-1
 18017 cs=cs+lv:su=su+lv
 18020 gosub20300:gosub17500:print"you gain"j"hit points":return
 18040 iflv=1andex>=0thenreturn
 18050 ifex>=1000*2^(lv-1)thenreturn
 18055 cs=cs-lv:su=su-lv:ifcs<0thencs=0
 18060 print"you go down a level!";:lv=lv-1:j=int(rnd(1)*s(3)+1)
 18070 ch=ch-j:hp=hp-j:gosub20300:gosub17500:print"you lose"j"hit points"
 18075 ifch>0andlv>0thenreturn
 18080 gosub19000:goto9000
 19000 forq=1to1200:next:return
 19500 forq=1to100:next:return
 19700 m$=mid$(mo$,m*8-7,8)
 19705 ifright$(m$,1)=" "thenm$=left$(m$,len(m$)-1):goto19705
 19710 return
 19800 forq=1to4:b(q)=int(rnd(1)*4+1):nextq:return
 20000 d=int(rnd(1)*l*6+1):print"you suffer"d"hit points":ch=ch-d
 20005 ifch>0thengosub20260:return
 20010 print"your life has been terminated":gosub20300:gosub17500:goto9000
 20100 i=int(rnd(1)*500*cz+1):print"you just ";
 20110 ifrnd(1)>.5thenprint"lost";:i=-i:goto20120
 20115 print"gained";
 20120 printabs(i);"experience points":ex=ex+i:gosub18000:return
 20200 i=int(rnd(1)*6):ifrnd(1)>.5then20220
 20210 ifs(i)=18then20200
 20215 print"your ";mid$(s$,i*3+1,3);" goes up";:s(i)=s(i)+1:goto20240
 20220 ifs(i)=3then20200
 20225 print"your ";mid$(s$,i*3+1,3);" goes down";:s(i)=s(i)-1
 20240 print" by 1":gosub20300:gosub19000:return
 20250 k=peek(sp):print"{home}{down}{down}{down}{down}":en=2:goto20322
 20260 k=peek(sp):print"{home}{down}{down}{down}":en=3:goto20320
 20300 en=1:k=peek(sp):print"{home}"
 20301 printtab(23)"{up}"left$(nm$,7);tab(31)"lvl"str$(lv)" "
 20302 printtab(23)"str"str$(s(0));:gosub20400:print"con"str$(s(3))
 20305 printtab(23)"int"str$(s(1));:gosub20400:print"dex"str$(s(4))
 20310 printtab(23)"wis"str$(s(2));:gosub20400:print"chr"str$(s(5))
 20320 printtab(23)"hp"str$(ch)"/"mid$(str$(hp),2)"  "
 20321 ifen=3then20396
 20322 printtab(23)"su"str$(cs)"/"mid$(str$(su),2)"  "
 20323 ifen=2then20396
 20325 c$=left$(str$(ex),14):printtab(23)"ex";c$;left$("          ",14-len(c$))
 20330 c$=left$(str$(gd),14):printtab(23)"gd";c$;left$("          ",14-len(c$))
 20335 fori=1to10:ifi<4thenifi(i)>=0then20345
 20340 ifi(i)<1then20380
 20345 printtab(24);:ifi>7then20365
 20350 printma$(i);:ifi(i)>0thenprint" +"mid$(str$(i(i)),2);" ";:goto20355
 20352 print"    ";
 20355 print:goto20380
 20365 printstr$(i(i))" "ma$(i)
 20380 next
 20390 printtab(23)"                ";
 20396 ifk<3thenk=3
 20398 pokesp,k-1:print:return
 20400 ifpos(0)<31thenprint" ";:goto20400
 20410 return
 20500 fori=826to885:readj:pokei,j:next:return
 20510 data160,0,169,32,153,32,131,200,192,200,208,248,96,162,0,169,128,141,89
 20520 data3,169,0,141,88,3,169,32,160,0,153,0,128,200,192,22,208,248,173,88,3
 20530 data24,105,40,141,88,3,173,89,3,105,0,141,89,3,232,224,20,208,222,96
 20600 pokesp,18:print:printtab(23);"               "
 20605 gosub17000:poke33099,32:return
 20700 un=0:ifm=3orm=5orm=8orm=10orm=13orm=17orm=18thenun=1
 20705 return
 20800 d$=""
 20805 gosub16000:ifc$<>chr$(20)then20825
 20810 ifd$=""then20805
 20815 print"{left} {left}";:iflen(d$)=1then20800
 20820 d$=left$(d$,len(d$)-1):goto20805
 20825 ifc$=chr$(13)thenc=val(d$):print:return
 20826 ifc$="{CBM-+}"thenc=0:return
 20827 iflen(d$)>9then20805
 20828 ifc$="-"andd$=""then20835
 20830 ifc$<"0"orc$>"9"then20805
 20835 printc$;:d$=d$+c$:goto20805
 20900 gosub16500:print"you have not been noticed..."
 20905 print"<ret> to approach:";:gosub16000
 20910 ifc$=chr$(13)thengosub17000:goto3007
 20915 poke33099,32:gosub17000:goto4000
 21000 print"cast":print"spell level:";:gosub16000:c=val(c$):printc$
 21002 ifc>0andc<=int(lv/3)+1andc<7then21010
 21004 ifc=0then21910
 21005 print"you don't have that level spells!":gosub19000:goto21910
 21010 ifc>csthenprint"you don't have enough spell units!":goto21900
 21020 print"spell( = to list):";:gosub16000:ifc$=chr$(13)orc$="{CBM-+}"then21910
 21025 ifc$<"1"orc$>"6"thenc$="="
 21030 ifc$="="then21040
 21035 cs=cs-c:gosub20250:printtab(18);:goto21050
 21040 gosub17000:print"{up}":fori=1to3:printi;left$(sp$(i+6*(c-1)),20);
 21045 printtab(20);i+3;left$(sp$(i+3+6*(c-1)),19):next
 21046 print:print"press any key to continue...";:gosub16000:gosub17000
 21047 ifc$<"1"orc$>"6"then21020
 21048 goto21035
 21050 s=val(c$):oncgoto22000,23000,24000,25000,26000,27000
 21700 mh=mh-i:print"it suffers"i"hit points":ifmh>0then21900
 21705 goto3220
 21750 print"not in melee!!":gosub17500:goto3300
 21800 print"you just wasted a combat spell!"
 21900 gosub17500:ifd=1then3300
 21905 goto8000
 21910 gosub17000:ifd=1then3100
 21915 goto8000
 21920 gosub17500:gosub20600:goto4000
 21930 print"undead are already dead!!":goto21900
 22000 onsgoto22100,22200,22300,22400,22500,22600
 22100 printsp$(1):gosub17500:ifd=0then21800
 22105 i=int(rnd(1)*8+5):goto21700
 22200 printsp$(2):gosub17500:ifd=0then21800
 22202 ifun=1thenprint"undead don't sleep!":goto3300
 22205 ifint(rnd(1)*20+1)>s(1)thenprint"the "m$" isn't sleepy!":goto3300
 22210 print"the "m$" is sleeping":print"press <ret> to kill:";:gosub16000
 22215 ifc$<>chr$(13)thengosub17000:goto3710
 22220 ifrnd(1)>.2then3220
 22225 print"it woke up!!":gosub19000:goto3300
 22300 printsp$(3):i=int(rnd(1)*8+1):print"you feel better":ch=ch+i
 22305 ifch>hpthench=hp
 22310 gosub20260:goto21900
 22400 s=4:t=3:u=11
 22402 printsp$(s):ifsf(t)<0thensf(t)=0
 22405 sf(t)=sf(t)+int(rnd(1)*u+5):goto21900
 22500 printsp$(5):gosub17500:ifd=0then21800
 22505 ifun=1then22515
 22510 print"the "m$" is insulted":print"at being called undead":goto21900
 22515 ifrnd(1)<.05*s(2)+.05*lv-.05*mlthen22525
 22520 print"the "m$" listens with deaf ears":goto21900
 22525 ml=int((ml/2)+.5):print"it runs in fear!!":goto3223
 22600 s=6:t=4:u=11:goto22402
 23000 onsgoto23100,23200,23300,23400,23500,23600
 23100 printsp$(7):gosub17500:ifd=0then21800
 23105 ifint(rnd(1)^2*20+ml)>s(1)thenprint"the "m$" dodges aside!":goto3300
 23110 print"the "m$" is webbed!":print"press <ret> to kill:";:gosub16000
 23115 ifc$<>chr$(13)thengosub17000:goto3710
 23120 ifrnd(1)-ml/20>.2then3220
 23125 print"it broke free!!":gosub19000:goto3300
 23200 s=8:t=5:u=21:goto22402
 23300 printsp$(9):gosub17500:ifd=0then21800
 23305 i=int(rnd(1)*12+3):goto21700
 23400 s=10:t=2:u=21:goto22402
 23500 printsp$(11):gosub17000:ifd=0then21800
 23502 ifun=1thenprint"the undead ignore your wiles!":goto3300
 23505 ifint((rnd(1)^2)*20+1)>s(5)thenprint"the "m$" resists you!":goto3300
 23510 print"the "m$" is charmed":print"press <ret> to kill:";:gosub16000
 23515 goto23115
 23600 s=12:t=1:u=21:goto22402
 24000 onsgoto24100,24200,24300,24400,24500,24600
 24100 printsp$(13):gosub17000:print"zzzzaaaapp!!!":ifd=0then21800
 24105 gosub19000:i=int(rnd(1)*6*lv+15):goto21700
 24200 printsp$(14):i=int(rnd(1)*24+1):print"you feel better":ch=ch+i
 24205 ifch>hpthench=hp
 24210 gosub20260:goto21900
 24300 s=15:t=3:u=31:goto22402
 24400 s=16:t=6:u=21:goto22402
 24500 printsp$(17):gosub17500:ifd=0then21800
 24505 ifint(rnd(1)*20+ml)>s(1)thenprint"the "m$" ignores you!":goto3300
 24510 print"the "m$" is held!":print"press <ret> to kill:";:gosub16000
 24515 ifc$<>chr$(13)thengosub17000:goto3710
 24520 ifrnd(1)>.2+ml*.03then3220
 24525 print"it broke free!!":gosub19000:goto3300
 24600 printsp$(18):gosub17500:ifd=0then21800
 24605 ifint(rnd(1)*22+ml)<s(1)then24615
 24610 print"the "m$" doesn't believe!":goto3300
 24615 print"it believes!....arrgh...":goto3220
 25000 onsgoto25100,25200,25300,25400,25500,25600
 25100 printsp$(19):gosub17500:ifd=1then21750
 25105 print"direction>";:gosub16000
 25110 fori=1to9:ifmid$("wxad8246{CBM-+}",i,1)=c$then25117
 25115 next:print"???":gosub17000:goto25105
 25117 ifi>4theni=i-4
 25118 ifi=5then21900
 25120 if(i=1andcy>1)or(i=2andcy<200)or(i=3andcx>1)or(i=4andcx<200)then25125
 25122 print"only stone there....":goto21900
 25125 gosub30200:print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}poof{rvof}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":onigoto8155,8205,8255,8305
 25200 printsp$(20):gosub17000:print"whoooooshh!!!":ifd=0then21800
 25205 print"the "m$" is burning!":i=int(rnd(1)*12*lv+15):gosub19000:goto21700
 25300 printsp$(21):gosub17500:ifd=0then21800
 25305 i=int(rnd(1)*32+10):goto21700
 25400 printsp$(22):gosub17500:ifd=0then21800
 25405 ifrnd(1)>.6thenprint"the "m$" isn't affected":goto3300
 25410 print"one stone statue....":goto3220
 25500 s=23:t=7:u=30:goto22402
 25600 printsp$(24):gosub17500:print"{rvon}die!!!!!!":ifd=0then21800
 25603 ifun=1then21930
 25605 gosub19000:ifrnd(1)>.3+ml*.04-lv*.03then3220
 25610 print"the "m$" laughs!":gosub17500:goto3300
 26000 onsgoto26100,26200,26300,26400,26500,26600
 26100 printsp$(25):gosub17500:ifd=1then21750
 26105 print"+north/-south:";:gosub20800:ny=c:print"+east/-west:";:gosub20800
 26110 nx=c:print"+up/-down:";:gosub20800:nz=c:i=sqr(nx^2+ny^2+(nz*5)^2)-.1
 26115 ifi>lv*5thenprint"too far...try again":gosub17500:goto26105
 26120 nx=cx+nx:ny=cy-ny:nz=cz-nz
 26125 ifnx>0andnx<201andny>0andny<201andnz<51then26135
 26130 print"only stone there....the spell fails..":goto21900
 26135 ifnz<1thenprint"only thin air...the spell fails":goto21900
 26140 cx=nx:cy=ny:cz=nz:print"{CBM-+}{CBM-+}{CBM-+}poof!{CBM-+}{CBM-+}{CBM-+}":gosub30200:goto2000
 26200 s=26:t=8:u=16:goto22402
 26300 printsp$(27):gosub17500:ifd=0then21800
 26305 print"qwerty!!!!":gosub19000:ifun=0andrnd(1)<.8then3220
 26307 ifun=1then21930
 26310 print"{up}the "m$" doesn't hear...":goto21900
 26400 printsp$(28):gosub17500:ifd=0then21800                         
 26405 print"brrrr!!!!":i=60:goto21700
 26500 printsp$(29):gosub17500:poke33099,102:print"wwhhooooosshhh!!!"
 26505 print"a wall of fire appears about you":gosub19000:gosub17500
 26507 ifd=0then21800
 26510 poke33099,32:ifrnd(1)>.4thenprint"the "m$" is gone":goto21920
 26515 print"the "m$" walks through!!!":i=int(rnd(1)*12+8):goto21700
 26600 printsp$(30):gosub17500:ifd=0then21800
 26605 ifun=1then21930
 26610 print"black death for the "m$
 26615 gosub17500:ifrnd(1)>s(2)*.05thenprint"it is immune!":goto21900
 26620 ifrnd(1)*2<s(3)*.03+1then3220
 26625 print"the spell backfires!!":gosub17500:goto9000
 27000 onsgoto27100,27200,27300,27400,27500,27600
 27100 printsp$(31):gosub17500:print"time is frozen, monsters cannot"
 27105 print"attack you":ifsf(9)<0thensf(9)=0
 27110 sf(9)=sf(9)+fnr(20)+4:ifd=1then4000
 27115 goto21900
 27200 s=32:t=10:u=40:goto22402
 27205 printsp$(32):gosub17500:s(3)=s(3)-1
 27207 sf(10)=0:ifrnd(1)>s(3)*.06then27220
 27210 print"it works!!":ch=hp:gosub20300:goto21900
 27220 print"it doesn't work!":goto9000
 27300 printsp$(33):gosub17500:ifd=0then21800
 27305 foru=1to9:printtab(16);mid$(".W*Q{CBM-+}{CBM-B}{CBM-+} ",u,1);"{up}":gosub19500:next
 27307 gosub19000:ifrnd(1)<.9then3220
 27310 print"the "m$" doesn't see...":goto21900
 27400 printsp$(34):gosub17500:ifd=1then21750
 27405 fori=0to10:i(i)=0:next:gd=0:print"{clr}";:gosub20300:gosub30200
 27410 cx=25:cy=13:cz=1:print"***zap!!***":gosub19000:goto2000
 27500 printsp$(35):gosub17500:print"you feel better!":ch=hp:gosub20260
 27505 goto21900
 27600 printsp$(36):gosub17500:print"a shifting multi-colored wall appears"
 27605 ifd=0then21800
 27610 forj=1to16:poke33140,102:gosub19500:poke33140,230:gosub19500:next
 27615 poke33099,32:poke33140,86:print"the "m$" is gone":goto21920
 30000 m=0:ifm%(1)=0then30020
 30010 m=m%(1):ml=l%(1):mh=h%(1):gosub20700
 30020 fori=1to19:m%(i)=m%(i+1):l%(i)=l%(i+1):h%(i)=h%(i+1):next
 30022 m%(20)=0:l%(20)=0:h%(20)=0:ifm<>0thenpoke33099,35
 30025 print"{home}":printtab(22)"{up}";:forq=1to20:ifm%(q)=0thenprint" {down}{left}";:goto30040
 30030 print"Q{down}{left}";
 30040 next:return
 30100 forq=19to1step-1:m%(q+1)=m%(q):l%(q+1)=l%(q):h%(q+1)=h%(q):next
 30105 ifm=0thenm%(1)=0:l%(1)=0:h%(1)=0:goto30025
 30110 m%(1)=m:l%(1)=ml:h%(1)=mh:goto30025
 30200 forq=1to20:m%(q)=0:l%(q)=0:h%(q)=0:next:goto30025
 31000 pt=1+(peek(50003)=0):return
 32000 ifpeek(0)=254thenreturn
 32002 forl=32128to32178:readc:pokel,c:next:ifpeek(50003)>1thenreturn
 32003 ifpeek(50003)=1thenpoke32137,49:poke32138,230:return
 32005 forl=1to10:readq,c:poke32128+q,c:next:return
 32010 data32,234,255,169,0,141,155,0,76,88,228,120,173,144,0,141,192,125
 32012 data173,145,0,141,193,125,169,128,141,144,0,169,125,141,145,0,88,96
 32014 data120,173,192,125,141,144,0,173,193,125,141,145,0,88,96
 32025 data10,28,11,2,13,25,14,2,19,26,20,2,41,25,42,2,47,26,48,2
 32767 gosub19000:sys(peek(65532)+256*peek(65533)):end
    0 clr:pg$="test":nm$="26":goto62000
    1 " test by gary marsa
    2 " 320 terrace, apt. 2-s
    3 " flushing, mi. 48433
    4 :
    5 " cursor #26, june 1981
    6 " copyright(c)1981 the code works
    7 " box 550, goleta, ca 93116
    8 "
   10 as of 18jun81
  100 i=0:j=0:k=0:dimgp(5),gn(5),h(12),m(11):ns=1:ql=245:ifpeek(50000)thenql=216
  110 b$=chr$(1):e$=chr$(129):bl$="{rvon}                 ":ch$=""
  120 printtab(11)"menu #1 -- openers":gosub60500
  130 print"{down}{down}   1 -- demonstration{down}":print"   2 -- write data statements{down}
  140 print"   3 -- run your data{down}{down}"
  150 print"which one? ";:gosub60000:v=val(in$):ifv<1orv>3thenprint"{up}{up}":goto150
  160 onvgoto180,170,230
  170 print"{clr}";:list4999-5999:end
  180 reads:restore:ifs<>-1then230
  190 print"{clr}{down}{down}{down}{down}{rvon}random scores{down}{down}{down}":print"counting...";:n=rnd(-ti)
  200 n=int(40*rnd(1)+30):dims(n),pc(n):fori=1ton:s(i)=int(61*rnd(1)+40):next
  210 printn"scores{down}{down}":pp=100:bs=pp:fori=1ton:ifs(i)>bsthenbs=s(i)
  220 next:gosub620:goto240
  230 print"{down}{down}how many points are possible? ";:gosub60000:pp=val(in$)
  233 ifin$=""then230
  235 ifpp<1orpp>999thenprint"can't handle that.":goto230
  240 gosub560:gosub660:gosub800:gosub870
  250 mu=2:x$="screen":gosub1580
  260 fora=1tolen(c$):v=val(mid$(c$,a,1)):onvgoto270,280,350,380,1700
  270 gosub1200:goto360
  280 gosub980
  290 dr=3-ns/2:ifdr<2then360
  300 pokeql,22:print"{up}recalculate adjusted scale (y/n)? ";
  310 gosub60000:ifin$="n"then370
  320 ifin$<>"y"then300
  330 pokeql,22:print"{up}                                       "
  340 q=22:gosub1690:gosub750:gosub1060:goto290
  350 gosub1340:print"{home}";tab(21)"hit a key to go on":gosub540:goto370
  360 gosub530
  370 nexta:goto250
  380 print"{clr}{down}{down}{down}turn on printer and load paper.{down}
  390 print"press any key when ready.":gosub540
  400 print"{clr}{down}{down}{down}{down}course name? ";:gosub60000:co$=in$
  410 print"{down}{down}date of test? ";:gosub60000:d$=in$
  420 gc$="Q":rem graph
  425 ifgc$=""thengc$="*"
  430 gc=asc(gc$):ifgc<33or(gc>128andgc<161)thengc$="*"
  440 mu=3:x$="printer":gosub1580:ifleft$(c$,1)="4"then250
  450 ifleft$(c$,1)="5"then1700
  460 open4,4:cmd4:printb$co$" --"pp"point test":print
  470 printb$"given on "d$:print
  480 fora=1tolen(c$):v=val(mid$(c$,a,1)):ifv>3then500
  490 onvgosub1260,1100,1460:nexta
  500 print#4:close4:ifv=4then250
  510 ifv=5then1700
  520 goto440
  530 pokeql,24:print"{up}{rvon}press any key to continue...";
  540 geta$:ifa$=""then540
  550 return
  560 print"{clr}{down}{down}{down}{down}{down}{down}counting...";:n=0:restore
  570 reads:ifs=-1then590
  575 if s<=pp then n=n+1:goto 570
  580 print"{clr}{down}{rvon}error!{rvof} test score of";s;"is"
  581 print"greater than max score of";pp;"{left}.{down}{down}"
  585 goto120
  590 printn"scores{down}{down}":dims(n),pc(n):bs=pp:restore:fori=1ton:reads(i)
  600 ifs(i)>bsthenbs=s(i)
  610 next
  620 reads:print"sorting";:ifn<2then650
  625 fori=2ton:k=s(i):forj=i-1to1step-1
  630 ifs(j)>=kthens(j+1)=k:goto645
  640 s(j+1)=s(j):nextj:s(1)=k
  645 print".";:nexti
  650 print"{down}{down}":return
  660 print"computing stats...{down}{down}":ifn/2=int(n/2)then680
  670 m=int(n/2)+1:md=s(m):goto690
  680 md=(s(n/2)+s(n/2+1))/2
  690 t=0:fori=1ton:t=t+s(i):next:mn=int(10*(t/n)+.5)/10
  700 x=0:fori=1ton:v=(s(i)-mn)^2:x=x+v:next:sd=int(10*sqr(x/(n-1))+.5)/10:s=sd
  710 gp(0)=bs+1:fori=1to4:readx:gp(i)=int((x/100)*pp+.5):next
  720 x=0:gn(0)=bs+1:fori=3to0step-1:gn(4-i)=int(mn+(i-1.5)*s+.5)
  730 ifgn(4-i)>ppthengn(4-i)=pp-x:x=x+1
  740 next:return
  750 r1=1:r2=n:f=1:fori=1ton:iffands(i)<mn+dr*sdthenr1=i:f=0
  760 ifs(i)<mn-dr*sdthenr2=i-1:i=n
  770 next:ns=ns+1:ifr1=1andr2=nthench$="{rvon}no change":return
  780 x=0:fori=r1tor2:v=(s(i)-mn)^2:x=x+v:next:s=int(10*sqr(x/(r2-r1+1))+.5)/10
  790 goto720
  800 c=1
  810 x=1
  820 ifc+x>nthen850
  830 ifs(c+x)<s(c)then850
  840 x=x+1:goto820
  850 fori=ctoc+x-1:pc(i)=int(((n-c-.5*x+1)/n)*100):next:c=c+x:ifc<nthen810
  860 return
  870 print"setting up graph...":lg=s(n)
  871 mc=11:hs=(pp-lg+1)/(mc+1)
  872 ifhs<1thenhs=1:mc=pp-lg
  876 fori=0tomc+1:h(i)=int(lg+i*hs+.5):nexti:goto891
  891 fori=0tomc:m(i)=0:forj=nto1step-1:ifs(j)>h(i+1)then920
  900 ifs(j)>=h(i)ands(j)<h(i+1)thenm(i)=m(i)+1
  910 nextj
  920 nexti:bh=0:fori=0tomc:ifm(i)>bhthenbh=m(i)
  930 next:fg=1:ifbh<20then950
  940 fg=2:ifbh>40thenbh=40
  950 return
  960 x=abs(x):ifx=0thenx=1
  970 y=2-int(log(x)/log(10)):return
  980 print"{clr}{down}";tab(5)"number of scores.........."n
  990 print"{down}";tab(5)"median...................."md
 1000 print"{down}";tab(5)"mean......................"mn
 1010 print"{down}";tab(5)"standard deviation........"sd"{down}{down}{down}":q=2
 1020 fori=1to2:gosub1690:q=22:next:pokeql,11:printtab(13)"{up}grading scales{down}
 1030 printtab(4)"{rvon}percent-based{down}":fori=1to5:x=gp(i):gosub960
 1040 print"{rvon}";tab(3)chr$(64+i)" --";tab(7+y)gp(i)"{left} to";
 1050 x=gp(i-1)-1:gosub960:printspc(y)gp(i-1)-1"{left} ":next
 1060 pokeql,13:printtab(24)"{up}{rvon}adjusted ("chr$(48+ns)"){down}":fori=1to5
 1070 x=gn(i):gosub960:print"{rvon}";tab(23)chr$(64+i)" --";tab(27+y)gn(i)"{left} to";
 1080 x=gn(i-1)-1:gosub960:printspc(y)gn(i-1)-1"{left} ":next
 1090 printtab(26)ch$:ch$="":return
 1100 printb$"number of scores.........."n
 1110 printb$"median...................."md
 1120 printb$"mean......................"mn
 1130 printb$"standard deviation........"sd:print
 1140 print"percent-based grading scale";tab(13)"adjusted grading scale";
 1150 print" ("chr$(48+ns)")":print:fori=1to5:x=gp(i):gosub960
 1160 printtab(5)b$;chr$(64+i);e$" --";tab(y)gp(i)"to";
 1170 x=gp(i-1)-1:gosub960:printtab(y)gp(i-1)-1;
 1180 x=gn(i):gosub960:printtab(23)b$;chr$(64+i);e$" --";tab(y)gn(i)"to";
 1190 x=gn(i-1)-1:gosub960:printtab(y)gn(i-1)-1:next:print:return
 1200 print"{clr}";tab(9)"{rvon} scores & percentiles "
 1210 q=-10:fori=1ton:if(i-1)/20=int((i-1)/20)thenprint"{home}{down}":q=q+10
 1220 ifq>30thenq=0:gosub530:print"{clr}{down}"
 1230 ifabs(s(i)-mn)>2.5*sdthenprint"{rvon}";
 1240 x=s(i):gosub960:printtab(q+y)s(i)"{rvof}";
 1250 x=pc(i):gosub960:printtab(q+y+4)pc(i):next:return
 1260 printb$;tab(7)"** scores & percentiles **"
 1270 printb$;tab(7)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1280 n4=int(n/4):ifn/4<>n4thenn4=n4+1
 1290 fori=1ton4:forj=0to3:q=5:ifj=0thenq=12
 1300 ifi+n4*j>nthen1330
 1310 x=s(i+n4*j):gosub960:printtab(q+y)s(i+n4*j);
 1320 x=pc(i+n4*j):gosub960:printtab(y)pc(i+n4*j);:nextj
 1330 print:nexti:print:return
 1340 sg=crt+wd*21+3 :print"{clr}{rvon} distribution graph {rvof}
 1350 print"{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 1360 fori=1to20:print"{rght}{rght}LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL{CBM-G}":next
 1370 print"{home}{down}{down}";:fori=0to19:iffg*(20-i)<10thenprint" ";
 1380 printmid$(str$(fg*(20-i)),2):next
 1390 fori=0tomc:printtab(3*i+3)mid$(str$(h(i)),2);:next:print
 1400 fori=0tomc:printtab(3*i+3)mid$(str$(h(i+1)-1),2);:next
 1410 fori=0tomc:ifm(i)=0then1450
 1415 iffg=2andm(i)=1thenpokesg,98:goto1450
 1420 forj=1tom(i)/fg:ifj*fg>bhthenpokesg-800,158:goto1450
 1430 pokesg-wd*(j-1),160:nextj
 1440 ifm(i)/fg<>int(m(i)/fg)thenpokesg-wd*(j-1),98
 1450 sg=sg+3:nexti:return
 1460 printb$;tab(8)"** distribution graph **"
 1470 printb$;tab(8)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1480 printtab(4)"{CBM-M}";:fori=0tomc:ifm(i)<=bhthen1500
 1490 printtab(5)"^";:goto1510
 1500 printtab(5)" ";
 1510 next:print:fori=0tobh-1:ifbh-i<10thenprint" ";
 1520 printbh-i"{CBM-M}";:forj=0tomc:ifm(j)>=bh-ithenprinttab(5)gc$;:goto1540
 1530 printtab(5)" ";
 1540 nextj:print:nexti:printtab(5);:fori=1to74:print"{CBM-T}";:next:print
 1550 printtab(6);:fori=0tomc:x=h(i):gosub960:printtab(1+y)h(i);:next:print
 1560 printtab(6);:fori=0tomc:x=h(i+1)-1:gosub960
 1570 printtab(1+y)h(i+1)-1;:next:print:print:return
 1580 print"{clr}";tab(6)"menu #"mu"-- output to "x$
 1590 gosub60500:print"{down}   1 -- print sorted scores with
 1600 printtab(8)"percentiles{down}":print"   2 -- print stats (median, mean,
 1610 printtab(8)"standard deviation) and":printtab(8)"grading scales{down}
 1620 print"   3 -- print distribution bar graph{down}"
 1630 print"   4 -- go to menu #"5-mu:print"{down}   5 -- end program{down}{down}"
 1640 print"enter your choices as a string, such as '2134'.{down}
 1650 print"your choices? ";:gosub60000:c$=in$
 1660 fori=1tolen(c$):v=val(mid$(c$,i,1)):ifv<1orv>5thenprint"{up}{up}":goto1650
 1670 next:return
 1690 pokeql,13:print"{up}";:forj=1to8:printtab(q)bl$:next:return
 1700 print"{clr}":end
 4999 rem data here
 5000 rem
 5010 data 75,75,60,65,80,85,80,85,90,95
 5999 data-1:rem end of data flag
 8999 rem   a  b  c  d  grade percents
 9000 data 90,80,70,60
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by gary marsa
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}analyze test scores (needs 16k)
 62080 print"{down}{down}{down}press {rvon}return{rvof} to begin"
 62090 getin$:ifin$=""then62090
 62100 goto60300
   10 rem** pet tetris (version 1.3)   **
   20 rem** by tim howe, march 2010    **
   30 rem** compiled with cc65 v2-12-0 **
   40 sys(1153)
    0 clr:pg$="thunt!":nm$="22":goto62000
    1 "c.torkildson
    2 "13791 heywood
    3 "apple valley mn 55124
    4 "
    5 "cursor #22 12oct80
    6 "copyright(c)1980 the code works
    7 "box 550 goleta ca 93017
  100 gosub190
  110 gosub340:gosub410:e=1:u=nr:gosub660:gosub700
  120 c$(1)="look for":c$(2)="treasure":c$(3)="around"
  130 gosub1910:gosub820
  150 forl=0tos:gosub870:next:ifca=1then1790
  160 gosub1020:ift=1thengosub1290:ifnt>3then1820
  170 gosub970:goto150
  190 print"{down}difficulty level (1-5)? ";:tx=1e20:gosub2090
  200 nr=val(in$)
  210 ifnr<1ornr>5thenprint"{down}enter number from 1 to 5.":goto190
  220 a=rnd(-ti):w=32768:y=w+51:n%=205:p%=81:b$="        ":h$="-"
  230 dimm%(4,4),n%(52),do%(4),dm%(4):f=59467:g=59466:h=59464
  240 mc=19:dimh%(mc),v%(mc),gc%(3),p(nr+7),h(nr+7)
  250 fori=0to3:forj=0to3:readm%(i,j):nextj,i
  260 data-1,32,-1,85,73,-1,64,114,93,-1,74,107,115,75,113,91
  270 fori=0to3:readgc%(i):nexti:data2,0,1,3
  280 fori=0to3:readdo%(i),dm%(i):nexti
  290 data-1,2,-40,1,1,8,40,4
  300 reada,b:ifa<>99thenn%(a)=b:goto300
  310 data0,10,9,6,10,9,11,3,21,12,27,15,29,5,43,13,49,11,50,14,51,7,99,99
  320 return
  340 print"{clr}":reada,b
  350 readc,d:ifc<>0thenfori=1tod:pokew+a,b:a=a+c:nexti:goto350
  360 data10,102,1,20,40,24,-1,20,-40,24,0,0
  370 reada:ifa<>0thenreadb,c,d:fori=1toc:pokew+a,d+(i-1):a=a+b:next:goto370
  380 data12,3,6,177,90,120,8,129,0
  390 return
  410 forc=0tomc:h%(c)=0:v%(c)=0:nextc
  420 forr=0to21:fs=0:h=0:nc=4:of=0
  430 forc=1tomc-1:gosub600
  440 ifx=85thenh%(c-1)=h
  450 ifv%(c)thenh=1
  460 ifx=73thenh%(c)=h
  470 nextc:nc=2:c=mc:gosub600:nextr
  480 forc=mcto1step-1
  490 h%(c)=0:ifv%(c)thenh%(c-1)=1:mx=c:goto510
  500 nextc
  510 h=0:mn=0:forc=mcto1step-1
  520 ifv%(c)thenmn=c
  530 ifh%(c)thenh=1
  540 h%(c)=h
  550 ifv%(c)thenh=0
  560 nextc
  570 nc=2:of=1:fs=0:r=22
  580 forc=mntomx-1:gosub600:nextc
  590 c=mx:nc=1:gosub600:return
  600 d=int(rnd(1)*nc)+of:x=m%(fs+v%(c),d):ifx<0then600
  610 ifh%(c)thenifgc%(d)=0then600
  620 v=gc%(d)and2:ifh%(c-1)thenifv=0andx<>32then600
  630 v%(c)=v:fs=gc%(d)and1:iffsthenh%(c)=0
  640 pokey+40*r+c-1,x:return
  660 fori=etou
  670 gosub2260
  680 p(i)=r:h(i)=c:poker+w,n%:next:return
  700 gosub2260
  710 r$=chr$(int(a/3)+65):s$=chr$(int(b/3)+49):pt=r:return
  730 print"{home}  {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print" {CBM-M}score{CBM-G}":print"  {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  740 print"  "s%
  750 print:print:print" "c$(1):print" "c$(2):print" "c$(3)
  760 print" "r$h$s$
  770 fori=1to6:print:next
  780 print" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":print"{CBM-M}"m$(1)"{CBM-G}"
  790 print"{CBM-M}"m$(2)"{CBM-G}":print"{CBM-M}"m$(3)"{CBM-G}":print"{CBM-M}"m$(4)"{CBM-G}":print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  800 return
  820 gosub2260
  830 a=r+w:ifpeek(a+1)=n%orpeek(a-1)=n%orpeek(a+40)=n%orpeek(a-40)=n%then820
  840 ph=c:pp=r:poke(r+w),p%
  850 fori=1to100:poke(r+w),pc+128:poke(r+w),p%:next:return
  870 ca=0:fori=1tou:tx=ti
  880 r=int(rnd(1)*4):iftx+90<tithen950
  890 b=p(i)+do%(r):a=peek(b+w)
  900 if(n%(h(i)-64)anddm%(r))=0then880
  910 ifa<64ora>115then880
  920 ifa=p%thena=ph
  930 poke(b+w),n%:pokep(i)+w,h(i):h(i)=a:p(i)=b
  940 ifp(i)=ppthenca=1:i=u:l=s
  950 gosub1940:next:return
  970 fori=0to3:b=pp:a=ph:k=(i+2)and3:j=do%(k):k=dm%(k)
  980 ifa<>n%thenif(n%(a-64)andk)thenb=b+j:a=peek(b+w):goto980
  990 ifa=n%thengosub1890:i=3:ifs<3thens=s+1
 1000 nexti:return
 1020 geta$:ifa$<>""then1020
 1030 a=5:b=255:t=0:gosub2000:gosub2020
 1040 m$(1)="you have":m$(2)="  5     ":m$(3)="seconds ":m$(4)="to move "
 1050 gosub730
 1060 tx=ti+60
 1070 geta$:ifa$<>""then1130
 1080 ifti<txthen1070
 1090 gosub2000:a=a-1
 1100 print"{home}":form=1to17:print"{down}";:next:print"{rght}{rght}"a
 1110 ifa=0then1270
 1120 goto1060
 1130 ifa$="q"then1820
 1140 ifa$="2"thenb=3
 1150 ifa$="4"thenb=0
 1160 ifa$="6"thenb=2
 1170 ifa$="8"thenb=1
 1180 ifa$="5"then1270
 1190 ifb=255then1070
 1200 if(dm%(b)andn%(ph-64))=0then1270
 1210 c=pp+do%(b):a=peek(c+w)
 1220 ifa=n%thenpokepp+w,ph:goto1790
 1230 ifa<64ora>115then1270
 1240 poke(c+w),p%:pokepp+w,ph:ph=a:pp=c
 1250 gosub2020
 1260 ifpp=ptthent=1
 1270 gosub1910:return
 1290 ifnt=0thens%=100
 1300 ifnt=1thens%=s%+200
 1310 ifnt=2thens%=s%+300
 1320 ifnt=3thens%=s%+400
 1330 nt=nt+1:ifnt>3then1750
 1340 r$=" ":s$=" ":h$=" "
 1350 m$(1)="a       ":m$(2)="treasure":m$(3)="and a   ":m$(4)="puzzle  "
 1360 fori=1to3:c$(i)=b$:next
 1370 gosub730:h$="-":gosub2040:gosub1520
 1380 gosub1650:gosub2080:gosub1770:print"{home}{down}":printtab(32);
 1390 ifin$<>x$thenprint"{rvon}wrong!":m$(1)="run for ":nt=3:goto1420
 1400 print"{rvon}right!"
 1410 m$(1)="now find":m$(2)="the next":m$(3)="treasure"
 1420 ifnt=3thenm$(2)="the exit":m$(3)=b$
 1430 m$(4)=b$
 1440 c$(1)="look for":c$(2)="treasure":c$(3)="around"
 1450 ifnt=3thenc$(2)="the exit"
 1460 gosub700:gosub730:forn=1to1000:next
 1470 u=u+1:e=u:gosub660
 1480 ifnt=3thenu=u+1:gosub660
 1490 print"{home}{down}":printtab(32);"      "
 1500 return
 1520 readx$:ifx$<>"x"then1520
 1530 y$=""
 1540 readx:fori=0toint(rnd(1)*x):readx$:next
 1550 fori=1tolen(x$):x(i)=asc(mid$(x$,i,1)):next
 1560 fori=1tolen(x$):a=(int(rnd(1)*len(x$)+1)):b=x(i):x(i)=x(a):x(a)=b:next
 1570 fori=1tolen(x$):y$=y$+chr$(x(i)):next
 1580 return
 1590 datax,10,stump,truck,prize,smart,space,sound,paper
 1600 datasnake,circle,sound,x,10,wander,price,circle
 1610 datareader,states,canyon,flight,yellow,tight,wide,x,10,reverse
 1620 datacandle,purple,parade,compute,sincere,tank,clouds,print,chair
 1650 print"{home}":printtab(31)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(31)"{CBM-M}decode{CBM-G}"
 1660 printtab(31)"{CBM-M}this  {CBM-G}":printtab(31)"{CBM-M}word  {CBM-G}"
 1670 printtab(31)"{CBM-M}      {CBM-G}":printtab(31)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 1680 fork=1to2:print:next:printtab(32)y$
 1690 print:print:printtab(32)" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":printtab(32)"{CBM-M}you  {CBM-G}"
 1700 printtab(32)"{CBM-M}only {CBM-G}":printtab(32)"{CBM-M}have {CBM-G}"
 1710 printtab(32)" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":print:printtab(33)"  ":printtab(33)"{up}25"
 1720 print:printtab(32)"seconds":print:printtab(31)
 1730 return
 1750 m$(1)="{rvon}  you   {rvof}":m$(2)="{rvon}  made  {rvof}":m$(3)="{rvon}   it   {rvof}":m$(4)="{rvon}"+b$+"{rvof}"
 1760 gosub730:fori=1to3000:next:return
 1770 print"{home}":form=1to22:printtab(31)"        ":next:return
 1790 gosub1960:m$(1)="you've  ":m$(2)="been    ":m$(3)="captured"
 1795 r$=" ":h$=" ":s$=" "
 1800 m$(4)=b$:fori=1to3:c$(i)=b$:next
 1810 gosub730:fori=1to5000:next
 1820 print"{clr}your score was: "s%
 1830 print"{down}{down}play again? ";:tx=1e20:gosub2090
 1840 ifleft$(in$,1)="n"thenprint"{clr}{down}{down}":end
 1850 restore
 1860 reada:ifa<>99then1860
 1870 reada:s%=0:h$="-":goto110
 1890 m$(1)="you've  ":m$(2)="been    ":m$(3)="sighted!":m$(4)=b$
 1900 gosub730:gosub1980:gosub1980:fori=1to1500:next
 1910 m$(1)=b$:m$(2)="treasure":m$(3)=" hunt!  ":m$(4)=b$
 1920 gosub730:return
 1940 pokef,16:pokeg,85:pokeh,100
 1950 pokef,0:pokeg,0:pokeh,0:return
 1960 pokef,16:pokeg,85:fori=10to200:pokeh,i:next
 1970 goto1950
 1980 pokef,16:pokeg,85:fori=200to10step-5:pokeh,i:next
 1990 goto1950
 2000 pokef,16:pokeg,85:pokeh,250
 2010 goto1950
 2020 pokef,16:pokeg,85:pokeh,25:fori=1to50:next
 2030 goto1950
 2040 pokef,16:pokeg,85:fori=1to3:forj=10to200step5:pokeh,j:next
 2050 forj=200to10step-5:pokeh,j:next
 2060 next:goto1950
 2080 tx=ti+60
 2090 in$=" ":zt=ti:zc=2:zd$=chr$(20):a=25
 2100 getz$:ifz$<>""then2140
 2110 ifti>=txthen2220
 2120 ifti>=ztthenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 2130 goto2100
 2140 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto2180
 2150 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 2160 ifzl>254then2100
 2170 in$=in$+z$:printz$;zd$;z$;
 2180 ifz=13thenin$=mid$(in$,2):printcr$;:return
 2190 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto2090
 2200 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto2090
 2210 goto2100
 2220 b=pos(0)
 2230 gosub2000:a=a-1:print"{home}":fori=1to17:print"{down}";:next:ifa=0thenreturn
 2240 fori=1to32:print"{rght}";:next:printa"{left} ":print:print:print:printtab(b);
 2250 tx=ti+60:goto2100
 2260 a=rnd(1)*23:b=rnd(1)*18:r=int(a+1)*40+int(b)+11
 2270 c=peek(r+w):ifc<64orc>115then2260
 2280 ifn%(c-64)=0then2260
 2290 return
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by chris torkildson
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1980{down}
 62020 gosub60500
 62030 print"{down}find a fortune!
 62050 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62060 gett$:ift$=""then62060
 62070 goto60300
  500 print "{clr}{down}{down}******** {rvon}t i  c  t a c  t o e   {rvof}********"
  505 print"********  ein programm von mca  ********"
  510 print"{down}";tab(16);"{rvon}anleitung"
  520 print"{down}{down}tic tac toe ist ein sehr altes spiel."
  530 print "es wird auf einem 3 x 3 brett gespielt."
  540 print "das ziel des spiels ist es eine"
  550 print"{down}     senkrechte oder"
  560 print"{down}     waagrechte oder"
  570 print"{down}     diagonale"
  580 print"{down}reihe zu belegen."
  590 print"{down}{down}ihr belegungszeichen ist: 'Q'"
  600 print"{down}der computer belegt mit: '*'"
  610 for i=1to10000:nexti
 1000 clr
 1010 print"{clr}{down}******** {rvon}t i c  t a c  t o e{rvof} ********"
 1020 print
 1030 print tab(16);"1  2  3"
 1040 print tab(16);"8  9  4"
 1050 print tab(16);"7  6  5"
 1060 dim t(8,3),u(9,4),c(9),b(9)
 1065 fori=1to8
 1066 forj=1to3
 1067 read t(i,j)
 1068 next j
 1069 next i
 1070 fori=1to9
 1071 forj=1to4
 1072 read u(i,j)
 1073 next j
 1074 next i
 1100 n=0
 1110 ifrnd(ti)<.5then1150
 1120 print"{down}{down}ich habe den ersten zug !"
 1130 print
 1140 goto1380
 1150 print"{down}{down}sie haben den ersten zug !"
 1160 print
 1170 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                           "
 1171 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}welches feld belegen sie";m
 1185 gosub1900
 1190 f=-1
 1200 ifm<>int(m)then1360
 1210 ifm<1then1360
 1220 ifm>9then1360
 1230 ifb(m)<>0then1360
 1240 b(m)=f
 1250 forj=1to4
 1260 p=u(m,j)
 1270 if p=0 then1310
 1280 c(p)=c(p)+f
 1290 ifc(p)=-3then1490
 1300 ifc(p)=3then1420
 1310 nextj
 1320 n=n+1
 1330 ifn=9then1510
 1340 iff=1then1170
 1350 goto1380
 1360 print"ungueltiger zug - noch einmal"
 1370 goto1170
 1380 gosub1530
 1390 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}      ich belege ";m
 1395 gosub2100
 1400 f=1
 1410 goto1240
 1420 print"{down}     {rvon}und damit habe ich gewonnen !{rvof}    "
 1430 print
 1440 print
 1450 print" noch ein spiel?"
 1460 input a1$
 1470 ifa1$="j" or a1$="ja" then 1000
 1480 end
 1490 print"{down}{down}   {rvon}bravo! sie haben mich geschlagen{rvof}   "
 1500 goto 1430
 1510 print"{down}{down}{down}das spiel ist unentschieden"
 1520 goto1430
 1530 for p=1to8
 1540 ifc(p)=2then1600
 1550 nextp
 1560 forp=1to8
 1570 ifc(p)=-2then1600
 1580 nextp
 1590 goto1640
 1600 fori=1to3
 1610 m=t(p,i)
 1620 ifb(m)=0then1790
 1630 nexti
 1640 fors=1to9
 1650 v(s)=0
 1660 ifb(s)<>0then1720
 1670 forj=1to4
 1680 p=u(s,j)
 1690 ifp=0then1710
 1700 v(s)=v(s)+1+abs(c(p))
 1710 nextj
 1720 nexts
 1730 v=0
 1740 fors=1to9
 1750 ifv(s)<=vthen1780
 1760 v=v(s)
 1770 m=s
 1780 nexts
 1790 return
 1800 data 1,2,3,8,9,4,7,6,5,1,8,7,2,9,6,3,4,5,1,9,5,7,9,3
 1810 data 1,4,7,0,1,5,0,0,1,6,8,0,2,6,0,0,3,6,7,0,3,5,0,0
 1820 data 3,4,8,0,2,4,0,0,2,5,7,8
 1830 end
 1900 if m=1then print "{home}{down}{down}{down}";tab(16);"Q":goto2000
 1910 if m=2then print "{home}{down}{down}{down}";tab(19);"Q":goto2000
 1920 ifm=3then print"{home}{down}{down}{down}";tab(22);"Q":goto 2000
 1930 if m=8then print "{home}{down}{down}{down}{down}";tab(16);"Q":goto2000
 1940 if m=9then print "{home}{down}{down}{down}{down}";tab(19);"Q":goto2000
 1950 if m=4then print "{home}{down}{down}{down}{down}";tab(22);"Q":goto2000
 1960 if m=7then print "{home}{down}{down}{down}{down}{down}";tab(16);"Q":goto2000
 1970 if m=6then print "{home}{down}{down}{down}{down}{down}";tab(19);"Q":goto2000
 1980 if m=5then print "{home}{down}{down}{down}{down}{down}";tab(22);"Q":goto2000
 2000 print"{down}{down}{down}{down}{down}{down}{down}{down}"
 2010 return
 2100 if m=1then print "{home}{down}{down}{down}";tab(16);"*":goto2200
 2110 if m=2then print "{home}{down}{down}{down}";tab(19);"*":goto2200
 2120 ifm=3then print"{home}{down}{down}{down}";tab(22);"*":goto 2200
 2130 if m=8then print "{home}{down}{down}{down}{down}";tab(16);"*":goto2200
 2140 if m=9then print "{home}{down}{down}{down}{down}";tab(19);"*":goto2200
 2150 if m=4then print "{home}{down}{down}{down}{down}";tab(22);"*":goto2200
 2160 if m=7then print "{home}{down}{down}{down}{down}{down}";tab(16);"*":goto2200
 2170 if m=6then print "{home}{down}{down}{down}{down}{down}";tab(19);"*":goto2200
 2180 if m=5then print "{home}{down}{down}{down}{down}{down}";tab(22);"*":goto2200
 2200 print"{down}{down}{down}{down}{down}{down}{down}{down}"
 2210 return
    1 deffna(j)=peek(d+i*aa+j):c=.125:aa=4:d=629:goto100
    2 geti$:ifi$=""goto2
    3 return
  100 deffnb(x)=240*x+39*k2+2*k3+32558:print"{clr}"tab(17)"qubic":print
  110 printtab(6)"basic comp. games, p 134":print:print
  210 print"do you want instructions?":gosub2:ifi$="n"thenprint"{clr}":goto315
  220 print"{up}the game is tic tac toe in a 4x4x4 cube.";
  230 print"each move is indicated by a three digit"
  240 print"number, with each digit between 0 and 5.";
  250 print"the digits indicate the level, row and"
  260 print"column of the occupied place."
  270 print"you are W, the computer is Q.":print
  315 dimx(64),l(76),y%(16):fori=1to16:ready%(i):next
  350 fori=634to937:readb:pokei,b:next
  370 ab$="                         "
  400 fori=1to64:x(i)=0:next:z=1:print"do you want to move first?":gosub2
  451 print"{clr}";:fori=1to4:printtab(31)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  455 forj=1to4:printtab(28-j)j"N N N N N"
  457 ifj=3thenprint"{left}{left}"mid$(str$(i),2)
  460 next:printtab(27)"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  470 next:printtab(28)"1 2 3 4{home}"
  490 ifi$="n"thenprint"{down}{down}":goto630
  500 fori=1to64:ifx(i)goto1800
  502 print"{home}your move (block,row,col.)":printab$"{home}":gosub2500
  503 gosub2:ifi$<"1"ori$>"4"goto503
  505 k1=val(i$):printk1;
  510 gosub2:ifasc(i$)=20thenprint"{left}{left} {left}{left}";:goto503
  513 ifi$<"1"ori$>"4"goto510
  515 k2=val(i$):printk2;
  516 gosub2:ifasc(i$)=20thenprint"{left}{left} {left}{left}";:goto513
  517 ifi$<"1"ori$>"4"goto516
  518 k3=val(i$):printk3:m=16*k1+4*k2+k3-20:ifx(m)=0goto610
  600 print"that square is occupied!":goto500
  610 fori=0to5:printab$:next:print"{up}{up}{up}{up}{up}"
  620 x(m)=1:pokefnb(k1),87
  630 gosub1640:forj=1to3:fori=1to76:onjgoto720,790,930
  690 next:next:goto1300
  720 ifl(i)<>4goto690
  730 print"you win as follows:"
  735 forj=1to4:m=fna(j):gosub1570:nextj
  740 goto1490
  790 ifl(i)<>15goto690
  800 forj=1to4:m=fna(j):ifx(m)goto860
  830 x(m)=5:print"i move to";:gosub1570
  860 nextj:print"and win as follows":goto735
  930 ifl(i)<>3goto690
  940 print"nice try":print"i move to";:forj=1to4:m=fna(j)
  970 ifx(m)=0thenx(m)=5:gosub1570:goto500
 1010 nextj:goto1300
 1030 fori=1to76:l(i)=x(fna(1))+x(fna(2))+x(fna(3))+x(fna(4)):l=l(i)
 1060 ifl<2orl>=3goto1130
 1080 ifl>2goto2230
 1090 forj=1to4:ifx(fna(j))=0thenx(fna(j))=c
 1120 next
 1130 next:gosub1640:fori=1to76:ifl(i)=.5orl(i)=7*cgoto2360
 1180 next:goto1830
 1200 z=1
 1210 ifx(y%(z))=0goto1250
 1220 z=z+1:ifz<>17goto1210
 1240 goto1720
 1250 m=y%(z):x(m)=5:print"i move to";:gosub1570:goto500
 1300 fori=1to76:l(i)=x(fna(1))+x(fna(2))+x(fna(3))+x(fna(4)):l=l(i)
 1340 ifl<10orl>=11goto1410
 1360 ifl>10goto2230
 1370 forj=1to4:ifx(fna(j))=0thenx(fna(j))=c
 1400 next
 1410 next:gosub1640:fori=1to76:ifl(i)=.5orl(i)=5.375goto2360
 1460 next:gosub2500:goto1030
 1490 print:print"do you want to try":print"another game?":gosub2
 1500 ifi$="n"thenend
 1520 goto400
 1570 m=m-1:k1=(mand48)/16+1:k2=(mand12)/4+1:k3=(mand3)+1
 1580 printk1;k2;k3:pokefnb(k1),81:return
 1640 fori=1to76:l(i)=x(fna(1))+x(fna(2))+x(fna(3))+x(fna(4)):next:return
 1720 fori=1to64:ifx(i)goto1800
 1740 x(i)=5:m=i:print"i like";:gosub1570:goto500
 1800 next:print"the game is a draw":goto1490
 1830 fork=1to18:p=0:fori=4*k-3to4*k:forj=1to4:p=p+x(fna(j)):next:next
 1900 ifp<4goto1940
 1910 ifp<5goto1970
 1920 ifp<9goto1940
 1930 ifp<10goto1970
 1940 next:gosub2500:goto1200
 1970 s=c
 1980 fori=4*k-3to4*k:goto2370
 2000 next:s=0:goto1980
 2030 data1,49,52,4,13,61,64,16,22,39,23,38,26,42,27,43,1,2,3,4,5,6,7,8,9,10,11
 2040 data12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34
 2050 data35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57
 2060 data58,59,60,61,62,63,64,1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61,2
 2065 data18
 2070 data34,50,6,22,38,54,10,26,42,58,14,30,46,62,3,19,35,51,7,23,39,55,11,27
 2080 data43,59,15,31,47,63,4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64,1
 2090 data5,9,13,17,21,25,29,33,37,41,45,49,53,57,61,2,6,10,14,18,22,26,30
 2100 data34,38,42,46,50,54,58,62,3,7,11,15,19,23,27,31,35,39,43,47,51,55,59
 2110 data63,4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,64,1,6,11,16,17,22
 2120 data27,32,33,38,43,48,49,54,59,64,13,10,7,4,29,26,23,20,45,42,39,36
 2130 data61,58,55,52,1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,64,49,37,25
 2140 data13,50,38,26,14,51,39,27,15,52,40,28,16,1,18,35,52,5,22,39,56,9,26
 2150 data43,60,13,30,47,64,49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,16,1
 2160 data22,43,64,16,27,38,49,4,23,42,61,13,26,39,52
 2230 forj=1to4:ifx(fna(j))<>cgoto2330
 2250 x(fna(j))=5:ifl(i)<5goto2290
 2270 print"let's see you get":print"out of this:"
 2280 print"i move to";:goto2300
 2290 print"you fox. just in the":print"nick of time,"
 2295 print"i move to";
 2300 m=fna(j):gosub1570:goto500
 2330 next:print"machine concedes this game.":goto1490
 2360 s=c
 2370 ifi-int(i/4)*4>1then2400
 2380 a=1:goto2410
 2400 a=2
 2410 forj=ato5-astep5-2*a:ifx(fna(j))=sgoto2450
 2430 next:goto2000
 2450 x(fna(j))=5:m=fna(j):print"i take";:gosub1570:goto500
 2500 fori=1to64:ifx(i)=cthenx(i)=0
 2530 next:return
    1 rem copyright hanimex pty ltd.1979: all rights reserved
    2 rem"tic-tac-toe"#g1007: version 1.0  :4/4/78
    5 data0,1,2,3,4,5,6,7,8,9,21
   10 readc0,c1,c2,c3,c4,c5,c6,c7,c8,c9,ct
  100 t=c0
  110 dims(c8)
  120 fori=c0toc8
  130 s(i)=c0
  140 next
  160 ift=c0then180
  170 gosub2450:print"{down}{down}{down}{down}{down}another game?";:gosub3000:ifa$<>"y"anda$<>"n"then170
  175 ifa$="n"thenprint"{clr}":goto63999
  180 t=c1:print"{clr}";
  200 fori=c1toc3
  205 forj=c1toc6
  210 print"       {rvon}  {rvof}       {rvon}  {rvof}"
  215 next
  217 print"       {rvon}  {rvof}       {rvon}  {rvof}";
  218 ifi<>3thenprint
  219 ifi=c3then230
  220 print"{rvon}                         "
  225 print"{rvon}                         "
  230 next
  240 print"{home}{down}{rght}{rght}{rght}{down}{down}{rvon}1{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}2{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}3";
  242 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{left}6{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}5{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}4{left}";
  244 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}7{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}8{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}9";
  250 gosub830
  260 ifz=c5then290
  270 s(c4)=c7
  280 goto330
  290 ifs(c0)<>c0then320
  300 s(c0)=c7
  310 goto330
  320 s(c2)=c7
  330 gosub920
  340 gosub830
  350 gosub1110
  360 ifr<>c0then410
  370 s(z-c1)=c1:s(b)=c0
  374 gosub920
  380 gosub2450
  390 print"{down}you win,{down}{left}{left}{left}{left}{left}{left}{left}{left}you cheat!";
  400 goto120
  410 a=c0
  420 fori=c0toc8
  430 ifs(i)<>c0then450
  440 a=c1
  450 next
  460 ifa=c1then500
  462 s(z-c1)=c1
  464 gosub920
  470 gosub2450
  480 print"{down}you were saved{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}by a good";
  485 print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}fairy! the{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}game is a draw
  490 goto120
  500 if r<>c2then590
  510 s(b)=c7
  520 gosub1110
  530 ifr<>c1then570
  540 s(b)=c7
  542 gosub920
  548 gosub2450
  550 print"{down}i win! ha! ha!
  560 goto120
  570 gosub920
  580 goto340
  590 ifr<>c3then620
  600 s(b)=c7
  610 goto540
  620 ifs(c4)<>c0then650
  630 s(c4)=c7
  640 goto570
  650 ifs(c0)<>c0then680
  660 s(c0)=c7
  670 goto570
  680 ifs(c2)<>c0then710
  690 s(c2)=c7
  700 goto570
  710 ifs(c6)<>c0then740
  720 s(c6)=c7
  730 goto570
  740 ifs(c8)<>c0then770
  750 s(c8)=c7
  760 goto570
  770 i=c1
  780 ifs(i)<>c0then810
  790 s(i)=c7
  800 goto570
  810 i=i+c2
  820 goto780
  830 a=c0:fori=c0toc8
  832 ifs(i)<>0then836
  834 a=c1
  836 next:ifa<>c1then470
  838 gosub2450
  840 print"your move";
  850 gosub3000
  855 if(a$<"0")or(a$>"9")then850
  857 z=val(a$)
  858 gosub2450
  859 print"             ";
  860 ifz=0then910
  865 ifs(z-c1)=c0then900
  870 gosub2450
  880 print"huh?{down}{left}{left}{left}{left}you can't move{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}there dummy!";
  882 fori=c1to1000:next
  884 gosub2450
  886 print"    {down}{left}{left}{left}{left}              {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}            ";
  890 goto838
  900 s(z-c1)=c1:gosub920
  910 return
  920 fori=c0toc6stepc3
  925 print"{home}";
  930 forl=c1toc3*i+c1
  935 print"{down}";:next:print"{rght}{rght}";
  940 forj=c0toc2
  950 k=i+j
  960 b=s(k)
  970 ifb<>c0then1000
  980 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  990 goto1040
 1000 ifb<>c1then1030
 1010 print"{rvon} {down}{left}{rvof}{CBM-*}{down}{left}{down}{rvon}{SHIFT-POUND}{down}{left} {rght} {up}{left}{left} {CBM-*}{up}{left}{left} {up}{left} {rvof}{SHIFT-POUND}{up}{left}{rvon} {rvof}{rght}{rght}{rght}{rght}{rght}";
 1020 goto1040
 1030 print"{rvon}{SHIFT-POUND}{down}{left} {down}{left} {down}{left} {down}{left}{rvof}{CBM-*}{rvon} {rvof}{SHIFT-POUND}{up}{left}{rvon} {up}{left}{left}{rvof} {rvon} {up}{left} {up}{left}{left} {CBM-*}{rght}{rght}{rght}{rght}{rght}";
 1040 ifj=c2then1060
 1050 print"{rght}";
 1060 nextj,i
 1110 v=c3
 1120 gosub1330:ifr=vthenr=c0:return
 1160 v=ct
 1170 gosub1330:ifr=vthenr=c1:gosub1330
 1210 v=14
 1220 gosub1330:ifr=vthenr=c3:return
 1260 v=c2
 1270 gosub1330:ifr=vthenr=c2:return
 1310 r=c4:return
 1330 f=c0:e=c2:i=c1
 1360 gosub1800:ifr=vthenreturn
 1390 f=c3:e=c5:i=c1
 1420 gosub1800:ifr=vthenreturn
 1450 f=c6:e=c8:i=c1
 1480 gosub1800:ifr=vthenreturn
 1510 f=c0:e=c6:i=c3
 1540 gosub1800:ifr=vthenreturn
 1570 f=c1:e=c7:i=c3
 1600 gosub1800:ifr=vthenreturn
 1630 f=c2:e=c8:i=c3
 1660 gosub1800:ifr=vthenreturn
 1690 f=c0:e=c8:i=c4
 1720 gosub1800:ifr=vthenreturn
 1750 f=c2:e=c6:i=c2
 1780 gosub1800:return
 1800 r=c0
 1810 forj=ftoestepi
 1820 r=r+s(j)
 1830 ifs(j)=c0thenb=j
 1850 next
 1860 return
 2450 print"{home}{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 2460 return
 3000 print"{rvon} {left}{rvof}";:fori=c1to150:next
 3100 fori=c1to25:print"{rvof} {left}";:geta$
 3200 ifa$<>""thenreturn
 3300 next:goto3000
 4000 goto120
 63999 end:rem"end of tic-tac-toe property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   10 gosub280
   20 printe$;"who will go first {rvon}c{rvof}omputer or {rvon}p{rvof}layer?"
   30 geta$:ifa$=""then30
   40 ifa$="c"then240
   50 ifa$="p"then70
   60 print"{up}invalid entry, enter again.          {up}":fort=1to500:next:goto20
   65 printe$;
   70 ifpc=9then2500
   75 print"where do you want it human?          {up}"
   80 geta$:m=val(a$):ifm=0then80
   90 if bp(m)<>0thenprint"invalid entry, that space is full.    {up}"
  100 ifbp(m)<>0thenfort=1to500:next:goto70
  105 print"                                     {up}"
  110 bp(m)=4:printm$(m);pl$:pc=pc+1:goto123
  120 goto70
  123 forc=1to8:on c gosub160,170,180,190,200,210,220,230
  124 iflt=12thengoto2000
  125 iflt=3thengoto1000
  126 next
  127 ifpc=9then2500
  130 fora=1to8:on a gosub160,170,180,190,200,210,220,230
  131 if lt=2thencm=as:wn=1:goto250
  132 next
  140 fora=1to8:on a gosub160,170,180,190,200,210,220,230
  142 if lt=8thencm=as:goto250
  150 next:goto240
  160 lt=0:forl=1to3:lt=bp(l)+lt:ifbp(l)=0thenas=l
  165 next:return
  170 lt=0:forl=4to6:lt=bp(l)+lt:ifbp(l)=0thenas=l
  175 next:return
  180 lt=0:forl=7to9:lt=bp(l)+lt:ifbp(l)=0thenas=l
  185 next:return
  190 lt=0:forl=1to7step3:lt=bp(l)+lt:ifbp(l)=0thenas=l
  195 next:return
  200 lt=0:forl=2to8step3:lt=bp(l)+lt:ifbp(l)=0thenas=l
  205 next:return
  210 lt=0:forl=3to9step3:lt=bp(l)+lt:ifbp(l)=0thenas=l
  215 next:return
  220 lt=0:forl=1to9step4:lt=bp(l)+lt:ifbp(l)=0thenas=l
  225 next:return
  230 lt=0:forl=3to7step2:lt=bp(l)+lt:ifbp(l)=0thenas=l
  235 next:return
  240 cm=int(9*rnd(1)+1):ifbp(cm)<>0then240
  250 printm$(cm);cp$:bp(cm)=1
  255 pc=pc+1
  260 ifwn=1thengoto1000
  270 goto65
  280 print"{clr}";
  290 print" 7{SHIFT--}8{SHIFT--}9            {CBM-+}{rvon}{CBM-*}{rvof}      {CBM-+}{rvon}{CBM-*}{rvof}
  300 print" {SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}            {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  310 print" 4{SHIFT--}5{SHIFT--}6            {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  320 print" {SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}            {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  330 print" 1{SHIFT--}2{SHIFT--}3            {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  340 print"                  {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  350 print"{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-+}{CBM-*}{rvof}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}"
  360 print"{CBM-*}{CBM-+}{rvon}M{CBM-+} {rvof}{CBM-+}{rvon}MM{rvof}    {CBM-*}{rvon}     {rvof}{CBM-+}{rvon}M      {rvof}{CBM-+}{rvon}M     M{rvof}
  370 print" {CBM-+}{rvon} {CBM-+} {rvof}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}          {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  380 print" {CBM-*}{rvon}M{rvof}{CBM-*}{rvon}M{rvof}{CBM-*}{rvon} M{rvof}          {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  390 print"{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-*}{CBM-+}{CBM-*}{rvof} {CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}        {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  400 print"{CBM-*}{CBM-+}{rvon}M{CBM-+}{CBM-POUND}{CBM-+}{CBM-*}{rvof}{CBM-+}{rvon}MM{rvof}        {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  410 print" {CBM-+}{rvon} {CBM-+}M{CBM-+} {rvof}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}        {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  420 print" {CBM-*}{rvon}M{rvof}{CBM-*}{rvon}M{rvof}{CBM-*}{rvon}M{rvof}{CBM-*}{rvon} M{rvof}        {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  430 print"{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-*}{CBM-+}{CBM-*}{rvof}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}
  440 print"{CBM-*}{CBM-+}{rvon}M{CBM-+}M{CBM-+}{rvof}{CBM-+}{rvon}{CBM-+}M{rvof}   {CBM-*}{rvon}     {rvof}{CBM-+}{rvon}M      {rvof}{CBM-+}{rvon}M      M{rvof}
  450 print" {CBM-+}{rvon} {rvof}{CBM-*}{rvon}{CBM-+}M{rvof}{CBM-+}{CBM-+}{rvon}M{rvof}         {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  460 print" {CBM-*}{rvon}M{rvof} {CBM-*}{rvon}M{rvof}{CBM-*}{rvon} M{rvof}         {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  470 print"                  {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  480 print"                  {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  490 print"                  {CBM-+}{rvon} {rvof}      {CBM-+}{rvon} {rvof}
  500 print"                  {CBM-*}{rvon}M{rvof}      {CBM-*}{rvon}M{rvof}{home}"
  510 e$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  520 m$(7)="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  530 m$(8)="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  540 m$(9)="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  550 m$(4)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  560 m$(5)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  570 m$(6)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  580 m$(1)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  590 m$(2)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  600 m$(3)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  610 cp$=" {CBM-+}{CBM-+}{CBM-+}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{CBM-+}{rvon}M  {rvof}{CBM-+}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{CBM-+}{rvon} {rvof}  {CBM-+}{rvon} {rvof}{down}{left}{left}{left}{left}{left}{left}{CBM-+}{rvon} {rvof}  {CBM-+}{rvon} {rvof}"
  620 cp$=cp$+"{down}{left}{left}{left}{left}{left}{left}{CBM-*}{CBM-+}{CBM-+}{CBM-+}{rvon}MM{rvof}{down}{left}{left}{left}{left}{left}{CBM-*}{rvon}  M{rvof}"
  630 pl$="{CBM-+}{rvon}{CBM-*}{rvof}  {CBM-+}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{CBM-*}{CBM-+}{rvon}{CBM-*}{rvof}{CBM-+}{rvon}MM{rvof}{down}{left}{left}{left}{left}{left}{CBM-*}{CBM-+}{rvon}MM{rvof}{down}{left}{left}{left}{left}{CBM-+}{rvon}M{rvof}{CBM-+}{rvon}{CBM-*}{rvof}"
  640 pl$=pl$+"{down}{left}{left}{left}{left}{left}{CBM-+}{rvon}M{rvof} {CBM-*}{CBM-+}{rvon}{CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{CBM-*}{rvon}M{rvof}  {CBM-*}{rvon}M{rvof}"
  650 forj=826to858:readd:ifd=peek(j)thenc=c+1:ifc=5thenreturn
  660 pokej,d:next:return
  670 data169,128,141,72,3,141,77
  680 data3,160,4,162,0,189,0
  690 data128,73,128,157,0,128,232
  700 data208,245,238,72,3,238,77
  710 data3,136,208,234,96
 1000 printe$;"{rvon}i won! you uninteligent biped!!"
 1010 fora=1to8:sys826:fort=1to500:next:next
 1020 goto3000
 1050 end
 2000 printe$;"{rvon}you won, human."
 2010 fora=1to8:sys826:fort=1to500:next:next
 2020 goto3000
 2500 printe$"{rvon}sorry it's a cats game.":fort=1to2000:next
 3000 print"{up}{rvon}play again (y or n)?            "
 3010 geta$:ifa$=""then3010
 3020 ifleft$(a$,1)="y"thenrun
 3030 ifleft$(a$,1)="n"thenprint"{clr}":end
 3040 goto3010
  100 print"{clr}";chr$(142):sys3776
:{stop} {CBM-L}{stop}{CTRL-X}{CBM-Z}{CTRL-A}{stop}{$6d}{wht}{stop}{sret}{CTRL-A}{stop}{CBM-Z}{$00}{stop}{$6d}{CTRL-D}{stop}{sret}{$00}{stop}{CTRL-X}{CBM-Z}{stop}{stop}{$6d}{CTRL-G}{stop}{sret}{stop}{stop}{CBM-Z}{CTRL-B}{stop}{$6d}{CTRL-F}{stop}{sret}{CTRL-B}{stop}{CBM-Z}{ensh}{stop}{CBM-D}{dish}{stop} {CBM-D}{stop}{up}{$0a}{CBM-Z}{$00}{stop}0/I{CTRL-O}{CTRL-P}+{CBM-Z}{CTRL-B}{stop}0&I{CTRL-O}{CTRL-P}" {CBM-L}{stop}I {$f0}{CTRL-D}I.P{red} {CBM-D}{stop}{SHIFT-POUND}{$6c}{CBM-D}{dish}{stop}{up}{$0a}{$a0}{$00}{CBM-I}{CTRL-D}{f7}P{$fd}JP{$fa}l={stop}{SHIFT-POUND}{$00}{f1}{$00}{$60}{SHIFT-POUND}~{f1}{$00}{$60}h{SHIFT-POUND} ,@{$e8}P{$fb}{$68}{$60}{SHIFT-POUND}{$80}{f1}{CTRL-K}{SHIFT-POUND}]{CBM-S}{CTRL-B}{stop}{$e8}{CTRL-X}{$69}({blk}{CTRL-B}{$e6}{CTRL-K}JP{$f6}{f1}{$0a}{CBM-D}{$00}{stop}{f8}{dish}{stop}{CBM-E}{$0a}{sret}{ensh}{stop}{$60}~{$00}~{$00}~{$00}~{$00}{$fb}{SHIFT-POUND} ,@{$e8}P{$fb}{CBM-I}{f7}{CBM-X}{SHIFT-*}{$82}{left}{gry2}{$82}{$e8}P{$f7}{CBM-I}&{SHIFT-POUND} {left}{gry2}{$83}JP{$fa}l{CTRL-L}{CTRL-D}{$00}){CTRL-D}{CTRL-A}{$00}{lgrn}"{clr}time{$60}trek (c)1979 brad templeton{$00}k{CTRL-D}{$0a}{$00}{f3}e(4,1),g%(7,7),c(4):a{CBM-R}{CBM-F}({CBM-Q}ti){$00}{$7d}{CTRL-D}{del}{$00}{lred}{CBM-G}r(m){CBM-R}{CBM-J}({CBM-F}(1){CBM-D}m):{gry1}59467,16:{gry1}59466,15:{gry1}59464,0{$00}{SHIFT-POUND}{CTRL-D}{grn}{$00}c(0){CBM-R}7:c(1){CBM-R}25:c(2){CBM-R}146:c(3){CBM-R}131:c(4){CBM-R}4{$00}O{CTRL-D}#{$00}{lred}{CBM-G}s(po){CBM-R}32901{CBM-N}80{CBM-D}{CBM-J}(po{CBM-Z}8){CBM-N}2{CBM-D}(po{CBM-P}7){$00}{$f9}{CTRL-D}<{$00}mk{CBM-R}1:{lgrn}"{down}{down}{down}difficulty factor (1-9)? ";{$00}1{wht}f{$00}{CBM-K}i$:d{CBM-R}E(i$):{f6}i${CBM-R}"m"{CBM-M}{lgrn}:{lgrn}"moving klingons{up}"{CBM-+}10);:mk{CBM-R}0{$00}={wht}k{$00}{f6}d{CBM-R}0{CBM-M}70{$00}{$61}{wht}p{$00}{lgrn}i$:sd{CBM-R}51{CBM-Q}2{CBM-D}d:{orng}x{CBM-R}1{CBM-@}6{CBM-N}d{CBM-D}3{CBM-N}{CBM-G}r(10){$00}{left}{wht}{$64}{$00}a{CBM-R}{CBM-G}r(8):b{CBM-R}{CBM-G}r(8):{f6}g%(a,b){CBM-W}160{CBM-M}g%(a,b){CBM-R}g%(a,b){CBM-N}32:kc{CBM-R}kc{CBM-N}1{$00}R{wht}{$6e}{$00}{$82}:a{CBM-R}{CBM-G}r(8):b{CBM-R}{CBM-G}r(8):kc{CBM-R}kc{CBM-N}4{CBM-Q}g%(a,b){CBM-Z}32:g%(a,b){CBM-R}128{$00}{CTRL-K}{CTRL-F}{$82}{$00}{orng}x{CBM-R}1{CBM-@}(16{CBM-Q}d){CBM-Z}3.5:a{CBM-R}{CBM-G}r(8):b{CBM-R}{CBM-G}r(8):g%(a,b){CBM-R}g%(a,b){CBM-A}16:{$82}{$00}8{CTRL-F}{f8}{$00}{orng}x{CBM-R}0{CBM-@}7:{orng}y{CBM-R}0{CBM-@}7:g%(x,y){CBM-R}g%(x,y){CBM-N}{CBM-G}r(9):{$82}y,x{$00}{$6c}{CTRL-F}{lred}{$00}qr{CBM-R}{CBM-G}r(8):qc{CBM-R}{CBM-G}r(8):sr{CBM-R}{CBM-G}r(8):sc{CBM-R}{CBM-G}r(8):r%{CBM-R}sr:c%{CBM-R}sc{$00}{rvof}{CTRL-F}{$a0}{$00}e{CBM-R}10000{CBM-Q}500{CBM-D}d:t{CBM-R}10:me{CBM-R}e:sh{CBM-R}0:wa{CBM-R}0{$00}{CBM--}{CTRL-F}{CBM-N}{$00}dn${CBM-R}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}":ss${CBM-R}"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":sp${CBM-R}"       "{$00}{$fa}{CTRL-F}{swlc}{CTRL-A}{lgrn}"{clr}{down}{down}":u${CBM-R}"{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"{$00}0{CTRL-G}{CTRL-X}{CTRL-A}{orng}x{CBM-R}0{CBM-@}7:{lgrn}{CBM-T}28)"{SHIFT--}"I(D(x),1)"{SHIFT--}........{left}":{lgrn}{CBM-T}28)"{SHIFT--} {SHIFT--}":{$82}{$00}{$62}{CTRL-G},{CTRL-A}{lgrn}"{home}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}";{$00}{clr}{CTRL-G}6{CTRL-A}{lgrn}"{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}0 1 2 3 4 5 6 7  {SHIFT--}01234567{SHIFT--}";{$00}{SHIFT-@}{CTRL-G}@{CTRL-A}{lgrn}"{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S} {SHIFT--}"{$00}{$f7}{CTRL-G}j{CTRL-A}{lgrn}"{left}{SHIFT--}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}":{lgrn}"{left}{SHIFT--}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}":{lgrn}"{left}{SHIFT--}{SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}"{$00}&{dish}t{CTRL-A}{lgrn}"{left}{SHIFT--}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}":{lgrn}"{left}{SHIFT--}{SHIFT--}energy":{lgrn}"{left}{SHIFT--}{SHIFT--}torps{$00}z{dish}^{CTRL-A}{lgrn}"{left}{SHIFT--}{SHIFT--}klingons":{lgrn}"{left}{SHIFT--}{SHIFT--}shields   d":{lgrn}"{left}{SHIFT--}{SHIFT--}condition{$00}{f6}{dish}{$68}{CTRL-A}{lgrn}"{left}{SHIFT--}{SHIFT--}time":{lgrn}"{left}{SHIFT--}{SHIFT--}speed   0.0":{lgrn}"{left}{SHIFT--}{SHIFT--}quad     -{$00}A{dish}{$72}{CTRL-A}{lgrn}"{left}{SHIFT--}{SHIFT--}sector   -":{lgrn}"{left}{SHIFT--}{SHIFT--}direction":{lgrn}"{left}{SHIFT--}{SHIFT--}d factor "d{$00}{$f1}{dish}{$7c}{CTRL-A}{lgrn}"{left}{SHIFT--}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{$00}{CTRL-Z}{ensh}{f3}{CTRL-A}{lgrn}"{left}{CBM-W}{SHIFT--}command?":{lgrn}"{left}{SHIFT--}{SHIFT--}{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{down}{SHIFT--}{SHIFT--}{left}{left}{down}{SHIFT--}{SHIFT--}"{$00}x{ensh}{blk}{CTRL-A}{lgrn}"{left}{SHIFT--}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{home}";:{gry1}33767,125{$00}{f3}{ensh}{lblu}{CTRL-A}{lgrn}ss$"{down}{down}{down}{down}{left}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{$00}{CBM-L}{ensh}{$f4}{CTRL-A}{orng}x{CBM-R}0{CBM-@}7:{orng}y{CBM-R}0{CBM-@}7:{f6}g%(x,y){CBM-P}16{CBM-M}{gry1}32879{CBM-N}80{CBM-D}x{CBM-N}y,111{$00}E{ensh}{$fe}{CTRL-A}{$82}y,x:{f2}2000{$00}{$ee}{ensh}x{CTRL-B}{lgrn}"{home}":{orng}x{CBM-R}qr{CBM-Q}1{CBM-@}qr{CBM-N}1:{lgrn}"{up}";:{orng}y{CBM-R}qc{CBM-Q}1{CBM-@}qc{CBM-N}1{$00}{down}{$0a}{$62}{CTRL-B}{f6}x{CBM-W}0{CBM-A}x{CBM-E}7{CBM-A}y{CBM-W}0{CBM-A}y{CBM-E}7{CBM-M}{lgrn}"{rght}***";:{f2}640{$00}j{$0a}{$6c}{CTRL-B}k%{CBM-R}g%(x,y){CBM-Z}32:a{CBM-R}(g%(x,y){CBM-P}16){CBM-Z}1.6{CBM-N}(g%(x,y){CBM-P}15){CBM-N}100{CBM-D}k%{$00}{$76}{$0a}{$76}{CTRL-B}{lgrn}"{rght}"I(D(a{CBM-N}1000),3);:{gry1}32919{CBM-N}80{CBM-D}x{CBM-N}y,48{CBM-N}k%{$00}{CBM-@}{$0a}{$80}{CTRL-B}{$82}:{lgrn}"{down}":{$82}:{gry1}32919{CBM-N}80{CBM-D}qr{CBM-N}qc,g%(qr,qc){CBM-Z}32{CBM-N}176{$00}{CBM-*}{$0a}F{CTRL-B}{lgrn}ss$:{orng}x{CBM-R}1{CBM-@}8:{lgrn}{CBM-T}13)"{up}. . . . . . . .{down}":{$82}:{gry1}{CBM-G}s(r%{CBM-D}8{CBM-N}sc),90{$00}{CTRL-G}{CTRL-K}U{CTRL-B}bp{CBM-R}{CBM-Q}1:{f6}g%(qr,qc){CBM-P}16{CBM-M}y{CBM-R}83:{sret}6500:bp{CBM-R}a{$00}>{CTRL-K}{$ee}{CTRL-B}{orng}x{CBM-R}0{CBM-@}4:e(x,1){CBM-R}{CBM-Q}1:{$82}:k%{CBM-R}g%(qr,qc){CBM-Z}32:kh{CBM-R}k%:{f6}k%{CBM-R}0{CBM-M}830{$00}w{CTRL-K}{$f8}{CTRL-B}{orng}x{CBM-R}0{CBM-@}k%{CBM-Q}1:y{CBM-R}65:{sret}6500{$00}{$7d}{CTRL-K}{CTRL-L}{stop}e(x,0){CBM-R}a:e(x,1){CBM-R}2000{CBM-N}me{CBM-Z}8{CBM-N}d{CBM-D}400:{$82}{$00}{lred}{CTRL-K}>{stop}{f6}{CBM-F}(1){CBM-W}.09{CBM-M}y{CBM-R}63:{sret}6500{$00}{SHIFT-*}{CTRL-K}{$84}{stop}a{CBM-R}g%(qr,qc){CBM-P}15:{f6}a{CBM-M}{orng}x{CBM-R}1{CBM-@}a:y{CBM-R}42:{sret}6500:{$82}{$00}{$e0}{CTRL-K}{$de}{stop}{gry1}33337,48{CBM-N}qr:{gry1}33339,48{CBM-N}qc:{swuc}{$00}{$e9}{CTRL-K}P{CTRL-G}{sret}600{$00}{CTRL-K}{CTRL-L}Z{CTRL-G}{orng}n{CBM-R}0{CBM-@}4:{orng}q{CBM-R}1{CBM-@}5:{CBM-K}i$:{f6}i${CBM-R}""{CBM-M}2200{$00}6{CTRL-L}{$e4}{CTRL-G}{f6}i${CBM-R}"{home}"{CBM-M}dg{CBM-R}0:{lgrn}dn$u$sp$sp$:in${CBM-R}"":{f2}2200{$00}c{CTRL-L}{$ee}{CTRL-G}{f6}dg{CBM-M}6000{$00}{$73}{CTRL-L}{$f8}{CTRL-G}ke${CBM-R}i$:{f6}i${CBM-R}"w"{CBM-M}{lgrn}dn$u$"warp"sp$sp$:dg{CBM-R}1:op{CBM-R}6{$00}{pur}{CTRL-L}{CTRL-B}{dish}{f6}i${CBM-R}"i"{CBM-M}{lgrn}dn$u$"impulse"sp$:dg{CBM-R}1:op{CBM-R}9{$00}P{CTRL-L}{CTRL-L}{dish}{f6}i${CBM-R}"s"{CBM-M}{lgrn}dn$u$"shields"sp$:s{CBM-R}1{CBM-Q}s:{gry1}33179,4{CBM-N}s{CBM-D}145{$00}{$f9}{CTRL-L} {dish}{f6}i${CBM-R}"t"{CBM-M}{lgrn}dn$u$"torpedo"sp$:dg{CBM-R}3:op{CBM-R}9{$00}"
*{dish}{f6}i${CBM-R}"p"{CBM-M}{lgrn}dn$u$"phasers"sp$:dg{CBM-R}2:op{CBM-R}9{$00}=
>{dish}q1{CBM-R}E(i$){CBM-Q}1:{f6}q1{CBM-R}{CBM-Q}1{CBM-M}2200{$00}{$76}
c{dish}{f6}i${CBM-R}"5"{CBM-M}ed{CBM-R}0:wa{CBM-R}0:ix{CBM-R}0:iy{CBM-R}0:{lgrn}H(dn$,14){CBM-+}9)"0.0":{f2}2200{$00}{f8}
h{dish}dx{CBM-R}q1{CBM-Q}3{CBM-D}{CBM-J}(q1{CBM-Z}3){CBM-Q}1{$00}{CBM-N}
r{dish}dy{CBM-R}1{CBM-Q}{CBM-J}(q1{CBM-Z}3):{gry1}33419,49{CBM-N}q1{$00}Q
\{dish}{f6}dy{CBM-W}{CBM-E}0{CBM-P}dx{CBM-W}{CBM-E}0{CBM-M}dy{CBM-R}dy{CBM-Z}{SHIFT-@}(2):dx{CBM-R}dx{CBM-Z}{SHIFT-@}(2){$00}{$f9}
{$66}{dish}ix{CBM-R}wa{CBM-D}dx:iy{CBM-R}wa{CBM-D}dy:sr{CBM-R}r%{CBM-N}.5:sc{CBM-R}c%{CBM-N}.5{$00}{$00}{swlc}{gry2}{dish}{$82}q{$00}.{swlc}{CBM-I}{dish}sr{CBM-R}iy{CBM-N}sr:sc{CBM-R}ix{CBM-N}sc:{f6}{CBM-J}(sr){CBM-R}r%{CBM-P}{CBM-J}(sc){CBM-R}c%{CBM-M}2260{$00}n{swlc}{CBM-D}{dish}{f6}sr{CBM-W}0{CBM-A}sr{CBM-E}{CBM-R}8{CBM-A}sc{CBM-W}0{CBM-A}sc{CBM-E}{CBM-R}8{CBM-M}3000{$00}{$72}{swlc}{CBM-L}{dish}y{CBM-R}B({CBM-G}s(8{CBM-D}{CBM-J}(sr){CBM-N}sc)):{f6}y{CBM-W}{CBM-E}46{CBM-M}3100{$00}{$8f}{swlc}{SHIFT-*}{dish}{gry1}{CBM-G}s(8{CBM-D}r%{CBM-N}c%),46{CBM-Q}37{CBM-D}(c{CBM-R}4){$00}T{swlc}T{dish}c{CBM-R}({CBM-Q}2{CBM-D}((g%(qr,qc){CBM-P}224){CBM-E}0)){CBM-A}{CBM-Q}(e{CBM-W}1000):r%{CBM-R}sr:c%{CBM-R}sc:{f6}bp{CBM-R}r%{CBM-D}8{CBM-N}c%{CBM-M}c{CBM-R}4{$00}{$f9}{swlc}{$f2}{dish}e{CBM-R}e{CBM-Q}ed{CBM-N}.1{CBM-D}(c{CBM-W}{CBM-E}4){CBM-Q}8{CBM-D}s:{f6}e{CBM-W}{CBM-R}0{CBM-M}30000{$00}{red}{CTRL-O}{$fc}{dish}{gry1}{CBM-G}s(8{CBM-D}r%{CBM-N}c%),90:{f6}c{CBM-R}4{CBM-M}e{CBM-R}me:t{CBM-R}10{$00}7{CTRL-O}{CTRL-F}{ensh}sd{CBM-R}sd{CBM-Q}.015:{f6}sd{CBM-W}1{CBM-M}10000{$00}j{CTRL-O}{CTRL-K}{ensh}{f6}bp{CBM-E}{CBM-R}0{CBM-P}sb{CBM-M}9200{$00}]{CTRL-O}${ensh}{f6}e(n,1){CBM-E}0{CBM-M}8000{$00}{$6f}{CTRL-O}.{ensh}a{CBM-R}e:b{CBM-R}8:{sret}5500{$00}{CBM-+}{CTRL-O}8{ensh}a{CBM-R}t:{sret}5500:a{CBM-R}kc:{sret}5500:a{CBM-R}sd:b{CBM-R}13:{sret}5500:{f6}c{CBM-R}3{CBM-M}{gry1}33219,3{$00}{CBM-*}{CTRL-O}b{ensh}{rvof}59456,32,32:{gry1}33219,c(c):{gry1}33377,48{CBM-N}sr:{gry1}33379,48{CBM-N}sc:{lgrn}{$00}{$ec}{CTRL-O}{$60}{ensh}{$82}n:{f2}2010{$00}4{CTRL-P}{CBM-U}{CTRL-K}qr{CBM-R}qr{CBM-Q}(sr{CBM-E}{CBM-R}8){CBM-N}(sr{CBM-W}0):qc{CBM-R}qc{CBM-N}(sc{CBM-W}0){CBM-Q}(sc{CBM-E}{CBM-R}8):{f6}qr{CBM-W}0{CBM-A}qr{CBM-E}7{CBM-A}qc{CBM-W}0{CBM-A}qc{CBM-E}7{CBM-M}3200{$00}{$68}{CTRL-P}B{CTRL-K}sr{CBM-R}(sr{CBM-P}7){CBM-N}.5:sc{CBM-R}(sc{CBM-P}7){CBM-N}.5:r%{CBM-R}sr:c%{CBM-R}sc:c{CBM-R}0:{f2}2000{$00}{$77}{CTRL-P}{red}{CTRL-L}{f6}y{CBM-R}83{CBM-M}3400{$00}{CBM-A}{CTRL-P}&{CTRL-L}{sret}4200:{lgrn}"ship blocked by ";:{sret}7330:{lgrn}" at"{CBM-J}(sr)"-"{CBM-J}(sc){$00}{$f3}{CTRL-P}+{CTRL-L}ed{CBM-R}0:wa{CBM-R}0:sr{CBM-R}r%{CBM-N}.5:sc{CBM-R}c%{CBM-N}.5:ix{CBM-R}0:iy{CBM-R}0:{lgrn}H(dn$,14){CBM-+}9)"0.0":{f2}2290{$00}0{down}{$80}{CTRL-L}{sret}4200:{lgrn}"ship unable to cross energy barrier":qr{CBM-R}qr{CBM-Q}{CBM-H}(iy){$00}f{down}{f4}{CTRL-L}qc{CBM-R}qc{CBM-Q}{CBM-H}(ix):{f2}3115{$00}{$73}{down}h
{sret}4200:{lgrn}"enterprise has docked!":t{CBM-R}10:c{CBM-R}4{$00}{CBM-@}{down}r
{gry1}{CBM-G}s(r%{CBM-D}8{CBM-N}c%),46:{gry1}{CBM-G}s(bp),90:r%{CBM-R}sr:c%{CBM-R}sc:{f2}3115{$00}O{down}{$a0}{CTRL-O}xi{CBM-R}256{CBM-D}{CBM-V}(q1{CBM-D}~{CBM-Z}180):yi{CBM-R}{CBM-Q}{CBM-B}(q1{CBM-D}~{CBM-Z}180){CBM-D}256{$00}{$f8}{down}{CBM-G}{CTRL-O}{gry1}768,c1{CBM-D}2:{gry1}770,r{CBM-D}2:{gry1}769,128:{gry1}771,128{$00}{red}{rvon}{CBM-N}{CTRL-O}{orng}x{CBM-R}50{CBM-@}150{SHIFT-POUND}6:{gry1}59464,x:{$82}:{gry1}59464,0{$00}[{rvon}{CBM-H}{CTRL-O}{gry1}773,xi{CBM-P}255:{gry1}775,yi{CBM-P}255:{gry1}772,(xi{CBM-P}32512){CBM-Z}256:{f6}xi{CBM-W}0{CBM-M}{gry1}772,255{$00}{$82}{rvon}{CBM-V}{CTRL-O}{gry1}774,(yi{CBM-P}32512){CBM-Z}256:{f6}yi{CBM-W}0{CBM-M}{gry1}774,255{$00}{SHIFT-@}{rvon}H{CTRL-O}{yel}826:hs{CBM-R}B(0){CBM-E}0:nr{CBM-R}B(770):nc{CBM-R}B(768):y{CBM-R}B(777):{f6}hs{CBM-R}0{CBM-M}{swuc}{$00}X{rvon}"{CTRL-P}{lgrn}ss$J(dn$,2,nr)"{left}"{CBM-+}1{CBM-N}nc);{$00}{$fd}{rvon},{CTRL-P}{orng}x{CBM-R}1{CBM-@}10:{lgrn}J("W#QZ+{SHIFT-+}*xV-",x,1)"{left}";{$00}.{home}6{CTRL-P}{orng}q{CBM-R}200{CBM-@}240{SHIFT-POUND}7:{gry1}59464,q:{$82}q,x:{lgrn}".{left}";:{gry1}59464,0:{swuc}{$00}@{home}{$68}{CTRL-P}{yel}1000:{lgrn}dn$;:{swuc}{$00}{$6d}{home}{$7c}{CTRL-U}i${CBM-R}D({CBM-J}(a)):{lgrn}H(dn$,b){CBM-+}12{CBM-Q}C(i$))i$:b{CBM-R}b{CBM-N}1:{swuc}{$00}{CBM-K}{home}{$70}{CTRL-W}{f6}E(i$){CBM-R}0{CBM-P}i${CBM-W}{CBM-E}"0"{CBM-P}i${CBM-W}{CBM-E}"-"{CBM-P}i${CBM-W}{CBM-E}G(13){CBM-P}i${CBM-W}{CBM-E}"{del}"{CBM-M}2200{$00}{CBM-H}{home}{$75}{CTRL-W}{f6}i${CBM-R}G(13){CBM-M}6040{$00}E{home}{$77}{CTRL-W}{f6}i${CBM-R}"{del}"{CBM-M}6200{$00}{$f2}{home}{$7a}{CTRL-W}in${CBM-R}in${CBM-N}i$:{lgrn}dn$u${CBM-+}op)in$:{f6}C(in$){CBM-W}dg{CBM-M}2200{$00}{CTRL-D}{del}{sret}{CTRL-W}{lgrn}dn$u${CBM-+}op)in${$00},{del}{gry2}{CTRL-W}q1{CBM-R}E(in$):dg{CBM-R}0:in${CBM-R}"":{f6}ke${CBM-R}"w"{CBM-M}7010{$00}>{del}{CBM-I}{CTRL-W}{f6}ke${CBM-R}"i"{CBM-M}7110{$00}p{del}{CBM-D}{CTRL-W}{f6}ke${CBM-R}"t"{CBM-M}7200{$00}{$7f}{del}{CBM-L}{CTRL-W}{f6}ke${CBM-R}"p"{CBM-M}ke${CBM-R}"%":dg{CBM-R}2:pc{CBM-R}{CBM-L}(q1):op{CBM-R}12:{f2}2200{$00}{up}{del}{SHIFT-*}{CTRL-W}{f6}ke${CBM-R}"%"{CBM-M}7400{$00}{CBM-@}{del}8{CTRL-X}{f6}C(in$){CBM-R}0{CBM-M}2200{$00}{SHIFT-+}{del}={CTRL-X}{lgrn}dn$u${CBM-+}op{CBM-N}C(in$){CBM-Q}1)" ":in${CBM-R}J(in$,1,C(in$){CBM-Q}1):{f2}2200{$00}{$fb}{del}{$64}{CTRL-Y}a{CBM-R}{CBM-G}r(64):{f6}B({CBM-G}s(a)){CBM-W}{CBM-E}46{CBM-M}6500{$00}{$0a}{CTRL-U}{$66}{CTRL-Y}{gry1}{CBM-G}s(a),y:{swuc}{$00}j{CTRL-U},{CTRL-Z}a{CBM-R}r{CBM-Q}dr:b{CBM-R}dc{CBM-Q}c1{CBM-N}.01:dc{CBM-R}{SHIFT-@}(a{CBM-D}a{CBM-N}b{CBM-D}b){CBM-Z}256:xi{CBM-R}b{CBM-Z}dc:yi{CBM-R}{CBM-Q}a{CBM-Z}dc:{f2}4005{$00}{clr}{CTRL-U}{$62}{esc}wa{CBM-R}q1{CBM-S}1.5{CBM-Z}7:ix{CBM-R}wa{CBM-D}dx:iy{CBM-R}wa{CBM-D}dy:ed{CBM-R}q1{CBM-S}2.5:{gry1}33297,48{CBM-N}q1:{gry1}33299,48:{f2}2200{$00}X{CTRL-U}F{esc}wa{CBM-R}q1{CBM-Z}70:ix{CBM-R}wa{CBM-D}dx:iy{CBM-R}wa{CBM-D}dy:ed{CBM-R}q1{CBM-Z}18:{gry1}33297,48:{gry1}33299,48{CBM-N}q1:{f2}2200{$00}{CTRL-B}{CTRL-V} {red}{f6}t{CBM-R}0{CBM-M}{sret}4200:{lgrn}"torpedoes expired":{f2}2200{$00}6{CTRL-V}*{red}t{CBM-R}t{CBM-Q}1:r{CBM-R}r%:c1{CBM-R}c%:{sret}4000:{f6}hs{CBM-P}y{CBM-R}65{CBM-M}pc{CBM-R}1000{CBM-Z}d:{f2}7470{$00}v{CTRL-V}/{red}{f6}{CBM-POUND}hs{CBM-M}{sret}4200:{lgrn}"missed!":{f2}2200{$00}{blk}{CTRL-V}1{red}{sret}4200:{sret}7330:{lgrn}" destroyed":{f6}y{CBM-R}42{CBM-M}g%(qr,qc){CBM-R}g%(qr,qc){CBM-Q}1{$00}{$a0}{CTRL-V}2{red}{f6}y{CBM-W}{CBM-E}63{CBM-M}2200{$00}P{CTRL-V}3{red}{f6}{CBM-F}(1){CBM-W}.3{CBM-M}{sret}4200:{lgrn}"ouch!!!  *&$!!&&#!{home}":{f2}2200{$00}{$fa}{CTRL-V}>{red}{f6}{CBM-F}(1){CBM-E}.5{CBM-M}t{CBM-R}{CBM-G}r(14):sd{CBM-R}{CBM-G}r(50{CBM-Q}3{CBM-D}d):{f2}2000{$00}:{CTRL-W}h{red}{gry1}32919{CBM-N}80{CBM-D}qr{CBM-N}qc,48{CBM-N}kh:qr{CBM-R}{CBM-G}r(8):qc{CBM-R}{CBM-G}r(8):e{CBM-R}{CBM-G}r(me):{lgrn}"{home}":{f2}2000{$00}m{CTRL-W}{CBM-I}{red}{f6}y{CBM-R}42{CBM-M}{lgrn}"star";{$00}{lblu}{CTRL-W}{CBM-M}{red}{f6}y{CBM-R}83{CBM-M}{lgrn}"starbase";:g%(qr,qc){CBM-R}g%(qr,qc){CBM-Q}16:{gry1}32879{CBM-N}80{CBM-D}qr{CBM-N}qc,32:sb{CBM-R}{CBM-Q}1:bp{CBM-R}{CBM-Q}1{$00}{CBM-R}{CTRL-W}{CBM-D}{red}{f6}y{CBM-R}63{CBM-M}{lgrn}"something";{$00}H{CTRL-W}{CBM-L}{red}{f6}y{CBM-R}65{CBM-M}{lgrn}"klingon";{$00}N{CTRL-W}J{red}{swuc}{$00}{CTRL-A}{CTRL-X}{$e8}{red}{f6}e{CBM-W}10{CBM-D}pc{CBM-M}{sret}4200:{lgrn}"not enough energy left":{f2}2200{$00}{CTRL-P}{CTRL-X}{$ed}{red}{f6}pc{CBM-R}0{CBM-M}2200{$00}g{CTRL-X}{$f2}{red}e{CBM-R}e{CBM-Q}pc{CBM-D}10:r{CBM-R}r%:c1{CBM-R}c%:dr{CBM-R}{CBM-J}(q1{CBM-Z}10):dc{CBM-R}q1{CBM-Q}10{CBM-D}dr:{sret}6700{$00}u{CTRL-X}{CTRL-F}{rght}{f6}{CBM-POUND}hs{CBM-M}7215{$00}{$82}{CTRL-X}{CTRL-Z}{rght}{f6}y{CBM-R}83{CBM-A}y{CBM-R}42{CBM-M}{lgrn}G(211{CBM-N}169{CBM-D}(y{CBM-R}42)):hs{CBM-R}0:{f2}7215{$00}{up}{CTRL-X}${rght}{f6}y{CBM-R}63{CBM-M}7219{$00}{CBM-K}{CTRL-X}.{rght}{sret}7475:{f2}2200{$00}{CBM-Y}{CTRL-X}3{rght}b{CBM-R}{CBM-J}(nr){CBM-D}4{CBM-N}{CBM-J}(nc{CBM-Z}2){$00}P{CTRL-X}8{rght}{orng}x{CBM-R}0{CBM-@}4:{f6}e(x,0){CBM-W}{CBM-E}b{CBM-M}{$82}x{$00}{CTRL-O}{CTRL-Y}b{rght}he{CBM-R}pc{CBM-D}12{CBM-Z}{SHIFT-@}((r%{CBM-Q}nr{CBM-Z}2){CBM-S}2{CBM-N}(c%{CBM-Q}nc{CBM-Z}2){CBM-S}2){CBM-Z}(s{CBM-N}1):e(x,1){CBM-R}e(x,1){CBM-Q}he{$00}#{CTRL-Y}l{rght}{f6}e(x,1){CBM-W}{CBM-R}0{CBM-M}7530{$00}f{CTRL-Y}v{rght}{lgrn}"A":{sret}7700:{lgrn}{CBM-J}(e(x,1))"left{home}":{swuc}{$00}{$63}{CTRL-Y}{$6a}{rght}{sret}7700:{lgrn}" {rvon}**destroyed**{home}{$00}{f4}{CTRL-Y}{$6f}{rght}e(x,0){CBM-R}{CBM-Q}1:kh{CBM-R}kh{CBM-Q}1:{f6}kh{CBM-R}0{CBM-P}c{CBM-W}{CBM-E}4{CBM-M}c{CBM-R}c{CBM-P}1{$00}{CBM-I}{CTRL-Y}{$7e}{rght}kc{CBM-R}kc{CBM-Q}1:{f6}kc{CBM-R}0{CBM-M}20000{$00}{CBM-B}{CTRL-Y}{f7}{rght}g%(qr,qc){CBM-R}g%(qr,qc){CBM-Q}32:{swuc}{$00}~{CTRL-Y}{del}{grn}{sret}4200:{lgrn}{CBM-J}(he)"unit hit on klingon at"{CBM-J}(nr{CBM-Z}2)"-"{CBM-J}(nc{CBM-Z}2):{f2}4200{$00}2{CTRL-Z}@{blu}r{CBM-R}{CBM-J}(e(n,0){CBM-Z}8):c1{CBM-R}e(n,0){CBM-P}7:dr{CBM-R}r%:dc{CBM-R}c%:{f6}mk{CBM-M}8020{$00}{$70}{CTRL-Z}e{blu}nr{CBM-R}r{CBM-N}{CBM-G}r(3){CBM-Q}1:nc{CBM-R}c1{CBM-N}{CBM-G}r(3){CBM-Q}1{CBM-P}7:y{CBM-R}8{CBM-D}nr{CBM-N}nc:{f6}B({CBM-G}s(y)){CBM-W}{CBM-E}46{CBM-M}8020{$00}{CBM-K}{CTRL-Z}j{blu}{gry1}{CBM-G}s(e(n,0)),46:e(n,0){CBM-R}y:r{CBM-R}nr:c1{CBM-R}nc:{gry1}{CBM-G}s(y),65{$00}{$e2}{CTRL-Z}t{blu}{sret}6700:he{CBM-R}e(n,1){CBM-D}(1.5{CBM-Q}s){CBM-Z}900{CBM-Z}dc:e(n,1){CBM-R}e(n,1){CBM-Z}1.5:{f6}y{CBM-W}{CBM-E}90{CBM-M}8070{$00}~{CTRL-Z}^{blu}e{CBM-R}e{CBM-Q}he:{f6}e{CBM-W}{CBM-R}0{CBM-M}{lgrn}".{home}":{f2}2290{$00}@{esc}{$68}{blu}{lgrn}"Z":{sret}4200:{lgrn}{CBM-J}(he)"unit hit from"{CBM-J}(e(n,0){CBM-Z}8)"-"e(n,0){CBM-P}7:{f2}8150{$00}{$64}{esc}{f3}{blu}{f6}y{CBM-W}{CBM-E}65{CBM-M}{gry1}{CBM-G}s(nr{CBM-D}4{CBM-N}nc{CBM-Z}2),y:{lgrn}:{f2}8150{$00}{$76}{esc}{lblu}{blu}pc{CBM-R}he{CBM-D}2:{sret}7475{$00}{f1}{esc}V{blu}{lgrn}"{home}":{f2}2350{$00}B{esc}{$f0}#dr{CBM-R}r%:dc{CBM-R}c%:r{CBM-R}{CBM-J}(bp{CBM-Z}8):c1{CBM-R}bp{CBM-P}7:{sret}6700:{lgrn}"{home}":{gry1}{CBM-G}s(8{CBM-D}r%{CBM-N}c%),90{$00}U{esc}{$fa}#{f6}y{CBM-R}90{CBM-M}e{CBM-R}e{CBM-Q}1500{$00}{CBM-*}{esc}{CTRL-D}${f2}2340{$00}{$0a}{red}{CTRL-P}'{sret}4200:{lgrn}"your time has run out.":{f2}40000{$00}c{red} n{sret}4200:{lgrn}"you have wiped out the klingon force":{f2}40000{$00}{$64}{red}0{$75}{sret}4200:{lgrn}"your energy is gone"{$00}{lblu}{red}:{$75}{f6}sb{CBM-M}{sret}4200:{lgrn}"that'll teach you to blow up a base!"{$00}{CBM-J}{red}@{pur}{sret}4200:{lgrn}"another game?"{$00}K{red}t{pur}{CBM-K}i$:{f6}i${CBM-R}"y"{CBM-M}{pur}:{f2}10{$00}{$de}{red}^{pur}{f6}i${CBM-W}{CBM-E}"n"{CBM-M}40020{$00}{$e7}{red}{$68}{pur}{lgrn}"{clr}"{$00}{$00}{$00}$R{$00}p{CTRL-D},{rght}{CBM-J}m{$00}{$00}{$00}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}    0 clr:poke59468,12:pk=12
    1 rem titrator (c) 1979 garry flynn
    2 rem 865 strathaven dr.
    3 rem n.vancouver,b.c.canada v7h 2k1
    4 :
    5 rem cursor #10, may, 1979
    6 rem box 550, goleta, ca. 93017
    7 :
    8 rem line 130 rom dependent
    9 :
   10 rem as of june 2, 1979
   90 pg$="titrator":nm$="10":gosub62000
  100 dime$(36),r$(30):gosub4000
  130 qp=515:ifpeek(49152)thenqp=151
  140 sp$="{rvof}{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}"
  400 gosub3000:gosub2000
  410 x=0:ss=0:m=4:n=1:fd=0:sd=0:ep=int(128*rnd(ti))
  420 k=peek(qp):ifk=255then420
  430 ts=ti
  440 goto510
  500 k=peek(qp):ifk=255then500
  510 ifk=6thengosub795
  520 ifk=10thengosub1040
  525 ifk=27thengoto5000
  528 sk=0
  530 goto500
  795 gosub2300:dl=1:ifn>17then880
  800 print sp$;"{down}{down}{down}{rght}{rght}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}":goto880
  880 ifn<=17thenfd=fd+1:gosub900:ifn>17thengosub2400:gosub2360
  881 k=peek(qp):ifk=6then880
  883 ifn<=17thengosub2400
  885 gosub2350:return
  900 ifn>17thenreturn
  901 m=m+1:ifm=8thenn=n+1:m=0
  905 print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
  908 forj=1ton:print"{down}";:nextj:print"{up}";:ifm=0thenprint"{up} {down}{left}";
  910 printl$(m)
  915 dd=ep-fd-sd:ml=int((fd+sd)/.16+.5)
  917 ml$=mid$(str$(ml),2):iflen(ml$)<3thenml$=right$("000"+ml$,3)
  918 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(18);left$(ml$,1);".";right$(ml$,2)
  919 ifn>17ordd>25thenreturn
  922 x=1
  924 ifdd<12thenx=x+1
  925 ifdd<9thenx=x+1
  926 ifdd<6thenx=x+1
  928 ifdd<4thenx=x+1
  930 ifdd<2thenx=x+1
  932 ifdd<1thenx=x+1
  936 ifdd<0thenx=8:ifsk=1thenreturn
  938 ifdd<0thensk=1
  940 fore=x*4+1tox*4+4:printsp$;"{down}{down}{down}{down}{down}{rght}{rght}"e$(e)
  950 forp=1todl:nextp,e
  960 if x<7thenprintsp$;"{down}{down}{down}{down}{down}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{left}{left}{left}{left}{left}{down}     "
  970 return
 1040 gosub2300:dl=50
 1050 sd=sd+1:printsp$;"{down}{down}{down}{rght}{rght}";
 1060 ifn>17then1105
 1100 ford=1to3:print".{left}";:forp=1to40:nextp:print" {down}{left}";:nextd:gosub2400
 1105 gosub900
 1110 k=peek(qp):ifk=10then1050
 1200 gosub2350:return
 2000 print"{home}       Y{CBM-I}T{SHIFT-*}0
 2005 t$=" {rvon}{CBM-K}{rvof}     Y{rvon} {rvof}T{SHIFT-*}"
 2010 printt$
 2020 printt$;"1"
 2030 printt$
 2040 printt$;"2"
 2050 printt$
 2060 printt$;"3"
 2070 print" {rvon}{CBM-K}{rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}{CBM-N} {CBM-H}{rvof}{SHIFT-*}
 2080 printt$;"4"
 2090 printt$
 2100 printt$;"5"
 2110 printt$
 2120 printt$;"6"
 2130 printt$
 2140 printt$;"7"
 2150 printt$
 2160 print" {rvon}{CBM-K}{rvof}     Y{rvon}{CBM-@}{rvof}T "
 2170 print" {rvon}{CBM-K}{rvof}    Q{rvon} Q {rvof}Q{rvon}W
 2180 print" {rvon}{CBM-K}{rvof}     {CBM-N}{rvon}{CBM-T}{rvof}{CBM-H} "
 2190 print" {rvon}{CBM-K}{rvof}      v
 2200 print" {rvon}{CBM-K}{rvof}
 2210 print" {rvon}{CBM-K}{rvof}   {CBM-M}     N
 2220 print" {rvon}{CBM-K}{rvof}   {CBM-M}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-G}
 2230 print" {rvon} {rvof}   {CBM-M}     {CBM-G}
 2240 print"{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{up}"
 2250 return
 2300 printsp$;"Q{rvon} {SHIFT--} {rvof}Q{up}Q{left}{down}{rvon}V{rvof}{left}{down}Q":return
 2350 printsp$;"Q{rvon} Q {rvof}Q{up} {left}{down}{rvon}W{rvof}{left}{down} {left}{left}{left}{left}{down}{down} {left}{down} ":return
 2360 printsp$;"{down}{down}{down}{rght}{rght} {left}{down} ":return
 2400 printsp$;"{down}{down}{down}{down}{down}{rght}{rght}V{left}";
 2410 forp=1to30:nextp
 2420 print"*{left}";
 2430 forp=1to25:nextp
 2440 print"+{left}";
 2450 forp=1to20:nextp
 2460 print"{SHIFT-*}{left}";
 2470 ifx=8thenprint"{CBM-I}{left}";
 2480 ifx=7thenprint"{CBM-POUND}{left}";
 2490 print:return
 3000 print"{home}{down}"
 3010 printtab(17)"to operate burette{down}"
 3020 printtab(18)"press (and hold):"
 3025 printtab(15)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 3030 printtab(15)"{rvon}space{rvof}....for full flow
 3035 printtab(15)"{CBM-@}
 3040 printtab(15)"{rvon}0{rvof}........for drops only
 3045 printtab(15)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 3050 printtab(15)"{rvon}return{rvof}...when finished
 3060 printtab(15)"{down}{down}   0.00 ml 1.000 n hcl  "
 3070 fori=1to10:printtab(15);"                      ":nexti
 3080 return
 4000 fori=1to8:readl$(i):nexti:data"{rvon}{CBM-T}{rvof}","{rvon}{CBM-Y}{rvof}","{rvon}{CBM-U}{rvof}","{CBM-I}","{CBM-O}","{CBM-P}","{CBM-@}"," "
 4005 fori=1to36:reade$(i):nexti
 4010 data"{CBM-POUND}",,,
 4020 data"{CBM-I}","{CBM-POUND}",,
 4030 data"{CBM-I}","{left}{CBM-POUND}{CBM-I}{CBM-POUND}","{left}{CBM-POUND}{CBM-POUND}{CBM-POUND}",
 4040 data"{CBM-I}","{left}{CBM-POUND}{CBM-I}{CBM-POUND}{down}{left}{left}{CBM-+}","{left}{CBM-POUND}{CBM-I}{CBM-POUND}{down}{left}{left}{rvon}{CBM-POUND}",
 4050 data"{CBM-I}","{left}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{rvon}{CBM-POUND}","{left}{left}{CBM-POUND}{CBM-I}{CBM-I}{CBM-I}{CBM-POUND}{down}{left}{left}{left}{left}{CBM-+}{rvon}{CBM-POUND}{CBM-+}",
 4060 data"{CBM-I}","{left}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{rvon}{CBM-POUND}","{left}{left}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}",
 4070 data"{CBM-I}","{left}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{rvon} ","{left}{left}{CBM-POUND}{CBM-I}{CBM-I}{CBM-I}{CBM-POUND}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{rvon}{CBM-POUND}{rvof}{CBM-+}{CBM-+}",
 4080 data"{CBM-I}","{left}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{rvon} ","{left}{left}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{left}{left}{left}{CBM-+}{rvon}{CBM-POUND} {CBM-POUND}{rvof}{CBM-+}","{left}{left}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 4090 data"{left}{left}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{down}{left}{left}{left}{left}{left}{rvon}     ",,,
 4105 fori=1to30:readr$(i):nexti
 4110 data" not at end point! "," .....is that all? "," stopped too soon! "
 4120 data"  you still there? ","better try nursing!"," a true maladroit! "
 4130 data"  feather-bedder!  ","  past end point!  "," you blew that one!"
 4140 data"easy!..lead fingers"," snzzzz! too slow! ","don't take all day!"
 4150 data"  new around here? ","  try another job! "," drip! drip! drip! "
 4160 data" better try again! "," you need practice!","it'll have to do..."
 4170 data"  i've seen worse! "," ...you feeling ok?","  that's the idea! "
 4180 data" ....looking good! ","  could be faster  ","....nearly perfect!"
 4190 data" ...getting better!","is that you, garry?"," looking for a job?"
 4200 data"perfect..well done!","    great work!    ","couldn't be better!"
 4490 return
 5000 tm=int((ti-ts)/60):r=0
 5005 ifx=7thenr=int((fd-sd+1)/(fd+sd-1)*100)
 5010 print"{home}{rvof}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(18)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 5015 ifx>6then5030
 5020 printtab(18);"{rvon}analysis incomplete"
 5025 print"{up}{up}{up}";tab(17);" sample was wasted  {down}{down}":goto5050
 5030 printtab(18)"{rvon} analysis complete "
 5035 forp=1to1000:nextp
 5040 print"{up}{up}{up}"tab(17)" sample was";:ifx<>7thenprint"....ruined!{down}{down}":goto5050
 5045 printml/1000" n {down}{down}"
 5050 forp=1to1000:nextp
 5055 printtab(18)"{down}took you"tm"seconds"
 5060 forp=1to1000:nextp:print
 5061 ifr>100thenr=100
 5065 if x>6 then printtab(18)"your rating.."r"%":forp=1to500:nextp
 5300 printtab(18)"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
 5400 ifx<7thenv=0:goto5480
 5405 ifx=8thenv=1:goto5480
 5410 ifr<60thenv=2:goto5480
 5415 ifr<85thenv=3:goto5480
 5420 ifr<95thenv=4:goto5480
 5430 v=5
 5480 printtab(18)"{rvon}"r$(5*v+5*rnd(1)+1)
 5500 gett$:ift$<>""then5500
 5503 forp=1to750:nextp
 5505 printtab(19)"{down}    try again? ";
 5510 gosub6000:ifin$<>"n"then400
 5550 print"{clr}{down}{down}":end
 6000 sw=1:tm=0
 6010 getin$:ifin$<>""then6050
 6020 ifti>tmthenprintmid$("? ",sw,1);"{left}";:sw=3-sw:tm=ti+15
 6030 goto6010
 6050 printin$;:return
 60200 ifpn=0then60250
 60210 print"{down}pRESS {rvon}return{rvof} TO ";
 60220 ifpn=lpthenprint"BEGIN:";:goto60240
 60230 print"CONTINUE:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenprint"{clr}";:poke59468,pk:clr:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cURSOR #";nm$;" (C) 1979  pAGE";pn;"{down}"
 60270 return
 62000 print"{clr}{down}{down}";tab(8);"cursor #";nm$;tab(22);pg$
 62002 print"{down}copyright (c) 1979";tab(22);"by garry flynn
 62005 fori=1to10:print"DDDD";:next
 62010 print"{down}{down}determine the strength of a solution."
 62020 print"{down}{down}want directions? ";:gosub6000
 62030 if in$<>"y" then 62040
 62035 print"{clr}":poke59468,14:goto62100
 62040 print"{clr}";:poke59468,pk:clr:goto100
 62100 lp=2:gosub60200
 62110 print"tHIS{$a0}PROGRAM{$a0}DEMOSTRATES{$a0}HOW A{$a0}CHEMIST
 62120 print"DETERMINES{$a0}THE{$a0}STRENGTH{$a0}OF{$a0}A SOLUTION.
 62130 print"{down}sUPPOSE{$a0}THE{$a0}CHEMIST (CAN{$a0}WE{$a0}HAVE{$a0}A VOL-
 62140 print"UNTEER...THANK{$a0}YOU; YOU'RE{$a0}THE{$a0}CHEMIST)
 62150 print"HAS{$a0}A{$a0}SOLUTION{$a0}OF{$a0}CAUSTIC{$a0}(nAoh). hE
 62160 print"(THAT{$a0}IS,{$a0}YOU) MUST{$a0}FIND OUT{$a0}HOW{$a0}STRONG
 62170 print"THE{$a0}SOLUTION{$a0}IS. yOU{$a0}CAN{$a0}DO{$a0}THAT BY
 62180 print"ADDING ACID{$a0}(hcL) UNTIL{$a0}THE{$a0}SOLUTION
 62190 print"BECOMES{$a0}NEUTRAL.  hOW, YOU{$a0}ASK, CAN{$a0}i
 62200 print"TELL{$a0}WHEN{$a0}IT'S{$a0}NEUTRAL? 'tIS SIMPLE:
 62210 print"bEING{$a0}A{$a0}CHEMIST, YOU{$a0}HAVE{$a0}ON{$a0}HAND{$a0}SOME
 62220 print"SPECIAL{$a0}CHEMICALS CALLED 'INDICATORS',
 62230 print"WHICH{$a0}CHANGE{$a0}COLOR{$a0}AT{$a0}A CERTAIN{$a0}ACIDIT.{left}{inst}Y
 62240 print"fOR{$a0}THIS{$a0}TASK, YOU WILL BE{$a0}USING{$a0}ONE
 62250 print"THAT CHANGES{$a0}FROM CLEAR TO{$a0}COLORED WHEN
 62260 print"THE{$a0}SOLUTION{$a0}IS NEUTRAL.
 62270 gosub60200
 62280 print"wHILE{$a0}YOU{$a0}ARE{$a0}ADDING{$a0}ACID, YOU{$a0}WATCH
 62290 print"THE{$a0}SOLUTION. wHEN{$a0}IT{$a0}TURNS COLORED, {CBM-+}{CBM-+}
 62300 print"THE{$a0}SOLUTION{$a0}IS{$a0}EXACTLY{$a0}NEUTRAL, AND {CBM-+}{CBM-+}
 62310 print"JUST{$a0}THE{$a0}RIGHT{$a0}AMOUNT{$a0}OF{$a0}ACID{$a0}HAS
 62320 print"BEEN{$a0}ADDED. aT{$a0}THAT{$a0}POINT, YOU{$a0}CAN
 62330 print"CALCULATE{$a0}THE{$a0}STRENGTH{$a0}OF{$a0}THE{$a0}CAUSTIC
 62340 print"YOU{$a0}WERE{$a0}ADDING{$a0}ACID{$a0}TO. (tHE{$a0}pET{$a0}WILL
 62350 print"DO{$a0}THE{$a0}MATH{$a0}FOR{$a0}YOU.)
 62360 print"{down}bE CAREFUL NOT{$a0}TO{$a0}ADD{$a0}TOO MUCH{$a0}ACID. iF
 62370 print"YOU{$a0}DO, THE{$a0}REACTION BETWEEN{$a0}THE{$a0}ACID
 62380 print"AND{$a0}THE{$a0}CAUSTIC WILL{$a0}GO{$a0}PAST{$a0}NEUTRALIT,{left}{inst}Y
 62390 print"AND{$a0}TURN THE SOLUTION{$a0}ACID. iF{$a0}THAT
 62400 print"HAPPENS, THE INDICATOR{$a0}WILL BECOME   {rvon}  "
 62410 print"STRONGLY COLORED. aLSO, THE{$a0}SAMPLE   {rvon}  "
 62420 print"WILL{$a0}HAVE{$a0}BEEN{$a0}RUINED, SO{$a0}THE{$a0}STRENGTH
 62430 print"OF{$a0}THE{$a0}CAUSTIC{$a0}WILL{$a0}REMAIN{$a0}A{$a0}MYSTERY.
 62440 gosub60200
    1 rem copy me, i want to travel!
    3 rem ann arbor, mi. feb. 1979
    4 poke59468,14:goto4500
    5 fori=1to30:next:return
   70 g=40:h=2:v=83:p=232:s=32:w=102
   90 poke525,0:u=1:m=u:k=0:b=k:co=k:ma=k:ht=k:e=u:rs=int(rnd(1)*185)
  100 gosub55000:gosub30000:gosub45000
  200 fori=1to36:printb$(8)+left$(b$(0),i):next:q=ti
  500 geta$
  540 ifa$="5"thenpokel,s:l=l+g
  550 ifa$="8"thenpokel,s:l=l-g
  560 ifa$="4"thenpokel,s:l=l-u
  580 ifa$="6"thenpokel,s:l=l+u
  600 poke525,0:pp=peek(l):pu=peek(l+g)
  610 ifpp=sthenpokel,v
  620 ifpp<>sandpp<>vthengosub45000
  630 ifpu=wthenpokel+g,p
  640 ifpu=pthenpokel+g,s:k=k+u
  660 printb$(8)+b$(b):b=b+u:ifb=8thenb=0
  700 t=int((ti-q)/30):ift>m+uthenprint"{home}"tab(37-e)right$(b$(9),e):m=t:e=e+u
  750 ife>35thengoto15000
  760 ifk=rsthengosub5000
  770 ift>1thenht=int(100*k/t)
  800 print"{home}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}";:ifht<=30thenprint" = "
  810 ifht>30 and ht<40thenprint"J{SHIFT-*}K
  820 ifht>=40 and ht<50thenprint"DDD":co=0
  830 ifht>=50thenprint"{rvon}{SHIFT-+}{SHIFT-+}{SHIFT-+}{rvof}":co=co+u
  850 ifco>16then16000
  900 ifk<37andin>0then500
  910 ifma>1then3000
  920 r$(0)="{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":r$(1)="{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}":printb$(8);"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}";
  980 fori=1to5:print"                 {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}";:next
 1000 fori=1to5:printb$(8);r$(0);
 1120 forw=1to2:print"NNNNNNNNNNNNN";r$(1);"MMMMMMMMMMMMM";r$(1);:next
 1140 printb$(8);r$(0);
 1160 forw=1to2:print"{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}"r$(1);"{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}";r$(1);:next
 1180 printb$(8);r$(0);
 1200 forw=1to2:print"MMMMMMMMMMMMM"r$(1);"NNNNNNNNNNNNN"r$(1);:next
 1240 next:printb$(8);r$(0);"{left}";:t=1:gosub50000
 1250 print"   NM{left}{up}{CBM-@}{CBM-@}{down}{left}M{rvon}{CBM-*}{rvof}       {left}";r$(1);:gosub50000
 1260 print"   {CBM-G}{CBM-M} M{rvon}{CBM-*}{rvof}       {left}{left}";r$(1);:gosub50000
 1270 print" {CBM-@}{CBM-@}{SHIFT-POUND}{CBM-*}{CBM-@}{CBM-@}M{rvon}{CBM-*}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {left}{left}";r$(1);:gosub50000
 1275 ifin=0thenprint"{rvon}{SHIFT-POUND}if you win...{CBM-*}";:goto1290
 1280 print"{rvon}{SHIFT-POUND}brain booster{CBM-*}";
 1290 print"{rvof}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}{up}{up}{up}";:t=2:gosub50000:forz=1to4
 1300 print" {CBM-@}{CBM-@}{down}{left}{left} M{rvon}{CBM-*}{rvof}{down}{left}{left} M{rvon}{CBM-*}{rvof}{down}{left}{left}{CBM-@}M{rvon}{CBM-*}{rvof}{left}{left}{left}{left}{left}{up}{up}{up}";
 1310 t=.4:gosub50000:next
 1430 print"{left}{left}{left}{left}{left}NM{left}{left}{down}{CBM-G}{CBM-M}{left}{left}{down}{SHIFT-POUND}{CBM-*}{left}{left}{down}**{up}{up}{up}{up}{left}{left}";
 1450 fori=1to13:print"NM{left}{left}{down}{CBM-G}{CBM-M}{left}{left}{down}{SHIFT-POUND}{CBM-*}{left}{left}{down}**{left}{left}{down}::{up}{up}{up}{up}{up}{left}{left}";:next
 2010 printb$(8);"{down}{down}{down}{down}{down}{rght}{rght}{rght}";
 2020 fori=1to10:print"N{up}{CBM-*}{left}";:next:print"**";
 2120 print"{up}{left}{left}{left}M{SHIFT--}{SHIFT--}N{down}{left}{left}{left}{left}{SHIFT-*}{CBM-B}{CBM-B}{SHIFT-*}{down}{left}{left}{left}{left}N{SHIFT--}{SHIFT--}M";:gosub60000
 2730 print"{left}{left}{left}{left}{up}{up}{up}{left}U {CBM-E}{CBM-E} I{left}{left}{left}{left}{left}{left}{down}{down}{CBM-W}{rght}{rght}{rght}{rght}{CBM-Q}{left}{left}{left}{left}{left}{left}{down}{down}J {CBM-R}{CBM-R} K";
 2740 forj=1to5:gosub60000
 2750 print"{rvof}J{up}{left}I{up}{left}J{up}{left}I{up}{left}J{up}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{down}I{left}{down}J{left}{down}I{left}{down}J{left}{down}I{left}{down}JIJIJIJI";
 2760 gosub60000
 2770 print"{up}{left}{rvon}J{up}{left}I{up}{left}J{up}{left}I{up}{left}J{up}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{left}I{left}{left}J{left}{down}I{left}{down}J{left}{down}I{left}{down}J{left}{down}I{left}{down}JIJIJIJI{left}{up}";
 2900 next
 3000 poke59409,60:print"{clr}";b$(8);
 3010 print"{rvon}{SHIFT-POUND}   {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}  {SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{down}{left}{left}{left}{left}{left}{left}({CBM-G}@ @{CBM-M}){down}{left}{left}{left}{left}{left}{left}{CBM-G} {CBM-Z} {CBM-M}";
 3020 print"{down}{left}{left}{left}{left}{left}MJ{SHIFT-*}KN{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}";
 3030 ifma=1thenprint"{rght}{rght}{rght}good toke, buddy!{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";:nx=nx+u
 3035 ifma=1ande<35thenprint"{rvon}super toker award":nx=nx-u:sx=(sx+u)*in
 3037 ifin=0thenprint"{down}{down}all this can be yours"
 3038 ifin=0thenprint"if{down}{left}{left}{CBM-T}{CBM-T}{up} you have the touch."
 3040 ifma>1thenprint"{rght}{rght}{rght}you win, but you took":ox=ox+u
 3050 ifma>1thenprint"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";ma;"matches. champions use one{left}{left}{left}{down}{CBM-T}{CBM-T}{CBM-T}{up}!
 3070 poke525,0:t=1:gosub50000
 3100 forbh=1to50
 3110 printb$(8);"UM*NI{left}{left}{left}{left}{left}{down}  @  ";:gosub5
 3130 printb$(8);"{rvon}{SHIFT-POUND}   {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-*}";
 3820 next:in=1:goto70
 4500 print"{clr}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}instructions{home}{down}{down}{down}{down}tHE OBJECT IS TO CONSUME THE CONTENTS
 4510 print"{down}OF THE tOKER. hIT A KEY TO LIGHT MATCH. {down}uSE 4, 5, 6 & 8 KEYS ";
 4520 print"TO MOVE FLAME.     {down}{down}iF YOU TOKE{$a0}TOO{$a0}FAST, YOU WILL COUGH.
 4530 print"{down}tOO SLOW AND YOU WILL{$a0}RUN OUT OF{$a0}BREATH.{down}
 4540 print"iF THE{$a0}MAN{$a0}SHOWS{$a0}HIS{$a0}TEETH, HE{$a0}IS ABOUT {down}TO COUGH--SLOW{$a0}DOWN!
 4550 print"{down}{down}tHERE{$a0}ARE{$a0}REWARDS{$a0}FOR{$a0}THE{$a0}SUCCESSFUL{$a0}
 4560 print"{down}OPERATOR, PLEASE{$a0}ENJOY{$a0}YOUR{$a0}TOKES."
 4700 geta$:ifa$=""goto4700
 4710 print"{clr}":poke59468,12:goto70
 5000 fori=1to5:pokel+g,81:printb$(8);"{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} {CBM-T}NN{CBM-T}";
 5020 print" N{CBM-T} N N{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} N{CBM-@} N  N  NM{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} .{CBM-@}{CBM-@}.{CBM-@}{CBM-@}.{CBM-@}{CBM-@}. "
 5030 pokel+g,87:printb$(8);"{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{CBM-T}{CBM-T}.{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} {CBM-T}NN{CBM-T}";
 5040 print"{rvon} N{CBM-T} N N{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} N{CBM-@} N  N  NM{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up} .{CBM-@}{CBM-@}.{CBM-@}{CBM-@}.{CBM-@}{CBM-@}. ":next
 5090 rs=99:pokel+g,s:print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 5100 forz=1to4:print"            {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}";:next:return
 15000 printb$(8);"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-*}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-M}          ";
 15020 print"    {CBM-G}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{rvof}{CBM-*}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}{SHIFT-POUND}";
 15030 print"N";:gosub5:print"{left}{left}{down}N";:gosub5
 15040 fori=1to14:print"{left}{left}{CBM-@}";:next
 15050 print"{left}{left}M";:gosub5:print"{left}{left}{up}M";:gosub5:print"{left}{up}{CBM-G}{up}{left}N{up}N{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}M{down}M{down}{left}{CBM-M}";
 15060 s$="{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}
 15100 o$(2)="ou{rvon}t{rvof} o{rvon}f{rvof} b{rvon}r{rvof}ea{rvon}t{rvof}h!
 15110 o$(0)="{rvon}o{rvof}ut{rvon} {rvof}of{rvon} {rvof}br{rvon}e{rvof}at{rvon}h{rvof}!
 15120 o$(1)="o{rvon}u{rvof}t {rvon}o{rvof}f {rvon}b{rvof}re{rvon}a{rvof}th{rvon}!
 15250 bx=bx+u:k=0:forx=1to56
 15260 printb$(8)+s$;o$(k)
 15270 k=k+u:ifk=3thenk=0
 15500 gosub5:next:poke525,0:goto70
 16000 print"{up}{up}{rght}{rght}";:forj=1to15:print"{rvof} Z {left}{left}{left}{up}{up}{rvon}{CBM-F}{rvof} {rvon}{CBM-D}{down}{down}{left}{left}{left}";:t=.1:gosub50000
 16040 print"{down}{down}{left}{left}{rvof}      {left}{left}{left}{left}{up}{up}   {left}{left}{left}{up}{up}{rvon}{CBM-V}{rvof} {rvon}{CBM-C}{down}{down}{left}{left}{left}";:gosub50000
 16050 print"{down}{down}{left}{left}{rvon}cough!{left}{left}{left}{left}{up}{up}{rvof} - {left}{left}{left}{up}{up}{rvon}{CBM-C}{rvof} {rvon}{CBM-V}{down}{down}{left}{left}{left}";:gosub50000
 16060 print"{rvof} W {left}{left}{left}{up}{up}{rvon}{CBM-D}{rvof} {rvon}{CBM-F}{down}{down}{left}{left}{left}";:gosub50000:next:cx=cx+1:goto70
 30000 print"{clr}  {rvon}{CBM-J}    diaphragm reserve capacity    {rvof}"
 30020 print"  B  !   {CBM-G}  !   {CBM-G}  !   {CBM-G}  !   {CBM-G}  !  {CBM-M}
 30030 print"  0     20     40     60     80    100
 30100 print"{down}{down}{down}{down}{down}{down}
 30200 print"      {CBM-*}       {SHIFT-POUND}
 30210 print"       {CBM-*}     {SHIFT-POUND}
 30220 print"        {CBM-*}{CBM-I} {CBM-I}{SHIFT-POUND}   {CBM-M}M
 30230 print"         {rvon}{CBM-K}{rvof} {CBM-K}    N M
 30240 print"        {CBM-@}{rvon}   {rvof}{CBM-@}  N N{CBM-T}
 30250 print"     {rvon}{SHIFT-POUND}{CBM-*}{rvof}N {rvon}   {rvof} MN N   Wcough      ";cx
 30260 print"     {CBM-*}{SHIFT-POUND}  {rvon}{CBM-K}{rvof} {CBM-K}  MN    Wbreath     ";bx
 30270 print"     N   {rvon}{CBM-K}{rvof} {CBM-K}   M    Qok toke    ";ox
 30280 print"    {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvon}{CBM-K}{rvof}{CBM-T}{CBM-K}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-G}   Qone match  ";nx
 30290 print"    {CBM-M}    {rvon}{CBM-K}{rvof} {CBM-K}    {CBM-G}   Qsuper toker";sx
 30291 print"    {CBM-M}    {rvon}{CBM-K}{rvof} {CBM-K}    {CBM-G}    {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} "
 30301 print"     M         N        {CBM-G}     {CBM-@} {CBM-@}  "
 30310 remprint"     M         N        {CBM-G}NM{CBM-M}N L L{CBM-G} "
 30311 print"      M       N         {CBM-G}NM{CBM-M}N L L{CBM-G} "
 30320 remprint"      M       N         {CBM-G}MN{CBM-M}M L {CBM-G}M "
 30321 print"       {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}          {CBM-G}MN{CBM-M}M L {CBM-G}M "
 30330 remprint"       {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 35000 printb$(8);"{up}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{up}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{up}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 35010 print"{up}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{up}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{up}{left}{left}{CBM-+}{left}{left}{CBM-+}{left}{left}{CBM-+}{up}{CBM-+}
 35100 print"{home}{down}{down}{down} {rvon}{SHIFT-POUND}   {CBM-*}{rvof}{down}{left}{left}{left}{left}{left}{left}{left}  {SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{down}{left}{left}{left}{left}{left}{left}({CBM-G}{rvon}{CBM-D}{rvof} {rvon}{CBM-D}{rvof}{CBM-M}){down}{left}{left}{left}{left}{left}{left}{CBM-G} {CBM-Z} {CBM-M}
 35110 print" M = N{down}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}":return
 45000 print"{home}{down}{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}";
 45010 print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon}U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{rvof}M{rvon}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{SHIFT--}hitakey{SHIFT--}{rvof} {CBM-G}{rvon}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}";
 45011 print"{SHIFT--}matches{SHIFT--}{rvof} {CBM-G}{rvon}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K{rvof} {CBM-G}";
 45012 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}M        M{CBM-G}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 45020 geta$:ifa$=""goto45020
 45030 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{up}{left}{left}MM{up}{left}{left}{left}{CBM-M}{CBM-@}{up}{left}{left}{CBM-M}{up}{left}{CBM-M}{up}{left}{CBM-M}M{up}{left}{CBM-@}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{CBM-T}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 45050 t=.1:gosub50000:print"{up}{up}{left}{left}{CBM-@}{left}{left}{down}{CBM-M}M{CBM-@}{left}{left}{left}{down}{CBM-M}{left}{down}{CBM-M}{left}{down}{CBM-M}{SHIFT-@}{left}{down}M {down}{left}{CBM-T}{up}{up}{up}{rght}";:t=1:gosub50000
 45070 fori=1to5:print"{left}{left}C";:next:print"{left}{left}CCCCCQ{left}{left}{left}{left}{left}{left}{left}CCCCCQ ";
 45210 fori=1to2:print"{left}{left}{left}{left}{left}{left}{left}{left}CCCCCQ{CBM-M}";:next:t=.2:gosub50000
 45250 print"{up}{up}{up} {down}{left}{left} {CBM-M}M{down}{left}{left}{left} {down}{left}{left}{left}{left}{left}{left}{left} CCCCCQ{down}{left} {CBM-M}{down}{left} M{down}{left} ";:gosub50000
 45270 print" {up}{left}{left} {up}{left}{left}  {up}{left}{left}{left}{left}{left}{left}{left}{left}  CCCCCQ{up}{left}{left} {up}{left}  {up}{left} {down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";:gosub50000
 45280 ifjj>uthenj^2didit=ok
 45290 print"{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}      {down}{left}{left}{left}{left}{left}{left}CCCCCQ";
 45330 fori=1to3:print"{left}{left}{left}{left}{left}{left}{left}       {down}{left}{left}{left}{left}{left}{left}CCCCCQ";:next
 45390 fori=1to9:print"{left}{left}{left}{left}{left}{left}{left}  CCCCCQ";:next
 45420 print"{left}{left}{left}{left}{left}{left}{left}   {down}{down}N{up}N{up}{left}{left}  N{up}Q{down}{left} {up}{rght}";
 45440 fori=1to10:print"{down}{down}{down}{left}{left}{left}{left}{left}{left}N {up}{left}N {up}{left}N {up}{left}Q{CBM-T}";:next
 45460 print"{left}{left}Q  {left}{left}{left}{left}-{up}{left}\{SHIFT--}/{down}{left}{left}*-{down}{left}\{left}{left}{SHIFT--}{left}{up}";:gosub50000
 45470 print"{left} {left}{up}   {down}{left} {down}{left} {left}{left} {left}{up}*{down}{down}{down}{left}{left}{left}{left}";:gosub50000
 45480 forx=1to6:print"  {up}{left}{left}{left}N   {up}{left}{left}{left}N   {up}{left}{left}{left}N   {up}{left}{left}{left}*{down}{down}{down}{left}{left}{left}{left}";:next
 45510 print" {SHIFT--}{up}{left}{SHIFT--}{up}{left}{SHIFT--} {up}{left}{left}{SHIFT--}  {up}{left}{left}{left}*";:t=.1:gosub50000
 45530 print"{left} {left}{left}{left}{down}*  {left}{left}{down}M {left}{down}M{down}{left} M";:gosub50000:print"{left} {up}{left}{left}{left}{left}{left}*{up}{up} {down} {down}{left}{left}CCCCC ";
 45570 fori=1to3:print"{left}{left}{left}{left}{left}{left}{left}       {up}{left}{left}{left}{left}{left}{left}{left}{left}*{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} ";:next
 45600 fori=1to3:print"{left}{left}{left}{left}{left}{left}{left}{left}*{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*} "; :next:gosub50000
 47010 print"{home}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}S      "
 47020 l=32938:ma=ma+u:ifti-q>120thenpu=s
 47030 return
 50000 forx=1tot*300:next:return
 55000 b$(0)="{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}{SHIFT-*}{down}{left}oW{up}W{up}o{up}{left}*
 55220 b$(1)="F{down}{left}F{down}{left}F{down}{left}F{down}{left}F{down}{left}F{down}{left}F{down}{left}F{down}{left}F{down}{left}Wo{up}W{up}W{up}{left}{CBM-T}{up}{left}{left}:::
 55240 b$(2)="R{down}{left}R{down}{left}R{down}{left}R{down}{left}R{down}{left}R{down}{left}R{down}{left}R{down}{left}R{down}{left}WW{up}o{up} {up}{left}W{up}{left}{left}{left}{left}{left}{left}{left}{left}:::
 55260 b$(3)="{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}{CBM-@}{down}{left}oW{up} {up}o{up}{left}W{up}{up}{left}{left}::
 55280 b$(4)=" {down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}{CBM-T}{down}{left}W {up}W{up}W{up}{left}o{up}{up}{left}{left}{left}{left}{left}{left}{left}::
 55300 b$(5)=" {down}{left}E{down}{left}E{down}{left}E{down}{left}E{down}{left}E{down}{left}E{down}{left}E{down}{left}E{down}{left} W{up}o{up}W{up}{left}W{up}{up}{up}{left}{left}{left}{left}{left}{left}:{rght}{rght}{rght}:
 55320 b$(6)=" {down}{left}D{down}{left}D{down}{left}D{down}{left}D{down}{left}D{down}{left}D{down}{left}D{down}{left}D
 55340 b$(7)=" {down}{left}C{down}{left}C{down}{left}{left}{left} {rght}C{rght} {down}{left}{left}{left}{left}{left}{left}  {rght}C{rght}  {down}{left}{left}{left}{left}{left}{left}{left}{left}   {rght}C{rght}   {down}{left}{left}{left}{left}{left}C{down}{left}C{down}{left}C{down}{left}o
 55360 b$(8)="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}
 55380 b$(9)="        diaphragm reserve capacity    ":return
 60000 poke59409,60:t=.2:gosub50000:poke59409,52:return
    4 print"{clr}"
    5 print"{rvon}             torpedeo              "
    6 print"by john briggs"
    7 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   10 forg=1to1000:nextg
   15 print"{clr}"
   20 print"you are the pilet of a b-29"
   25 print"subhunter.you have detected"
   30 print"enemy submirines heading for"
   35 print"a naval fleet which you are"
   40 print"escorting.you must prevent"
   45 print"topedeos from penetrating"
   47 print"your fleet."
   50 print"make note that the water"
   55 print"current will change the"
   60 print"tragectry of the bombs."
   62 print
   65 print"hit the 'f' key to drop bombs."
   70 print
   75 print"ready(y-n)?"
   80 geth$:ifh$=""then 80
   85 ifh$="y"then print"{clr}";:goto110
   90 ifh$="n"then 95
   95 print
   96 print"too bad bumb,your going to play"
  100 print"this game anyway."
  105 fori=1to3000:nexti:print"{clr}";
  110 print"{home}"
  115 print"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
  120 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  125 print"{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}"
  130 print"{home}"
  135 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  145 gosub244:print"{home}"
  155 fora=1to32
  165 printtab(a):print"{down}{down}{down}{down} {SHIFT-+}{CBM-I}{CBM-I}{CBM-I}{CBM-I}W "
  170 getc$:ifc$=""then200
  175 ifc$="f"then180
  176 goto200
  180 ford=1to10
  182 gosub2000
  185 printtab(d+a):print".":nextd
  190 printtab((d+a)-3):print"*****"
  195 goto220
  200 print"{down}{down}{down}{down}{down}{down}{down}{down}"
  205 b=(a-32)*-1
  210 printtab(b+1):print"  {CBM-P}    "
  215 goto225
  220 m=m+1
  221 if(d+a)=24then240
  224 ifm=50then280
  225 print"{home}"
  230 nexta
  235 print"{clr}":goto110
  240 j=j+1
  241 gosub2100
  242 ifj=11then270
  243 print"{clr}":goto110
  244 printb$;"{rvon}no.of hits";j:print"{rvon}{down}no.of shots";m:ifm=0then250
  247 print"{rvon}{down}average=";int(100*(j/m));"{left}%"
  250 return
  260 goto110
  270 restore
  275 goto110
  280 restore
  285 goto110
 2000 poke59467,16
 2010 poke59466,15
 2020 poke59464,100
 2030 poke59467,0:return
 2100 poke59467,16:poke59466,15
 2110 forn=50to250step10:poke59464,n
 2120 next:poke59467,0:return
    5 poke53280,0:poke53281,0:print"{wht}"
   10 b$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   20 a$="{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
   30 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}   N {CBM-*}{SHIFT-POUND} {rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}  {rvof}{SHIFT-POUND}
   40 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-*}{rvon}{CBM-*}{rght}{rvof}{CBM-*}{rvon}{CBM-*}{rvof}
   50 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{rvon} N  N  {rvof}{SHIFT-POUND}
   60 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}N   NN{CBM-*}{rvof}
   70 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {CBM-*}{rvon}{CBM-*}{rvof}
   80 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  N{rvof}{SHIFT-POUND} {CBM-*}{rvon}   {rvof}{SHIFT-POUND}
   90 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}
  100 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-*}{rvon}  {CBM-@}{CBM-T}{CBM-@}{CBM-T} {CBM-@}{CBM-@}{CBM-@}{rvof}{SHIFT-POUND}
  110 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}  {rvon}  {rvof}{SHIFT-POUND}
  120 forx2=32768to33728step40
  130 pokex2,224
  140 nextx2
  150 forx2=33728to33767
  160 pokex2,224
  170 nextx2
  180 forx2=33767to32807step-40
  190 pokex2,224
  200 nextx2
  210 forx2=32807to32769step-1
  220 pokex2,224
  230 nextx2
  240 rem this program by larry anderson
  250 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} press {rvon}return{rvof} to begin
  260 getx$:ifx$=""then260
  270 print"{clr}"
  280 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} how many tosses";
  290 inputa
  300 print"{clr}"
  310 for b=1 toa
  320 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}heads or tails(h or t)":getr$:ifr$=""then320
  330 if r$="h"then l=1
  340 if r$="t"thenl=2
  350 print"{clr}{clr}"
  360 fory=1to10
  370 print"{home}"
  380 printa$;"
  390 printb$;"       N{CBM-T}{CBM-T}M
  400 printb$;"       {rvon}{CBM-D}{CBM-*}{rvof} {CBM-M}
  410 printb$;"      {rvon}{SHIFT-POUND}  {rvof} {CBM-M}
  420 printb$;"       {rvon}{CBM-@} {rvof} {CBM-M}
  430 printb$;" {CBM-P}     {rvon}  {SHIFT-POUND}{rvof}{CBM-M}
  440 printb$;"{CBM-L}{rvon} {CBM-*}{rvof}    {CBM-*}{rvon}  {rvof}N
  450 printb$;" {CBM-*}{rvon} {CBM-*}{rvof}    {rvon}  {rvof}
  460 printb$;"  {CBM-*}{rvon}    {rvof}OO{CBM-T}M
  470 printb$;"   {CBM-*}{rvon}   {rvof}LL{CBM-@}{CBM-M}
  480 printb$;"       {CBM-G}  {CBM-M}
  490 print"{home}"
  500 nexty
  510 printa$;"{rght}{down}{down}{down}{down}{down}M{home}"
  520 printa$;"{rght}{down}{down}{down}{down}B{home}"
  530 printa$;"{rght}{down}{down}{down}N{down}{left} {home}"
  540 printa$;"{rght}{down}{down}{down} {home}"
  550 forz=1to4
  560 forc=1to5:printa$;"{rght}B{home}":nextc
  570 ford=1to5:printa$;"{rght}N{home}":nextd
  580 fore=1to5:printa$;"{rght}C{home}":nexte
  590 forf=1to5:printa$;"{rght}M{home}":nextf
  600 forq=1to5:printa$;"{rght}Q{home}":nextq
  610 nextz
  620 printa$;"{rght} {down}{left}N{home}"
  630 printa$;"{rght}{down} {down}{left}C{home}"
  640 printa$;"{rght}{down}{down} {home}"
  650 printa$;"{rght}{down}{down}{down}{down}{down}{CBM-O}{home}"
  660 g=int(2*rnd(1))+1
  670 print"{home}"
  680 ifg=1thenprinta$;"{down}{down}{down}{down} heads-{rvon}{SHIFT-POUND}"
  690 ifg=2thenprinta$;"{down}{down}{down}{down} tails-{rvon}{SHIFT-POUND}"
  700 forx1=1to900:nextx1:goto840
  710 print"{clr}"
  720 if l=g then p=p+1
  730 print"{home}"
  740 printa$;"{down}{down}{down}{down}{rght}      {rvon}{CBM-@}"
  750 print"{clr}"
  760 next b
  770 print"{clr}"
  780 print"out of";a;"tosses";p;"are right"
  790 if a=p thenprint"a perfect score "
  800 leta=a/2
  810 if p>a thenprint"you win"
  820 if a>p then print"you lost"
  830 print"play again?"x$:inputx$
  835 ifx$="y"then10
  837 end
  840 print"{clr}"
  850 print"{down}{down}{down}{down}{down}
  860 print"                {rvon}{SHIFT-POUND} {CBM-@} {CBM-*}{rvof}
  870 print"               {rvon}{SHIFT-POUND} N{SHIFT-*}M {CBM-*}{rvof}
  880 print"              {rvon}{SHIFT-POUND} {CBM-M}N M{CBM-G} {CBM-*}{rvof}
  890 print"             {rvon}{SHIFT-POUND}  H{CBM-G} {CBM-M}G  {rvof}
  900 print"             {rvon}  U{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}I {rvof}{CBM-H}
  910 print"             {rvon}G {SHIFT--}     {SHIFT--} {CBM-N}{rvof}
  920 print"             {rvon}{SHIFT--} {SHIFT--}     {SHIFT--}  {rvof}
  930 print"             {rvon}H{rvof}{SHIFT-POUND}{rvon}{CBM-K}     {SHIFT--}  {rvof}
  940 print"               {rvon}{SHIFT--}     {SHIFT--}  {rvof}
  950 print"              {rvon}{CBM-K}{SHIFT--}     {SHIFT--}  {rvof}
  960 print"              {rvon}{CBM-G}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K {rvof}{CBM-K}
  970 print"              {rvon}         {rvof}{CBM-H}
  980 print"{home}"
  990 ifg=1thenprint"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{SHIFT-POUND} {CBM-*}{down}{left}{left}{left}{left}{rvon}{CBM-M}{CBM-D}{CBM-*}{rvof} {down}{left}{left}{left}{left}{rvon}N  {rvof} ";
 1000 ifg=1thenprint"{down}{left}{left}{left}{left}{rvon}P{SHIFT-*}{rvof}{SHIFT-POUND} {rvof}{down}{left}{left}{left} {rvon}{SHIFT-POUND}{SHIFT-POUND}{CBM-POUND}{rvof}
 1010 ifg=2thenprint"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  {rght}{rght}{rght}{rght}{rght}{down}{rvon}N{CBM-T}{CBM-T}{CBM-T}M{down}{left}{left}{left}{left}{left}OOOOO{down}{left}{left}{left}{left}{left}LLLLL";
 1020 ifg=2thenprint"{down}{left}{left}{left}{left}{left}{rvon}L{SHIFT-@}{SHIFT-*}L{SHIFT-@}"
 1030 forx1=1to900:nextx1:goto710
   90 print"{clr}"
  100 rem *** initialize
  110 dim t(7,3)
  120 e=0
  130 for d=1 to 7
  140 for n=1 to 3
  150 t(d,n)=0
  160 next n
  170 next d
  180 print"{clr}towers of hanoi puzzle"
  190 print"{down}you must transfer the disks from the"
  200 print"left to the right tower, one at a time,"
  205 print"never putting a larger disk on a smaller";
  210 print"disk."
  215 print"{down}how many disks do you want to move"
  220 print"(7 is max)";:input s
  230 m=0
  240 for q=1 to 7
  250 if q=s then 350
  260 next q
  270 e=e+1
  280 if e>2 then 310
  290 print"sorry,but i can't do that for you.":goto 215
  310 print"all right,wize guy,if you can't play the";
  315 print"game right,i'll just take my puzzle"
  320 print"and go home. so long.":stop
  340 rem *** store  disks from smallest to largest
  350 print"{clr}in this program,we shall refer to the"
  353 print"disks by numerical code."
  356 print"3 will be the smallest disk,5 the next"
  360 print"size,7 the next,and so on,up to 15."
  363 print"{down}if you do the puzzle with 2 disks,their"
  366 print"code names would be 13 and 15.with 3"
  370 print"disks the code names would be 11,13"
  373 print"and 15,etc."
  376 print"the needles are numbered from left to"
  380 print"to right,1 to 3. we will start with the"
  383 print"disks on needle 1,and attempt to move"
  386 print"them to needle 3."
  390 print"{down}{down}{down}press return to start{down}...good luck"
  395 get a$:if a$="" then goto 395
  400 y=7:d=15
  420 for x=s to 1 step -1
  430 t(y,1)=d:d=d-2:y=y-1
  460 next x
  470 gosub 1230
  480 print"which disk would you like to move";:e=0
  500 input d
  503 if d>=17-2*s then 510
  506 print"that's too small stupid!":goto530
  510 if (d-3)*(d-5)*(d-7)*(d-9)*(d-11)*(d-13)*(d-15)=0 then 580
  520 print"illegal entry..you must type 3,5,7,9,11,13,15."
  530 e=e+1:if e>1 then 560
  550 goto 500
  560 print"stop wasting my time.go bother someone  else.":stop
  580 rem *** check if requested disk is below another
  590 for r=1 to 7
  600 for c=1 to 3
  610 if t(r,c)=d then 640
  620 next c,r
  640 for q=r to 1 step -1
  645 if t(q,c)=0 then 660
  650 if t(q,c)<d then 680
  660 next q
  670 goto 700
  680 print"that disk is below another one. chose   again."
  690 goto 480
  700 e=0
  705 input"place disk on which needle";n
  730 if(n-1)*(n-2)*(n-3)=0 then 800
  735 e=e+1
  740 if e>1 then 780
  750 print"i'll assume you hit the wrong key this  time. but watch it, i only allow"
  760 print"one mistake.":goto 705
  780 print"i tried to warn you,but you wouldn't"
  790 print"listen. bye bye big shot.":stop
  800 for r=1 to 7
  810 if t(r,n)<>0 then 840
  820 next r
  830 goto 880
  835 rem *** check if disk to be placed on a larger one
  840 if d<t(r,n) then 880
  850 print"you can't put a larger diskon top of a"
  860 print"smaller one stupid!...now then,":goto 480
  875 rem *** move relocated disk
  880 for v=1 to 7:for w=1 to 3
  900 if t(v,w)=d then 930
  910 next w,v
  925 rem *** locate empty space on needle n
  930 for u=1 to 7
  940 if t(u,n)<>0 then 970
  950 next u
  960 u=7:goto 980
  965 rem *** move disk and set old location to 0
  970 u=u-1
  980 t(u,n)=t(v,w):t(v,w)=0
  995 rem *** print out current status
 1000 gosub 1230
 1018 rem *** check if finished
 1020 m=m+1
 1030 for r=1 to 7:for c=1 to 2
 1050 if t(r,c)<>0 then 1090
 1060 next c,r
 1080 goto 1120
 1090 if m<=128 then 480
 1100 print"sorry but i have orders to stop if you  make more than 128 moves."
 1110 stop
 1120 if m<>2^s-1 then 1140
 1130 print"congratulations!!"
 1140 print"you have performed the task in";m;"moves"
 1150 print"{down}try again ( y or n)"
 1155 get a$:if a$="" then 1155
 1160 if a$="n" then 1530
 1170 if a$="y" then 120
 1180 print" y or n please":goto 1155
 1230 rem *** print subroutine
 1235 print"{clr}";
 1240 for k=1 to 7
 1250 z=8
 1260 for j=1 to 3 step 2
 1270 if t(k,j)=0 then 1330
 1280 print tab(z-int(t(k,j)/2));
 1290 for v=1 to t(k,j)
 1300 print"*";
 1310 next v
 1320 goto 1340
 1330 printtab(z);"{SHIFT--}";
 1340 z=z+24
 1350 next j
 1360 print
 1370 next k
 1372 if t(7,3)=15then print"{up}";
 1375 print"{rvon}        1        {rvof}      {rvon}         3       {rvof}"
 1380 for k=1 to 7
 1390 z=20
 1400 j=2
 1410 if t(k,j)=0 then 1470
 1420 print tab(z-int(t(k,j)/2));
 1430 for v=1 to t(k,j)
 1440 print"*";
 1450 next v
 1460 goto 1480
 1470 printtab(z);"{SHIFT--}";
 1480 print
 1490 next k
 1495 print"            {rvon}        2        {rvof}"
 1500 return
 1530 print"{down}{down}thanks for the game!":end
   10 poke59468,12:print"{clr}{down}copyright 1980 * {rvon}micro-ed{rvof}, inc.":forz=1to2000:nextz
   80 fo=10:am=10:cl=10:su=10:re=30:mi=2000:print"{clr}{down}{down}{down}{down}{down}":rem .mad.  2016
  100 printspc(12);"{rvon}**************"
  101 printspc(12);"{rvon}*            *
  102 printspc(12);"{rvon}* trail west *
  103 printspc(12);"{rvon}*            *
  104 printspc(12);"{rvon}**************
  110 print"{down}{down}{rght}{rght}{rght}gold rush!  you have two thousand":print"{down}miles to go."
  120 print"{down}{rght}{rght}{rght}";:gosub19000
  200 print"{clr}{down}":k=0:n=0:print"situation"
  220 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
  230 print"{down}food=";fo;"units"
  240 print"{down}ammunition=";am;"units"
  250 print"{down}clothes=";cl;"units"
  260 print"{down}supplies=";su;"units"
  270 print"{down}reserve=";re;"units"
  275 print"{down}distance to go=";mi;"miles"
  277 iffo<1oram<1orcl<1orsu<1orre<0then50000
  280 print"{down}{rght}{rght}{rght}do you want to transfer any of"
  290 print"{down}your reserve units to the other"
  300 print"{down}categories?  (press {rvon}y{rvof} or {rvon}n{rvof})
  320 getr$:ifr$<>"y"andr$<>"n"then320
  330 ifr$="n"then1000
  400 print"{clr}{down}":forz=1to4
  412 ifz=1thenc=fo:c$="food"
  414 ifz=2thenc=am:c$="ammunition"
  416 ifz=3thenc=cl:c$="clothes"
  418 ifz=4thenc=su:c$="supplies"
  420 print"{down}how many reserve units":print"{down}to ";c$;
  425 input"{rght}{rght}{CBM-B}{left}{left}{left}";cc$:ifcc$="{CBM-B}"thenprint"{up}{up}{up}{up}{up}":goto420
  430 c=val(cc$):re=re-c
  431 ifz=1thenfo=fo+c
  432 ifz=2thenam=am+c
  433 ifz=3thencl=cl+c
  434 ifz=4thensu=su+c
  440 nextz
 1000 print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}will you hunt?  (press {rvon}y{rvof} or {rvon}n{rvof})"
 1010 getg$:ifg$<>"y"andg$<>"n"then1010
 1030 ifg$="n"then2000
 1100 print"{clr}"
 1105 n=int(rnd(ti)*20)+1
 1110 forz=1ton:print:nextz
 1120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}y{CBM-+}{CBM-+}K"
 1130 input"{home}shoot with numbers 1-20{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-B}{left}{left}{left}";s$
 1135 ifs$="{CBM-B}"then1130
 1140 s=val(s$):ifs<1ors>20then1100
 1150 k=k+1:forz=1tos:print:nextz
 1160 forz=1to39:print"{left} Q";:nextz
 1180 ifs=nthengoto1500
 1190 goto1100
 1500 print"{home}{down}{down}{down}bullseye!!":print"{down}you earned 5 units of food."
 1505 print"{down}you used";k;"unit(s) of ammunition.":fo=fo+5:am=am-k:k=0
 1510 gosub19000
 2000 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}time to travel.  you will be the {rvon}y{rvof}"
 2002 print"{down}on the screen.  you must travel to"
 2004 print"{down}the {CBM-+}.  n=north, se=southeast, etc.{down}{down}":gosub19000:print"{clr}"
 2012 r=int(rnd(ti)*20)+2:c=int(rnd(ti)*15)+1
 2013 rr=int(rnd(ti)*20)+2:cc=int(rnd(ti)*20)+17:tr=10*(cc-c)
 2015 print"{home}":forz=1to39:print"{rvon} ";:nextz:forzz=1to23:print"{down}{left}{rvon} ";:nextzz
 2016 print"{home}":forz=1to23:print"{rvon} ":nextz:forzz=1to39:print"{rvon} ";:nextzz
 2017 print"{home}":print"{home}                                     "
 2018 print"{home}":forz=1tor:print:nextz:forzz=1toc:print"{rght}";:nextzz:print"{CBM-+}"
 2019 print"{home}":forz=1torr:print:nextz:forzz=1tocc:print"{rght}";:nextzz:print"{rvon}y{rvof}"
 2020 print"{home}which way (n,e,s,w,ne,se,sw,nw)";:input"{rght}{rght}{CBM-B}{left}{left}{left}";d$
 2030 ifd$="n"thenp$="{left} {left}{up}{rvon}y{rvof}":goto2200
 2040 ifd$="e"thenp$="{left} {rvon}y{rvof}":goto2200
 2050 ifd$="s"thenp$="{left} {down}{left}{rvon}y{rvof}":goto2200
 2060 ifd$="w"thenp$="{left} {left}{left}{rvon}y{rvof}":goto2200
 2070 ifd$="ne"thenp$="{left} {up}{rvon}y{rvof}":goto2200
 2080 ifd$="se"thenp$="{left} {down}{rvon}y{rvof}":goto2200
 2090 ifd$="sw"thenp$="{left} {down}{left}{left}{rvon}y{rvof}":goto2200
 2100 ifd$="nw"thenp$="{left} {left}{left}{up}{rvon}y{rvof}":goto2200
 2110 goto2017
 2200 print"{home}                                     "
 2210 print"{home}how far";:input"{rght}{rght}{CBM-B}{left}{left}{left}";f$
 2220 ifval(f$)=0then2200
 2225 f=val(f$):k=k+1:print"{home}"
 2240 forz=1torr:print:nextz
 2250 forz=1tocc:print"{rght}";:nextz
 2260 print"{rvon}y{rvof}";
 2265 forzz=1tof:printp$;
 2277 forll=1to100:nextll:nextzz
 2310 ifd$="n"thenrr=rr-f
 2320 ifd$="e"thencc=cc+f
 2330 ifd$="s"thenrr=rr+f
 2340 ifd$="w"thencc=cc-f
 2350 ifd$="ne"thenrr=rr-f:cc=cc+f
 2360 ifd$="se"thenrr=rr+f:cc=cc+f
 2370 ifd$="sw"thenrr=rr+f:cc=cc-f
 2380 ifd$="nw"thenrr=rr-f:cc=cc-f
 2390 ifrr>22orrr<1orcc>37orcc<1then40000
 2400 ifrr=randcc=cthenprint"{home}o.k.  you used";k;"units of food":goto45000
 2410 goto2017
 3000 mi=mi-tr:ifmi<1thenprint"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rvon}y o u{rght}{rght}{rght}{rght}{rght}w i n":end
 3005 print"{clr}{down}{down}{down}{down}{down}you traveled";tr;"miles."
 3010 print"{down}you have";mi;"miles left to go."
 3020 gosub19000:print"{clr}"
 3025 n=int(rnd(ti)*6)+1
 3030 ifn>4thenn=4
 3040 on n goto 3500,4000,5000,6000
 3500 print"{clr}{down}{down}{down}{down}{down}arrows fly!!  run for the wagons!!!"
 3504 print"{down}just watch, and hope for the best!":gosub19000:print"{clr}"
 3510 print"{rght}{rght}{rght}{rght}             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3511 print"{rght}{rght}{rght}{rght}             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3512 print"{rght}{rght}{rght}{rght}             L{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}   L{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}
 3513 print"{rght}{rght}{rght}{rght}             W   W   W   W
 3514 z=22:v=22:xx=22
 3515 print"{home}":z=z-2:v=v-2:xx=xx-2
 3517 forl=2toz:print:nextl
 3530 printtab(23);"+"
 3535 forl=1to200:nextl:print"{home}"
 3540 x=int(rnd(ti)*18)+5
 3545 forl=2tox:print:nextl
 3560 forl=1to37
 3565 print" ->{left}{left}";
 3570 nextl
 3575 ifx=zthenprint"{home}{rvon}sorry, pardner.  better luck next trip!":end
 3577 print"{home}"
 3580 k=k+2:ifk>17thenprint"{home}{rvon}whew!  close call, pardner!!":forz=1to2000:nextz:goto200
 3585 poke32768+40*xx+23,32
 3590 goto3515
 4000 print"{clr}you and a bad guy have a shootout.":gosub19000:print"{clr}"
 4010 print"{home}{down}{down}{down}{down}{down}"
 4020 print"{rght}{rght}{rght}{rght}{rght}  you                  him
 4021 print"{rght}{rght}{rght}{rght}{rght}  {SHIFT-@}{CBM-T}L                  {SHIFT-@}{CBM-T}L
 4022 print"{rght}{rght}{rght}{rght}{rght}   {CBM-+}F                  F{CBM-+}
 4023 print"{rght}{rght}{rght}{rght}{rght}  N M                  N M
 4024 print"{rght}{rght}{rght}{rght}{rght}  M {CBM-G}{CBM-G}                {CBM-M}{CBM-M} N
 4025 print"{rght}{rght}{rght}{rght}{rght}  {CBM-M}{CBM-J}M                  N{CBM-L}{CBM-G}
 4026 print"{rght}{rght}{rght}{rght}{rght}  {CBM-M}{CBM-V}L{CBM-G}                {CBM-M}{SHIFT-@}{CBM-C}{CBM-G}
 4027 print"{rght}{rght}{rght}{rght}{rght} ##########################
 4030 forz=1to1000:nextz
 4032 dr=int(rnd(ti)*6)+1
 4034 ondrgosub4100,4200,4300,4400,4500,4600
 4040 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}type {rvon}";dr$
 4042 ti$="000000"
 4050 input"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-B}{left}{left}{left}";r$
 4056 t=ti:goto4700
 4100 dr$="fire":return
 4200 dr$="shoot":return
 4300 dr$="bang":return
 4400 dr$="draw":return
 4500 dr$="bam":return
 4600 dr$="wham":return
 4700 poke32768+40*(11)+8,32
 4705 poke32768+40*(12)+8,32
 4710 poke32768+40*(10)+8,78
 4715 poke32768+40*(10)+9,120
 4720 poke32768+40*(10)+10,120
 4725 poke32768+40*(9)+10,108
 4730 poke32768+40*(11)+29,32
 4735 poke32768+40*(12)+29,32
 4740 poke32768+40*(10)+29,77
 4745 poke32768+40*(10)+28,120
 4750 poke32768+40*(10)+27,120
 4755 poke32768+40*(9)+27,123
 4757 print"{home}"
 4760 forz=1to9:print:nextz
 4762 ift>250thenforz=1to26:print"{rght}";:nextz:goto4810
 4763 ifr$<>dr$thenforz=1to26:print"{rght}";:nextz:goto4810
 4765 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4770 forz=1to16:print"{left} {CBM-T}";:forzz=1to50:nextzz:nextz
 4775 print"{left}{rvon}kaboom{rvof}":forz=1to1000:nextz:print"{down}{down}{down}{down}{down}{down}":gosub19000:goto200
 4810 forz=1to16:print"{left} {left}{left}{CBM-T}";:forzz=1to50:nextzz:nextz
 4820 print"{left}{left}{left}{left}{rvon}kaboom{rvof}":forz=1to1000:nextz:print"{down}{down}{down}{down}{down}{down}{down}{down}better luck next time
 4830 end
 5000 print"{clr}{down}{down}{down}{down}"
 5020 print"{rvon}good luck.{rvof}  press the number of your":print"{down}choice:"
 5040 print"{down}{rght}1) friendly indians give you clothes."
 5050 print"{down}{rght}2) you find supplies in old shack."
 5060 print"{down}{rght}3) u.s. cavalry gives you ammunition."
 5070 print"{down}{rght}4) pot luck (very good or slightly bad)
 5080 getg$:ifg$=""then5080
 5090 ifval(g$)<1orval(g$)>4then5080
 5100 n=int(rnd(ti)*3)+1
 5105 print"{clr}{down}{down}{down}{down}"
 5110 ifg$="1"thencl=cl+n:print"{down}you get";n;"unit(s) of clothes."
 5120 ifg$="2"thensu=su+n:print"{down}you get";n;"unit(s) of supplies."
 5130 ifg$="3"thenam=am+n:print"{down}you get";n;"unit(s) of ammunition."
 5140 ifg$="4"andn=1thenprint"{down}you lose 1 reserve unit.":re=re-1
 5150 ifg$="4"andn<>1thenprint"{down}you get";n*2;"reserve units.":re=re+(2*n)
 5999 gosub19000:print"{clr}":goto200
 6000 n=int(rnd(ti)*6)+1
 6005 print"{clr}{down}{down}{down}{down}{down}{rvon}bad luck!{rvof}{down}"
 6010 onngoto6100,6200,6300,6400,6500,6600
 6100 print"buffalo stampede.":print"{down}you lose 2 units of supplies.":su=su-2
 6110 gosub19000:goto200
 6200 print"wagon overturns in river.":print"{down}you lose 2 units of clothes."
 6210 cl=cl-2:gosub19000:goto200
 6300 print"thieves enter camp.":print"{down}you lose 2 units of ammunition.":am=am-2
 6310 gosub19000:goto200
 6400 print"big storm hits.":print"{down}you lose 1 unit each of clothes,"
 6410 print"{down}supplies, and ammunition.":cl=cl-1:su=su-1:am=am-1:gosub19000:goto200
 6500 print"sickness hits many members of party.":print"{down}use 3 units of supplies."
 6510 su=su-3:gosub19000:goto200
 6600 print"ambushed by bandits.":print"{down}use 3 units of ammunitiion.":am=am-3
 6610 gosub19000:goto200
 19000 print"{down}press {rvon}space{rvof} {rvon}bar{rvof} to continue"
 19010 getg$:ifg$<>" "then19010
 19020 return
 40000 print"{home}{rvon}out of bounds!  lose 9 reserve units.":forz=1to2000:nextz
 40010 re=re-9:goto3000
 45000 fo=fo-k:k=0:forz=1to1000:nextz
 45005 cl=cl-1:su=su-1
 45010 print"{home}you also used 1 unit of clothes":forz=1to1000:nextz
 45020 print"{home}and you used 1 unit of supplies":forz=1to1000:nextz
 45030 goto3000
 50000 print"{rvon}{down}{rght}{rght}{rght}you have run out of units in one"
 50010 print"{rvon}{down}or more categories.  you must perish."
 50020 print"{rvon}{down}too bad.  better luck next trip!":end
   10 poke59468,12:print"{clr}{down}copyright 1980 * {rvon}micro-ed{rvof}, inc.":forz=1to2000:nextz
   80 fo=10:am=10:cl=10:su=10:re=30:mi=2000:print"{clr}{down}{down}{down}{down}{down}":ifpeek(639)<>94thennew
  100 printspc(12);"{rvon}**************"
  101 printspc(12);"{rvon}*            *
  102 printspc(12);"{rvon}* trail west *
  103 printspc(12);"{rvon}*            *
  104 printspc(12);"{rvon}**************
  110 print"{down}{down}{rght}{rght}{rght}gold rush!  you have two thousand":print"{down}miles to go."
  120 print"{down}{rght}{rght}{rght}";:gosub19000
  200 print"{clr}{down}":k=0:n=0:print"situation"
  220 print"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}
  230 print"{down}food=";fo;"units"
  240 print"{down}ammunition=";am;"units"
  250 print"{down}clothes=";cl;"units"
  260 print"{down}supplies=";su;"units"
  270 print"{down}reserve=";re;"units"
  275 print"{down}distance to go=";mi;"miles"
  277 iffo<1oram<1orcl<1orsu<1orre<0then50000
  280 print"{down}{rght}{rght}{rght}do you want to transfer any of"
  290 print"{down}your reserve units to the other"
  300 print"{down}categories?  (press {rvon}y{rvof} or {rvon}n{rvof})
  320 getr$:ifr$<>"y"andr$<>"n"then320
  330 ifr$="n"then1000
  400 print"{clr}{down}":forz=1to4
  412 ifz=1thenc=fo:c$="food"
  414 ifz=2thenc=am:c$="ammunition"
  416 ifz=3thenc=cl:c$="clothes"
  418 ifz=4thenc=su:c$="supplies"
  420 print"{down}how many reserve units":print"{down}to ";c$;
  425 input"{rght}{rght}{CBM-B}{left}{left}{left}";cc$:ifcc$="{CBM-B}"thenprint"{up}{up}{up}{up}{up}":goto420
  430 c=val(cc$):re=re-c
  431 ifz=1thenfo=fo+c
  432 ifz=2thenam=am+c
  433 ifz=3thencl=cl+c
  434 ifz=4thensu=su+c
  440 nextz
 1000 print"{clr}{down}{down}{down}{down}{rght}{rght}{rght}will you hunt?  (press {rvon}y{rvof} or {rvon}n{rvof})"
 1010 getg$:ifg$<>"y"andg$<>"n"then1010
 1030 ifg$="n"then2000
 1100 print"{clr}"
 1105 n=int(rnd(ti)*20)+1
 1110 forz=1ton:print:nextz
 1120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}y{CBM-+}{CBM-+}K"
 1130 input"{home}shoot with numbers 1-20{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-B}{left}{left}{left}";s$
 1135 ifs$="{CBM-B}"then1130
 1140 s=val(s$):ifs<1ors>20then1100
 1150 k=k+1:forz=1tos:print:nextz
 1160 forz=1to39:print"{left} Q";:nextz
 1180 ifs=nthengoto1500
 1190 goto1100
 1500 print"{home}{down}{down}{down}bullseye!!":print"{down}you earned 5 units of food."
 1505 print"{down}you used";k;"unit(s) of ammunition.":fo=fo+5:am=am-k:k=0
 1510 gosub19000
 2000 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}time to travel.  you will be the {rvon}y{rvof}"
 2002 print"{down}on the screen.  you must travel to"
 2004 print"{down}the {CBM-+}.  n=north, se=southeast, etc.{down}{down}":gosub19000:print"{clr}"
 2012 r=int(rnd(ti)*20)+2:c=int(rnd(ti)*15)+1
 2013 rr=int(rnd(ti)*20)+2:cc=int(rnd(ti)*20)+17:tr=10*(cc-c)
 2015 print"{home}":forz=1to39:print"{rvon} ";:nextz:forzz=1to23:print"{down}{left}{rvon} ";:nextzz
 2016 print"{home}":forz=1to23:print"{rvon} ":nextz:forzz=1to39:print"{rvon} ";:nextzz
 2017 print"{home}":print"{home}                                     "
 2018 print"{home}":forz=1tor:print:nextz:forzz=1toc:print"{rght}";:nextzz:print"{CBM-+}"
 2019 print"{home}":forz=1torr:print:nextz:forzz=1tocc:print"{rght}";:nextzz:print"{rvon}y{rvof}"
 2020 print"{home}which way (n,e,s,w,ne,se,sw,nw)";:input"{rght}{rght}{CBM-B}{left}{left}{left}";d$
 2030 ifd$="n"thenp$="{left} {left}{up}{rvon}y{rvof}":goto2200
 2040 ifd$="e"thenp$="{left} {rvon}y{rvof}":goto2200
 2050 ifd$="s"thenp$="{left} {down}{left}{rvon}y{rvof}":goto2200
 2060 ifd$="w"thenp$="{left} {left}{left}{rvon}y{rvof}":goto2200
 2070 ifd$="ne"thenp$="{left} {up}{rvon}y{rvof}":goto2200
 2080 ifd$="se"thenp$="{left} {down}{rvon}y{rvof}":goto2200
 2090 ifd$="sw"thenp$="{left} {down}{left}{left}{rvon}y{rvof}":goto2200
 2100 ifd$="nw"thenp$="{left} {left}{left}{up}{rvon}y{rvof}":goto2200
 2110 goto2017
 2200 print"{home}                                     "
 2210 print"{home}how far";:input"{rght}{rght}{CBM-B}{left}{left}{left}";f$
 2220 ifval(f$)=0then2200
 2225 f=val(f$):k=k+1:print"{home}"
 2240 forz=1torr:print:nextz
 2250 forz=1tocc:print"{rght}";:nextz
 2260 print"{rvon}y{rvof}";
 2265 forzz=1tof:printp$;
 2277 forll=1to100:nextll:nextzz
 2310 ifd$="n"thenrr=rr-f
 2320 ifd$="e"thencc=cc+f
 2330 ifd$="s"thenrr=rr+f
 2340 ifd$="w"thencc=cc-f
 2350 ifd$="ne"thenrr=rr-f:cc=cc+f
 2360 ifd$="se"thenrr=rr+f:cc=cc+f
 2370 ifd$="sw"thenrr=rr+f:cc=cc-f
 2380 ifd$="nw"thenrr=rr-f:cc=cc-f
 2390 ifrr>22orrr<1orcc>37orcc<1then40000
 2400 ifrr=randcc=cthenprint"{home}o.k.  you used";k;"units of food":goto45000
 2410 goto2017
 3000 mi=mi-tr:ifmi<1thenprint"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rvon}y o u{rght}{rght}{rght}{rght}{rght}w i n":end
 3005 print"{clr}{down}{down}{down}{down}{down}you traveled";tr;"miles."
 3010 print"{down}you have";mi;"miles left to go."
 3020 gosub19000:print"{clr}"
 3025 n=int(rnd(ti)*6)+1
 3030 ifn>4thenn=4
 3040 on n goto 3500,4000,5000,6000
 3500 print"{clr}{down}{down}{down}{down}{down}arrows fly!!  run for the wagons!!!"
 3504 print"{down}just watch, and hope for the best!":gosub19000:print"{clr}"
 3510 print"{rght}{rght}{rght}{rght}             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3511 print"{rght}{rght}{rght}{rght}             {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
 3512 print"{rght}{rght}{rght}{rght}             L{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}   L{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}
 3513 print"{rght}{rght}{rght}{rght}             W   W   W   W
 3514 z=22:v=22:xx=22
 3515 print"{home}":z=z-2:v=v-2:xx=xx-2
 3517 forl=2toz:print:nextl
 3530 printtab(23);"+"
 3535 forl=1to200:nextl:print"{home}"
 3540 x=int(rnd(ti)*18)+5
 3545 forl=2tox:print:nextl
 3560 forl=1to37
 3565 print" ->{left}{left}";
 3570 nextl
 3575 ifx=zthenprint"{home}{rvon}sorry, pardner.  better luck next trip!":end
 3577 print"{home}"
 3580 k=k+2:ifk>17thenprint"{home}{rvon}whew!  close call, pardner!!":forz=1to2000:nextz:goto200
 3585 poke32768+40*xx+23,32
 3590 goto3515
 4000 print"{clr}you and a bad guy have a shootout.":gosub19000:print"{clr}"
 4010 print"{home}{down}{down}{down}{down}{down}"
 4020 print"{rght}{rght}{rght}{rght}{rght}  you                  him
 4021 print"{rght}{rght}{rght}{rght}{rght}  {SHIFT-@}{CBM-T}L                  {SHIFT-@}{CBM-T}L
 4022 print"{rght}{rght}{rght}{rght}{rght}   {CBM-+}F                  F{CBM-+}
 4023 print"{rght}{rght}{rght}{rght}{rght}  N M                  N M
 4024 print"{rght}{rght}{rght}{rght}{rght}  M {CBM-G}{CBM-G}                {CBM-M}{CBM-M} N
 4025 print"{rght}{rght}{rght}{rght}{rght}  {CBM-M}{CBM-J}M                  N{CBM-L}{CBM-G}
 4026 print"{rght}{rght}{rght}{rght}{rght}  {CBM-M}{CBM-V}L{CBM-G}                {CBM-M}{SHIFT-@}{CBM-C}{CBM-G}
 4027 print"{rght}{rght}{rght}{rght}{rght} ##########################
 4030 forz=1to1000:nextz
 4032 dr=int(rnd(ti)*6)+1
 4034 ondrgosub4100,4200,4300,4400,4500,4600
 4040 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}type {rvon}";dr$
 4042 ti$="000000"
 4050 input"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-B}{left}{left}{left}";r$
 4056 t=ti:goto4700
 4100 dr$="fire":return
 4200 dr$="shoot":return
 4300 dr$="bang":return
 4400 dr$="draw":return
 4500 dr$="bam":return
 4600 dr$="wham":return
 4700 poke32768+40*(11)+8,32
 4705 poke32768+40*(12)+8,32
 4710 poke32768+40*(10)+8,78
 4715 poke32768+40*(10)+9,120
 4720 poke32768+40*(10)+10,120
 4725 poke32768+40*(9)+10,108
 4730 poke32768+40*(11)+29,32
 4735 poke32768+40*(12)+29,32
 4740 poke32768+40*(10)+29,77
 4745 poke32768+40*(10)+28,120
 4750 poke32768+40*(10)+27,120
 4755 poke32768+40*(9)+27,123
 4757 print"{home}"
 4760 forz=1to9:print:nextz
 4762 ift>250thenforz=1to26:print"{rght}";:nextz:goto4810
 4763 ifr$<>dr$thenforz=1to26:print"{rght}";:nextz:goto4810
 4765 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";
 4770 forz=1to16:print"{left} {CBM-T}";:forzz=1to50:nextzz:nextz
 4775 print"{left}{rvon}kaboom{rvof}":forz=1to1000:nextz:print"{down}{down}{down}{down}{down}{down}":gosub19000:goto200
 4810 forz=1to16:print"{left} {left}{left}{CBM-T}";:forzz=1to50:nextzz:nextz
 4820 print"{left}{left}{left}{left}{rvon}kaboom{rvof}":forz=1to1000:nextz:print"{down}{down}{down}{down}{down}{down}{down}{down}better luck next time
 4830 end
 5000 print"{clr}{down}{down}{down}{down}"
 5020 print"{rvon}good luck.{rvof}  press the number of your":print"{down}choice:"
 5040 print"{down}{rght}1) friendly indians give you clothes."
 5050 print"{down}{rght}2) you find supplies in old shack."
 5060 print"{down}{rght}3) u.s. cavalry gives you ammunition."
 5070 print"{down}{rght}4) pot luck (very good or slightly bad)
 5080 getg$:ifg$=""then5080
 5090 ifval(g$)<1orval(g$)>4then5080
 5100 n=int(rnd(ti)*3)+1
 5105 print"{clr}{down}{down}{down}{down}"
 5110 ifg$="1"thencl=cl+n:print"{down}you get";n;"unit(s) of clothes."
 5120 ifg$="2"thensu=su+n:print"{down}you get";n;"unit(s) of supplies."
 5130 ifg$="3"thenam=am+n:print"{down}you get";n;"unit(s) of ammunition."
 5140 ifg$="4"andn=1thenprint"{down}you lose 1 reserve unit.":re=re-1
 5150 ifg$="4"andn<>1thenprint"{down}you get";n*2;"reserve units.":re=re+(2*n)
 5999 gosub19000:print"{clr}":goto200
 6000 n=int(rnd(ti)*6)+1
 6005 print"{clr}{down}{down}{down}{down}{down}{rvon}bad luck!{rvof}{down}"
 6010 onngoto6100,6200,6300,6400,6500,6600
 6100 print"buffalo stampede.":print"{down}you lose 2 units of supplies.":su=su-2
 6110 gosub19000:goto200
 6200 print"wagon overturns in river.":print"{down}you lose 2 units of clothes."
 6210 cl=cl-2:gosub19000:goto200
 6300 print"thieves enter camp.":print"{down}you lose 2 units of ammunition.":am=am-2
 6310 gosub19000:goto200
 6400 print"big storm hits.":print"{down}you lose 1 unit each of clothes,"
 6410 print"{down}supplies, and ammunition.":cl=cl-1:su=su-1:am=am-1:gosub19000:goto200
 6500 print"sickness hits many members of party.":print"{down}use 3 units of supplies."
 6510 su=su-3:gosub19000:goto200
 6600 print"ambushed by bandits.":print"{down}use 3 units of ammunitiion.":am=am-3
 6610 gosub19000:goto200
 19000 print"{down}press {rvon}space{rvof} {rvon}bar{rvof} to continue"
 19010 getg$:ifg$<>" "then19010
 19020 return
 40000 print"{home}{rvon}out of bounds!  lose 9 reserve units.":forz=1to2000:nextz
 40010 re=re-9:goto3000
 45000 fo=fo-k:k=0:forz=1to1000:nextz
 45005 cl=cl-1:su=su-1
 45010 print"{home}you also used 1 unit of clothes":forz=1to1000:nextz
 45020 print"{home}and you used 1 unit of supplies":forz=1to1000:nextz
 45030 goto3000
 50000 print"{rvon}{down}{rght}{rght}{rght}you have run out of units in one"
 50010 print"{rvon}{down}or more categories.  you must perish."
 50020 print"{rvon}{down}too bad.  better luck next trip!":end
   10 print "traitor's castle"
   20 let s=0
   30 for g=1 to 10
   40 r$=""
   50 let t=int(rnd(1)*9+1)
   60 for l=1 to 9
   70 if l=t then let r$=r$+"o"
   80 if l<>t then let r$=r$+"."
   90 next l
  100 print r$,
  110 for i=1 to 200
  120 get i$
  130 if val("0"+i$)=t then goto 170
  140 next i
  150 print "missed"
  160 goto 190
  170 print "good shot"
  180 let s=s+1
  190 next g
  200 print "you hit ";s;"out of 10"
  210 stop
:{stop}{SHIFT-POUND}{CTRL-X}{sret}h{stop}{SHIFT-POUND}{$80}{sret}k{stop}{CBM-I}{$00}{CBM-X}{$00}{red}{left}{$00}{$84}{$e8}{$e0}{$00}P{$f5}{CBM-Z}k{stop}{$ee}k{stop}{$ee}h{stop}I{$83}P{$e8}{$60}{$00}~{$00}    1 rem trek adventure
    8 gosub900:l=9:m=l:v=28:t=2:u=4:gosub195:goto365
    9 print:d=d-1:t=t-1:ift<0thenu=u-1:t=59:ifu<0then850
   50 o=o-1:ifo<6ando>0thenprint"oxygen low! "o" minutes remaining"
   55 ifo=0thenprint"out of air!":goto845
   60 ifl(4)>-1andl(5)>-1andz=1then840
   65 if(l=11orl=12)andnotl(6)then830
   75 input"your command";z$:a$=left$(z$,2):iflen(z$)=0then75
   80 fori=1to22:print"-";:next:print:ifa$="in"thenj=1:goto170
   85 ifa$="fi"or(a$="re"andl=12)ora$="pr"thena$="dr"
   86 ifa$="ge"thena$="ta"
   88 ifa$="we"thena$="pu"
   90 ifa$="bl"thena$="sh"
   95 fori=len(z$)to1step-1:ifmid$(z$,i,1)<>" "thennext:goto690
  100 b$=mid$(z$,i+1,2):ifb$="id"thenb$="ba"
  105 ifa$="pl"andb$="ta"then740
  110 ifa$="pu"andb$="bu"andl=8then730
  115 ifa$="cl"andb$="do"then860
  120 forj=1tolen(w$)step2:ifa$=mid$(w$,j,2)thenf=(j+1)/2:goto130
  125 next:goto690
  130 forj=1tolen(o$)step2:ifb$=mid$(o$,j,2)thens=(j+1)/2:goto140
  135 next:goto690
  140 on(f)goto220,150,560,300,475,585,620,620,620
  145 ifa$="ch"then2000
  150 if(s=11)and(l(5)=l)thens=12
  151 if(s>v)then780
  152 if(s=7)and(l(1)=l)then155
  153 ifs<6then780
  154 if(l(s-7)<>l)then780
  155 ifc=6or(c=4and(l(4)=-1orl(5)=-1))then785
  160 ifl(4)=l(5)andl=11thens=12
  165 l(s-7)=0:c=c+1:goto9
  170 print"you are carrying ";:fori=1to21:ifl(i)=0thenprinto$(i+7):j=0
  175 next:ifj<>0thenprint" nothing
  180 fori=4to6:ifnotl(i)thennext:goto9
  185 print:print"you're wearing-":fori=4to6:ifl(i)=-1thenprinto$(i+7)
  190 next:goto9
  195 o$="nosoeaweupdoouphklunspspboflshsevabrpitrhascwrbapetahaxx
  197 o$=o$+"vamivienpapoeqloceburepastcrdoloardotutevewi"
  205 w$="gotadrloopshpure":return
  220 x=0:ifs=47and(l=9orl=23orl=16)thenn=l:l=14:goto276
  225 ifs=7andl=10thenl=11:goto276
  230 ifs=5andl=11thenl=12:goto276
  235 ifs=6and(l=11orl=12)thenl=l-1:goto276
  240 ifs=6andd=-1thenl=e:goto276
  245 if(s=49andl<9)or(l=13andd<-1)then720
  250 m=l:ifl<>14then280
  252 ifs>7then780
  255 ifs<5thenprinto$(47)" blocked "o$(s):goto9
  260 ifs=7thenl=n:m=l:goto365
  265 if(s=5andn=23)or(s=6andn=9)thenn=16:goto275
  270 n=23:ifs=5thenn=9
  275 goto365
  276 m=l:goto365
  280 m=l:ifs>4then780
  285 ifp(l,s)>0thenl=p(l,s):m=l:goto365
  290 goto780
  300 ifs=45then365
  305 ifs=39andl=8then755
  310 ifl(4)=lands=11theno$(11)=o$(0)
  315 ifl(5)=lands=11theno$(12)=o$(0)
  320 ifs=50 andx<>0thengosub810
  325 ifs=20andl(13)=0then685
  330 ifs=33andl=9thenl(19)=l
  335 ifs=34andl=9then680
  340 if(s=10)and(l(3)=l)thenl(21)=l
  345 ifb$<>"po"then385
  350 if l(3)=lthenl(17)=l:l(18)=l:l(21)=50:goto385
  355 if(l(4)>0)and(l(4)<>l)and(l(5)<>l)and(l(5)>0)then9
  360 o$(22)="phillips screwdriver":l(15)=l:w=1:goto385
  365 j=0:print"you are--";:ifl>14thenprint"in a corridor":goto375
  370 printd$(l)
  375 ifl=9orl=23orl=16thenl(40)=l
  380 if(l>9andl<13)thenl(34)=l
  385 ifs=48then685
  390 print"you can see--":ifs=30andl=1then711
  395 if(m<>l)and(m<15)thenprintd$(m)
  405 ifs=31thenprint"stars and a very close planet!":goto9
  410 l(39)=50:fori=1to4:ifp(l,i)<0thenl(39)=l
  415 next:if(l>3andl<8)orl=23orl=10orl=22orl=8thenx=1
  420 fori=1to40
  425 if(l(i)=m)thenprinto$(i+7):j=1:ifxandi=38thenprint"with window"
  430 next:ifl<9thenprinto$(50):printo$(49):printo$(48):j=1
  435 m=l:ifj=0thenprint"nothing"
  440 print"obvious exits are-";:ifl=11thenprint"up!":print"down";
  450 if(l=13andd=0)orl=12thenprint"down"
  455 if(l=14)thenprint"out, up, down"
  460 fori=1to4:ifp(l,i)>0thenprint"*"o$(i);
  465 next:goto9
  475 ifs=45andl=3then525
  480 ifs=36andl=2theno$(36)=d$(0):l(3)=2:l(8)=2:goto9
  485 ifs=36andl=10theno$(44)=d$(0):l(5)=l:l(6)=l:goto9
  490 ifs=21andl=12then535
  495 ifb$<>"do"then690
  500 gosub705:ifi=5then9
  505 ifl=23orl=10then695
  510 ifl<>4andl<>5thenprint"it's jammed!":goto9
  515 ifl(17)=lthengosub715:goto9
  520 goto790
  525 if(l(17)=l)theno$(45)="open armory":l(1)=l:l(2)=l:goto9
  530 goto520
  535 input"with what";a$:iflen(a$)>1thena$=left$(a$,2):ifa$="ph"then820
  540 ifa$<>"sc"thenprint"won't work!":goto9
  545 ifl(15)=0andw=1theno$(27)="open hatch":l(22)=l:goto9
  550 ifl(15)=0thenprint"they're phillips screws!":goto9
  555 goto575
  560 if(s=17)and(l=12)and(l(22)=l)and(l(10)=0)thenl(22)=99:goto570
  565 ifs=17and(l(12)<>l)thenl(10)=50:l(22)=l:goto795
  566 ifs=11andl(5)=0thens=12
  570 ifs>7thenif(l(s-7)=0)thenl(s-7)=l:c=c-1:goto9
  575 print"don't have it":goto9
  585 ifl(1)<>0thenprint"with what":goto9
  590 ifs=21then820
  595 ifb$<>"do"thenprint"no effect!":goto9
  600 gosub705:ifi=5then9
  605 gosub715:n=l:l=p(l,i):gosub715:l=n
  606 ifl=10orl=23thenz=1
  610 ifl=4orl=5thenl(22)=l(10):l(10)=50:goto795
  611 goto9
  620 ifs<>11ands<>13then780
  622 fori=1to40:ifl(i)=0and(i<4ori>6)then785
  625 next:iff=8then655
  630 ifs=13andl(6)=0thenl(6)=-1:goto9
  640 ifl(4)=0andl(5)>0andnotl(6)thenl(4)=-1:o=p:goto9
  645 ifl(5)=0andl(4)>0andnotl(6)thenl(5)=-1:goto9
  650 goto780
  655 ifs=13andl(6)=-1thenl(6)=0:goto9
  665 ifl(4)=-1andnotl(6)andl(5)>0thenl(4)=0:p=o:o=0:goto9
  670 ifl(5)=-1andnotl(6)andl(4)>0thenl(5)=0:goto9
  675 goto780
  680 print"screen says-orbital decay continuing"
  685 print"contact with atmoshere in "u":"t"hours":goto9
  690 printz$:print"does not compute":goto9
  695 ifl(4)=-1orl(5)=-1then605
  700 print"area depressurized":print"spacesuit required":goto9
  705 fori=1to4:ifp(l,i)<0thenreturn
  710 next:print"what door?":return
  711 ifnotl(4)andnotl(5)thenprint"rerutnevda ydrah a
  712 ifl(4)<1orl(5)<1theni=0:gosub717
  713 fori=8to26:ifl(i-7)=1thengosub717
  714 next:fori=50to48step-1:gosub717:next:goto9
  715 forj=1to4:p(l,j)=abs(p(l,j)):next:return
  717 forj=len(o$(i))to1step-1:printmid$(o$(i),j,1);:nextj:print"  ";:return
  720 ifl(4)<1orl(5)<1orl(10)=0thenprint"can't fit now!":goto365
  725 l=13:m=l:d=rnd(5):e=rnd(8):goto365
  730 ifl(22)<99then820
  735 print"horray!! you saved the enterprise at "u":"t:end
  740 print"ship severly damaged from freak ion storm
  745 print"engines damaged":print"transporter out"
  750 print"abandoning ship in":print"shuttlecraft":goto9
  755 ifl(22)=99thenprint"engines ready":goto9
  760 printtab(7)"warning":print"extremely fragile":printo$(17)
  765 printd$(12):print"is cracked! starting
  770 print"engines will result in an anti-matter implosion":goto9
  780 print"can't do it!":goto9
  785 print"hands are full!":goto9
  790 print"authorized persons only - present id":goto9
  795 print"the valve is cracked!":goto9
  800 print"you are floating away in space":return
  805 print"you are in the vacuum of space!":return
  810 fori=1to40ifp(l,i)<0thenm=abs(p(l,i))
  815 return
  820 print"the engines imploded!":fori=0to1250:next:fori=1to8
  825 printtab(rnd(50))"boom":next:goto845
  830 gosub800:ifl(6)=0thenprint"carrying"o$(13)
  835 goto845
  840 gosub805:ifl(4)=0orl(5)=0thenprint"holding a "o$(11)
  845 printtab(11)"you're dead!":end
  850 print"the ship just crashed!"
  852 print"you'd be up for courtmarshal - if you were still alive." :goto845
  860 ifl=23orl=1thenp(23,3)=-10:p(10,4)=-23:z=0:goto9
  865 goto780
  900 dimo$(50),d$(14)
  920 fori=1to50:reado$(i):next:fori=1to14:readd$(i):next:diml(40)
  930 fori=1to40:readl(i):next:dimp(23,4):fori=1to23:forj=1to4
  940 readp(i,j):nextj,i:l(0)=1
  950 p=13:o$(0)="spacesuit with pockets":d$(0)="open locker":return
 1280 datanorth,south,east,west,up,down,out
 1290 dataphaser,klingat,uniforms,spacesuit,spacesuit
 1300 datamagnetic boots,flashlight,shoes,flux sensor
 1310 datamagnatomic valve
 1320 datasaurian brandy,pillow
 1330 datatricorder,hammer,ordinary screwdriver
 1340 dataspanner wrench,id badge,pencil,message tape
 1350 datahatch,pockets,cracked valve
 1360 datamirror,main viewscreen,impulse engines
 1370 datauhura's panel,spock's position,gym equipment
 1380 datalockers,detention cells,engine firing button,flashing readout
 1390 datacontrol panel,stars,dilithium crystals
 1400 dataopen shuttlebay doors
 1410 dataspacesuit locker,armory,closed door,turbolift
 1420 datacomputer terminal,venilator,viewport
 1430 datain a cabin,in a gym,in security,in engineering
 1435 datain parts storage,in a transporter room,in a storage locker
 1480 datain auxiliary control,on the wreckedbridge of the starship enterprise
 1485 datain the shuttlecraft bay,on the starboard engine pylon
 1510 dataon the starboard engine,in a ventilation duct,in the turbolift
 1530 data50,50,50,7,50,50,7,50,5,5,1,1,4,4,4,4,50,50,50,12,50,50
 1535 data1,9,4,9,9,2,2,3,8,8,6,10,4
 1610 data10,10,3,50,50
 1701 data,,21,
 1702 data-21,22,15,
 1703 data,18,,
 1704 data-5,,,19
 1705 data,-4,,
 1706 data17,,,-7
 1707 data,,-6,
 1708 data,,-22,
 1709 data,,,
 1710 data,,,-23
 1711 data,,,
 1712 data,,,
 1713 data13,13,13,13
 1714 data,,,
 1715 data20,17,-16,2
 1716 data18,19,,-15
 1717 data15,6,19,22
 1718 data 3,16,,20
 1719 data16,,4,17
 1720 data,15,18,21
 1721 data,-2,20,1
 1722 data2,,17,-8
 1723 data,,-10,
    1 rem"copyright commodore business machines inc 1978.  all rights reserved
    2 rem" off-the-wall.  #g1003
   10 px=1:dimpm%(9),n%(9),ps%(9)
   15 lk=0:print"{clr}{down}{down} {rvon}triff den ball und nicht die wand!
   20 print"{down}{down}spielanleitung gefaellig (j/n)? ";:gosub2011
   24 ifa$="j"thengosub900
   30 print"{down}spieldauer (1-9 minuten)? ";:gosub2021:tt=3600*x
   34 print"{down}anzahl der spieler (1-9)? ";:gosub2021:py=x
   36 print"{down}{rvon}druecken sie return nach jeden namen":gosub2100
   38 print:print:printtab(8)"{rvon}druecken sie return"
   40 geta$:ifa$<>chr$(13)then40
   42 ty=ti+tt:pl=pl+1:ifpl>pythenpl=1
   45 b$="{rvon}                                        ":v$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   50 s=10:pk=33268:d=1:rem  **  draw border *
   60 print"{clr}";b$;:fori=1to22:print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";
   70 next:printb$;
   72 print"{up}{rvon}spieler"pl" - "left$(pn$(pl),10)"  schw.grad ="n%(pl);
   79 fori=1ton%(pl)^1.33
   80 t=int(rnd(ti)*900+32768)
   85 if(peek(t)<>32)or((33247<t)and(t<33288))then80
   90 poket,42:next
  100 ifpeek(pe)=81thenpokepe,32
  120 pe=pk:geti$:ifi$<>""then500
  125 lk=peek(pk+d):iflk<>32then300
  130 pk=pk+d:pokepk,81:goto100
  300 iflk=78thenpk=pk+d:d=d-sgn(d)*41:goto721
  305 iflk=77thenpk=pk+d:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40):goto721
  310 d=-d:s=c:print"{home}{rvon}        "s"{left}    "tab(30)"{home}{rvon}"spc(30)int((ty-ti)/60)"{left} sec ";
  314 c=0:ifpeek(pk-d)=42thens=0:goto45
  316 ifti<tythen100
  318 ifti>=tythen800
  320 ifti>ty-30then"{home}"spc(30)"30 s warnung!":goto100
  500 ifti>tythen800
  502 ifi$="n"then600
  503 ifi$="m"then700
  510 goto125
  600 pokepk,78:d=d-sgn(d)*41:goto721
  700 pokepk,77:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40)
  721 c=c+10:print"{home}{rvon}";c;"{left}   ";:ifc<sthen100
  730 ifc=sthenlx=pk:ld=d:goto100
  740 if(lx=pk)and(ld=d)thens=0:c=0:lx=0:goto45
  742 goto100
  800 ps%(pl)=s:pm%(pl)=int((pm%(pl)*(px-1)+s)/px)
  810 print"{down}{down}wollen sie noch einmal spielen?  {CBM-+}"
  820 print"{clr}{down}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  822 print"{rght}{rght}{rght}{rvon}{SHIFT--} spieler   {SHIFT--}schw.{SHIFT--}punkte {SHIFT--}schnitt{SHIFT--}"
  826 print"{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  828 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  830 fori=1topy
  832 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof} "pn$(i)n%(i)" {SHIFT--} "ps%(i)tab(29)"{SHIFT--} "pm%(i)tab(37)"{rvon}{SHIFT--}"
  834 next
  836 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  838 print"{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
  840 printspc(10)"{rvon}das ist das"px"{left} te spiel"
  844 print"{home}";:forkk=1to4+pl:print"{down}";:next:print"{rght}{rght}{rght}{rght}*":forkk=pltopy:print"{down}";:next
  850 ifpl=pythengosub2300:fori=1topy:ps%(i)=0:next:px=px+1:goto38
  860 print"{down}{down}{down}{down}"spc(11)"{rvon}druecken sie return":goto40
  900 print"{clr}             {rvon}spielanleitung
  905 print"{down}{down}ziel des spieles ist es,den ball auf"
  910 print"soviele hindernisse wie moeglich prallen";
  920 print"zu lassen,bevor er die wand beruehrt. "
  930 print"{down}sie schaffen hindernisse,indem sie auf "
  935 print"die taste {rvon}n{rvof} oder {rvon}m{rvof} druecken
  960 print"{down}               {rvon}warnung!"
  970 print"{down}auf dem spielfeld stehen kakteen-wenn   ";
  980 print"der ball einen trifft,platzt er und"
  985 print"     {rvon}sie muessen von vorn anfangen!"
  990 print"{down}{down}die punktzahl wird in der linken oberen"
 1000 print"bildschirmecke angezeigt,die restliche "
 1010 print"spielzeit in sekunden erscheint in der"
 1020 print"rechten oberen bildschirmecke."
 1050 print"{down}{down}      {rvon}druecken sie irgendeine taste!"
 1060 getr$:ifr$=""then1060
 1070 print"{clr}":poke59468,12:return
 2011 fori=1to100:geta$:ifa$<>""then2015
 2013 next:print"{rvon} {left}";:fori=1to100:geta$:ifa$<>""then2015
 2014 next:print"{rvof} {left}";:goto2011
 2015 ifa$<>"j"anda$<>"n"then2011
 2016 printa$:return
 2021 fori=1to100:geta$:ifa$<>""then2025
 2023 next:print"{rvon} {left}";:fori=1to100:geta$:ifa$<>""then2025
 2024 next:print"{rvof} {left}";:goto2021
 2025 ifa$<"1"ora$>"9"then2021
 2026 print"{rvof}"a$:x=val(a$):return
 2100 print"{down}":fork=1topy:print"name des spielers"k"? {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 2102 gosub2200
 2110 print:print"schwierigkeitsgrad spieler"k"(1-9)? ";:gosub2021:n%(k)=x
 2120 next:return
 2200 b$=""
 2210 forj=1to50:geta$:ifa$<>""then2220
 2212 next:print"{rvon}{CBM-@}{left}";:forj=1to50:geta$:ifa$<>""then2220
 2214 next:print"{rvof}{CBM-@}{left}";:goto2210
 2220 a=asc(a$):ifa=13thenprint"{rvof}{CBM-@}";:goto2250
 2222 ifa=20andlen(b$)>1thenb$=left$(b$,len(b$)-1):print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto2210
 2224 ifa=20andlen(b$)=1thenb$="":print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto2210
 2226 ifa=32or(64<aanda<98)thenprint"{rvof}"a$;:b$=b$+a$:iflen(b$)>9then2250
 2228 goto2210
 2250 b$=b$+"          ":pn$(k)=left$(b$,10)+"{SHIFT--} ":return
 2300 print"{down}{down}{down}{down}"spc(2)"{rvon}schwierigkeitsgrad veraendern (j/n)?{rvof} ";:gosub2011
 2310 ifa$="n"thenreturn
 2320 print"{clr}{down}{down}{down}fuer welchen spieler soll der schwierig-
 2321 print"keitsgrad veraendert werden (1 -"py"{left})?";
 2325 gosub2021:xx=x:ifx>pythen2320
 2328 a$=pn$(xx):aa=10
 2330 ifmid$(a$,aa,1)=" "andaa>1thenaa=aa-1:goto2330
 2332 a$=left$(a$,aa)+"'s ":print"{down}{down}"a$"schwierigkeitsgrad"n%(xx)
 2334 printspc(len(a$))"durchschnitt "pm%(xx)
 2336 printspc(len(a$))"punkte im letzten spiel"ps%(xx)
 2340 print"{down}neuer schwierigkeitsgrad (1-9)? ";:gosub2021:n%(xx)=x
 2350 print:print"{down}weitere aenderungen (j/n)? ";:gosub2011:ifa$="j"then2320
 2360 return
 63999 end:rem"end of off-the-wall property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    5 dim in$(20)
   10 print"{clr}":a$(1)="voyage to atlantis":a$(2)="by":a$(3)="greg hassett"
   11 a$(4)="{down}converted to pet by john o'hare"
   12 fori=1to4:printtab(20-(len(a$(i))/2));a$(i):next
   13 nw$="there is no writing there."
   14 co$="the clam flies open and something falls out, but it snaps shut again!!!"
   15 lm$="i know not how to load such a thing."
   16 sh$="and eats me up!!!  {rvon}i'm dead.{rvof}"
   19 sc$="the spear then turns to platinum!!!":ps$=">>>platinum spear<<<"
   20 m0$="i don't see it here.":m1$="i'm not holding it.":m2$=" won't let me."
   21 m3$="don't be ridiculous.":m5$="don't be funny.":m6$="okay."
   22 d1$="i don't know what "+chr$(34):d2$=chr$(34)+" is."
   23 do$="please supply a direct object."
   24 na$="{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}help! no air!!! croak.{rvof}"
   25 sv$="the spear vanished in midwater!"
   26 oh$="the spear plunges into the octopus'     heart and then vanishes along"
   27 oh$=oh$+" with the  octopus!!!!"
   28 mh$="the spear hits the minotaur,            and he vanishes!!!":goto1720
   29 gosub170
   30 gosub70:ifno<9andno<>0and(vb=0orvb=1orvb=27)thenvb=1
   40 if(vb-15)*(vb-16)*(vb-5)*(vb-6)*(len(n1$)>0)*(no=0)thenprintd1$;n1$;d2$:goto30
   50 ifn1$=""and(vb>8orvb=2)andvb<>22andvb<>15andvb<>30thenprintdo$:goto30
   60 goto350
   70 t=t+1:input"---> what should i do  {$a0}{left}{left}{left}";cm$
   75 ifcm$="{$a0}"thenprint"{up}{up}":goto70
   80 vb$="":no$="":vb=0:no=0
   90 lc=len(cm$):fori=1tolc:a$=mid$(cm$,i,1):ifa$<>" "thenvb$=vb$+a$:nexti
  100 iflen(vb$)+1>len(cm$)thenno=0:goto120
  110 no$=right$(cm$,lc-i)
  120 n1$=no$:v1$=vb$:vb$=left$(vb$,3):no$=left$(no$,3)
  121 fori=1tonv:ifvb$=vb$(i)thenvb=i:goto150
  122 nexti:vb=0
  130 ifn1$=""thenno$=vb$
  140 vb=0:goto160
  150 ifvb$=cm$thenno=0:no$="":return
  160 fori=1tonn:ifno$=no$(i)thenno=i:return
  161 nexti:no=0:no$="":return
  170 print"{clr}":ii=0:ifleft$(p$(cp),1)="*"thenp$=right$(p$(cp),len(p$(cp))-1):ii=1
  180 ifcp=29thenf1=1:goto190
  182 ifcp=31thenf2=1
  190 ifcp=51thenf4=1:goto200
  195 ifcp=6thenf3=1
  197 ifii=1then210
  200 p$="i'm in "+p$(cp)
  210 ifcp-1andob(31,0)<>-1thenprint"{clr}";na$:fori=1to1000:nexti:goto1480
  220 printp$".":k=0:fori=1tolo:ifob(i,0)<>cpthen260
  230 ifk=0thenprint"{down}visible items: ";
  240 if3+pos(0)+len(ob$(i))>39thenprint
  250 printob$(i)".  ";:k=k+1
  260 nexti:ifk>0thenprint
  270 ifcp=31thenprint"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":return
  280 k=0:print"{down}obvious exits are: ";:fori=0to3:ifp(cp,i)=0then310
  285 if2+pos(0)+len(d$(i))>39thenprint:printtab(19);:goto300
  290 ifk>0thenprint", ";
  300 printd$(i);:k=k+1
  310 nexti:print".":ifzz<2orcp<>5then340
  320 fori=1tolo:ifob(i,0)=-1andi<>31thenob(i,0)=29
  330 nexti:print"the whirlpool sucked all                my belongings down!!!":zz=1
  340 print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}":return
  350 ifvb=0then360
  353 onvbgoto370,440,29,560,600,660,710,730,740,800,810,930,940,1040,1050,1070
  355 onvb-16goto1480,1080,1120,1190,1210,2200,1270,1310,1350,440,370,1380,1410,1440
  360 print"i never learned how to ";chr$(34);v1$;chr$(34);" something":goto30
  370 ifno=0thenprint"i need a direction.":goto30
  380 ifno>8then1270
  390 ifno>4thenno=no-4
  400 no=no-1:ifp(cp,no)=0thenprint"there is no way to go in that direction.":goto30
  410 ifcp=30andgf=0thenprint"the gate is locked.":goto30
  420 ifcp=25andno=0andgf=0thenprint"there's a gate that bars my way.":print"it's locked.":goto30
  430 rem print"okay, i went"d$(no)".":cp=p(cp,no):goto29
  431 cp=p(cp,no):goto29
  440 ifcp<>ob(no,0)thenprintm0$:goto30
  450 ifno=10orno=13orno=14orno=16orno=18orno=22orno=36orno=42thenprintm5$:goto30
  460 ifno=27orno=29thenprint"it's too heavy.":goto30
  470 ifno=17andob(16,0)=cpthenprint"manta";m2$:goto30
  480 ifno=19andob(18,0)=cpthenprint"squid";m2$:goto30
  490 ifno=35andob(36,0)=cpthenprint"octopus";m2$:goto30
  500 ifob(10,0)=cpthenprint"eel";m2$:goto30
  510 ifno=44andob(42,0)=cpthenprint"minotaur";m2$:goto30
  520 ifno=32thenprint"it is beyond my reach.":goto30
  530 ifzz+1>7thenprint"i'm carrying too much.":goto30
  540 ifob(no,1)>0andcp=1thents=ts-1
  550 zz=zz+1:ob(no,0)=-1:printm6$:goto30
  560 ifzz=0thenprint"i'm not carrying anything.":goto30
  565 print"currently i'm carrying: ";:fori=1tolo:ifob(i,0)<>-1then590
  570 if3+pos(0)+len(ob$(i))>39thenprint
  580 printob$(i)",  ";
  590 nexti:print:goto30
  600 rem
  610 print"{clr}":print"saving..."
  620 a$="":open1,1,1:fori=1tolo:print#1,ob(i,0):nexti
  630 print#1,cp:print#1,gf:print#1,zz:print#1,f1:print#1,f2:print#1,f3:print#1,f4:print#1,t:print#1,ob(34,1)
  635 print#1,ob(37,1):print#1,no$(22):print#1,ob$(34):print#1,ob$(37)
  640 rem
  650 goto 30
  660 rem
  670 print"{clr}":print"restoring.....":fori=1tolo:input#1,ob(i,0):nexti
  680 input#1,cp,gf,zz,f1,f2,f3,f4,t,ob(34,1),ob(37,1),no$(22),ob$(34),ob$(37)
  690 rem
  700 goto 30
  710 sc=0:fori=1tolo:ifob(i,0)=1thensc=sc+ob(i,1)
  720 nexti:print"you have"sc"points out of a maximum of"
  721 print"170. plus, you can get a bonus up to 30 points when you quit, making";
  722 print" the actual":print"maximum 200.":goto30
  730 input"do you really want to quit now";x$:ifleft$(x$,1)="y"then1480
  735 print"i didn't think so.":goto30
  740 ifob(no,0)<>-1thenprintm1$:goto30
  750 ifno<>34thenprint"sorry, i can only throw the spear.":goto30
  760 ifob(9,0)<>-1or(ob(36,0)-cpandcp-ob(42,0))thenprintsv$:zz=zz-1:ob(34,0)=0:goto30
  770 ifcp-4then790
  780 printoh$:ob(36,0)=0:ob(34,0)=51:zz=zz-1:goto30
  790 printmh$:ob(42,0)=0:printsc$:ob$(34)=ps$:ob(34,1)=11:ob(34,0)=cp:zz=zz-1:goto30
  800 print"you'll have to be more specific.":goto30
  810 ifob(no,0)<>-1andob(no,0)<>cpthenprintm0$:goto30
  820 if(no-43)*(no-11)*(no-12)*(no-17)*(no-21)*(no-28)*(no-32)*(no-38)thenprintnw$:goto30
  830 print"it says:"
  840 ifno=11thenprint"what is thought to be, isn't what       you see! nori"
  850 ifno=12thenprint"captain ahab was here."
  860 ifno=17thenprintr1$:printr2$:print"scrape iron. nori"
  870 ifno=21thenprint"lee said pow and died."
  880 ifno=28thenprint"use crust toothpaste for sharper teeth. (snap!)"
  885 ifno=28thenprint"squids hate loud noises (w o p t o n)"
  890 ifno=32thenprint"bring >>>treasures<<< here & drop them. say score."
  900 ifno=43thenprint"beware the fierce minotaur! minos was   an evil king!!"
  910 ifno=38thenprint"put shot in gun."
  920 goto30
  930 print"use compass points, please.":goto30
  940 if(no-40)*(no-35)*(no-14)thenprint"i don't know how to open such a thing.":goto30
  950 ifno=40thenprint"try unlock gate.":goto30
  960 ifno<>35then1010
  970 ifob(26,0)<>-1thenprint"you don't have the necessary resources.":goto30
  980 ifob(36,0)=cpthenprint"octopus"m2$:goto30
  990 ifob(38,0)<>0thenprint"ok. it's empty.":goto30
 1000 print"ok. two things fall out!":ob(38,0)=cp:ob(39,0)=cp:goto30
 1010 ifob(33,0)<>-1thenprint"you don't have the right tools!":goto30
 1020 ifob(37,0)<>0thenprint"the clam opens and shuts. it's empty.":goto30
 1030 printco$:ob(37,0)=cp:goto30
 1040 print"i'm not the destructive type myself...":goto30
 1050 ifob(18,0)<>cpthenprint"nothing happened.":goto30
 1060 print"the squid was so startled he ran away!!!":ob(18,0)=0:goto30
 1070 print"okay..."n1$:goto30
 1080 ifno<>29thenprintlm$:print"say restore to  start up a saved game.":goto30
 1090 ifcp<>12thenprintm0$:goto30
 1100 ifob(20,0)<>-1thenprint"i have nothing to load it with!!":goto30
 1110 print"ok.":ob(20,0)=-2:zz=zz-1:goto30
 1120 if(no-10)*(no-14)*(no-16)*(no-18)*(no-22)*(no-23)*(no-36)thenprintm3$:goto30
 1130 if(no-22)*(no-16)thenprint"it's not hungry.":goto30
 1140 ifno=16then1170
 1150 ifob(30,0)<>-1thenprint"i have no food!!!":goto30
 1160 print"the paranahs gulp down the cup and......";
 1162 print"much to their suprise...their teeth fall";
 1165 print"out!!! they are now rendered helpless."
 1167 ob(22,0)=0:ob(23,0)=cp:no$(22)="'":ob(30,0)=0:zz=zz-1:ob(24,0)=cp:goto30
 1170 ifob(23,0)<>-1thenprint"he likes the  idea...";sh$:fori=1to1500:nexti:goto1480
 1180 print"the manta swallows up the paranhas and  swims away."
 1185 zz=zz-1:ob(16,0)=0:ob(23,0)=0:goto30
 1190 ifob(25,0)<>-1thenprint"i have no scissors.":goto30
 1200 print"the scissors are too dull to cut anything.":goto30
 1210 if(no-40)*(no-35)thenprint"how?":goto30
 1220 ifno=35thenprint"try open.":goto30
 1230 if(cp-25)*(cp-30)thenprintm0$:goto30
 1240 ifgf=1thenprint"it is already open!!!":goto30
 1250 ifob(26,0)<>-1thenprint"you don't have the key.":goto30
 1260 printm6$:gf=1:goto30
 1270 ifno<>27thenprint"how?":goto30
 1280 ifcp<>9andcp<>31thenprintm0$:goto30
 1290 ifcp=9thencp=31:goto1300
 1295 cp=9
 1300 goto29
 1310 ifno<>29thenprint"how?":goto30
 1320 ifcp<>12thenprintm0$:goto30
 1330 ifob(20,0)<>-2thenprint"it's not loaded.":goto30
 1340 printm6$;"..pow!!!!":ob(20,0)=29:ob(10,0)=0:goto30
 1350 ifno<>30thenprint"come now...be serious.":goto30
 1360 ifob(30,0)<>-1thenprintm1$:goto30
 1370 print"smak! good!":zz=zz-1:ob(30,0)=0:goto30
 1380 ifob(no,0)<>-1thenprintm1$:goto30
 1390 zz=zz-1:printm6$:ob(no,0)=cp:ifcp=1andob(no,1)>0thents=ts+1
 1400 goto30
 1410 ifob(no,0)<>-1andob(no,0)<>cpthenprintm0$:goto30
 1420 ifno<>37thenprintm6$" nothing happened.":goto30
 1430 print"wait a minute...this statuette isn't"
 1432 print"iron...it's gold!!":ob$(37)=">>>a gold statuette<<<":ob(37,1)=16:goto30
 1440 ifcp<>31thenprint"gee! fun!":goto30
 1450 x=int(rnd(1)*4)+1:ifx=2then1470
 1460 cp=9:goto29
 1470 print"whoooooooa...thud. i'm dead.":fori=1to1000:nexti:goto1480
 1480 print"{clr}":gosub1670:fori=1tolo:ifabs(ob(i,0))=1thenfs=fs+ob(i,1)
 1490 nexti:ift<500thenfs=fs+5
 1500 ift<400thenfs=fs+5
 1510 ift<310thenfs=fs+10
 1515 iffs>200thenfs=200
 1520 print"you scored"fs"points out of 200."
 1525 iffs=0thenprint"you are a pee wee class adventurer (the lowest rank)":goto1610
 1530 iffs<30thenprint"are you vegetable or mineral? rank 8":goto1610
 1540 iffs<50thenprint"not too good, pal! rank 7":goto1610
 1550 iffs<90thenprint"you have had a taste of adventure.      ---rank 6":goto1610
 1560 iffs<110thenprint"you are a master adventurer class c     ---rank 5":goto1610
 1570 iffs<150thenprint"you are a master adventurer class b     ---rank 4":goto1610
 1580 iffs<170thenprint"you are a master adventurer class a     ---rank 3":goto1610
 1590 iffs<190thenprint"wowee! you are great! you'll soon be an"
 1595 iffs<190thenprint"adventurer grandmaster! one rank away...---rank 2":goto1610
 1600 iffs<201thenprint"tum tum-tum tum...tum te tum te dum de"
 1605 iffs<201thenprint"tum...a real adventurer grandmaster..."
 1607 iffs<201thenprint"boy oh boy! can i shake your hand???"
 1608 iffs<201thenprint"you should:":printr1$:printr2$
 1610 print:print:print"play again (y/n)"
 1620 geta$:ifa$="y"ora$="n"then1640
 1630 goto1620
 1640 ifa$="y"thenrun
 1650 printr1$:printr2$:end
 1660 print"{clr}":end
 1670 iff1thenfs=fs+2
 1680 iff2thenfs=fs+2
 1690 iff3thenfs=fs+2
 1700 iff4thenfs=fs+4
 1710 return
 1720 cp=1:np=51:lo=44:nn=44:nv=30:dimp$(np),p(np,3),ob(lo,1),ob$(lo),no$(nn)
 1725 dim vb$(nv):fori=1to31:forj=0to3:readp(i,j):nextj:nexti
 1730 a$="new improved version !!":print:printtab(21-(len(a$)/2));:fori=1tolen(a$)
 1735 printmid$(a$,i,1);:x=sqr(9999):nexti
 1740 p$(1)="my submarine docked in the city  of atlantis"
 1742 p$(2)="a corridor filled with water"
 1744 p$(3)="an alcove"
 1746 p$(4)="a coral reef"
 1748 data 0,0,2,0,8,0,3,1,9,0,4,2,10,0,5,3
 1750 p$(5)="a whirlpool"
 1752 p$(6)="the hall of spirits (more        commonly called a graveyard)"
 1754 p$(7)="*dead end"
 1756 p$(8)="a dining room"
 1758 data 11,0,0,4,13,0,7,0,0,8,0,0,7,2,9,0
 1760 p$(9)="*i'm on the street"
 1762 p$(10)="*i'm at the end of the street"
 1764 p$(11)="a dark cave"
 1766 p$(12)="the fortress of atlantis"
 1768 data 15,3,10,8,0,4,11,9,0,5,12,10,0,0,0,11
 1770 p$(13)="captain ahab's quarters"
 1772 p$(14)="a barren chamber"
 1774 p$(15)="a barber shop"
 1776 p$(16)="an olympic field"
 1778 data 16,6,0,0,17,0,15,0,0,9,0,14,22,13,17,0
 1780 p$(17)="a supply room"
 1782 p$(18)="the squid's chamber"
 1784 p$(19)="the drawing room"
 1786 p$(20)="the royal colliseum"
 1788 data 23,14,18,16,24,0,19,17,25,0,20,18,0,0,21,19
 1790 p$(21)="a temple"
 1792 p$(22)="a hallway"
 1794 p$(23)="an old library"
 1796 p$(24)="the clam room. the walls are madeof clamshell"
 1798 data 26,0,0,20,27,16,0,0,0,17,24,0,29,18,0,23
 1800 p$(25)="a rail station (so >this< is how they got around!)"
 1802 p$(26)=p$(24)
 1804 p$(24)="the town hall"
 1806 p$(27)="the kitchen"
 1808 p$(28)="the dining hall"
 1809 data 30,19,0,0,0,21,0,0,0,22,28,0,0,0,0,27
 1810 p$(29)="the electric eel's room"
 1812 p$(30)="the jail. there is a gate to the south"
 1814 p$(31)="at the top of a post. looking    down i see only the street. the"
 1815 p$(31)=p$(31)+" water istoo misty to see far away"
 1816 data 0,0,30,0,0,25,0,0,0,0,0,0
 1818 rem
 1820 data n,s,e,w,nor,sou,eas,wes,thr,eel,boo,pap,tra,cla,med,man,pla,squ,coi
 1822 data sho,jou,par,par,tee,sci,key,pos,new,can,cup,tan,sig,pic,spe,che,oct
 1824 data sta,not,pea,gat,go,get,loo,inv,sav,res,sco,qui,thr,kil,rea,ent,ope
 1826 data hit,yel,say,[,loa,fee,cut,unl,hel,cli,fir,eat
 1828 rem
 1830 fori=1to40:readno$(i):nexti:fori=1tonv:readvb$(i):nexti:data tak,swi,dro
 1832 data scr,jum
 1834 rem
 1836 rem
 1838 rem
 1840 dataa spear thrower,an electric eel,a small book,a paper with writing on it
 1842 data a,a giant clam,>>>a jade medalian<<<,a black manta
 1844 data>>>a platinum plaque<<<,a giant squid,>>>many coins<<<,an iron shotput
 1846 data captain ahab's journal
 1848 rem
 1850 data some fierce paranhas,some helpless parahnas
 1852 data >>>some valuable paranah teeth<<<,>>>a pair of gold scissors<<<
 1854 data >>>a silver key<<<,a tall post,an old newspaper,an old cannon
 1856 data a peanut butter cup,an air tank,a sign,>>>a platinum pick<<<
 1858 data a steel spear
 1860 data a treasure chest,a fierce octopus,an iron statuette,a note
 1862 data >>>a glistening pearl<<<
 1864 data 27,0,29,0,23,0,24,0,0,0,26,0,20,10,19,0,19,15,18,00,18,20,16,0,13,0
 1866 data 14,0,0,0,0,15,15,5,8,5,9,0,11,0,12,0,1,0,1,0,1,0,3,7,3,0,4,0,4
 1868 data 0,0,0,0,0,00,12
 1870 fori=9to39:readob$(i):nexti:fori=9to39:readob(i,0),ob(i,1):nexti
 1872 rem
 1874 rem
 1876 rem
 1878 rem
 1880 d$(0)="north":d$(1)="south":d$(2)="east":d$(3)="west"
 1890 rem
 1900 p$(32)="the pillars of hercules"
 1902 p(26,0)=32:data 0,26,0,33
 1904 :
 1906 :
 1908 :
 1910 p$(33)="prometheus' chamber in olympia"
 1912 p$(34)="a strange room with walls that   seem to come alive as i move about"
 1914 p$(35)="*i'm on the edge of a cliff. the water   below me is too misty to"
 1916 p$(35)=p$(35)+" see far down.  there might be life down there..."
 1918 :
 1920 p$(36)="a deep, dark, corrodor. i can seeno ceiling from here, only murky"
 1922 p$(36)=p$(36)+" water. the water seems to be moving east of me."
 1924 data 0,34,32,0,33,36,37,35,0,0,34,0,34,0,5,0
 1926 :
 1928 :
 1930 p$(37)="the hall of mirrors.             all directions look the same"
 1932 p$(38)=p$(37):p$(39)=p$(37)
 1934 p$(40)="an awkward corrodor"
 1936 data 37,38,39,34,37,38,38,38,40,39,39,37,42,39,0,0
 1938 :
 1940 fori=41to50:p$(i)="a labyrinth of passages obviouslydesigned by king min"
 1942 p$(i)=p$(i)+"os.  it is rumour   that the minotaur is near...":nexti
 1944 data 43,41,42,41,44,40,42,41,47,41,43,43,48,42,45,44,49,45,45,44,50,51,0,0
 1946 data 47,43,48,47,48,44,48,47,0,45,50,0,0,46,0,49
 1948 :
 1950 p$(51)="*dead end":data 46,0,0,0
 1960 fori=32tonp:forj=0to3:readp(i,j):nextj:nexti
 1970 fori=41tonn:readno$(i),ob$(i),ob(i,0),ob(i,1):nexti
 1980 data app,>>>a golden apple<<<,33,10,min,a fierce minotaur,51,0
 1982 data scr,an ancient scroll,40,0,fle,>>>a golden fleece<<<,51,44
 1990 r1$="try some other adventures by greg       hassett! they are:"+chr$(13)
 1992 r1$=r1$+"-journey to the center of the earth"+chr$(13)+"-the house of seven"
 1994 r1$=r1$+" gables"+chr$(13)+"-entry into king tut's tomb"+chr$(13)+"-sorc"
 1996 r1$=r1$+"erer's castle"+chr$(13)+"-enchanted island"
 1997 r2$="the above available for trs-80 & apple."+chr$(13)
 1998 r2$=r2$+"also available for pet from john o'hare."
 2000 fori=1to17:readin$(i):next
 2010 gosub2020:goto29
 2020 print"{clr}";
 2030 data ***adventure version 6.5***,copyright (c) 1980,-by greg hassett-
 2035 data "p.o. box 914, no. chelmsford, ma, 01863"
 2040 data,,welcome to the wonderful world,of,adventure
 2042 data "{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} ","{up}RRRRRRRRR","{up}FFFFFFFFF","{up}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}","{up}CCCCCCCCC"
 2043 data "{up}DDDDDDDDD","{up}EEEEEEEEE","{up}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
 2045 fori=1to17:printtab(20-(len(in$(i))/2));in$(i)
 2046 ifi>9thenford=1to125:nextd
 2047 nexti
 2050 print:print:print:print:print:print:print
 2060 print"         {rvon}hit return to continue{rvof}"
 2065 geta$:ifa$<>chr$(13)then2065
 2067 print"{clr}"
 2070 q$=chr$(34)
 2075 print"in this "q$"adventure"q$" you are to"
 2080 print"explore the lost city of atlantis in"
 2085 print"search of treasures. i will be your eyes";
 2090 print"and hands during the adventure. direct"
 2095 print"me with ordinary english sentences of"
 2100 print"one or two words. some examples:"
 2105 printq$"get tank"q$" , "q$"inventory"q$" , "q$"kill manta"q$
 2130 print
 2140 print"use any noun/verb combination you can"
 2145 print"think of, because in this game, "
 2150 print"*anything* goes! if this adventure is"
 2155 print"taking a long time to solve, don't"
 2160 print"fret. it was designed to do so. to save"
 2165 print"a game, type "q$"save"q$", to restore a"
 2170 print"game, type "q$"restore"q$"."
 2175 print
 2180 print"press the space bar to begin..."
 2190 geta$:ifa$<>" "then2190
 2195 return
 2200 print"i can only repeat the instructions."
 2205 print"would you like that";:input"  y{left}{left}{left}";qq$
 2210 ifleft$(qq$,1)="n"thenprint"okay.":goto30
 2222 gosub2020:goto29
   10 print"{clr}":forj=826to858:readad:pokej,ad:next
   20 gosub1000
  120 b=28*256:b1=132*256:ti$="000000"
  200 fori=0to23:poke4128+i,256*rnd(1):next
  210 sys3744
  360 forx=0to24:pokeb+x*40+39,32:pokeb+x*40+38,160:next
  370 e=2*int(rnd(1)*12)+1:ex=b+38+40*e:p=b+(24-e)*40+1:pokeex,32
  380 sys4051:poke842,000:sys826:poke842,128
  390 gp=33249:ifpeek(gp)=160thengp=33209
  395 pokegp,81:gd(1)=40:gd(2)=-1:gd(3)=1:gd(4)=-40
  400 fora=32807to33767step40:pokea,102:next
  420 rem***game***
  430 lp=int(38*rnd(1)+2):sl=32768+(lp-1):el=sl+(40*24)
  435 fork=1to2
  440 forl=sltoelstep40:ifpeek(l)=81thenep=l:goto2000
  450 pokel,(peek(l)+128)and255:gosub600:next:next
  455 goto430
  600 geta$:m=val(a$):ifm=0thenreturn
  605 pokegp,32
  610 gp=gp+gd(m/2):ifpeek(gp)=102then2500
  615 ifpeek(gp)<>32thenep=gp:goto2000
  620 pokegp,81
  630 return
  700 data169,128,141,72,3,141,77
  710 data3,160,4,162,0,189,0
  720 data128,73,128,157,0,128,232
  730 data208,245,238,72,3,238,77
  740 data3,136,208,234,96
 1000 poke842,108:sys826
 1010 print"{home}{down}{down}";:x$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 1020 printx$"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P
 1025 printx$"{CBM-G}                    {CBM-M}
 1030 printx$"{CBM-G}                    {CBM-M}
 1035 printx$"{CBM-G}                    {CBM-M}
 1040 printx$"{CBM-G}                    {CBM-M}
 1045 printx$"{CBM-G} O{CBM-T}{CBM-T}P O{CBM-T}M N{CBM-T}{CBM-T}M{CBM-M}M {CBM-M}P {CBM-M}
 1050 printx$"{CBM-G} {CBM-T}{CBM-G}{CBM-M}{CBM-T} {CBM-T}{CBM-T}M{CBM-G}{CBM-G}OP{CBM-M}{CBM-M} M{CBM-M}{CBM-M} {CBM-M}
 1055 printx$"{CBM-G}  {rvon}  {rvof} {rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rvof}  {rvon} {rvof}L{SHIFT-@}{rvon} {rvof}{CBM-M}{rvon} {rvof}{CBM-T}{CBM-*}{rvon} {rvof} {CBM-M}
 1060 printx$"{CBM-G}  {rvon}  {rvof} {rvon} {rvof} {CBM-*}{rvon}{CBM-*}{rvof} {CBM-*}{rvon}  {rvof}{SHIFT-POUND}{CBM-M}{rvon} {rvof}  {CBM-*} {CBM-M}
 1065 printx$"{CBM-G}                    {CBM-M}
 1070 printx$"{CBM-G}                    {CBM-M}
 1075 printx$"{CBM-G}   {SHIFT-POUND}{CBM-@}       {CBM-@}   {CBM-@}N {CBM-@}{CBM-M}
 1080 printx$"{CBM-G} MN{rvon}{SHIFT-POUND}{rvof}N{rvon}{SHIFT-POUND}{rvof}N{rvon}{SHIFT-POUND}{rvof}{CBM-Y}N{SHIFT-POUND}N{SHIFT-*}{rvon}{SHIFT-POUND}{rvof}N N{CBM-T}{rvon}{SHIFT-POUND}{rvof}N{CBM-M}
 1085 printx$"{CBM-G}           {CBM-T}{CBM-@}N      {CBM-M}
 1090 printx$"{CBM-G}                    {CBM-M}
 1091 printx$"{CBM-G} {CBM-@}N N {CBM-@}  {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{SHIFT-POUND}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{SHIFT-POUND}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{SHIFT-POUND} {CBM-M}
 1092 printx$"{CBM-G} N{CBM-T}N{SHIFT-POUND}N{SHIFT-*} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}NN{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND} {rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-T}  {CBM-M}
 1093 printx$"{CBM-G}     {CBM-T}      {CBM-T}{CBM-T}      {CBM-M}
 1094 printx$"L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}
 1095 print"{down}{down}{rght}{rght}{rght}{rght}{rvon}2,4,6,8 move. any key to play{rvof}":poke158,0
 1096 geta$:ifa$=""then1096
 1097 print"{clr}":return
 2000 pokeep,160:pokeep-40,255:pokeep-1,126:pokeep+40,127:pokeep+1,124
 2010 fortm=1to20:next
 2020 pokeep,32:pokeep-40,32:pokeep-1,32:pokeep+1,32:pokeep+40,32
 2030 sys826:fortm=1to20:next
 2040 sys826:fortm=1to1000:next:goto120
 2320 fortm=1to1000:next:goto120
 2500 print"{home}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}you won!{rvof}"
 2510 fora=1to8:sys826:fortm=1to500:next:next
   95 rempoke124,160:poke125,12
  100 ifpeek(49152)<>64thenpoke135,28:run110
  110 forx=0to3:reada(x):next:data62,22,60,30
  120 b=28*256:b1=132*256:ti$="000000"
  130 lk=515:ifpeek(49152)=64thenlk=151
  140 forx=0to3:readb(x),in(x):next:data1,1,2,40,4,-1,8,-40:p=b1+61
  150 ifpeek(b)=160thenprint"same maze?":forx=1to9e9:getg$:ifg$=""thennextx
  160 ifg$<>"y"then190
  170 sys4912:goto360
  190 print"{clr}tunnel vision and kat and mouse":print"copyright (c) 1978 michael riley
  200 fori=0to23:poke4128+i,256*rnd(1):next
  210 sys3744
  360 forx=0to24:pokeb+x*40+39,32:pokeb+x*40+38,160:next
  370 e=2*int(rnd(1)*12)+1:ex=b+38+40*e:p=b+(24-e)*40+1:d=0:pokeex,32
  380 print"{rvon}t{rvof}unnel vision or {rvon}k{rvof}at and mouse?":forx=1to9e9:geti$:ifi$="k"then860
  390 ifi$<>"t"thennextx
  400 gosub960:goto460
  440 getg$:ifg$=" "andpeek(p+in(d))<>160thenpokep,46:p=p+in(d)
  445 ifg$="i"thengosub960
  450 ifg$=""then440
  460 d=(d-(g$=">")+(g$="<")+4)and3:pokep,a(d):print"{clr}
  470 ifg$="m"thensys4864:goto440
  480 ifp<>exandg$<>"q"then560
  500 sys4051
  510 ifp=exthenprint"{home}{rvon}it took you";int(ti/60);"{left} seconds to escape
  520 forx=1to10:getg$:nextx:forx=ito9e9:getg$:ifg$=""thennextx
  530 run
  560 ifgthensys4864
  570 poke4166,d:a=int(p/256):x=p-256*a:poke4169,x:poke4170,a
  575 poke4171,244:poke4172,133
  590 sys4832:goto440
  860 sys4051
  865 pm=p+b1-b:dm=0:pk=ex+b1-b:dk=2:pokepm,13
  870 ifpeek(pk+in(dk))=160thendk=(dk+1)and3:goto870
  880 ifpm-b1=ex-bthenforx=1to1000:nextx:run
  890 pokepk,32:pk=pk+in(dk):ifpk=pmthengosub1170:run
  900 pokepk,11:dk=(dk+3)and3
  910 getg$:ifg$<>""thendm=-(g$="2")-2*(g$="4")-3*(g$="8"):goto940
  920 k=peek(lk):ifk<>255thendm=-(k=18)-2*(k=42)-3*(k=50):goto940
  930 goto870
  940 ifpeek(pm+in(dm))=32thenpokepm,32:pm=pm+in(dm):pokepm,13
  950 goto870
  960 print"{clr}":print"to escape the maze, use these keys:"
  970 print"{rvon}space{rvof} to move forward one space"
  980 print"{rvon}<{rvof} and {rvon}>{rvof} to turn left or right without    moving"
 1000 print"{rvon}m{rvof} to draw a map of where you have been"
 1010 print"{rvon}q{rvof} to quit - shows the entire maze
 1020 print"{rvon}i{rvof} for instructions{down}
 1030 print"if you see a blank
 1040 print"screen, it means you are facing a wall.
 1050 print"try turning
 1070 print"M     N  M     N  M     N   M     N
 1080 print" M   N    M   N    M   N     M   N
 1090 print"  M N      M{CBM-@}N     {CBM-M}{CBM-@} N      {CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-G}
 1100 print"   V       {CBM-M} {CBM-G}     {CBM-M}{CBM-M}V       {CBM-M}   {CBM-G}
 1110 print"  N M      N{CBM-T}M     {CBM-M}{CBM-T} M      {CBM-M}{CBM-T}{CBM-T}{CBM-T}{CBM-G}
 1120 print" N   M    N{$a0}{$a0}{$a0}M    N   M     N   M
 1130 print"N     M  N     M  N     M   N     M
 1140 print"tunnel    dead    branch      't'
 1150 print"ahead     end     left      branch
 1155 input"{down}automatic display of maze location";g$:g="y"=left$(g$,1)
 1160 return
 1170 forx=1to10:fory=1to30:pokepk,61:nexty:fory=1to30:pokepk,62:nexty:nextx:return
  100 print "turboload/vdos creator..."
  110 open 15,8,15:poke 252,100:poke253,09
  120 data !,!.instructions,end
  130 read f$:if f$="end" goto 200
  140 print "creating file ";chr$(34);f$;chr$(34)
  150 open 8,8,8,"0:"+f$+",p,w"
  160 input#15,e,e$,e1,e2:if e then print e$
  170 sys 2375
  180 input#15,e,e$,e1,e2:if e then print e$
  190 close 8:goto 130
  200 close 15
  210 print "be sure to read the instruction file!"
  100 print"{clr} bagels       {rvon}jim butterfield{down}"
  110 input"want instructions";z$:ifasc(z$)=78goto280
  120 print"{down}a guessing game based on secret codes:"
  130 print"  you think up a secret code of"
  140 print"    4 letters, each {rvon}a{rvof} to {rvon}f{rvof}..."
  150 print"  ..and i'll think of one, too{down}"
  160 print"we each take turns guessing the other's"
  170 print"code.  on each guess we'll be told:"
  180 print"  --exact matches; guessing the right"
  190 print"    letter in the right place;
  200 print"  --other matches; the right letter,"
  210 print"    but in the wrong place.
  220 print"{down}count carefully, and don't forget to"
  230 print"allow for duplicate letters:"
  240 print"  e.g., if my secret code is 'fafd'and"
  250 print"    you guess 'fade', you'll get"
  260 print"      2 exact (the f and the a)"
  270 print"      1 match (the d).{down}"
  280 dimc$(6),m(4,10),r(2,10),t(4),z(1,4),g(4),s(4)
  290 j=rnd(-ti)
  300 forj=1to4:t(j)=1:s(j)=int(rnd(1)*6+1):next
  310 input"have you thought of a secret code";z$
  320 forj=1to6:c$(j)=chr$(j+64):next
  330 forj=1to6:k=int(rnd(1)*6)+1:c$=c$(j):c$(j)=c$(k):c$(k)=c$:nextj
  340 print"{clr}----- your -------      --- my -----"
  350 print"guess  exact match     guess exa mat{down}"
  360 forj=1to10
  370 forj1=1to4:print"{CBM-+}{left}";
  380 getz$:ifz$=""goto380
  390 z=asc(z$):ifz<65orz>70goto380
  400 printz$;:g(j1)=z-64:nextj1
  410 g1=0:forj1=1to4:z(0,j1)=0:z(1,j1)=-1:ifg(j1)=s(j1)theng1=g1+1:goto430
  420 z(0,j1)=g(j1):z(1,j1)=s(j1)
  430 nextj1:print"   ";g1;:ifg1=4thenprint:goto770
  440 g1=0:forj1=1to4:fork1=1to4
  450 ifz(0,j1)=z(1,k1)thenz(0,j1)=.1:z(1,k1)=.2:g1=g1+1
  460 nextk1,j1:print"   ";g1;"{rvon}";tab(23);
  470 ifj=1thenfork=1to4:m(k,j)=k-1:nextk:m(1,1)=1:goto640
  480 forj1=j-1to1step-1
  490 g1=r(1,j1):g2=0
  500 fork1=1to4
  510 ift(k1)=m(k1,j1)theng2=g2+1:ifg2>g1goto 730
  520 nextk1:k1=k1-1:ifg2<>g1goto 730
  530 nextj1
  540 forj1=j-1to1step-1
  550 g1=r(2,j1)
  560 forx=1to4
  570 z(0,x)=0:z(1,x)=-1:ift(x)<>m(x,j1)thenz(0,x)=t(x):z(1,x)=m(x,j1)
  580 nextx
  590 g2=0:forx=1to4:fory=1to4:ifz(0,x)<>z(1,y)goto620
  600 g2=g2+1:ifg2>g1goto 730
  610 z(0,x)=.5:z(1,y)=.9
  620 nexty,x:ifg1<>g2goto 730
  630 nextj1:forx=1to4:m(x,j)=t(x):next
  640 fork=1to4:printc$(m(k,j));:nextk:print"{rvof}   {CBM-+}{left}";
  650 getz$:ifz$=""goto650
  660 z=asc(z$):ifz<48orz>52goto650
  670 r(2,j)=0:r(1,j)=z-48:printz$;"   {CBM-+}{left}";:ifr(1,j)=4goto970
  680 ifr(1,j)=3thengoto710
  690 getz$:ifz$=""goto690
  700 z=asc(z$):r(2,j)=z-48:ifz<48orz>52goto690
  710 printchr$(r(2,j)+48)
  720 nextj
  730 ifk1<>4thenfork2=k1+1to4:t(k2)=1:nextk2
  740 t(k1)=t(k1)+1:ift(k1)>6thent(k1)=1:k1=k1-1:printchr$(k1+58);"{left}";:goto 740
  750 ifk1<>0goto480
  760 print:print"i give up!  ";
  770 input"what was your code";z$
  780 iflen(z$)<>4thenz$=z$+" isn't 4 characters!":goto 960
  790 forj1=1to4:x$=mid$(z$,j1,1):fork=1to6:ifx$=c$(k)goto 810
  800 nextk:z$=x$+" isn't a legal letter!":goto 960
  810 t(j1)=k:nextj1
  820 forj1=1toj-1
  830 g1=0:g2=0:fork=1to4
  840 z(0,k)=0:z(1,k)=-1:ift(k)=m(k,j1)theng1=g1+1:goto 860
  850 z(0,k)=t(k):z(1,k)=m(k,j1)
  860 nextk:fork=1to4:forx=1to4:ifz(0,k)=z(1,x)theng2=g2+1:z(0,k)=0:z(1,x)=-1
  870 nextx,k
  880 ifg1<>r(1,j1)org2<>r(2,j1)goto 900
  890 nextj1:goto1020
  900 print"{rvon} just a darned minute! "
  910 print"on guess #";j1;"you said that my"
  920 print"'";:fork=1to4:printc$(m(k,j1));:nextk
  930 print"' counted";r(1,j1);"and";r(2,j1)
  940 print"{rvon}i get";g1;"{left} and";g2
  950 goto 990
  960 print"hey--";z$:goto 990
  970 print "hooray!"
  980 print"{down}my code was '";:forj=1to4:printchr$(s(j)+64);:nextj:print"'{down}"
  990 input"another one";z$
 1000 ifasc(z$)<>78goto300
 1010 end
 1020 print"*** you win this one ***":goto990
    1 print"{clr}"
    4 gosub1000
    5 f=1
    6 ti$="000000"
   10 print"{clr}"
   20 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{down}{CBM-M}{down}{left}{CBM-M}{down}{left}{CBM-M}{down}{rght}{left}{CBM-T}{CBM-T}{CBM-T}{up}{CBM-G}{up}{left}{CBM-G}{up}{left}{CBM-G}"
   25 gosub200
   30 print"{home}";
   35 ti$="000000"
   36 f=f+1
   40 a$=chr$(int(rnd(f)*26)+65)
   50 print"{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"a$
   60 getb$:ifb$=""then60
   70 ifb$=a$thengosub200:goto30
   75 z=z+1
   76 gosub200
   80 goto60
  200 a=a+(ti/60)
  210 b=a/f
  215 b=int(b*100)/100
  216 print"{home}                                            "
  220 print"{home} time = "b;tab(18);" - mistakes = "z
  225 iff=50then238
  230 return
  238 print"{clr}":fora=1to100:geta$:next
  240 print"{clr}{down}{down}{down}    average time = "b"seconds"
  250 print"        {down}mistakes = "z
  260 print"{down}{down}           w.p.m = "int(12.5/(a/60)*100)/100
  270 print"{down}{down}{down}   typing factor = ";int(271/((z+1)*((a+1)/100)))
  280 print"{down}{down}{down}{down}{rght}{rght}{rght}{rght}press 1 to go again"
  290 geta$:ifa$=""then290
  300 ifa$<>"1"thenprint"{clr}":end
  310 print"{clr}"
  320 run
 1000 poke59468,14
 1010 print"            Typing practice "
 1020 print"{down}{down}"
 1030 print"   I WILL{$a0}DISPLAY{$a0}A{$a0}LETTER{$a0}AND{$a0}YOU{$a0}MUST"
 1040 print" PRESS{$a0}THE{$a0}CORRECT{$a0}KEY"
 1050 print"{down}{down}{down}{down}{down}{rght}{rght}{rght}YOUR{$a0}AVERAGE{$a0}TIME{$a0}AND{$a0}NUMBER{$a0}OF{$a0}"
 1060 print"MISTAKES WILL{$a0}BE{$a0}DISPLAYED"
 1070 print"   {down}{down}{down}AFTER{$a0}50 LETTERS{$a0}YOUR{$a0}AVERAGE{$a0}TIME,"
 1080 print"NO.OF{$a0}MISTAKES,TYPING{$a0}FACTOR{$a0}AND{$a0}w.p.m."
 1090 print" (WORDS{$a0}PER{$a0}MINUTE) RATINGS{$a0}WILL{$a0}BE{$a0}"
 1100 print"SHOWN."
 1110 print"{down}    PRESS{$a0}A{$a0}KEY{$a0}TO{$a0}BEGIN:-"
 1120 geta$:ifa$=""then1120
 1125 poke59468,12
 1130 return
    0 gosub8000
    1 sh=0:s=0:tm=ti:print"{clr}";:gosub2000
    2 print"{down}{down}{down}{down}{rght}{rght}":gosub10000
    3 gosub2500
    4 t=ti:gosub3000
    5 geta$:if((ti-t)/60)>4thengoto3
    6 ifa$=""thengoto5
    7 getb$:ifb$=""goto7
    8 print"{clr}"
    9 gosub3001
   10 print"{home}"
   11 fori=1toval(a$):print"{down}";:next:fori=1toval(b$):print"{rght}";:next
   20 print"EEEEEEE{up}{left}{left}{left}{left}OP{down}{rght}{rght}M{left}{down}N{left}{left}{left}{left}{left}{left}{left}RRRRRR{left}{left}{left}{left}{left}{left}{left}J{left}{up}U":rem sub
   25 sh=sh+1:rem shot counter
   30 fx=val(b$)+20:fy=val(a$)+2
   35 gosub1000
   40 goto3
 1000 rem flash @ fx,fy
 1010 print"{home}";:fori=1tofx:print"{rght}";:next:fori=1tofy:print"{down}";:next:rem position cursor
 1020 print"{up}*{down}*{left}{left}{left}**{down}{left}*{left}{up}";:rem flash on
 1022 if(abs(ty-fy+1)<2)and(abs(tx-fx+2)<2)thens=s+1
 1025 fori=1to25:x=sin(3):next
 1026 print"{home}";:fori=1tofx:print"{rght}";:next:fori=1tofy:print"{down}";:next:rem position{CTRL-F}
 1029 print"{up} {down} {left}{left}{left}  {down}{left} {left}{up}";:rem flash off
 1030 tg=(ti-tm)/60
 1040 return
 2000 t$="{up}{rght}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{down}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{up}{left}{left}":nt$="    {left}{left}{left}{down}   {left}{left}{left}{down}   {home}":return
 2500 print"{home}";:fori=1totx:print"{rght}";:next:fori=1toty:print"{down}";:next:printnt$
 2510 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}score{down}{left}{left}{left}{left}";s;
 2520 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}time{down}{left}{left}{left}{left}";int(tg);
 2525 print"{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}shots{down}{left}{left}{left}{left}";int(sh);
 2530 return
 3000 tx=int(rnd(2)*9+20):ty=int(rnd(3)*9+1)
 3001 print"{home}":fori=1totx:print"{rght}";:next:fori=1toty:print"{down}";:next:printt$;
 3010 if((ti-tm)/60)>=120 then goto7000
 3020 return
 7000 print"{home}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}time is up!!!"
 7010 print"want to play again";
 7030 input y$:ifleft$(y$,1)="y"then goto1
 7040 end
 8000 print"{clr}{down}{rght}{rght}dies ist ein u-boot kampf"
 8010 print"program fuer pet.ein u-boot erscheint"
 8030 print"in der linken haelfe des bildschirms,ein zielsehen sie auf der"
 8050 print"rechten seite.druecken sie zwei einstellige ziffern auf der"
 8059 print"tastatur zur positonierung des schusses"
 8060 print"das u-boot schiesst auf das ziel,wobei"
 8061 print"die erste zahl die tiefe desu-bootes bestimmt"
 8062 print"9 ist das tiefste,1 das hoechste"
 8063 print"die 2.zahl bestimmt dieentfernung,wobei -9 die maximaleund"
 8064 print"-1 die minim.entfernung ist"
 8080 print"sie haben 2 minuten zeit,so viel wie moeglich abzushiessen"
 8090 print"viel spass!"
 8100 print"sind sie ok zum spielen?"
 8110 input y$:if left$(y$,1)="y"then return
 10000 print"EEEEEEE{up}{left}{left}{left}{left}OP{down}{rght}{rght}M{left}{down}N{left}{left}{left}{left}{left}{left}{left}RRRRRR{left}{left}{left}{left}{left}{left}{left}J{left}{up}U":return
    1 rem uhr mit 9 verschiedenen weckzeiten
    2 rem copyright 1979, p.sweekhorst        mod von volker berlipp
    3 rem 8000 meunchen 2 schmellerst 4           12.2.82
    4 rem tel 779725
    5 rem mit aenderungen verwendbar mit
    6 rem schaltinterface
    7 print"{swuc}
   10 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}  bitte geben sie nun die uhrzeit ein:
   20 print"{down}    und zwar als sechsstellige zahl
   30 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}(std/std/min/min/sek/sek)
   35 print"{down}geben sie {rvon}0{rvof} ein, wenn die zeit bereits              eingestellt ist{down}
   40 input"              ";x$
   45 ifx$="0"then70
   50 iflen(x$)<>6then40
   60 ti$=x$
   70 print"{clr}":goto197
   99 print"{clr}"
  100 t=val(left$(ti$,4))
  110 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(17);"U{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}I{down}{left}{left}{left}{left}{left}{left}{SHIFT--} ";right$(ti$,2);" {SHIFT--}";
  111 print"{down}{left}{left}{left}{left}{left}{left}J{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  112 print"{down}{down}{down}";tab(8);"druecken sie die{rght}taste {rvon}z{rvof}
  113 geta$:ifa$="z"then2000
  114 forv=1to10:ifleft$(ti$,4)=wz$(v)then116:next
  115 goto117
  116 wz$(v)="":goto4000
  117 next
  165 r=val(right$(ti$,1))/2
  170 ifint(val(right$(ti$,1))/2)=rthen180
  175 ifint(val(right$(ti$,1))/2)<>rthen185
  180 gosub30000:goto190
  185 gosub30999
  190 ifval(left$(ti$,4))=tthen110
  197 print"{home}":fori=1to13:print"                                        ";:next
  200 z1=val(left$(ti$,1)):ifz1=0thenz1=10
  205 a=0:onz1gosub1100,1200,1300,1400,1500,1600,1700,1800,1900,1000
  210 z2=val(mid$(ti$,2,1)):ifz2=0thenz2=10
  215 a=9:onz2gosub1100,1200,1300,1400,1500,1600,1700,1800,1900,1000
  220 z3=val(mid$(ti$,3,1)):ifz3=0thenz3=10
  225 a=23:onz3gosub1100,1200,1300,1400,1500,1600,1700,1800,1900,1000
  230 z4=val(mid$(ti$,4,1)):ifz4=0thenz4=10
  235 a=32:onz4gosub1100,1200,1300,1400,1500,1600,1700,1800,1900,1000
  250 goto100
  500 fori=1to100:poke59409,52:forh=1to50:nexth:poke59409,60:fork=1to20:nextk,i
  510 return
  998 end
  999 print"{home}{down}{down}{down}";:rem0
 1000 print"{home}{down}{down}{down}";:rem0
 1010 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{CBM-@}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}";
 1020 print"{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}";
 1030 print"{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1040 return
 1100 print"{home}{down}{down}{down}";:rem1
 1110 printtab(a);"  {CBM-+}{CBM-+}M{down}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}";
 1120 print"{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}M{$a0}M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}
 1130 return
 1200 print"{home}{down}{down}{down}";:rem2
 1210 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{CBM-@}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}M{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-+}{CBM-+}MM{CBM-G}{down}{left}{left}{left}{left}{left}{left}";
 1220 print"{CBM-+}{CBM-+}MMO{down}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}MMO{down}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}MMO{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}";
 1230 print"{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1240 return
 1300 print"{home}{down}{down}{down}";:rem3
 1310 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}MO{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1320 print"{rght}{CBM-T}{CBM-T}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}M{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1330 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1340 return
 1400 print"{home}{down}{down}{down}";:rem4
 1410 printtab(a);"{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+} {CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1420 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}";
 1430 print"{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}M{$a0}M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}
 1440 return
 1500 print"{home}{down}{down}{down}";:rem5
 1510 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}O{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left}{left}";
 1520 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1530 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M     M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1540 return
 1600 print"{home}{down}{down}{down}";:rem6
 1610 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}OM{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1620 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}O{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}";
 1630 print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1640 return
 1700 print"{home}{down}{down}{down}";:rem7
 1710 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}MO{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}";
 1720 print"{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}M{$a0}M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}
 1730 printtab(a);"{down}          {up}{up}
 1740 return
 1800 print"{home}{down}{down}{down}";:rem8
 1810 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}O{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1820 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}O{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}{CBM-G}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1830 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1840 return
 1900 print"{home}{down}{down}{down}";:rem9
 1910 printtab(a);"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}M{down}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{$a0}O{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}";
 1920 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}M{$a0}{CBM-+}{CBM-+}{$a0}{CBM-G}";
 1930 print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{$a0}{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{left}M{$a0}{$a0}{$a0}{$a0}{$a0}M{CBM-G}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 1999 return
 2000 gosub3000
 2010 goto70
 3000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}bitte um eingabe der alarmnummer
 3010 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}({rvon}1{rvof} bis {rvon}9{rvof})
 3030 input"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";nr
 3033 ifnr>9ornr=<0then3035
 3034 goto3040
 3035 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}      bitte nur {rvon}1{rvof} bis {rvon}9{rvof} eingeben!":fori=1to1000:next
 3036 goto3030
 3040 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}eingabe der alarmzeit"
 3050 print"{down}{down}";tab(11);"(stdNstdNminNmin)":printtab(14);:inputwz$(nr)
 3060 iflen(wz$(nr))<>4thenprinttab(10);"bitte {rvon}4{rvof} zahlen!":goto3050
 3090 print"{clr}
 3100 return
 4000 tz=val(left$(ti$,4))
 4003 print"{clr}":poke59409,52
 4006 iftz<>val(left$(ti$,4))thenprint"{clr}":poke59409,60:goto70
 4010 print"{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rvon}{SHIFT-POUND}    {CBM-*}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left}      {down}{left}{left}{left}{left}{left}{left}";
 4020 print" {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}";
 4030 print"{up}{up}{up}{up}{up}{up}{rght}{rvon} {down}{left} {down}{left} {down}{left} {down}{left} {down}{left}     {up}{up}{up}{up}{up}{rght}{SHIFT-POUND}{$a0}{$a0}{$a0}{$a0}{CBM-*}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}";
 4040 print"{left}{left}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{$a0}{$a0}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {up}{up}{up}{up}{up}{rght}";
 4050 print"     {CBM-*}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght}{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{rvon}     {CBM-*}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}";
 4060 print"{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {up}{up}{up}{up}{up}{rght}{rght}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}{rvof}{SHIFT-POUND}{CBM-*}{SHIFT-POUND}{CBM-*}{rvon}{CBM-*}{down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left}";
 4070 print" {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} {down}{left}{left}{left}{left}{left}{left} {rght}{rght}{rght}{rght} "
 4080 print"{down}{down}{down}  !!!!druecken sie nun eine taste!!!!
 4100 a=0:fori=1to40:poke59409,60:forj=1to30:next:poke59409,52
 4110 forj=1to15:nextj:poke32767+a,42:poke33768+11*80-a,42
 4111 a=i:printchr$(7);:ifi=>80thena=(i-80)*80
 4114 next:print"{clr}"
 4115 poke59409,60
 4118 gosub5000
 4120 goto4003
 5000 rem
 5010 getx$:ifx$<>""thenprint"{clr}":goto70
 5020 fori=1to1500:next
 5030 return
 9999 end
 20000 print"              
 30000 print"{home}";tab(18);"{down}{down}{down}{down}{CBM-+}{CBM-+}M{down}{left}{left}{left}{CBM-+}{CBM-+} {CBM-G}{down}{left}{left}{left}{left}M M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}{down}{left}{left}{left}{rvon}  {rvof}M{down}{left}{left}{left}{rvon}  {rvof} {CBM-G}{down}{left}{left}{left}{left}";
 30001 print"M{$a0}M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}
 30010 return
 30999 print"
 31000 print"{home}";tab(18);"{down}{down}{down}{down}{rvon}  {rvof}M{down}{left}{left}{left}{rvon}  {rvof} {CBM-G}{down}{left}{left}{left}{left}M M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}{down}{left}{left}{left}{CBM-+}{CBM-+}M{down}{left}{left}{left}{CBM-+}{CBM-+} {CBM-G}{down}{left}{left}{left}{left}";
 31001 print"M{$a0}M{CBM-G}{down}{left}{left}{left}{CBM-T}{CBM-T}
 31010 return
 40000 print"{home}";
 40005 printtab(18);"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}    {up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}";
 40010 print"    {up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}{up}{left}{left}{left}{left}{$a0}{$a0}{$a0}{$a0}"
 40020 return
 60113 geta$:ifa$="z"then2000
  100 sys2063
   10 open1,4,5
   20 open2,4
   30 x=17:y=9:a=32:w=x:z=y:b=a
   40 print"{clr}";spc(17);:form=1to8:print"{down}";:next
   50 print"123456{down}7{down}{left}6{down}{left}5{down}{left}4{down}{left}3{down}{left}2{down}{left}1"
   55 print"{home}";
   60 goto130
   70 geta$
   73 poke32768+z*40+w,b:w=x:z=y:b=a
   75 poke32768+y*40+x,102
   77 ifa$=""then70
   80 ifa$="8"andy-1>8theny=y-1:goto140
   90 ifa$="2"andy+1<16theny=y+1:goto140
  100 ifa$="4"andx-1>16thenx=x-1:goto140
  110 ifa$="6"andx+1<23thenx=x+1:goto140
  120 ifa$=chr$(13)thenpoke32768+z*40+w,b:w=x:z=y:b=a:goto180
  130 ifa$="5"thenb=160:a=b:a$=""
  133 ifa$=" "thenb=32:a=b:a$=""
  135 goto70
  140 a=peek(32768+y*40+x)
  150 poke32768+z*40+w,b:w=x:z=y:b=a
  160 poke32768+y*40+x,102
  170 goto70
  180 fora=1to7:reada(a):next
  190 forx=17to22
  200 fory=9to15
  210 a=peek(32768+y*40+x)
  220 ifa=160thenv=v+a(y-8)
  230 nexty
  235 printv;
  240 c$=c$+chr$(v):v=0
  250 nextx
  260 print#1,c$
  265 fora=1to80
  270 print#2,chr$(254);
  275 next:print#2
  280 data64,32,16,8,4,2,1
    0 rem:poke45,184:poke46,32:poke55,190:poke56,36:poke17409,255
    1 print"{clr}"
    2 printtab(17)"{down}{down}{down}valdez":print"{down}{down}     ZZZa supertanker simulationZZZ{down}{down}{down}{down}{down}"
    7 r=9407
    8 print"{down}    is this to be an open sea"
    9 print"      practice simulation ";
   10 inputa$:ifa$="n"thenprint"{clr}":goto14
   11 print:ifa$<>"y"then10
   12 print"{clr}a patch of sea is being cleared....":gosub49
   14 gosub31:gosub56:gosub70:gosub81:gosub82
   15 gosub101:gosub118:ifr5=0then17
   16 gosub84
   17 gosub208:gosub129:gosub150:print"{down}  how many minutes is this speed"
   18 print"and heading to be maintained";:inputt5
   19 t5=t5*60:t1=abs(v)*t5/l:ift1>=10thent1=t5/10
   20 ift1=t5/10then22
   21 ift1<10thent1=t5/(1+int(t1))
   22 t1=t1*1.0001:forj5=0tot5stept1:x=x7:y=y7:gosub205
   23 gosub43:gosub45:gosub38:gosub82:x7=x:y7=y:gosub58
   24 gosub73:x=x7:y=y7:gosub48:gosub161:x7=x:y7=y:gosub161:ifc3>0then26
   25 gosub50:ifq=1thenc3=3
   26 ifc3>0thengosub168
   27 ifc3>0thenprint"{down}  end !{down}":end
   28 gosub197
   29 ifc5=1thenprint"{down}  end !{down}":end
   30 next:goto15
   31 a=140:b=-.785398:m=6e8
   32 v3=7:p3=754e4/v3:p9=6.28318:l=500
   33 n=1000:k=2*p3/(v3*v3):c7=1:x=125000:g4$="*************************"
   34 x7=x:y=0:y7=y:v=.75*v3:p1=.75*p3:p2=p1:t=0:w=.5
   35 x9=108000:y9=123000:b9=p9/4:v9=.2:dima8$(34),g4$(25):b9$=".":a9$="*"
   36 a8$="***************":b4=2
   37 b5=8:b6=128:b7=255:b8=256:c3=0:return
   38 ifp1+p2<0thent1=t1/2
   39 v=v+(v3/(.67*abs(v)+.33*v3))*(p1+p2-(k*v*v+abs(f2))*v/abs(v))*t1/m
   40 ifp1+p2<0thent1=2*t1
   41 ifv=0thenv=1e-07
   42 return
   43 f1=2*n*v*v*a*t*t:ift<0thenf1=-f1
   44 f2=2*f1*t:return
   45 b=b+(f1/(m*v))*t1:ifb>p9thenb=b-p9
   46 ifb<-p9thenb=b+p9
   47 return
   48 x=x+(v*sin(b)+t6)*t1:y=y+(v*cos(b)+t7)*t1:return
   49 z=0:r2=r+8000:fori=rtor2::pokei,z:next:return
   50 i1=int((b8*j+i)/b5):i2=b8*j+i-b5*i1:z4=i1+r:gosub220:i3=peek(z4):i6=i3:a1=b6
   51 fork1=0toi2:i(k1)=int(i3/a1):i3=i3-a1*i(k1):a1=a1/b4:next:q=i(i2):return
   52 gosub50:ifp=qthenreturn
   53 ifp=1theni6=i6+b4*a1
   54 ifp=0theni6=i6-b4*a1
   55 z4=i1+r:gosub220:pokez4,i6:return
   56 m1=5*rnd(w)+1:m1=int(m1):s1=142000:fori=1tom1
   57 s(i)=s1*rnd(w):t8=5:next:return
   58 fori8=1tom1:s=s(i8):gosub63
   59 gosub207:p=0:gosub52
   60 s(i8)=s(i8)+t8*t1:ifs(i8)>s1thens(i8)=s(i8)-s1
   61 s=s(i8):gosub63:gosub207:p=1:gosub52
   62 next:return
   63 ifs>18500then65
   64 x=110000-s:y=121000:goto68
   65 ifs>40972then67
   66 x=91500-.533993*(s-18500):y=121000-.84549*(s-18500):goto68
   67 x=79500:y=143000-s
   68 ifabs(x-x7)+abs(y-y7)<lthenc3=2
   69 return
   70 s2=50000:m2=3*rnd(w)+1:m2=int(m2):fori=1tom2
   71 s=s2*rnd(w):x4(i)=66500+.214862*s
   72 y4(i)=106500-.976645*s:next:return
   73 fori8=1tom2:x=x4(i8):y=y4(i8)
   74 gosub207:p=0:gosub52
   75 gosub82:x4(i8)=x4(i8)+t6*t1:y4(i8)=y4(i8)+t7*t1
   76 ifabs(x4(i8)-x7)+abs(y4(i8)-y7)<lthenc3=1
   77 gosub207
   78 gosub50:ifq=1then80
   79 x=x4(i8):y=y4(i8):gosub207:p=1:gosub52
   80 next:return
   81 h=int(24*3600*rnd(w)):return
   82 h1=3*y/(b8*l):p8=sin(h/(12*3600)+h1):t6=-(x-b6*l)/(64*l)*p8
   83 t7=(y-b8*l)/(b6*l)*p8:t9=abs(t6)+abs(t7):t9=t9/b4:return
   84 print:print:gosub207:i4=i:j4=j
   85 forj=j4+7*r5toj4-7*r5step-r5:ifj>=0then87
   86 printa8$:goto100
   87 ifj<=b7then89
   88 printa8$:goto100
   89 fori=i4-7*r5toi4+7*r5stepr5:ifi>=0then91
   90 printa9$;:goto99
   91 ifi<=b7then93
   92 printa9$;:goto99
   93 gosub50
   94 ifabs(j4-j)+abs(i4-i)>0then97
   95 ifq=1thenc3=3
   96 print"Z";:goto99
   97 ifq=1thenprinta9$;
   98 ifq=0thenprintb9$;
   99 next:print
  100 next:return
  101 print"{down}         status":print"         RRRRRR{down}{down}"
  102 print"time: "int(h/36)/100" hours.":print"position:
  103 print"    "int(x/10)/100" km. east":print"    "int(y/10)/100" km. north"
  104 print"water speed: "int(v*36)/10" km/hour"
  105 print"tide: "int(t9*36)/10" km/hour";
  106 ift7>0thenprint" north"
  107 ift7<0thenprint" south"
  108 ift7=0thenprint
  109 print"heading :"int(57.3*b)" degrees off north"
  110 print"port engine power: "int(100*p1/p3)"%"
  111 print"starboard engine power: "int(100*p2/p3)"%"
  112 print"helm: "abs(int(57.3*t))" degrees ";
  113 ift<0thenprint"left";
  114 ift>0thenprint"right";
  115 ift=0then117
  116 print" rudder."
  117 print:return
  118 print"{down}{down}  radar range control":print"{$a0}{$a0}RRRRRRRRRRRRRRRRRRR{down}"
  119 input"{$a0}radar range (detailed to .5 factor): ";r5:ifr5=0thenreturn
  121 ifr5>32thenprint"{down} range too large..":goto119
  123 ifr5<1thenprint"range too small.":goto119
  125 ifr5=1then128
  126 ifint(r5/2)=r5/2then128
  127 print"factors must be 1, 2, 4, 8, 16, or 32":goto119
  128 print"grid increment: ".5*r5" kilometers.":return
  129 print"{down}{down}  engine control":print"{$a0}{$a0}RRRRRR{$a0}RRRRRRR"
  130 print:ifp1=0thenprint"status: port stopped"
  131 ifp1=0then135
  132 print"status: port "abs(int(100*p1/p3))"%";
  133 ifp1<0thenprint" reverse"
  134 ifp1>0thenprint" ahead"
  135 ifp2=0thenprint"        starboard stopped"
  136 ifp2=0then141
  137 print"   starboard "abs(int(100*p2/p3))"%";
  138 ifp2<0thenprint" reverse"
  139 ifp2>0thenprint" ahead"
  140 print"{down}continue present status ?"
  141 geta4$:ifa4$=""then141
  142 ifa4$="y"thenreturn
  143 ifa4$<>"n"then141
  144 input"% power in port engine: ";p1
  146 p1=p1*c7:ifabs(p1)>100then144
  147 p1=p1*p3/100:print"% power in starboard engine: ";
  148 inputp2:ifabs(p2)>100then148
  149 p2=p2*p3/100:return
  150 print"{down}{down}  rudder control":print"{$a0}{$a0}RRRRRR{$a0}RRRRRRR{down}"
  151 print" status: "abs(int(57.3*t))" degrees ";
  152 ift<0thenprint" left";
  153 ift>0thenprint" right";
  154 print" rudder.":print"{down}continue present status ?"
  155 geta4$:ifa4$=""then155
  156 ifa4$="y"thenreturn
  157 ifa4$<>"n"then155
  158 input"helm control (degrees): ";t:ifabs(t)>45then158
  160 t=t/57.3:return
  161 gosub207:ifi>b7then166
  162 ifi<0then166
  163 ifj>b7then166
  164 ifj<0then166
  165 return
  166 print:print:printg4$+"****":print"ran off map! simulation ended"
  167 printg4$+"****":print:print:goto300:return
  168 gosub58:gosub73:print:print:printg4$:ifc3=1thenprint"collision with iceberg!!!"
  169 printg4$:print:print
  170 ifc3=2thenprint"collision with{$a0}another supertanker!!!"
  171 ifc3=3thenprint"  ran aground!!!"
  172 print
  173 c4=(c3+1)*v/(3*v3):ifc4<.5then188
  174 print"         ***major collision***{down}":p1=.5*rnd(w)*c7
  175 p2=.5*rnd(w):ifp1<.25thenp1=0
  176 ifp2<.25thenp2=0
  177 if(p1+p2)=0then185
  178 print"  taking on water.
  179 ifrnd(w)>.3thenprint"helm control lost.. drifting."
  180 print"engine status for pumping:":print"    port: "int(100*p1)"%
  181 print"    starboard: "int(100*p2)"%
  182 ifp1+p2<.5thenprint"pump power insufficient! sinking...
  183 ifp1+p2>=.5thenprint"can remain afloat."
  184 return
  185 print"ship hull ruptured. oil release. fire."
  186 ifrnd(w)>.5thenprint"fire can be controlled."
  187 return
  188 ifc4<.2then192
  189 print"         serious collision !!!{down}"
  190 print"damage below waterline. taking on water."
  191 p1=rnd(w)*c7:p2=rnd(w):goto180
  192 print"moderate collision":print"damage control reports"
  193 print"no serious problems with":print"ship's hull, engines,"
  194 print"or rudder control.":return
  197 ifabs(x-x9)>=l/5thenreturn
  198 ifabs(y-y9)>=l/5thenreturn
  199 ifabs(b-b9)>p9/36thenreturn
  200 ifabs(v/v9)>1thenreturn
  201 print:print
  202 print"drop anchor!!!":print"oil debarkation position reached"
  203 print"safely. congratulations!":print"time is "int(h/36)/100" hours"
  204 print:print:c5=1:return
  205 h=h+t1:ifh>24*3600thenh=h-24*3600
  206 return
  207 i=int(x/l+.5):j=int(y/l+.5):return
  208 print"{down}{down} display other traffic ?"
  209 geta4$:ifa4$=""then209
  210 ifa4$="n"thenreturn
  211 ifa4$<>"y"then209
  212 print"{down} last reported ship positions"
  213 print"{$a0}RRRR{$a0}RRRRRRRR{$a0}RRRR{$a0}RRRRRRRRR{down}":fori8=1tom1:s=s(i8):gosub63
  214 printi8"    x="int(x/100)/10tab(18)"y="int(y/100)/10:next
  215 print"{down} last reported iceberg positions"
  216 print"{$a0}RRRR{$a0}RRRRRRRR{$a0}RRRRRRR{$a0}RRRRRRRRR{down}"
  217 fori8=1tom2:x=x4(i8):y=y4(i8)
  218 printi8"    x="int(x/100)/10tab(18)"y="int(y/100)/10:next:print:return
  220 ifz4>32767thenz4=32767-z4
  221 return
  300 print"{down}{down} press space to run again{down}"
  301 getc$:ifc$=""then301
  302 ifc$=" "thenrun
  303 ifc$<>" "thenprint"{clr}{down}{down} end{down}": end
  304 goto301
    0 goto100
    1 rem vector chase             mar 83
    2 :
    3 rem author unknown  source pug of           silicon valley
    4 :
    5 rem description  intercept randomly         moving target using x,y
    6 rem coordinates and a vector
    7 :
    8 rem pet 8k
    9 :
   10 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   11 rem"{SHIFT--}       san mateo county      {SHIFT--}
   12 rem"{SHIFT--}     office of education     {SHIFT--}
   13 rem"{SHIFT--}             &               {SHIFT--}
   14 rem"{SHIFT--}  computer-using educators   {SHIFT--}
   15 rem"{SHIFT--}                             {SHIFT--}
   16 rem"{SHIFT--}          softswap           {SHIFT--}
   17 rem"{SHIFT--}                             {SHIFT--}
   18 rem"{SHIFT--}333 main street, redwood city{SHIFT--}
   19 rem"{SHIFT--}ca 94063 (415)363-5472       {SHIFT--}
   20 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   21 rem"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
   22 rem"{SHIFT--} programs may be copied for  {SHIFT--}
   23 rem"{SHIFT--} educational use only and    {SHIFT--}
   24 rem"{SHIFT--} are not to be sold.         {SHIFT--}
   25 rem"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
   30 rem"{CBM-I}{CBM-I}{CBM-I}input routine
   31 deffnz(z)=peek(196)+256*peek(197)+peek(198):poke158,0:zz$="":poke167,0
   32 getz$:ifz$=""orz$="{clr}"orz$="{home}"orz$="{down}"orz$="{up}"orz$="{rght}"orz$="{left}"orz$="{inst}"then32
   33 ifz$="q"then970
   34 ifz$=chr$(13)thenpoke167,1:pokefnz(z),32:z$=zz$:print:goto38
   35 if(zz$=""andz$=chr$(20))then31
   36 ifzcandlen(zz$)>zc-1thengosub39:goto31
   37 zz$=zz$+z$:zz$=left$(zz$,len(zz$)+(chr$(20)=z$)*2):printz$;:goto32
   38 zc=0:return
   39 forzx=1tozc:printchr$(20);:next:return
   40 rem"{CBM-I}{CBM-I}{CBM-I}get routine
   41 getz$:printmid$(" {left}{CBM-P}{left}",(zu+1)*2-1,2);:zu=-1*(zu=0):ifz$=""then41
   42 ifzc$<>""thenforzx=1tolen(zc$):zf=zf+zx*-(z$=mid$(zc$,zx,1)):next:ifzf=0then41
   43 zc$="":zf=0:return
   99 rem pug
  100 ifpeek(50003)=160thenpoke144,88:goto120
  110 ifpeek(50003)=1thenpoke144,49:goto120
  120 print"{clr}":poke59468,14:dim n$(72)
  130 v1$="{home}{down}{down}{down}{down}{down}{down}{down}{down}"
  140 v2$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  150 v3$=v2$+"{down}{down}{down}{down}{down}{down}"
  160 v4$=v3$+"{down}{down}"
  170 v5$=v3$+"                                      "
  180 v6$=v4$+"                                      "
  190 print"{clr}            {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  200 print"            {rvon} VECTOR{$a0}{$a0}CHASE "
  210 print"{down}Do you want instructions?  (Y/N) ";:zc$="yn":gosub40
  220 ifz$="n"then330
  230 print"{clr}":poke59468,14:print"The object of the game is to track"
  240 print"{down}down and intercept a randomly moving"
  250 print"{down}target (like a scared rabbit!)."
  260 print"{down}{down}Before each interaction the computer "
  270 print"{down}will give you information concerning"
  280 print"{down}the position and direction of the"
  290 print"{down}target.  You must tell the computer"
  300 print"{down}which direction you want to move in"
  310 print"{down}order to intercept the target."
  320 print"{down}{down}{down}{down}{down}Press {rvon}RETURN{rvof}{up}{left}{left}{left}{left}{left}{left}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{down} when ready. ";:zc$=chr$(13):gosub40
  330 t9=0
  340 print"{clr}{down}Select level of difficulty":ld$="12345678"
  350 print"{down}   {rvon}0{rvof}{up}{left}{CBM-@}{down}  Hard":forxx=1to8:print"{down}   {rvon}"mid$(ld$,xx,1)"{rvof}{up}{left}{CBM-@}{down}":next
  360 print"{down}   {rvon}9{rvof}{up}{left}{CBM-@}{down}  Easy"
  370 print"{down}{down}Press number  ";:zc$="0123456789":gosub40:t=val(z$)
  380 t=5+t*5
  390 print"{clr}            {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
  400 print"            {rvon} VECTOR{$a0}{$a0}CHASE "
  410 print"{down}You must come within";t;"units of the"
  420 print"{down}target to score a hit."
  430 t=t*t
  440 let v1=int(rnd(1)*10+.5)*10+50
  450 letv2=(int(rnd(1)*2+.5)+1)*v1
  460 let x1=(int(rnd(1)*400)+100)*sgn(rnd(0)-.5)
  470 lety1=(int(rnd(1)*400)+100)*sgn(rnd(0)-.5)
  480 let x2=0
  490 if y1=0 or x1=0 goto 460
  500 let y2=0
  510 printv1$"      Target velocity",v1"    "
  520 print"{down}      Your velocity  ",v2"    "
  530 let c=(x2-x1)^2+(y2-y1)^2
  540 xx=val(right$(ti$,2))
  550 foryy=1toxx:d1=rnd(1):next
  560 d1=int (rnd(1)*359)
  570 gosub990
  580 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}                        "
  590 printspc(15)"Q = Quit ";
  600 printv2$"{down}{down}{rght}{rght}T ="t9"    {up}";
  610 print"Closest approach",int(sqr(c)+.5)"{left}   "
  620 print"{rght} {down}          Distance to target";
  630 printint(sqr((x2-x1)^2+(y2-y1)^2)+.5)"{left}   "
  640 printv5$v6$
  650 printv3$"Target at"int(x1+.5);int(y1+.5)tab(19)"Target Direction{$a0}"d1"{left}   "
  660 printv4$"You're at"int(x2+.5);int(y2+.5)tab(19)"Your Direction{$a0}{$a0}{$a0}{$a0}{left}{left}{left}";
  670 zc=4:gosub30 :d2=val(z$)
  680 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}               {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}"
  690 printspc(15)"{rvon} WORKING ";
  700 s1=v1*cos(d1*3.14159/180)/100
  710 m1=v1*sin(d1*3.14159/180)/100
  720 s2=v2*cos(d2*3.14159/180)/100
  730 m2=v2*sin(d2*3.14159/180)/100
  740 c=1.e+38
  750 fori=1to100
  760 x1=x1+s1
  770 y1=y1+m1
  780 x2=x2+s2
  790 y2=y2+m2
  800 c1=(x2-x1)^2+(y2-y1)^2
  810 ifc1<tgoto880
  820 ifc<c1goto850
  830 rem  printi"{left}";:ifi=100then print""
  840 c=c1
  850 nexti
  860 t9=t9+1
  870 goto560
  880 rem print:print:
  890 print"{clr}"v1$"               *********{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  900 print"*********{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  910 print"***POW***{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  920 print"*********{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
  930 print"*********{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}"
  940 print
  950 print"{down}{down}{down}{down}Do you want to try again?  (Y/N) ";:zc$="yn":gosub40
  960 ifz$="y"then330
  970 ifpeek(50003)=160thenpoke144,85:print"{clr}";:poke59468,12:end
  980 poke144,46:print"{clr}";:poke59468,12:end
  990 printv2$"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}";
 1000 forxx=1to3:print"{CBM-+}";spc(38);"{CBM-+}";:next
 1010 print"{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 1020 return
 1030 return
    1 print"{clr}":b=int(1000*rnd(1))+32767:poke59466,16:poke59467,16:s=2
    2 fori=1tos:poke59464,150:d(i)=int(1000*rnd(1))+32767:poked(i),42
    3 poke59464,0:nexti
    4 fori=1to40:poke32767+i,160:nexti
    5 fori=1to920step40:poke32807+i,160:poke32846+i,160:nexti
    6 fori=1to40:poke33727+i,160:nexti
   10 geta$
   20 ifa$="1"thena=39
   30 ifa$="2"thena=40
   40 ifa$="3"thena=41
   50 ifa$="4"thena=-1
   55 ifa$="5"thena=0
   60 ifa$="6"thena=1
   70 ifa$="7"thena=-41
   80 ifa$="8"thena=-40
   90 ifa$="9"thena=-39
   95 ifpeek(b+a)=160thena=0
  100 poke59464,250:pokeb,32:b=b+a:poke59464,0
  101 ifpeek(b)=42then270
  102 ifpeek(b)=35thenb=b-a
  103 ifb<32768orb>33767thenb=b-a
  104 pokeb,81
  120 y1=int((b-32768)/40)
  130 x1=(((b-32768)/40)-y1)*100
  135 i=int((s+1)*rnd(1))
  140 y2=int((d(i)-32768)/40)
  150 x2=(((d(i)-32768)/40)-y2)*100
  160 ify1<y2andx1<x2thenc=41
  170 ify1=y2andx1<x2thenc=1
  180 ify1>y2andx1<x2thenc=-39
  190 ify1<y2andx1=x2thenc=+40
  200 ify1=y2andx1=x2then270
  210 ify1>y2andx1=x2thenc=-40
  220 ify1<y2andx1>x2thenc=+39
  230 ify1=y2andx1>x2thenc=-1
  240 ify1>y2andx1>x2thenc=-41
  244 ifd(i)+c<32768ord(i)+c>33767thenc=0
  245 ifpeek(d(i)+c)=160orpeek(d(i)+c)=35thenc=0
  250 poked(i),32:d(i)=d(i)+c:poked(i),42
  260 goto10
  270 s=s-1
  280 foro=1to100:poke59464,150+o:pokeb,42:pokeb,81:poke59464,0:nexto
  284 poked(s+1),35
  285 ifs=0then300
  290 goto10
  300 fori=1to10:d(i)=int(1000*rnd(1))+32768:poked(i),42
  310 poke59464,150+(i*10):poke59464,0:nexti:s=10:goto10
  100 clr:printchr$(14)+"{clr}"
  110 rem *********************
  120 rem **  endprogramm 99 **
  130 rem *********************
  140 rem
  150 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Ende dieses Durchlaufs"
  160 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}neu starten = {rvon}0{rvof} -Taste"
  170 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}Gesamtende  = {rvon}1{rvof} -Taste"
  180 h=.5:l=51:k=136:n=65:poke59467,16:m=59464:rg=59466
  190 b=n*rnd(1)+25:f=n*rnd(1):a=f+b:d=(f/70+h)*rnd(1)+h:z=d*300*rnd(1)/a
  200 p=a/n*h:geta$:ifa$thenpoke59467,0:goto 260
  210 ifrnd(1)<.1thenfori=0to2e3*rnd(1):next
  220 pokerg,l:fori=0toz:ifrnd(1)<hthenpokerg,k-l
  230 ifrnd(1)>pgoto250
  240 forj=atobstep-d:pokem,j:next:pokem,0:next:goto190
  250 forj=btoastepd:pokem,j:next:pokem,0:next:goto190
  260 ifa$="0"then190
  270 ifa$<>"1"then100
    5 rem ***
    6 rem *** volcano / softside magazine * 7 rem *** translated from trs-80
    8 rem *** by chuck holland
    9 rem ***
   10 rem
   11 rem
   12 rem
   39 dl=2000 : rem ***  delay time  ***
   40 goto 89
   50 for i=1to dl:nexti:return
   60 print"{down}{down}{down}type any key to continue."
   62 get v$:ifv$=""then goto 62
   64 return
   70 print"{down}{down}enter number of the action you select":return
   89 print"{clr}"
   90 printtab(12)"{down}{down}{down}{rvon}v o l c a n o !{rvof}"
   95 gosub 50
  100 print"{down}{down}on may 18, 1980 at 8:32 am, mount"
  103 print"st. helens erupted with a force 500"
  105 print"times greater than that of the atomic"
  107 print"bomb that fell on hiroshima."
  109 print"{down}{down}the top 1300 feet of the mountain was"
  111 print"immediately pulverized and thrown 12"
  113 print"miles into the sky. within moments"
  115 print"everything within 150 square miles was"
  117 print"engulfed in the fury of the volcano.
  119 gosub 60
  120 print"{clr}thick, black smoke accented with pink"
  122 print"and purple lightning, flying boulders,"
  124 print"and chunks of ice blasted a swath of"
  126 print"destruction 20 miles to the north."
  128 print"{down}{down}hot ash, rocks, and gas roared down the"
  130 print"mountain in pyroclastic flows at over"
  132 print"100 mph. the 800 degree flows collided"
  134 print"into spirit lake and became a torrent"
  136 print"of superheated mud carrying off 100 ton"
  138 print"logging trucks, buildings, bridges and"
  140 print"anything else in its path."
  142 print"{down}{down}the mud flowed on into the toutle,"
  144 print"cowlitz and columbia rivers causing"
  146 print"severe flooding."
  147 gosub 60
  148 print"{clr}drawn by the hope of seeing some"
  150 print"volcanic activity, many people had"
  152 print"come to the mountain that weekend as"
  154 print"many had every weekend since st. helens"
  156 print"began emitting puffs of steam back in"
  158 print"march."
  160 print"{down}{down}although there were signs and road-"
  162 print"blocks warning everyone to stay away,"
  164 print"they still came. tourists, campers,"
  166 print"scientists, photographers, adventurers,"
  168 print"and the just plain curious."
  170 print"{down}{down}but then no one expected that the"
  172 print"mountain was waiting to explode like"
  174 print"some kind of gigantic nuclear time bomb!"
  176 gosub 60
  178 print"{clr}about 70 of the visitors to the"
  180 print"mountain that weekend did not leave"
  182 print"alive."
  184 print"{down}{down}exactly how many people perished will"
  186 print"likely never be known."
  188 print"{down}{down}what is known is that air force and"
  190 print"army national guard helicopters rescued"
  192 print"197 people, snatching them from around"
  194 print"the boiling mountain."
  196 gosub 60
  200 rem **
  201 rem **insert volcano graphic here *
  202 rem **
  499 print"{clr}"
  500 printtab(12)"{rvon}the scenario{rvof}"
  502 print"{down}{down}this program creates a scenario"
  504 print"similar to those reported by some of"
  506 print"the approximately 300 people who were"
  508 print"camped around mt. st. helens on the"
  510 print"morning of may 18, 1980."
  512 print"{down}{down}{down}your goal is simple:  survive !"
  514 print"{down}{down}{down}the hazzards are many..."
  516 gosub 60
  518 print"{clr}{rvon}l a v a :{rvof}unlike the more liquid lava"
  520 print"of the hawaiian volcanos, the lava of"
  522 print"st. helens is of the andesite variety--"
  524 print"a sticky, gummy material. it moves"
  526 print"slowly and does not travel far."
  528 print"{down}{down}{rvon}a s h :{rvof}most of the deaths at"
  530 print"st. helens were due to suffocation"
  532 print"caused by hot ash forced into the lungs."
  534 print"{down}{down}{rvon}p y r o c l a s t i c f l o w s :{rvof}"
  536 print"masses of hot, dry rock that move like"
  538 print"a fluid because they are mixed with hot"
  540 print"air and other gasses. these flows"
  542 print"travel at over 100 mph and affect areas"
  544 print"far from the volcano."
  546 gosub 60
  548 print"{clr}{rvon}m u d f l o w s :{rvof}these look like a"
  550 print"wave of hot, flowing concrete and can"
  552 print"move at speeds up to 50 mph. they carry"
  554 print"along boulders, trees, and debris in"
  556 print"their wake."
  558 print"{down}{rvon}g a s s e s :{rvof}hot gasses such as"
  560 print"carbon dioxide, carbon monoxide,"
  562 print"chlorine, and sulfurous fumes are"
  564 print"spewed out together with molten or"
  566 print"solid rock."
  568 print"{down}{rvon}d e b r i s :{rvof}large chunks of earth"
  570 print"rock and ice can be thrown out from"
  572 print"any of the mountain's flanks as well"
  574 print"as its summit."
  576 print"{down}{rvon}l i g h t n i n g :{rvof}flashes of"
  578 print"lightning, generated by highly charged"
  580 print"dust particles, streak around the peak."
  582 gosub 60
  584 print"{clr}{rvon}f l o o d s :{rvof}mudflows join with"
  586 print"rivers swelling them many times their"
  588 print"normal size causing widespread flooding"
  590 print"and killing of wildlife."
  592 print"{down}{down}{rvon}e a r t h q u a k e s :{rvof}these result"
  594 print"from the movement of molten rock within"
  596 print"the mountain."
  598 print"{down}{down}{rvon}f i r e s :{rvof}about a hundred fires"
  600 print"were started during the st. helens"
  602 print"eruption by hot gasses, pyroclastic"
  604 print"flows, and lightning."
  606 gosub 60
  608 print"{clr}{rvon}-the scene-{rvof}"
  610 print"{down}{down}you are camped on the west side of"
  612 print"mt. st. helens. you hiked up from the"
  614 print"end of a logging road where you left"
  616 print"your car last night. you have a small"
  618 print"fire going to make some coffee."
  620 print"{down}{down}there is an eerie quiet. there are no"
  622 print"birds singing."
  623 gosub 50
  624 gosub 60
  626 print"{clr}suddenly you are shaken by an earth-"
  628 print"quake! the ground undulates around you."
  630 print"tall fir trees sway."
  632 print"{down}{down}then...a giant roar, and the top of the"
  634 print"mountain explodes thousands of feet"
  636 print"into the air suspended on a column"
  638 print"of thick black smoke."
  640 print"{down}{down}the dense cloud expands and begins to"
  642 print"move in your direction."
  644 gosub 50
  645 gosub 60
  646 gosub9999
  647 print"{clr}what should you do?"
  648 print"{down}{down}1) use your camping shovel and dig in"
  650 print"until it's safe to move."
  652 print"{down}2) take photographs. they should be"
  654 print"worth plenty."
  656 print"{down}3) start back down the mountain to"
  658 print"your car."
  660 print"{down}4) get to high ground"
  662 print"{down}5) try to find some shelter."
  664 gosub 70
  665 input d
  670 ondgoto 675,680,685,690,695
  675 print"{clr}you just dug your own grave. hot ash"
  677 print"will bury you.":goto700
  680 print"{clr}congratulations...you have taken some"
  681 print"really spectacular pictures that will"
  682 print"be duplicated in a hundred newspapers."
  683 print"{down}{down}you will receive many awards...."
  684 print"all posthumously.":goto700
  685 print"{clr}now you are using your head. get out"
  687 print"of there fast !":goto710
  690 print"{clr}forget it ! hot sulfur dioxide gas"
  691 print"coming out the side of the mountain"
  692 print"gets you as you climb higher.":goto700
  695 print"{clr}you are too close to the hot ash for"
  696 print"any shelter to be effective. those who"
  697 print"tried this were buried alive.":goto700
  700 gosub50
  701 print"{down}{down}{down}{down}{rvon}you have perished{rvof}":gosub 50
  702 print"{down}{down}want to try again (y/n)"
  703 input d$:if d$="y"then goto608
  704 if d$="n"then goto707
  705 if d$<>"y"andd$<>"n"thenprint"answer only with a y or n.":goto703
  707 print"{clr}{down}either take a survival course or"
  708 print"stay away from smoking mountains...."
  709 print"preferably both !":end
  710 print"{down}{down}{down}as you approach the hiking trail"
  712 print"that leads down to the logging road,"
  714 print"you find that many trees have fallen"
  716 print"across the trail making passage"
  718 print"difficult."
  720 gosub 50
  722 print"{down}{down}you think you remember a short cut"
  724 print"down the mountain that also leads to"
  725 print"the end of the logging road."
  726 gosub 60
  730 print"{clr}what should you do?"
  732 print"{down}{down}1) attempt to navigate the trail."
  734 print"{down}{down}2) take the short cut."
  736 gosub 70
  738 input d
  750 ondgoto765,755
  755 print"{clr}in an emergency we often forget even"
  756 print"those things that we know well--such as"
  757 print"our own phone number."
  758 print"{down}{down}in your excitement you quickly find"
  759 print"yourself lost."
  760 print"{down}{down}your time runs out and you are over-"
  761 print"run by a pyroclastic flow.":goto700
  765 print"{clr}under the circumstances this is the"
  766 print"better choice. at least you know that"
  767 print"the trail eventually leads back to the"
  768 print"road."
  769 gosub50
  770 print"{down}{down}you climb over huge fallen trees as"
  771 print"you make your way back down the trail."
  773 gosub60
  775 print"{clr}when you arrive at your car, you find"
  777 print"the road is blocked by several large"
  779 print"rocks which rolled on to it during the"
  780 print"earthquake."
  782 print"{down}{down}you know that the end of these roads is"
  784 print"one of the first places that rescuers"
  786 print"will look."
  788 gosub 50
  790 print"{down}{down}on the other hand there is a chance"
  792 print"you could move those rocks just enough"
  794 print"to get through."
  796 gosub60
  800 print"{clr}what should you do?"
  802 print"{down}{down}1) get in the car for protection and"
  803 print"wait to be rescued."
  804 print"{down}2) forget the car and go down the road"
  805 print"on foot.
  806 print"{down}3) build a fire to attract rescuers."
  808 print"{down}4) try to get the rocks out of the way."
  810 gosub70
  812 input d
  815 ondgoto820,825,830,835
  820 print"{clr}some people did exactly that."
  821 print"unfortunately, their cars became their"
  822 print"tombs.":goto700
  825 print"{clr}it is hard to outrun a volcano."
  826 print"you are overtaken by a mudslide.":goto700
  830 print"{clr}you won't have to build a fire here."
  831 print"it will be plenty hot without it in a"
  832 print"few minutes.":goto700
  835 print"{clr}if there is a chance you can use your"
  836 print"car to get away, take it!"
  837 print"{down}{down}by using tree limbs as a lever and"
  838 print"pushing other rocks out of the way with"
  840 print"the car, you manage to get through."
  841 gosub50
  842 print"{down}{down}as soon as you're clear, you floor"
  844 print"the accelerator. you're going 80 mph"
  846 print"down a dirt road."
  848 gosub50
  850 print"{down}{down}you are approaching a bridge that"
  860 print"crosses the toutle river when suddenly"
  862 print"a mud flow hits."
  864 print"{down}{down}the bridge explodes before your eyes."
  866 gosub50
  867 gosub60
  870 print"{clr}you slam on the brakes and stop just"
  871 print"short of the steaming chocolate ooze."
  872 print"{down}{down}your way blocked, you get out of your"
  873 print"car and begin running. after a while"
  874 print"you tire and slow down, but looking up"
  875 print"you start to run again."
  876 print"{down}{down}the ash cloud is coming !"
  878 gosub60
  879 print"{clr}as the cloud descends, it is as if"
  880 print"someone has thrown a black velvet"
  881 print"curtain over your head."
  882 print"{down}all light vanishes."
  883 print"{down}you cannot see your hand in front of"
  884 print"your face. it is hot, burning."
  885 print"{down}you try to catch your breath, but your"
  886 print"throat feels like it is stuffed with"
  887 print"warm cotton. your lungs burn and your"
  888 print"eyes sting. you stumble and fall in the"
  889 print"darkness.":gosub60
  890 print"{clr}what should you do?"
  891 print"{down}{down}1) lie down with your face on the"
  892 print"ground."
  893 print"{down}2) find some shelter."
  894 print"{down}3) rub the ash from your eyes."
  895 print"{down}4) keep moving in the dark."
  896 gosub70
  897 inputd
  900 ondgoto910,915,920,925
  910 print"{clr}the right decision...if you want to"
  911 print"make this your eternal resting place !":goto700
  915 print"{clr}i hope you like the spot you find"
  916 print"because you're going to be there"
  917 print"forever.":goto700
  920 print"{clr}volcanic ash is very abrasive. your"
  921 print"eyes swell up. you wander around and"
  922 print"are overcome.":goto700
  925 print"{clr}this is the only real chance you have."
  926 print"to stay where you are means certain"
  927 print"death."
  928 print"{down}{down}you get up and begin walking with"
  930 print"your hands out before you to feel the"
  931 print"way."
  932 print"{down}after a while you notice that your"
  933 print"feet feel wet. you think you are"
  934 print"walking in a creek."
  936 gosub60
  938 print"{clr}what should you do?"
  940 print"{down}{down}1) get out of the water and keep moving"
  942 print"{down}2) wash out your eyes with the water."
  944 print"{down}3) walk in the creek."
  946 gosub70
  948 input d
  950 ondgoto970,975,980
  970 print"{clr}since you have no way to know where"
  971 print"you're going, you wander in a circle"
  972 print"until exhaustion takes over.":goto700
  975 print"{clr}the ashfall is too heavy. the water"
  976 print"mixes with it to form a gritty paste.":goto 700
  980 print"{clr}since you have no idea of which"
  981 print"direction you're going, this offers the"
  982 print"best alternative."
  983 print"{down}you stoop down and feel the way the"
  984 print"water is flowing and follow the current"
  985 print"downhill."
  986 gosub 50
  987 print"{down}{down}you travel down the creek for some"
  988 print"time. then, without warning you plunge"
  989 print"into hot water up to your neck.
  990 gosub50
  991 print"{down}instinctively, you reach out in the"
  992 print"darkness and grab hold of something..."
  993 print"{down}a fallen tree."
  994 print"{down}it pulls you along downstream."
  995 gosub60
 1000 print"{clr}what should you do?"
 1002 print"{down}{down}1) let go of the log and swim for"
 1003 print"the bank."
 1005 print"{down}2) swim underwater."
 1007 print"{down}3) hang on."
 1009 gosub 70
 1011 inputd
 1015 ondgoto1030,1030,1035
 1030 print"{clr}the river is filled with debris."
 1031 print"{down}you are crushed in a log jam.":goto700
 1035 print"{clr}the log carries you along until it"
 1036 print"stops at a log jam. the end you are"
 1037 print"holding on to swings around and rests"
 1038 print"on a shallow area beside the bank."
 1040 print"{down}{down}you scramble out of the water."
 1041 print"{down}{down}finally, you can see something....":gosub60
 1042 print"{clr}a dim glow in the distance. it looks"
 1043 print"like a searchlight. then you realize"
 1044 print"that it is the sun shining through the"
 1045 print"ash cloud."
 1046 print"{down}as you go on the ash gets thinner."
 1047 gosub50
 1048 print"{down}{down}finally, the sun breaks through and"
 1049 print"you can see the sky again. up ahead you"
 1050 print"see a ridge, below you is a plateau of"
 1051 print"indescribable devastation...a gray ash"
 1052 print"covered moonscape."
 1053 gosub60
 1060 print"{clr}what should you do?"
 1061 print"{down}{down}1) you are bleeding a little from your"
 1062 print"head and arms. tend to your wounds."
 1063 print"{down}2) go up to the ridge."
 1064 print"{down}3) start down towards the plateau."
 1065 print"{down}4) rest yourself."
 1066 gosub 70
 1067 inputd
 1068 ondgoto1085,1095,1090,1085
 1085 print"{clr}you have wasted valuable time. you fall"
 1086 print"asleep and never wake up.":goto700
 1090 print"{clr}why on earth would you want to go down"
 1091 print"there! poison gas gets you.":goto700
 1095 print"{clr}up on the ridge you can be seen better"
 1096 print"from the air."
 1097 print"{down}{down}once on top you get an even better"
 1098 print"appreciation for the awesome magnitude"
 1099 print"of the volcano. everything below you is"
 1100 print"covered with thick, inpenetrable smoke."
 1101 gosub60
 1105 print"{clr}what should you do?"
 1107 print"{down}{down}1) continue down the mountain."
 1109 print"{down}2) try to attract rescuers."
 1111 gosub70
 1113 inputd
 1115 ondgoto1135,1140
 1135 print"{clr}there is no place to go but back into"
 1136 print"the darkness."
 1137 print"{down}{down}you succumb to smoke inhalation.":goto700
 1140 print"{clr}since you are in an area easily visable"
 1142 print"to rescue helicopters, and everything"
 1144 print"below you is covered with toxic smoke,"
 1145 print"you wisely decide to build a signal"
 1146 print"that can be seen from the air."
 1148 print"{down}you arrange rocks so they spell out"
 1150 print"'s o s' and point a long arrow to a"
 1151 print"small fire."
 1153 print"{down}finished, you fall to the ground"
 1154 print"exhausted, but fighting the urge to"
 1155 print"sleep. you must remain alert for the"
 1156 print"possibility of rescue."
 1158 gosub50
 1160 print"{down}{down}against the rumbling of the volcano"
 1162 print"you hear a new sound...."
 1163 print"{down}also loud, but choppy."
 1165 gosub60
 1167 print"{clr}it's a helicopter ! ! !"
 1169 gosub50
 1170 print"{down}{down}you take off your shirt and wave it"
 1172 print"wildly."
 1173 print"{down}{down}ash falls off you in a small cloud"
 1175 print"as you jump up and down yelling as"
 1177 print"loudly as you can."
 1179 gosub50
 1180 print"{down}{down}they see you as a plaster gray figure"
 1182 print"running around in circles. they lower"
 1183 print"a wicker rescue basket, and you jump in."
 1185 gosub60
 1190 print"{clr}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{rvon}you made it ! !{rvof}"
 1192 print"{down}{down}you beat the mountain. congratulations!"
 1200 end
 9999 print"{clr}"
 10000 dl=1000
 10005 goto10015
 10010 for i=1todl:next:return
 10015 ex$="{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}"
 10020 t1$="MMMMMMMMMMMMMMMMMMMMM"
 10025 t2$="NNNNNNNNNNNNNNNNNNNNN"
 10030 up$="{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
 10035 dn$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 10040 ov$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
 10045 bl$="{rvon}                                        "
 10050 print"{clr}"
 10055 printtab(17)"N{CBM-T}{CBM-T}M"
 10060 printtab(14)"N{CBM-T}{CBM-T}    {CBM-T}M{CBM-@}"
 10065 printtab(12)"N{CBM-T} M       N{CBM-T}M"
 10070 printtab(12)"{CBM-G}   M{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}N   M"
 10075 t=11:u=27
 10080 for i=1to10:printtab(t)"N"tab(u)"M":t=t-1:u=u+1:nexti
 10085 fori=1to200:print"^";:nexti
 10090 gosub 10010
 10095 printleft$(up$,16);left$(ov$,16)"{CBM-*}{rvon}     {rvof}{SHIFT-POUND}"
 10100 printleft$(ov$,15);"{up}{up}{CBM-*}{rvon}       {rvof}{SHIFT-POUND}"
 10105 printleft$(ov$,14);"{up}{up}{CBM-*}{rvon}         {rvof}{SHIFT-POUND}"
 10110 printleft$(ov$,13);"{up}{up}{CBM-*}{rvon}           {rvof}{SHIFT-POUND}"
 10115 printleft$(ov$,12);"{up}{up}{CBM-*}{rvon}             {rvof}{SHIFT-POUND}"
 10120 gosub 10010
 10125 print"{up}{up}";: printleft$(ov$,5);left$(ex$,30)
 10130 o=5:e=30
 10135 for i=1to14:printleft$(ov$,o);left$(ex$,e):o=o+.5:e=e-1:next i
 10140 printleft$(ov$,10);left$(t1$,9);left$(t2$,10)
 10145 dl=500:gosub10010
 10150 print"{up}{up}";:printleft$(ov$,10);left$(ex$,20)
 10155 print"{up}";:printleft$(ov$,9);left$(t1$,11);left$(t2$,11)
 10160 dl=400:gosub10010
 10165 print"{up}{up}";:printleft$(ov$,8);left$(ex$,24)
 10170 print"{up}{up}{up}";:printleft$(ov$,6);left$(ex$,26)
 10175 print"{down}";:printleft$(ov$,9);left$(ex$,22)
 10180 printleft$(ov$,7);left$(t1$,13);left$(t2$,13)
 10185 printup$;:fori=1to20:printbl$;:nexti
 10190 rem printup$;:for i=1to800:print"{rvon} {rvof}";:next
 10195 gosub60
 10200 return
{$7a}{CTRL-B}{CTRL-A}0{stop}1{CTRL-W}vortex 1         {CBM-I}{CTRL-A}{$a0}{$00}{CBM-X}{$00}{CTRL-P}{f1}{CTRL-A}{CBM-X}{$e4}{CTRL-P}{f1}{CTRL-B}{CBM-E}{CTRL-A}{sret}H{down}{$e8}{CBM-X}{$00}{CTRL-P}{f1}{CTRL-A}{CBM-X}{$e4}{CTRL-P}{f1}{CTRL-B}{wht}{CTRL-A}{$f0}{CTRL-Y}{CBM-E}{CTRL-A}l{$e5}{CTRL-U}J{CBM-X}{$00}{CTRL-P}{f1}{CTRL-A}{CBM-X}{$e4}{CTRL-P}{f1}{CTRL-B}{CBM-Z}I{down}{up}{CTRL-A}{$e8}l{CBM-T}{CTRL-B}{$60}{stop}{CTRL-F}{$00} (()*+{CTRL-A}{CTRL-B}{$00}{$63}{$77}{$77}{$63}ui{SHIFT-*}{orng}{CBM-Z}{$00}{CTRL-P}{sret}{$de}{CTRL-B}{CBM-Z}{$e4}{CTRL-P}{sret}{CBM-*}{CTRL-B}{$ea}{$ee}g{stop}{CBM-I}{$e1}{CBM-X}{$e3}{CTRL-P}I{down}{$f0}{down}{CTRL-X}{CBM-X}~{CTRL-O}{$69}p{left}~{CTRL-O}{CBM-X}{$e3}{CTRL-P}{$69}{$00}{left}{$e3}{CTRL-P}JP{$e5}{CBM-Z}{$00}{CTRL-P}{sret}{$de}{CTRL-B}{CBM-Z}{$e4}{CTRL-P}{sret}{CBM-*}{CTRL-B}{$60}{$00}  {$00}{CBM-D}g{stop}{CBM-I}{$e1}{CBM-X}{$e3}{CTRL-P}I{down}{$f0}{down}{CTRL-X}{CBM-X}~{CTRL-O}{$e9}o{left}~{CTRL-O}{CBM-X}{$e3}{CTRL-P}{$e9}{$00}{left}{$e3}{CTRL-P}JP{$e5}{f7}P{$e0}{SHIFT-POUND}{$00}{sret}g{stop}{CBM-Z}{CTRL-D}{CTRL-P}{sret}{$de}{CTRL-B}{CBM-Z}{$e4}{CTRL-P}{sret}{CBM-*}{CTRL-B}{$60}{$00} z{stop}lh{CTRL-V}{CBM-I}{CTRL-P}{SHIFT-POUND}{$00}{f1}{CTRL-A}{SHIFT-POUND}{$80}{f1}{CTRL-B}{SHIFT-POUND} {$a0}'{up}{CTRL-A}{f7}P{$fb}{CTRL-X}{CBM-G}{CTRL-A}{$69}({f1}{CTRL-A}{CBM-G}{CTRL-B}{$69}{$00}{f1}{CTRL-B}JP{$e7}{CBM-I}{dish}{CBM-G}{CTRL-A}{$69}{stop}{f1}{CTRL-A}{SHIFT-POUND} {$a0} {up}{CTRL-A}{f7}P{$fb}{CTRL-X}{CBM-G}{CTRL-A}{$69}({f1}{CTRL-A}{CBM-G}{CTRL-B}{$69}{$00}{f1}{CTRL-B}JP{$e7}{$60}{$00}{CBM-I}{CTRL-G}{SHIFT-POUND}{$73}{f1}{CTRL-A}{SHIFT-POUND}{$83}{f1}{CTRL-B}{$a0} {CBM-E}{CTRL-A}IqP{CTRL-P}{SHIFT-POUND} {up}{CTRL-A}{CTRL-X}{gry2}{$69}({CBM-POUND}{SHIFT-POUND}q{up}{CTRL-A}lE{stop}{f7}P{$e7}{CTRL-X}{CBM-G}{CTRL-A}{$e9}'{f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}JPU 2{home}l{blk}{CTRL-B}{$7e}{CBM-P}?{CBM-V}{CBM-B}{$00}{wht}{CTRL-A}{$00}{$00}{stop}~~~{CTRL-P}{stop}{ensh}{CTRL-P}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{CBM-S}{$78}{$fe}{$ef}{$ef}
{$00}%{CTRL-D}{$00}{$00}{$8f} (c)1982 magic carpet software{$00}i{CTRL-D}{CTRL-A}{$00}{$8f}  po 85153 phoenix, ariz 85069{$00}{$7b}{CTRL-D}{CTRL-B}{$00}{lgrn}"{clr}{CBM-A}";:{orng}x{CBM-R}1{CBM-@}38:{lgrn}"{SHIFT-*}";:{$82}:{lgrn}"{CBM-S}{SHIFT--}"{CBM-+}38)"{SHIFT--}{SHIFT--}"{CBM-+}38)"{SHIFT--}{SHIFT--}";{$00}{CBM-W}{CTRL-D}{stop}{$00}s{CBM-R}59464:so{CBM-R}59466:{gry1}59467,16:{gry1}so,16:{gry1}s,0:t{CBM-R}4323:u{CBM-R}794{$00}{$e1}{CTRL-D}{CTRL-D}{$00}{lgrn}{CBM-+}38)"{SHIFT--}{CBM-Q}";:{orng}x{CBM-R}1{CBM-@}38:{lgrn}"{SHIFT-*}";:{$82}:{lgrn}"{CBM-W}{SHIFT--}"{CBM-+}38)"{SHIFT--}{CBM-Z}";{$00}{$f9}{CTRL-D}{wht}{$00}{orng}x{CBM-R}1{CBM-@}38:{lgrn}"{SHIFT-*}";:{$82}:{lgrn}"{CBM-X}{$00}){wht}{CTRL-F}{$00}{lgrn}"{CBM-A}";:{orng}x{CBM-R}1{CBM-@}18:{lgrn}"{SHIFT-*}";:{$82}:{lgrn}"{CBM-S}":{lgrn}"{SHIFT--}{left}{down}{SHIFT--}"{CBM-+}18)"{SHIFT--}{up}{left}{SHIFT--}{$00}h{wht}{CTRL-G}{$00}{lgrn}"{down}{CBM-Z}";:{orng}x{CBM-R}1{CBM-@}18:{lgrn}"{SHIFT-*}";:{$82}:{lgrn}"{CBM-X}{$00}{$72}{wht}{dish}{$00}{lgrn}"{home}{down}{rght}{rght}UIUIM    N O{CBM-T}P O{CBM-T}P {CBM-T}P{CBM-T}{CBM-T} O{CBM-T}{CBM-T} M N{$00}{cyn}{wht}{ensh}{$00}{lgrn}"{rght}{rght}JKJK M  N  {CBM-G} {CBM-M} {CBM-G}{CBM-@}{SHIFT-@}  {CBM-M}   L{CBM-@}   V  UIUI{$00}M{wht}{$0a}{$00}{lgrn}"{up}{rght}{rght}      MN   L{CBM-@}{SHIFT-@} {CBM-G} M  {CBM-M}   L{CBM-@}{CBM-@} N M JKJK{$00}{$fb}{wht}{CTRL-K}{$00}{lgrn}"{down}{rght}{rght}copyright 1982 magic carpet software{$00}${CTRL-F}{CTRL-L}{$00}{lgrn}"{down}{down}{down}{rght}high score"hs:{lgrn}"{rght}last score"ls{$00}?{CTRL-F}
{$00}{lgrn}{CBM-T}11)"{down}{down}-instructions-{$00}{$79}{CTRL-F}{swlc}{$00}{lgrn}"{down}[..EEDCC{SHIFT-*}F=1  Q=5  {CBM-T}{CBM-Y}{CBM-Y}{CBM-T}{left}{left}{left}{up}UI{down}{rght}=50  {rvon}bonus{rvof}=200..]{$00}{CBM-Y}{CTRL-F}{CTRL-O}{$00}{lgrn}"{rght}{rght}{rght}{rght}move left with 4 key.":{lgrn}{CBM-T}8)"{down}move right with 6 key.{$00}{$f9}{CTRL-F}{CTRL-P}{$00}{lgrn}{CBM-T}12)"{down}hit shift key to fire.":{lgrn}{CBM-T}9)"{down}{down}hit {rvon}any{rvof} key to start{home}{$00}{$0a}{CTRL-G}{down}{$00}{orng}x{CBM-R}1{CBM-@}9:{CBM-K}a$:{$82}{$00}{red}{CTRL-G}{rvon}{$00}{CBM-K}a$:{f6}a${CBM-R}""{CBM-M}18{$00}@{CTRL-G}{home}{$00}{f6}B(4096){CBM-W}{CBM-E}139{CBM-A}B(4324){CBM-W}{CBM-E}128{CBM-M}{yel}798{$00}{$64}{CTRL-G}{del}{$00}{lgrn}"{clr}":e{CBM-R}0:{gry1}t,0:{gry1}734,139:{gry1}735,128{$00}{$7f}{CTRL-G}{CTRL-U}{$00}b{CBM-R}22:c{CBM-R}33:d{CBM-R}{CBM-Q}2:{gry1}929,15{$00}{CBM-C}{CTRL-G}{CTRL-V}{$00}{gry1}5375,6:{gry1}u,0:{gry1}so,16:a{CBM-R}0:b{CBM-R}b{CBM-Q}1:c{CBM-R}c{CBM-Q}4:d{CBM-R}d{CBM-N}2:{f6}c{CBM-W}10{CBM-M}{yel}798:{f2}21{$00}V{CTRL-G}{CTRL-W}{$00}{orng}x{CBM-R}5632{CBM-@}5670:{gry1}x,127:{$82}{$00}{$fa}{CTRL-G}{CTRL-X}{$00}{gry1}716,14:{f6}d{CBM-E}0{CBM-M}{yel}749:{gry1}929,B(929){CBM-Q}2{$00}{CTRL-P}{dish}{CTRL-Y}{$00}{gry1}718,0:{yel}852:{f6}e{CBM-M}41{$00}>{dish}{CTRL-Z}{$00}{orng}x{CBM-R}1{CBM-@}15:{lgrn}:{$82}:{lgrn}"{CBM-POUND}{CBM--}"{CBM-+}35)"{CBM-POUND}{CBM--}":{lgrn}"{CBM-+}{CBM-+}{CBM--}"{CBM-+}33)"{CBM-POUND}{CBM-+}{CBM-+}{CBM--}{$00}{$6e}{dish}{esc}{$00}{lgrn}"{up}{CBM--}{CBM-+}{CBM-+}"{CBM-+}33)"{CBM-POUND}{CBM-+}{CBM-+}{CBM--}{CBM-+}{CBM-+}{CBM-+}{CBM--}"{CBM-+}32)"{CBM-+}{CBM-+}{CBM--}{CBM-+}{CBM-POUND}{CBM-+}{CBM--}"{CBM-+}33)"{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{$00}{gry3}{dish}{red}{$00}{lgrn}"{up}{CBM-+}{CBM-+}{CBM-+}{CBM--}"{CBM-+}32)"{CBM-+}{CBM-+}{CBM--}{CBM-+}{CBM-POUND}{CBM-+}{CBM--}"{CBM-+}33)"{CBM-POUND}{CBM--}{CBM-+}{CBM--} {CBM-J}"{CBM-+}35)"{CBM-M}{CBM-H}{$00}R{dish}{rght}{$00}{orng}x{CBM-R}1{CBM-@}14:{lgrn}"{CBM-T}";:{$82}:{lgrn}"{rvon}score 000000{rvof}";:{orng}x{CBM-R}1{CBM-@}13:{lgrn}"{CBM-T}";:{$82}{$00}{$e8}{dish}{grn}{$00}{gry1}33767,99:e{CBM-R}1:{f2}41{$00}{$f5}{dish}{blu}{$00}{sret}52:{gry1}s,0{$00}{$0a}{ensh} {$00}{yel}5595:{f6}B(t){CBM-R}1{CBM-M}68{$00}{CTRL-Y}{ensh}!{$00}{f6}B(u){CBM-R}1{CBM-M}66{$00}.{ensh}"{$00}{yel}5786:{f6}B(t){CBM-R}1{CBM-M}68{$00}={ensh}#{$00}{f6}B(u){CBM-R}1{CBM-M}66{$00}r{ensh}${$00}{yel}5440:{f6}B(t){CBM-R}1{CBM-M}68{$00}{$61}{ensh}%{$00}{f6}B(u){CBM-R}1{CBM-M}66{$00}{$76}{ensh}&{$00}{yel}4971:{f6}B(t){CBM-R}1{CBM-M}68{$00}{f1}{ensh}'{$00}{f6}B(u){CBM-R}1{CBM-M}66{$00}{rvof}{ensh}({$00}{gry1}s,0:{f2}32{$00}T{ensh}){$00}a${CBM-R}"UI{down}{left}{left}{left}{CBM-T}{CBM-Y}{CBM-Y}{CBM-T}":b${CBM-R}"{left}{left}{left}{left}   N{up}{left}{left}{left}  UN":c${CBM-R}"{up}{left}{CBM-G}{down}{left}{left}U{CBM-H}{down}{left}{left}J{CBM-H}{down}{left}{left} {CBM-G}"{$00}{swlc}{$0a}*{$00}d${CBM-R}"{up}{up}{up}{left}{left}{left}M  {down}{left}{left}{left}JM {down}{left}{left}  {down}{left} {up}{up}{up}":e${CBM-R}"{left}{left}{left}{left}{CBM-@}{CBM-P}{CBM-P}{CBM-@}{down}{left}{left}{left}JK "{$00}z{$0a}+{$00}f${CBM-R}"{up}{left}{left}{left}{left}{left}   N {down}{left}{left}{left}NK":g${CBM-R}"{up}{left}{left}{CBM-M} {down}{left}{left}{CBM-N}I{left}{left}{down}{CBM-N}K{left}{left}{down}{CBM-M}":h${CBM-R}"{up}{up}{up}{left} {down}{left}MI{down}{left}{left} M{down}{left}{left} "{$00}{CBM-@}{$0a},{$00}i${CBM-R}"{up}{up}{left}  {down}{left}"{CBM-N}a$:j${CBM-R}"{left}{left}{left}{left} {up} ":{lgrn}"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}"a$;:k${CBM-R}"{left}{left}{left}{left}    {up}{up}{left}{left}{left}{left}"{$00}{SHIFT-*}{$0a}-{$00}{orng}x{CBM-R}9{CBM-@}b:{lgrn}j$a$;:{sret}50:{$82}:{sret}50{$00}{$e8}{$0a}.{$00}{lgrn}b$;:{sret}50:{lgrn}c$;:{sret}50:{lgrn}d$;:{sret}50:{lgrn}e$;:{sret}50{$00}{CTRL-P}{CTRL-K}/{$00}{lgrn}f$;:{sret}50:{lgrn}g$;:{sret}50:{lgrn}h$;:{sret}50:{lgrn}i$;:{sret}50{$00}<{CTRL-K}0{$00}{f6}a{CBM-R}0{CBM-M}{orng}x{CBM-R}c{CBM-@}9{SHIFT-POUND}{CBM-Q}2:{sret}50:{lgrn}k$a$;:{$82}:a{CBM-R}1:{sret}50:{f2}45{$00}k{CTRL-K}1{$00}{gry1}so,30:{f2}31{$00}{$62}{CTRL-K}2{$00}{f6}x{CBM-Z}3{CBM-R}{CBM-J}(x{CBM-Z}3){CBM-M}{gry1}s,x{CBM-D}6{$00}{$72}{CTRL-K}3{$00}{orng}z{CBM-R}1{CBM-@}20:{$82}:{swuc}{$00}{sret}{CTRL-K}4{$00}{lgrn}"{home}";:{orng}x{CBM-R}1{CBM-@}d{CBM-N}2:{lgrn}"{down}";:{$82}{$00}{CBM-V}{CTRL-K}5{$00}{gry1}s,80:{lgrn}"{rght}{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}RFF{SHIFT-*}{SHIFT-*}CCDDEE{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}FFFR{CBM-@}{CBM-@}{$00}{CBM-*}{CTRL-K}6{$00}{lgrn}"{rght}{rght}{rght}C"{CBM-+}32)"C":{lgrn}"{rght}{rght}{rght}{SHIFT-*}"{CBM-+}32)"{SHIFT-*}{$00}{$0a}{CTRL-L}7{$00}{lgrn}"{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}FFRR{CBM-@}{CBM-@}{CBM-@}{CBM-@}RRF{SHIFT-*}{SHIFT-*}CCDDEE{CBM-T}{CBM-T}{$00}%{CTRL-L}8{$00}{lgrn}"{home}";:{orng}x{CBM-R}1{CBM-@}d{CBM-N}1:{lgrn}"{down}";:{$82}{$00}v{CTRL-L}9{$00}{gry1}s,70:{lgrn}"{rght}{rght}{rght}{CBM-@}{CBM-@}{CBM-@}RRRFF{SHIFT-*}{SHIFT-*}CCDDEE{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}FFFRR{CBM-@}{CBM-@}{$00}{$75}{CTRL-L}:{$00}{lgrn}"{rght}{rght}F"{CBM-+}33)"F":{lgrn}"{rght}{rght}{SHIFT-*}"{CBM-+}34)"{SHIFT-*}{$00}{brn}{CTRL-L};{$00}{lgrn}"{rght}{rght}{SHIFT-*}"{CBM-+}34)"{SHIFT-*}":{lgrn}"{rght}{rght}{rght}{SHIFT-*}"{CBM-+}33)"{SHIFT-*}{$00}A{CTRL-L}<{$00}{lgrn}"{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}FFRR{CBM-@}{CBM-@}{CBM-@}RRFF{SHIFT-*}{SHIFT-*}CDDEEE{CBM-T}{CBM-T}{$00}{CBM-*}{CTRL-L}={$00}{lgrn}"{home}";:{f6}d{CBM-E}0{CBM-M}{orng}x{CBM-R}1{CBM-@}d:{lgrn}"{down}";:{$82}{$00}{rght}
>{$00}{gry1}s,60:{lgrn}"  {CBM-@}{CBM-@}{CBM-@}RRRFF{SHIFT-*}{SHIFT-*}CCDDEE{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}{SHIFT-*}FFRR{CBM-@}{CBM-@}{CBM-@}":{lgrn}"{rght}{SHIFT-*}"{CBM-+}34)"{SHIFT-*}{$00}g
?{$00}{lgrn}" {SHIFT-*}"{CBM-+}35)"{SHIFT-*}":{lgrn}" C"{CBM-+}36)"C":{lgrn}" F"{CBM-+}36)"{SHIFT-*}{$00}{$67}
@{$00}{lgrn}"  {SHIFT-*}"{CBM-+}35)"{SHIFT-*}":{lgrn}"   {SHIFT-*}"{CBM-+}34)"{SHIFT-*}{$00}{lgrn}
a{$00}{lgrn}"    {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}EEDDCC{SHIFT-*}{SHIFT-*}FFRR{CBM-@}{CBM-@}{CBM-@}RFF{SHIFT-*}{SHIFT-*}CCDDEE{CBM-T}{CBM-T}{CBM-T}{home}";:{swuc}{$00}{CBM-W}
b{$00}{gry1}5915,96:z{CBM-R}1:{f6}d{CBM-E}7{CBM-M}z{CBM-R}4{$00}{$e0}
c{$00}{orng}x{CBM-R}1{CBM-@}50{CBM-D}z:{yel}5840:{gry1}s,200{CBM-Q}x:{$82}:{gry1}5915,234:{f2}22{$00}{esc}{swlc}d{$00}z{CBM-R}1:ls{CBM-R}0:{orng}x{CBM-R}33753{CBM-@}33748{SHIFT-POUND}{CBM-Q}1:ls{CBM-R}ls{CBM-N}(B(x){CBM-Q}176){CBM-D}z:z{CBM-R}z{CBM-D}10:{$82}{$00},{swlc}e{$00}{f6}ls{CBM-E}hs{CBM-M}hs{CBM-R}ls{$00}3{swlc}f{$00}{f2}2{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}{$00}x{$00}{$82}{$00}{$00}{$00} {$00}{del}{SHIFT-POUND}{CTRL-G}{sret}{$70}{del}{SHIFT-POUND}0{sret}h{$e8}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{$f7}{CTRL-O}{up}{CTRL-A}JP{$f5} {CBM-S}{home} %{home}{CTRL-X}{CBM-G}{CTRL-A}{$e9}'{f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}N{$70}{del}P{SHIFT-+}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{$a0}{home}{up}{CTRL-A}JP{$f5} {CBM-S}{home}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{CBM-+}{home}{up}{CTRL-A}JP{$f5}{SHIFT-POUND}~{sret}h{$e8} {CBM-S}{home}{SHIFT-POUND}{CTRL-G}{sret}{$70}{del}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{$a0}{home}{up}{CTRL-A}JP{$f5} {CBM-S}{home} %{home}{CTRL-X}{CBM-G}{CTRL-A}{$69}({f1}{CTRL-A}{CBM-G}{CTRL-B}{$69}{$00}{f1}{CTRL-B}N{$70}{del}P{SHIFT-+}{SHIFT-POUND} {CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{CBM-+}{home}{up}{CTRL-A}JP{$f5} {CBM-S}{home} {CBM-S}{home} {CBM-S}{home} {CBM-S}{home}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{$a0}{home}{up}{CTRL-A}JP{$f5}{SHIFT-POUND}{swlc}{sret}j{$e8} {CBM-S}{home}{$60}{CBM-S}{home}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CTRL-A}w{$83}'()opq{$6c}W{$7b}{$e2}{$63}{$fc}{CBM-N}{CBM-N}K{brn}{lred}{gry1}{gry2}{lgrn}{lblu}{gry3}{pur}{left}{yel}{cyn}{$a0}{CBM-K}{CBM-I}{CBM-T}{CBM-@}{CBM-G}{CBM-+}{CBM-M}{CBM-POUND}{SHIFT-POUND}{CBM-N}{CBM-Q}{CBM-D}{CBM-Z}{CBM-S}{CBM-P}{CBM-A}{CBM-E}{CBM-R}{CBM-W}{CBM--}{CTRL-D}+*)('&%$#"! {blu}{grn}{rght}{red}{esc}{CTRL-Z}{CTRL-Y}{CTRL-X}{CTRL-W}{CTRL-V}{CTRL-U}{del}{home}{rvon}{down}{CTRL-P}{CTRL-O}{swlc}
{CTRL-L}{$e3}{CBM-F}{inst}H{rvof}{SHIFT-@}{$e2}{CTRL-K}456789:;<=>?@abcdefghijklmnopqrst-{wht}{SHIFT--}{CBM-H}{f6}{f4}{f2}{f7}{f5}{f3}{f1}{$84}{$83}{$82}{orng}{$80}{$7f}{$7e}{$7d}{$7c}{$7b}{$7a}{$79}{$78}{$77}{$76}{$75}{$74}{$73}{$72}{$71}{$70}{$6f}{$6e}{$6d}{$6c}{$6b}H{$69}bcdefghijklmnopqrstuvwxyz[\]^_{$60}{$61}{$62}{$63}{f8}{CBM-J}{$de}{CTRL-F}.v{$7d}{$7c}{$7b}{$7a}{$79}{$78}{$77}{$76}{$75}{$74}{$73}{$72}{$71}{$70}{$6f}{$6e}{$6d}{$6c}{$6b}{$6a}{$69}{$68}{$67}{$66}{$65}{$64}{$63}{$62}{$61}{$60}_^]\3{$0a}{$e1}{CBM-O}{up}H{$00}{CTRL-A}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{orng}{orng}{orng}{down}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{down}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{orng}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{$82}{orng}{orng}{orng}{down}{$00}{$00}  {$00}{$00}{CBM-I}{CTRL-F}{CBM-Z}{$de}{CTRL-B}{f1}{CTRL-A}{CBM-Z}{CBM-*}{CTRL-B}{f1}{CTRL-B}{CBM-C}P{CTRL-B}{CBM-E}{CTRL-A}I P{stop}l{$7a}{del}{SHIFT-POUND} {up}{CTRL-A}JP{$ed}{CBM-Z}W{CTRL-B}P${CBM-Z}L{CTRL-B}P{dish}{SHIFT-POUND}{CTRL-A}{sret}W{CTRL-B}l#{rvon}NL{CTRL-B}{CTRL-X}{CBM-Z}{$de}{CTRL-B}{$e9}{$00}{sret}{$de}{CTRL-B}{CBM-Z}{CBM-*}{CTRL-B}{$e9}{$00}{sret}{CBM-*}{CTRL-B}l7{rvon}{CBM-Z}L{CTRL-B}I{CTRL-Z}P{dish}{SHIFT-POUND}{$00}{sret}W{CTRL-B}l{$fd}{down}{$ee}L{CTRL-B}{CTRL-X}{CBM-Z}{$de}{CTRL-B}{$69}{CTRL-A}{sret}{$de}{CTRL-B}{CBM-Z}{CBM-*}{CTRL-B}{$69}{$00}{sret}{CBM-*}{CTRL-B}{CBM-I}{CTRL-F}{CBM-Z}{$de}{CTRL-B}{f1}{CTRL-A}{CBM-Z}{CBM-*}{CTRL-B}{f1}{CTRL-B}{CBM-C}P{CTRL-B}{CBM-E}{CTRL-A}I]P{stop}l{$7a}{del}{CBM-X}W{CTRL-B}{up}{CTRL-A}JP{$ec} {$a0}{stop}{$ea}{$ea}{$ea}{SHIFT-POUND}{gry3}{f1}{CTRL-A}{SHIFT-POUND}{$83}{f1}{CTRL-B}{$a0}"{CBM-E}{CTRL-A}IqP{stop}lc{del}{f7}P{$f4}{CBM-Z}{$e3}{CTRL-P}{$f0}{stop}lt{swlc}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-E}{CTRL-A}{SHIFT--}{$f7}{CTRL-O}{$f0}{dish}{SHIFT-POUND}{CTRL-A}{sret}{$e3}{CTRL-P}lt{swlc}JP{$eb}{CBM-Z}{$ef}{CTRL-O}P{rvon}{SHIFT-POUND}{$e2}{sret}{$fb}{CTRL-O}{SHIFT-POUND}{$fc}{sret}{$fd}{CTRL-O}{SHIFT-POUND}{CTRL-A}{sret}{$ef}{CTRL-O}lD{rvon}{SHIFT-POUND}{$fe}{sret}{$fb}{CTRL-O}{SHIFT-POUND}{$e2}{sret}{$fd}{CTRL-O}{SHIFT-POUND}{$00}{sret}{$ef}{CTRL-O}{$ea}{$ea}{CBM-Z}{gry1}{$00}I~{$f0}8h {esc}{home}{$68}I*P{stop}l{$ec}{rvon}I4P{stop}l{$ec}{rvon}I)P{stop}l{$f9}{rvon}I6P{CTRL-Z}l{$f9}{rvon}{CBM-Z}{$f0}{CTRL-O}Im{$f0}{CTRL-P}N{$f0}{CTRL-O}l{stop}{home}{CBM-Z}{$f0}{CTRL-O}I{$69}{$f0}{stop}{$ee}{$f0}{CTRL-O}l'{CTRL-V}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-X}{$f7}{CTRL-O}{up}{CTRL-A}JP{$f5}{$60}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{SHIFT-POUND} {CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{up}{CTRL-A}JP{$f8}{$60}{CBM-I}{stop}{CBM-Z}{SHIFT-+}{CTRL-P}{$69}{$00}{f1}{CTRL-A}{CBM-Z}{CBM-B}{down}{f1}{CTRL-B}{$a0}{rght}{CBM-E}{CTRL-A}IqP{CTRL-P}H{CBM-E}{CTRL-A}{f7}{up}{CTRL-A}{gry2}{$69}'{CBM-POUND}{SHIFT-POUND}q{up}{CTRL-A}P{stop}{f7}P{$e7}{CTRL-X}{CBM-G}{CTRL-A}{$e9}'{f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}JPU{CBM-Z}{$de}{CTRL-B}{$69}o{f1}{CTRL-A}{CBM-Z}{CBM-*}{CTRL-B}{$69}{$00}{f1}{CTRL-B}{$a0}({CBM-E}{CTRL-A}I {$f0}{CTRL-X}{CBM-Z}{CBM-K}{stop}M~{del}{$f0}{CTRL-D}{$ee}~{del}{$60}{SHIFT-POUND}{CTRL-D}{sret}~{del}{$a0}{$00}{SHIFT-POUND}q{up}{CTRL-A}{$60} {orng}{home}l{orng}{home}{$00}{$7b}{$7b}W{$6c}{$e2}{$e2}{$e2}{$79}{$79}{$79}{$7e}W{$7c}o{CBM-I}{CTRL-D} 3{del}JP{$fa}{$60}{$00}{$00}{$00}b{$00}{f1}({$00}{$00}{$00}c{$00}{f1}{$68}{$00}{$00}{$00}d{$00}{$00}{$00}{$00}{$00}{$00}a{$00}{orng}{$00}{$00}{$00}{$00}b{$80}{CTRL-P}{$7f}{dish}{$00}{$00}c{$80}{rvon}{brn}{dish}{$00}{$00}d{$80}{esc}{CBM-E}{dish}{$00}{$00}e{$80}{CTRL-O}R{dish}{$00}{$00}f{$80}{down}{$eb}{dish}{$00}{$00}g{$80}{home}{CTRL-B}{ensh}{$00}{$00}{f8}P{CTRL-B}{CBM-G}{CTRL-A}{$6d}P{CTRL-B}{$e9}{$7a}{f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}{CBM-I}{rvon}{CBM-C}~{del}{CBM-X}{down}{CTRL-U}{up}{CTRL-A}JP{$f5} 0{del}{SHIFT-POUND} {CBM-I}{rvon}{CBM-C}~{del}{up}{CTRL-A}JP{$f8}{SHIFT-POUND}~{sret}h{$e8}NN{CTRL-B}P{$fb}NM{CTRL-B}P{$f6}{SHIFT-POUND}{CTRL-F}{sret}M{CTRL-B}{$60} {$00}{del}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{$a0}({CBM-E}{CTRL-A}IWP{CTRL-F}l{pur}{rvon}l{pur}{rvon}{SHIFT-POUND}{CTRL-A}{sret}{$e3}{CTRL-P}{SHIFT-POUND}({sret}h{$e8}lt{swlc}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-Z}{$de}{CTRL-B}{$e9}p{f1}{CTRL-A}{CBM-Z}{CBM-*}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}{CBM-I}{CTRL-Z}{CBM-C}{CBM-P}{del}{CBM-X}I{del}{up}{CTRL-A}{sret}h{$e8} 3{del}JP{$ef}{CBM-I}{CTRL-Z}{CBM-C}{CBM-P}{del}{SHIFT-POUND} {up}{CTRL-A} 3{del}JP{$f3}{SHIFT-POUND}{CTRL-A}{sret}{CTRL-Z}{stop}{$60}*{CTRL-B}'%{$a0}{CBM-I}{cyn}{left}{$73}{$7a}{$75}lpqm,({$7b}sn{$76}roH{$78}{$79}{$7c}{$7c}{$7e}{$7f}{$6c}{$6c}{$6c}{$7b}{$6c}{$6c}{$7c}{$7c}{$7b}{$7b}{$7e}{$7c}{$6c}{$6c}{$7e}{$7b}{$6c}{$6c}{$6c}{$7c}{$7c}{$6c}{CBM-N}{CBM-N}lP{CTRL-V}{$60}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{wht}{$00}{CTRL-A}{CTRL-B}{stop}{CTRL-D}()*+,pqrst{$79}{$7a}{$7b}{$e9}{$a0}{$a0}{$a0}{CBM-*}{$a0}{$a0}{$a0}{$a0}{$a0}_{$69}{$a0}_{$69}{$e9}{$a0}{CBM-*}{CBM-N}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{$a0}{$00}{CBM-E}{CTRL-A}I P<{SHIFT-POUND}]{up}{CTRL-A}l{$73}{CTRL-U}{CBM-N}{CBM-N}{CBM-Z}{gry2}{$00}P{CTRL-F}{sret}{$e4}{stop}l{$73}{CTRL-U}{CBM-Z}{$e4}{stop}P#{$ee}{$e4}{stop}{CBM-I}{CTRL-G}{CBM-X}{CTRL-O}{CTRL-V}I{$7f}P{del}{CBM-Z}{$f0}{CTRL-O}{left}{$00}{CTRL-V}{CBM-Z}{$f1}{CTRL-O}{left}{CTRL-O}{CTRL-V}{SHIFT-POUND}{$64}{sret}h{$e8}l%{CTRL-U}JP{$e2}{CBM-I}{CTRL-G}{CBM-X}{CTRL-O}{CTRL-V}I{$7f}{$f0}y{f1}{CTRL-B}{CBM-X}{$00}{CTRL-V}{f1}{CTRL-A}{$a0}{$00}{CBM-E}{CTRL-A}l{$f3}{CTRL-U}{$ea}lp{CTRL-V}{CTRL-L}i{$80}{up}{CTRL-A}{SHIFT-POUND}{wht}{sret}{$e5}{stop}l{CBM-I}{CTRL-U}i{$80}{up}{CTRL-A}{$ee}{$e5}{stop} 3{del}{SHIFT-POUND}{$7f}{left}{CTRL-O}{CTRL-V}{SHIFT-POUND} {up}{CTRL-A}lU{CTRL-U}{SHIFT-POUND} {up}{CTRL-A}{CTRL-X}{CBM-G}{CTRL-A}{$e9}'{f1}{CTRL-A}{left}{$00}{CTRL-V}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}{left}{CTRL-O}{CTRL-V}{CBM-E}{CTRL-A}I {$f0}{stop}l{f6}{CTRL-U}{SHIFT-POUND}]{up}{CTRL-A}JP{left}l{pur}{rvon} L{down}l@{CTRL-U}{CBM-N}{CBM-N}{CBM-N}{CBM-N}I]P{stop}l{CBM-T}{CTRL-B}{sret}I{down}l{CBM-Y}{CTRL-B}{CBM-N}I]{$f0}{SHIFT-@}I {$f0}{CBM-L}lp{CTRL-V}{CBM-N}{CBM-N}{$7f}{$7f}{$7f}{$7f}{$7f}{$6d}@/{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{$7f}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}{CBM-Z}{$f1}{CTRL-O}{f1}{CTRL-B}{CBM-I}{CTRL-F}{CBM-C}{$f1}{CTRL-O}{CBM-E}{CTRL-A}IqP{ensh}{$ea}{SHIFT-POUND}{CTRL-A}{sret}{$e3}{CTRL-P}lt{swlc}JP{$eb}{CBM-Z}{$f0}{CTRL-O}{f1}{CTRL-A}l{dish}{home}{CTRL-X}{CBM-G}{CTRL-A}{$e9}{CTRL-A}{f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}{$a0}{stop}{CBM-E}{CTRL-A}I {$f0}{home}IqP{CTRL-L}{$ee}{$e5}{stop}{$ee}{$e5}{stop}{$ee}{$e5}{stop}{$ee}{$e5}{stop}{$ee}{$e5}{stop}i{$80}{up}{CTRL-A}{sret}h{$e8}{f7}P{SHIFT--} 3{del}{SHIFT-POUND} {$a0}{stop}{up}{CTRL-A}{f7}P{$fb}l{CBM-G}{CTRL-U}lt{swlc}l{$00} {$00}{$00}{$00}{CBM-I}{stop}{CBM-Z}{CTRL-A}{CTRL-P}{f1}{CTRL-A}{CBM-Z}{$e5}{CTRL-P}{f1}{CTRL-B}{$a0}{$00}{CBM-E}{CTRL-A}I P{$0a}{f7}{f7}{f7}{CBM-E}{CTRL-A}HHH{up}{CTRL-A}{CBM-G}{CTRL-A}{$e9}({f1}{CTRL-A}{CBM-G}{CTRL-B}{$e9}{$00}{f1}{CTRL-B}JP{$e1}{CBM-Z}{$e5}{stop}{$f0}]{$ea}{CBM-D}{$e5}{stop}{$ee}Y{$83}{CBM-Z}Y{$83}I{SHIFT-@}Pa{SHIFT-POUND}{CBM-A}{sret}Y{$83}{$ee}X{$83}{CBM-Z}X{$83}I{SHIFT-@}P2{SHIFT-POUND}{CBM-A}{sret}X{$83}{$ee}W{$83}{CBM-Z}W{$83}I{SHIFT-@}P#{SHIFT-POUND}{CBM-A}{sret}W{$83}{$ee}V{$83}{CBM-Z}V{$83}I{SHIFT-@}P{del}{SHIFT-POUND}{CBM-A}{sret}V{$83}{$ee}U{$83}{CBM-Z}U{$83}I{SHIFT-@}P{wht}{SHIFT-POUND}{CBM-A}{sret}U{$83}{$ea}{$ea}{$ea}{$ea}{$ea}{$ea}{SHIFT-POUND}{lred}{sret}h{$e8}{f7}P{CBM-M}{SHIFT-POUND}{$00}{sret}{$e5}{stop}l{blk}{CTRL-B}x{$00}{$84} {$00}{$00}{$00}s{$00}{blk}{$68}h{$00}{$00}so{blk}{$68}j{$00}{$00}t{$00}{sret}{CTRL-G}{CTRL-X}{$00}{$00}u{$00}{f4}f{$80}{$00}{$00}a{$80}{$00}{$00}{$00}{$00}{$00}e{$00}{orng}{$00}{$00}{$00}{$00}b{$00}{f1}{dish}{$00}{$00}{$00}c{$00}{$84}p{$00}{$00}{$00}d{$00}{$84}{$00}{$00}{$00}{$00}a{$00}{orng}{$00}{$00}{$00}{$00}b{$80}{CTRL-P}{CBM-N}{ensh}{$00}{$00}c{$80}{rvon}{SHIFT-*}{ensh}{$00}{$00}d{$80}{esc}{CBM--}{ensh}{$00}{$00}e{$80}{CTRL-O}{$fd}{ensh}{$00}{$00}f{$80}{down}{CTRL-V}{$0a}{$00}{$00}g{$80}{home}-{$0a}{$00}{$00}h{$80}{rvon}f{$0a}{$00}{$00}i{$80}{down}{$7e}{$7e}{$00}{$00}j{$80}{CTRL-G}{$72}{$0a}{$00}{$00}k{$80}{swlc}{inst}{$0a}{$00}{$00}z{$00}{inst}{$74}${$00}{$00}ls{f8}o{$60}{$00}{$00}hs{f8}o{$60}{$00}{$00}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}{CBM-N}1{$fa}{stop}{CBM-@}W{$00}~~~{$00}g{CTRL-D}{$0a}{$00}{$8f} voyager for cbm 40 and 80 col,special thanks to jim butterfield{$00}{sret}{CTRL-D}{del}{$00}sx%{CBM-R}0:ex%{CBM-R}0:sy%{CBM-R}0:ey%{CBM-R}0:nl%{CBM-R}15:ns%{CBM-R}3:ng%{CBM-R}10:cc%{CBM-R}0:sp%{CBM-R}100:ch%{CBM-R}sp%{$00}R{CTRL-D}{CTRL-U}{$00}xm%{CBM-R}60:ym%{CBM-R}42:xw%{CBM-R}30:yw%{CBM-R}21:ze%{CBM-R}0:mr%{CBM-R}5:mz%{CBM-R}3:{f3} ma%(mr%,mr%,mz%){$00}{del}{wht}{CTRL-V}{$00}mc%{CBM-R}(mr%{CBM-N}1){CBM-S}2:{f3} fg%(14):fg%(0){CBM-R}1:{orng}x{CBM-R}1{CBM-@}14:fg%(x){CBM-R}fg%(x{CBM-Q}1){CBM-D}2:{$82}x{$00}v{wht}{CTRL-W}{$00}ti%{CBM-R}60:hp%{CBM-R}100:{f3} dx%(3):{f3} dy%(3):dx%(1){CBM-R}1:dx%(3){CBM-R}{CBM-Q}1:dy%(0){CBM-R}{CBM-Q}1{$00}{blk}{wht}{CTRL-X}{$00}dy%(2){CBM-R}1:{f3} mo%(3):mo%(0){CBM-R}2:mo%(1){CBM-R}3:mo%(2){CBM-R}0:mo%(3){CBM-R}1{$00}{CBM-A}{wht}{CTRL-Y}{$00}{lgrn}"{clr}";:{lred}{CBM-G}rn(x){CBM-R}{CBM-J}((x{CBM-N}1){CBM-D}{CBM-F}(x)){$00}{SHIFT-+}{wht}{CTRL-Z}{$00}lx%{CBM-R}{CBM-G}rn(mr%):ly%{CBM-R}{CBM-G}rn(mr%):lz%{CBM-R}{CBM-G}rn(mz%){$00}{$fb}{wht}{esc}{$00}t2%{CBM-R}31:hs%{CBM-R}65:hc%{CBM-R}71:hg%{CBM-R}77{$00}h{CTRL-F}{red}{$00}{f6}B(50000){CBM-R}46{CBM-M}xw%{CBM-R}xw%{CBM-D}2:xm%{CBM-R}xm%{CBM-D}2:t2%{CBM-R}t2%{CBM-D}2:hs%{CBM-R}hs%{CBM-D}2:hc%{CBM-R}hs%{CBM-N}6:hg%{CBM-R}hc%{CBM-N}6{$00}{f5}{CTRL-F}{rght}{$00}ht${CBM-R}"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}":ht${CBM-R}ht${CBM-N}ht${$00}C{CTRL-F}{grn}{$00}{$83} 160,24,177,42,153,32,1,136,208,248,162,14,56,189,42,1{$00}{$fa}{CTRL-F}{blu}{$00}{$83} 253,35,1,157,43,1,16,4,73,255,105,1,157,44,1,138{$00}4{CTRL-G} {$00}{$83} 56,233,14,170,16,231,173,44,1,205,58,1,176,3,173,58{$00}{$6f}{CTRL-G}!{$00}{$83} 1,133,192,162,14,152,157,46,1,189,44,1,160,9,197,192{$00}{SHIFT-POUND}{CTRL-G}"{$00}{$83} 144,2,229,192,62,46,1,62,45,1,10,136,208,240,189,43{$00}{CBM-*}{CTRL-G}#{$00}{$83} 1,16,17,56,169,0,253,46,1,157,46,1,169,0,253,45{$00}{CTRL-Z}{dish}${$00}{$83} 1,157,45,1,169,128,157,36,1,138,56,233,14,170,16,197{$00}[{dish}%{$00}{$83} 230,192,132,191,132,187,132,189,173,49,1,74,38,191,133,190{$00}{lblu}{dish}&{$00}{$83} 10,10,101,190,162,3,10,38,189,202,208,250,133,188,173,35{$00}Z{dish}'{$00}{$83} 1,74,38,191,101,188,133,188,169,128,101,189,133,189,56,38{$00}{CTRL-Y}{ensh}({$00}{$83} 187,198,191,16,250,177,188,162,15,221,89,3,240,3,202,208{$00}u{ensh}){$00}{$83} 248,138,5,187,5,187,170,189,89,3,145,188,24,162,1,189{$00}{sret}{ensh}*{$00}{$83} 35,1,125,45,1,157,35,1,202,16,244,24,162,1,189,49{$00}H{ensh}+{$00}{$83} 1,125,59,1,157,49,1,202,16,244,198,192,208,148,96,32{$00}{dish}{$0a},{$00}{$83} 126,124,226,123,97,255,236,108,127,225,251,98,252,254,160{$00}{CTRL-X}{$0a}-{$00}t3%{CBM-R}xw%{CBM-Z}2{CBM-Q}5{$00}#{$0a}2{$00}{sret} 1100{$00}{$64}{$0a}{lred}{$00}vt%{CBM-R}4:ht%{CBM-R}5:{sret} 9600:{lgrn}"the voyager program":vt%{CBM-R}6:ht%{CBM-R}7:{sret} 9600{$00}{swuc}{$0a}{gry3}{$00}{lgrn}"an avalon hill":vt%{CBM-R}10:ht%{CBM-R}3:{sret} 9600{$00}{SHIFT-@}{$0a}{yel}{$00}vt%{CBM-R}8:ht%{CBM-R}5:{sret}9600:{lgrn}"microcomputer game"{$00}{$de}{$0a}{$a0}{$00}vt%{CBM-R}12:ht%{CBM-R}3:{sret}9600:vt%{CBM-R}13:ht%{CBM-R}5{$00}{$fa}{$0a}{CBM-G}{$00}{sret}9600:{lgrn}"new game y/n?";{$00}{rght}{CTRL-K}{CBM-N}{$00}{CBM-K} a$:{f6} a${CBM-W}{CBM-E}"y" {CBM-P} a${CBM-W}{CBM-E}"n" {CBM-M} 170{$00}>{CTRL-K}{CBM-P}{$00}{lgrn}a$;:{f6} a${CBM-R}"n" {CBM-M} {sret} 5000:{f2} 185{$00}i{CTRL-K}{CBM-H}{$00}{sret} 2000{$00}{f2}{CTRL-K}{CBM-O}{$00}{f3}dr$(3):dr$(0){CBM-R}"{rvon}u{rvof}":dr$(1){CBM-R}"{rvon}r{rvof}":dr$(2){CBM-R}"{rvon}d{rvof}":dr$(3){CBM-R}"{rvon}l{rvof}"{$00}{CBM-P}{CTRL-K}H{$00}{f3}ss$(9):{orng}x{CBM-R}0{CBM-@}9:{f5} a$:ss$(x){CBM-R}a$:{$82} x{$00}U{CTRL-K}R{$00}{f3}ep$(9):{orng}x{CBM-R}0{CBM-@}9:{f5} a$:ep$(x){CBM-R}a$:{$82} x{$00}{CTRL-G}{CTRL-L}{CBM--}{$00}{f3}ro$(9,1):{orng}y{CBM-R}0{CBM-@}1:{orng}x{CBM-R}0{CBM-@}9:{f5}a$:ro$(x,y){CBM-R}a$:{$82}x:{$82}y{$00}-{CTRL-L}{$e6}{$00}{f3}lr$(9):{orng}x{CBM-R}0{CBM-@}9:{f5} a$:lr$(x){CBM-R}a$:{$82} x{$00}s{CTRL-L}{$f0}{$00}{f3}el$(9):{orng}x{CBM-R}0{CBM-@}9:{f5} a$:el$(x){CBM-R}a$:{$82} x{$00}{$79}{CTRL-L}{$fa}{$00}{f3}ge$(9):{orng}x{CBM-R}0{CBM-@}9:{f5} a$:ge$(x){CBM-R}a$:{$82} x{$00}{$84}{CTRL-L}{CTRL-D}{CTRL-A}x{CBM-R}{CBM-U}(0){$00}{gry2}{CTRL-L}^{CTRL-A}{$83}  " {CBM-B}   PO   "{$00}{CBM-D}{CTRL-L}{$63}{CTRL-A}{$83}  " {CBM-L}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-J} "{$00}{SHIFT-*}{CTRL-L}{$68}{CTRL-A}{$83}  " {CBM-L} {CBM-O}{CBM-O}   {CBM-J} "{$00}T{CTRL-L}{$6d}{CTRL-A}{$83}  " {CBM-L} {CBM-J}{CBM-L}   {CBM-J} "{$00}{$e8}{CTRL-L}{$72}{CTRL-A}{$83}  " {CBM-L} {CBM-U}{CBM-U}   {CBM-J} "{$00}{$fc}{CTRL-L}{$77}{CTRL-A}{$83}  " {CBM-C}{CBM-U}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-U}{CBM-V} "{$00}{CTRL-P}
{$7c}{CTRL-A}{$83}  "  {SHIFT-POUND} {CBM-+}{CBM-+} {CBM-*}  "{$00}$
{orng}{CTRL-A}{$83}  "  {CBM-J} NM {CBM-L}  "{$00}8
{f3}{CTRL-A}{$83}  "  {CBM-J}    {CBM-L}  "{$00}l
{f6}{CTRL-A}{$83}  " {CBM-U}{CBM-U}    {CBM-U}{CBM-U} "{$00}_
{blk}{CTRL-A}{$83} "{CBM-D}  {CBM-V} {CBM-F}  {CBM-C} "{$00}{$72}
{brn}{CTRL-A}{$83} "  {CBM-F}    {CBM-D}  "{$00}{f1}
{lblu}{CTRL-A}{$83} " {CBM-F}   {CBM-C}    "{$00}{gry2}
{cyn}{CTRL-A}{$83} "   {CBM-C}   {CBM-C}  "{$00}{CBM-Q}
{CBM-@}{CTRL-A}{$83} " {CBM-V}   {CBM-F} {CBM-C}  "{$00}{CBM-V}
{SHIFT-POUND}{CTRL-A}{$83} "  {CBM-D}    {CBM-F}  "{$00}Q
{CBM-S}{CTRL-A}{$83} "{CBM-F}  {CBM-D} {CBM-V}   {CBM-F}"{$00}{$e4}
{CBM-W}{CTRL-A}{$83} " {CBM-F}   {CBM-F} {CBM-V}  "{$00}{$f7}
{CBM-U}{CTRL-A}{$83} "  {CBM-D}    {CBM-D}  "{$00}{$0a}{swlc}{CBM-X}{CTRL-A}{$83} " {CBM-F}  {CBM-D}   {CBM-D} "{$00}{rght}{swlc}B{CTRL-A}{$83} "  {CBM-R}    {CBM-A}  "{$00}0{swlc}G{CTRL-A}{$83} "  {CBM-L}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-B}  "{$00}c{swlc}L{CTRL-A}{$83} "  {SHIFT-POUND} {CBM-V} {CBM-C} {CBM-*} "{$00}v{swlc}Q{CTRL-A}{$83} "  {CBM-B}  {CBM-U}  {SHIFT-@} "{$00}{$69}{swlc}V{CTRL-A}{$83} "   {CBM-B} UI{CBM-L}  "{$00}{$7c}{swlc}{SHIFT-+}{CTRL-A}{$83} "L{SHIFT-@}  {CBM-H}JK{CBM-L}  "{$00}{$8f}{swlc}{$e0}{CTRL-A}{$83} " {CBM-H}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-@}{SHIFT-@}"{$00}{CBM-I}{swlc}{$e5}{CTRL-A}{$83} " {CBM-Y}{CBM-Y}{CBM-Y}L{CBM-@}{CBM-@}{SHIFT-@}  "{$00}{CBM-J}{swlc}{$ea}{CTRL-A}{$83} "   {SHIFT-@}    L "{$00}H{swlc}{$ef}{CTRL-A}{$83} "  {SHIFT-@}L    {SHIFT-@}L"{$00}{SHIFT-+}{swlc}{$f4}{CTRL-A}{$83} "  M    {CBM-R}  "{$00}{$ee}{swlc}{$f9}{CTRL-A}{$83} "  {SHIFT-POUND}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-B}  "{$00}{CTRL-A}{CTRL-O}{$fe}{CTRL-A}{$83} "  {CBM-H} {CBM-C} {CBM-F} {CBM-J} "{$00}{del}{CTRL-O}{stop}{CTRL-B}{$83} "  {CBM-B}  {CBM-F}  {CBM-H} "{$00}'{CTRL-O}{dish}{CTRL-B}{$83} "   {CBM-B} UI{CBM-L}  "{$00}:{CTRL-O}
{CTRL-B}{$83} "    {CBM-H}JK{CBM-L}  "{$00}m{CTRL-O}{rvon}{CTRL-B}{$83} "    {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-@}{SHIFT-@}"{$00}{$60}{CTRL-O}{CTRL-W}{CTRL-B}{$83} " {CBM-L}{CBM-Y}{CBM-Y}L{CBM-@}{CBM-@}{SHIFT-@}  "{$00}{$73}{CTRL-O}{red}{CTRL-B}{$83} "OP {CBM-L}    L "{$00}{f3}{CTRL-O}!{CTRL-B}{$83} "   {SHIFT-@}L   {SHIFT-@}L"{$00}{lgrn}{CTRL-O}&{CTRL-B}{$83} "     {SHIFT--}    "{$00}{CBM-D}{CTRL-O}+{CTRL-B}{$83} "     {SHIFT-+}    "{$00}{CBM-B}{CTRL-O}0{CTRL-B}{$83} "     {SHIFT-+}    "{$00}R{CTRL-O}5{CTRL-B}{$83} "     {CBM-+}    "{$00}{$e5}{CTRL-O}:{CTRL-B}{$83} "   {CBM-@}{SHIFT-@}{CBM-+}L{CBM-@}  "{$00}{$f8}{CTRL-O}?{CTRL-B}{$83} "    {CBM-L}V{CBM-J}   "{$00}{CTRL-K}{CTRL-P}d{CTRL-B}{$83} "    {CBM-L}V{CBM-J}   "{$00}{grn}{CTRL-P}i{CTRL-B}{$83} "    NVM   "{$00}1{CTRL-P}n{CTRL-B}{$83} "   {SHIFT-@}VVVL  "{$00}d{CTRL-P}s{CTRL-B}{$83} "  O     P "{$00}w{CTRL-P}x{CTRL-B}{$83} " {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O} "{$00}{$6a}{CTRL-P}]{CTRL-B}{$83} " {CBM-J} {CBM-F}   {CBM-F}{CBM-L} "{$00}{$7d}{CTRL-P}{$62}{CTRL-B}{$83} " {CBM-J}NM  MN{CBM-L} "{$00}{blk}{CTRL-P}{$67}{CTRL-B}{$83} " {CBM-J}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-L} "{$00}{CBM-T}{CTRL-P}{$6c}{CTRL-B}{$83} " {CBM-J}{CBM-+}VVVV{CBM-+}{CBM-L} "{$00}{CBM-L}{CTRL-P}{$71}{CTRL-B}{$83} " {CBM-J}{CBM-+}VVVV{CBM-+}{CBM-L} "{$00}I{CTRL-P}{$76}{CTRL-B}{$83} " {CBM-J}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-L} "{$00}{CBM--}{CTRL-P}{$7b}{CTRL-B}{$83} " {CBM-J}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-L} "{$00}{$ef}{CTRL-P}{$80}{CTRL-B}{$83} " {SHIFT-POUND}      {CBM-*} "{$00}{CTRL-B}{down}{f1}{CTRL-B}{$83} "{SHIFT-@}L      {SHIFT-@}L"{$00}{CTRL-U}{down}{f4}{CTRL-B}{$83} "    {CBM-R}     "{$00}({down}{$8f}{CTRL-B}{$83} "   {CBM-R}{SHIFT-+}{CBM-R}    "{$00};{down}{inst}{CTRL-B}{$83} "  {CBM-E}{CBM-E}{SHIFT-+}{CBM-E}{CBM-E}   "{$00}n{down}{lgrn}{CTRL-B}{$83} "{SHIFT-@}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}L"{$00}{$61}{down}{yel}{CTRL-B}{$83} " {CBM-J} UI VV {CBM-J}"{$00}{$74}{down}{CBM-T}{CTRL-B}{$83} " {CBM-H} JK VV {CBM-J}"{$00}{f5}{down}{CBM-POUND}{CTRL-B}{$83} " L{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@} "{$00}{lblu}{down}{CBM-Z}{CTRL-B}{$83} "   {CBM-J} {CBM-B} {CBM-L}  "{$00}{CBM-Z}{down}{CBM-R}{CTRL-B}{$83} "   {CBM-J}  {CBM-B}{CBM-L}  "{$00}{SHIFT-*}{down}{CBM-Y}{CTRL-B}{$83} "  WW   WW "{$00}Q{down}{$e4}{CTRL-B}{lgrn}"{home}";:{sret} 3000{$00}{dish}{rvon}{$ee}{CTRL-B}{CBM-K} a$:sw%{CBM-R}ma%(lx%,ly%,lz%):ac%{CBM-R}0:{f6}a${CBM-W}{CBM-E}""{CBM-M} ac%{CBM-R}F(a$){$00}0{rvon}{$f8}{CTRL-B}{f6}(sw%{CBM-P}fg%(8)){CBM-R}0{CBM-P}(cc%{CBM-P}fg%(0)){CBM-R}0 {CBM-M}765{$00}{$68}{rvon}{$fb}{CTRL-B}y{CBM-R}{CBM-G}rn(1):{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x:ht%{CBM-R}t3%:{sret}9600:{lgrn}ro$(x,y):{$82}x{$00}{$82}{rvon}{$fd}{CTRL-B}{f6} sp%{CBM-W}100 {CBM-M} sp%{CBM-R}sp%{CBM-N}1{$00}{CBM-Z}{rvon}{CTRL-B}{stop}{f6} a${CBM-R}"{rght}"{CBM-M} di%{CBM-R}di%{CBM-N}1:{f6}di%{CBM-E}3 {CBM-M} di%{CBM-R}di%{CBM-Q}4{$00}X{rvon}{CTRL-L}{stop}{f6} a${CBM-R}"{left}"{CBM-M} di%{CBM-R}di%{CBM-Q}1:{f6}di%{CBM-W}0 {CBM-M} di%{CBM-R}di%{CBM-N}4{$00}{swlc}{home}{down}{stop}{f6} a${CBM-R}"{rght}" {CBM-A} a${CBM-R}"{left}" {CBM-M} sp%{CBM-R}sp%{CBM-D}.9:cc%{CBM-R}(cc% {CBM-A} fg%(3)){$00}&{home}{home}{stop}{f6}(cc%{CBM-P}fg%(0)){CBM-R}0{CBM-M}800{$00}e{home}{CTRL-V}{stop}{sret}8000:{f6} {CBM-G}rn(100){CBM-W}sp% {CBM-M} 795{$00}{$6f}{home}{CTRL-X}{stop}vt%{CBM-R}3:ht%{CBM-R}t2%:{sret}9600:{lgrn}"blocked";:{f2} 820{$00}{f8}{home}{esc}{stop}{f6}(cc%{CBM-P}fg%(0)){CBM-M} sc%{CBM-R}sc%{CBM-N}5{$00}{CBM-H}{home} {stop}{f6}a${CBM-W}{CBM-E}"{up}" {CBM-A} (sw% {CBM-P} fg%(di%)){CBM-R}0 {CBM-M} 805{$00}{$f6}{home}#{stop}lx%{CBM-R}lx%{CBM-N}dx%(di%):ly%{CBM-R}ly%{CBM-N}dy%(di%):sp%{CBM-R}sp%{CBM-D}.8:cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}{CTRL-X}{del}%{stop}bf%{CBM-R}di%{CBM-N}2:{f6} bf%{CBM-E}3 {CBM-M} bf%{CBM-R}bf%{CBM-Q}4{$00}a{del}*{stop}{f6} a${CBM-W}{CBM-E}"{down}" {CBM-A} (sw% {CBM-P} fg%(bf%)){CBM-R}0 {CBM-M} 815{$00}{$83}{del}-{stop}lx%{CBM-R}lx%{CBM-N}dx%(bf%):ly%{CBM-R}ly%{CBM-N}dy%(bf%):sp%{CBM-R}sp%{CBM-D}.8:cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}{CBM-Y}{del}/{stop}{f6}a${CBM-R}"u"{CBM-P}(sw%{CBM-P}fg%(4)){CBM-M}lz%{CBM-R}lz%{CBM-N}1:cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}{$eb}{del}1{stop}{f6}a${CBM-R}"d"{CBM-P}(sw%{CBM-P}fg%(5)){CBM-M}lz%{CBM-R}lz%{CBM-Q}1:cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}{$0a}{CTRL-U}4{stop}{f6}a${CBM-R}"f"{CBM-P}(cc%{CBM-P}fg%(1)){CBM-M}{sret}6000{$00}*{CTRL-U}>{stop}{f6}a${CBM-R}"a"{CBM-P}(sw%{CBM-P}fg%(12)){CBM-M}{f2}7000{$00}{$6b}{CTRL-U}h{stop}{f6}a${CBM-R}"c"{CBM-P}(sw%{CBM-P}fg%(10)){CBM-M}{f6}(cc%{CBM-P}fg%(1)){CBM-M}ch%{CBM-R}100:cc%{CBM-R}(cc%{CBM-A}fg%(4)){$00}{$7c}{CTRL-U}r{stop}{f6}a${CBM-W}{CBM-E}"q"{CBM-M}860{$00}{CBM-POUND}{CTRL-U}t{stop}{f1}"{clr}save game y/n";a$:{f6}a${CBM-R}"y"{CBM-M}{sret}5100:{f2}860{$00}M{CTRL-U}u{stop}{f1}"{clr}resume game y/n";b$:{f6}b${CBM-R}"n"{CBM-M}{$80}{$00}{$e2}{CTRL-U}w{stop}cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}*{CTRL-V}\{stop}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(8)){CBM-M}cc%{CBM-R}(cc%{CBM-A}fg%(0)):rx%{CBM-R}lx%:ry%{CBM-R}ly%:rz%{CBM-R}lz%{$00}o{CTRL-V}{$61}{stop}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(8)) {CBM-M} 870{$00}{f2}{CTRL-V}{$63}{stop}{f6}(cc% {CBM-P} fg%(0)){CBM-R}fg%(0) {CBM-P} {CBM-G}rn(100){CBM-W}sp {CBM-M} cc%{CBM-R}cc%{CBM-Q}fg%(0){$00}{CBM-S}{CTRL-V}{$66}{stop}{f6}(cc%{CBM-P}fg%(0)) {CBM-A} (cc%{CBM-P}fg%(1)){CBM-M}880{$00}S{CTRL-V}{$68}{stop}{f6}a${CBM-W}{CBM-E}"t"{CBM-A} (sw%{CBM-P}fg%(11)){CBM-R}0  {CBM-M} 880{$00}{rght}{CTRL-W}{$6b}{stop}a${CBM-R}"":cc%{CBM-R}cc%{CBM-A}fg%(1):ma%(lx%,ly%,lz%){CBM-R}sw%{CBM-Q}fg%(11):vt%{CBM-R}3:ht%{CBM-R}t2%:{sret}9600{$00}>{CTRL-W}{$6e}{stop}{lgrn}" taken ";:cc%{CBM-R}(cc%{CBM-A}fg%(3)){$00}[{CTRL-W}{$70}{stop}{f6} (cc% {CBM-P} fg%(0)) {CBM-M} {sret}8000{$00}{$6e}{CTRL-W}{$7a}{stop}{f6} sp%{CBM-W}{CBM-R}0 {CBM-M}9000{$00}{clr}{CTRL-W}{$7f}{stop}{f6} rn%{CBM-W}{CBM-R}0 {CBM-M} sc%{CBM-R}sc%{CBM-N}40{CBM-D}ng%:{f2} 9500{$00}L{CTRL-W}{$84}{stop}{f6} ng%{CBM-W}{CBM-R}0 {CBM-M} ti%{CBM-R}ti%{CBM-Q}1:vt%{CBM-R}24:ht%{CBM-R}25:{sret}9600:{lgrn}ti%;"sec";{$00}{CBM-*}{CTRL-W}{swuc}{stop}{f6} ti%{CBM-W}{CBM-R}0{CBM-M} 9400{$00}{CTRL-D}{CTRL-X}{gry2}{stop}{f6} {CBM-L}(sp%{CBM-Q}os%){CBM-E}10{CBM-M}cc%{CBM-R}(cc%{CBM-A}fg%(4)){$00}j{CTRL-X}{CBM-I}{stop}{f6}a${CBM-R}"t"{CBM-P}(sw% {CBM-P} fg%(11)){CBM-M}ch%{CBM-R}100:vt%{CBM-R}3:ht%{CBM-R}t2%:{sret}9600:{lgrn}" replaced "{$00}{$6d}{CTRL-X}{CBM-M}{stop}{f6}(cc%{CBM-P}fg%(0)){CBM-R}0 {CBM-P} a${CBM-R}"m"{CBM-M}{sret}1500{$00}{cyn}{CTRL-X}{CBM-D}{stop}{f6}(cc%{CBM-P}fg%(3)) {CBM-P} (cc%{CBM-P}fg%(4)) {CBM-M} cc%{CBM-R}cc%{CBM-Q}fg%(4){$00}F{CTRL-X}{CBM-L}{stop}{f6}(cc%{CBM-P}fg%(4)){CBM-M}{sret}3500:cc%{CBM-R}cc%{CBM-Q}fg%(4){$00}{$ed}{CTRL-X}{SHIFT-*}{stop}{f6}(cc%{CBM-P}fg%(3)){CBM-M}{sret}3000:cc%{CBM-R}cc%{CBM-Q}fg%(3){$00}{$fe}{CTRL-X}{$de}{stop}x{CBM-R}{CBM-U}(0):{f2} 750{$00}{CTRL-Z}{CTRL-Y}{$e8}{stop}{yel} 634:sx%{CBM-R}ex%:sy%{CBM-R}ey%:{swuc}{$00}o{CTRL-Y}l{CTRL-D}{f8}:{orng} j{CBM-R}634 {CBM-@} 872:{f5} x:{gry1} j,x:{$82} j:{gry1}59468,12:{lgrn}G(142);{$00}{$6a}{CTRL-Y}v{CTRL-D}{f6} B(50000){CBM-R}46 {CBM-M}{gry1} 767,4{$00}{$7e}{CTRL-Y}{$60}{CTRL-D}{gry1} 814,5:{lgrn}"{clr}";:{swuc}{$00}{SHIFT-*}{CTRL-Y}{CBM--}{wht}{lgrn}"{clr}";:z%{CBM-R}lz%:vt%{CBM-R}22:ht%{CBM-R}0:{sret}9600:{lgrn}"arrows to move thru levels"{$00}{wht}{CTRL-Z}{$de}{wht}{lgrn}"el-elevator,ro-robot,la-laser":{lgrn}"ge-generator,sh-shuttle";rn%;{$00}/{CTRL-Z}{$e0}{wht}{lgrn}"robots remain":{lgrn}"hit c to continue"{$00}{$71}{CTRL-Z}{$e6}{wht}ht%{CBM-R}0:{orng}z1{CBM-R}0{CBM-@}17:vt%{CBM-R}z1:{sret}9600:{lgrn}"                         ";:{$82}z1{$00}{CBM-D}{CTRL-Z}{$eb}{wht}{orng}x{CBM-R}0{CBM-@}mr%:{orng}y{CBM-R}0{CBM-@}mr%:w1%{CBM-R}ma%(x,y,z%):{f6}(w1%{CBM-P}fg%(6)){CBM-R}0{CBM-M}1630{$00}{$e9}{CTRL-Z}{$f0}{wht}px%{CBM-R}1{CBM-N}x{CBM-D}4:py%{CBM-R}1{CBM-N}y{CBM-D}2:vt%{CBM-R}py%{CBM-Q}1:ht%{CBM-R}px%{CBM-Q}1:{sret}9600:{lgrn} "{SHIFT-+}   {SHIFT-+}";{$00}{dish}{esc}{$f5}{wht}vt%{CBM-R}py%{CBM-N}1:{sret}9600:{lgrn} "{SHIFT-+}   {SHIFT-+}";{$00}<{esc}{$fa}{wht}{f6}(w1%{CBM-P}fg%(0)){CBM-R}0{CBM-M}vt%{CBM-R}py%{CBM-Q}1:ht%{CBM-R}px%:{sret}9600:{lgrn}"{SHIFT-*}{SHIFT-*}{SHIFT-*}";{$00}{$6e}{esc}{CTRL-D}{CTRL-F}{f6}(w1%{CBM-P}fg%(1)){CBM-R}0{CBM-M}vt%{CBM-R}py%:ht%{CBM-R}px%{CBM-N}3:{sret}9600:{lgrn}"{SHIFT--}";{$00}{CBM-I}{esc}{swlc}{CTRL-F}{f6}(w1%{CBM-P}fg%(2)){CBM-R}0{CBM-M}vt%{CBM-R}py%{CBM-N}1:ht%{CBM-R}px%:{sret}9600:{lgrn}"{SHIFT-*}{SHIFT-*}{SHIFT-*}";{$00}T{esc}{CTRL-X}{CTRL-F}{f6}(w1%{CBM-P}fg%(3)){CBM-R}0{CBM-M}vt%{CBM-R}py%:ht%{CBM-R}px%{CBM-Q}1:{sret}9600:{lgrn}"{SHIFT--}";{$00}{$f0}{esc}{rght}{CTRL-F}vt%{CBM-R}py%:ht%{CBM-R}px%{CBM-N}1:{sret}9600{$00}{ensh}{red}"{CTRL-F}{f6}(w1%{CBM-P}fg%(9)){CBM-M}{lgrn}"el";{$00}"{red},{CTRL-F}{f6}(w1%{CBM-P}fg%(8)){CBM-M}{lgrn}"ro";{$00}<{red}6{CTRL-F}{f6}(w1%{CBM-P}fg%(10)){CBM-M}{lgrn}"ge";{$00}v{red}@{CTRL-F}{f6}(w1%{CBM-P}fg%(11)){CBM-M}{lgrn}"la";{$00}{$70}{red}j{CTRL-F}{f6}(w1%{CBM-P}fg%(12)){CBM-M}{lgrn}"sh";{$00}{SHIFT-POUND}{red}t{CTRL-F}{f6}x{CBM-R}lx%{CBM-P}y{CBM-R}ly%{CBM-P}z%{CBM-R}lz%{CBM-M}vt%{CBM-R}py%:ht%{CBM-R}px%:{sret}9600:{lgrn}dr$(di%);{$00}{CBM-W}{red}^{CTRL-F}{$82}y:{$82}x{$00}X{red}{$63}{CTRL-F}vt%{CBM-R}0:ht%{CBM-R}30:{sret}9600:{lgrn}"level-";z%;{$00}{$ed}{red}{$68}{CTRL-F}{CBM-K} a$:{f6}a${CBM-R}""{CBM-M}1640{$00}{swlc}{rght}{$6d}{CTRL-F}{f6} a${CBM-R}"c"{CBM-M} cc%{CBM-R}(cc%{CBM-A}fg%(3)):{swuc}{$00}/{rght}{$72}{CTRL-F}{f6}a${CBM-R}"{up}"{CBM-M}z%{CBM-R}z%{CBM-N}1:{f6}z%{CBM-E}mz%{CBM-M}z%{CBM-R}0{$00}q{rght}{$7c}{CTRL-F}{f6} a${CBM-R}"{down}"{CBM-M}z%{CBM-R}z%{CBM-Q}1:{f6}z%{CBM-W}0{CBM-M}z%{CBM-R}mz%{$00}{$6e}{rght}{f3}{CTRL-F}{f6} a${CBM-R}"{up}" {CBM-A} a${CBM-R}"{down}" {CBM-M} 1510{$00}{$79}{rght}{blk}{CTRL-F}{f2} 1640{$00}{SHIFT-*}{rght}P{CTRL-G}vt%{CBM-R}15:ht%{CBM-R}10:{sret}9600:{lgrn}"working";:{orng} lv{CBM-R}0{CBM-@}mz%:x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%){$00}{$e9}{rght}Z{CTRL-G}ma%(x%,y%,lv){CBM-R}(ma%(x%,y%,lv){CBM-A}fg%(6)){$00}{$f3}{rght}{$e4}{CTRL-G}nc%{CBM-R}1{$00}{CTRL-F}{grn}{$ee}{CTRL-G}{f6}nc%{CBM-E}{CBM-R}mc%{CBM-M}2170{$00}{CTRL-U}{grn}{$f8}{CTRL-G}di%{CBM-R}{CBM-G}rn(3){$00}9{grn}{CTRL-B}{dish}nx%{CBM-R}x%{CBM-N}dx%(di%):ny%{CBM-R}y%{CBM-N}dy%(di%){$00}l{grn}{CTRL-L}{dish}{f6} {CBM-F}(0){CBM-E}.9{CBM-M}2140{$00}{$67}{grn}{CTRL-V}{dish}{f6}nx%{CBM-E}mr% {CBM-A}ny%{CBM-E}mr%{CBM-M}2040{$00}{$7f}{grn} {dish}{f6}nx%{CBM-W}0 {CBM-A} ny%{CBM-W}0{CBM-M}2040{$00}{CBM-T}{grn}*{dish}{f6}(ma%(nx%,ny%,lv){CBM-P} fg%(6)){CBM-M}2040{$00}N{grn}4{dish}ma%(x%,y%,lv){CBM-R}(ma%(x%,y%,lv){CBM-A}fg%(di%)){$00}{CTRL-B}{blu}>{dish}ma%(nx%,ny%,lv){CBM-R}(ma%(nx%,ny%,lv){CBM-A}fg%(mo%(di%))){$00}0{blu}h{dish}ma%(nx%,ny%,lv){CBM-R}(ma%(nx%,ny%,lv) {CBM-A}fg%(6)){$00}r{blu}r{dish}x%{CBM-R}nx%:y%{CBM-R}ny%:nc%{CBM-R}nc%{CBM-N}1:{f2}2030{$00}{$6e}{blu}\{dish}x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%){$00}{$8f}{blu}{$66}{dish}{f6}(ma%(x%,y%,lv){CBM-P}fg%(6)){CBM-M}2030{$00}{lblu}{blu}{$70}{dish}{f2} 2140{$00}{CBM-T}{blu}{$7a}{dish}{$82} lv{$00}U{blu}{$84}{dish}{orng}z{CBM-R}1{CBM-@}4:x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%):{orng}lv{CBM-R}0{CBM-@} (mz%{CBM-Q}1){$00}{$fe}{blu}{swuc}{dish}ma%(x%,y%,lv){CBM-R}(ma%(x%,y%,lv){CBM-A}fg%(4)){$00}. {clr}{dish}ma%(x%,y%,lv){CBM-R}(ma%(x%,y%,lv){CBM-A}fg%(9)){CBM-A}fg%(7){$00}_ {gry2}{dish}ma%(x%,y%,(lv{CBM-N}1)){CBM-R}(ma%(x%,y%,(lv{CBM-N}1)){CBM-A}fg%(5)){$00}{gry1} {left}{dish}ma%(x%,y%,(lv{CBM-N}1)){CBM-R}(ma%(x%,y%,(lv{CBM-N}1)){CBM-A}fg%(9)){CBM-A}fg%(7){$00}{CBM-I} {CBM-I}{dish}{$82}lv:{$82}z{$00}{$e1} {CBM-D}{dish}{orng}lv{CBM-R}0{CBM-@}mz%:{orng}x{CBM-R}0{CBM-@}mr%:{orng}y{CBM-R}0{CBM-@}mr%:ma%(x,y,lv){CBM-R}ma%(x,y,lv){CBM-Q}fg%(6){$00}{$00}!{CBM-L}{dish}{f6}(ma%(x,y,lv){CBM-P}fg%(9)){CBM-M}2270{$00}b!J{dish}{f6}{CBM-G}rn(10){CBM-R}10{CBM-M}ma%(x,y,lv){CBM-R}(ma%(x,y,lv){CBM-A}fg%(8)){CBM-A}fg%(7):rn%{CBM-R}rn%{CBM-N}1{$00}p!{$de}{dish}{$82}y:{$82}x:{$82}lv{$00}]!{$e3}{dish}{orng}z{CBM-R}0{CBM-@}ng%{$00}{f3}!{$e8}{dish}x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%):lv%{CBM-R}{CBM-G}rn(mz%){$00}{CBM-POUND}!{$f2}{dish}{f6}(ma%(x%,y%,lv%){CBM-P}fg%(7)){CBM-M}2280{$00}{$de}!{$fc}{dish}ma%(x%,y%,lv%){CBM-R}(ma%(x%,y%,lv%){CBM-A}fg%(10)){CBM-A}fg%(7):{$82}z{$00}{$eb}!{CTRL-F}{ensh}{orng}z{CBM-R}0{CBM-@}ns%{$00}#"{CTRL-P}{ensh}x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%):{f6}(ma%(x%,y%,0){CBM-P}fg%(7)){CBM-M}2320{$00}u"{CTRL-Z}{ensh}ma%(x%,y%,0){CBM-R}(ma%(x%,y%,0){CBM-A}fg%(12)){CBM-A}fg%(7):{$82}z{$00}{$62}"${ensh}{orng}z{CBM-R}0{CBM-@}nl%{$00}{SHIFT-POUND}".{ensh}x%{CBM-R}{CBM-G}rn(mr%):y%{CBM-R}{CBM-G}rn(mr%):lv%{CBM-R}{CBM-G}rn(mz%):{f6}(ma%(x%,y%,lv%){CBM-P}fg%(7)){CBM-M}2350{$00}{CBM-*}"8{ensh}ma%(x%,y%,lv%){CBM-R}(ma%(x%,y%,lv%){CBM-A}fg%(11)){CBM-A}fg%(7):{$82}z{$00}{$e5}"t{CTRL-K}{swuc}{$00})#{CBM-U}{CTRL-K}{lgrn}"{clr}";:sx%{CBM-R}0:sy%{CBM-R}0:ex%{CBM-R}xm%:ey%{CBM-R}0:{sret}1000:ey%{CBM-R}ym%:{sret}1000:ex%{CBM-R}0:{sret}1000{$00}9#{SHIFT-@}{CTRL-K}ey%{CBM-R}0:{sret}1000{$00}{$77}#{CBM-X}{CTRL-K}vt%{CBM-R}22:ht%{CBM-R}0:{sret}9600:{lgrn}"arrows to move,f-fire,t-take,q-quit"{$00}{CBM-@}#{SHIFT-*}{CTRL-K}{lgrn}"c-charge,u-up,d-down,a-abandon,m-map";{$00}I#B{CTRL-K}{sret}3400:rf%{CBM-R}di%{CBM-N}1:{f6}rf%{CBM-E}3{CBM-M}rf%{CBM-R}rf%{CBM-Q}4{$00}{$e8}#L{CTRL-K}lf%{CBM-R}di%{CBM-N}3:{f6}lf%{CBM-E}3{CBM-M}lf%{CBM-R}lf%{CBM-Q}4{$00}{CTRL-O}$V{CTRL-K}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(7)){CBM-M}{sret}3100:{swuc}{$00}7${$e0}{CTRL-K}sr%{CBM-R}1:rd%{CBM-R}2:px%{CBM-R}lx%:py%{CBM-R}ly%:pz%{CBM-R}lz%{$00}{$6c}${$ea}{CTRL-K}{sret}3200:ma%(px%,py%,pz%){CBM-R}(ma%(px%,py%,pz%){CBM-A}fg%(6)){$00}{CBM-Q}${$f4}{CTRL-K}{f6} sr%{CBM-W}{CBM-E}0{CBM-M}px%{CBM-R}px%{CBM-N}dx%(di%):py%{CBM-R}py%{CBM-N}dy%(di%):rd%{CBM-R}rd%{CBM-N}1:{f2}3050{$00}{CBM-E}${rvon}{CTRL-L}{swuc}{$00}M${red}{CTRL-L}rd%{CBM-R}2:{sret}4200:{sret}4400:{sret}4000{$00}{$fc}$!{CTRL-L}ma%(lx%,ly%,lz%){CBM-R}(ma%(lx%,ly%,lz%){CBM-A}fg%(6)){$00}#%&{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(lf%)){CBM-M}{sret}4600{$00}j%0{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(rf%)){CBM-M}{sret}4700{$00}{$71}%:{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(di%)){CBM-M}{sret}4500{$00}{gry2}%d{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(10)){CBM-R}0{CBM-M}3150{$00}G%i{CTRL-L}{orng}x{CBM-R}0{CBM-@}9:ht%{CBM-R}t3%:vt%{CBM-R}10{CBM-N}x:{sret}9600:{lgrn}ge$(x);:{$82} x{$00}{$ed}%n{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(9)){CBM-R}0{CBM-M}3160{$00}{red}&s{CTRL-L}{orng}x{CBM-R}0{CBM-@}9:ht%{CBM-R}t3%:vt%{CBM-R}10{CBM-N}x:{sret}9600:{lgrn}el$(x);:{$82} x{$00}c&x{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(12)){CBM-R}0{CBM-M}3170{$00}{$72}&]{CTRL-L}{orng}x{CBM-R}0{CBM-@}9:ht%{CBM-R}t3%:vt%{CBM-R}10{CBM-N}x:{sret}9600:{lgrn}ss$(x);:{$82} x{$00}{lgrn}&{$62}{CTRL-L}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(11)){CBM-R}0{CBM-M}3190{$00}H&{$67}{CTRL-L}{orng}x{CBM-R}0{CBM-@}9:ht%{CBM-R}t3%:vt%{CBM-R}10{CBM-N}x:{sret}9600:{lgrn}lr$(x);:{$82} x{$00}N&{$76}{CTRL-L}{swuc}{$00}{$fa}&{$80}{CTRL-L}sr%{CBM-R}0:{f6}(ma%(px%,py%,pz%){CBM-P}fg%(lf%)){CBM-M}3220{$00}{$0a}'{f4}{CTRL-L}{sret}4200:{f2}3250{$00}@'{inst}{CTRL-L}{f6}(ma%(px%{CBM-N}dx%(lf%),py%{CBM-N}dy%(lf%),pz%){CBM-P}fg%(7)){CBM-M}3240{$00}p'{yel}{CTRL-L}{sret}4100:{f2}3250{$00}{$76}'{CBM-T}{CTRL-L}sw%{CBM-R}ma%(lx%,ly%,lz%):vt%{CBM-R}21:{sret}9600{$00}{f3}'{CBM-POUND}{CTRL-L}{sret}4200:{sret}4600{$00}{CBM-D}'{CBM-R}{CTRL-L}{f6}(ma%(px%,py%,pz%){CBM-P}fg%(rf%)){CBM-M}3270{$00}{CBM-C}'{CBM-C}{CTRL-L}{sret}4400:{f2}3300{$00}{$f2}'F{CTRL-L}{f6}(ma%(px%{CBM-N}dx%(rf%),py%{CBM-N}dy%(rf%),pz%){CBM-P}fg%(7)){CBM-M}3290{$00}{CTRL-B}(P{CTRL-L}{sret}4300:{f2}3300{$00}{rvon}(Z{CTRL-L}{sret}4400:{sret}4700{$00}?({$e4}{CTRL-L}{f6}(ma%(px%,py%,pz%){CBM-P}fg%(di%)){CBM-M}sr%{CBM-R}1:{f2}3320{$00}k({$ee}{CTRL-L}{sret}4000:{swuc}{$00}{$82}({$f8}{CTRL-L}{f6}(ma%(px%{CBM-N}dx%(di%),py%{CBM-N}dy%(di%),pz%){CBM-P}fg%(7)){CBM-M}sr%{CBM-R}0{$00}{gry3}({$fd}{CTRL-L}{f6}sr%{CBM-R}0{CBM-M}{sret}4000:{sret}4500:{swuc}{$00}{CBM-K}({CTRL-B}
{swuc}{$00}{$e2}(h
vt%{CBM-R}0:ht%{CBM-R}t2%:{sret}9600:{lgrn}"{rvon}voyager i{rvof}";:vt%{CBM-R}1:{sret}9600:{lgrn}" status ";{$00}{CTRL-F})r
{orng} x{CBM-R}4 {CBM-@} 18:vt%{CBM-R}x:{sret}9600:{lgrn}"-";:{$82}x{$00}@)\
vt%{CBM-R}19:{sret}9600:{lgrn}" G  G  G ";:vt%{CBM-R}20:{sret}9600:{lgrn}"%sp-ch-ge";{$00}{f3}){CBM-D}
{gry1}814,69:sx%{CBM-R}hs%:sy%{CBM-R}36:ex%{CBM-R}sx%:ey%{CBM-R}8:{sret}1000:sx%{CBM-R}hc%:ex%{CBM-R}hc%:ey%{CBM-R}36{$00}{CBM-W}){CBM-E}
{sret}1000:sx%{CBM-R}hg%:ex%{CBM-R}hg%:ey%{CBM-R}8:{sret}1000:{gry1}814,5{$00}{$ed}){CBM-L}
sx%{CBM-R}hs%:ex%{CBM-R}hs%:sy%{CBM-R}36:ey%{CBM-R}8{CBM-N}28{CBM-D}((100{CBM-Q}sp%){CBM-Z}100):{sret}1000{$00}'*{SHIFT-*}
sx%{CBM-R}hc%:ex%{CBM-R}hc%:sy%{CBM-R}36:ey%{CBM-R}8{CBM-N}28{CBM-D}((100{CBM-Q}ch%){CBM-Z}100):{sret}1000{$00}_*J
sx%{CBM-R}hg%:ex%{CBM-R}hg%:sy%{CBM-R}36:ey%{CBM-R}8{CBM-N}28{CBM-D}((10{CBM-Q}ng%){CBM-Z}10):{sret}1000{$00}{f8}*O
sw%{CBM-R}ma%(lx%,ly%,lz%):ht%{CBM-R}t2%:vt%{CBM-R}2:{sret}9600{$00}{CBM-S}*T
{f6}(sw%{CBM-P}fg%(8)){CBM-M}{lgrn}"{rvon}  robot  {rvof}";{$00}P*{$de}
{f6}(sw%{CBM-P}fg%(9)){CBM-M}{lgrn}"{rvon}elevator {rvof}";{$00}{$f3}*{$e8}
{f6}(sw%{CBM-P}fg%(10)){CBM-M}{lgrn}"{rvon}generator{rvof}";{$00}{CTRL-V}+{$f2}
{f6}(sw%{CBM-P}fg%(11)){CBM-M}{lgrn}"{rvon}  laser  {rvof}";{$00}9+{$fc}
{f6}(sw%{CBM-P}fg%(12)){CBM-M}{lgrn}"{rvon} shuttle {rvof}";{$00}{$69}+{CTRL-A}{swlc}vt%{CBM-R}24:ht%{CBM-R}13:{sret}9600:{f6}ng%{CBM-E}0{CBM-M}{lgrn}"score is";sc%;{$00}{clr}+{CTRL-D}{swlc}{f6} ng%{CBM-W}{CBM-R}0{CBM-M}{lgrn}"explosion in";ti%;"sec  ";{$00}{CBM-K}+{CTRL-F}{swlc}os%{CBM-R}sp%:{swuc}{$00}{CBM-M}+{cyn}{CTRL-O}{swuc}{$00}{$eb}+{$a0}{CTRL-O}hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%:lo%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}rd%:lw%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}rd%:rw%{CBM-R}xw%{CBM-N}xw%{CBM-Z}rd%{$00}5,{CBM-N}{CTRL-O}sx%{CBM-R}lw%:ex%{CBM-R}rw%:sy%{CBM-R}hi%:ey%{CBM-R}hi%:{sret}1000:sx%{CBM-R}lw%:ex%{CBM-R}rw%:sy%{CBM-R}lo%:ey%{CBM-R}lo%{$00}a,{CBM-H}{CTRL-O}{sret}1000:{swuc}{$00}{f2},{CTRL-D}{CTRL-P}wi%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}rd%:pw%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}(rd%{CBM-Q}1):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%:lo%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}rd%{$00}I,{swlc}{CTRL-P}sx%{CBM-R}pw%:ex%{CBM-R}wi%:sy%{CBM-R}lo%:ey%{CBM-R}lo%:{sret}1000:ey%{CBM-R}hi%:{sret}1000:ex%{CBM-R}pw%{$00}U,{CTRL-X}{CTRL-P}{sret}1000:{swuc}{$00}{rght}-{$68}{CTRL-P}wh%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}rd%:pw%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}(rd%{CBM-Q}1):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%:lo%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}rd%{$00}i-{$6d}{CTRL-P}ph%{CBM-R}yw%{CBM-N}yw%{CBM-Z}(rd%{CBM-Q}1):pl%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}(rd%{CBM-Q}1){$00}{f2}-{$72}{CTRL-P}sx%{CBM-R}pw%:ex%{CBM-R}wh%:sy%{CBM-R}pl%:ey%{CBM-R}lo%:{sret}1000:ey%{CBM-R}hi%:{sret}1000:ex%{CBM-R}pw%{$00}{left}-{$7c}{CTRL-P}ey%{CBM-R}ph%:{sret}1000:{swuc}{$00}{$e5}-L{CTRL-P}wi%{CBM-R}xw%{CBM-N}xw%{CBM-Z}rd%:pw%{CBM-R}xw%{CBM-N}xw%{CBM-Z}(rd%{CBM-Q}1):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%:lo%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}rd%{$00}%.V{CTRL-P}sx%{CBM-R}pw%:ex%{CBM-R}wi%:sy%{CBM-R}lo%:ey%{CBM-R}lo%:{sret}1000:ey%{CBM-R}hi%:{sret}1000:ex%{CBM-R}pw%{$00}1.{$e0}{CTRL-P}{sret}1000:{swuc}{$00}{$79}.0{down}wh%{CBM-R}xw%{CBM-N}xw%{CBM-Z}rd%:pw%{CBM-R}xw%{CBM-N}xw%{CBM-Z}(rd%{CBM-Q}1):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%:lo%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}rd%{$00}{CBM-G}.5{down}ph%{CBM-R}yw%{CBM-N}yw%{CBM-Z}(rd%{CBM-Q}1):pl%{CBM-R}yw%{CBM-Q}yw%{CBM-Z}(rd%{CBM-Q}1){$00}{$e5}.:{down}sx%{CBM-R}pw%:ex%{CBM-R}wh%:sy%{CBM-R}pl%:ey%{CBM-R}lo%:{sret}1000:ey%{CBM-R}hi%:{sret}1000:ex%{CBM-R}pw%{$00}{$f9}.d{down}ey%{CBM-R}ph%:{sret}1000:{swuc}{$00}7/{inst}{down}wh%{CBM-R}xw%{CBM-N}(.7{CBM-D}xw%){CBM-Z}rd%:pw%{CBM-R}xw%{CBM-Q}(.7{CBM-D}xw%){CBM-Z}rd%:hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}rd%{$00}p/{yel}{down}lo%{CBM-R}yw%{CBM-Q}(.7{CBM-D}yw%){CBM-Z}rd%{$00}{blk}/{CBM-POUND}{down}sx%{CBM-R}wh%:ex%{CBM-R}wh%:sy%{CBM-R}hi%:ey%{CBM-R}lo%:{sret}1000:ex%{CBM-R}pw%:{sret}1000:ey%{CBM-R}hi%{$00}{left}/{CBM-R}{down}{sret} 1000:{swuc}{$00}{$e4}/{$f8}{down}wh%{CBM-R}xw%{CBM-Q}xw%{CBM-Z}(.9{CBM-D}rd%):pw%{CBM-R}xw%{CBM-Q}(.9{CBM-D}xw%{CBM-Z}(rd%{CBM-Q}1)):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}(rd%{CBM-D}.9){$00}/0{CTRL-B}{rvon}lo%{CBM-R}yw%{CBM-Q}(.7{CBM-D}yw%){CBM-Z}rd%:ph%{CBM-R}yw%{CBM-N}(.9{CBM-D}yw%){CBM-Z}(rd%{CBM-Q}1):pl%{CBM-R}yw%{CBM-Q}(.6{CBM-D}yw%){CBM-Z}(rd%{CBM-Q}1){$00}{$6f}0{CTRL-L}{rvon}sx%{CBM-R}pw%:sy%{CBM-R}ph%:ey%{CBM-R}pl%:ex%{CBM-R}pw%:{sret}1000:ex%{CBM-R}wh%:ey%{CBM-R}lo%:{sret}1000{$00}{$83}0{CTRL-V}{rvon}ey%{CBM-R}hi%:{sret}1000:{swuc}{$00}J0\{rvon}wh%{CBM-R}xw%{CBM-N}xw%{CBM-Z}(.9{CBM-D}rd%):pw%{CBM-R}xw%{CBM-N}(.9{CBM-D}xw%{CBM-Z}(rd%{CBM-Q}1)):hi%{CBM-R}yw%{CBM-N}yw%{CBM-Z}(rd%{CBM-D}.9){$00}{CTRL-U}1{$66}{rvon}lo%{CBM-R}yw%{CBM-Q}(.7{CBM-D}yw%){CBM-Z}rd%:ph%{CBM-R}yw%{CBM-N}(.9{CBM-D}yw%){CBM-Z}(rd%{CBM-Q}1):pl%{CBM-R}yw%{CBM-Q}(.6{CBM-D}yw%){CBM-Z}(rd%{CBM-Q}1){$00}u1{$70}{rvon}sx%{CBM-R}pw%:sy%{CBM-R}ph%:ey%{CBM-R}pl%:ex%{CBM-R}pw%:{sret}1000:ex%{CBM-R}wh%:ey%{CBM-R}lo%:{sret}1000{$00}{$69}1{$7a}{rvon}ey%{CBM-R}hi%:{sret}1000:{swuc}{$00}{$8f}1{f7}{home}{lgrn}"{clr}place data tape into cassette"{$00}{CBM-Z}1{CBM-+}{home}{cyn} 1,1,0,"data tape":{$84}1,a${$00}K1{CBM-A}{home}{lgrn}"loading file named-";a${$00}{$f9}1{SHIFT-@}{home}{$84}1,ti%:{$84}1,rn%:{$84}1,ng%:{$84}1,sp%:{$84}1,ch%:{$84}1,cc%{$00}'2{CBM-C}{home}{$84}1,lx%:{$84}1,ly%:{$84}1,lz%:{$84}1,rx%:{$84}1,ry%:{$84}1,rz%{$00}22{CBM-B}{home}{$84}1,sc%{$00}{$68}2D{home}{orng}x{CBM-R}0{CBM-@}mr%:{orng}y{CBM-R}0{CBM-@}mr%:{orng}z{CBM-R}0{CBM-@}mz%:{$84}1,ma%(x,y,z):{$82}z:{$82}y:{$82}x{$00}{up}2N{home}{lgrn}"file loaded":{lgrn}"working":{$a0}1:{sret}1100:{swuc}{$00}{CBM-Y}2{$ec}{home}{lgrn}"{clr}place data tape into cassette"{$00}W2{$f6}{home}{f1}"name and date of file";a${$00}{$f5}2{$0a}{del}{cyn} 1,1,2,"data tape":{gry2}1,a${$00}#3{grn}{del}{gry2}1,ti%:{gry2}1,rn%:{gry2}1,ng%:{gry2}1,sp%:{gry2}1,ch%:{gry2}1,cc%{$00}q3 {del}{gry2}1,lx%:{gry2}1,ly%:{gry2}1,lz%:{gry2}1,rx%:{gry2}1,ry%:{gry2}1,rz%{$00}\3#{del}{gry2}1,sc%{$00}{rvof}3({del}{orng}x{CBM-R}0{CBM-@}mr%:{orng}y{CBM-R}0{CBM-@}mr%:{orng}z{CBM-R}0{CBM-@}mz%:{gry2}1,ma%(x,y,z):{$82}z:{$82}y:{$82}x{$00}C32{del}{lgrn}"file saved":{$a0}1:{sret}1100:{f1}"resume game y/n";a${$00}X3<{del}{f6}a${CBM-R}"y"{CBM-M}a${CBM-R}"q":{swuc}{$00}{$de}3f{del}{$80}{$00}{$fd}3{$70}{CTRL-W}{sret}6300:{f6}(cc%{CBM-P}fg%(0)){CBM-R}0{CBM-M}6005{$00}e4{$71}{CTRL-W}vt%{CBM-R}3:ht%{CBM-R}t2%:{sret}9600:{lgrn}"hit him!!";:hp%{CBM-R}hp%{CBM-Q}ch%{CBM-Z}(1{CBM-N}{CBM-G}rn(2)):sc%{CBM-R}sc%{CBM-N}10{$00}u4{$72}{CTRL-W}{f6}hp%{CBM-E}0{CBM-M}6005{$00}{$82}4{$73}{CTRL-W}ma%(rx%,ry%,rz%){CBM-R}ma%(rx%,ry%,rz%){CBM-Q}fg%(8){$00}{CBM-U}4{$74}{CTRL-W}sc%{CBM-R}sc%{CBM-N}50:hp%{CBM-R}100:cc%{CBM-R}cc%{CBM-Q}fg%(0):rn%{CBM-R}rn%{CBM-Q}1:{sret}6200{$00}G4{$75}{CTRL-W}ch%{CBM-R}ch%{CBM-D}.8{$00}{$ee}4{$7f}{CTRL-W}{f6}(ma%(lx%,ly%,lz%){CBM-P}fg%(10)){CBM-R}0{CBM-M}6025{$00}25{orng}{CTRL-W}ng%{CBM-R}ng%{CBM-Q}1:{sret}6200:ma%(lx%,ly%,lz%){CBM-R}ma%(lx%,ly%,lz%){CBM-Q}fg%(10):{f2}6090{$00}t5{f2}{CTRL-W}{orng}z{CBM-R}10{CBM-@}12:sw%{CBM-R}ma%(lx%,ly%,lz%){$00}{rvof}5{swuc}{CTRL-W}{f6}(sw%{CBM-P}fg%(z)){CBM-M}ma%(lx%,ly%,lz%){CBM-R}sw%{CBM-Q}fg%(z):{sret}6200:sc%{CBM-R}sc%{CBM-Q}1{$00}{lblu}5{gry2}{CTRL-W}{$82} z{$00}{CBM-P}5J{CTRL-W}cc%{CBM-R}(cc%{CBM-A}fg%(4)){$00}{CBM-J}5T{CTRL-W}{swuc}{$00}{$e3}58{CTRL-X}{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x:ht%{CBM-R}t3%:{sret}9600:{lgrn}ep$(x);:{$82}x{$00}{rght}6b{CTRL-X}{orng}de{CBM-R}1{CBM-@}10:{$82}de:{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x:{sret}9600:{lgrn}"         ";:{$82}x:{swuc}{$00}{$62}6{pur}{CTRL-X}sx%{CBM-R}xw%{CBM-D}.5:ex%{CBM-R}xw%:sy%{CBM-R}ym%:ey%{CBM-R}ym%{CBM-D}.75:{sret}1000:ex%{CBM-R}xw%{CBM-D}1.5:ey%{CBM-R}ym%{$00}{$74}6{CBM-+}{CTRL-X}{sret}1000:{gry1}814,69{$00}{CBM-O}6{CBM-A}{CTRL-X}sx%{CBM-R}xw%{CBM-D}.5:ex%{CBM-R}xw%:sy%{CBM-R}ym%:ey%{CBM-R}ym%{CBM-D}.75:{sret}1000:ex%{CBM-R}xw%{CBM-D}1.5:ey%{CBM-R}ym%{$00}L6{SHIFT-@}{CTRL-X}{sret}1000:{gry1}814,5:{swuc}{$00}{ensh}7x{esc}{orng}x{CBM-R}0{CBM-@}7:{lgrn}"{clr}";:{orng}y{CBM-R}0{CBM-@}9:ht%{CBM-R}t3%:vt%{CBM-R}10{CBM-Q}x{CBM-N}y:{sret}9600:{lgrn}ss$(y);:{$82}y{$00}{CTRL-P}7]{esc}{$82}x{$00} 7{$62}{esc}{f6}ng%{CBM-E}0{CBM-M}7020{$00}]7{$67}{esc}vt%{CBM-R}1:ht%{CBM-R}1:{sret}9600:{lgrn}"robots destroyed in ship explosion";{$00}{$75}7{$6a}{esc}{orng}de{CBM-R}1{CBM-@}200:{$82}de:{f2}9500{$00}{CBM-I}7{$6c}{esc}{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}3{CBM-N}x:ht%{CBM-R}t3%:{sret}9600:{lgrn}ep$(x);:{$82}x{$00}{$e9}7{$76}{esc}vt%{CBM-R}1:ht%{CBM-R}1:{sret}9600:{lgrn}"robots destroyed the shuttle":sc%{CBM-R}sc%{CBM-D}.5:{f2}9040{$00}{$ef}7{CBM--}{grn}{$80}{$00}'8@{blu}{lgrn}G(14);:{orng}de{CBM-R}1{CBM-@}5:{$82}de:{lgrn}G(142);:sp%{CBM-R}sp%{CBM-Q}hp%{CBM-Z}(4{CBM-N}{CBM-G}rn(4)){$00}88e{blu}{f6}sp%{CBM-W}0{CBM-M}sp%{CBM-R}0{$00}{$6b}8j{blu}cc%{CBM-R}(cc%{CBM-A}fg%(4)):vt%{CBM-R}3:ht%{CBM-R}t2%:{sret}9600:{lgrn}"*hit*";{$00}{$71}8{CBM-@}{blu}{swuc}{$00}{cyn}8(#{lgrn}"{clr}";:vt%{CBM-R}4:ht%{CBM-R}t3%:{sret}9600:{lgrn}"you're dead";{$00}{CBM-N}8-#{orng}y{CBM-R}0{CBM-@}5{$00}Z82#{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x:ht%{CBM-R}t3%:{sret}9600:{lgrn}ro$(x,0);:{$82}x{$00}{swlc}97#{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x:ht%{CBM-R}t3%:{sret}9600:{lgrn}"          ";:{$82}x{$00}@9<#{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x{CBM-Q}y:ht%{CBM-R}t3%:{sret}9600:{lgrn}ro$(x,1);:{$82}x{$00}{$76}9a#{orng}x{CBM-R}0{CBM-@}9:vt%{CBM-R}10{CBM-N}x{CBM-Q}y:ht%{CBM-R}t3%:{sret}9600:{lgrn}"          ";:{$82}x{$00}{$7d}9f#{$82}y{$00}A9p#{lgrn}"your score was ";sc%:{f1}"want another chance y/n";a$:{f6}a${CBM-W}{CBM-E}"y"{CBM-M}{$80}{$00}{$fc}9u#sp%{CBM-R}100:ch%{CBM-R}100:lx%{CBM-R}{CBM-G}rn(mr%):ly%{CBM-R}{CBM-G}rn(mr%):lz%{CBM-R}{CBM-G}rn(mz%){$00}{rght}:z#{f6}(cc%{CBM-P}fg%(0)){CBM-M}cc%{CBM-R}cc%{CBM-Q}fg%(0){$00}>:_#{f6}(cc%{CBM-P}fg%(0)){CBM-M}cc%{CBM-R}cc%{CBM-Q}fg%(0){$00}x:{$64}#sc%{CBM-R}sc%{CBM-D}.7:{sret}3000:{f2}750{$00}{lgrn}:{CBM-U}${lgrn}"{clr}";:vt%{CBM-R}1:ht%{CBM-R}1:{sret}9600:{lgrn}"ship exploded with you and robots"{$00}T:{CBM-X}${lgrn}"your score is ";sc%:{f1}"another game y/n";a$:{f6}a${CBM-R}"y"{CBM-M}{f4}{$00}Z:B${$80}{$00}{CTRL-V};{red}%{lgrn}"{clr}";:vt%{CBM-R}9:ht%{CBM-R}1:{sret}9600:{lgrn}"you destroyed all the robots"{$00}q;!%{lgrn}"your score is ";sc%:{f1}"another game y/n";a$:{f6}a${CBM-R}"y"{CBM-M}{f4}{$00}w;&%{$80}{$00}{$70};{$80}%{lgrn}"{home}";:{f6} ht%{CBM-R}0 {CBM-M} 9620{$00}{orng};{f4}%{lgrn}H(ht$,ht%);{$00}{up};{inst}%{f6} vt%{CBM-R}0 {CBM-M} {swuc}{$00}L;{yel}%{lgrn}H("{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}",vt%);:{swuc}{$00}R;{CTRL-O}'{$80}{$00}{$00}{$00}    0 clr:poke59468,12:pg$="voz":nm$="28":goto62000
    1 " gary marsa
    2 " 320 terrace, #2-s
    3 " flushing, mi 48433
    5 "
    6 " cursor #28, nov 1981
    7 " copyright(c)1981 the code works
    8 " box 550, goleta, ca 93116
    9 "
   10 " as of 20nov81
   15 " game idea adapted from
   20 " 'chess by ray and 'smull'
   25 " by martin gardner
   30 " 'isaac asimov's science fiction
   40 " magazine,' march 16, 1981
   50 " (c)1981 by davis publ.
   60 "
  100 dimsq(8,8),v(8,8),at(8,8),p$(8,8),s(5),pc(5),x(5),y(5)
  110 x=rnd(-ti):l=12:bs=l+6:c$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  120 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";tab(7)"setting up ... please wait
  130 fori=1to8:forj=1to8:at(i,j)=0:v(i,j)=0:next:next
  135 sq=crt+14+wd
  140 fori=1to8:forj=1to8:sq(9-i,j)=sq+2*(wd*(i-1)+(j-1)):next:next
  150 gosub590:gosub500:m=0:g=0:c=2
  160 r$="":ifg<4andm-g>l-6then990
  170 gosub860:printc$;"{rvon} move #";mid$(str$(m+1),2);" {rvof}  which square? ";
  180 gosub60000:a$=in$:ifa$="q"thengosub860:goto450
  185 ifa$<>""thena1=val(mid$(a$,2,1)):a2=asc(left$(a$,1))-64:goto190
  187 print"{up}";:goto170
  190 ifa2>-16anda2<-6thena1=val(left$(a$,1)):a2=asc(mid$(a$,2,1))-64
  195 if(a1<1ora1>8)or(a2<1ora2>8)then170
  200 iflen(a$)=4then260
  210 iflen(a$)<>2then170
  240 ifv(a1,a2)=0thenh=sq(a1,a2):f=48+at(a1,a2):gosub930:pokeh,f:m=m+1:goto370
  250 printleft$(c$,c);tab(32)a$;at(a1,a2):c=c+1:m=m+1:goto370
  260 w$=mid$(a$,3,1):p1$=right$(a$,1)
  270 ifw$<>"="thenprint"{down}no {rvon}"w$"{rvof}'s, please.":gosub920:goto170
  280 restore:fori=1to5:readp:ifp1$=chr$(p+64)then300
  290 nexti:goto170
  300 ifv(a1,a2)=0thenprint"{down}there's no piece there!":gosub920:goto170
  330 ifp1$<>p$(a1,a2)thenprint"{down}{rvon} wrong!! ":m=m+1:goto360
  340 print"{down}{rvon} right!! ":r$="{rvon}":g=g+1:m=m+1
  350 h=sq(a1,a2):f=v(a1,a2):gosub950:pokeh,f
  360 gosub920
  370 gosub880:gosub890:iff9then450
  380 ifg=5then400
  390 goto160
  400 gosub970:gosub860:printc$;"you got them all in";m;"moves!!
  410 goto460
  420 printc$;"{down}{down}";:ifbs<l+6thenprint"your best score is";bs;"{left}.{down}
  430 print"want to try again? ";:gosub60000:print"{clr}"
  435 ifleft$(in$,1)<>"n"then120
  440 end
  450 fori=1to5:h=s(i):f=pc(i):gosub950:pokeh,f:next
  460 c=2:fori=1to8:forj=1to8:ifv(i,j)then480
  470 h=sq(i,j):f=48+at(i,j):gosub930:pokeh,f:goto490
  480 printleft$(c$,c);tab(32)chr$(j+64);chr$(i+48);at(i,j):c=c+1
  490 next:next:goto420
  500 print"{clr}";tab(13)"{rvon}{CBM-A} {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F} {CBM-D}{CBM-I}{CBM-F}"
  510 fori=1to4:printtab(11)str$(10-2*i)"{rvon}  {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K}"
  520 printtab(13)"{rvon}{CBM-D}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-V}"
  530 printtab(11)str$(9-2*i)"{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K} {rvof}{CBM-K} {rvon}{CBM-K}  ":ifi=4then550
  540 printtab(13)"{rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{rvof}{CBM-B}{CBM-I}{rvon}{CBM-B}{CBM-I}{CBM-F}":next
  550 printtab(13)"{rvon}{CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-C}{rvof}{CBM-I}{rvon}{CBM-V} {CBM-X}":printtab(14)"a b c d e f g h
  560 fori=1to5:pokes(i),102:next:print"{home}RRRRRRR":print" moves
  570 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":return
  580 data11,17,18,2,14
  590 restore:fori=1to5:readpc(i)
  600 x%=8*rnd(1)+1:y%=8*rnd(1)+1:ifv(x%,y%)then600
  610 v(x%,y%)=pc(i):p$(x%,y%)=chr$(64+pc(i)):s(i)=sq(x%,y%):x(i)=x%:y(i)=y%
  620 next
  630 fori=1to5:x=x(i):y=y(i):onigosub690,850,730,800,650
  640 next:return
  650 forj=-2to2:fork=-2to2:ifj=0ork=0orabs(abs(j)-abs(k))<>1then680
  660 if(x+j<1orx+j>8)or(y+k<1ory+k>8)then680
  670 at(x+j,y+k)=at(x+j,y+k)+1
  680 next:next:return
  690 forj=-1to1:fork=-1to1:ifj=0andk=0then720
  700 if(x+j<1orx+j>8)or(y+k<1ory+k>8)then720
  710 at(x+j,y+k)=at(x+j,y+k)+1
  720 next:next:return
  730 fort=-1to1step2:forj=1to7:x1=x+t*j:ifx1<1orx1>8then760
  740 at(x1,y)=at(x1,y)+1:ifv(x1,y)then760
  750 nextj
  760 nextt:fort=-1to1step2:forj=1to7:y1=y+t*j:ify1<1ory1>8then790
  770 at(x,y1)=at(x,y1)+1:ifv(x,y1)then790
  780 nextj
  790 nextt:return
  800 fort=-1to1step2:foru=-1to1step2
  810 forj=1to7:x1=x+t*j:y1=y+u*j:if(x1<1orx1>8)or(y1<1ory1>8)then840
  820 at(x1,y1)=at(x1,y1)+1:ifv(x1,y1)then840
  830 nextj
  840 nextu,t:return
  850 gosub730:gosub800:return
  860 printc$;:fori=1to5:print"                                       ":next
  870 return
  880 printleft$(c$,m+3);right$(str$(m),2);" ";r$;a$:return
  890 f9=0:ifm<lorg=5thenreturn
  900 gosub860:printc$;"you're out of moves!  ";
  910 m=l-g+5:print"your score is";m;"{left}.":gosub970:f9=1:return
  920 fori=1to3000:next:return
  930 ifpeek(h)>128thenf=f+128
  940 return
  950 ifpeek(h-1)=97thenf=f+128
  960 return
  970 ifm<bsthenbs=m
  980 return
  990 gosub860:printc$;"{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1000 print"{SHIFT--}";tab(12)"<<< warning >>>";tab(38)"{SHIFT--}
 1010 print"{SHIFT--}";tab(38)"{SHIFT--}
 1020 print"{SHIFT--}  you have";l-m;"move";:ifm<l-1thenprint"s";
 1030 print" to get";5-g;"pieces.";tab(38)"{SHIFT--}
 1040 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}":gosub920:goto170
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by gary marsa
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}which chess piece is which?
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 gett$:ift$=""then62050
 62060 print"{clr}":clr:cr$=chr$(13):crt=32768
 62070 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 62080 goto100
    0 clr:poke59468,12
    1 rem wander copyright (c) 1978 glen fisher
    2 rem cursor #1, july, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
    5 rem
   10 rem as of 15 may 80
   90 pg$="wander":nm$="1":gosub62000
  100 clr:bl=32:crt=32768:ht=25:wd=40
  103 p$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  104 wc=87:hd=81
  105 poke59468,12
  106 dimrc(7),cc(7),ds(7)
  107 fori=0to7:ds(i)=i:readrc(i),cc(i):nexti
  108 data-1,-1,-1,0,-1,1,0,-1,0,1,1,-1,1,0,1,1
  109 old=32767
  117 print"{clr}{down}{down}{down}how long would you like it? ";:gosub60000:wsz=val(in$)
  118 ifwsz<1thenprint"{down}be serious!":goto63000
  119 ifwsz=1thenprint"{down}sorry, but it must be longer than that.":goto63000
  121 ifwsz>255thenprint"{down}worms can't grow longer than 255!!!":goto63000
  130 dimwm(wsz):hp=0:tp=0:sz=0
  140 print"{clr}";
  145 tr=-1
  150 getrk$:ifrk$=" "thengoto2000
  190 ifsz<wszthen300
  200 loc=wm(tp):tp=tp+1:sz=sz-1
  205 iftp>wszthentp=0
  210 pokeloc,bl
  220 iftr<0then300
  230 loc=loc-crt:nr=int(loc/wd):nc=loc-nr*wd
  240 ifabs(tr-nr)<2andabs(tc-nc)<2then300
  245 fori=1to25:nexti
  250 goto200
  300 dc=8:tr=-1
  305 ifrnd(1)>.1then330
  310 dc=dc-1:ifdc<0thentr=row:tc=col:goto200
  320 t=int(rnd(1)*dc):dr=ds(t):ds(t)=ds(dc):ds(dc)=dr
  330 nr=row+rc(dr):nc=col+cc(dr):loc=crt+wd*nr+nc
  340 if(nr<0)or(nr>=ht)or(nc<0)or(nc>=wd)orpeek(loc)<>blthen310
  345 pokeold,wc:old=loc
  350 ros=nr:col=nc:pokeloc,hd
  360 sz=sz+1:wm(hp)=loc:hp=hp+1:ifhp>wszthenhp=0
  370 goto150
 1000 rem cursor(tm) magazine july, 1978 #1
 1010 rem p.o. box 550, goleta, ca 93017
 2000 rem change print characters
 2010 getrl$:ifrl$=""thengoto2010
 2015 ifrl$=" "thengoto190
 2020 zz=asc(rl$)
 2025 ifzz<>147then2030
 2027 goto100
 2030 ifzz>64thengoto2040
 2035 wc=zz:goto190
 2040 ifzz>191thengoto2050
 2045 wc=zz-64:goto190
 2050 wc=zz-128:goto190
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 print"begin:";:goto60240
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #1  wander
 62010 print"{down}copyright (c) 1978  by glen fisher
 62020 gosub60500
 62030 print"{down}a worm crawls over your pet
 62040 print"{down}{down}want directions? ";:gosub60000
 62050 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62110 print"a friendly worm will make patterns"
 62120 print"on the screen."
 62130 print
 62140 print"you can set the length of the worm"
 62150 print"from 2 to 255."
 62160 print
 62170 print"you can freeze the worm by pressing the"
 62180 print"'space' key. when you press it again"
 62190 print"the worm will continue crawling."
 62200 print
 62210 print"when the worm is frozen, you can"
 62220 print"change the character used for its body"
 62230 print"by pressing whatever character you like."
 62240 print
 62250 print"if you press the 'clr' key when the"
 62260 print"worm is frozen, you can then set"
 62270 print"it's length again."
 62280 gosub60200
 63000 forzz=1to2000:nextzz:goto100
   50 poke59468,12
  100 deffna(w)=int(w*rnd(ti))
  110 dima%(7,7):v=1:w=8
  140 gosub3999:print"{home}","{rght}{rght}{rght}***wartrek***":print:print:print:
  150 print:print:print:print:print:print:print:print:print:print:print:print:print
  160 input"do you need instructions";a$:ifmid$(a$,1,1)="y"thent=1:goto210
  170 ifmid$(a$,1,1)<>"n"thenprint"{up}";:goto160
  210 print"{clr}"
  220 x1=100*int(30*rnd(ti)+20):x2=int(30*rnd(x1)+35)
  260 x3=int(8*rnd(x2)+v):x4=int(9*rnd(x3)+v):x0=int(10*rnd(x2)+abs(x3-30))
  290 y1=int(4*rnd(x4)):y2=v:ify1<>vthen330
  320 y2=-v
  330 x5=int(10*rnd(y1)+v):x5=2*x2+y2*x5+int(x0/2)+15:gosub2000:x6=y3:x7=y4:gosub2000
  440 x8=y3:x9=y4:ift=1thengosub2100
  444 print"{home}":print:print:print:print"{rvon}***information***{rvof}"
  446 print:print"stardate";spc(10);x1:print"klingons";spc(10);x2
  447 print"klingon bases";spc(5);x3:print"starbases";spc(9);x4
  448 print"years";spc(13);x5;"{left} ":print"romulans";spc(10);x0
  449 print"quadrant";spc(10);x6+1;"-";x7+1:print"sector";spc(12);x8+1;"-";x9+1
  450 input"do you want a new configuration     {left}{left}{left}{left}{left}";a$:ifmid$(a$,1,1)="n"then460
  451 t=0:goto220
  460 print"{down}{down}i'm arranging the galaxy now
  470 form=0to7:forn=0to7:a%(m,n)=int(9*rnd(x1)+v):nextn,m:fori=vtox4
  590 gosub2000:ifa%(y3,y4)>9then590
  610 a%(y3,y4)=a%(y3,y4)+10:nexti:fori=vtox3
  640 gosub2000
  645 ifa%(y3,y4)>99then640
  650 a%(y3,y4)=a%(y3,y4)+100:nexti:fori=vtox2
  690 gosub2000
  700 ifa%(y3,y4)>9000then690
  710 a%(y3,y4)=a%(y3,y4)+1000:nexti:fori=vtox0
  740 gosub2000
  750 ifa%(y3,y4)>22768then740
  760 a%(y3,y4)=a%(y3,y4)+10000:nexti
  900 print"{clr}{down}{down}insert galaxy(blank)tape and rewind{down}{down}":gosub62990
  910 open1,1,2:a6$=str$(x0):gosub61000:a6$=str$(x1):gosub61000:a6$=str$(x2):gosub61000
  915 a6$=str$(x3):gosub61000:a6$=str$(x4):gosub61000:a6$=str$(x5):gosub61000
  916 a6$=str$(x6):gosub61000:a6$=str$(x7):gosub61000:a6$=str$(x8):gosub61000
  917 a6$=str$(x9):gosub61000:fori=0to7:forj=0to7:a6$=str$(a%(i,j)):gosub61000:nextj,i
  918 close1:print"{clr}data tape ready. now load {rvon}wartrek2{rvof}":poke59468,12:end
 2000 y3=fna(8):y4=fna(8):return
 2100 print"{clr}";"   as commander of the united states
 2110 print"spaceship enterprise,your mission is to
 2120 print"rid the galaxy of the deadly klingon &
 2130 print"romulan menace. to do this you must
 2140 print"destroy the klingon invasion force of"
 2150 printx2;"battle cruisers & the romulan force of";x0;"spaceships"
 2160 print"you have";x5;"solar years to complete
 2170 print"your mission
 2180 print"  you have";x4;"starbases to support you
 2190 print"when docked(positioned next to)you will
 2200 print"be resupplied with energy and photons
 2210 print:print"the galaxy is divided into{$a0}64 quadrants
 2220 print"and each quadrant into 64 sectors
 2230 print" your position
 2240 print"      quadrant";x6+1;"-";x7+1
 2250 print"      sector  ";x8+1;"-";x9+1
 2260 gosub9000
 2270 print"{clr}":print:print:print"{rvon}***commands***
 2280 print:print:print"only the first 3 letters are needed
 2290 print:print"as the enemy numbers increase your
 2300 print"command time decreases!!!
 2310 print"so be quick and accurate
 2320 print:print:print"impulse=uses impulse engines"
 2325 print"warp=uses warp engines
 2330 print"short=short range senser scanner
 2340 print"long=long range senser scanner
 2350 print"phaser=fires phasers"
 2360 print"photon=fires photon torpedoes"
 2370 print"status=damage control report"
 2380 print"stop=stops the game"
 2390 print:print"more information":inputa$:ifmid$(a$,1,1)="n"then3800
 2400 print"{clr}{up}{up}type in the command that puzzles you and i'll explain in detail"
 2405 print"if none puzzle you type 'none'
 2410 gosub8000
 2420 ifi=0then2270
 2430 on(i+2)/3goto2700,2900,3100,3300,3500,2500,2500,3700
 2500 print"{clr}{rvon}course and warp factors:-{rvof}
 2510 print:print"course=a real number between{$a0}0 and
 2520 print"400,clockwise,from vertically upwards.
 2530 print:print"warp factor=an integer from 1 to 8.
 2540 print"speeds less than warp one are achieved
 2550 print"by using impulse engines.these are
 2560 print"simalar to warp but move in units of
 2570 print"sectors instead of quadrants.
 2580 print:print"distance{$a0}travelled=warp factor*quadrants
 2590 print"**note: warp engines use energy,impulse
 2600 print"don't.both engines take one staryear
 2610 print:print:print"another command please
 2620 gosub8000
 2630 ifi=0then2270
 2640 goto2430
 2700 print"{clr}{rvon}short range sensors:-{rvof}
 2710 print:print"the srs display{$a0}a{$a0}detailed view of your
 2720 print"current quadrant
 2730 print"{rvon}#{rvof}=enterprise
 2740 print"{rvon}>{rvof}=klingon
 2750 print"{rvon}X{rvof}=romulan
 2760 print"{rvon}Q{rvof}=klingon base
 2770 print"{rvon}W{rvof}=starbase
 2780 print"{rvon}*{rvof}=star
 2790 print:print:print"another command please"
 2800 gosub8000
 2810 ifi=0then2270
 2820 goto2430
 2900 print"{clr}{rvon}long range sensers:-{rvof}
 2910 print:print:print"the lsr display the status of the eight
 2920 print"closest quadrants with a five digit
 2930 print"number.
 2940 print:print:print"for example
 2950 print"23108 means :-
 2960 print:print"2 romulans
 2970 print"3 klingons
 2980 print"1 klingon base
 2990 print"0 starbases
 3000 print"8 stars
 3010 print:print:print"another command please
 3020 gosub8000
 3030 ifi=0then2270
 3040 goto 2430
 3100 print"{clr}{rvon}phasers:-{rvof}
 3110 print:print:print"any portian of your available energy
 3120 print"may be fired.the effect depends on the
 3130 print"range.a klingon starts with 200units of
 3140 print"energy.if you hit it,you reduce its
 3150 print"energy and it can only fire back with an
 3160 print"{up}amount equal to what is left
 3170 print:print"only klingons can be destroyed this way
 3180 print:print:print"another command please
 3190 gosub8000
 3200 ifi=0then2270
 3210 goto 2430
 3300 print"{clr}{rvon}photon torpedoes:-{rvof}
 3310 print:print:print"initially you carry 15 photon torpedoes
 3320 print"the course is set as for the engines
 3330 print"and they destroy anything in their path
 3340 print:print:print"another command please
 3350 gosub8000
 3360 ifi=0then2270
 3370 goto2430
 3500 print"{clr}{rvon}damage control report:-{rvof}
 3510 print:print:print"lists the main damages and state of
 3520 print"repair.they are repaired by 1 unit everystardate
 3530 print:print:print"another command please
 3540 gosub8000
 3550 ifi=0then2270
 3560 goto2430
 3700 print"{clr}stop:-
 3710 print:print:print"simply ends the game
 3720 print:print:print"another command please
 3730 gosub8000
 3740 ifi=0then2270
 3750 goto2430
 3800 print"{clr}{rvon}special notes"
 3810 print:print:print"klingons are cagey and gregarious and
 3820 print"move about the galaxy.they cluster
 3830 print"around bases where their energy is
 3840 print"increased to 300 units.if you hit a
 3850 print"klingon and then leave the quadrant its
 3860 print"energy will be restored
 3870 print:print"romulons are loners and evil and very
 3880 print"vicious. they destroy your devices and
 3890 print"because of their special sheilds can
 3900 print"only be destroyed with photons
 3910 print:print"{rvon}be quick and accurate when commanding{rvof}"
 3920 print:print:print"good hunting
 3925 fori=1to9000:nexti
 3930 print"{clr}":return
 3990 return
 3999 print"{clr}";
 4000 printspc(9);" {rvon}{SHIFT-POUND}{CBM-*}{rvof}               {rvon}{SHIFT-POUND}{CBM-*}{rvof}
 4001 printspc(9);"{CBM-*}{rvon}  {rvof}{SHIFT-POUND}             {CBM-*}{rvon}  {rvof}{SHIFT-POUND}
 4002 printspc(9);" {CBM-*}{SHIFT-POUND}               {CBM-*}{SHIFT-POUND}
 4003 printspc(9);" {SHIFT-@}       {rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof}       L
 4004 printspc(9);"{rvon}{SHIFT-POUND} ................. {CBM-*}
 4005 printspc(9);"{CBM-*}{rvon}   {CBM-POUND}           {CBM-POUND}   {rvof}{SHIFT-POUND}
 4006 printspc(9);"    M    {CBM-*}{rvon} {rvof}{SHIFT-POUND}    N
 4007 printspc(9);"     M    {SHIFT--}    N
 4008 printspc(9);"      M   {SHIFT--}   N
 4009 printspc(9);"       M  {SHIFT--}  N
 4010 printspc(9);"        M{rvon}{SHIFT-POUND}{$a0}{CBM-*}{rvof}N
 4011 printspc(9);"        {rvon}{SHIFT-POUND}   {CBM-*}{rvof}
 4012 printspc(9);"        {rvon}  {CBM-+}  {rvof}
 4013 printspc(9);"        {rvon}  {CBM-+}  {rvof}
 4014 printspc(9);"        {CBM-*}{rvon}   {rvof}{SHIFT-POUND}
 4015 printspc(9);"         {CBM-*}{rvon} {rvof}{SHIFT-POUND}
 4017 return
 8000 inputa$:b$="sholonphaphostaimpwarsto":fori=1to22step3
 8010 ifmid$(a$,1,3)=mid$(b$,i,3)then8040
 8020 nexti
 8030 i=0
 8040 return
 9000 fori=1to8000:next:return
 61000 print#1,a6$:gosub63030
 61060 return
 62990 print"hit any key when ready"
 63010 geta6$:ifa6$=""then63010
 63020 return
 63030 ifpeek(50500)<>0thenreturn
 63040 ifpeek(625)<180thenreturn
 63050 poke59411,53:t=ti
 63060 ifti-t<6then63060
 63070 poke59411,61:return
    1 ifpeek(50500)=0thenaa=548:bb=245:goto10
    2 aa=167:bb=216
   10 rem "wartrek 2" copyright t.clark
   20 rem 1979 published by petsoft
   30 rem microact,5-6 vicarage rd,birmingham
   40 rem reproduction prohibited.4421/ad8
  100 deffna(w)=int(w*rnd(1)):dima%(7,7),b%(7,7),c%(5),d%(3,9),e%(2,3),y%(5):print"{clr}"
  110 s$=" {rvon}destroyed{rvof}                ":c$="{rvon}damaged{rvof}":f$="romulan":e$="klingon
  120 b$="lonphaphostaimpwarsto":print"{down}{rvon}welcome to wartrek2{down}{down}
  125 input"{up}level of play(1,2 or 3)";f1:g$=" star":h$=" base":iff1<1orf1>3then125
  130 print"{down}{down}put in your galaxy tape and hit any key when ready
  140 geta$:ifa$=""then140
  150 open1:input#1,x0:input#1,x1:input#1,x2:input#1,x3:input#1,x4:input#1,x5:input#1,x6:input#1,x7:input#1,x8:input#1,x9
  160 fori=0to7:forj=0to7:input#1,a%(i,j):nextj,i:close1:e=4000:w=8:v=1:p=15:print"{clr}"
  170 x5=int(x5*(1+(f1-1)/10)):gosub550:gosub870
  180 datawarp,lrs,srs,pho,pha,stardate,years...,energy..,photons.,klingons
  190 datastatus..,quadrant,sector..,green.,yellow,orange,"{rvon}red{rvof}...",docked
  200 ifx2<>0orx0<>0then220
  210 print"{clr}";"well done":goto530
  220 gosub720:gosub2070:print"{rvon}command{rvof}";:gosub2110:ifi=22then220
  230 on(i+2)/3gosub1220,1370,250,1330,1520,1590,530
  240 gosub870:goto200
  250 ifc%(3)>=0then270
  260 printc$:goto300
  270 ifp<=0thenprint"empty":goto300
  280 m2=1:p=p-1:gosub1920:gosub2200
  290 ify9=0thenprint"{up}missed  "
  300 return
  310 w1=b%(y,x):b%(y,x)=7:gosub1140
  320 b%(y,x)=w1:onb%(y,x)goto400,380,390,340,470,520
  330 goto520
  340 print"{down}";e$;s$:a%(x6,x7)=a%(x6,x7)-1000:x2=x2-v:fori=vtov+w
  350 ifd%(2,i)=yandd%(3,i)=xthen370
  360 next
  370 d%(3,i)=-1:goto510
  380 print"{down}{rvon}idiot{rvof}!,it's a";g$;h$:a%(x6,x7)=a%(x6,x7)-10:x4=x4-v:goto510
  390 print"{down}";e$;h$;s$:a%(x6,x7)=a%(x6,x7)-100:x3=x3-v:goto510
  400 print"{down}";g$;s$:a%(x6,x7)=a%(x6,x7)-v:h1=fna(50)
  410 ifh1>6then510
  420 ifh1=6then460
  430 h1=fna(15)*100:print"{down}{down}nova,energy lose";h1:e=e-h1
  440 ife>=0then510
  450 goto1510
  460 print"{down}{down}{rvon}supernova,loose 3000 units{rvof}":e=e-3000:goto440
  470 print"{down}";f$;s$:a%(x6,x7)=a%(x6,x7)-10000:x0=x0-v:fori=vto9
  480 ife%(v,i)=yande%(2,i)=xthen500
  490 next
  500 e%(2,i)=-1
  510 b%(y,x)=0:y9=v
  520 return
  530 end
  540 y3=fna(8):y4=fna(8):return
  550 fori=0to9:forj=0to7:ifj>=4then600
  560 ifj=3then590
  570 ifi>=3then590
  580 e%(j,i)=0
  590 d%(j,i)=0
  600 ifi<8thenb%(j,i)=0
  610 nextj,i
  620 b%(x8,x9)=6:b=10:a%=a%(x6,x7):fori=vto5:y%(i)=a%-b*int(a%/b)
  630 a%=(a%-y%(i))/b:forj=vtoy%(i):ify%(i)=0then700
  640 gosub540:ifb%(y3,y4)<>0then640
  650 ifi=4thend%(1,j)=300:d%(2,j)=y3:d%(3,j)=y4
  660 ify%(3)=0andi=4thend%(1,j)=200
  670 ifi=5thene%(1,j)=y3:e%(2,j)=y4
  680 b%(y3,y4)=i
  690 nextj
  700 nexti
  710 return
  720 ifa%(x6,x7)/100<1then860
  730 ify%(4)=0then780
  740 gosub2090:fori=vtoy%(4):ifd%(3,i)=-1then770
  750 y8=int(d%(v,i)*rnd(x3)+1.5):e=e-y8
  760 print"hit..energy=";e;e$;d%(2,i)+1;d%(3,i)+1:ife<0then1510
  770 next
  780 ify%(5)=0then860
  790 ify%(5)<>0andy%(4)=0thengosub2090
  800 fori=vtoy%(5):ife%(2,i)=-1then850
  810 p1=fna(5):ifc%(p1)<0then830
  820 c%(p1)=0
  830 c%(p1)=c%(p1)-v:forj=0top1:reada$:nextj:restore
  840 printa$,c$;"..";f$;e%(v,i)+1;e%(2,i)+1
  850 next
  860 return
  870 s=v:ife>500then890
  880 s=2
  890 if(a%(x6,x7)-1000*int(a%(x6,x7)/1000))<100then910
  900 s=3
  910 ifa%(x6,x7)<100then930
  920 s=4
  930 fori=x8-vtox8+v:forj=x9-vtox9+v:ifi<0ori>7orj<0orj>7then950
  940 ifb%(i,j)=2then960
  950 nextj,i:goto970
  960 s=5:fori=0to4:c%(i)=0:nexti:p=15:e=4000
  970 print"{home}";:forj=0to7:printtab(19);:fori=0toj+5:reada$:next
  980 restore:printa$;
  990 onj+1goto1000,1020,1040,1060,1080,1100,1110,1120
 1000 printx1;
 1010 goto1130
 1020 printx5;
 1030 goto1130
 1040 printe;
 1050 goto1130
 1060 printp;
 1070 goto1130
 1080 printx2;
 1090 goto1130
 1100 fori=vtos+13:reada$:nexti:restore:print" ";a$;" ";:goto1130
 1110 printx6+1;x7+1;:goto1130
 1120 printx8+1;x9+1:printtab(19);f$+"s";x0;
 1130 print"{left} ":nextj
 1140 print"{home}";:d$="{SHIFT-+}*WQ>X#Z":print" 1 2 3 4 5 6 7 8 "
 1150 forj=0to7:fori=0to7:ifc%(2)<0thenprint"{SHIFT-*}{SHIFT-+}";:goto1170
 1160 print"{rvon}{SHIFT-*}"mid$(d$,b%(j,i)+v,v)"{rvof}";
 1170 next:printj+1
 1180 next
 1190 ifc%(2)<0thenprint"{rvon} {rvof}";c$:goto1210
 1200 print"srs scan"
 1210 return
 1220 ifc%(1)>=0then1240
 1230 printc$:goto1320
 1240 gosub2090:b=100000:print"lrs scan at";x6+1;x7+1:print"{down} ";x7,x7+v,x7+2
 1250 form=-vtov:z1=0:z2=0:z3=0:ifx6+m=-1orx6+m=8then1310
 1260 ifx7-v=-1then1280
 1270 z1=a%(x6+m,x7-v)
 1280 ifx7+v=8then1300
 1290 z3=a%(x6+m,x7+v)
 1300 z2=a%(x6+m,x7)
 1310 printmid$(str$(z1+b),3,5),mid$(str$(z2+b),3,5),mid$(str$(z3+b),3,5),x6+v+m:nextm
 1320 return
 1330 gosub2090:print"status":fori=0to4:ifc%(i)<0then1350
 1340 c%(i)=0
 1350 reada$:printa$;c%(i);:next
 1360 print:restore:return
 1370 ifc%(4)>=0then1390
 1380 printc$:goto1500
 1390 ify%(4)=0then1500
 1400 print"phas energy";:gosub2110
 1410 q=val(a$):ifq<>int(q)orq<vthenprint"{up}";:goto1400
 1420 ifq>ethen1400
 1430 gosub2090:e=e-q:fori=vtoy%(4):ifd%(3,i)=-1then1490
 1440 q0=sqr((x8-d%(2,i))^2+(x9-d%(3,i))^2):q1=2*q/q0
 1450 printe$" hit at..";d%(2,i)+1;d%(3,i)+1
 1460 ifq1<d%(v,i)then1480
 1470 prints$:x2=x2-1:b%(d%(2,i),d%(3,i))=0:d%(3,i)=-1:a%(x6,x7)=a%(x6,x7)-1000
 1480 d%(v,i)=d%(v,i)-q1
 1490 next
 1500 return
 1510 print"{rvon}destroyed-no energy{rvof}":end
 1520 gosub1920
 1530 print"factor";:gosub2110:l=val(a$):ifc%(0)>=0then1560
 1540 ifl=vorl=2then1560
 1550 print"{up}1 or 2";:goto1530
 1560 ifl=int(l)andl>0andl<9then1580
 1570 print"{up}1 to 8";:goto1530
 1580 l4=0:l=l/8:goto1670
 1590 ifc%(0)>=0then1610
 1600 printc$:return
 1610 gosub1920
 1620 print"factor";:gosub2110
 1630 l=val(a$):ifl=int(l)andl>0andl<9then1650
 1640 print"{up}1 to 8";:goto1620
 1650 l4=25*l:ifl4<ethen1670
 1660 print"energy too low!":return
 1670 e=e-l4:ifx5<>0then1690
 1680 print"no time":end
 1690 x1=x1+1:fori=0to4:c%(i)=c%(i)+1:nexti:x5=x5-1
 1700 m2=2:gosub2200
 1710 ify9=1then1810
 1720 i3=x6:i4=x7:b%(x8,x9)=0:x6=x6+(x8+1)/w-l*sin(k):x7=x7+(x9+1)/w+l*cos(k)
 1730 x9=int(8*(x7-int(x7))+.5)-1:x8=int(8*(x6-int(x6))+.5)-1:ifx8=>0then1750
 1740 x8=7:x6=x6-v
 1750 ifx9=>0then1770
 1760 x9=7:x7=x7-v
 1770 x6=int(x6):x7=int(x7):b%(x8,x9)=6:ifx6=i3andx7=i4then1810
 1780 print"thro'quad":ifx6>-1andx6<8andx7>-1andx7<8then1800
 1790 print"{up}{rvon}lost{rvof}":gosub540:x6=y3:x7=y4
 1800 gosub550
 1810 m=fna(8):forn=0to7
 1820 if(a%(m,n)-1000*int(a%(m,n)/1000))>99then1900
 1830 ifx6=mandx7=nthen1900
 1840 y0=int((a%(m,n)-10000*int(a%(m,n)/10000))/1000):ify0=0then1900
 1850 fori=vtoy0:p0=rnd(y0)^y0:ifp0>.5then1890
 1860 gosub540:ify3=x6andy4=x7then1860
 1870 ifa%(y3,y4)>31767then1860
 1880 a%(m,n)=a%(m,n)-1000:a%(y3,y4)=a%(y3,y4)+1000
 1890 next
 1900 next
 1910 return
 1920 print"course";:gosub2110:q=val(a$):k=500-q:ifk<400then1940
 1930 k=k-400
 1940 k=k/63.662:return
 1950 l0=int(sqr((x8-y)^2+(x-x9)^2)):onb%(y,x)goto2010,1980,2000,1970,2030,2060
 1960 goto2060
 1970 a$=e$:goto2040
 1980 a$=g$+h$:ifl0/w>lthen2040
 1990 fori=0to4:c%(i)=0:nexti:p=15:e=4000:goto2040
 2000 a$=e$+" "+h$:goto2040
 2010 a$=g$:e=e-4*l4:ife<0then1510
 2020 goto2040
 2030 a$=f$
 2040 ifl0/w>lthen2060
 2050 printa$;" at";y+1;x+1;"full reverse thrust":b%(x8,x9)=0:x8=i1:x9=i2
 2055 b%(x8,x9)=6:y9=v
 2060 return
 2070 poke(bb),18:print:forj=1to4:print"                                      ":next
 2080 print"{up}{up}{up}{up}";:return
 2090 poke(bb),10:print:forj=vtow:print"                                      "::next
 2100 print"{up}{up}{up}{up}{up}{up}{up}{up}";:return
 2110 gett$:gett$:gett$:a$="":print" ";:ifa%(x6,x7)/100<1thent=ti+3600:goto2130
 2120 t=ti+180+750/(y%(5)+y%(4)+v)/f1
 2130 poke(aa),0:gett$:ift$<>""then2160
 2140 ifti>tthen2170
 2150 goto2130
 2160 ifasc(t$)<>13thenpoke(aa),1:print" {left}";t$;:a$=a$+t$:goto2130
 2170 poke(aa),1:print" {left}":fori=1to19step3:ifmid$(a$,1,3)=mid$(b$,i,3)then2190
 2180 next
 2190 return
 2200 l1=0:y9=0:l2=-v:i1=x8:i2=x9:ifq<=50orq>=350then2260
 2210 ifq<350andq>250then2230
 2220 l1=7:l2=v:ifq<=250andq>150then2260
 2230 forx=x9tol1stepl2:y=int(x8+.5-(x-x9)*tan(k)):ify<0ory>7then2300
 2240 goto2270
 2250 next:goto2300
 2260 fory=x8tol1stepl2:x=int(x9+.5-(y-x8)/tan(k)):ifx<0orx>7then2300
 2270 onm2gosub310,1950:ify9=vthen2300
 2280 i1=y:i2=x:next
 2300 return
    0 clr:poke59468,12
    1 rem weather copyright (c) 1980 randall lockwood
    2 rem 90 dyke rd
    3 rem setauket, ny 11733
    4 :
    5 rem cursor #18 mar 1980
    6 rem box 550, goleta, ca. 93017
   10 rem as of 25 mar 80
   90 pg$="weather":nm$="18":gosub62000
  100 v$="variably cloudy"
  105 w$="warmer":c$="cooler":p$="precipitation":i$="improvement"
  165 dimz(4)
  190 print:print"{clr}{down}barometer readings:"
  200 fori=1to2
  210 print"{down}time of reading"i"{left}? ";:gosub60000:t=val(in$)
  216 ifright$(in$,2)="pm"thent=t+12
  220 ift<1ort>24thenprint"1 to 24,please.":goto210
  260 print"pressure was? ";:gosub60000:b=val(in$)
  270 ifb<28orb>=32thenprint"28 to 31.9,please.":goto260
  280 z(i)=t:z(i+2)=b:nexti
  290 t1=z(1):b1=z(3):t2=z(2):b2=z(4)
  350 h=7
  360 ifb2>=28.8thenh=6
  370 ifb2>=29.2thenh=5
  380 ifb2>=29.5thenh=4
  390 ifb2>=29.7thenh=3
  400 ifb2>=29.9thenh=2
  410 ifb2>=30.1thenh=1
  420 ifb2>=30.4thenh=0
  430 b=b1-.05*cos((abs(t1-10)/12)*2*~)
  440 e=b+.05*cos((abs(t2-10)/12)*2*~):d=b2-e
  450 v=0
  460 ifd<.15thenv=1
  470 ifd<.07thenv=2
  480 ifd<-.07thenv=3
  490 ifd<-.15thenv=4
  500 print:print"{clr}wind direction{down}
  520 fori=1to8:readx$:printi"{left}. "x$:next
  530 data north,ne,east,se,south,sw,west,nw
  540 gosub60000:w=val(in$)-1
  550 ifw<0orw>7thenprint"enter direction 1-8 please":goto540
  560 print"{down}sky condition{down}"
  570 fori=1to5:readx$:printi"{left}. "x$:nexti
  580 dataclear,partly cloudy,mostly cloudy,overcast,rain
  590 gosub60000:c=val(in$)-1
  592 ifc<0orc>4thenprint"enter condition 1-5 please":goto 590
  620 print"{down}present temperature (fahrenheit)? ";:gosub60000:t=val(in$)
  640 print"{clr}here is the forecast for your immediate
  650 print"area for the next 6 to 24 hour period:{down}{down}
  660 n=200*w+25*h+5*v+c-4:ifn>0thenfori=1ton:readx$:next
  680 fori=1to5:readf$(i):next:j=5
  690 f$=f$(j):iff$=""thenj=j-1:goto690
  695 x$=c$:h=0:m$="":a$=""
  700 y=asc(left$(f$,1))-64:ify>13then720
  710 onygoto740,750,760,770,800,770,820,820,730,991,850,860,880
  720 ony-13goto870,730,890,730,900,910,930,910,730,960,970,970
  730 print"unknown error":end
  740 print"fair":goto1000
  750 x$=w$
  760 print"fair and generally "x$:goto1000
  770 printv$", ";:ify=6thenprintc$" with a chance of ";
  780 print"light "p$".":goto1000
  800 print"partly cloudy with a chance of some"
  810 printp$". a warming trend will":print"follow.":goto1000
  820 print"increasing clouds or overcast":ify=8thenprint"warming trend":t=t+8
  830 goto991
  850 printw$:print:t=t+8:goto991
  860 printc$:print:t=t-8:goto991
  870 printw$", with ";
  880 print"rain likely":goto1000
  890 print"turning"c$:m$=i$:h=24:goto991
  900 m$="clearing":h=12:goto991
  910 m$=i$:a$="cooler weather":h=12:goto991
  930 m$=i$:h=6:goto991
  960 m$="fair":a$=c$:h=6:goto991
  970 m$="clearing":ify=25thenm$="then "+m$:a$="becoming cooler"
  980 printv$:print"slight ";:goto991
  991 gosub1110:ifm$<>""thenprintm$;:ifa$<>""thenprint" and "a$;
  992 ifhthenprint" within"h"hours";
  993 print
 1000 print"{down}winds: ";:b$=right$(f$,1)
 1010 ifb$="n"thenprint" probably increasing"
 1020 ifb$="f"thenprint"13-24 mph
 1030 ifb$="s"thenprint"strong (25-38 mph)
 1040 ifb$="g"thenprint"very strong (>40 mph)
 1050 ifb$="w"thenprint"dangerous (55-73 mph)
 1060 ifb$="h"thenprint"hurricane force
 1070 ifb$="d"thenprint"diminishing
 1080 ifb$="u"thenprint"unchanged
 1090 gosub62040:restore:goto190
 1110 print"chance of ";:ift>=40then1150
 1120 print"{rvon}snow{rvof}";:ift>=30thenprint", sleet";
 1130 ift>=25thenprint" or freezing rain";
 1140 print".":return
 1150 ift<50thenprint"rain or ";
 1160 print"showers";:ift>=50thenprint" or thunderstorms";
 1170 print".":return
 1180 dataad,,,,wd,ad,,,,td,ad,,,xd,rd,au,du,gu,,ju,gn,,,
 1190 datamn,cu,,,,wu,cd,,,,ud,ad,,,xd,rd,au,du,gu,,ju,gn,
 1200 data,,mn,cf,,,,wf,cu,,,,uu,au,,,xu,ru,du,,gu,,ju,gn
 1210 data,,,mn,cf,,,,uf,cf,,,,uf,au,,af,xf,rf,df,,gf,jf,
 1220 datajn,,ln,pn,,cs,,,ys,us,cf,,,ff,sf,cf,,yf,ff,sf,fs
 1230 datals,,,,ls,,,ps,,cs,,,ps,ss,cs,,fs,,ss,cs,fs,,,ss
 1240 datass,,,,,ls,,ps,,,cg,,fg,,sg,cg,fg,,sg,,fg,sg,,,
 1250 datasg,,,,,lg,,pg,,,fw,,,sw,,fw,,sw,,,sw,,,,,sw,,,,,lw,,pw,,
 1260 dataau,,,,tu,au,,,du,ru,au,,,gu,ju,dn,gn,,,mn,gn,,,
 1270 datamn,cu,,,,uu,au,,,du,ru,au,,,gu,ju,dn,gn,,,mn,gn,
 1280 data,,mn,cf,,,,uf,au,,,du,ru,au,,,gu,ju,gn,,,,mn
 1290 datagn,,,,mn,cf
 1300 data,,yf,sf,cf,,,ff,sf,af,,,gf,jf,gn,,,mn,,gs,ms,,,
 1310 datacs,,,fs,ss,cs,,,fs,ss,as,xs,js,,,js,,ms,,,ms,,,
 1320 data,ys,,fs,ss,,fs,,,ss,,ls,,,,,lg,pg,,,,pg,,,,
 1330 datasg,,,,,sg,,,,,lg,,,pg,,pw,,,,,pw,,,,,lw,,,
 1340 data,lw,,,,,pw,,,,,pw,,,,,ph,,,,
 1350 dataau,,,du,ru,au,,,du,ju,au,,du,gu,ju,en,hn,,,nn,hn,,,,nn
 1360 dataau,,,du,ru,au,,,du,ju,au,,du,gu,ju,en,hn,,,nn,hn,,,,nn
 1370 dataau,,,du,ru,au,,,du,ju,au,,du,gu,ju,hn,,,,nn,gn,,,,mn
 1380 dataaf,,,df,jf,af,,,gf,jf,af,,df,gf,jf,gn,,,mn,,gs,ms,,,
 1390 dataas,ds,js,,,ds,js,,,,ds,js,,,,js,ms,,,,ms,,,,
 1400 datals,,,,,ls,,,,,ls,,,,,lg,pg,,,,pg,,,,,lg,,,,
 1410 datalg,,,,,pg,,,,,pw,,,,,pw,,,,,lw,,,,,pw,,,,
 1420 datapw,,,,,pw,,,,,ph,,,,
 1430 dataau,,,du,ju,au,,,du,ju,bu,,eu,hu,ku,en,hn,,,nn,hn,,,,nn,au,,,du,ju
 1440 dataau,,,du,ju,au,,du,gu,ju,hn,,,,nn,hn,,,,nn,au,,,du,ju,au,,,du,ju
 1450 dataau,,du,gu,ju,hn,,,,nn,gn,,,,mn,af,,,df,jf,af,,df,gf,jf,af,,gf,,jf
 1460 datagn,,,mn,,gs,ms,,,,ds,js,,,,js,,,,,js,,,,ms,js,ms,,,,ms,,,,,ls
 1470 data,,,,ls,,,,,ls,,,,,lg,dg,,,,pg,,,,,lg,,,,,lg,,,,,pg,,,,,pw,,,,,pw
 1480 data,,,,lw,,,,,pw,,,,,pw,,,,,pw,,,,,ph,,,,
 1490 dataau,,,,du,bu,,,,eu,bu,,,eu,ku,bn,hn,,,nn,hn,,,,nn,au,,,,du,bu,,,,eu
 1500 databu,,,eu,ku,en,hn,,,kn,hn,,,,nn,au,,,,du,au,,,du,ju,bu,,,eu,ku,hn,,,,kn
 1510 datagn,,,,mn,af,,,df,jf,af,,,df,jf,af,,df,gf,jf,gn,,,jn,mn,gn,,,mn,,ds
 1520 datajs,,ss,,df,jf,,sf,,jf,,,,,js,,,ms,,ls,,ps,,,ss,,,,,ss,,,,,ss,,,,,ss
 1530 data,,,,ls,,ps,,,sg,,,,,sg,,,,,sg,,,,,sg,,,,,lg,,pg,,,sw,,,,,sw
 1540 data,,,,sw,,,,,sw,,,,,lw,,pw,,
 1550 dataau,,,,du,bu,,,,eu,bu,,,,eu,bn,en,hn,,kn,en,hn,,,kn,au,,,,du,au,,,,du
 1560 databu,,,eu,ru,bn,en,hn,,kn,hn,,,,kn,cf,,,,ff,au,,,,tu,bu,,,xu,ru
 1570 dataen,hn,,,kn,hn,,,gn,jn,cf,,,yf,uf,af,,,xf,rf,af,,xf,df,rf,gn,,,jn,,gn
 1580 data,,jn,,cs,,ys,fs,us,cf,,ff,,sf,df,ff,lf,sf,,js,ls,,ss,,ss,,,,,cs
 1590 datafs,,ss,,fs,,,ss,,ss,,,,,ss,,,,,ss,,,,,fg,,sg,,,sg,,,,,sg,,,,,sg
 1600 data,,,,sg,,,,,sw,,,,,sw,,,,,sw,,,,,sw,,,,,sw,,,,
 1610 dataad,,,,xd,bd,,,,xd,bd,,,,ed,bu,,eu,,ku,bn,,en,hn,kn
 1620 dataau,,,,xu,ad,,,,xd,ad,,,,dd,bu,,eu,,ku,bn,en,hn,,kn
 1630 datacf,,,,xf,au,,,,xu,au,,,,tu,bu,,eu,du,ju,en,,hn,,jn
 1640 datacf,,,,wf,cf,,,,wf,au,,af,,tf,af,df,gf,jf,,dn,gn,,jn,,cs
 1650 data,,,ws,cf,,,,uf,af,cf,,yf,uf,df,,jf,sf,,ls,ss,,,,cs,,,,us
 1660 datacs,,,fs,us,cs,,fs,,s,fs,ls,ss,,,ss,,,,,cg,,yg,fg,ug
 1670 datafg,,,ug,,fg,,sg,,,sg,,,,,sg,,,,,fw,,,sw,,fw,,sw,,
 1680 datasw,,,,,sw,,,,,sw,,,,
 1690 dataad,,,,xd,ad,,,,xd,ad,,,,xd,bu,,eu,,ku,bn,,en,hn,kn,cu,,,,yu
 1700 dataad,,,,xd,ad,,,,xd,bu,,eu,,ku,bn,en,,hn,kn,cf,,,,yf,cu,,,,yu
 1710 dataau,,,,tu,au,,du,,ju,bn,en,dn,gn,jn,cf,,,,wf,cf,,,,wf,au,,af,,tf
 1720 dataaf,df,,,jf,dn,,,jn,,cs,,,,ws,cf,,,,uf,af,cf,,yf,uf,af,df,,sf,,fs,,ss
 1730 data,,cs,,,,ws,cs,,,ys,us,cs,,fs,,us,fs,,,ss,,ss,,,,,cg,,,yg,ug,cg,,yg
 1740 datafg,ug,fg,,,sg,,fg,sg,,,,sg,,,,,cw,fw,,,uw,fw,,,sw,uw,sw,,,,,sw,,,,
 1750 datasw,,,,,*
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:cr$=chr$(13):goto100
 60500 fori=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #";nm$;"  ";pg$
 62010 print"{down} copyright (c) 1980  by randall lockwood
 62020 gosub60500
 62030 print"{down}forecast the weather?
 62040 print"{down}{down}{down}hit {rvon}return{rvof} to begin
 62050 getin$:ifin$=""then62050
 62060 goto60300
   10 poke043,24:poke042,226
   12 poke049,26:poke048,143
   13 run15
   15 gosub13000
   20 p=59464:pokep+3,16:pokep,0
   25 gosub2000:print"     stille nacht, heilige nacht
   30 ad=6800:t2=300:pokep+2,15:gosub1000
   35 ad=6800:pokep+2,152:gosub1000
   40 forn=1to2000:next
   45 gosub3000:printtab(10);"alle jahre wieder
   50 ad=6910:t2=250:pokep+2,51:gosub1000
   55 ad=6910:pokep+2,15:gosub1000:ad=6910:pokep+2,51:gosub1000
   60 forn=1to2000:next
   63 gosub8000:printtab(10);"kommet, ihr hirten
   65 ad=6980:t2=210:pokep+2,15:gosub1000
   70 ad=6980:pokep+2,7:gosub1000
   75 ad=6980:pokep+2,15:gosub1000
   80 forn=1to2000:next
   83 gosub5000
   90 ad=7120:t2=330:pokep+2,15:gosub1000
   95 fori=1to270:next:ad=7120:gosub1000
  100 forn=1to2000:next
  105 gosub3000:printtab(5);"froehliche weihnacht ueberall
  110 ad=7210:t2=200:gosub1000
  120 ad=7210:t2=95:gosub1100
  130 forn=1to2000:next
  135 gosub9000:printtab(11);"jingle bells
  140 ad=7330:t2=50:gosub1200
  150 forn=1to2000:next
  155 gosub8000:print"   i'm dreaming of a white christmas"
  160 ad=7690:t2=2:pokep+2,7:gosub1300
  170 forn=1to2000:next
  175 gosub7000:printtab(8);"leise rieselt der schnee
  180 ad=7800:t2=210:pokep+2,15:gosub1000
  190 ad=7800:pokep+2,19:gosub1000
  200 ad=7800:pokep+2,15:gosub1000
  210 forn=1to2000:next
  215 gosub9000:printtab(4);"suesser die glocken nie klingen
  220 ad=7870:t2=260:gosub1000
  230 ad=7870:pokep+2,53:gosub1000
  250 forn=1to2000:next
  255 gosub10000
  260 t2=280:pokep+2,15:forn=1to3:ad=8020:gosub1000:next
  270 goto14000
 1000 r=peek(ad):t=peek(ad+1):ifr=36thenpokep,0:return
 1010 pokep,r:fori=1tot*t2-40:next:pokep,0:ad=ad+2:goto1000
 1100 r=peek(ad):t=peek(ad+1):ifr=36thenpokep,0:return
 1110 pokep,r:fori=1tot*t2-20:next:pokep,0:fori=1tot*t2-20:next:ad=ad+2:goto1100
 1200 r=peek(ad):t=peek(ad+1):ifr=36thenpokep,0:return
 1210 pokep,r:fori=1tot*t2-20:next:pokep,0:ad=ad+2:goto1200
 1300 r=peek(ad):t=peek(ad+1):ifr=36thenpokep,0:return
 1310 fori=1tot*t2:forj=rtor+2:gosub1350:nextj:forj=r+2torstep-1:gosub1350:nextj:nexti
 1320 pokep,0:ad=ad+2:goto1300
 1350 pokep,j:fork=1to7:nextk:return
 2000 print"{clr}{down}{down}{down}{down}
 2005 printtab(12);
 2010 print"      {SHIFT--}"
 2015 printtab(12);
 2020 print"     {CBM-T}t{CBM-T}"
 2025 printtab(12);
 2030 print"      {SHIFT--}"
 2035 printtab(12);
 2040 print"      T{CBM-G}"
 2045 printtab(12);
 2050 print"     Y{SHIFT--}G"
 2055 printtab(12);
 2060 print"     BYH"
 2065 printtab(12);
 2070 print"     T{CBM-M}{CBM-M}"
 2075 printtab(12);
 2080 print"    Y{CBM-@}{CBM-@}LT"
 2085 printtab(12);
 2090 print"   {CBM-@}{CBM-@}{CBM-G} {CBM-G}{CBM-G}"
 2095 printtab(12);
 2100 print"  NM M {CBM-G}{CBM-G}"
 2105 printtab(12);
 2110 print" NUIM M{CBM-G}{CBM-G}"
 2115 printtab(12);
 2120 print"N {CBM-Q}{CBM-W} M M{CBM-G}"
 2125 printtab(12);
 2130 print"G {CBM-Z}{CBM-X} H{CBM-T}{CBM-T}{CBM-G}"
 2135 printtab(12);
 2140 print"G    H {CBM-@}{CBM-G}"
 2145 printtab(12);
 2150 print"{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} "
 2200 return
 3000 print"{clr}{down}{down}{down}{down}{down}
 3005 printtab(12);
 3010 print"    {CBM-M}M  {rvon}{SHIFT-POUND}{rvof}{CBM-G}
 3015 printtab(12);
 3020 print"    {CBM-M} M{rvon}{SHIFT-POUND} {rvof}{CBM-G}
 3025 printtab(12);
 3030 print"    {CBM-M} {rvon}{SHIFT-POUND}{rvof}{CBM-*}{rvon} {rvof}{CBM-G}
 3035 printtab(12);
 3040 print" {CBM-@}{CBM-@}{CBM-@}{SHIFT-@}{rvon}{SHIFT-POUND} {rvof} {CBM-*}L{CBM-@}{CBM-@}{CBM-@}
 3045 printtab(12);
 3050 print" {CBM-*}{rvon}{$a0}{$a0}{rvof}{SHIFT-POUND}{CBM-*}{rvon} {rvof} {rvon}{SHIFT-POUND}{CBM-*}{rvof}  N
 3055 printtab(12);
 3060 print"  {CBM-*}{SHIFT-POUND}  {CBM-*}{rvon}{SHIFT-POUND}  {CBM-*}{rvof}N
 3065 printtab(12);
 3070 print" {$a0}N{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}{CBM-*}{rvof}  {rvon}{SHIFT-POUND}{CBM-*}
 3075 printtab(12);
 3080 print" N  {CBM-*}{SHIFT-POUND} {rvon} {CBM-*}{SHIFT-POUND}  {CBM-*}
 3085 printtab(12);
 3090 print" {CBM-T}{CBM-T}{CBM-T}P{rvon}{CBM-*}{rvof} {rvon} {rvof}{SHIFT-POUND}O{CBM-T}{CBM-T}{CBM-T}
 3095 printtab(12);
 3100 print"    {CBM-M}{rvon} {CBM-*}{rvof}{SHIFT-POUND} {CBM-G}{$a0}
 3105 printtab(12);
 3110 print"    {CBM-M}{rvon} {rvof}{SHIFT-POUND}M {CBM-G}
 3115 printtab(12);
 3120 print"    {CBM-M}{SHIFT-POUND}  M{CBM-G}
 3130 print
 3200 return
 5000 print"{clr}{down}{down}{down}{down}
 5005 printtab(10);
 5010 print" {CBM-M}{CBM-G}
 5015 printtab(10);
 5020 print" {rvon}{CBM-K}{rvof}{CBM-K}
 5025 printtab(10);
 5030 print" {rvon}{CBM-G}{CBM-M}
 5035 printtab(10);
 5040 print"{CBM-N}{rvon}{CBM-L}{CBM-J}{rvof}{CBM-H}
 5045 printtab(10);
 5050 print"{rvon}{CBM-J}{rvof}UI{rvon}{CBM-L}
 5055 printtab(10);
 5060 print"{CBM-K}{CBM-Z}{CBM-X}{rvon}{CBM-K}
 5065 printtab(10);
 5070 print"{rvon} {CBM-Y}{CBM-Y} "
 5075 printtab(10);
 5080 print"{rvon} UI "
 5085 printtab(10);
 5090 print"{rvon} JK "
 5095 printtab(10);
 5100 print"{rvon}   {CBM-M}           {CBM-*}
 5105 printtab(10);
 5110 print"{rvon}   {CBM-M}            {CBM-*}
 5115 printtab(10);
 5120 print"{rvon}   {CBM-M}{rvof}UIUIUIUIUIUI{CBM-M}
 5125 printtab(10);
 5130 print"{rvon} {rvof}{SHIFT-POUND}{CBM-*}{rvon}{CBM-M}{rvof}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{SHIFT--}{CBM-M}
 5135 printtab(10);
 5140 print"{rvon} {rvof}PO{rvon}{CBM-M}{rvof}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-Z}{CBM-X}{CBM-M}
 5145 printtab(10);
 5150 print"{rvon} {rvof}{SHIFT-@}L{rvon}{CBM-M}{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{SHIFT-@}
 5170 print"{down}   vom himmel hoch, da komm' ich her
 5200 return
 7000 print"{clr}{down}{down}{down}{down}"
 7005 printtab(11);
 7010 print" {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
 7015 printtab(11);
 7020 print"{CBM-M} .   .   .   .  {CBM-G}
 7025 printtab(11);
 7030 print"{CBM-M}.  .  .  .  .  .{CBM-G}
 7035 printtab(11);
 7040 print"{CBM-M}  .   .{rvon}{SHIFT-POUND}{CBM-*}{rvof} .   . {CBM-G}
 7045 printtab(11);
 7050 print"{CBM-M} .  . {rvon}{SHIFT-POUND}  {CBM-*}{rvof} .  . {CBM-G}
 7055 printtab(11);
 7060 print"{CBM-M}.   .{rvon}{SHIFT-POUND}    {CBM-*}{rvof}.   .{CBM-G}
 7065 printtab(11);
 7070 print"{CBM-M}  .   {rvon}{SHIFT-POUND}  {CBM-*}{rvof}.  .  {CBM-G}
 7075 printtab(11);
 7080 print"{CBM-M} .   {rvon}{SHIFT-POUND}    {CBM-*}{rvof} .  .{CBM-G}
 7085 printtab(11);
 7090 print"{CBM-M}.  .{rvon}{SHIFT-POUND}      {CBM-*}{rvof} .  {CBM-G}
 7095 printtab(11);
 7100 print"{CBM-M} .   .{rvon}{SHIFT-POUND}  {CBM-*}{rvof} .   .{CBM-G}
 7105 printtab(11);
 7110 print"{CBM-M}.   .{rvon}{SHIFT-POUND}    {CBM-*}{rvof} . . {CBM-G}
 7115 printtab(11);
 7120 print"{CBM-M}  . {rvon}{SHIFT-POUND}      {CBM-*}{rvof}  . {CBM-G}
 7125 printtab(11);
 7130 print"{CBM-M} . {rvon}{SHIFT-POUND}        {CBM-*}{rvof}. .{CBM-G}
 7135 printtab(11);
 7140 print"{CBM-M}{rvon}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-P}   {CBM-G}{CBM-M}   {CBM-@}{CBM-O}{rvon}{CBM-U}{CBM-U}{rvof}{CBM-G}
 7145 printtab(11);
 7150 print" {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
 7200 return
 8000 print"{clr}{down}{down}{down}{down}"
 8005 printtab(11);
 8010 print"       {SHIFT-@}L
 8015 printtab(11);
 8020 print"   V   PO   V
 8025 printtab(11);
 8030 print"       {CBM-M}{CBM-G}
 8035 printtab(11);
 8040 print"     M {rvon}{CBM-K}{rvof}{CBM-K} N
 8045 printtab(11);
 8050 print"       {rvon}{CBM-G}{CBM-M}{rvof}
 8055 printtab(11);
 8060 print" {SHIFT-@}L{CBM-@}{CBM-O}{rvon}{CBM-U}{CBM-T}{SHIFT-@}L{CBM-T}{CBM-U}{rvof}{CBM-O}{CBM-@}{SHIFT-@}L
 8065 printtab(11);
 8070 print" PO{CBM-T}{CBM-U}{rvon}{CBM-O}{CBM-@}PO{CBM-@}{CBM-O}{rvof}{CBM-U}{CBM-T}PO
 8075 printtab(11);
 8080 print"       {rvon}{CBM-G}{CBM-M}{rvof}
 8085 printtab(11);
 8090 print"     N {rvon}{CBM-K}{rvof}{CBM-K} M
 8095 printtab(11);
 8100 print"       {CBM-M}{CBM-G}
 8105 printtab(11);
 8110 print"   V   {SHIFT-@}L   V
 8115 printtab(11);
 8120 print"       PO
 8130 print
 8200 return
 9000 print"{clr}{down}{down}{down}{down}{down}{down}
 9005 printtab(9);
 9010 print"       {CBM-@}{CBM-P}{CBM-@}
 9015 printtab(9);
 9020 print"     {rvon}{SHIFT-POUND}     {CBM-*}
 9025 printtab(9);
 9030 print"     {rvon}{CBM-T}EDDDE{CBM-T}
 9035 printtab(9);
 9040 print"    {$a0}{rvon}      {$a0}
 9045 printtab(9);
 9050 print"    {$a0}{rvon}       "
 9055 printtab(9);
 9060 print"    {rvon}{SHIFT-POUND}{CBM-T}DCCCD{CBM-T}{CBM-*}
 9065 printtab(9);
 9070 print"   {rvon}{SHIFT-POUND}         {CBM-*}
 9075 printtab(9);
 9080 print"   {rvon}           "
 9085 printtab(9);
 9090 print"    {CBM-Y}{CBM-U}{CBM-U}{rvon}{CBM-I}{SHIFT-*}{CBM-I}{rvof}{CBM-U}{CBM-U}{CBM-Y}
 9100 print
 9200 return
 10000 poke59468,14
 10010 print"{clr}{down}{down}{down}   O, DU{$a0}FROEHLICHE
 10020 gosub11000
 10030 print"Welt ging verloren,":print"Christ ist geboren.
 10040 gosub12000:gosub11000
 10050 print"Christ ist erschienen,":print"uns zu versuehnen.
 10060 gosub12000:gosub11000
 10070 print"Himmlische Heere":print"jauchzen dir Ehre.
 10080 gosub12000:return
 11000 print"{down}O, du froehliche, o, du selige,
 11005 print"Gnaden bringende Weihnachtszeit!
 11010 return
 12000 print"Freue Dich, o{$a0}Christenheit!
 12010 return
 13000 print"{clr}{down}{down}{down}{down}{down}{down}";tab(10);"******************
 13010 printtab(10);"*weihnachtslieder*
 13020 printtab(10);"******************
 13030 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}                                   "
 13040 print"{down}{down}bitte schalten sie den computer nach
 13050 print"{down}ende des programms aus
 13070 fori=1to5000:next
 13100 return
 14000 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}Wir wuenschen Ihnen
 14010 print"{down}FROHE{$a0}WEIHNACHTEN
 14020 print"{down}und ein
 14030 print"{down}GUTES{$a0}NEUES{$a0}JAHR{down}{down}{down}{down}{down}{down}{down}
    2 goto6
    4 print"well i'll help you alright... i'll ";:return
    6 clr:gosub8:gosub54:gosub86::end
    8 y=10:f=20:g=30:h=40:r=50:j=60:k=70:l=80
   10 rem
   12 print"{clr}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}will 'o the wisp"
   14 print"{home}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}by  mark capella"
   16 print"{home}{down}{down}{down}{down}{down}   you are a poor country boy who is
   18 print"destined to marry the beautiful and kind
   20 print"{up}brunhilde on tomorrow morn. but being
   22 print"young and stupid, you have decided to
   24 print"spend your last day day of freedom
   26 print"exploring the endless forest that
   28 print"surrounds your shack. you could stay
   30 print"home and watch tv but then you'd never
   32 print"get lost in the forest and find high
   34 print"adventure and learn to become a man
   36 print"and what the meaning of life is.
   38 print"{down}   now in the tradition of all these
   40 print"types of games, i'm sure you'll go along
   42 print"{up}with the obvious and get yourself lost.
   44 print"so now that i'm busy, why don't you do
   46 print"just that?? have fun anyhow...
   48 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}   press return when you are ready{rght}{rght}{CBM-B}{left}{left}{left}";
   50 input an$
   52 print"{clr}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}will 'o the wisp{down}{down}{down}":return
   54 dim fl%(10),itm%(10),itm$(10),ex$(10)
   56 fori=1to9:readitm%(i),itm$(i),ex$(i):next
   58 data 30,bottle,an empty bottle lies discarded nearby
   60 data 67,water,a small pool of water collects here
   62 data 0,broom,a smelly witches broom floats nearby
   64 data 59,ball,a magical crystal ball glistens here
   66 data 51,carpet,a flying carpet is rolled up here,0,,ring
   68 data 75,guano,a pile of bat guano slowly rots here
   70 data 31,peel,an old banana peel is lying in the dirt
   72 data 10,can,an empty beer can rusts here
   74 psmz=1
   76 itm$(6)="a gold wedding ring is in your pocket   for your sweet brun"
   78 itm$(6)=itm$(6)+"hilda from the great magician ralph"
   80 true=-1
   82 false=0
   84 return
   86 :
   88 gosub 104
   90 if ps=66 then gosub 410
   92 if eog then return
   94 gosub 132
   96 gosub 152
   98 gosub 200
  100 if eog then return
  102 goto 88
  104 if int(rnd(1)*100)+1<11 then print:print"a small wisp is floating here...
  106 mve=mve+1:if mve=1 then print:goto 112
  108 if mve=4 then mve=0
  110 return
  112 ifps<11thenonpsgoto606,622,634,642,652,662,676,690,704,716
  114 ifps<21thenonps-ygoto734,752,766,778,792,804,806,808,810,812
  116 ifps<31thenonps-fgoto814,816,828,840,850,858,864,876,884,896
  118 ifps<41thenonps-ggoto902,914,920,928,932,942,950,956,966,972
  120 ifps<51thenonps-hgoto978,982,984,986,988,990,992,994,1004,1012
  122 ifps<61thenonps-rgoto1018,1026,1034,1040,1048,1054,1060,1066,1072,1078
  124 ifps<71thenonps-jgoto1082,1090,1096,1102,1108,1116,1124,1132,1140,1148
  126 ifps<81thenonps-kgoto1154,1160,1168,1174,1180,1186,1192,1196,1202,1210
  128 ifps<91thenonps-lgoto1218,1224,1228,1234
  130 return
  132 print:fori=1to9:ifit%(i)=psthenprint""ex$(i)
  134 next:print"obvious exits:";:ifn>0thenprint" n";
  136 ifs>0thenprint" s";
  138 ife>0thenprint" e";
  140 ifw>0thenprint" w";
  142 ifne>0thenprint" ne";
  144 ifnw>0thenprint" nw";
  146 ifse>0thenprint" se";
  148 ifsw>0thenprint" sw";
  150 return
  152 rem
  154 print:input"{rght}{rght}{CBM-B}{left}{left}{left}";com$
  156 ifcom$="{CBM-B}"thenprint"{up}{rght}{rght} {up}";:goto 154
  158 if(com$="again"orcom$="repeat")andverb$<>""thenreturn
  160 ifcom$="again"orcom$="repeat"andverb$=""then1242
  162 cp=0:gosub186
  164 verb$=by$
  166 gosub 186
  168 noun$=by$:ifve$="north"thenve$="n"
  170 ifve$="south"thenve$="s"
  172 ifve$="east"thenve$="e"
  174 ifve$="west"thenve$="w"
  176 ifve$="northeast"thenve$="ne"
  178 ifve$="northwest"thenve$="nw"
  180 ifve$="southeast"thenve$="se"
  182 ifve$="southwest"thenve$="sw"
  184 return
  186 rem
  188 if cp>len(co$)then by$="":return
  190 for sp=cp+1tolen(co$):if mid$(co$,sp,1)<>" "then next
  192 by$=mid$(co$,cp+1,sp-cp-1):cp=sp:ifby$="the"orby$="it"orby$="a"then 188
  194 if by$="an"orby$="that"orby$=""then 188
  196 if by$="jump"orby$="go"orby$="travel"orby$="walk"orby$="move"then 188
  198 return
  200 rem
  202 if(ve$="n" or ve$="e" or ve$="s" or ve$="w") and it%(8)=ps then 1262
  204 if(ve$="ne" or ve$="nw" or ve$="se" or ve$="sw") and it%(8)=ps then 1262
  206 if ve$="n" then 250
  208 if ve$="e" then 254
  210 if ve$="s" then 258
  212 if ve$="w" then 262
  214 if ve$="ne" then 266
  216 if ve$="nw" then 270
  218 if ve$="se" then 274
  220 if ve$="sw" then 278
  222 if ve$="get"orve$="take"orve$="grab"orve$="carry"then328
  224 if ve$="drop"orve$="throw"orve$="toss"orve$="leave"then 348
  226 if ve$="i" or left$(ve$,4)="inve"then368
  228 if ve$="break" or ve$="smash" or ve$="destroy" then 382
  230 if ve$="d"orve$="down"then400
  232 if ve$="in" or ve$="enter" then 532
  234 if ve$="out" or ve$="exit" then 544
  236 if ve$="look" or ve$="see" or ve$="view" then mve=0:return
  238 ifve$="score"orve$="total"thenprint"you are still stuck in the mazes ";:goto1264
  240 if ve$="help" then 566
  242 ifve$="end"orve$="quit"orve$="stop"orve$="done"then 586
  244 ifve$="kill"orve$="attack"thenprint"you have to tell me how to";:goto1268
  246 print"what???":return
  248 rem
  250 if n then ps=n:goto 286
  252 goto 280
  254 if e then ps=e:goto 286
  256 goto 280
  258 if s then ps=s:goto 286
  260 goto 280
  262 if w then ps=w:goto 286
  264 goto 280
  266 if ne then ps=ne:goto 286
  268 goto 280
  270 if nw then ps=nw:goto 286
  272 goto 280
  274 if se then ps=se:goto 286
  276 goto 280
  278 if sw then ps=sw:goto 286
  280 print"you cannot go that way."
  282 if ps=36thenprint"> bang! < as you hit the wall, the rockswake";:goto1274
  284 return
  286 rem
  288 mve=0
  290 if ps=23 and not flg%(1) then flg%(1)=tr:print:goto1244
  292 if ps=84 and not flg%(3) then print:print"you've found prudence !!!"
  294 if ps=16thenprint"a blue will 'o the wisp beckons from theeast"
  296 if ps=18thenprint"a blue will 'o the wisp beckons from theeast"
  298 if ps=19thenprint"a blue will 'o the wisp beckons from thesouth"
  300 if ps=20thenprint"a blue will 'o the wisp beckons from thesouthwest"
  302 if ps=21thenprint"a blue will 'o the wisp beckons from thesoutheast"
  304 if ps=22thenprint"a blue will 'o the wisp beckons from    inside the cave"
  306 if ps=23thenprint"a blue will 'o the wisp dances outside  the cave's entrance"
  308 if(flg%(2)<>1)orflg%(3)<>0then326
  310 if ps=30thenprint"a green will 'o the wisp beckons from   the northeast"
  312 if ps=37thenprint"a green will 'o the wisp beckons from   the north"
  314 if ps=42thenprint"a green will 'o the wisp beckons from   the east"
  316 if ps=43thenprint"a green will 'o the wisp beckons from   the northeast"
  318 if ps=44thenprint"a green will 'o the wisp beckons from   the southeast"
  320 if ps=45thenprint"a green will 'o the wisp beckons from   the southwest"
  322 if ps=46thenprint"a green will 'o the wisp beckons from   the southwest"
  324 if ps=47thenprint"a green will 'o the wisp beckons from   the south"
  326 return
  328 rem
  330 for i=1to9
  332 if it$(i)=no$then336
  334 next:print"that is beyond your power.":return
  336 if it%(i)=-1thenprint"you are already carrying it!!":return
  338 ifit%(i)=0 thenprint"you cheater!! you have to work for that":return
  340 ifit%(i)<>psthenprint"i do not see any "no$" here.":return
  342 ifi=2andit%(1)<>-1thenprint"what will you carry the water in?? ";:goto1250
  344 print"ok! why not?":it%(i)=-1
  346 return
  348 rem
  350 for i=1 to 9
  352 if it$(i)=no$ then 356
  354 next:print"that is beyond your power.":return
  356 if it%(i)<>-1thenprint"you are not carrying it!!":return
  358 if i=1 and it%(2)=-1thenit%(2)=ps:rem if drop bottle, also water
  360 print"ok! why not?":it%(i)=ps
  362 if ps=84 and it%(2)=84 and not flg%(3) then 1252
  364 if ps=84 and it%(2)=84 and not flg%(3)then flg%(3)=tr:it%(3)=ps:it%(2)=-2
  366 return
  368 rem
  370 print
  372 print:print"your inventory is as follows":print:tmp=0
  374 for i=1 to 9
  376 if it%(i)=-1 then print""it$(i):tmp=tmp+1
  378 next:if tmp=false then print" (nothing)"
  380 return
  382 rem
  384 if no$="mirror" then 388
  386 print"how can i break that for you?":return
  388 rem
  390 if ps<>35thenprint"i don't see any mirror here. perhaps if you keep ";
  392 if ps<>35thenprint"looking you'll find one.":return
  394 print"there was something behind that mirror. a hungry troll was behind";
  396 print" that mirror!  he lept out and made you his supper.    too bad ";
  398 print"though, you just can't trust a  hungry troll.":eog=tr:return
  400 rem
  402 if ps<>61thenprint"there is no way to travel through the   solid rock";
  404 if ps<>61thenprint" stupid!!!":return
  406 print"boy are you dumb. i told you not to jumpand now you've killed";
  408 print" yourself.":eog=tr:return
  410 rem
  412 if flg%(2) then 488
  414 print:print"ralph looks up at you slowly... the     accumulated wisdom";
  416 print" of the ages poring   from his sweaty brow. well?? he cackles,";
  418 print"what is it that you want so badly as to interrupt me from my ";
  420 print"studies????{rght}{rght}{CBM-B}{left}{left}{left}";
  422 inputans$:ifans$="freedom"orans$="help"orans$="out"orans$="home"then436
  424 print:input"what??? he says... do you want to get out of here???{rght}{rght}{CBM-B}{left}{left}{left}";ans$
  426 if left$(ans$,1)="y" then 436
  428 print:print"well he mutters, since i can't seem to understand you...";
  430 print" i'll just kill you!!  and with that he waves his hands in a"
  432 print"magical motion and you disappear in a   cloud of bright orange ";
  434 print"dust.":eog=tr:return
  436 if itm%(4)=-1or itm%(5)=-1thenprint:print"i'd like to help you, but that is my"
  438 if itm%(4)=-1or itm%(5)=-1thenprint"treasure that you have there, and i
  440 if itm%(4)=-1or itm%(5)=-1thenprint"dislike a clumsy thief. so say goodbye
  442 if itm%(4)=-1or itm%(5)=-1thenprint"quick cause you're a goner !!! and with
  444 if itm%(4)=-1or itm%(5)=-1thenprint"that he kills you !!!":eog=tr:return
  446 print:print"i'll help you out... but first i need a favor. there is a certain ";
  448 print"witch up norththat i once angered and she has         enchanted my ";
  450 print"magic staff away from me":print
  452 print"she turned it into a broomstick and i   want it back! so if you";
  454 print" can steal it    from her, i'll show you how to get out  of here.";
  456 input"do you want to try??{rght}{rght}{CBM-B}{left}{left}{left}";ans$
  458 ifleft$(ans$,1)<>"y"then print:print"well i never!!! i try to help ";
  460 ifleft$(ans$,1)<>"y"thenprint"you and   you can't help me!!! ";:gosub 4
  462 ifleft$(ans$,1)<>"y"thenprint"help you into a grave !!and with that he ";
  464 ifleft$(ans$,1)<>"y"thenprint"plunges a sword into   your chest. you die."
  466 ifleft$(ans$,1)<>"y"then eog=tr:return
  468 print:print"good!!! now away you go !!! but first.. the way into the witches ";
  470 print"land is not    simple. all paths are charmed so as to only lead you ";
  472 print"away from the land."
  474 print:print"but if you simply reverse the tauntings of the green will 'o the ";
  476 print"wisp, you'll   get there easily enough. ok... now for  the big ";
  478 print"finish !!!"
  480 print:print"the magician waves his hands, and you   black-out in a frenzy of ";
  482 print"sensations. youawake to find..."
  484 ps=36:flg%(2)=tr:mv=0:gosub 104
  486 return
  488 rem
  490 print:print"well mutters ralph, i see you're back."
  492 ifitm%(4)=-1oritm%(5)=-1thenprint"and trying to steal my treasure!!! boy
  494 ifitm%(4)=-1oritm%(5)=-1thenprint"now you've gone and done it... i'm mad!!
  496 ifitm%(4)=-1oritm%(5)=-1thenprint"and a mad wizard is dangerous!!! >poof<
  498 ifitm%(4)=-1oritm%(5)=-1thenprint"you are dead !!!":eog=tr:return
  500 ifitm%(3)<>-1thenprint"and empty handed !!! well i just can't
  502 ifitm%(3)<>-1thenprint"abide any freeloaders. begone gnat!!!
  504 ifitm%(3)<>-1thenprint"and with that he claps his hands, you
  506 ifitm%(3)<>-1thenprint"turn into a gnat, and get eaten by the
  508 ifitm%(3)<>-1thenprint"nearest spider.":eog=tr:return
  510 it%(6)=-1:it%(3)=0:print"and with the broom !! goody-goody he
  512 print"yells !! for finding my staff i hereby
  514 print"grant you your freedom and a present !!
  516 print"check your belongings later he cackles"
  518 print:print">poof!< you are standing under a large
  520 print"beautiful spreading tree.":gosub368
  522 print"your beloved brunhilde is running
  524 print"towards you through the field in slow
  526 print"motion... life is beautiful once again
  528 print"and all is well. i hope you've enjoyed  your little excursion."
  530 eog=tr:return
  532 rem
  534 if ps=22 and no$="cave" then ve$="sw":goto 206
  536 if ps=7 and no$="house" then ve$="e":goto 206
  538 if ps=48 and no$="castle" then ve$="s":goto 206
  540 if ps=64 then ve$="n":goto 206
  542 print"enter what ???":return
  544 rem
  546 ifps=23andno$="cave"thenprint"the bars are quite solid and you are but
  548 ifps=23andno$="cave"thenprint"a poor country boy. you cannot go out":return
  550 ifps=1andno$="house"thenve$="w":goto 262
  552 ifps=49thenve$="n":goto 206
  554 if ps=56thenve$"w":goto 206
  556 if ps=57 then ve$="e":goto 206
  558 if ps=65 then ve$="s":goto206
  560 if ps=50 then ve$="e":goto 206
  562 if ps=51 then ve$="w":goto 206
  564 print"exit what ???":return
  566 rem
  568 print:input"do you really want a little help{rght}{rght}{CBM-B}{left}{left}{left}";ans$
  570 if left$(ans$,1)<>"y" then print"well, since not, back you go.":return
  572 print:print"'get' will let you pick up an object    'drop' puts it down
  574 print"'inventory' prints your supplies        'n' goes north, 'sw' goes";
  576 print" southwest etc 'end' leaves the game"
  578 print:print"if you encounter a witch and wish to    kill her (why not)";
  580 print" you have to figure   out how. i won't tell you, but it will
  582 print"involve some objects and actions that
  584 print"you will have available. that's all.":print:return
  586 rem
  588 print:input"do you really wish to quit now";ans$
  590 if left$(ans$,1)<>"y" thenprint"well if you've changed your mind, then
  592 if left$(ans$,1)<>"y" thenprint"back you'll go!":return
  594 print:print"ok, but you didn't do so well."
  596 if ps<23 thenprint"you didn't even find the caves !!!":goto 604
  598 if not flg%(2)thenprint"you didn't meet the magician !!!":goto 604
  600 if not flg%(3)thenprint"you never killed the witch !!!":goto 604
  602 print"you didn't get the broom to the magician"
  604 print:print"sigh... well i suppose you tried...":eog=tr:return
  606 rem
  608 print"you are in a small farmhouse.  it isn't
  610 print"much but you call it home. in fact it
  612 print"isn't anything to be proud of... it is
  614 print"really pretty shabby... actually it is
  616 print"disgusting but you call it home.  one   door exits to the west.
  618 n=0:e=0:s=0:w=7:ne=0:nw=0:se=0:sw=0
  620 return
  622 rem
  624 print"you are in the forest still. it looks
  626 print"like you may be lost but you never know
  628 print"with these poor farm peasants.
  630 n=0:e=0:s=0:w=0:ne=4:nw=3:se=0:sw=0
  632 return
  634 rem
  636 print"you are in a forest of huge trees. the  forest is full of nuts ..
  638 n=0:e=0:s=0:w=0:ne=0:nw=0:se=2:sw=5
  640 return
  642 rem
  644 print"if you are not lost yet then you know
  646 print"that you are in the forest. (does that  make any sense?)
  648 n=0:e=0:s=0:w=0:ne=0:nw=0:se=15:sw=2
  650 return
  652 rem
  654 print"you are in a forest of huge trees. the
  656 print"forest is full of nuts ..
  658 n=0:s=0:e=0:w=0:ne=3:nw=0:se=0:sw=6
  660 return
  662 rem
  664 print"the forest is all around you. you are in";
  666 print"the forest. in the forest you are. do
  668 print"you need any more help? you are in the  huge forest with the rest";
  670 print" of the nuts.
  672 n=0:e=0:s=8:w=0:ne=5:nw=0:se=7:sw=0
  674 return
  676 rem
  678 print"you are outside your dilapidated rundown";
  680 print"dirty little farmhouse. you can breathe
  682 print"fresh air again. a well worn path leads
  684 print"to the north and into the forest.
  686 n=5:e=1:s=0:w=0:ne=0:nw=0:se=0:sw=0
  688 return
  690 rem
  692 print"you are in the forest. great mushrooms
  694 print"grow here. they look good to eat but
  696 print"could be very well poisonous. i would
  698 print"not try to eat them if i were you.
  700 n=6:e=0:s=0:w=0:ne=0:nw=0:se=9:sw=0
  702 return
  704 rem
  706 print"the forest is a lovely place isn't it?
  708 print"it has trees and squirrels and nuts and
  710 print"bushes and you who are most likely lost!
  712 n=0:e=0:s=0:w=0:ne=0:nw=0:se=10:sw=0
  714 return
  716 rem
  718 print"boy you just keep walking deeper and
  720 print"deeper into the forest. why did you have";
  722 print"to leave that nice little run down
  724 print"shanty of yours in search of adventure?
  726 print"if you wanted adventure then you are in
  728 print"the wrong fantasy.
  730 n=0:e=0:s=0:w=0:ne=11:nw=9:se=0:sw=0
  732 return
  734 rem
  736 print"you are in the forest a long way
  738 print"from home. monsters could be anywhere.
  740 print"they could be... behind you now!!! ha-ha";
  742 print"i'll bet i scared you didn't i??? well
  744 print"to tell the truth you are just in the
  746 print"forest with the squirrels.
  748 n=0:e=0:s=0:w=0:ne=0:nw=0:se=12:sw=10
  750 return
  752 rem
  754 print"the forest is getting darker and you are";
  756 print"out way past my bedtime. maybe you
  758 print"should turn around and just go home.
  760 print"that is if your shack is still standing.
  762 n=0:e=0:s=0:w=0:ne=13:nw=11:se=0:sw=0
  764 return
  766 rem
  768 print"boy it is really dark now... monsters
  770 print"could be anywhere... why not go home to
  772 print"your mother?
  774 n=14:e=0:s=0:w=9:ne=17:nw=0:se=0:sw=0
  776 return
  778 rem
  780 print"aha! you are in a clearing and can see
  782 print"a trail you are familiar with leading to";
  784 print"the south-west. of course there are
  786 print"other trails but this seems the smartestmove at this time.
  788 n=15:e=0:s=13:w=0:ne=0:nw=0:se=0:sw=7
  790 return
  792 print"well for the hopelessly lost... you are
  794 print"in the large dark mean scary nasty old
  796 print"forest and most likely you'll die here
  798 print"and get eaten by the rotten squirrels.
  800 n=0:e=0:s=14:w=0:ne=0:nw=4:se=0:sw=0
  802 return
  804 gosub 1270:n=0:e=18:s=17:w=0:ne=0:nw=15:se=0:sw=0:return
  806 gosub 1270:n=16:e=0:s=0:w=0:ne=0:nw=0:se=0:sw=13:return
  808 gosub 1270:n=15:e=19:s=17:w=16:ne=15:nw=15:se=17:sw=17:return
  810 gosub 1270:n=15:e=15:s=20:w=18:ne=15:nw=15:se=15:sw=17:return
  812 gosub 1270:n=19:e=15:s=15:w=17:ne=15:nw=17:se=15:sw=21:return
  814 gosub 1270:n=17:e=15:s=0:w=17:ne=20:nw=17:se=22:sw=0:return
  816 print"you're in front of a large cave entrance";
  818 print"what appears to be a huge pot of gold is";
  820 print"sitting in the cave. you'll be rich! you";
  822 print"get your mother her operation! you
  824 print"can buy shoes for your sister! boy are  you lucky!!!
  826 n=15:e=15:s=15:w=17:ne=15:nw=21:se=15:sw=23:return
  828 print"you are in the cave. the exit is barred
  830 print"by huge steel bars and try as you like
  832 print"you cannot get them open. now you'll
  834 print"miss your wedding and brunhilde is going";
  836 print"cry very loudly when she finds out.
  838 n=0:e=0:s=24:w=0:ne=0:nw=0:se=0:sw=0:return
  840 print"you are in the caves proper now. there
  842 print"seems to be many different tunnels about";
  844 print"here and one large one runs to the east.";
  846 print"ofcourse you don't have to listen to me you could always try west.
  848 n=23:e=28:s=25:w=26:ne=0:nw=0:se=0:sw=0:return
  850 print"well lets see... there is a tunnel here
  852 print"that runs east/west and there is a small";
  854 print"fissure barely manageable that goes to  the north-east.
  856 n=0:e=28:s=0:w=26:ne=24:nw=0:se=0:sw=0:return
  858 print"the tunnel branches off here into two
  860 print"paths other than the one you just came  through. confusing isn't it???
  862 n=24:e=25:s=27:w=0:ne=0:nw=0:se=0:sw=0:return
  864 print"the tunnel here turns slightly off
  866 print"course. oh by the way, if you were wond-";
  868 print"ering about how you could see if you are";
  870 print"thirty or forty feet underground... the
  872 print"air is filled with magic and it glows   enough for you to see by.
  874 n=0:e=26:s=30:w=0:ne=0:nw=0:se=0:sw=0:return
  876 print"you are at a small intersection of about";
  878 print"four passages. well exactly four pass-
  880 print"ages. i'm not going to tell you which   way they go !!
  882 n=24:e=0:s=31:w=25:ne=0:nw=0:se=0:sw=29:return
  884 print"you are at the intersection of two small";
  886 print"passages. one leads north-west and the
  888 print"other leaves to the south. on the wall
  890 print"is scrawled... 'death to those who take
  892 print"the south passage'.
  894 n=0:e=0:s=38:w=0:ne=0:nw=26:se=0:sw=0:return
  896 print"not 'many' but quite a few passages
  898 print"leave this room. can you find them??
  900 n=27:e=0:s=0:w=0:ne=0:nw=0:se=36:sw=37:return
  902 print"the room here is extremely dark. i can
  904 print"not tell you anything except that a
  906 print"large rock here is repelling the magic
  908 print"that gives you light. you have also been";
  910 print"bumping into walls now for about fifteenminutes.
  912 n=0:e=0:s=33:w=28:ne=0:nw=0:se=32:sw=0:return
  914 print"aha! you got yourself out of that last
  916 print"room! good! now you can follow the next tunnel as it leads you ";
  918 print"southward.":n=0:e=0:s=34:w=0:ne=0:nw=0:se=0:sw=0:return
  920 print"the room here is filled with dust. it
  922 print"clogs your eyes and makes it difficult
  924 print"to see. follow me to the north or to thesouth-west and we'll get out.
  926 n=31:e=0:s=0:w=0:ne=0:nw=0:se=0:sw=35:return
  928 print"a quick bend in the path and you now    have to travel a different way.
  930 n=32:e=0:s=0:w=39:ne=0:nw=0:se=0:sw=0:return
  932 print"these tunnels seem endless don't they?
  934 print"well you might be surprised at what you
  936 print"can find in here. maybe if you break the";
  938 print"big mirror on the west wall you'd find  something of interest behind it.
  940 n=0:e=0:s=0:w=0:ne=33:nw=0:se=0:sw=38:return
  942 print"you have entered a small chamber of
  944 print"sleeping rocks. they must be sleeping
  946 print"since they are not moving. tip-toe      quietly out and you won't wake";
  948 print" them.":n=0:e=0:s=41:w=0:ne=29:nw=30:se=0:sw=0:return
  950 print"you are in a small even walled cave room";
  952 print"a feeling of dizziness confuses your    travels."
  954 n=36:e=36:s=42:w=0:ne=36:nw=30:se=0:sw=0:return
  956 print"well... the message in the last room
  958 print"must have been mistaken... since you are";
  960 print"still alive. well one can't believe any
  962 print"grafitti they read on walls can they?
  964 n=0:e=0:s=0:w=0:ne=35:nw=0:se=0:sw=41:return
  966 print"three passages leave here. one to the
  968 print"north... one to the west... and one to  the south. which way will";
  970 print" you take?":n=34:e=0:s=40:w=33:ne=0:nw=0:se=0:sw=0:return
  972 print"four paths leave here. loud majestic    singing seems to be comi";
  974 print"ng from nearby. could this be a sign? could it lead out of here?";
  976 print" could you be going home???":n=35:e=39:s=0:w=41:ne=0:nw=0:se=0:sw=48:return
  978 print"the passage turns a corner. that's all  this room rates as a discription.
  980 n=36:e=0:s=0:w=0:ne=38:nw=0:se=0:sw=0:return
  982 gosub 1258:n=37:e=41:s=41:w=43:ne=41:nw=0:se=41:sw=44:return
  984 gosub 1258:n=42:e=42:s=41:w=0:ne=0:nw=0:se=41:sw=44:return
  986 gosub 1258:n=43:e=43:s=0:w=0:ne=43:nw=45:se=0:sw=0:return
  988 gosub 1258:n=44:e=43:s=44:w=44:ne=46:nw=44:se=44:sw=0:return
  990 gosub 1258:n=45:e=43:s=43:w=44:ne=47:nw=44:se=43:sw=45:return
  992 gosub 1258:n=67:e=43:s=43:w=46:ne=43:nw=46:se=43:sw=46:return
  994 print"you are at the entrance to a large clean";
  996 print"castle. it is the home of the all power-";
  998 print"ful all knowing all kind all drunk
 1000 print"magician ralph. he alone has the power  to get you home to sweet brun";
 1002 print"hilde.":n=40:e=0:s=49:w=0:ne=0:nw=0:se=0:sw=0:return
 1004 print"you are at the north end of the great   hall. fine pictures and ";
 1006 print"oil paintings   are hung from the walls. this magician  seems to";
 1008 print" have done well for himself.":n=48:e=0:s=50:w=0:ne=0:nw=0:se=0:sw=0
 1010 return
 1012 print"you are in the middle of the hall. a    door to your right leads ";
 1014 print"into the blue  room and one to your left to the green  room.":n=49
 1016 e=51:s=53:w=52:ne=0:nw=0:se=0:sw=0:return
 1018 print"you are in the blue room. a great sense of deepression flows like";
 1020 print" waves through you. you long for home and your sweet   brunhilde";
 1022 print". how you wish you were there.":n=0:e=0:s=0:w=50:ne=0:nw=0:se=0
 1024 sw=0:return
 1026 print"you are in the green room. you are sudd-enly very jealous of ral";
 1028 print"ph and his fine castle. how come he rates all this stuffand you ";
 1030 print"live in a hole in the ground?!?":n=0:e=50:s=0:w=0:ne=0:nw=0:se=0
 1032 sw=0:return
 1034 print"you are now at the south end of the     great hall. hallways lea";
 1036 print"ve to the north and to the east an to the west.":n=50:e=54:s=0
 1038 w=61:ne=0:nw=0:se=0:sw=0:return
 1040 print"you are in the middle of the east hall. a rat scurries past you ";
 1042 print"and takes a nip at your leg. in an instant he is gone   with a s";
 1044 print"sneer and a twitch of his tail.":n=0:e=55:s=0:w=53:ne=0:nw=0:se=0
 1046 sw=0:return
 1048 print"you are at the end of the east hall. theonly new passage is a sm";
 1050 print"all servants    exit to the south-east.":n=0:e=0:s=0:w=54:ne=0:nw=0
 1052 se=56:sw=0:return
 1054 print"you are in the servant's area. since    ralphs last servant died";
 1056 print" nine-hundred   years ago the place is a mess and also  smells p";
 1058 print"retty bad.":n=0:e=0:s=0:w=57:ne=55:nw=0:se=0:sw=0:return
 1060 print"you are outside the servants quarters.  a distressing smell come";
 1062 print"s from the east.its best to go back to the west for yournoses sake.
 1064 n=0:e=56:s=0:w=58:ne=0:nw=0:se=0:sw=0:return
 1066 print"you are in the middle of the south hall.an eerie light comes from";
 1068 print" the west and  great music fills the air.":n=0:e=57:s=0:w=59:ne=0
 1070 nw=0:se=0:sw=0:return
 1072 print"you are at the end of the south hall.   two small passages leave ";
 1074 print"here. one to   the north-west and one to the south-west":n=0:e=58
 1076 s=0:w=0:ne=0:nw=60:se=0:sw=62:return
 1078 print"you are at the end of the west hall. a  small passage leads to th";
 1080 print"e south-west.":n=0:e=61:s=0:w=0:ne=0:nw=0:se=0:sw=59:return
 1082 print"you are in the middle of the west hall. a large hole in the floo";
 1084 print"r reveals a hugedrop to the ground hundreds of feet
 1086 print"below. better not go down...":n=0:e=53:s=0:w=60:ne=0:nw=0:se=0
 1088 sw=0:return
 1090 print"you are in a winding passage. as your   travel progresses the eer";
 1092 print"ie music gets  louder and you get colder but this couldbe the way";
 1094 print" out!!!":n=0:e=59:s=0:w=0:ne=0:nw=63:se=0:sw=0:return
 1096 print"you are in a connecting hallway with    some loud albeit eerie mu";
 1098 print"sic emanating  from the south-west.":n=0:e=0:s=0:w=0:ne=62:nw=0
 1100 se=0:sw=64:return
 1102 print"you are in a small ante-chamber. a largewell used passage leads ";
 1104 print"to the north anda smaller passage to the west. eerie    music com";
 1106 print"es from the north.":n=65:e=0:s=0:w=66:ne=0:nw=0:se=63:sw=0:return
 1108 print"you open the door and enter into.....   ralphs bathroom. a radio ";
 1110 print"tuned to one ofthe more popular rock stations is blast-ing forth ";
 1112 print"punk rock music. the effect ithas on the castles walls is eerie ";
 1114 print"indeed":n=0:e=0:s=64:w=0:ne=0:nw=0:se=0:sw=0:return
 1116 print"you are in the library where the good   magician ralph is pouring";
 1118 print" over an old   and ancient tome. the word yobyalp showsthrough th";
 1120 print"e cover from the light behind.ralph is deeply absorbed in the book.
 1122 n=0:e=64:s=0:w=0:ne=0:nw=0:se=0:sw=0:return
 1124 print"you are at the edge of the evil witches land. the evil prudence ";
 1126 print"does not seem tobe anywhere around. that is good for yousince sh";
 1128 print"e could turn you into an uglier toad than you already are.":n=68
 1130 e=47:s=73:w=0:ne=0:nw=0:se=0:sw=0:return
 1132 print"walking north you will find a twisting  old trail. to the west ";
 1134 print"lies confusion.  south is the way to go for a fast exit  from this";
 1136 print" land. go there if you value   your life.":n=69:e=0:s=67:w=70:ne=0
 1138 nw=0:se=0:sw=0:return
 1140 print"there is a tiny little hidden twisting  secret old overgrown dirty";
 1142 print" sneaky trail that leads west from here. south is muchnicer but ";
 1144 print"not a lot of fun. a rock here says 'this way to the tlhtsoodst'";
 1146 print" and itpoints west":n=0:e=0:s=68:w=72:ne=0:nw=0:se=0:sw=0:return
 1148 print"you are in a small clearing, a paper    lies nearby. it reads ";
 1150 print"'confusion says-  explorer who gets out... is very lucky  indeed...'"
 1152 n=70:e=70:s=70:w=70:ne=70:nw=70:se=70:sw=74:return
 1154 print"you are in the middle of a long boring  north-south pathway.";
 1156 print" your head is       slightly aching.":n=72:e=0:s=70:w=0:ne=0:nw=0
 1158 se=0:sw=0:return
 1160 print"you are in the sneaky clearing. there   are three exits from here.";
 1162 print" one that goesto the south... one to the south-west...and a dirty";
 1164 print" sneaky.....little trail to  the north.":n=69:e=0:s=71:w=0:ne=0:nw=0
 1166 se=0:sw=76:return
 1168 print"a small clearing at the southern edge ofthe evil prudences land ";
 1170 print"gives you room  to rest and relax. two paths lead awayfrom here.
 1172 n=70:e=0:s=0:w=0:ne=0:nw=77:se=0:sw=0:return
 1174 print"an intersection of three paths is here. your head aches slightly ";
 1176 print"as you approachthe area. you can leave with my blessingif you find";
 1178 print" the way out.":n=75:e=0:s=78:w=0:ne=70:nw=0:se=0:sw=0:return
 1180 print"the paths orientation becomes subtly    altered as round yon corner. ";
 1182 print"watch  out for the bat guano to your left.":n=0:e=0:s=74:w=0:ne=0
 1184 nw=79:se=0:sw=0:return
 1186 print"the midpoint for a long sloping corridoris where you are. not much";
 1188 print" special aboutthis place except the smell of bat guano":n=0:e=0:s=0:w=0
 1190 ne=72:nw=0:se=0:sw=79:return
 1192 print"you are at the midpoint of a long long  sloping corridor leading ";
 1194 print"slightly south.":n=0:e=0:s=0:w=0:ne=74:nw=81:se=73:sw=0:return
 1196 print"the path here is littered with the freshremains of bats and toads.";
 1198 print" their bodies are still decaying in the dirt.":n=0:e=0:s=74:w=82:ne=0
 1200 nw=0:se=0:sw=0:return
 1202 print"you are at the intersection of three    trails. one to the west ";
 1204 print"and one to the  north/east  and one to the south/east.  when your ";
 1206 print"compass works... it sure is a handy thing to have.":n=0:e=0:s=0:w=83
 1208 ne=76:nw=0:se=75:sw=0:return
 1210 print"you are overcome by the feeling of      nausea. as you try to align ";
 1212 print"yourself on your compass you rock and reel back and forth and find";
 1214 print" it difficult to walk in astraight line. what could be causing
 1216 print"this to happen???":n=71:e=72:s=79:w=77:ne=69:nw=84:se=76:sw=82:return
 1218 print"at the southwest edge of the witches    land the tunnel turns slightly.";
 1220 print" either  that or walk into the huge rock that is in its way.":n=82:e=0
 1222 s=0:w=0:ne=0:nw=0:se=77:sw=0:return
 1224 print"oops!!! a sharp turn forces you to go   either south or east depending ";
 1226 print"on which way you came from.":n=0:e=78:s=81:w=0:ne=0:nw=0:se=0:sw=0:return
 1228 print"a room here has an eastern exit and alsoa northern one. from the north ";
 1230 print"comes a  funny feeling of dizziness.":n=80:e=79:s=0:w=0:ne=0:nw=0:se=0
 1232 sw=0:return
 1234 print"you are at the evil witch prudences oldeblacksmithe shoppe. here with ";
 1236 print"her blastefurnacee is where she forges her horses shoes for her huntin";
 1238 print"g raides. the heat  from the furnace burnes to your soul.":n=0:e=0:s=0
 1240 w=0:ne=80:nw=0:se=0:sw=0:return
 1242 print"i can't let you do it again, you haven'tdone anything yet!!!":goto154
 1244 print"*** bang *** !!! as you enter here, the gold disappears in a ";
 1246 print"flash, and a huge  set of steel bars drops into place      locking";
 1248 print" you into the caves.":print:goto 292
 1250 print"your hands?? you have to find a container.":return
 1252 print"auurrrggghhhhh!!! screams the witch !!! in her haste,  the witch";
 1254 print" falls into the blast furnace!! help !! i'm smelting... ";
 1256 print"smelting... is the last she breaths.":goto364
 1258 print"the tunnels in here are very confusing. you will never get out alive."
 1260 return
 1262 print"you slipped and fell on the banana peel,why not try again?":return
 1264 print"aren't you ??? well that's all you need to knowabout how you are";
 1266 print" doing.":return
 1268 print" kill         the "no$:return
 1270 print"the forest is very dark. most trails
 1272 print"seem alike and you cannot get your      bearings in here.":return
 1274 print" up and notice you in their realm.  they stoned you to death."
 1276 eog=true:return
    0 clr:poke59468,12:pk=12
    1 rem wipeout copyright (c) 1979 sheila dolgowich
    2 rem rd #1 irons lane
    3 rem west berne, ny 12191
    4 :
    5 rem cursor #11, june, 1979
    6 rem box 550, goleta, ca. 93017
    7 :
   10 rem as of 7/5/79
   90 pg$="wipeout":nm$="11":gosub62000
  100 dimr(5),d$(6),t(12)
  110 fori=1to6:readd$(i):nexti
  120 data"   {left}{left}{left}{down} Q {left}{left}{left}{down}   "
  121 data"Q  {left}{left}{left}{down}   {left}{left}{left}{down}  Q"
  122 data"Q  {left}{left}{left}{down} Q {left}{left}{left}{down}  Q"
  123 data"Q Q{left}{left}{left}{down}   {left}{left}{left}{down}Q Q"
  124 data"Q Q{left}{left}{left}{down} Q {left}{left}{left}{down}Q Q"
  125 data"Q Q{left}{left}{left}{down}Q Q{left}{left}{left}{down}Q Q"
  200 cr$=chr$(13)
  355 bb$="                                       "
  360 forj=1to12:t(j)=1:nextj
  365 in=0
  375 print"{home}"
  380 print"{home}{down} {rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{CBM-S}
  383 print" {rvon}{SHIFT--} 1{SHIFT--} 2{SHIFT--} 3{SHIFT--} 4{SHIFT--} 5{SHIFT--} 6{SHIFT--} 7{SHIFT--} 8{SHIFT--} 9{SHIFT--}10{SHIFT--}11{SHIFT--}12{SHIFT--}
  385 print" {rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{CBM-X}
  386 print
  390 r=0
  400 d1=int(rnd(1)*6)+1:d2=int(rnd(1)*6)+1:dl=0
  405 gosub1000
  410 r=r+1:gosub800
  415 ifd1=d2thengosub3000:dn=1
  420 gosub1100:ifdnthenprint:print:dn=0
  421 print"remove which numbers? ";:gosub60000:print
  425 ifin$=""then650
  427 n=0:s=0
  430 fori=1tolen(in$):t$=mid$(in$,i,1)
  435 ift$=","then450
  440 ift$<"0"ort$>"9"thenprint"no ";t$;"'s please.":gosub1000:goto420
  445 nexti:i=len(in$)+1
  450 u=val(in$):in$=mid$(in$,i+1):n=n+1
  455 ifn>5thenprint"you can't remove more than 5 numbers":gosub1000:goto420
  457 ifu<1oru>12thenprint"numbers are from 1 to 12":gosub1000:goto420
  460 ift(u)=0thenprint"you've already removed";u;"{left}.":gosub1000:goto420
  465 r(n)=u:s=s+u:fori=0ton-1
  470 ifr(i)=uthenprint"you can't remove";u;"twice.":gosub1000:goto420
  475 nexti:ifin$<>""then430
  480 ifs<>d1+d2thenprint"the numbers must add to";d1+d2;"{left}.":gosub1000:goto420
  500 fork=1ton
  510 u=r(k):t(u)=0
  520 t=3*u-1
  530 print"{home}{down}{down}";tab(t);right$(str$(u),2):nextk
  531 sw=0:fori=1to12:sw=sw+t(i):nexti
  540 ifsw>0then400
  550 dl=0:gosub1000:gosub1100
  560 print"you removed all 12 numbers in";r;"rolls!"
  570 print:goto740
  650 in=in-1:ifin<0then700
  655 print"you just used one extra roll."
  660 ifin<1thenprint"{down}you have no extra rolls left.
  685 gosub3010:gosub1000
  690 goto400
  700 r=r-1:dl=0:gosub1000:gosub1100
  705 f=0:forj=1to12:f=f+t(j):nextj
  710 print"in";r;"roll";:ifr<>1thenprint"s";
  720 print" of the dice, you removed{down}":print12-f;"number";:iff<>11thenprint"s";
  730 print", leaving";f;"number";:iff<>1thenprint"s";
  735 print"."
  740 print"{down}do you want to try again? ";
  750 gosub60000
  760 ifleft$(in$,1)<>"n"then360
  770 goto9999
  800 print"{home}{down}{down}{down}{down}"
  810 print"     U{SHIFT-*}{SHIFT-*}{SHIFT-*}I   U{SHIFT-*}{SHIFT-*}{SHIFT-*}I
  820 print"roll {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}
  830 print"     {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}
  840 printright$(" "+str$(r),3);"  {SHIFT--}   {SHIFT--}   {SHIFT--}   {SHIFT--}
  850 print"     J{SHIFT-*}{SHIFT-*}{SHIFT-*}K   J{SHIFT-*}{SHIFT-*}{SHIFT-*}K
  870 print"{up}{up}{up}{up}{up}"
  880 printtab(6);d$(d1);"{up}{up}";tab(14);d$(d2)
  885 return
 1000 forz=1todl:nextz:dl=2000
 1020 gosub1100:forz=1to12:printbb$:nextz:return
 1100 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":return
 3000 in=in+1:print"{down}{down}you get an extra roll."
 3010 print"{home}{down}{down}{down}{down}{down}{down}";tab(25);
 3020 ifin>0then3050
 3030 print"             ":printtab(25);"             "
 3040 return
 3050 print"{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {left}{left}";:ifin<>1thenprint"{CBM-@}";:ifin>9thenprint"{CBM-@}";
 3060 print:printtab(25);"{rvon}";mid$(str$(in),2);" extra roll{rvof}  {left}{left}{rvon}";
 3065 ifin<>1thenprint"s";
 3070 print:return
 9999 print"{clr}":end
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60300:print"press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"continue:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;" (c) 1979   page";pn:gosub60300
 60270 return
 60300 forz=1to10:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nextz:return
 62000 print"{clr}{down}":printtab(9)"cursor #11  wipeout
 62010 print"{down} copyright (c) 1979  by sheila dolgowich
 62020 gosub60300
 62030 print"{down}eliminate numbers by throwing dice
 62040 print"{down}{down}want instructions? ";:gosub60000
 62050 ifleft$(in$,1)<>"y"thenprint"{clr}";:poke59468,pk:clr:goto100
 62100 lp=3:gosub60200
 62110 print"in the game of wipeout, you are given a
 62120 print"{down}board with the numbers from 1 to 12 on
 62130 print"{down}it. the object of the game is to remove
 62140 print"{down}all 12 numbers from the board. numbers
 62150 print"{down}are removed according to the throw of
 62160 print"{down}the dice.  after each throw, you can
 62170 print"{down}remove any combination of numbers that
 62180 print"{down}add up to what's on the dice. (if you
 62185 print"{down}can't remove anything, just hit {rvon}return{rvof}.)
 62190 gosub60200
 62200 print"for example, if you roll an 8, you can
 62210 print"{down}remove 5 and 3, or 2 and 6, or just an
 62220 print"{down}8, or 1, 2, and 5, or any other set of
 62230 print"{down}numbers that add up to 8.
 62240 print"{down}{down}the only restrictions are that you can't
 62250 print"remove the same number twice, and that
 62260 print"{down}you can't remove more than five numbers
 62270 print"{down}on any given roll of the dice.
 62280 gosub60200
 62290 print"the game is over either when you remove
 62300 print"{down}all twelve numbers, or when you can't
 62310 print"{down}remove any numbers on a roll.
 62320 print"{down}{down}if you roll doubles, you get an extra
 62330 print"{down}roll. when you get a roll in which you
 62340 print"{down}can't remove anything, you can count it
 62350 print"{down}as one of your extra rolls, instead of
 62360 print"{down}ending the game.
 62370 gosub60200
    5 x=rnd(-ti)
   10 poke53,124:clr
   20 dimc$(34),i$(34),r$(4),w$(8),e$(8)
   30 dimc(3,4),t(8),o(3),r(3):print"{clr}"
   40 rem
   50 deffnd(q)=q*64+x*8+y+31927:deffne(q)=q+100*(q>99)
   60 y$=chr$(13)+"** answer yes or no "+chr$(13)
   70 deffna(q)=1+int(rnd(1)*q):deffnb(q)=q+8*((q=9)-(q=0))
   80 q=rnd(-ti):restore:forq=1to34:readc$(q),i$(q):next
   90 forq=32000to32512:pokeq,101:next:forq=1to8:readw$(q),e$(q):next
  100 forq=1to4:readr$(q):next:deffnc(q)=-q*(q<19)-18*(q>18)
  110 print"{clr}":gosub3270:printtab(10)"the wizard's castle":print:gosub3270
  120 print"copyright (c) 1980 by joseph power":print
  130 print"last revised - 07/09/80  12:30 am":print
  135 print"converted to pet by - john o'hare":print
  136 print"codes:"
  137 fori=1to11step2:printi$(i)"="c$(i);tab(20)i$(i+1)"="c$(i+1):next
  138 print"v=vendor";tab(20);"m=any monster"
  139 print"t=any treasure";tab(20);i$(34)"=unexplored"
  140 print:print"please be patient - ";:x=1:y=4
  150 pokefnd(1),2:print"in";:forz=1to7:forq1=1to2:q=104:gosub3200
  160 pokefnd(z+1),103:nextq1:nextz:print"i";
  170 forz=1to8:forq=113to124:gosub3200:nextq:forq1=1to3
  180 forq=105to112:gosub3200:nextq:q=125:gosub3200:nextq1:reado$:printo$;
  185 next
  190 forq=126to133:z=fna(8):gosub3200:nextq:print"g";
  200 q=101:fora=1to3:z=fna(8):gosub3200:c(a,1)=x:c(a,2)=y:c(a,3)=z:c(a,4)=0
  210 reado$:printo$;:next:print"s";:rc=0:sg=2:dx=14:r$(3)="man"
  220 q=112+fna(12):z=fna(8):gosub3200:r(1)=x:r(2)=y:r(3)=z
  230 q=109:z=fna(8):gosub3200:o(1)=x:o(2)=y:o(3)=z:print"tle"
  240 bf=0:ot=8:av=0:ht=0:t=1:vf=0:lf=0:tc=0:gp=60:rf=0:of=0:bl=0
  245 gosub3500
  250 iq=8:sx=0:forq=1to8:t(q)=0:next:print"{clr}all right bold one"
  260 print"you may be an elf, dwarf, man, or hobbit":gosub3280
  270 forq=1to4:ifleft$(r$(q),1)=o$thenrc=q:sg=sg+2*q:dx=dx-2*q
  280 next:print:ot=ot+4*(rc=1):ifrc>0thenr$(3)="human":goto300
  290 print"** that was incorrect. please type e, d,m or h.":goto260
  300 print"sex ";:gosub3290:ifo$="m"thensx=1:goto320
  310 ifo$<>"f"thenprint:print"** cute ";r$(rc);", real cute. try m or f":goto300
  320 print"{clr}":print"ok ";r$(rc);", you have these statistics:":print
  330 print"strength= ";sg;" intelligence= ";iq:print"dexterity =";dx:print
  340 print"and"ot"other points to allocate":print"as you wish.":print
  350 z$="intelligence ":gosub3300:iq=iq+q:ifot=0then370
  360 z$="strength ":gosub3300:sg=sg+q:ifotthenz$="dexterity ":gosub3300:dx=dx+q
  370 print"{clr}":print"ok, ";r$(rc);" you have 60 gold pieces.":print
  380 z$="armor":gosub3390:av=0:wv=0:fl=0:wc=0
  390 print"plate  chainmail  leather  nothing"
  395 print"<30>     <20>       <10>     <0>"
  400 gosub3280:ifo$="n"then440
  410 av=-3*(o$="p")-2*(o$="c")-(o$="l"):ifav>0then440
  420 print:print"** are you a ";r$(rc);" or ";c$(fna(12)+12);
  430 print" ? type p,c,l, or n":print:goto380
  440 ah=av*7:gp=gp-av*10:print"{clr}"
  450 print:print"ok, bold ";r$(rc);", you have":printgp"gp's left":print
  460 z$="weapons":gosub3390
  470 print"sword  mace  dagger  nothing"
  475 print"<30>   <20>   <10>     <0>":gosub3280:ifo$="n"then500
  480 wv=-3*(o$="s")-2*(o$="m")-(o$="d"):ifwv>0then500
  490 print:print"** is your iq really"iq:print"? type s, m, d, or n":print:goto460
  500 gp=gp-wv*10:print"{clr}":ifgp<20then540
  510 print"want to buy a lamp for 20 gp's ";:gosub3290
  520 ifo$="y"thenlf=1:gp=gp-20:goto540
  530 ifo$<>"n"thenprint:printy$:print:goto510
  540 print"{clr}":ifgp<1thenq=0:goto600
  550 print:print"ok, "r$(rc)", you have ";gp;" gold":print"pieces left":print
  560 input"flares cost 1 gp each. how many do you  want";o$
  570 q=val(o$):print:ifq>0orasc(o$)=48then590
  580 print"** if you don't want any just type '0'":print:goto560
  590 ifq>gpthenprint"** you can only afford ";gp:print:goto560
  600 fl=fl+q:gp=gp-q:print"{clr}":x=1:y=4:z=1
  610 print"ok "r$(rc)", you enter the castle ":print"and begin.":print:goto1670
  620 t=t+1:ifrf+of>0then690
  630 ifc(1,4)>t(1)thent=t+1
  640 ifc(2,4)>t(3)thengp=gp-fna(5):ifgp<0thengp=0
  650 ifc(3,4)<=t(5)then680
  660 a=x:b=y:c=z:x=fna(8):y=fna(8):z=fna(8)
  670 pokefnd(z),fne(peek(fnd(z)))+100:x=a:y=b:z=c
  680 ifpeek(fnd(z))<>1then690
  681 forq=1to3
  682 ifc(q,4)then684
  683 c(q,4)=-(c(q,1)=x)*(c(q,2)=y)*(c(q,3)=z)
  684 next
  685 forq=1to3:if-(c(q,1)=x)*(c(q,2)=y)*(c(q,3)=z)thenprint"{down}a curse!"
  686 next
  690 iffna(5)>1then790
  700 print:print"you ";:q=fna(7)+bl:ifq>7thenq=4
  710 onqgosub750,730,740,720,760,770,780:goto790
  720 print"stepped on a frog":return
  730 print"hear ";mid$("a scream footstepsa wumpus thunder",fna(4)*9-8,9):return
  740 print"sneezed":return
  750 print"see a bat fly by":return
  760 print"smell ";c$(12+fna(13));" frying":return
  770 print"feel like you're being watched":return
  780 print"are playing wizard's castle":return
  790 ifbl+t(4)=2thenprint:printc$(29);" cures your blindness":bl=0
  800 ifbf+t(6)=2thenprint:printc$(31);" dissolves the book":bf=0
  810 print:input"your move  {CBM-B}{left}{left}{left}";o$:o$=left$(o$,2):ifo$="dr"then1180
  820 o$=left$(o$,1):ifo$="n"then940
  825 ifo$="{CBM-B}"thenprint"{up}{up}{up}":goto810
  830 if(o$="s")or(o$="w")or(o$="e")then950
  840 ifo$="u"then970
  850 ifo$="d"then990
  860 ifo$="m"then1010
  870 ifo$="f"thenon1+blgoto1070,1010
  880 ifo$="l"thenon1+blgoto1110,1010
  890 ifo$="o"then1310
  900 ifo$="g"thenon1+blgoto1480,1010
  910 ifo$="t"thenprint:on1+rfgoto1590,1600
  920 ifo$="q"then1640
  930 print:print"** stupid ";r$(rc);" that wasn't a":print"valid command.":goto620
  940 ifpeek(fnd(z))=2then2900
  950 x=x+(o$="n")-(o$="s"):y=y+(o$="w")-(o$="e")
  960 x=fnb(x):y=fnb(y):goto1670
  970 ifpeek(fnd(z))=3thenz=z-1:goto1670
  980 z$="up":goto1000
  990 z$="down":ifpeek(fnd(z))=4thenz=z+1:goto1670
 1000 print:print"** oh ";r$(rc);" no stairs going ";z$:print"in here.":goto620
 1010 ifbl=1thenprint:print"** you can't see anything, dumb ";r$(rc):goto620
 1020 print:print:a=x:b=y:forx=1to8:fory=1to8:q=peek(fnd(z)):ifq>99thenq=34
 1030 ifx=aandy=bthenprint"<";i$(q);">";:goto1050
 1040 print" ";i$(q);" ";
 1050 nexty:print:print:nextx:x=a:y=b:goto1100
 1060 print")level ";z:goto620
 1070 iffl=0thenprint:print"** hey bright one, you're out  of flares":goto620
 1080 print:fl=fl-1:a=x:b=y:forq1=a-1toa+1:x=fnb(q1):forq2=b-1tob+1:y=fnb(q2)
 1090 q=fne(peek(fnd(z))):pokefnd(z),q:printi$(q);" ";:nextq2:print:print:nextq1:x=a:y=b
 1100 gosub3400:goto620
 1110 iflf=0thenprint"** you don't have a lamp, ";r$(rc):goto620
 1120 print:print"where do you want to shine the lamp     (n,s,e, or w) ";:gosub3290
 1130 a=x:b=y:x=fnb(x+(o$="n")-(o$="s")):y=fnb(y+(o$="w")-(o$="e"))
 1140 ifa-x+b-y=0thenprint"** turkey! that's not a direction":goto620
 1150 print:print"the lamp shines into (";x;",";y;")":print"level ";z:print
 1160 pokefnd(z),fne(peek(fnd(z))):print"there you will find ";c$(peek(fnd(z)))
 1170 x=a:y=b:goto620
 1180 ifpeek(fnd(z))<>5thenprint:print"** if you want a drink, find a pool":goto620
 1190 q=fna(8):print:print"you take a drink and ";:ifq<7thenprint"feel ";
 1200 onqgoto1210,1220,1230,1240,1250,1260,1270,1290
 1210 sg=fnc(sg+fna(3)):print"stronger":goto620
 1220 sg=sg-fna(3):print"weaker":on1-(sg<1)goto620,2840
 1230 iq=fnc(iq+fna(3)):print"smarter":goto620
 1240 iq=iq-fna(3):print"dumber":on1-(iq<1)goto620,2840
 1250 dx=fnc(dx+fna(3)):print"nimbler":goto620
 1260 dx=dx-fna(3):print"clumsier":on1-(dx<1)goto620,2840
 1270 q=fna(4):ifq=rcthen1270
 1280 rc=q:print"become ";r$(rc):goto620
 1290 sx=1-sx:print"turn into a ":ifsx=0thenprint"fe";
 1300 print"male ";r$(rc):goto620
 1310 ifpeek(fnd(z))=6thenprint:print"you open the chest and...":print:goto1430
 1320 ifpeek(fnd(z))=12thenprint:print"you open the book and...":print:goto1340
 1330 print:print"** the only thing you opened was        your big mouth":goto620
 1340 onfna(6)goto1350,1360,1370,1380,1390,1400
 1350 print"flash! oh no! you're now blind!{$a0}";r$(rc):bl=1:goto1420
 1360 print"its another volume of zot's poetry!     - yeech!":goto1420
 1370 print"its an old copy of play ";r$(fna(4)):goto1420
 1380 print"its a manual of dexterity!":dx=18:goto1420
 1390 print"its a manual of strength !":sg=18:goto1420
 1400 print"the book sticks to your hands .":print
 1410 print"now you can't draw your weapon!":bf=1
 1420 pokefnd(z),1:goto620
 1430 onfna(4)goto1440,1450,1460,1450
 1440 print"kaboom! it explodes!":q=fna(6):gosub2800:on1-(sg<1)goto1420,2840
 1450 q=fna(1000):print"find"q"gold pieces":gp=gp+q:goto1420
 1460 print"gas! you stagger from the room"
 1470 pokefnd(z),1:t=t+20:o$=mid$("nsew",fna(4),1):goto950
 1480 ifpeek(fnd(z))<>11thenprint"** no orb - no gaze":goto620
 1490 print:print"you see ";:onfna(7)goto1500,1510,1530,1540,1560,1575,1580
 1500 print"yourself in a bloody heap":sg=sg-fna(2):on1-(sg<1)goto620,2840
 1510 print"yourself drinking from a pool   and becoming ";c$(12+fna(13))
 1520 goto620
 1530 printc$(12+fna(13));" gazing back at you":goto620
 1540 a=x:b=y:c=z:x=fna(8):y=fna(8):z=fna(8):q=fne(peek(fnd(z))):pokefnd(z),q
 1550 printc$(q):print" at (";x;",";y;") level"z:x=a:y=b:z=c:goto620
 1560 a=fna(8):b=fna(8):c=fna(8):iffna(8)<=4thena=o(1):b=o(2):c=o(3)
 1570 print"the orb of zot at":print"(";a;",";b;") level"c:goto620
 1575 print"the runestaff on level";r(3):goto620
 1580 print"a soap opera rerun":goto620
 1590 ifrf=0thenprint"** you can't teleport without the       runestaff!":goto620
 1600 z$="x-coord (1=far north  8=far south) ":gosub3350:x=q
 1610 z$="y-coord (1=far west   8=far east)  ":gosub3350:y=q
 1620 z$="level   (1=top        8=bottom)    ":gosub3350:z=q
 1630 o$="t":goto1670
 1640 print:print"do you really want to quit ";:gosub3290:print
 1650 ifo$<>"y"thenprint"** then don't say you do":goto620
 1660 print:print:goto2940
 1670 print:ifbl=0thengosub3400:print
 1680 print"st=";sg;" iq=";iq;" dx=";dx:print"flares=";fl;" gp's=";gp
 1690 print:printw$(wv+1);" /";w$(av+5);:iflf=1thenprint" / a lamp";
 1700 print:print:wc=0:q=fne(peek(fnd(z))):pokefnd(z),q:z$="you have "
 1710 print"here you find ";c$(q):if(q<7)or(q=11)or(q=12)then620
 1720 ifq=7thengp=gp+fna(10):print:printz$;gp:goto1420
 1730 ifq=8thenfl=fl+fna(5):print:printz$;fl:goto1420
 1740 ifq>9then1770
 1750 print:if(o(1)=x)and(o(2)=y)and(o(3)=z)thenon1-(o$="t")goto950,3050
 1760 x=fna(8):y=fna(8):z=fna(8):goto1670
 1770 ifq=10thenz=fnb(z+1):goto1670
 1780 ifq>25andq<34thenprint:print"its yours":t(q-25)=1:tc=tc+1:goto1420
 1790 a=peek(fnd(z))-12:wc=0:if(a<13)or(vf=1)then2300
 1800 print:print"you may trade with, attack, or ignore   the vendor"
 1810 gosub3280:ifo$="i"then620
 1820 ifo$="a"thenvf=1:print:print"you'll be sorry you did that":goto2300
 1830 ifo$<>"t"thenprint:print"** nice shot, ";r$(rc):goto1800
 1840 print:forq=1to8:a=fna(q*1500):ift(q)=0then1880
 1850 print:print"do you want to sell ";c$(q+25):print"for ";a;" gp's";
 1860 gosub3290:ifo$="y"thentc=tc-1:t(q)=0:gp=gp+a:goto1880
 1870 ifo$<>"n"thenprinty$:goto1850
 1880 nextq
 1890 ifgp<1e3thenprint:print"you're too poor to trade, ";r$(rc):goto620
 1900 ifgp<1250then2130
 1910 print:print"ok, ";r$(rc);", you have";gp;" gold":print"pieces and ";w$(av+5)
 1920 print:z$="armor":gosub3390:print"nothing<0> leather<1250> "
 1930 ifgp>1499thenprint"chainmail<1500> ";:ifgp>1999thenprint"plate<2000>";
 1940 print:gosub3280:print:ifo$="n"then2010
 1950 ifo$="l"thengp=gp-1250:av=1:ah=7:goto2010
 1960 ifo$="c"andgp<1500thenprint"** you haven't got that much cash":goto1920
 1970 ifo$="c"thengp=gp-1500:av=2:ah=14:goto2010
 1980 ifo$="p"andgp<2000thenprint"** you can't afford plate":goto1920
 1990 ifo$="p"thengp=gp-2000:av=3:ah=21:goto2010
 2000 print:print"** don't be silly. choose a selection":goto1940
 2010 ifgp<1250then2130
 2020 print:print"you have"gp"gp's left with ";w$(wv+1):print" in hand":print
 2030 print:z$="weapon":gosub3390:print"nothing<0> dagger<1250> "
 2040 ifgp>1499thenprint"mace<1500> ";:ifgp>1999thenprint"sword<2000>";
 2050 print:gosub3280:print:ifo$="n"then2130
 2060 ifo$="d"thengp=gp-1250:wv=1:goto2130
 2070 ifo$="m"andgp<1500thenprint"** sorry sir, i don't give credit":goto2030
 2080 ifo$="m"thengp=gp-1500:wv=2:goto2130
 2090 ifo$="s"andgp<2000thenprint"** dungeon express card -"
 2100 ifo$="s"andgp<2000thenprint"   you left home without it!":goto2030
 2110 ifo$="s"thengp=gp-2000:wv=3:goto2130
 2120 print"** try choosing a selection":goto2050
 2130 ifgp<1000then620
 2140 z$="strength":gosub3370:ifo$<>"y"then2160
 2150 gp=gp-1e3:sg=fnc(sg+fna(6)):q=sg:gosub3380:goto2130
 2160 ifo$<>"n"thenprinty$:goto2140
 2170 ifgp<1000then620
 2180 z$="intelligence":gosub3370:ifo$<>"y"then2200
 2190 gp=gp-1e3:iq=fnc(iq+fna(6)):q=iq:gosub3380:goto2170
 2200 ifo$<>"n"thenprinty$:goto2180
 2210 ifgp<1000then620
 2220 z$="dexterity":gosub3370:ifo$<>"y"then2240
 2230 gp=gp-1e3:dx=fnc(dx+fna(6)):q=dx:gosub3380:goto2210
 2240 ifo$<>"n"thenprinty$:goto2220
 2250 if(gp<1000)or(lf=1)then620
 2260 print:print"want a lamp for 1000 gp's ";:gosub3290:ifo$<>"y"then2280
 2270 gp=gp-1000:lf=1:print:print"its guaranteed to outlive you!":goto620
 2280 ifo$<>"n"thenprinty$:goto2260
 2290 goto620
 2300 q1=1+int(a/2):q2=a+2:q3=1
 2310 if(c(1,4)>t(1))or(bl=1)or(dx<fna(9)+fna(9))then2690
 2320 print:print"you're facing ";c$(a+12):print:print"you may attack or retreat";
 2330 ifq3=1thenprint", or bribe":ifiq>14thenprint"or cast a spell"
 2340 print:print"your strength is"sg"and dexterity is"dx:print:gosub3280
 2350 ifo$<>"a"then2480
 2360 ifwv=0thenprint:print"**pounding on ";c$(12+a);" won't hurt it":goto2690
 2370 ifbf=1thenprint:print"**you can't beat it to death with a book":goto2690
 2380 ifdx<fna(20)+(bl*3)thenprint:print"  drat! missed!":goto2690
 2390 print:print"  you hit the lousy ";mid$(c$(a+12),3):q2=q2-wv
 2400 if(a=9ora=12)andfna(8)=1thenprint:print"oh no! your ";w$(wv+1);" broke":wv=0
 2410 ifq2>0then2690
 2420 print:mc=mc-1:printc$(a+12);" lies dead at your feet":ifh>t-60then2440
 2430 print:print"you spend an hour eating":printc$(a+12);e$(fna(8)):h=t
 2440 ifx<>r(1)ory<>r(2)orz<>r(3)thenon1-(a=13)goto2460,3220
 2450 print:print"great zot! you've found the runestaff!":r(1)=0:rf=1
 2460 q=fna(1000):print:print"you now get his hoard of"q"gp's"
 2470 gp=gp+q:goto1420
 2480 ifo$="r"then2690
 2490 if(o$<>"c")then2610
 2500 ifiq<15orq3>1thenprint:print"** you can't cast a spell now!":goto2320
 2510 print:print"which (web, fireball, or deathspell)":gosub3290
 2520 ifo$<>"w"then2540
 2530 sg=sg-1:wc=fna(8)+1:on1-(sg<1)goto2690,2840
 2540 ifo$<>"f"then2580
 2550 q=fna(7)+fna(7):sg=sg-1:iq=iq-1:if(iq<1)or(sg<1)then2840
 2560 print"  it does"q"points of damage.":print
 2570 q2=q2-q:goto2410
 2580 ifo$<>"d"thenprint:print"** try one of the options given":goto2320
 2590 print"death - - - ";:ifiq<15+fna(4)thenprint"yours":iq=0:goto2840
 2600 print"his":print:q2=0:goto2420
 2610 ifo$<>"b"orq3>1thenprint"choose one of the listed options":goto2320
 2620 iftc=0thenprint:print"'all i want is your life!'":goto2690
 2630 q=fna(8):ift(q)=0then2630
 2640 print:print"i want ";c$(q+25);", will you give":print"it to me ";
 2650 gosub3290:ifo$="n"then2690
 2660 ifo$<>"y"thenprinty$:goto2640
 2670 t(q)=0:tc=tc-1:print:print"ok, just don't tell anyone"
 2680 vf=vf+(peek(fnd(z))=25):goto620
 2690 q3=2:ifwc>0thenwc=wc-1:ifwc=0thenprint:print"the web just broke!"
 2700 z$=mid$(c$(12+a),3):ifwc<=0then2720
 2710 print:print"the ";z$;" is stuck and can't attack":goto2750
 2720 print:print"the ";z$;" attacks":ifdx<fna(7)+fna(7)+fna(7)+bl*3then2740
 2730 print:print"  hah! he missed you":goto2750
 2740 print:print"  ouch! he hit you":q=q1:gosub2800:ifsg<1then2840
 2750 ifo$<>"r"then2320
 2760 print:print"you have escaped":print
 2770 print"do you go north,south,east, or west";:gosub3290
 2780 if(o$="n")or(o$="s")or(o$="e")or(o$="w")then950
 2790 print:print"** don't press your lluck ";r$(rc):print:goto2770
 2800 ifav=0then2830
 2810 q=q-av:ah=ah-av:ifq<0thenah=ah-q:q=0
 2820 ifah<0thenah=0:av=0:print:print"your armor is destroyed - good luck"
 2830 sg=sg-q:return
 2840 forq=1to1250:next:print"{clr}":gosub3270
 2850 print"a noble effort, oh formerly             living ";r$(rc):print
 2860 print"you died from lack of ";:ifsg<1thenprint"strength"
 2870 ifiq<1thenprint"intelligence"
 2880 ifdx<1thenprint"dexterity"
 2890 print:print:q3=1:print"when you died you had:":print:goto2970
 2900 q3=0:print:print"you left the castle with";:ifof=0thenprint"out"
 2910 print" the orb of zot":print:ifof=0then2940
 2920 print"a glorious victory!":print
 2930 print"you also got out with the following:":print:goto2960
 2940 print:print"a less than awe-inspiring defeat."
 2950 print:print"when you left the castle you had:":print
 2960 ifq3=0thenprint"your miserable life"
 2970 forq=1to8:ift(q)=1thenprintc$(q+25)
 2980 next:printw$(wv+1):printw$(av+5):iflf=1thenprint"a lamp"
 2990 printfl"flares":printgp"gold pieces":ifrf=1thenprint"the runestaff"
 3000 print:print"it took you"t"turns!":print
 3010 print:print:print"play again";:gosub3290
 3020 ifo$="y"thenprint"some ";r$(rc);"'s never learn":print:print:goto80
 3030 ifo$<>"n"thenprinty$:goto3010
 3040 print"maybe dumb ";r$(rc);" not so":print"dumb after all":print:end
 3050 print:print"great unmitigated zot!"
 3060 print:print"you just found the orb of zot!":print
 3070 print"the runestaff is gone":rf=0:of=1:o(1)=0:goto1420
 3080 data an empty room,"Z",the entrance,"{rvon}e{rvof}",stairs going up,u
 3090 data stairs going down,d,a pool,"W",a chest,"{CBM-POUND}",gold pieces,$
 3100 data flares,"X",a warp,w,a sinkhole,s,a crystal orb,"Q"
 3110 data a book,b,a kobold,m,an orc,m,a wolf,m,a goblin,m,an ogre,m
 3120 data a troll,m,a bear,m,a minotaur,m,a gargoyle,m,a chimera,m
 3130 data a balrog,m,a dragon,m,a vendor,v,the ruby red,t
 3140 data the norn stone,t,the pale pearl,t,the opal eye,t
 3150 data the green gem,t,the blue flame,t,the palantir,t,the silmaril,t
 3160 data x,.,no weapon,wich
 3170 data dagger," stew",mace," soup",sword," burger",no armor," roast"
 3180 data leather," munchy",chainmail," tacos",plate," pie"
 3190 data hobbit,elf,man,dwarf,t,i,a,l,i,z,i,n," ",c,a
 3200 x=fna(8):y=fna(8):ifpeek(fnd(z))<>101then3200
 3210 pokefnd(z),q:return
 3220 print:print"you get all his wares:":print:print"plate armor":av=3:ah=21
 3230 print"a sword":wv=3:print"a strength potion":sg=fnc(sg+fna(6))
 3240 print"an intelligence potion":iq=fnc(iq+fna(6))
 3250 print"a dexterity potion":dx=fnc(dx+fna(6)):iflf=0thenprint"a lamp":lf=1
 3260 goto2460
 3270 forq=1to40:print"{SHIFT-*}";:next:print:return
 3280 print"your choice";
 3290 input"  {CBM-B}{left}{left}{left}";o$:o$=left$(o$,1)
 3291 on(o$="{CBM-B}")+2goto3290,3292
 3292 return
 3300 print"how many pts. do you add to ";z$:inputo$:print
 3310 q=val(o$):if(q=0)and(asc(o$)<>48)thenq=-1
 3320 if(q<0)or(q>ot)or(q<>int(q))thenprint"** re-enter":goto3300
 3330 ot=ot-q:return
 3340 inputo$:q=int(val(o$)):return
 3350 print:printz$;:inputo$:q=int(val(o$)):if(q>0)and(q<9)thenreturn
 3360 print"** try a number from 1 to 8":goto3350
 3370 print:print"want to but a potion of ";z$:print"for 1000 gp's";:goto3290
 3380 print:print"your ";z$;" is now"q:return
 3390 print"here is a list of ";z$;" you can          buy (with cost in <>)":print:return
 3400 x7$=mid$(str$(x),2):y7$=mid$(str$(y),2):l7$="("+x7$+","+y7$+")"
 3410 print"you are at ";l7$;" - level";z:return
 3500 print"hit any key to begin"
 3510 poke158,0
 3520 geta$:on(a$="")+2goto3520,3530
 3530 return
   10 printchr$(147);
   20 print"wizard's wall"
   30 print
   40 print"do you want any help?"
   50 inputi$
   60 ifleft$(i$,1)="y"thengosub740
   70 print"difficulty?"
   80 print"(5=easy, 1=difficult)"
   90 inputq
  100 dimw(8,8)
  110 dime(8)
  120 fory=1to8
  130 forx=1to4
  140 letw(x,y)=29
  150 nextx
  160 nexty
  170 letz=0
  180 forc=1to3
  190 letd=int(rnd(1)*80+21)
  200 gosub430
  210 ifz=1thengoto1150
  220 print"you are ";d;" yards away"
  230 letw=int(rnd(1)*41)-20
  240 ifw=0thenprint"no wind"
  250 ifw<0thenprint"wind to right"
  260 ifw>0thenprint"wind to left":
  270 print"give elevation (1-90)"
  280 inputa
  290 print"give speed"
  300 inputv
  310 leta=a/180*3.1416
  320 leth=tan(a)*(d-w)-(5*(d-w)^2)/(v*cos(a))^2
  330 leth=int(h/q)
  340 ifh>0andh<9thengosub540
  350 ifh<1thenprint"shot was too near"
  360 ifh>8thenprint"shot was too far"
  370 ifrnd(1)>.2thengoto200
  380 print"the wall has moved..."
  390 nextc
  400 print"you have been turned"
  410 print"into stone"
  420 stop
  430 fori=1to200
  440 nexti
  450 printchr$(147);
  460 print
  470 fory=8to1step-1
  480 forx=1to8
  490 printchr$(w(x,y)+32);
  500 nextx
  510 print
  520 nexty
  530 return
  540 gosub650
  550 letw(e(h)-1,h)=0
  560 ifv*cos(a)>50thenletw(e(h)-2,h)=0
  570 ifrnd(1)>.5andh<>1thenletw(e(1),1)=29
  580 ifrnd(1)>.5andh>5andh<8thenletw(e(h+1)-1,h+1)=0
  590 ifh>1thengoto630
  600 fory=2to8
  610 ifrnd(1)<.5thenletw(e(y)-1,y)=0
  620 nexty
  630 gosub650
  640 return
  650 fory=1to8
  660 letx=1
  670 ifw(x,y)=0orx=8thengoto700
  680 letx=x+1
  690 goto670
  700 lete(y)=x
  710 ifx=1thenletz=1
  720 nexty
  730 return
  740 print"you are attacking the"
  750 print"last stronghold of the"
  760 print"notorious wizard, who"
  770 print"is hidden behind an"
  780 print"endless stone wall,"
  790 print"each stone being one"
  800 print"of his former victims."
  810 print"only you can attack,"
  820 print"and free them from"
  830 print"his magic."
  840 print"you must destroy the"
  850 print"wall using catapults,"
  860 print"but beware, the wizard"
  870 print"has the power to move"
  880 print"the wall back and"
  890 print"forth, and occasionally,"
  900 print"to deflect your shots"
  910 print"back at you."
  920 gosub1110
  930 print"after each shot, you are"
  940 print"shown a cross-section"
  950 print"of the wall, showing"
  960 print"how much damage there"
  970 print"is."
  980 print"note there are certain"
  990 print"key stones that produce"
 1000 print"lots of damage, and"
 1010 print"also, the faster the"
 1020 print"boulder is moving"
 1030 print"horizontally, the more"
 1040 print"damage it will cause."
 1050 print"can you defeat the"
 1060 print"wizard in time to save"
 1070 print"the thousands of trapped"
 1080 print"souls......"
 1090 gosub1110
 1100 return
 1110 print"press a key ";
 1120 geti$:ifi$=""thengoto1120
 1130 printchr$(147);
 1140 return
 1150 print"you managed to break"
 1160 print"a hole in the wizard's"
 1170 print"wall - you have beaten"
 1180 print"his magic powers, and"
 1190 print"freed his victims."
 1200 stop
    5 rem this game is not yet fully developed
   10 print chr$(142);"{clr}senil data systems presents:{down}{left}{left}{left}{left}{left}the worlds famous {rvon}pong"
   20 print"{down}{down} the game is in 2 player mode, i will do a 1 player version later"
   30 print"{down}controls:"
   40 print"player 1{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}player 2"
   50 print"   q{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}up{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}9"
   60 print"   a{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}stop{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}6"
   70 print"   z{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}down{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}3"
   80 print"{down}{down}{down}the stop button makes programming and gameplay easier"
   90 print"(since this computer does not support 2 buttons (except shift) being"
  100 print"pressed at the same time)"
  110 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press a key to start"
  120 get a$:if a$="" then 120
  125 print"{clr}"
  130 rem variable declarations
  140 rem y1=position of player 1,y2=pos of plr 2
  150 rem v1=speed of player 1(can be 1,0 or -1),v2=speed of plr2
  160 rem bp=vidmem pos of ball,bx=x speed of ball,by=y speed of ball
  170 bp=32768:bx=2:by=2:y1=12:y2=12:v1=0:v2=0
  175 x=1:y=1
  180 get a$:if a$="" then 250
  190 if a$="q" then v1=-1
  200 if a$="a" then v1=0
  210 if a$="z" then v1=1
  220 if a$="9" then v2=-1
  230 if a$="6" then v2=0
  240 if a$="3" then v2=1
  250 poke 32768+80*(y1-1),160:poke 32768+80*y1,160:poke 32768+80*(y1+1),160
  251 poke bp,81
  255 poke 32768+80*(y1-2),32:poke 32768+80*(y1+2),32
  260 poke 32847+80*(y2-1),160:poke 32847+80*y2,160:poke 32847+80*(y2+1),160
  265 poke 32847+80*(y2-2),32:poke 32847+80*(y2+2),32
  270 y1=y1+v1:if y1=2 or y1=24 then v1=0
  280 y2=y2+v2:if y2=2 or y2=24 then v2=0
  290 poke bp,32
  300 bp=32768+bx+80*by
  310 bx=bx+x:by=by+y
  320 if by=24 then y=-1
  330 if by=0 then y=1
  340 if bx=79 and peek(bp+1)=160 then x=-1
  350 if bx=80 then gosub 400
  360 if bx=0 and peek(bp-1)=160 then x=1
  370 if bx=-1 then gosub 430
  380 goto 180
  400 if bx=80 then print"{home}";chr$(7):bx=75:by=5:x=-1:y=-1
  410 s2=s2+1:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s2;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s1
  420 return
  430 if bx=-1 then print"{home}";chr$(7):bx=1:by=1:x=1:y=1
  440 s1=s1+1:print"{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s2;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}";s1
  450 return
    1 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}
    2 printtab(14)"wrap trap
    3 print:print:printtab(12)"copyright 1979
    4 printtab(11)"hanimex pty ltd.
    5 forq=1to2000:next
   10 rem wrap trap 2.6
   20 dim x(4),y(4),c(4),d(11)
   30 fori=1to4:read x(i),y(i),c(i):next
   40 fori=0to11:readd(i):next
   50 fori=1to6*40:p$=p$+".":next
   60 ul=102:cl=160:f=40:p=46:z=0:mx=39:my=24
   70 us=z:cs=z:w=.96:v=1:l=2:r=3:u=4:s=8*16^3
   80 print "{clr}do you want instructions (y or n)"
   85 gety$:ify$=""goto85
   86 ify$<>"y"goto100
   90 gosub60000
  100 input"{down}want a fast,medium, or slow game";a$
  150 a$=left$(a$,v)
  160 tl=40
  170 ifa$="f"thentl=z
  180 ifa$="m"thentl=20
  200 gosub 10000
  220 t=rnd(-ti)
  240 ud=3:cd=2:c=0
  260 ux=10:uy=7:cx=29:cy=17
  270 ua=s+ux+f*uy:ca=s+cx+f*cy
  500 geta$
  520 ifa$<"2"ora$>"8"then600
  530 d=(asc(a$)-48)/l
  550 if int(d)<>d then600
  570 ud=d
  600 gosub7000
  660 ifpeek(a)<>pthenc=c+v
  750 poke ua,ul
  760 poke a,c(ud)
  800 ua=a:ux=x:uy=y
 1000 tz=ti
 1030 gosub7100:b=a:gosub7010
 1060 if((peek(b)andpeek(a))=p)and(rnd(v)<w)then1600
 1080 t=int(l*rnd(v))+r*(cd-v)
 1090 h=d(t):g=d(t+v)
 1110 gosub7120:b=a:gosub7020
 1130 if(peek(b)andpeek(a))=pthen1590
 1140 ifh<>gthenh=g:goto1110
 1300 gosub7010
 1320 ifpeek(a)=pthen1600
 1400 t=int(l*rnd(v))+r*(cd-v)
 1420 h=d(t):g=d(t+v)
 1460 gosub7020
 1470 ifpeek(a)=pthen1590
 1480 ifh<>gthenh=g:goto1460
 1590 cd=h
 1600 ifpeek(a)<>pthenc=c+l
 1750 poke ca,cl
 1760 poke a,c(cd)
 1800 ca=a:cx=x:cy=y
 2000 ifc>zthen5000
 2020 ifti-tz<tlthen2020
 2040 goto500
 5000 print"{home}{rvon} ";
 5005 ifc>vthen5200
 5030 cs=cs+1
 5040 print"y o u";
 5050 goto5600
 5200 ifc>lthen5400
 5230 us=us+1
 5240 print"p e t";
 5250 goto5600
 5400 us=us+v:cs=cs+v
 5420 poke a,214
 5440 print"b o t h";
 5600 print"   c r a s h e d ! "
 5610 print"               {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}you="us;"pet="cs
 5620 fori=1to10:geta$:next
 5630 geta$:ifa$=""then5630
 5640 goto150
 7000 x=ux:y=uy:d=ud:goto8000
 7010 x=cx:y=cy:d=cd:goto8000
 7020 x=cx:y=cy:d=h:goto8000
 7100 x=cx+x(cd):y=cy+y(cd):d=cd:goto8000
 7120 x=cx+x(h):y=cy+y(h):d=h:goto8000
 8000 x=x+x(d):y=y+y(d)
 8010 ifx<zthenx=mx
 8020 ifx>mxthenx=z
 8030 ify<ztheny=my
 8040 ify>mytheny=z
 8050 a=s+x+f*y
 8100 return
 10000 rem draw boundary
 10010 print"{clr}";p$;p$;p$;p$;left$(p$,mx)"{left}{inst}.";
 10100 return
 50000 data 0,1,22,-1,0,60,1,0,62,0,-1,30
 50100 data 3,2,3,4,1,4,4,1,4,2,3,2
 60000 print"{clr}    {rvon} w r a p   a r o u n d   t r a p "
 60010 print"{down}     the object of the game is to trap"
 60020 print"the computer.  your wall maker starts in";
 60025 print"the upper left part of the screen.";
 60030 print"  you control it i{$6b}s motion wi the numeric keys{rvon}2{rvof},{rvon}4{rvof},{rvon}6{rvof} & {rvon}8{rvof}.";
 60040 print"  the direction shown below."
 60045 k=19
 60050 printtab(k)"^{down}{left}{SHIFT--}{down}{left}{rvon}8{rvof}{down}{down}{left}{left}{left}{left}{left}{left}<CC{rvon}4{rvof}   {rvon}6{rvof}CC>{down}{down}{left}{left}{left}{left}{left}{left}{rvon}2{rvof}{down}{left}{SHIFT--}{down}{left}v"
 60060 print"{down}to start game type any key or"
 60070 print"type {rvon}f{rvof} for  fast  game"
 60080 print"     {rvon}m{rvof} for medium game"
 60090 print"     {rvon}s{rvof} for  slow  game"
 60200 return
    1 rem"copyright hanimex pty ltd. 1979. all rights reserved.
    2 rem" wumpus  -  #g1005  v1.0 3/78  -   from the original by gregory yob
   10 print"{clr}";tab(8);"{rvon}hunt the wumpus!{rvof}"
   15 print"{down}{down}";
   20 print"instructions? ";:gosub5010:gosub7010:ifi$="n"then70
   30 ifr=0then50
   40 print:print"{up}(y/n) ";:goto20
   50 gosub 1010
   70 dim s(20,3),l(6),m(6),p(5)
   80 for j=1 to 20: for k=1 to 3
   90 read s(j,k) : next k:next j
  120 data 2,5,8,1,3,10,2,4,12,3,5,14
  130 data 1,4,6,5,7,15,6,8,17,1,7,9
  140 data 8,10,18,2,9,11,10,12,19,3,11
  150 data 13,12,14,20,4,13,15,6,14,16
  160 data 15,17,20,7,16,18,9,17,19,11
  170 data 18,20,13,16,19
  180 def fnr(x)=int(x*rnd(1)+1)
  240 for j=1 to 6:l(j)=fnr(20):m(j)=l(j)
  250 nextj
  290 for j=1 to 6:for k=j to 6:if j=k then 330f j=k then 330
  310 if l(j)=l(k) then 240
  330 next k : next j
  360 a=5: l=l(1)
  380 print"{clr}hunt the wumpus"
  400 gosub 2000:gosub 2500: on g goto 440,480
  440 gosub 3000 :if f=0 then 400
  450 goto 490
  480 gosub4000
  490 if f=0 then 400
  500 iff>0then560
  520 print"{down}you lose!"
  530 goto 580
  560 print" the wumpus'll getcha next time!!"
  580 for j=1 to 6:l(j)=m(j):next j
  585 print
  590 print"play another one? ";:gosub5010:gosub7010:ifi$="n"then710
  600 ifr=0then610
  605 print:print"{up}(y/n)  ";:goto590
  610 print
  611 print"same set-up? ";:gosub5010:gosub7010:ifi$="y"then360
  620 ifr=0then240
  630 print:print"{up}(y/n) ";:goto611
  710 end
 1010 print"{clr}welcome to {rvon}hunt the wumpus{rvof}.
 1020 print"{down}   the wumpus lives in a cave
 1030 print"of {rvon}20{rvof} rooms. each room has {rvon}3{rvof}"
 1040 print"tunnels leading to other rooms.
 1050 print"{down} the rooms are arranged in a
 1060 print"dodecahedron."
 1090 print"{down}(press any key to continue)";:gosub5010
 1100 print"{clr}life in the wumpus caves has
 1110 print"some dangers:"
 1120 print"{down}{rvon}bottomless pits{rvof}    two rooms
 1130 print"   have bottomless pits in
 1140 print"   them. if you go there, you
 1150 print"   fall into the pit (and lose!)
 1160 print"{down}(press any key to continue)";:gosub5010
 1170 print"{clr}{rvon}superbats{rvof}   two other rooms
 1180 print"have super bats. if you go there
 1190 print"a bat grabs you and takes you
 1200 print"to some other room at random."
 1220 print"{down}(press any key to continue)";:gosub5010
 1230 print"{clr}and, of course,
 1240 print"{down}{rvon}the wumpus!!!{rvof}
 1290 print"   usually he is asleep, but
 1300 print"   two things will wake him up.
 1310 print"   {rvon}1: your entering his room{rvof}"
 1320 print"   {rvon}2: your firing an arrow  {rvof}"
 1330 print" when he wakes up, he groggily
 1340 print"moves to the next cave -- this
 1350 print"is one of the caves next to him
 1360 print"or the one he is in (living in
 1370 print"caves does things to his eyes)
 1380 print"{down}(press any key to continue)";:gosub 5010
 1390 print:print"{up}>>>> this means there is a one
 1400 print"in four chance he will stay
 1410 print"still and a three-fourth chance
 1420 print"of moving. if he ends up in your
 1430 print"cave, he will eat you up!!(and
 1440 print"you lose!!)
 1450 print"{down}(press any key to continue)";:gosub5010
 1460 print"{clr}{rvon}your options are:{rvof}
 1470 print"  first, you can either move or
 1480 print"shoot an arrow.
 1490 print"{down}{rvon}moving{rvof}  you can go thru a
 1500 print"tunnel to a neighboring room."
 1501 print"if the room # is one digit,"
 1502 print"terminate with {rvon}return{rvof}."
 1510 print"{down}{rvon}arrows{rvof}  you have 5 arrows."
 1520 print"  first, the pet will ask you
 1530 print"how far to shoot the arrow. an
 1540 print"arrow can go through 5 rooms.
 1550 print"  then the pet will ask you
 1560 print"the room numbers the arrow is
 1570 print"to fly through.
 1580 print"  if the arrow is told to go to
 1590 print"a room not connected by a tunnel
 1600 print"it will fly at random......
 1610 print"{down}    >> if it hits you, you lose!!
 1620 print"    >> if it hits the wumpus, you win!!
 1630 print"{down}(press any key to continue)";:gosub5010
 1640 print"{clr}{down}some warnings will help you.
 1650 print"{down}when you are one room away, the pet
 1660 print"will say:
 1670 print"{down}{rvon}'i smell a wumpus'{rvof}    wumpus"
 1680 print"{rvon}'i hear wingflaps'{rvof}    bats"
 1690 print"{rvon}'i feel a draft'  {rvof}    pit"
 1700 print"{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}good luck...
 1710 print"{down}(press any key to continue)";:gosub5010
 1720 print"{clr}
 1990 return
 2000 print:forz=1to40:print"C";:next
 2020 for j=2to6:fork=1to3
 2040 ifs(l(1),k)<>l(j)then2110
 2050 on j-1 goto 2060,2080,2080,2100,2100
 2060 print"i smell a wumpus!" :goto 2110
 2080 print"i feel a draft" :goto2110
 2100 print"i hear wingflaps" :goto 2110
 2110 next k,j
 2130 print"{down}you are in room "l(1)
 2140 print"tunnels lead to "s(l,1);s(l,2);s(l,3)
 2160 return
 2500 print"shoot or move(s-m)? ";:gosub5010:gosub8000:ifi$="s"then2530
 2510 ifr=0then2540
 2520 print:print"{up}";:goto2500
 2530 g=1:return
 2540 g=2:return
 3000 f=0
 3010 print"how far to go(1-5)? ";:gosub5010:j9=val(i$):ifj9<>0then3030
 3020 print:print"{up}";:goto3010
 3030 ifj9<1orj9>5then3020
 3040 print"{rvon}";i$;"{rvof}"
 3070 for k=1toj9
 3080 print"room to go thru? ";:gosub9000:ifr=1 then 3080
 3081 p(k)=l
 3090 if k<3 then 3130
 3100 if p(k)<>p(k-2)then 3130
 3120 print"no 'u' turns for arrows!!! try again":goto 3080
 3130 nextk
 3140 l=l(1):rem shoot arrow
 3150 for k=1toj9:for k1=1to3
 3160 ifs(l,k1)=p(k)then 3290
 3170 nextk1
 3180 l=s(l,fnr(3))
 3190 print"....boiiiingggg.......{down}{rght}arrow hit a wall":goto 3300
 3210 next k
 3220 print"missed":l=l(1)
 3230 gosub 3370
 3250 a=a-1:if a>0 then return
 3270 f=-1:return
 3290 l=p(k)
 3300 if l<>l(2)then 3340
 3310 print"{down}aha! you got the wumpus"
 3320 f=1:return
 3340 ifl<>l(1)then 3210
 3350 print"ouch! arrow got you!":goto 3270
 3370 k=fnr(4)
 3390 ifk=4then3410
 3400 l(2)=s(l(2),k)
 3410 ifl(2)<>lthen return
 3420 print"tsk tsk tsk - wumpus got you!"
 3430 f=-1:return
 4000 f=0
 4020 print"where to? ";:gosub9000
 4030 if r=1 then 4020
 4040 if l<1 or l>20 then 4020
 4050 for k=1to3:rem check if legal
 4070 if s(l(1),k)=lthen4130
 4080 nextk
 4090 if l=l(1)then 4130
 4100 print"not possible - no tunnel":goto 4020
 4130 l(1)=l:rem check for hazards
 4140 ifl<>l(2)then4220:rem wumpus
 4160 print"... oops! bumped a wumpus!"
 4180 gosub3370
 4190 if f=0 then 4220
 4200 return
 4220 ifl<>l(3)andl<>l(4)then4260:rem pit
 4223 print"{clr}yyyy{down}yyy{down}yy{down}ii{down}ii{down}i{down}i{down}i{down}e{down}{left}e{down}e{down}{left}e{down}e{down}{left}e{down}{down}{left}e{down}{down}{left}e":t0=ti:g=15
 4226 i$="                                          "
 4227 j$="    :    "
 4229 ifti-t0<45then4229
 4232 forj=1to35
 4233 ifg<5theng=3
 4234 ifg>29theng=29
 4239 g=g+int(5*rnd(1)-2)
 4245 print"{rvon}"+left$(i$,g)+"{rvof}"+j$+"{rvon}"+left$(i$,30-g)+"{rvof}"
 4246 nextj
 4248 print"{clr}{rght}{rght}{rght}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}fell in pit{down}{down}":f=-1:return
 4260 ifl<>l(5)andl<>l(6)then return
 4280 print"{clr}zap---"
 4281 forn=1to20
 4282 print"{home}";:fori=1tofnr(5):print"{rght}{rght}{rght}{rght}{rght}";:next
 4283 forj=1tofnr(20):print"{down}";:next
 4284 print"flap";
 4285 forzz=1to200:next
 4286 nextn
 4340 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}super bat snatch!!"
 4355 fori=1to400:next
 4360 l=fnr(20):goto 4130
 4400 return
 5010 gosub 6000
 5020 print"{rvon} {rvof}{left}";:forzz=1to150:next:print" {left}";:forzz=1to150:next:geti$:ifi$=""then5020
 5030 forx1=1to150:geta$:next:return
 6000 rem--clear buffer
 6010 geti$:ifi$<>""then6010
 6020 return
 7010 ifi$<>"y"then7030
 7020 print"{rvon}yes{rvof}":r=0:return
 7030 ifi$<>"n"then7050
 7040 print"{rvon}no{rvof}":r=0:return
 7050 r=1:return
 8000 rem--shoot/move
 8010 ifi$<>"s" then8030
 8020 print"{rvon}shoot{rvof}":r=0:return
 8030 ifi$<>"m" then 8050
 8040 print"{rvon}move{rvof}":r=0:return
 8050 r=1:return
 9000 gosub5010:if(i$<>"0" and val(i$)=0) then 9030
 9010 print"{rvon}";i$;:t$=i$:gosub5010:ifi$<>"0"andasc(i$)<>13andval(i$)=0then9030
 9020 ifasc(i$)=13 then 9025
 9023 print"{rvon}";i$;"{rvof}"
 9024 l=10*val(t$)+val(i$):goto9040
 9025 printi$;:l=val(t$):goto9040
 9030 print:print"{up}huh?...";:r=1:return
 9040 r=0:return
 63999 end:rem"end of wumpus property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
   10 print"{clr}{down}{down}{down}      hunt the wumpus"
   11 print:print
   20 input "instructions";i$:if i$="yes" or i$="y" then gosub 7000
   70 dim l(8),s(20,3)
   75 for j=1 to 20:for k=1 to 3:read s(j,k):next k,j
  130 data2,5,8,1,3,10,2,4,12,3,5,14,1,4,6
  140 data5,7,15,6,8,17,1,7,9,8,10,18,2,9,11
  150 data10,12,19,3,11,13,12,14,20,4,13,15,6,14,16
  160 data15,17,20,7,16,18,9,17,19,11,18,20,13,16,19
  240 w=0:f=w:m=w:for j=1 to 7:l(j)=int(rnd(1)*20+1):next j
  250 for j=1 to 7:for k=j to 7:if j=k then 330
  260 if l(j)=l(k) then 240
  330 next k,j:a=5:l(8)=l(1):print:print"entrance to cave is"l(8)
  390 if rnd(1)>.4 then gosub 3370
  485 if rnd(1)<0.08 then gosub5000
 2000 print:for k=1 to 3:for j=2 to 6:if s(l(1),k)<>l(j) then 2110
 2050 on j-2 goto 2080,2080,2100,2100
 2060 print"i smell a wumpus":goto 2110
 2080 print"i feel a draft":goto 2110
 2100 print"bats nearby"
 2110 next j,k:print"you are in cave"l(1)
 2140 j=int(rnd(1)*40):if j=0 or j>7then 2440
 2150 on j gosub 2200,2200,2210,2220,2220,2230,2240,2250,:goto 2440
 2200 print"aha!! wumpus tracks.":return
 2210 print"found old arrow!! lucky you":a=a+1:return
 2220 print"oops,slipped on some loose gravel":goto 5900
 2230 print"oops, you just fell into an underground":print"pool":goto 5900
 2240 print"this looks like a nice cave,why not":print"stop for lunch":return
 2250 print"take care with that flashlight":return
 2440 print"tunnels lead to caves"s(l(1),1);s(l(1),2);s(l(1),3):print
 2450 if j=38 thenl=l(5):goto 4260
 2500 m=m+1:input "do something";i$:if left$(i$,1)="s" then 3000
 2550 if left$(i$,1)="a" then 3220
 2560 if left$(i$,1)="m" then 4000
 2570 if left$(i$,1)="e" and l(1)=l(8) then 8800
 2580 if left$(i$,1)="h" then gosub7600:goto 2000
 2590 goto 2500
 3000 if a<1 then print"with what?":goto 390
 3010 input "cave #";l
 3015 for k=1 to 3:if s(l(1),k)=l goto 3130
 3020 next:print"ouch, shot yourself":a=a-1:goto 3220
 3130 a=a-1:if a<0 then a=0:goto 3220
 3135 if l<>l(2)then print"missed":goto 3215
 3140 if rnd(1)<.8 then print"you got the wumpus":f=f+1:l(2)=0:goto 4400
 3150 print"you wounded the wumpus"
 3215 gosub3370
 3220 print a"arrows left":m=m-1:goto 2500
 3370 if w=1 then l(2)=0:goto 3425
 3375 if rnd(1)>.25 goto 3425
 3380 l(2)=s(l(2),(int(3*rnd(1)+1))):if l(1)=l(2) or l(2)=l(7) then 3380
 3425 return
 4000 input"where to";l:for k=1 to 3:if s(l(1),k)=l then 4120
 4080 next:if l<>l(1) thenprint"not possible":goto 4000
 4120 if l=l(2) then print"oops! bumped a wumpus":goto 4500
 4210 if l=l(3) or l=l(4) then print"yyyiiieee...fell in a pit":goto 4520
 4220 if l=l(7) then print"cave entrance is blocked":gosub 5900:goto 390
 4260 if l=l(5) or l=l(6) then print"zap ... superbat snatch":goto 4280
 4265 if l=l(8) then print"exit nearby"
 4270 l(1)=l:goto 390
 4280 l=int(1+rnd(1)*20):if l=l(1)or l=l(6)or l=l(7) then 4280
 4290 gosub 5900:goto 4120
 4400 if rnd(1)<.75 then print"beware of its mate":j=2:gosub 6100:goto 3220
 4410 w=1:print"hee hee hee, the wumpus will get you":print"next time":goto 390
 4500 if rnd(1)<.75 then gosub 3370:gosub 5900:goto4270
 4510 print"tsk tsk, the wumpus got you"
 4520 print"you lose":goto 8810
 5000 print"***earthquake******":for j=3 to 7:gosub 6100:next:gosub 5900
 5005 l(2)=int(rnd(1)*20+1):if l(1)=l(2) or l(2)=l(7) then 5005
 5010 if rnd(1)>.1 then return
 5020 l(8)=int(rnd(1)*20+1):for j=3 to 7
 5030 if l(8)=l(j) then l(8)=int(rnd(1)*20+1):goto 5030
 5040 next:return
 5900 j=int(rnd(1)*10):if j>a or a=0 goto 5925
 5910 print"dropped arrows":ifj=0 then print"all arrows found":goto 5925
 5920 a=a-j:print j"arrows lost"a"arrows left"
 5925 return
 6100 l(j)=int(rnd(1)*20+1):if l(j)=l(1) or l(j)=l(8) then 6100
 6200 return
 7000 print"welcome to hunt the wumpus":print
 7010 print"the wumpus colony inhabits a burrow"
 7015 print"of 20 caves. each cave has three"
 7020 print"tunnels leading to other caves. the"
 7025 print"objective is to descend into the"
 7030 print"burrow and hunt wumpi. after you have"
 7035 print"killed at least one, you must return"
 7040 print"to the exit and leave the burrow."
 7045 print"note that there may be more than one"
 7050 print"wumpus in the burrow.":print:print"you have five arrows. under conditions"
 7055 print"of stress you may drop your arrows."
 7060 print"your  rating is a function of the"
 7065 print"number of wumpi shot and the time"
 7070 print"spent in the burrow.":print:gosub7990:print
 7100 print:print"{rght}{rght}{rght}{rght}hazards":print"1 - bottomless pits"
 7105 print"two rooms contain bottomless pits"
 7110 print"if you fall into a pit you lose.":print
 7115 print"2 - superbats"
 7120 print"two rooms contain nests of superbats."
 7125 print"they are peaceful creatures when left"
 7130 print"alone. should you inadvertantly stumble ";
 7140 print"across their nest you will be picked"
 7145 print"up and deposited into another cave at"
 7150 print"random:  too bad if it contains another";:print" hazard.":print
 7155 print"3 - **earthquakes*****"
 7160 print"earthquakes are a common occurrence."
 7165 print"should one occur, the burrow entrance"
 7170 print"may be blocked and a new one open up."
 7175 print"the pits may fill and new ones open"
 7180 print"up and a cave may be blocked by a rock-"
 7190 print"slide. the bats and the wumpus will"
 7195 print"move to another cave.":print
 7199 gosub 7990:print
 7200 print"4 - wumpus"
 7205 print"the wumpus is not bothered by any"
 7210 print"hazards(it has suckers on its feet and"
 7215 print"is too big for a bat to lift). the"
 7220 print"wumpus is moving in the caves looking"
 7225 print"for food. it normally eats a species"
 7230 print"of mushroom, but may eat you should"
 7235 print"you enter the cave in which it is":print"feeding."
 7240 print:gosub 7990
 7600 print:print"each turn you may"
 7610 print"m - move to an adjacent cave."
 7620 print"s - shoot an arrow at the wumpus."
 7630 print"a - check on the number of arrows left."
 7640 print"e - exit from the caves if at you are"
 7645 print"    at the entrance."
 7650 print"h - ask for instructions."
 7660 print:print"when you are one cave away from the"
 7670 print"hazard you will be warned as follows"
 7680 print:print"wumpus - i smell a wumpus."
 7690 print"bats - bats nearby."
 7700 print"pit - i feel a draft."
 7710 print"if you try to enter a cave blocked by"
 7720 print"a rock fall or enter the entrance cave"
 7730 print"you will be notified."
 7740 print
 7990 print"press any key when ready"
 7995 get c$:if c$=""then 7995
 7996 return
 8800 print"out of the caves ";:if f>0 then print"good hunting!"
 8810 w=int(f*1000/m):print"your rating is"w;"."
 8820 if w=0 then print"better luck next time."
 9000 end
    1 rem" copyright commodore business machines inc 1978.  all rights reserved
    2 rem" target pong   #g1004 v1.0
   10 px=1:dimn%(9),pn$(9),ps%(9),pm%(9)
   20 print"{clr}           {rvon}***wurfball***"
   25 print"{down}{down}versuchen sie das ziel-- W zu treffen
   30 print"  indem sie den ball mit den tasten":printspc(10)"{rvon}n{rvof}  und  {rvon}m{rvof} steuern
   35 print"{down}anzahl der spieler (1-9)? ";:gosub1021:py=x
   36 print"{down}{rvon}druecken sie return nach jedem namen":gosub1100
   38 print"{down}{down}{rvon}starten sie das spiel durch druecken der":printspc(13)"{rvon}taste return
   40 geta$:ifa$<>chr$(13)then40
   42 pl=pl+1:ifpl>pythenpl=1
   45 b$="{rvon}                                        ":v$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
   50 ts=ti:pc=1:pk=33268:d=1:rem  **  draw border *
   60 print"{clr}"b$"{home}{rvon}   spieler"pl"  -  "left$(pn$(pl),10)spc(12);
   70 fori=1to22:print"{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} ";
   75 next:print"{rvon} ! druecken = stop--schwierigkeitsgrad"(20-n%(pl))/2;
   80 t=int(rnd(1)*900+32768):if(33248<t)and(t<33288)then80
   82 td=1:nn=n%(pl)
   85 ifpeek(t)<>32then80
   90 poket,87:rem    *** begin ***
   99 rem
  100 forii=1tonn:ifpeek(pe)=81thenpokepe,32
  120 pe=pk:geti$:ifi$<>""then500
  125 ifpeek(pk+d)<>32then300
  130 pk=pk+d:pokepk,81:next:poket,32:t=t+td*d
  135 ifpeek(t)<>32thentd=-td:t=t+td*d
  140 poket,87:goto100
  300 ifpeek(pk+d)=78thenpk=pk+d:d=d-sgn(d)*41:goto100
  305 ifpeek(pk+d)=77thenpk=pk+d:d=sgn(d)*((abs(d)and1)*40+(abs(d)and40)/40):goto99
  310 d=-d:ifpeek(pk-d)=87then800
  315 goto100:rem         ^*direct hit*^
  500 ifi$="n"then600
  505 ifi$="m"then700
  510 ifi$="!"thenps=0:goto810
  520 goto125
  600 o=d:pc=pc+1:pokepk,78
  605 d=d-sgn(d)*41:goto100
  606 ifpeek(pk+d)=78thenpk=pk+d
  700 o=d:pc=pc+1:pokepk,77
  705 ifo=-1thend=-40:rem    "M"
  710 ifo=40thend=1
  715 ifo=1thend=40
  720 ifo=-40thend=-1
  725 goto100
  800 ps=1000-12*(pc-1)-int((ti-ts)/6):ifps<0thenps=1
  810 ps%(pl)=ps
  812 pm%(pl)=int((pm%(pl)*(px-1)+ps)/px)
  820 print"{clr}{down}{rght}{rght}{rght}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
  822 print"{rght}{rght}{rght}{rvon}{SHIFT--}{$a0} spieler  {SHIFT--}schwg{SHIFT--} punkte{SHIFT--}schnitt{SHIFT--}"
  826 print"{rght}{rght}{rght}{rvon}{CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
  828 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  830 fori=1topy
  832 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof} "pn$(i)(20-n%(i))/2" {SHIFT--} "ps%(i)tab(29)"{SHIFT--} "pm%(i)tab(37)"{rvon}{SHIFT--}"
  834 next
  836 print"{rght}{rght}{rght}{rvon}{SHIFT--}{rvof}           {SHIFT--}     {SHIFT--}       {SHIFT--}       {rvon}{SHIFT--}"
  838 print"{rght}{rght}{rght}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{rvof}"
  840 printspc(10)"{rvon}das ist das"px"{left} te spiel
  844 print"{home}";:forkk=1to4+pl:print"{down}";:next:print"{rght}{rght}{rght}{rght}*":forkk=pltopy:print"{down}"
  850 ifpl=pythengosub900:fori=1topy:ps%(i)=0:next:px=px+1:goto38
  860 print"{down}{down}{down}{down}"spc(11)"{rvon}druecken sie return":goto40
  900 print"{down}{down}{down}{down}  {rvon}schwierigkeitgrad veraendern (j/n)?{rvof} ";:gosub1011
  910 ifa$="n"thenreturn
  920 print"{clr}{down}{down}{down}fuer welchen spieler soll der schwierig-"
  921 print"keitsgrad veraendert werden (1 -"py"{left})?";:gosub1021:xx=x:ifx>pythen920
  928 a$=pn$(xx):aa=10
  930 ifmid$(a$,aa,1)=" "andaa>1thenaa=aa-1:goto930
  932 a$=left$(a$,aa)+"'s ":print"{down}{down}"a$"schwierigkeitsgrad ist"(20-n%(xx))/2
  934 printspc(len(a$))"durchschnitt punkte"pm%(xx)
  936 printspc(len(a$))"punkte im letzten spiel"ps%(xx)
  940 print"{down}neuer schwierigkeitsgrad (1-9)? ";:gosub1021:n%(xx)=20-x*2
  950 print"{down}{down}will noch jemand etwas aendern(j/n)? ";:gosub1011:ifa$="j"then920
  960 return
 1001 fori=1to100:geta$:ifa$<>""then1005
 1002 next:print"{rvon} {left}";
 1003 fori=1to100:geta$:ifa$<>""then1005
 1004 next:print"{rvof} {left}";:goto1001
 1005 ifval(a$)=0then1001
 1006 print"{rvof}"a$:s=val(a$):return
 1011 fori=1to100:geta$:ifa$<>""then1015
 1012 next:print"{rvon} {left}";
 1013 fori=1to100:geta$:ifa$<>""then1015
 1014 next:print"{rvof} {left}";:goto1011
 1015 ifa$<>"j"anda$<>"n"then1011
 1016 print"{rvof}"a$:return
 1021 fori=1to100:geta$:ifa$<>""then1025
 1022 next:print"{rvon} {left}";
 1023 fori=1to100:geta$:ifa$<>""then1025
 1024 next:print"{rvof} {left}";:goto1021
 1025 ifa$<"1"ora$>"9"then1021
 1026 print"{rvof}"a$:x=val(a$):return
 1100 print"{down}":fork=1topy:print"name des spielers"k"? {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}";
 1102 gosub1200
 1110 print"schwierigkeitsgrad spieler"k"(1-9)? ";:gosub1021:n%(k)=20-2*x
 1120 next:return
 1200 b$=""
 1210 forj=1to50:geta$:ifa$<>""then1220
 1212 next:print"{rvon}{CBM-@}{left}";:forj=1to50:geta$:ifa$<>""then1220
 1214 next:print"{rvof}{CBM-@}{left}";:goto1210
 1220 a=asc(a$):ifa=13thenprint"{rvof}{CBM-@}":goto1250
 1222 ifa=20andlen(b$)>1thenb$=left$(b$,len(b$)-1):print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto1210
 1224 ifa=20andlen(b$)=1thenb$="":print"{rvof}{CBM-@}{left}{left}{CBM-@}{left}";:goto1210
 1226 ifa=32or(64<aanda<98)thenprint"{rvof}"a$;:b$=b$+a$:iflen(b$)>9thenprint:goto1250
 1228 goto1210
 1250 b$=b$+"          ":pn$(k)=left$(b$,10)+"{SHIFT--} ":return
 63999 end:rem" end of target pong property of commodore{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}{del}
    0 clr:pg$="xref":nm$="25":goto62000
    1 " copyright(c)1981 jim butterfield
    2 " 14 brooklyn ave.
    3 " toronto, ont. canada m4m 2x5
    4 "
    5 " cursor #25, april, 1981
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 81 may 1
  100 mc=2726
  110 qv=46:ifpeek(50000)=0thenqv=128
  120 w=6:ifwd=80thenw=11
  900 open15,8,15
 1000 print"{down}what to cross reference? ";:gosub60000:ifin$=""then1000
 1010 forz=1tolen(in$)
 1020 ifmid$(in$,z,1)=":"then1050
 1030 nextz
 1040 in$="0:"+in$
 1050 fi$=in$
 1060 open1,8,2,fi$+",p,r":input#15,er,er$,tk,sc
 1070 iferthenclose1:goto1900
 1080 get#1,x$,z$
 1090 if z$<>chr$(4) then 2000
 1100 if x$<>"" and x$<>chr$(1) then 2000
 1110 if x$="" then get#1,x$
 1120 print"{down}send output to printer? ";:gosub60000
 1130 of=3:ifleft$(in$,1)="y"thenof=4:w=11
 1150 z=peek(qv):pokemc+6,z:pokemc+8,z
 1160 z=peek(qv+1):pokemc+7,z:pokemc+9,z+1
 1200 sysmc:close1
 1210 open4,of:print#4:print#4,"cross reference of ";fi$:print#4
 1220 poke208,w:sysmc+3
 1230 print#4:close4
 1240 end
 1900 ifer=62 then print"{down}no such file.":goto 1000
 1910 print er;er$;tk;sc
 1920 end
 2000 print"{down}";fi$;" isn't a basic program."
 2010 close1:goto1000
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60300 print"{clr}":clr:gosub60400:goto100
 60400 crt=32768:cr$=chr$(13)
 60410 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 60420 return
 60500 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}":return
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by jim butterfield
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1981{down}
 62020 gosub60500
 62030 print"{down}cross reference basic programs
 62040 print"{down}{down}***** needs a disk *****
 62050 print"{down}{down}press {rvon}return{rvof} to begin
 62060 gett$:ift$=""then62060
 62070 goto60300
    0 print"{clr}{down}{down}{down}{down}{down}yahtzee -- by p. rowe"
    1 print"submitted with permission by len lindsay for exchange only"
    5 for xx=1 to 5000:next xx:print"{clr}"
   10 rem ***** yahtzee *** p.rowe *****
   20 rem * copyright 1978, regents of *
   30 rem university of calif., berkeley
   40 rem ** lawrence hall of science **
   50 print "{clr}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}welcome to";
   60 print "{down}{down}{down}{down}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-D}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-F}";
   70 print "{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{rvon}{CBM-K}yahtzee{rvof}{CBM-K}";
   80 print "{left}{left}{left}{left}{left}{left}{left}{left}{left}{down}{CBM-C}{rvon}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{rvof}{CBM-V}"
   90 s$="123456tfhsley":f=0:g=0:ss=0:e$=""
   95 for i=1 to 39:e$=e$+" ":next
  100 l$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}"
  105 a$(0)="{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{down}{CBM-+}{CBM-+}{CBM-+}{left}{left}{left}{up}{up}"
  110 a$(1)="   {left}{left}{left}{down} Q {left}{left}{left}{down}   {left}{left}{left}{up}{up}"
  115 a$(2)="Q  {left}{left}{left}{down}   {left}{left}{left}{down}  Q{left}{left}{left}{up}{up}"
  120 a$(3)="Q  {left}{left}{left}{down} Q {left}{left}{left}{down}  Q{left}{left}{left}{up}{up}"
  125 a$(4)="Q Q{left}{left}{left}{down}   {left}{left}{left}{down}Q Q{left}{left}{left}{up}{up}"
  130 a$(5)="Q Q{left}{left}{left}{down} Q {left}{left}{left}{down}Q Q{left}{left}{left}{up}{up}"
  135 a$(6)="QQQ{left}{left}{left}{down}   {left}{left}{left}{down}QQQ{left}{left}{left}{up}{up}"
  140 b$="{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{SHIFT--}{left}{down}{CBM-X}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}{left}{left}{SHIFT-*}"
  145 b$=b$+"{left}{left}{CBM-Z}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}{SHIFT--}{left}{up}":st$=""
  150 c$="":for i=1 to 6:c$=c$+"{rvon}     {rvof}  ":next
  155 c$=left$(c$,52):cr$=chr$(13)
  160 d$="{left}O{CBM-T}{CBM-T}{CBM-T}P{left}{down}{CBM-M}{left}{down}{SHIFT-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}L{left}{up}{CBM-G}"
  170 dim s(13)
  200 print "{down}{down}{down}{down}";cr$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}care for instructions? ";
  210 f=18-f:print chr$(f);" {rvof}{left}";:t=ti
  220 get i$:if i$="" and ti-t<25 then 220
  230 if i$="n" then 630
  240 if i$<>"y" then 210
  250 print "{clr}   this is a game of chance played with"
  260 print "5 dice.  the object is to get as many"
  270 print "points as possible.  one game consists"
  280 print "of 13 turns.  each turn you may roll"
  290 print "the dice up to three times.{down}"
  300 print "   after each roll (except the last),"
  310 print "you may elect to keep any or all of the"
  320 print "dice as they are.  the ones that are"
  330 print "not kept are rolled again.  for example:";l$;"{down}{down}{down}{down}";
  340 for i=1 to 5:print b$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:next
  350 h(1)=5:h(2)=2:h(3)=3:h(4)=3:h(5)=1
  360 printl$;"{down}{down}{down}{down}{down}{rght}";:for i=1 to 5:print a$(h(i));
  370 print "{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:next:print "{down}{down}{down}{down}{rght}{rght}{rght}{rght}keep? 33{up}":t=ti
  380 if ti-t<240 then 380
  400 print "{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}means that you ";
  410 print "rolled a    {rvon}5{rvof} {rvon}2{rvof} {rvon}3{rvof} {rvon}3{rvof} {rvon}1{rvof}"
  420 print "and you want to keep the two {rvon}3{rvof}'s, and"
  430 print "roll the {rvon}5{rvof} {rvon}2{rvof} {rvon}1{rvof} again."
  440 print "{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}press {rvon}return{rvof} to continue";
  450 get i$:if i$="" then 450
  460 print "{clr}   after the rolling, you score the five";
  470 print "dice in one of the 13 scoring categories";
  480 print "(one category for each turn).  at the"
  490 print "end of the game, the 13 scores are added";
  500 print "to give the total (plus bonuses).{down}"
  510 print "the 13 categories are:{down}"
  520 print "1 - ones";cr$;"2 - twos";cr$;"3 - threes"
  530 print "4 - fours";cr$;"5 - fives";cr$;"6 - sixes"
  540 print "{down}t - three of a kind (scores all dice)"
  550 print "f - four of a kind (same as above)"
  560 print "h - full house (scores 25)"
  570 print "s - small straight(4 in a row) scores 30";
  580 print "l - long straight (5 in a row) scores 40";
  590 print "e - extra or chance (scores total dice)"
  600 print "y - yahtzee (5 of a kind) scores 50"
  610 print "{down}{rght}{rght}{rght}{rght}{rght}{rght}press {rvon}return{rvof} to start the game";
  620 get i$:if i$="" then 620
  630 print "{clr}";c$;:for i=1 to 6
  640 print "{rvon} ";mid$(s$,i,1);"'s {rvof}  ";:next
  650 print "{left}{left}";c$:print c$;"{rvon}three{rvof}  ";
  660 print "{rvon}four {rvof}  {rvon}house{rvof}  {rvon}small{rvof}  {rvon}long {rvof}";
  670 print "  {rvon}extra{rvof}";c$
  680 print spc(16);"{rvon}       {down}{left}{left}{left}{left}{left}{left}{left}";
  690 print "yahtzee{down}{left}{left}{left}{left}{left}{left}{left}       ";cr$;l$;
  695 for i=1 to 5:print b$;"{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:next
  700 for i=1 to 13:s(i)=-1:next:q=0:g=g+1
  710 for i=1 to 13:l=1:for j=1 to 3
  720 for k=l to 5:h(k)=int(6*rnd(1)+1):next
  730 print l$;"{down}{rght}";:for k=1 to 5
  740 if k>=l then print a$(0);
  742 print a$(h(k));"{rght}{rght}{rght}{rght}{rght}{rght}{rght}";:next:if j=3 then 920
  744 get i$:if i$<>""then 744
  750 print l$;"{down}{down}{down}{down}{down}"
  760 print "{rght}{rght}{rght}keep? ";:k=0
  770 f=18-f:print chr$(f);" {rvof}{left}";:t=ti
  780 get i$:if i$="" and ti-t<25 then 780
  790 if i$>"/" and i$<"7" then print i$;:k=k+1:i(k)=asc(i$)-48
  800 if i$="a" then 915
  805 if i$=chr$(20) and k>0 then k=k-1:print " {left}{left}";
  810 if i$<>cr$ then 770
  815 if k=0 then l=1:goto 910
  820 for l=1 to k:for m=l to 5
  830 if i(l)=h(m) then 850
  840 next:goto 860
  850 h(m)=h(l):h(l)=i(l):next l:goto 890
  860 print "  ???{up}":t=ti
  870 if ti-t<30 then 870
  880 print e$;"{up}":goto 760
  890 print "{up}";cr$;e$:if k<>5 then 910
  900 print cr$;" you can press {rvon}a{rvof} to keep all the dice{up}":t=ti
  902 if ti-t<120 then 902
  904 print e$:goto 920
  910 next j
  915 print "{left}{left}{left}{left}{left}{left}       ";
  920 if i<13 then 950
  930 for a=1 to 13:if s(a)<>-1 then next
  940 goto 1030
  950 print l$;"{down}{down}{down}{down}{down}"
  960 print spc(25);"score? ";
  970 f=18-f:print chr$(f);" {rvof}{left}";:t=ti
  980 get i$:if i$="" and ti-t<25 then 980
  990 for a=1 to 13:if i$=mid$(s$,a,1) then 1010
 1000 next:goto 970
 1010 if s(a)=-1 then 1028
 1020 print cr$;"{down}you may use one scoring category once{up}":t=ti
 1022 if ti-t<120 then 1022
 1024 print e$;"{up}";:goto 950
 1028 print "{left}{left}{left}{left}{left}{left}{left}        ";
 1030 s(a)=0:for j=1 to 6:m(j)=0:next
 1040 for j=1 to 5:m(h(j))=m(h(j))+1:next
 1050 if a<7 then s(a)=a*m(a):goto 1190
 1060 on a-6 goto 1070,1070,1090,1110,1110,1180,1160
 1070 forj=1 to 6:if m(j)>a-5 then 1180
 1080 next:goto 1190
 1090 for j=1 to 6:if m(j)=1 or m(j)=4 then 1190
 1100 next:s(9)=25:goto 1190
 1110 c=0:for j=1 to 6:if m(j)=5 then 1150
 1120 c=c+1:if m(j)=0 then c=0
 1130 if c=a-6 then 1150
 1140 next:goto 1190
 1150 s(a)=10*a-70:goto 1190
 1160 for j=2 to 5:if h(j)<>h(1) then 1190
 1170 next:s(13)=50:gosub 2000:goto 1190
 1180 s(a)=h(1)+h(2)+h(3)+h(4)+h(5)
 1190 if a=13 or s(13)<>50 then 1220
 1200 for j=2 to 5:if h(j)<>h(1) then 1220
 1210 next:q=q+100:print cr$;"{down}   100 point bonus{up}":gosub 2000:t=ti
 1212 if ti-t<80 then 1212
 1214 print e$
 1220 i$=str$(s(a))+" ":if s(a)>9 then i$=right$(i$,len(i$)-1)
 1230 print "{home}";:j=a:if a>6 then print "{down}{down}{down}{down}";:j=a-6
 1240 if a<>13 then print spc(7*j-6);d$;i$:goto 1270
 1250 print "{down}{down}{down}{down}";spc(16);"O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}P{left}{down}{CBM-M}";
 1260 print "{left}{down}{SHIFT-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}{CBM-@}{left}{left}L{left}{up}{CBM-G} ";i$;" "
 1270 next i
 1300 t=s(1)+s(2)+s(3)+s(4)+s(5)+s(6)
 1310 print l$;"{down}{down}{down}{down}";cr$;"top half =";t;"{left} points"
 1320 if t>62 then t=t+35:print "plus 35 bonus points"
 1330 u=s(7)+s(8)+s(9)+s(10)+s(11)+s(12)+s(13)
 1340 print "bottom half =";u;"{left} points"
 1350 if q>0 then print "plus";q;"{left} bonus points"
 1360 print "total = {rvon}";t+u+q;"{left}{rvon} {rvof} points"
 1365 ss=ss+t+u+q
 1370 print "{down}another game? ";
 1372 t=ti
 1374 get i$:if i$="" and ti-t<25 then 1374
 1376 f=18-f:print chr$(f);" {rvof}{left}";:if i$="" then 1372
 1380 if left$(i$,1)="y" then 630
 1385 if g=1 then end
 1390 print "{up}{up}{up}{up}";cr$;e$
 1400 print "you got";ss;"{left} points in";
 1410 print g;"{left} games for"
 1420 print "an average of {rvon}";int(ss/g+.5);
 1430 print "{left}{rvon} {rvof} points per game."
 1440 print e$;"{up}";:end
 2000 c=53:for k=1 to 6
 2010 poke 59409,c:c=113-c:t=ti
 2020 if ti-t<10 then 2020
 2030 next:return
   10 rem *******************************
   20 rem **    yahtzee (1-4 players)  **
   30 rem **       16k/32k version     **
   40 rem **             by            **
   50 rem **         eric  boge        **
   60 rem **       november, 1979      **
   70 rem *******************************
   80 :
   90 print"{clr}":gosub2670
  100 print"{clr}{down}{down}{down}{down}{down}{down}":
  110 fori=1to39:dd$=dd$+" ":next:q=0
  120 gosub2990
  130 fori=1to1000:next:open1,0,1:print"{clr}{down}{down}{down}{down}{down}{down}"
  140 printtab(6) "do you want instructions ? ";:input#1,a$
  150 ifleft$(a$,1)="y"thengosub2330
  160 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} initializing {rvof}"
  170 :
  180 rem***initializing***
  190 :
  200 fori=1to1000:v=rnd(1):nexti:dimd(6),e$(6),d$(7),r$(6)
  210 d$(1)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}    {down}{left}{left}{left}{left}{left}{left} {CBM-G} Q  {down}{left}{left}{left}{left}{left}{left} {CBM-G}    "
  220 d$(1)=d$(1)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  230 d$(2)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}Q   {down}{left}{left}{left}{left}{left}{left} {CBM-G}    {down}{left}{left}{left}{left}{left}{left} {CBM-G}  Q "
  240 d$(2)=d$(2)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  250 d$(3)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}Q   {down}{left}{left}{left}{left}{left}{left} {CBM-G} Q  {down}{left}{left}{left}{left}{left}{left} {CBM-G}  Q "
  260 d$(3)=d$(3)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  270 d$(4)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q {down}{left}{left}{left}{left}{left}{left} {CBM-G}    {down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q "
  280 d$(4)=d$(4)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  290 d$(5)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q {down}{left}{left}{left}{left}{left}{left} {CBM-G} Q  {down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q "
  300 d$(5)=d$(5)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  310 d$(6)="{rvon}M    {CBM-*}{down}{left}{left}{left}{left}{left}{left} O{CBM-T}{CBM-T}{CBM-T}{CBM-T}{down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q {down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q {down}{left}{left}{left}{left}{left}{left} {CBM-G}Q Q "
  320 d$(6)=d$(6)+"{down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G}    {rvof}"
  330 ff$="VVVVV"
  340 :
  350 rem***program manager***
  360 :
  370 bb=0
  380 bb=bb+1:gosub410:ifbb<kkthen380
  390 q=q+1:ifq<13thengoto370
  400 goto450
  410 fori=1to5:gosub490:next:print"{clr}":gosub500:gosub540:goto820
  420 ifq=12thengosub2250
  430 gosub1890
  440 return
  450 ifkk>1thengosub2780
  460 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}":print"      do you want another game ?";:input#1,f$
  470 if left$(f$,1)="y"thenclr:goto100
  480 print"{clr}":close1:end
  490 d(i)=int(rnd(1)*6+1):e$(i)=d$(d(i)):return
  500 print"{clr}"tab(16)py$(bb):print:printspc(3);:fori=1to5:printe$(i)"{up}{up}{up}{up}{up}";
  510 printspc(1)
  520 next:return
  530 :
  540 rem***rejecting***
  550 :
  560 p=0
  570 p=p+1
  580 fori=1to5:r(i)=0:r$(i)="":next
  590 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"dd$
  600 forj=1to10
  610 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"dd$"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
  620 print"rejects ? ";
  630 getr$:ifr$=""then630
  640 printr$;
  650 ifr$="c"thengosub1890:print"{clr}":gosub500:goto610
  660 ifr$="i"thengosub2330:print"{clr}":gosub500:goto610
  670 ifr$="*"thengoto580
  680 r(j) =val(r$)
  690 ifr(j)>5thengoto610
  700 ifasc(r$)=13then730
  710 ifr(j)=0then610
  720 print"{home}{down}{down}{down}{down}{down}{down}{down}":printtab(4+r(j)*7-7)ff$:next
  730 fors=1toj:i=r(s):gosub490:next:print"{home}"
  740 gosub500:ifp<>2then570
  750 gosub1820:ifm=10then:gosub2670:gosub500:xx(bb)=xx(bb)+1:goto770
  760 goto780
  770 ifxx(bb)>1then y(9,bb)=y(9,bb)+1:y$(9,bb)="o"
  780 return
  790 :
  800 rem***choose catagory***
  810 :
  820 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}       which category do you want      "
  830 printdd$:print"           to take this on ?       {left}{left}{left}{left}{left}{left}";:input#1,b$
  840 ifb$="c"thengosub1890:gosub500:goto820
  850 ifb$="i"thengosub2330:gosub500:goto820
  860 l=val(b$):ifl>0then980
  870 :
  880 rem***second part of card***
  890 :
  900 ifb$="tk"then1080
  910 ifb$="fk"then1180
  920 ifb$="fh"then1270
  930 ifb$="ss"then1360
  940 ifb$="ls"then1450
  950 ifb$="ch"then1540
  960 ifb$="y"then1590
  970 gosub2530:print"{clr}":gosub500:goto820
  980 ifl>6thengosub2530:gosub500:goto820
  990 s=0:ifx$(l,bb)="o"then1680
 1000 :
 1010 rem***first part of card***
 1020 :
 1030 fori=1to5:ifd(i)<>lthen1050
 1040 s=s+1
 1050 next
 1060 x(l,bb)=s*l:x$(l,bb)="o":goto420
 1070 :
 1080 rem***checking 3 of a kind***
 1090 :
 1100 ify$(1,bb)="o"then1680
 1110 gosub1820:ifm>=3then1150
 1120 gosub1730
 1130 ifleft$(m$,1)="y"then1160
 1140 goto820
 1150 gosub1780:y(1,bb)=n
 1160 y$(1,bb)="o":goto420
 1170 :
 1180 rem***checking 4 of a kind***
 1190 :
 1200 ify$(2,bb)="o"then1680
 1210 gosub1820:ifm>=6then1240
 1220 gosub1730:ifleft$(m$,1)="y"then1250
 1230 goto820
 1240 gosub1780:y(2,bb)=n
 1250 y$(2,bb)="o":goto420
 1260 :
 1270 rem***checking full house***
 1280 :
 1290 ify$(3,bb)="o"then1680
 1300 gosub1820:ifm=4then1330
 1310 gosub1730:ifleft$(m$,1)="y"then1340
 1320 goto820
 1330 y(3,bb)=25
 1340 y$(3,bb)="o":goto420
 1350 :
 1360 rem***checking small straight***
 1370 :
 1380 ify$(4,bb)="o"then1680
 1390 gosub2860:ifu>3thengoto1420
 1400 gosub1730:ifleft$(m$,1)="y"then1430
 1410 goto820
 1420 y(4,bb)=30
 1430 y$(4,bb)="o":goto420
 1440 :
 1450 rem***checking large straight***
 1460 :
 1470 ify$(5,bb)="o"then1680
 1480 gosub2860:ifu>4then1510
 1490 gosub1730:ifleft$(m$,1)="y"then1520
 1500 goto820
 1510 y(5,bb)=40
 1520 y$(5,bb)="o":goto420
 1530 :
 1540 rem***add chance***
 1550 :
 1560 ify$(6,bb)="o"then1680
 1570 gosub1780:y(6,bb)=n:y$(6,bb)="o":goto420
 1580 :
 1590 rem***checking yahtzze***
 1600 :
 1610 ify$(7,bb)="o"then1680
 1620 gosub1820:ifm=10thengoto1650
 1630 gosub1730:ifleft$(m$,1)="y"then1660
 1640 goto820
 1650 y(7,bb)=50
 1660 y$(7,bb)="o":goto420
 1670 :
 1680 rem***catagory has been filled***
 1690 :
 1700 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":print"     that category has been filled":printdd$
 1710 print"      please choose another one    {left}{left}{left}";:input#1,b$:goto840
 1720 :
 1730 rem***cancelling catagory***
 1740 :
 1750 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(5) "do you realize that you will be":printdd$
 1760 print "       cancelling that category ?     {left}{left}{left}{left}";:input#1,m$:return
 1770 :
 1780 rem***add dice***
 1790 :
 1800 n=0:fori=1to5:n=n+d(i):next:return
 1810 :
 1820 rem***checking for poker hands***
 1830 :
 1840 m=0:fori=1to4:forj=i+1to5:ifd(i)<>d(j)then1870
 1850 ifd(i)<>d(j)then1870
 1860 m=m+1
 1870 nextj,i:return
 1880 :
 1890 rem**printing card***
 1900 :
 1910 print"{clr}":printtab(16)py$(bb)
 1920 print"  {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
 1930 print"  {SHIFT--}ones  {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}3 of a kind{SHIFT--}     {SHIFT--}
 1940 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 1950 print"  {SHIFT--}twos  {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}4 of a kind{SHIFT--}     {SHIFT--}
 1960 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 1970 print"  {SHIFT--}threes{SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}full house {SHIFT--}     {SHIFT--}
 1980 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 1990 print"  {SHIFT--}fours {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}s straight {SHIFT--}     {SHIFT--}
 2000 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 2010 print"  {SHIFT--}fives {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}l straight {SHIFT--}     {SHIFT--}
 2020 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 2030 print"  {SHIFT--}sixes {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}chance     {SHIFT--}     {SHIFT--}
 2040 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 2050 print"  {SHIFT--}total {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}yahtzee    {SHIFT--}     {SHIFT--}"
 2060 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}"
 2070 print"  {SHIFT--}bonus {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}total      {SHIFT--}     {SHIFT--}"
 2080 print"  {CBM-Q}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-W}
 2090 print"  {SHIFT--}total {SHIFT--}     {SHIFT--}{CBM-+}{SHIFT--}chips      {SHIFT--}     {SHIFT--}
 2100 print"  {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-R}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
 2110 print"         {SHIFT--}total{SHIFT--}     {SHIFT--}":print"         {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-E}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}"
 2120 print"{home}{down}{down}":fori=1to9:ifx$(i,bb)<>"o"then2140
 2130 printtab(10)x(i,bb)"{down}":goto2150
 2140 printtab(11)" {down}"
 2150 next
 2160 print"{home}{down}{down}":fori=1to9:ify$(i,bb)<>"o"then2180
 2170 printtab(31)y(i,bb)"{down}":goto2190
 2180 printtab(31)" {down}"
 2190 next:ift(bb)=0then2210
 2200 printtab(16)t(bb)
 2210 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}    type any key to continue"
 2220 gett$:ift$=""then2220
 2230 return
 2240 :
 2250 rem***totaling score***
 2260 :
 2270 b=0:e=0:fori=1to6:b=b+x(i,bb):next:x(7,bb)=b:ifx(7,bb)<63then2290
 2280 x(8,bb)=35
 2290 x$(7,bb)="o":x$(8,bb)="o":x$(9,bb)="o":x(9,bb)=x(7,bb)+x(8,bb)
 2300 fori=1to7:e=e+y(i,bb):next:y(8,bb)=e
 2310 y$(9,bb)="o":y$(8,bb)="o":t(bb)=y(8,bb)+x(9,bb)+y(9,bb)*100:return
 2320 :
 2330 rem***instructions***
 2340 :
 2350 print"{clr}": print"   in playing this game of yahtzee,":print
 2360 print"   the computer will toss and print":print
 2370 print"   out the dice. you retoss the dice":print
 2380 print"   you don't want by typing their":print
 2390 print"   numbers in the row. if in typing ":print
 2400 print"   them you find that you have made a ":print
 2410 print"   mistake, type * and all the rejects":print
 2420 print"   you have chosen for that toss will":print
 2430 print"   be cancelled. ":print:print
 2440 print"      type any key to continue"
 2450 getss$:ifss$=""then2450
 2460 print"{clr}":print"   if at any time during your toss":print
 2470 print"   you wish to see your card or read":print
 2480 print"   the instructions type 'c' for card":print
 2490 print"   and 'i' for instructions.":print:print
 2500 print:print"       type any key to continue"
 2510 getaa$:ifaa$=""then2510
 2520 gosub2530:return
 2530 print"{clr}":print"   to choose which category you wish":print
 2540 print"   to take your toss on, follow these":print
 2550 print"   rules;":print
 2560 print"   1=ones       tk=3 of a kind":print
 2570 print"   2=twos       fk=4 of a kind":print
 2580 print"   3=threes     fh=full house":print
 2590 print"   4=fours      ss=small straight":print
 2600 print"   5=fives      ls=large straight":print
 2610 print"   6=sixes      ch=chance":print
 2620 print"   y=yahtzee ":print:print
 2630 print"        type any key to play"
 2640 getll$:ifll$=""then2640
 2650 return
 2660 :
 2670 rem***graphics***
 2680 :
 2690 u1=32814:u2=33614:u3=33640:u4=32840:fori=1to1000:next:print"{clr}":fork=1to5
 2700 print"{clr}":fork=1to5
 2710 fori=u1tou2step40:pokei,230:next:fori=u2tou3:pokei,230:next
 2720 fori=u3tou4step-40:pokei,230:next:fori=u4tou1step-1:pokei,230:next
 2730 u1=u1+82:u2=u2-78:u3=u3-82:u4=u4+78:next k:
 2740 fori=1to10:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":printtab(15)"         "
 2750 fork=1to 75:nextk:print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"
 2760 printtab(15)" yahtzee ":fork=1to 75:nextk,i:fori=1to1000:next i:return
 2770 :
 2780 rem***comparing scores***
 2790 :
 2800 a=0:t(0)=0:print"{clr}{down}{down}{down}":fori=1tokk:print: printtab(11)py$(i)"..."t(i)
 2810 ift(i)>t(a)thengosub2840
 2820 next i
 2830 print"{down}"tab(11)py$(a)" wins!!!":fori=1to8000:next i:return
 2840 a=i:return
 2850 :
 2860 rem***checking for consecutive ***
 2870 :
 2880 u=0:b=0
 2890 fori=1to6:forj=1to5
 2900 ifd(j)<>ithen2920
 2910 b=b+1
 2920 next j:ifb=0then2960
 2930 u=u+1:ifb$="ss"then ifu=4then2980
 2940 ifu=5then2980
 2950 goto2970
 2960 u=0
 2970 b=0:next
 2980 return
 2990 printtab(6)"how many to play (up to 4) ";:inputkk
 3000 ifkk<0orkk>4then3020
 3010 goto3030
 3020 print"{clr}{down}{down}{down}{down}{down}{down}{down}"tab(5)"please choose from 1 to 4 ) ";:inputkk:goto3000
 3030 print"{home}{down}{down}{down}{down}{down}{down}{down}"dd$
 3040 ifkk=1thenprint"{home}{down}{down}{down}{down}{down}{down}{down}"tab(6)"what is your name":goto3060
 3050 print"{home}{down}{down}{down}{down}{down}{down}{down}"tab(6)"please give me your names"
 3060 fori=1tokk:print:printtab(6);:inputpl$(i):next
 3070 fori=1tokk
 3080 jj=int(rnd(1)*kk+1)
 3090 ifpy$(jj)<>""then3080
 3100 py$(jj)=pl$(i)
 3110 nexti
 3120 return
   10 print chr$(14)++"{clr}Zahlenraten in der Deluxe Version!"
   20 input"Von 1 bis wieviel";a
   30 v=0:ti$="000000"
   40 b=int(rnd(0)*a)+1
   50 input"Was hast du geraten";c
   60 v=v+1
   70 if c>b then print"Meine Zahl ist kleiner!":goto 50
   80 if c<b then print"Meine Zahl ist groesser!":goto 50
   90 if c=b then print"Geschafft!"
  100 print"Du hast dafuer";v;"Versuche";
  110 if val(mid$(ti$,3,2))>0 then print", ";mid$(ti$,3,2);" Minute";
  115 if val(mid$(ti$,3,2))>1 then print"n";
  120 print " und ";mid$(ti$,5,2);"{$a0}Sekunden gebraucht."
  125 rem ich nehme nicht an, dass jemand laenger als ne stunde braucht
  130 input"Willst du nochmal";a$
  140 if a$<>"n" then goto 20
    0 clr:poke59468,12
    1 rem zap copyright (c) 1978 tom marazita
    2 rem cursor #2, month, 1978
    3 rem box 550, goleta, ca. 93017
    4 :
   10 rem as of april 15, 1978
   90 pg$="zap":nm$="2":gosub62000
  100 dimwm(255)
  102 el=18:hp=el-1
  105 dima(255)
  120 print"{clr}"
  130 po=33766
  140 s=1
  160 forx=32809to32808+38:pokex,100:next
  170 forx=32808+40to32768+(40*23)step40:pokex,103:next
  180 forx=32769+(40*24)to33766:pokex,99:next
  190 forx=33767-40to33767-(40*22)step-40:pokex,101:next
  195 gosub900
  200 geta$:ifa$<>""then200
  211 goto410
  220 a$="8":goto240
  230 geta$
  240 ifa$="4"thendir=-1
  250 ifa$="8"thendir=-40
  260 ifa$="6"thendir=1
  270 ifa$="2"thendir=40
  280 ifa$="7"thendir=-41
  290 ifa$="9"thendir=-39
  300 ifa$="3"thendir=41
  310 ifa$="1"thendir=39
  311 ifa$="5"then770
  320 po=po+dir
  321 ifpo=33767orpo=33728orpo=32808orpo=32847then590
  324 ifpeek(po)=102thengosub550
  325 wm(hp)=po:hp=hp+1
  326 ifhp>elthenhp=0
  340 ifpeek(po)>98andpeek(po)<102then590
  345 ifpeek(po)>102andpeek(po)<104then590
  350 ifpeek(po)=81then590
  360 pokepo,81
  370 r=int(rnd(1)*15)+1:ifs>5thenzz=20
  375 p1=int(rnd(1)*zz)+1:zz=50
  380 ifr=3then410
  390 ifp1=3then480
  400 gosub730:goto230
  410 rem
  420 ifs>6then400
  430 q=int(rnd(1)*1000)+(32768+160)
  435 ifq>33726then430
  440 ifpeek(q)<>32then430
  450 s=s+1:h=h+1:tc=tc+1
  460 pokeq,102
  470 a(h)=q:ifcv=1then400
  475 cv=1:goto220
  480 rem
  490 p=int(rnd(1)*h)+1
  500 rem
  510 ifpeek(a(p))<>102then540
  520 pokea(p),32
  530 s=s-1
  540 a(p)=a(h):h=h-1:goto400
  550 rem
  560 sc=sc+10
  565 s=s-1
  566 el=el+2
  567 ifel>250thenel=250
  570 gosub900
  580 return
  590 cr=cr+1
  595 gosub900
  600 ifcs>lthenl=cs
  610 cs=0
  615 el=18:hp=17
  616 tp=0
  620 cv=0
  635 fort=1to8:forx=1to100:next:pokepo,209:forx1=1to100:next:pokepo,81:next
  636 forx=0to255:wm(x)=0:next:hp=17:tp=0
  638 ifcr=6then650
  640 goto120
  650 print"{clr}{down}{down}{down}{down}{down}{down}"
  660 print"your  score is"sc
  662 print
  666 print
  667 print"highest possible score:"tc*10
  670 print
  675 print"you hit";int((sc/(tc*10))*100);"% of the targets"
  677 getq$:ifq$<>""then677:rem was poke525,0
  680 print"{down}want to play again?"
  681 getrj$:ifrj$=""then681
  682 ifrj$="y"thenrun
  685 print"{down}hope you had fun!{down}"
  700 end
  730 loc=wm(tp):tp=tp+1
  740 iftp>elthentp=0
  750 pokeloc,32
  760 return
  770 fore=1to171:geta$:ifa$<>""then240
  780 nexte:sc=sc-10:ifsc<0thensc=0
  790 gosub900
  800 goto770
  900 print"{home}{rght}{rght}{rght}score="sc;tab(18);"no. of crashes="cr
  910 return
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 60200 ifpn=0then60250
 60210 gosub60500:print"{down}press {rvon}return{rvof} to ";
 60220 ifpn=lpthenprint"begin:";:goto60240
 60230 print"contiune:";
 60240 gett$:ift$=""then60240
 60250 ifpn=lpthenclr:print"{clr}";:goto100
 60260 pn=pn+1:print"{clr}";pg$;" - cursor #";nm$;"  (c) 1979    page";pn;"{down}"
 60270 gosub60500:return
 60500 fori=1to10:print"DDDD";:nexti:return
 62000 print"{clr}{down}{down}";tab(9);"cursor #2  zap
 62010 print"{down}copyright (c) 1978  by tom marazita
 62020 gosub60500
 62025 print"{down}chase the targets
 62030 print"{down}{down}want directions? ";:gosub60000
 62040 ifin$<>"y"then100
 62100 lp=1:gosub60200
 62130 print"you control a strange missile!"
 62140 print"{down}targets '{CBM-+}' appear on the screen, which"
 62150 print"you try to hit.  use numbers to control"
 62160 print"the missile: 8 moves you up,"
 62170 print"             2 moves you down.
 62180 print
 62190 print"             4 moves you left
 62200 print"             6 moves you right.
 62202 print
 62205 print"(1, 3, 7, and 9 move you diagonally)
 62210 print
 62212 print"each target is worth 10 points, but
 62225 print"your missile gets bigger after hitting a
 62228 print"target...
 62230 print"{down}the game ends after 6 crashes!
 62235 gosub60200
   10 print"{clr}{down}{down}{down}{down}{down}{down}{down}"
   20 printtab(10)"#####################"
   30 printtab(10)"#";tab(30)"#"
   40 printtab(10)"#     {rvon}zeeslag{rvof}       #"
   50 printtab(10)"#";tab(30)"#"
   60 printtab(10)"#  program by       #"
   70 printtab(10)"#";tab(30)"#"
   80 printtab(10)"#  bert de keizer   #"
   90 printtab(10)"#";tab(30)"#"
  100 printtab(10)"#####################"
  110 forz=1to3000:nextz
  120 a1=65:a2=33488:a3=33767:a4=32849:a5=32869:a6=32869:a7=a4
  130 a$="{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
  140 aa$="{CBM-A}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-R}{SHIFT-*}{CBM-S}{$a0}":ab$="{SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--} {SHIFT--}"
  150 ac$="{CBM-Q}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{SHIFT-+}{SHIFT-*}{CBM-W}{$a0}":ad$="{CBM-Z}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-E}{SHIFT-*}{CBM-X}{$a0}"
  160 ae$=" 0 1 2 3 4 5 6{$a0}7{$a0}8{$a0}{$a0}"
  170 dimms%(1,6,8),sh%(5,5),x%(23),r%(1,4)
  180 data2,-2,80,-80,82,-82,78,-78,1,-1,-1,0,-1,-1,0,1,-1,1,1,0,0,-1,1,1
  190 forz=0to23:readx%(z):next
  200 print"{clr}0 = computer tegen speler":print
  210 print"1 = speler #1 tegen speler #2
  220 geti$:ifi$=""goto220
  230 ifi$="1"goto280
  240 ifi$<>"0"thengoto220
  250 ab=1
  260 print"{clr} . .{$a0}{$a0}{rvon}computer{rvof} . . . . . .{rvon}speler{rvof} . . .{$a0}{$a0}":print"{up}";
  270 goto290
  280 print"{clr} . .{$a0}{rvon}speler #1{rvof} . . . . . {rvon}speler #2{rvof} . .{$a0}{$a0}":print"{up}";
  290 printaa$aa$:print"{up}";
  300 forq=1to6:printab$chr$(a1)ab$chr$(a1):print"{up}";
  310 printac$ac$:print"{up}";:a1=a1+1:next
  320 printab$chr$(a1)ab$chr$(a1):print"{up}";:printad$ad$:print"{up}";
  330 printae$ae$:print
  340 forz=1to5:sh%(p,z)=0:next
  350 print"{home}"mid$(a$,7,18)
  360 print"s1= *         plaats uw schepen zoals u
  370 print"s2= **        wenst. zij mogen elkaar"
  380 print"s3= ***       {rvon}niet{rvof} raken. typ (return)"
  390 print"s4= ****      als u klaar bent":print"s5= *****"
  400 onabgoto420
  410 print"{home}"mid$(a$,7,32)"{rvon}speler "2-p"{left}{left}{left}#"
  420 a4=a7:x=0
  430 ifpthena4=32869
  440 gosub1650
  450 a4=a7:x=0
  460 ifpthena4=a6
  470 forz=1to5
  480 gosub1930:gosub1980:gosub2040
  490 ifk=0orsh%(p,k)>0thenz=5:gosub2280:gosub2360:goto340
  500 sh%(p,k)=1
  510 nextz
  520 forz=0to6:forz1=0to8:x=a4+z*80+z1*2
  530 ifpeek(x)=32orpeek(x)=102goto570
  540 ms%(p,z,z1)=peek(x)
  550 ifab=0thenpokex,32:goto580
  560 pokex,42:goto580
  570 ms%(p,z,z1)=0:pokex,32
  580 nextz1,z
  590 onabgoto620
  600 ifp=0thenp=1:goto340
  610 goto730
  620 gosub1890:print"{home}"mid$(a$,5,20)"ok nu plaats ik mijn schepen"
  630 forz=5to1step-1
  640 gosub2450
  650 forz1=8to23step2
  660 gosub2520:ife1=1thenz1=23:goto690
  670 ife1=2thenz1=23:goto640
  680 nextz1:goto640
  690 ifz<>5goto710
  700 gosub1890:print"{home}"mid$(a$,5,20)" 1 schip geplaatst":goto720
  710 print"{home}"mid$(a$,5,20)6-z"schepen geplaatst"
  720 nextz
  730 t(0)=5
  740 p=1:a4=a6
  750 ifp=1thena4=a6:goto770
  760 a4=a7
  770 gosub1890:forz=1tot(1-p)
  780 print"{home}"mid$(a$,6,19)"aantal schoten"t(1-p)-z+1
  790 print"{home}"mid$(a$,4,21)"geef uw schot"
  800 print"{home}"mid$(a$,4,35)"  "
  810 onabgoto830
  820 print"{home}"mid$(a$,5,45)"{rvon}speler "p+1"{left}{left}{left}#"
  830 getx$:ifx$=""goto830
  840 ifasc(x$)>71orasc(x$)<65goto830
  850 x1=asc(x$)-65
  860 print"{home}"mid$(a$,4,35)x$;
  870 getx$:ifx$=""goto870
  880 ifasc(x$)>56orasc(x$)<48goto870
  890 x2=asc(x$)-48
  900 printx$
  910 xx=a4+x1*80+x2*2
  920 ifpeek(xx)<>32thengoto800
  930 ifms%(p,x1,x2)<>0then950
  940 pokexx,87:goto970
  950 pokexx,170
  960 r%(p,5-ms%(p,x1,x2))=r%(p,5-ms%(p,x1,x2))+1
  970 ifr%(p,0)+r%(p,1)+r%(p,2)+r%(p,3)+r%(p,4)=15then1440
  980 nextz
  990 gosub2810
 1000 onabgoto1030
 1010 ifp=1thenp=0:goto750
 1020 p=1:goto750
 1030 p=0:a4=a7
 1040 forz=1to9:getx$:nextz
 1050 tc=tc+1
 1060 forz=1tot(1-p)
 1070 print"{home}"mid$(a$,6,19)"aantal schoten"t(1-p)-z
 1080 print"{home}"mid$(a$,4,21)"mijn beurt   "
 1090 print"{home}"mid$(a$,4,35)"  "
 1100 ifz=1andtb<6goto1230
 1110 iftb<13goto1130
 1120 iftc<2goto1270
 1130 ifz<>t(1-p)orta>1goto1270
 1140 gosub2450
 1150 forz1=h1to6:forz2=h2to8
 1160 ifpeek(a4+z1*80+z2*2)<>42goto1180
 1170 h1=z1:h2=z2:z1=6:z2=8:goto1280
 1180 nextz2,z1
 1190 forz1=h1to0step-1:forz2=8to0step-1
 1200 ifpeek(a4+z1*80+z2*2)<>42goto1220
 1210 h1=z1:h2=z2:z1=0:z2=0
 1220 nextz2,z1:goto1280
 1230 forz1=6to0step-1:forz2=8to0step-1
 1240 ifpeek(a4+z1*80+z2*2)<>42goto1260
 1250 h1=z1:h2=z2:z1=0:z2=0
 1260 nextz2,z1:goto1280
 1270 gosub2450
 1280 xx=a4+h1*80+h2*2
 1290 ifpeek(xx)=32goto1380
 1300 ifpeek(xx)<>42orpeek(xx)>128goto1270
 1310 ta=ta+1
 1320 pokexx,170
 1330 gosub2750
 1340 r%(p,5-ms%(p,h1,h2))=r%(p,5-ms%(p,h1,h2))+1
 1350 tb=r%(p,0)+r%(p,1)+r%(p,2)+r%(p,3)+r%(p,4)
 1360 iftb=15goto1450
 1370 goto1400
 1380 pokexx,87
 1390 gosub2750
 1400 nextz
 1410 ta=0:iftc=2thentc=0
 1420 gosub2810
 1430 goto740
 1440 gosub1890:print"{home}"mid$(a$,4,21)"u wint":goto1460
 1450 gosub1890:print"{home}"mid$(a$,4,21)"ik win"
 1460 print"{home}"mid$(a$,2,48)"raak een toets"
 1470 onabgoto1490
 1480 print"{home}"mid$(a$,5,19)"speler "p+1"{left}{left}{left}#"
 1490 getx$:ifx$=""goto1490
 1500 run120
 1510 end
 1520 rem
 1530 rem
 1540 rem
 1550 rem        #################
 1560 rem        #               #
 1570 rem        #  subroutines  #
 1580 rem        #               #
 1590 rem        #################
 1600 rem
 1610 rem
 1620 rem
 1630 rem ## insert ships ##
 1640 rem
 1650 ah=0:av=0:pokea4,160
 1660 geti$:ifi$=""goto1660
 1670 ifi$=chr$(13)thenpokea4,32:goto1790
 1680 ifi$<>"{rght}"goto1700
 1690 pokea4,32:ah=ah+1:a4=a4+2:goto1780
 1700 ifi$<>"{down}"goto1720
 1710 pokea4,32:av=av+1:a4=a4+80:goto1780
 1720 ifi$<>"{left}"goto1740
 1730 pokea4,32:ah=ah-1:a4=a4-2:goto1780
 1740 ifi$<>"{up}"goto1760
 1750 pokea4,32:av=av-1:a4=a4-80:goto1780
 1760 ifi$<>"*"goto1660
 1770 pokea4,42:ah=ah+1:a4=a4+2
 1780 gosub1810:pokea4,160:goto1660
 1790 gosub1890:print"{home}"mid$(a$,5,20)"even controleren"
 1800 return
 1810 ifah>8thenah=0:av=av+1:a4=a4+62
 1820 ifah<0thenah=8:av=av-1:a4=a4-62
 1830 ifav>6thenav=0:a4=a4-560
 1840 ifav<0thenav=6:a4=a4+560
 1850 return
 1860 rem
 1870 rem ## clear below ##
 1880 rem
 1890 forq=a2toa3:pokeq,32:next:return
 1900 rem
 1910 rem ## store ships ##
 1920 rem
 1930 forq=0to6:forq1=0to8:ms%(p,q,q1)=peek(a4+q*80+q1*2)
 1940 nextq1,q:return
 1950 rem
 1960 rem ## start position (h1,h2) ##
 1970 rem
 1980 forq=0to6:forq1=0to8:ifms%(p,q,q1)<>42goto2000
 1990 h1=q:h2=q1:q=6:q1=8
 2000 nextq1,q:return
 2010 rem
 2020 rem ## check ships ##
 2030 rem
 2040 x1=0:x2=1:gosub2090:ifk>1goto2140
 2050 x1=1:x2=1:gosub2090:ifk>1goto2140
 2060 x1=1:x2=0:gosub2090:ifk>1goto2140
 2070 x1=1:x2=-1:gosub2090:ifk=0thenreturn
 2080 goto2140
 2090 h3=h1:h4=h2:k=0
 2100 ifh3<0orh3>6orh4<0orh4>8thenreturn
 2110 ifpeek(a4+h3*80+h4*2)<>42thenreturn
 2120 k=k+1
 2130 h3=h3+x1:h4=h4+x2:goto2100
 2140 h3=h1:h4=h2
 2150 forq=1tok:pokea4+h3*80+h4*2,6-k:h3=h3+x1:h4=h4+x2:next
 2160 h3=h1:h4=h2
 2170 forq=1tok
 2180 forq1=0to7:x=a4+h3*80+h4*2:gosub2210
 2190 nextq1:h3=h3+x1:h4=h4+x2:nextq
 2200 return
 2210 x=x+x%(q1):ifpeek(x)>0andpeek(x)<6goto2240
 2220 ifpeek(x)<>32andpeek(x)<>42goto2240
 2230 pokex,102
 2240 return
 2250 rem
 2260 rem ## verkeerd ##
 2270 rem
 2280 gosub1890:forq=1to10
 2290 print"{home}"mid$(a$,5,20)"verkeerde invoer":forq1=1to100:nextq1
 2300 print"{home}"mid$(a$,5,20)"                ":forq1=1to100:nextq1,q
 2310 return
 2320 rem
 2330 rem
 2340 rem ## reset l/r field ##
 2350 rem
 2360 forq=0to6:forq1=0to8:x=a4+q*80+q1*2
 2370 ifpeek(x)=102thenpokex,32:goto2400
 2380 ifpeek(x)=32goto2400
 2390 pokex,42
 2400 nextq1,q
 2410 return
 2420 rem
 2430 rem ## random position ##
 2440 rem
 2450 hh=int(rnd(1)*69)
 2460 h1=int(hh/10)
 2470 h2=hh-h1*10:ifh2=9thenh2=8
 2480 h5=h1:h6=h2:return
 2490 rem
 2500 rem ## place computer ships ##
 2510 rem
 2520 h1=h5:h2=h6
 2530 forq2=1toz
 2540 ifh1>6orh1<0orh2>8orh2<0thene1=0:goto2580
 2550 ifms%(1,h1,h2)<>0thene1=0:goto2580
 2560 ms%(1,h1,h2)=6-z:gosub2610
 2570 ife1=1goto2590
 2580 gosub2700:q2=z:return
 2590 h1=h1+x%(z1):h2=h2+x%(z1+1)
 2600 nextq2:return
 2610 e1=1
 2620 forq3=8to23step2
 2630 h3=h1+x%(q3):h4=h2+x%(q3+1):gosub2650:ife1=0ore1=2thenq=23
 2640 nextq3:return
 2650 ifh3<0orh3>6orh4<0orh4>8thenreturn
 2660 ifms%(1,h3,h4)=0thenreturn
 2670 ifms%(1,h3,h4)=6-zthenreturn
 2680 ifq2=1thene1=2:return
 2690 e1=0:return
 2700 forq=0to6:forq1=0to8:ifms%(1,q,q1)=6-zthenms%(1,q,q1)=0
 2710 nextq1,q:return
 2720 rem
 2730 rem ## blink comp. shot ##
 2740 rem
 2750 x=peek(xx):forq=1to5:forq1=1to150
 2760 nextq1:pokexx,x:forq1=1to150:nextq1:pokexx,32
 2770 nextq:pokexx,x:return
 2780 rem
 2790 rem ## number of shots ##
 2800 rem
 2810 t(p)=0
 2820 forq=0to4
 2830 ifr%(p,q)<>q+1thent(p)=t(p)+1
 2840 nextq
 2850 return
    0 clr:pg$="zip":nm$="30":goto62000
    1 " craig eisler
    2 " street address
    3 " city, state, etc.
    4 "
    5 " cursor #30, may 1982
    6 " copyright(c)1982 the code works
    7 " box 550, goleta, ca. 93116
    8 "
   10 " as of 1 jun 82 gf
  100 hs=0
  200 w1=32:w2=102:w3=87:w4=42:w5=63:wt=25*wd
  210 ul=crt+2*wd+1:lr=crt+wt-wd-2
  300 dimp(10),c(9),h(9),u(9):as=1000
  400 deffna(x)=int(38*rnd(1)+1)+int(rnd(1)*22+2)*wd+crt
  500 u(1)=76:u(2)=22:u(3)=122:u(4)=60
  600 u(6)=62:u(7)=79:u(8)=30:u(9)=80:print"{clr}"
  700 c(1)=wd-1:c(2)=wd:c(3)=wd+1:c(4)=-1:c(6)=1:c(7)=-wd-1:c(8)=-wd:c(9)=-wd+1
  800 p(1)=86:p(2)=91:p(3)=77:p(4)=78:p(5)=90
  900 h(1)=78:h(2)=93:h(3)=77:h(4)=67:h(6)=67:h(7)=77:h(8)=93:h(9)=78
 1000 p(6)=35:p(7)=81:p(8)=87:p(9)=65:p(10)=42
 1100 print"{down}how fast (1=slow, 10=fast) ? ";:gosub60000
 1110 ifin$=""thenin$="5":print"{down}let's make it ";in$;".":forz=1to1000:next
 1120 l9=val(in$):if l9<>int(l9)thenprint"{down}a whole number, please":goto1100
 1130 ifl9<1orl9>10thenprint"{down}1 to 10, please.":goto1100
 1140 l9=5*(11-l9)
 1200 q$="{home}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}?:"
 1500 print"{clr}"
 1600 fort=crt+wdtocrt+wt-1stepwd:poket,w2:poket+39,w2:next
 1700 v=int(rnd(1)*6)+4
 1750 fort=1tov:pokecrt+t*wd+10,w2:nextt
 1800 fort=0to10:pokecrt+v*wd+t,w2:nextt
 1850 pokecrt+v*wd+int(rnd(1)*9)+1,w1
 1900 h=int(rnd(1)*7)+23
 1950 fort=1to24:pokecrt+t*wd+h,w2:nextt
 2000 z=int(rnd(1)*22+2):pokecrt+wd*z+h,w1
 2050 v=int(rnd(1)*10+v+2):ifv=zthen2050
 2100 g=1:fort=1toh-1
 2110 z=crt+wd*v+t
 2150 pokez,w2:ifrnd(1)<.1thenpokez,w1:g=0
 2200 nextt:ifgthenpokecrt+v*wd+gh+int(rnd(1)*(h-1)+1),w1
 2600 fort=0to39:pokecrt+wd+t,w2:pokecrt+wt-wd+t,w2:nextt
 2610 pokeul,96
 2700 fort=1toint(20*rnd(1)):z=fna(t)
 2800 g=peek(z):ifg=32theng=42:ifrnd(1)>.5theng=87
 2900 pokez,g:nextt
 3000 ti$="000000":t$=mid$(ti$,4,1)
 3100 ll=0:x=0:u=81:p=ul
 3200 y$=ti$:print"{home}time ";mid$(y$,3,2);":";mid$(y$,5);"  score";sc
 3300 y$=mid$(ti$,4,1):ift$<>y$thensc=sc+2:t$=y$
 3400 geta$:ifa$=""then4100
 3500 ifa$="q"then8900
 3600 a=val(a$):ifa=0then4100
 3800 ifa=5thenon2+(peek(p+c(a5))=w2)goto3200,4700
 4000 x=c(a):a5=a:u=u(a5)
 4100 ifl9<>5thenforlk=1tol9:nextlk
 4200 p=p+x:ifpeek(p)=w2thenp=p-x:x=-x:gosub7600:goto4600
 4300 ifpeek(p)=w4orpeek(p)=w3thenpokep-x,w1:zz=1:j=p:goto6200
 4400 pokep-x,w1:pokep,u
 4500 ifrnd(1)<.5then3200
 4600 onint(rnd(1)*7+1)goto6800,7200:goto3200
 4700 forj=p+xtop+x*11stepx
 4710 ifpeek(j)<>w1then4800
 4720 ifa5thenpokej,h(a5)
 4730 forz=1to10:nextz:nextj
 4740 gosub6500:goto3200
 4800 ifpeek(j)=w2thenj=j-x:gosub6500:goto3200
 4900 ifpeek(j)=w3thensc=sc+2:gosub6500:ll=1:goto6200
 5000 ifpeek(j)=w4thengosub6500:ll=1:goto6200
 5100 ifpeek(j)<>w5then4740
 5200 as=int(rnd(1)*5+1)
 5250 ifas=1thensc=sc+8:printq$;"got 8 points":gosub6500:goto6200
 5300 ifas=4thensc=sc-1:printq$;"hyperspace  ":gosub6500:goto10600
 5400 ifas=5then        printq$;"new wall    ":gosub6500:gosub10900:goto3200
 5450 ifas=3thensc=sc+1:printq$;"got 1 point ":gosub6500:goto10200
 5500 gosub6500:sc=sc-3:printq$;"star field  "
 5600 forg=1to9:ifpeek(j+c(g))=uthenzz=1:sc=sc-4:goto6200
 5700 ifpeek(j+c(g))=w2then5900
 5800 pokej+c(g),w4
 5900 nextg:goto3200
 6200 fory=1to10+(zz*15):fory1=1to10:pokej,p(y1):nexty1,y:pokej,w1:ifzzthen8900
 6300 ifop=1thenop=0:goto3200
 6400 gosub6500:goto3200
 6500 ifll=1thenll=0:return
 6600 forz=p+xtojstepx:x2=peek(z):ifx2=w2orx2=w4orx2=w3thenz=0:return
 6700 pokez,w1:nextz:z=0:return
 6800 onint(rnd(1)*2+1)goto6900,7100:goto3200
 6900 z=w4:goto7500
 7100 z=w3:goto7500
 7200 onint(rnd(1)*6+1)goto7250,7300,7400,7400:goto3200
 7250 z=w2:goto7500
 7300 z=w5:goto7500
 7400 c=fna(a):ifpeek(c)=w2thenpokec,w1
 7450 goto3200
 7500 c=fna(a):ifpeek(c)<>w1then7500
 7550 pokec,z:goto3200
 7600 ifu=22thenu=30:return
 7700 ifu=30thenu=22:return
 7800 ifu=60thenu=62:return
 7900 ifu=62thenu=60:return
 8000 ifu=76thenu=80:return
 8100 ifu=80thenu=76:return
 8200 ifu=122thenu=79:return
 8300 ifu=79thenu=122:return
 8400 return
 8900 zz=0:ifsc>hsthenhs=sc:zz=1
 8910 print"{clr}{down}your score:";sc
 8920 ifzzthenprint"{down}new high score:";hs
 8930 ifzz=0thenprint"{down}highest score so far:";hs
 8940 x3=1:zz=0
 9000 z=ti+12
 9100 getz$:ifz$<>""then9100
 9200 print"{down}{down}{down}{down}another?";:sc=0
 9300 print"{left}";mid$("? ",x3,1);:ifti>zthenx3=3-x3:z=ti+12
 9400 getz$
 9500 ifz$="y"orz$=cr$thenprint"{left}? yes":forg=1to800:nextg:goto1500
 9600 ifz$<>"n"then9300
 9700 print"{left}? no"
 9800 end
 10200 forg=1to9:ifpeek(j+c(g))=uthen10500
 10300 ifj+c(g)<ulorj+c(g)>lrthen10500
 10400 pokej+c(g),w1
 10500 nextg:goto3200
 10600 pokej,w1
 10700 c=fna(x):ifpeek(c)<>w1then10700
 10800 a=0:x=0:u=81:pokep,w1:pokec,u:p=c:goto3200
 10900 dd=1:xx=int(rnd(1)*2+1)
 11000 ifxx=2thenxx=wd
 11100 fortp=jtocrtstep-xx:ifrnd(1)>.5andddthendd=0:poketp,w1:goto11400
 11200 ifpeek(tp)=w2then11500
 11300 poketp,w2
 11400 nexttp
 11500 fortp=j+xxtolrstepxx
 11600 ifpeek(tp)=w2thenreturn
 11700 poketp,w2:nexttp:return
 11800 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 11900 getz$:ifz$<>""then12200
 12000 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 12100 goto11900
 12200 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto12600
 12300 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 12400 ifzl>254then11900
 12500 in$=in$+z$:printz$;zd$;z$;
 12600 ifz=13thenin$=mid$(in$,2):printcr$;:return
 12700 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto11900
 12800 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto11800
 12900 goto11900
 60000 in$=" ":zt=ti:zc=2:zd$=chr$(20)
 60010 getz$:ifz$<>""then60070
 60020 ifzt<=tithenprintmid$(" {CBM-+}",zc,1);"{left}";:zc=3-zc:zt=ti+15
 60030 goto60010
 60070 z=asc(z$):zl=len(in$):if(zand127)<32thenprint" {left}";:goto60110
 60080 iffland(zand127)>64and(zand127)<91thenz$=chr$((z+128)and255)
 60090 ifzl>254then60010
 60100 in$=in$+z$:printz$;zd$;z$;
 60110 ifz=13thenin$=mid$(in$,2):printcr$;:return
 60120 ifz=20andzl>1thenin$=left$(in$,zl-1):print"{left}";:goto60010
 60130 ifz=141thenz$=chr$(-20*(zl>1)):forz=2tozl:printz$;:nextz:goto60000
 60140 goto60010
 62000 poke59468,12
 62005 print"{clr}{down}{down}";tab(15-len(pg$));pg$;"  by craig eisler
 62010 print"{down}     cursor #";nm$;"  copyright (c) 1982{down}
 62020 fori=1to13:print"{SHIFT-*}{SHIFT-*}{SHIFT-*}";:nexti:print"{left}{inst}{SHIFT-*}"
 62030 print"{down}control a strange robot
 62040 print"{down}{down}{down}press {rvon}return{rvof} to begin
 62050 getz$:ifz$=""then62050
 62060 print"{clr}":clr
 62070 crt=32768:cr$=chr$(13)
 62080 wd=40:pokecrt,96:ifpeek(crt+1024)<>96thenwd=80:printchr$(142);
 62090 goto100
    1 poke59468,12
   10 poke59464,0:poke59467,16:poke59466,15
   20 fori=1to9:readd0%(i),d1%(i):next
  100 print"{clr}       zombies"
  110 print"        {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
  120 print"{down}  you are in a graveyard the"
  130 print"church clock has just struck {rvon}midnight{rvof}"
  140 print"you must evade the zombies for as long"
  150 print"possible by luring them into open"
  160 print"graves ({rvon}   {rvof}).but if you are caught then"
  170 print"you are killed.:-keyboard commands:-"
  180 print"{down}       7    8    9
  190 print"{down}        M   {SHIFT--}   N
  200 print"{down}       4  {SHIFT-*} 5 {SHIFT-*}
  210 print"{down}        N   {SHIFT--}   M
  220 print"{down}       1    2    3
  230 print"{down}press space to play"
  240 geta$:ifa$<>" "then240
 1000 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}zombies"
 1010 sw=40
 1020 sl=25
 1030 ss=32768
 1040 dimz%(49,1)
 1050 gosub1500
 1060 gosub2000
 1070 gosub3000
 1080 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}another game  {CBM-I}{left}{left}{left}";a$
 1090 ifleft$(a$,1)="y"then1050
 1100 ifleft$(a$,1)<>"n"then1080
 1110 poke59467,0
 1120 print"{clr}":end
 1500 input"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}how many zombies do you want 20-49   {CBM-I}{left}{left}{left}";z$
 1510 z=val(z$)
 1520 ifz>49thenprint"{down}{rvon}too many      ":goto1500
 1530 ifz<20thenprint"{down}{rvon}too few       ":goto1500
 1540 zz=z
 1550 return
 2000 print"{clr}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}"
 2010 a$="{SHIFT--}                                     {SHIFT--}"
 2020 b$="{SHIFT--}  {rvon}   {rvof}  {rvon}   {rvof}  {rvon}   {rvof}  {rvon}   {rvof}  {rvon}   {rvof}  {rvon}   {rvof}  {rvon}   {rvof}  {SHIFT--}"
 2030 printa$:fori=1to10:printb$:printa$:next:printa$
 2040 print"{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{home}"
 2045 o0=20:o1=13:o=ss+o0+sw*o1:d=0:j=1:z=zz:ns=1:nt=1
 2050 pokeo,81:fori=1toz
 2060 p1=int((sw-3)*rnd(0))+1:p2=int((sl-2)*rnd(0))+1:p=p1+p2*40+ss
 2070 ifpeek(p)<>32then2060
 2080 z%(i,0)=p1:z%(i,1)=p2:pokep,42
 2090 next
 2110 return
 3000 ti$="000000"
 3010 geta$
 3020 v=val(a$)
 3030 ifv=0then3070
 3040 d0=d0%(v):d1=d1%(v):d=d0+d1*sw
 3070 ifpeek(o+d)=32thenpokeo,32:o=o+d:pokeo,81:o0=o0+d0:o1=o1+d1
 3080 ifpeek(o+d)=42thenpokeo,32:o=o+d:goto3700
 3085 fori=1tont
 3090 j=int(rnd(0)*z)+1
 3095 p=ss+z%(j,0)+(z%(j,1)*sw):pokep,32
 3100 z%(j,0)=z%(j,0)-sgn(z%(j,0)-o0)
 3110 z%(j,1)=z%(j,1)-sgn(z%(j,1)-o1)
 3120 p=ss+z%(j,0)+(z%(j,1)*sw)
 3130 ifpeek(p)=81then3700
 3140 ifpeek(p)=160then3500
 3150 pokep,42
 3160 next:goto3010
 3500 fori=200to0step-10:poke59464,i:next
 3510 ifpeek(p)=160thenp=p-1:goto3510
 3520 pokep+1,230:pokep+2,230:pokep+3,220
 3530 z%(j,0)=z%(z,0)
 3540 z%(j,1)=z%(z,1)
 3550 z=z-1
 3560 ifz<1thengosub2000:ns=ns+1:nt=ns:z=z+int(rnd(0)*5):ifz>49thenz=49
 3565 ifz<ntthennt=z
 3570 goto3010
 3700 poke59464,255
 3710 fori=0to30:poke59464,255:pokeo,42:poke59464,200:pokeo,81:next
 3720 poke59464,0
 3730 geta$:ifa$<>""then3730
 4000 t=int(ti/6)/10:print"{clr}{down}{down}{down}you have survived for "t" seconds"
 4010 ift<hsthen4040
 4020 print"{down}you have survived the longest":ifhs=0thenhs=t:goto4050
 4030 print"{down}the previous best time was "hs" seconds":hs=t:goto4050
 4040 print"{down}the best time is still "hs" seconds"
 4050 return
 5000 data-1,1,0,1,1,1
 5010 data-1,0,0,0,1,0
 5020 data-1,-1,0,-1,1,-1
    5 rem zone x  by bill finzer
   10 rem     october, 1978
   11 poke 59468,12
   12 print"{clr}{down}{down}{down}{down}"
   16 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   18 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   20 print"     {CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+} {CBM-+}{CBM-+}  {CBM-+}{CBM-+}
   22 print"    {CBM-+}{CBM-+}{CBM-+}    {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   24 print"   {CBM-+}{CBM-+}{CBM-+}     {CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+} {CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}
   26 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   28 print"  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}   {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}  {CBM-+}{CBM-+}   {CBM-+}{CBM-+}  {CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}
   30 print"
   32 print"         V       VV
   34 print"        VVV     VVV
   36 print"         VVV   VVV
   38 print"          VVV VVV
   40 print"           VVVVV
   42 print"            VVV
   44 print"           VVVVV
   46 print"          VVV VVV
   48 print"         VVV   VVV
   50 print"         VV     VV
   60 print
  200 rem main calling routine
  210 gosub 500: rem initialize
  220 gosub 1000 : rem instructions
  230 gosub 1500 : rem draw grid
  240 gosub 1700 : rem draw guess chart
  250 gosub 2000:  rem hide lines and                       color regions
  260 gosub 2500 : rem input guess and                      display clue
  270 gosub 3000 : rem a win! display                      and fill out grid
  280 if a$="n" then end
  290 gosub 500
  300 goto 230
  500 rem initialize
  510 p=rnd(-ti)
  520 moves = 1
  530 l=4 : rem line# -1 for input
  540 return
 1000 rem instructions
 1010 print"what is your name? ";
 1020 gosub 5500: n$=b$
 1030 print:print"well "n$" do you want instructions?";
 1040 gosub 5000
 1050 if a$="n" then 1490
 1060 print"{clr}";tab(10)"zone x instructions{down}"
 1070 gosub 1500 : rem draw grid
 1080 print"{home}{down}i'm going to draw
 1090 print"two lines on this grid.
 1100 print:print"you are to find where
 1110 print"the two lines cross.
 1120 print:print"to help you, i've
 1130 print"colored the 4 regions
 1140 print"created by the lines
 1150 print" {CBM-+} , {rvon}W{rvof} , {rvon}V{rvof} , and {rvon}{SHIFT-+}{rvof}"
 1170 print"you guess a point":print "on the grid by
 1180 print"telling me its":print "coordinates (how far
 1190 print"over and how far up)":print"and i'll tell you
 1200 print"what color region":print"it is in.
 1210 print:print" {rvon} {rvof} means the point is on the line
 1220 print:print"press any key to go on."
 1225 poke 158,0
 1330 gosub 5000
 1490 return
 1500 rem draw grid
 1501 print"{clr}"
 1502 t=20
 1510 printtab(t)" 15*...............
 1520 printtab(t)"   {SHIFT-+}...............
 1530 printtab(t)"   {SHIFT-+}...............
 1540 printtab(t)"   {SHIFT-+}...............
 1560 printtab(t)"   {SHIFT-+}...............
 1570 printtab(t)" 10*...............
 1580 printtab(t)"   {SHIFT-+}...............
 1590 printtab(t)"   {SHIFT-+}...............
 1600 printtab(t)"   {SHIFT-+}...............
 1610 printtab(t)"   {SHIFT-+}...............
 1620 printtab(t)"  5*...............
 1630 printtab(t)"   {SHIFT-+}...............
 1640 printtab(t)"   {SHIFT-+}...............
 1650 printtab(t)"   {SHIFT-+}...............
 1660 printtab(t)"   {SHIFT-+}...............
 1670 printtab(t)"  0*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*{SHIFT-+}{SHIFT-+}{SHIFT-+}{SHIFT-+}*
 1680 printtab(t)"   0    5    10  15
 1690 return
 1700 rem draw guess chart
 1710 print"{home}     zonex
 1720 print"{down}"n$"'s
 1730 print"guess  B clue
 1740 print" x,y   B
 1750 for i=1 to 18
 1760 print"       B
 1770 next i
 1780 return
 2000 rem hide lines and color regions
 2010 px=int(rnd(1)*12)+3:rem intersection
 2020 py=int(rnd(1)*12)+3:
 2030 lx=int(rnd(1)*15)+1:rem lines
 2040 ly=int(rnd(1)*15)+1
 2050 rem color the regions
 2060 r1=int(rnd(1)*4)+1
 2070 r2=int(rnd(1)*4)+1:if r2=r1 then 2070
 2080 r3=int(rnd(1)*4)+1
 2090 if r3=r2 or r3=r1 then 2080
 2100 r4=int(rnd(1)*4)+1
 2110 if r4=r1 or r4=r2 or r4=r3 then 2100
 2120 c$(r1)="{rvon}W{rvon}"
 2130 c$(r2)="{rvon}V{rvof}"
 2140 c$(r3)="{rvon}{SHIFT-+}{rvof}"
 2150 c$(r4)="{CBM-+}"
 2160 c$(5)="{rvon} {rvof}"
 2170 x1=px:y1=py:x2=lx:y2=0
 2175 gosub 7000:t1=theta
 2180 x2=0:y2=ly
 2190 gosub 7000:t2=theta
 2195 if int((t2+~)*1000)=int(t1*1000)        then 2000
 2200 return
 2500 rem input guess and display clues
 2510 if l>20 then l=4
 2520 poke 216,l:print
 2525 print"       "tab(9)"      ":print"{up}";
 2530 moves = moves +1
 2540 l=l+1
 2542 gosub 5500
 2544 i1=0
 2546 for i=1 to 10
 2548 if mid$(b$,i,1)="," then i1=i
 2550 next i
 2551 if i1=0 thenprint"illegal":print"move":l=l+2:goto 2540
 2552 x=val(left$(b$,i1))
 2554 y=val(right$(b$,len(b$)-i1))
 2560 ifx<0ory<0 or x>15 or y>15 thenprint"illegal":print"move":l=l+2:goto 2540
 2570 rem find region
 2580 if x=px and y=py then 2790 :rem           got it!
 2590 gosub 2800 locate region
 2600 print"{up}"tab(9)c$(r)
 2610 gosub 6500: printc$(r):rem print clue       on graph
 2620 goto 2510
 2790 return
 2800 rem isolate which region
 2810 x1=x:y1=y
 2820 x2=lx:y2=0
 2830 gosub 7000:ax=theta
 2835 if theta=-100 then r=5: goto 2990
 2840 x2=0:y2=ly
 2850 gosub 7000:ay=theta
 2855 if theta=-100 then r=5: goto 2990
 2870 if ax=t1 or ay=t2 then r=5:goto         2990
 2880 if ax<t1 and ay<t2 then r=1:goto         2990
 2890 if ax<t1 and ay>t2 then r=2:goto         2990
 2900 if ax>t1 and ay>t2 then r=3:goto         2990
 2910 if ax>t1 and ay<t2 then r=4:goto         2990
 2990 return
 3000 rem display for win
 3002 for i= 1 to 4
 3004 poke59409,52
 3005 t9=ti
 3006 if ti<t9+30 then 3006
 3007 poke59409,60
 3008 next i
 3010 print"{up}"tab(9)"you got it!"
 3015 printtab(9)"in"moves-1"moves!"
 3050 for x=0 to 15
 3060 for y=0 to 15
 3070 gosub 2800
 3080 gosub 6500:printc$(r)
 3090 next y
 3100 next x
 3110 x=px:y=py
 3120 gosub 6500
 3122 for i= 1 to 10
 3124 print"{rvon} {rvof}{left}";
 3125 t9=ti
 3126 if ti<t9+30 then 3126
 3127 print" {left}";:if ti<t9+60  then 3127
 3128 next i
 3129 print"{rvon} {rvof}"
 3130 poke216,l+1:print
 3140 print"play again "n$"?";
 3150 gosub 5000
 3160 return
 5000 rem get a single character
 5010 t=ti
 5012 ifti<t+30thenprint"{CBM-+}{left}";:goto5020
 5014 ifti<t+60thenprint" {left}";:goto5020
 5016 t=ti
 5020 get a$: if a$=""then 5012
 5030 print" {left}";
 5040 return
 5500 rem build up a string. don't accept     empty string
 5510 b$=""
 5520 gosub 5000  :rem get character
 5530 if b$="" and a$=chr$(13) then 5520
 5540 printa$;
 5550 if a$=chr$(13)then 5580
 5560 b$=b$+a$
 5570 goto 5520
 5580 return
 6500 rem move cursor to x,y on grid
 6510 if 16-y<0 then print"{home}";: goto 6530
 6520 poke 216, 15-y: print
 6530 printtab(x+23);
 6540 return
 7000 rem find angle theta frompoint 2            to point 1
 7010 if x1=x2 and y1=y2 then theta=-100:       goto 7490
 7020 if x1=x2 and y1<y2 then theta=-~/2:       goto 7490
 7030 if x1=x2 and y1>y2 then theta= ~/2:       goto 7490
 7040 if y1=y2 and x1>x2 then theta= 0  :       goto 7490
 7050 if y1=y2 and x1<x2 then theta= ~  :       goto 7490
 7060 theta = atn((y1-y2)/(x1-x2))
 7070 if x1<x2 and y1>y2 then theta=           theta+~
 7080 if x1<x2 and y1<y2 then theta=           theta-~
 7490 return