FMTRAM:
REM This Program will Format a 32K Rampak
LOCAL A%(11),A,G%
TOP: :
CLS : AT 1,1 :PRINT "1=PACKB 2=PACKC"
AT 1,2 :INPUT A
IF A<>1 AND A<>2 :GOTO TOP:: :ENDIF
T::
CLS :PRINT "FORMAT Y/N"
G%=GET :IF G%<>%N AND G%<>%Y :GOTO T::
ELSEIF G%=%N :STOP
ELSEIF G-%=%Y :ENDIF
A%(l)=$4F37
A%(2)=$3F62
A%(3)=$3225
At(4)=$OD36
A%(5)=$4F36
A%(6)=$30C6
A%(7)=$013F
At(8)=$6131
A%(g)=$334F
A%(10)=$3F62
A%(ll)=$3900
USR(ADDR(Ato),A)
Psion's Single 30 Minutes timer eraser
Psion Eraser 16
Bioeddie's Offers a service to format Data paks
please E-Mail us for more
information.
WARNING:
The procedure above can only
be used to format a 32k Rampak, Data Paks of any other size will be
corrupted if you attempt
to format them in this way. If you would like
me to do it for with one of the above machines please feel free to drop
me an email