10  VDU14
   20  PROCintro
   30  END
   40  DEFPROCintro:PROCTITLE:PROCCLEAR:CLS
   50  PRINT:VDU 132,157:PRINT"‡PRESSˆSHIFT‰TO READ ON"
   60 PRINT'"�TEST CARDS HAS BEEN DEVELOPED FOR "
   70 PRINT"�PEOPLE WHO NEED HELP WITH THEIR "
   80 PRINT"�REVISION WORK...OR SOMEONE WHO WANTS "
   90 PRINT"�TO DEVELOP A QUIZ COMPETITION,ETC....."
  100 PRINT'"ƒI HAD THE PROBLEM OF NEEDING SOMETHING"
  110 PRINT"ƒTO HELP ME REVISE MY NOTES,FOR THE "
  120 PRINT"ƒGCSE EXAMS - SO I DEVISED THIS "
  130 PRINT"ƒPROGRAM."
  140  PRINT'"†TEST CARDS…ENABLES YOU TO MAKE A†CARD."
  150  PRINT"…NOW I KNOW WHAT YOU'RE THINKING......"
  160  PRINT"…WHAT'S A CARD ? (NO,NOT THE STUFF THE"
  170  PRINT"…THAT CORNFLAKE PACKETS ARE MADE OF!!)"
  180 PRINT'"‡AƒCARD‡CONSISTS OF THE FOLLOWING : A"
  190 PRINT"‡QUESTION,THREE MULTICHOICE ANSWERS &"
  200 PRINT" THE CORRECT ANSWER TO THE QUESTION."
  210 PRINT" FOR EXAMPLE,MAKE UP A QUESTION..WHAT "
  220 PRINT" IS 2+2 ? THEN TYPE IN THREE ANSWERS..."
  230 PRINT" 4,5 & 6.LASTLY YOU TYPE THE CORRECT "
  240 PRINT" ANSWER...4.YOU CAN MAKE A NUMBER OF "
  250 PRINT" CARDS LIKE THESE,BUT BE WARNED : IF"
  260 PRINT"‡YOU HAVE TOO MANY CARDS THE COMPUTER"  
  270 PRINT"‡MAY CRASH.THEREFORE THERE IS A MAXIMUM"
  280 PRINT"‡LIMIT OF 50 CARDS,WHICH SHOULD BE "
  290 PRINT"‡ENOUGH." 
  300 PRINT'"„NOW IT WOULDN'T BE WORTH TYPING IN "
  310 PRINT"„ALL THOSE CARDS WITHOUT SOMEHOW SAVING"
  320 PRINT"„AND LOADING THEM,WOULD IT ? SO I HAVE"
  330 PRINT"„ALSO INCLUDED THIS FACILITY IN.THERE"
  340 PRINT"„ARE OTHER FACILITIES IN THE PROGRAM "
  350 PRINT"„WHICH YOU CAN FIND OUT ABOUT...SO "
  360 PRINT"„HAPPY TYPING !!"
  370 PRINT'
  380  PRINTTAB(8);:VDU 132,157;:PRINT"‡By A.SATTAR.SHAKOOR (Age 16) ";CHR$(156)
  390  PROChold2
  400  ENDPROC
  410 DEFPROCCLEAR:VDU 28,0,24,39,4:CLS:VDU 23,1,0;0;0;0;
  420 VDU 28,0,24,39,4:CLS:FOR T=1TO19:PRINTTAB(0,T);CHR$(132);CHR$(157);:FOR W=1TO150STEP8:SOUND &11,1,W,1:NEXT,
  430 VDU23,0,10,12,0,0,0,0,0,0
  440 ENDPROC
  450  DEFPROChold2   
  460  PRINTTAB(10);:VDU 129,157:PRINT"‡PRESS ANY KEY TO CONTINUE ";CHR$(156):A$=GET$
  470  CLEAR:CHAIN"CARDS" 
  480  ENDPROC
  490  DEFPROCTITLE
  500  PRINTTAB(0,0)"  ";CHR$150;"<";STRING$(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