home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols200 / vol235 / bc2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-13  |  1.8 KB  |  51 lines
  1. 1 REM BASICODE 2 standaard inplementatie 21/4/83
  2. 2 REM                      door Henk Wevers
  3. 3 REM  Voor aanpassing aan computer/terminal
  4. 4 REM  zie basicode.doc file op deze diskette
  5. 5 REM initialisatie
  6. 6 REM Deze versie voor MBASIC 5.21 en hoger ! (met INKEY$)
  7. 7 PRINT CHR$(27);"*";CHR$(0);CHR$(0);CHR$(0);CHR$(26);:WIDTH(255)
  8. 10 GOTO 1000
  9. 19 REM regels 20-100 clear a, niet nodig voor mbasic
  10. 20 GOTO 1010
  11. 99 REM  regel 100-110 clear screen
  12. 100 PRINT CHR$(27);"*";CHR$(0);CHR$(0);CHR$(0);CHR$(26);:RETURN
  13. 109 REM regel 110 - 120 set cursor op HO en VE
  14. 110 REM TERMINAL = 24 X 80 !
  15. 111 IF HO>79 THEN HO=79
  16. 112 IF VE>23 THEN VE=23
  17. 113 PRINT CHR$(27);"=";CHR$(VE+32);CHR$(HO+32);
  18. 115 RETURN
  19. 119 REM regel 120-130 haal cursorpositie in HO en VE
  20. 120 IF HO > 79 THEN HO=80
  21. 121 IF VE > 23 THEN VE=23
  22. 122 REM  voor terminal 24 x 80
  23. 124 RETURN
  24. 200 IN$=INKEY$:RETURN
  25. 210 GOSUB 200:IF IN$="" THEN 210
  26. 211 RETURN
  27. 250 PRINT CHR$(7);:RETURN
  28. 260 RV=RND(1):RETURN
  29. 270 FR=FRE(2):RETURN
  30. 300 SR$=STR$(SR)
  31. 301 O7=LEN(SR$):IF O7=0 THEN RETURN
  32. 302 IF RIGHT$(SR$,1)<>" " THEN 304
  33. 303 SR$=LEFT$(SR$,O7-1):GOTO 301
  34. 304 IF LEFT$(SR$,1)<>" " THEN RETURN
  35. 305 SR$=RIGHT$(SR$,O7-1):GOTO 301
  36. 310 O4=SR:IF CN<>0 THEN 316
  37. 312 SR=INT(SR+.5):GOSUB 300:GOTO 330
  38. 316 O5=SGN(SR):SR=ABS(SR):O8=INT(SR):O9=SR-O8
  39. 318 FOR O6=1 TO CN:O9=O9*10:NEXT O6
  40. 320 O9=INT(O9+.5):SR=O9:GOSUB 300
  41. 322 O9$=RIGHT$("00000000000000000000"+SR$,CN)
  42. 324 IF O8=0 AND O9=0 THEN O5=1
  43. 326 SR=O8:GOSUB 300:IF O5=-1 THEN SR$="-"+SR$
  44. 328 SR$=SR$+"."+O9$
  45. 330 IF LEN(SR$)<=CT THEN 334
  46. 332 SR$=LEFT$("********************",CT):GOTO 340
  47. 334 SR$=RIGHT$("                    "+SR$,CT)
  48. 340 SR=O4:RETURN
  49. 350 LPRINT SR$;:RETURN
  50. 360 LPRINT:RETURN
  51.