0 REM *********************************
1 REM *    A BASIC DEMO PROGRAM       *
2 REM *           BONES               *
3 REM *********************************
4 :
5 :
10 PRINT"[147]PLEASE WAIT....LOADING DATA AND         MACHINE CODE FILES";L+1
20 :
30 :
40 :
50 REM *** THESE ARE THE LINES OF CODE         *** YOU WOULD USE TO LOAD THE
60 REM *** M/C PROGGY AND THE SCREEN           *** FILES (RAMDISK), FROM DISK..
70 :
75 :
80 L=L+1
90 IFL=1THEN LOAD "CGSD.MC",8,1
100 IFL=2THEN LOAD "RAMDISK.CHR",8,1
110 IFL=3THEN LOAD "RAMDISK.COL",8,1
114 :
115 :
120 REM *** THIS LINE LOWERS THE TOP OF         *** BASIC LEAVING 29345 BYTES
125 REM *** OF MEMORY FOR BASIC PROGGY
130 :
140 POKE 55,00:POKE56,128:PRINT"[147]29345 BYTES FOR BASIC PROGGY"
145 FORX=1TO3000:NEXT
150 :
155 :
160 REM *** THESE ARE QUITE SIMPLE LINES        *** OF CODE TO DEMONSTRATE HOW
170 REM *** YOU MIGHT USE THE M/C PROGGY        *** AND SCREENFILES WITHIN YOUR
180 REM *** OWN BASIC PROGRAMS.
190 :
200 BO=53280:BA=53281
210 X=1:B=15:A=0:GOSUB360:GOSUB440
220 X=2:B=8:A=0:GOSUB360:GOSUB440
230 X=3:B=6:A=10:GOSUB360:GOSUB440
240 X=4:B=6:A=15:GOSUB360:GOSUB440
250 FORC=1TO20
260 B=12:A=12:FORX=5TO7:GOSUB360:N=X:X=6:GOSUB450:X=N:NEXTX,C
270 X=8:B=8:A=9:GOSUB360:GOSUB440:GOSUB440
280 GOTO210
290 :
300 :
310 :
320 REM *** THIS SUBROUTINE POKES IN THE        *** BORDER/BACKGROUND COLOURS.
330 REM *** IT ALSO POKES THE SCREENFILE        *** VALUE (X) INTO REGISTER 781
340 REM *** THEN CALLS THE M/C ROUTINE          *** TO PRINT IT TO THE SCREEN
350 :
360 POKEBO,B:POKEBA,A:POKE781,X:SYS53111:RETURN
370 :
380 :
400 REM *** TWO DELAY LOOPS, ONE FOR THE        *** FILE DISPLAY AND THE OTHER
410 REM *** SLOWS DOWN THE ANIMATION            *** SEQUENCE.
420 :
430 :
440 FORDE=1TO4000:NEXT:RETURN:              REM *** FILE DISPLAY ***
450 FORDE=1TO10:NEXT:RETURN:                REM **** ANIMATION DELAY ***