image of READY prompt

Wang2200.org

Listing of file='CIOT150' on disk='vmedia/731-0111.wvd.zip'

# Sector 252, program filename = 'CIOT150'
0010 REM CIOT150, 4/12/78, DISK/PRT SAVE, COPYRIGHT WANG LABS,1978
0100 GOTO 9900
   : ON AGOTO 120,140,3000
0120 COM X,X0,X1,X2,X$8
0140 COM X$(4)62,X3,X4,X9$(3)50,X8,X9
3000 IF A1$(1)<HEX(0400)THEN 3710
   : X=1
   : IF A1$(5)=HEX(0000)THEN 3130
   : X3=VAL(STR(A1$(5),2))
   : IF X4+X3<249THEN 3110
   : BIN(STR(X$(1),2,1))=X4
   : DATA SAVE DC #2,X$()
   : X4=3
3110 MAT COPY A1$()<10,1>TO X$()<X4,1>
   : MAT COPY I$()<1,X3>TO X$()<X4+1,X3>
   : X4=X4+X3+1
3130 AND (A1$(1),01)
   : ON VAL(A1$(1))GOTO 3170
   : RETURN
3160 X4=3
   : STR(X$(1),1,1)=HEX(00)
   : RETURN
3170 STR(X$(1),1,1)=HEX(F0)
   : BIN(STR(X$(1),2,1))=X4
   : DATA SAVE DC #2,X$()
   : GOSUB 3160
3710 ON XGOSUB 3170
   : ON VAL(A1$(2))-1GOTO 3854,3854
   : B$=STR(A1$(3),2)
   : IF B$="@"THEN 3884
   : $GIO#5(A200,Z$)I$()<,A1$(5)>
3726 ON VAL(B$)-46GOTO 100,3734,3738,3738,3738,3738,3738,3738,3738,3738,3738,3
     728,3728,3728,3728,3728,3728,3884,3766,3778,3778,3778,3778,3778,3778,3778
     ,3778,3778,3778,3778
3728 STOP "ERROR -- 3728"
3734 X8=X8+1
3738 IF X8+VAL(B$)-48>=X9THEN 3766
   : $GIO#5(400D,Z$)
   : IF B$<"2"THEN 3758
   : FOR A=1TO VAL(B$)-49
   : $GIO#5(400A,Z$)
   : NEXT A
3758 X8=X8+VAL(B$)-48
   : RETURN
3766 X8=1
   : $GIO#5(400D400C,Z$)
   : RETURN
3778 IF X8>149THEN 3812
   : MAT SEARCHX9$()<X8+1,150-X8>,=B$TO A1$()
   : IF A1$(1)=HEX(0000)THEN 3812
   : X8=X8+VAL(STR(A1$(1),2))
   : IF X8>=X9THEN 3766
   : $GIO#5(400D,Z$)
   : IF A1$(1)=HEX(0001)THEN 100
   : FOR A=1TO VAL(STR(A1$(1),2))-1
   : $GIO#5(400A,Z$)
   : NEXT A
   : RETURN
3812 MAT SEARCHX9$(),=B$TO A1$()
   : IF A1$(1)=HEX(0000)THEN 3844
   : $GIO#5(400D400C,Z$)
   : X8=VAL(STR(A1$(1),2))
   : IF X8=1THEN 100
   : FOR A=1TO X8-1
   : $GIO#5(400A,Z$)
   : NEXT A
   : RETURN
3844 IF B$<>"B"THEN 100
   : $GIO#5(4009,Z$)
   : RETURN
3854 IF A1$(5)=HEX(0000)THEN 3726
   : SELECT PRINT 215(132)
   : A=1
   : B=VAL(STR(A1$(5),2))
3864 IF B<65THEN 3874
   : HEXPRINT I$(A);
   : A=A+1
   : B=B-64
   : GOTO 3864
3874 HEXPRINT STR(I$(A),1,B)
   : SELECT PRINT 005(64)
   : RETURN
3884 A=VAL(STR(A1$(5),2))
   : MAT COPY I$()<1,A>TO X9$()<1,A>
   : B$="M"
   : MAT SEARCHX9$()<1,150>,=B$TO A1$()
   : IF A1$(1)=HEX(0000)THEN 100
   : X9=VAL(STR(A1$(1),2))
   : RETURN