00000000  0d 52 45 4d 20 2a 2a 20  53 41 56 45 20 2a 2a 0d  |.REM ** SAVE **.|
00000010  52 45 4d 20 52 6f 62 20  42 61 72 6e 65 73 0d 52  |REM Rob Barnes.R|
00000020  45 4d 20 28 63 29 20 54  68 65 20 4d 69 63 72 6f  |EM (c) The Micro|
00000030  20 55 73 65 72 0d 44 24  3d 22 59 22 0d 2a 46 58  | User.D$="Y".*FX|
00000040  32 32 30 2c 30 0d 43 2e  54 2e 0d 46 2e 22 54 48  |220,0.C.T..F."TH|
00000050  49 53 20 46 49 4c 45 20  49 53 20 43 41 4c 4c 45  |IS FILE IS CALLE|
00000060  44 20 22 0d 43 2e 52 2e  32 30 0d 47 24 3d 47 4c  |D ".C.R.20.G$=GL|
00000070  2e 0d 49 2e 4c 45 4e 47  24 3c 31 4f 52 4c 45 4e  |..I.LENG$<1ORLEN|
00000080  47 24 3e 37 54 48 2e 50  52 4f 2e 65 72 72 6f 72  |G$>7TH.PRO.error|
00000090  0d 49 2e 4c 45 4e 47 24  3c 31 4f 52 4c 45 4e 47  |.I.LENG$<1ORLENG|
000000a0  24 3e 37 54 48 2e 45 4e  44 0d 4a 25 3d 4f 50 45  |$>7TH.END.J%=OPE|
000000b0  4e 49 4e 20 47 24 0d 43  4c 4f 53 45 23 4a 25 0d  |NIN G$.CLOSE#J%.|
000000c0  43 4c 53 0d 50 52 4f 2e  74 69 6d 65 0d 49 2e 4a  |CLS.PRO.time.I.J|
000000d0  25 3c 3e 30 54 48 2e 20  50 52 4f 2e 70 72 6f 6d  |%<>0TH. PRO.prom|
000000e0  70 74 0d 49 2e 44 24 3c  3e 22 59 22 54 48 2e 44  |pt.I.D$<>"Y"TH.D|
000000f0  49 2e 0d 49 2e 44 24 3c  3e 22 59 22 54 48 2e 45  |I..I.D$<>"Y"TH.E|
00000100  4e 44 0d 50 52 4f 2e 70  75 74 0d 50 2e 0d 50 2e  |ND.PRO.put.P..P.|
00000110  22 20 20 41 54 20 22 2b  4b 24 2b 4c 24 2b 22 20  |"  AT "+K$+L$+" |
00000120  20 20 53 41 56 49 4e 47  20 20 22 2b 47 24 0d 53  |  SAVING  "+G$.S|
00000130  41 2e 54 45 2e 47 24 0d  54 49 4d 45 3d 30 0d 52  |A.TE.G$.TIME=0.R|
00000140  2e 0d 55 2e 54 49 4d 45  3e 32 30 30 0d 44 49 2e  |..U.TIME>200.DI.|
00000150  0d 2a 46 58 32 32 30 2c  32 37 0d 45 4e 44 0d 2e  |.*FX220,27.END..|
00000160  70 72 6f 6d 70 74 0d 56  2e 33 31 2c 36 2c 31 30  |prompt.V.31,6,10|
00000170  0d 50 2e 0d 44 2e 0d 56  2e 31 33 31 2c 31 34 31  |.P..D..V.131,141|
00000180  0d 50 2e 22 52 65 70 6c  61 63 65 20 4f 6c 64 20  |.P."Replace Old |
00000190  46 69 6c 65 3f 20 20 20  20 20 20 20 59 2f 4e 22  |File?       Y/N"|
000001a0  0d 54 2e 32 0d 2a 46 58  32 31 30 2c 30 0d 56 2e  |.T.2.*FX210,0.V.|
000001b0  37 0d 50 2e 0d 50 2e 0d  2a 46 58 31 35 2c 31 0d  |7.P..P..*FX15,1.|
000001c0  44 24 3d 43 48 52 24 28  47 45 54 20 41 4e 44 20  |D$=CHR$(GET AND |
000001d0  32 32 33 29 0d 49 2e 44  24 3d 22 59 22 54 48 2e  |223).I.D$="Y"TH.|
000001e0  45 2e 0d 49 2e 44 24 3c  3e 22 59 22 54 48 2e 20  |E..I.D$<>"Y"TH. |
000001f0  50 2e 22 46 49 4c 45 20  4e 4f 54 20 53 41 56 45  |P."FILE NOT SAVE|
00000200  44 21 20 20 20 20 50 72  65 73 73 20 41 4e 59 20  |D!    Press ANY |
00000210  4b 65 79 22 0d 49 2e 44  24 3c 3e 22 59 22 54 48  |Key".I.D$<>"Y"TH|
00000220  2e 41 25 3d 47 45 54 0d  45 2e 0d 2e 74 69 6d 65  |.A%=GET.E...time|
00000230  0d 4b 24 3d 22 22 0d 4c  24 3d 22 22 0d 4d 24 3d  |.K$="".L$="".M$=|
00000240  22 22 0d 41 25 3d 31 34  0d 42 25 3d 30 0d 58 25  |"".A%=14.B%=0.X%|
00000250  3d 26 30 38 0d 59 25 3d  26 30 34 0d 5a 25 3d 26  |=&08.Y%=&04.Z%=&|
00000260  30 32 0d 43 41 4c 4c 20  26 46 46 46 31 0d 58 25  |02.CALL &FFF1.X%|
00000270  3d 26 34 31 38 0d 59 25  3d 26 34 31 41 0d 5a 25  |=&418.Y%=&41A.Z%|
00000280  3d 26 34 30 38 0d 52 2e  0d 4b 24 3d 4b 24 2b 43  |=&408.R..K$=K$+C|
00000290  48 52 24 3f 58 25 0d 58  25 3d 58 25 2b 31 0d 55  |HR$?X%.X%=X%+1.U|
000002a0  2e 58 25 3d 26 34 31 41  0d 52 2e 0d 4c 24 3d 4c  |.X%=&41A.R..L$=L|
000002b0  24 2b 43 48 52 24 3f 59  25 0d 59 25 3d 59 25 2b  |$+CHR$?Y%.Y%=Y%+|
000002c0  31 0d 55 2e 59 25 3d 26  34 31 44 0d 52 2e 0d 4d  |1.U.Y%=&41D.R..M|
000002d0  24 3d 4d 24 2b 43 48 52  24 3f 5a 25 0d 5a 25 3d  |$=M$+CHR$?Z%.Z%=|
000002e0  5a 25 2b 31 0d 55 2e 5a  25 3d 26 34 31 44 0d 42  |Z%+1.U.Z%=&41D.B|
000002f0  25 3d 56 41 4c 28 4b 24  29 0d 49 2e 42 25 3e 31  |%=VAL(K$).I.B%>1|
00000300  32 54 48 2e 42 25 3d 42  25 2d 31 32 0d 4b 24 3d  |2TH.B%=B%-12.K$=|
00000310  53 54 52 24 28 42 25 29  0d 56 2e 33 31 2c 36 2c  |STR$(B%).V.31,6,|
00000320  34 0d 50 2e 0d 50 2e 22  20 20 54 48 45 20 54 49  |4.P..P."  THE TI|
00000330  4d 45 20 49 53 2e 2e 2e  22 0d 50 2e 0d 56 2e 33  |ME IS...".P..V.3|
00000340  31 2c 36 2c 36 0d 50 2e  0d 44 2e 0d 56 2e 31 33  |1,6,6.P..D..V.13|
00000350  31 2c 31 34 31 0d 50 2e  4b 24 2b 4c 24 0d 54 2e  |1,141.P.K$+L$.T.|
00000360  32 0d 45 2e 0d 2e 70 75  74 0d 43 2e 54 2e 0d 46  |2.E...put.C.T..F|
00000370  49 2e 22 52 45 4d 20 53  41 56 45 44 20 4f 4e 22  |I."REM SAVED ON"|
00000380  0d 49 2e 45 4f 54 20 54  48 2e 50 52 4f 2e 74 79  |.I.EOT TH.PRO.ty|
00000390  70 65 0d 43 2e 52 2e 31  32 0d 46 4b 2e 33 0d 43  |pe.C.R.12.FK.3.C|
000003a0  2e 41 54 20 33 39 0d 46  4b 2e 33 0d 46 4b 2e 37  |.AT 39.FK.3.FK.7|
000003b0  0d 54 59 2e 22 20 22 2b  4d 24 0d 45 2e 0d 2e 74  |.TY." "+M$.E...t|
000003c0  79 70 65 0d 43 2e 54 2e  0d 46 49 2e 22 54 48 49  |ype.C.T..FI."THI|
000003d0  53 20 46 49 4c 45 22 0d  43 2e 44 2e 0d 43 2e 41  |S FILE".C.D..C.A|
000003e0  54 0d 54 59 2e 22 7c 47  52 45 4d 20 53 41 56 45  |T.TY."|GREM SAVE|
000003f0  44 20 4f 4e 7c 52 22 0d  43 2e 55 50 0d 43 2e 52  |D ON|R".C.UP.C.R|
00000400  2e 0d 45 2e 0d 2e 65 72  72 6f 72 0d 43 4c 53 0d  |..E...error.CLS.|
00000410  56 2e 33 31 2c 36 2c 38  0d 56 2e 31 33 36 0d 50  |V.31,6,8.V.136.P|
00000420  2e 22 46 49 4c 45 4e 41  4d 45 20 4e 4f 54 20 43  |."FILENAME NOT C|
00000430  4f 52 52 45 43 54 20 49  4e 20 54 45 58 54 22 0d  |ORRECT IN TEXT".|
00000440  50 2e 0d 50 2e 22 20 20  20 20 20 20 28 4d 41 58  |P..P."      (MAX|
00000450  20 37 20 4c 45 54 54 45  52 53 29 20 20 20 50 52  | 7 LETTERS)   PR|
00000460  45 53 53 20 42 52 45 41  4b 22 0d 41 25 3d 47 45  |ESS BREAK".A%=GE|
00000470  2e 0d 45 2e 0d                                    |..E..|
00000475