May June 1980 - Commodore Computers

MAY/JUNE. 1980. 198O. ISSUE A. COMPUTE. 75
entered ered onn the appropriate priate data lines.
II If' several lessons are to be entered ered on the data
lines, you can occasionally check to see how many
free bytes of memory your PET still has for you u to
use. Typing thee direct command '?FRE(0) fRE(O) will give
you u this s information. If you have an 88KK PET, ,
ANSWER BOX will allow you to enter about 3000
bytes of data before running out of memory. . However,
don't push your luck down to the last few
bytes. Some bytes are consumed when a program runs.
Allow for this.
Lines 100-104 are used to lo print thee name off a
particular ANSWER BOX program. In the present
instance, nce , we are calling it IDENTIFYING IDENTIfYI NG COM­
PLETE SSENTENCES.
ES.
Look at Line Linc 7000. The first data entry is 23,
which is thee number of the lesson (sec (see Figure 1).
The next fifteen entries are the right ans\vers answers for
r
this s lesson. Finally, thee arrow pointing up tellss
the PET that the lesson is over and that thee resultss
should be summarized. Lines 9000·9999 9000-9999 summarize
the e results s of the lesson.
Readers may fee fcc free to copy the listing of
ANSWER BOX and to use it as they think best. bcst .
Readers ers who would rather just buyy a copy off thee
tape itself may do so for S7.95 37.95 from MICRO-ED,
INC., P.O. Box 24156, J56, Minneapolis, M Minnesota, Minnesola, 55424.
The author would be gLad glad to fo resjJond respond Lo to questions and
comments from interested readers.
5 REM BY T. ESBENSEN FOR tUCRO-ED,
MICROED,
-. , INC.P.O. BOX 24156, , MINNEAPOLIS,
-. , MN. . 55424
10 REM USE LINES 7000-7998 FOR DATA.
20 REM PAGE OR LESSON NUMBER SHOULD BE ,
,FIRST -.FIRST DATA ENTRY. .
30 REH REM THEN ENTER ANSWERS. ALL ENTRIES,
, SHOULD BE SEPARATED BY COHHAS .
-. SHOULD BE SEPARATED BY COMMAS.
40 REH REM END EACH LESSON WITH •"
50 REM EXAMPLES: 7000 DATA 1,A,B,C,D,'
1,A,B,C,D,"
60 REMM 7010 DATA 2,WAS,IS,~ 2,WAS,IS,'
70 DINWR$ DIMWR$(100)
95 TI$=" TlS="000000"
"
99 PRINT"fltHv"
PRINT"fiWW
100 PRINT"L~~***************************
-,** *****
101 PRINT".l»>*
".!:.;';'*
102 PRINT"j:>>* IDENTIFYING COMPLETE -.
103 PRINT"x»*
*
104 PRINT"r^>***************************
PRINT"L~~***************************
-,*******
115 PRINT"^":INPUT"STUDENTIS FIRST -.
,NAHE;';'2~~~";NA$
-.LE$
140 PRINT"6":RESTORE
PRINT"fi":RESTORE
150 READD5
155 PRIN
-,HING"
-.HING"
*
102 PRINT".!:.;';'* IDENTIFYING COMPLETE ,
,SENTENCES -■SENTENCES *
103 PRINT".!:.;';'*
115 PRINT"v":INPUT"STUDENT'S FIRST,
120 IFNA$="2"THEN90
"1"THEN90
130 PRINT"^":INPUT"LESSON
"v":INP NUMBER;';'2~~~" ;
,LE$
150 READD$
155 PRINT"hvvvHvHHHHHHHH;'.!:.SEARC
160 IFD$="""THENPRINT"vSORRY. IFD?=""~"THENPRINT"^SORRY. LESSON,
-i
-^NUMBER ,NUMBER NOT FOUND.":PRINT:PRINT"TRY
PRINT"TRY
,-i AGAIN.":GOT0130
":GOTO130
170 IFD$=LE$THEN190
180 GOT0150
180 GOTO150
190 PRINT"6"
PRINT"fi"
200 READA$
210 IFA$="""THEN9000
210 IFA$="'''THEN9000
220 P=P+l
P=P+1
225 IFP9THENSP=1
227 IFP>9THENSP=1
300 PRINT"6"
PRINT"fi"
301 PRINT" 99999999999999999999
302 PRINT" 5. .6. £
303 PRINT" 5. 5_ ANSWER ANS\'IER BOX £ .6.
304 PRINT" 59999999999999999996
305 PRINT" 999995 .6. £
306 PRINT" 5. 5_ 5. 5_ .6. £
307 PRINT" 5. 5_ 5.
308 PRINT" 5. 5. 5 .6. £
309 PRINT" 888885 £ .6.
310 PRINT" 5. 5_ .6. £
311 PRINT" 5. 5 .2. £
312 PRINT" 5. 5_ .6. £
313 PRINT" 88888888888888888888
320 PRINT" O###I#P
O#####P
321 PRINT" ERRORS .%. £ _L ~
322 PRINT" LSSSSS L$$$$$: ;
326 PRINT" O##PO##P
327 PRINT" TH1E TIME SPENT.%. &_!_&_!_ ~ ,
328 PRINT" LSS; LS$:L$$: LSS;
329 PRINT" MIN. SEC.
360 PRINT"MvvvHHvvvHHHHHHHHH
PRINT"!
370
-,~~";E
370 PRINT"hvvvvvvvvvvvvvvvvvv;.;.;.;.;.t;.;.;.;.;.
-,~~~~";
375 PRINTMID$(TI$,3,2) ;";';''';MID$(TI$,5,
375 PRINTMID$(TI$,3,2) ; "»" ;MID$ (TI$ , 5
,2) i2)
380 PRINT"hvvvvvvv;';''';SPC(SP) ^W^tt^W^" ; ;P;
382 INPUT";';';'l~~~";R$
"> »2