10 REM Repton 3 Screen File Info
   20 REM Written By Jon Ripley (C) 1995
   30 REM This program is PD
   40 REM This program is part of a
   50 REM suite of programs which form
   60 REM a complete Repton 3 screen
   70 REM screen file editor which is
   80 REM availiable in the JJR section
   90 REM of the 8-Bit Software
  100 REM Catalogue which contains many
  110 REM more utilities and other
  120 REM goodies! It is fully BBC and
  130 REM Electron compatible
  140 MODE7
  150 ONERRORREPORT:PRINTERL:END
  160 HIMEM=&3100
  170 REPEAT
  180 PROCscreen(FALSE)
  190 A$=FNgetloadname
  200 IF A$<>"" OSCLI"L. "+A$+" 31E0":PROCpcode:PROCscreen(TRUE):PRINT'"Press any key to continue...":REPEATUNTILGET
  210 UNTILA$=""
  220 MODE7
  230 END
  240 DEFFNgetloadname
  250 LOCAL t$
  251 PRINT"Insert Repton Disc And Press A Key"
  252 *FX21
  253 REPEATUNTILGET
  260 *.
  270 INPUT"Load file:"t$
  280 =t$
  290 DEFPROCshowdata
  300 Z%=@%
  310 @%=&906
  320 PRINT"Password        Time Editor"
  330 FORX%=1TO8
  340 PRINTCHR$(64+X%)") ";
  350 Y%=0:REPEATVDU Y%?(&31D8+X%*8):Y%=Y%+1:UNTILY%=8 OR Y%?(&31D8+X%*8)=13
  360 PRINTTAB(11,VPOS),!(&321E+(2*X%))AND&FFFF,!(&322E+(2*X%))AND&FFFF
  370 NEXT
  380 @%=Z%
  390 ENDPROC
  400 DEFPROCscreen(Z%)
  410 VDU26,12
  420 FORX%=0TO1
  430 VDU141:PRINTTAB(7,X%)"Repton Screen File Info"
  440 NEXT
  450 PRINT
  460 IF Z% PROCshowdata
  470 ENDPROC
  480 DEFPROCpcode
  490 FORX=0TO&3F
  500 X?&31E0=(X?&31E0) EOR (&3F-X):NEXT
  510 ENDPROC