A magic Auto-Scrolling !

Anything Sinclair ZX Basic related; history, development, tips - differences between BASIC on the ZX80 and ZX81
Post Reply
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

A magic Auto-Scrolling !

Post by XavSnap »

Only 32bytes !

Code: Select all

# DISPLAY EXAMPLE
# ><AVSNAP
# ®®®®®®®®®®®®®®®®®
# FIND IN ORDI-5 n2
# PAGE 29
# AUTHOR :
# ERIC WEINSTEIN.
# ®®®®®®®®®®®®®®®®®

     1  REM [HEX:\
0E,21,3E,06,C6,02,47,CD,\
18,09,CD,9B,09,12,FD,34,\
3A,2A,0C,40,23,16,06,ED,\
B1,15,20,FB,54,5D,ED,B1,\
C3,5D,0A,3D,3D ]

     7 POKE 16536,6
     8 POKE 16517,6
    10 LET I=1
    50 DIM N$(50,16)
    55 FOR A=1 TO 50
    60 LET N$(A)=CHR$ (A+127)+" HELLO "+CHR$ (A+127)
    70 NEXT A
    80 PRINT AT 5,0;"--------------------------------"
    85 PRINT AT 16,0;"--------------------------------"
    90 FOR I=1 TO 50
    96 RAND USR 16514
    98 PRINT N$(I);"(";I;")"
   100 NEXT I
  8999 STOP 
  9000 SAVE  "AUTO-SCROLl"
Attachments
ANDRE_ASM.zip
P files and codes.
(5.63 KiB) Downloaded 385 times
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply