Ich erinnere mich düster, das mal in meiner Jugend hingehackt zu haben.
Code
5 POKE53280,1:POKE53281,1
10 PRINT"{CLR}{18RIGHT}{10DOWN}";
20 PRINT"{SHIFT-M}{4CBM-P}{SHIFT-N}{6LEFT}{DOWN} {CBM-H}{2SHIFT-W}{CBM-M} {6LEFT}{DOWN}{SHIFT-N}{CBM-H}{2CBM-I}{CBM-M}{SHIFT-M}{7LEFT}{DOWN}{SHIFT-V} {SHIFT-L}{2CBM-P}{SHIFT-@} {SHIFT-V}{6LEFT}{DOWN} {CBM-K}{RVSON}{CBM-K}{RVSOFF} {4LEFT}{DOWN}";
30 PRINT"{RVSON}{CBM-I}{RVSOFF}{CBM-V}{CBM-C}{RVSON}{CBM-I}{RVSOFF}"
40 REM ANIMATION
50 REM FUEHLER
60 F$(1)="{CBM-M}{4CBM-P}{CBM-H}"
70 F$(2)="{SHIFT-M}{4CBM-P}{SHIFT-N}"
80 F$(3)="{6CBM-P}"
90 F$(4)=" {4CBM-P} "
95 F$(5)=F$(3)
96 F$(6)=F$(2)
100 REM AUGEN
110 AU$(1)=" {CBM-H}{2SHIFT-W}{CBM-M} "
120 AU$(2)=" {CBM-H}{2SHIFT-Q}{CBM-M} "
130 AU$(3)=" {CBM-H}{RVSON}{CBM-N}{CBM-G}{RVSOFF}{CBM-M} "
140 AU$(4)="{SHIFT-N}{CBM-H}{RVSON}{SHIFT-@}{SHIFT-L}{RVSOFF}{CBM-N}{SHIFT-M}"
150 AU$(5)=AU$(3)
160 AU$(6)=" {CBM-H}{RVSON}{SHIFT-P}{SHIFT-O}{RVSOFF}{CBM-M} "
200 REM MUND+ARME
210 M$(1)="{LEFT}{DOWN}{SHIFT-V}{UP}{LEFT} {SHIFT-N}{CBM-H}{2CBM-I}{CBM-N}{SHIFT-M} {LEFT}{DOWN}{SHIFT-V}{UP}{LEFT}"
220 M$(2)="{LEFT}{DOWN} {LEFT}{UP}{SHIFT-+}{SHIFT-C}{CBM-H}{2CBM-POUND}{CBM-M}{SHIFT-C}{DOWN} {UP}{LEFT}{SHIFT-+}{LEFT}"
230 M$(3)=M$(1)
240 M$(4)="{LEFT}{DOWN} {LEFT}{UP}{SHIFT-+}{SHIFT-C}{CBM-H}{2CBM-O}{CBM-M}{SHIFT-C}{DOWN} {UP}{LEFT}{SHIFT-+}{LEFT}"
250 M$(5)="{LEFT}{DOWN}{SHIFT-V}{UP}{LEFT} {SHIFT-N}{CBM-H}{2CBM-P}{CBM-N}{SHIFT-M} {LEFT}{DOWN}{SHIFT-V}{UP}{LEFT}"
260 M$(6)=M$(4)
300 FU$(1)=" {CBM-J}{CBM-L}{DOWN}{4LEFT} {RVSON}{CBM-I}{RVSOFF}{CBM-V}{CBM-C}{RVSON}{CBM-I}{RVSOFF}"
310 FU$(2)=" {SHIFT-N}{SHIFT-M}{DOWN}{3LEFT}{RVSON}{CBM-I}{RVSOFF}{CBM-V}{CBM-C}{RVSON}{CBM-I}{RVSOFF}"
320 FU$(3)=FU$(1):FU$(4)=FU$(2):FU$(5)=FU$(1):FU$(6)=FU$(2)
1000 REM BEWEGUNG
1020 FORI=1TO6:PRINT"{HOME}{18RIGHT}{10DOWN}";F$(I);
1025 PRINT"{DOWN}{6LEFT}";AU$(I);
1026 PRINT"{DOWN}{6LEFT}";M$(I);
1027 PRINT"{2DOWN}{5LEFT}";FU$(I)
1030 FORA=1TO500:NEXT
1040 NEXTI
1050 GOTO1020
Alles anzeigen