Normally i'd do it like this:
Input a$:if not a$ then print "graphics character" at "position"
this is cumbersome and tiring. is there another way?
i hope there is, I feel like none of my code is up to par
![Sad :(](./images/smilies/icon_e_sad.gif)
ideas
![Question :?:](./images/smilies/icon_question.gif)
And yes, I read the manual.
Code: Select all
10 LET X=10
20 LET Y=10
100 LET X=X+(INKEY$="8" AND X<31)-(INKEY$="5" AND X>0)
110 LET Y=Y+(INKEY$="6" AND Y<21)-(INKEY$="7" AND Y>0)
115 LET A$=CHR$ (X+Y+128)
118 POKE PEEK 16399*256+PEEK 16398-1,0
120 PRINT AT Y,X;A$;
130 IF INKEY$<>"0" THEN GOTO 100
Code: Select all
10 LET X=9
20 LET Y=10
30 PRINT AT 6,8;"««««««««««««««««";\
TAB 8;"« « « « « «";\
TAB 8;"« « ««« « « ««";\
TAB 8;"« « « « « « «";\
TAB 8;"« « « « « «« «";\
TAB 8;"« « « ««« « « «";\
TAB 8;"« « « « « «";\
TAB 8;"« ««« « « « ««";\
TAB 8;"« « « « «";\
TAB 8;"« ««««« « «««« «";\
TAB 8;"« « «« « « h";\
TAB 8;"« « « « « «";TAB 8;"««««««««««««««««"
50 PRINT AT Y,X;" ";
100 LET X2=X
102 LET Y2=Y
105 LET X=X+(INKEY$="8" AND X<31)-(INKEY$="5" AND X>0)
108 LET Y=Y+(INKEY$="6" AND Y<21)-(INKEY$="7" AND Y>0)
110 LET A$=CHR$ (X+Y+128)
118 POKE PEEK 16399*256+PEEK 16398-1,0
120 PRINT AT Y,X;
130 LET T$=CHR$ PEEK(PEEK 16399*256+PEEK 16398)
131 IF T$=" " THEN GOTO 140
132 IF T$="h" THEN GOTO 160
133 LET X=X2
134 LET Y=Y2
140 PRINT AT Y,X;A$;
150 IF INKEY$<>"0" THEN GOTO 100
160 PRINT AT 4,6;"NEXT LEVEL...CRAYON21"
170 PAUSE 100
180 CLS
190 RUN
You had to find the holy Zx81's manual in a F***King maze of the death.
Use cursors to move the Crayon throw this peaceful and easy trip.
Just go to the "H" point (may be the holy user manual ?)