&Ouj_uk_'0DDDDDDui0DDuiui HHuiuiXXXXXXui3_uk\#3@ujL#&&Ouj_uk_'0DDDDDDui0DDuiui HHuiuiXXXXXXui3_uk\#0130ujL#a"&$:COPYRIGHT 1990, FALSOFT INC.&G (&H6100)142 M"MODIFY"&^ 8: 200,&H61001&::"INSERT DISK WITH PICTURE IN ANY DRIVE THEN PRESS ANY KEY...": &HADFB&(:"PMODE (3,4) -";PM: PM3 PM4 40' 2"FILENAME.EXT -";NM$: (NM$)12 50'A<"DRIVE #(0-4) -";DR$: (DR$)0 (DR$)4 60'bF PM,1::1,1:M NM$":"DR$'nP&HADFB'{Z &H6700'd:8)"PICTURE OPTIONS"({n" 1> HALF HEIGHT",," 2> MIRROR TOP/BOTTOM"," 3> COPY TOP/BOTTOM"," 4> HALF WIDTH",," 5> MIRROR LEFT/RIGHT"," 6> COPY LEFT/RIGHT"," 7> FLIP TOP/BOTTOM"," 8> FLIP LEFT/RIGHT"," 9> MIRROR FOUR CORNERS","10> COPY FOUR CORNERS"(x"11> BACK TO ORIGINAL","12> SWITCH PMODE"::"ENTER DESIRED OPTION (1-12)? ";Q$:Q(Q$): Q1 Q12 100)1 PM3 Q 260,330,270,280,320,290,300,310,340,350,360,370)l Q 150,220,160,170,210,180,190,200,230,250,240,370)4,5:: &H6100: 380) &H6100: &H6C00: 380)4,5:: &H6200: 380) &H6200: &H6B00: 380) &H6300: 380*Ȣ &H6400: 380*$Ң &H6200: &H6500: 380*Bܢ &H6100: &H6600: 380*q &H6200: &H6500: &H6100: &H6600: 380* &H6800: 380* &H6100: &H6200: &H6900: 380*3,5:: &H7100: 380* &H7100: &H6C00: 380*3,5:: &H7200: 380+" &H7200: &H6B00: 380+/, &H6300: 380+C6 &H7400: 380+a@ &H7200: &H7500: 380+J &H7100: &H6600: 380+T &H7200: &H7500: &H7100: &H6600: 380+^ &H7100: &H7200: &H6900: 380+h &H6800: 380+rPM(PM 1)3, | PM,1: 1, &HADFB,! 1006300: 380+C6 &H7400: 380+a@ &H7200: &H7500: 380+J &H7100: &H6600: 380+T &H7200: &H7500: &H7100: &H6600: 380+^ &H7100: &H7200: &H6900: 380+h &H6800: 380+rPM(PM 1)3, |ia&Ouj_uk 4uk\#0 uj#&Ouj_uk_'ˀ0'@ ' ''0' ''\uk\#3ujL#=Ouj_ukuk\#3ujL#&Ouj_uk_'/'\@' '''' '@'ˀ3_uk\#3@ujL#&&Ouj_uk_'/'\@' '''' '@'ˀħ3_uk\#0130ujL#&=Ouj_ukuk\#3ujL_#΀Pތ&%9΀P큌&%9&Ouj_uk  uk\#03ujL_#&&%9&Ouj_ukuk\#03ujL#& %&Ouj_ukuk\#0 uj#&Ouj_ukui HHuiuiTTTTuiui DDuiuk\#3ujL# Y1: WW1 WW1:: QQ1 QQ1JU F V$(QQ,WW)"" (QQX WWY) NQ0:Ja P WW,QQJl ZNQ1:J| d: SAVEJ n 65496,0:"O",#1,"SAVEGAME"J x QQ1 16: WW1 16: #1,V$(QQ,WW): WW,QQ: #1,P,S1,S2,KR,LL$,P1$,P2$J :K : LOADK% 65496,0:"I",#1,"SAVEGAME"Kv QQ1 16: WW1 16: #1,V$(QQ,WW): WW,QQ: #1,P,S1,S2,KR,LL$,P1$,P2$:K KE1: 1640:KE0K KEY1: Y1 15: X1 15:I$V$(X,Y): I$"" X,Y: 2770L ((I$)64 (I$)91) (I$)42 1530L ȋ X,YL9 Ҁ T1 105: (LL$,T,1)" " 2790LS ܋ T:NA0:KO0:KE0: L KE1:NA0:KO1:X(21):Y(5):XX18:YY17:XXX8:YYY8: 1800:KE0L NA1 2790L KO0:NA0:L  1150: P1 PL$P1$ : PL$P2$L  T1 7M4 B$"Change "(PL$,T,1)"->":(19,6T),B$: 44539:A$MM " A$"N" B$B$"N"Mn , A$"Y" B$B$"Y": 2910M 6 A$"N" A$"Y" 2840M @(19,6T),B$:M J P1 P1$PL$ : P2$PL$M T P1 P2: : P1:M ^G$(PL$,T,1):(PL$,T,1)" "NW hN(105): (LL$,N,1)" " R$(LL$,N,1):(PL$,T,1)R$:(LL$,N,1)G$: : 2920Nl r(LL$,N,1)G$:N 6,10:"Are you using an RGB monitor?"NA$: A$"" 5001N A$"Y" A$"y" CS1 : CS0N:(PL$,T,1):(PL$,T,1)" "N&:LISTING1&*:GOTO600'ON THE BIAS&8:GOTO700&Q T(2): T 10,11&g 4,1::1,0:100&w 4,1::1,1&dA$"BH2U3R3G3L3U3E3"&h:FOR A=3 TO 0 STEP-1&i S4 40 2&j:FOR S=40 TO 4 STEP-2&k A3 0 1&nB$"S"(S)' sD$"A"(A)'%x "BM128,96"D$B$A$'/ A,S'>:NEXT S,A'`:FOR Z=1TO 2000:NEXT:GOTO280'rȀ Z1 600:':FOR A=0 TO 3':FOR S=4 TO 40 STEP2'ހ S40 4 2'߀ A3 0 1'B$"S"(S):D$"A"(A)'"C4BM128,96"D$B$A$( A,S(:NEXT S,A(?:FOR Z= 1 TO 2000: NEXT:PCLS:GOTO 9(W Z1 200:::9(uX:PMODE4,1:PCLS:SCREEN1,1(b"BM0,96R128NR128NU96D96"(l:(m:(n:A$="BE4U2R3ULD3L2BG4"(o:A$="M+3,-2U2R3M-1,3M-2,-1")p:A$="M+3,-2M-1,-2R4M-1,3M-2,-2M-3,2")+q:A$="M+3,-2U3R7U2L2D5L5M-3,2")_r:A$="BM+6,-4H2M+4,-1F2M-2,3H2BM-6,4"'OPT. ILL.)~s:A$="U2R6U2NM+3,-2L3D4L3")t:A$="U4R3D2M+3,-2NLNDM-3,2R3D2L6")u X40 4 4)v"S=X;BM128,96"A$)w X:Z12000:)x632)y 100*:PMODE4,1:PCLS:SCREEN1,1*Gƻ(0,96)(255,96),:(128,191),:(128,0),*i:A$="M+1,-2M+2,-1M-1,2M-2,1"*:A$="M+3,-2U3M+3,-1D2M+3,-2M-3,2R2G2L3M-3,2"*:A$="BM+3,-2U2R6U2L3D4L3"*:A$="M+1,-5FD2NG2R2FM-5,1"*:A$="M+1,-3NF2ER2D2GM-3,1"+':A$="EFGHREFGHRE2F2G2H2UEFGHDEFGHDEFGH"+C:A$="RNENFRNHNGRNENFR"+W:A$="UNLREFGH"+}:A$="BL4EGFHRHFGERGEHFRFHEGEFGH"+ـ X4 40 4+"S=X;BM128,96"A$+ۋ X:Z12000:+܁732+݁100+灥 999:A$="M+1,-3NF2ER2D2GM-3,1"+': RN1 J1 V$(X,Y)"" :: J1 1,18( J2 (2)0 1250 : J2 X1 X15 Y1 Y15 V$(X,Y)"" : RN1 V$(X,Y)"" J1 :: J2 1,182 12508< P1 PL$P1$ : PL$P2$: GOSUB 790 : 19,99F 1150: (19,9),"(D)own or (S)ideways"9HP 44539:A$: A$"D" A$"S" 13609{Z:---------------Write word-------------------9dQXX:QYY: 1150: (19,9),"Type in word"9n A$"S" DS1:DD0 : DS0:DD19x 44539:I$: I$" " 1400: I$"g" 2180: 1400:3 (I$)4 2180: 1910::n (I$)13 2540: NO1 1400 : 1690: 1910: (I$)13 P1 P2:: (I$)13 P2 P1:;T (I$)8 VO1: 2020: 1970: (PL$," ")0 1930:VO0:XXDS:YYDD:(PL$,(PL$," "),1)(WD$,1):WD$(WD$,(WD$)1):V$(X,Y)"": RT1 : 1400;v (PL$,I$)0 1480 : 1400;ȅ X15 1400;҅ Y15 1400;܅ V$(X,Y)"" XXDS:YYDD:WD$WD$(255); DS1 X16 1400; DD1 Y16 1400<(X88,Y8),9,41 letters":(1,21),"Player >2 letters"=J (3,19),"- - - - - - -":(3,23),"- - - - - - -" =2T(7,134)(143,191),,B=e^:--------------------------------------------=h 4: Y18 22: X19 39 =rXXX8:YYY8:C$"BM"(XX)","(YY)"C5BRR6D6L6U6R6BR": C$: X,Y=| KE1 = 2300:2: 65434,63=>1W2$PL$::------------Get Letters------------>J P1 JJ1 : JJ2>_JO1: 220:JO0>xX(X3):Y(Y10)>… LL$(105," ") 2240>YY1:XX1: Y5 Y5 : X21 X21>XX18:YY17:XXX8:YYY8?0 (XX,YY)(XX8,YY8),2:(XX,YY)(XX8,YY8),2,:(XX,YY)(XX8,YY8),2,?O J1 (0)1 1800 ?m J2 (2)1 1800? (PL$," ")0 : 1700? (XX1,YY)5 KE1 NA1: : ?"BM"(XX1)","(YY)"C6BRBRR6D6L6U6"? KO1 @& (PL$)0 PL$(7," ")@;0 (PL$)7 (PL$," ")0 @:N(105): (LL$,N,1)" " 1850 : (PL$,(PL$," "),1)(LL$,N,1)@D(LL$,N,1)" "@N 128,1@X@b P1 PL$P1$ : P2 PL$P2$@lAv P1 P1$PL$ : P2 P2$PL$AA+ (WD$,(WD$),1)(255) AG DS1 (X8,Y8),C,4Ag DD1 (X88,Y88),C,4AmA{XXX:YYYA DD1 XX0:YY1: 2000: 860 : XX1: 2000: 860AXXX:YYY:AL$(G$(X),Y,1)AڐBB (WD$)0 2030 : (WD$,(WD$),1)(255) XXDS:YYDD:WD$(WD$,(WD$)1)BHBVFV0:FS0B:-------------------Get Score-----------------B D0:T0: X1 (WD$)B (WD$,X,1)(255) QXQXDS:QYQYDD: 2120B L$(WD$,X,1)C* L$"*" L$"A"C'4 L$"" K(L$)64:FVV(K)C>K$(G$(QX),QY,1): K$"S" FVFV2 : K$"B" FVFV3 : K$"P" DD1 : K$"R" TT1CHQXQXDS:QYQYDD:FSFSFV: XCR D0 FSFS2:DD1: 2130C\ T0 FSFS3:TT1: 2140D.f W2$" " FSFS80:BNBN1:W2$"" : W2$""DOp P1 S2S2FS : S1S1FSDUzD KK1 (WD$):I$(8):RT1: 1460: KK:RT0:D: 40:2: 2,4:: 5000:" Player 1 press your joystick"D 2270:J1JE " Player 2 press your joystick"E 2270:J2JE, 4,1: 1,1:E::WINNER!EB 2ENԁ 2340EX(0):Y(2): X1 J1:: Y1 J2:: 2270E (J1 (0)1) 2280 : (J2 (2)1) 2280EF6:PMODE 4,1:SCREEN1,1:COLOR 0:Y=96:FOR X=96 TO 0 STEP -1:Y=Y-1:LINE(X,Y)-(255-X,191-Y),PSET,B:IF Y=0 THEN Y=1FC :NEXT XF :PMODE 4,1:SCREEN1,1:COLOR 1:Y=191:FOR X=0 TO 191:LINE(X,Y)-(255-X,191-Y),PSET,B:Y=Y-1:NEXT XF F $:--------------------Winner-------------------F .5: 0G 8 S1S2 P1 : P2G BP$"player"(P)Gh L (0,1)," Congradulations!":(0,2)," "P$" wins!"Gw V 1: 1,20G `(160,140),50:(160,140),1,1G j 2,22: 3,28G t"BM190,110E40H10G40H10E40F10H20G40H40G10F60G10H60E10G20F60"G ~ 4,48H (160,86),2,1H (195,86),3,1H3 0,63:(125,86),3,1HS (130,86),0,1:(180,86),0,1Ho (160,140),35,4,1,0,.50H 4:(140,120),10H (176,120),10H (158,135),10,4,2H ؀ T1 5000:: 32::: 65497,0:H NO0: 1460H : MAKE SUREI WD$"" RN1 I< XXDS:YYDD: DS1 2600 : 2620IN XXDS:YYDDIh  NQ1 NO1 : NO0Is NQ0:I ( QQX(WD$)1 X1: WWY1 Y1: V$(QQ,WW)"" (QQX WWY) NQ0:I 2 WW,QQ:NQ1:J& < QQX1 X1: WWY(WD$)1(&#:COPYRIGHT 1990 FALSOFT, INC&Dd: *************************&en: **** COCO JUMBLE ****&x: *** WRITTEN BY: ***&: ** SHANE MESSER **&: * SPECIAL THANKS TO: *&: * SHARON AND JERRY H. *' : ** MR.ORBAN & JOSE' G. **'+: *** COPYRIGHT(C) 1989 ***'L: **** BY FALSOFT, INC ****'m: *************************'{Ȓ 65497,0'ҁ 300'X1(0):Y1(1)'X2(2):Y2(3)' J1 XX1:YY1 : XX2:YY2' JO1 'XX4:YY4(X(X):Y(Y)((B":---------------Startup loop------------------(M, 2000(Y6 2190(`@:(gJ:(nT:(u^:(h V(26),V$(16,16),S(15,15),G$(20): 1,6000: 2,100: 3,500(rP1:KR1(| 600( 1600)  1150: 4: (19,9),"Pick Letters Player 1")+PL$(7," "): 1690:P1$PL$)[ 1150:4: (19,9),"Pick Letters Player 2")PL$(7," "):P2: 1690:P1:P2$PL$):):---------------End of Start Loop-------------):-------------------Main Loop-----------------)PR1* 4: 1150: 980:1050*) 65497,0*G A$"V" 1190: 480*e A$"S" 2660: 480* A$"L" 2700: 480* A$"N" P1 P2 : P1* A$"C" 2820: 480+& A$"P" WD$"":RNRN1: 1240: 1340: (WD$)0 2040 : 480+0KRKR1+%: 480+YD:---------------End of Main Loop--------------+N:-----------------Screen Setup----------------,X CS0 : 5,32: 0,57: 1,59: 4,16: 6,63: 8,63: 9,0 : : 5,56: 0,61: 1,25: 4,6: 6,63: 8,63: 9,0,Gb 32: 4,1:1,1: 920:2:0: &HE6,2: &HE6C6,0: &HE6C7,0:6:14,l5:(7,2)(143,132),,BF:4:Y7: X15 135 8: 680::X15: Y7 127 8: 680:,v 690, 4:(23,1),"Coco Jumble":(22,2)," Written by:":(20,3)," Shane Messer"- (144,33)(320,41),1-:-$-?(X,Y)(135,127),,B:-s:-----------------Data Setup------------------- X1 15: Y1 15:V$(X,Y)"": Y,X: X1 8: G$(X):G$(16X)G$(X):: Y1 15:L$(G$(Y),Y,1)-ƅ L$"R" S(X,Y)2. Ѕ L$"W" S(X,Y)0.%څ L$"B" S(X,Y)4.= L$"P" S(X,Y)1.U L$"S" S(X,Y)3.f Y: 850:.~ "WWWWWWWRWWWWWWW". "WWWSWWWPWWWSWWW". "WRWWPWWWWWPWWRW". "WWPWWWWSWWWWPWW".* "RWWWWWWWWWWWWWR".4 "WPWWWSWBWSWWWPW"/> "WWSWWWBWBWWWSWW"/&H "RWWBWWWPWWWBWWR"/QR X1 15: Y1 15:L$(G$(X),Y,1)/\ L$"S" C1 : L$"P" C0 : L$"B" C2 : L$"R" C3 : C5/f VO1 /p C4 (X88,Y8),C,4/z Y,X/ 1000/0:-----------------Title Screen----------------0 1:Y6:A$"C o c o J u m b l e":970:A$" ": 970:A$"Written by:": 970:A$"Shane Messer": 970:A$"(C) Copyright, 1989": 970:A$" ": 970:A$"Please wait...": 9701! X0 248 8: "BM"(X)",0C0R7D7L7U7":"BM"(X)",184R7D7L7U7": X1q Y0 178 8:"BM0,"(Y)"C0R7D7L7U7":"BM248,"(Y)"C0R7D7L7U7": Y1w2 YY1:X32(A$):XX2:X(X):A256YX3584: B1 (A$):B$(A$,B,1):C((B$)32)8:D0 7: A32D,255(&HF09DCD):D:AA1:B:2TK$(S1):(19,6),"Player 1 ->"K$:K$(S2):(19,7),"Player 2 ->"K$2Zސ2LL$"AAAAAAAAABBBBCCCDDDDEEEEEEEEEEEEFFFGGGHHIIIIIIIIIJJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSSTTTTTUUUUVVVWWXYZ**"2 X1 26: V(X):23) 1,3,3,2,1,4,2,5,1,6,6,2,2,1,1,4,10,4,2,3,2,6,4,10,6,103]:--------------------Menu---------------------34:(19,9),"iew Letters":(19,10),"ext":(19,11),"

lay": (19,12),"uit"3$ (19,13),"oad/ave"4 . (19,14),"hange Letters": (19,16),"Player"(P)48 44539:A$4=B A$"Q" 1120: 10504]L ("QVNPSLC",A$)0 10504cV4o`: QUIT4{j 11504t (19,9),"Are you sure?": 44539:A$: A$"Y" 32: 64596,0:::: 1150: 980:4~: ERASE CURRENT WINDOW5  I33 132 85# (144,I)(320,I8),15+:5Y 1150: (19,9),"Press any key to view":5 44539: 1150: P1 H$P1$ : H$P2$5K$"": G1 7:K$K$(H$,G,1)" ":G6ą P1 6: (3,19),"- - - - - - -": 4:(3,19),K$: 44539:6:(3,19),K$:4:(3,19),"- - - - - - -":6΅ P2 6:(3,24),"- - - - - - - ": 4:(3,24),K$: 44539: 6:(3,24),K$: 4:(3,24),"- - - - - - -":6؁ 1150: 4:(19,9),"Select position"6 P1 JJ1 : JJ26:--------------Main Subroutines--------------7  2207* X15 X15 : X0 X17L Y15 Y15 : Y0 Y1 7(X88,Y8)(X815,Y88),2:(X88,Y8)(X815,Y88),2,: (X88,Y8)(X815,Y88),2,80 J1 (0)0 1250 : J1 X1 X15 Y1 Y15 V$(X,Y)"" CHANGE THE BYTE.8^V$ Z$: C 129 X$ Z$ : Y$ Z$ :COPY CHANGE TO I/0 VARIABLES.8&C C 16 :RESET BYTE COUNT80F1 1: 370 :SET FLAG FOR SUB AT 370 AND RE-DRAW THE DISPLAY.8: 510 :READY TO EDIT NEXT BYTE.8N:9X:SUB TO WRITE SECTOR TO DISK9[:9W\ X$ "" 120 : ERROR TRAP. NO SECTOR IN MEMORY.9] @ 192, (191,32) (128,32); :CLEAR WORKING AREA.9b @ 258, "modifying" K$ "disk SURE? (Y/N)": 44539: I$ : I$ "Y" 650 : WARNING MESSAGE.:)l0,T,S,X$,Y$ : SECTOR IS WRITTEN TO DISK.: F 0 V$ Z$ : C C 16 : IF FULL SECTOR MODE RESET DISPLAY VARIABLE ELSE RESET THE COUNT IN BYTE MODE.: @ 256, S$: 370 : RE-DISPLAY SCREEN.::::SCAN ENTIRE 256-BYTE SECTOR;:;<Ƈ @ 192, S$S$S$S$S$S$S$S$; :CLEAR 8 LINES ON SCREEN.;kЇ @ 192, V$; :PRINT 128 BYTES OF SECTOR.;V$ Y$ :GET NEXT SEGMENT;A (V$,(13)): A 0 (V$,A,1) " ": 740 :REPLACE THE CR'S.< V$;: 170 :PRINT LAST 128 BYTES & BACK TO MENU.$S$S$S$S$; :CLEAR 8 LINES ON SCREEN.;kЇ @ 192, V$; :PRINT 128 BYTES OF SECTOR.;V$ Y$ :GET NEXT SEGMENT;A (V$,(13)): A 0 (V$,A,1) " ": 740 :REPLACE THE CR'S.< V$;: 170 :PRINT LAST 128 &$: COPYRIGHT 1990 FALSOFT,INC&3 :LTRS&NUM&L:BY ROBERT I. MILLS&Z:BOX 464&r(:HANOVER, IL 61041&2 60&<&F40&P17,5:"LETTERS"&Z17,6:"-------"&dA(90)&n A48 100&x A58 A64 100&7,10';"Press this key: ";(A);" ";: A 57 150 : (A32)'`17,15:"----> ";A$: A$""150'mB(A$)' B 97 BB32' BA :"CORRECT! CORRECT! CORRECT! CORRECT! YEA!" : 200' N15 200 5: N,1:::80(ȇ::"NO NO NO": N150 15 5: N,1:: 150 A 57 150 : (A32)'`17,15:"----> ";A$: A$""150'mB(A$)' B 97 BB32' BA :"CORRECT! CORRECT! CORRECT! CORRECT! YEA!" : 200' N15 200 5: N,1:::80(ȇ::"NO NO NO": N&$:COPYRIGHT 1990 FALSOFT, INC.&+ :&A: "DISK EDITOR"&H:&a(: BY BILL DANIELS&h2:&<: FOR USE BY ANY MODEL COCO WITH THE 32-COLUMN SCREEN.&F:&P 1500 :CLEAR AMPLE STRING SPACE.&Z:'#d A,X,C,D,X$,Y$,Z$,V$,K$,C$,T,S,E :DIMENSION VARIABLES.'knK$ (128): C$ (58): S$ (28,32) : FOR USE BY THE SCREEN.'sB 129: C 256 : FLAGS NO SETTING OF TRACKS/SECTORS (FOR SUBS 400 & 450)'x :RESET THE SCREEN( (10,K$) "disk" K$ "editor" (11,K$);(l " <1> SET TRACK/SECTOR NUMBERS": " <2> EDIT BYTES DISPLAYED": " <3> OUTPUT SECTOR TO DISK"( "arrows" K$ "scroll" K$ (124) K$ "clear" K$ "flips" K$ "mode";)& 65496,0: 44539: I$ : A (I$) :CANCEL SPEED POKE. HOLD THE SCREEN. I$ AND 'A' HOLD SELECTION.)U I$ (94) 400 : UP ARROW SELECTED.) I$ (10) 450 : DOWN ARROW SELECTED.)Å I$ (12) 230 : TOGGLE DISPLAY MODE SELECTED.)ȅ A 1 A 3 120 : OPTIONS 1 TO 3 OR INVALID KEY.*҈ A 300,500,600*:*S F 0 F 1 : F 0 :TOGGLE DISPLAY MODE FLAG.* @ 192, (128,32)(128,32) (63,32); : CLEAR THE DISPLAY AREA.* 350 :RE-DRAW SCREEN IN NEW MODE.*:*: DISPLAY TRACK & SECTOR*: +; @ 160, " " S$;: @ 162, "TRACK" C$ T;: @ 176, "SECTOR" C$ S;: +B":+b,: DISK SCANNING SUBROUTINE+i6:+; @ 160, (255,32) (96,32); :CLEAR WORKING AREA.,@ @ 162,"TRACK" C$;: I$: T (I$): I$ "" 120 : INPUT TRACK NUMBER OR NULL TO CANCEL.,pJ @ 176,"SECTOR" C$;: I$: S (I$): I$ "" 120 : INPUT SECTOR NUMBER OR NULL TO CANCEL.,^ S 1 S 18: T T 1 : S 18 S 1: T T 1 : ALLOWS SCROLLING TO THE NEXT TRACK.-0c T 0 T 0 : T 34 T 34 : ERROR TRAP; 40/80 TRACK USERS EDIT TO SUIT.-_e 270 : RE-PRINT TRACK & SECTOR NUMBERS.-h0,T,S,X$,Y$ :SECTOR IS ACCESSED FROM DISK. 128 BYTES AS X$ AND 128 BYTES AS Y$..0mB 1: C 0: D 0: Z$ X$: V$ X$ :RESET SEGMENT/BYTE COUNTERS & MAKE V$ & Z$ = THE FIRST INPUT VARIABLE..Or 65497,0 :SET FAST SPEED.sA (V$,(13)): A 0 (V$,A,1) " ": 371 :MAKE ALL CR'S (13) INTO A SPACE TO FORCE DISPLAY TO 2 LINES OF SCREEN./t F 0 700 :GOTO SCAN MODE ROUTINE./0u @ 192, S$S$ :CLEARS 2 LINES OF SCREEN./gv @ 192, (V$,B,64); : PRINT A 64-BYTE SEGMENT./w @ 288,;: X C C 7: ((X)" ",4);: X :PRINT BYTE NUMBERS0| X C1D C8D: ((((Z$,X)))" ",4);: X : PRINT THE VALUE OF 8 BYTES.0A352: X C1D C8D: @ A," "(V$,X,1)" ";: A A 4: X :PRINT ASCII CHAR. OF 8 BYTES.0C X1D :SET C FOR NEXT 8.0 @ 416,;: X C C 7: ((X)" ",4);: X :PRINT NEXT 8 NUMS.1M X C1D C8D: ((((Z$,X)))" ",4);: X :PRINT VALUE OF 8 MORE BYTES.1A 480: X C1D C7D: @ A," "(V$,X,1)" ";: A A 4: X: @ A," " (V$,X,1) " ";: X X 1 : PRINT LAST 8 ASCII CHAR. BYTES.2FC X1D: F1 1 : 170 :UPDATE COUNT. RETURN IF EDIT FLAG SET. ELSE GOTO MENU.2M:2a: UP ARROW SUB2h:2 F 0 C 256 S S 1: 350 : INCREMENTS TO THE NEXT SECTOR.2 65497,0 :SPEED POKE3+ C 128 B 1: D 128: Z$ Y$: V$ Y$: 370 : ADVANCE TO NEXT INPUT VARIABLE.3 C 64 C 192 B B 64: 370 :DISPLAY NEXT 64-BYTE SEGMENT AND NEXT 16 BYTE VALUES.3 375 :DISPLAY NEXT 16 BYTE VALUES.3: DOWN ARROW SUB3:4̅ F 0 S S 1: 350 : DECREMENTS SECTOR SCAN.4х C 16 C 240: D 128: B 65: S S 1: A 255: S 1 S 18: T T 1: T 0 T 0 : SHIFT DOWN TO NEXT SECTOR. ("A" FLAGS NEXT LINE.)5)Ӆ A 255 270: 0,T,S,X$,Y$: Z$ Y$: V$ Y$: 370 : PRINT TK & SECTOR AND GET NEXT SECTOR DOWN.5DՒ65497,0 : SPEED POKE5օ C 144 B 65: C 112: D 0: Z$ X$: V$ X$: 370 : SHIFT DOWN TO IST INPUT VARIABLE.6ۅ C 80 C 208 B B 64: C C 32: 370 : DOWN BY ONE 64-BYTE SEGMENT.66C C 32: 375 :PRINT NEXT 16 BYTES DOWN.6=:6S: EDIT BYTES SUB6Z:6 65496,0: F 0 650 : @ 162, S$: @ 160, "byte" K$ "number" C$;: I$: A (I$) : CANCEL SPEED POKE. SELECT BYTE.72 I$ "" A C 16 A C F1 0: 270: 170 : EXITS EDIT OPTION.7 @ 180, "value" C$;: I$: E (I$) :DECIMAL VALUE OF BYTE.IF E <0 OR E >255 THEN 1207 I$ "" E 0 E 255 F1 0: 270: 170 : EXITS EDIT OPTION.8(Z$,A1D,1) (E) :$(1)8"BM132,4;"N$(3)8/"BM182,4;"N$(4)8E"BM196,4;"N$(3)8R 1520:8 M0 0,63:1,7:2,9:3,11:4,28:5,60:6,32:7,37:8,17:9,33:10,1:11,51:12,5:13,20:14,16:15,09- M1 0,63:1,36:2,45:3,9:4,25:5,59:6,56:7,52:8,16:9,18:10,2:11,54:12,34:13,48:14,7:15,093*9G4: MAIN ROUTINE9|>&HF06,&H10:&HF0F,&H10:&HF18,&H10:&HF00:7909HX&H1000:Y&H1000:Z&H1000:S29RI$: I$"" 8509\I(I$): I0 8509f IS 1,2: 850:p100,1:SSI:1520:Ez"V31O1T20L40;CDEFGABCDEFGABCDEFGABCDEFGABCDEFGABCDEFGABCDEFGAB":wE():E((8)):F((8)):G((8)):T1 32:XX&H280:YY&H280:ZZ&H280:1540:T:J(E1)&H500&H1000:K(F1)&H500&H1000:L(G1)&H500&H1000;EE1:FF1:GG1; E9 E1;.ʅ F9 F1;>ԅ G9 G1;~ޅ XJ 1000 : XX&H280:YY&H280:ZZ&H280:1540: 990;T1 2;XX&H140:YY&H280:ZZ&H280:1540;T;T1 3;XX&HA0:YY&H280:ZZ&H280:1540;T<$T1 5l EF EG E8 "O3CEFGGABO4CDEFGABO5CDEFGABO3CDEFGABO4CDEFGABO5CDEFGABO1CDEFGABO2CDEFGABO3CDEFGABO4CDEFGABO5CDEFGAB" : 1350> E1 SSI5> E2 SSI20> E3 SSI100> E4 SSI60> E5 SSI10>( E6 SSI40>2 E7 SSI2? < 1510?aF E8 F8 G8 "O5BAGFEDCO4BAGFEDCO3BAGFEDCO2BAGFEDCO1BAGFEDC":SS2: 1510?~P E8 F8 G8 1500?ZS$"O3CDEFGABCDEFGABCDEFGAB": EF E7 E5 E1 S$ : 1430?d E3 SSI10?n E4 SSI5@x E6 SSI2@ E2 SSI@$ 1510@R EG E7 E5 E1 S$: 1380@ FG F7 F5 F1 S$ : 1500@ F3 SSI10@ F4 SSI5@ F6 SSI2@ȅ F2 SSI@ҁ 1510@"O2BAGFEDCO1BAGFEDC"A恦1520: 850AS(S): S2 S2AU15:(160,176)(319,184),,BF:0:(21,22),(S):Aq X&H37FF XX&H2800A Y&H37FF YY&H2800A Z&H37FF ZZ&H2800BF"A$(X):B$(Y):C$(Z):D1("&H"(A$,2)):D2("&H"(A$,2)):D3("&H"(B$,2)):D4("&H"(B$,2)):D5("&H"(C$,2)):D6("&H"(C$,2))B,&HF06,D1:&HF07,D2:&HF0F,D3:&HF10,D4:&HF18,D5:&HF19,D6B6&HF00:&H37FF ZZ&H2800BF"A$(X):B$(Y):C$(Z):D1("&H"(A$,2)):D2("&H"(A$,2)):D3("&H"HR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(192)CHR$(207); 24 PRINTCHR$(192)CHR$(207)CHR$(192)CHR$(200)CHR$(207)R$CHR$(196)CHR$(192)CHR$(207)R$CHR$(200)CHR$(197)CHR$(203)CHR$(194)CHR$(197)CHR$(202)CHR$(197)CHR$(197)CHR$(202)CHR$(202)CHR$(207)CHR$(192)CHR$(196)R$; 25 PRINTCHR$(197)CHR$(206)CHR$(204)CHR$(200)CHR$(197)CHR$(206)CHR$(205)CHR$(206)R$CHR$(207)CHR$(204)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(207)CHR$(204)R$CHR$(197)CHR$(202)CHR$(203)CHR$(197)CHR$(202); 26 PRINTR$CHR$(197)CHR$(202)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(197)CHR$(202)CHR$(192)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(202)CHR$(207)R$CHR$(207)R$; 27 PRINTCHR$(207)R$CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(199)CHR$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1&$: COPYRIGHT 1990 FALSOFT, INC&1 : SLOTS&G: COPYRIGHT 1989&^: BY: JOHN MOSLEY&k(65497,0&r27& THE PROGRAM BY ITS FILENAME.",,Q(Q$):QQ6:SL$(Q$,Q),& SL$,R, "JUNE", " (14) SLOTS", " (18) CONSEC", " (23) BETWEEN"- " (33) DISKEDT"-, " (48) QUADRATC"-C " (48) LETRSNUM"-Z " (49) SUPRPOKE"-p " (52) JUMBLE2"- " (52) JUMBLE1"- " (56) AOPTION1"- " (57) AOPTION2"- " (86)+MODIFY"- " (86)*MODIFY"- " (89) DOMODIFY". "END"" (33) DISKEDT"-, " (48) QUADRATC"-C " (48) LETRSNUM"-Z " (49) SUPRPOKE"-p " (52) JUMBLE2"- " (52) JUMBLE1"- " (56) AOPTION1"- " (57) AOPTION2"- " (86)+MODIFY"- " (86)*MODIFY"- " (89) DOMODIFY". "EN𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я $%()*./456 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASSLOTS BASCONSEC BAS&\BETWEEN BAS'DISKEDT BASQUADRATCBAS+LETRSNUMBAS SUPRPOKEBAS,JUMBLE2 BAS-JUMBLE1 BASAOPTION1BASAOPTION2BAS2MODIFY ASM32MODIFY BINsDOMODIFYBAS %߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?Y&$ "CONSECUTIVE NUMBER PROBLEMS"&\"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1990"&X()::"O3L20GEC":CTCT1&(R(3):ZZ1: CT11 250&2 R1 N(20)10:CNN1N2&< R2 N(15)2:CNN2N4' F R3 N(15)21:CNN2N4'bP R1 B$"CONSECUTIVE" : R2 B$"CONSECUTIVE EVEN" : B$"CONSECUTIVE ODD"'Z@2,"CONSECUTIVE NUMBER PROBLEMS";'d@32,(32,224);'n@64,"#";Z;"FIND THREE ";B$'x@96,"NUMBERS WHOSE SUM IS ";C(@160,"THE FIRST NUMBER IS ";: A1(> A1N "O4L50CDEFGGG":SCSC1:@200,"CORRECT";(q A1N 6,3: 10,3:@200,"SORRY, IT'S ";N;(@227,"let's check now";: 240(@256,"THE SECOND NUMBER IS ";: R1 A2N1 : A2N2)A2;: 240:@320,"THE THIRD NUMBER IS ";: R1 A3N2 : A3N4)7A3;: 240:@373,"----";)Qȇ@394,"THE TOTAL =";C)҇@416,(32,224);:@452,"PRESS ENTER TO CONTINUE";)EN$) EN$(13) 30 : 220) T1 1000: T:"O3L20GC":):@6,"YOUR SCORE WAS";SC10;"%"*#@96,"PRESS e TO END OR a FOR ANOTHER";*.EN$*X EN$"E" : EN$"A" : 270,(32,224);:@452,"PRESS ENTER TO CONTINUE";)EN$) EN$(13) 30 : 220) T1 1000: T:"O3L20GC":):@6,"YOUR SCORE WAS";SC10;"%"*#@9 &"***************************&C* IN-BETWEEN VOL.1 *&d* COPYRIGHT (C) 1990 *&* BY FRED B. SCERBO *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************& 3000'+0:(32,220);(32,204);:I1160:A:(A128);:'G(32,195);(32,211);'93,88,93,80,93,88,16,45,44,44,34,45,44,45,37,44,45,44,45,37,40,,45,36,46,45,36,46,45,37,32,37'85,,85,89,85,,,37,,,42,37,,33,36,,37,,36,37,,,37,,42,33,,42,33,37,41,37(J#85,,85,80,93,,28,37,44,44,34,37,44,45,,,37,,,37,,34,37,,46,45,,46,45,37,32,45((85,,85,,85,,,37,,,42,37,,32,,,37,,,37,,42,37,,42,32,,42,,37,,37(-87,82,87,82,87,82,,39,35,34,40,39,35,39,,,39,34,,37,35,43,39,33,43,39,33,43,39,37,,37),2@358," AN INTRODUCTION TO ";:@390," SEQUENCE IN LETTERS ";)n7@422," BY FRED B.SCERBO ";:@454," COPYRIGHT (C) 1990 ";)>>"*Z:(32,"=");+8_X$:X():X$"A"350:X$"B"100:X$"C"640:95+Gd0:0,1:1+`i(0,0)(254,170),,B+yn(6,4)(122,82),,BF+s(128,4)(248,82),,B+x(6,86)(122,164),,B+}(128,86)(248,164),,B,"BM26,188C0NU10R10NU10BR6R10U6L10U4R10BR6NR10D4NR10D6R10BR12BU6NE4D2F4BR6R10U6L10U4R10BR6ND10R10D4NL10BR6NR10D6U10R10D10BR6NR10U10R10BR6NR10D4NR10D6R10BR10U10NL4R10D4NL10D6NL14BR6U10R10D4NL10D6BR6U10R10D4L10R4F6BR6E4U2H4",130,6,246,80,6,86,120,162,130,86,246,162,(2,2),0,0:13,0,4:1-(0,0)(254,170),,BF--(8,6)(120,80),,BF-@42:0,1:1,1-"S3BM2,8C1","S3BM130,8C0","S3BM2,90C0","S3BM130,90C0","S3BM2,48C0","S3BM130,48C0"-I126-A(I)(26):N(A(I))1175-N(A(I))1:I:Y126:1,0-I24. B(I)(3)1:N(B(I))0190.,N(B(I))0:I:I14:N(I)1:.GB(26):BA((Y))200.hC(26):CB CA((Y))205. A$(1):P$(A(Y),1). A$(B(2)):P$(B,2):P$(B,3). A$(B(3)):P$(C,2):P$(C,3). A$(B(4)):P$(A(Y),2):P$(A(Y),3).1,0.Z0/0,4/ A$(1)"C0":P$(A(Y),1)/F A$(B(2))"C1":P$(B,2):P$(B,3)/l A$(B(3))"C1":P$(C,2):P$(C,3)/ A$(B(4))"C1":P$(A(Y),2):P$(A(Y),3)/ 0,1:1,1/(8,6)(120,80),,B/X$:X$" "285:X$"@"65001,0:(8,6)(120,80),,B:2700ZZ1:Z4Z10="1,0:(C(Z),D(Z))(E(Z),F(Z)),,B0p'X$:X$" "285:X$(13)305:X$"@"6500,1,0:(C(Z),D(Z))(E(Z),F(Z)),,B:29001Z1B(4)31506NWNW1:K15:0,4:1,1:10,3:0,1:1,1:1,3:K:2901M;NCNC1:0,4:1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,01e@ A$(5):P$(A(Y),1)1E A$(6):P$(A(Y),2):P$(A(Y),3)1J1,11OX$:X$(13)3351T0,11Y31:1,1:24:Y:65022^0,2:1:1,1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,02OcI126: A$(5):P$(I,1)2mh A$(6):P$(I,2):P$(I,3)2mX$:X$(13)3652r1,0:(8,46)(122,120),,BF:(132,46)(246,120),,BF:I2w3|"BD64BR54M+20,-40R8M+20,+40L10M-8,-16L12M-8,+16NL10BM+11,-22UM+3,-6RM+3,+6DL63"BD64BR34R2BR8R2BR8R2BR8R2BR8U6R4U28L4U6R34F4D12G4F4D12G4NL34BH6NL16E2U6H4L14ND10BU8R14E4U4H2L16D10"3"BD64BR56U6R4U28L4U6R34F4D12G4F4D12G4NL34BH6NL16E2U6H4L14ND10BU8R14E4U4H2L16D10"4v"BD64BR16M+20,-40R8M+20,+40L10M-8,-16L12M-8,+16NL10BM+11,-22UM+3,-6RM+3,+6DL6BD22BR34R2BR8R2BR8R2BR8R2BR8H4U30E6R28F6D6L8H4L14G4D18F4R14E4R8D6G6L28"4"BD64BR60H4U30E6R28F6D6L8H4L14G4D18F4R14E4R8D6G6L28"5O"BD64BR20U6R4U28L4U6R34F4D12G4F4D12G4NL34BH6NL16E2U6H4L14ND10BU8R14E4U4H2L16D10BD24BR34R2BR8R4BR8R2BR8R4BU2U6R4U28L4U6R34F4D32G4NL34BH6NL16E2U24H2L16D26"5"BD64BR58U6R4U28L4U6R34F4D32G4NL34BH6NL16E2U24H2L16D26"5"BD64BR20H4U30E6R28F6D6L8H4L14G4D18F4R14E4R8D6G6NL28BR8R2BR8R4BR8R2BR8R4BR8U40R40D8L30D8R20D8L20D8R30D8L40"6,"BD64BR58U40R40D8L30D8R20D8L20D8R30D8L40"6"BD64BR20U6R4U28L4U6R34F4D32G4NL34BH6NL16E2U24H2L16D26BD6BR30R4BR8R2BR8R4BR8R2BR8U40R40D8L30D8R20D8L20D16L10"6"BD64BR58U40R40D8L30D8R20D8L20D16L10"7D"BD64BR18U40R40D8L30D8R20D8L20D8R30D8NL40BR8R2BR8R4BR8R2BR8R4BR8H6U28E6R28F6D6L8H4L14G4D16F4R14E4U2L10U8R18D16G6L28"7"BD64BR62H6U28E6R28F6D6L8H4L14G4D16F4R14E4U2L10U8R18D16G6L28"7"BD64BR28U40R40D8L30D8R20D8L20D16NL10BR20R2BR8R2BR8R4BR8R2BR8U40R8D16R20U16R8D40L8U16L20D16L8"8†"BD64BR60U40R8D16R20U16R8D40L8U16L20D16L8"8dž"BD64BR30H6U28E6R28F6D6L8H4L14G4D16F4R14E4U2L10U8R18D16G6NL28BR8R2BR8R4BR8R2BR8R4BR8U6R6U28L6U6R20D6L6D28R6D6L20"8̆"BD64BR70U6R6U28L6U6R20D6L6D28R6D6L20"9(ц"BD64BR20U40R8D16R20U16R8D40L8U16L20D16L8BR46R2BR8R4BR8R2BR8H4U12R8D4F4R8E4U22L12U6R34D6L12D28G6L22"9_ֆ"BD64BR60H4U12R8D4F4R8E4U22L12U6R34D6L12D28G6L22"9ۆ"BD64BR30U6R6U28L6U6R20D6L6D28R6D6NL20BR8R2BR8R4BR8R2BR8U40R10D16E16R12G20F20L12H16D16L10"9"BD66BR58U40R10D16E16R14G20F14R2F6L12H16D16L10":U"BD64BR26H4U12R8D4F4R8E4U22L12U6R34D6L12D28G6NL22BR14R2BR8R4BR8R2BR8R4BR8U40R10D32R22D8L30":v"BD64BR62U40R10D32R22D8L30":"BD66BR16U40R10D16E16R14G20F14R2F6L12H16D16L10BR48R2BR8R4BR8R2BR8U40R10F14E14R10D40L10U28G14H14D28L10";"BD64BR58U40R10F14E14R10D40L10U28G14H14D28L10";s"BD64BR16U40R10D32R22D8NL30BR8R2BR8R4BR8R2BR10U40R16M+20,+30U30R10D40L16M-20,-30D30L10";"BD64BR58U40R16M+20,+30U30R10D40L16M-20,-30D30L10"<("BD64BR20U40R10F14E14R10D40L10U28G14H14D28L10BR54R2BR8R4BR8R2BR8H4U30E6R30F6D6ND16BL10H4L14G4D16F4R14E4NU14BR10D8G6L30""BD64BR66H6U28E6R30F6D6ND14BL10H4L14G4D16F4R8H6R6F6E4NU14BR10D6G8F6L6H6L22">!"BD64BR18U40R30F4D16G4L20D16NL10BU24U8R12F2D6G2NL12BD26BR8R2BR8R4BR8R2BR8R4BR14U40R30F4D16G4BL20D16NL10BU24U8R12F2D6G2L12BD8F16R12H16R6">&"BD64BR60U40R30F4D16G4BL20D16NL10BU24U8R12F2D6G2L12BD8F16R12H16R6"?n+"BD64BR20H6U28E6R30F6D6ND14BL10H4L14G4D16F4R8H6R6F6E4NU14BR10D6G8F6L6H6NL22BR22R2BR8R4BR8R2BR8U8R30U8L30U24R38D8L28D8R28D24L38"?0"BD64BR60U8R30U8L30U24R38D8L28D8R28D24L38"@5"BD64BR20U40R30F4D16G4BL20D16NL10BU24U8R12F2D6G2L12BD8F16R12H16NR6F16BR8R2BR8R4BR8R2BR8U6R6U26L18U8R44D8L18D26R6D6L20"@H:"BD64BR68U6R6U26L18U8R44D8L18D26R6D6L20"@?"BD64BR20U8R30U8L30U24R38D8L28D8R28D24NL38BR8R2BR8R4BR8R2BR8U40R10D32R20U32R10D40L38"@D"BD64BR58U40R10D32R20U32R10D40NL38"A8I"BD64BR28U6R6U26L18U8R44D8L18D26R6D6NL20BR18R2BR8R4BR8R2BR14M-20,-40R12M+16,+32M+16,-32R12M-20,+40L14"AqN"BD64BR72M-20,-40R12M+16,+32M+16,-32R12M-20,+40L14"AS"BD64BR18U40R10D32R20U32R10D40NL38BR10R2BR8R4BR8R2BR8M-10,-40R10M+8,+32M+8,-32R16M+8,+32M+8,-32R10M-10,+40L16M-8,-32M-8,+32L16"BOX"BD64BR58M-10,-40R10M+8,+32M+8,-32R16M+8,+32M+8,-32R10M-10,+40L16M-8,-32M-8,+32L16"B]"BD64BR28M-20,-40R12M+16,+32M+16,-32R12M-20,+40NL14BR8R2BR8R4BR8R2BR10E20H20R12F16E16R12G20F20L12H16G16L12"Bb"BD64BR56E20H20R12F16E16R12G20F20L12H16G16L12"Cg"BD64BR28M-10,-40R10M+8,+32M+8,-32R16M+8,+32M+8,-32R10M-10,+40L16M-8,-32M-8,+32NL16BR38R2BR8R4BR8R2BR8U16M-14,-24R12M+8,+14M+8,-14R12M-14,+24D16L12"Cl"BD64BR72U16M-14,-24R12M+8,+14M+8,-14R12M-14,+24D16L12"D-q"BD64BR16E20H20R12F16E16R12G20F20L12H16G16NL12BR46R2BR8R4BR8R2BR8U8E24L24U8R36D8G24R24D8L36"DWv"BD64BR60U8E24L24U8R36D8G24R24D8L36"D{"BD64BR30U16M-14,-24R12M+8,+14M+8,-14R12M-14,+24D16NL12BR20R2BR8R4BR8R2BR8R4BR8R2BR8"D0:I126:TEM$P$(I,1):P$(I,1)P$(I,2):P$(I,2)TEM$:D100E;:@101,"YOU TRIED"NCNW"TIMES &":@165,"ANSWERED"NC"CORRECTLY"E]@229,"WHILE DOING"NW"WRONG."EwNQNCNW: NQ0 NQ1EMS(NCNQ100)E@293,"YOUR SCORE IS"MS"%."E@357,"ANOTHER TRY (Y/N/C) ?";EX$:X$"Y" EX$"N":FX$"C"265F680NW"TIMES &":@165,"ANSWERED"NC"CORRECTLY"E]@229,"WHILE DOING"NW"WRONG."EwNQNCNW: NQ0 NQ1EMS(NCNQ100)E@293,"YOUR SCORE IS"MS"%."E@357,"ANOTHER TRY (Y/N/C) ?";EX$:X$"Y" EX$"N":FX$"CHORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY"? " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX"? " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK"?' ENDNT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOAR&$: COPYRIGHT 1990 FALSOFT,INC&* &{" THIS PROGRAM SOLVES QUADRATIC EQUATIONS USING THE QUADRATIC FORMULA."&&" COEFFICIENT A:";A&(" COEFFICIENT B:";B&2" COEFFICIENT C:";C&h @16," C O C O";:@48," J U M B L E ";:@80," WRITTEN BY:";:@112," SHANE MESSER";:@239,"- - - - - - - - -";*Ir 890+|X271:@X,"(V)IEW LETTERS";:XX32:@X,"(L)OAD - (S)AVE";:XX32:@X,"(E)NTER WORD";:XX32:@X,"(N)EXT PLAYER";:XX32:@X,"(C)HANGE LETTERS";:XX32:@X,"(Q)UIT GAME";:XX64:@X3,"PLAYER ->";: P1 "1";+1 P2 "2";+UXX32:@X,"- - - - - - - - -";+g 44539:A$+ ("LSCNQVE",A$)0 : 410+ 550+P1: 680:P2: 680:P1:,?† C O C O J U M B L E ,,JUST FOR THE COCO 1 AND 2 !!!,,WRITTEN BY SHANE MESSER,"COPYRIGHT (C), 1989",BY FALSOFT,,,"PLEASE WAIT....",Ŭ RWWLWWWRWWWLWWR,kֆ WPWWWBWWWBWWWPW, WWPWWWLWLWWWPWW, LWWPWWWLWWWPWWL, WWWWPWWWWWPWWWW, WBWWWBWWWBWWWBW, WWLWWWLWLWWWLWW, RWWLWWWPWWWLWWR-, 1,3,3,2,1,4,2,5,1,6,6,2,2,1,1,4,10,4,2,3,2,6,4,10,6,10-&LL$"AAAAAAAAABBBBCCCDDDDEEEEEEEEEEEEFFFGGGHHIIIIIIIIIJJKLLLLMMNNNNNNOOOOOOOOPPQRRRRRRSSSSSTTTTTUUUUVVVWWXYZ**":-0:-:-D A$"Q" 660-N A$"V" 810-X A$"N" 860.b A$"E" 900.l A$"C" 1290.5v A$"S" 1390.L A$"L" 1440.R.X271: A1 6:@X," ";:XX32::X271:@X," ARE YOU SURE?";:@X32," Y/N";. 44539:B$: B$"Y" ::: B$"N" : 670/:REPLACE LETTERS FOR PLAYER/N0/= P1 X$P1$ : P2 X$P2$/Xƅ X$"" X$" "/Ѐ A1 7: (X$,A,1)" " NN1: A/ڀ A1 N/ LL$(105," ") 1460/V(105): (LL$,V,1)" " 7500 I1 7: (X$,I,1)" " (X$,I,1)(LL$,V,1): 770 : I02(LL$,V,1)" ": A0K (X$," ")0 7100h P1 P1$X$ : P2$X$0n 0y* 88004X272:@X,"READY PLAYER";(P);0> 44539:A$"":X$""0HXX64: P1 X$P1$ : X$P2$1R A1 7:A$A$(X$,A,1)" "::@X1,A$: 44539: 880:10\ P1 P2 : P116f1opX271: A1 6:@X," ";:XX32: A:1z@143,"- - - - - - - - -";:@175,"PLAYER 1 ->"(S1);:@207,"PLAYER 2 ->"(S2);:1C$(207)1X8:Y82A$: 960: A$"" 9202y A$"^" YY1:: A$(9) XX1 : A$(8) XX1 : A$(10) YY1 : A$(13) 970 : 9202 X15 X1 : X1 X15 : Y1 Y15 : Y15 Y12 9203YY(Y1)32:XXX1:LYYXX:A(L1024): L1024,(C$): L1024,A:3=RORO1:X1X:Y1Y: P1 X$P1$ : X$P2$3zԅ (X115 X11 Y115 Y11) RO1 RORO1: 9003WD$"":DD0:SS0:@480,"(S)IDE - (D)OWN";: 44539:A$: A$"D" DD1 : A$"S" SS1 : 9904 DD1 SS1 990 : DD0 SS0 9904! 44539:A$4J A$(8) WD$"" 1100: 10104N0: A$"g" A$(4) I1 (WD$) : (WD$,I,1) (255) NN1: I4 A$"g" A$(4) A1 N: WD$"" 1100: A4 A$(4) 5$ A$(13) 1520: GG1 11505.. E$(X,Y)"" 161058 X16 Y16 (X$,A$)0 E$(X,Y)A$: 1024X1((Y1)32),(A$):XXSS:YYDD:WD$WD$A$:(X$,(X$,A$),1)" ":: 1,15B 10105LK(WD$)6V (WD$,K,1)(255) WD$(WD$,K1):XXSS:YYDD:KK1: 1110 : 11206`@XSS((YDD1)32)1,"";:L$(D$(YDD),XSS,1):RR1: 310:RR0:E$(XSS,YDD)"":XXSS:YYDD6j(X$,(X$," "),1)(WD$,(WD$),1):WD$(WD$,(WD$)1)6t6~D0:T0:TS0:CS0:S0: P1 P1$X$ : P2$X$7+L$E$(X1,Y1):FW$FW$L$: X1X Y1Y 12307gM$(D$(Y1),X1,1): M$"R" TT1 : M$"P" DD17} L$"*" L$"A"7L(L$)64:LV(L): M$"L" LL2 : M$"B" LL37CSCSL7X1X1SS:Y1Y1DD7ā 11608΅ D0 A1 D:CSCS2:8'؅ T0 A1 T:CSCS3:8E X$" " CSCS758g P1 S1S1CS : S2S2CS8r 6808 890:@480," ";: P1 P2: : P1:8 880: P1 X$P1$ : X$P2$9C271: X1 7: X5 QX: 880:XQ:C2719L$(X$,X,1)9:(L$"CHANGE "L$"?":@C,L$:CC3292 44539:A$: A$"N" X: 1350: : A$"Y" 1340 : 13309<(LL$,(LL$," "),1)(X$,X,1):(X$,X,1)" ": X9F P1 P1$X$ : P2$X$9P 6809Z P1 P2 : P19d:nM"SAVEGAME",1024,1535,1024:xx"O",#1,"SAVEGAME": I1 15: A1 15: #1,E$(I,A): A,I: #1,LL$,P1$,P2$,S1,S2,P:~:"T5L5A":;M "SAVEGAME":"I",#1,"SAVEGAME": I1 15: A1 15: #1,E$(I,A): A,I: #1,LL$,P1$,P2$,S1,S2,P::"T5L5A":;::::" PRESS ANY KEY TO STOP TIMER..": I1 500:@164," > <":@173,I;:A$: A$"" : C(I):V(I4):I: 1450;: S1S2 P$"PLAYER 1" : P$"PLAYER 2"; S1S2 SS1 : SS2<V$"":V$P$:V1$" WINS WITH A SCORE OF"(S)<&҇" "V$<5܇@484,V1$;1W2$PL$::------------Get Letters------------>J P1 JJ1 : JJ2>_JO1: 220:JO0>xX(X3):Y(Y10)>… LL$(105," ") 2240>YY1:XX1: Y5 Y5 : X21 X21>XX18:YY17:XXX8:YYY8?0 (XX,YY)(XX8,YY8),2:(XX,YY)(XX8,YY8),2,:(XX,YY)(XX8,YY8),2,?O J1 (0)1 1800 ?m J2 (2)1 1800? (PL$," ")0 : 1700? (XX1,YY)5 KE1 NA1: : ?"BM"(XX1)","(YY)"C6BRBRR6D6L6U6"? KO1 @& (PL$)0 PL$(7," ")@;0 (PL$)7 (PL$," ")0 @:N(105): (LL$,N,1)" " 1850 : (PL$,(PL$," "),1)(LL$,N,1)@D(LL$,N,1)" "@N 128,1@X@b P1 PL$P1$ : P2 PL$P2$@lAv P1 P1$PL$ : P2 P2$PL$AA+ (WD$,(WD$),1)(255) AG DS1 (X8,Y8),C,4Ag DD1 (X88,Y88),C,4AmA{XXX:YYYA DD1 XX0:YY1: 2000: 860 : XX1: 2000: 860AXXX:YYY:AL$(G$(X),Y,1)AڐBB (WD$)0 2030 : (WD$,(WD$),1)(255) XXDS:YYDD:WD$(WD$,(WD$)1)BHBVFV0:FS0B:-------------------Get Score-----------------B D0:T0: X1 (WD$)B (WD$,X,1)(255) QXQXDS:QYQYDD: 2120B L$(WD$,X,1)C* L$"*" L$"A"C'4 L$"" K(L$)64:FVV(K)C>K$(G$(QX),QY,1): K$"S" FVFV2 : K$"B" FVFV3 : K$"P" DD1 : K$"R" TT1CHQXQXDS:QYQYDD:FSFSFV: XCR D0 FSFS2:DD1: 2130C\ T0 FSFS3:TT1: 2140D.f W2$" " FSFS80:BNBN1:W2$"" : W2$""DOp P1 S2S2FS : S1S1FSDUzD KK1 (WD$):I$(8):RT1: 1460: KK:RT0:D: 40:2: 2,4:: 5000:" Player 1 press your joystick"D 2270:J1JE " Player 2 press your joystick"E 2270:J2JE, 4,1: 1,1:E::WINNER!EB 2ENԁ 2340EX(0):Y(2): X1 J1:: Y1 J2:: 2270E (J1 (0)1) 2280 : (J2 (2)1) 2280EF6:PMODE 4,1:SCREEN1,1:COLOR 0:Y=96:FOR X=96 TO 0 STEP -1:Y=Y-1:LINE(X,Y)-(255-X,191-Y),PSET,B:IF Y=0 THEN Y=1FC :NEXT XF :PMODE 4,1:SCREEN1,1:COLOR 1:Y=191:FOR X=0 TO 191:LINE(X,Y)-(255-X,191-Y),PSET,B:Y=Y-1:NEXT XF F $:--------------------Winner-------------------F .5: 0G 8 S1S2 P1 : P2G BP$"player"(P)Gh L (0,1)," Congradulations!":(0,2)," "P$" wins!"Gw V 1: 1,20G `(160,140),50:(160,140),1,1G j 2,22: 3,28G t"BM190,110E40H10G40H10E40F10H20G40H40G10F60G10H60E10G20F60"G ~ 4,48H (160,86),2,1H (195,86),3,1H3 0,63:(125,86),3,1HS (130,86),0,1:(180,86),0,1Ho (160,140),35,4,1,0,.50H 4:(140,120),10H (176,120),10H (158,135),10,4,2H ؀ T1 5000:: 32::: 65497,0:H NO0: 1460H : MAKE SUREI WD$"" RN1 I< XXDS:YYDD: DS1 2600 : 2620IN XXDS:YYDDIh  NQ1 NO1 : NO0Is NQ0:I ( QQX(WD$)1 X1: WWY1 Y1: V$(QQ,WW)"" (QQX WWY) NQ0:I 2 WW,QQ:NQ1:J& < QQX1 X1: WWY(WD$)1 Y1: WW1 WW1:: QQ1 QQ1JU F V$(QQ,WW)"" (QQX WWY) NQ0:Ja P WW,QQJl ZNQ1:J| d: SAVEJ n 65496,0:"O",#1,"SAVEGAME"J x QQ1 16: WW1 16: #1,V$(QQ,WW): WW,QQ: #1,P,S1,S2,KR,LL$,P1$,P2$J :K : LOADK% 65496,0:"I",#1,"SAVEGAME"Kv QQ1 16: WW1 16: #1,V$(QQ,WW): WW,QQ: #1,P,S1,S2,KR,LL$,P1$,P2$:K KE1: 1640:KE0K KEY1: Y1 15: X1 15:I$V$(X,Y): I$"" X,Y: 2770L ((I$)64 (I$)91) (I$)42 1530L ȋ X,YL9 Ҁ T1 105: (LL$,T,1)" " 2790LS ܋ T:NA0:KO0:KE0: L KE1:NA0:KO1:X(21):Y(5):XX18:YY17:XXX8:YYY8: 1800:KE0L NA1 2790L KO0:NA0:L  1150: P1 PL$P1$ : PL$P2$L  T1 7M4 B$"Change "(PL$,T,1)"->":(19,6T),B$: 44539:A$MM " A$"N" B$B$"N"Mn , A$"Y" B$B$"Y": 2910M 6 A$"N" A$"Y" 2840M @(19,6T),B$:M J P1 P1$PL$ : P2$PL$M T P1 P2: : P1:M ^G$(PL$,T,1):(PL$,T,1)" "NW hN(105): (LL$,N,1)" " R$(LL$,N,1):(PL$,T,1)R$:(LL$,N,1)G$: : 2920Nl r(LL$,N,1)G$:N 6,10:"Are you using an RGB monitor?"NA$: A$"" 5001N A$"Y" A$"y" CS1 : CS0N:(PL$,T,1):(PL$,T,1)" "N&:LISTING2&) T(2): T 10,11&? 4,1::1,0:100&O 4,1::1,1&idA$"BE4U2R3ULD3L2BG4"&eC$"BL4EGFHRHFGERFEHFRFHEGEFGH"&i S4 40 2&k A3 0 1&nB$"S"(S)&sD$"A"(A)&x "BM128,96"D$B$A$C$& A,S' Ȁ Z1 600:'ހ S40 4 2'1߀ A3 0 1'OB$"S"(S):D$"A"(A)'m"C4BM128,96"D$B$A$C$'w A,S' Z1 200:::9 S4 40 2&k A3 0 1&nB$"S"(S)&sD$"A"(A)&x "BM128,96"D$B$A$C$& A,S' 00100 *MODIFY 00110 ORG $6100 00120 R1 LDX #$E00 00130 LDU #$2600 00140 CLRA 00150 R1L1 STA DOWN 00160 CLRB 00170 R1L2 STB ACROSS 00180 LDA 32,X 00190 LDB ,X+ 00200 PSHS B 00210 ORA ,S+ 00220 STA ,U+ 00230 LDB ACROSS 00240 INCB 00250 CMPB #31 00260 BLS R1L2 00270 LEAX 32,X 00280 LDA DOWN 00290 ADDA #2 00300 CMPA #190 00310 BLS R1L1 00320 LBRA PCOPY 00330 00340 ORG $6200 00350 R2 LDX #$E00 00360 LDU #$2600 00370 CLRA 00380 R2L1 STA DOWN 00390 CLRB 00400 R2L2 STB ACROSS 00410 CLRB 00420 TEST1 LDA ,X+ 00430 BITA #192 00440 BEQ TEST2 00450 ADDB #128 00460 TEST2 BITA #48 00470 BEQ TEST3 00480 ADDB #64 00490 TEST3 BITA #12 00500 BEQ TEST4 00510 ADDB #32 00520 TEST4 BITA #3 00530 BEQ NTEST 00540 ADDB #16 00550 NTEST LDA ,X+ 00560 BITA #192 00570 BEQ TEST5 00580 ADDB #8 00590 TEST5 BITA #48 00600 BEQ TEST6 00610 ADDB #4 00620 TEST6 BITA #12 00630 BEQ TEST7 00640 ADDB #2 00650 TEST7 BITA #3 00660 BEQ FTEST 00670 INCB 00680 FTEST STB ,U+ 00690 LDB ACROSS 00700 INCB 00710 CMPB #15 00720 BLS R2L2 00730 LEAU 16,U 00740 LDA DOWN 00750 INCA 00760 CMPA #191 00770 BLS R2L1 00780 LBRA PCOPY 00790 00800 ORG $6300 00810 R3 LDX #$E00 00820 LDU #$3DE0 00830 CLRA 00840 R3L1 STA DOWN 00850 CLRB 00860 R3L2 STB ACROSS 00870 LDA ,X+ 00880 STA ,U+ 00890 LDB ACROSS 00900 INCB 00910 CMPB #31 00920 BLS R3L2 00930 LEAU -64,U 00940 LDA DOWN 00950 INCA 00960 CMPA #191 00970 BLS R3L1 00980 LBRA PCOPY 00990 01000 ORG $6400 01010 R4 LDX #$E00 01020 LDU #$261F 01030 CLRA 01040 R4L1 STA DOWN 01050 CLRB 01060 R4L2 STB ACROSS 01070 CLRB 01080 T1 LDA ,X+ 01090 BEQ FT 01100 BITA #128 01110 BEQ T2 01120 INCB 01130 T2 BITA #64 01140 BEQ T3 01150 ADDB #2 01160 T3 BITA #32 01170 BEQ T4 01180 ADDB #4 01190 T4 BITA #16 01200 BEQ T5 01210 ADDB #8 01220 T5 BITA #8 01230 BEQ T6 01240 ADDB #16 01250 T6 BITA #4 01260 BEQ T7 01270 ADDB #32 01280 T7 BITA #2 01290 BEQ T8 01300 ADDB #64 01310 T8 BITA #1 01320 BEQ FT 01330 ADDB #128 01340 FT STB ,U 01350 LEAU -1,U 01360 LDB ACROSS 01370 INCB 01380 CMPB #31 01390 BLS R4L2 01400 LEAU 64,U 01410 LDA DOWN 01420 INCA 01430 CMPA #191 01440 BLS R4L1 01450 LBRA PCOPY 01460 01470 ORG $6500 01480 R5 LDX #$E00 01490 LDY #$2600 01500 LDU #$261F 01510 CLRA 01520 R5L1 STA DOWN 01530 CLRB 01540 R5L2 STB ACROSS 01550 CLRB 01560 TT1 LDA ,X+ 01570 BEQ FTT 01580 BITA #128 01590 BEQ TT2 01600 INCB 01610 TT2 BITA #64 01620 BEQ TT3 01630 ADDB #2 01640 TT3 BITA #32 01650 BEQ TT4 01660 ADDB #4 01670 TT4 BITA #16 01680 BEQ TT5 01690 ADDB #8 01700 TT5 BITA #8 01710 BEQ TT6 01720 ADDB #16 01730 TT6 BITA #4 01740 BEQ TT7 01750 ADDB #32 01760 TT7 BITA #2 01770 BEQ TT8 01780 ADDB #64 01790 TT8 BITA #1 01800 BEQ FTT 01810 ADDB #128 01820 FTT STB ,U 01830 STA ,Y+ 01840 LEAU -1,U 01850 LDB ACROSS 01860 INCB 01870 CMPB #15 01880 BLS R5L2 01890 LEAX 16,X 01900 LEAY 16,Y 01910 LEAU 48,U 01920 LDA DOWN 01930 INCA 01940 CMPA #191 01950 BLS R5L1 01960 LBRA PCOPY 01970 01980 ORG $6600 01990 R6 LDX #$E00 02000 LDY #$2600 02010 LDU #$3DE0 02020 CLRA 02030 R6L1 STA DOWN 02040 CLRB 02050 R6L2 STB ACROSS 02060 LDA ,X+ 02070 STA ,Y+ 02080 STA ,U+ 02090 LDB ACROSS 02100 INCB 02110 CMPB #31 02120 BLS R6L2 02130 LEAU -64,U 02140 LDA DOWN 02150 INCA 02160 CMPA #95 02170 BLS R6L1 02180 LBRA PCOPY 02190 02200 ORG $6700 02210 SAVE LDX #$E00 02220 LDU #$8000 02230 ORCC #$50 02240 SAVE1 LDD ,X++ 02250 CLR $FFDF 02260 STD ,U++ 02270 CLR $FFDE 02280 CMPX #$2600 02290 BLO SAVE1 02300 ANDCC #$AF 02310 RTS 02320 02330 ORG $6800 02340 SHOW LDX #$E00 02350 LDU #$8000 02360 ORCC #$50 02370 SHOW1 CLR $FFDF 02380 LDD ,U++ 02390 CLR $FFDE 02400 STD ,X++ 02410 CMPX #$2600 02420 BLO SHOW1 02430 ANDCC #$AF 02440 RTS 02450 02460 ORG $6900 02470 R7 LDX #$E00 02480 LDU #$2600 02490 CLRA 02500 R7L1 STA DOWN 02510 CLRB 02520 R7L2 STB ACROSS 02530 LDA ,X+ 02540 STA 3088,U 02550 STA 3072,U 02560 STA 16,U 02570 STA ,U+ 02580 LDB ACROSS 02590 INCB 02600 CMPB #15 02610 BLS R7L2 02620 LEAX 16,X 02630 LEAU 16,U 02640 LDA DOWN 02650 INCA 02660 CMPA #95 02670 BLS R7L1 02680 LBRA PCOPY 02690 02700 ORG $6A00 02710 PCOPY LDX #$2600 02720 LDU #$E00 02730 PCOPY1 LDD ,X++ 02740 STD ,U++ 02750 CMPU #$2600 02760 BLO PCOPY1 02770 RTS 02780 02790 ORG $6B00 02800 R9 LDX #$E00 02810 LDU #$2600 02820 CLRA 02830 R9L1 STA DOWN 02840 CLRB 02850 R9L2 STB ACROSS 02860 LDA ,X+ 02870 STA 16,U 02880 STA ,U+ 02890 LDB ACROSS 02900 INCB 02910 CMPB #15 02920 BLS R9L2 02930 LEAX 16,X 02940 LEAU 16,U 02950 LDA DOWN 02960 INCA 02970 CMPA #191 02980 BLS R9L1 02990 LBRA PCOPY 03000 03010 ORG $6C00 03020 R10 LDX #$E00 03030 LDU #$2600 03040 R10L1 LDD ,X++ 03050 STD 3072,U 03060 STD ,U++ 03070 CMPX #$1A00 03080 BLO R10L1 03090 LBRA PCOPY 03100 03110 ORG $7100 03120 R11 LDX #$E00 03130 LDU #$2600 03140 CLRA 03150 R11L1 STA DOWN 03160 CLRB 03170 R11L2 STB ACROSS 03180 LDA ,X+ 03190 STA ,U+ 03200 LDB ACROSS 03210 INCB 03220 CMPB #31 03230 BLS R11L2 03240 LEAX 32,X 03250 LDA DOWN 03260 ADDA #2 03270 CMPA #190 03280 BLS R11L1 03290 LBRA PCOPY 03300 03310 ORG $7200 03320 R12 LDX #$E00 03330 LDU #$2600 03340 CLRA 03350 R12L1 STA DOWN 03360 CLRB 03370 R12L2 STB ACROSS 03380 LDA ,X+ 03390 TFR A,B 03400 ANDB #192 03410 STB TEMP 03420 ANDA #12 03430 LSLA 03440 LSLA 03450 ADDA TEMP 03460 STA TEMP 03470 LDA ,X+ 03480 TFR A,B 03490 ANDB #192 03500 LSRB 03510 LSRB 03520 LSRB 03530 LSRB 03540 ADDB TEMP 03550 STB TEMP 03560 ANDA #12 03570 LSRA 03580 LSRA 03590 ADDA TEMP 03600 STA ,U+ 03610 LDB ACROSS 03620 INCB 03630 CMPB #15 03640 BLS R12L2 03650 LEAU 16,U 03660 LDA DOWN 03670 INCA 03680 CMPA #191 03690 BLS R12L1 03700 LBRA PCOPY 03710 03720 ORG $7400 03730 R14 LDX #$E00 03740 LDU #$261F 03750 CLRA 03760 R14L1 STA DOWN 03770 CLRB 03780 R14L2 STB ACROSS 03790 CLRB 03800 LDA ,X+ 03810 BEQ R14L3 03820 TFR A,B 03830 ANDA #192 03840 LSRA 03850 LSRA 03860 LSRA 03870 LSRA 03880 LSRA 03890 LSRA 03900 STA TEMP 03910 TFR B,A 03920 ANDA #48 03930 LSRA 03940 LSRA 03950 ADDA TEMP 03960 STA TEMP 03970 TFR B,A 03980 ANDA #12 03990 LSLA 04000 LSLA 04010 ADDA TEMP 04020 STA TEMP 04030 ANDB #3 04040 LSLB 04050 LSLB 04060 LSLB 04070 LSLB 04080 LSLB 04090 LSLB 04100 ADDB TEMP 04110 R14L3 STB ,U 04120 LEAU -1,U 04130 LDB ACROSS 04140 INCB 04150 CMPB #31 04160 BLS R14L2 04170 LEAU 64,U 04180 LDA DOWN 04190 INCA 04200 CMPA #191 04210 BLS R14L1 04220 LBRA PCOPY 04230 04240 ORG $7500 04250 R15 LDX #$E00 04260 LDY #$2600 04270 LDU #$261F 04280 CLRA 04290 R15L1 STA DOWN 04300 CLRB 04310 R15L2 STB ACROSS 04320 CLRB 04330 LDA ,X+ 04340 STA ,Y+ 04350 BEQ R15L3 04360 TFR A,B 04370 ANDA #192 04380 LSRA 04390 LSRA 04400 LSRA 04410 LSRA 04420 LSRA 04430 LSRA 04440 STA TEMP 04450 TFR B,A 04460 ANDA #48 04470 LSRA 04480 LSRA 04490 ADDA TEMP 04500 STA TEMP 04510 TFR B,A 04520 ANDA #12 04530 LSLA 04540 LSLA 04550 ADDA TEMP 04560 STA TEMP 04570 ANDB #3 04580 LSLB 04590 LSLB 04600 LSLB 04610 LSLB 04620 LSLB 04630 LSLB 04640 ADDB TEMP 04650 R15L3 STB ,U 04660 LEAU -1,U 04670 LDB ACROSS 04680 INCB 04690 CMPB #15 04700 BLS R15L2 04710 LEAX 16,X 04720 LEAY 16,Y 04730 LEAU 48,U 04740 LDA DOWN 04750 INCA 04760 CMPA #191 04770 BLS R15L1 04780 LBRA PCOPY 04790 04800 TEMP RMB 1 04810 DOWN RMB 1 04820 ACROSS RMB 1 04830 END R1 00450 ADDB #128 00460 TEST2 BITA #48 00470 BEQ TEST3 00480 ADDB #64 00490 TEST3 BITA #12 00500 BEQ TEST4 00510 ADDB #32 00520 TEST4 BITA #3 00530 BEQ NTEST 00540 ADDB #16 00550 NTEST LDA ,X+ 00560