home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore 64 Scene Diskmags Assortment
/
Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_B.d64
/
quad-link
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
599b
|
16 lines
0 remcopyright 1986 viking technologies
40001 ifx=0thenx=1:gosub40020:load"game set",8,1
40002 ifx=1thenx=2:load"game piece",8,1
40003 print"[154]load"chr$(34)"quad-link.exe"chr$(34)",8":poke198,2:poke631,19
40004 poke632,131:new
40020 print"[147]":poke53272,21:poke53281,14:poke53280,14
40030 print" [213][192][192][201] [178]
40040 [153]" (NULL) (NULL)= =(NULL)tantanright$ =tantanright$ (NULL) = =^ = = =
40050 print" [221] [221][221] [221][221] [221] [221] [221] [221] [221] [221][221] [221] [221][176][192][189]
40060 [153]" (NULL) (NULL)(NULL) (NULL)-tantan< (NULL)close (NULL) tantan (NULL) (NULL) (NULL)/^(NULL) ->^
40070 print" [221][213][201][221][221] [221][221] [221] [221] [221] [221][160] [221] [221] [221][221] [221] [173][174]
40080 [153]" mid$tan(NULL)(NULL)mid$tantan(NULL)> > >tantan(NULL) >tantanexp> > /> > >
40090 print" [202][203]
40300 [153]" copyright 1986 by jon perregaux
40310 print" published by viking technologies, inc.":return