home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh24a.d64
/
hi-e(itoh8510)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
35 lines
1 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
2 IFA=3THEN6
3 IFA=4THEN25
4 INPUT"B-ART";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
5 IFPEEK(8073)AND64THENA=3:LOAD"MENUE",8,1
6 SYS3337:A=PEEK(8064):ONA+1GOSUB7,10,12,11,18,24,11,11,19,20,12:GOTO6
7 OPEN3,8,0,"$0":GET#3,C$,C$
8 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
9 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO8
10 PRINT"[147]SEQ.:":PRINT" "W$:INPUT"";W$:IFLEN(W$)<2THEN10
11 RETURN
12 POKE8115,8:PRINT"[147]G[146]-BILD":IFPEEK(8073)>127THENPRINT"F[146]-BILD"
13 PRINT"S[146]PRITE":PRINT"Z[146]-SATZ":PRINT"->";
14 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN14
15 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"F-NAME";W$:SYS3331:W$=H$:H$=""
16 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
17 CLOSE1:RETURN
18 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO16
19 A=8075:GOTO21
20 A=8079
21 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"S-WEITE:"C,
22 INPUTC:IFC<1ORC>160THEN22
23 POKEA+D,C:RETURN
24 A=4:LOAD"HI-P(ITOH8510)",8,1
25 INPUT"[147]S1:B-NR.(0=KB)";C:POKE3415,CAND7:IFC=0THEND=40:GOTO27
26 INPUT"SSP.(<=39;0=VOLL) 0[157][157][157]";D:IFD<0ORD>39THEN26
27 POKE3388,D:C=40+D:IFC>40THENC=40
28 INPUT"S2:B-NR.(0=KB)";D:POKE3435,DAND7:IFD=0THEN30
29 PRINT"ESP.(>0;<=";C;"[157]) ";C;:INPUT"[157][157][157][157][157]";D:IFD<1ORD>CTHEN29
30 POKE3451,D:C=640-(40-PEEK(3388)+D)*8
31 PRINT"SPC(=>0;<=";C;"[157]) ";C;:INPUT"[157][157][157][157][157][157]";D:IFD<0ORD>CTHEN31
32 C=INT(D/256):POKE3383,C:INPUT"DRUCK J[157][157][157]";C$:IFC$<>"J"THEN34
33 POKE3381,D-C*256:SYS3328:INPUT"NOCHMAL J[157][157][157]";C$:IFC$="J"THEN25
34 A=1:GOTO1