home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib22b.dsk
/
CATALOG80.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
652b
|
12 lines
10 REM ***********************
20 REM * CATALOG80 *
30 REM * BY ROBERT MELTZER *
40 REM * COPYRIGHT (C) 1984 *
50 REM * MICROSPARC, INC. *
60 REM * CONCORD, MA 01742 *
70 REM ***********************
80 HEX$ = "ADA4: 2C N ADA8: A9 13 85 24 EA EA N ADC3: 20 8E FD 20 8E FD N F328G": GOSUB 120: CALL -144
90 HEX$ = "AE2F: EA CE 9D B3 D0 08 20 0C FD A9 2C 8D 9D B3 A2 02 4C DF BC N F328G": GOSUB 120: CALL -144
100 HEX$ = "BCDF: 20 4A F9 A2 8D AD 9D B3 6A 90 02 A2 A0 8A 20 ED FD 60 N F328G": GOSUB 120: CALL -144
110 END
120 FOR I = 1 TO LEN(HEX$): POKE 511 +I, ASC( MID$ (HEX$,I,1)) +128: NEXT I: POKE 72,0: RETURN