BBS: Inland Empire Archive Date: 04-09-93 (22:58) Number: 326 From: EARL MONTGOMERY Refer#: NONE To: ALL Recvd: NO Subj: Part 3 of clipedv6.bas Conf: (2) Quik_Bas

'Part 3 of 5 clipedv6.basOPEN"r", #1, "zoom", 1:FIELD1, 1ASO$FORy = 6TO164STEP8FORx = 102TO260STEP8GET#1, i%: i% = i% + 1IFASC(O$) = 142THENPAINT(x, y), 143, 142:GOTOskipoverPAINT(x, y), ASC(O$), 142 skipover:NEXTx, yCLOSE#1 x = 176: y = 88 flag$ = "jump"LINE(170, 180)-(190, 198), 142, B c = POINT(x, y)IFc = 142THENc = 143PAINT(180, 185), c, 142:LOCATE25, 30:INKEY$:IFi$ = ""THENGOSUBputcursor:GOTOinkey3 AA = ASC(i$)IFAA = 0THENGOTOkeyboardscanfromzoomIFi$ = "d"ORi$ = "D"THENflag$ = ""IFi$ = "c"ORi$ = "C"THENc = c + 1: IF c > 255 THEN c = 0IFi$ = "-"ORi$ = "_"THENc = c - 1: IF c < 0 THEN c = 0IFc = 142ANDi$ = "-"ORi$ = "_"THENc = 141IFc = 142ANDi$ = "c"ORi$ = "C"THENc = 143IFi$ = "c"ORi$ = "C"THENGOSUBprintnewcolorIFi$ = "-"ORi$ = "_"THENGOSUBprintnewcolorIFi$ = "f"ORi$ = "F"THENc = POINT(x + 8, y): IF c = 142 THEN c = 143IFi$ = "s"ORi$ = "S"THENGOTOsavefromkeyboardIFi$ = "l"ORi$ = "L"THENGOSUBbloadscrn:GOTOcursorIFi$ = "u"ORi$ = "U"THENflag$ = "jump"IFflag$ = ""THENPAINT(x, y), c, 142:PSET(X1, Y1), cPUT(x - 3, y - 3), d:FORd = 0TO50:NEXT: PUT (x - 3, y - 3), d i$ = "":GOTOinkey3 keyboardscanfromzoom:IFASC(MID$(i$, 2)) = 75THENx = x - 8: X1 = X1 - 1IFASC(MID$(i$, 2)) = 77THENx = x + 8: X1 = X1 + 1IFASC(MID$(i$, 2)) = 72THENy = y - 8: Y1 = Y1 - 1IFASC(MID$(i$, 2)) = 80THENy = y + 8: Y1 = Y1 + 1IFASC(MID$(i$, 2)) = 71THENx = x - 8: y = y - 8: X1 = X1 - 1: Y1 = Y1 - 1IFASC(MID$(i$, 2)) = 79THENx = x - 8: y = y + 8: X1 = X1 - 1: Y1 = Y1 + 1IFASC(MID$(i$, 2)) = 73THENx = x + 8: y = y - 8: X1 = X1 + 1: Y1 = Y1 - 1IFASC(MID$(i$, 2)) = 81THENx = x + 8: y = y + 8: X1 = X1 + 1: Y1 = Y1 + 1IFx > 256THENx = 256IFx < 104THENx = 104IFy > 160THENy = 160IFy < 8THENy = 8IFX1 < 50THENX1 = 50IFX1 > 69THENX1 = 69IFY1 > 69THENY1 = 69IFY1 < 50THENY1 = 50IFflag$ = "jump"THENGOSUBputcursor:GOTOinkey3PAINT(x, y), c, 142PSET(X1, Y1), cGOTOinkey3 savefromkeyboard:GET(50, 50)-(69, 69), PIXDEF SEG= &HA000:BLOAD"temp.bin", 0PUT(x%, y%), PIX,PSETGOTOcursor --- Maximus 2.01wb * Origin: Verbose Ink * Dallas * 214-437-0914 * V32b/HST (1:124/5125)

Echo Basic Postings

**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