home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 18 / Big_Mouth_The_18_1998_-_Side_D.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  831b  |  30 lines
  1. 1 rem"          "bm eyes only!(NULL)
  2. 2 poke 808,234:poke 53280,0:poke 53281,0
  3. 4 fort=1 to 500:next
  4. 6 print"[147][155]"tab(7)"the big mouth - main menu"
  5. 8 fort=1 to 2000:next
  6. 10 print"[147]"
  7. 15 fort=1 to 500:next
  8. 20 printtab(8)"confusing quest 2 & more"
  9. 30 print"a - level 5 - tusslia"
  10. 31 print"b - level 6 - austerelia"
  11. 32 print"c - dreamland v2/stryyker"
  12. 33 print"d - mega kines/pstk"
  13. 50 print"pick a program to load (a-d) ?"
  14. 55 get a$:if a$="" then 55
  15. 60 a=asc(a$):if a-64<1 or a-64>4 then 55
  16. 65 print""tab(15)" loading "
  17. 66 if a-64=4 then 104
  18. 70 forx=49152 to 49170:ready:poke x,y:nextx
  19. 75 sys 49152
  20. 76 data 120,169,013,141,040,003,169,192
  21. 77 data 141,041,003,088,096,238,032,208
  22. 78 data 076,237,246
  23. 80 on a-64 goto 101,102,103
  24. 99 :
  25. 101 load" 05 - tusslia   ",8,1
  26. 102 load" 06 - austerelia",8,1
  27. 103 load"  dreamland v2  ",8,1
  28. 104 print"[147]load"chr$(34)"mega kines /pstk"chr$(34)",8,1":print"run"
  29. 105 print"":poke 198,4:poke 631,13:poke 632,13:new
  30.