10 REM > IDstamp 1.10
   20 REM User I.D. Stamper for
   30 REM "I.D. ***" 8BS issues
   40 REM    written 10/9/97
   50 REM  (c) 3 Spaceman (E3Y)
   60 REM (c) DataDream FreeWare
   70 REM Tell all your friends!
   80 REM Fixed by JGH - K8G
   90 MODE7
  100 ONERRORPROCE
  110 REM *FX4,2
  120 PRINT
  130 FORP%=0TO1
  140 PRINTCHR$(129+P%*4)CHR$141"8BS User I.D. Stamper"
  150 NEXT
  160 PRINT" †By 3 Spaceman (E3Y)"
  170 PRINT'" ƒPlease enter your user I.D.:„***"
  180 VDU31,31,5
  190 ID$="":REPEATL%=LENID$:G%=GET
  200 IF(G%>47ANDG%<58ORG%>64ANDG%<91)ANDL%<3VDUG%:ID$=ID$+CHR$G%
  210 IFG%=127ANDL%>0VDU8,42,8:ID$=LEFT$(ID$,L%-1)
  220 UNTILG%=13ANDL%=3
  230 VDU28,0,24,39,7
  240 *DIR$
  250 REM *OPT1,2
  260 REM A%=135
  270 CLS
  280 PRINT" ‚Please insert 8BS issue disc to be"'" ‚I.D. stamped."
  290 PRINT"  ENSURE WRITE-PROTECT LATCH IS CLOSED!"
  300 PROCK
  310 ONERRORGOTO340
  320 *MOUNT0
  330 GOTO350
  340 *DRIVE0
  350 ONERRORPROCE
  360 REM *LOAD!Boot 2000  --> What happens if program/vars are here?
  370 out%=OPENUP("!Boot"):PTR#out%=&2F
  380 REM IF?&202F<>42OR?&2030<>42OR?&2031<>42PRINT'"  THIS IS EITHER NOT AN 8BS ISSUE DISC    OR IT ALREADY HAS AN I.D. STAMP!":PROCK:GOTO270
  390 IF BGET#out%<>42 OR BGET#out%<>42 OR BGET#out%<>42:PRINT'"  THIS IS EITHER NOT AN 8BS ISSUE DISC    OR IT ALREADY HAS AN I.D. STAMP!":CLOSE#out%:out%=0:PROCK:GOTO270
  400 REM l$=""
  410 PTR#out%=&2F
  420 REM FORX%=30TO33     --> What happens if length is not there?
  430 REM VDU31,X%,5:C%=(USR(&FFF4)AND&FFFF)DIV&100
  440 REM l$=l$+CHR$C%     --> Ie, with ADFS, HADFS, NFS, CoProFS, RamFS
  450 REM NEXT             --> Ie, anything other than DFS
  460 FORW%=1TO3
  470 REM ?(&202E+W%)=ASCMID$(ID$,W%,1)
  480 BPUT#out%,ASCMID$(ID$,W%,1)
  490 NEXT:CLOSE#out%:out%=0
  500 PRINT
  510 REM PROCO("SAVE!Boot 2000+"+l$+" FF802B FF0E00") <-- Why not FFFF802B ?
  520 PRINT''"  All done."'"  PLEASE OPEN WRITE-PROTECT LATCH AGAIN."
  530 PRINT'" ƒAnother (Y/N)?";
  540 REPEATI%=INSTR("YyNn",GET$):UNTILI%
  550 IFI%<3GOTO270
  560 PRINT'" „Have a nice day!"'
  570 *FX4
  580 END
  590 DEFPROCE
  600 PRINT'
  610 IFERR=201PRINT"SHUT THE WRITE-PROTECT LATCH!!":PROCK:GOTO270
  620 IFERR=214PRINT"THIS DISC HAS NO ""!BOOT"" FILE!":PROCK:GOTO270
  630 IFERR=195PRINT"THE ""!BOOT"" FILE ON THIS DISC IS LOCKED!":PROCK:GOTO270
  640 REPORT:PRINT" @ ";ERL
  650 END
  660 DEFPROCK
  670 PRINT'"  Press a key...";:G%=GET
  680 PRINT:ENDPROC
  690 DEFPROCO($&900)
  700 X%=0:Y%=9:CALL&FFF7
  710 ENDPROC