1 REM SPRITE TOOL DEMO
2 :
3 REM 1987 BY R. BAIER
4 REM ZULETZT GEAENDERT AM 02-11-87
5 :
6 :
7 REM VORBEREITUNGEN
8 :
9 PRINT"[147]"CHR$(14)CHR$(8): V=53248
10 POKE V+33,0: POKE V+17,27
11 FOR I=0 TO 63: READ D: POKE 13*64+I,D: POKE 14*64+I,255: NEXT
12 :
13 REM SPRITE DATEN
14 :
15 DATA 0,215,0,3,215,192,15,215,240,15,215,240,63,215,252,63
16 DATA 85,252,63,85,252,191,85,254,175,85,250,170,85,170,138,170
17 DATA 162,128,170,2,128,0,2,160,0,10,32,0,8,42,0,168
18 DATA 58,170,172,15,170,240,15,215,240,3,215,192,0,215,0,0
19 :
20 GOTO 30: REM BEFEHLE
21 :
22 REM UNTERPROGRAMME
23 :
24 PRINT"[147][211][208][210][201][212][197][160][212][207][207][204]         -[193]: 52618 -[197]: 53247 ": RETURN
25 POKE 211,32: POKE 214,20: SYS 58732: PRINT" [210][197][212][213][210][206] ": POKE V+17,27
26 GET A$: IF A$<>CHR$(13) THEN 26
27 RETURN
28 POKE 211,32: POKE 214,20: SYS 58732: PRINT"        ": RETURN
29 :
30 REM BEFEHLE
31 :
32 REM POSITION MOB
33 :
34 GOSUB 24: REM BILDSCHIRM
35 PRINT"[194][197][198][197][200][204]: ![208][205][207][194]": POKE V+17,27
36 !PMOB 0,0,0: !CMOB 5,0,0: !KMOB 0,0,0,0: !SMOB 1,14,0
37 FOR X=1 TO 160 STEP 3: Y=INT(50+6.3*SQR(X)): !PMOB X,Y,0
38 PRINT""SPC(13)X"[157],"Y"[157],0": NEXT
39 GOSUB 25: REM TASTATURABFRAGE
40 :
41 REM COLOUR MOB
42 :
43 GOSUB 28: PRINT""SPC(8)"![195][205][207][194]            "
44 FOR I=1 TO 15: !CMOB I,0,0: PRINT""SPC(13)I"[157],0,0"
45 FOR T=1 TO 500: NEXT T,I
46 GOSUB 25: REM TASTATURABFRAGE
47 :
48 REM MULTICOLOUR MOB
49 :
50 GOSUB 28: PRINT""SPC(17)"1": PRINTSPC(8)"![205][205][207][194]"
51 !CMOB 15,1,0: !SMOB 1,13,0
52 FOR I=14 TO 1 STEP -1: !MMOB I,15-I: PRINT""SPC(13)I"[157],"15-I"[157] "
53 FOR T=1 TO 500: NEXT T,I
54 GOSUB 25: REM TASTATURABFRAGE
55 :
56 REM KIND OF MOB
57 :
58 GOSUB 28: PRINT""SPC(8)"![203][205][207][194]            ": PRINTSPC(8)"              "
59 !KMOB 1,0,0,0: PRINT""SPC(14)"1,0,0,0": FOR T=1 TO 750: NEXT
60 !KMOB 0,1,0,0: PRINT""SPC(14)"0,1": FOR T=1 TO 750: NEXT
61 !KMOB 0,0,1,0: PRINT""SPC(16)"0,1";:PRINT"[157][144][219]"
62 FOR T=1 TO 750: NEXT
63 !KMOB 1,1,1,0: PRINT""SPC(14)"1,1,1";
64 GOSUB 25: REM TASTATURABFRAGE
65 PRINT""SPC(18)" "
66 :
67 REM JOYSTICK CONTROLLED MOB
68 :
69 GOSUB 28: PRINT""SPC(8)"![202][205][207][194] 2,1,0 ([211]PR/[211]PR)"
70 !PMOB 0,0,1: !CMOB 11,0,1: !KMOB 0,1,0,1: !SMOB 1,14,1: !PMOB 20,130,1
71 POKE 211,33: POKE 214,20: SYS 58732: PRINT" [202][207][217] 2 "
72 POKE V+30,0: !JMOB 2,1,0
73 GOSUB 25: REM TASTATURABFRAGE
74 GOSUB 28: PRINT""SPC(16)"2,0 ([211]PR/[200][199][210])": !SMOB 0,1
75 POKE 211,33: POKE 214,20: SYS 58732: PRINT" [202][207][217] 2 "
76 POKE V+31,0: !JMOB 2,2,0
77 GOSUB 25: REM TASTATURABFRAGE
78 GOSUB 28: PRINT""SPC(16)"4,0 ([198]EUERKNOPF)"
79 POKE 211,33: POKE 214,20: SYS 58732: PRINT" [202][207][217] 2 "
80 !JMOB 2,4,0
81 GOSUB 25: REM TASTATURABFRAGE
82 :
83 REM PROGRAMM BEENDEN
84 :
85 !SMOB 0,0    : !SMOB 0,1
86 !KMOB 0,0,0,0: !KMOB 0,0,0,1
87 !PMOB 0,0,0  : !PMOB 0,0,1
88 :
89 PRINT"[147]"CHR$(142)CHR$(9): POKE 808,237
90 SYS 52618: NEW