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