910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.L  IF YOU HAVE CONTARYi  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 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 ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1)% 2 UI$"":M ** STANDARD INPUT **^ (UI$)46o UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245^ WW1UQUBUB919 WW0 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281,6:53280,14:220""";QUT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)vWW0UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%1 WW1 35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):@(UD$,24);"  HELP COMING ":lU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"26" --------------------------------------"Z;" 1. BEGIN POINTS "@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"&T" --------------------------------------"QY" PRESS A NUMBER KEY (1-5) ";z^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300`US$"":UT$" "c(UR$)1000,400,500,600,396h300 ** RE-ENABLE STOP KEY AND END **%(50003)1(50003)160(50003)0399OUU71:(50003)053281,6:53280,14["":f875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" HERE ARE INSTRUCTIONS IN THE PROGRAM"4" AS YOU NEED THEM, THE WILL GIVE "I" THEM TO YOU.w" UST REMEMBER THAT COORDINATE 'X' IS" GIVEN FIRST THEN THE 'Y', AND ALSO"" THAT THE FLASHING DOT IS THE POINT":" THAT THE WANTS.3" FTER '5' CORRECT ANSWERS YOU WILL  ADVANCE TO THE NEXT ROUND.p835:UP2:850:" OTE:O ADVANCE FROM ONE QUESTION" TO THE NEXT PRESS THE BAR."F AT ANY TIME YOU WISH TO RETURN" TO THE PRESS H .":835:UT$" POINTS"UZ1UP%:217; ** TEACHER INSTRUCTIONS **k"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"," PLEASE CONTACT:"V" OMMODORE USINESS ACHINES"y" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: OINTS G" RITTEN Y : O NN OMITO"k" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64 " 835:850" ATA LINES MAY BE ADDED AT THE END OFL" THE PROGRAM IN ORDER TO ADD OR CHANGEx" THE PICTURE'S THAT THE CAN DRAW" WHEN THE STUDENT TRIES TO 'CONNECT THE"" DOTS.'" LL THAT IS NEEDED IS TO TYPE IN THE" & COORDINATES ACCORDING TO YOUR/ " PICTURES COORDINATES.t"" HE FIRST VALUE IS THE NUMBER OF":" POINTS IN THE PICTURE.:835:UT$" POINTS"NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850(" HERE IS A LITTLE MACHINE LANGUAGEW" PROGRAM USED FOR MAKING THE GRID/BOARD" THIS ROUTINE IS TOTALLY RELOCATABLE.835:850" UST CHANGE VARIABLE '' IN LINE 902" TO ANYTHING YOU LIKE. EMEMBERING THAT " THE ROUTINE IS 12 CHARACTERS IN LENGTH"K" LSO THAT THE AMOUNT LISTED IS THEu" START OF THE ROUTINE NOT THE END.~835UZ1UP%:217:UT$" POINTS" ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 7" LOAD THE 'CBM 4032' PROGRAM"BUU71Hm ** 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:"";:F&I122:"";:^(I137:"";:v*I122:"";:," ."  0" 2" $4"C O M M O D O R EG6"EDUCATIONALf8"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 **_HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"vLUI$:UI$" "844|NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$,18)\" --------------------------------------" `UH0870> a(UD$,24);(UP$,7);"HELP - PRESS H "O fUH0:"":n k ** PLEASE WAIT REMARK ** p(UD$,24);" ONE MOMENT PLEASE... " u  ** SET UP VARIABLES **!UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024P!UT59468: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:UO198!UD$""("UP$" "v"UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***|"" ** SET VARIABLES **"W842"900" ** CHECK FOR 8032 **""":"": SHIFTED SPACE"(UB40)96700# ** MEMORY CHECK **&# (0)2000937T#"THIS MACHINE DOES NOT HAVE ENOUGH"x#"MEMORY TO RUN THIS PROGRAM !"#UU71##"":(50003)0962# ** BASIC 2.0 OR 4.0 OR C-64 SETUP **$1075,133:1076,144:1077,234:1079,4:1080,133:1081,145F$1091,155:1098,133:1099,144:1100,234:1103,133h$1104,145:1105,234:1082,234$(50003)160955$1093,88:1094,228:1097,85:1102,228:965$(50003)1990$1093,49:1094,230:1097,46:1102,230:965,%2099,141:2100,20:2101,3:2103,8:2104,141:2105,21h%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: MENU&"THE PGM WILL NOT WORK ON THIS MACHINE!":G&UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **r&"";::(50003)053281,0:53280,0&L**POINTS-BY JOANN COMITO-SUNY @ STONY BROOK&V**WRITTEN 7/30/78&`**REVISED 8/20/79**&j2120'tD$""7'~R$"":2160f'"":UH1:UG$" NSTRUCTIONS":UT,UL%:850'" HE 64 WILL HELP YOU PRACTICE PLOTTING"'" POINTS IN A PLANE."'" F YOU ALREADY KNOW HOW TO LOCATE (" POINTS IN THE COORDINATE PLANE, YOU"%(" CAN SKIP AHEAD."g(" O YOU WANT TO SKIP AHEAD? ";:US$"YN":UL1:35:A$UR$x("":UT,UU%(A$"Y"1540(2260(I15(2370:2410:2450:B20:2850:I)2" DO YOU NEED MORE PRACTICE? ";:US$"YN":UL1:35:A$UR$)<A$"N"15400)F"":UT,UL%:UH1:850d)K" OW THE 64 WILL LET YOU PICK SOME POINTS.")P"YPE IN THE LOCATION OF THE POINT BY)Z"TYPING IN THE FIRST NUMBER, WHICH IS 'X')d"THEN THE SECOND NUMBER WHICH IS 'Y'.*n"HE 64 WILL SHOW YOU WHERE THE POINT ISD*x"LOCATED. AKE SURE THAT THE FIRSTr*"NUMBER IS BETWEEN -16 & 16. AKE SURE*"THE SECOND NUMBER IS BETWEEN -11 & 11*835:"":UT,UU%*2260*I15*2490:2410:B19:2850:+"5-10-5051015XU+" DO YOU STILL NEED PRACTICE? ";:US$"YN":UL1:35:A$UR$f+A$"Y"1440+UH1:"":UT,UL%:850+ " OW THE 64 WILL SHOW YOU SOME POINTS.+" OU TYPE IN THE LOCATION OF THE POINT ," BY TYPING IN THE FIRST NUMBER, WHICH"<,"" IS 'X' THEN THE SECOND NUMBER IS 'Y'. "R,,835:"":UT,UU%\,62260g,@I15,J2370:2370:2410:B19:2850:2560:," DO YOU WANT MORE PRACTICE? ";:US$"YN":UL1:35:A$UR$,A$"Y"1590,"":UT,UL%:850+-"HE 64 WILL GIVE YOU THE LOCATION OF A"V-"POINT. OU MUST MOVE THE DOT UNTIL"|-"IT IS AT THE CORRECT LOCATION."-" '8' TO MOVE DOT P 8"-" '4' TO MOVE EFT "-" '6' TO MOVE IGHT 4 6"." '2' TO MOVE OWN "*." 2"S.:"FTER THE DOT IS AT THE CORRECT"w."LOCATION HIT THE RETURN KEY.".&:"HE 64 WILL GIVE YOU SEVERAL POINTS TO.0"PLOT. FTER THE LAST POINT PET WILL.:"'CONNECT THE DOTS.' IF YOU HAVE"/D"LOCATED THE DOTS CORRECTLY YOU SHOULD7/N"SEE A PICTURE.M/X835:"":UT,UU%W/b2950h/lN10001960r/v3090/D22:R1:1980/"TRY ANOTHER PICTURE? ";/US$"YN":UL1:35:A$UR$/A$"Y"18900"HAVE A GOOD DAY!":835:Z0" SORRY, THE 64 IS OUT OF PICTURES.":835:|0P$""(R$,R)(D$,D):P$;:0 PS0:P0:C1$""0PSUM40DR:P(PS)0*P57PP12804C1$(P):0HIWW12:J:I,J:I1\169,91,162,0,157,45,128,232,224,31,208,248,961f81p"":17)"POINTS"[1"":12)"BY JO ANN COMITO"1" COPYRIGHT, SUNY STONY BROOK, 1978"1I1301R((1)999UM)1(R)3222101R,81:1I12000:I:1**DRAW AXES**1""=2I121:ADUM5I40:MB(AD256):LBAD256MB:W5,LB:W6,MBF2W:T2 59409,60e2 ""20)"Y"2 19)"1050-5-10"2$ D11:R3:19802. "-15-10-5051015X":*3B X((1)31)1:Y((1)21)1:X1X15:Y111Y:D3j DY:RX5:2060:1980O3~ "":b3 D22:R1:19803 " THIS POINT IS LOCATED AT ("X1","Y1")":3 D22:R1:19803 (UD$,24)" CHOOSE A LOCATION X ";$4 US$"-0123456789":UL3:35:X1(UR$)B4 X116X116"";:2510y4 " CHOOSE A LOCATION Y ";4 US$"-0123456789":UL3:35:Y1(UR$)4 Y111Y11125164 X116X116X1(X1)Y111Y111Y1(Y1)24905 XX115:Y11Y1:5 D22:R1:1980X5 (UD$,24)" WHERE IS THE POINT LOCATED X ";5 US$"-0123456789":UL3:35:X2(UR$)5 X216X216"";:25705 (UD$,24)" WHERE IS THE POINT LOCATED Y ";6 US$"-0123456789":UL3:35:Y2(UR$)6 Y211Y2112575b6 X2X1Y2Y1(UD$,24)" RIGHT "6 X2X1Y2Y1 PS,P:26006 (UD$,24)" WRONG "6# K11500::25606( K11500:72 (UD$,24)" ":27F R20:D11:2060:1980@7Z X20:Y20K7d "ѝ";_7n M$:M$""26707s M$UX$WW1:195:"";:WW0:26707x M$"2"M$"4"M$"8"M$"6"M$(13)26707 M$(13)27907 M$"2"Y2Y21:Y210Y2Y21:2670!8 M$"2"C1$;"";:DD1:2060:"ѝ";K8 M$"4"X2X21:X215X2X21:2670u8 M$"4"C1$;"";:RR1:2060:"ѝ";8 M$"8"Y2Y21:Y210Y2Y21:26708 M$"8"C1$;"";:DD1:2060:"ѝ";8 M$"6"X2X21:X215X2X21:26709 M$"6"C1$;"";:RR1:2060:"ѝ";%9 2670@9 P(I,1)X2P(I,2)Y2T9 D23:R18:19809 "WRONG";:K1900::" ";9 D11Y2:RX220:19809 C1$;9 26309" K1B96 DY:RX59@ K2(K2)1980:C1$:29209J C$""9T 1980:^ C$:h J1100:J:r K":| :: N=#PTS IN PICTUREA: NO: N1000Y: 2260u: I1N:P(I,1),P(I,2):: P(N1,1)P(1,1):P(N1,2)P(1,2): I1N: X1P(I,1):Y1P(I,2): XX115:Y11Y1: 2450: 2630: I: : I1N,;& X1P(I,1):X2P(I1,1):Y1P(I,2):Y2P(I1,2)N;0 X1X2Y1Y2C$"":C7:3230p;: X1X2Y1Y2C$"":C8:3230;D X1X2Y1Y2C$"":C3;N X1X2Y1Y2C$"":C1;X X1X2Y1Y2C$"":C2;b X1X2Y1Y2C$"":C3;l X1X2Y1Y2C$"":C4