BBS: Inland Empire Archive Date: 04-09-93 (22:54) Number: 324 From: EARL MONTGOMERY Refer#: NONE To: ALL Recvd: NO Subj: Companion Program to VGAC Conf: (2) Quik_Bas
'Part 1 of 5 parts CLIPEDv6.BAS 'A companion program to VGACLIP.EXE 'Make sure you save the Document File that follows this post! ' $INCLUDE: 'qb.bi' DEFINT K, P ON ERROR GOTO errorroutine DIM B(500) DIM d(100) DIM PIX(1000) DIM inreg AS RegType DIM outreg AS RegType restart: SCREEN 0: CLS PRINT "CLIPEDv6.BAS": PRINT "Copyright (C) Earl Montgomery 1990" PRINT GOSUB keyboard begin: SCREEN 13: DEF SEG = &HA000 DRAW "c142;bm100,100;r4;br2;bu2;u3;bd5;br2;r4;bl6;bd2;d3;" DRAW "bm2,2;r6;d6;l6;u6;" GET (2, 2)-(8, 8), d GET (98, 92)-(114, 108), B CLS OUT &H3C8, 0 FOR k = 0 TO 767: OUT &H3C9, 0: NEXT DEF SEG = &HA000 BLOAD n$ + ".cap", 0: DEF SEG = &HA000 + 4000 OUT &H3C8, 0 FOR k = 0 TO 767: P = PEEK(k): OUT &H3C9, P: NEXT REM Main Program x% = 160: y% = 100 cursor: PUT (x%, y%), B inkey1: i$ = INKEY$: IF i$ = "" THEN GOTO inkey1 IF i$ = " " THEN GOTO inkey1 PUT (x%, y%), B AA% = ASC(i$) AND 223 IF AA% = 0 THEN GOTO mainkeyboardscan IF AA% = 71 THEN COLOR 15: CLS : SCREEN 0: DEF SEG : END IF AA% = 83 THEN GOTO preparetoexit IF AA% = 72 THEN GOTO helpscrn IF AA% = 90 THEN GOTO zoom GOTO cursor mainkeyboardscan: IF ASC(MID$(i$, 2)) = 75 THEN x% = x% - 2 IF ASC(MID$(i$, 2)) = 77 THEN x% = x% + 2 IF ASC(MID$(i$, 2)) = 72 THEN y% = y% - 2 IF ASC(MID$(i$, 2)) = 80 THEN y% = y% + 2 IF ASC(MID$(i$, 2)) = 71 THEN x% = x% - 2: y% = y% - 2 IF ASC(MID$(i$, 2)) = 79 THEN x% = x% - 2: y% = y% + 2 IF ASC(MID$(i$, 2)) = 73 THEN x% = x% + 2: y% = y% - 2 IF ASC(MID$(i$, 2)) = 81 THEN x% = x% + 2: y% = y% + 2 IF x% > 300 THEN x% = 300 IF x% < 6 THEN x% = 6 IF y% > 180 THEN y% = 180 IF y% < 5 THEN y% = 5 GOTO cursor helpscrn: DEF SEG = &HA000: BSAVE "temp.bin", 0, 64780!: CLS 'End of part 1 of 5 --- Maximus 2.01wb * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)
Books at Amazon:
Back to BASIC: The History, Corruption, and Future of the Language
Hackers: Heroes of the Computer Revolution (including Tiny BASIC)
Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution
The Advent of the Algorithm: The Idea that Rules the World
Moths in the Machine: The Power and Perils of Programming
Mastering Visual Basic .NET