LXXXXXXXXXm DO NOT REMOVE OR CHANGE LINE 10 IT IS A ML 'PRINT AT' PROGRAM. USED LIKE THIS: SYSZ,ROW,COL WHERE ROW IS THE ROW # AND COL IS THE COLUMN # ::::: ::::: 40 ::::: ::::: ::::: ::::: ::::: :::::L " """"""""""""""""""""""""""{ " """""""""""""""""""""""""" " """" THIS IS AN OLD COMMODORE """" " """" """" " """" EDUCATIONAL PROGRAM THAT """"; " """" """"l " """" WAS MADE TO RUN ON MANY """" " """" """" " """" TYPES OF COMMODORE """" " """" """", " """" COMPUTERS. EVERYTHING """"[ " """" """" " """" NOT NEEDED WAS REMOVED """" " """" """" " """" AND IMPROVEMENTS MADE. """" " """" """"L " """" BLAME IT ON JIM GREEN """"{ " """" """" !" """""""""""""""""""""""""" "" """""""""""""""""""""""""" (K2054:M5:S54272:N(TI):P1024:53265,11, -53280,7:53281,7:"";f 2"  ߒ  ߒ ߒ   ߒ  " 7"    ߒ  ߒ   ߒ  " <"     ߒ   ߒ     "A"     ߒ    "KF"  ߒ   ߒ    "K"    ߒ     "P"     ߒ     "U"    ߒ     "Z"  2_" ߩnd" ߒ  ߒ ߒ  ߒ   "i"   ߒ  ߒ  ߒ   "n"   ߒ   ߒ    "s"    ߒ    "Ix"   ߒ    "}"   ߒ     "" ߒ    ߒ     ""   ߒ     "  ":53265,27H" ߩ":1050:D11E3::53265,11g"":53281,12:53280,12" RANE * RAIN RANE * RAIN RANE * RA";"IN RANE * RAIN RANE * RAIN RANE * ";"RAIN RANE * RAIN RANE * RAIN RANE *";N" RAIN RANE * RAIN RANE * RAIN RANE"l" "" --------------------------------------"" 1. EGIN Π TO DRILL" ON DDITION, UBTRACTION & ULTIPLY" 2. NSTRUCTIONSA" 3. UIT - UIT - UITr" --------------------------------------"" RESS A NUMBER KEY (1-3) ":53265,27G$:G$"1"G$"3"215(G$) 410,235,23015053281,6:53280,14:" OK, OK, I QUIT!!":D13E3:>" ":g53265,11:"":53280,15:53281,15" NSTRUCTIONS RAIN RAIN"";" HIS PROGRAM HELPS YOU WITH MATH." HE COMPUTER WILL ASK YOU SOME MATHL" QUESTIONS SUCH AS '1 +  = 5'. OU"| " HAVE TO TYPE IN THE NUMBER THAT SHOULD"" BE WHERE THE  IS. N THIS CASE" YOU WOULD TYPE IN '4' (WITHOUT "" QUOTATION MARKS [']). HE COMPUTER "-" WILL THEN FIX THE QUESTION BY PUTTING"`"" YOUR ANSWER IN IT WITH A CRANE.":53265,27t' 390:53265,11," OTE:O ADVANCE FROM ONE QUESTION"1" TO THE NEXT PRESS THE BAR"6" HIS PROGRAM 'BUILDS UP' A PLAYER'S"#;"MATH SKILLS BY DRILL. FAMILY OF"N@"NUMBERS IS DRILLED TEN TIMES, AFTER"zE"WHICH THE PLAYER'S SCORE IS PRINTED."J"HE COMPUTER WILL GIVE A COMMENT "O"APPROPRIATE TO THE SCORE. F THE"T"PLAYER DID NOT GET ALL THE QUESTIONS"'Y"CORRECT, THE SAME NUMBER FAMILY WILL BE"T^"DRILLED AGAIN. HE RANGE OF FAMILIES"c"AVAILABLE IS FROM 1 TO 50 FOR + AND - AND 1 TO 12 FOR X.h" OU HAVE THE OPTION OF CHOOSING ONE"m"FAMILY OF NUMBERS FOR INTENSIVE STUDY,"r"OR THE COMPUTER CAN RANDOMLY CHOOSE"Iw"DIFFERENT FAMILIES FOR EACH QUESTION."x|" N EXAMPLE OF A NUMBER FAMILY IS THE""12 IN '7 + 5 = 12'.":53265,27198,0:K,23,6:" PRESS TO CONTINUE "G$:G$" " 395150!"";::53280,15:53281,15:53265,115I09:A$(I):Q" BRAIN CRANE . . . ." " WOULD YOU LIKE TO DO....":13)"ADDITION13)"SUBTRACTION":13)"MULTIPLICATION*" WHICH WILL IT BE.... A - S OR M":53265,27PG$:G$"A"G$"S"G$"M" 445rG$"A"12)"ADDITION IT ISG$"S" SU1:10)"SUBTRACTION IT IS":Q$"-"G$"M" MU1:9)"MULTIPLICATION IT IS" DO YOU WANT THE COMPUTER+" TO PICK RANDOM NUMBERS Y/N":L0IG$:G$"Y"G$"N" 475YG$"Y"L1vI1823:781,I:59903: 930JXJX1:53280,15:53281,15:53265,11" BRAIN CRANE QUESTION #"JX " "7" b" ͧЧЧ ЧЧЧЧ  "  " ͧ ͧ " K,16,4:Z$(B): 980:S$;8!Z$(C): 985:" ";:Z$(A): 980:D0g&K,12,9:"WHAT IS THE NUMBER ";:53265,27{+1,0:1,U$::10D(U$):D0D50 5505CDD$"": 605:YY1:Y3 590?" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":1085DE11200::D0:D$""?ID0D$"0"T1214:781,T:59903:: 550oN" THAT'S 3 WRONG ANSWERS. THE ANSWER IS"S12)""B;Q$;C"="A:I13:1085:X 390:WW1:Y0: 495]1050bT130:K,22,T:" RIGHT!! ";:E00 ::g1050( lT3011:K,22,T:" RIGHT!! ";:E00 ::A q: :E11E3:s v781,12:59903:781,22:59903:"";:NRNR1 {" "; " ֥ "; !" ј ";>!" ::::::::";s!"  ";!" ך ";!"  ";""  . ";V""  ";""NUMBER  ";"" ղ۲۲";"" BOX ѳ";.#" ʱ˘";c#" ":X14#E11E3::K,7,31:"  "#G(((B))1)3:G3G2#G9G10#B$((C),2):(B$)1C$A$((B$)):D$"": 730$C$A$(((B$,1))):D$A$(((B$,1)))C$B$"    "q$K,2,X:"";:IX31:B$;: 1075 : I$I03:RP20340I:R,93:RS,12$R1,32:R40,75:R40S,12:R39,74:R39S,12$1075:%R40,93:R40S,12:R39,32:I1500:%MM1:646,M:M11M5@%I15:K,10,0:J1I:"";:[%" "(C$,7I):1075:v%RP238:B$(B$,31)C$% "";:I311G:J1I:" ";:J:B$;%"     "%1075::RRRI180:X12G&J1I2:"";::"";:I112:" "C$"";)& 1075:c&%I901:RRR40I:R,93:RS,12:R39,74:R39S,12&*R40,75:R40S,12:R79,32:R80,32:1075:&/D$""K,7,31:" ": 390: 825&4GG4:C$D$:D$"": 730&9JX10Y0:930:495('>" GAME OVERX'C" "p'H14)"FAMILY OF"N'M"TOTAL RIGHT TOTAL WRONG"'R" ":T13:1050:'W""8)NR28)W"":NR10W*(\NR5"OOPS!! LET'S TRY IT AGAIN.": 915r(aNR8"LET'S TRY TO DO BETTER BY PRACTICINGSOME MORE.":915(fNR10"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE";(kNR10" CAN GET 10!": 915(p"":)u"PERFECT!!!!!!":"YOU'RE TOO GOOD FOR ME!!";:I120t)z"YOU'RE TOO GOOD FOR ME!!";)J150:)"YOU'RE TOO GOOD FOR ME!!";)J150:):) 390)NR10"":JX0:NR0:W0:495*150%*L1A11:N((1)501)4*MU11105t*SU1BN:A((1)B1):CBA:S$"":Q$"-": 950*AN:B((1)A1):CAB:S$"   ":Q$"+"*A11 495*K,19,4:"WHAT NUMBER DO YOU WANT TO DRILL."+MU111302+" (BETWEEN 1 AND 50) ";N:A11E+N50N1 955O+ 935x+I2(Z$):A$(((Z$,I,1)))"";::+I2(Z$):J15:"";::" ";:++"        "-,"        "b,"      ","       ","         "-"      ":-"      "s-"         "- "       "-"        ".T150.5:S24,T:S24,0::,.S5,17:S6,251:S19,187:S20,140_.S24,15:S18,17:S4,17:I302003:S1,I:.$S4,0:I1150::S4,17:I301203:S1,I:.)I120201.5:S1,I::ISS23:I,0::..I120201.5:S1,I::ISS23:I,0::%/3S5,140:S6,246:S24,15:S1,0:S,184:S15,2E/8S4,21:E130::S4,20:i/=T150.5:S24,T:S24,0::/BS212:S5,17:S6,251:S19,187:S20,140/GS24,15:S18,17:S4,17:T301603:S1,T:/LS4,0:E140:::TSS23:T,0::0QL1A11:N((1)12)1D0VS$"  ֥  ":Q$"X"[0`BN:U((1)12)1q0eABU:CAB: 9500j" (BETWEEN 1 AND 12) ";N:A110oN12N111300t1120