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"