910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245. UQUBUB919J UQ%(UQUB)(UQ)::""] UZ1:UV%(UT)f 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUBUB919 UQ,UQ%(UQUB): U1,U1% U2,U2%' U4,U4%5 U3,U3%1= 35o UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:J."":UT,UU%:(50003)053281,9:53280,8P/:m1" MENU"6" --------------------------------------";" 1. BEGIN SIMULATION"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"2O" 4. QUIT"aT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300  ** RE-ENABLE STOP KEY AND END **;(50003)1(50003)160(50003)0399eUU71:(50003)053281,6:53280,14r"":}875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" EMEMBER TO HIT AFTER"I" TYPING YOUR ANSWER. HIS TELLS"u" THE COMPUTER TO ACCEPT WHAT YOU"" HAVE TYPED."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10"UP0:UG$"EACHER NST":850P" O THE BEST OF OUR KNOWLEDGE,"y" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE.3" GINCOURT, NTARIO"U" ANADA 1 24"u" (416) 499-4292"@835:850:B" ROGRAM AME: IMULATIOND" RITTEN Y : NKNOWNF" PGRADED Y : H" HIS PROGRAM WILL RUN ON ANY2N" 64 WP" 64 `R835tTUZ1UP%:217zVX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **O"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:0(I137:"";:H*I122:"";:m," ."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL88"SOFTWARES: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **2HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"ILUI$:UI$" "844aM(UD$,24);UP$"":gNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870/a(UD$,24);(UP$,7);"HELP - PRESS H "@fUH0:"":_k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024AUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "/UT$" "5O ** SET VARIABLES **X900s ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"'"MEMORY TO RUN THIS PROGRAM !"2UU718R"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234.(50003)160955]1093,88:1094,228:1097,85:1102,228:965r(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,141Q2123,20:2124,3:2126,234:2127,141:2128,21:2129,3oUU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14:"":13)" "V13)" IMULATION"g13)" "13)"  ":13)" "" HOW THE COMPUTER FOLLOWS" A SIMPLE PROGRAM.":" THE PROGRAM THAT YOU WILL< " SEE WILL ADD TWO NUMBERS":" AND PRINT THE RESULT.F $ 835 ."":D$"":E$" >" 8F$" ":" ":" START" B" ":" 2!L" ENTER TWO":" NUMBERS "O!V" "!`" ":" ADD AND "!j" STORE THE ":" RESULT "!t" ""~" ":" DISPLAY "O"" ANSWER ":" "k"" """ STOP":" ""835"(D$,4)E$"835"(D$,4)F$#(D$,7)E$;25)"10 INPUT A":25)"20 INPUT B" #835=#(D$,7)F$:(D$,12)E$;25)"30 LET C=A+B"F#835u#(D$,12)F$:(D$,16)E$;25)"40 PRINT C"~#835#(D$,16)F$:(D$,20)E$;25)"50 END"#  835#(50003)053281,1:"":53281,6:53280,6:1300#""!$I14:MC(I),P1(I):MC(I)MC(I)32768UB:b$32983,114,33023,93,33063,93,33103,113:I16:IC(I)365UBI$(CO(I)378UBI:P2(I):P3(I)P2(I)::107,64,64,64,64,115$2I15:CA(I)412UBI40:CP(I)CA(I)6:P4(I),P5(I):%<(50003)053281,1:"":53281,6:53280,14:1347%>""X%C114,114,93,93,93,93,93,93,113,113:" A B C"%F" ":" MAIN"%P" MEMORY":" "::%&Z" ":" CONTROL "q&d" ":" "&n" INPUT OUTPUT"::&x" "&" "'" "@'" "h'" ACCUMULATOR PROGRAM MEMORY"q'835'1850:I14:P$(I):'"10 INPUT A","20 INPUT B","30 LET C=A+B","40 PRINT C"'835(I1:1810:I511:CP(I),P5(I)128::I11000:1((UD$,24);9)"PLEASE ENTER A NUMBER."d(I611:IC(I),P2(I)128::"? ";(US$"H0123456789":UL1:35:A(UR$):845("";A:1850:I11000::I16:IC(I),P2(I)128:)I12000::I411:MC(I),P1(I)128::"";A*)I11000::18504)" 835v)," ":1850:I2:1810:I511:CP(I),P5(I)128)6:I11000::I611:IC(I),P2(I)128:);(UD$,24);9)"PLEASE ENTER A NUMBER.")@"? ";)J35:B(UR$):845,*T1850:I11000::I16:IC(I),P2(I)128:q*^I12000::I411:MC(I),P1(I)128::"";B*hI11000::1850*r 835*|" ":1850:I3:1810:I15:CP(I),P5(I)128:+I11000::1850:I14:MC(I),P1(I)128::I11000:U+I15:CA(I),P4(I)128::I1500::"";A+I12000::1850:I11000::I14:MC(I),P1(I)128:+I11000::I15:CA(I),P4(I)128::I1500:,"";AB:I1500::I12000::18504,I511:CA(I),P4(I)128::I11000:`,I411:MC(I),P1(I)128::I1500:,"";AB:1850, 835,I4:1810:I15:CP(I),P5(I)128::I11000::1850-I14:MC(I),P1(I)128::I11000::I16:CO(I),P3(I)128:Q-I1500::"";AB:1850-"";AB: 835-1870-""" "-""P$(I).& 835 .0H.:I14:MC(I),P1(I)::I16:IC(I),P2(I):CO(I),P3(I):q.DI15:CA(I),P4(I):CP(I),P5(I)::.N(50003)053281,1:"":53281,6:53280,14:1877.P"".UI14:MC(I),P1(I):MC(I)MC(I)32768UB:)/X32983,114,33023,93,33063,93,33103,113:I16:IC(I)3313332768UBIn/bCO(I)3314632768UBI:P2(I):P3(I)P2(I)::107,64,64,64,64,115/lI15:CA(I)3318032768UBI40:CP(I)CA(I)6:P4(I),P5(I):/v(50003)053281,1:"":53281,6:53280,14:1917/x""/0}114,114,93,93,93,93,93,93,113,113:" A B C"m0" ":" MAIN"0" MEMORY":" "::0" ":" CONTROL "H1" ":" "s1" INPUT OUTPUT"::1" "1" "1" "2" "E2" ACCUMULATOR PROGRAM MEMORY":2290O2 835c2I14:P$(I):2"10 INPUT A","20 INPUT B","30 LET C=A+B","40 PRINT C":I1:22702I511:CP(I),P5(I)128::I611:IC(I),P2(I)1283(UD$,24);9)"PLEASE ENTER A NUMBER."'3 :"? ";=335:A(UR$):845a3 2290:I16:IC(I),P2(I)128:3*I411:MC(I),P1(I)128::"";A:" "342290:I2:2270:I511:CP(I),P5(I)128::I61149(UD$,24);9)"PLEASE ENTER A NUMBER."84>IC(I),P2(I)128::"? ";N4H35:B(UR$):845r4R2290:I16:IC(I),P2(I)128:4\I411:MC(I),P1(I)128::"";B4f" ":2290:I3:2270:I15:CP(I),P5(I)128::2290*5pI14:MC(I),P1(I)128::I15:CA(I),P4(I)128:l5z"";A:2290:I14:MC(I),P1(I)128:5I15:CA(I),P4(I)128::"";AB:22905I511:CA(I),P4(I)128::I411:MC(I),P1(I)128: 6"";AB:2290:I4:2270^6I15:CP(I),P5(I)128::2290:I14:MC(I),P1(I)128:|6I16:CO(I),P3(I)128:6"";AB:22906"";AB:I1500:6 8357"END OF SIMULATION": 300W7""" "7""P$(I):7I14:MC(I),P1(I)::I16:IC(I),P2(I):CO(I),P3(I):7I15:CA(I),P4(I):CP(I),P5(I)::