8-Bit Software Online Conversion
Polygram. Read Info! - Listing
10 MODE2
12*KEY10"OLD|M"
20REM THERE WERE A NUMBER OF COMMANDS
HERE TO LOAD THE SCREEN SAVER THAT THIS
PROGRAM IS A DEMO FOR. I HAVE REMOVED T
HESE COMMANDS SO THAT THE SCREEN SAVER M
AY BE LOADED FROM THE MENU SEPARATELY
120VDU19,1,0,0,0,0
130VDU19,2,0,0,0,0
140VDU19,3,0,0,0,0
150VDU19,4,0,0,0,0
160VDU19,5,0,0,0,0
170VDU19,6,0,0,0,0
180VDU19,7,0,0,0,0
190 VDU29,0;10;
200 GCOL0,5
210 PLOT4,600,0
220 PLOT4,340,645
230 PLOT85,600,200
240 PLOT85,166,750
250 GCOL0,1
260 PLOT85,166,250
270 GCOL0,4
280 PLOT4,440,400
290 PLOT85,340,645
300 GCOL0,6
310 PLOT4,1033,750
320 PLOT4,340,645
330 REMPLOT4,860,645
340 PLOT85,860,645
350 PLOT85,166,750
360 GCOL0,1
370 PLOT85,600,1000
380 GCOL0,3
390 PLOT4,600,680
400 PLOT85,340,645
410 PLOT4,600,200
420 PLOT85,600,500
430 GCOL0,1
440 PLOT85,860,645
450 GCOL0,4
460 PLOT85,340,645
470 GCOL0,2
480 PLOT4,600,0
490 PLOT4,860,645
500 PLOT85,600,200
510 PLOT85,1033,750
520 GCOL0,3
530 PLOT85,1033,250
540 GCOL0,4
550 PLOT4,760,400
560 PLOT85,860,645
570 PLOT4,1033,250
580 PLOT4,695,210
590 PLOT85,600,0
600 PLOT4,166,250
610 PLOT85,510,215
620 GCOL0,3
630 PLOT4,600,1000
640 PLOT4,1033,750
650 PLOT85,815,715
660VDU20
670VDU19,0,7,0,0,0
680VDU19,2,0,0,0,0