Listing of file='FMENU.BAS;01' on disk='vmedia/modified_utilities-sector.ccvf'
10 PLOT 12:REM MODIFIED BY K.G. WINDER. CUVIC. 20 REM ALLOWS CHOICE OF NUMBER OF DIR BLOCKS AND FOR RE-RUN 30 REM WILL CHECK TO SEE IF FORMAT IS ALREADY LOADED. 40 REM TO RE-RUN DO - RESET ESC E & RUN , RESET DIR BLOCKS 50 POKE 36860,0:POKE 36861,1 60 A= PEEK (36860):B= PEEK (36861) 70 IF A= BAND A= 255THEN 230 80 POKE 36860,255:POKE 36861,255 90 FL= PEEK (37160):FM= PEEK (37161):FH= PEEK (37162):PLOT 15 100 IF FL+ FM+ FH= 634THEN 140 110 PLOT 12,15:PRINT TAB( 22)"LOADING FORMATTER." 120 PRINT TAB( 22)"__________________" 130 PLOT 27,4:PRINT "LOA FORMAT.PRG":PLOT 27,27 140 PRINT :PRINT "FLASH--------------REMOVE THE FORMATTER DISK---------------FLASH" 150 PRINT :INPUT "ENTER NUMBER OF DIR BLOCKS REQUIRED, MAXIMUM IS 32, - ";A$ 160 GOSUB 270 170 Z$= RIGHT$ (N$,2) 180 Y$= LEFT$ (Z$,1):X$= RIGHT$ (Z$,1) 190 P= ASC (Y$):Q= ASC (X$) 200 POKE 37151,P:POKE 37152,Q 210 PRINT "DATA ENTERED = ";Z$;" HEX" 220 PLOT 27,9 230 POKE 36860,0:POKE 36861,1 240 PRINT "FORMATTING FINISHED." 250 FOR I= 1TO 1000:NEXT I 260 GOTO 60 270 NN= VAL (A$):N= NN:PRINT 280 IF NN> 0AND NN< = 32GOTO 310 290 N= - 1:PRINT " RANGE IS 1 TO 32 DECIMAL!" 300 FOR V= 1TO 1000:NEXT :GOTO 150 310 FOR I= 1TO 0STEP - 1 320 FOR J= 15TO 0STEP - 1 330 T= J* 16^ I: 340 IF T> NNTHEN NEXT J 350 D(I)= J:NN= NN- T 360 NEXT I 370 N$= " " 380 FOR I= 1TO 0STEP - 1 390 IF D(I)> = 0AND D(I)< = 9THEN N$= N$+ CHR$ (D(I)+ 48) 400 IF D(I)> = 10AND D(I)< = 15THEN N$= N$+ CHR$ (D(I)+ 55) 410 NEXT I 420 RETURN