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