home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_A.d64 / w3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  32 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 10 poke53280,0:poke53281,0:print"[147][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]";
  3. 20 print"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]";
  4. 30 print"[194][129]       d i s k  -  s a f e t y        [146][194]";
  5. 40 print"[171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179]";
  6. 50 print"[194][158]  copyright <c> 1985 by dieter plaum  [146][194]";
  7. 60 print"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";
  8. 70 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  9. 80 print"dieses programm schuetzt ihre diskette  vor unbeabsichtigtem ";
  10. 90 printchr$(34)"weichen"chr$(34)" forma-   tieren ( d.h. ohne id )."
  11. 100 print"warnung ! dieser schutz kann nicht mehr rueckgaengig gemacht werden !"
  12. 120 print"[158]wollen sie ihre disk schuetzen < j/n > ?"
  13. 121 fori=0to10:print""tab(33)"j[158]/[144]n":next
  14. 122 fori=0to10:print""tab(33)"[144]j[158]/n":next
  15. 123 fori=1to10:print"warnung !":next
  16. 124 fori=1to10:print"warnung !":next
  17. 130 gete$:ife$=""then121
  18. 140 ife$="n"then5000
  19. 150 ife$="j"then200
  20. 160 goto130
  21. 200 open1,8,15:open2,8,2,"#":print#1,"u1 2 0 18 0":print#1,"b-p 2 2":a$="e":print#2,a$
  22. 210 print#1,"u2 2 0 18 0":close2:print#1,"i0":close1
  23. 5000 print"[147]":poke53280,0:poke53281,0
  24. 5001 printtab(8)"programm beenden      [1]"
  25. 5002 printtab(8)"programm wiederholen  [2]"
  26. 5003 printtab(8)"zum hauptmenue        [3]"
  27. 5004 poke198,0:wait198,1:gete$
  28. 5005 ife$="1"thensys64738
  29. 5006 ife$="2"thenclr:goto10
  30. 5007 ife$="3"thenprinttab(13)"bitte warten":load"menue",8
  31. 5008 goto5004
  32.