home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8908.d64 / datagenerator (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  733b  |  14 lines
  1. 0 SYS58648:INPUT"[215][197][208]'S [196]ATAGENERATOR[146] BY [214]OLKER [215]UERTHELE [211]TARTADDRESSE ";S
  2. 1 INPUT"  [197]NDADDRESSE ";E:PRINT" PARAMETER":IFS<.ORS>65535ORE<=SORE>65535GOTO
  3. 2 INPUT"MAX. ZEILENLAENGE   79[157][157][157][157]";Z:INPUT"STARTZEILE   20[157][157][157][157]";A:R$=CHR$(13)
  4. 3 INPUT"ZEILENABSTAND   10[157][157][157][157]";I:IFZ<13ORZ>80ORA<20ORA>65000ORI<1ORI>1000GOTO2
  5. 4 TI$="000000":PRINT"[147][154]"A"F[207]X="S"[157]TO"E"[157]:R[197]A:P[207]X,A:N[197][145]":E=E+1:GOTO9
  6. 5 PRINTZ"[157]:A="A"[157]:I="I"[157]:G[207]6":RUN10
  7. 6 A=A+I:A$=STR$(A):L=LEN(A$):PRINT"[147][154]"RIGHT$(A$,L-1)"D[193]";:P=Z-L-3:X=PEEK(S)
  8. 7 A$=STR$(X):L=LEN(A$):PRINTRIGHT$(A$,L-1);:IFS+1=ETHENPRINT:PRINT"G[207]11":RUN10
  9. 8 S=S+1:P=P-L:IFLEN(STR$(PEEK(S)))<P+1THENPRINT",";:X=PEEK(S):GOTO7
  10. 9 PRINT:PRINT"S="S"[157]:E="E"[157]:Z=";:GOTO5
  11. 10 POKE198,2:POKE631,13:POKE632,13:END
  12. 11 A$="P[207]198,9:F[207]T=631TO639:P[207]T,13:N[197]":PRINT"[147]"A$:FORT=0TO5:PRINTT:NEXT
  13. 12 PRINTA$:FORT=6TO12:PRINTT:NEXT:PRINT"?C[200](147)C[200](5)C[200](154)TI$,TI":RUN10
  14.