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