home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Starlight
/
Starlight_10_19xx_Starlight_staff_de_Side_A.d64
/
start
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
484b
|
16 lines
0 rem: neu fuer s7 !
1 k=2:gosub15:print"[142][147]schnellader j[146]a n[146]ein":poke198,0:poke49276,0:b$="03"
2 geta$:a=asc(a$+" "):f=aand128:a=aand127:ifa<>78anda<>74then2
3 ifa=78thengosub16:poke49276,123
4 k=0:gosub15:printchr$(14):ifa=74thengosub8:sys50106
5 iffthenb$="m"
6 print"[144][147]":loadb$,8,0
8 print"[147][206]ur [198]loppy [206]r.8 darf angeschlossen sein!"
9 print"[196]rucker [196][197]-[211][197][204]ektieren & [196]rucker- [201]nterface aus!"
10 open1,8,15:close1:ifst<>0then10
11 fork=4to20:open1,k,1:close1:if(st=0)and(k<>8)thenprint"run":end
12 next:return
15 poke53280,k:poke53281,k:return
16 ifpeek(817)=195thensys64789
17 return