home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 21 / Big_Mouth_The_21_1998_-_Side_B.d64 / menu (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  978b  |  35 lines

  1. 1 rem"          "bm eyes only!(NULL)
  2. 2 poke808,234:poke53280,0:poke53281,0
  3. 4 fort=1to500:next
  4. 6 print"[147][155]"tab(7)"the big mouth - main menu"
  5. 8 fort=1to2000:next
  6. 10 print"[147]"
  7. 15 fort=1to500:next
  8. 20 printtab(7)"the big mouth - main menu"
  9. 30 print"a - frosty the snowman"
  10. 31 print"b - snowball sunday"
  11. 32 print"c - christmas demo"
  12. 33 print"d - cosmic combat"
  13. 34 print"e - brain spasm"
  14. 35 print"f - jukebox 64"
  15. 36 print"g - morbid covers"
  16. 50 print"pick a program to load (a-g) ?"
  17. 55 geta$:ifa$=""then55
  18. 60 a=asc(a$):ifa-64<1ora-64>7then55
  19. 65 print""tab(15)" loading "
  20. 66 ifa-64=2ora-64=3then80
  21. 70 forx=49152to49170:ready:pokex,y:nextx
  22. 75 sys49152
  23. 76 data120,169,013,141,040,003,169,192,141,041,003,088,096,238,032,208,076,237,246
  24. 80 ona-64goto101,102,103,104,105,106,107
  25. 99 :
  26. 101 load" frosty snowman ",8,1
  27. 102 a$="snowball sunday ":goto 110
  28. 103 a$=" christmas demo ":goto 110
  29. 104 load" cosmic combat  ",8,1
  30. 105 load"brain sp.+hi/avt",8,1
  31. 106 load"   jukebox 64   ",8,1
  32. 107 load"morbid cover/rbl",8,1
  33. 110 print"[147]load"chr$(34)+a$+chr$(34)",8,1"
  34. 111 print"":poke198,4:poke631,13:poke632,82:poke633,213:poke634,13:end
  35.