Sinclair ZX80 / ZX81 / Z88 Forums

XavSnap

Compressed D_File:
https://www.sinclairzxworld.com/viewtop ... 301#p54301

In VB81 XuR, 9999 SAVE"P.TXT"
Or "ZXtocken", PtoText ...

XavSnap

Tanks Greg !

XavSnap

ASM: 1 REM [HEX:\ 2A,16,40,23,23,46,23,4E,E5,CD,F5,08,E1,23,18,05,\ 2A,16,40,23,23,7E,D6,1C,32,21,40,ED,5B,0E,40,4F,\ 3E,21,91,4F,06,00,ED,43,7B,40,23,7E,FE,0B,28,0F,\ 3A,21,40,4F,ED,B0,E5,2A,7B,40,19,EB,E1,18,EC,CD,\ 5B,00 ] 10 FOR A=0 TO 22 20 PRINT AT 10,A;;USR 16530;"\ A\ µµ««´± \ «««««««®\ ¾‹OŒ...

XavSnap

Code: Select all

10 LET A$=" µµ««´±   «««««««®  ¾‹OŒ´´‹OŒ"
20 FOR A=0 TO 22
30 PRINT AT 10,A;A$(1 TO 9);AT 11,A;A$(10 TO 19);AT 12,A;A$(20 TO 29)
40 NEXT A

XavSnap

"ON N GOTO 1250,2000,4500,6001,2000,4500,6001" IF you can't use a GOTO N... Example: #Regular code: 10 IF N=1 THEN GOTO 1250 20 IF N=2 THEN GOTO 2000 30 IF N=3 THEN GOTO 4500 40 IF N=4 THEN GOTO 6001 50 IF N=5 THEN GOTO 2000 60 IF N=6 THEN GOTO 4500 70 IF N=7 THEN GOTO 6001 80 STOP Use this code: 11...

XavSnap

How to print a car, and scroll it to the right side... Cap0000.jpg PRINT AT: 10 FOR A=0 TO 22 20 PRINT AT 10,A;" µµ««´±";AT 11,A;" «««««««®";AT 12,A;" ¾‹OŒ´´‹OŒ" 30 NEXT A TAB : 10 FOR A=0 TO 22 20 PRINT AT 10,A;" µµ««´±";TAB A;" «««««««®";TAB A;" ¾‹OŒ´´‹OŒ"; 30 NEXT A LET: 1 DIM T$(3,64) 2 LET T$(1...

XavSnap

Booleans in BASIC:

Code: Select all

  5 LET FALSE=0
  7 LET TRUE=1
  9 LET B=0
  10 LET A=TRUE
  20 IF A>0 THEN LET B=B+1
  30 LET B=B+1*(A>0)
  35 LET B=B+(A>0)
  40 LET B=B+NOT NOT A
  45 PRINT "A IS ";("TRUE") AND A;("FALSE") AND NOT A,,,,
  50 PRINT "BOOL SUM=";B

XavSnap

Another way to display a bloc...
Download the Greg's game here

XavSnap

Hi, In BASIC, you had to place the bloc at the right raw for each line: 10 FOR A=0 TO 17 20 PRINT AT A,10;" ";\ AT A+1,10;"(I)";\ AT A+2,10;"¬¿ª";\ AT A+3,10;"ºL°";\ AT A+4,10;"·®¶" 30 NEXT A 50 FOR A=17 TO 0 STEP -1 60 PRINT AT A,10;"²¸¹";\ AT A+1,10;"º7°";\ AT A+2,10;"¯¾¼";\ AT A+3,10;"(I)";\ AT A...

XavSnap

Good job Wilco2009,
Thanks.

Sinclair ZX80 / ZX81 / Z88 Forums

Search found 1941 matches

Re: shorten basic files saved to wespi

Re: Falling Balls

Re: Eight ways to drive a car [BASIC]

Re: Eight ways to drive a car [BASIC]

Re: Tricks in BASIC

Eight ways to drive a car [BASIC]

Re: Tricks in BASIC

Re: Put a Graphic bloc on a screen...[ASM]

Put a Graphic bloc on a screen...[ASM]

Re: ZX81KBD+ USB/PS2 y programmable Josytick