home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D1.D64 / windows basic (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  36 lines
  1. 300 ADDR=12500:X=PEEK(ADDR):Y=PEEK(ADDR+1):LE=PEEK(ADDR+2):DE=PEEK(ADDR+3)
  2. 310 FOR LI=ADDR+4 TO ADDR+258
  3. 320 IF CHR$(PEEK(LI))="_" THEN GOTO 350
  4. 330 ME$=ME$+CHR$(PEEK(LI))
  5. 340 NEXT LI
  6. 350 DIM SCREEN(1000)
  7. 360 XX$="":YY$="":YY=Y+1
  8. 370 IFLE=0ORLE>=(40-X)ORDE=0ORDE>=(22-Y)ORLE<7THENPRINT"COORDINATE ERROR":END
  9. 380 EN=(1024+X+40*Y)+LE:FORLDSV=1024+X+40*YTO 1024+(X+LE)+40*(Y+DE)-1
  10. 390 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
  11. 391 LET SCREEN(LDSV-1024)=PEEK(LDSV)
  12. 392 NEXT LDSV
  13. 393 EN=(1024+X+40*Y)+LE:FOR LDSV=1024+X+40*Y TO 1024+(X+LE)+40*(Y+DE)-1
  14. 395 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
  15. 400 POKE LDSV,160
  16. 410 NEXT LDSV
  17. 420 PRINT"";:FOR L=1TO X+1:PRINTXX$;:NEXTL
  18. 430 FOR L=1 TO Y+1:PRINT YY$;:NEXTL
  19. 440 FOR LI=1 TO LEN(ME$) STEP LE-2
  20. 450 PRINTMID$(ME$,LI,LE-2)
  21. 460 PRINT"";:FOR L=1 TO X+1:PRINTXX$;:NEXTL
  22. 470 FOR L=1 TO Y+1:PRINTYY$;:NEXTL
  23. 480 FOR LI=1 TO LEN(ME$) STEP LE-2
  24. 490 PRINTMID$(ME$,LI,LE-2)
  25. 500 PRINT"";:FOR L=1 TO X+1:PRINTXX$;:NEXT L
  26. 510 NEXT LI
  27. 520 PRINT"";:FOR L=1 TO X+LE-6:PRINTXX$;:NEXT L
  28. 530 FOR L=1TO (Y+DE)-1:PRINTYY$;:NEXT L
  29. 540 PRINT"<KEY>"
  30. 550 GETA$:IF A$="" THEN 550
  31. 560 EN=(1024+X+40*Y)+LE:FOR LDSV=1024+X+40*Y TO 1024+(X+LE)+40*(Y+DE)-1
  32. 570 IF LDSV=EN THEN LDSV=LDSV+(40-(X+LE))+X:EN=EN+40
  33. 580 POKE LDSV,SCREEN(LDSV-1024)
  34. 590 NEXT LDSV
  35. 600 PRINT"";
  36.