home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8710.d64
/
pm-main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
6KB
|
267 lines
10 DIM DI$(30):ES=32768:SYSES+51
20 XA=23:YA=23:SD=8:DD=8:LD=8:SP=8
30 REM MENUE
40 GOSUB270:SYSES+3
50 PRINT"[147]";:SYSES+6
60 PRINT" [208]HOTOMAKER 4.0 ([215]) BY [202].[210]EINERT"
70 SYSES+6
80 PRINTTAB(8);"[1]....[204]OAD [208]ICTURE
90 [153][163]8);"[2]....(null)AVE (null)ICTURE
100 PRINTTAB(8);"[3]....[214]IEW [208]ICTURE
110 [153][163]8);"[4]....(null)OURCE STR$ISK";SD
120 [153][163]8);"[5]....STR$EST.- STR$ISK";DD
130 [153][163]8);"[6]....STR$ISK-LENOMMAND
140 PRINTTAB(8);"[7]....[197]XIT TO BASIC
150 [161]X$:[145][197](X$)[137]1070,1610,2150,1000,1020,2230,1040
160 [137]150
170 BL[178][194](214)[171]1:[139]BL[179]0[167]BL[178]0
180 [151]214,BL:[151]781,BL:[158]59903:[142]
190 [161]#2,X$:[139]X$[178]""[167]X$[178][199](0)
200 XX[178][198](X$):[142]
210 [141]170:[153]"RIGHT$NSERT (null)OURCEDISK INTO STR$RIVE"SD:[137]240
220 [141]170:[153]"RIGHT$NSERT STR$EST.-STR$ISK INTO STR$RIVE"DD:[137]240
230 [141]170:[153]"RIGHT$NSERT STR$ISK INTO STR$RIVE";LD
240 [141]260:[139]XX[178]88[167]730
250 [141]170:[153][163]10)"- (null)(null) -":[142]
260 [151]198,0:[146]198,1:[161]X$:XX[178][198](X$):[142]
270 [151]53248[170]21,0:[142]
280 [159]15,LD,15,"I0":[141]690
290 [159]2,LD,2,"#":[141]690:[153]"(null)(null)."
300 T[178]18:S[178]1:N[178]0
310 [152]15,"U1:";2;0;T;S:[152]15,"B-P";2;0
320 [141]190:T[178]XX:[141]190:S[178]XX
330 [129]X[178]0[164]7:[152]15,"B-P";2;X[172]32[170]2
340 [141]190:FT[178]XX
350 [139](FT [175]128)[178]0[176](FT [175]15)[178]0[167]580
370 FT[178]FT [175]7
380 [152]15,"B-P";2;X[172]32[170]5
390 [158]ES[170]57,FF$
400 [152]15,"B-P";2;X[172]32[170]30
410 [141]190:LB[178][198](X$):[141]190:BL[178][198](X$)[172]256[170]LB
420 [153]BL;[163]7);FF$;[163]25);
430 [153][202]("SEQPRGUSRREL",(FT[171]1)[172]3[170]1,3)
440 [161]X$:[139]M[178]8[167]510
450 [139](M[178]1[175]BL[178]2)[176]M[178]2[167]510
460 [139]M[178]3[175][200](FF$,3)[178]"PH."[167]510
470 [139]M[178]5[175][200](FF$,3)[178]"BN."[167]510
480 [139]M[178]6[175][201](FF$,4)[178]".GRA"[167]510
490 [139]M[178]7[175][201](FF$,3)[178]".GR"[175][195](FF$)[178]16[167]510
500 [137]580
510 [153]"ON";[163]33)" (null)/(null) "
520 [141]260:[139]XX[178]88[167]620
530 [139]X$[178]"N"[167][153]"ON";[163]33)" (null)(null) ":[137]580
540 [139]X$[179][177]"Y"[167]520
550 N[178]N[170]1:DI$(N)[178]FF$:[139]N[177]27[167]620
560 [153]"ON";[163]33)" (null)VAL(null) "
570 [139]M[178]2[176]M[178]3[176]M[178]5[176]M[178]7[167]620
580 [139]X$[178]"X"[167]620
590 [130]X
600 [139]T[178]0[167]620
610 [137]310
620 [160]2:[160]15:[142]
630 [153]:[153]"ARE YOU SURE ((null)/(null))"
640 [141]260:[139]XX[179][177]78[175]XX[179][177]89[167]640
650 [142]
660 [159]15,SD,15:[141]690:[160]15:[142]
670 [159]2,SD,2,FF$:[159]15,SD,15:[137]690
680 [159]2,DD,2,F$:[159]15,DD,15
690 [132]15,A,A$,A1,A2:[139]A[178]0[167][142]
700 [141]270:[160]2:[160]15
710 [141]170:[153]"VALRROR>WAIT";
720 [153]A;A$;A1;A2:[158]ES[170]3:[141]260
730 [158]ES[170]48:[137]30
740 [139]X$[178]"I"[167][158]ES[170]12
750 [139]X$[178]"LOAD"[167][158]ES[170]9
760 [139]M[178]7[167]800
770 [139]X$[179][177]"S"[167]800
780 [139]SP[178]8[167]SP[178]1:[137]800
790 SP[178]8
800 X[178]X[170]((1[175]X$[178]"")[172]SP)[171]((1[175]X$[178]"CMD")[172]SP)
810 Y[178]Y[170]((1[175]X$[178]"")[172]SP)[171]((1[175]X$[178]"ON")[172]SP)
820 [139]X$[178]"X"[167]730
830 [139]X[179]0[167]X[178]0
840 [139]Y[179]0[167]Y[178]0
850 [139]X[170]XA[177]319[167]X[178]319[171]XA
860 [139]Y[170]YA[177]199[167]Y[178]199[171]YA
870 [142]
880 [141]760
890 [139]M[178]5[167]960
900 XA[178]XA[170]((1[175]X$[178]"INPUT")[172]SP)[171]((1[175]X$[178]"GOTO")[172]SP)
910 YA[178]YA[170]((1[175]X$[178]"DIM")[172]SP)[171]((1[175]X$[178]"RUN")[172]SP)
920 [139]XA[177]MX[167]XA[178]MX
930 [139]XA[179]7[167]XA[178]7
940 [139]YA[177]MY[167]YA[178]MY
950 [139]YA[179]7[167]YA[178]7
960 [139]X[170]XA[177]319[167]XA[178]319[171]X
970 [139]Y[170]YA[177]199[167]YA[178]199[171]Y
980 [158]ES[170]27,X,Y,XA,YA
990 [142]
1000 [139]SD[178]8[167]SD[178]9:[137]30
1010 SD[178]8:[137]30
1020 [139]DD[178]8[167]DD[178]9:[137]30
1030 DD[178]8:[137]30
1040 [141]630
1050 [139]X$[178]"N"[167]30
1060 [144]
1070 LD[178]SD:[153]"LOAD";:[158]ES[170]6
1080 [153]" (null)HOTOMAKER 4.0 (null)ODE: (null)OAD
1090 SYSES+6:GOSUB2050
1100 ONVZGOTO1410,1150,1170,1420,1110,1160
1110 GOSUB210
1120 M=2:PRINT"[147]";:GOSUB280:IFN=0THEN30
1130 SYSES:GOSUB670:SYSES+21
1140 GOSUB690:CLOSE15:GOTO 2150
1150 M=3:GOTO1180
1160 M=7:GOTO1180
1170 M=5
1180 GOSUB 210
1190 PRINT"[147]";:GOSUB280:IFN=0THEN30
1200 FF$=DI$(1)
1210 GOSUB670:IFM=3ORM=5THEN1290
1220 GOSUB190:XS=XX:GOSUB190:YS=XX
1230 CLOSE2:CLOSE15:IFXS>0ANDYS>0THEN1250
1240 GOSUB170:PRINT"[203]EINE [211]TARPAINTER- [199]RAFIK":GOSUB260:GOTO30
1250 IFXS<40ANDYS<25THEN1270
1260 GOSUB170:PRINT"[199]RAFIK ZU GROSS":GOSUB260:GOTO30
1270 XA=XS*8-1:YA=YS*8-1
1280 X=0:Y=0:SP=8:GOTO1320
1290 GET#2,X$,X$,X$,X$
1300 GOSUB190:Y1=XX:GOSUB190:YA=XX-Y1
1310 GOSUB190:X1=XX-8:GOSUB190:XA=(XX-8)-X1:CLOSE2:CLOSE15
1320 SYSES
1330 SYSES+27,X,Y,XA,YA
1340 GETX$:XX=ASC(X$+CHR$(0))
1350 IFX$="X"THENGOSUB270:GOTO2150
1360 IF(XXAND127)=13THENF=(XXAND128)/128:GOTO1380
1370 GOSUB740:GOTO1330
1380 GOSUB670:IFM=7THENSYSES+60,F,X/8,Y/8:GOTO1400
1390 SYSES+42,F,X,Y,X+XA,Y+YA
1400 GOSUB690:CLOSE15:GOTO1330
1410 M=1:XA=43:YA=44:EO=36:GOTO1430
1420 M=6:XA=87:YA=51:EO=30
1430 GOSUB210:PRINT"[147]";:GOSUB280:IFN=0THEN30
1440 MX=319-XA:MY=199-MY:SYSES+6
1450 FORI=1TON:GOSUB270
1460 SYSES+3:PRINT"NEXT FILE: "DI$(I):GOSUB260
1470 IFX$="N"THEN1590
1480 IFX$="X"THEN30
1490 SYSES
1500 SYSES+27,X,Y,XA,YA
1510 GETX$:XX=ASC(X$+CHR$(0))
1520 IFX$="X"THEN1600
1530 IF(XXAND127)=13THENF=(XXAND128)/128:GOTO1560
1540 IFX$="N"THEN1590
1550 GOSUB740:GOTO1500
1560 FF$=DI$(I):GOSUB670
1570 SYSES+EO,F,X,Y
1580 GOSUB690:CLOSE15:GOTO1510
1590 NEXTI
1600 GOSUB270:GOTO2150
1610 LD=DD:PRINT"[147]";:SYSES+6
1620 PRINT" [208]HOTOMAKER 4.0 [205]ODE: [211]AVE
1630 [158]ES[170]6:[141]2050
1640 [145]VZ[137]1700,1850,1860,1710,1650,1870
1650 [158]ES:[141]260:[153]:[158]ES[170]3
1660 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
1670 F$[178][200](F$,16)[170]",P,W"
1680 [141]220:[141]680
1690 [158]ES[170]24:[141]690:[160]15:[137]30
1700 M[178]1:XA[178]43:YA[178]44:EO[178]39:[137]1720
1710 M[178]6:XA[178]87:YA[178]51:EO[178]33
1720 MX[178]319[171]XA:MY[178]199[171]YA:[158]ES:[137]1770
1730 [158]ES[170]27,X,Y,XA,YA
1740 [161]X$:XX[178][198](X$[170][199](0))
1750 [139]X$[178]"X"[167]30
1760 [139](XX[175]127)[178]13[167]F[178](XX[175]128)[173]128:[137]1780
1770 [141] 740:[137]1730
1780 [141]270:[158]ES[170]3:[153]
1790 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
1800 [139]M[178]1[167]F$[178][200](F$,15)[170]",P,W":[137]1820
1810 F$[178][200](F$,10)[170]".GRA,P,W"
1820 [141]220:[141]680
1830 [158]ES[170]EO,F,X,Y
1840 [141]690:[160]15:[137]30
1850 M[178]3:MX[178]230:MY[178]167:[137]1880
1860 M[178]5:MX[178]239:MY[178]79:XA[178]239:YA[178]79:[137]1880
1870 M[178]7:MX[178]319:MY[178]199:XA[178]31:YA[178]31:SP[178]8
1880 [158]ES:[141]740:[141]920
1890 [161]X$:XX[178][198](X$[170][199](0))
1900 [139](XX[175]127)[178]13[167]F[178](XX[175]128)[173]128:[137]1920
1910 [141]880:[137]1890
1920 [141]270:[158]ES[170]3:[153]
1930 F$[178]"":[133]"ASCILENAME";F$:[139]F$[178]""[167]30
1940 [139]M[178]7[167]F$[178][200](F$[170]" ",13)[170]".GR,P,W"
1950 [139]M[178]3[167]F$[178][200]("PH."[170]F$,11)[170]",P,W"
1960 [139]M[178]5[167]F$[178][200]("BN."[170]F$,11)[170]",P,W"
1970 [141]220:X2[178]X[170]XA:Y2[178]Y[170]YA:C[178]1[175]((X[175]7)[177]0)
1980 B[178]([181](X[173]8)[170]C)[172](Y[170]1)
1990 [141]680
2000 [139]M[178]3[167][158]ES[170]45,F,X,Y,X2,Y2,B
2010 [139]M[178]5[167][158]ES[170]54,F,X,Y,X2,Y2,B
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
2030 [141]690:[160]15:[137]30
2040 [144]
2050 [153]:[153][163]8);"[1]...(null)RINTSHOP
2060 PRINTTAB(8);"[2]...[206]EWSROOM [208]HOTO
2070 [153][163]8);"[3]...(null)EWSROOM PEEKANNER
2080 PRINTTAB(8);"[4]...[208]RINTMASTER
2090 [153][163]8);"[5]...(null)TANDARD
2100 PRINTTAB(8);"[6]...[211]TARPAINTER
2110 [153][163]8);"[X]...(null)AIN (null)ENU
2120 GOSUB260:IFXX=88THEN730
2130 IFXX<49ORXX>54THEN2120
2140 VZ=VAL(X$):RETURN
2150 SYSES:M=1
2160 GETX$:GOSUB740
2170 IFX$<>"W"THEN2160
2180 MX=320:MY=200:GOSUB920
2190 GETX$:IFX$="W"THENGOSUB270:GOTO2150
2200 IFX$="I"THENSYSES+18,X,Y,X+XA,Y+YA
2210 IFX$="[147]"THENSYSES+15,X,Y,X+XA,Y+YA
2220 GOSUB880:GOTO2190
2230 PRINT"[147]";:SYSES+6
2240 PRINT" [196]ISKCOMMAND: [196]EVICE = ";
2250 IFLD=SDTHENPRINT"[211]OURCE";:GOTO2270
2260 PRINT"[196]EST. ";:LD=DD
2270 PRINT" #"LD
2280 SYSES+6:PRINT:PRINT
2290 PRINTTAB(8)"[1]....[211]CRATCH [198]ILE(S)
2300 [153][163]8)"[2]....(null)ENAME ASCILE(S)
2310 PRINTTAB(8)"[3]....[214]ALIDATE [196]ISK"LD
2320 PRINTTAB(8)"[4]....[198]ORMAT [196]ATADISK"LD
2330 PRINTTAB(8)"[5]....[195]ATALOG [196]ISK"LD
2340 PRINTTAB(8)"[6]....[195]HANGE [211]OURCE/[196]EST.
2350 [153][163]8)"[X]....(null)AIN (null)ENU
2360 GOSUB260:IFXX=88THEN30
2370 ONVAL(X$)GOTO2470,2550,2390,2420,2640,2660
2380 GOTO2360
2390 GOSUB230:GOSUB170:IFX$="X"THEN2230
2400 OPEN15,LD,15,"V0":CLOSE15
2410 OPEN15,LD,15:GOSUB690:CLOSE15:GOTO2230
2420 GOSUB230:GOSUB170
2430 INPUT"[196]ISKNAME,[201][196]";DN$,ID$
2440 GOSUB630:IFX$="N"THEN2230
2450 GOSUB170:PRINTTAB(10);"[208]LEASE [215]AIT[145]"
2460 OPEN15,LD,15,"N:"+DN$+","+ID$:CLOSE15:GOTO2410
2470 M=8:GOSUB230:PRINT"[147]":GOSUB280
2480 IFN=0THEN2230
2490 GOSUB630:IFX$="N"THEN2230
2500 SYSES+6:OPEN15,LD,15:FORI=1TON
2510 :PRINT"SCRATCHING "DI$(I);TAB(32);
2520 PRINT#15,"S:"+DI$(I):INPUT#15,A:IFA=1THENPRINT"[207][203]":GOTO2540
2530 PRINT"[197]RR"A
2540 NEXT:CLOSE15:SYSES+6:GOSUB260:GOTO2230
2550 M=8:GOSUB230:PRINT"[147]":GOSUB280
2560 IFN=0THEN2230
2570 GOSUB630:IFX$="N"THEN2230
2580 SYSES+6:OPEN15,LD,15:FORI=1TON
2590 PRINTDI$(I);TAB(18)"WIRD ZU";:INPUTF$
2600 PRINT#15,"R:"+F$+"="+DI$(I):INPUT#15,A
2610 IFA=0THENPRINT"[145]";TAB(36)" [207][203]":GOTO2630
2620 PRINT"[145]";TAB(36)" [197]RR"
2630 NEXT:CLOSE15:SYSES+6:GOSUB260:GOTO2230
2640 GOSUB230:PRINT"[147]";:SYSES+66,LD
2650 OPEN15,LD,15:GOSUB690:CLOSE15:GOTO2230
2660 IFLD=DDTHENLD=SD:GOTO2230
2670 LD=DD:GOTO2230