Epson LX-90 User Manual - Apple IIc 8699 PIC for LX-90 - Page 55

Diamonds of Randwon Program, NEXT :REM PEZLPZ -LOOPS FASTER W/O VAR. AFTER NEXT

Get Epson LX-90 - Impact Printer PDF manuals and user guides View all Epson LX-90 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 55 highlights

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 NEXT 60401 NEXT 60402 NEXT 60403 PRINT CHR$(13); 60404 NEXT 60410 PRINT CHR$(27);"A";CHR$(12) 60420 PRINT CHR$(4);"PR#0" 60430 RETURN 53

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
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
NEXT
60401 NEXT
60402
NEXT
60403
PRINT CHR$(13);
60404
NEXT
60410 PRINT CHR$(27);"A";CHR$(12)
60420
PRINT CHR$(4);"PR#0"
60430 RETURN
53