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