home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 26 / Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64 / disk-versiegeln (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  832b  |  38 lines
  1. 1 rem disketten - versiegelung
  2. 2 rem data welt   seite 72
  3. 3 rem ------------------------
  4. 4 rem:
  5. 6 print"[147]"
  6. 8 print"  *  (c) michael vogeler muenchen 1984 *"
  7. 10 poke53280,11:poke53281,7
  8. 12 print:print:print:print
  9. 15 print"           diskette versiegeln"
  10. 20 print"           -------------------"
  11. 22 print:print
  12. 25 print"        disk v[146]er- oder e[146]ntsiegeln ? "
  13. 30 print:print:print
  14. 35 print"             taste druecken [146]":print:print
  15. 40 poke198,0
  16. 45 geta$:ifa$=""then45
  17. 50 ifa$="v"thena$="[203]":goto80
  18. 60 ifa$="e"thena$="a":goto80
  19. 70 goto40
  20. 75 sys64738:rem programmende(warmstart)
  21. 80 open1,8,15,"i"
  22. 90 open2,8,2,"#"
  23. 100 print#1,"m-w"chr$(1)chr$(1)chr$(1)chr$(65)
  24. 110 print#1,"u1 2 0 18 0"
  25. 120 print#1,"b-p 2 2"
  26. 130 print#2,a$;
  27. 140 print#1,"u2 2 0 18 0"
  28. 150 print#1,"i"
  29. 160 close2:close1
  30. 165 print"              **  o.k.  **            [146]"
  31. 170 print:print:print
  32. 175 print"        noch eine diskette ? j/n"
  33. 180 poke198,0
  34. 185 getb$:ifb$=""then185
  35. 190 ifb$="j"thenb$="[203]":goto8
  36. 195 ifb$="n"thenb$="a":goto75
  37. 200 goto80
  38.