... "IF", "INK", "INPUT", "INVERSE", "LET", "LIST", "LLIST", "LOAD",
" ... OVER", "PAPER",
"PAUSE", "PLOT", "POKE", "PRINT", "RANDOMIZE", "READ", "REM", "RESTORE", " ... )
{
unsigned char a = pear_hash(0, key);
...

... "IF", "INK", "INPUT", "INVERSE", "LET", "LIST", "LLIST", "LOAD",
"LPRINT ... OVER", "PAPER",
"PAUSE", "PLOT", "POKE", "PRINT", "RANDOMIZE", "READ", "REM", "RESTORE", " ... )
{
unsigned char a = pear_hash(0, key);
...

... 4: LET da=PEEK 23639+256*PEEK 23640+8:
POKE 23563 ... ,da-INT (da/256)*256: POKE 23564,INT (da/256)
PRINT "dup.old=";CODE h$(rsl ... /> LET ba=a-ba2*2: LET bb=b-bb2*2:
LET a=ba2: LET b ...

... enter values as part of a BASIC program.

For ... ]10 CLEAR 64511
20 LET a=64512
30 READ d ... THEN STOP
50 POKE a,d
60 LET a+a+1
70 ...
Then use
[CODE]PRINT USR 64512 [/CODE][I][B ...

... : LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET ... s=0: FOR y=0 TO 13: LET ... : LET z=(b>y)*(bx)*(a" ": PRINT AT b+1,a;" ";AT b,a ... -1;" ^ ";: POKE 23620,22+8*(g=20)*(p=x+4): LET i ... )+(IN 57342< n)*(p0)): LET a=a*(b

... : LET i$(g-1)=" # # # # ": NEXT g: LET b=0: LET p=16: LET a=p: LET ... s=0: FOR y=0 TO 13: LET ... : LET z=(b>y)*(bx)*(a" ": PRINT AT b+1,a;" ";AT b,a ... -1;" ^ ";: POKE 23620,22+8*(g=20)*(p=x+4): LET i ... )+(IN 57342< n)*(p0)): LET a=a*(b

... wherever, put:
"CLEAR 63999: POKE 64000,128"
at the ... $:
LET a=a+3: GO TO 8942
8946 PRINT CHR$ b0;: LET a=a+1 ... with:
;CLEAR [below 64000]: POKE 64000,128
org 23296 ...

Another 9 month hiatus. Made a few false starts because I ... the code for a wall to 0 and a door to 1 ... /> 20 REM changes this version: print room based on map grid ... 2210-200*w
2010 PRINT AT ny,nx; INK npc ...

... :
PRINT AT 0,0; PAPER 1,,: LET r0=10: LET c0=16 ... =22528+r0*32+c0: LET a=PEEK p: PRINT AT r0,c0; PAPER ... 1;" ":
PAUSE 0: LET i$=INKEY$: POKE ... p,a: LET p=1
24 ...

Here's a composite of three routines from ... LET z$="": CAT #14,d
5010 CLS : POKE 23766,d: POKE 23768 ... ,15
5020 PRINT INVERSE 1 ... ;"Title: ";z$( TO 10)
5030 LET z ...

... offset one pixel, you can print in the same spot and ... ) (you might need to print 2 cells for the edge ... 40 LET x=10: LET y=1: LET z=144
50 PRINT AT ... F=65368 TO 65535: READ A: POKE F,A: NEXT F
... LET z=144: PRINT AT x,y;" ": LET y=y+1
2050 PRINT ...

... do a POKE 23611,204 you enable (or disable) a flag that tells PRINT ... when to print UDG T and ... 's easier to do a POKE 23611,204 and let the BASIC interpreter ... every time you need to print something.

... do a POKE 23611,204 you enable (or disable) a flag that tells PRINT ... when to print UDG T and ... 's easier to do a POKE 23611,204 and let the BASIC interpreter ... every time you need to print something.[/quote]

I ...

... CODE[/b] and either [b]PRINT[/b] or [b]RANDOMIZE USR ... load the BASIC but not let it auto-run.
... but just before the [b]PRINT USR[/b] or [b ... line of BASIC and use a POKE to change its line ... really just a single line beginning with a PRINT USR instruction ...

... br /> 120 CLS
130 PRINT AT 0,0;"ADDR";AT ... br /> 180 PRINT A;TAB 7;H$;
190 LET P=CODE H ... br /> 210 PRINT TAB 12;P;
220 LET D=P*16 ... /> 260 PRINT TAB 17;P;TAB 22;D
270 POKE A,D ...
280 LET A=A+1
290 ...

... Put a POKE 65368,201 and it will return safely (and print the ... going with it? Let's think about a practical case. Imagine ... - PRINT USR nn will print BC on screen, ruining your SCREEN$.
- LET A ... =USR nnn will put it on A, taking some ...

... /> [code]
10 POKE 23659,0:
PRINT AT 22,0;"AT ... 23,31":
PAUSE 0: POKE 23659,2: STOP
[/code ... br /> PRINT CODE SCREEN$ (23,31): PRINT ATTR (23,31): POKE 23659,6 ...
[code]10 LET a=score
20 PRINT #2; AT 23,0 ...

... of BASIC, you can do a lot more... There ARE tools ... with the Beeper hardware of a 48k system, like Beepola, for ...

... LET a=64000+(32*s)
130 FOR b=a TO a+31: POKE ... THEN LET c=64+(s*8)+s: POKE a+1+s,c: POKE a+ ... 270 LET z=USR 63032
280 PRINT AT y,x;"A"
530 LET a=ATTR (y,x): IF ... /> 580 PRINT AT y,x;"A"
590 LET k$=INKEY$: LET x=x ...

... /> 30 POKE 23692,0: POKE 23613,PEEK 23613-2
40 LET a$="V ... 1982"+CHR$ 13
50 LET a$=a$+"Naq V'yy xrrc fvatvat ... orpnhfr"+CHR$ 13
60 LET a$=a$+"Guvf vf gur cebtenz gung ... +" raqf"+CHR$ 13
70 LET a$=a$+"Vg whfg tbrf ba naq ...

[code]
1 LET a$="Hello World!!"
2 PRINT INK 9; PAPER INT (RND*8); BRIGHT INT (RND*2);CHR$ CODE a$;: OUT 254,RND*32: POKE 23692,PI: LET a$=a$(2 TO ): GO TO 2-(a$="")
[/code]

... ]
1 POKE 23674,0: POKE 23673,0: POKE 23672,0: POKE 65281,0 ...
2 LET f1=PEEK 23672: LET f2=PEEK 23673: LET f3=PEEK ... 23672: LET f4=PEEK ... 23673: LET f=f1 ...

... (a,b): LET v$(1,p)=CHR$ ATTR (a,b):
PRINT AT a,b ... 102 RANDOMIZE da: POKE 23563,PEEK 23670: POKE 23564,PEEK 23671:
POKE da+7,PEEK 23671:
REM print upper trace ... 23670: POKE da+5,PEEK 23671:
REM print lower trace ...

...
20 LET a$=CHR$ c: FOR a=1 TO 31: LET a$=a$+CHR$ c ... : NEXT a
30 LET f ... =22592
40 POKE 23681 ... /256)
50 LPRINT a$
60 PRINT #0; AT 1,0 ...

... follows so that you POKE the coordinates in to ... 110 LET A=60000
120 RESTORE 330
130 POKE 23692, ... br /> 160 PRINT "Hex ";H$;" ";
170 LET H= CODE H ... AND H64))
190 LET H= CODE H$(2)
LET D=D+H-(48 AND H64)
210 PRINT TAB ...

... : LET W=32: LET H=24
140 LET A=9
150 POKE 63000 ... =0 TO 21
340 PRINT AT I,0;"LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL"
350 NEXT I
360 PRINT #1;AT 0,0;"LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL ...

... and draw polygons (basis for a window). The next challenge is ... to write a mouse routine in Z80. I ... Y
250 PAUSE 1: PRINT #S;AT Y,X;B ... Paramters
270 LET X=NX: LET Y=NY: LET S=NS
300 LET K= CODE INKEY$: IF ...

... a Z80 trick?


[code]100 CLS
110 PRINT ... AT 12,16;"X"
120 POKE 63000,12
130 POKE ... 63001,16
140 LET A=USR 63010