home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45b.d64 / pm-main (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  267 lines
  1. 10 DIM DI$(30):ES=32768:SYSES+51
  2. 20 XA=23:YA=23:SD=8:DD=8:LD=8:SP=8
  3. 30 REM MENUE
  4. 40 GOSUB270:SYSES+3
  5. 50 PRINT"[147]";:SYSES+6
  6. 60 PRINT"    [208]HOTOMAKER 4.0  ([215]) BY [202].[210]EINERT"
  7. 70 SYSES+6
  8. 80 PRINTTAB(8);"[1]....[204]OAD [208]ICTURE
  9. 90 [153][163]8);"[2]....(null)AVE (null)ICTURE
  10. 100 PRINTTAB(8);"[3]....[214]IEW [208]ICTURE
  11. 110 [153][163]8);"[4]....(null)OURCE STR$ISK";SD
  12. 120 [153][163]8);"[5]....STR$EST.- STR$ISK";DD
  13. 130 [153][163]8);"[6]....STR$ISK-LENOMMAND
  14. 140 PRINTTAB(8);"[7]....[197]XIT TO BASIC
  15. 150 [161]X$:[145][197](X$)[137]1070,1610,2150,1000,1020,2230,1040
  16. 160 [137]150
  17. 170 BL[178][194](214)[171]1:[139]BL[179]0[167]BL[178]0
  18. 180 [151]214,BL:[151]781,BL:[158]59903:[142]
  19. 190 [161]#2,X$:[139]X$[178]""[167]X$[178][199](0)
  20. 200 XX[178][198](X$):[142]
  21. 210 [141]170:[153]"RIGHT$NSERT (null)OURCEDISK INTO STR$RIVE"SD:[137]240
  22. 220 [141]170:[153]"RIGHT$NSERT STR$EST.-STR$ISK INTO STR$RIVE"DD:[137]240
  23. 230 [141]170:[153]"RIGHT$NSERT STR$ISK INTO STR$RIVE";LD
  24. 240 [141]260:[139]XX[178]88[167]730
  25. 250 [141]170:[153][163]10)"- (null)(null) -":[142]
  26. 260 [151]198,0:[146]198,1:[161]X$:XX[178][198](X$):[142]
  27. 270 [151]53248[170]21,0:[142]
  28. 280 [159]15,LD,15,"I0":[141]690
  29. 290 [159]2,LD,2,"#":[141]690:[153]"(null)(null)."
  30. 300 T[178]18:S[178]1:N[178]0
  31. 310 [152]15,"U1:";2;0;T;S:[152]15,"B-P";2;0
  32. 320 [141]190:T[178]XX:[141]190:S[178]XX
  33. 330 [129]X[178]0[164]7:[152]15,"B-P";2;X[172]32[170]2
  34. 340 [141]190:FT[178]XX
  35. 350 [139](FT [175]128)[178]0[176](FT [175]15)[178]0[167]580
  36. 370 FT[178]FT [175]7
  37. 380 [152]15,"B-P";2;X[172]32[170]5
  38. 390 [158]ES[170]57,FF$
  39. 400 [152]15,"B-P";2;X[172]32[170]30
  40. 410 [141]190:LB[178][198](X$):[141]190:BL[178][198](X$)[172]256[170]LB
  41. 420 [153]BL;[163]7);FF$;[163]25);
  42. 430 [153][202]("SEQPRGUSRREL",(FT[171]1)[172]3[170]1,3)
  43. 440 [161]X$:[139]M[178]8[167]510
  44. 450 [139](M[178]1[175]BL[178]2)[176]M[178]2[167]510
  45. 460 [139]M[178]3[175][200](FF$,3)[178]"PH."[167]510
  46. 470 [139]M[178]5[175][200](FF$,3)[178]"BN."[167]510
  47. 480 [139]M[178]6[175][201](FF$,4)[178]".GRA"[167]510
  48. 490 [139]M[178]7[175][201](FF$,3)[178]".GR"[175][195](FF$)[178]16[167]510
  49. 500 [137]580
  50. 510 [153]"ON";[163]33)" (null)/(null) "
  51. 520 [141]260:[139]XX[178]88[167]620
  52. 530 [139]X$[178]"N"[167][153]"ON";[163]33)" (null)(null)  ":[137]580
  53. 540 [139]X$[179][177]"Y"[167]520
  54. 550 N[178]N[170]1:DI$(N)[178]FF$:[139]N[177]27[167]620
  55. 560 [153]"ON";[163]33)" (null)VAL(null) "
  56. 570 [139]M[178]2[176]M[178]3[176]M[178]5[176]M[178]7[167]620
  57. 580 [139]X$[178]"X"[167]620
  58. 590 [130]X
  59. 600 [139]T[178]0[167]620
  60. 610 [137]310
  61. 620 [160]2:[160]15:[142]
  62. 630 [153]:[153]"ARE YOU SURE ((null)/(null))"
  63. 640 [141]260:[139]XX[179][177]78[175]XX[179][177]89[167]640
  64. 650 [142]
  65. 660 [159]15,SD,15:[141]690:[160]15:[142]
  66. 670 [159]2,SD,2,FF$:[159]15,SD,15:[137]690
  67. 680 [159]2,DD,2,F$:[159]15,DD,15
  68. 690 [132]15,A,A$,A1,A2:[139]A[178]0[167][142]
  69. 700 [141]270:[160]2:[160]15
  70. 710 [141]170:[153]"VALRROR>WAIT";
  71. 720 [153]A;A$;A1;A2:[158]ES[170]3:[141]260
  72. 730 [158]ES[170]48:[137]30
  73. 740 [139]X$[178]"I"[167][158]ES[170]12
  74. 750 [139]X$[178]"LOAD"[167][158]ES[170]9
  75. 760 [139]M[178]7[167]800
  76. 770 [139]X$[179][177]"S"[167]800
  77. 780 [139]SP[178]8[167]SP[178]1:[137]800
  78. 790 SP[178]8
  79. 800 X[178]X[170]((1[175]X$[178]"")[172]SP)[171]((1[175]X$[178]"CMD")[172]SP)
  80. 810 Y[178]Y[170]((1[175]X$[178]"")[172]SP)[171]((1[175]X$[178]"ON")[172]SP)
  81. 820 [139]X$[178]"X"[167]730
  82. 830 [139]X[179]0[167]X[178]0
  83. 840 [139]Y[179]0[167]Y[178]0
  84. 850 [139]X[170]XA[177]319[167]X[178]319[171]XA
  85. 860 [139]Y[170]YA[177]199[167]Y[178]199[171]YA
  86. 870 [142]
  87. 880 [141]760
  88. 890 [139]M[178]5[167]960
  89. 900 XA[178]XA[170]((1[175]X$[178]"INPUT")[172]SP)[171]((1[175]X$[178]"GOTO")[172]SP)
  90. 910 YA[178]YA[170]((1[175]X$[178]"DIM")[172]SP)[171]((1[175]X$[178]"RUN")[172]SP)
  91. 920 [139]XA[177]MX[167]XA[178]MX
  92. 930 [139]XA[179]7[167]XA[178]7
  93. 940 [139]YA[177]MY[167]YA[178]MY
  94. 950 [139]YA[179]7[167]YA[178]7
  95. 960 [139]X[170]XA[177]319[167]XA[178]319[171]X
  96. 970 [139]Y[170]YA[177]199[167]YA[178]199[171]Y
  97. 980 [158]ES[170]27,X,Y,XA,YA
  98. 990 [142]
  99. 1000 [139]SD[178]8[167]SD[178]9:[137]30
  100. 1010 SD[178]8:[137]30
  101. 1020 [139]DD[178]8[167]DD[178]9:[137]30
  102. 1030 DD[178]8:[137]30
  103. 1040 [141]630
  104. 1050 [139]X$[178]"N"[167]30
  105. 1060 [144]
  106. 1070 LD[178]SD:[153]"LOAD";:[158]ES[170]6
  107. 1080 [153]"    (null)HOTOMAKER 4.0  (null)ODE: (null)OAD
  108. 1090 SYSES+6:GOSUB2050
  109. 1100 ONVZGOTO1410,1150,1170,1420,1110,1160
  110. 1110 GOSUB210
  111. 1120 M=2:PRINT"[147]";:GOSUB280:IFN=0THEN30
  112. 1130 SYSES:GOSUB670:SYSES+21
  113. 1140 GOSUB690:CLOSE15:GOTO 2150
  114. 1150 M=3:GOTO1180
  115. 1160 M=7:GOTO1180
  116. 1170 M=5
  117. 1180 GOSUB 210
  118. 1190 PRINT"[147]";:GOSUB280:IFN=0THEN30
  119. 1200 FF$=DI$(1)
  120. 1210 GOSUB670:IFM=3ORM=5THEN1290
  121. 1220 GOSUB190:XS=XX:GOSUB190:YS=XX
  122. 1230 CLOSE2:CLOSE15:IFXS>0ANDYS>0THEN1250
  123. 1240 GOSUB170:PRINT"[203]EINE [211]TARPAINTER- [199]RAFIK":GOSUB260:GOTO30
  124. 1250 IFXS<40ANDYS<25THEN1270
  125. 1260 GOSUB170:PRINT"[199]RAFIK ZU GROSS":GOSUB260:GOTO30
  126. 1270 XA=XS*8-1:YA=YS*8-1
  127. 1280 X=0:Y=0:SP=8:GOTO1320
  128. 1290 GET#2,X$,X$,X$,X$
  129. 1300 GOSUB190:Y1=XX:GOSUB190:YA=XX-Y1
  130. 1310 GOSUB190:X1=XX-8:GOSUB190:XA=(XX-8)-X1:CLOSE2:CLOSE15
  131. 1320 SYSES
  132. 1330 SYSES+27,X,Y,XA,YA
  133. 1340 GETX$:XX=ASC(X$+CHR$(0))
  134. 1350 IFX$="X"THENGOSUB270:GOTO2150
  135. 1360 IF(XXAND127)=13THENF=(XXAND128)/128:GOTO1380
  136. 1370 GOSUB740:GOTO1330
  137. 1380 GOSUB670:IFM=7THENSYSES+60,F,X/8,Y/8:GOTO1400
  138. 1390 SYSES+42,F,X,Y,X+XA,Y+YA
  139. 1400 GOSUB690:CLOSE15:GOTO1330
  140. 1410 M=1:XA=43:YA=44:EO=36:GOTO1430
  141. 1420 M=6:XA=87:YA=51:EO=30
  142. 1430 GOSUB210:PRINT"[147]";:GOSUB280:IFN=0THEN30
  143. 1440 MX=319-XA:MY=199-MY:SYSES+6
  144. 1450 FORI=1TON:GOSUB270
  145. 1460 SYSES+3:PRINT"NEXT FILE: "DI$(I):GOSUB260
  146. 1470 IFX$="N"THEN1590
  147. 1480 IFX$="X"THEN30
  148. 1490 SYSES
  149. 1500 SYSES+27,X,Y,XA,YA
  150. 1510 GETX$:XX=ASC(X$+CHR$(0))
  151. 1520 IFX$="X"THEN1600
  152. 1530 IF(XXAND127)=13THENF=(XXAND128)/128:GOTO1560
  153. 1540 IFX$="N"THEN1590
  154. 1550 GOSUB740:GOTO1500
  155. 1560 FF$=DI$(I):GOSUB670
  156. 1570 SYSES+EO,F,X,Y
  157. 1580 GOSUB690:CLOSE15:GOTO1510
  158. 1590 NEXTI
  159. 1600 GOSUB270:GOTO2150
  160. 1610 LD=DD:PRINT"[147]";:SYSES+6
  161. 1620 PRINT"    [208]HOTOMAKER 4.0  [205]ODE: [211]AVE
  162. 1630 [158]ES[170]6:[141]2050
  163. 1640 [145]VZ[137]1700,1850,1860,1710,1650,1870
  164. 1650 [158]ES:[141]260:[153]:[158]ES[170]3
  165. 1660 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
  166. 1670 F$[178][200](F$,16)[170]",P,W"
  167. 1680 [141]220:[141]680
  168. 1690 [158]ES[170]24:[141]690:[160]15:[137]30
  169. 1700 M[178]1:XA[178]43:YA[178]44:EO[178]39:[137]1720
  170. 1710 M[178]6:XA[178]87:YA[178]51:EO[178]33
  171. 1720 MX[178]319[171]XA:MY[178]199[171]YA:[158]ES:[137]1770
  172. 1730 [158]ES[170]27,X,Y,XA,YA
  173. 1740 [161]X$:XX[178][198](X$[170][199](0))
  174. 1750 [139]X$[178]"X"[167]30
  175. 1760 [139](XX[175]127)[178]13[167]F[178](XX[175]128)[173]128:[137]1780
  176. 1770 [141] 740:[137]1730
  177. 1780 [141]270:[158]ES[170]3:[153]
  178. 1790 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
  179. 1800 [139]M[178]1[167]F$[178][200](F$,15)[170]",P,W":[137]1820
  180. 1810 F$[178][200](F$,10)[170]".GRA,P,W"
  181. 1820 [141]220:[141]680
  182. 1830 [158]ES[170]EO,F,X,Y
  183. 1840 [141]690:[160]15:[137]30
  184. 1850 M[178]3:MX[178]230:MY[178]167:[137]1880
  185. 1860 M[178]5:MX[178]239:MY[178]79:XA[178]239:YA[178]79:[137]1880
  186. 1870 M[178]7:MX[178]319:MY[178]199:XA[178]31:YA[178]31:SP[178]8
  187. 1880 [158]ES:[141]740:[141]920
  188. 1890 [161]X$:XX[178][198](X$[170][199](0))
  189. 1900 [139](XX[175]127)[178]13[167]F[178](XX[175]128)[173]128:[137]1920
  190. 1910 [141]880:[137]1890
  191. 1920 [141]270:[158]ES[170]3:[153]
  192. 1930 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
  193. 1940 [139]M[178]7[167]F$[178][200](F$[170]"             ",13)[170]".GR,P,W"
  194. 1950 [139]M[178]3[167]F$[178][200]("PH."[170]F$,11)[170]",P,W"
  195. 1960 [139]M[178]5[167]F$[178][200]("BN."[170]F$,11)[170]",P,W"
  196. 1970 [141]220:X2[178]X[170]XA:Y2[178]Y[170]YA:C[178]1[175]((X[175]7)[177]0)
  197. 1980 B[178]([181](X[173]8)[170]C)[172](Y[170]1)
  198. 1990 [141]680
  199. 2000 [139]M[178]3[167][158]ES[170]45,F,X,Y,X2,Y2,B
  200. 2010 [139]M[178]5[167][158]ES[170]54,F,X,Y,X2,Y2,B
  201. 2020 [139]M[178]7[167][158]ES[170]63,F,X[173]8,Y[173]8,XA[173]8[170]1,YA[173]8[170]1
  202. 2030 [141]690:[160]15:[137]30
  203. 2040 [144]
  204. 2050 [153]:[153][163]8);"[1]...(null)RINTSHOP
  205. 2060 PRINTTAB(8);"[2]...[206]EWSROOM [208]HOTO
  206. 2070 [153][163]8);"[3]...(null)EWSROOM PEEKANNER
  207. 2080 PRINTTAB(8);"[4]...[208]RINTMASTER
  208. 2090 [153][163]8);"[5]...(null)TANDARD
  209. 2100 PRINTTAB(8);"[6]...[211]TARPAINTER
  210. 2110 [153][163]8);"[X]...(null)AIN (null)ENU
  211. 2120 GOSUB260:IFXX=88THEN730
  212. 2130 IFXX<49ORXX>54THEN2120
  213. 2140 VZ=VAL(X$):RETURN
  214. 2150 SYSES:M=1
  215. 2160 GETX$:GOSUB740
  216. 2170 IFX$<>"W"THEN2160
  217. 2180 MX=320:MY=200:GOSUB920
  218. 2190 GETX$:IFX$="W"THENGOSUB270:GOTO2150
  219. 2200 IFX$="I"THENSYSES+18,X,Y,X+XA,Y+YA
  220. 2210 IFX$="[147]"THENSYSES+15,X,Y,X+XA,Y+YA
  221. 2220 GOSUB880:GOTO2190
  222. 2230 PRINT"[147]";:SYSES+6
  223. 2240 PRINT"  [196]ISKCOMMAND: [196]EVICE = ";
  224. 2250 IFLD=SDTHENPRINT"[211]OURCE";:GOTO2270
  225. 2260 PRINT"[196]EST. ";:LD=DD
  226. 2270 PRINT" #"LD
  227. 2280 SYSES+6:PRINT:PRINT
  228. 2290 PRINTTAB(8)"[1]....[211]CRATCH [198]ILE(S)
  229. 2300 [153][163]8)"[2]....(null)ENAME  ASCILE(S)
  230. 2310 PRINTTAB(8)"[3]....[214]ALIDATE [196]ISK"LD
  231. 2320 PRINTTAB(8)"[4]....[198]ORMAT [196]ATADISK"LD
  232. 2330 PRINTTAB(8)"[5]....[195]ATALOG [196]ISK"LD
  233. 2340 PRINTTAB(8)"[6]....[195]HANGE [211]OURCE/[196]EST.
  234. 2350 [153][163]8)"[X]....(null)AIN (null)ENU
  235. 2360 GOSUB260:IFXX=88THEN30
  236. 2370 ONVAL(X$)GOTO2470,2550,2390,2420,2640,2660
  237. 2380 GOTO2360
  238. 2390 GOSUB230:GOSUB170:IFX$="X"THEN2230
  239. 2400 OPEN15,LD,15,"V0":CLOSE15
  240. 2410 OPEN15,LD,15:GOSUB690:CLOSE15:GOTO2230
  241. 2420 GOSUB230:GOSUB170
  242. 2430 INPUT"[196]ISKNAME,[201][196]";DN$,ID$
  243. 2440 GOSUB630:IFX$="N"THEN2230
  244. 2450 GOSUB170:PRINTTAB(10);"[208]LEASE [215]AIT[145]"
  245. 2460 OPEN15,LD,15,"N:"+DN$+","+ID$:CLOSE15:GOTO2410
  246. 2470 M=8:GOSUB230:PRINT"[147]":GOSUB280
  247. 2480 IFN=0THEN2230
  248. 2490 GOSUB630:IFX$="N"THEN2230
  249. 2500 SYSES+6:OPEN15,LD,15:FORI=1TON
  250. 2510 :PRINT"SCRATCHING "DI$(I);TAB(32);
  251. 2520 PRINT#15,"S:"+DI$(I):INPUT#15,A:IFA=1THENPRINT"[207][203]":GOTO2540
  252. 2530 PRINT"[197]RR"A
  253. 2540 NEXT:CLOSE15:SYSES+6:GOSUB260:GOTO2230
  254. 2550 M=8:GOSUB230:PRINT"[147]":GOSUB280
  255. 2560 IFN=0THEN2230
  256. 2570 GOSUB630:IFX$="N"THEN2230
  257. 2580 SYSES+6:OPEN15,LD,15:FORI=1TON
  258. 2590 PRINTDI$(I);TAB(18)"WIRD ZU";:INPUTF$
  259. 2600 PRINT#15,"R:"+F$+"="+DI$(I):INPUT#15,A
  260. 2610 IFA=0THENPRINT"[145]";TAB(36)" [207][203]":GOTO2630
  261. 2620 PRINT"[145]";TAB(36)" [197]RR"
  262. 2630 NEXT:CLOSE15:SYSES+6:GOSUB260:GOTO2230
  263. 2640 GOSUB230:PRINT"[147]";:SYSES+66,LD
  264. 2650 OPEN15,LD,15:GOSUB690:CLOSE15:GOTO2230
  265. 2660 IFLD=DDTHENLD=SD:GOTO2230
  266. 2670 LD=DD:GOTO2230
  267.