image of READY prompt

Wang2200.org

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

# Sector 105, program filename = 'IDS2P003'
1000 REM "IDS2P003" - LOADS SUBROUTINES GLOBALLY OR LOCALLY
1010 IF LEN(STR(E$))<>87THEN STOP "Length of E$ not Valid"
   : IF POS(HEX(6040414243)=F6$(17))<>0THEN 3000
   : SELECT @PART"IDS2SUBM"
   : ERRORGOTO 3040
2005 E$=$PSTAT(#PART)
   : UNPACK(##)STR(E$,27,1)TO X
   : E$=$PSTAT(X)
   : UNPACK(##.##)STR(E$,12,2)TO X
   : F6$(17)=HEX(60)
   : IF X>12.25THEN F6$(17)="@"
   : IF X>13THEN F6$(17)="B"
   : IF X>=14THEN F6$(17)="C"
3000 F0$=STR(R3$(),,9)
   : R3$()=STR(R3$(),10)
   : LOAD DC T#2,STR(F0$,,8)1000,
3020 STOP "Minimum required space to operate IDEAS 2 is 28 K "
   : END
3040 E$="Loading Subrtnes"&STR(R3$(),,8)
   : IF F6$(53)<>"N"THEN R3$()=STR(R3$(),10)
   : F6$(17)=HEX(60)
   : IF F6$(53)<>"N"THEN LOAD DC T#2,"IDS2GLOB"
   : IF SPACEK<28THEN 3020
   : G=LEN(STR(E6$(),1))
   : H=2
   : E=21
   : E8=2075
   : E9=2250
   : COM CLEAR Y
   : STR(E$,17,8)="IDS2P004"
   : F0$="IDS2GLOBIDS2P012"
   : LOAD DC T#2,<2>F0$