start tok64 d64-vZAuLE
100 PRINT"{clear}"TAB(14);"{reverse on}fast{space*2}format{reverse off}"
110 PRINT"{down*2}"TAB(12);"by:{space*2}rocky moore"
500 :POKE198,0:INPUT"{down*4} enter disk name";nm$:nm$=LEFT$(nm$,16):IFnm$=""THEN500
510 INPUT"{down} disk id (2 letters)";id$:id$=LEFT$(id$,2):IFid$=""THEN510
520 PRINT"{down} disk name: ";nm$;TAB(29)"id: ";id$
540 PRINT"{down*2} is this okay (y/n)? ";:POKE198,0
550 GETa$:IFa$<>"y"ANDa$<>"n"THEN550
560 PRINTa$:IFa$="n"THENRUN
1000 PRINT"{down*2} destination [return]"
1010 GETa$:IFa$<>CHR$(13)THEN1010
1020 POKE3528,ASC(id$):POKE3529,ASC(MID$(id$,2)):SYS2816:OPEN1,8,15,"i0"
1025 PRINT#1,"m-e"CHR$(80)CHR$(5)
1030 PRINT#1,"n0:"+nm$:INPUT#1,e1$,e2$,e3$,e4$:IFVAL(e1$)<19THEN2000
1040 PRINT"{down*2} disk error: ";e1$","e2$","e3$","e4$
2000 PRINT"{down} finished{.*4}"
2005 CLOSE1:PRINT"{down} another disk (y/n)? ";:POKE198,0
2010 GETa$:IFa$<>"y"ANDa$<>"n"THEN2010
2020 PRINTa$:IFa$="y"THENRUN
2030 PRINT"{clear}":END
stop tok64
(bastext 1.0)