home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 132 / Tiger_Disk_132_20xx_Tiger-Crew-Disk_de_Side_B.d64 / toolkit-demo (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  33 lines
  1. 10 rem  ifa=0thena=1:load"text-toolkit*",8,1
  2. 15 ifpeek(32768)<>76andpeek(32771)<>76thenload"text-toolkit*",8,1
  3. 20 poke53280,6:poke53281,6:print"[147]"
  4. 30 print"       tiger-disk - beispiel-menue      "
  5. 40 print"   1 [146] daten-seite 1 anzeigen"
  6. 50 print"   2 [146] daten-seite 2 anzeigen"
  7. 60 print"   3 [146] daten-seite 3 anzeigen"
  8. 70 print"   4 [146] daten-seite 4 anzeigen"
  9. 80 print"   5 [146] daten-seite 5 anzeigen"
  10. 90 print"   6 [146] daten-seite 6 anzeigen"
  11. 100 print"   7 [146] programm beenden"
  12. 107 rem
  13. 108 rem           ****************
  14. 109 rem
  15. 110 sys32771 :rem screen speichern
  16. 111 rem
  17. 112 rem           ****************
  18. 113 rem
  19. 120 geta$:ifa$<"1"ora$>"7"then120
  20. 130 ifa$="7"thenprint"[147]":sys32768:end
  21. 140 onval(a$)gosub170,180,190,200,210,220
  22. 148 rem
  23. 149 rem          ***********************
  24. 150 sys32774:rem screen wiederherstellen
  25. 152 rem          ***********************
  26. 160 goto120
  27. 170 print"[147]na, guck ma...!":poke198,0:wait198,1:poke198,0:return
  28. 180 print"[147]bitte taste...!":poke198,0:wait198,1:poke198,0:return
  29. 190 print"[147]du willst wohl alles sehen...":poke198,0:wait198,1:poke198,0:return
  30. 200 print"[147]klar!: hier steht auch noch was...":poke198,0:wait198,1:poke198,0:return
  31. 210 print"[147]...auch diese seite is' da...!":poke198,0:wait198,1:poke198,0:return
  32. 220 print"[147]...nu is' aber schluss...!":poke198,0:wait198,1:poke198,0:return
  33.