image of READY prompt

Wang2200.org

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

# Sector 79, program filename = 'IDS2GLOB'
0010 REM "IDS2GLOB" - Release 2.1 - COMMON & SET UP MVP/LVP GLOBAL VARIABLES
0210 COM @E$100,@F$(10)2,@E1$(4)5,@E1$6,@E2$(3)2,@E4$(12)5,@E5$(56)2,@F1$8
   : COM @F$76
0220 @E1$()=HEX(020400000E020402000E020404000E020404040E)
   : @E2$()=ALL(00)
   : @E$=HEX(22)&"!@#$%^&*()=][<>';:/?,0123456789.+-0123456789 ABCDEFGHIJKLMOP
     QRSTUVWXZYN01ynabcdefghijklmopqrstuvwxz"
   : @F$(1)=HEX(240B)
   : @F$(2)=HEX(220C)
   : @F$(3)=HEX(170B)
   : @F$(4)=HEX(170D)
   : @F$(5)=HEX(2E1B)
0290 @F$(6)=HEX(2425)
   : @F$(7)=HEX(0148)
   : @F$(8)=HEX(0164)
   : @F$(9)=HEX(4706)
   : @F$="0 1$2+3,4-5.60718293:4;5<6=7>8?9 0$1+2,3-4.5061728394:5;6<7=8>9?:A;B
     <C=D>E?F"
0335 @E5$()=HEX(0140020005200B1F0E591C4ED0080BFF0C0D0D820E0012121C3ED0141B4142
     40D0181C3AE00E0E001C6ED017400D1000119E11AF710540064001400C1801A2004007120
     04001400C4008408B40084005710187051C5CD0311C5DD0311C5BE01A1000737018001212
     1B411EFAE00FE034)
0340 @E4$()="JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP  OCT  NOV  DEC"
   : X=0
   : FOR I=1TO 12
   : READ D
   : X=X+D
   : STR(@E4$(I),4)=BIN(X,2)
   : NEXT I
   : DATA 31,28,31,30,31,30,31,31,30,31,30,31
   : IF LEN(STR(E$))>=24AND STR(E$,17,8)="IDS2PUI1"THEN 347
   : P=0
   : IF STR(E$,,16)="Loading Subrtnes"THEN P=2
0342 LIMITS T#P,"IDS2f001",A,B,C,D
   : IF A=0THEN 440
   : DIM F0(6)
   : F0=0
   : DATA LOAD DC OPEN T#P,"IDS2f001"
   : DATA LOAD DC #P,F0,F0()
   : R0=0
   : FOR I=1TO F0
   : IF F0(I)=#IDTHEN R0=I
   : NEXT I
   : IF R0=0THEN GOTO 440
   : F0$="IDS2fs  "
   : CONVERT R0TO STR(F0$,7,2),(##)
   : IF STR(E$,,16)="Loading Subrtnes"THEN R0=(R0-1)*16+#PART
   : ELSE R0=0
0344 LIMITS T#P,F0$,A,B,C,D
   : @E2$(1)=BIN(A+3,2)
   : IF A=0THEN 420
   : LIMITS T#P,"IDS2fs01",A,B,C,D
   : @E2$(3)=BIN(A+3,2)
   : IF A=0THEN 420
0347 LIMITS T#P,"IDS2f000",A,B,C,D
   : @E2$(2)=BIN(A,2)
   : IF A=0THEN 420
   : IF STR(E$,,16)="Loading Subrtnes"THEN 400
   : LOAD DC T"IDS2GLBL"
0352 GOTO 220
0400 STR(E$,57,8)=STR(E$,17,8)
   : STR(E$,,56)="IDS2SUB1IDS2SUB2IDS2SUB3IDS2SUB4IDS2SUB5IDS2SUB6IDS2LOCL"
   : LOAD T#2,<8>E$
0420 IF P=2THEN 430
   : STOP "CANNOT FIND SYSTEM FILES -- SELECT DEVICE #0 TO IDEAS2 SYSTEM PACK"
   : END
0430 STOP "INVALID SPECIFICATION FOR IDEAS2 SYSTEM -- CANNOT FIND SYSTEM FILES
     "
   : END
0440 LIMITS T#P,"IDS2PUM1",A,B,C,D
   : IF A=0THEN 420
   : LOAD T#P,"IDS2PUM1"10,10BEG 450
0450 GOSUB '71
   : GOTO 342