[code]
21 (Blackjack-variant)

1 LET B$="AJQK789T": LET c$=B$+B$+B$+B$: LET C=32: LET A$="": FOR A=0 TO 2: P
OKE 23620*(A6)
)+(P>20)): NEXT A: LET P=P*(P0)*(P1)): NEXT K: NEXT G: LET S=S+10*(A>4)*(S16: LET S=S*(SP;" ...

... : LET D$=(INKEY$+D$)(1): PRINT AT 10,10;D$: LET L ...

... : LET D$=(INKEY$+D$)(1): PRINT AT 10,10;D$: LET L ...

... =1 TO 10: PRINT IN
VERSE 1;AT y,x;"Q ... ";AT g-1,0;a ... /> b=b+9*(c$="Q"): PRINT AT y,x;"#"
AND c ...

... :

[code]
10 PRINT AT 0,0;IN 31;" ": GO ... bits until CTRL is pressed at which point IN 31 returns ...

... to print beginning at specific character coordinates (as in PRINT AT in basic), print centered ... , right), might be located at different print coordinates and might have different ... byte. For the 0x16 case (PRINT AT) the following two characters in ...

... 6: BORDER 0: CLS : PRINT AT 21,0; INK 1;"~~~~~~~~~~~~~~TTT ... TO 1: PRINT AT p/9,o/9;" ";AT y/9,x ... gt;ABS w)*(x124): PRINT AT 9,12-(3*l);"You ... systems have unfortunately failed at the last moment. You ... thrusters can be fired at a time. Treacherous crosswinds ...

... did consider using an array at first, but thought I wouldn ... to (256-32)
30 print at 0,0;m$ (n to ...

... STEP e*2-1:
PRINT AT 21,p-1; INK 4 ... ;" ^ ": FOR i=1 TO 3: PRINT AT y+2*i,x;i ...

... to (256-32)
30 print at 0,0;m$ (n to ... redo the d_Print() routine to print a maximum of n chars ... , 32); // print a max of 32 chars from string alpos at (22 ... there is no byte copy at all.

[code]
1 PRINT AT 0,0;"QWERT": FOR i= ... +(b/2): NEXT b:
PRINT AT 1,0;a$: NEXT i ... . In summary, two keys pressed at the same time always seems ...

... =0:
[/code]

PRINT AT also works with negative numbers ... RUN UP and make the PRINT AT run backwards

[code ... = 16 TO 1 STEP -1: PRINT AT F,0 ;"HELLO": NEXT F ... /> FOR F= 1 TO 16 : PRINT AT 17-F,0 ;"HELLO": NEXT ...

... /> FOR i=1 TO 3: PRINT AT y-1+2*i,x ... ;i$(4);AT y+2*i,x;i ... )*(bx)*(a" ":
PRINT AT b+1,a;" ";AT b,a;"| "(1+(b ... =0));AT h*b,a;" ";AT g-1,x+3 ... ;" ";AT g,x+4;"| "(1 ... +(g=21));AT 21,p-1;" ^ ";:
POKE ...

... never sees the scroll? message at the end of the game ... i=1 TO 3:
PRINT AT y-1+2*i,x ... ;i$(4);AT y+2*i,x;i ... )*(bx)*(a" ":
PRINT AT b+1,a;" ";AT b,a;"| "(1+(b ... =0));AT h*b,a;" ";AT g-1,x+3 ... ,x+4;"| "(1+(g=21));AT 20,p-1;" ^ ";: POKE 23620 ...

... by changing

PRINT AT 21,0;s;

to

PRINT #1;s;

but ... to use it to print something at the end of play ... though.

To print ... like

PRINT #1;AT 0,0;s;
< ...

... increases the complexity of the "PRINT AT" statements, but the payoff is ... to itself, saving space defined at the DATA statements.
< ... they can only change directions at maze junctions, or when ... that a PACMAN game is at least theoretically within reach ...

... /> [code]
10 PAPER 6: PRINT AT 0,5;"SCOTTIES MORE ADVANCED ... ":
PAPER 3:
PRINT AT 1,10; "FART SIMULATOR":
PAPER 4: PRINT AT 21,2;"PRESS ENTER TO ...

... TO 1000: PRINT AT 21,RND*31;"*";AT 21,RND*31;"*";AT 21,RND ... *31;"*";AT 21,RND ... SCREEN$ (0,h)"*" THEN PRINT INK 4;AT 0,h;"V": BEEP ...

... RND*1000: PRINT AT 21,RND*31;"*";AT 21,RND*31;"*";AT 21,RND ... *31;"*";AT 21,RND ... SCREEN$ (0,h)"*" THEN PRINT INK 4;AT 0,h;"V": BEEP ... 4;AT 0,h;"V": PRINT AT 1,1;"Congratulations! You survived!": PRINT AT 2 ...

... /> INK 0: PAPER 7:
PRINT AT g+6,1;" | || | | || | || | | || | || ": ... 1:
PRINT AT a,2+(b*12);" ";AT a,4+(b ... b:
NEXT g:
PRINT AT 14,1; PAPER 7;" | || | | || | || | | || | || ": ... to 1)";w:
PRINT AT 7,2;"Octave= ";o;" Warble ...

... day to have a peek at block headers:

30 PRINT #0;" Desculador de cabeceras ... 50028)
90 PRINT AT 0,0;m$;:FOR n ... n
110 PRINT AT 7,0;("Start address:"AND ... 50026
130 PRINT AT 15,0;"Byte quantity:";cby ...

[QUOTE=Dr BEEP;205388]
You really start to amaze me.

Free tip 4 ALL:

READ B$ : DATA " "

can also be done with

DIM B$(8 )

Saves 2 positions.[/QUOTE]

Actually variable ...

... it). If you don't print spaces over the previous number ... /> I will have another look at this (maybe sometime over the ...

... just had another quick look at the code, and realised that ... e
=0 TO m: PRINT PAPER 6-e/m, PAPE ...

... />
[/QUOTE]

Not at all! I couldn't do ... e=0 TO m:
PRINT PAPER 6-e/m, PAPER ...

[QUOTE=Digital Prawn;208170]Thanks again, DP[/QUOTE]

You are welcome again!


[QUOTE=Digital Prawn;208145]This reminds me a bit of working on that space invaders game a while back. The game eventually had to be scaled back to ...

Right, I've just implemented all of your optimisations (a)-(h).

This has resulted in saving 45 positions, making a total of 47 positions remaining! So almost certainly room for some extra feature I hope. I will think about how I can use this ...

... from the end of the PRINT line.

But ... this:

[CODE]
PRINT AT y-1+2*i,x ... this:

[CODE]
PRINT AT y-1+2*i,x ... /> [CODE]
PRINT AT 21,0;s;AT b+1,a;" ";AT b,a ... /> PRINT AT g-1,x+3;" ";AT g,x+4;"|";AT 21,0;s,,AT ...

... from the end of the PRINT line.

But ... this:

[CODE]
PRINT AT y-1+2*i,x ... this:

[CODE]
PRINT AT y-1+2*i,x ... /> [CODE]
PRINT AT 21,0;s;AT b+1,a;" ";AT b,a ... /> PRINT AT g-1,x+3;" ";AT g,x+4;"|";AT 21,0;s,,AT ...

... /> PRINT AT g-1,x+3;" ";AT g,x+4;"|";AT 21,0;s,,AT ... b+1,a;" ";AT b ... ,a;"| "(1+h+(b=0));AT 20,p-1;" ^ ":
IF ... +4;"
|";AT 21,0;s,,AT b+1,a;" ";AT b,
a;"| "(1+h+(b=0));AT 20,p-1;" ^
": IF ...