10 REM Rolling Picture Display 20 REM (C) R.Pashby 21/8/89 30 REM Using ABS Digitised Pictures 40 MODE 0 50 PRINT"According to my records you only have access to one disc drive" 60 PRINT"surface and will therefore not be able to run the Urban Warfare" 70 PRINT"program. In order for you not to miss out I have taken the liberty" 80 PRINT"of placing some digitised pictures on your disc by way of consolation" 90 PRINT"I hope you like these and I look forward to receiving your disc and" 100 PRINT"comments ready for the next issue .... Duncan Webster." 110 PRINT 120 PRINT"Press RETURN to begin the show ...." 130 *FX15 131 A=GET 140 *LDPIC CHIP 150 PRINTTAB(18,26)"CHIP" 160 FOR N=0 TO 10000 170 NEXT N 180 CLS 190 *LDPIC CLOWN 200 PRINTTAB(17,30)"CLOWN" 210 FOR N=0 TO 10000 220 NEXT N 230 CLS 240 *LDPIC COCKTAI 250 PRINTTAB(14,31)"COCKTAIL" 260 FOR N=0 TO 10000 270 NEXT N 280 CLS 290 *LDPIC COKE 300 PRINTTAB(17,1)"COKE" 310 FOR N=0 TO 10000 320 NEXT N 330 CLS 340 *LDPIC DROID3 350 PRINTTAB(33,30)"DROID3" 360 FOR N=0 TO 10000 370 NEXT N 380 CLS 390 *LDPIC ELITE 400 PRINTTAB(17,30)"ELITE" 410 FOR N=0 TO 10000 420 NEXT N 430 CLS 440 *LDPIC GIRL 450 PRINTTAB(0,1)"GIRL" 460 FOR N=0 TO 10000 470 NEXT N 480 CLS 490 *LDPIC HANCOCK 500 PRINTTAB(17,30)"HANCOCK" 510 FOR N=0 TO 10000 520 NEXT N 530 CLS 540 *LDPIC HENRY 550 PRINTTAB(17,30)"HENRY" 560 FOR N=0 TO 10000 570 NEXT N 580 CLS 590 *LDPIC HOUSE 600 PRINTTAB(16,30)" HOUSE " 610 FOR N=0 TO 10000 620 NEXT N 630 CLS 640 *LDPIC MAX 650 PRINTTAB(18,2)"MAX" 660 FOR N=0 TO 10000 670 NEXT N 680 CLS 690 *LDPIC MAXHEAD 700 PRINTTAB(1,1)"MAXHEAD" 710 FOR N=0 TO 10000 720 NEXT N 730 CLS 740 *LDPIC MIGHTY 750 PRINTTAB(17,30)"MIGHTY" 760 FOR N=0 TO 10000 770 NEXT N 780 CLS 790 *LDPIC SPIDEY 800 PRINTTAB(34,1)"SPIDEY" 810 FOR N=0 TO 10000 820 NEXT N 830 CLS 840 *LDPIC RAQUEL 850 PRINTTAB(17,30)"RAQUEL" 860 FOR N=0 TO 10000 870 NEXT N 880 CLS 890 *LDPIC SHARP 900 PRINTTAB(1,1)"SHARP" 910 FOR N=0 TO 10000 920 NEXT N 930 CLS 940 *LDPIC SHIP 950 PRINTTAB(1,1)"SHIP" 960 FOR N=0 TO 10000 970 NEXT N 980 CLS 990 *LDPIC SKI 1000 PRINTTAB(17,2)"SKI" 1010 FOR N=0 TO 10000 1020 NEXT N 1030 CLS 1040 *LDPIC SNOOPY 1050 PRINTTAB(1,1)"SNOOPY" 1060 FOR N=0 TO 10000 1070 NEXT N 1080 CLS 1090 *LDPIC SANDY 1100 PRINTTAB(1,1)"SANDY" 1110 FOR N=0 TO 10000 1120 NEXT N 1130 CLS 1140 CLS 1150 GOTO 10