home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 March / 64er_Magazin_93-03_1993_Markt__Technik_de_Side_B.d64 / geos-formator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  71 lines
  1. 1 poke788,52:x=peek(186):ifx<8orx>13thenx=8
  2. 2 gosub26:gosub28:wait203,64,64:gosub26:gosub35
  3. 3 wait203,64,64:open15,x,15:open2,x,2,"#"
  4. 4 print#15,"u1:";2;0;20;5:print#15,"b-p:"2;10:get#2,a$:a=asc(a$+chr$(0))
  5. 5 ifa<>2then:close2:close15:goto3
  6. 6 gosub26:print"[194]itte warten!"
  7. 7 nu=237:pu=4:fora=0to259:nu=nu+1:readby:ifnu>255thenpu=5:nu=0
  8. 8 print#15,"m-w"chr$(nu)chr$(pu)chr$(1)chr$(by):nexta:a=1:e=17:gosub12
  9. 9 b1=25:b2=18:gosub14:a=27:e=28:gosub12:b1=30:gosub14:b1=31:b2=17:gosub14
  10. 10 a=32:e=33:gosub12:gosub17
  11. 11 gosub26:gosub37:poke53281,6:poke53280,6:print"[147]":load"geos",8,1
  12. 12 fort=atoe:print#15,"m-w"chr$(244)chr$(4)chr$(1)chr$(t)
  13. 13 print#15,"m-e"chr$(238)chr$(4):poke53280,nl:nl=nl+1:nextt:return
  14. 14 print#15,"m-w"chr$(244)chr$(4)chr$(1)chr$(b1)
  15. 15 print#15,"m-w"chr$(1)chr$(5)chr$(1)chr$(b2):print#15,"m-e"chr$(238)chr$(4)
  16. 16 return
  17. 17 read n:ifn<0then19
  18. 18 print#15,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto17
  19. 19 onabs(n)goto20,21,24
  20. 20 readlb:goto17
  21. 21 ifsi=1thenprint#15,"u2";2;0;t;s
  22. 22 readt:reads
  23. 23 print#15,"u1"2;0;t;s:si=1:goto17
  24. 24 print#15,"u2"2;0;t;s
  25. 25 close2:close15:return
  26. 26 poke53280,0:poke53281,0:print"[147]"chr$(14)tab(13)"[199][197][207][211]-[198][207][210][205][193][212][207][210]"tab(98)"von"
  27. 27 printtab(9)"[200]ans-[202]uergen [218]iethmann":return
  28. 28 print"[214][207][210][211][201][195][200][212]!"tab(80)"[196]ieses [208]rogramm formatiert die"
  29. 29 print"[211]ystemdiskette."tab(80)"[196]ie [211]tartprogramme [199][197][207][211]"tab(59)"[199][197][207][211] [194][207][207][212]"
  30. 30 printtab(19)"[199][197][207][211] [203][197][210][206][193][204]"tab(40)"bleiben dabei aber voellig erhalten!"
  31. 31 print"[196]ieses [208]rogramm kann nur an [199][197][207][211] [214]2.0/  [199][197][207][210][193][205] [214]2.0 angewand werden!"
  32. 32 printtab(80)"[196]en [196][197][211][203] [212][207][208] und die"
  33. 33 print"[145][145]"tab(61)"[200]ilfsprogramme"tab(40)"muessen [211]ie wider auf die"
  34. 34 print"[211]ystemdiskette kopieren!"tab(86)"[194][201][212][212][197] [197][201][206][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206]!":return
  35. 35 printtab(40)"[194]itte die [211]ystemdiskette in das "tab(40)"[204]aufwerk "x;"[146]legen"
  36. 36 print"[145]"tab(18)"und eine [212]aste"tab(40)"druecken!":return
  37. 37 print"[198]ormatierung beendet!":ifx=8then39
  38. 38 print"bitte legen [211]ie die [211]ystemdiskette in   das [204]aufwerk (8)"
  39. 39 printtab(247)  "[194]itte eine [212]aste druecken!":wait203,64,64:return
  40. 40 data169,26,141,5,28,162,1,134,10,169,224,133,2,165,2,48,252,96,169,21
  41. 41 data133,67,169,0,133,27,160,0,162,0,165,57,153,0,3,200,200,165,27,153,0
  42. 42 data3,200,165,10,153,0,3,200,165,19,153,0,3,200,165,18,153,0,3,200,169
  43. 43 data15,153,0,3,200,153,0,3,200,169,0,89,250,2,89,251,2,89,252,2,89,253
  44. 44 data2,153,249,2,230,27,165,27,197,67,144,190,169,3,133,49,152,72,138,157
  45. 45 data0,7,232,208,250,32,48,254,104,168,136,32,229,253,32,245,253,169,7,133
  46. 46 data49,32,233,245,133,58,32,143,247,169,0,133,50,32,14,254,169,255,141
  47. 47 data1,28,162,5,80,254,184,202,208,250,162,10,164,50,80,254,184,185,0,3
  48. 48 data141,1,28,200,202,208,243,162,9,80,254,184,169,103,141,1,28,202,208
  49. 49 data245,169,255,162,5,80,254,184,141,1,28,202,208,247,162,187,80,254,184
  50. 50 data189,0,1,141,1,28,232,208,244,160,0,80,254,184,177,48,141,1,28,200,208
  51. 51 data245,169,103,162,8,80,254,184,141,1,28,202,208,247,165,50,24,105,10
  52. 52 data133,50,198,27,208,149,80,254,184,80,254,184,32,0,254,76,158,253,0
  53. 53 data-2,18,0,-1,0,18,1,65,0,21,255,255,31,21,255,255,31,21,255,255,31,21,255
  54. 54 data255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255
  55. 55 data255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255,255,31,21,255
  56. 56 data255,31,21,255,255,31,21,255,255,31,21,255,255,31,17,252,255,7,0,0,0,0
  57. 57 data6,194,6,4,0,0,0,0,0,0,0,0,0,0,0,0,14,246,182,7,18,255,255,3,17,255,255
  58. 58 data2,18,255,255,3,18,255,255,3,13,94,111,3,18,255,255,3,17,255,255,1,17,255
  59. 59 data255,1,17,255,255,1,0,0,0,0,15,252,255,1,83,-2,18,0,-1,160,160,160,76,74
  60. 60 data160,50,65,160,160,160,160,19,8,71,69,79,83,32,102,111,114,109,97,116,32
  61. 61 data86,49,46,48,66,128,-2,18,1,-1
  62. 62 data0,0,255,194,19,17,71,69,79,83,160,160,160,160,160,160,160,160,160,160
  63. 63 data160,160,19,9,0,12,86,4,7,12,0,2,0,0,0,194,19,15,71,69,79,83,32,66,79,79
  64. 64 data84,160,160,160,160,160,160,160,19,7,0,12,88,7,6,13,0,6,0,0,0,195,19,0
  65. 65 data71,69,79,83,32,75,69,82,78,65,76,160,160,160,160,160,19,11,1,12,88,7,6
  66. 66 data13,0,91,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  67. 67 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  68. 68 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  69. 69 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  70. 70 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-3
  71.