home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol235 / bc2.osi < prev    next >
Encoding:
Text File  |  1986-02-13  |  1.6 KB  |  51 lines
  1. 1 REM BASICODE 2 OSI C1S   inplementatie 21/4/83
  2. 2 REM                      door Henk Wevers
  3. 5 PRINT CHR$(26);:O0=PEEK(546):O1=PEEK(548)
  4. 7 O3=PEEK(547):O2=PEEK(549):O3=O3-O0:O2=O2-O1
  5. 8 POKE 530,1
  6. 10 GOTO 1000
  7. 20 GOTO 1010
  8. 100 PRINT CHR$(26);:RETURN
  9. 110 POKE 14,1
  10. 111 O4=HO:IF HO > O3 THEN O4=O3
  11. 112 O5=VE:IF VE > 02 THEN O5=O2
  12. 113 POKE 553,O4+O0:POKE 554,O5+O1-1
  13. 114 PRINT CHR$(10);
  14. 115 RETURN
  15. 120 HO=PEEK(553):HO=HO-O0:VE=PEEK(554):VE=VE-01
  16. 121 RETURN
  17. 200 O4=PEEK(11):O5=PEEK(12):POKE57088,1:POKE11,0:POKE12,253
  18. 201 O6=PEEK(57088):IF O6=255 THEN 204
  19. 202 O6=USR(1):O6=PEEK(531):IN$=CHR$(O6):POKE533,0:GOTO 207
  20. 204 POKE57088,254:O6=PEEK(57088)
  21. 205 IFO6AND32=0THENIN$=CHR$(27):POKE533,0:GOTO207
  22. 206 IN$=""
  23. 207 POKE11,O4:POKE12,O5:RETURN
  24. 210 GOSUB 200:IF IN$="" THEN 210
  25. 211 RETURN
  26. 250 PRINT CHR$(7);:RETURN
  27. 260 RV=RND(1):RETURN
  28. 270 FR=FRE(2):RETURN
  29. 300 SR$=STR$(SR)
  30. 301 O7=LEN(SR$):IF O7=0 THEN RETURN
  31. 302 IF RIGHT$(SR$,1)<>" " THEN 304
  32. 303 SR$=LEFT$(SR$,O7-1):GOTO 301
  33. 304 IF LEFT$(SR$,1)<>" " THEN RETURN
  34. 305 SR$=RIGHT$(SR$,O7-1):GOTO 301
  35. 310 O4=SR:IF CN<>0 THEN 316
  36. 312 SR=INT(SR+.5):GOSUB 300:GOTO 330
  37. 316 O5=SGN(SR):SR=ABS(SR):O8=INT(SR):O9=SR-O8
  38. 318 FOR O6=1 TO CN:O9=O9*10:NEXT O6
  39. 320 O9=INT(O9+.5):SR=O9:GOSUB 300
  40. 322 O9$=RIGHT$("00000000000000000000"+SR$,CN)
  41. 324 IF O8=0 AND O9=0 THEN O5=1
  42. 326 SR=O8:GOSUB 300:IF O5=-1 THEN SR$="-"+SR$
  43. 328 SR$=SR$+"."+O9$
  44. 330 IF LEN(SR$)<=CT THEN 334
  45. 332 SR$=LEFT$("********************",CT):GOTO 340
  46. 334 SR$=RIGHT$("                    "+SR$,CT)
  47. 340 SR=O4:RETURN
  48. 350 POKE517,1:PRINT SR$:POKE517,0:RETURN
  49. 360 POKE517,0:PRINT    :POKE517,1:RETURN
  50.  
  51.