home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 18 / 018.d81 / comp.eyes.menu (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  590b  |  26 lines
  1. 10 rem  computer eyes menu
  2. 20 print"[147]"chr$(142)
  3. 30 poke53281,0:poke53280,5
  4. 40 :
  5. 50 printspc(7)"computereyes review menu"
  6. 60 print:print:print
  7. 70 print"  1 ==> read computereyes review"
  8. 80 print"  2 ==> view computereyes pictures"
  9. 90 print"  3 ==> print computereyes order form"
  10. 95 print"  4 ==> return to loadstar"
  11. 100 :
  12. 110 print"which ?";
  13. 120 poke198,0:wait198,1:geta$
  14. 130 ifa$<"1"ora$>"4"then120
  15. 140 :
  16. 150 ifa$="1"thenf$="text reader":poke65535,14
  17. 160 ifa$="2"thenf$="comp.eyes.viewer"
  18. 170 ifa$="3"thenf$="comp.eyes.order"
  19. 180 ifa$="4"thenf$="hello"
  20. 190 :
  21. 200 printa$;
  22. 210 :
  23. 300 print"[144]load"chr$(34)f$chr$(34)",8":print"run"
  24. 310 poke631,13:poke632,13:poke198,2
  25. 400 end
  26.