home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8604.d64 / dokument (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  639b  |  23 lines
  1. 10 REM ****** DOKUMENT ******
  2. 20 POKE53280,0:POKE53281,0:DIMAN$(16),AS$(16),AE$(16),AD$(16)
  3. 30 INPUT"[147]GERAETENUMMER 3=BILD,4=DRUCKER ";G
  4. 40 INPUT"STARTMODUL:";SM
  5. 50 INPUT"ENDMODUL:";EM:PRINT"[147]";
  6. 60 FORI=SMTOEM:GOSUB 500
  7. 70 OPEN 1,G:I$=STR$(I)+")  "
  8. 80 PRINT#1,LEFT$(I$,4);:A$=" "
  9. 100 FOR K=1TOAB:IFK<>1THENA$="     "
  10. 110 PRINT#1,A$;AN$(K)"        "AS$(K)" - "AE$(K)"     "AD$(K)
  11. 120 NEXT
  12. 130 PRINT#1,"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]":CLOSE1
  13. 135 IF G=3THENPRINT"         WEITER MIT TASTE !!":POKE198,0:WAIT198,1:PRINT
  14. 140 NEXT
  15. 150 IFG=3THEN60
  16. 160 END
  17. 500 REM **** SUBR. PARAMETER HOLEN ****
  18. 505 NA$=MID$(STR$(I),2,4)+"MODUL,S,R"
  19. 510 OPEN 1,8,3,NA$
  20. 520 INPUT#1,AB$:AB=VAL(AB$)
  21. 530 FOR K=1 TO AB
  22. 540 INPUT#1,AN$(K),AS$(K),AE$(K),AD$(K):NEXT:CLOSE1:RETURN
  23.