---
title: "Firstloader"
type: "article"
slug: "firstloader"
url: "http://localhost/article/firstloader/"
markdown_url: "http://localhost/article/firstloader.md"
published_at: "2022-09-14T02:44:14+00:00"
modified_at: "2024-05-26T13:37:30+00:00"
featured_image:
  url: "http://localhost/wp-content/uploads/2022/04/20230809-041332.jpg"
category:
  - name: "LISTing Newsletter"
    slug: "listing-newsletter"
    taxonomy: "category"
    url: "http://localhost/category/periodicals/listing-newsletter/"
post_tag:
  - name: "TS 1000"
    slug: "ts1000"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts1000/"
  - name: "TS 2068"
    slug: "ts2068"
    taxonomy: "post_tag"
    url: "http://localhost/tag/ts2068/"
  - name: "Type-in program"
    slug: "type-in-program"
    taxonomy: "post_tag"
    url: "http://localhost/tag/type-in-program/"
model:
  - name: "Timex/Sinclair 1000"
    slug: "ts-1000"
    taxonomy: "model"
    url: "http://localhost/model/ts-1000/"
  - name: "Timex/Sinclair 2068"
    slug: "ts-2068"
    taxonomy: "model"
    url: "http://localhost/model/ts-2068/"
publication_r:
  id: 38992
  title: "LISTing Newsletter"
  type: "periodical"
  url: "http://localhost/periodical/listing-newsletter/"
issues_articles:
  - id: 40174
    title: "LISTing Newsletter March 1990"
    type: "issue"
    url: "http://localhost/issue/listing-newsletter-march-1990/"
pages: "5-9"
pubdate: "March 1990"
archive_link: false
article_media:
  - id: 54525
    title: "FIRSTLOAD"
    type: "computer_media"
    url: "http://localhost/computer_media/firstload/"
---

# Firstloader

## Source Code: FIRSTLOAD

```
    2 GO TO 40
   10 DATA 1,181,0,17,0,92,33,136,111,237,176,1,124,146,17,62,105,33,62,112,237,176,201
   15 FOR i=24606 TO 24628
   25 READ v
   30 POKE i,v
   35 NEXT i
   40 STOP 
  100 INPUT v
  110 FOR i=v TO v+10
  120 PRINT i,
  130 INPUT t
  135 PRINT t,
  137 POKE i,t
  140 NEXT i
  150 GO TO 207
  205 INPUT "start";v
  206 IF v=0 THEN LET v=45000
  207 LET b$=" "
  210 FOR i=v TO (v+300) STEP 5
  220 PRINT i;
  230 FOR j=0 TO 4
  240 LET x=PEEK (i+j)
  250 IF x<100 THEN LET b$="  "
  255 IF x<10 THEN LET b$="   "
  260 PRINT " ";b$;x;
  270 LET b$=" "
  280 NEXT j
  290 PRINT "  ";
  295 NEXT i
  299 STOP 
  300 FOR i=44000 TO 45234
  310 IF PEEK i<>PEEK (i+6000) THEN PRINT i,PEEK i
  320 NEXT i
  500 CLS 
  501 PRINT "                                                                     Loading code...                                                 Please wait"
  510 LOAD ""CODE 
  600 CLS 
  610 PRINT "                                Enter:                                                                CLEAR 43999 :NEW           then:                                 RANDOMIZE USR 45000"
  699 STOP 
  700 SAVE "firstloadr" LINE 500
  710 SAVE "firstloadr"CODE 44000,1234
  799 STOP
```