8-Bit Software Online Conversion

8BS Screen - Listing

10 REM Hello Mr. R! 20 REM If this is any use to you,then 30 REM please use as you see fit. 40 REM Created by Dave Chester D5N 50 REM one boring Monday evening. 60 REM Anyone can use this screen 70 MODE1 80 VDU 19,1,0,0,0,0 90 VDU 19,2,0,0,0,0 100 VDU 19,3,0,0,0,0 110 VDU 23;8202;0;0;0; 120 GCOL0,1 130 C=300 140 MOVEC,700 150 PLOT157,C,900 160 MOVEC,400 170 PLOT157,C,200 180 GCOL0,0 190 MOVEC,700 200 PLOT157,C,800 210 MOVEC,400 220 PLOT157,C,300 230 : 240 GCOL0,2 250 MOVE700,450 260 PLOT157,700,550 270 MOVE600,350 280 DRAW600,700 290 DRAW650,700 300 DRAW650,350 310 DRAW600,350 320 PLOT133,610,360 330 PLOT133,610,650 340 GCOL0,0 350 MOVE700,450 360 PLOT157,700,500 370 : 380 GCOL0,2 390 MOVE850,350 400 DRAW850,550 410 DRAW900,550 420 DRAW900,350 430 DRAW850,350 440 PLOT133,860,360 450 MOVE 875,625 460 PLOT157,875,650 470 : 480 GCOL0,2 490 MOVE1000,350 500 DRAW1000,500 510 DRAW950,500 520 DRAW950,550 530 DRAW1000,550 540 DRAW1000,600 550 DRAW1050,600 560 DRAW1050,550 570 DRAW1100,550 580 DRAW1100,500 590 DRAW1050,500 600 DRAW1050,350 610 DRAW1000,350 620 PLOT133,1010,360 630 : 640 GCOL0,3 650 MOVE250,100 660 DRAW300,100 670 DRAW300,150 680 DRAW250,150 690 DRAW250,200 700 DRAW300,200 710 MOVE350,100 720 DRAW350,200 730 DRAW400,200 740 DRAW400,100 750 DRAW350,100 760 MOVE450,100 770 DRAW450,200 780 DRAW500,200 790 MOVE450,150 800 DRAW475,150 810 MOVE550,200 820 DRAW600,200 830 MOVE575,200 840 DRAW575,100 850 MOVE650,200 860 DRAW657,100 870 DRAW676,150 880 DRAW693,100 890 DRAW700,200 900 MOVE750,100 910 DRAW775,200 920 DRAW800,100 930 MOVE750,150 940 DRAW800,150 950 MOVE850,100 960 DRAW850,200 970 DRAW900,175 980 DRAW850,150 990 DRAW900,100 1000 MOVE1000,200 1010 DRAW950,200 1020 DRAW950,100 1030 DRAW1000,100 1040 MOVE950,150 1050 DRAW975,150 1060 A$="PRESENTS" 1070 PRINTTAB(16,30);A$ 1080 FOR D=1TO 7 1090 IFD=4THEN D=5 1100 READA 1110 IFA=-1THEN RESTORE:NEXTD:GOTO 1160 1120 VDU19,D,A,0,0,0 1130 FOR G=1TO100:NEXTG 1140 GOTO1100 1150 DATA 0,4,2,6,3,7,7,3,6,2,4,0,-1 1160 FOR S=1TO 3 1161 READA 1170 IFA=-1THEN RESTORE:NEXTS:GOTO1210 1180 VDU19,1,A,0,0,0:VDU19,2,A,0,0,0:VD U19,3,A,0,0,0 1190 FOR G=1TO100:NEXTG 1200 GOTO1161 1210 VDU19,2,2,0,0,0 1220 VDU19,1,1,0,0,0 1230 VDU19,2,2,0,0,0 1240 VDU19,3,7,0,0,0 1250 FOR G=1TO5000:NEXT 1260END