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