910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI$"":UO,0 *UL0UL80" -UC,06 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85: RETURN <UI$(20)105: DELETE > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++- ZUR$UX$195: EXIT TO HELP ROUTINE< _UF1240I dUF0::b f ++ CHECK DELETE ++s 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 **H (UI$)46190: PERIOD\ UI$(42) 187w UI$(32)190: SPACE (UI$)48(UI$)57170 : NUMBERS (UI$)65(UI$)90180 : ALPHABET (UI$)193(UI$)218UI$"":: SHIFTED ALPHABET?- (UT)UU%UI$((UI$)128):3 @ UI$"":e UF1: +++ HELP ROUTINE EXIT +++n 250w 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14G UT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3)\ UQ,UQ%(UQUB):h U1,U1%t U2,U2% U4,U4% U3,U3%1 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":/U1%(U1):U2%(U2):U3%(U3):U4%(U4)WUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL]n, ** MENU **t-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN LETTER ORDER"I@" 2. STUDENT INSTRUCTIONS"sE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";?^UL1:US$"12345":35: INPUT ROUTINEJ`US$""kc(UR$)1000,400,500,600,396th300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"": 875:, ** STUDENT INSTRUCTIONS **["":UT,UL%:(50003)053281,0:53280,0|UP0:UG$"TUDENT NST":850"ETTER ORDER"" OU TYPE IN THE LETTER THAT IS""MISSING THEN PRESS ."835:850$":O ADVANCE FROM ONE QUESTION"N"TO THE NEXT PRESS THE SPACE BAR."~"F AT ANY TIME YOU WISH TO RETURN""TO THE MENU PRESS H RETURN."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,108UP0:UG$"EACHER NST":850f" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM WAS GIVEN TO THE"" PUBLIC DOMAIN BY ITS MAKER."" ARJIE ARLER 1988"UP1:835:850" ROGRAM AME: ETTER RDER"9" RITTEN Y : ARJIE ARLER"Y" PGRADED Y : "" HIS PROGRAM WILL RUN ON ANY" à2.0 " 4.0 Ԡ" 8032 " 64 " 8356NUZ1UP%:217<WbX ** PROGRAM MODIFICATION INST **sY"":UT,UL%]UP0:UG$"ROGRAM OD":850^"OSSIBILITIES FOR MODIFICATION"_"WOULD BE TO USE THE PROGRAM FOR" a"NUMBERS INSTEAD OF LETTERS."7c"HANGE THE DATA IN LINES 1400-1410."bd"ELETE $(142) FOR LOWERCASE IN"ve"LINE 1310."835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 *" LOAD THE 'CBM 4032' PROGRAM"5UU71;` ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E ** """;:UT,UU%:(50003)053280,14:53281,6!$I138:"";:9&I122:"";:Q(I137:"";:i) A$: A$"" 300*I122:"";:," ."  0" 2" /4"C O M M O D O R ER6"EDUCATIONALq8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828 >T1$"":T2$"":T3$"":T4$"":I0@300/C ** SPACE BAR PRESS **jH(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18) \" --------------------------------------"`UH0870Oa(UD$,24);(UP$,7);"HELP - PRESS * "`fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **#UX$"*":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024aUT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""9UP$" "UT$" LETTER ORDER": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900B$(33):E$"":G$" "J53248 ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)967009 ** MEMORY CHECK **M (0)2000937{"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **71075,133:1076,144:1077,234:1079,4:1080,133:1081,145m1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)1990 1093,49:1094,230:1097,46:1102,230:965S 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY 800: TITLE!300: MENU9!"THE PGM WILL NOT WORK ON THIS MACHINE!":n!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14!"":UT,UL%! *****************************! LETTER ORDER!  " IN MEMORY OF"-" MATTHEW ALLEN MARLER3"O"$ BY MARJIE MARLERU".r"8 SEPTEMBER 24,1988x"B"L ****************************"V"`UP0:UG$"":"W10:M10:W$"1""C0:I0"1400: READ DATA #C51490: GET RANDOM NUMBER# C6 1460:6#850: PAGE DESIGNO#(142)""12);d# PRINT QUESTION## B$(F);G$;B$(F1);G$;B$(F2);G$;E$;G$;B$(F4);G$;B$(F5);G$;B$(F6)#$""18);#(UL1:35:H$UR$: GET ANSWER#2H$(B$(F3))1370$7 RIGHT ANSWER$;I21350?$<""12);"TRY AGAIN":II1:835_$A1300: WRONG ANSWER RETRY$FI2 18)""B$(F3):I0: CORRECT ANSWER$PM1M11$ZW1W11$d2740:2770:835$f C10 5000$n1280)%x" "," "," ",A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z," "=% " "," ","END"Q% A132:B$(A)j%B$(A)"END":1420q%Aw%%D(TI)%F((D13)14)%%D(TI)%F((D14)1)%% ***WINNER OUTPUT***% VX % K1110#& " CORRECT "+& K1;& GOSUB835A& U& *** SCORE ***m& S%(W1(W1M1))100s& & *** PRINT SCORE ***& "SCORE = ";S%& CC1& & :&850&"YOU ARE DONE NOW!!"'"YOUR SCORE WAS:"*'"";S%5'W835: