Sinclair ZX80 / ZX81 / Z88 Forums

Your computer" 06/82 "Drawing program" /ASM tool/ Contributor : XavSnap. 1 REM [HEX:\ 3E,17,06,20,D7,\ 10,FD,0E,12,D7,\ 06,1E,3E,00,D7,\ 10,FD,3E,17,D7,\ 0D,20,F2,06,20,\ D7,10,FD,2A,0C,\ 40,11,23,00,19,\ E5,CD,BB,02,7C,\ E1,44,4D,CB,47,\ C8,11,21,00,CB,\ 4F,20,01,2B,CB,\ 57,20,01,19,CB,\ 5F,20,04,C...

"Your computer" 07/83 "DangerMan" /Basic game/ ASM routine to peek the value at the "PRINT AT" value. Contributor : Antipontifex. 1 REM [HEX: 2A,0E,40,4E,06,0,C9 ] 10 LET LL=1 20 LET P=PEEK 16396+256*PEEK 16397 30 POKE 16418,1 40 CLS 50 LET DE=0 90 RAND 100 LET A=20 110 LET B=INT(RND*31) 130 LET A$=...

Your computer" 06/82 "Code transfer" /Basic tools/ Contributor : XavSnap. 10 INPUT X 20 LET Y = INT (X/256) 30 LET X =X-256*Y 40 POKE 16388,X 50 POKE 16389,Y 60 NEW 9999 SAVE "CT1" 9000 FAST 9010 LET RAMTOP = PEEK 16388+256*PEEK 16389 9020 LET X$ ="" 9030 LET J = 16513 9040 LET J = J + 1 9050 IF PEE...

"Your computer" 01/83 "THE CODE MACHINE" /Basic tool/ Contributor : Antipontifex. 0 REM A K.HART PROGRAM FOR THE 16K. ZX81 22-6-82 THE CODE MACHINE 10 PRINT AT 1,7;"THE CODE MACHINE" 20 PRINT 30 PRINT "PLEASE PRESS ÀcÀ TO CODE OR" ;TAB 13;"ÀdÀ TO DECODE" 40 LET A$=INKEY$ 50 IF NOT (A$="C" OR A$="D")...

"Your computer" 06/83 "Kong Jump" /Basic Game/ Keys: 5-8 jump: Shift + 5 or 8. Contributor : XavSnap. 70 CLS 80 GOSUB 430 90 LET O=1 100 LET A=1 110 LET B=A 120 LET C=26 130 LET S=0 140 LET K=C 150 LET L=A 160 LET N=L+L 170 LET P=C 180 LET T=L-L 190 PRINT AT 0,26;"H";TAB 26;"H";AT PI,T;A$(O);TAB 27;...

Hi,

Thanks!
Picture updated to clear the Z80 pinout.

"Your computer" 06/82 "Zx Assault" (Assault Craft) /Basic Game/ Keys: Q-Z-0 Contributor : XavSnap. 10 LET P = 0 20 LET SC = 0 30 LET T = 3 40 POKE 16418,0 50 FOR A = 0 TO 19 STEP 3 60 FOR B = 18 TO 0 STEP -2 70 PRINT AT A,B;"¸«"; AT A + 2, B;"®«" 80 NEXT B 90 PRINT AT A,26; " * "; TAB 26; " * " 100 ...

"Your computer" 07/83 "Speed Screen" /ASM TOOL/ Contributor : XavSnap. 1 REM [DEC:\ 253,203,59,246,205,7,2,221,\ 33,142,64,201,237,95,1,1,\ 25,62,245,205,181,2,205,\ 146,2,205,32,2,221,33,\ 165,64,195,64,2,211,253,\ 58,40,64,198,194,50,40,\ 64,205,146,2,205,32,2,\ 221,33,142,64,195,164,2 ] 10 RAND U...

"Your computer" 06/83 "Cypher Breaker" /Basic TOOL/ Contributor : XavSnap. 10 CLS 15 PRINT "CODE NO.?" 20 INPUT X 25 CLS 30 PRINT AT 0,0;X 35 DIM C$(32) 40 INPUT A$ 45 IF A$="0" THEN GOTO 10 50 IF A$="00" THEN STOP 55 FOR N=1 TO LEN A$ 60 IF A$(N)<>" " THEN LET C$(N)=CHR$ (CODE A$(N)+X) 65 IF A$(N)=...

"Your computer" 12/83 "BubbleSort" /ASM TOOL/ Asm checked, but give a 2/x error, The listing is of very poor quality. Contributor : Antipontifex. 4082 76 HALT 4083 76 HALT 4084 NAME 00 4085 1STDIM 00 4086 2NDDIM 00 4087 FLAGS 00 4088 STRST 0000 408A STEMPIX 0000 408C TEMPIV 0000 408E 0000 4090 BEGIN...