home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 2 Years / Tiger_Disk_2_Years_19xx_Tiger-Crew-Disk_de_Side_A.d64 / basic-flash (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  538b  |  20 lines
  1. 1 print"[147]bitte warten ..."
  2. 10 ifa=0thena=1:load"fe.routine",8,1
  3. 15 ifa=1thena=2:load"fe.irq-routine",8,1
  4. 20 sys65409:sys65412:sys65418
  5. 21 poke53280,.:poke53281,.
  6. 25 :
  7. 30 rem *** screen nach $0400 laden
  8. 35 :
  9. 40 open2,8,2,"fe.screen,p,r":a=1024:b=55296:get#2,a$,a$
  10. 45 get#2,a$:pokea,asc(a$):pokeb,1
  11. 50 a=a+1:b=b+1:ifa=1220thenclose2:goto65
  12. 55 goto45
  13. 60 :
  14. 65 sys52992: rem *** irq-routine $cf00
  15. 70 poke198,0:wait198,1:poke198,0
  16. 80 print"[147][158]na, wie fandest du das ???"
  17. 90 print"waer das nicht was fuer dein naechstes  proggi ?"
  18. 91 print"             tigercrew"
  19. 95 poke198,0:wait198,1:poke198,0:list10-65
  20.