home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_A.d64 / w2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  43 lines
  1. 1 poke45,peek(174):poke46,peek(175):clr
  2. 10 poke53280,0:poke53281,0:print"[147][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]";
  3. 20 print"[194][158]  d i r e c t o r y  -  s a f e t y   [146][194]";
  4. 30 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]";
  5. 40 print"[194][158]  copyright <c> 1985 by dieter plaum  [146][194]";
  6. 50 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]"
  7. 60 print"dieses programm schuetzt ihre directory vor fremden einblicken.";
  8. 70 print" zu sehen ist    lediglich das erste programm ( z.b. ein"
  9. 80 print"ladeprogramm oder ein menue )."
  10. 85 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]";
  11. 90 print"[194][158][190]     wollen sie ihre directory      [188][146][194]";
  12. 95 print"[194][158]                                      [146][194]";
  13. 100 print"[194][158]   schuetzen oder freigeben <s / f[158]>   [146][194]";
  14. 101 print"[194][158]                                      [146][194]";
  15. 102 print"[194][158][187]         e=programm beenden         [172][146][194]";
  16. 110 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]"
  17. 120 gete$:ife$=""then120
  18. 130 ife$="s"then200
  19. 140 ife$="f"then230
  20. 145 ife$="e"then5000
  21. 150 goto120
  22. 200 open1,8,15:open2,8,2,"#":print#1,"u1 2 0 18 1":fori=18to20:print#1,"b-p 2 "i
  23. 210 print#2,chr$(0):next
  24. 220 print#1,"u2 2 0 18 1":close2:print#1,"i0":close1:goto260
  25. 230 open1,8,15:open2,8,2,"#":print#1,"u1 2 0 18 1":fori=18to20:print#1,"b-p 2 "i
  26. 240 print#2,chr$(160):next
  27. 250 print#1,"u2 2 0 18 1":close2:print#1,"i0":close1:goto350
  28. 260 print"[147][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]";
  29. 270 print"[194]      directory ist geschuetzt !      [194]";
  30. 280 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]":fori=0to3000:next:goto10
  31. 350 print"[147][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]";
  32. 360 print"[194]     directory ist freigegeben !      [194]";
  33. 370 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]":fori=0to3000:next:goto10
  34. 5000 print"[147]":poke53280,0:poke53281,0
  35. 5001 printtab(8)"programm beenden       [1]"
  36. 5002 printtab(8)"programm wiederholen   [2]"
  37. 5003 printtab(8)"zum hauptmenue         [3]"
  38. 5004 poke198,0:wait198,1:gete$
  39. 5005 ife$="1"thensys64738
  40. 5006 ife$="2"thenclr:goto10
  41. 5007 ife$="3"thenprinttab(13)"bitte warten":load"menue",8
  42. 5008 goto5004
  43.