Listing of file='TBO.XASK' on disk='vmedia/toolbox.wvd.zip'
# Sector 1169, program filename = 'TBO.XASK'
0010 REM TBO.XASK
0012 DIM N$64,W$64,Z$64,C$1
0015 SELECT PRINT 005(80)
: PRINT HEX(03);"Examine file ASKACALL"
0020 GOSUB 120
: REM /Get surface
0050 DATA LOAD DC OPEN T#1,"ASKACALL"
0060 A=0
0070 DATA LOAD DC #1,N$,W$,Z$
0080 IF N$=" "THEN 100
: A=A+1
0082 PRINT
: PRINT "Item for s.f. '";A+1
0090 PRINT "N$=";N$
0092 PRINT "W$=";W$
0094 PRINT " ........--------........--------........--------........-------
-"
0096 PRINT "Z$=";
: HEXPRINT STR(Z$,1,20)
: PRINT STR(Z$,21)
0097 PRINT "2...!....3....!....4....!....5....!....6....!....7....!....8"
0098 KEYIN C$,99,99
: GOTO 70
0099 KEYIN C$,70,70
: GOTO 99
0100 STOP "DONE"
0110 REM %.Ask Disk surface
0120 D=1
: PRINT "DISK SURFACE"
0130 PRINT "1=(F)310 2=(R)B10 3=(F)320 4=(R)B20 5=(F)330 6=(R)B30 7=(F)350"
0140 PRINT "(default=)";D;
: INPUT D
0150 ON DGOTO 170,180,190,200,210,220,230
: GOTO 120
0170 SELECT #1310
: RETURN
0180 SELECT #1B10
: RETURN
0190 SELECT #1320
: RETURN
0200 SELECT #1B20
: RETURN
0210 SELECT #1330
: RETURN
0220 SELECT #1B30
: RETURN
0230 SELECT #1350
: RETURN
5000 DEFFN'0
: LOAD DC T "START "