10 VDU14
20 PROCintro
30 END
40 DEFPROCintro:PROCTITLE:PROCCLEAR:C
LS
50 PRINT:VDU 132,157:PRINT" PRESS SHI
FT TO READ ON"
60PRINT'" TEST CARDS HAS BEEN DEVELOP
ED FOR "
70PRINT" PEOPLE WHO NEED HELP WITH TH
EIR "
80PRINT" REVISION WORK...OR SOMEONE W
HO WANTS "
90PRINT" TO DEVELOP A QUIZ COMPETITIO
N,ETC....."
100PRINT'" I HAD THE PROBLEM OF NEEDIN
G SOMETHING"
110PRINT" TO HELP ME REVISE MY NOTES,F
OR THE "
120PRINT" GCSE EXAMS - SO I DEVISED TH
IS "
130PRINT" PROGRAM."
140 PRINT'" TEST CARDS ENABLES YOU TO
MAKE A CARD."
150 PRINT" NOW I KNOW WHAT YOU'RE THIN
KING......"
160 PRINT" WHAT'S A CARD ? (NO,NOT THE
STUFF THE"
170 PRINT" THAT CORNFLAKE PACKETS ARE
MADE OF!!)"
180PRINT'" A CARD CONSISTS OF THE FOLL
OWING : A"
190PRINT" QUESTION,THREE MULTICHOICE A
NSWERS &"
200PRINT" THE CORRECT ANSWER TO THE QU
ESTION."
210PRINT" FOR EXAMPLE,MAKE UP A QUESTI
ON..WHAT "
220PRINT" IS 2+2 ? THEN TYPE IN THREE
ANSWERS..."
230PRINT" 4,5 & 6.LASTLY YOU TYPE THE
CORRECT "
240PRINT" ANSWER...4.YOU CAN MAKE A NU
MBER OF "
250PRINT" CARDS LIKE THESE,BUT BE WARN
ED : IF"
260PRINT" YOU HAVE TOO MANY CARDS THE
COMPUTER"
270PRINT" MAY CRASH.THEREFORE THERE IS
A MAXIMUM"
280PRINT" LIMIT OF 50 CARDS,WHICH SHOU
LD BE "
290PRINT" ENOUGH."
300PRINT'" NOW IT WOULDN'T BE WORTH TY
PING IN "
310PRINT" ALL THOSE CARDS WITHOUT SOME
HOW SAVING"
320PRINT" AND LOADING THEM,WOULD IT ?
SO I HAVE"
330PRINT" ALSO INCLUDED THIS FACILITY
IN.THERE"
340PRINT" ARE OTHER FACILITIES IN THE
PROGRAM "
350PRINT" WHICH YOU CAN FIND OUT ABOUT
...SO "
360PRINT" HAPPY TYPING !!"
370PRINT'
380 PRINTTAB(8);:VDU 132,157;:PRINT" B
y A.SATTAR.SHAKOOR (Age 16) ";CHR$(156)
390 PROChold2
400 ENDPROC
410DEFPROCCLEAR:VDU 28,0,24,39,4:CLS:V
DU 23,1,0;0;0;0;
420VDU 28,0,24,39,4:CLS:FOR T=1TO19:PR
INTTAB(0,T);CHR$(132);CHR$(157);:FOR W=1
TO150STEP8:SOUND &11,1,W,1:NEXT,
430VDU23,0,10,12,0,0,0,0,0,0
440ENDPROC
450 DEFPROChold2
460 PRINTTAB(10);:VDU 129,157:PRINT" P
RESS ANY KEY TO CONTINUE ";CHR$(156):A$=
GET$
470 CLEAR:CHAIN"CARDS"
480 ENDPROC
490 DEFPROCTITLE
500 PRINTTAB(0,0)" ";CHR$150;"<";STRI
NG$(34,",");"4":FOR C=1TO2:PRINTCHR$148;
CHR$157;CHR$141;"5";" ";" TEST CARDS BY
A.S.SHAKOOR '90":NEXTC:PRINT" ";CHR$150
;"-";STRING$(34,",");"%"
510 ENDPROC