10 CLS
20 FOR H = 0 TO 239
30 FOR V = 0 TO 63
40 PSET(H,V)
50 NEXT V
60 NEXT H
99 GOTO 99

Example 2: TRS-80 Model 100 BASIC code.