image of READY prompt

Wang2200.org

Listing of file='ISS.202M' on disk='vmedia/701-2424C.wvd.zip'

# Sector 130, program filename = 'ISS.202M'
0010 REM  ISS.202M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
     UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED

9000 %   THIS MUST BE STATEMENT 9000
9040 PRINT HEX(0306);AT(4,16);"SUBROUTINES LOADED"
   : PRINT AT(15,0);"AVAILABLE = ";S$;
   : FOR I=2TO 8
   : IF S$(I)<>" "THEN PRINT " ";S$(I);
   : NEXT I
   : GOTO 9130
9120 PRINT HEX(07010A0A0A);"RE-ENTER"
9130 PRINT AT(1,0,2*S0);"ENTER OUTPUT ADDRESS"
   : INPUT A$
   : IF A$=S$THEN 9200
   : MAT SEARCHSTR(S$(),4,24),=A$TO A1$STEP 3
   : IF STR(A1$,1,2)=HEX(0000)THEN 9120
9200 SELECT #1<A$>
   : PRINT AT(5,16);"OUTPUT ADDRESS = ";A$
   : PRINT AT(15,0,S0-1)
   : PRINT AT(1,0,3*S0);"MOUNT OUTPUT DISK"
   : INPUT "KEY RETURN(EXEC) TO CONTINUE",A$
   : IF B$="G"THEN 9520
9350 PRINT AT(1,0,3*S0);"ENTER FILE NAME"
   : INPUT A$
   : LIMITS T#1,STR(A$,1,8),A,A,A,A
   : ERRORGOTO 9400
9390 IF A=0THEN 9420
9400 PRINT HEX(07010A0A0A);"RE-ENTER"
   : GOTO 9350
9420 PRINT AT(6,16);"FILE NAME = ";A$
   : PRINT AT(1,0,3*S0);"SAVING ROUTINES";AT(10,0);
   : SAVE DC T#1,A$71,8999
   : COM CLEAR B$()
   : STOP "ROUTINES SAVED"
9520 PRINT AT(1,0,3*S0);"ENTER FILE NAME FOR 'VARIABLES'"
   : INPUT A$
   : LIMITS T#1,STR(A$,1,8),A,A,A,A
   : ERRORGOTO 9570
9560 IF A=0THEN 9590
9570 PRINT HEX(07010A0A0A);"RE-ENTER"
   : GOTO 9520
9590 PRINT AT(6,16);"'VARIABLE' FILE NAME = ";A$
9610 PRINT AT(1,0,3*S0);"ENTER FILE NAME FOR 'TEXT'"
   : INPUT A1$
   : IF A1$=A$THEN 9670
   : LIMITS T#1,STR(A1$,1,8),A,A,A,A
   : ERRORGOTO 9670
9660 IF A=0THEN 9690
9670 PRINT HEX(07010A0A0A);"RE-ENTER"
   : GOTO 9610
9690 PRINT AT(7,16);"'TEXT' FILE NAME = ";A1$
   : PRINT AT(1,0,3*S0);"SAVING ROUTINES";AT(10,0);
   : SAVE DC T#1,A$71,100
   : SAVE DC T#1,A1$71,8999
   : COM CLEAR B$()
   : STOP "ROUTINES SAVED"
9790 DEFFN'31
   : PRINT HEX(03);"LOADING SYSTEM MENU"
   : COM CLEAR B$()
   : S8$="SYSTEM"
   : LOAD DC T#0,"ISS.002M"
   : ERRORPRINT AT(2,0);
9850 PRINT "MOUNT ISS SYSTEM PLATTER"
   : INPUT "KEY RETURN(EXEC) TO RESUME",A$
   : GOTO 9790