Big Char Exam

Source Code

  10 LET S=0
  20 PRINT AT 0,0;"ENTER ANY CHARACTER :::"
  25 INPUT A$
  30 LET P=7
  40 LET F=CODE A$
  50 LET F=8*F-8
 100 FOR B=7688+F TO 7688+F+7
 110 LET A=PEEK B
 120 FOR I=7 TO 0 STEP -1
 130 PRINT AT 21-P,I+S;CHR$ ((A-2*INT (A/2))*128)
 140 LET A=INT (A/2)
 150 NEXT I
 160 LET P=P-1
 170 NEXT B
 180 LET S=S+8
 190 IF S>25 THEN GOTO 300
 200 GOTO 20
 300 FOR N=1 TO 8
 310 SCROLL 
 320 NEXT N
 330 GOTO 10
9998 SAVE "BIG/CHAR EXA%M"
9999 RUN