image of READY prompt

Wang2200.org

Listing of file='PKEXST' on disk='vmedia/701-2720C.wvd.zip'

# Sector 188, program filename = 'PKEXST'
1000 REM % THIS MODULE INITIALIZES ARRAY SIZES
1020 COM G3,L3,G6,L6,H7$7
   : COM F1$(16)2,F7
   : F7=16
   : DIM A1$1
   : FOR I=1TO F7
   : READ I1,I2
   : F1$(I)=BIN(I1)&BIN(I2)
   : NEXT I
   : G6=43
   : G3=50
   : L6=13
   : L3=128
1153 DATA 1,8
   : DATA 9,1
   : DATA 10,2
   : DATA 12,2
   : DATA 14,6
   : DATA 20,1
   : DATA 21,1
   : DATA 22,3
   : DATA 25,1
   : DATA 26,8
   : DATA 34,1
   : DATA 35,8
   : DATA 43,1
   : DATA 1,1
   : DATA 2,2
   : DATA 4,2
   : LOAD T"PKEX0"
9701 DEFFNS(Q)=VAL(STR(F1$(Q),1,1))
9702 DEFFNL(Q)=VAL(STR(F1$(Q),2,1))
9900 DEFFN'0"PRINT HEX(03);: LISTSD 0000  ,9699";HEX(0D)
9990 DEFFN'12"PRINT HEX(03);:LISTSD ,9699";HEX(0D)
9994 DEFFN'27
   : PRINT HEX(03);AT(22,0);
9995 DEFFN'10"PRINT HEX(03);:LISTD1150:LISTS 1151,1169";HEX(0D)
9997 %   SELECT LIST 215(128):LIST"PETER KIBBLER - PKDICST"D:SELECT LIST 005(8
     0)
9999 %     SCRATCH T "PKEXST":SAVE T ()"PKEXST"