10 REM ** VERTISCROLL EDITOR **
20 IF A=0THENA=1:LOAD"VS.CODE",8,1
30 IF B=0THENB=1:LOAD"VS.LETTERS",8,1
40 S=16928:E=17407
50 PRINT"[147]    VERTISCROLL - SCROLL TEXT EDITOR"
60 PRINT" PRESS SPACE TO ENTER THE TEXT EDITOR."
70 PRINT" YOU CAN USE 12 LINES MAXIMUM."
80 PRINT" PLEASE TYPE AN '@' AT THE END OF YOUR
90 [153]" TEXT AND PRESS RETURN TO STORE."
100 [161] A$:[139] A$[179][177]" "[167]100
110 [153]"LOAD";:[159] 1,0:[132]1,T$:[160]1
120 [129] X[178]1024 [164] 1503:[151] S[170]X[171]1024,[194](X):[151] X,42:[130]
130 [153]"LOADPRESS SPACE TO SEE YOUR VERTISCROLL."
140 [161] A$:[139] A$[179][177]" "[167]140
150 [158]16384
160 [153]"LOADPRESS 'S' TO SAVE, OR 'E' TO EDIT."
170 [161] K$:[139]K$[178]""[167]170
180 [139] K$[178]"E"[167] [158] 16387:[137]40
190 [158]16387
200 [133]"SAVE FILENAME";F$
210 F$[178]"@0:"[170]F$:[159]1,8,1,F$:[151]252,S[173]256:[151]251,S[171][194](252)[172]256
220 [151]782,E[173]256:[151]781,E[171][194](782)[172]256:[151]780,251:[158]65496:[160]1
230 [153]"CONT"
240 [139] ST[179][177]0[167] [153]"ERROR DURING SAVE!":[128]