home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8506a.d64 / hi-eddi (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  36 lines
  1. 50 IFA<2THENA=A+2:LOAD"HI-EXE",8,1
  2. 60 IFA=3THEN150
  3. 70 IFA=4THEN650
  4. 100 INPUT"BETRIEBSART";C:POKE780,C:POKE56,13:CLR:W$="123456":SYS3328
  5. 110 IFPEEK(8073)AND64THENA=3:LOAD"MENUE",8,1
  6. 150 SYS3337:A=PEEK(8064)
  7. 160 ONA+1GOSUB200,250,300,290,400,600,290,290,500,510,300:GOTO150
  8. 200 OPEN3,8,0,"$0":GET#3,C$,C$
  9. 210 GET#3,C$,C$,L$,H$:IFC$=""THENCLOSE3:WAIT198,1:RETURN
  10. 220 PRINT256*ASC(H$+CHR$(0))+ASC(L$+CHR$(0));:SYS3334:GOTO210
  11. 250 PRINT"[147]SEQUENZ:":PRINT"  "W$:INPUT"";W$:IFLEN(W$)<2THEN250
  12. 290 RETURN
  13. 300 POKE8115,8:PRINT"[147]G=GRAFIKBILD":IFPEEK(8073)>127THENPRINT"F=FARBBILD"
  14. 310 PRINT"S=SPRITE":PRINT"Z=ZEICHENSATZ":PRINT" -->";
  15. 320 GETC$:IFC$<>"G"ANDC$<>"F"ANDC$<>"S"ANDC$<>"Z"THEN320
  16. 330 PRINTC$:POKE780,ASC(C$):H$=W$:INPUT"FILENAME";W$:SYS3331:W$=H$:H$=""
  17. 340 OPEN1,8,15,H$:INPUT#1,A,H$:PRINTA;H$:IFA>0THENWAIT198,1
  18. 350 CLOSE1:RETURN
  19. 400 POKE631,34:POKE198,1:H$="":INPUT"[147]";H$:GOTO340
  20. 500 A=8075:GOTO520
  21. 510 A=8079
  22. 520 D=PEEK(8074):C=PEEK(A+D):PRINT"[147]F"2*D+1:PRINT"SCHRITTWEITE:"C,
  23. 530 INPUTC:IFC<1ORC>160THEN530
  24. 540 POKEA+D,C:RETURN
  25. 600 INPUT"[147]NUMMER 1.BILD";D:C=(DAND7)
  26. 610 INPUT"NUMMER 2.BILD (0=NUR 1 BILD)";D:C=C+8*(DAND7):IFD>0THENC=C+64
  27. 620 IFD=0THENPRINT"GROSS";:GOSUB800:IFC$="J"THENC=C+128
  28. 630 PRINT"DRUCKEN";:GOSUB800:IFC$="N"THEN660
  29. 640 IFA=5THENA=4:LOAD"HI-PRINT",8,1
  30. 650 POKE780,C:SYS3328:PRINT"NOCHMAL";:GOSUB800:IFC$="J"THEN600
  31. 660 IFA=5THENRETURN
  32. 670 A=1:GOTO50
  33. 800 PRINT" ? (J/N)";
  34. 810 GETC$:IFC$<>"J"ANDC$<>"N"THEN810
  35. 820 PRINTC$:RETURN
  36.