（林楚堂）下面的程序适用于APPLE－Ⅱ微机及其兼容的CEC－Ⅰ中华学习机。
运行程序1可制作一个40道磁盘，比正常的35道磁盘多出5个磁道。当不带DOS时，磁盘的1～2道可以存放资料；带DOS时，2道的5～15扇区仍可用来存放资料。
程序1：
0 REM MADE 40T DISK
10 TEXT：HOME：VTAB（8）：TAB（18）
20 PRINT“40T INIT”：PRINT：HTAB
（10）
30 PRINT“PUT A NEW DISK IN
DRIVE”
40 VTAB（12）：HTAB（10）：PRINT
“WRITE DOS Y／N？”；
50 GET X＄：IF X＄＜＞“Y”AND
X＄ <>“N” THEN 40
60 H=76：V=4：D=96
70 IF X＄=“Y”THEN H=32：V=12：D=
173
80 POKE 42344，H：POKE 44723，V：
POKE 46922，D
90 POKE 44725,160：POKE 46063，40：
POKE 48894，40
100 A=46067：FOR I=0 TO 7：POKE
A＋I，0：NEXT
110 POKE A＋8,255：POKE A＋9,224：
POKE 44713，66
120 PRINT CHR＄（13），CHR ＄（4）；
“INIT HELLO”
130 POKE 42344，32：POKE 44723，12：
POKE 46922,173：POKE 44713，56
正常磁盘的VTOC表和文件目录存放于17（＄11）磁道。运行程序2能得到一张目录区存放在T（由用户指定）磁道中的加密盘。键入POKE 44033，17：POKE 44703，17后，机器可读写正常磁盘；键入POKE 44033，T：POKE 44703，T后，机器可读写加密磁盘。
程序2：
0 REM MOVE VTOC
10 TEXT：HOME：VTAB（8）：HTAB（10）
20 PRINT“PUT A NEW DISK
IN DRIVE”
30 PRINT：INPUT “MOVE VTOC TO
（3－39）”；T
40 IF T＜3 OR T＞39 THEN 10
50 POKE 44033，T：POKE 44703，T：
POKE 44741，T*4：POKE 44745，
TO*4＋4
60 POKE 46012，T：POKE 46013，15：
POKE 44764，T
70 POKE 44725,160：POKE 46063，40：
POKE 48894，40
80 RPINT CHR＄（13）；CHR＄（4）；
“INITHELLO”
正常磁盘的磁道编号为＄00～＄22（＄27），扇区编号为＄00～＄0F。运行程序3，然后格式化磁盘，可得到一张磁道编号为正常盘的两倍的加密盘。正常DOS无法读写，而加密盘自启动后能读写。键入POKE 47428， 160： POKE 47429， 252： POKE47430,132后，可读写正常磁盘；键入POKE 47428，76：POKE 47429， 237：POKE 47430,188后，可对加密盘进行读写。
程序3：
10 POKE 48214，76：POKE 48215,223：
POKE 48216,188
20 POKE 47428，76：POKE 47429,237：
POKE 47430,188
30 FOR I=48351 TO 48376：READ A：
POKE I，A
40 DATA 6，68，56,189,141,192，32，90，
188，8，70，68，40，96,160,252,132
50 DATA 38，32，72,185，8，70，46，40，96