home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8706a.d64
/
v-p-s-converter
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
68 lines
1 IFA=0THENA=1:LOAD"MC/VPS-CONVERTER",8,1
10 POKE56,32:CLR:POKE808,225
20 C$="0A"
50 AN = 36864 : REM BILD AN
51 AU = AN+3 : REM BILD AUS
52 CO = AN+6 : REM BILD CONVERTIEREN
53 LO = AN+9 : REM BILD LADEN
54 SA = AN+12 : REM BILD SPEICHERN
55 CL = AN+15 : REM BILD LOESCHEN
56 SO = AN+18 : REM BILD SICHERN
57 GE = AN+21 : REM BILD HOLEN
58 DI = AN+24 : REM DIRECTORY
100 POKE53280,11:POKE53281,0:POKE646,15
110 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]";
120 PRINT"[194] V-P-S GRAFIK-CONVERTER BY D. BAYER[194]";
130 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]"
140 PRINTSPC(10)"(1) DIRECTORY"
150 PRINTSPC(10)"(2) BILD LADEN"
160 PRINTSPC(10)"(3) BILD ZEIGEN"
170 PRINTSPC(10)"(4) BILD WAEHLEN"
180 PRINTSPC(10)"(5) PROGRAMM ENDE"
200 GETA$:IFA$<"1"ORA$>"5"GOTO200
210 ONVAL(A$)GOTO5000,1000,2000,3000,4000
220 GOTO100
999 END
1000 PRINT"[147]"SPC(10)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
1001 PRINTSPC(10)"[194] BILD LADEN [194]"
1002 PRINTSPC(10)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
1010 L$="":INPUT" NAME : ";L$
1015 IFL$=""GOTO100
1020 SYSAN:SYSCL:SYSLO,L$,8,0
1025 POKE198,0:WAIT198,1:POKE198,0:SYSAU
1030 OPEN15,8,15:INPUT#15,A,A$,T,S:CLOSE15
1035 IFA=0GOTO100
1040 PRINT"[147]DISK-STATUS :"A;A$;T;S
1050 POKE198,0:WAIT198,1:POKE198,0
1060 GOTO100
2000 SYSAN
2010 POKE198,0:WAIT198,1:POKE198,0
2020 SYSAU
2030 GOTO100
3000 SYSSO:SYSAN
3010 POKE2,0:SYSCO:SYSAU:IFPEEK(2)THENSYSGE:GOTO100
3015 B=PEEK(830)-PEEK(828)+1
3020 PRINT"[147]BREITE DES BILDES :"B
3025 H=INT(((PEEK(831)-PEEK(829)+1.5)/2)+.5)
3030 PRINT"HOEHE DES BILDES :"H
3040 PRINT"CODE : ";C$;"[157][157][157][157]";:INPUTC$
3041 PRINT"NEUER NAME : ";N$;:FORI=0TOLEN(N$)+1:PRINT"[157]";:NEXT:INPUTN$
3050 OPEN1,8,1,C$+"/"+N$
3055 PRINT#1,CHR$(0)CHR$(234);
3060 SYSSA
3070 CLOSE1
3071 OPEN1,8,2,C$+"."+N$+",S,W"
3072 PRINT#1,C$;
3073 FORY=1TOH:FORX=1TOB
3074 PRINT#1,"[168]";:NEXTX:PRINT#1,CHR$(13);
3075 NEXTY:CLOSE1
3080 OPEN15,8,15:INPUT#15,A,A$,T,S:CLOSE15
3085 C$=LEFT$(C$,1)+CHR$(ASC(MID$(C$,2,1))+1)
3090 IFA=0GOTO3120
3100 PRINT"DISK-STATUS :"A;A$;T;S
3110 POKE198,0:WAIT198,1:POKE198,0
3120 SYSGE:GOTO100
4000 PRINT"[147]";:POKE808,237:END
5000 PRINT"[147]":OPEN2,8,0,"$":SYSDI:CLOSE2
5010 POKE198,0:WAIT198,1:POKE198,0:GOTO100