image of READY prompt

Wang2200.org

Listing of file='IDS2PS93' on disk='vmedia/701-2715B.wvd.zip'

# Sector 395, program filename = 'IDS2PS93'
1000 REM "IDS2PS93" - Release 2.1 - SPECIAL EDIT FILE MAINTENANCE
1010 COM C9$(5)18,C8$(5)20,C9,J6,J7,J8,J0$9,J1$8,J2$17,J3$18,J4$1,J9
   : E6$=F6$(17)AND HEX(02)
   : IF E6$=HEX(00)THEN LOAD T#2,"IDS2SUB8"3701,3899BEG 1030
1030 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : E$()=" "
   : IF C9$(1)=" "THEN 1065
   : PRINT AT(6,8);BOX(-3,-62)
   : GOSUB '33("IDS2sS68")
   : GOSUB '32("IDS2sS73")
   : FOR L=10TO 20STEP 3
   : PRINT AT(L,0);BOX(-1,-3)
   : NEXT L
   : GOTO 1070
1065 GOSUB '32("IDS2sS68")
1070 R3$(1)="IDS2PS92"
   : E$="Supplementary Utilities"
   : STR(E$(),2034,24)=E$
   : GOSUB '45(1,E$)
   : GOSUB '39("IDS2sS68",3)
   : MAT REDIM E$(24)83
   : DATA LOAD DA T#P,(A)E$()
   : MAT REDIM E$(E8)1
   : J8=1
   : J9=4
   : E$=STR(E$(),10,24)&ALL(00)
   : FOR I=1TO 32
   : ROTATEC(STR(E$,I),-2)
   : NEXT I
   : ADD(E$,20)
   : GOSUB '45(2,E$)
   : STR(E$(),2000,24)=E$
1220 LOAD T#2,"IDS2PS86"1000,3700
1230 DEFFN'127"Q$=";HEX(22);"IDS2PS93";HEX(223A20);"SCRATCHTQ$";HEX(3A20);"SAV
     ET()Q$1000,3799";HEX(0D)
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS93"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"