home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 / Tiger_Disk_003_1994-06_Tiger-Crew-Disk_de_Side_A.d64 / w1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  55 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  mit prg,8,1      ---   [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][154]  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 schreibt hinter den"
  8. 61 print"programm-namen "chr$(34)",8,1"chr$(34)". somit entfaellt"
  9. 62 print"das laestige >> coursor left. <<"
  10. 63 printtab(13)"drueck space"
  11. 64 gete$:ife$=""then64
  12. 65 ife$=chr$(32)then70
  13. 66 goto64
  14. 70 print"[147]"
  15. 71 printtab(5)"programm ausfuehren      [1]"
  16. 72 printtab(5)"programm beenden         [2]"
  17. 73 poke198,0:wait198,1:gete$
  18. 74 ife$="1"thengoto89
  19. 75 ife$="2"then5000
  20. 76 goto73
  21. 89 print"[147]"
  22. 90 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]";
  23. 100 print"[194][156]   bitte diskette einlegen und taste  [146][194]";
  24. 110 print"[194][156]              druecken !              [146][194]";
  25. 120 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]"
  26. 130 poke198,0:wait198,1:poke198,0
  27. 140 printspc(10)"in progress.........":gosub800
  28. 160 printspc(7)"[145]  noch eine disk < j/n > ?"
  29. 170 gete$:ife$=""then170
  30. 180 ife$="n"then5000
  31. 190 ife$="j"then10
  32. 200 goto170
  33. 800 open1,8,15:open2,8,2,"#":fori=1to19:print#1,"u1 2 0 18 "i:form=17to272step32
  34. 810 forr=2to256step32:print#1,"b-p 2 "r:get#2,a$
  35. 820 x=asc(a$+chr$(0))
  36. 830 ifx<>130then880
  37. 840 gosub900
  38. 880 next:next:next:goto1400
  39. 900 z=m-1:print#1,"b-p 2 "z
  40. 910 get#2,b$:y=asc(b$+chr$(0))
  41. 1100 ify<>160thenreturn
  42. 1150 print#1,"b-p 2 "m
  43. 1200 a$=",8,1"
  44. 1300 print#2,a$;:print#1,"u2 2 0 18 "i:return
  45. 1400 close2:print#1,"i0":close1:return
  46. 5000 print"[147]":poke53280,0:poke53281,0
  47. 5001 printtab(8)"programm beenden         [1]"
  48. 5002 printtab(8)"programm wiederholen     [2]"
  49. 5003 printtab(8)"zum hauptmenue           [3]"
  50. 5004 poke198,0:wait198,1:gete$
  51. 5005 ife$="1"thensys64738
  52. 5006 ife$="2"thenclr:goto10
  53. 5007 ife$="3"thenprinttab(13)"bitte warten":load"menue",8
  54. 5008 goto5004
  55.