image of READY prompt

Wang2200.org

Listing of file='IDS2P005' on disk='vmedia/701-2717B.wvd.zip'

# Sector 863, program filename = 'IDS2P005'
1000 REM "IDS2P005" - SECURITY ACCESS (USER ID & PASSWORD ENTRY)
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : E$(),R4$=" "
   : GOSUB '32("IDS2s005")
1035 MAT SEARCHE1$(),="IDS2f005"TO F9$STEP 56
   : IF F9$>HEX(0000)THEN 1040
   : GOSUB '38(54," ")
   : GOSUB '34(250)
   : IF Q<>31THEN 1035
   : GOTO 1151
1040 R8$="G"
   : F=0
1060 F=F+1
1070 GOSUB '34(F)
   : ON FGOTO 1090,1060,1060,1060,1060,1110
1090 GOSUB '41("IDS2f005",E$,-1)
   : IF Q=0THEN 1070
   : ELSE GOTO 1060
1110 IF E$=STR(E$(),34,8)THEN 1140
   : GOSUB '35("Invalid password - Please re-enter")
   : GOTO 1070
1140 GOSUB '43(1)
   : R4$=E$
   : GOSUB '43(5)
   : R8$=E$
1151 IF STR(R3$(1),,4)="IDS2"THEN P=2
   : ELSE P=4
   : LOAD T#P,R3$(1)1000,
1180 DEFFN'127"Q$=";HEX(22);"IDS2P005";HEX(22);" :SCRATCH T Q$ :SAVE DC T () Q
     $ ";HEX(0D)
   : STOP #
   : F0$=STR(R3$(),,9)
   : R3$()=STR(R3$(),10)
   : LOAD T#P,F0$1000,