User`s manual

ManualsBrandsEpson ManualsComputer equipmentPrinter Interface Cartridge for the Apple IIc

Diamonds of Randwon Program

10000

HGR

10001

POKE -16302,0

10002

CALL 62450

10010

FOR I=1 TO 200

10020

HCOLOR=3*INT(2*RND(1))

10030

X=139*RND(1): Y=79*RND(1)

10040

HPLOT 139-X, 79 TO 139, 79+Y

10050

HPLOT 139, 79+Y TO 139+X, 79

10060

HPLOT 139+X, 79 TO 139, 79-Y

10070

HPLOT 139, 79-Y TO 139-X, 79

10080 NEXT I

10090

GOSUB

60000

10100

TEXT :END

60000

PAZAD% = -15935

60010

PBZAD% = -16240

60020

PDZWT% = 128

60080 REM APPLE/EPSON HI-RES SCREEN DUMP

60100

PEZLPZ = 0 :REM LOOP COUNTERS

60110 PFZLPZ = 0

60120

PGZLPZ = 0

60130 PHZLPZ = 0

60140

PIZPGl% = 8192

60150

PJZSETUP$ =" " :REM 10 SPACES

60160 PJZSETUP$ = PJZSETUP$+CHR$(27)+"K"+CHR$(0)+CHR$(1)

60170

FOR PEZLPZ = 1 TO 64

60180 PJZSETUP$ = PJZSETUP$+CHR$(0)

60190 NEXT :REM PEZLPZ -LOOPS FASTER W/O VAR. AFTER NEXT

60200

PRINT CHR$(4);"PR#1"

60210

PRINT CHR$(27);"A";CHR$(7);

60220

FOR PEZLPZ = 39 TO 0 STEP -1

60230

PRINT PJZSETUP$;

60240

FOR PFZLPZ = 0 TO 80 STEP 40

60250

FOR PGZLPZ = 0 TO 896 STEP 128

60260

FOR PHZLPZ = 0 TO 7168 STEP 1024

60300 WAIT PAZAD%, PDZWT%, PDZWT%

60310 POKE PBZAD%, PEEK(PEZLPZ+PFZLPZ+PGZLPZ+PHZLPZ+PIZPGl%)

60400

60401

60402

60403

PRINT CHR$(13);

60404

60410

PRINT CHR$(27);"A";CHR$(12)

60420

PRINT CHR$(4);"PR#0"

60430

RETURN