Hi-Spiegel – eine tolle Erweiterung zu Hi-Eddi

petcat | Checksummer

1 ifa<2thena=a+2:load"hi-exe",8,1
2 ifa=3then7
3 ifa=4then31
4 ifa=6then39
5 input"modus";c:poke780,c:poke56,13:clr:w$="123456":sys3328
6 ifpeek(8037)and64thena=3:load"menue",8,1
7 sys3337:a=peek(8064)
8 ona+1gosub9,12,37,13,20,26,13,13,21,22,14:goto7
9 open3,8,0,"$0":get#3,c$,c$
10 get#3,c$,c$,l$,h$:ifc$=""thenclose3:wait198,1:return
11 print256*asc(h$+chr$(0))+asc(l$+chr$(0));:sys3334:goto10
12 print"{clr}{down}sequenz:":print"  "w$:input"{home}{down}{down}";w$:iflen(w$)<2then12
13 return
14 poke8115,8:print"{clr}{down}g=grafik":ifpeek(8073)>127thenprint"f=farbbild"
15 print"s=sprite":print"z=zeichensatz":print"{down}";
16 getc$:ifc$<>"g"andc$<>"f"andc$<>"s"andc$<>"z"then16
17 printc$:poke780,asc(c$):h$=w$:input"{down}name";w$:sys3331:w$=h$:h$=""
18 open1,8,15,h$:input#1,a,h$:printa;h$:ifa>0thenwait198,1
19 close1:return
20 poke631,34:poke198,1:h$="":input"{clr}{down}";h$:goto18
21 a=8075:goto23
22 a=8079
23 d=peek(8074):c=peek(a+d):print"{clr}{down}f"2*d+1:print"schrittweite:",c
24 inputc:ifc<1orc>160then24
25 pokea+d,c:return
26 input"{clr}{down}1.bild";d:c=(dand7)
27 input"{down}2.bild (oder 0)";d:c=c+8*(dand7):ifd>0thenc=c+64
28 ifd=0thenprint"{down}gross";:gosub34:ifc$="j"thenc=c+128
29 print"{down}drucken";:gosub34:ifc$="n"then32
30 ifa=5thena=4:load"hi-print",8,1
31 poke780,c:sys3328:print"{down}nochmal";:gosub34:ifc$="j"then26
32 ifa=5thenreturn
33 a=1:goto1
34 print" (j/n)";
35 getc$:ifc$<>"j"andc$<>"n"then35
36 printc$:return
37 print"spiegeln";:gosub34:ifc$="n"goto14
38 a=6:load"hi-spiegel",8,1
39 print"{clr}1=runter 2=hoch 3=rechts 4=links":inputc$
40 poke49199,val(c$):sys49152:a=3:goto1

  1 IF A<2 THENA=A+2:LOAD "HI-EXE",8,1 
  2 IF A=3 THEN7 
  3 IF A=4 THEN31 
  4 IF A=6 THEN39 
  5 INPUT"MODUS";C:POKE 780,C:POKE 56,13:CLR :W$="123456":SYS 3328 
  6 IF PEEK (8037)AND 64 THENA=3:LOAD "MENUE",8,1 
  7 SYS 3337:A=PEEK (8064) 
  8 ON A+1GOSUB 9,12,37,13,20,26,13,13,21,22,14:GOTO 7 
  9 OPEN 3,8,0,"$0":GET #3,C$,C$ 
 10 GET #3,C$,C$,L$,H$:IF C$="" THENCLOSE 3:WAIT 198,1:RETURN 
 11 PRINT256*ASC (H$+CHR$ (0))+ASC (L$+CHR$ (0));:SYS 3334:GOTO 10 
 12 PRINT"{CLR,DOWN}SEQUENZ:":PRINT"{2SPACE}"W$:INPUT"{HOME,2DOWN}";W$:IF LEN (W$)<2 THEN12 
 13 RETURN 
 14 POKE 8115,8:PRINT"{CLR,DOWN}G=GRAFIK":IF PEEK (8073)>127 THENPRINT"F=FARBBILD" 
 15 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT"{DOWN}"; 
 16 GET C$:IF C$<>"G"AND C$<>"F"AND C$<>"S"AND C$<>"Z" THEN16 
 17 PRINTC$:POKE 780,ASC (C$):H$=W$:INPUT"{DOWN}NAME";W$:SYS 3331:W$=H$:H$="" 
 18 OPEN 1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IF A>0 THENWAIT 198,1 
 19 CLOSE 1:RETURN 
 20 POKE 631,34:POKE 198,1:H$="":INPUT"{CLR,DOWN}";H$:GOTO 18 
 21 A=8075:GOTO 23 
 22 A=8079 
 23 D=PEEK (8074):C=PEEK (A+D):PRINT"{CLR,DOWN}F"2*D+1:PRINT"SCHRITTWEITE:",C 
 24 INPUTC:IF C<1OR C>160 THEN24 
 25 POKE A+D,C:RETURN 
 26 INPUT"{CLR,DOWN}1.BILD";D:C=(DAND 7) 
 27 INPUT"{DOWN}2.BILD (ODER 0)";D:C=C+8*(DAND 7):IF D>0 THENC=C+64 
 28 IF D=0 THENPRINT"{DOWN}GROSS";:GOSUB 34:IF C$="J" THENC=C+128 
 29 PRINT"{DOWN}DRUCKEN";:GOSUB 34:IF C$="N" THEN32 
 30 IF A=5 THENA=4:LOAD "HI-PRINT",8,1 
 31 POKE 780,C:SYS 3328:PRINT"{DOWN}NOCHMAL";:GOSUB 34:IF C$="J" THEN26 
 32 IF A=5 THENRETURN 
 33 A=1:GOTO 1 
 34 PRINT" (J/N)"; 
 35 GET C$:IF C$<>"J"AND C$<>"N" THEN35 
 36 PRINTC$:RETURN 
 37 PRINT"SPIEGELN";:GOSUB 34:IF C$="N"GOTO 14 
 38 A=6:LOAD "HI-SPIEGEL",8,1 
 39 PRINT"{CLR}1=RUNTER 2=HOCH 3=RECHTS 4=LINKS":INPUTC$ 
 40 POKE 49199,VAL (C$):SYS 49152:A=3:GOTO 1