100 RESTORE 10000
110 WR=0
120 CLS
130 READ Q$
140 if Q$="XXX" then 1000
150 print Q$
160 for J%=1 to 4
170  read A$
180  print chr$(48+j%);":";a$
190 next
200 read A
210 input "Your answer";an
220 if (A xor 5)=an then 300 else 500

300 cls:print "Correct!"
310 print "Press a key to continue"
320 a$=input$(1)
330 goto 120

500 cls:print "Incorrect!  2K of RAM deleted"
510 clear 512,HIMEM-2048
520 print "Press a key to continue"
530 a$=input$(1)
540 goto 120

1000 IF WR=0 THEN 2000
1010 CLS:?"Sorry, you have failed..."
1020 ? WR*2;"K or RAM has been removed"
1030 print "Press any key to return"
1040 a$=input$(1)
1050 menu

2000 CLS:?"Congratulations!  You Have Passed!"
2010 PRINT "Do you need to recover RAM?"
2020 PRINT "(Note, this could destroy any .CO"
2030 print "Programs)"
2040 print:print "[Y]/N"
2050 A$=INPUT$(1)
2060 if A$<>"Y" then CLEAR 512,MAXRAM
2070 MENU

10000 DATA How do you set the day of week?
10010 DATA "POKE(-154,#)  Where # is between 0-6"
10020 DATA SETDOW(#)     Where # is between 0-6
10030 DATA SETDOW("Mon") Where Mon is the day
10040 DATA DAY$="Mon"    Where Mon is the day
10050 DATA 1
10060 DATA To move to the end of a TEXT document:
10070 DATA You hold the down arrow
10080 DATA Press CTRL-I
10090 DATA Press CTRL-E
10100 DATA Press CTRL-down repeatedly
10110 DATA 7
10120 DATA To load a BASIC program from casette:
10130 DATA CLOADM "filename"
10140 DATA CLOAD "filename"
10150 DATA LOAD "filename"
10160 DATA READ "filename"
10170 DATA 7
10180 DATA To show the current max. open files:
10190 DATA ? MAXFILES
10200 DATA PRINT PEEK(-12)
10210 DATA PRINT MAXFIL
10220 DATA PRINT MAXOPEN
10230 DATA 4
10240 DATA SCHEDL uses what TEXT file?
10250 DATA SCHEDL.DO
10260 DATA SCHD.DO
10270 DATA TODO.DO
10280 DATA NOTE.DO
10290 DATA 1
10300 DATA "To set 1200 bps, 6 Data bits, Even      parity, 2 stop bits, XON/XOFF control"
10310 DATA 6E2X
10320 DATA 642EX
10330 DATA 46E2E
10340 DATA 462EE
10350 DATA 6
10360 DATA TELCOM uses this file for phone numbers
10370 DATA PHONE.DO
10380 DATA ADRS.DO
10390 DATA DIAL.DO
10400 DATA BBS.DO
10410 DATA 7
10420 DATA XXX