1 LOGIC
100 VARNAME
1000 WEND
1010 REM ***************************
110 NEXT
2 REM *********************************       text screen held in bank 15 logic held in bank 8 
270 CLS
280 LET
281 REM ************************************************************************** theses number set where the y position of each screen block is. 
290 FOR
291 FOR
3 GOSUB
30 DIM
300 LET
301 REM ***********************************      these lines move the text blocks up screen. 
320 SCREEN COPY
321 VARNAME
330 LOGIC
331 VARNAME
334 WHILE
345 SCREEN COPY
35 DIM
360 FOR
370 SCREEN$
380 VARNAME
381 IF
382 IF
390 NEXT
40000 REM DRAW 14.BAS
40010 REM BYWILLIAMBRYAN0.0JUNE1990
40015 REM **************************** 
40016 LOGIC
40017 CLS
40040 VARNAME
40050 VARNAME
40060 VARNAME
40070 VARNAME
40080 GOSUB
40090 REPEAT
40100 VARNAME
40110 VARNAME
40111 IF
40120 IF
40130 REDRAW
40140 PUT SPRITE
40150 IF
40160 VARNAME
40170 VARNAME
40180 UNTIL
40190 LOGIC
40200 REM COUNT LETTERS
40201 VARNAME
40205 RETURN
40210 VARNAME
40220 REPEAT
40230 VARNAME
40250 VARNAME
40260 UNTIL
40270 RETURN
40280 REM SET COLOURS(PALETTE) 
40290 VARNAME
40300 FOR
40310 RETURN
40320 REM ********************** 
50 VARNAME
50000 REM eddies alteration to put text in string
50010 VARNAME
50020 RETURN
60 ERASE
60000 REM 
60010 FOR
60020 FOR
60030 FOR
60040 FOR
60050 FOR
60060 FOR
60070 FOR
60080 FOR
60090 FOR
60100 FOR
60110 FOR
60120 FOR
60130 FOR
60140 FOR
60150 FOR
60160 FOR
60170 FOR
60180 FOR
60190 FOR
60200 FOR
60210 FOR
60220 FOR
60230 FOR
60240 FOR
60250 FOR
60260 FOR
60270 FOR
60280 FOR
60290 RETURN
61 RESERVE
62 REM *******************************          at this point the text held in          compacted screen 14 is unpacked to screen 14 and cut into screen blocks then the screen is erased. later in the program another text screen is loaded in and the screen blocks changed                 *******************************
65 GOSUB
70 VARNAME
80 FOR
90 VARNAME
950 WAIT VBL