10 ' ³¼ÝÖ³ ÌßÛ¸Þ×Ñ
20 CLS :POKE &HBFD35,0,255,0,80
30 PRINT "***** ³¼ÝÖ³ ÌßÛ¸Þ×Ñ *****"
40 PRINT "ÎÝÀ²RAM(E:)Æ RAM̧²Ù¦ INIT E:16K Ò²Ú²ÃÞ 16KB ¶¸Î ¼Ã¸ÀÞ»² !":BEEP 1
50 INPUT "OK(Y)?";I$:IF I$<>"Y"THEN 50
60 CLS :PRINT "±¯ÌßÛ-ÄÞ(¿³¼Ý) =[U]"
70 PRINT "ÀÞ³ÝÛ-ÄÞ(¼Þ­¼Ý)=[D]":BEEP 1
80 INPUT I$
90 IF (I$<>"U")AND (I$<>"D")THEN 60
100 IF I$="U"THEN "U"
110 GOTO "D"
120 "U":OPEN "COM:1200,N,8,1,A,L,&1A,X,S"
130 OPEN "E:PROG."FOR INPUT AS #2
140 PRINT "Êß¿ºÝ/Ü-ÌßÛ ¦ ÀÞ³ÝÛ-ÄÞ(¼Þ­¼Ý)¼Þ®³À² Æ ¼Ã¸ÀÞ»² !"
150 INPUT "OK(Y)?";I$:IF I$<>"Y"THEN 150
160 PRINT "--- ¿³¼ÝÁ­³ ---":BEEP 1
170 A$=INPUT $(1,2)
180 IF EOF (2)THEN PRINT #1,CHR$ &H1A:CLEAR :PRINT :PRINT "*** ¶ÝØ®³ ¼Ï¼À ***":GOTO "END"
190 PRINT A$;
200 PRINT #1,A$;
210 GOTO 170
220 "D":OPEN "COM:1200,N,8,1,A,L,&1A,X,S"
230 OPEN "E:PROG."FOR OUTPUT AS #2
240 PRINT "Êß¿ºÝ/Ü-ÌßÛ ÖØ ¿³¼Ý¼Ã ¸ÀÞ»² !"
250 A$=INPUT $(1,1):PRINT "--- ¼Þ­¼ÝÁ­³ ---":BEEP 1:GOTO 270
260 A$=INPUT $(1,1)
270 IF (A$=CHR$ &H1A)OR (A$=CHR$ &H0C)THEN PRINT #1,CHR$ &H11:CLEAR :PRINT :PRINT "*** ¶ÝØ®³ ¼Ï¼À ***":GOTO "LD"
280 PRINT A$;
290 PRINT #2,A$;
300 GOTO 260
310 "LD"
320 PRINT "¼Þ­¼Ý ¼À ÌßÛ¸Þ×Ѧ ÖËÞÀ޼Ͻ¶"
330 BEEP 2:INPUT "OK(Y)?";I$:IF I$<>"Y"THEN "END"
340 PRINT "Û-ÄÞ ¼Ã²Ï½ !!!"
350 POKE &HBFD35,2,223,4,80
360 KEY 0,"LOAD"+CHR$ 34+"E:PROG."+CHR$ 34+CHR$ 13
370 "END":BEEP 2:POKE &HBFD35,2,223,4,80:END