home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh2x / sh27c.d64 / gra1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  36 lines

  1. 0 REM *********************************
  2. 1 REM **   MENUEAUSWAHLPROGRAMM      **
  3. 2 REM **   'GRA1'                    **
  4. 3 REM **                             **
  5. 4 REM **-----------------------------**
  6. 5 REM **   DR.H.DOMES                **
  7. 6 REM **   JOSEF MARX STR. 13        **
  8. 7 REM ** A 8043 GRAZ                 **
  9. 8 REM **   AUSTRIA                   **
  10. 9 REM *********************************
  11. 10 POKE53280,0:POKE53281,0:PRINT"[147][156]":POKE198,0
  12. 50 READ AN
  13. 100 DIMMU$(AN):DI$(0)="[145][145][145]":DI$(1)="":DI$(2)="[145]":PO$(1)=""
  14. 200 FORI=0TOAN:READMU$(I):NEXT
  15. 499 REM--------------------------------
  16. 500 IB=0:IE=AN
  17. 520 GOSUB1000:IFI=7THEN(null)255:PRINT"":SYS42115
  18. 599 REM--------OVERLAY PSEUDODIREKT----
  19. 600 PRINT"[147][144]CLR:L[207]";CHR$(34);MU$(I-1);CHR$(34);",8":PRINT"R[213]"
  20. 620 POKE631,19:FORI=0TO2:POKE632+I,13:NEXT:POKE198,4:END
  21. 900 :END
  22. 999 REM--------------------------------
  23. 1000 PRINT"[147]- LADEPROGRAMM -";PO$(1)
  24. 1200 FORI=IBTOIE:PRINTMU$(I):PRINT:NEXT
  25. 1250 PRINT"";PO$(1):I=IB:PRINT""MU$(I)
  26. 1500 GETW$:IFW$<>"[145]"ANDW$<>""ANDW$<>CHR$(13)THEN1500
  27. 1520 LI=I
  28. 1540 IFW$=CHR$(13)THENI=I-IB+1:RETURN
  29. 1550 IFW$=""THENI=I+1:ZI=1:IFI>IETHENI=IE:ZI=2
  30. 1560 IFW$="[145]"THENI=I-1:ZI=0:IFI<IBTHENI=IB:ZI=2
  31. 1600 PRINT"[145]"MU$(LI):PRINTDI$(ZI)""MU$(I)
  32. 1700 GOTO1500
  33. 1701 REM================================
  34. 5000 DATA 3
  35. 5010 DATA CAD2001,TESTDEMO,STATISTIK,"[159] ENDE [156]"
  36.