home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9004a.d64 / ass-koppler (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  12 lines
  1. 0 IFPEEK(49152)<>162THENFORT=3247TO3309:POKE49152+T-3247,PEEK(T):NEXT:GOTO3
  2. 1 GOTO3
  3. 2 POKE19,1:INPUTX$:X=VAL(X$):POKE19,0:PRINT:RETURN
  4. 3 OPEN1,8,15,"M-W"+CHR$(7)+CHR$(28)+CHR$(1)+CHR$(15):CLOSE1:DEFFNH(X)=INT(X/256):DEFFNL(X)=X-FNH(X)*256:POKE53280,0:POKE53281,0:PRINTTCHR$(14)"[147][154]  [193]SS - [203]OPPLER     (C) 1989 BY [205][193][216][201][193][211]  [146]";:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":PRINT"[193]NZAHL DER [198]ILES:";:GOSUB2:Z=X:DIMN$(Z):PRINT:FORT=1TOZ
  5. 4 PRINT"[198]ILENAME [206]R."T"  :";:GOSUB2:N$(T)=X$:NEXT:PRINT"[218]EILENNUMMER    :";:GOSUB2:ZN=X:PRINT"[218]EILENTEXT      :";:GOSUB2:T$=X$:PRINT"[211]PRUNGADRESSE   :";:GOSUB2:SA=X:T$=RIGHT$("...................."+T$,20):PRINT"[206]EUER [198]ILENAME:";:GOSUB2:N$=X$:OPEN15,8,15,"I":OPEN1,8,2,N$+",P,W"
  6. 5 PRINT#1,CHR$(1)CHR$(8)CHR$(33)CHR$(8)CHR$(FNL(ZN))CHR$(FNH(ZN))CHR$(158)"2084"CHR$(58);:PRINT#1,CHR$(143)" "T$CHR$(0)CHR$(0)CHR$(0);:RESTORE:FORT=1TO98:READA:IFT=24THENA=FNL(SA)
  7. 6 IFT=25THENA=FNH(SA)
  8. 7 PRINT#1,CHR$(A);:NEXT:FORT=1TOZ:OPEN3,8,6,N$(T)+",P,R":GOSUB8:SYS49152:PRINT#1,"+-+";:CLOSE3:NEXT:PRINT#1,"+-+";:CLOSE1:CLOSE15:END
  9. 8 INPUT#15,E,E$,F,G:IFE=0THENRETURN
  10. 9 PRINT"[147][193]BBRUCH !":PRINTE","E$","F","G:SYS65511:END:DATA169,134,160,8,133,34,132,35,160,0,177,34,217,131,8,208,8,200,192,3,208:DATA244,76,255,255,160,0,177,34,133,251,200,177,34,133,252,165,34,24,105
  11. 10 DATA2,133,34,144,2,230,35,160,0,177,34,217,131,8,208,19,200,192,3,208,244:DATA165,34,24,105,3,133,34,144,2,230,35,76,44,8,160,0,177,34,145,251,230:DATA34,208,2,230,35,230,251,208,214,230,252,208,210,43,45,43
  12.