AAAAAAAAAAAAA*`" *b"*"`* "biz>2͟w* "`*"b*`" *b"*d"*f"*"`x* "`*"b*"d*"fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 4000:2000 7VE$(20),AD$(20),VC$(20),PR$(20),IN(20),CO$(20),GD$(20) #3000 (CL$ˀ(29) 621,1::"Accounts Payable. ":"" <:" Options are:":" (1) View transaction":" (2) Update transaction":" (3) Enter transaction":" (4) Load transaction file":" (5) Total transactions":" (6) Hard-Copy" F" (7) Save Transactions": PA$ˀ:A$"1"A$"7"80 Z 'dAˀ(A$):A110,330,430,480,690,760,560 n View /x:"View Transactions.":"": DE1250:DE M"Select desired option."::" 1 All transactions":" 2 Specific transaction" A$ˀ:A$"1"A$"2"150  A$"2"250  View all transactions ?:" Viewing all transactions.":" ": DE1250:DE ST020 890:1200:  50  View single transaction DE1250:DE 6: " Viewing Transaction.":" ": " Enter transaction #";ST 7"ST0ST20" Transaction number is unacceptable":280 ,DE1250:DE: 6890:1200 @50 J Update 3T:" Transaction Update.":" ": #^" Transaction # to be updated ";ST hST0ST20350 >rST:"Present Vendor details are:":890:" New Vendor details" |ST:1000 /:1200:" New transaction details are,"::890 1200 50  Enter 3:" Enter Transactions.":" ": " Enter transaction number ";ST :1000 50  Load file 9:" Load Transaction File.":" ": $" Press any key when tape is ready" ""510 %&H9808,(&H8162):&H9809,(&H8163) &H82A2,0:&H9844 "" Loading Complete":DE1250:DE &50 0 Save file 9::" Save Transaction File.":" ": $D" Press any key when tape is ready" N""590 %X&H9808,(&H8162):&H9809,(&H8163) 3b&H980A,(&H8166):&H980B,(&H8167):DE1250:DE l"Filename *";FL$ vBZˀ(FL$)16 FL$FL$Ā(32) BZ " * Saving Start": FL$ &H9814 %" Saving complete":DE1250:DE:50  Totals 3:" Total transactions.":" ": DE1250:DE TD0:ST020 TDTDĀ(CO$(ST)): %" Total transactions = $";TD::1200 50  Print to printer 3:" Hard-Copy Printout.":" ":  " Transaction Record.": ! " All files to be printed (Y/N)" A$ˀ:A$""782 !A$"Y"ST020:800::1200:50 ST020 !" Print File #";ST:DE1100:DE ""789 "Y"800 :1200:50  " Transaction File: ";ST *" Customer Name : ";VE$(ST) 4" Vendor Address: ";AD$(ST) >" City/town : ";VC$(ST) H" Invoice Number: ";IN(ST) M" Goods Recieved: ";GD$(ST) R" Amount Owing : $";CO$(ST) \" Payement Due : ";PR$(ST): f z display files  ST is the variable " Transaction #";ST " Customer name ";VE$(ST) " Vendor Add'ss ";AD$(ST) " City/town ";VC$(ST) " Invoice Number ";IN(ST) " Goods Recieved ";GD$(ST) " Amount Owing $";CO$(ST) " Payement Due ";PR$(ST)    Input details ABST " Customer Name ";ZN$ (ZN$)0VE$(AB)ˀ(ZN$,25) " Vendor Address ";ZN$ (ZN$)0AD$(AB)ˀ(ZN$,15) " Vendor's City ";ZN$  (ZN$)0VC$(AB)ˀ(ZN$,15) " Invoice number ";ZN$ (ZN$)0Z2ˀ(ZN$):IN(AB)Z2 " Goods Recieved ";ZN$ (ZN$)0GD$(AB)ˀ(ZN$,15) " Amount Owing ";ZN$ (ZN$)0CO$(AB)ZN$ $" Payement Due ";ZN$ (ZN$)0PR$(AB)ZN$  " Press any key to continue" ""1210  X&H9814&H987D A:X,A: . &H2A,&H60,&H81,&H22,&H0C,&H98,&H2A,&H62,&H81 . &H22,&H0E,&H98,&H2A,&H08,&H98,&H22,&H60,&H81 S &H2A,&H0A,&H98,&H22,&H62,&H81,&HCD,&H69,&H7A,&H3E,0,&H32,&HA2,&H82,&HCD,&H9F,&H77 . &H2A,&H0C,&H98,&H22,&H60,&H81,&H2A,&H0E,&H98   &H22,&H62,&H81,&HC9 . &H2A,&H60,&H81,&H22,&H0C,&H98,&H2A,&H62,&H81 .  &H22,&H0E,&H98,&H2A,&H64,&H81,&H22,&H10,&H98 .* &H2A,&H66,&H81,&H22,&H12,&H98,&H2A,&H08,&H98 .4 &H22,&H60,&H81,&HCD,&HEF,&H78,&H2A,&H0C,&H98 .> &H22,&H60,&H81,&H2A,&H0E,&H98,&H22,&H62,&H81 .H &H2A,&H10,&H98,&H22,&H64,&H81,&H2A,&H12,&H98 R &H22,&H66,&H81,&HC9 \  Setup . DE020:VE$(DE)"Some Name ": $ DE020:AD$(DE)"Some Street ": $ DE020:VC$(DE)"Some City ":  DE020:PR$(DE)"00/00/00":  DE020:IN(DE)10000: $ DE020:GD$(DE)"Some Goods ":  DE020:CO$(DE)"0000.00":  2,1::4,1,(0,0)(255,191),1: 2,2:4004:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)4005 !(X102,Y102),15::""4005 4002:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(100,161)(200,152),3,BF:(16):103,153:"Accounts Payable":0,(220,148),0,15 ""4006 *:1,1::"Initialising:- Please Wait":: UUˀ(1): 980  932 3 ANS(8),SNA1(8),TEST(8),AM1(8),MA2(8),STZ(9):FLG0  1010  2,1:1,15,,15::2,2 Y0:STA1  YU1 7 SNA1(YU)0 ANS(YU)0  YU N1ˀ(1)  N10.1 22 N2ˀ(1)  N20.1 26 M1ˀ(N1(10(Z)0.5)10)  D1M1 "M2ˀ(N210(10(Z1)0.5)) $D2M2 & 470 ( 698 * 710 , 112 . 140 0 238 jM8:2MD2 lM8:D22M p PRINT NO. DISPLAY r 2,2: 1,15,,15 "t 20,20: 4:"LEVEL";Z;" ADDITION" v 1 x45,55: M1 z45,70: "+" |50,70: M2 ~ I0 Z (45I6 ),80: ""; (45I6 ),100: ""; (45I6 ),103: "";  I   HIGHLIGHT DISPLAY  592 1 Y6Z 576  Y6(Z1) 584  0,(45Z6Y,49),0,8  1,(45Z6Y,64),0,8  SR1 532  1  732  756 ANS1$ˀ  ANS1$"" 166 Aˀ(ANS1$) A13 348 !( A48 A57) A72 A8 166  A8 Y0 48   A8 Y0 184  A8 212  1  732  970 STA1  3,(0,0),4,14 YY6 SS1  140 4  606 S1S11 SR1 540  166 Bˀ(ANS1$) A72 330  START OF KEY ENTRY LOOP  3,(0,88),4,15 STA1 1:(45Z6Y),90: B  622 YY6 SR1 460  140 SS1  252 RZ2 S11 S0 4  606  158 SR 244 L1$ˀ  L1$"" 254 H1ˀ(L1$)  H1 8 H1 13 H172 264  254  H113 348    H18 450  H172 922  S1R1 252 RT$ˀ  RT$"" 274 VBˀ(RT$)  VB13 VB76 274   VB13 12  VB76 8 " 732 $ 45,130:"GOOD WORK! THE" & 35,140:"ANSWER IS" !( 28,150:"PRESS CR TO TRY AGAIN" !* 28,160:"OR L TO CHANGE LEVELS" , 100,140:"CORRECT." . ET1 20 0 ET 2(100,140)(140,148),,BF 4 TJ1 20 6 TJ 8RP$ˀ : RP$"" 326 <MXˀ(RP$) > MX13 MX76 300 @ B MX13 12 D MX76 8 F 300 J HELP SECTION L 1 N 732 P 802 R SR1 532 T SR 252 V 166 Z CHECK ANSWER GIVEN \ ^ 1 ` 0,(0,0),0,15 b 1,(0,0),0,15 d 732 f45,140:"ANSWER ACCEPTED" h 50,160:"PLEASE WAIT !" j 3,(0,0),4,15 l MX1 R1 nSNA1(MX)0 p MX rVZS1 tX1M1M2 vHGR1 x X0 HG zN1((10(HG X)0.5)) |DFRX ~SNA1(DF )ˀ(X1N1) N2SNA1(DF )N1 X1X1N2  X TR1 ZX4 ZQ84 TEST(TR)SNA1(TR)ANS(TR)   TRR1 TEST(TR)0 440  TRVZ 748  4,(45Z6(TR1)6,ZQ),0, ZX TRTR1  TRR2 290  TEST(TR1)0 396  4,(45Z6(TR2)6,84),0,4  732  40,130:" MISTAKE IN THIS "  40,140: " DIGIT ! PRESS:" B 28,150:"1 TO CORRECT YOURSELF": 28,160:"2 FOR ME TO CORRECT" PZ$ˀ  PZ$"" 422 PQˀ(PZ$)  PQ49 PQ50 422   654  PQ49 632  PQ50 666  158  BLANK CHECK BOX ZX15 ZQ0  YY6 "(51Z6Y,88)(56Z65Y,96),,BF  732  970  194 YY6  0,( 0Z6Y,49),0,14  1,(0Z6Y,49),0,15  232  TEACHER DISPLAY  (200,80),30,1,1.5 (210,65),6 ( 210,65),2,,,,,BF (190,65),6 (190,65),2,,,,,BF (200,65),5,1,,.6,.9 (200,80),5,1,2.5,.92,.6 (200,80),15,1,2,0.15,0.35 Cˀ(1)112  (196,36)(194,7),C  (190,38)(186,9),C (186,40)(177,12),C (183,42)(167,14),C (180,45)(161,22),C (177,47)(157,32),C (178,51)(154,39),C (177,54)(152,47),C (204,36)(206,7),C (210,38)(214,9),C (214,40)(223,12),C (217,42)(233,14),C (220,45)(239,22),C (223,47)(243,32),C (222,51)(246,39),C  (223,54)(248,46),C  (185,145),25,1,,0.5,0.75 (215,145),25,1,,0.75  " WAIT FOR COMMAND TO CHECK ANSWER  1  732 # 25,150:"PRESS CR WHEN FINISHED." W$ˀ  W$"" 540  Fˀ(W$) )" (F49 F57) F72 F8 F13 540 $ & F13 564 ( F8 184 * F72 894 ,Bˀ(W$) . 732 0 756 2 218 4 3,(0,0),4,15 6S1S11 8ANS( R )0 : S1R1 350 < 226 @ 0,(45Z6Y,49),0,8 B 1,(0,0),0,15 D 154 H 0,(0,0),0,15 J 1,(0,0),0,15 L 154 P HIGHLIGHT PATTERN R S#0,"00001F1F18181818" T S#1,"181818181F1F0000" V S#2,"0000F8F818181818" X S#3,"18181818F8F80000" Z ^ "?" PATTERN ` S#4,"7088881020002000" b S#5,"0000000000000000" d S#6,"0000000000000000" f S#7,"0000000000000000" h 3,(50Z6Y,88 ),4,4 j n STORE ENTERED NO.'S pANS(S1)B rS1S11 t x OPTION TO CORRECT MISTAKES zY6(TR2) |S1TR1 ~STR2  140  606  WETR1 R ANS(WE)0  WE  158  CLEAR INCORRECT NUMBERS  4,(0,0),4,15 TMTR6:WMR(Z3)6  (55R6TM,90)(40,98),,BF   COMPUTER CORRECTION  732  32,140:"THIS IS THE CORRECT"  32,150:"ANSWER!. PRESS L TO"  40,160:"CHANGE LEVEL OR CR"  50,170:"TO TRY AGAIN."  TP(TR1) R (51Z6TP6),90  5,(51Z6TP6,85),0,4   SNA1(TP)0 TPR 692  SNA1(TP)  TP  5,(0,0),0,15  274  HIGHLIGHT OF TEACHER'S WORDS  (160,155)(200,110),12  (157,146)(200,110),12  (90,155),70,12,0.5,0,0.95,   INTRODUCTORY WORDS  FLG0 718  1: 50,150:"PLEASE WAIT."  722  1: 68,140:"HELLO !"  40,160:"I AM YOUR TEACHER."  770  732  FLG1   CLEAR TEACHER HIGHLIGHT (42,130)(138,138),,BF (28,140)(152,148),,BF (25,150)(158,158),,BF (28,160)(154,168),,BF (38,170)(142,178),,BF   PREMATURE CR TRVZ1  412  COMMAND MENU  68,130:"PRESS:"  45,140:"H -HELP"  45,150:"DEL -DELETE"  45,160:"CR -WHEN FINISHED"   STORE THE TWO NO.'S RZ2  D0 R1 LN1((10(R1D)0.5))  AM1(RD)ˀ(D1LN1)  MA2(RD)ˀ(D2LN1) L2AM1(RD)LN1 L3MA2(RD)LN1 D1D1L2 D2D2L3  D  XY1 R1 *STZ(XY)ˀ((STZ(XY1)AM1(XY)MA2(XY))10)  XY  " $ S11 812 & S11 840 ( , STA1 818 . STA2 826 0 STA2 830 *2 55,130:"ADD";AM1(S1);" TO ";MA2(S1);"." !4 30,150:"CARRY 1 IF THE ANSWER" 6 55,170:"EXCEEDS 10." 8 836 : 55,150:"NO MORE HELP !" < 836 >STA1 @ 732 B 818 DSTASTA1 F 808 H J STA1 852 L STA2 864 N STA3 874 P STA4 880 R STA4 870 -T 45,130:"ADD";AM1(S1);" AND";MA2(S1);" TO " V 30,150:"THE CARRY FROM THE" X 38,170:"PREVIOUS ADDITION" ZSTASTA1 \ 808 ^ 732 )` 27,150:"THE PREVIOUS CARRY=";STZ(S11) bSTASTA1 d 808 fSTA1 h j 40,140:"CARRY 1 IF THE" l 32,150:"ANSWER EXCEEDS TEN." n 866 p 888 rSTASTA1 t 808 !x 30,150:"SORRY ! NO MORE HELP." z ~  732  STA1 904  STA2 916  STA2 870  1: 60,130:"THERE IS A"  35,140:"CARRY IF THE LAST"  40,150:"ADDITION WAS LARGER"  65,160:"THAN 10." STASTA1  540  888 STASTA1  540   732 " 25,150:"PRESS CR WHEN FINISHED"  252    2,2:1, 4,, 4:  1,11,(20,0)(245,191),4  1,12,(31,30)(235,23),4  1,12,(31,75)(235,68),4 ((17):50,46:"ADDITION TUTOR":(16) (6:74,90: (16);"EDUCATIONAL PROGRAM" " 62,98:"FOR THE GRANDSTAND SEGA" bS#0,"071F386061C3C6C6":S#1,"C6C6C36160381F07":S#2,"E0F81C06C6E33303":S#3,"0333E3C6061CF8E0":1 60,(57,170),0,13:77,176:13:"Grandstand Leisure Ltd"  UU1220:UU A15,1,(58,128)(200,140),4: 60,131:"PLEASE PRESS CR TO BEGIN": ITL$ˀ  ITL$"" 958 SXˀ(ITL$)  SX13 958     60,140:"ENTER THE"  60,160:"NEW DIGIT !" # (56Z6Y,88)(56Z65Y,96),,BF  $2,1::4,1,(0,0)(255,191),1:2,2: tY013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220 .Y20181:(X,0)(255,YY300):XX10::992 D152:X,Y:(X,Y),15: ""996   72,12,62,12,42,12,32,12,12,22,2,32,12,32,32,32,42,32,42,42,22,52,2,52,122,12,112,12,102,12,92,12,82,22,72,32,62,42,62,52,72,52,82,52,92,52,92,32,102,32,112,32  182,12,172,12,162,12,152,12,142,22,142,32,132,42,132,52,142,52,162,52,182,52,182,42,182,32,172,32,232,12,222,12,212,22,212,32,212,42,212,52,222,32,232,32,252,22,252,32,252,42,252,52 6(110,86)(240,95),10,BF:(17):115,87:"GRANDSTAND" .(120,128)(232,136),6,BF:120,129:"PRESENTS" =(123,152)(200,161),3,BF:(16):124,153: "Addition Tutor" tS#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1:0,(221,148),0,15 ""1008 1004  <1,1::4,15:11,0:"ADDITION TUTOR":11,1:"" 2,3:"This program is designed to increase";:"your addition skills. Your computer";:"teacher will lead you through a series";:"of problems. He will find your mis-";:"takes, correct them if you can't, and"; "provide help when you ask for it."::" When a problem is presented to you,";:"a question mark will appear in the";:"answer line of the sum. This means"; "your teacher wants you to type in the";:"digit which should appear here. When";:"you have finished, press the 'CR' key." l" There are five levels of difficulty.";:"Level one is the easiest, and level";:"five the hardest.": #"KEY IN THE LEVEL NUMBER (1~5): "; Q$ˀ: Q$"" 1022  Q$"1" Q$"5" 1022 Q$;::Zˀ(Q$)   2,2::,1,(0,0)(255,191),1 Y013:(0,YY)(255,YY),4: X113:(X10,0)(0,XX),4: $(X1420:(X10,0)(XX185,191),4: 2(210,0)(254,191),4:X220 -<Y20181:(X,0)(255,YY300),4:XX10:: FD152: A,M:(A,M),15: P ""140 Z Gd 72,12,62,12,42,12,32,12,12,22,2,32,12,32,32,32,42,32,42,42,22,52,2,52 Zn 122,12,112,12,102,12,92,12,82,22,72,32,62,42,62,52,72,52,82,52,92,52,92,32,102,32,112,32 cx 182,12,172,12,162,12,152,12,142,22,142,32,132,42,132,52,142,52,162,52,182,52,182,42,182,32,172,32 U 232,12,222,12,212,22,212,32,212,42,212,52,222,32,232,32,252,22,252,32,252,42,252,52 8(110,86)(248,95),10,BF: (17):114,87: "GRANDSTAND" /(120,128)(232,136),6,BF:120,129: "PRESENTS" H(45,152)(210,160),3,BF: (16):46,153: "Cheque Book Reconciliation" c S#0,"030F3C306063C4C4": S#1,"C4C46360303C0F03": S#2,"C0F03C0C06C62303": S#3,"0323C6060C3CF0C0" 1: 0,(220,148),0,15 "" 180   4,15,(0,0)(255,191),15 % 60,0 : (17);"DEFINITIONS";(16) [ 20,16: "AUTOMATIC PAYMENTS:- PAYMENTS MADE BY": " THE BANK BUT NOT YET RECORDED BY YOU" {12,15: 20,40: "AUTOMATIC PAYMENTS RECEIVED:- CASH": " RECEIVED BY THE BANK(DEPOSITED)": " BUT NOT YET RECORDED BY YOU" p6,15: 20,72: "UNPRESENTED CHEQUES:- CHEQUES MADE OUT": " BUT NOT YET PRESENTED TO THE BANK": " FOR PAYMENT" z13,15: 20,102: "DEPOSITS NOT YET CREDITED:- CASH ": " BANKED INTO YOUR ACCOUNT BUT NOT ": " YET RECORDED BY THE BANK" S7,15: 20,134: "DISHONOURED CHEQUES :- BOUNCED CHEQUES": " RECEIVED BY THE BANK" 12,15: 20,160: "MAXIMUM NO. OF INSERTIONS IS 5" ,1,14: 20,172: "TO CONTINUE PRESS ANY KEY" " "" 290 6 A$(100), A(100) ;:::: 1,2: @ I1 100 JA$(I)"*" : I TI0 : C0 ^P5:Q5:R5:T5:U5 h 1,3: 8,5 : "**********"; r "***************" | 8,6 : "* ";  " *"  8,7 : "* Y";  "OUR *"  8,8 : "* BANK ";  "RECONCILIATION *"  8,9 : "* WILL B";  "EGIN NOW *"  8,10: "* ";  " *"  8,11: "**********";  "***************"  1,13 : "PLEASE KEY";  " IN THE FOLLOWING|-"  5,15 : "BAL. AS ";  "PER BANK STAT = $";PSSBL  5,17 : "BAL. AS "; & "PER CHEQUEBOOK= $";CHQBL 0: 6,14 : "AUTO PYMTS MADE BY BANK"; D " ON YOUR BEHALF" N "***********************"; X "***************" b 1870 l : v 1520 RAPC : NAPI5 : PAPI5 : C0 : 4,14  "AUTO PYMTS RCVD BY BANK";  " ON YOUR BEHALF"  "***********************";  "***************"  1870  :  1520 TARC : NARI5 : C0 : 6,14  7,1 : "DISHONOURED";  " CHEQUES."  6,2 : "***********";   "**********"  1870   : * 1580 4RDCC : NDCI5 : PDCI5 : C0 >:4,14 H 7,1 : "UNPRESEN"; R "TED CHEQUES" \ 6,2 : "********"; f "*************" p 1870 z :  1580 TUCC : NUCI5 : C0 :6,14  7,1 : "DEPOSITS";  " NOT CREDITED YET."  6,2 : "********";  "********************"  1870  :  1520 TDNCC : NDNCI5 : C0:  2,2:  1,14,(0,0)(255,191),13 ) 30,0 : "BANK RECONCILIATION STATEMENT" 5 18,8: "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~": : 412,14: 30,32: "BAL. AS PER BANKSTAT $ "; PSSBL $6,5: 30,48: "LESS" !. 30,56: " AUTO. RCPTS $ ";TAR !8 30,64: " UNPR. CHQS $ ";TUC B4,14: 30,72: "ADD" !L 30,80: " AUTO. PYMTS $ ";RAP !V 30,88: " DIS . CHQS $ ";RDC (` 30,96: " DEP . NOT CR$ ";TDNC:1,14 jCAL PSSBLTDNCRDCRAPTARTUC #t13,14: 30,104: (25); "========" +~ 30,112: "CAL.BAL. AS PER CHQBK $ ";CAL ! 30,120: (25);"========":1,14  CAL CHQBL 1370 2 30,132: "ERROR>>>>BALANCE CALCULATED DOES NOT"; $ 30,140: "AGREE WITH CHQBOOK BAL."  2 : + 30,152 : "TO CHECK ERRORS ENTER ANY KEY"  "" 1220   2340 A0  J1 NDNCU  A$(J) "*" 1290  A175 A0 # 25,A16: J;(2);A$(J),A(J):AA8   JPAPP 1670  JNARQ 1670  JPDCR 1670 ( JNUCT 1670 2 JNDNCU 1670 < J F B1 B0: 1020 P 1,1:: 1430 Z " YOUR STATEMENT IS RECON"; d "CILED,WITH NO " n " ERRORS" "x " TO CONTINUE PRESS ANY KEY "  "" 1410  :  " DO YOU WISH TO RECON";  "CILE AGAIN?(Y/N)"  "" 1450  "Y" 315 0: " THE RECONCILIATION PROGRAM HAS STOPPED": ) " PLEASE ENTER ANY KEY TO TERMINATE": ' " GOOD BYE AND HAVE A NICE DAY.":Z1 I01405 (58,46I)(58I,186I),3 (198,46I),3   "" 1500 : 1,2::1,3: II1  " DESCRIPTION| ";A$(I)  A$(I) "*" 1640  A$(I) "*" 1520  A$(I)"*" II5 " ,II1 6 " CHEQUE NO | ";A$(I) @ A$(I) "*" 1640 J A$(I) "*" 1580 T A$(I)"*" II5 ^ h " AMOUNT | $";A(I) rCCA(I) |  1895   JPAPP 1750  JNARQ 1780  JPDCR 1810  JNUCT 1840  S1 2340:S0   50,0: "AUTO PYMTS RCVD": A0  50,8: "----------------"  # 50,0: "DISHONOURED CHEQUES": A0  50,8: "--------------------"  # 50,0: "UNPRESENTED CHEQUES": A0  50,8: "--------------------" & 0 50,0: "DEP. NOT CREDITED":A0 : 50,8: "------------------" D N 5,4 : "(ENTER A "; X "* ON COMPLETION)" b g A175 A0 6l 11,A30: " C(CORRECT) A(ABORT) ANY KEY(CONTINUE)" v "" 1910  "A" : 1470  "C" 1950 A0: : 1,2:: 6,15  10,0 : "CORRECTION MODE": Y0  10,1: "" ( "PRESS `C' TO CORRECT & `I' TO INSERT" ' "NOTE: MAX. NUMBER OF INSERTION IS 5" * "":  "ITEM# DESCRIPTION AMT":  JPAPP S1  JNARQ SPAP1P  JPDCR SNAR1Q  JNUCT SPDC1R   JNDNCU SNUC1T  XS J1   A$(X)"*" 2120 * X;(5);A$(X),A(X) 4YYA(X) > X H : "ENTER CHOICE: ";ANS$ R ANS$"C" 2170 \ ANS$"I" 2370: 2270 f ANS$"I" 2120 p ANS$"C" 2120 z "PLEASE ENTER THE ITEM NO:"  N : A0 :B1 + "PLEASE ENTER THE CORRECT VALUE":YYA(N)  C A(N)C:YYC: 2,2:  JPAPP RAPY  JNARQ TARY  JPDCR RDCY  JNUCT TUCY  JNDNCU TDNCY JS1  !$ 50,0: "AUTOMATIC PAYMENTS":A0 . 50,8: "-------------------" 8 B JPAPP 2490 L JNARQ 2520 V JPDCR 2550 ` JNUCT 2580 j JNDNCU 2610 t : 2,2::JJ1:B1 ~ A0  Q "SORRY NO INSERTION CAN BE MADE ": "AFTER A MAXIMUM OF 5 IN SERTIONS ARE DONE"  "TO CONTINUE PRESS ANY KEY "  "" 2470   P0 2450: 2510 @ 2640:A$(PAP)D$:A(PAP)M:PAPPAP1:A$(PAP)"*":PP1:RAPRAPM   Q0 2450: 2540 @ 2640:A$(NAR)D$:A(NAR)M:NARNAR1:A$(NAR)"*":QQ1:TARTARM   R0 2450: 2570 @ 2640:A$(PDC)D$:A(PDC)M:PDCPDC1:A$(PDC)"*":RR1:RDCRDCM   T0 2450: 2600 @ 2640:A$(NUC)D$:A(NUC)M:NUCNUC1:A$(NUC)"*":TT1:TUCTUCM ( 2 U0 2450: 2630 G< 2640:A$(NDNC)D$:A(NDNC)M:NDNCNDNC1:A$(NDNC)"*":UU1:TDNCTDNCM F )P "PLEASE ENTER THE DESCRIPTION:- ": D$ "Z "PLEASE ENTER THE AMOUNT:- ": M d 5)(235,68),4 ((17):50,46:"ADDITION TUTOR":(16) (6:74,90: (16);"EDUCATIONAL PROGRAM" " 62,98:"FOR THE GRANDSTAND SEGA" bS#0,"071F386061C3C6C6":S#1,"C6C6C36160381F κ++theDNA rߺXX*#K$B":!:RN!:":*$"<>&2>*<~K Bi>* ³++~2#~2#q#p!q#p*"$*"&"$##=:(G'XXXXXXXXX κ+J޻OPQRSTUVWXYZAAAAAAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAAAAAAAXXXX :(!##= :(=G: Gn#f+&u#t#!: ##=BN#F&7?R:(=\ _ W>&=i7?Rx}:(=ƒ o g>&6 +=!:(##=N#FC+++N#FC*&:)w#"&*7?B* '*&7?R̚S !'[$7?RR (&*$"$Ӿ:<2&>2: $ ͵*&K$7?B:B*$& "$2> ӾӾ$:==2*+#"+[&7?Rʙ:*<2*ڂ ™2*:-*$+"+0:)*&#K7?B›*&#"&;:)*B*&K$7?B*&+"&*$&7? 2B"$ K&:)*&' KB*&& "&;:)*8 *&7?B*&&7?R"&*$7?R*$&7?R"$*@ͩ͛͠XXXXX:)! *~Ŝ|}+#+K&7?B*&#x[&|³}³XX <:):>2>2->2>2-L*K&7?BL8*+~ x*+:)*&w#"&&#"&[:(!##=„^#VS++V+^!""$+"&" *7?BK$7?B*$& "$* K$7?B*$&7?B"$:(!##=N#F++CF+NX FC! "$"&!" * K&7?BK*&+s*K&7?B88:) :8*~ i;+~ c;"&é:) * K&7?B&Ê7?R#" y:)R~ ½#ò%* ~ ў+ƞ{3+$>% w#==9> w* %X P >& w+ = =JE?3* ݞz?ڞ?* % 6 ڞ> #w* 6 * %~ c#=W* ð:) * "$"&!:(##=„:(G: 2̓ͤi:) y* "&>2)+:) :G>2G>2>2x$:)* |„*&" *&K 7?BK&C " é*&" * #" *K 7?B* [ xK 7?BK>  +|ݠ!" X* #*6 XXXXX d:)!" * +K+7?B&:*W>o:):9G>29>2>2$*&K7?B*&+"&y*&#"&* % " آ*&K7?* ~ ~ ʩ+xÚ:2":)2#>2> 2)#"&x+=š* #ҡ"&:"2:#2):9ÄXXXXXXXX n>+5Mo:>/:*/:*/!`~Yx\#H>>>2_:)2)Ѣ::) >2*:_e!@+|Ÿ>2_e*$9 *&7?B*$& "$@͵:\ÇX*&\͇"&XXXXXXXXXX x!`~#I!` 0#">>:(!##=9N#F#~$F!`: : 2!"`!"b@z*"`: !##=N#F" ! "b@z!!"b*"`* "b!:` : *"`x*"`xòXXXXX!`>2*XX !"`!"b>2͟w>2*"`* "b͟wò!:(##=9N#FC++F+NC*K7?B" !:(##=d##:(G: n#f+++K 7?Bu#t###=x: =2 2)XXX*#":#=K7?B>2),Owants a crX>2)ʤ:)*:#=_"&:(!##=n+F+NC>2):+=„>2!;::~2)+#=}ã>&>$=­>2 *f > $>2>2-2 2 292>2*: 2(!T G>27l*$[&7?R!B* [ /:)ƝʨXXXXXXXXXXYX Hello. &": KBš>2)*+~ !V~ ½{7?BԦ#ç{7?BԦ#~ ¾íz!{B~ +ݦ~ +:{ ݦئz{  7?B > :(!##=%N#FC++F+N! ">2)*V|XX G*K7?BP7?B*(~ +n}V:ʏØ*"S .*&""S*&K$B:B*$ק " & "$My*&K$B>22&:<2B :=2,:<2-:=2:<2_3:-͊* #K&BE>Ê*&~͊/÷ͷ!<(:=2>YۿӾۿӾT0*$: K=*+|(:9>29֨29XXXXXXXXXX Y$"XYZ" ?:&HA5C8:(12);"Easy Writer.";: 2,10600,0:(19): &HA139,1 (12);"" :" (1) Enter the letter." " (2) Search." " (3) Print the letter." " (4) SAVE Data." " (5) LOAD Data." " (6) Edit the letter." ":::&HA5AB: $," Press the key of your choice." 6:&HA5AB @A$ˀ JA$""A$"6"A$"1"320 T ^ ""350 )h((A$)48) 370,1700,1410,1040,1230,820 r:"Enter a letter." O|"":::" This deletes any data in memory.":640:N$"INV" 180 &HA5B9 :&HA5EA  &HA139,1:&H9485,1:&H9CFE,1 0,16:&HA5AB *"CTRL Functions:Q=Quit (Return to menu)"; "K=Caps. lock V=Centre text " ""I=Reset cursor E=Block erase " /"X=Format P=Delete erase marker":&HA5AB ,Q&H9829:R&HA8B7:I1:&H9B2F:Z&HA8B6: Z,1 &Y$ˀ"" 4 R 5 (Z)I 550 d: (&H9CFD)255 &H9CFD,0: &H9F7D:&HA756: 2:::: " ** OUT OF MEMORY **":A1400: N(19)::&HA756: 180 :: " O.K. To proceed ? (Y/N)"  "Y" N$"1"::  "N" N$"INV":: 650 4: (&H980A)0 860 E> Y1100::6,8:"There is no data in memory.": 2: Y1300:: 180 \ &H9828,1 f &H9DE4:: 485 :"SAVE Data." "" $:: (&H980A)0 830 &. " O. K. To proceed ? (Y/N)":(19) 8 "N" : 180 B "Y" 1080 $L: "File name *";N$: N$"" N$" " V (N$)16 N$ˀ(N$,16) `NN$" " jN$" "N$Ā(NN$,16ŀ(N$)) /t A116: &H980FA,((N$,A1,1)):: &HA5F4 !~:" O. K. To VERIFY ? (Y/N)" % "Y" &HA408: A1200:: 180  "N" 1160 ::" Re-SAVE ? (Y/N)"  ""1190  "Y" :1040  "N" : 180  1200 :"LOAD Data." "" 640 N$"INV"180 9 &H82A2,0: &HA3BF: &H980A,(&H99F0): A1200:: 180  1260 ':"Print a letter.":"" ::(&H980A)0830 640:N$"INV"180 &H9828,(N$) ,:" Do you want a Page heading ? (Y/N) ";N$ N$ˀ(N$,1):N$"Y"N$"N" N$"N"H$" ":1511 :"Header : ";H$:H$""H$" " (H$)30H$ˀ(H$,30) A115:(H$)30H$" "H$" "  R&H9820,0::" Justify the right margin ? (Y/N) ";P$:P$ˀ(P$,1):P$"Y"&H9820,1 x:"Do you want the letter printed in pages or one single sheet ? (S/P) ";P$:PP1:P$ˀ(P$,1):P$"P"P$"S":NN$"N" SP$"S":"Do you want page numbering ? (Y/N) ";NN$:NN$ˀ(NN$,1):NN$"Y"NN$"N" 3P$"S":"How many lines per page ? ";P:P11540 < :" Is this correct ? (Y/N) ";C$:C$ˀ(C$,1):C$"N" 1410 C$"Y"1545  &HA71F AAˀ(&H9806):BBˀ(&H9807) PP1NN$"N" "LN0 $,:NN$"N"PP1(37ŀ((PP)));PP *7&H9806,AA:&H9807,BB:H$" "H$:(11); "8 A1ဓ(H$):(H$,A,1)" ""_"; @(H$,A,1)" "" "; J:: ZT &HA744: A&HA656&HA67B:((A));::(&H9806)ǀ(&H9808)̀(&H9807)ǀ(&H9809)1680 ^LNLN1:LNP1650 h 1620 erLN0:PPPP1:::::::::" Press any key to continue or R to reprint this page.":: wY$ˀ:Y$"R"PPPP1:1565 )xY$""AAˀ(&H9806):BBˀ(&H9807): 1565 1655 LN1PLNLN1::1680 eLN0:PPPP1:::::::::" Press any key to continue or R to reprint this page.":: Y$ˀ Y$"R":PPPP1:1565 Y$""180 1694 :"Search." "" :(&H980A)1830  640: N$"INV"180 ""1810 :: 0&H9828,1:: "Original phrase *";P$:P$""1960 #: "Replacement *";Q$:Q$"" 1970 5A0ဓ(P$):&H980FA,((P$,A,1))::&H980F,(P$) (Q$)15Q$ˀ(Q$,15) 5A0ဓ(Q$):&HA53AA,((Q$,A,1))::&HA53A,(Q$) +&HA54B:(&H9CFD)255K&H9CFD:L255:570  180 (ITL$) 1000 1,1: " FILING CABINET": (" ### MENU ###": 2"1 READ A FILE" <"2 WRITE A FILE" F"3 ADJUST A FILE" P"4 VEIW THE FILE NAMES" Z"5 SAVE THE FILES ON TAPE" d"6 DELETE A FILE" i"7 SEARCH FILES" n $x"TYPE THE NUMBER OF YOUR CHOICE ";A *A 2000,3000,4000,6000,5000,7000,8000,140 "ILLEGAL CHOICE TRY AGAIN" DE1250:DE:20 :20000:N (D(N1),A$(N1),B$(N1,3),F(N1),F$(N1) T1N #D(T),A$(T),B$(T,1),B$(T,2),B$(T,3)   10000  A$(T) B$(T,1); B$(T,2); B$(T,3); 0,21 K"HIT SPACE TO VIEW ANOTHER FILE OR M TO VIEW THE MENU OR P FOR A PRINTOUT" Q117:37,3Q:(13)Ā(10): IN$ˀ IN$" "2000 IN$"M"20 IN$"P"2050  "FILE NAME ";A$(T) * 0B$(T,1) 1B$(T,2) 2B$(T,3) 3 420   "CREATE A FILE"  NN1:D(N)D(N1)1:TN  "NAME OF FILE ";A$(N)  "TYPE IN THE DATA"  X0:LE0:Z1:0,4 , SP$" " B$(T,1)"":B$(T,2)"":B$(T,3)""  XXĀ((IN$)38)  "";IN$  IN$""3180  R$ˀ(SP$,38ŀ(IN$)38)  IN$IN$R$  LEˀ(B$(T,Z))Ā(IN$) & LE2553140 0 ZZ1 : Z33160 D B$(T,Z)B$(T,Z)IN$ N X173070 X 0,22 b "FILE FULL" l 16,22 v "ACCEPT DATA ? Y/N ";IN$  IN$"Y" 4100  0,3  3060  10000 ':"CORRECT THE DATA BY TYPING OVER IT" :: Z13 P0ဓ(B$(T,Z))38 (B$(T,Z),P1,37)Ā(13) P,Z 3060  0,1 5,20000D(T)10;"DATA";D(T);(44);(34);A$(T);(34) +-20001D(T)10;"DATA";(34);B$(T,1);(34) 6"20000 DATA";N @"GOTO 4210" J10,22 T"HIT CR UNTIL MENU APPEARS" ^0,0 h r |0,1 +20002D(T)10;"DATA";(34);B$(T,2);(34) +20003D(T)10;"DATA";(34);B$(T,3);(34) "RUN" 10,22 "HIT CR UNTIL MENU APPEARS" 0,0  :0,5 #"THIS ROUTINE SAVES THE FILES AND" &"PROGRAMS ON TAPE.REWIND THE TAPE TO" &"THE START OF THE PROGRAM,CHECK THAT" %"THERE IS A LEAD IN THE 'OUT' PORT " $"ON THE COMPUTER AND IN 'MIKE' ON " "THE TAPE RECORDER" "THEN PRESS PLAY/RECORD" ("IF THIS IS ALL COMPLETE THEN PRESS CR" : "SAVE";(34);"FILE";(34) 0,14  p " FILE NAMES"  T1N " "6045 A$(T),  0,21 2"HIT P FOR A PRINTOUT OR M TO RETURN TO THE MENU" IN$ˀ IN$"P" 6200 IN$"M" 20 6085 8" FILE NAMES" B LT1N VA$(T), ` e j20 X l"FILE ERASE" v10000 0,5 20000D(T)10 20001D(T)10 20002D(T)10 20003D(T)10 "20000 DATA";N1 "RUN " 10,22 "HIT CR UNTIL MENU APPEARS"; 0,4  @ T" FILE SEARCH " '^"TYPE IN THE WORD YOU WANT TO SEARCH " h"FOR ; ";IN$ r"ALL THE FOLLOWING FILES MAKE" &|"REFERENCE TO ";(39);IN$;" ";(39) Q0 T1N Z13 F1ˀ(IN$) FFˀ(B$(T,Z))FI P1FF IN$ƀ(B$(T,Z),P,F1)8130 QQ1:F(Q)T:F$(Q)A$(T) A$(T),:8140 P,Z T 0,21 4"HIT P FOR A PRINT OUT OR M TO RETURN TO THE MENU" II$ˀ II$""8165 II$"P"8200 II$"M"20 8165 ! "FILES WITH REFERENCE TO ";IN$: Q08250  T1Q  F$(T), & + 0 20 : "NO REFERENCES FOUND" D N 20 '"TYPE IN THE FILE NAME ";IN$ 'T1N $'IN$ƀ(A$(T),(IN$)) 10060 .'A$(T) 8'"ACCEPT OR REJECT A/R ";II$ B'II$"R"10060 G' L' V'"FILE NOT FOUND" `' T1300: j'20  N 1 *N 1,"PROGRAM" +N"************************************ * * * This is a test file. * * * * DO NOT DELETE! * * * " ,N"* Deleting this file will cause * * the SEGA FILE SYSTEM to * * require reloading. * * * ************************************ " -N"" ~2)Ѩ25͝:̨*<#"<*:+":|:>=2>Yۿ=60:1,15,,15:S#0,"000000070F0F1F1F":S#1,"1F1F1F0F07030100" 4:X0:Y0:3:78::S#2,"081020ACFEFEFFFF":S#3,"FFFFFEFEFCF8E000":A170:XX1.7:YY1:1,(X,Y),2,2::(17):20,40:"a";:58:"a";:1:"pple":91:59 (120,100),10,1,3:(120,100),13,1,3:(120,100),38,1:(120,100),4:(140,100),8:(100,100),2:"b";:58:95,170:"b";:1:"all":91:59:78:(100,100)(150,150),8,BF (125,98),26,8,.1,,,BF:(150,120),23,8,.5,.75,.25:(150,120),27,8,.6,.75,.25:(160,133),8:C1:76:2:"c";:58:"c";:1:"up":91:59:(120,90),20,1,,.55,.95:(119,110),25,1,,.1,.4:C1 (93,99),10,1,3,.65,1:79:76:(146,99),10,1,3,.5,.86:(89,130),10,1,,1,.5:(150,130),10,1,,1,.5:(110,90),2,1,1.5,,,BF:(130,90),2,1,1.5,,,BF:(120,115),5,1,.8,,,BF:(126,119),6,1,,.25,.5 ^(114,119),6,1,,1,.25:(110,90),4,1:(130,90),4,1:7:"d";:58:100,170:"d";:1:"og":91:59  (125,100),20,1,2,.4,.1:(125,85),24,1,2,.1,.4:(125,105),12,11,1.5,,,BF:8:"e";:58:"e";:1:"gg":91:59:(110,100),40,2,.5 (80,100),15,2,1.2,.85,.17:(80,95),2,1,,,,BF:(70,105),10,2,.5,1,.15:C2:80:76:(110,95),2:(135,75),2:(160,100),2:(103,125),2:13:"f";:58:100,170:"f";:1 "ish":91:59:S#4,"070F0F1F1F1F1F1F":S#5,"0F0F0F0A0A0A0A0A":S#6,"E0F0F0F0F6EEDCF8":S#7,"F0F0E0A0A0A0A0A0":S#8,"0000000000000000":S#9,"00000F0F0F0F0F0F":S#10,"00000000FEFEFC00" S#11,"0000E0E0E0E0E0E0":1,(110,100),5,5:2,(110,100),11,1:3,(135,80),5,2:4,(135,80),11,1:5,(140,120),5,6:6,(140,120),11,1:10:"g";:58:"g";:1:"loves":91:59:C8 81:(100,110)(170,150),5,B:76:(105,120)(115,130),5,B:(155,120)(165,130),5,B:(129,120)(139,150),5,B:(100,109),8:(110,111),4:(164,70)(169,90),8,BF:12:"h";:58:"h";:1 h"ouse":91:59:(120,100),20,1,2:(120,90),20,1,,.5,1:(115,102),20,1,2,.4,.75:(125,102),20,1,2,.75,.1 C1:82:76:(97,138),1:(97,108),1:(110,70),1:(142,108),1:(143,138),1:(110,90),5,1,.8:(130,90),5,1,.8:(110,90),2,4,,,,BF:(130,90),2,4,,,,BF:(120,107),5,1,2,.9,.61 (120,125),6,1,.5:83:76:(111,20),3,1,2,.5,1:(129,20),3,1,2,.5,1:(129,20),6:(111,20),10:(100,80)(140,82),6,BF:12:"i";:58:90,170:"i";:1:"ndian":91:59 S#12,"1F7C3A38192A0B08":S#13,"0A090605040A7180":S#14,"F83E5C1C9854D010":S#15,"509060A020508E01":S#16,"80B0A8A8AEE948A9":S#17,"490A0A0A0A0E040E":S#18,"010D151575971295":S#19,"9250505050702070" S#20,"80B0E8E806091021":S#21,"42844422160F0306":S#22,"010D171770900884":S#23,"4221224468D0C060":(10,133)(255,135),2,BF:J13:2,(115,70),14,1:3,(115,100),18,1:A1350::B120 2,(115,67B),14,1:3,(115,97B),23,1::B120:2,(115,47B),14,1:3,(115,77B),23,1::2,(115,70),14,1:3,(115,100),18,1::5:"j";:58:"j";:1:"ump":91:59 S#24,"0000000103070F1F":S#25,"3F3F3F1F0F070707":S#26,"00000080C0E0F0F8":S#27,"FCFCFCF8F0E0E0E0":S#28,"0404050505050505":S#29,"0505050505050301":S#30,"1010201020102010":S#31,"2010102020204080" S#32,"0000000101010101":S#33,"0101010101010101":S#34,"0000008080808080":S#35,"8080808080808080":S#36,"0101010101010101":S#37,"0101010101010101":S#38,"8080808080808080":S#39,"8080808080808080" S#40,"0808040804080408":S#41,"0408080404040201":S#42,"2020A0A0A0A0A0A0":S#43,"A0A0A0A0A0A0C080":A110:2,(110,70),25,1:3,(110,102),31,1:C120::2,(110,70),35,1:3,(110,102),37,1 C120::2,(110,70),25,1:3,(110,102),43,1:C120::2,(110,70),35,1:3,(110,102),37,1::2,(110,70),25,1:3,(110,102),43,1:13:"k";:58:"k";:1:"ey":91:59 sR130:Cˀ((1)121):(163,96),R,C,1,0,1,:R:(163,125)(165,160),1,BF:6:"l";:58:"l";:1:"ollipop":91:59 S#44,"0000000000060A1D":S#45,"234981FF00000000":S#46,"00071F3F7F7FFFFF":S#47,"FFFFFFFF00000000":S#48,"00F0FCFEFFFFFFFF":S#49,"FFFFFFFF00000000":S#50,"001C23209088C4C2":S#51,"E2E2FCF800000000" ZR2201101:2,(R,100),47,13:3,(R25,100),51,13::6:"m";:58:"m";:1:"ouse":91:59 (152,0)(190,160),6,BF:C6:84:76:(86,1),6:(135,60)(138,110),6,BF:(136,49),15,10,,1,.5,BF:S#52,"0000090D0F0F1220":S#53,"282020100C020202":S#54,"00001070E0E0C040":1 S#55,"8080808080804040":2,(120,33),55,1:3,(130,33),55,5:4,(140,33),55,13:(80,10),15,2,,,,BF:(120,5),30,2,,,,BF:(190,5),42,2,,,,BF:(235,10),15,2,,,,BF:1:"n";:58:"nest" \91:59:3:(140,100),30,9,,,,BF:(140,70),1,2,,,,BF:13:"o";:58:"o";:1:"range":91:59 (110,90)(131,90),6:(117,110),10,6,3,.38,.62:(121,121),14,6,,.13,.39:(125,110),10,6,3,.89,.12:(200,160),80,6,1,.6,.8:(209,175),90,6,1,.6,.78:(216,80)(227,87),1,BF:(112,110),6:(135,115),6 (120,70),5,14,3,.25,.75:(124,70),6,14,3,.25,.75:(120,40),5,14,3,.75,.25:(117,40),6,14,3,.75,.25:(117,70),14:(123,40),14:12:"p";:58:"p";:1:"ipe":91:59 !(130,100),30,6,,,,BF:(94,80),12,6,.95:(175,65),40,6,.5,.2,.35:(187,84)(187,94),6:(192,138),43,6,,.6,.73:(92,78),4,1:(92,78),2,1,,,,BF:(135,152),3,6,,.5,1:C10:85:76:(133,164),3,10,,.5,1 #(131,130)(135,145),6,BF:C6:86:76:(139,136),6:(165,100),6:C1:87:76:(85,80),6:3:"q";:58:"q";:1:"uail":91:59:R80:F(1)8:F(2)10:F(3)12:F(4)4:F(5)13:C15 $FF(C):(160,110),R,F,,.5,1,BF:RR15::5:"r";:58:"r";:1:"ainbow":91:59:S#56,"3F3F203F3F3F3F3F":S#57,"3F3F3F3F1F1F0F00":S#58,"C0C040C0C0C0C0C0":S#59,"E0FEFFFFFFFFFE00" %S#60,"0303020303030303":S#61,"077FFFFFFFFF7F00":S#62,"FCFC04FCFCFCFCFC":S#63,"FCFCFCFCF8F8F000":X$"0000000000000000":S#64,"00FFFFFF00000000":S#65,X$:S#66,X$:S#67,X$:2,(140,100),58,4 &3,(100,100),63,5:4,(112,100),67,8:5,(144,100),67,8:3:"s";:58:"s";:1:"ocks":91:59:S#68,"0000030F1F3F7FFF":Z$"FF00000000000000":S#69,Z$:S#70,"0FFFFFFFFFFFFFFF" 'S#71,Z$:S#72,"E0F8FCFEFFFFFFFF":S#73,Z$:S#74,"0000000000808080":S#75,"8000000000000000":5,(110,100),71,1:4,(140,100),75,1:S#76,"3C4252868A847880":S#77,X$:S#78,X$:S#79,X$ (3,(158,100),79,12:S#80,X$:S#81,X$:S#82,"0000000000000201":S#83,"0100000000000000":2,(78,99),83,2:S#84,"3C3E1F0F0F1F3F3E":S#85,X$:S#86,X$:S#87,X$:1,(145,118),87,12 )0,(110,118),87,12:11:"t";:58:"t";:1:"urtle":91:59:X100:Y100:A15:XX10:(X,Y),5,1,,.5,1::(130,100),25,1,,.5,1:(130,90),1:(129,96)(130,120),6,BF *A12:(132A,123),4,1,2,.1,.55::3:"u";:58:"u";:1:"mbrella":91:59:(140,100),20,4,2,.35,.65:(135,100),20,4,2,.85,.15:C4 +88:76:(137,60),7.5,1,.3,,,BF:(135,120),4:D13:(150D,58),15,2,2,.5,.78::(157,28),5,11,,,,BF:(167,28),6,8,,,,BF:(157,18),6,8,,,,BF:(148,28),6,8,,,,BF:(157,38),6,8,,,,BF J,9:"v";:58:"v";:1:"ase":91:59:C1:89:76:(110,100)(150,140),12,B -(109,99)(149,139),12,B:(128,99)(130,139),12,BF:(109,117)(149,122),12,BF:(103,93)(156,146),12,B:S#88,X$:S#89,X$:S#90,"0F0F0F0F0F0F0F0F":S#91,X$:S#92,X$:S#93,X$:S#94,X$ .S#95,"0F0707030307070F":1,(117,100),88,8:2,(117,106),94,8:3,(87,100),88,8:S#96,X$:S#97,"F0E0E0C0C0E0E0F0":S#98,X$:S#99,X$:4,(111,106),99,8:(111,155),1:6:"w";:58 /95,170:"w";:1:"indow":91:59:S#96,"E0DEB0BEB0BEB0BE":S#97,"B0BEE6DADCD2DAEE":S#98,"077B0D7D0D7D0D7D":S#99,"0D7D675B3B4B5B77":1,(120,100),99,1:J$"FFFFFFFFFFFFFFFF":S#100,J$ 0S#101,J$:S#102,J$:S#103,J$:S#104,"3F7FFFE0DCEADDC2":S#105,"474827100A070404":S#106,"FCFEFF073B57BB43":S#107,"E212E40850E02020":S#108,"3E3E3E3E3E3E3E3E":S#109,"3E3E3E3E3E083E3E" 1S#110,"7C7C7C7C7C7C7C7C":S#111,"7C7C7C7C7C107C7C":4,(120,131),111,8:3,(120,68),107,1:A15:2,(120,100),103,1:B1100::2,(120,100),103,10:B1100:::12:"x";:58:"x"; 21:"-ray":S#112,"071F386061C3C6C6":S#113,"C6C6C36160381F07":S#114,"E0F81C06C6E33333":S#115,"3333E3C6061CF8E0":S#116,"00071F3F3F7F7F7F":S#117,"7F7F7F3F3F1F0700":S#118,"00E0F8FCFCFEFEFE 391:59:S#119,"FEFEFCFCF8F8E000":C13:A1853:1:150,A23:"":1,(130,30A),115,9:2,(130,31A),118,4::B8013:15:150,B45:"":1,(130,28B),115,9 42,(130,27B),118,4:::20,40:7:"y";:58:"y";:1:"o-yo":91:59:C1:90:76:(155,158),5:(132,158),5:S#120,"3C3CFFBD81FFFFFF":S#121,"7E00000000000000" M5S#122,X$:S#123,X$:1,(137,65),123,1:13:"z";:58:"z";:1:"ipper":91:59 G6(16):20,100:"To start again press A":20,130:"To end press E":74 7S$"E"S$"e": 8S$"A"S$"a"2 954 :" as in":110,170: D;(16);:60,184:"Press any key to continue":74::20,40:(17): ~<2,1::4,1,(0,0)(255,191),1:2,2:Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191): n=(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10::D152:X,Y:(X102,Y102),15::"" > 7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5 ?(110,86)(230,95),10,BF:(17):115,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(74,151)(200,160),3,BF:(16):75,152:"Learning the Alphabet" ~@S#252,"030F3C306063C4C4":S#253,"C4C46360303C0F03":S#254,"C0F03C0C06C62303":S#255,"0323C6060C3CF0C0":1:0,(221,148),255,15 A""65 B1,4,,4::1,11,(20,0)(245,191),4:1,12,(31,30)(235,23),4:1,12,(31,75)(235,68),4:(17):50,40:"LEARNING THE":80,55:"ALPHABET":(16):6:74,90:"EDUCATIONAL PROGRAM":62,98 lC"FOR THE GRANDSTAND":175,98:"SEGA":1,(37,170),252,13:57,176:13:"1984 Grandstand Leisure Ltd":A1220 BD:15,1,(58,128)(200,140),4:60,131:"PLEASE PRESS CR TO BEGIN": F74:SXˀ(S$):SX1370 JS$ˀ:S$""74 K: LX:X1 MY,X1,Y1:(X,Y)(X1,Y1),C:76 N100,100,150,100,1 ;O102,85,98,135,137,85,141,135,152,75,160,135,87,75,79,135,1 P150,95,180,80,150,105,180,120,180,120,180,80,100,80,110,70,110,70,140,70,140,70,130,82,100,120,105,130,100,120,115,130,115,130,105,130,1 CH27CH32C9 HCNTCNT1 RCNT22370 \CNT32580 fCNT42840 pCNT52910 zCNT63000 CNT73340 V12 FG202008:N27 5,(FG,100),CH,C:1,1047,10 5,(FG2,105),CH,C:1,1175,10 5,(FG4,100),CH,C:1,1245,10 5,(FG6,95),CH,C:1,1245,10 FG FG200208 5,(FG,100),CH,C:1,1109,10 5,(FG2,105),CH,C:1,1047,10 5,(FG4,100),CH,C:1,1319,10  5,(FG6,95),CH,C:1,1397,10  FG:V $ 0:AG15000 % 0:2,(X2,Y2),N,1 . DLY1500:DLY 8 :2060 B L13:N39 V 6,(JMP15,100),CH,C ` JMP20 220 40 j 5,(JMP,100),CH,C t 5,(JMP5,95),CH,C ~ 5,(JMP15,90),CH,C  5,(JMP25,85),CH,C  5,(JMP35,90),CH,C  5,(JMP40,95),CH,C 5 5,(JMP45,100),CH,C:0:1,131,10:1,139,10:1,147,10 T125:T  6,(JMP25,95),CH,C  6,(JMP35,90),CH,C  6,(JMP45,85),CH,C  6,(JMP55,90),CH,C  6,(JMP65,95),CH,C 5 6,(JMP75,100),CH,C:0:1,131,10:1,139,10:1,147,10  JMP  L  2340  S#200,"FCFCFCFDFDFDFDFD" ( S#201,"FDFFDFAF70F87020" 2 S#202,"000000E0E0E0FFFF" < S#203,"FFF7EB1C3E1C0800" F S#204,"FFFFFFFFFFFFFFFF" P S#205,"FFF7EA1D3F1D0800" Z S#206,"FFFFFFFFFFFFFFFF" d S#207,"FF7FBFC0E0C08000" n T202002 x 5,(T,50),200,1:4,2,15  6,(T30,50),207,1:5,3,15  T70B7:2750  T100B8:2750  T130B9:2750  T  2790 F501002  B,(T40,F),CH,C  F  2730 T200250  5,(T,50),200,1  6,(T30,50),207,1  T  N43:2340  C9:CH31:N47 , 5,(20,100),CH,C - 3,156,0:5,3,15 6 V2080:6,(V,100),CH,C:V @ V100160.5:7,(20,V),CH,C: V J V100160.5:8,(80,V),CH,C: V T 2340 ^ Y60:X100:5,(X,Y),91,6:J247 r V130.5 !w JJ2:3,J,10:3,J4,10:1,J3,10 | 6,(XV,YV),91,6  7,(XV,YV),91,6  8,(XV,YV),91,6  9,(XV,YV),91,6  V N51:2340  C2:CH35:N55:Z1:XX5  F57 V150103 % 1,988,10:0:1,880,10:F,(XX,V),CH,C Z1XXXX3 Z2XXXX2 Z3XXXX1  V  ZZ1:XX5  F & Z1 0 F810 : V150803 %D 1,988,10:0:1,880,10:F,(XX,V),CH,C N Z1XXXX1 X Z2XXXX2 b Z3XXXX2.2 l V v ZZ1  F:0  S#196,"010204040404FFFF"  S#197,"7F7F3F3F1F0F0700"  S#198,"804020202020FFFF"  S#199,"FEFEFCFCF8F0E000" AG15000  2,(X2,Y2),N,1 B1100:B  1,(100,150),199,10 B1100:B V1041  V,(98,150),CH,C: B1100:B  V  2360  CH83:CV79:XX10:YY30:J1 V5182 * V,(XX,YY),CH,9 4 V1,(XX,YY24),CV,2: > J13410 H YYYY40:3420 R J0:3430 \ J1 f XXXX20 p B1100: B z V:N59:Y2150 AG15000  2,(X2,Y2),N,1 B1500:B  :  :LIM90:ST20:S5:J62:V47 BSTLIM2 B,J:""  B  S,(B6,V),87,13:1,330,15  SS1:LIMLIM40:STST20:0 LIM2103580  3510  FLAG1FLAG0:3720 ENB200 EN,J:"":EN DOWJ2J30 $LIM4,DOW:"":DOW .BLIM6LIM402 8B,J33:"" BB:X2190:Y220:N95 LLIM903690 /VSS1:S,(LIM64,80),87,13:1,330,15:LIMLIM40 `0: 3630 jDOWJ35J65 t50,DOW:"":DOW ,~FLAG1:V115:LIM90:SS1:JJ68:ST50:3510 B1902302 B,J:"":B S#92,"3F7FE1C0C0E17F3F" S#93,"000103073E3C0000" S#94,"0080C0C0C0C0C0C0" S#95,"C0C0800000000000" AG1CNT9:5000 N95:2,(X2,Y2),N,1 DLY1400:DLY  V40:G180:V1V20:G1G:CNT10 (V,G)(V1,G1),1 V12403860 /GG10:(V1,G1)(V1,G):VV20:V1V120:G1G110  3820 (V1,G1)(V1,190),1 (V1,190)(40,190),1 (((40,190)(40,180),1:(41,189),6:N9:S5 -T19 2X215:Y57 <B1N FS,(X,Y),99,2:1,415,10 KS,(X2,Y2),99,2 PS,(X5,Y4),99,2 US,(X7,Y6),99,2:0:1,466,10 VS,(X9,Y3),99,2 WS,(X12,Y1),99,2 XS,(X15,Y3),99,2:0:1,523,10 YS,(X18,Y6),99,2 ZS,(X20,Y10),99,2 XX20:YY10:0 B SS1:NN1:T X215:Y57:S,(X,Y),99,2 AG1X250:Y230:5000 2,(50,30),27,1 S#100,"000F1F3C38383838" S#101,"383838383C1F0F00" S#102,"00F0F83C1C1C1C1C" S#103,"1C1C1C1C3CF8F000" 3,(65,28),103,1 AG1AG0:DLY1400:DLY:9000 DLY1400:DLY:AG1:10 S#150,"7EFFC3C3E3E74E18" S#151,"3830303030003030" S#152,"0000000000000000" S#153,"0000000000000000" 2,(X2,Y2),151,5 CNT107000 G1400 PD$ˀ:D$""5500 Pˀ(D$)::PCNT6000 |G  p2,(X2,Y2),N,1 CNT1CNT4CNT7CNT106300  LE,LO:LE05600 81,LE,10:A110LO:A:0:6110 Ŝ 698,2,587,2,698,4,659,2,698,4,698,4,587,2,698,4,988,2,880,2,698,2,698,2,880,2,740,2,988,2,880,2,523,2,698,2,523,2,698,2,523,2,784,2,988,2,880,2,523,2,880,2,988,2,587,2,698,2,988,2,523,2,698,4,0,0  294,2,587,2,988,2,880,2,784,2,698,2,294,2,698,2,784,2,880,2,988,2,523,2,587,8,988,2,587,2,659,2,523,2,587,2,988,2,523,2,880,2,523,2,659,2,784,2,880,2,740,2,784,6,698,2,831,2,988,2,880,2,523,2,988,2,880,2,740,2,1175,2,0,0 vd698,4,988,4,880,4,784,4,698,4,784,4,880,4,659,4,698,4,784,4,784,4,698,4,698,4,784,4,880,4,622,4,659,4,880,4,698,4,0,0 XG1400 H$ˀ:H$""7500  Qˀ(H$)::Q17600 LG ~5600 L1250 E$ˀ:E$""7900 6xPˀ(E$)::P02,(50,30),27,1:3,(65,28),103,1:6100 L @5600 L(#:50,90:5:"To start again press A":50,150:"To end this program press B" #K$ˀ:K$""9200 "$ T$K$"A"1 $K$"B" %9200 y':1,4,,4::1,11,(20,0)(245,191),4:1,12,(31,30)(235,23),4:1,12,(31,75)(235,68),4:30,46:(17);"LEARNING TO COUNT" I*6:74,90:(16);"EDUCATIONAL PROGRAM":62,98:"FOR THE GRANDSTAND SEGA" f\+55,176:13:"(C) Grandstand Leisure Ltd":15,1,(58,128)(200,140),4:60,131:"PRESS ANY KEY TO BEGIN" .A$ˀ:A$"" 12000 . 87,10,494,10,587,10,494,10,392,10,440,5,494,5,523,10,440,10,587,10,494,10,392,20,0,0 2,1::4,1,(0,0)(255,191),1: 2,2:5:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)6 (X102,Y102),15::""6 3:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(44,161)(200,152),3,BF:(16):45,153:"Loan and Mortage Calculator":0,(220,148),0,15 ""7 1,1 % (19)::"IS A PRINTER CONNECTED?" P$ˀ: P$"Y"P$"N"20 n 12,15 &x 6,5:"Year that LOAN begins?": YEAR  YEAR1 120  13,15 ( 6,8:"Term of LOAN (In years)?": TERM  TERM1 150  6,15 , 6,11:"Number of Payments per Year?": PAY PAY1 180  1,15 6,14:"Interest Rate (%)?": I I0 210 ( 6,17:"Value of LOAN?": LOAN:BALLOAN >BLOANLOAN:BPLOAN(TERMPAY):BPBP100:BPˀ(BP.5):BPBP100 L0  TERMPAY L1  AL TERMPAY 9 A12ˀ(A12) TERMPAY1 ILOANILOAN(BLOAN(I100)) "BLOANBLOAN(BLOAN(TERMPAY)) , 6PP(ILOANLOAN)(TERMPAY) A@PPPP100:PPˀ(PP.5):PPPP100:DPDP100:DPˀ(DP.5):DPDP100 J 6,20:"PAYMENT=$";PP 0T 0,22:"WOULD YOU LIKE TO ALTER ANYTHING?(Y/N)" ^X$ˀ: X$"Y" 90 h X$"N" 390 r P$"Y" X$"P" | 350 MOTSM 3 2,1::1,15,(0,0)(255,191),15: 2,2:(16);:C1 B"SEGA MORTGAGE CALCULATOR":"BALANCE=";BAL;:" YEAR ";YEAR:: &" MONTH EQUITY INTEREST"  12,15  A1 TERMPAY  MOTPAY1660  BPLOAN 530  MOT1 520 &(MOT1)12ˀ((MOT1)12) "P" ,(MOT1)12ˀ((MOT1)12) " " 490 l(MOT1)12ˀ((MOT1)12):YEARYEAR1: "SEGA MORTGAGE CALCULATOR":"BALANCE=";BAL;:" YEAR ";YEAR:: T(MOT1)12ˀ((MOT1)12) 12,15:(16);" MONTH EQUITY INTEREST":C1  C,15:CC1:LOANLOANBP EILOANLOAN(I100):ILOANILOAN100:ILOANˀ(ILOAN.5):ILOANILOAN100  MOT13 MOT1 )&DPDPBP:DPDP100:DPˀ(DP.5):DPDP100 0 PAY1 TERM1ILOANILOAN12 2:ILOANILOAN100:ILOANˀ(ILOAN.5):ILOANILOAN100 >DMOT9㑀(17);:" ";MOT;(16);:" $";DP;:(26);"$";ILOAN NTPTPBP >XMOT10㑀(17);:" ";MOT;(16);" $";DP;:(26);"$";ILOAN ,bTITIILOAN:TITI100:TIˀ(TI.5):TITI100 lMOTMOT1 1vBALBALBP:BALBAL100:BALˀ(BAL.5):BALBAL100 A 660:730 ;TPTP100:TPˀ(TP.5):TPTP100: ::"TOTAL EQUITY = ";TP 7TITI100:TIˀ(TI.5):TITI100: "TOTAL INTEREST=";TI  PAYTERM "" 680  PAYTERM :MOT1 Z PAYTERMYEARYEAR1: "SEGA MORTGAGE CALCULATOR":"BALANCE=";BAL;:" YEAR ";YEAR:: CPAYTERM 12,15:(16);" MONTH EQUITY INTEREST":C1   PAYTERM E"YOU HAVE NOW PAID $";DPTI;" IN TOTAL INCLUDING INTEREST" & " PRESS R TO REPEAT OR P TO PRINT"  "R" 1,2:: 1,1: 110  "P" P$"Y"  750 000000C0C0C0C0":S#83,"E0E0E0E0C0C0C080":S#84,"0000000003070707":S#85,"0F0F0F0303010000":S#86,"00000000C0E0F0F0":S#8 A*`" *b"*"`* "biz>2͟w* "`*"b*`" *b"*d"*f"*"`x* "`*"b*"d*"fAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 4000:2000 VE$(75),AD$(75),VC$(75) #3000 (CL$ˀ(29) *21,1::" Mailing List.":" " <:" Options":" (1) View Customer's":" (2) Update Customer":" (3) Enter a Customer":" (4) Load Mailing List":" (5) Print Mailing List" F" (6) Save Mailing List": PA$ˀ:A$"1"A$"6"80 Z #dAˀ(A$):A120,330,430,480,770,560 )x:"View Customers.":"": 5000 H"Select desired option."::" 1 All Customer's":" 2 Specific Customer" A$ˀ:A$"1"A$"2"150  A$"2"250  9:" Viewing all Customers.":" ": 5000 ST075 890:1200 A$ˀ(13)ST75 : 50  5000 >: " Viewing Single Customer.":" ": " Enter transaction #";ST 4"ST0ST75" Customer number is unacceptable":280 ,5000: 6890:1200 @50 J -T:" Customer Update.":" ": ^" Customer # to be updated ";ST hST0ST75350 BrST:"Present Customer details are:":890:" New Customer details" |ST:1000 ,:1200:" New Customer details are,"::890 1200:50  +:" Enter Customer.":" ": " Enter Customer number ";ST :1000:50  1:" Load Mailing List.":" ": 5000 ""510 %&H9808,(&H8162):&H9809,(&H8163) &H82A2,0:&H9844 " Loading Complete":5000:50 0 1::" Save Mailing List.":" ": $D" Press any key when tape is ready" N""590 %X&H9808,(&H8162):&H9809,(&H8163) +b&H980A,(&H8166):&H980B,(&H8167):5000 l"Filename *";FL$ vBZˀ(FL$)16 FL$FL$Ā(32)  " * Saving Start":FL$ &H9814 " Saving complete":5000:50 3:" Print Mailing List.":" ":  " Customer Records.": ! " All files to be printed (Y/N)" A$ˀ:A$""782 A$"Y"ST075:800::50 ST075 " Print File #";ST ""789 "Y"800 ˀ(13)ST75 ::1200:50  " Customer Record : ";ST *" Customer Name : ";VE$(ST) 4" Address : ";AD$(ST) >" City/town : ";VC$(ST) \: z " Customer Record #";ST " Customer name ";VE$(ST) " Address ";AD$(ST) " City/town ";VC$(ST) :  ABST " Customer Name ";ZN$ (ZN$)0VE$(AB)ˀ(ZN$,25) " Custm Address ";ZN$ (ZN$)0AD$(AB)ˀ(ZN$,15) " Customer City ";ZN$  (ZN$)0VC$(AB)ˀ(ZN$,15)  " Press any key to continue" A$ˀ:A$""1210  X&H9814&H987D A:X,A:: -&H2A,&H60,&H81,&H22,&H0C,&H98,&H2A,&H62,&H81 -&H22,&H0E,&H98,&H2A,&H08,&H98,&H22,&H60,&H81 R&H2A,&H0A,&H98,&H22,&H62,&H81,&HCD,&H69,&H7A,&H3E,0,&H32,&HA2,&H82,&HCD,&H9F,&H77 -&H2A,&H0C,&H98,&H22,&H60,&H81,&H2A,&H0E,&H98  &H22,&H62,&H81,&HC9 -&H2A,&H60,&H81,&H22,&H0C,&H98,&H2A,&H62,&H81 - &H22,&H0E,&H98,&H2A,&H64,&H81,&H22,&H10,&H98 -*&H2A,&H66,&H81,&H22,&H12,&H98,&H2A,&H08,&H98 -4&H22,&H60,&H81,&HCD,&HEF,&H78,&H2A,&H0C,&H98 ->&H22,&H60,&H81,&H2A,&H0E,&H98,&H22,&H62,&H81 -H&H2A,&H10,&H98,&H22,&H64,&H81,&H2A,&H12,&H98 R&H22,&H66,&H81,&HC9  ) DE075:VE$(DE)"Some Name ": ) DE075:AD$(DE)"Some Street ": + DE075:VC$(DE)"Some City ":: 2,1::4,1,(0,0)(255,191),1: 2,2:4004:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)4005 !(X102,Y102),15::""4005 4002:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(130,161)(200,152),3,BF:(16):130,153:"Mailing List":0,(220,148),0,15 ""4006 :: DE1200:: 1760 1570 DROPYFIN2 $S,(J23,DROPD),N,C1:1,494DROP,10 FLAG1S1,(J23,DROP10),N2,2 DROP $5,2,10:FINFIN12:25,(2,110),23,15  0:CN8AG1N63:Y2160:5000 )0:CN8CNT8:Y2160:N506:488:530 Z$"0000000000000000":22 :530 " :Y0:STA1:L1:N1:Y11:RT0:CN1 N1ˀ(1):N1.114 N2ˀ(1):N2.116 CM1ˀ(N1(10(Z).5)10):D1M1:M2ˀ(N210(10(Z1).5)):D2M2 A2:1,15,,15::,2:228:312:314:206:322:156:38:48:278:58 41::4,15:,1:8,0:M$:8,1:"" ,," There are three levels of difficulty.Level one is the easiest, and levelthree the hardest.",,,,"KEY IN THE LEVEL NUMBER (1~3): "; "L$ˀ:L$""L$"1"L$"3"34 $L$;::Zˀ(L$): 7&2,2:1,15,,15:45,5:M1:45,20:"X":50,20:M2:Z1Z10 A(Q$"":I0Z:45I6,30:Q$:Q456(ZI1):Q,35Z1:Q$:Z144 *Q,55Z1:Q$:Q,58Z1:Q$ ,:Z1 :.H0Z:Q45H6:Q,55Z1:Q$:Q,58Z1:Q$:Q,35Z1:Q$:: 01:276 2YZ156 40,(456(ZY),0),0,8 61,(516(ZN),15),0,8: 80,(0,0),0,0:54 :AN(L,Y1)1 "<526:(Q48Q57)Q8Q13Q7260 >:Wˀ(Q$):Q8CN1:282:58 @Q13CN1:308 BQ72324:58 D322:156 MF3,(0,0),4,15:AN(L,Y1)W:456(ZYRT),30L10:W:YY1:CN1:Z1YZ2160 HYZ282 JY0:LL1:NN1:RTRT1:LZLZ LRTZRTZ NNZNZ PLZRTZNZ86 R48:278:58 T278:58 V280:Z1160 XDHL:Y0:RT0:LL2:T0 Z116:T0278 \AN(DH1,T1)1 "^526:(Q48Q57)Q8Q13Q7294 ` bWˀ(Q$):Q8CN1:296:92 dQ13CN1:308 fQ72324:90 h322:156 jTZ2114 l3,(456(ZT),29L10),4,4 =nAN(DH1,T1)W:456(ZT),30L10:W:TT1:CN1:TZ21160 p116:92 r3,(0,0),4,0:110 tTZ2130 v4,(456(ZT),35),0,4 xT0134 zTZ3132 |5,(456(ZT),45),0,3 ~Z2T1136  6,(456(ZT),55),0,4: 4,(0,0),0,0:120 5,(0,0),0,0:126 5,(0,0),0,0: 6,(0,0),0,0: TZ3152 4,(516(ZT),35),0,4 T1 TZ4154 5,(516(ZT),45),0,3 (Z2T1)(Z3T2) 6,(516(ZT),55),0,4: 4,(0,0),0,0:142 5,(0,0),0,0:148 668,130:"PRESS:":158:Q14016010:Q$:45,Q:Q$:: )H -HELP,DEL -DELETE,CR -WHEN FINISHED 306 526:Q8Q13Q72164 :FGˀ(Q$):Q8Z1296:92 Q8Z1282:58 Q72324:164 U1Z1:UZ1280 T17:Z1U2198 8(Z1T3)(Z2UZT5)(Z2UZT5)(Z3UZT6)198 "JAN(U,T)PR(U,T)::UZ1Z1184 TZ2204 0,(516(ZT),0),0,8 91,(516(ZU),15),0,8:3,(576(ZTU),24U10),0,4:190 Z2188 "3,(756(ZTU),34U10),0,4:190 3,(696(ZTU),34U10),0,4 :UZ1138 J0196 252 Z1TZ21T7 T U 06,(0,0),0,0:3,(0,0),0,0:5,(0,0),0,0:238:238 3,(696(ZTU),35U10),0,4: 0,(0,0),0,0:182 #QQ17:PP13:AN(PP,QQ)1:PP,QQ D2M2:D1M1:ZZ10(Z1):Z110Z U1Z1:UZ1212 3SM2(U)ˀ(D2((ZZ.5))):R2SM2(U)(ZZ):D2D2R2 GMS1(U)ˀ(D1((Z1.5))):R1MS1(U)(Z1):D1D1R1:ZZZZ10:Z1Z110: K10:P1Z:CC(P)M1SM2(Z1P):Z110(Z1):T1Z2:PR(P,Z3T)ˀ(CC(P)((Z1.5))):K1PR(P,Z3T)(Z1.5):Z1Z110:CC(P)CC(P)K1:T,P sCSM1M2:Z210(Z2):T12Z1:PR(Z1,Z22T)ˀ(CS((Z2.5))):K2PR(Z1,Z22T)(Z2.5):Z2Z210:CSCSK2: QIZ11:MZ111:CY(I,M)SM2(I)MS1(M)HC(I,M1):HC(I,M)ˀ(CY(I,M)10):M,I OYC(1)PR(1,1):R27:YC(R)PR(1,R)PR(2,R1)VC(R1):Z3YC(R)YC(R)PR(3,R2) OYC(1)PR(1,1):R27:YC(R)PR(1,R)PR(2,R1)VC(R1):Z3YC(R)YC(R)PR(3,R2) VC(R)ˀ(YC(R)10):: 1:(1)112:102,0:"LEVEL";Z;" MULTIPLICATION" 1:(200,80),30,1,1.5:(210,65),6:(210,65),2,,,,,BF:(190,65),6:(190,65),2,,,,,BF:(200,65),5,1,,.6,.9:(200,80),5,1,2.5,.92,.6:(200,80),15,1,2,.15,.35 Cˀ(1)112:232:524 196,36,194,7,190,38,186,9,186,40,177,12,183,42,167,14,180,45,161,22,177,47,157,32,204,36,206,7,210,38,214,9,214,40,223,12,217,42,233,14,220,45,239,22,223,47,243,32,222,51,246,39,223,54,248,46 .(185,145),25,1,,.5,.75:(215,145),25,1,,.75: 2322:60,140:"ENTER THE":60,160:"NEW DIGIT !": v322:45,130:"GOOD WORK ! THE":35,140:"ANSWER IS":28,150:"PRESS CR TO TRY AGAIN":28,160:"OR L TO CHANGE LEVELS" M(100,140)(146,148),,BF:Q110::100,140:(1)112:"CORRECT!":Q120: Q$ˀ:Q$""240 Qˀ(Q$):Q13Q76242 :Q138 6 x322:45,130:"MISTAKE IN THIS":52,140:"DIGIT ! PRESS":28,150:"1 TO CORRECT YOURSELF":28,160:"2 FOR ME TO CORRECT" 526:Q49Q50256 $:3,(0,0),0,15:280:Q50436:476 Q49268 .322:156:436:YT1:LU:NU:RTL1:UZ1266 278:522 TT1:DHL1:LL1:RT0:278:90 A 28,150:"PRESS CR TO TRY AGAIN":28,160:"OR L TO CHANGE LEVELS" 526:Q76Q13272 :Q138 6 [S$"18181818":S#0,"00001F1F"S$:S#1,S$"1F1F0000":S#2,"0000F8F8"S$:S#3,S$"F8F80000": PS#4,"7088881020002000":S#5,Z$:S#6,Z$:S#7,Z$:3,(516(ZYRT),29L10),4,4: QR07:QR,(0,0),0,0:: L1Y0294 YY1:CN1 236  Y0292 "YZ1:LL1:NN1:RTRT1 Y$(506(ZYRT),30L10)(566(ZYRT),40L10),,BF:3,(516(ZYRT),29L10),4,4:50: 9&322:60,130:"THERE IS":35,150:"NOTHING TO DELETE !": (322:236 *Y0L1294 ,TT1:T0304 {.YZ1:LL2:RTZ1:NZ:T0:(506(ZYRT),30L10)(566(ZYRT),38L10),,BF:280:3,(506(ZYRT),29L10),4,4:50:58 Q0(506(ZT),30L10)(566(ZT),38L10),,BF:3,(516(ZT),29L10),4,4:116: 2280: 4306:172 658 J8(160,155)(200,110),12:(157,146)(200,110),12:(90,155),70,12,.5,0,.95: :FLG0318 <1:50,150:"PLEASE WAIT.":320 9>1:68,140:"HELLO !":40,160:"I AM YOUR TEACHER.":FLG1 @: yB(42,130)(138,138),,BF:(28,140)(152,148),,BF:(25,150)(158,158),,BF:(28,160)(154,168),,BF:(38,170)(142,178),,BF: D322:LZ2Y0332 FLZ2Y0344 HLZ2356 J LCN334,336,338,374:340 0N40,140:"MULTIPLY";SM2(Z1L);" X";MS1(Z1Y): 9P40,140:"CARRY IF THE ": 40,160:"PRODUCT EXCEEDS 10": (R 45,150:"THE CARRY=";HC(Z1L,Z1Y): TCNCN1:CN5CN1 V XCN346,348,376,350,374:352 MZ40,140:"MULTIPLY";SM2(Z1L);" X";MS1(Z1Y):40,160:"AND ADD THE CARRY": 0\30,150:"THE PREVIOUS CARRY=";HC(Z1L,Z2Y): '^45,150:"THE CARRY=";HC(Z1L,Z1Y): `CNCN1:CN6CN1 b dT0380 fZ2(T1T2T3)388 hZ2T4396 jZ3370 lT388,404,404,404,412,420 r(Z2T5)(Z3T7)434 t !v35,150:"SORRY! NO MORE HELP!": 3x40,140:"CARRY IF THE SUM":40,160:"EXCEEDS 10": |CN382,374:384 !~ 50,150:"PUT";PR(1,1);" HERE": CNCN1:CN3CN1  CN390,432,428,430,374:392 3 30,150:"ADD";PR(1,T1);" +";PR(2,T);" + CARRY": CNCN1:CN5CN1  CN398,432,374:400 $50,150:"ADD";PR(2,4);" + CARRY": CNCN1:CN4CN1  CN406,432,428,430,374:408 A30,150:"ADD";PR(1,T1);" +";PR(2,T);" +";PR(3,T1);" + CARRY": CNCN1:CN6CN1  CN414,432,428,430,374:416 230,150:"ADD";PR(2,T);" +";PR(3,T1);" + CARRY": CNCN1:CN5CN1  CN422,432,374:424 #30,150:"ADD";PR(3,5);" + CARRY": CNCN1:CN4CN1  330,140:"CARRY IF THE SUM":30,160:"EXCEEDS 10": 45,150:"THE CARRY=";VC(T1): &30,150:"THE PREVIOUS CARRY=";VC(T): 50,150:"PRESS CR": Z1466:446 U448,456 UZ1474 Z3U3464  466:LT1:468:Z3452 LT3:468:454 LT2:468:LT4:468  470:Z3460 LT2:468:462 LT1:468:LT3:468 280: 472:LT2:468: 0(306(ZT),30U10)(616(ZT),40U10),,BF: *(30,3010(ULT))(91,4010(ULT)),,BF: 0(306(ZT),30U10)(566(ZT),40U10),,BF: 0(306(ZT),30U10)(506(ZT),40U10),,BF: 8(306(ZT),3010(U1))(616(ZT),4010(U1)),,BF: Z484,480,480 8322:51,13ACCPAYAB.LE ADDITION.TUTCHEQUEBK. EASYWRIT.ER FILESYST.EM "LRNALPHA.BET'LRNTOCOU.NT 3LOANMORT.GAG?MAILINGL.ISTCMULTIPLI.TUTHMUSICEDI.TORVSHAPECOL.OR _SPELLING.TUTfSPRITEED.ITRpSUBTRACT.TUTvTYPINGTR.AINROCKETMA.THSWATCHMED.RAW  !#$%&()*+,-./012456789:;<=>@ABDEFGIJKLMNOTUWXYZ[\]^`abcdeghijklmnoqrstuwxyz{|}~Á’0:"THIS IS THE":45,140:"CORRECT ANSWER.": U1Z:482:U:486: .R1Z2:576(ZRU),30U10:PR(U,R)::R: ,R13:516(ZR),30Z10:PR(Z1,R)::R: 0R12Z1:516(ZR),50Z10:PR(Z1,R)::R: s2,2:1,4,,4::1,11,(10,0)(255,191),4:1,12,(15,30)(248,23),4:1,12,(15,75)(248,68),4:M$"MULTIPLICATION TUTOR" ](17):12,46:M$:(16):6:74,90:"EDUCATIONAL PROGRAM":62,98:"FOR THE GRANDSTAND SEGA" ,41,176:13:"(C) 1984 ";J$:J$"":U1220: @15,1,(58,128)(200,140),4:60,131:"PLEASE PRESS CR TO BEGIN": 526:Q13500 :J$"": N60,140:"ENTER THE":60,160:"NEW DIGIT !":(56Z6Y,88)(61Z6Y,96),,BF: C2,1::4,1,(0,0)(255,191),1:2,2:J$"Grandstand Leisure Ltd":509 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: +D152:X,Y:(X102,Y102),15::"" n 7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3  18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5 6(110,86)(230,95),10,BF:(17):115,87:"GRANDSTAND" .(120,128)(232,136),6,BF:120,129:"PRESENTS" @(78,151)(200,160),3,BF:(16):79,152:"Multiplication Tutor" _S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0" 1:0,(221,148),0,15 ""518   48:58 + Q114:Q1,Q2,Q3,Q4:(Q1,Q2)(Q3,Q4),C:: Q$ˀ:Q$""526 Qˀ(Q$): HPR(4,8),CY(3,8),HC(3,8),AN(4,8),MS1(4),SM2(4),YC(8),VC(8),CC(4),CP(4): 0:DLY1400:DLY:9000 DLY1400:DLY:AG1: :1250 A$ˀ:A$""20 +Aˀ(A$):(A27A32)A27140,150,160,170 (A80510 2A69TP1:BT101:MD1:YM1:620 "<A86TP167:BT182:MD3:YM1:650 PA13420 ZA83700 dA68770 #nA78TP120:BT135:MD2:YM5:1040 xA731080 }A72920 20 X8:NUMNUM1:200 X8:NUMNUM1:290 YYM:180 YYM YY(CH)YTPYY(CH)YBT20 ZYY(CH)YY(CH)Y:(&H3B04),YY(CH):MD230,240,250:(187,145)(236,153),,BF:187,145:PH:20 20 XX(CH)X168NUMNUM1:20 $XX(CH)XX(CH)X:(&H3B05),XX(CH):X0 340:360:380:20 (PH1010YY(CH)10110:CH,PH,V(CH,NUM): &PH(YY(CH)115)51:CH,PH,V(CH,NUM): +VH182YY(CH):VH7VHVHY:YY(CH)YY(CH)Y CH,P(CH,NUM1),VH:PHVH: PYˀ(P(CH,NUM)1120)104: PYP(CH,NUM)5124: PY186V(CH,NUM): "XX(CH)X16NUMNUM1:20 ,XX(CH)XX(CH)X:(&H3B05),XX(CH) D6MD260,270,280:PY190(&H2000Ā(PY8)256Ā(XX(CH)8)8PY8),0 @360 J380:20 KTMD3V(CH,NUM1)30000280:(&H2000Ā(PY8)256Ā(XX(CH)8)8PY8),0: YZP(CH,NUM)30000NUMMAX(CH)1MD260,270:(&H2000Ā(PY8)256Ā(XX(CH)8)8PY8),0: ^ h((((YY(CH)4)8)256Ā(XX(CH)8)8(YY(CH)4)8)),&H01:(&H2000(((YY(CH)4)8)256Ā(XX(CH)8)8(YY(CH)4)8)),C(CH): r |MD230,240,250 MD3P(CH,NUM)PH MD3V(CH,NUM)VH P(CH,NUM)300000:390 5CH,P(CH,NUM),V(CH,NUM):NUMMAX(CH)MD3MAX(CH)NUM  CNUMNUM1:XX(CH)XX(CH)8:XX(CH)168NUMNUM1:XX(CH)XX(CH)8:20  \XX(CH)XX(CH)8:NUMNUM1:XX(CH)8MAX(CH)8NUMNUM1:XX(CH)XX(CH)8:(&H3B05),XX(CH):20 YMD260,270,280:YY(CH)PY4:CH,P(CH,NUM),V(CH,NUM):(&H3B04),YY(CH):(&H3B05),XX(CH):20 50:1:(187,145)(255,153),,BF:187,145:"Channel? "; A$ˀ:A$""450 3Aˀ(A$)48:A1A29(187,145)(255,153),,BF:440 (A5A29(187,145)(255,153),,BF:440 "(A48);::DE0100::A29A6 CHA:0,(174CH12,126),0,C(CH) (187,145)(255,153),,BF: 2,(177,20),2,1:440 T1:CH6590 RMAX(CH)0T0187,145:"NO music!":DE0100::(187,145)(255,153),,BF:580:20 I1MAX(CH) E&(CH4CH5)P(CH,I)300000:1,(I88,146),1,1:DE0S2:DE,I:570 60CH,P(CH,I),V(CH,I):1,(8I8,146),1,1:DE0S2:DE,I :2,(177,5),2,1 9D0:CH1:XX(CH)MAX(CH)88:NUMMAX(CH):260:PY190PY54 IYY(CH)PY4:1420:20 (NPMAX4:I14:PL(I)0::187,145:"MIX"; OA$ˀ:A$""591 PAˀ(A$)48:(A1A5)A35591 QA35601 ZRMAX(A)0187,154:"Empty!":DE0100::(187,154)(255,161),,BF:2118(4PMAX),145:591 TK14PMAX:PL(K)ATESTK1 $U(A4A5)(PL(K)4PL(K)5)TESTK1 V:TESTK1TESTK0:591 (WA;:PMAXPMAX1:PL(4PMAX)A:PMAX0601 X591 &YI14PMAX:MAX(PL(I))TTMAX(PL(I)) Z [PL(1)0610 c\I1T:J1(4PMAX):IMAX(PL(J))PL(J),P(PL(J),I),0:J:1,(I88,146),1,1:DE0S1.5:DE,I:610 D]PL(J),P(PL(J),I),V(PL(J),I):J:1,(I88,146),1,1:DE0S1.5:DE,I $b(187,145)(255,153),,BF:0:580:20 l2,(177,5),2,1:440 vCH3CH1:1430:620 ,{MAX(CH)00:XX(CH)8:YY(CH)50:NUM0:1430 H}MAX(CH)0XX(CH)MAX(CH)88:NUMXX(CH)81:MD260,270,280:YY(CH)PY4 1,(XX(CH),YY(CH)),1,1:20 2,(177,65),2,1:440 CH61420:650 1MD3:1,(8,175),1,1:XX(CH)8:YY(CH)176:NUM0:20 C0:2,(177,35),2,1:1:(187,145)(255,153),,BF:187,145:" Speed?"; I12 A$ˀ:A$""720 Aˀ(A$)48:A0A9720 :A;(29);:S(I)A: SS(1)10S(2):S0S1 .DE0100::(187,145)(255,153),,BF:1420:20 )2,(177,80),2,1:440:CH6CH1:1420:20 J MAX(CH)0187,145:"NO music!":DE0100::(187,145)(255,153),,BF:820 I121:XII88 _ NUMI:P(CH,I)0P(CH,I)30000CH260,260,260,270,270:(&H2000Ā(PY8)256Ā(XI8)8PY8),0 "CH4P(CH,I)30000 %CH3P(CH,I)0 W*V(CH,I)0V(CH,I)30000280:(&H2000Ā(PY8)256Ā(XI8)8PY8),0:V(CH,I)7::820 / 4(176,166)(176,190),6:(177,167)(177,191):(176,119)(176,144):(177,144)(177,120):MAX(CH)0:CH1:XX(CH)8:YY(CH)50:1:1420:20 >1,2::15,4:1,1 H" MUSIC EDITOR " tR" Introduction This program is designed to show " t\" you how to create music & sound on your SEGA SC-3000. Use the cursor keys to draw the tone you " Nf" wish to play. The CR key moves the cursor 1 space to the right. " tp" without changing any notes. " z"00:00:00" A$ˀ:A$""̀"00:00:10"900 :2,2: 0:1,2::15,4:1,1 " MUSIC EDITOR " t" Menu Edit:- Alter the music channels " t" 1-3 in the upper box. Play:- Play a channel or any combination of channels. " t" Only 1 noise (4 OR 5) Speed:- Change speed (01-99) Noise:- Alter Noise channels 4&5." N" Volume:- Alter the volume of any channel. " t" Delete:- Remove any channel Info:- Gives the sound data allowing you to put the " " sound you have created into a BASIC program. " "00:00:00" A$ˀ:A$""̀"00:00:10"1010 :2,2:20 P(CH,I) 2,(177,50),2,1:440 CH4CH5CH1:1430: 1040 '$MAX(CH)00:XX(CH)8:YY(CH)130:1430 2)270:YY(CH)PY4:XX(CH)MAX(CH)88:NUMXX(CH)81 .1,(XX(CH),YY(CH)),1,1:20 80:1,2:15,4::1,1 ?B"IS THERE A SEGA SP-400 PLOTTER/PRINTERCONNECTED (Y/N)...";YN$ LYN$"Y"TEST1 KV"FOR WHICH CHANNEL OF SOUND DO YOU WANTTHE SOUND DATA LISTED (1-5)...";LCH `LCH1LCH51110 j 6tMAX(LCH)1"CHANNEL";LCH;" EMPTY.":DE0100::1200 yTEST11155 Q~"CH";LCH;" TONE VOLUME DELAY ":1160 f"CH";LCH;" TONE VOLUME DELAY ":"PRINTING:- PLEASE WAIT." I1MAX(LCH) TEST11190 3I;(6);(P(LCH,I));(13);V(LCH,I);(21);S::1200 -I;(6);(P(LCH,I));(13);V(LCH,I);(21);S: "PRESS ANY KEY TO CONTINUE." A$ˀ:A$""1210 T0::2,2:CH1:XX(CH)MAX(CH)88:NUMMAX(CH):260:YY(CH)PY4:MD1:BT101:TP1:580 0  :(19) 2,1::4,1,(0,0)(255,191),1:2,2:1300:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)1320 ! (X102,Y102),15::""1320 1280:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4 25,5,0,0 ((110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(128,150)(210,159),3,BF:(16):130,152:"Music Editor":0,(220,148),0,15 2""1330 <1370 *F2,1::15,15,(0,0)(255,191),15:2,2:830 P(6,0)(177,110),6,B:(7,1)(176,109),,B:(6,119)(177,144),,B:(7,120)(176,143),,B:(6,166)(177,191),,B:(7,167)(176,190),,B:(184,123)(255,136),4,B vZ4:8,157:"Volume":I19:187,I1510:A$:A$::Edit,Play,Speed,Noise,Volume,Delete,Help!!!,Information,1 2 3 4 5 M 'd1:206,170:"MUSIC":203,180:"EDITOR" nP(5,22),V(5,22),C(6),MAX(6),PL(4),XX(5),YY(5),S(2):I13:YY(I)50:XX(I)8::I45:XX(I)8:YY(I)130::C(1)8:C(2)5:C(3)12:C(4)10:C(5)13:C(6)1:S50 axI13:J021:V(I,J)7:P(I,J)30000:J,I:I45:J021:V(I,J)7:P(I,J)0:J,I:I15:V(I,1)6: GS#0,"000000000000FEFE":S#1,"10107C007C101000":S#2,"04021F0204000000" CH1 $YM1:MD1:NUMXX(CH)81:BT101:TP1 C0:0,(174CH12,126),0,C(CH):2,(177,5),2,1:1,(XX(CH),YY(CH)),1,1  (200,140),4:60,131:"PLEASE PRESS CR TO BEGIN": 526:Q13500 :J$"": N60,140:"ENTER THE":60,160:"NEW DIGIT !":(56Z6Y,88)(61Z6Y,96),,BF: C2,1::4,1,(0,0)(255,191),1:2,2:J$"Grandstand Leisure Ltd":509 Y& 2,1::4,1,(0,0)(255,191),1:2,2:40 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: +D152:X,Y:(X102,Y102),15::"" (7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5 2(110,86)(248,95),6,BF:(17):116,87:"GRANDSTAND":(130,127)(232,136),10,BF:136,129:"PRESENTS":(70,152)(210,160),3,BF:(16):76,153:"Shape and Colour Quiz" t<S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1:0,(220,148),0,15 F""70 P0,(220,148),0,0  S#0,"FFFFFFFFFFFFFFFF"  S#1,"FFFFFFFFFFFFFFFF"  S#2,"FFFFFFFFFFFFFFFF"  S#3,"FFFFFFFFFFFFFFFF" CIRCLE  S#4,"01071F3F7F7FFFFF"  S#5,"FFFF7F7F3F1F0701"  S#6,"80E0F8FCFEFEFFFF"  S#7,"FFFFFEFEFCF8E080" TRIANGLE  S#8,"0101030307070F0F"  S#9,"1F1F3F3F7F7FFFFF"  S#10,"8080C0C0E0E0F0F0"  S#11,"F8F8FCFCFEFEFFFF" DIAMOND  S#12,"0103070F1F3F7FFF" " S#13,"FF7F3F1F0F070301" , S#14,"80C0E0F0F8FCFEFF" 6 S#15,"FFFEFCF8F0E0C080" @BLOB J S#16,"000171F9F8FCFFFF" T S#17,"67071F7EFCF8F870" ^ S#18,"F0F8F8F2E7EFFFFF" h S#19,"E6E0F83E3F1F1F0E" rTABLES |:LS0:TB110: (22)  430  C0 5  CT$(C),SC(C),SN$(C)  C  Green,2,Square,Blue,4,Circle  Red,8,Triangle  Yellow,10,Diamond  Purple,13,Blob,White,15,""  2,2:1,,,1:1,1:  (17):LS2 H$"This is a Game":YY60: 1790 H$"of SHAPES":YY80: 1790 H$"and COLOURS":YY100: 1790  990:MT14: 1880 1  &&:H$"Here are the Shapes":YY0: 1790 0 C0 4 : C,(40,C3030),C4,SC(C) DH$SN$(C):YYC3035: 1790 N C XMT12: 1880 &bH$"Here are the Colours":YY15: 1790 l C0 4 q (16):LS1 :vH$" "CT$(C):YYC3035: 1790  0,YY: SC(C)  ((40HH)2);H$  C &H$"And of course White":YY180: 1790 MT13: 1880  DE0 400: DE %:H$"I will ask you to":YY60: 1790  990:MT14: 1880 $H$"count some SHAPES,":YY80: 1790 MT12: 1880 1H$"type the Answer and press 'CR'":YY100: 1790 MT13: 1880  DE0 400: DE   C0 5 ST(C)0:CT(C)0   C *N0:W0:CK0:SK0 4:(31,0)(101,189),14,B > 990 H Y0 10 R X0 3 \XSX1733 fYSY171 #p (1).5 DE0 24: DE: 930 zSNˀ(1)20:ST(SN4)ST(SN4)1 Cˀ(1)6:CT(C)CT(C)1  N,(XS,YS),SN,SC(C) NN1: N31 N0  P1,P2  1,P1,15: 2,P2,15  X  Y  DE0 40: DE 0  523,131,659,131,784,147  659,147,698,165,587,165  494,175,587,175,523,196  659,196,784,175,659,165  587,147,587,147,587,147  523,131,659,131,784,147  659,147,698,165,587,165 $ 494,175,587,175,523,196 . 659,196,587,220,494,247 8 523,262,659,262,784,262 B 659,131,784,147 L 659,147,698,165,587,165 V 494,175,587,175,523,196 ` 659,196,587,220,494,247 j 523,262,523,262,523,262 t ~  = (16):LS2: TB,0:15:"How many Shapes ? ";:"00:00:00" LL2: 1970  AAN 1330 NNN:WW1  W4 1310  2230  CC0 25  TB,30 ' CC 132:"You'd better start again"  P1,P2 1,P1,15:2,P2,15  CC  0  390 Y10: 2190 (WW1: 1170 2Y10: 2410 < F N20 140 20 PRDˀ(1) ZCˀ((1)6) dSˀ((1)5) n TB,N: 15:"How many "; x RD.45 1520  NNCT(C)  CK6 1520  NN1 1370 " SC(C): CT$(C);"s";: 15:" ? ";  1970: AANN 1490 Y1N: 2190  1390 Y1N: 2410 CT(C)1:CKCK1: 1610  NNST(S)  SK5 1420  NN1 1380  SN$(S);"s ? ";  1970: AANN 1590 "Y1N: 2190 , 1390 6Y1N: 2410 @ST(S)1:SKSK1 J N ,T TB,N:15:"You got";:8: W;:15:" wrong" #^ TB,N20:"Your time is ";(,4) h 2530:MT18: 1880 r"00:00:00" |Q$ˀ  "00:00:59" 390  Q$"" 1660 6: (17):LS2:H$"Another Game (Y/N) ?":YY75: 1790 "00:00:00" Q$ˀ  "00:00:59" 390  Q$"Y" 780  Q$"N" 1710 :H$"THE END":YY75: 1790  "" 1760 : HEADINGS HHˀ(H$)  CC2 15  0,YY: CC  (((40LS)HH)2);H$ &3,4000CC200,0:4,3,15 0 CC :0 D NMUSIC X MM0 MT b P1,P2 l1,P1,15:2,P2,15 v DE0 40: DE  MM  DE0 40: DE 0  INPUT A$"":L0 BET$ˀ(,4)Ā(((,5,1))1)Ā(,3):ET$ˀ(ET$,4)Ā(ET$,4) Q$ˀ  ET$ 390  Q$"" 1990  Qˀ(Q$): Q13 2100 ? Q8 L0 (29);(8);(29);:LL1:A$ˀ(A$,L): 1980  Q48 Q57 1980  LL1: LLL LL1: 1980 A$A$Q$:A$ˀ(A$,LL)   Q$; * 1990 4:AAˀ(A$) > H DELETE R 0,Y2 \ DDX1 X2 f (DD);(8); p DD z  INCORRECT ANSWER  TB,20Y1:8:"That is too ";  AANN "LOW"  AANN "HIGH"  2230:MT13: 1880  349,175,349,175,294,175  392,175,349,165,349,165  294,165,294,165  349,156,349,156,294,156  294,156,233,147,233,147  233,147,233,147  262,131,262,131,294,131  311,131,349,175,349,175  392,175,440,175,446,233  466,233  TB,40Y1:2:"Try again." $ DE0 200: DE . Y240Y1:X116:X239: 2130 8 Y220Y1: 2130 B Y200Y1: 2130 L WW1 V ` CORRECT ANSWER j 2530 t CC2 11 ~ TB,20Y1: CC  "That's Correct!!"  P1,P2  1,P1,15:2,P2,15  DE0 5: DE  CC  N140 2520  DE0 20: DE  0  Y220Y1:X116:X239: 2130  262,131,330,131,392,131  349,175,440,175,523,175  392,196,494,196,587,196  523,131,392,131,330,131  262,131,330,131,392,131  523,262,523,196  523,165,523,131 ( 2 the end ;(21);S::1200 -I;(6);(P(LCH,I));(13);V(LCH,I);(21);S: "PRESS ANY KEY TO CONTINUE." A$ˀ:A$""1210 T0::2,2:CH1:XX Z 4120: 2030 d INPUT ROUTINE nIP(0)0:IP$(0)""  IP$(3)ˀ: IP$(3)"" 240 D IP$(3)ƀ(&H0D)IP$(3)ƀ(8)(IP$(3)" " IP$(3)"~") 2: 240 & IP$(3)ˀ(8) IP$(0)"" 2: 240  :IP$(2)IP$(1):IP(4)0 # IP$(2)"" 330: NOT SELECTED 0" (IP$(3)) (IP$(2)) 320 : NOT SELECTED (, (IP$(3)) ((IP$(2),2,1)) 320 6IP(4)1 : 330 : SELECTED 1@IP$(2)ˀ(IP$(2),(IP$(2))2) : 280 SELECTED J IP(2) IP(4) IP(4) T IP(4) : ,r IP$(3)ƀ(8) IP(0)1 IP(1) 2: 240 "|IP$(0)IP$(0)IP$(3):IP(0)IP(0)1 6 IP(0)1 IP$(3)ˀ(8) 2:IP(0)0:IP$(0)"": 220  IP(3) IP$(3);  IP$(3) (8) 220  SC$"T" 440 ;XX((IP(0)2)12)X11: (XX,Y1)(XX11,Y17),,BF: XX1,Y1 ,IP$(0)ˀ(IP$(0),(IP$(0))2):IP(0)IP(0)2  220  PAT. FOR STANDING MAN _S#0,"070F1F1F1F1F1C0C":S#1,"0404081010100831":S#2,"E0F0D098E4382040":S#3,"80402010080404FC" a&S#4,"402C140202060807":S#5,"0000000000000000":S#6,"04081020203804F8":S#7,"0000000000000000": X PAT. FOR WALKING MAN _bS#0,"0F1F3F3F3F3E3818":S#1,"0908102221201C63":S#2,"C0E0C030C8704080":S#3,"00804020F03848FC" aS#4,"80582808046A5528":S#5,"150D000000000000":S#6,"08102040405828D8":S#7,"20C0000000000000":  MAN WALKING 03:Y100: 500:X1X: 890: 600:X1X4: 890: z PUT MAN ON SCREEN  0,(X1,Y),0,1: 1,(X1,Y32),4,1 & 0,(X12,Y),0,1: 1,(X12,Y32),4,1:  MUSIC ROUTINE FOR THE MAN  B,D  B2 996: B,D: 3180  B1 990: B,D DDU:BB2 " 1,B,12: K 700,1500,1600,1750  P1 K 7 970  T1 D: T  0: C STMT 990:DATA FOR HUMPTY..SON 985 REM STMT 996:DATA FOR TWINKLE.. j 139,20,165,10,147,20,185,10,165,10,185,10,208,10,220,30,139,20,165,10,147,20,185,10,165,10,139,10,110,10  123,20,9900,10,139,10,9900,1,139,10,165,10,147,10,9900,1,147,10,185,10,165,10,185,10,208,10,220,30,277,10,9900,1,277,10,220,10,294,10,9900,1,294,10,277,10,247,10,220,10,208,10  220,30,-1,-1 c 131,20,131,20,196,20,196,20,220,10,220,20,196,40,175,20,175,20,165,20,165,20,147,20,147,20,131,40 c 196,20,196,20,175,20,175,20,165,20,165,20,147,40,196,20,196,20,175,20,175,20,165,20,165,20,147,40 i 131,20,131,20,196,20,196,20,220,20,220,20,196,40,175,20,175,20,165,20,165,20,147,20,147,20,131,40,-2,-2  ANIMATION AND CALL TO MUSIC l 2,2:3:S#10,"0000000000000000":S#11,"003C7E7E7E7E3C00":S#12,"0000000000000000":S#13,"0000000000000000" $ 31,(97,120),10,1 . P0 990: 1100 8 P1 996 B T11 3:K7:U4: 900: T1 L X54 80 8 VK1:U0.1000: 900: X j P1 1160 tK2:U1.0: 900:K4:U2: 900 yK3:U3.0: 900:U3.0 ~ T11 9:K6: 900: T1:  2Y100: 1500: 4,1,15: T1 10: T: 0: 600:T0  X100 230 15:TT1 ?YY10: 31,(X,Y),10,1: 1,X10,T5: X: 0: 31,(220,5),16,1:  KICK FIG.1 b3:S#0,"0F1F3F3F3F3E3818":S#1,"0908102221201C63":S#2,"C0E0C030C8704080":S#3,"00804020F03848FC" _S#4,"402C1404CAB48845":S#5,"2619010000000000":S#6,"04081020A0A0C030":S#7,"08F0000000000000" - 0,(90,100),0,1: 1,(90,132),4,1:K7: 900: @ MAN FALLS fT3:S#20,"0000000000000000":S#21,"0000000000000000":S#22,"0001020442A6B880":S#23,"8080B8A4A2410000" c|S#24,"000080B844434080":S#25,"8182848890E00000":S#26,"0000007CFEFF3F3F":S#27,"1F97772A28100000" ' 0,(110,120),20,1: 1,(142,120),24,1:  LAST STEP BEFORE FALL ) 600: 0,(90,100),0,1: 1,(90,132),4,1: l FLASHING STAR hv 2,2:S#0,"08087E3C18382848":S#1,"0000000000000000":S#2,"0000000000000000":S#3,"0000000000000000":3 J 0,(199,50),0,V:S#0,"0000000000000000": 0,(199,50),0,V: T1 15: T:  IK 15 IK1  3,110,IK: 4,3,IK:  IP(4): IP$(3) cIP$(1)ˀ(&H0D)Ā(&H0D):IP(1)15: IP(2)0:IP(3)1: 2,2: : 1,10: 2,2:: 1,12,,15:Y150: 30,Y1 -4 (17);" * a * b * c * d ":Y1Y120: 30,Y1 &> "e f":Y1Y120: 30,Y1 &H "* Spelling Bee *":Y1Y120: 30,Y1 &R "g h":Y1Y120: 30,Y1 -\ " * i * j * k * l ":Y1Y120: 30,Y1: 3920 p CLEAR MATRIX zC15:R31  F$(R),SMT$(R),SEL(R) + ROW1 R:SMT$(ROW)"":F$(ROW)"": ROW  I1 15: I  STORE ENTIES  1,1:  1,8: "Please type ": 4,10: "C :if you want CAPITAL letters": 4,12: "S :if you want small letters.": 1,14: "and press CR key.": 14,17: " ? ";: SC$"T": 100:C$IP$(0): " "PARENTS:please enter the words"  "one at a time.": m "You can have up to 30 words of up to 15 characters.Words can be ": "letters , numbers or symbols." ) : "Correct errors with INS/DEL key.": # "Press CR key after each word.": 9 "When finished simply press CR key.":FLAG0:Y14:RTR . C$"S" C$"s" LT1 8 C$"C" C$"c" LT0 B 13,10,1,LT G FLAG0 L ROW1 R:FLAG FLAG V Y 23 :Y14 ` FLAG 1,Y:YY1: 2420 j 20,Y1:YY1 t ROW;"?"; ~ SC$"T": 100:W$IP$(0) D ROW1 W$"" 2:: 5,13: "You did not type any words": 2375 " W$"" ROW29 RTROW1: 2480 SMT$(ROW)W$: ROW: RT0 RT1 UNIQUE SEL 0,24,1,LT  TX100:: 10,13 5 : "Please STANDBY while I mix the words.";:SCR0:  N1 RT:SEL(N)0: N  get KEYBOARD ENTRY  Xˀ(RT(1)1):N1  RT1 SEL(N)RT: 2610  SEL(N)0 SEL(N)X  SEL(N)X 2550  NN1: NRT SEL(N)X: 2610 ( 2570 2 pr sel < 1,12:CN12 F N1 RT:ROWSEL(N) $P 2,2:: 1,CN: 3630: 3710: 35,30 0n SMT$(ROW)"" ;SMT$(ROW);:HZˀ(SMT$(ROW)) &x T1 TX: T: (35,30)(215,37),,BF ' 35,45: NX1 HZ: ".";: NX: 35,40  18,22: ;" type the word":  get KEYBOARD ENTRY  35,40:X135:Y140 + IP(1)ˀ(SMT$(ROW)):SC$"G": 100:W$IP$(0)  CNˀ(15(1))  CN 14 CN2  CN1 CN2  1,CN  SMT$(ROW)"" 2800 W$SMT$(ROW) (W$) (SMT$(ROW)) F$(ROW)SMT$(ROW):SCRSCR1:TXTX(0.8TX): 35,60: ;"try again": : T1 1 : T:P0: 1000: 2640 ' 30,60: ;" CORRECT ": :P1: 1000 B 10,30: ;" "; :SCRSCR1:TXTX(0.8TX): TX10 TX10  T1 25: T: N  1,1::IP(1)15 " FSˀ((SCRRT)100): FS0 FS0 W6 : 0,10: (16);"Thats the end of the new spelling list":: T11 222: T1:: 6,10 3J "Your score is ";FS;" % .": :: I1 100: I: dT FS100 2,2:: 100,50: (17); "WOW !": 90,100: (16);"NONE MISSED": 4000: 1,1:: 2970 *^ FS89 12,14: "VERY GOOD":: 3030 &h FS79 14,14: " GOOD":: 3030 %r FS69 14,14: " FAIR":: 3030 H| 6,13: "No worries you will be better": 6,15: "next time.":: 3030 - : 2,1:" TRY THE FOLLOWING WORDS AGAIN"::  3550: K1 999: K : 1,8:"If you want to repeat this section": 4,10: "with the same words : type SAME ": 4,12: "with the new words : type NEW.": 1,14: "Press CR key to end.":: (17); . 10,17: "? ": 12,17:SC$"T": 100:Z$IP$(0)  FLAG FLAG FLAG ( (Z$,1)"N" (Z$,1)"n" 2240 & (Z$,1)"S" (Z$,1)"s" 2500 0,24,1,0  5620 SCORE SOUND  3090 T11 31  B,D & DD3:BB2: 1,B,10: L1 D: L: 0  T1  2950  247,10,220,10,196,10,147,10,123,10,147,10,196,30,196,10,220,10,220,10,220,10,220,10,220,30,220,10,247,10,247,10,247,10,247,5,247,5,262,10,262,5,262,5,262,10,262,5,262,5 3 247,10,247,10,220,10,220,10,196,20,9900,10,147,10 fail list  Y3:FLAG0: 1,Y:I1 N1 R E F$(N)"" : I;: " ";: F$(N): T1 33: T:FLAG FLAG:II1  F$(N)"" 3620  FLAG 20,Y: 3620 YY1: 1,Y $ N: . BEE FRAME ,8: 0,0: (17);" * * * * * * * * * ":Y216 9V I1 10: : 0,Y2: " * *":Y2Y216: I #j : 0,Y2: " * * * * * * * * * ": ~ FLYING BEE S#15,"18997E187E991800":1:S#16,"0000000000000000":S#17,"0000000000000000":S#18,"0000000000000000":S#19,"0000000000000000" Y10:IK0  X15 200 12 ' 0,(X,Y),15,1:IKIK2: 2010: X:X200  Y32 160 12 ' 0,(X,Y),15,1:IKIK2: 2010: Y:Y155  X200 15 12 & 0,(X,Y),15,1:IKIK2: 2010: X:X15 X15:S0  Y155 0 12 !( 0,(X,Y),15,1:IKIK2: 2010: Y )<S#15,"0000000000000000": S,(5,0),15,1: P MUSIC FOR START Z 996:I1 nK6:U3:V2: H1 42: 900 xII1: I 15 I1  0,10,,I: H:0,10,,5:  MUSIC FOR SCORE 100%  996:V1  M1 28  B,D: B2 996: B,D DD1:BB2 4 1,B,12: 1900: L1 D: L: 0:VV1: V16 V1  M   FIRST SCREEN " 2,1: 4,1,,1:: 2,2:4160 ,Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: +6D152:X,Y:(X102,Y102),15::"" @ 7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5 7J(110,86)(230,95),10,BF:(17):115,87: "GRANDSTAND" .T(120,128)(232,136),6,BF:120,129:"PRESENTS" <^(123,151)(200,160),3,BF:(16):124,152:"Spelling Tutor" _hS#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0" r1:0,(221,148),0,15 |"" 4220  B0 300: B: 3 1,1:: 11,10: "Thank you":: 12,13: "BYE-BYE"  400:DLY:AG1:2,1::4,1,(0,0)(255,191),1: 2,2:5:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)6 (X102,Y102),15::""6 3:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(120,161)(200,152),3,BF:(16):127,153:"Sprite Editor":0,(220,148),0,15 ""7 < BY Andrew Snowball F240 ZQ$ˀ:Q$""200 dQˀ(Q$):750 xQ13720:200 %Q27Q32Q27780,800,820,840:200 "(Q47Q58)(Q64Q71)870:200 FQ70Q81Q70930,1170,1190,1560,1610,1700,1740,1940,2040,2350:200  XXMXA,YYMYA (8);(29);(T$(Y),X1,1); 90 1,1:15,1: :(22) (" " (" Creating Sprites " (" " ("" Grandstand Leisure LtD " (," " (6" FUNCTION MENU " (@" " (J" G - Cover all sprites " (T" H - Move to home " (^" I - Invert (V - Vertical) " (h" (H - Horizontal) " (r" J - Jump to sprite X " (|" K - Copy a sprite " (" L - Look at this Menu " (" M - Alter Magnitude " (" N - Make a Negative " (" O - Order a Demostration " (" P - Obtain a Printout " (" " (" [C] APRIL 1984 " (" " "00:00:00" ""̀"00:00:10"480 750:T$(15),L(15),J(15) 2,2:1,1:1,,,1: (12,35)(104,132),15,B (110,21)(245,165),15,B 3:XA130:XM7:YA30:YM8 (11:(17);" SPRITES PATTERNS";(16) &8:::(7);"MAG 3" 0640:13:J015 :X,Y:X,Y DX0J N110,JYMYA:J:750 XT$(J)"0000000000000000" bS#J,T$(J) l:15:X0:Y0:M1 v1740: 10,40,10,71,40,40,0,0 57,40,0,0,87,40,87,71 10,87,10,120,0,0,38,120 0,0,52,120,83,87,83,120 S#Y,T$(Y):750 1040:720: X0:YY1:Y15Y0  1,879,10:DE05 DE:0:  XX1:X15X0   XX1:X0X15 * 4YY1:Y0Y15 > HYY1:Y15Y0 R !fXXMXA,YYMYA:(8);(29);Q$ #pT$(Y)ˀ(T$(Y),X)Q$Ā(T$(Y),15X) zS#Y,T$(Y) XX1:X15720  50,170:"Cover with what No? "; Q$ˀ:Q$""940 #Qˀ(Q$):Q48(Q57Q65)Q70940 Q$:750 Y015:T$(Y)"" X015:T$(Y)T$(Y)Q$ XXMXA,YYMYA :(XXMXA,YYMYA)(XXMXA6,YYMYA7),1,BF:15:Q$:750 :S#Y,T$(Y):750 :X0:Y0:1170:1040: 0,170 DE038:(8);: $ 8A$"":L0 BI$ˀ:I$""1090 L750:Iˀ(I$) VI131140 >`I8L0A$ˀ(A$,(A$)1):(29);(8);(29);:LL1:1090 jI$;:A$A$I$:LL1:1090 tAAˀ(A$): X0:Y0: 33,170:J$T$(Y):T$(Y)"" !"Vertical or Horizontal? (H/V)"; Q$ˀ:Q$"H"1320 Q$"V"1210 Q$ 750 K1502 T$(Y)T$(Y)Ā(J$,K,2) :K015 KXMXA,YYMYA  (8);(29);(T$(Y),K1,1) :1040:1540 (Q$ 2750 <K015 FIˀ((J$,K1,1))48 PI16II7 TZI11470,1480,1490,1500,1490,1500,1470,1510,1480,1470,1500,1520,1500,1520,1510,1470 dJ(K)I: nK0152 xL(K)J(K1):L(K1)J(K)  K015 T$(Y)T$(Y)Ā(L(K)) KXMXA,YYMYA (8);(29);(T$(Y),K1,1) :1040:1540  I9I: I6I: I15I: I21I: I24I:  690: 50,170 ""Jump to which Sprite?"; ,1080:AA151580 61040:YAA: J50,170 T"Copy which Sprite?"; ^1080:AA151630 hK015 rKXMXA,YYMYA |(8);(29);(T$(AA),K1,1) :T$(Y)T$(AA):690 1040: 1,1:"00:00:00" ""̀"00:00:10"1710 750:2,2: M1860,1770,1780 74,24:8 (8);(29);(29);M 15: (24,50)(89,115),4,B (39,67)(72,100),4,B 0,(40,67),0,15 1,(40,83),8,15 2,(56,67),4,15 &3,(56,83),12,15 01:M1: D(39,67)(72,100),4,B N(24,50)(89,115),4,B X0,(25,50),0,15 b1,(25,82),8,15 l2,(57,50),4,15 v3,(57,82),12,15 3:M3: 50,170 "Negative of sprite:";Y J$"":K015 Hˀ((T$(Y),K1,1))48 H16HH7 J$J$Ā(15H) KXMXA,YYMYA (8);(29);(J$,K1,1) :T$(Y)J$:690:1040: 2160:50,170 "Do you want a demo?";  Q$ˀ:"Y"Q$"N"2060 750:Q$ Q$"N"2150 *1740:15:J015 4T$(J):K015 >KXMXA,JYMYA H(8);(29);(T$(J),K1,1) R:S#J,T$(J):750 \:1740 f1040: p7CE6C0C0C0E07C0E z06060606CE7C0000 7CE6C0C0C0F8C0C0 C0C0C0C0E67C003E 7CE6C0C0C0CEC6C6 C6C6C6C6EE7C00F8 7CEEC6C6C6FEC6C6 00FE060C18307C0E 060606060606CE7C 303E06063E007CEE C6C6C6C6C6C6EE7C C0C3C0C0F8007CEE C6C6C6C6C6C6EE7C 00C000007CEEC6C6 C6C6C6C6C6C6EE7C  FF818181818181FF &. 50,170:"Printout of which sprite? "; 8 1080:AA152350 *B "PATTERN S#";AA;",";(34);T$(AA);(34) L 1040:  1040: 18,22: ;" type the word":  get KEYBOARD ENTRY  35,40:X135:Y140 + IP(1)ˀ(SMT$(ROW)):SC$"G": 100:W$IP$(0)  CNˀ(15(1))  CN 14 Rˀ(1)::2,1:1,4,,4:576 416 1,15 B1,1::4,15:10,0:"SUBTRACTION TUTOR":10,1:"" 2,3:"This program is designed to increase";:"your subtraction skills. Your computer";:"teacher will lead you through a series";:"of problems. He will find your mis-"; "takes, correct them if you can't, and";:"provide help when you ask for it."::" When a problem is presented to you,";:"a question mark will appear in the";:"answer line of the sum. This means"; "your teacher wants you to type in the";:"digit which should appear in this";:"position. When you have finished your";:"answer, press the 'CR' key." n:" There are five levels of difficulty.";:"Level one is the easiest, and level";:"five the hardest.": #"KEY IN THE LEVEL NUMBER (1~5): "; L$ˀ: L$"" 20  L$"1" L$"5" 20  L$;: T:2,1:1,15,,15:: 2,2:90,8:10:"SUBTRACTION":8:114,28:"IS":4:111,48:"FUN" 112 66  1: L$"1" XBXB2 " XL,50: JN: XB,65: " -";SN $27,80:"" &27,100:"" (S#0,"00001F1F18181818" *S#1,"181818181F1F0000" ,S#2,"0000F8F818181818" .S#3,"18181818F8F80000" 0 DASDIS1 C115:C215:X2 20,(X,Y),0,C1 4 DASDIS C115:QX:X2 61,(X,Y15),0,C1 84 : DASDIS XQ <S#4,"7088881020002000" >4,(X3,88),4,C2 @C24:190 B RANDOM NUMBER GENERATORS DN1ˀ(1): N10.168 FN2ˀ(1): N20.170 HPˀ(L$) +JJNˀ(N1(10(P)0.5)10):LD1:TMJN:434 -LSNˀ(N210(10(P1)0.5)):LD2:TMSN:434 NANSJNSN:DNSANS PCNCN1:LIMITP1 RDNSDNS.1 T DNS1 80 V CN0 96 XDNSDNS10 ZTMPˀ(DNS):DNSDNSTMP \AN2(CN)TMP ^CNCN1:86 ` NUMBER DISPLAY b JN100 DIS1: 108 +d JN1000 XLXLV:XBXB(V2):DIS2: 108 4f JN10000 XLXL(V2):XBXB((V2)2):DIS3: 108 5h JN100000 XLXL(V3):XBXB((V3)2):DIS4: 108 6j JN1000000 XLXL(V4):XBXB((V4)2):DIS5: 108 l n468 p TEACHER DISPLAY r(200,80),30,1,1.5 t(210,65),6 v(210,65),2,,,,,BF x(190,65),6 z(190,65),2,,,,,BF |(200,65),5,1,,.6,.9 ~(200,80),5,1,2.5,.92,.6 (200,80),15,1,2,.15,.35 Cˀ(1)112 (196,36)(194,7),C (190,38)(186,9),C (186,40)(177,12),C (183,42)(167,14),C (180,45)(161,22),C (177,47)(157,32),C (178,51)(154,39),C (177,54)(152,47),C (204,36)(206,7),C (210,38)(214,9),C (214,40)(223,12),C (217,42)(233,14),C (220,45)(239,22),C (223,47)(243,32),C (222,51)(246,39),C (223,54)(248,46),C (185,145),25,1,,.5,.75 (215,145),25,1,,.75 (170,145)(240,145),1  BALOON (90,155),70,1,0.5,0,.95, (160,155)(200,110),1 (158,146)(200,110),1 CVˀ(1)112 (200,140),CV (175,130),CV 1:42,130:"LETS WORK IT OUT" LEV0:49,140:"STEP BY STEP.":30,150:"PRESS H FOR HELP":30,160:" DEL TO DELETE":30,170:" CR TO ENTER":86,180:"ANSWER"   ANSWER INPUT X59 DASDAS1 C112  DAS1 DAS1 A$ˀ: A$"" 200 C112 Aˀ(A$)  DASDIS1 268 A47 212 214  A58 LEV0::276  A8 :294 A13 306  A72 :534 200  DAS1 XDX3:XX6:234 DAS2 XDX(V3):XX12:234 $ DAS3 XDX((V2)3):XX19:234 $ DAS4 XDX((V3)3):XX24:234 $ DAS5 XDX((V4)3):XX32:234 " DASDIS1 XDX((V5)3):XXX D1 242 S#4,"7088881020002000" 4,(X2,88),4,C2 1:XD,90:A$:A$"" D0:40 194  DELETE ANSWER POSITION  DAS1 DAS1 XL52:D1 / DAS2 (XL10,YL37)(XL15,YL50),,BF:264 - DAS3 (XL4,YL37)(XL9,YL50),,BF:264 - DAS4 (XL2,YL37)(XL2,YL50),,BF:264 - DAS5 (XL9,YL37)(XL4,YL50),,BF:264 ) DAS6 (XL14,YL37)(XL9,YL50),,BF * DAS7 (XL20,YL37)(XL15,YL50),,BF DASDAS2:222  194   A8 :294  A13 306 200 DASDAS1:194  STORE INPUT IN AN ARRAY  FOR ANSWER VERIFICATION  VALID NUMBER  CNT6 CNT6  CNT1 CNT0 CNTCNT1:AN$(CNT)A$  400 "184 $222 & DELETE NUMBER (400 *184 , CNT0 304 .AN$(CNT)" ":CNTCNT1 0 246 2 ANSWER CHECK *44,(2,10),4,15:0,(2,3),0,15:1,(2,5),0,15 6X159:Y2Y40:C34:B0 8 B1 LIMIT :Zˀ(AN$(B)) < >2,(X1(((B1)6)2),Y2),0,C3 @ DELAY B J1 70: J D ZAN2(B)328 FC315:DASB:334 H B J400 L476 N400 wP1:42,130:"ERROR IN THIS":34,140:"NUMBER. PRESS-":30,150:"1 TO CORRECT YOURSELF":30,160:"2 FOR ME TO CORRECT" R WRONG ANSWER SECTION T V1 5:: V VX359 XIA$ˀ: IA$"" 344 Z IA$"1" IA$"2" 344 \:400 T^X12: IA$"1" DASB1:(2,Y22)(X3(((B1)6)7),Y214),,BF:2,(X1,Y1),0,15:356 G` IA$"2" (2,Y22)(X3(((B1)6)7),Y214),,BF:2,(X1,Y1),0,15:362 b344 d STUDENT ASWER CONTINUED f184 hIA$"":CNTB1:D1:222 j COMPUTER ASWER l:X459:1 n(10,Y22)(X310,Y214),,BF p V1 LIMIT $r X4((V1)6)1,Y25: AN2(V):: V tIA$"":400 ;v42,130:"YOU CAN TRY":34,140:"HARDER NEXT TIME.":29,150 8x P1 26,150:"WHY NOT TRY A LOWER":30,160:"LEVEL?" ,z 65,160:" PRESS C TO":38,170:"CONTINUE." |GH$ˀ: GH$"" 380 ~ GH$"C" 386 380 :400 I50,130:"PRESS":40,150:"CR TO CONTINUE":40,160:"L TO CHANGE LEVELS" ND$ˀ: ND$"" 390 FJˀ(ND$)  FJ13 :528  FJ76 :532 390  CLEAR MESSAGE (42,130)(135,138),,BF (34,140)(150,148),,BF (25,150)(155,158),,BF (30,160)(148,168),,BF (38,170)(142,178),,BF (80,180)(120,186),,BF   INITIALIZE SEGMENT ?G40:O0:CN0:CNT0:LIMIT0:C0:D0:DAS0:DIS0:DE0:NU0:ANS0 )C112:C24:YL50:V6:TM0:TU0:S0:15,15 XL52:XB42:X59:Y44:D0:LEV0  KJ0 10 ZE(KJ)0 SS(KJ)0:JS(KJ)0  KJ  ZE(0)0: RANDOM NUMBER ARRAY TMTM.1:TUTU1  TM1 436 TMTM10 Sˀ(TM):TMTMS  LD1 JS(TU)S  LD2 SS(TU)S TUTU1  TU0 454 440  LA1 6  LA1 ZE(LA)0:ZE(LA1)0:460 464  SS(LA)JS(LA) ZE(LA)1:472 ZE(LA)0 DESS(LA):NUJS(LA) ZE(LA)0  ZE(LA1)1 DEDE1  DENU ZE(LA)1  LA   CORRECT END MESSAGE 2,(2,Y1),0,15 1:50,130:"VERY GOOD!":34,140:"YOUR ANSWER IS RIGHT.":40,150:" WELL DONE. PRESS":28,160:"CR TO CONTINUE":34,170:"L TO CHANGE LEVELS" X1:50,130:"VERY GOOD!":34,140:"YOUR ANSWER IS RIGHT.":40,150:" WELL DONE. PRESS" 728,160:"CR TO CONTINUE":34,170:"L TO CHANGE LEVELS" S#20,"000003040908382A" S#21,"29040301010F0000" S#22,"0000E01048080E2A" S#23,"CA10E04040780000" 23,(100,85),20,13 23,(90,85),20,13: 23,(80,85),20,13: 23,(70,85),20,13: MP$ˀ  VEG19: VEG (30,150)(120,158),,BF  VEG19: VEG "40,150:(1)13:"WELL DONE." 23,(70,65),20,13  WE1 5: WE 23,(70,85),20,13:  MP$"" 502 FGˀ(MP$)   FG76 :532   FG13 :528 502 416 26 4  HELP SECTION  MESSAGE1  LEV0 552 400 NUJS(DAS):DESS(DAS)   ZE(DAS1)1 DEDE1 " DENU DENU 552 $1:42,130:"THE TOP NUMBER":34,140:"IS SMALLER THAN THE":30,150:"BOTTOM. ADD 10 TO THE":30,160:"TOP NUMBER. REMEMBER":42,170:"TO PAY IT BACK" &LEV1:200 ( MESSAGE2 * LEV1 568 ,400 .NUJS(DAS):DESS(DAS) 0 ZE(DAS1)1 DEDE1 2 ZE(DAS)1 NUNU10 ,41:60,140:"SUBTRACT";DE:60,160:"FROM";NU 6LEV2:200 8 MESSAGE3 :400 o<1:42,130:"SORRY I CANNOT":42,140:"HELP ANY MORE.":42,150:"ANY WAY YOU ARE":42,160:"DOING THIS NOT ME." >LEV3:200 @ 602 B 2,2:1,4,,4: JD1,11,(20,0)(245,191),4:1,12,(31,30)(235,23),4:1,12,(31,75)(235,68),4 +F(17):30,46:"SUBTRACTION TUTOR":(16) H6:74,90:"EDUCATIONAL PROGRAM" "I 62,98:"FOR THE GRANDSTAND SEGA" 7L 0,(57,170),0,13:77,176:13:"Grandstand Leisure Ltd" NUU1220:UU AP 15,1,(58,128)(200,140),4:60,131:"PLEASE PRESS CR TO BEGIN": RITL$ˀ: ITL$""594 TSXˀ(ITL$) V SX13 586 X: Z GRANDSTAND LOGO SCREEN $\2,1::4,1,(0,0)(255,191),1:2,2: t^Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220 .`Y20181:(X,0)(255,YY300):XX10::616 bD152:X,Y:(X,Y),15: d""620 f h 72,12,62,12,42,12,32,12,12,22,2,32,12,32,32,32,42,32,42,42,22,52,2,52,122,12,112,12,102,12,92,12,82,22,72,32,62,42,62,52,72,52,82,52,92,52,92,32,102,32,112,32 j 182,12,172,12,162,12,152,12,142,22,142,32,132,42,132,52,142,52,162,52,182,52,182,42,182,32,172,32,232,12,222,12,212,22,212,32,212,42,212,52,222,32,232,32,252,22,252,32,252,42,252,52 6l(110,86)(230,95),10,BF:(17):114,87:"GRANDSTAND" .n(120,128)(232,136),6,BF:122,129:"PRESENTS" ?p(100,152)(200,161),3,BF:(16):102,152:"Subtraction Tutor" trS#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1:0,(221,148),0,15 t""628 v 0303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0" r1:0,(221,148),0,15 |"" 4220  B0 300: B: 3 1,1:: 11,10: "Thank you":: 12,13: "BYE-BYE"  400:DLY:AG1:2,1::4,1,(0,0)(255,191),1: 2,2:5:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)6 (X102,Y102),15::""6 3:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(130,161)(200,152),3,BF:(16):131,153:"Typing Tutor":0,(220,148),0,15 ""7  ****************************** ****** TYPING TUTOR ********** ** WRITTEN BY MICHAEL HOWARD** (****************************** 2A$"TYPING TUTOR" <2,2:1,15,,4: F47,10 P A1 (A$):(1)14 Z(17);(A$,A,1); dA n(0,26)(255,26),13 x(0,28)(255,28),2 (0,30)(255,30),8 (0,32)(255,32),2 (0,34)(255,34),13 1,15 <13 ,50:(16);"THE OBJECT OF THIS PROGRAM IS TO ENABLE "; 020,68:"YOU TO FAMILIARISE YOURSELF WITH THE ";  1390 !1:97 ,120: (16);"KEYBOARD" 04:26,150:"PRESS ANY KEY FOR THE INSTRUCTIONS" (20,144)(233,144),2 (20,162)(233,162),2 (20,144)(20,162),2 (233,144)(233,162),2 "" 280  260 8,15: "50,10:(17);"INSTRUCTIONS":1 ,(0,29)(255,29),13 D613,40:(16);:8:"1)";:1:" TEN WORDS WILL APPEAR ON THE SCREEN" @32,52:"ONE AT A TIME."  "" 830 H:1220: XR1,19:"OKAY NOW YOU HAVE FINISHED.THE GRAPH":3,21:"OF YOUR RESULTS WILL BE DISPLAYED" \ A0 1000: f 2,2:1,14: (p(19,10)(19,191),1:(0,160)(245,160),1 !z7 ,150:"10" :7 ,10:"60" 6 '9 ,60:"W": 9,80:"P":9 ,100:"M":1 :18,163:" 1 2 3 4 5 6 7 8 9 10":107,173 6:"WORD NO." $23,47,71,95,119,143,167,191,215,239 940 A1 10:B  P(A)10 P(A)13 (B,160)(B,194(3P(A))),1:(B6,160)(B6,194(3P(A))),1:(B,194(3P(A)))(B6,194(3P(A))):(B,194(3P(A)))(B4,191(3P(A))),1:(B6,194(3P(A)))(B3,191(3P(A))):(B4,191(3P(A)))(B3,191(3P(A))) (B4,191(3P(A)))(B4,160) (B3,159),A : 'Q0: A1 10:QQP(A)::QQ.5:QQ10  Q10 Q13 "(23,194(Q3))(245,194(Q3)),13 8 :24,183:"AVERAGE:";:1:(Q.5);:8:" WORDS PER MINUTE" $12 [.50,1:"PERFORMANCE GRAPH":1 :(50,9 )(241,9 ):155,1:"{";:13:"";:1:" = AVERAGE}" 8 A0 1000: B 2,2: )L75,9:2 : (17);"DO YOU...?":(16) V(0,27)(255,27),1 7`13,50:8:"{A}-";:1:"WANT TO VIEW THE GRAPH AGAIN ?" :j13,87:8:"{B}-";:1:"WANT TO HAVE A SINGLE WORD TEST ?" >t13,124:8:"{C}-";:1:"WANT TO TRY A TEST USING SENTENCES ?" :~17,165:4:"PRESS THE APPROPRIATE KEY ";:1:"{A,B OR C}" A$ˀ A$"C"A$"B"A$"A" 1160 A$"A"870 A$"B"590 A$"C"1570  1210 s DIFFUSE,FOOT,POLICY,RIDING,DUNGEON,SCENERY,SHUFFLE,TIMBER,VERGE,VENUE,WATTLE,WENCH,ANARCHISM,NORMA,ZOROASTRIANISM X WILD,XYLEM,QUICK,BROW,BROWN,ZENITH,LAMPREY,EXTREMITY,FELLOW,ZOMBIE,DIHEDRAL,CONVULSIVE l COOPERATIVE,CAPABLE,ANISEED,ALARM,ALBINO,BREAK,ENGLISH,GERMAN,JAPANESE,ARABIAN,PORTUGESE,VIETNAMESE,ZAMBIA c CONDUCT,CHOIR,SOPRANO,QUARTET,DECK,STAGE,CURTAIN,OPENING,DYING,LEGALISM,MAJORITY,MAIM,MNEMOTECHNY _ BRITAIN,AMERICA,CANADA,GERMANY,YUGOSLAVIA,SOVIET,NUCLEAR,COMPUTER,MEMORY,BRAIN,HAND,EAR,NASAL V PARITY,PARLIAMENT,PIG,HORSE,DONKEY,GIRAFFE,MOUSE,MERLIN,THE,CAT,SPELLBOUND,GIFT,BERT  MICHAEL,PHIL,PHILLIP,PHILIP,KIM,MARIE,TROY,DANIEL,PETER,ANDREW,ADAM,GRANT,GLENN,GLEN,DAVID,JOYCE,KERRIN,KAREN,SOPHIA,GRETTA,HAROLD,DIANA,CHARLES h  GINGER,BROWN,BLACK,PURPLE,GREEN,BLUE,RED,CRIMSON,VIOLET,MAGENTA,MAGNET,WHITE,TURQUOISE,CYAN,COLOURLESS | CRICKET,SOCCER,RUGBY,TENNIS,DIVING,SPEEDWAY,CROQUET,ATHLETICS,RUNNING,JOGGING,BUILDING,TOILING,WORK,REST,PLAY,INTRODUCTION ]JANUARY,FEBRUARY, MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER,WORLD (SCIENCE,MATHEMATICS,BIOLOGY,COMPUTING,CHEMISTRY,ORGANIC,INORGANIC,HISTORY,GEOLOGY,GEOGRAPHY,ENGLISH,LITERATURE,PHOTOSYNTHETIC,ACID,ALKALI,ELEMENTS,IONIC,HEAT 2 TEMPERATURE,CRYSTALLINE,PHYSICS,CONTINENTS,ASTRONOMY,ASTROLOGY,COSMOLOGY,POP,MUSIC,PUNK,JAZZ,CLASSICAL,VIVALDI,HANDEL,OPERA,CHOPIN,BEETHOVEN r< MINISTER,MONEY,LOAN,BANK,INSURANCE,POSSESSIONS,MISSISSIPPI,SHARES,AUTHORITY,CERTIFICATE,CREDIT,EXPORTS,IMPORT F ACTIVIST,VIVISECTION,CONSERVATISM,EXORCISM,PSYCHOLOGY,GHOST,SPECTRE,DRUID,THIEF,CLERIC,ILLUSIONIST,GRAPHOLOGY,LYCANTHROPY,METAPHYSICS,ADAMANTITE rP POLTERGEIST,BRIDGE,CADMIUM,TUNGSTEN,PLUTONIUM,UNIVERSITY,AUCKLAND,WELLINGTON,OTAGO,GRANITE,CHLOROFORM,CHIMPANZEE Z CHRISTMAS,CHROMIUM,CHROMOSOMES,COMMISSIONERS,CILIA,CIVIL,CLEOPATRA,COCKATOO,SYDNEY,COLOSSUS,CONFEDERATION,ZOOLOGY,COPYRIGHT,DEVALUATION,DEOXYRIBONUCLEIC d ENTREPRENEUR,ENCYCLOPAEDISTS,HERMAPHRODITE,HIPPOPOTAMUS,HYDROELECTRIC,INSECTIVEROUS,MEZZOTINT,ARCHITECTURE,ONOMASTICIANS,PHOTOGRAMMETRY,QUARTERMASTER,QUASARS,REFERENDUM,XYLEM,VERNALIZATION nS#0,"3F7FC09FBF90CC66" xS#1,"3309FDF903FEFC00" S#2,"3F7FE0CFDFD0DEC0" S#3,"DED0DFCFE07F3F00" S#4,"3F7FE0CFDFD0D7D7" S#5,"D1D5DDCDE17F3F00" S#6,"081C14143E2A6B5D" S#7,"5DF6B6B6BEA0AF00" 0 0,(100,88),0,4 1,(100,96),1,4 2,(110,88),2,4 3,(110,96),3,4 4,(120,88),4,4 5,(120,96),5,4 6,(130,88),6,4 %7,(130,96),7,4:(138,97)(138,103),4 )(139,103)(139,101):(129,103)(129,101)  " HE IS THE NAPOLEAON OF CRIME,6,THE EAGLE HAS LANDED,4,TRUTH COMES OUT IN WINE,5,LIFE IS TOO SHORT FOR CHESS,6,THE CURE IS WORSE THAN THE DISEASE,7,SCIENCE IS ORGANIZED KNOWLEDGE,4 , EVERY SCIENTIST IS A METAPHYSICIAN,5,IF MUSIC BE THE FOOD OF LOVE.PLAY ON,9,NO MAN CAN SERVE TWO MASTERS,6,AN ARMY MARCHES ON ITS STOMACH,6,ONE SHOULD EAT TO LIVE.NOT LIVE TO EAT,9,WOE TO THE VANQUISHED,4 6 SLOW AND STEADY WINS THE RACE,6,BREVITY IS THE SOUL OF WIT,6,THE KING NEVER DIES,4,BRUTUS IS AN HONOURABLE MAN,5,THE GREEK HAD A WORD FOR IT,7,FOR I AM NOTHING IF NOT CRITICAL,7 @ TO CHOOSE TIME IS TO SAVE TIME,7,A MAN'S HOUSE IS HIS CASTLE,6,RICHES ARE FOR SPENDING,4,WE ARE ALL BORN MAD.SOME STAY SO,8,HABIT IS A GREAT DEADENER,5,DON'T TELL ME PEACE HAS BROKEN OUT,7 J ALWAYS VERIFY YOUR REFERENCES,4,STYLE IS THE MAN HIMSELF,5,YOU ARE LOOKING AS FRESH AS PAINT,7,NO NATION WAS EVER RUINED BY TRADE,7 T NOBILITY HAS ITS OWN OBLIGATIONS,5,FORTUNE FAVOURS THE BRAVE,4,LIFE ISN'T ALL BEER AND SKITTLES,6,IT ALL DEPENDS WHAT YOU MEAN,6,GIVE PEACE IN OUR TIME,5,I THINK THEREFORE I AM,5,LIARS OUGHT TO HAVE GOOD MEMORIES,6 ^ IN DREAMS BEGINS RESPONSIBILITY,4,I HAVE LEARNED,3,PROCRASTINATION IS THE THIEF OF TIME,6,INCLUDE ME OUT,3,I GIVE YOU A DEFINITE MAYBE,6,A USELESS LIFE IS AN EARLY DEATH,7,TO BE GREAT IS TO BE MISUNDERSTOOD,7,I WILL MAKE YOU SHORTER BY A HEAD,8 h MUM'S THE WORD,3,HOW PLEASANT IT IS TO HAVE MONEY,7,A LIBRARY IS THOUGHT IN COLD STORAGE,7,EVERY MAN LOVES WHAT HE IS GOOD AT,8,NO FURNITURE SO CHARMING AS BOOKS,6 r 1570:Aˀ(1) | 1,1: _A1 10::1,1:"HERE WE GO WITH SENTENCE #";A:0,2:""  1570  B0 (9)47:A$,C::A$,C ZBˀ(A$):19(B2),6:D1B:"";::19(B2),10:D1B:"";::19(B2),5:A$:X19(B2) "00:00:00"  Z1B:ZX1,9:"" B$ˀ:B$"" 1730  B$ˀ(A$,Z,1)1770 0Q02:1,250,15::Q0 1:1,210,15::1,150,0  1730 ZX1,9:B$: Z 3Qˀ((,2)):R60Q:R$ˀ(R):R$ˀ(R$,4):Rˀ(R$) $6,14:"THAT TOOK YOU ";Q;" SECONDS" ,1,16:"THEREFORE YOUR TYPING SPEED IS ";RC 10,18:"WORDS PER MINUTE" &P(A)RC 0A101880 (:3,20:"PRESS ANY KEY FOR NEXT SENTENCE" D ""1860 NA [X2,20:"NOW YOU HAVE FINISHED,A GRAPH SHALL":0,22:"BE DISPLAYED,SHOWING YOUR PERFORMANCE" bA01100: l870 98,4,698,4,587,2,698,4,988,2,880,2,698,2,698,2,880,2,740,2,988,2,880,2,523,2,698,2,523,2,698,2,523,2,784,2,988,2,88%2,1::4,1,(0,0)(255,191),1:2,2:5 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:X0Y06 (X102,Y102),15::""6 3:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(130,152)(200,161),3,BF:(16):130,153:"Rocket Maths" tS#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1:0,(221,148),0,15 ""8  BY ANDREW SNOWBALL  2,2: 1120 250 (610 21020 <1370 F1910 d n(20,10)(240,10),15 x(240,180) (20,180) (20,10)  3,1 ;40,170:"PRESS THE";:8:" SPACE BAR";:3:" TO CONTINUE"; " "200 540,170:1,1: " "  100 15,1 H$" SEGA ":YY40:440 H$"ROCKET MATHS":8:YY70:440 "7 $,54,90:"Grandstand Leisure Ltd [C]" 6180:100 @10 JH$"INSTRUCTIONS":YY40:440 #T(8);"YOU MUST GUIDE THE ROCKET": ^(9);"TO THE CORRECT LANDING": h(12);"BAY AT THE RIGHT": r(9);"TO COMPLETE THE SUM AT": |(14);"THE TOP LEFT": ((5);"USING THE UP AND DOWN ARROW KEYS"  180  Hˀ(H$):0,YY:CR17:DV12:SC20 H17CR16:DV6:SC42 1 K1(SCH)2 H$" "H$" "  RK02506 0,(RK,YY5),0,15 3,RK30110,0:4,2,15 RKDV0㑀(CR);(H$,RKDV,1); RK &(16) 00 :0,(RK,YY5),0,0 D b100:12 lH$"ENTER THE NUMBER":YY40:440 &v(7);(17);"OF YOUR CHOICE";(16): #(12);(17);"+........1";(16): #(12);(17);"-........2";(16): #(12);(17);"x........3";(16): #(12);(17);"........4";(16): O$ˀ:O$""680 Oˀ(O$):O1O4680 O710,720,730,740:750 OP$"+": OP$"-": OP$"x": OP$"": X2 %0,150:X:(X23);(17);OP$;(16) XX1:X16780 760 180:100 "H$"ENTER THE RANGE":YY40:4:440 ( :(7);"(ie The Level of Difficulty)": *(10);"(10-20...) "; 4L$ˀ:L$""820 !>Lˀ(L$):L2"20":L20:::910 HL12:820 R"1"; \DE050:DE fL$ˀ:L$""870 pLˀ(L$):L0L92:870 z(29);L; LL10 180  981 J110  N 1,N,15 I110 Xˀ(1)255:Yˀ(1)191 (X,Y),15 I,J , 294,330,262,131,196,1175,1319,1047,523,784 0  :950 183,0:"LANDING BAY" N06 200,N2520 $4,1 ."" 8 B `S#0,"FC7E23FEFF3F3FFF" jS#1,"FF3F3FFFFE237EFC" tS#2,"0000C00080C0F8FF" ~S#3,"FFF8C08000C00000" J09 T$(J)"99:99":N$(J)" SEGA "  1240 DT$(29),ST(29) J029 DT$(J),ST(J)  ! "21",2,"31",3,"42",2,"51",5  "62",3,"63",2,"82",4  "84",2,"93",3,"102",5  "105",2,"122",6,"123",4  "124",3,"126",2,"142",7   "147",2,"153",5,"155",3  "162",8,"164",4,"168",2  "182",9,"183",6,"186",3 ( "189",2,"202",10,"204",5 2 "205",4,"2010",2 < ZY20:3 d90,0:15,1:"BEST TIME ";T$(0) n90,10:8,1:"YOUR TIME" !x10,0:13,1:(17);"SUM:";(16) "00:00:00" N05 Aˀ((1)L) Bˀ((1)L) EE$ˀ(A)OP$Ā(B)"=" E$"" J1ဓ(EE$) F$ˀ(EE$,J,1) F$" "1510 E$E$F$  O1530,1540,1550,1560 SAB:1580 SAB:1580 SAB:1580 Rˀ(1)L1.5 "E$DT$(R):SST(R) ,J05 "6T(J)SĀ((1)10)5:T(J)S1590 @ JKˀ((1)6):T(K)S T0,(X,Y),0,0 7^10,10:J012:(8);::10,10:12,1:(17);E$;(16) hJ05 Er200,J2535:JJ08:(8);::200,J2535:15,1:(17);T(J);(16) | Z0175L 3,Z50110,0:4,3,15 C(150,10)(180,18),8,BF:150,10:D48:(8);(29);(,D,1);:D AR$ˀ:AR$""1740 Aˀ(AR$):A28A311740 A30YY12.5:Y20Y20 A31YY12.5:Y157.5Y157.5 0,(Z,Y),0,N22 Z (Y20)25K1810 0:5,2,15 DE010:DE 0 1670 X175220L2 0,(X,Y),0,N22 &3,X50110,0:4,3,15 0X :0 DN NET$ˀ(,4) X vDE0200:DE 100 H$"YOUR TIME: "ET$:YY40:440 ET$T$(9)2110 !::(9);"NAME PLEASE: ":(14); N$"" Q$ˀ:Q$""1970  N$N$Q$ Q$; Q$ˀ(13)2020 (N$)82020 1970 J09 ET$T$(J) TT$T$(J) NN$N$(J) T$(J)ET$ N$(J)N$  ET$TT$ *N$NN$ 4J >100:::: HJ09 (RJ2,1:(9);J1;(12);N$(J);(24);T$(J) \ fH$"ANOTHER GAME?":YY120:440 p:(11);"(ANSWER Y OR N)"; !zQ$ˀ:Q$""(Q$"Y"Q$"N")2170 Q$"Y""YES":180:40 "NO" 100:H$"THE END":YY60:440 ""2220  OASTRIANISM X WILD,XYLEM,QUICK,BROW,BROWN,ZENITH,LAMPREY,EXTREMITY,FELLOW,ZOMBIE,DIHEDRAL,CONVULSIVE l COOPERATIVE,CAPABLE,ANISEED,ALARM,ALBINO,BREAK,ENGLISH,GERMAN,JAPANESE,ARABIAN,PORTUGESE,VIETNAMESE,ZAMBIA c CONDUCT,CHOIR,SOPRANO,QUAR5 M(8,1):S(4,19):2,1::4,1,(0,0)(255,191),1:2,2: Y013:(0,YY)(255,YY): X113:(X10,0)(0,XX): ;X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220 -Y20181:(X,0)(255,YY300):XX10::36 !#D152:X,Y:(X,Y),15::"" $ 72,12,62,12,42,12,32,12,12,22,2,32,12,32,32,32,42,32,42,42,22,52,2,52,122,12,112,12,102,12,92,12,82,22,72,32,62,42,62,52,72,52,82,52,92,52,92,32,102,32,112,32 % 182,12,172,12,162,12,152,12,142,22,142,32,132,42,132,52,142,52,162,52,182,52,182,42,182,32,172,32,232,12,222,12,212,22,212,32,212,42,212,52,222,32,232,32,252,22,252,32,252,42,252,52 e((110,86)(230,95),10,BF:(17):115,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS" ;-(125,151)(200,160),3,BF:(16):126,152:"Watch Me Draw" ~2S#252,"030F3C306063C4C4":S#253,"C4C46360303C0F03":S#254,"C0F03C0C06C62303":S#255,"0323C6060C3CF0C0":1:0,(221,148),252,15 7""55 A<70:A119:Z,Z1,Z2,Z3:S(1,A)Z:S(2,A)Z1:S(3,A)Z2:S(4,A)Z3:A F349,698,294,.375,392,330,0,.375,440,349,0,.375,698,440,294,.125,784,0,0,.125,698,0,0,.125,659,392,262,.125,659,0,0,.0625,294,0,0,.0625,523,440,349,.125,440,0,0,.125,587,349,247,.5,247,349,0,.125,220,330,0,.25,294,196,0,.125,587,349,247,.5 ,P247,349,0,.125,220,330,0,.25,294,196,0,.125 ZX15:Y20 d,15,,15::2,2 n1:S#0,"3818183F7FFFFFFF" xS#1,"FFFFFFFFFFFFFF7F" S#2,"1C1818FCFEFFFFFF" S#3,"FFFFFFFFFFFFFFFE" S#4,"381818183060C080" S#5,"808080808080807F" S#6,"1C1818180C060301" S#7,"01010101010101FE" S#8,"0000000103070707" S#9,"0707070707070703" S#10,"2060E0E0E0E0E0E0" S#11,"E0E0E0E0E0E0E0C0" S#12,"030307070F0F0F0F" S#13,"0F0F070707030301" S#14,"C0C0E0E0F0F0F0F0" S#15,"F0F0E0E0E0C0C080" S#16,"030206040C080808" S#17,"080C040406020201" "S#18,"C080602030101010" ,S#19,"103020206040C080" 6340:A2026:C @A,(X,Y),0,C:YY22: J28,(X,Y),4,1 T1,12,4,7,6,10,13,15 ,^X30:Y10:C1:9,(X,Y),8,1:10,(X,Y14),12,C Mh360:A08:M(A,0),M(A,1):A:570:0,0,0,-2,2,-2,2,0,2,2,0,2,-2,2,-2,0,-2,-2 r(20,10)(246,191),,BF {|36,12:(17);:3:" W";:7:"A";:13:"T";:9:"C";:5:"H";:12:" M";:4:"E ";:13:"D";:1:"R";:7:"A";:9:"W":5 (16);:55,34:"This program will allow you":48,42:"to create your own artwork.":48,62:" The paint brush may be moved":48,70:"in eight different directions":48,78 Ȑ"using the joystick":48,94:" To paint on the screen all":48,102:"you need to do is press the":48,110:"trigger on the joystick. To":48,118:"clear the screen just press the":48,126 "HOME/CLR key.":48,142:" To change the color of your":48,150:"paint brush just move it to the":48,158:"appropriate pot." >41,180:13:"Press joystick trigger to continue":(1)1420 9,(30,10),8,1:10,(30,24),12,C (20,0)(255,191),,BF Pˀ(1):XXM(P,0):YYM(P,1) ˀ(12)440 Y0Y0 Y159Y159 X245X245 *&H3B24,Y:&H3B25,X:&H3B28,Y14:&H3B29,X XXX8:YYY32:X27540 <(1)0(XX,YY),C:(XX,YY1),C:(XX1,YY),C:(XX1,YY1),C 450 -X20N(YY)23.125:340:A1N:C::X5X5 &C1510,(X,Y14),16,1:450 010,(X,Y14),12,C:450 :ZZ400 D9,(X,Y),8,1:600:I111:E,G,A,L:10,(E,G14),12,L:Z1A:PP:&H3B24,G:&H3B25,E:&H3B28,G14:&H3B29,E:(E8,G32),L:(E8,G31),L:(E9,G32),L:(E9,G31),L:EEM(PP,0):GGM(PP,1) N""Z,I MX33,20,33,3,5,5,5,5,5,5,5,5,5,5,5,2,2,2,2,2,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1 ]b59,41,41,7,1,1,1,1,1,1,2,2,2,2,2,4,4,4,4,4,5,7,7,7,7,7,7,7,7,7,3,3,3,3,3,3,3,3,3,5,5,5,5,5,5 Bl91,41,27,13,1,1,1,1,1,1,1,1,1,1,1,7,7,7,7,7,3,3,3,3,3,3,3,3,3,3,3 Dv125,40,28,9,6,7,7,7,7,7,7,7,8,8,1,1,1,1,1,1,1,2,2,3,3,3,3,3,3,3,4,4 b131,20,43,5,5,5,5,5,5,5,5,5,5,5,5,1,1,1,1,1,1,3,3,3,3,3,3,3,3,3,1,1,1,1,1,5,5,5,5,5,5,5,5,5,5,5,5 O175,42,33,12,1,1,1,1,1,1,1,1,1,1,1,4,4,4,4,4,2,2,2,2,2,5,5,5,5,5,5,5,5,5,5,5,5 \221,42,40,4,7,7,7,7,7,7,7,7,7,1,1,1,1,1,3,3,3,3,3,7,7,7,7,7,1,1,1,1,1,1,3,3,3,3,3,3,3,3,3,3 T73,65,36,13,3,3,3,3,3,3,3,4,4,4,5,5,5,5,5,6,6,6,7,7,7,7,7,7,7,1,1,1,1,1,1,1,1,1,1,1 Z101,87,39,1,1,1,1,1,1,1,1,1,1,1,1,3,3,3,3,3,3,3,4,4,5,5,6,6,7,7,7,7,7,7,3,3,3,4,4,4,4,4,4 ^127,87,41,7,1,1,1,1,1,1,2,2,2,2,2,4,4,4,4,4,5,7,7,7,7,7,7,7,7,7,3,3,3,3,3,3,3,3,3,5,5,5,5,5,5 N154,65,33,9,5,5,5,5,5,5,5,5,5,5,5,2,2,2,2,2,4,4,4,4,4,1,1,1,1,1,1,1,1,1,1,1,1 013:39,180:"Press joystick trigger to continue UMM12:770:A119:C:9,(120,124),8,1:10,(120,138),12,C:730:750:A,MM:730:710 1(1)09,(120,120),8,0:10,(120,134),12,0:370  S(1,A)01,S(1,A),12 XX160S(4,A):XX:0: -1,12,4,7,6,10,13,1,12,4,7,6,10,13,1,12,4,7,6 N$N$Q$ Q$; Q$ˀ(13)2020 (N$)82020 1970 J09 ET$T$(J) TT$T$(J) NN$N$(J) T$(J)ET$ N$(J)N$  ET$TT$ *N$NN$ 4J >100:::: HJ09 (R2,1::4,1,(0,0)(255,191),1: 2,2:5:S#0,"030F3C306063C4C4":S#1,"C4C46360303C0F03":S#2,"C0F03C0C06C62303":S#3,"0323C6060C3CF0C0":1 Y013:(0,YY)(255,YY)::X113:(X10,0)(0,XX)::X1420:(X10,0)(XX185,191)::(210,0)(254,191):X220:Y20181:(X,0)(255,YY300):XX10: X,Y:(X0)(Y0)6 (X102,Y102),15::""6 3:7,1,6,1,4,1,3,1,1,2,0,3,1,3,3,3,4,3,4,4,2,5,0,5,12,1,11,1,10,1,9,1,8,2,7,3,6,4,6,5,7,5,8,5,9,5,9,3,10,3,11,3,18,1,17,1,16,1,15,1,14,2,14,3,13,4,13,5,14,5,16,5,18,5,18,4,18,3,17,3,23,1,22,1,21,2,21,3,21,4,21,5,22,3,23,3,25,2,25,3,25,4,25,5,0,0 (110,86)(240,95),10,BF:(17):116,87:"GRANDSTAND":(120,128)(232,136),6,BF:120,129:"PRESENTS":(25,152)(200,161),3,BF:(16):27,153:"Graph and Chart Presentation":0,(220,148),0,15 ""7 2 1,1:: 4,11 3 X(30),X$(30),Y(30),YSTRE(30) 6 4 8 II0 36 9 II,0: "" : II,2: "" < II  3000  ***************  * *  * ADD DATA *  * *  ***************  2 7000 ,3 1,1: " ENTER DATA " 4LIMIT30 5 XTYPE1 LIMIT12 48 0,4: "NO. OF DATA SETS (2 -";LIMIT;: ") ? ";ST$ 9 ST$"." :T$ST$: 8000: OK$"N" 1080 ;STˀ(ST$): 8100 < STLIMIT ST2 2: 1080 =:Z10:Z20 B SETNUM1 ST L Z1,SETNUM5Z2: "SET";SETNUM; Q XTYPE3 XTYPE5 1110 R " = ";X$(SETNUM),T1$,T2$ TT$T2$: 8000: OK$"N" 1100 U 1111 V " = ";X$(SETNUM),T1$ WT$T1$: 8000: OK$"N" 1100 3X XTYPE1 T$X$(SETNUM): 8000: OK$"N" 1100 [ SETNUM14 Z119:Z215 '\Y(SETNUM)ˀ(T1$):YSTRE(SETNUM)ˀ(T2$) ] 8100 ` SETNUM /jXLO99999:YLO99999:ZLO99999:XUP0:YHI0:ZHI0 t CNV1 ST ~X(CNV)ˀ(X$(CNV))  X(CNV)XUP XUPX(CNV)  X(CNV)XLO XLOX(CNV)  Y(CNV)YHI YHIY(CNV)  Y(CNV)YLO YLOY(CNV) ! YSTRE(CNV)ZHI ZHIYSTRE(CNV) ! YSTRE(CNV)ZLO ZLOYSTRE(CNV)  CNV  0,20  XHOLDXTYPE GRAPHED1 (XTYPE1 XTYPE4) 0,20: "DO YOU WISH TO COMBINE THIS DATA": "WITH THAT ALREADY GRAPHED ? (Y/N) ";COM$ l 0,20: (37): 0,21: (37): 0,20: "DO YOU WANT TO EDIT THE DATA": "BEFORE IT IS GRAPHED (Y/N) ? ";ANS$  ANS$"Y" 2000 * COM$"Y" 2,2:CLRCLR1: 3200: 1200 GRAPHED0   ***************  * *  * CHANGE DATA *  * *  ***************  1 7000: 1,1: " CHANGE DATA "  SUB0:TEMP0:FOUND0 D 0,4: "ENTER NO. OF DATA SET TO CHANGE OR IF UNKNOWN": ; 0,7: "NO. OF DATA SET ? ";SUB$: SUB$"" 2159: 2060 !T$SUB$: 8000: OK$"N" 2070 TSUBˀ(SUB$): SUBST SUB1 0,22:2: "*** NON-EXISTENT DATA SET ***": 2070  8100 ** 0,9: "CHANGE X(";SUB;") FROM ";X$(SUB); 4 " TO ";TEMP$ > TEMP$"" 2120 @X$(SUB)TEMP$ B XTYPE1 2120 "CT$TEMP$: 8000: OK$"N" 2090 DX(SUB)ˀ(TEMP$) E X(SUB)XHI XHIX(SUB) F X(SUB)XLO XLOX(SUB) )H 0,10: "CHANGE Y(";SUB;") FROM";Y(SUB); R " TO ";TEMP$ \ TEMP$"" 2147 "]T$TEMP$: 8000: OK$"N" 2120 `Y(SUB)ˀ(TEMP$) a Y(SUB)YHI YHIY(SUB) b Y(SUB)YLO YLOY(SUB) c XTYPE3 XTYPE5 2158 Pd 0,11: "CHANGE Z(";SUB;") FROM";YSTRE(SUB);: " TO ";TEMP$: TEMP$"" 2149 "eT$TEMP$: 8000: OK$"N" 2148 fYSTRE(SUB)ˀ(TEMP$) !g YSTRE(SUB)ZHI ZHIYSTRE(SUB) !h YSTRE(SUB)ZLO ZLOYSTRE(SUB) n o ------SEARCH ROUTINE--------- $p 0,9: "SEARCH ON X = TO ";SRCH$(1) %z 0,10: "SEARCH ON Y = TO ";SRCH$(2)  SETNUM1 ST  SRCH$(2)"" 2215 # Y(SETNUM)ˀ(SRCH$(2)) FOUND1  SRCH$(1)"" 2218  X$(SETNUM)SRCH$(1) FOUND1  FOUND0 FOUND2 2220 6 "SET ";SETNUM;" = ";X$(SETNUM);",";Y(SETNUM):FOUND2  SETNUM 3 FOUND0 "*** DATA SET NOT FOUND ***":: 2160   ***************  * *  * GRAPH DATA *  * *  ***************  ENTER TEXT 1,1: 7000  COM$"":MD$"":PREV$"" * 1,1: " GRAPH DATA " " 6,5: "1: STATISTICAL GRAPHING"  6,7: "2: BAR GRAPH" # 6,9: "3: COMPARATIVE BAR GRAPH"  6,11: "4: LINE GRAPH" % 6,13: "5: COMPARATIVE LINE GRAPH" + 6,15: "6: PIE CHART": 6,17: "7: END" a 6,20: "ENTER NO. OF CHOICE --> ";XTYPE$:XTYPEˀ(XTYPE$): XTYPE$"1" XTYPE$"7" 2: 3079  XTYPE7 : k GRAPHED1 XHOLD1 XTYPE 1 6,22: "USE PREVIOUS DATA (Y/N) ? ";PREV$: PREV$"Y" 2,2:: 3091  1000: ST$"." 3062   7000  GRAPHED1 3099 < 0,4: "TITLE OF GRAPH ? ";TEMP$: TEMP$"" TITLE$TEMP$ > (TITLE$)40 0,22: "*** TEXT TOO LOMG ***":2: 3090  XTYPE6 3200  PREV$"Y" 3110 = 0,5: "TITLE OF X AXIS ? ";TEMP$: TEMP$"" XLABEL$TEMP$ ? (XLABEL$)30 0,22: "*** TEXT TOO LOMG ***":2: 3095 = 0,6: "TITLE OF Y AXIS ? ";TEMP$: TEMP$"" YLABEL$TEMP$ ? (YLABEL$)10 0,22: "*** TEXT TOO LOMG ***":2: 3097  XTYPE1 3105 R 0,8: "RANGE OF X AXIS ? ";XSTART$,XFINISH$:T$XSTART$: 8000:T$XFINISH$: 8000  OK$"N" 3100 ' XSTARTˀ(XSTART$):XFINISHˀ(XFINISH$) D XSTARTXLO XFINISHXUP XSTART0 XFINISH9999 8300: 3100 -! 0,9: "RANGE OF Y AXIS ? ";YSTART$,YFINISH$ $" T$YSTART$: 8000: OK$"N" 3105 %# T$YFINISH$: 8000: OK$"N" 3105 v$ GRAPHED1:YSTARTˀ(YSTART$):YFINISHˀ(YFINISH$): YSTARTYLO YFINISHYHI YSTART0 YFINISH9999 8300: 3105 @% XTYPE3 XTYPE5 YSTARTZLO YFINISHZHI 8300: 3105 .& COM$"Y" 2,2:: 4,15,(0,0)(255,191),12 ( 2,2 ) 3800 + ERR1 3105 #0 VPOS12:HPOS140ŀ((TITLE$)72) : HPOS,VPOS: TITLE$ %D VPOS175:HPOS150ŀ((XLABEL$)72) N HPOS,VPOS: XLABEL$ X VPOS23:HPOS10 b HPOS,VPOS: YLABEL$ ' XTYPE 3220,3400,3400,3400,3400,6000  ANS$ˀ: ANS$"" 3202 4 1,1: 7000: 0,4: "MODIFY THE GRAPH (Y/N) ? ";MD$  COM$"" " MD$"Y" PREV$"": 7000: 3090 XHOLDXTYPE  3062  """"""""CONT. X AXIS"""""""""  COM$"Y" CLRCLR1: 3381  HIXFINISH:LOWXSTART: 3600  A2 3390  XRATIO210RANGE  VPOS160  IVLSIZERANGEIVLNUM  AXSTART XFINISH IVLSIZE CNTCNT1  MARKˀ((AXSTART)XRATIO)40  (MARK,148)(MARK,152),1  HPOSMARKŀ(((A))102)  HPOS,VPOS: A * A 4 (37,150)(MARK,150),1 5 B1 ST 6 XPOS(X(B)XSTART)XRATIO40 8 YPOS150(Y(B)YSTART)YRATIO 9 B1 LYPOSYPOS:LXPOSXPOS : (LXPOS,LYPOS)(XPOS,YPOS),CLR < LXPOSXPOS:LYPOSYPOS = B > H """""DISCRETE X AXIS""""""""" $I 2,2:CNT0:HOLD0:LXPOS40:MXPOS40 R IVLSIZEˀ(210ST) (\ XTYPE2 XTYPE3 HOLDˀ(IVLSIZE2) f C39IVLSIZEST z VPOS160  WSTREˀ(IVLSIZE2)  A40 C IVLSIZE CNTCNT1  (A,148)(A,152),1  HPOSAŀ((X$(CNT))72)HOLD  HPOS,VPOS: X$(CNT) $ BARHT150ŀ((Y(CNT)YSTART)YRATIO) # XTYPE4 XTYPE5 3571: 3560  XTYPE2 3530  H1AWSTRE4:H2AWSTRE4  (A4,148)(H1,BARHT),2,BF ( BARHT150ŀ((YSTRE(CNT)YSTART)YRATIO) $ (H2,148)(AIVLSIZE4,BARHT),11,BF  3560 $ (A4,148)(AIVLSIZE4,BARHT),2,BF  SCREEN 1,1:PRINT A+4,A+IVLSIZ  A  (37,150)(A,150),1   """"""LINE GRAPH"""""""""""""  A40 LYPOSBARHT  (LXPOS,LYPOS)(A,BARHT),6  LXPOSA:LYPOSBARHT  XTYPE4 CLR5: 3580 ( BARHT150ŀ((YSTRE(CNT)YSTART)YRATIO)  A40 MYPOSBARHT  (MXPOS,MYPOS)(A,BARHT),7  MXPOSA:MYPOSBARHT   """"""CALC INTERVALS""""""""" RANGEHILOW:A12 ,$ RANGEA1 RANGEA2 RANGEA5 3700 $. (RANGEA10)RANGEA10 3700 $8 (RANGEA12)RANGEA12 3700 VAA1 N` A2 1,1: 0,22:2: "*** RANGE ERROR - PLEASE RE-ENTER ***":ERR1: 3710 j 3620 tIVLNUMA ~  """"""PLOT Y AXIS"""""""""""" "ERR0:HIYFINISH:LOWYSTART: 3600  ERR1 3910 IVLSIZERAMGEIVLNUM YRATIO110RANGE  AYSTART YFINISH IVLSIZE MARK150ŀ((AYSTART)YRATIO)   (35,MARK)(39,MARK),1 HPOS35ŀ((A))7 VPOSMARK5 ( HPOS,VPOS: A 2 A < (37,40)(37,150),4 F  """""""ERASE GRAPH"""""""""""  2,2:: 1,1 GRAPHED0   """""""EXIT OPTION"""""""""""  o ---------BAR CHART----------- .p COM$"Y" 2,2:: 4,15,(0,0)(255,191),12 qGRAPHED1 "rVPOS7:HPOS140ŀ((TITLE$)72) s ST10 HPOSHPOS50 t HPOS,VPOS: TITLE$ zT1Y(1)  S12 ST T1T1Y(S1)  S2S1 2 1 7 Y(S2)Y(S21) HOLDY(S2):Y(S2)Y(S21):Y(S21)HOLD  S2