1 REM SPRITE TOOL INSTRUCTION
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 FO$="[198][207][210][205][193][212]:    ": FU$="[198][213][206][203][212][201][207][206]:  ": PA$="[208][193][210][193][205][197][212][197][210]: ": BE$="[194][197][201][211][208][201][197][204]:  "
12 :
13 GOTO 23: REM BEFEHLE
14 :
15 REM UNTERPROGRAMME
16 :
17 POKE V+17,11: PRINT"[147][211][208][210][201][212][197][160][212][207][207][204]         -[193]: 52618 -[197]: 53247 ": RETURN
18 POKE 211,32: POKE 214,20: SYS 58732: PRINT" [210][197][212][213][210][206] ": POKE V+17,27
19 GET A$: IF A$<>CHR$(13) THEN 19
20 RETURN
21 :
22 :
23 REM BEFEHLE
24 :
25 REM POSITION MOB
26 :
27 GOSUB 17: REM BILDSCHIRM
28 PRINT""FO$"![208][205][207][194] X,Y,N
29 [153]""FU$"(null)OSITIONIERT (null)PRITE N NACH"
30 [153][166]11)"X/Y."
31 [153]""PA$"N - (null)PRITENUMMER (0-7)"
32 [153][166]11)"X - X-(null)OORDINATE (0-511)"
33 [153][166]11)"Y - Y-(null)OORDINATE (0-255)"
34 [141] 18: [143] TASTATURABFRAGE
35 :
36 [143] COLOUR MOB
37 :
38 [141] 17: [143] BILDSCHIRM
39 [153]""FO$"!LEN(null)(null)PEEK F,MC,N"
40 [153]""FU$"STR$EFINIERT ASCARBE F UND (null)ULTI-"
41 [153][166]11)"COLOURMODUS MC VON (null)PRITE N."
42 [153]""PA$"N  - (null)PRITENUMMER  (0-7)"
43 [153][166]11)"F  - ASCARBE         (0-15)"
44 [153][166]11)"MC - (null)ODUS EIN/AUS (1/0)"
45 [153]""BE$"!LEN(null)(null)PEEK 5,0,7"
46 [153][166]11)"(null)PRITE 7 IN ASCARBE GRUEN."
47 [141] 18: [143] TASTATURABFRAGE
48 :
49 [143] MULTICOLOUR MOB
50 :
51 [141] 17: [143] BILDSCHIRM
52 [153]""FO$"!(null)(null)(null)PEEK MC1,MC2"
53 [153]""FU$"PEEKESTIMMT DIE (null)ULTICOLOUR-"
54 [153][166]11)"FARBEN MC1 UND MC2."
55 [153]""PA$"MC1 - (null)LEN-ASCARBE 1 (0-15)"
56 [153][166]11)"MC2 - (null)LEN-ASCARBE 2 (0-15)"
57 [141] 18: [143] TASTATURABFRAGE
58 :
59 [143] KIND OF MOB
60 :
61 [141] 17: [143] BILDSCHIRM
62 [153]""FO$"!(null)(null)(null)PEEK DX,DY,PR,N"
63 [153]""FU$"PEEKESTIMMT CHR$ROESSE DX/DY UND"
64 [153][166]11)"(null)RIORITAET PR VON (null)PRITE N."
65 [153]""PA$"N  - (null)PRITENUMMER     (0-7)"
66 [153][166]11)"DX - (null)ERGROESSERUNG X (0/1)"
67 [153][166]11)"DY - (null)ERGROESSERUNG Y (0/1)"
68 [153][166]11)"PR - (null)RIORITAET       (0/1)"
69 [141] 18: [143] TASTATURABFRAGE
70 :
71 [143] SWITCH ON/OFF MOB
72 :
73 [141] 17: [143] BILDSCHIRM
74 [153]""FO$"!(null)(null)(null)PEEK MO,[BL],N"
75 [153]""FU$"(null)CHALTET (null)PRITE N (AUS PEEKLOCK"
76 [153][166]11)"BL) EIN, BZW. AUS."
77 [153]""PA$"N  - (null)PRITENUMMER (0-7)"
78 [153][166]11)"MO - VALIN/ATNUS      (1/0)"
79 [153][166]11)"BL - PEEKLOCK        (0-255)"
80 [153]""BE$"!(null)(null)(null)PEEK 0,5"
81 [153][166]11)"(null)CHALTET (null)PRITE 5 AUS."
82 [141] 18: [143] TASTATURABFRAGE
83 :
84 [143] JOYSTICK CONTROLLED MOB
85 :
86 [141] 17: [143] BILDSCHIRM
87 [153]""FO$"!MID$(null)(null)PEEK JS,MO,N"
88 [153]""FU$"(null)TEUERUNG VON (null)PRITE N MIT"
89 [153][166]11)"MID$OYSTICK JS, BIS PEEKEDINGUNG"
90 [153][166]11)"MO ERFUELLT IST."
91 [153]""PA$"N  - (null)PRITENUMMER (0-7)"
92 [153][166]11)"JS - MID$OYSTICK     (1/2)"
93 [153][166]11)"MO - PEEKEDINGUNG    (0-7)"
94 [141] 18: [143] TASTATURABFRAGE
95 [141] 17: [143] BILDSCHIRM
96 [153]"ATNPEEKPEEK(null)(null)LENLEFT$PEEKVALSTR$RIGHT$(null)CHR$(null)(null)CHR$VAL(null):"
97 [153]"MO: 0 - NACH JEDER ATNBFRAGE"
98 [153]"    1 - BEI (null)PRITE/(null)PRITE-(null)OLLISION"
99 [153]"    2 - BEI (null)PRITE/LEFT$CHR$(null)-(null)OLLISION"
100 [153]"    4 - BEI GEDRUECKTEM ASCEUERKNOPF"
101 [153]""BE$"!MID$(null)(null)PEEK 2,7,4"
102 [153]"    (null)TEUERUNG VON (null)PRITE 4 MIT MID$OYSTICK"
103 [153]"    IN (null)ORT 2,  BIS EINE DER ATNBBRUCHBE-"
104 [153]"    DINGUNGEN ERFUELLT IST."
105 [141] 18: [143] TASTATURABFRAGE
106 :
107 [143] NACHLADEN
108 :
109 [151] V[170]17,11: [153]"LOADSTOPLOAD"           [199](34)"SDTO3"[199](34)",8";
110 [151] 631,131: [151] 198,1: [128]