home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64 / game-loader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  600b  |  21 lines
  1. 10 print"[147]":poke788,52:ifa=0thengosub39000
  2. 11 ifa=0thenprint"[147][144]    bitte waehlen :":goto13
  3. 12 sys49152
  4. 13 fori=1to5:reada$(i):next
  5. 14 datadetonation,flap,platforms,scavenger-hunt,speedway
  6. 15 print"":fori=1to5:print"   ";i;" ->  ";a$(i):next
  7. 16 getb$:b=val(b$):ifb<1orb>5then16
  8. 17 a=1:loada$(b),8,1
  9. 39000 poke53280,6:poke53281,6:poke646,1
  10. 39001 print"[147]   tiger-disk 16 / 02 [146]  einlegen !!!!"
  11. 40000 poke198,0:wait198,1
  12. 40010 open15,8,15:print#15,"i":open1,8,3,"#":print#15,"u1 3 0 18 0"
  13. 40020 print#15,"b-p 3 162":get#1,a$,b$,c$,d$,e$
  14. 40030 close15:close1
  15. 40031 ifa$<>"1"then40000
  16. 40032 ifb$<>"6"then40000
  17. 40033 ifc$<>"/"then40000
  18. 40034 ifd$<>"0"then40000
  19. 40035 ife$<>"2"then40000
  20. 40036 poke646,0:poke53280,15:poke53281,15:poke198,0:return
  21.